diff --git a/Makefile b/Makefile
index 50e5f1d89..c3cce41c2 100644
--- a/Makefile
+++ b/Makefile
@@ -47,13 +47,13 @@
 SWIFTEST_MODULES =   swiftest_globals.f90 \
                      swiftest_operators.f90 \
 							lambda_function.f90\
-							walltime_classes.f90 \
                      swiftest_classes.f90 \
                      fraggle_classes.f90 \
                      whm_classes.f90 \
                      rmvs_classes.f90 \
                      helio_classes.f90 \
                      symba_classes.f90 \
+							walltime_classes.f90 \
                      swiftest.f90 
 
 
@@ -93,11 +93,6 @@ lib:
 	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
 	  ln -s $(SWIFTEST_HOME)/Makefile .; \
 	  make libdir
-	cd $(SWIFTEST_HOME)/src/drift; \
-	  rm -f Makefile.Defines Makefile; \
-	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
-	  ln -s $(SWIFTEST_HOME)/Makefile .; \
-	  make libdir
 	cd $(SWIFTEST_HOME)/src/gr; \
 	  rm -f Makefile.Defines Makefile; \
 	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
@@ -128,11 +123,6 @@ lib:
 	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
 	  ln -s $(SWIFTEST_HOME)/Makefile .; \
 	  make libdir
-	cd $(SWIFTEST_HOME)/src/orbel; \
-	  rm -f Makefile.Defines Makefile; \
-	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
-	  ln -s $(SWIFTEST_HOME)/Makefile .; \
-	  make libdir
 	cd $(SWIFTEST_HOME)/src/setup; \
 	  rm -f Makefile.Defines Makefile; \
 	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
@@ -168,6 +158,11 @@ lib:
 	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
 	  ln -s $(SWIFTEST_HOME)/Makefile .; \
 	  make libdir
+	cd $(SWIFTEST_HOME)/src/walltime; \
+	  rm -f Makefile.Defines Makefile; \
+	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
+	  ln -s $(SWIFTEST_HOME)/Makefile .; \
+	  make libdir
 
 fast:
 	cd $(SWIFTEST_HOME)/src/fraggle; \
@@ -182,6 +177,24 @@ fast:
 	  ln -s $(SWIFTEST_HOME)/Makefile .; \
 	  make fastdir
 
+	cd $(SWIFTEST_HOME)/src/orbel; \
+	  rm -f Makefile.Defines Makefile; \
+	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
+	  ln -s $(SWIFTEST_HOME)/Makefile .; \
+	  make fastdir
+
+	cd $(SWIFTEST_HOME)/src/drift; \
+	  rm -f Makefile.Defines Makefile; \
+	  ln -s $(SWIFTEST_HOME)/Makefile.Defines .; \
+	  ln -s $(SWIFTEST_HOME)/Makefile .; \
+	  make fastdir
+
+	cd $(SWIFTEST_HOME)/src/helio; \
+		$(FORTRAN) $(FFASTFLAGS) -I$(SWIFTEST_HOME)/include -I$(NETCDF_FORTRAN_HOME)/include $(IMKL) -c helio_drift.f90; \
+		$(AR) rv $(SWIFTEST_HOME)/lib/libswiftest.a *.o *.smod; \
+		$(INSTALL_DATA) *.smod $(SWIFTEST_HOME)/include; \
+		rm -f *.o *.smod	
+
 	cd $(SWIFTEST_HOME)/src/rmvs; \
 		$(FORTRAN) $(FFASTFLAGS) -I$(SWIFTEST_HOME)/include -I$(NETCDF_FORTRAN_HOME)/include $(IMKL) -c rmvs_encounter_check.f90; \
 		$(AR) rv $(SWIFTEST_HOME)/lib/libswiftest.a *.o *.smod; \
@@ -206,7 +219,6 @@ fastdir:
 	$(INSTALL_DATA) *.smod $(SWIFTEST_HOME)/include; \
 	rm -f *.o *.smod
 
-
 drivers:
 	cd $(SWIFTEST_HOME)/src/main; \
 	  rm -f Makefile.Defines Makefile; \
@@ -237,6 +249,7 @@ clean:
 	cd $(SWIFTEST_HOME)/src/tides;   rm -f Makefile.Defines Makefile *.gc*
 	cd $(SWIFTEST_HOME)/src/user;    rm -f Makefile.Defines Makefile *.gc*
 	cd $(SWIFTEST_HOME)/src/util;    rm -f Makefile.Defines Makefile *.gc*
+	cd $(SWIFTEST_HOME)/src/walltime;    rm -f Makefile.Defines Makefile *.gc*
 	cd $(SWIFTEST_HOME)/src/whm;    rm -f Makefile.Defines Makefile *.gc*
 	cd $(SWIFTEST_HOME)/bin;     rm -f swiftest_*
 	cd $(SWIFTEST_HOME)/bin;     rm -f tool_*
diff --git a/Makefile.Defines b/Makefile.Defines
index 9e06d56ba..16ce3afc3 100644
--- a/Makefile.Defines
+++ b/Makefile.Defines
@@ -67,15 +67,15 @@ GWARNINGS = -Wall -Warray-bounds  -Wimplicit-interface -Wextra -Warray-temporari
 GPRODUCTION = -O2 -ffree-line-length-none $(GPAR)
 
 
-#FFLAGS  = $(IDEBUG) $(SIMDVEC) $(PAR)
-#FFASTFLAGS  = $(IDEBUG) $(SIMDVEC) $(PAR)
-FFLAGS = $(IPRODUCTION) $(STRICTREAL)
-FFASTFLAGS = $(IPRODUCTION) -fp-model fast
+#FFLAGS  = $(IDEBUG)  #$(SIMDVEC) $(PAR)
+#FFASTFLAGS  = $(IDEBUG) #$(SIMDVEC) $(PAR)
+FFLAGS = $(IPRODUCTION) $(STRICTREAL) #$(ADVIXE_FLAGS)
+FFASTFLAGS = $(IPRODUCTION) -fp-model fast #$(ADVIXE_FLAGS)
 FORTRAN = ifort
 AR     = xiar
 
 #FORTRAN = gfortran
-#FFLAGS =  $(GDEBUG) $(GMEM) $(GPAR)
+#FFLAGS =  $(GDEBUG) # $(GMEM) $(GPAR)
 #FFLAGS =  $(GPRODUCTION) -g -fbacktrace #-fcheck=all #-Wall AR     = ar # DO NOT include in CFLAGS the "-c" option to compile object only
 # this is done explicitly as needed in the Makefile
 
diff --git a/docs/index.html b/docs/index.html
index d8ecd89b6..90d0813f7 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -184,35 +184,35 @@ <h3>Source Files</h3>
                   
                 
                   
-                    <li><a href='./sourcefile/eucl.f90.html'>eucl.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/fragmentation.f90.html'>fragmentation.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/gr.f90.html'>gr.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/helio_classes.f90.html'>helio_classes.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/helio_coord.f90.html'>helio_coord.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_regime.f90.html'>fraggle_regime.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/helio_drift.f90.html'>helio_drift.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/helio_gr.f90.html'>helio_gr.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_setup.f90.html'>fraggle_setup.f90</a></li>
                   
                 
                   
-                    <li><a href='./sourcefile/helio_kick.f90.html'>helio_kick.f90</a></li>
+                    <li><a href='./sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
                   
                 
                   
@@ -314,6 +314,26 @@ <h3>Source Files</h3>
                   
                 
                   
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
                 
                   
                 
@@ -343,6 +363,10 @@ <h3>Modules</h3>
               <ul>
                 
                   
+                    <li><a href='./module/fraggle_classes.html'>fraggle_classes</a></li>
+                  
+                
+                  
                     <li><a href='./module/helio_classes.html'>helio_classes</a></li>
                   
                 
@@ -351,6 +375,10 @@ <h3>Modules</h3>
                   
                 
                   
+                    <li><a href='./module/orbel.html'>orbel</a></li>
+                  
+                
+                  
                     <li><a href='./module/rmvs_classes.html'>rmvs_classes</a></li>
                   
                 
@@ -375,7 +403,9 @@ <h3>Modules</h3>
                   
                 
                   
-                    <li><a href='./module/whm_classes.html'>whm_classes</a></li>
+                    <li><a href="./lists/modules.html"><em>All modules&hellip;</em></a></li>
+                  
+                
                   
                 
               </ul>
@@ -387,6 +417,10 @@ <h3>Procedures</h3>
               <ul>
                 
                   
+                    <li><a href='./proc/check.html'>check</a></li>
+                  
+                
+                  
                     <li><a href='./proc/discard_cb_tp.html'>discard_cb_tp</a></li>
                   
                 
@@ -423,11 +457,147 @@ <h3>Procedures</h3>
                   
                 
                   
-                    <li><a href='./proc/drift_dan.html'>drift_dan</a></li>
+                    <li><a href="./lists/procedures.html"><em>All procedures&hellip;</em></a></li>
+                  
+                
                   
                 
                   
-                    <li><a href="./lists/procedures.html"><em>All procedures&hellip;</em></a></li>
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
+                  
+                
                   
                 
                   
@@ -985,6 +1155,14 @@ <h3>Derived Types</h3>
               <ul>
                 
                   
+                    <li><a href='./type/fraggle_colliders.html'>fraggle_colliders</a></li>
+                  
+                
+                  
+                    <li><a href='./type/fraggle_fragments.html'>fraggle_fragments</a></li>
+                  
+                
+                  
                     <li><a href='./type/helio_cb.html'>helio_cb</a></li>
                   
                 
@@ -1013,19 +1191,21 @@ <h3>Derived Types</h3>
                   
                 
                   
-                    <li><a href='./type/rmvs_cb.html'>rmvs_cb</a></li>
+                    <li><a href='./type/netcdf_parameters.html'>netcdf_parameters</a></li>
                   
                 
                   
-                    <li><a href='./type/rmvs_interp.html'>rmvs_interp</a></li>
+                    <li><a href="./lists/types.html"><em>All derived types&hellip;</em></a></li>
                   
                 
                   
-                    <li><a href='./type/rmvs_nbody_system.html'>rmvs_nbody_system</a></li>
+                
                   
                 
                   
-                    <li><a href="./lists/types.html"><em>All derived types&hellip;</em></a></li>
+                
+                  
+                
                   
                 
                   
diff --git a/docs/interface/abstract_accel.html b/docs/interface/abstract_accel.html
index 49f42ad0b..02992e214 100644
--- a/docs/interface/abstract_accel.html
+++ b/docs/interface/abstract_accel.html
@@ -136,7 +136,7 @@ <h1>abstract_accel
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~2"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~3"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~2"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~3"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~4"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/abstract_discard_body.html b/docs/interface/abstract_discard_body.html
index 8e742b9a8..737868b93 100644
--- a/docs/interface/abstract_discard_body.html
+++ b/docs/interface/abstract_discard_body.html
@@ -136,7 +136,7 @@ <h1>abstract_discard_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~2"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~2"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/abstract_kick_body.html b/docs/interface/abstract_kick_body.html
index a73103dfc..b7a86452d 100644
--- a/docs/interface/abstract_kick_body.html
+++ b/docs/interface/abstract_kick_body.html
@@ -136,7 +136,7 @@ <h1>abstract_kick_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~4"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~5"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/abstract_read_frame.html b/docs/interface/abstract_read_frame.html
index b849bbff8..2e3ef4fdf 100644
--- a/docs/interface/abstract_read_frame.html
+++ b/docs/interface/abstract_read_frame.html
@@ -136,7 +136,7 @@ <h1>abstract_read_frame
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -207,7 +207,7 @@ <h3>Contents</h3>
     
       <h2>abstract interface <br>
       
-public subroutine abstract_read_frame(self, iu, param, form, ierr)
+public function abstract_read_frame(self, iu, param) result(ierr)
     
     
    
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~5"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td><span class="anchor" id="variable-self"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~5"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -275,42 +275,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form"></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" id="variable-ierr"></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>
 
     
     
     
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-ierr"></span><small>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
 
  </div>
diff --git a/docs/interface/abstract_set_mu.html b/docs/interface/abstract_set_mu.html
index 7fa34b624..de12f0b59 100644
--- a/docs/interface/abstract_set_mu.html
+++ b/docs/interface/abstract_set_mu.html
@@ -136,7 +136,7 @@ <h1>abstract_set_mu
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~6"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~5"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/abstract_step_body.html b/docs/interface/abstract_step_body.html
index 5d0f6548f..71045a9c5 100644
--- a/docs/interface/abstract_step_body.html
+++ b/docs/interface/abstract_step_body.html
@@ -136,7 +136,7 @@ <h1>abstract_step_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~7"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~6"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~6"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~5"></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-t~5"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~6"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/abstract_step_system.html b/docs/interface/abstract_step_system.html
index f02461174..fa115a9a6 100644
--- a/docs/interface/abstract_step_system.html
+++ b/docs/interface/abstract_step_system.html
@@ -136,7 +136,7 @@ <h1>abstract_step_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title="12.1% of total for abstract interfaces.">55 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~8"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~7"></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~7"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~6"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~6"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~7"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/discard_pl.html b/docs/interface/discard_pl.html
index 744672bd9..76f245a44 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~119"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~147"></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~55"></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>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~79"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~95"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/discard_system.html b/docs/interface/discard_system.html
index 93f57ce3b..8d8e2ab44 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~120"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~148"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~80"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~96"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/discard_tp.html b/docs/interface/discard_tp.html
index 996f1a43f..150aaa563 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~121"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~149"></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~56"></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>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~81"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~97"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/drift_all.html b/docs/interface/drift_all.html
index b7a2ff261..9d4407a89 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -477,7 +477,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~17"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~12"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~9"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~4"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~11"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -522,7 +522,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~82"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~98"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -537,7 +537,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~50"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~55"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/drift_body.html b/docs/interface/drift_body.html
index 7f15708a4..999e17db9 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~122"></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>
   
@@ -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~63"></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~83"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~99"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~51"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~56"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/drift_one.html b/docs/interface/drift_one.html
index 21cfd2ee5..ac990131f 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-px"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-px~2"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-py"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-py~2"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pz"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-pz~2"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vx"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vx~2"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vy"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vy~2"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -436,7 +436,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vz"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vz~2"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -451,7 +451,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~52"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~57"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/fraggle_generate_fragments.html b/docs/interface/fraggle_generate_fragments.html
new file mode 100644
index 000000000..70a400b7e
--- /dev/null
+++ b/docs/interface/fraggle_generate_fragments.html
@@ -0,0 +1,726 @@
+
+<!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>fraggle_generate_fragments &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>fraggle_generate_fragments
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_generate_fragments</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~~fraggle_generate_fragments~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_generate_fragmentsCallsGraph" width="641pt" height="119pt"
+ viewBox="0.00 0.00 641.00 118.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_generate_fragments~~CallsGraph" class="graph" transform="scale(0.49 0.49) rotate(0) translate(4 238.72)">
+<title>interface~~fraggle_generate_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-238.72 1306,-238.72 1306,4 -4,4"/>
+<!-- interface~fraggle_generate_fragments -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node1" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<polygon fill="none" stroke="black" points="148,-147 0,-147 0,-123 148,-123 148,-147"/>
+<text text-anchor="middle" x="74" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_fragments</text>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node2" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-147 184,-147 184,-123 332,-123 332,-147"/>
+<text text-anchor="middle" x="258" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-135C156.6,-135 165.16,-135 173.64,-135"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-138.5 183.91,-135 173.91,-131.5 173.91,-138.5"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node3" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="503.5,-168 368.5,-168 368.5,-144 503.5,-144 503.5,-168"/>
+<text text-anchor="middle" x="436" y="-153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-143.72C340.73,-144.75 349.55,-145.8 358.22,-146.84"/>
+<polygon fill="#000000" stroke="#000000" points="357.96,-150.33 368.31,-148.04 358.79,-143.38 357.96,-150.33"/>
+</g>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node4" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node4"><a xlink:href=".././proc/fraggle_generate_pos_vec.html" xlink:title="fraggle_generate_pos_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="877,-74 737,-74 737,-50 877,-50 877,-74"/>
+<text text-anchor="middle" x="807" y="-59.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_pos_vec</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge3" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec</title>
+<path fill="none" stroke="#000000" d="M285.29,-122.81C307.02,-113.24 338.9,-100.35 368,-93 490.46,-62.06 637.88,-58.18 726.65,-59.3"/>
+<polygon fill="#000000" stroke="#000000" points="726.86,-62.8 736.92,-59.45 726.97,-55.8 726.86,-62.8"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node5" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node5"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="504,-126 368,-126 368,-102 504,-102 504,-126"/>
+<text text-anchor="middle" x="436" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge4" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-126.28C340.6,-125.26 349.27,-124.23 357.81,-123.21"/>
+<polygon fill="#000000" stroke="#000000" points="358.23,-126.68 367.75,-122.02 357.4,-119.73 358.23,-126.68"/>
+</g>
+<!-- proc~fraggle_generate_spins -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node6" class="node">
+<title>proc~fraggle_generate_spins</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node6"><a xlink:href=".././proc/fraggle_generate_spins.html" xlink:title="fraggle_generate_spins">
+<polygon fill="#d9534f" stroke="#d9534f" points="498.5,-210 373.5,-210 373.5,-186 498.5,-186 498.5,-210"/>
+<text text-anchor="middle" x="436" y="-195.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_spins</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge5" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins</title>
+<path fill="none" stroke="#000000" d="M288.88,-147.11C310.68,-155.79 341,-167.58 368,-177 373.6,-178.96 379.5,-180.93 385.37,-182.84"/>
+<polygon fill="#000000" stroke="#000000" points="384.59,-186.26 395.18,-185.98 386.73,-179.6 384.59,-186.26"/>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node7" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node7"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="694,-230 540,-230 540,-206 694,-206 694,-230"/>
+<text text-anchor="middle" x="617" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge6" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M269.56,-147.19C287.46,-166.82 325.94,-204.67 368,-219 422.53,-237.57 487.79,-236.46 537.68,-231.17"/>
+<polygon fill="#000000" stroke="#000000" points="538.22,-234.63 547.76,-230.02 537.43,-227.67 538.22,-234.63"/>
+</g>
+<!-- interface~fraggle_io_log_generate -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node8" class="node">
+<title>interface~fraggle_io_log_generate</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node8"><a xlink:href=".././interface/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#a7506f" stroke="#a7506f" points="500.5,-24 371.5,-24 371.5,0 500.5,0 500.5,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge7" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" d="M269.98,-122.72C288.47,-102.65 327.8,-62.57 368,-38 374.15,-34.24 380.93,-30.86 387.75,-27.87"/>
+<polygon fill="#000000" stroke="#000000" points="389.11,-31.09 397.02,-24.04 386.44,-24.62 389.11,-31.09"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge10" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M480.01,-168.05C488.08,-170.72 496.38,-173.73 504,-177 520.82,-184.22 523.06,-190.07 540,-197 545.07,-199.07 550.41,-201.01 555.81,-202.81"/>
+<polygon fill="#000000" stroke="#000000" points="554.97,-206.21 565.56,-205.88 557.07,-199.53 554.97,-206.21"/>
+</g>
+<!-- util_minimize_bfgs -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node11" class="node">
+<title>util_minimize_bfgs</title>
+<polygon fill="#777777" stroke="#777777" points="667,-104 567,-104 567,-80 667,-80 667,-104"/>
+<text text-anchor="middle" x="617" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge8" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M480.83,-143.96C488.67,-141.33 496.67,-138.33 504,-135 521.07,-127.25 522.8,-120.46 540,-113 545.39,-110.66 551.11,-108.52 556.9,-106.57"/>
+<polygon fill="#000000" stroke="#000000" points="558.18,-109.83 566.65,-103.47 556.06,-103.16 558.18,-109.83"/>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node12" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node12"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="682,-146 552,-146 552,-122 682,-122 682,-146"/>
+<text text-anchor="middle" x="617" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge9" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M503.65,-147.81C516.12,-146.28 529.23,-144.66 541.91,-143.11"/>
+<polygon fill="#000000" stroke="#000000" points="542.47,-146.56 551.97,-141.87 541.61,-139.62 542.47,-146.56"/>
+</g>
+<!-- lambda_obj -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node14" class="node">
+<title>lambda_obj</title>
+<polygon fill="#777777" stroke="#777777" points="651,-188 583,-188 583,-164 651,-164 651,-188"/>
+<text text-anchor="middle" x="617" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge11" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M503.65,-163.45C526.78,-166.03 552.09,-168.86 572.82,-171.18"/>
+<polygon fill="#000000" stroke="#000000" points="572.58,-174.67 582.91,-172.3 573.36,-167.71 572.58,-174.67"/>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node9" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node9"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="1093,-95 920,-95 920,-71 1093,-71 1093,-95"/>
+<text text-anchor="middle" x="1006.5" y="-80.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge12" class="edge">
+<title>proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M877.08,-69.34C887.64,-70.47 898.7,-71.64 909.71,-72.81"/>
+<polygon fill="#000000" stroke="#000000" points="909.48,-76.31 919.79,-73.89 910.22,-69.35 909.48,-76.31"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge15" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M489.44,-126.14C494.65,-128.58 499.62,-131.5 504,-135 528.89,-154.89 514.77,-177.54 540,-197 541.85,-198.43 543.79,-199.76 545.8,-201"/>
+<polygon fill="#000000" stroke="#000000" points="544.53,-204.29 555.01,-205.87 547.81,-198.1 544.53,-204.29"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge13" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M504.16,-105.75C521.41,-103.63 539.85,-101.36 556.67,-99.29"/>
+<polygon fill="#000000" stroke="#000000" points="557.42,-102.73 566.92,-98.03 556.56,-95.78 557.42,-102.73"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge14" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M504.16,-121.5C516.33,-122.86 529.09,-124.29 541.45,-125.67"/>
+<polygon fill="#000000" stroke="#000000" points="541.4,-129.19 551.72,-126.82 542.17,-122.23 541.4,-129.19"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge16" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M480.01,-126.05C488.08,-128.72 496.38,-131.73 504,-135 520.82,-142.22 523.06,-148.07 540,-155 550.48,-159.29 562.11,-162.99 573.07,-166.05"/>
+<polygon fill="#000000" stroke="#000000" points="572.32,-169.47 582.89,-168.67 574.13,-162.71 572.32,-169.47"/>
+</g>
+<!-- proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge17" class="edge">
+<title>proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M498.6,-204.88C508.64,-206 519.2,-207.18 529.7,-208.36"/>
+<polygon fill="#000000" stroke="#000000" points="529.41,-211.85 539.73,-209.48 530.18,-204.89 529.41,-211.85"/>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node10" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node10"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="884,-230 730,-230 730,-206 884,-206 884,-230"/>
+<text text-anchor="middle" x="807" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge18" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.2,-218C702.52,-218 711.03,-218 719.47,-218"/>
+<polygon fill="#000000" stroke="#000000" points="719.7,-221.5 729.7,-218 719.7,-214.5 719.7,-221.5"/>
+</g>
+<!-- proc~fraggle_io_log_generate -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node13" class="node">
+<title>proc~fraggle_io_log_generate</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node13"><a xlink:href=".././proc/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#d9534f" stroke="#d9534f" points="681.5,-24 552.5,-24 552.5,0 681.5,0 681.5,-24"/>
+<text text-anchor="middle" x="617" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge19" class="edge">
+<title>interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M500.61,-12C513.99,-12 528.2,-12 541.92,-12"/>
+<polygon fill="#000000" stroke="#000000" points="542.29,-15.5 552.29,-12 542.29,-8.5 542.29,-15.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node15" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node15"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="1302,-95 1129,-95 1129,-71 1302,-71 1302,-95"/>
+<text text-anchor="middle" x="1215.5" y="-80.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge20" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1093.19,-83C1101.66,-83 1110.3,-83 1118.87,-83"/>
+<polygon fill="#000000" stroke="#000000" points="1118.88,-86.5 1128.88,-83 1118.88,-79.5 1118.88,-86.5"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_node16" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_interface~~fraggle_generate_fragments~~CallsGraph_node16"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="872,-126 742,-126 742,-102 872,-102 872,-126"/>
+<text text-anchor="middle" x="807" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge21" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M682.17,-127.17C698.12,-125.48 715.34,-123.64 731.72,-121.9"/>
+<polygon fill="#000000" stroke="#000000" points="732.22,-125.37 741.8,-120.83 731.48,-118.41 732.22,-125.37"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_generate_fragments~~CallsGraph_edge22" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M872.12,-103.94C887,-101.6 903.07,-99.08 918.74,-96.62"/>
+<polygon fill="#000000" stroke="#000000" points="919.63,-100.02 928.96,-95.01 918.54,-93.11 919.63,-100.02"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacefraggle_generate_fragmentsCallsGraph = svgPanZoom('#interfacefraggle_generate_fragmentsCallsGraph', {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 fraggle_generate_fragments(self, colliders, system, param, lfailure)
+    
+    
+   
+   <a href='../proc/fraggle_generate_fragments.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~77"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~3"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object containing the two-body equivalent values of the colliding bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~33"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~53"></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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lfailure"></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</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/fraggle_io_log_generate.html b/docs/interface/fraggle_io_log_generate.html
new file mode 100644
index 000000000..9e6264bd1
--- /dev/null
+++ b/docs/interface/fraggle_io_log_generate.html
@@ -0,0 +1,536 @@
+
+<!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>fraggle_io_log_generate &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>fraggle_io_log_generate
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_io_log_generate</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~~fraggle_io_log_generate~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_generateCallsGraph" width="302pt" height="32pt"
+ viewBox="0.00 0.00 302.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_generate~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_generate~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 298,-28 298,4 -4,4"/>
+<!-- interface~fraggle_io_log_generate -->
+<g id="interface~~fraggle_io_log_generate~~CallsGraph_node1" class="node">
+<title>interface~fraggle_io_log_generate</title>
+<polygon fill="none" stroke="black" points="129,-24 0,-24 0,0 129,0 129,-24"/>
+<text text-anchor="middle" x="64.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_generate</text>
+</g>
+<!-- proc~fraggle_io_log_generate -->
+<g id="interface~~fraggle_io_log_generate~~CallsGraph_node2" class="node">
+<title>proc~fraggle_io_log_generate</title>
+<g id="a_interface~~fraggle_io_log_generate~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#d9534f" stroke="#d9534f" points="294,-24 165,-24 165,0 294,0 294,-24"/>
+<text text-anchor="middle" x="229.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate -->
+<g id="interface~~fraggle_io_log_generate~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.45,-12C137.76,-12 146.32,-12 154.77,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155,-15.5 165,-12 155,-8.5 155,-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">
+  <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~~fraggle_io_log_generate~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_generateCalledByGraph" width="505pt" height="32pt"
+ viewBox="0.00 0.00 505.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_generate~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_generate~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 501,-28 501,4 -4,4"/>
+<!-- interface~fraggle_io_log_generate -->
+<g id="interface~~fraggle_io_log_generate~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_io_log_generate</title>
+<polygon fill="none" stroke="black" points="497,-24 368,-24 368,0 497,0 497,-24"/>
+<text text-anchor="middle" x="432.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_generate</text>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_io_log_generate~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_io_log_generate~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate -->
+<g id="interface~~fraggle_io_log_generate~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" d="M332.16,-12C340.58,-12 349.17,-12 357.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="357.78,-15.5 367.78,-12 357.78,-8.5 357.78,-15.5"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="interface~~fraggle_io_log_generate~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_io_log_generate~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_io_log_generate~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-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 fraggle_io_log_generate(frag)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_generate.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-frag~2"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td></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/fraggle_io_log_one_message.html b/docs/interface/fraggle_io_log_one_message.html
new file mode 100644
index 000000000..391f51a91
--- /dev/null
+++ b/docs/interface/fraggle_io_log_one_message.html
@@ -0,0 +1,614 @@
+
+<!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>fraggle_io_log_one_message &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>fraggle_io_log_one_message
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_io_log_one_message</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~~fraggle_io_log_one_message~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_one_messageCallsGraph" width="352pt" height="32pt"
+ viewBox="0.00 0.00 352.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_one_message~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_one_message~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 348,-28 348,4 -4,4"/>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CallsGraph_node1" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<polygon fill="none" stroke="black" points="154,-24 0,-24 0,0 154,0 154,-24"/>
+<text text-anchor="middle" x="77" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CallsGraph_node2" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="344,-24 190,-24 190,0 344,0 344,-24"/>
+<text text-anchor="middle" x="267" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.2,-12C162.52,-12 171.03,-12 179.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="179.7,-15.5 189.7,-12 179.7,-8.5 179.7,-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">
+  <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~~fraggle_io_log_one_message~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_one_messageCalledByGraph" width="641pt" height="161pt"
+ viewBox="0.00 0.00 641.00 160.96" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph" class="graph" transform="scale(0.91 0.91) rotate(0) translate(4 173.53)">
+<title>interface~~fraggle_io_log_one_message~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-173.53 703,-173.53 703,4 -4,4"/>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<polygon fill="none" stroke="black" points="699,-108 545,-108 545,-84 699,-84 699,-108"/>
+<text text-anchor="middle" x="622" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="506,-150 371,-150 371,-126 506,-126 506,-150"/>
+<text text-anchor="middle" x="438.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M491.51,-125.96C512.59,-121.09 537.09,-115.42 559.08,-110.33"/>
+<polygon fill="#000000" stroke="#000000" points="560.03,-113.7 568.98,-108.04 558.45,-106.88 560.03,-113.7"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="506.5,-108 370.5,-108 370.5,-84 506.5,-84 506.5,-108"/>
+<text text-anchor="middle" x="438.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M506.57,-96C515.69,-96 525.15,-96 534.56,-96"/>
+<polygon fill="#000000" stroke="#000000" points="534.72,-99.5 544.72,-96 534.72,-92.5 534.72,-99.5"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node4" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CalledByGraph_node4"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-129 184,-129 184,-105 332,-105 332,-129"/>
+<text text-anchor="middle" x="258" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge3" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M282.92,-129.17C304.52,-139.43 337.5,-153.33 368,-159 429.61,-170.46 448.38,-174.88 509,-159 542,-150.35 575.55,-129.56 597.2,-114.21"/>
+<polygon fill="#000000" stroke="#000000" points="599.41,-116.93 605.45,-108.22 595.3,-111.27 599.41,-116.93"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge6" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M332.12,-125.6C341.52,-126.71 351.17,-127.84 360.63,-128.96"/>
+<polygon fill="#000000" stroke="#000000" points="360.47,-132.46 370.81,-130.15 361.28,-125.51 360.47,-132.46"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge7" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.12,-108.4C341.38,-107.31 350.88,-106.19 360.21,-105.09"/>
+<polygon fill="#000000" stroke="#000000" points="360.71,-108.56 370.24,-103.91 359.9,-101.61 360.71,-108.56"/>
+</g>
+<!-- proc~fraggle_generate_spins -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node5" class="node">
+<title>proc~fraggle_generate_spins</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CalledByGraph_node5"><a xlink:href=".././proc/fraggle_generate_spins.html" xlink:title="fraggle_generate_spins">
+<polygon fill="#d9534f" stroke="#d9534f" points="501,-66 376,-66 376,-42 501,-42 501,-66"/>
+<text text-anchor="middle" x="438.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_spins</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge9" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins</title>
+<path fill="none" stroke="#000000" d="M288.39,-104.99C310.2,-96.25 340.76,-84.35 368,-75 373.87,-72.99 380.05,-70.97 386.2,-69.03"/>
+<polygon fill="#000000" stroke="#000000" points="387.3,-72.35 395.81,-66.05 385.22,-65.67 387.3,-72.35"/>
+</g>
+<!-- proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge4" class="edge">
+<title>proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M491.51,-66.04C512.59,-70.91 537.09,-76.58 559.08,-81.67"/>
+<polygon fill="#000000" stroke="#000000" points="558.45,-85.12 568.98,-83.96 560.03,-78.3 558.45,-85.12"/>
+</g>
+<!-- proc~fraggle_regime_collresolve -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node6" class="node">
+<title>proc~fraggle_regime_collresolve</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CalledByGraph_node6"><a xlink:href=".././proc/fraggle_regime_collresolve.html" xlink:title="fraggle_regime_collresolve">
+<polygon fill="#d9534f" stroke="#d9534f" points="509,-24 368,-24 368,0 509,0 509,-24"/>
+<text text-anchor="middle" x="438.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_collresolve</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge5" class="edge">
+<title>proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M484.51,-24.02C492.77,-26.67 501.23,-29.69 509,-33 539.3,-45.92 571.91,-64.89 594.08,-78.64"/>
+<polygon fill="#000000" stroke="#000000" points="592.29,-81.65 602.62,-83.99 596.01,-75.72 592.29,-81.65"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_node7" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_io_log_one_message~~CalledByGraph_node7"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-129 0,-129 0,-105 148,-105 148,-129"/>
+<text text-anchor="middle" x="74" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_io_log_one_message~~CalledByGraph_edge8" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-117C156.6,-117 165.16,-117 173.64,-117"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-120.5 183.91,-117 173.91,-113.5 173.91,-120.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacefraggle_io_log_one_messageCalledByGraph = svgPanZoom('#interfacefraggle_io_log_one_messageCalledByGraph', {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 fraggle_io_log_one_message(message)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_one_message.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-message~3"></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td></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/fraggle_io_log_pl.html b/docs/interface/fraggle_io_log_pl.html
new file mode 100644
index 000000000..93132b7d4
--- /dev/null
+++ b/docs/interface/fraggle_io_log_pl.html
@@ -0,0 +1,435 @@
+
+<!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>fraggle_io_log_pl &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>fraggle_io_log_pl
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_io_log_pl</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~~fraggle_io_log_pl~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_plCallsGraph" width="232pt" height="32pt"
+ viewBox="0.00 0.00 232.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 228,-28 228,4 -4,4"/>
+<!-- interface~fraggle_io_log_pl -->
+<g id="interface~~fraggle_io_log_pl~~CallsGraph_node1" class="node">
+<title>interface~fraggle_io_log_pl</title>
+<polygon fill="none" stroke="black" 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">fraggle_io_log_pl</text>
+</g>
+<!-- proc~fraggle_io_log_pl -->
+<g id="interface~~fraggle_io_log_pl~~CallsGraph_node2" class="node">
+<title>proc~fraggle_io_log_pl</title>
+<g id="a_interface~~fraggle_io_log_pl~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_io_log_pl.html" xlink:title="fraggle_io_log_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">fraggle_io_log_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_pl&#45;&gt;proc~fraggle_io_log_pl -->
+<g id="interface~~fraggle_io_log_pl~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_pl&#45;&gt;proc~fraggle_io_log_pl</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"/>
+</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 fraggle_io_log_pl(pl, param)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_pl.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-pl~11"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object (only the new bodies generated in a collision)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~54"></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 swiftest 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/fraggle_io_log_regime.html b/docs/interface/fraggle_io_log_regime.html
new file mode 100644
index 000000000..4ae4cb803
--- /dev/null
+++ b/docs/interface/fraggle_io_log_regime.html
@@ -0,0 +1,551 @@
+
+<!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>fraggle_io_log_regime &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>fraggle_io_log_regime
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_io_log_regime</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~~fraggle_io_log_regime~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_regimeCallsGraph" 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="interface~~fraggle_io_log_regime~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_regime~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 278,-28 278,4 -4,4"/>
+<!-- interface~fraggle_io_log_regime -->
+<g id="interface~~fraggle_io_log_regime~~CallsGraph_node1" class="node">
+<title>interface~fraggle_io_log_regime</title>
+<polygon fill="none" stroke="black" points="119,-24 0,-24 0,0 119,0 119,-24"/>
+<text text-anchor="middle" x="59.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_regime</text>
+</g>
+<!-- proc~fraggle_io_log_regime -->
+<g id="interface~~fraggle_io_log_regime~~CallsGraph_node2" class="node">
+<title>proc~fraggle_io_log_regime</title>
+<g id="a_interface~~fraggle_io_log_regime~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#d9534f" stroke="#d9534f" 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">fraggle_io_log_regime</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime -->
+<g id="interface~~fraggle_io_log_regime~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M119.22,-12C127.54,-12 136.17,-12 144.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="144.94,-15.5 154.94,-12 144.94,-8.5 144.94,-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">
+  <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~~fraggle_io_log_regime~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_regimeCalledByGraph" width="459pt" height="32pt"
+ viewBox="0.00 0.00 459.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_regime~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_regime~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 455,-28 455,4 -4,4"/>
+<!-- interface~fraggle_io_log_regime -->
+<g id="interface~~fraggle_io_log_regime~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_io_log_regime</title>
+<polygon fill="none" stroke="black" points="451,-24 332,-24 332,0 451,0 451,-24"/>
+<text text-anchor="middle" x="391.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_regime</text>
+</g>
+<!-- proc~fraggle_regime_colliders -->
+<g id="interface~~fraggle_io_log_regime~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_regime_colliders</title>
+<g id="a_interface~~fraggle_io_log_regime~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime -->
+<g id="interface~~fraggle_io_log_regime~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" d="M296.01,-12C304.44,-12 313.11,-12 321.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="321.88,-15.5 331.88,-12 321.88,-8.5 321.88,-15.5"/>
+</g>
+<!-- interface~fraggle_regime_colliders -->
+<g id="interface~~fraggle_io_log_regime~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_regime_colliders</title>
+<g id="a_interface~~fraggle_io_log_regime~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#a7506f" stroke="#a7506f" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders -->
+<g id="interface~~fraggle_io_log_regime~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-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 fraggle_io_log_regime(colliders, frag)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_regime.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-colliders~4"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-frag~3"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td></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/fraggle_io_log_start.html b/docs/interface/fraggle_io_log_start.html
new file mode 100644
index 000000000..152792baf
--- /dev/null
+++ b/docs/interface/fraggle_io_log_start.html
@@ -0,0 +1,420 @@
+
+<!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>fraggle_io_log_start &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>fraggle_io_log_start
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_io_log_start</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~~fraggle_io_log_start~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_io_log_startCallsGraph" width="258pt" height="32pt"
+ viewBox="0.00 0.00 258.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_io_log_start~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_io_log_start~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 254,-28 254,4 -4,4"/>
+<!-- interface~fraggle_io_log_start -->
+<g id="interface~~fraggle_io_log_start~~CallsGraph_node1" class="node">
+<title>interface~fraggle_io_log_start</title>
+<polygon fill="none" stroke="black" points="107,-24 0,-24 0,0 107,0 107,-24"/>
+<text text-anchor="middle" x="53.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_start</text>
+</g>
+<!-- proc~fraggle_io_log_start -->
+<g id="interface~~fraggle_io_log_start~~CallsGraph_node2" class="node">
+<title>proc~fraggle_io_log_start</title>
+<g id="a_interface~~fraggle_io_log_start~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_io_log_start.html" xlink:title="fraggle_io_log_start">
+<polygon fill="#d9534f" stroke="#d9534f" points="250,-24 143,-24 143,0 250,0 250,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_start&#45;&gt;proc~fraggle_io_log_start -->
+<g id="interface~~fraggle_io_log_start~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_start&#45;&gt;proc~fraggle_io_log_start</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M107,-12C115.44,-12 124.26,-12 132.9,-12"/>
+<polygon fill="#000000" stroke="#000000" points="132.95,-15.5 142.95,-12 132.95,-8.5 132.95,-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 fraggle_io_log_start(param)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_start.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-param~55"></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>
+  
+</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/fraggle_placeholder_accel.html b/docs/interface/fraggle_placeholder_accel.html
new file mode 100644
index 000000000..8af1d3480
--- /dev/null
+++ b/docs/interface/fraggle_placeholder_accel.html
@@ -0,0 +1,483 @@
+
+<!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>fraggle_placeholder_accel &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>fraggle_placeholder_accel
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_placeholder_accel</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~~fraggle_placeholder_accel~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_placeholder_accelCallsGraph" width="320pt" height="32pt"
+ viewBox="0.00 0.00 320.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_placeholder_accel~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_placeholder_accel~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 316,-28 316,4 -4,4"/>
+<!-- interface~fraggle_placeholder_accel -->
+<g id="interface~~fraggle_placeholder_accel~~CallsGraph_node1" class="node">
+<title>interface~fraggle_placeholder_accel</title>
+<polygon fill="none" stroke="black" points="138,-24 0,-24 0,0 138,0 138,-24"/>
+<text text-anchor="middle" x="69" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder_accel</text>
+</g>
+<!-- proc~fraggle_placeholder_accel -->
+<g id="interface~~fraggle_placeholder_accel~~CallsGraph_node2" class="node">
+<title>proc~fraggle_placeholder_accel</title>
+<g id="a_interface~~fraggle_placeholder_accel~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_placeholder_accel.html" xlink:title="fraggle_placeholder_accel">
+<polygon fill="#d9534f" stroke="#d9534f" points="312,-24 174,-24 174,0 312,0 312,-24"/>
+<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_accel</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_placeholder_accel&#45;&gt;proc~fraggle_placeholder_accel -->
+<g id="interface~~fraggle_placeholder_accel~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_placeholder_accel&#45;&gt;proc~fraggle_placeholder_accel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.47,-12C146.73,-12 155.22,-12 163.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="163.76,-15.5 173.76,-12 163.76,-8.5 163.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>
+     
+     
+    
+    <br>
+    
+      <h2>
+public module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_accel.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~78"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~34"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~56"></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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~30"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lbeg~15"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    <h3>Description</h3>
+    <p>The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</p>
+    
+    <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/fraggle_placeholder_kick.html b/docs/interface/fraggle_placeholder_kick.html
new file mode 100644
index 000000000..55d921f34
--- /dev/null
+++ b/docs/interface/fraggle_placeholder_kick.html
@@ -0,0 +1,495 @@
+
+<!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>fraggle_placeholder_kick &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>fraggle_placeholder_kick
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_placeholder_kick</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~~fraggle_placeholder_kick~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_placeholder_kickCallsGraph" width="306pt" height="32pt"
+ viewBox="0.00 0.00 306.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_placeholder_kick~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_placeholder_kick~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 302,-28 302,4 -4,4"/>
+<!-- interface~fraggle_placeholder_kick -->
+<g id="interface~~fraggle_placeholder_kick~~CallsGraph_node1" class="node">
+<title>interface~fraggle_placeholder_kick</title>
+<polygon fill="none" stroke="black" points="131,-24 0,-24 0,0 131,0 131,-24"/>
+<text text-anchor="middle" x="65.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder_kick</text>
+</g>
+<!-- proc~fraggle_placeholder_kick -->
+<g id="interface~~fraggle_placeholder_kick~~CallsGraph_node2" class="node">
+<title>proc~fraggle_placeholder_kick</title>
+<g id="a_interface~~fraggle_placeholder_kick~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_placeholder_kick.html" xlink:title="fraggle_placeholder_kick">
+<polygon fill="#d9534f" stroke="#d9534f" points="298,-24 167,-24 167,0 298,0 298,-24"/>
+<text text-anchor="middle" x="232.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_kick</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_placeholder_kick&#45;&gt;proc~fraggle_placeholder_kick -->
+<g id="interface~~fraggle_placeholder_kick~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_placeholder_kick&#45;&gt;proc~fraggle_placeholder_kick</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.24,-12C139.58,-12 148.18,-12 156.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="156.95,-15.5 166.95,-12 156.95,-8.5 156.95,-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 fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_kick.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~79"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~35"></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><p>Swiftest nbody system objec</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~31"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~41"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lbeg~16"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </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/fraggle_placeholder_step.html b/docs/interface/fraggle_placeholder_step.html
new file mode 100644
index 000000000..d19aa69a2
--- /dev/null
+++ b/docs/interface/fraggle_placeholder_step.html
@@ -0,0 +1,480 @@
+
+<!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>fraggle_placeholder_step &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>fraggle_placeholder_step
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_placeholder_step</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~~fraggle_placeholder_step~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_placeholder_stepCallsGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_placeholder_step~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_placeholder_step~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<!-- interface~fraggle_placeholder_step -->
+<g id="interface~~fraggle_placeholder_step~~CallsGraph_node1" class="node">
+<title>interface~fraggle_placeholder_step</title>
+<polygon fill="none" stroke="black" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder_step</text>
+</g>
+<!-- proc~fraggle_placeholder_step -->
+<g id="interface~~fraggle_placeholder_step~~CallsGraph_node2" class="node">
+<title>proc~fraggle_placeholder_step</title>
+<g id="a_interface~~fraggle_placeholder_step~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_placeholder_step.html" xlink:title="fraggle_placeholder_step">
+<polygon fill="#d9534f" stroke="#d9534f" points="302,-24 169,-24 169,0 302,0 302,-24"/>
+<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_step</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_placeholder_step&#45;&gt;proc~fraggle_placeholder_step -->
+<g id="interface~~fraggle_placeholder_step~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_placeholder_step&#45;&gt;proc~fraggle_placeholder_step</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-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 fraggle_placeholder_step(self, system, param, t, dt)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_step.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~80"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Helio massive body particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~36"></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><p>Swiftest nboody system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~58"></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" id="variable-t~32"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~42"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsiz</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/fraggle_regime_colliders.html b/docs/interface/fraggle_regime_colliders.html
new file mode 100644
index 000000000..d731d6a50
--- /dev/null
+++ b/docs/interface/fraggle_regime_colliders.html
@@ -0,0 +1,495 @@
+
+<!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>fraggle_regime_colliders &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>fraggle_regime_colliders
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_regime_colliders</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~~fraggle_regime_colliders~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_regime_collidersCallsGraph" width="614pt" height="32pt"
+ viewBox="0.00 0.00 614.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_regime_colliders~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_regime_colliders~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 610,-28 610,4 -4,4"/>
+<!-- interface~fraggle_regime_colliders -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_node1" class="node">
+<title>interface~fraggle_regime_colliders</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_regime_colliders</text>
+</g>
+<!-- proc~fraggle_regime_colliders -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_node2" class="node">
+<title>proc~fraggle_regime_colliders</title>
+<g id="a_interface~~fraggle_regime_colliders~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-15.5"/>
+</g>
+<!-- interface~fraggle_io_log_regime -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_node3" class="node">
+<title>interface~fraggle_io_log_regime</title>
+<g id="a_interface~~fraggle_regime_colliders~~CallsGraph_node3"><a xlink:href=".././interface/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#a7506f" stroke="#a7506f" points="451,-24 332,-24 332,0 451,0 451,-24"/>
+<text text-anchor="middle" x="391.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" d="M296.01,-12C304.44,-12 313.11,-12 321.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="321.88,-15.5 331.88,-12 321.88,-8.5 321.88,-15.5"/>
+</g>
+<!-- proc~fraggle_io_log_regime -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_node4" class="node">
+<title>proc~fraggle_io_log_regime</title>
+<g id="a_interface~~fraggle_regime_colliders~~CallsGraph_node4"><a xlink:href=".././proc/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#d9534f" stroke="#d9534f" points="606,-24 487,-24 487,0 606,0 606,-24"/>
+<text text-anchor="middle" x="546.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime -->
+<g id="interface~~fraggle_regime_colliders~~CallsGraph_edge3" class="edge">
+<title>interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.22,-12C459.54,-12 468.17,-12 476.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="476.94,-15.5 486.94,-12 476.94,-8.5 476.94,-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 fraggle_regime_colliders(self, frag, system, param)
+    
+    
+   
+   <a href='../proc/fraggle_regime_colliders.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~81"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle colliders object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-frag~4"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~37"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~59"></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 Swiftest 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/fraggle_set_budgets_fragments.html b/docs/interface/fraggle_set_budgets_fragments.html
new file mode 100644
index 000000000..de06fbacd
--- /dev/null
+++ b/docs/interface/fraggle_set_budgets_fragments.html
@@ -0,0 +1,435 @@
+
+<!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>fraggle_set_budgets_fragments &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>fraggle_set_budgets_fragments
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_set_budgets_fragments</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~~fraggle_set_budgets_fragments~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_set_budgets_fragmentsCallsGraph" width="372pt" height="32pt"
+ viewBox="0.00 0.00 372.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_set_budgets_fragments~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_set_budgets_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 368,-28 368,4 -4,4"/>
+<!-- interface~fraggle_set_budgets_fragments -->
+<g id="interface~~fraggle_set_budgets_fragments~~CallsGraph_node1" class="node">
+<title>interface~fraggle_set_budgets_fragments</title>
+<polygon fill="none" stroke="black" points="164,-24 0,-24 0,0 164,0 164,-24"/>
+<text text-anchor="middle" x="82" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_budgets_fragments</text>
+</g>
+<!-- proc~fraggle_set_budgets_fragments -->
+<g id="interface~~fraggle_set_budgets_fragments~~CallsGraph_node2" class="node">
+<title>proc~fraggle_set_budgets_fragments</title>
+<g id="a_interface~~fraggle_set_budgets_fragments~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_set_budgets_fragments.html" xlink:title="fraggle_set_budgets_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-24 200,-24 200,0 364,0 364,-24"/>
+<text text-anchor="middle" x="282" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_budgets_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_budgets_fragments&#45;&gt;proc~fraggle_set_budgets_fragments -->
+<g id="interface~~fraggle_set_budgets_fragments~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_set_budgets_fragments&#45;&gt;proc~fraggle_set_budgets_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.11,-12C172.46,-12 180.99,-12 189.44,-12"/>
+<polygon fill="#000000" stroke="#000000" points="189.7,-15.5 199.7,-12 189.7,-8.5 189.7,-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 fraggle_set_budgets_fragments(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_budgets_fragments.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~82"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~5"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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/fraggle_set_coordinate_system.html b/docs/interface/fraggle_set_coordinate_system.html
new file mode 100644
index 000000000..cb5562fc2
--- /dev/null
+++ b/docs/interface/fraggle_set_coordinate_system.html
@@ -0,0 +1,435 @@
+
+<!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>fraggle_set_coordinate_system &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>fraggle_set_coordinate_system
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_set_coordinate_system</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~~fraggle_set_coordinate_system~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_set_coordinate_systemCallsGraph" width="368pt" height="32pt"
+ viewBox="0.00 0.00 368.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_set_coordinate_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_set_coordinate_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 364,-28 364,4 -4,4"/>
+<!-- interface~fraggle_set_coordinate_system -->
+<g id="interface~~fraggle_set_coordinate_system~~CallsGraph_node1" class="node">
+<title>interface~fraggle_set_coordinate_system</title>
+<polygon fill="none" stroke="black" points="162,-24 0,-24 0,0 162,0 162,-24"/>
+<text text-anchor="middle" x="81" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_coordinate_system</text>
+</g>
+<!-- proc~fraggle_set_coordinate_system -->
+<g id="interface~~fraggle_set_coordinate_system~~CallsGraph_node2" class="node">
+<title>proc~fraggle_set_coordinate_system</title>
+<g id="a_interface~~fraggle_set_coordinate_system~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_set_coordinate_system.html" xlink:title="fraggle_set_coordinate_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="360,-24 198,-24 198,0 360,0 360,-24"/>
+<text text-anchor="middle" x="279" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_coordinate_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_coordinate_system&#45;&gt;proc~fraggle_set_coordinate_system -->
+<g id="interface~~fraggle_set_coordinate_system~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_set_coordinate_system&#45;&gt;proc~fraggle_set_coordinate_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162,-12C170.52,-12 179.23,-12 187.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="187.93,-15.5 197.93,-12 187.93,-8.5 187.93,-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 fraggle_set_coordinate_system(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_coordinate_system.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~83"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~6"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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/fraggle_set_mass_dist_fragments.html b/docs/interface/fraggle_set_mass_dist_fragments.html
new file mode 100644
index 000000000..a306552b0
--- /dev/null
+++ b/docs/interface/fraggle_set_mass_dist_fragments.html
@@ -0,0 +1,450 @@
+
+<!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>fraggle_set_mass_dist_fragments &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>fraggle_set_mass_dist_fragments
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_set_mass_dist_fragments</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~~fraggle_set_mass_dist_fragments~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_set_mass_dist_fragmentsCallsGraph" width="392pt" height="32pt"
+ viewBox="0.00 0.00 392.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_set_mass_dist_fragments~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_set_mass_dist_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 388,-28 388,4 -4,4"/>
+<!-- interface~fraggle_set_mass_dist_fragments -->
+<g id="interface~~fraggle_set_mass_dist_fragments~~CallsGraph_node1" class="node">
+<title>interface~fraggle_set_mass_dist_fragments</title>
+<polygon fill="none" stroke="black" points="174,-24 0,-24 0,0 174,0 174,-24"/>
+<text text-anchor="middle" x="87" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_mass_dist_fragments</text>
+</g>
+<!-- proc~fraggle_set_mass_dist_fragments -->
+<g id="interface~~fraggle_set_mass_dist_fragments~~CallsGraph_node2" class="node">
+<title>proc~fraggle_set_mass_dist_fragments</title>
+<g id="a_interface~~fraggle_set_mass_dist_fragments~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_set_mass_dist_fragments.html" xlink:title="fraggle_set_mass_dist_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="384,-24 210,-24 210,0 384,0 384,-24"/>
+<text text-anchor="middle" x="297" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_mass_dist_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_mass_dist_fragments&#45;&gt;proc~fraggle_set_mass_dist_fragments -->
+<g id="interface~~fraggle_set_mass_dist_fragments~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_set_mass_dist_fragments&#45;&gt;proc~fraggle_set_mass_dist_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.1,-12C182.62,-12 191.3,-12 199.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="199.96,-15.5 209.96,-12 199.96,-8.5 199.96,-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 fraggle_set_mass_dist_fragments(self, colliders, param)
+    
+    
+   
+   <a href='../proc/fraggle_set_mass_dist_fragments.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~84"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~7"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~60"></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 Swiftest 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/fraggle_set_natural_scale_factors.html b/docs/interface/fraggle_set_natural_scale_factors.html
new file mode 100644
index 000000000..8a5f37b9e
--- /dev/null
+++ b/docs/interface/fraggle_set_natural_scale_factors.html
@@ -0,0 +1,435 @@
+
+<!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>fraggle_set_natural_scale_factors &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>fraggle_set_natural_scale_factors
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_set_natural_scale_factors</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~~fraggle_set_natural_scale_factors~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_set_natural_scale_factorsCallsGraph" width="392pt" height="32pt"
+ viewBox="0.00 0.00 392.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_set_natural_scale_factors~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_set_natural_scale_factors~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 388,-28 388,4 -4,4"/>
+<!-- interface~fraggle_set_natural_scale_factors -->
+<g id="interface~~fraggle_set_natural_scale_factors~~CallsGraph_node1" class="node">
+<title>interface~fraggle_set_natural_scale_factors</title>
+<polygon fill="none" stroke="black" points="174,-24 0,-24 0,0 174,0 174,-24"/>
+<text text-anchor="middle" x="87" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_natural_scale_factors</text>
+</g>
+<!-- proc~fraggle_set_natural_scale_factors -->
+<g id="interface~~fraggle_set_natural_scale_factors~~CallsGraph_node2" class="node">
+<title>proc~fraggle_set_natural_scale_factors</title>
+<g id="a_interface~~fraggle_set_natural_scale_factors~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_set_natural_scale_factors.html" xlink:title="fraggle_set_natural_scale_factors">
+<polygon fill="#d9534f" stroke="#d9534f" points="384,-24 210,-24 210,0 384,0 384,-24"/>
+<text text-anchor="middle" x="297" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_natural_scale_factors</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_natural_scale_factors&#45;&gt;proc~fraggle_set_natural_scale_factors -->
+<g id="interface~~fraggle_set_natural_scale_factors~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_set_natural_scale_factors&#45;&gt;proc~fraggle_set_natural_scale_factors</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.1,-12C182.62,-12 191.3,-12 199.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="199.96,-15.5 209.96,-12 199.96,-8.5 199.96,-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 fraggle_set_natural_scale_factors(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_natural_scale_factors.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~85"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~8"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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/fraggle_set_original_scale_factors.html b/docs/interface/fraggle_set_original_scale_factors.html
new file mode 100644
index 000000000..80ab38871
--- /dev/null
+++ b/docs/interface/fraggle_set_original_scale_factors.html
@@ -0,0 +1,435 @@
+
+<!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>fraggle_set_original_scale_factors &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>fraggle_set_original_scale_factors
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_set_original_scale_factors</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~~fraggle_set_original_scale_factors~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_set_original_scale_factorsCallsGraph" 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">
+<g id="interface~~fraggle_set_original_scale_factors~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_set_original_scale_factors~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 390,-28 390,4 -4,4"/>
+<!-- interface~fraggle_set_original_scale_factors -->
+<g id="interface~~fraggle_set_original_scale_factors~~CallsGraph_node1" class="node">
+<title>interface~fraggle_set_original_scale_factors</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">fraggle_set_original_scale_factors</text>
+</g>
+<!-- proc~fraggle_set_original_scale_factors -->
+<g id="interface~~fraggle_set_original_scale_factors~~CallsGraph_node2" class="node">
+<title>proc~fraggle_set_original_scale_factors</title>
+<g id="a_interface~~fraggle_set_original_scale_factors~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_set_original_scale_factors.html" xlink:title="fraggle_set_original_scale_factors">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-24 211,-24 211,0 386,0 386,-24"/>
+<text text-anchor="middle" x="298.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_original_scale_factors</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_original_scale_factors&#45;&gt;proc~fraggle_set_original_scale_factors -->
+<g id="interface~~fraggle_set_original_scale_factors~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_set_original_scale_factors&#45;&gt;proc~fraggle_set_original_scale_factors</title>
+<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>
+</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 fraggle_set_original_scale_factors(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_original_scale_factors.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~86"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~9"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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/fraggle_setup_fragments.html b/docs/interface/fraggle_setup_fragments.html
new file mode 100644
index 000000000..17fa61bc3
--- /dev/null
+++ b/docs/interface/fraggle_setup_fragments.html
@@ -0,0 +1,462 @@
+
+<!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>fraggle_setup_fragments &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>fraggle_setup_fragments
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_setup_fragments</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~~fraggle_setup_fragments~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_setup_fragmentsCallsGraph" width="398pt" height="32pt"
+ viewBox="0.00 0.00 398.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_setup_fragments~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_setup_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 394,-28 394,4 -4,4"/>
+<!-- interface~fraggle_setup_fragments -->
+<g id="interface~~fraggle_setup_fragments~~CallsGraph_node1" class="node">
+<title>interface~fraggle_setup_fragments</title>
+<polygon fill="none" stroke="black" points="132,-24 0,-24 0,0 132,0 132,-24"/>
+<text text-anchor="middle" x="66" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_setup_fragments</text>
+</g>
+<!-- proc~fraggle_setup_fragments -->
+<g id="interface~~fraggle_setup_fragments~~CallsGraph_node2" class="node">
+<title>proc~fraggle_setup_fragments</title>
+<g id="a_interface~~fraggle_setup_fragments~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_setup_fragments.html" xlink:title="fraggle_setup_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="300,-24 168,-24 168,0 300,0 300,-24"/>
+<text text-anchor="middle" x="234" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_setup_fragments&#45;&gt;proc~fraggle_setup_fragments -->
+<g id="interface~~fraggle_setup_fragments~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_setup_fragments&#45;&gt;proc~fraggle_setup_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-12C140.46,-12 149.04,-12 157.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.78,-15.5 167.78,-12 157.78,-8.5 157.78,-15.5"/>
+</g>
+<!-- setup_pl -->
+<g id="interface~~fraggle_setup_fragments~~CallsGraph_node3" class="node">
+<title>setup_pl</title>
+<polygon fill="#777777" stroke="#777777" points="390,-24 336,-24 336,0 390,0 390,-24"/>
+<text text-anchor="middle" x="363" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+</g>
+<!-- proc~fraggle_setup_fragments&#45;&gt;setup_pl -->
+<g id="interface~~fraggle_setup_fragments~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_setup_fragments&#45;&gt;setup_pl</title>
+<path fill="none" stroke="#000000" d="M300.36,-12C309.15,-12 317.89,-12 325.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-15.5 335.98,-12 325.98,-8.5 325.98,-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 fraggle_setup_fragments(self, n, param)
+    
+    
+   
+   <a href='../proc/fraggle_setup_fragments.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~87"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~6"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of fragments</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~61"></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 swiftest 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/fraggle_setup_reset_fragments.html b/docs/interface/fraggle_setup_reset_fragments.html
new file mode 100644
index 000000000..14444c0cd
--- /dev/null
+++ b/docs/interface/fraggle_setup_reset_fragments.html
@@ -0,0 +1,420 @@
+
+<!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>fraggle_setup_reset_fragments &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>fraggle_setup_reset_fragments
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_setup_reset_fragments</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~~fraggle_setup_reset_fragments~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_setup_reset_fragmentsCallsGraph" width="368pt" height="32pt"
+ viewBox="0.00 0.00 368.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_setup_reset_fragments~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_setup_reset_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 364,-28 364,4 -4,4"/>
+<!-- interface~fraggle_setup_reset_fragments -->
+<g id="interface~~fraggle_setup_reset_fragments~~CallsGraph_node1" class="node">
+<title>interface~fraggle_setup_reset_fragments</title>
+<polygon fill="none" stroke="black" points="162,-24 0,-24 0,0 162,0 162,-24"/>
+<text text-anchor="middle" x="81" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_setup_reset_fragments</text>
+</g>
+<!-- proc~fraggle_setup_reset_fragments -->
+<g id="interface~~fraggle_setup_reset_fragments~~CallsGraph_node2" class="node">
+<title>proc~fraggle_setup_reset_fragments</title>
+<g id="a_interface~~fraggle_setup_reset_fragments~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_setup_reset_fragments.html" xlink:title="fraggle_setup_reset_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="360,-24 198,-24 198,0 360,0 360,-24"/>
+<text text-anchor="middle" x="279" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_reset_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_setup_reset_fragments&#45;&gt;proc~fraggle_setup_reset_fragments -->
+<g id="interface~~fraggle_setup_reset_fragments~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_setup_reset_fragments&#45;&gt;proc~fraggle_setup_reset_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162,-12C170.52,-12 179.23,-12 187.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="187.93,-15.5 197.93,-12 187.93,-8.5 187.93,-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 fraggle_setup_reset_fragments(self)
+    
+    
+   
+   <a href='../proc/fraggle_setup_reset_fragments.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~88"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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/fraggle_util_add_fragments_to_system.html b/docs/interface/fraggle_util_add_fragments_to_system.html
new file mode 100644
index 000000000..5870f2921
--- /dev/null
+++ b/docs/interface/fraggle_util_add_fragments_to_system.html
@@ -0,0 +1,581 @@
+
+<!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>fraggle_util_add_fragments_to_system &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>fraggle_util_add_fragments_to_system
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_util_add_fragments_to_system</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~~fraggle_util_add_fragments_to_system~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_add_fragments_to_systemCallsGraph" width="440pt" height="32pt"
+ viewBox="0.00 0.00 440.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_add_fragments_to_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_add_fragments_to_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 436,-28 436,4 -4,4"/>
+<!-- interface~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_add_fragments_to_system</title>
+<polygon fill="none" stroke="black" points="198,-24 0,-24 0,0 198,0 198,-24"/>
+<text text-anchor="middle" x="99" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_add_fragments_to_system</text>
+</g>
+<!-- proc~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_add_fragments_to_system</title>
+<g id="a_interface~~fraggle_util_add_fragments_to_system~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="432,-24 234,-24 234,0 432,0 432,-24"/>
+<text text-anchor="middle" x="333" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M198.05,-12C206.59,-12 215.25,-12 223.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="223.93,-15.5 233.93,-12 223.93,-8.5 223.93,-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">
+  <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~~fraggle_util_add_fragments_to_system~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_util_add_fragments_to_systemCalledByGraph" width="641pt" height="32pt"
+ viewBox="0.00 0.00 641.00 31.65" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_add_fragments_to_system~~CalledByGraph" class="graph" transform="scale(0.99 0.99) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_add_fragments_to_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 644,-28 644,4 -4,4"/>
+<!-- interface~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_util_add_fragments_to_system</title>
+<polygon fill="none" stroke="black" points="640,-24 442,-24 442,0 640,0 640,-24"/>
+<text text-anchor="middle" x="541" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_add_fragments_to_system</text>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<g id="a_interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#d9534f" stroke="#d9534f" points="406,-24 221,-24 221,0 406,0 406,-24"/>
+<text text-anchor="middle" x="313.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" d="M406.22,-12C414.54,-12 423.02,-12 431.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="431.75,-15.5 441.75,-12 431.75,-8.5 431.75,-15.5"/>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<g id="a_interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#a7506f" stroke="#a7506f" points="185,-24 0,-24 0,0 185,0 185,-24"/>
+<text text-anchor="middle" x="92.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_add_fragments_to_system~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.11,-12C193.62,-12 202.27,-12 210.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="210.91,-15.5 220.91,-12 210.91,-8.5 210.91,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacefraggle_util_add_fragments_to_systemCalledByGraph = svgPanZoom('#interfacefraggle_util_add_fragments_to_systemCalledByGraph', {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 fraggle_util_add_fragments_to_system(frag, colliders, system, param)
+    
+    
+   
+   <a href='../proc/fraggle_util_add_fragments_to_system.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-frag~5"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~10"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~38"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current swiftest 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/helio_coord_vb2vh_tp.html b/docs/interface/fraggle_util_ang_mtm.html
similarity index 81%
rename from docs/interface/helio_coord_vb2vh_tp.html
rename to docs/interface/fraggle_util_ang_mtm.html
index 6a05d5348..f399836d5 100644
--- a/docs/interface/helio_coord_vb2vh_tp.html
+++ b/docs/interface/fraggle_util_ang_mtm.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>helio_coord_vb2vh_tp &ndash; swiftest</title>
+    <title>fraggle_util_ang_mtm &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>helio_coord_vb2vh_tp
+    <h1>fraggle_util_ang_mtm
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>helio_coord_vb2vh_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">157 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_classes.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/helio_classes.f90.html'>helio_classes.f90</a></li>
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
     
-     <li><a href='../module/helio_classes.html'>helio_classes</a></li>
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
     
   
-     <li class="active">helio_coord_vb2vh_tp</li>
+     <li class="active">fraggle_util_ang_mtm</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~~helio_coord_vb2vh_tp~~CallsGraph Pages: 1 -->
-<svg id="interfacehelio_coord_vb2vh_tpCallsGraph" 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~~helio_coord_vb2vh_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~helio_coord_vb2vh_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- interface~helio_coord_vb2vh_tp -->
-<g id="interface~~helio_coord_vb2vh_tp~~CallsGraph_node1" class="node">
-<title>interface~helio_coord_vb2vh_tp</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">helio_coord_vb2vh_tp</text>
+<!-- Title: interface~~fraggle_util_ang_mtm~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_ang_mtmCallsGraph" width="276pt" height="32pt"
+ viewBox="0.00 0.00 276.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_ang_mtm~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_ang_mtm~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 272,-28 272,4 -4,4"/>
+<!-- interface~fraggle_util_ang_mtm -->
+<g id="interface~~fraggle_util_ang_mtm~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_ang_mtm</title>
+<polygon fill="none" stroke="black" points="116,-24 0,-24 0,0 116,0 116,-24"/>
+<text text-anchor="middle" x="58" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_ang_mtm</text>
 </g>
-<!-- proc~helio_coord_vb2vh_tp -->
-<g id="interface~~helio_coord_vb2vh_tp~~CallsGraph_node2" class="node">
-<title>proc~helio_coord_vb2vh_tp</title>
-<g id="a_interface~~helio_coord_vb2vh_tp~~CallsGraph_node2"><a xlink:href=".././proc/helio_coord_vb2vh_tp.html" xlink:title="helio_coord_vb2vh_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="272,-24 154,-24 154,0 272,0 272,-24"/>
-<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_tp</text>
+<!-- proc~fraggle_util_ang_mtm -->
+<g id="interface~~fraggle_util_ang_mtm~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_ang_mtm</title>
+<g id="a_interface~~fraggle_util_ang_mtm~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_ang_mtm.html" xlink:title="fraggle_util_ang_mtm">
+<polygon fill="#d9534f" stroke="#d9534f" points="268,-24 152,-24 152,0 268,0 268,-24"/>
+<text text-anchor="middle" x="210" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_ang_mtm</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vb2vh_tp&#45;&gt;proc~helio_coord_vb2vh_tp -->
-<g id="interface~~helio_coord_vb2vh_tp~~CallsGraph_edge1" 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="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"/>
+<!-- interface~fraggle_util_ang_mtm&#45;&gt;proc~fraggle_util_ang_mtm -->
+<g id="interface~~fraggle_util_ang_mtm~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_ang_mtm&#45;&gt;proc~fraggle_util_ang_mtm</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.14,-12C124.38,-12 132.92,-12 141.34,-12"/>
+<polygon fill="#000000" stroke="#000000" points="141.53,-15.5 151.53,-12 141.53,-8.5 141.53,-15.5"/>
 </g>
 </g>
 </svg>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine helio_coord_vb2vh_tp(self, vbcb)
+public module subroutine fraggle_util_ang_mtm(self)
     
     
    
-   <a href='../proc/helio_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/fraggle_util_ang_mtm.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -346,27 +346,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~31"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~89"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vbcb"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
   
 </tr>
 
diff --git a/docs/interface/fraggle_util_construct_temporary_system.html b/docs/interface/fraggle_util_construct_temporary_system.html
new file mode 100644
index 000000000..6d4ec33bb
--- /dev/null
+++ b/docs/interface/fraggle_util_construct_temporary_system.html
@@ -0,0 +1,608 @@
+
+<!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>fraggle_util_construct_temporary_system &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>fraggle_util_construct_temporary_system
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_util_construct_temporary_system</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~~fraggle_util_construct_temporary_system~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_construct_temporary_systemCallsGraph" width="626pt" height="32pt"
+ viewBox="0.00 0.00 626.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_construct_temporary_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_construct_temporary_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 622,-28 622,4 -4,4"/>
+<!-- interface~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_construct_temporary_system</title>
+<polygon fill="none" stroke="black" points="209,-24 0,-24 0,0 209,0 209,-24"/>
+<text text-anchor="middle" x="104.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_construct_temporary_system</text>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_construct_temporary_system</title>
+<g id="a_interface~~fraggle_util_construct_temporary_system~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="454,-24 245,-24 245,0 454,0 454,-24"/>
+<text text-anchor="middle" x="349.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M209.26,-12C217.6,-12 226.06,-12 234.48,-12"/>
+<polygon fill="#000000" stroke="#000000" points="234.7,-15.5 244.7,-12 234.7,-8.5 234.7,-15.5"/>
+</g>
+<!-- setup_construct_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CallsGraph_node3" class="node">
+<title>setup_construct_system</title>
+<polygon fill="#777777" stroke="#777777" points="618,-24 490,-24 490,0 618,0 618,-24"/>
+<text text-anchor="middle" x="554" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system</title>
+<path fill="none" stroke="#000000" d="M454.12,-12C462.77,-12 471.39,-12 479.74,-12"/>
+<polygon fill="#000000" stroke="#000000" points="479.77,-15.5 489.77,-12 479.77,-8.5 479.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">
+  <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~~fraggle_util_construct_temporary_system~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_util_construct_temporary_systemCalledByGraph" width="641pt" height="31pt"
+ viewBox="0.00 0.00 641.00 31.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_construct_temporary_system~~CalledByGraph" class="graph" transform="scale(0.97 0.97) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_construct_temporary_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 655,-28 655,4 -4,4"/>
+<!-- interface~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_util_construct_temporary_system</title>
+<polygon fill="none" stroke="black" points="651,-24 442,-24 442,0 651,0 651,-24"/>
+<text text-anchor="middle" x="546.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_construct_temporary_system</text>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<g id="a_interface~~fraggle_util_construct_temporary_system~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#d9534f" stroke="#d9534f" points="406,-24 221,-24 221,0 406,0 406,-24"/>
+<text text-anchor="middle" x="313.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" d="M406.13,-12C414.55,-12 423.15,-12 431.73,-12"/>
+<polygon fill="#000000" stroke="#000000" points="431.79,-15.5 441.79,-12 431.79,-8.5 431.79,-15.5"/>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<g id="a_interface~~fraggle_util_construct_temporary_system~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#a7506f" stroke="#a7506f" points="185,-24 0,-24 0,0 185,0 185,-24"/>
+<text text-anchor="middle" x="92.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_construct_temporary_system~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.11,-12C193.62,-12 202.27,-12 210.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="210.91,-15.5 220.91,-12 210.91,-8.5 210.91,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacefraggle_util_construct_temporary_systemCalledByGraph = svgPanZoom('#interfacefraggle_util_construct_temporary_systemCalledByGraph', {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 fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam)
+    
+    
+   
+   <a href='../proc/fraggle_util_construct_temporary_system.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-frag~6"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~39"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Original swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tmpsys"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpsys</strong></td><td><p>Output temporary swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tmpparam"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpparam</strong></td><td><p>Output temporary configuration run 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/fraggle_util_get_energy_momentum.html b/docs/interface/fraggle_util_get_energy_momentum.html
new file mode 100644
index 000000000..39893e242
--- /dev/null
+++ b/docs/interface/fraggle_util_get_energy_momentum.html
@@ -0,0 +1,564 @@
+
+<!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>fraggle_util_get_energy_momentum &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>fraggle_util_get_energy_momentum
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_util_get_energy_momentum</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~~fraggle_util_get_energy_momentum~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_get_energy_momentumCallsGraph" width="641pt" height="70pt"
+ viewBox="0.00 0.00 641.00 69.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph" class="graph" transform="scale(0.6 0.6) rotate(0) translate(4 112)">
+<title>interface~~fraggle_util_get_energy_momentum~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1064,-112 1064,4 -4,4"/>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<polygon fill="none" stroke="black" points="185,-66 0,-66 0,-42 185,-42 185,-66"/>
+<text text-anchor="middle" x="92.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_get_energy_momentum</text>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<g id="a_interface~~fraggle_util_get_energy_momentum~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#d9534f" stroke="#d9534f" points="406,-66 221,-66 221,-42 406,-42 406,-66"/>
+<text text-anchor="middle" x="313.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.11,-54C193.62,-54 202.27,-54 210.86,-54"/>
+<polygon fill="#000000" stroke="#000000" points="210.91,-57.5 220.91,-54 210.91,-50.5 210.91,-57.5"/>
+</g>
+<!-- interface~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node3" class="node">
+<title>interface~fraggle_util_construct_temporary_system</title>
+<g id="a_interface~~fraggle_util_get_energy_momentum~~CallsGraph_node3"><a xlink:href=".././interface/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="651,-108 442,-108 442,-84 651,-84 651,-108"/>
+<text text-anchor="middle" x="546.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge4" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" d="M380.7,-66.04C408.36,-71.07 440.68,-76.94 469.33,-82.15"/>
+<polygon fill="#000000" stroke="#000000" points="468.83,-85.62 479.3,-83.96 470.08,-78.73 468.83,-85.62"/>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node4" class="node">
+<title>interface~fraggle_util_add_fragments_to_system</title>
+<g id="a_interface~~fraggle_util_get_energy_momentum~~CallsGraph_node4"><a xlink:href=".././interface/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="645.5,-66 447.5,-66 447.5,-42 645.5,-42 645.5,-66"/>
+<text text-anchor="middle" x="546.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" d="M406.13,-54C416.24,-54 426.6,-54 436.89,-54"/>
+<polygon fill="#000000" stroke="#000000" points="437.15,-57.5 447.15,-54 437.15,-50.5 437.15,-57.5"/>
+</g>
+<!-- util_exit -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node5" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="573.5,-24 519.5,-24 519.5,0 573.5,0 573.5,-24"/>
+<text text-anchor="middle" x="546.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;util_exit -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge3" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M380.7,-41.96C422.5,-34.36 474.91,-24.83 509.26,-18.59"/>
+<polygon fill="#000000" stroke="#000000" points="510.1,-21.99 519.31,-16.76 508.84,-15.11 510.1,-21.99"/>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node7" class="node">
+<title>proc~fraggle_util_construct_temporary_system</title>
+<g id="a_interface~~fraggle_util_get_energy_momentum~~CallsGraph_node7"><a xlink:href=".././proc/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="896,-108 687,-108 687,-84 896,-84 896,-108"/>
+<text text-anchor="middle" x="791.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge5" class="edge">
+<title>interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M651.26,-96C659.6,-96 668.06,-96 676.48,-96"/>
+<polygon fill="#000000" stroke="#000000" points="676.7,-99.5 686.7,-96 676.7,-92.5 676.7,-99.5"/>
+</g>
+<!-- proc~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node6" class="node">
+<title>proc~fraggle_util_add_fragments_to_system</title>
+<g id="a_interface~~fraggle_util_get_energy_momentum~~CallsGraph_node6"><a xlink:href=".././proc/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="890.5,-66 692.5,-66 692.5,-42 890.5,-42 890.5,-66"/>
+<text text-anchor="middle" x="791.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge6" class="edge">
+<title>interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.64,-54C657.68,-54 670.04,-54 682.21,-54"/>
+<polygon fill="#000000" stroke="#000000" points="682.39,-57.5 692.39,-54 682.39,-50.5 682.39,-57.5"/>
+</g>
+<!-- setup_construct_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_node8" class="node">
+<title>setup_construct_system</title>
+<polygon fill="#777777" stroke="#777777" points="1060,-108 932,-108 932,-84 1060,-84 1060,-108"/>
+<text text-anchor="middle" x="996" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system -->
+<g id="interface~~fraggle_util_get_energy_momentum~~CallsGraph_edge7" class="edge">
+<title>proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system</title>
+<path fill="none" stroke="#000000" d="M896.12,-96C904.77,-96 913.39,-96 921.74,-96"/>
+<polygon fill="#000000" stroke="#000000" points="921.77,-99.5 931.77,-96 921.77,-92.5 921.77,-99.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacefraggle_util_get_energy_momentumCallsGraph = svgPanZoom('#interfacefraggle_util_get_energy_momentumCallsGraph', {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 fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore)
+    
+    
+   
+   <a href='../proc/fraggle_util_get_energy_momentum.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~11"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~40"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lbefore"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbefore</strong></td><td><p>Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa</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/fraggle_util_restructure.html b/docs/interface/fraggle_util_restructure.html
new file mode 100644
index 000000000..c32ea3ff8
--- /dev/null
+++ b/docs/interface/fraggle_util_restructure.html
@@ -0,0 +1,480 @@
+
+<!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>fraggle_util_restructure &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>fraggle_util_restructure
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_util_restructure</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~~fraggle_util_restructure~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_restructureCallsGraph" width="290pt" height="32pt"
+ viewBox="0.00 0.00 290.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_restructure~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_restructure~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 286,-28 286,4 -4,4"/>
+<!-- interface~fraggle_util_restructure -->
+<g id="interface~~fraggle_util_restructure~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_restructure</title>
+<polygon fill="none" stroke="black" points="123,-24 0,-24 0,0 123,0 123,-24"/>
+<text text-anchor="middle" x="61.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_restructure</text>
+</g>
+<!-- proc~fraggle_util_restructure -->
+<g id="interface~~fraggle_util_restructure~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_restructure</title>
+<g id="a_interface~~fraggle_util_restructure~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_restructure.html" xlink:title="fraggle_util_restructure">
+<polygon fill="#d9534f" stroke="#d9534f" points="282,-24 159,-24 159,0 282,0 282,-24"/>
+<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_restructure</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_restructure&#45;&gt;proc~fraggle_util_restructure -->
+<g id="interface~~fraggle_util_restructure~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_restructure&#45;&gt;proc~fraggle_util_restructure</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.2,-12C131.64,-12 140.36,-12 148.95,-12"/>
+<polygon fill="#000000" stroke="#000000" points="148.96,-15.5 158.96,-12 148.96,-8.5 148.96,-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 fraggle_util_restructure(self, colliders, try, f_spin, r_max_start)
+    
+    
+   
+   <a href='../proc/fraggle_util_restructure.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~91"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~12"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-try"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>try</strong></td><td><p>The current number of times Fraggle has tried to find a solution</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-f_spin"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>f_spin</strong></td><td><p>Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-r_max_start"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>r_max_start</strong></td><td><p>The maximum radial distance that the position calculation starts with. This increases after a failed attempt</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/fraggle_util_shift_vector_to_origin.html b/docs/interface/fraggle_util_shift_vector_to_origin.html
new file mode 100644
index 000000000..ad89b9f63
--- /dev/null
+++ b/docs/interface/fraggle_util_shift_vector_to_origin.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>fraggle_util_shift_vector_to_origin &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>fraggle_util_shift_vector_to_origin
+   <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.2% of total for procedures.">157 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_util_shift_vector_to_origin</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~~fraggle_util_shift_vector_to_origin~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_shift_vector_to_originCallsGraph" width="390pt" height="32pt"
+ viewBox="0.00 0.00 390.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_shift_vector_to_origin~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 386,-28 386,4 -4,4"/>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<polygon fill="none" stroke="black" points="173,-24 0,-24 0,0 173,0 173,-24"/>
+<text text-anchor="middle" x="86.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_shift_vector_to_origin</text>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="382,-24 209,-24 209,0 382,0 382,-24"/>
+<text text-anchor="middle" x="295.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.19,-12C181.66,-12 190.3,-12 198.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="198.88,-15.5 208.88,-12 198.88,-8.5 198.88,-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">
+  <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~~fraggle_util_shift_vector_to_origin~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_util_shift_vector_to_originCalledByGraph" width="641pt" height="69pt"
+ viewBox="0.00 0.00 641.00 68.74" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph" class="graph" transform="scale(0.6 0.6) rotate(0) translate(4 110)">
+<title>interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-110 1059,-110 1059,4 -4,4"/>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<polygon fill="none" stroke="black" points="1055,-85 882,-85 882,-61 1055,-61 1055,-85"/>
+<text text-anchor="middle" x="968.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_shift_vector_to_origin</text>
+</g>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_pos_vec.html" xlink:title="fraggle_generate_pos_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="680,-106 540,-106 540,-82 680,-82 680,-106"/>
+<text text-anchor="middle" x="610" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_pos_vec</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M680.16,-89.93C734.62,-86.72 811.14,-82.21 871.53,-78.65"/>
+<polygon fill="#000000" stroke="#000000" points="872.07,-82.13 881.84,-78.05 871.65,-75.14 872.07,-82.13"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="846,-65 716,-65 716,-41 846,-41 846,-65"/>
+<text text-anchor="middle" x="781" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M846.1,-59.91C854.38,-60.8 863,-61.73 871.65,-62.67"/>
+<polygon fill="#000000" stroke="#000000" points="871.49,-66.17 881.81,-63.76 872.24,-59.21 871.49,-66.17"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node4" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node4"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-66 184,-66 184,-42 332,-42 332,-66"/>
+<text text-anchor="middle" x="258" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge3" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec</title>
+<path fill="none" stroke="#000000" d="M315.09,-66.05C332.03,-69.35 350.72,-72.66 368,-75 421.76,-82.28 482.68,-87.05 529.82,-89.99"/>
+<polygon fill="#000000" stroke="#000000" points="529.77,-93.49 539.96,-90.61 530.19,-86.51 529.77,-93.49"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node6" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node6"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="504,-66 368,-66 368,-42 504,-42 504,-66"/>
+<text text-anchor="middle" x="436" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge8" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-54C340.5,-54 349.08,-54 357.53,-54"/>
+<polygon fill="#000000" stroke="#000000" points="357.75,-57.5 367.75,-54 357.75,-50.5 357.75,-57.5"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node7" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node7"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="503.5,-24 368.5,-24 368.5,0 503.5,0 503.5,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge9" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M309.43,-41.96C329.78,-37.11 353.42,-31.47 374.67,-26.4"/>
+<polygon fill="#000000" stroke="#000000" points="375.64,-29.76 384.56,-24.04 374.02,-22.95 375.64,-29.76"/>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node5" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node5"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="675,-64 545,-64 545,-40 675,-40 675,-64"/>
+<text text-anchor="middle" x="610" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge4" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.37,-52.38C685.31,-52.44 695.64,-52.5 705.77,-52.56"/>
+<polygon fill="#000000" stroke="#000000" points="705.78,-56.06 715.81,-52.62 705.83,-49.06 705.78,-56.06"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge6" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M504.49,-53.22C514.33,-53.1 524.52,-52.98 534.5,-52.87"/>
+<polygon fill="#000000" stroke="#000000" points="534.84,-56.36 544.8,-52.75 534.76,-49.36 534.84,-56.36"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge7" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M488.61,-24C507.06,-28.29 528.04,-33.17 547.27,-37.64"/>
+<polygon fill="#000000" stroke="#000000" points="546.6,-41.08 557.13,-39.94 548.19,-34.26 546.6,-41.08"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node8" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node8"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-66 0,-66 0,-42 148,-42 148,-66"/>
+<text text-anchor="middle" x="74" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge5" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-54C156.6,-54 165.16,-54 173.64,-54"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-57.5 183.91,-54 173.91,-50.5 173.91,-57.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacefraggle_util_shift_vector_to_originCalledByGraph = svgPanZoom('#interfacefraggle_util_shift_vector_to_originCalledByGraph', {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 fraggle_util_shift_vector_to_origin(m_frag, vec_frag)
+    
+    
+   
+   <a href='../proc/fraggle_util_shift_vector_to_origin.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-m_frag~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>m_frag</strong></td><td><p>Fragment masses</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vec_frag"></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vec_frag</strong></td><td><p>Fragment positions or velocities in the center of mass frame</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_fragmentation_casesupercatastrophic.html b/docs/interface/fraggle_util_vmag_to_vb.html
similarity index 53%
rename from docs/interface/symba_fragmentation_casesupercatastrophic.html
rename to docs/interface/fraggle_util_vmag_to_vb.html
index 9fba76a4d..18afd4710 100644
--- a/docs/interface/symba_fragmentation_casesupercatastrophic.html
+++ b/docs/interface/fraggle_util_vmag_to_vb.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_fragmentation_casesupercatastrophic &ndash; swiftest</title>
+    <title>fraggle_util_vmag_to_vb &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_fragmentation_casesupercatastrophic
+    <h1>fraggle_util_vmag_to_vb
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <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.">264 statements</a>
+    title=" 0.2% of total for procedures.">157 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/fraggle_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/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
     
-     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
     
   
-     <li class="active">symba_fragmentation_casesupercatastrophic</li>
+     <li class="active">fraggle_util_vmag_to_vb</li>
   </ol>
 </div>
 </div>
@@ -219,63 +219,66 @@ <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_fragmentation_casesupercatastrophic~~CallsGraph Pages: 1 -->
-<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,-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,-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,-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>
+<!-- Title: interface~~fraggle_util_vmag_to_vb~~CallsGraph Pages: 1 -->
+<svg id="interfacefraggle_util_vmag_to_vbCallsGraph" width="641pt" height="28pt"
+ viewBox="0.00 0.00 641.00 28.41" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph" class="graph" transform="scale(0.89 0.89) rotate(0) translate(4 28)">
+<title>interface~~fraggle_util_vmag_to_vb~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 718,-28 718,4 -4,4"/>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_node1" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_vmag_to_vb</text>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_node2" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</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,-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="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.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>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_edge1" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-15.5"/>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_node3" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CallsGraph_node3"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="505,-24 332,-24 332,0 505,0 505,-24"/>
+<text text-anchor="middle" x="418.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M296.1,-12C304.38,-12 313,-12 321.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="321.81,-15.5 331.81,-12 321.81,-8.5 321.81,-15.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_node4" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CallsGraph_node4"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="714,-24 541,-24 541,0 714,0 714,-24"/>
+<text text-anchor="middle" x="627.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</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"/>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CallsGraph_edge3" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M505.19,-12C513.66,-12 522.3,-12 530.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="530.88,-15.5 540.88,-12 530.88,-8.5 530.88,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfacesymba_fragmentation_casesupercatastrophicCallsGraph = svgPanZoom('#interfacesymba_fragmentation_casesupercatastrophicCallsGraph', {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><script>var paninterfacefraggle_util_vmag_to_vbCallsGraph = svgPanZoom('#interfacefraggle_util_vmag_to_vbCallsGraph', {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"
@@ -348,51 +351,87 @@ <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~~symba_fragmentation_casesupercatastrophic~~CalledByGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casesupercatastrophicCalledByGraph" width="641pt" height="29pt"
- viewBox="0.00 0.00 641.00 28.53" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph" class="graph" transform="scale(0.89 0.89) rotate(0) translate(4 28)">
-<title>interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 715,-28 715,4 -4,4"/>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node1" class="node">
-<title>interface~symba_fragmentation_casesupercatastrophic</title>
-<polygon fill="none" stroke="black" points="711,-24 482,-24 482,0 711,0 711,-24"/>
-<text text-anchor="middle" x="596.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casesupercatastrophic</text>
-</g>
-<!-- proc~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node2" class="node">
-<title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
-<text text-anchor="middle" x="343.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- Title: interface~~fraggle_util_vmag_to_vb~~CalledByGraph Pages: 1 -->
+<svg id="interfacefraggle_util_vmag_to_vbCalledByGraph" width="641pt" height="70pt"
+ viewBox="0.00 0.00 641.00 69.96" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph" class="graph" transform="scale(0.95 0.95) rotate(0) translate(4 70)">
+<title>interface~~fraggle_util_vmag_to_vb~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 674,-70 674,4 -4,4"/>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node1" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<polygon fill="none" stroke="black" points="670,-45 540,-45 540,-21 670,-21 670,-45"/>
+<text text-anchor="middle" x="605" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_vmag_to_vb</text>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="504,-66 368,-66 368,-42 504,-42 504,-66"/>
+<text text-anchor="middle" x="436" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" d="M446.23,-12C454.63,-12 463.18,-12 471.71,-12"/>
-<polygon fill="#000000" stroke="#000000" points="471.72,-15.5 481.72,-12 471.72,-8.5 471.72,-15.5"/>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M504.44,-45.52C512.75,-44.48 521.27,-43.4 529.67,-42.35"/>
+<polygon fill="#000000" stroke="#000000" points="530.34,-45.79 539.82,-41.07 529.46,-38.85 530.34,-45.79"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="503.5,-24 368.5,-24 368.5,0 503.5,0 503.5,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M503.96,-20.42C512.44,-21.49 521.16,-22.58 529.74,-23.66"/>
+<polygon fill="#000000" stroke="#000000" points="529.38,-27.14 539.74,-24.92 530.25,-20.2 529.38,-27.14"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node4" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node4"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-45 184,-45 184,-21 332,-21 332,-45"/>
+<text text-anchor="middle" x="258" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node3" class="node">
-<title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
-<text text-anchor="middle" x="102.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_edge3" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-41.72C340.6,-42.74 349.27,-43.77 357.81,-44.79"/>
+<polygon fill="#000000" stroke="#000000" points="357.4,-48.27 367.75,-45.98 358.23,-41.32 357.4,-48.27"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_edge4" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-24.28C340.73,-23.25 349.55,-22.2 358.22,-21.16"/>
+<polygon fill="#000000" stroke="#000000" points="358.79,-24.62 368.31,-19.96 357.96,-17.67 358.79,-24.62"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node5" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_interface~~fraggle_util_vmag_to_vb~~CalledByGraph_node5"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-45 0,-45 0,-21 148,-21 148,-45"/>
+<text text-anchor="middle" x="74" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_edge2" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
-<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="interface~~fraggle_util_vmag_to_vb~~CalledByGraph_edge5" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-33C156.6,-33 165.16,-33 173.64,-33"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-36.5 183.91,-33 173.91,-29.5 173.91,-36.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfacesymba_fragmentation_casesupercatastrophicCalledByGraph = svgPanZoom('#interfacesymba_fragmentation_casesupercatastrophicCalledByGraph', {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><script>var paninterfacefraggle_util_vmag_to_vbCalledByGraph = svgPanZoom('#interfacefraggle_util_vmag_to_vbCalledByGraph', {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"
@@ -458,11 +497,11 @@ <h3 class="panel-title">Called by</h3>
     <br>
     
       <h2>
-public module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+public module function fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb)
     
     
    
-   <a href='../proc/symba_fragmentation_casesupercatastrophic.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/fraggle_util_vmag_to_vb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -489,42 +528,12 @@ <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>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~56"></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~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-v_r_mag~2"></span>real(kind=DP),</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>
+  <td><strong>v_r_mag</strong></td><td><p>Unknown radial component of fragment velocity vector</p></td>
   
 </tr>
 
@@ -534,42 +543,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~16"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~8"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-v_r_unit~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~7"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>v_r_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</p></td>
   
 </tr>
 
@@ -579,12 +558,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-radius~7"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-v_t_mag~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>v_t_mag</strong></td><td><p>Tangential component of velocity vector set previously by angular momentum constraint</p></td>
   
 </tr>
 
@@ -594,27 +573,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-l_spin~5"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~7"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-v_t_unit~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>v_t_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</p></td>
   
 </tr>
 
@@ -624,12 +588,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mass_res~3"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <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>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td><strong>m_frag</strong></td><td><p>Fragment masses</p></td>
   
 </tr>
 
@@ -639,12 +603,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~3"></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-vcom"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vcom</strong></td><td><p>Barycentric velocity of collisional system center of mass</p></td>
   
 </tr>
 
@@ -658,9 +622,9 @@ <h3>Arguments</h3>
     
     
     
-      <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>
+      <h3>Return Value <span class="anchor" id="variable-vb~4"></span><small>real(kind=DP),
+  dimension(:,:),allocatable</small></h3>
+    
     
     
     <br>
diff --git a/docs/interface/gr_kick_getaccb_ns_body.html b/docs/interface/gr_kick_getaccb_ns_body.html
index 06c8572ee..b943e832f 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 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_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~153"></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~59"></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>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~85"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~102"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/gr_kick_getacch.html b/docs/interface/gr_kick_getacch.html
index 52588594a..3e15a5081 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~19"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~13"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~11"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~12"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/gr_p4_pos_kick.html b/docs/interface/gr_p4_pos_kick.html
index 71ab321d4..17ff85bda 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~86"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~103"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~20"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~14"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~11"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~5"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~53"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~58"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/gr_pseudovel2vel.html b/docs/interface/gr_pseudovel2vel.html
index 30286789e..cc406fa28 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~87"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~104"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -381,7 +381,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>xh</strong></td><td><p>Heliocentric position vector </p></td>
+  <td><strong>xh</strong></td><td><p>Swiftestcentric position vector </p></td>
   
 </tr>
 
@@ -411,7 +411,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>vh</strong></td><td><p>Heliocentric velocity vector </p></td>
+  <td><strong>vh</strong></td><td><p>Swiftestcentric velocity vector </p></td>
   
 </tr>
 
diff --git a/docs/interface/gr_pv2vh_body.html b/docs/interface/gr_pv2vh_body.html
index 8886e01db..d2328f1cc 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 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_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~154"></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-param~88"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~105"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/gr_vel2pseudovel.html b/docs/interface/gr_vel2pseudovel.html
index 13f7e3a8e..adb202bf4 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~89"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~106"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -381,7 +381,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>xh</strong></td><td><p>Heliocentric position vector </p></td>
+  <td><strong>xh</strong></td><td><p>Swiftestcentric position vector </p></td>
   
 </tr>
 
@@ -396,7 +396,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>vh</strong></td><td><p>Heliocentric velocity vector </p></td>
+  <td><strong>vh</strong></td><td><p>Swiftestcentric velocity vector </p></td>
   
 </tr>
 
diff --git a/docs/interface/gr_vh2pv_body.html b/docs/interface/gr_vh2pv_body.html
index 2e67d70df..2de6a27c6 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,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~155"></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-param~90"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~107"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_body.html b/docs/interface/helio_drift_body.html
index 67d62178e..06232633c 100644
--- a/docs/interface/helio_drift_body.html
+++ b/docs/interface/helio_drift_body.html
@@ -136,7 +136,7 @@ <h1>helio_drift_body
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -375,25 +375,10 @@ <h3 class="panel-title">Called by</h3>
 <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_pl -->
-<g id="interface~~helio_drift_body~~CalledByGraph_node4" class="node">
-<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_pl&#45;&gt;proc~helio_drift_pl -->
-<g id="interface~~helio_drift_body~~CalledByGraph_edge3" 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,-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_tp -->
-<g id="interface~~helio_drift_body~~CalledByGraph_node5" class="node">
+<g id="interface~~helio_drift_body~~CalledByGraph_node4" class="node">
 <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">
+<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,-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>
@@ -405,6 +390,21 @@ <h3 class="panel-title">Called by</h3>
 <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>
+<!-- interface~helio_drift_pl -->
+<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,-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_pl&#45;&gt;proc~helio_drift_pl -->
+<g id="interface~~helio_drift_body~~CalledByGraph_edge3" 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,-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>
 </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">
@@ -534,7 +534,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~23"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -549,7 +549,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~20"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~21"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_linear_pl.html b/docs/interface/helio_drift_linear_pl.html
index ae952baa3..3023ea9d7 100644
--- a/docs/interface/helio_drift_linear_pl.html
+++ b/docs/interface/helio_drift_linear_pl.html
@@ -136,7 +136,7 @@ <h1>helio_drift_linear_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~7"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~6"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~23"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~24"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_linear_tp.html b/docs/interface/helio_drift_linear_tp.html
index 5be400c52..7578eb253 100644
--- a/docs/interface/helio_drift_linear_tp.html
+++ b/docs/interface/helio_drift_linear_tp.html
@@ -136,7 +136,7 @@ <h1>helio_drift_linear_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~8"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~7"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~24"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~25"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_pl.html b/docs/interface/helio_drift_pl.html
index ccda17634..4154f23b8 100644
--- a/docs/interface/helio_drift_pl.html
+++ b/docs/interface/helio_drift_pl.html
@@ -136,7 +136,7 @@ <h1>helio_drift_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~24"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -433,7 +433,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~21"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~22"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_tp.html b/docs/interface/helio_drift_tp.html
index 5144c3fb6..ff4a5d0ea 100644
--- a/docs/interface/helio_drift_tp.html
+++ b/docs/interface/helio_drift_tp.html
@@ -136,7 +136,7 @@ <h1>helio_drift_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -418,7 +418,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~25"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -433,7 +433,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~22"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~23"></span>real(kind=DP),</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 4da7ab5b0..1ac136d7d 100644
--- a/docs/interface/helio_gr_kick_getacch_pl.html
+++ b/docs/interface/helio_gr_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>helio_gr_kick_getacch_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~26"></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 b374d8c1c..184b33686 100644
--- a/docs/interface/helio_gr_kick_getacch_tp.html
+++ b/docs/interface/helio_gr_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>helio_gr_kick_getacch_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~27"></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 cdf915ef5..41a956a4a 100644
--- a/docs/interface/helio_gr_p4_pl.html
+++ b/docs/interface/helio_gr_p4_pl.html
@@ -136,7 +136,7 @@ <h1>helio_gr_p4_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~28"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~25"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~26"></span>real(kind=DP),</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 45dbe33d4..dc1ea32f3 100644
--- a/docs/interface/helio_gr_p4_tp.html
+++ b/docs/interface/helio_gr_p4_tp.html
@@ -136,7 +136,7 @@ <h1>helio_gr_p4_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -373,7 +373,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~29"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~26"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~27"></span>real(kind=DP),</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 a2cbf4afb..28f51f916 100644
--- a/docs/interface/helio_kick_getacch_pl.html
+++ b/docs/interface/helio_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>helio_kick_getacch_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~30"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~15"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~16"></span>real(kind=DP),</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 85eccf417..90f55eda5 100644
--- a/docs/interface/helio_kick_getacch_tp.html
+++ b/docs/interface/helio_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>helio_kick_getacch_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~31"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~16"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~17"></span>real(kind=DP),</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 6cfe71efd..1968baa26 100644
--- a/docs/interface/helio_kick_vb_pl.html
+++ b/docs/interface/helio_kick_vb_pl.html
@@ -136,7 +136,7 @@ <h1>helio_kick_vb_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~32"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~17"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~18"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~27"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~28"></span>real(kind=DP),</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 1db4287d8..702438309 100644
--- a/docs/interface/helio_kick_vb_tp.html
+++ b/docs/interface/helio_kick_vb_tp.html
@@ -136,7 +136,7 @@ <h1>helio_kick_vb_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -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~33"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~18"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~19"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~28"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~29"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_setup_initialize_system.html b/docs/interface/helio_setup_initialize_system.html
new file mode 100644
index 000000000..beaa1a2a5
--- /dev/null
+++ b/docs/interface/helio_setup_initialize_system.html
@@ -0,0 +1,447 @@
+
+<!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>helio_setup_initialize_system &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>helio_setup_initialize_system
+   <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.2% of total for procedures.">136 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/helio_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/helio_classes.f90.html'>helio_classes.f90</a></li>
+    
+     <li><a href='../module/helio_classes.html'>helio_classes</a></li>
+    
+  
+     <li class="active">helio_setup_initialize_system</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~~helio_setup_initialize_system~~CallsGraph Pages: 1 -->
+<svg id="interfacehelio_setup_initialize_systemCallsGraph" width="533pt" height="32pt"
+ viewBox="0.00 0.00 533.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~helio_setup_initialize_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~helio_setup_initialize_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 529,-28 529,4 -4,4"/>
+<!-- interface~helio_setup_initialize_system -->
+<g id="interface~~helio_setup_initialize_system~~CallsGraph_node1" class="node">
+<title>interface~helio_setup_initialize_system</title>
+<polygon fill="none" stroke="black" points="151,-24 0,-24 0,0 151,0 151,-24"/>
+<text text-anchor="middle" x="75.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_setup_initialize_system</text>
+</g>
+<!-- proc~helio_setup_initialize_system -->
+<g id="interface~~helio_setup_initialize_system~~CallsGraph_node2" class="node">
+<title>proc~helio_setup_initialize_system</title>
+<g id="a_interface~~helio_setup_initialize_system~~CallsGraph_node2"><a xlink:href=".././proc/helio_setup_initialize_system.html" xlink:title="helio_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="338,-24 187,-24 187,0 338,0 338,-24"/>
+<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_setup_initialize_system&#45;&gt;proc~helio_setup_initialize_system -->
+<g id="interface~~helio_setup_initialize_system~~CallsGraph_edge1" class="edge">
+<title>interface~helio_setup_initialize_system&#45;&gt;proc~helio_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.21,-12C159.55,-12 168.1,-12 176.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="176.81,-15.5 186.81,-12 176.81,-8.5 176.81,-15.5"/>
+</g>
+<!-- whm_setup_initialize_system -->
+<g id="interface~~helio_setup_initialize_system~~CallsGraph_node3" class="node">
+<title>whm_setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="525,-24 374,-24 374,0 525,0 525,-24"/>
+<text text-anchor="middle" x="449.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+</g>
+<!-- proc~helio_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<g id="interface~~helio_setup_initialize_system~~CallsGraph_edge2" class="edge">
+<title>proc~helio_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M338.21,-12C346.55,-12 355.1,-12 363.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="363.81,-15.5 373.81,-12 363.81,-8.5 363.81,-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 helio_setup_initialize_system(self, param)
+    
+    
+   
+   <a href='../proc/helio_setup_initialize_system.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~47"></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Helio nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~34"></span>class(swiftest_parameters),</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/helio_step_pl.html b/docs/interface/helio_step_pl.html
index be4fdfa84..2c8da5075 100644
--- a/docs/interface/helio_step_pl.html
+++ b/docs/interface/helio_step_pl.html
@@ -136,7 +136,7 @@ <h1>helio_step_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~47"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~48"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,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~35"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~19"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~20"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~29"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~30"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_step_system.html b/docs/interface/helio_step_system.html
index 15b05c16c..18571e463 100644
--- a/docs/interface/helio_step_system.html
+++ b/docs/interface/helio_step_system.html
@@ -136,7 +136,7 @@ <h1>helio_step_system
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~48"></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~49"></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,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~36"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~20"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~21"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~30"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~31"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_step_tp.html b/docs/interface/helio_step_tp.html
index 289cbafe5..66eb0c1d7 100644
--- a/docs/interface/helio_step_tp.html
+++ b/docs/interface/helio_step_tp.html
@@ -136,7 +136,7 @@ <h1>helio_step_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">136 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~49"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~50"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,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~37"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~21"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~22"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~31"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~32"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/io_conservation_report.html b/docs/interface/io_conservation_report.html
index 83bb82b13..2671e431a 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,79 +220,61 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~io_conservation_report~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_conservation_reportCallsGraph" width="384pt" height="158pt"
- viewBox="0.00 0.00 384.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_conservation_report~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<svg id="interfaceio_conservation_reportCallsGraph" 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="interface~~io_conservation_report~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~io_conservation_report~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 380,-154 380,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 464,-28 464,4 -4,4"/>
 <!-- interface~io_conservation_report -->
 <g id="interface~~io_conservation_report~~CallsGraph_node1" class="node">
 <title>interface~io_conservation_report</title>
-<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>
+<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">io_conservation_report</text>
 </g>
 <!-- proc~io_conservation_report -->
 <g id="interface~~io_conservation_report~~CallsGraph_node2" class="node">
 <title>proc~io_conservation_report</title>
 <g id="a_interface~~io_conservation_report~~CallsGraph_node2"><a xlink:href=".././proc/io_conservation_report.html" xlink:title="io_conservation_report">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-87 158,-87 158,-63 280,-63 280,-87"/>
-<text text-anchor="middle" x="219" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</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">io_conservation_report</text>
 </a>
 </g>
 </g>
 <!-- interface~io_conservation_report&#45;&gt;proc~io_conservation_report -->
 <g id="interface~~io_conservation_report~~CallsGraph_edge1" class="edge">
 <title>interface~io_conservation_report&#45;&gt;proc~io_conservation_report</title>
-<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"/>
+<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>
-<!-- lescape -->
+<!-- interface~util_exit -->
 <g id="interface~~io_conservation_report~~CallsGraph_node3" class="node">
-<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>
+<title>interface~util_exit</title>
+<g id="a_interface~~io_conservation_report~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<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_exit</text>
+</a>
+</g>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lescape -->
+<!-- proc~io_conservation_report&#45;&gt;interface~util_exit -->
 <g id="interface~~io_conservation_report~~CallsGraph_edge2" class="edge">
-<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"/>
+<title>proc~io_conservation_report&#45;&gt;interface~util_exit</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>
-<!-- lspin_orig -->
+<!-- proc~util_exit -->
 <g id="interface~~io_conservation_report~~CallsGraph_node4" class="node">
-<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;lspin_orig -->
-<g id="interface~~io_conservation_report~~CallsGraph_edge3" class="edge">
-<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">
-<title>lorbit_orig</title>
-<polygon fill="#777777" stroke="#777777" points="376,-66 316,-66 316,-42 376,-42 376,-66"/>
-<text text-anchor="middle" x="346" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lorbit_orig</text>
-</g>
-<!-- proc~io_conservation_report&#45;&gt;lorbit_orig -->
-<g id="interface~~io_conservation_report~~CallsGraph_edge4" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lorbit_orig</title>
-<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"/>
+<title>proc~util_exit</title>
+<g id="a_interface~~io_conservation_report~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<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_exit</text>
+</a>
 </g>
-<!-- ltot_orig -->
-<g id="interface~~io_conservation_report~~CallsGraph_node6" class="node">
-<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">ltot_orig</text>
 </g>
-<!-- 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;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"/>
+<!-- interface~util_exit&#45;&gt;proc~util_exit -->
+<g id="interface~~io_conservation_report~~CallsGraph_edge3" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</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>
 </g>
 </svg>
@@ -394,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~127"></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>
   
@@ -409,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~91"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~108"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_dump_base.html b/docs/interface/io_dump_base.html
new file mode 100644
index 000000000..abe7349bd
--- /dev/null
+++ b/docs/interface/io_dump_base.html
@@ -0,0 +1,537 @@
+
+<!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>io_dump_base &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>io_dump_base
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">io_dump_base</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~~io_dump_base~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_dump_baseCallsGraph" width="641pt" height="90pt"
+ viewBox="0.00 0.00 641.00 89.74" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_dump_base~~CallsGraph" class="graph" transform="scale(0.93 0.93) rotate(0) translate(4 92.04)">
+<title>interface~~io_dump_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-92.04 682,-92.04 682,4 -4,4"/>
+<!-- interface~io_dump_base -->
+<g id="interface~~io_dump_base~~CallsGraph_node1" class="node">
+<title>interface~io_dump_base</title>
+<polygon fill="none" stroke="black" points="83,-46.04 0,-46.04 0,-22.04 83,-22.04 83,-46.04"/>
+<text text-anchor="middle" x="41.5" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_base</text>
+</g>
+<!-- proc~io_dump_base -->
+<g id="interface~~io_dump_base~~CallsGraph_node2" class="node">
+<title>proc~io_dump_base</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node2"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-46.04 119,-46.04 119,-22.04 202,-22.04 202,-46.04"/>
+<text text-anchor="middle" x="160.5" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="interface~~io_dump_base~~CallsGraph_edge1" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M83.09,-34.04C91.35,-34.04 100.14,-34.04 108.7,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="108.98,-37.54 118.98,-34.04 108.98,-30.54 108.98,-37.54"/>
+</g>
+<!-- interface~io_write_frame_cb -->
+<g id="interface~~io_dump_base~~CallsGraph_node3" class="node">
+<title>interface~io_write_frame_cb</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node3"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="344,-88.04 244,-88.04 244,-64.04 344,-64.04 344,-88.04"/>
+<text text-anchor="middle" x="294" y="-73.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
+<g id="interface~~io_dump_base~~CallsGraph_edge2" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M199.18,-46.08C213.63,-50.69 230.29,-56.01 245.54,-60.88"/>
+<polygon fill="#000000" stroke="#000000" points="244.72,-64.3 255.31,-64 246.85,-57.63 244.72,-64.3"/>
+</g>
+<!-- interface~io_write_frame_body -->
+<g id="interface~~io_dump_base~~CallsGraph_node4" class="node">
+<title>interface~io_write_frame_body</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node4"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="350,-46.04 238,-46.04 238,-22.04 350,-22.04 350,-46.04"/>
+<text text-anchor="middle" x="294" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="interface~~io_dump_base~~CallsGraph_edge3" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M202.03,-34.04C210.16,-34.04 218.91,-34.04 227.64,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="227.85,-37.54 237.85,-34.04 227.85,-30.54 227.85,-37.54"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_dump_base~~CallsGraph_node5" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node5"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="588,-46.04 534,-46.04 534,-22.04 588,-22.04 588,-46.04"/>
+<text text-anchor="middle" x="561" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~util_exit -->
+<g id="interface~~io_dump_base~~CallsGraph_edge4" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M197.67,-21.98C210.28,-18.34 224.62,-14.84 238,-13.04 352.52,2.39 383.98,5.74 498,-13.04 506.7,-14.48 515.83,-16.97 524.32,-19.75"/>
+<polygon fill="#000000" stroke="#000000" points="523.34,-23.12 533.94,-23.1 525.64,-16.51 523.34,-23.12"/>
+</g>
+<!-- proc~io_write_frame_cb -->
+<g id="interface~~io_dump_base~~CallsGraph_node7" class="node">
+<title>proc~io_write_frame_cb</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node7"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="492,-88.04 392,-88.04 392,-64.04 492,-64.04 492,-88.04"/>
+<text text-anchor="middle" x="442" y="-73.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
+<g id="interface~~io_dump_base~~CallsGraph_edge5" 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="M344.02,-76.04C356.06,-76.04 369.08,-76.04 381.55,-76.04"/>
+<polygon fill="#000000" stroke="#000000" points="381.86,-79.54 391.86,-76.04 381.86,-72.54 381.86,-79.54"/>
+</g>
+<!-- proc~io_write_frame_body -->
+<g id="interface~~io_dump_base~~CallsGraph_node8" class="node">
+<title>proc~io_write_frame_body</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node8"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="498,-46.04 386,-46.04 386,-22.04 498,-22.04 498,-46.04"/>
+<text text-anchor="middle" x="442" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
+<g id="interface~~io_dump_base~~CallsGraph_edge6" 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="M350.2,-34.04C358.46,-34.04 367.05,-34.04 375.51,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="375.73,-37.54 385.73,-34.04 375.73,-30.54 375.73,-37.54"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_dump_base~~CallsGraph_node6" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_dump_base~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="678,-46.04 624,-46.04 624,-22.04 678,-22.04 678,-46.04"/>
+<text text-anchor="middle" x="651" y="-31.64" 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~~io_dump_base~~CallsGraph_edge7" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M588.4,-34.04C596.39,-34.04 605.31,-34.04 613.82,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="613.92,-37.54 623.92,-34.04 613.92,-30.54 613.92,-37.54"/>
+</g>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="interface~~io_dump_base~~CallsGraph_edge8" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M476.53,-64.01C491.48,-58.64 509.12,-52.31 524.32,-46.85"/>
+<polygon fill="#000000" stroke="#000000" points="525.67,-50.08 533.9,-43.41 523.31,-43.49 525.67,-50.08"/>
+</g>
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
+<g id="interface~~io_dump_base~~CallsGraph_edge9" class="edge">
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M498.07,-34.04C506.73,-34.04 515.48,-34.04 523.58,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="523.77,-37.54 533.77,-34.04 523.77,-30.54 523.77,-37.54"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfaceio_dump_baseCallsGraph = svgPanZoom('#interfaceio_dump_baseCallsGraph', {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 io_dump_base(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_base.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~160"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</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" 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>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/io_dump_param.html b/docs/interface/io_dump_param.html
index 3dd17dd6d..8128aec6d 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~128"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~157"></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_dump_particle_info.html
similarity index 75%
rename from docs/interface/io_read_body_in.html
rename to docs/interface/io_dump_particle_info.html
index fbbb7d1d0..b718a48b6 100644
--- a/docs/interface/io_read_body_in.html
+++ b/docs/interface/io_dump_particle_info.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>io_read_body_in &ndash; swiftest</title>
+    <title>io_dump_particle_info &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>io_read_body_in
+    <h1>io_dump_particle_info
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_read_body_in
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">io_read_body_in</li>
+     <li class="active">io_dump_particle_info</li>
   </ol>
 </div>
 </div>
@@ -219,62 +219,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: interface~~io_read_body_in~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_read_body_inCallsGraph" width="408pt" height="32pt"
- viewBox="0.00 0.00 408.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_read_body_in~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~io_read_body_in~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 404,-28 404,4 -4,4"/>
-<!-- interface~io_read_body_in -->
-<g id="interface~~io_read_body_in~~CallsGraph_node1" class="node">
-<title>interface~io_read_body_in</title>
-<polygon fill="none" stroke="black" points="92,-24 0,-24 0,0 92,0 92,-24"/>
-<text text-anchor="middle" x="46" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_body_in</text>
+<!-- Title: interface~~io_dump_particle_info~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_dump_particle_infoCallsGraph" width="460pt" height="32pt"
+ viewBox="0.00 0.00 460.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_dump_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_dump_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 456,-28 456,4 -4,4"/>
+<!-- interface~io_dump_particle_info -->
+<g id="interface~~io_dump_particle_info~~CallsGraph_node1" class="node">
+<title>interface~io_dump_particle_info</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">io_dump_particle_info</text>
 </g>
-<!-- proc~io_read_body_in -->
-<g id="interface~~io_read_body_in~~CallsGraph_node2" class="node">
-<title>proc~io_read_body_in</title>
-<g id="a_interface~~io_read_body_in~~CallsGraph_node2"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="220,-24 128,-24 128,0 220,0 220,-24"/>
-<text text-anchor="middle" x="174" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<!-- proc~io_dump_particle_info -->
+<g id="interface~~io_dump_particle_info~~CallsGraph_node2" class="node">
+<title>proc~io_dump_particle_info</title>
+<g id="a_interface~~io_dump_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="272,-24 154,-24 154,0 272,0 272,-24"/>
+<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
-<g id="interface~~io_read_body_in~~CallsGraph_edge1" 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="M92.13,-12C100.37,-12 109.04,-12 117.53,-12"/>
-<polygon fill="#000000" stroke="#000000" points="117.76,-15.5 127.76,-12 117.76,-8.5 117.76,-15.5"/>
+<!-- interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info -->
+<g id="interface~~io_dump_particle_info~~CallsGraph_edge1" class="edge">
+<title>interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info</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_exit -->
-<g id="interface~~io_read_body_in~~CallsGraph_node3" class="node">
+<g id="interface~~io_dump_particle_info~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~io_read_body_in~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="310,-24 256,-24 256,0 310,0 310,-24"/>
-<text text-anchor="middle" x="283" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_dump_particle_info~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
-<g id="interface~~io_read_body_in~~CallsGraph_edge2" class="edge">
-<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M220.07,-12C228.66,-12 237.55,-12 245.83,-12"/>
-<polygon fill="#000000" stroke="#000000" points="245.9,-15.5 255.9,-12 245.9,-8.5 245.9,-15.5"/>
+<!-- proc~io_dump_particle_info&#45;&gt;interface~util_exit -->
+<g id="interface~~io_dump_particle_info~~CallsGraph_edge2" class="edge">
+<title>proc~io_dump_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M272.24,-12C280.96,-12 289.73,-12 297.81,-12"/>
+<polygon fill="#000000" stroke="#000000" points="297.98,-15.5 307.98,-12 297.98,-8.5 297.98,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="interface~~io_read_body_in~~CallsGraph_node4" class="node">
+<g id="interface~~io_dump_particle_info~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_read_body_in~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="400,-24 346,-24 346,0 400,0 400,-24"/>
-<text text-anchor="middle" x="373" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_dump_particle_info~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" 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_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="interface~~io_read_body_in~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_dump_particle_info~~CallsGraph_edge3" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.4,-12C318.39,-12 327.31,-12 335.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="335.92,-15.5 345.92,-12 335.92,-8.5 335.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.4,-12C370.39,-12 379.31,-12 387.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="387.92,-15.5 397.92,-12 387.92,-8.5 387.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -345,11 +345,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_read_body_in(self, param)
+public module subroutine io_dump_particle_info(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -376,12 +376,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-self~159"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle info metadata object</p></td>
   
 </tr>
 
@@ -391,12 +391,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~94"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-iu~6"></span>integer(kind=I4B),</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>iu</strong></td><td><p>Open unformatted file unit number</p></td>
   
 </tr>
 
diff --git a/docs/interface/io_dump_particle_info_base.html b/docs/interface/io_dump_particle_info_base.html
new file mode 100644
index 000000000..a08f170f5
--- /dev/null
+++ b/docs/interface/io_dump_particle_info_base.html
@@ -0,0 +1,480 @@
+
+<!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>io_dump_particle_info_base &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>io_dump_particle_info_base
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">io_dump_particle_info_base</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~~io_dump_particle_info_base~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_dump_particle_info_baseCallsGraph" width="518pt" height="32pt"
+ viewBox="0.00 0.00 518.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_dump_particle_info_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_dump_particle_info_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 514,-28 514,4 -4,4"/>
+<!-- interface~io_dump_particle_info_base -->
+<g id="interface~~io_dump_particle_info_base~~CallsGraph_node1" class="node">
+<title>interface~io_dump_particle_info_base</title>
+<polygon fill="none" stroke="black" points="147,-24 0,-24 0,0 147,0 147,-24"/>
+<text text-anchor="middle" x="73.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_particle_info_base</text>
+</g>
+<!-- proc~io_dump_particle_info_base -->
+<g id="interface~~io_dump_particle_info_base~~CallsGraph_node2" class="node">
+<title>proc~io_dump_particle_info_base</title>
+<g id="a_interface~~io_dump_particle_info_base~~CallsGraph_node2"><a xlink:href=".././proc/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="330,-24 183,-24 183,0 330,0 330,-24"/>
+<text text-anchor="middle" x="256.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base -->
+<g id="interface~~io_dump_particle_info_base~~CallsGraph_edge1" class="edge">
+<title>interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.08,-12C155.56,-12 164.26,-12 172.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="172.91,-15.5 182.91,-12 172.91,-8.5 172.91,-15.5"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_dump_particle_info_base~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_dump_particle_info_base~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="420,-24 366,-24 366,0 420,0 420,-24"/>
+<text text-anchor="middle" x="393" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_particle_info_base&#45;&gt;interface~util_exit -->
+<g id="interface~~io_dump_particle_info_base~~CallsGraph_edge2" class="edge">
+<title>proc~io_dump_particle_info_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M330.26,-12C339.13,-12 347.86,-12 355.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="355.87,-15.5 365.87,-12 355.87,-8.5 355.87,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_dump_particle_info_base~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_dump_particle_info_base~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="510,-24 456,-24 456,0 510,0 510,-24"/>
+<text text-anchor="middle" x="483" y="-9.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~~io_dump_particle_info_base~~CallsGraph_edge3" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.4,-12C428.39,-12 437.31,-12 445.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="445.92,-15.5 455.92,-12 445.92,-8.5 445.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">
+    <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 io_dump_particle_info_base(self, param, idx)
+    
+    
+   
+   <a href='../proc/io_dump_particle_info_base.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~158"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~109"></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" id="variable-idx~4"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</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/io_dump_system.html b/docs/interface/io_dump_system.html
index a2d862c83..87d1ec21a 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -246,51 +246,51 @@ <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_tp_file -->
+<!-- dump_cb_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node3" class="node">
-<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>
+<title>dump_cb_file</title>
+<polygon fill="#777777" stroke="#777777" points="346,-150 270,-150 270,-126 346,-126 346,-150"/>
+<text text-anchor="middle" x="308" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
 <g id="interface~~io_dump_system~~CallsGraph_edge2" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
+<title>proc~io_dump_system&#45;&gt;dump_cb_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>
-<!-- dump_pl_file -->
+<!-- dump_param_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node4" class="node">
-<title>dump_pl_file</title>
-<polygon fill="#777777" stroke="#777777" points="344.5,-108 271.5,-108 271.5,-84 344.5,-84 344.5,-108"/>
-<text text-anchor="middle" x="308" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
+<title>dump_param_file</title>
+<polygon fill="#777777" stroke="#777777" points="356,-108 260,-108 260,-84 356,-84 356,-108"/>
+<text text-anchor="middle" x="308" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
 <g id="interface~~io_dump_system~~CallsGraph_edge3" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
-<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"/>
+<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<path fill="none" stroke="#000000" d="M224.21,-82.52C232.52,-83.88 241.28,-85.3 249.86,-86.7"/>
+<polygon fill="#000000" stroke="#000000" points="249.38,-90.17 259.81,-88.32 250.5,-83.26 249.38,-90.17"/>
 </g>
-<!-- dump_param_file -->
+<!-- dump_pl_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node5" class="node">
-<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>
+<title>dump_pl_file</title>
+<polygon fill="#777777" stroke="#777777" points="344.5,-66 271.5,-66 271.5,-42 344.5,-42 344.5,-66"/>
+<text text-anchor="middle" x="308" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
 <g id="interface~~io_dump_system~~CallsGraph_edge4" class="edge">
-<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"/>
+<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
+<path fill="none" stroke="#000000" d="M224.21,-67.48C236.17,-65.53 249.06,-63.43 261.01,-61.49"/>
+<polygon fill="#000000" stroke="#000000" points="261.92,-64.88 271.23,-59.82 260.8,-57.98 261.92,-64.88"/>
 </g>
-<!-- dump_cb_file -->
+<!-- dump_tp_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node6" class="node">
-<title>dump_cb_file</title>
-<polygon fill="#777777" stroke="#777777" points="346,-24 270,-24 270,0 346,0 346,-24"/>
-<text text-anchor="middle" x="308" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
+<title>dump_tp_file</title>
+<polygon fill="#777777" stroke="#777777" points="345,-24 271,-24 271,0 345,0 345,-24"/>
+<text text-anchor="middle" x="308" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
 <g id="interface~~io_dump_system~~CallsGraph_edge5" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_cb_file</title>
+<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
 <path fill="none" stroke="#000000" d="M200.81,-62.9C217.17,-54.33 239.81,-42.68 260,-33 263.16,-31.49 266.45,-29.94 269.76,-28.42"/>
 <polygon fill="#000000" stroke="#000000" points="271.4,-31.52 279.05,-24.19 268.5,-25.15 271.4,-31.52"/>
 </g>
@@ -394,7 +394,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~130"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~161"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -409,7 +409,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~93"></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(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_get_args.html b/docs/interface/io_get_args.html
index 2a9f1b3fc..b15a36e95 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -292,9 +292,9 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="205.35,-31.08 213.27,-24.04 202.69,-24.61 205.35,-31.08"/>
 </g>
 <!-- proc~io_toupper -->
-<g id="interface~~io_get_args~~CallsGraph_node6" class="node">
+<g id="interface~~io_get_args~~CallsGraph_node8" 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">
+<g id="a_interface~~io_get_args~~CallsGraph_node8"><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>
@@ -307,9 +307,9 @@ <h3 class="panel-title">Calls</h3>
 <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">
+<g id="interface~~io_get_args~~CallsGraph_node6" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_get_args~~CallsGraph_node7"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<g id="a_interface~~io_get_args~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
 <polygon fill="#d9534f" stroke="#d9534f" points="373.5,-66 319.5,-66 319.5,-42 373.5,-42 373.5,-66"/>
 <text text-anchor="middle" x="346.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
@@ -322,9 +322,9 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="309.23,-57.5 319.23,-54 309.23,-50.5 309.23,-57.5"/>
 </g>
 <!-- proc~util_version -->
-<g id="interface~~io_get_args~~CallsGraph_node8" class="node">
+<g id="interface~~io_get_args~~CallsGraph_node7" 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">
+<g id="a_interface~~io_get_args~~CallsGraph_node7"><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>
diff --git a/docs/interface/io_get_old_t_final_system.html b/docs/interface/io_get_old_t_final_system.html
new file mode 100644
index 000000000..2fb661376
--- /dev/null
+++ b/docs/interface/io_get_old_t_final_system.html
@@ -0,0 +1,474 @@
+
+<!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>io_get_old_t_final_system &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>io_get_old_t_final_system
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">io_get_old_t_final_system</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~~io_get_old_t_final_system~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_get_old_t_final_systemCallsGraph" width="496pt" height="32pt"
+ viewBox="0.00 0.00 496.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_get_old_t_final_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_get_old_t_final_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 492,-28 492,4 -4,4"/>
+<!-- interface~io_get_old_t_final_system -->
+<g id="interface~~io_get_old_t_final_system~~CallsGraph_node1" class="node">
+<title>interface~io_get_old_t_final_system</title>
+<polygon fill="none" stroke="black" points="136,-24 0,-24 0,0 136,0 136,-24"/>
+<text text-anchor="middle" x="68" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_get_old_t_final_system</text>
+</g>
+<!-- proc~io_get_old_t_final_system -->
+<g id="interface~~io_get_old_t_final_system~~CallsGraph_node2" class="node">
+<title>proc~io_get_old_t_final_system</title>
+<g id="a_interface~~io_get_old_t_final_system~~CallsGraph_node2"><a xlink:href=".././proc/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="308,-24 172,-24 172,0 308,0 308,-24"/>
+<text text-anchor="middle" x="240" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system -->
+<g id="interface~~io_get_old_t_final_system~~CallsGraph_edge1" class="edge">
+<title>interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.19,-12C144.5,-12 153.05,-12 161.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="161.74,-15.5 171.74,-12 161.74,-8.5 161.74,-15.5"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_get_old_t_final_system~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_get_old_t_final_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="398,-24 344,-24 344,0 398,0 398,-24"/>
+<text text-anchor="middle" x="371" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_get_old_t_final_system&#45;&gt;interface~util_exit -->
+<g id="interface~~io_get_old_t_final_system~~CallsGraph_edge2" class="edge">
+<title>proc~io_get_old_t_final_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M308.14,-12C317,-12 325.79,-12 333.84,-12"/>
+<polygon fill="#000000" stroke="#000000" points="333.94,-15.5 343.94,-12 333.94,-8.5 333.94,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_get_old_t_final_system~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_get_old_t_final_system~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="488,-24 434,-24 434,0 488,0 488,-24"/>
+<text text-anchor="middle" x="461" y="-9.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~~io_get_old_t_final_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="M398.4,-12C406.39,-12 415.31,-12 423.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="423.92,-15.5 433.92,-12 423.92,-8.5 423.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">
+    <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 function io_get_old_t_final_system(self, param) result(old_t_final)
+    
+    
+   
+   <a href='../proc/io_get_old_t_final_system.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~143"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~91"></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>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-old_t_final"></span><small>real(kind=DP)
+  </small></h3>
+    
+    
+    
+    <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/io_get_token.html b/docs/interface/io_get_token.html
index 59ecdd8f1..8576fc7ef 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
diff --git a/docs/interface/io_param_reader.html b/docs/interface/io_param_reader.html
index 0af9719cb..166a45ff8 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -277,9 +277,9 @@ <h3 class="panel-title">Calls</h3>
 <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">
+<g id="interface~~io_param_reader~~CallsGraph_node6" 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">
+<g id="a_interface~~io_param_reader~~CallsGraph_node6"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
 <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>
@@ -292,9 +292,9 @@ <h3 class="panel-title">Calls</h3>
 <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">
+<g id="interface~~io_param_reader~~CallsGraph_node5" 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">
+<g id="a_interface~~io_param_reader~~CallsGraph_node5"><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>
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~131"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~162"></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 0751dd111..709c78a7c 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,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~163"></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_frame_body.html b/docs/interface/io_read_frame_body.html
index e41edaf02..b6f32d2ee 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -235,7 +235,7 @@ <h3 class="panel-title">Calls</h3>
 <g id="interface~~io_read_frame_body~~CallsGraph_node2" class="node">
 <title>proc~io_read_frame_body</title>
 <g id="a_interface~~io_read_frame_body~~CallsGraph_node2"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="260,-24 148,-24 148,0 260,0 260,-24"/>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="260,-24 148,-24 148,0 260,0 260,-24"/>
 <text text-anchor="middle" x="204" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
@@ -345,7 +345,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~136"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~144"></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~5"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~3"></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-param~96"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~92"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -415,42 +415,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form~2"></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" id="variable-ierr~6"></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>
 
     
     
     
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-ierr~6"></span><small>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
 
  </div>
diff --git a/docs/interface/io_read_frame_cb.html b/docs/interface/io_read_frame_cb.html
index eb6841f2f..f47dbeb69 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -235,7 +235,7 @@ <h3 class="panel-title">Calls</h3>
 <g id="interface~~io_read_frame_cb~~CallsGraph_node2" class="node">
 <title>proc~io_read_frame_cb</title>
 <g id="a_interface~~io_read_frame_cb~~CallsGraph_node2"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#d9534f" stroke="#d9534f" points="236,-24 136,-24 136,0 236,0 236,-24"/>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="236,-24 136,-24 136,0 236,0 236,-24"/>
 <text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
@@ -345,7 +345,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public module function io_read_frame_cb(self, iu, param) result(ierr)
     
     
    
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~137"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~145"></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~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~4"></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-param~97"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~93"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -415,42 +415,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form~3"></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" id="variable-ierr~7"></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>
 
     
     
     
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-ierr~7"></span><small>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
 
  </div>
diff --git a/docs/interface/io_read_frame_system.html b/docs/interface/io_read_frame_system.html
index 9e0bf1415..bddd2d40b 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -235,7 +235,7 @@ <h3 class="panel-title">Calls</h3>
 <g id="interface~~io_read_frame_system~~CallsGraph_node2" class="node">
 <title>proc~io_read_frame_system</title>
 <g id="a_interface~~io_read_frame_system~~CallsGraph_node2"><a xlink:href=".././proc/io_read_frame_system.html" xlink:title="io_read_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 158,-24 158,0 280,0 280,-24"/>
+<polygon fill="#d94e8f" stroke="#d94e8f" 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">io_read_frame_system</text>
 </a>
 </g>
@@ -330,7 +330,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public module function io_read_frame_system(self, iu, param) result(ierr)
     
     
    
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~138"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~146"></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~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>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~98"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~94"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,42 +400,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form~4"></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" id="variable-ierr~8"></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>
 
     
     
     
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-ierr~8"></span><small>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
 
  </div>
diff --git a/docs/interface/io_read_in_body.html b/docs/interface/io_read_in_body.html
new file mode 100644
index 000000000..96896bef4
--- /dev/null
+++ b/docs/interface/io_read_in_body.html
@@ -0,0 +1,435 @@
+
+<!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>io_read_in_body &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>io_read_in_body
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">io_read_in_body</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~~io_read_in_body~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_read_in_bodyCallsGraph" width="228pt" height="32pt"
+ viewBox="0.00 0.00 228.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_read_in_body~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_read_in_body~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 224,-28 224,4 -4,4"/>
+<!-- interface~io_read_in_body -->
+<g id="interface~~io_read_in_body~~CallsGraph_node1" class="node">
+<title>interface~io_read_in_body</title>
+<polygon fill="none" stroke="black" points="92,-24 0,-24 0,0 92,0 92,-24"/>
+<text text-anchor="middle" x="46" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_body</text>
+</g>
+<!-- proc~io_read_in_body -->
+<g id="interface~~io_read_in_body~~CallsGraph_node2" class="node">
+<title>proc~io_read_in_body</title>
+<g id="a_interface~~io_read_in_body~~CallsGraph_node2"><a xlink:href=".././proc/io_read_in_body.html" xlink:title="io_read_in_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="220,-24 128,-24 128,0 220,0 220,-24"/>
+<text text-anchor="middle" x="174" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_body</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_body&#45;&gt;proc~io_read_in_body -->
+<g id="interface~~io_read_in_body~~CallsGraph_edge1" class="edge">
+<title>interface~io_read_in_body&#45;&gt;proc~io_read_in_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M92.13,-12C100.37,-12 109.04,-12 117.53,-12"/>
+<polygon fill="#000000" stroke="#000000" points="117.76,-15.5 127.76,-12 117.76,-8.5 117.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>
+     
+     
+    
+    <br>
+    
+      <h2>
+public module subroutine io_read_in_body(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_body.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~164"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~112"></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/io_read_cb_in.html b/docs/interface/io_read_in_cb.html
similarity index 87%
rename from docs/interface/io_read_cb_in.html
rename to docs/interface/io_read_in_cb.html
index a1ed0d5d6..71b4901e1 100644
--- a/docs/interface/io_read_cb_in.html
+++ b/docs/interface/io_read_in_cb.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>io_read_cb_in &ndash; swiftest</title>
+    <title>io_read_in_cb &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>io_read_cb_in
+    <h1>io_read_in_cb
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_read_cb_in
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">io_read_cb_in</li>
+     <li class="active">io_read_in_cb</li>
   </ol>
 </div>
 </div>
@@ -219,59 +219,59 @@ <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~~io_read_cb_in~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_read_cb_inCallsGraph" width="384pt" height="32pt"
+<!-- Title: interface~~io_read_in_cb~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_read_in_cbCallsGraph" width="384pt" height="32pt"
  viewBox="0.00 0.00 384.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_read_cb_in~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~io_read_cb_in~~CallsGraph</title>
+<g id="interface~~io_read_in_cb~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_read_in_cb~~CallsGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 380,-28 380,4 -4,4"/>
-<!-- interface~io_read_cb_in -->
-<g id="interface~~io_read_cb_in~~CallsGraph_node1" class="node">
-<title>interface~io_read_cb_in</title>
+<!-- interface~io_read_in_cb -->
+<g id="interface~~io_read_in_cb~~CallsGraph_node1" class="node">
+<title>interface~io_read_in_cb</title>
 <polygon fill="none" stroke="black" points="80,-24 0,-24 0,0 80,0 80,-24"/>
-<text text-anchor="middle" x="40" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_cb_in</text>
+<text text-anchor="middle" x="40" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_cb</text>
 </g>
-<!-- proc~io_read_cb_in -->
-<g id="interface~~io_read_cb_in~~CallsGraph_node2" class="node">
-<title>proc~io_read_cb_in</title>
-<g id="a_interface~~io_read_cb_in~~CallsGraph_node2"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<!-- proc~io_read_in_cb -->
+<g id="interface~~io_read_in_cb~~CallsGraph_node2" class="node">
+<title>proc~io_read_in_cb</title>
+<g id="a_interface~~io_read_in_cb~~CallsGraph_node2"><a xlink:href=".././proc/io_read_in_cb.html" xlink:title="io_read_in_cb">
 <polygon fill="#d9534f" stroke="#d9534f" points="196,-24 116,-24 116,0 196,0 196,-24"/>
-<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
-<g id="interface~~io_read_cb_in~~CallsGraph_edge1" class="edge">
-<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
+<!-- interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb -->
+<g id="interface~~io_read_in_cb~~CallsGraph_edge1" class="edge">
+<title>interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M80.23,-12C88.38,-12 97.07,-12 105.54,-12"/>
 <polygon fill="#000000" stroke="#000000" points="105.7,-15.5 115.7,-12 105.7,-8.5 105.7,-15.5"/>
 </g>
 <!-- interface~util_exit -->
-<g id="interface~~io_read_cb_in~~CallsGraph_node3" class="node">
+<g id="interface~~io_read_in_cb~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~io_read_cb_in~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<g id="a_interface~~io_read_in_cb~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
 <polygon fill="#a7506f" stroke="#a7506f" points="286,-24 232,-24 232,0 286,0 286,-24"/>
 <text text-anchor="middle" x="259" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
-<g id="interface~~io_read_cb_in~~CallsGraph_edge2" class="edge">
-<title>proc~io_read_cb_in&#45;&gt;interface~util_exit</title>
+<!-- proc~io_read_in_cb&#45;&gt;interface~util_exit -->
+<g id="interface~~io_read_in_cb~~CallsGraph_edge2" class="edge">
+<title>proc~io_read_in_cb&#45;&gt;interface~util_exit</title>
 <path fill="none" stroke="#000000" d="M196.05,-12C204.48,-12 213.36,-12 221.68,-12"/>
 <polygon fill="#000000" stroke="#000000" points="221.85,-15.5 231.85,-12 221.85,-8.5 221.85,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="interface~~io_read_cb_in~~CallsGraph_node4" class="node">
+<g id="interface~~io_read_in_cb~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_read_cb_in~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<g id="a_interface~~io_read_in_cb~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
 <polygon fill="#d9534f" stroke="#d9534f" points="376,-24 322,-24 322,0 376,0 376,-24"/>
 <text text-anchor="middle" x="349" y="-9.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~~io_read_cb_in~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_read_in_cb~~CallsGraph_edge3" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.4,-12C294.39,-12 303.31,-12 311.82,-12"/>
 <polygon fill="#000000" stroke="#000000" points="311.92,-15.5 321.92,-12 311.92,-8.5 311.92,-15.5"/>
@@ -345,11 +345,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_read_cb_in(self, param)
+public module subroutine io_read_in_cb(self, param)
     
     
    
-   <a href='../proc/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~134"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~165"></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-param~95"></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(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_param_in.html b/docs/interface/io_read_in_param.html
similarity index 88%
rename from docs/interface/io_read_param_in.html
rename to docs/interface/io_read_in_param.html
index 62b1ff42a..dd00117ed 100644
--- a/docs/interface/io_read_param_in.html
+++ b/docs/interface/io_read_in_param.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>io_read_param_in &ndash; swiftest</title>
+    <title>io_read_in_param &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>io_read_param_in
+    <h1>io_read_in_param
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_read_param_in
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">io_read_param_in</li>
+     <li class="active">io_read_in_param</li>
   </ol>
 </div>
 </div>
@@ -219,59 +219,59 @@ <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~~io_read_param_in~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_read_param_inCallsGraph" width="424pt" height="32pt"
+<!-- Title: interface~~io_read_in_param~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_read_in_paramCallsGraph" width="424pt" height="32pt"
  viewBox="0.00 0.00 424.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_read_param_in~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~io_read_param_in~~CallsGraph</title>
+<g id="interface~~io_read_in_param~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_read_in_param~~CallsGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 420,-28 420,4 -4,4"/>
-<!-- interface~io_read_param_in -->
-<g id="interface~~io_read_param_in~~CallsGraph_node1" class="node">
-<title>interface~io_read_param_in</title>
+<!-- interface~io_read_in_param -->
+<g id="interface~~io_read_in_param~~CallsGraph_node1" class="node">
+<title>interface~io_read_in_param</title>
 <polygon fill="none" stroke="black" points="100,-24 0,-24 0,0 100,0 100,-24"/>
-<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_param_in</text>
+<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_param</text>
 </g>
-<!-- proc~io_read_param_in -->
-<g id="interface~~io_read_param_in~~CallsGraph_node2" class="node">
-<title>proc~io_read_param_in</title>
-<g id="a_interface~~io_read_param_in~~CallsGraph_node2"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
+<!-- proc~io_read_in_param -->
+<g id="interface~~io_read_in_param~~CallsGraph_node2" class="node">
+<title>proc~io_read_in_param</title>
+<g id="a_interface~~io_read_in_param~~CallsGraph_node2"><a xlink:href=".././proc/io_read_in_param.html" xlink:title="io_read_in_param">
 <polygon fill="#d9534f" stroke="#d9534f" points="236,-24 136,-24 136,0 236,0 236,-24"/>
-<text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
+<text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
-<g id="interface~~io_read_param_in~~CallsGraph_edge1" class="edge">
-<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
+<!-- interface~io_read_in_param&#45;&gt;proc~io_read_in_param -->
+<g id="interface~~io_read_in_param~~CallsGraph_edge1" class="edge">
+<title>interface~io_read_in_param&#45;&gt;proc~io_read_in_param</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M100.14,-12C108.42,-12 117.1,-12 125.61,-12"/>
 <polygon fill="#000000" stroke="#000000" points="125.87,-15.5 135.87,-12 125.87,-8.5 125.87,-15.5"/>
 </g>
 <!-- interface~util_exit -->
-<g id="interface~~io_read_param_in~~CallsGraph_node3" class="node">
+<g id="interface~~io_read_in_param~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~io_read_param_in~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<g id="a_interface~~io_read_in_param~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
 <polygon fill="#a7506f" stroke="#a7506f" points="326,-24 272,-24 272,0 326,0 326,-24"/>
 <text text-anchor="middle" x="299" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
-<g id="interface~~io_read_param_in~~CallsGraph_edge2" class="edge">
-<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
+<!-- proc~io_read_in_param&#45;&gt;interface~util_exit -->
+<g id="interface~~io_read_in_param~~CallsGraph_edge2" class="edge">
+<title>proc~io_read_in_param&#45;&gt;interface~util_exit</title>
 <path fill="none" stroke="#000000" d="M236.01,-12C244.67,-12 253.54,-12 261.76,-12"/>
 <polygon fill="#000000" stroke="#000000" points="261.77,-15.5 271.77,-12 261.77,-8.5 261.77,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="interface~~io_read_param_in~~CallsGraph_node4" class="node">
+<g id="interface~~io_read_in_param~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_read_param_in~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<g id="a_interface~~io_read_in_param~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
 <polygon fill="#d9534f" stroke="#d9534f" points="416,-24 362,-24 362,0 416,0 416,-24"/>
 <text text-anchor="middle" x="389" y="-9.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~~io_read_param_in~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_read_in_param~~CallsGraph_edge3" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.4,-12C334.39,-12 343.31,-12 351.82,-12"/>
 <polygon fill="#000000" stroke="#000000" points="351.92,-15.5 361.92,-12 351.92,-8.5 351.92,-15.5"/>
@@ -345,11 +345,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_read_param_in(self, param_file_name)
+public module subroutine io_read_in_param(self, param_file_name)
     
     
    
-   <a href='../proc/io_read_param_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_param.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -376,7 +376,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~166"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_dump_swiftest.html b/docs/interface/io_read_in_particle_info.html
similarity index 75%
rename from docs/interface/io_dump_swiftest.html
rename to docs/interface/io_read_in_particle_info.html
index a05b98a88..4fb86c516 100644
--- a/docs/interface/io_dump_swiftest.html
+++ b/docs/interface/io_read_in_particle_info.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>io_dump_swiftest &ndash; swiftest</title>
+    <title>io_read_in_particle_info &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>io_dump_swiftest
+    <h1>io_read_in_particle_info
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_dump_swiftest
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">io_dump_swiftest</li>
+     <li class="active">io_read_in_particle_info</li>
   </ol>
 </div>
 </div>
@@ -219,62 +219,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: interface~~io_dump_swiftest~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_dump_swiftestCallsGraph" width="414pt" height="32pt"
- viewBox="0.00 0.00 414.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_dump_swiftest~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~io_dump_swiftest~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 410,-28 410,4 -4,4"/>
-<!-- interface~io_dump_swiftest -->
-<g id="interface~~io_dump_swiftest~~CallsGraph_node1" class="node">
-<title>interface~io_dump_swiftest</title>
-<polygon fill="none" stroke="black" 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">io_dump_swiftest</text>
+<!-- Title: interface~~io_read_in_particle_info~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_read_in_particle_infoCallsGraph" width="478pt" height="32pt"
+ viewBox="0.00 0.00 478.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_read_in_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_read_in_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 474,-28 474,4 -4,4"/>
+<!-- interface~io_read_in_particle_info -->
+<g id="interface~~io_read_in_particle_info~~CallsGraph_node1" class="node">
+<title>interface~io_read_in_particle_info</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">io_read_in_particle_info</text>
 </g>
-<!-- proc~io_dump_swiftest -->
-<g id="interface~~io_dump_swiftest~~CallsGraph_node2" class="node">
-<title>proc~io_dump_swiftest</title>
-<g id="a_interface~~io_dump_swiftest~~CallsGraph_node2"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#d9534f" stroke="#d9534f" points="226,-24 131,-24 131,0 226,0 226,-24"/>
-<text text-anchor="middle" x="178.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<!-- proc~io_read_in_particle_info -->
+<g id="interface~~io_read_in_particle_info~~CallsGraph_node2" class="node">
+<title>proc~io_read_in_particle_info</title>
+<g id="a_interface~~io_read_in_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<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">io_read_in_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
-<g id="interface~~io_dump_swiftest~~CallsGraph_edge1" class="edge">
-<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
-<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"/>
+<!-- interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info -->
+<g id="interface~~io_read_in_particle_info~~CallsGraph_edge1" class="edge">
+<title>interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info</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>
 <!-- interface~util_exit -->
-<g id="interface~~io_dump_swiftest~~CallsGraph_node3" class="node">
+<g id="interface~~io_read_in_particle_info~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~io_dump_swiftest~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="316,-24 262,-24 262,0 316,0 316,-24"/>
-<text text-anchor="middle" x="289" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_read_in_particle_info~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
-<g id="interface~~io_dump_swiftest~~CallsGraph_edge2" class="edge">
-<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M226.14,-12C234.61,-12 243.33,-12 251.45,-12"/>
-<polygon fill="#000000" stroke="#000000" points="251.72,-15.5 261.72,-12 251.72,-8.5 251.72,-15.5"/>
+<!-- proc~io_read_in_particle_info&#45;&gt;interface~util_exit -->
+<g id="interface~~io_read_in_particle_info~~CallsGraph_edge2" class="edge">
+<title>proc~io_read_in_particle_info&#45;&gt;interface~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>
 <!-- proc~util_exit -->
-<g id="interface~~io_dump_swiftest~~CallsGraph_node4" class="node">
+<g id="interface~~io_read_in_particle_info~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_dump_swiftest~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="406,-24 352,-24 352,0 406,0 406,-24"/>
-<text text-anchor="middle" x="379" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_read_in_particle_info~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="470,-24 416,-24 416,0 470,0 470,-24"/>
+<text text-anchor="middle" x="443" y="-9.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~~io_dump_swiftest~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_read_in_particle_info~~CallsGraph_edge3" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.4,-12C324.39,-12 333.31,-12 341.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="341.92,-15.5 351.92,-12 341.92,-8.5 341.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M380.4,-12C388.39,-12 397.31,-12 405.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-15.5 415.92,-12 405.92,-8.5 405.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -345,11 +345,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_read_in_particle_info(self, iu)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -376,12 +376,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~129"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td><span class="anchor" id="variable-self~167"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_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>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</p></td>
   
 </tr>
 
@@ -391,12 +391,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~92"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-iu~7"></span>integer(kind=I4B),</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>iu</strong></td><td><p>Open file unit number</p></td>
   
 </tr>
 
diff --git a/docs/interface/io_read_particle_info_system.html b/docs/interface/io_read_particle_info_system.html
new file mode 100644
index 000000000..a1c238bbf
--- /dev/null
+++ b/docs/interface/io_read_particle_info_system.html
@@ -0,0 +1,465 @@
+
+<!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>io_read_particle_info_system &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>io_read_particle_info_system
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">io_read_particle_info_system</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~~io_read_particle_info_system~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_read_particle_info_systemCallsGraph" width="528pt" height="32pt"
+ viewBox="0.00 0.00 528.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_read_particle_info_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_read_particle_info_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 524,-28 524,4 -4,4"/>
+<!-- interface~io_read_particle_info_system -->
+<g id="interface~~io_read_particle_info_system~~CallsGraph_node1" class="node">
+<title>interface~io_read_particle_info_system</title>
+<polygon fill="none" stroke="black" points="152,-24 0,-24 0,0 152,0 152,-24"/>
+<text text-anchor="middle" x="76" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_particle_info_system</text>
+</g>
+<!-- proc~io_read_particle_info_system -->
+<g id="interface~~io_read_particle_info_system~~CallsGraph_node2" class="node">
+<title>proc~io_read_particle_info_system</title>
+<g id="a_interface~~io_read_particle_info_system~~CallsGraph_node2"><a xlink:href=".././proc/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="340,-24 188,-24 188,0 340,0 340,-24"/>
+<text text-anchor="middle" x="264" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system -->
+<g id="interface~~io_read_particle_info_system~~CallsGraph_edge1" class="edge">
+<title>interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.12,-12C160.6,-12 169.28,-12 177.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="177.9,-15.5 187.9,-12 177.9,-8.5 177.9,-15.5"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_read_particle_info_system~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_read_particle_info_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="430,-24 376,-24 376,0 430,0 430,-24"/>
+<text text-anchor="middle" x="403" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_read_particle_info_system&#45;&gt;interface~util_exit -->
+<g id="interface~~io_read_particle_info_system~~CallsGraph_edge2" class="edge">
+<title>proc~io_read_particle_info_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M340.31,-12C349.22,-12 357.97,-12 365.96,-12"/>
+<polygon fill="#000000" stroke="#000000" points="365.96,-15.5 375.96,-12 365.96,-8.5 365.96,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_read_particle_info_system~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_read_particle_info_system~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="520,-24 466,-24 466,0 520,0 520,-24"/>
+<text text-anchor="middle" x="493" y="-9.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~~io_read_particle_info_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="M430.4,-12C438.39,-12 447.31,-12 455.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="455.92,-15.5 465.92,-12 455.92,-8.5 455.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">
+    <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 io_read_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/io_read_particle_info_system.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~168"></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" id="variable-param~114"></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/io_toupper.html b/docs/interface/io_toupper.html
index 595fb933e..bdf968ea7 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -333,65 +333,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="326,-45 262,-45 262,-21 326,-21 326,-45"/>
 <text text-anchor="middle" x="294" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_toupper</text>
 </g>
-<!-- proc~io_get_args -->
+<!-- proc~io_param_reader -->
 <g id="interface~~io_toupper~~CalledByGraph_node2" class="node">
-<title>proc~io_get_args</title>
-<g id="a_interface~~io_toupper~~CalledByGraph_node2"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="213,-66 144,-66 144,-42 213,-42 213,-66"/>
-<text text-anchor="middle" x="178.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<title>proc~io_param_reader</title>
+<g id="a_interface~~io_toupper~~CalledByGraph_node2"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
+<polygon fill="#d9534f" stroke="#d9534f" points="226,-66 131,-66 131,-42 226,-42 226,-66"/>
+<text text-anchor="middle" x="178.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
+<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
 <g id="interface~~io_toupper~~CalledByGraph_edge1" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
-<path fill="none" stroke="#000000" d="M213.25,-47.76C225.41,-45.5 239.28,-42.94 252,-40.59"/>
-<polygon fill="#000000" stroke="#000000" points="252.71,-44.01 261.9,-38.75 251.43,-37.13 252.71,-44.01"/>
+<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M226.32,-45.34C234.83,-43.76 243.65,-42.13 251.97,-40.59"/>
+<polygon fill="#000000" stroke="#000000" points="252.63,-44.03 261.83,-38.77 251.36,-37.14 252.63,-44.03"/>
 </g>
-<!-- proc~io_param_reader -->
+<!-- proc~io_get_args -->
 <g id="interface~~io_toupper~~CalledByGraph_node3" class="node">
-<title>proc~io_param_reader</title>
-<g id="a_interface~~io_toupper~~CalledByGraph_node3"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
-<polygon fill="#d9534f" stroke="#d9534f" points="226,-24 131,-24 131,0 226,0 226,-24"/>
-<text text-anchor="middle" x="178.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<title>proc~io_get_args</title>
+<g id="a_interface~~io_toupper~~CalledByGraph_node3"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="213,-24 144,-24 144,0 213,0 213,-24"/>
+<text text-anchor="middle" x="178.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
+<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
 <g id="interface~~io_toupper~~CalledByGraph_edge2" class="edge">
-<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
-<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"/>
+<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M213.25,-18.24C225.41,-20.5 239.28,-23.06 252,-25.41"/>
+<polygon fill="#000000" stroke="#000000" points="251.43,-28.87 261.9,-27.25 252.71,-21.99 251.43,-28.87"/>
 </g>
-<!-- interface~io_param_reader -->
+<!-- interface~io_get_args -->
 <g id="interface~~io_toupper~~CalledByGraph_node4" class="node">
-<title>interface~io_param_reader</title>
-<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>
+<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,-24 13,-24 13,0 82,0 82,-24"/>
+<text text-anchor="middle" x="47.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
 <g id="interface~~io_toupper~~CalledByGraph_edge4" class="edge">
-<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
-<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"/>
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.06,-12C97.76,-12 116.67,-12 133.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="133.66,-15.5 143.66,-12 133.66,-8.5 133.66,-15.5"/>
 </g>
-<!-- interface~io_get_args -->
+<!-- interface~io_param_reader -->
 <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>
+<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">
+<polygon fill="#a7506f" stroke="#a7506f" points="95,-66 0,-66 0,-42 95,-42 95,-66"/>
+<text text-anchor="middle" x="47.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
 <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"/>
+<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M95.07,-54C103.48,-54 112.32,-54 120.97,-54"/>
+<polygon fill="#000000" stroke="#000000" points="121,-57.5 131,-54 121,-50.5 121,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/io_write_discard.html b/docs/interface/io_write_discard.html
index 3f0c79628..f6d56c8af 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 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_nbody_system.html'>swiftest_nbody_system</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>
   
@@ -391,8 +391,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~99"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-param~115"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/io_write_encounter.html b/docs/interface/io_write_encounter.html
index 69a6bba11..cce7f0379 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,61 +220,85 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~io_write_encounter~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_write_encounterCallsGraph" width="430pt" height="32pt"
- viewBox="0.00 0.00 430.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_write_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfaceio_write_encounterCallsGraph" width="430pt" height="116pt"
+ viewBox="0.00 0.00 430.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_write_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>interface~~io_write_encounter~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 426,-28 426,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 426,-112 426,4 -4,4"/>
 <!-- interface~io_write_encounter -->
 <g id="interface~~io_write_encounter~~CallsGraph_node1" class="node">
 <title>interface~io_write_encounter</title>
-<polygon fill="none" stroke="black" points="103,-24 0,-24 0,0 103,0 103,-24"/>
-<text text-anchor="middle" x="51.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_encounter</text>
+<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">io_write_encounter</text>
 </g>
 <!-- proc~io_write_encounter -->
 <g id="interface~~io_write_encounter~~CallsGraph_node2" class="node">
 <title>proc~io_write_encounter</title>
 <g id="a_interface~~io_write_encounter~~CallsGraph_node2"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="242,-24 139,-24 139,0 242,0 242,-24"/>
-<text text-anchor="middle" x="190.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="242,-66 139,-66 139,-42 242,-42 242,-66"/>
+<text text-anchor="middle" x="190.5" y="-51.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~~io_write_encounter~~CallsGraph_edge1" class="edge">
 <title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M103.12,-12C111.36,-12 119.97,-12 128.42,-12"/>
-<polygon fill="#000000" stroke="#000000" points="128.63,-15.5 138.63,-12 128.63,-8.5 128.63,-15.5"/>
+<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_exit -->
+<!-- ind1 -->
 <g id="interface~~io_write_encounter~~CallsGraph_node3" class="node">
+<title>ind1</title>
+<polygon fill="#777777" stroke="#777777" points="332,-108 278,-108 278,-84 332,-84 332,-108"/>
+<text text-anchor="middle" x="305" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;ind1 -->
+<g id="interface~~io_write_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~io_write_encounter&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M223.74,-66.04C237.67,-71.24 254.01,-77.34 268.3,-82.67"/>
+<polygon fill="#000000" stroke="#000000" points="267.22,-86.01 277.81,-86.22 269.67,-79.45 267.22,-86.01"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_write_encounter~~CallsGraph_node4" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~io_write_encounter~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="332,-24 278,-24 278,0 332,0 332,-24"/>
-<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_write_encounter~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
-<g id="interface~~io_write_encounter~~CallsGraph_edge2" class="edge">
+<g id="interface~~io_write_encounter~~CallsGraph_edge3" class="edge">
 <title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M242.16,-12C250.75,-12 259.53,-12 267.66,-12"/>
-<polygon fill="#000000" stroke="#000000" points="267.92,-15.5 277.92,-12 267.92,-8.5 267.92,-15.5"/>
+<path fill="none" stroke="#000000" d="M242.16,-54C250.75,-54 259.53,-54 267.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="267.92,-57.5 277.92,-54 267.92,-50.5 267.92,-57.5"/>
+</g>
+<!-- ind2 -->
+<g id="interface~~io_write_encounter~~CallsGraph_node5" class="node">
+<title>ind2</title>
+<polygon fill="#777777" stroke="#777777" points="332,-24 278,-24 278,0 332,0 332,-24"/>
+<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;ind2 -->
+<g id="interface~~io_write_encounter~~CallsGraph_edge4" class="edge">
+<title>proc~io_write_encounter&#45;&gt;ind2</title>
+<path fill="none" stroke="#000000" d="M223.74,-41.96C237.67,-36.76 254.01,-30.66 268.3,-25.33"/>
+<polygon fill="#000000" stroke="#000000" points="269.67,-28.55 277.81,-21.78 267.22,-21.99 269.67,-28.55"/>
 </g>
 <!-- proc~util_exit -->
-<g id="interface~~io_write_encounter~~CallsGraph_node4" class="node">
+<g id="interface~~io_write_encounter~~CallsGraph_node6" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_write_encounter~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="422,-24 368,-24 368,0 422,0 422,-24"/>
-<text text-anchor="middle" x="395" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_write_encounter~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="422,-66 368,-66 368,-42 422,-42 422,-66"/>
+<text text-anchor="middle" x="395" 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~~io_write_encounter~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_write_encounter~~CallsGraph_edge5" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.4,-12C340.39,-12 349.31,-12 357.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="357.92,-15.5 367.92,-12 357.92,-8.5 357.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.4,-54C340.39,-54 349.31,-54 357.82,-54"/>
+<polygon fill="#000000" stroke="#000000" points="357.92,-57.5 367.92,-54 357.92,-50.5 357.92,-57.5"/>
 </g>
 </g>
 </svg>
@@ -345,7 +369,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type)
+public module subroutine io_write_encounter(self, pl, encbody, param)
     
     
    
@@ -376,12 +400,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~35"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-self~170"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
   
 </tr>
 
@@ -391,147 +415,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name1~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-pl~13"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-name2~2"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>name2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass1~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>mass1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass2~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>mass2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius1~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>radius1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius2~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>radius2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-xh1~3"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-xh2~3"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vh1~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vh2~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh2</strong></td><td></td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -541,12 +430,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-enc_out~3"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-encbody"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>enc_out</strong></td><td></td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </p></td>
   
 </tr>
 
@@ -556,12 +445,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-out_type~5"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-param~116"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
diff --git a/docs/interface/io_write_frame_body.html b/docs/interface/io_write_frame_body.html
index 3a96c532b..d3ca7d74f 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~io_write_frame_body~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_write_frame_bodyCallsGraph" width="268pt" height="32pt"
- viewBox="0.00 0.00 268.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfaceio_write_frame_bodyCallsGraph" width="448pt" height="32pt"
+ viewBox="0.00 0.00 448.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~io_write_frame_body~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~io_write_frame_body~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 264,-28 264,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 444,-28 444,4 -4,4"/>
 <!-- interface~io_write_frame_body -->
 <g id="interface~~io_write_frame_body~~CallsGraph_node1" class="node">
 <title>interface~io_write_frame_body</title>
@@ -246,6 +246,36 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.2,-12C120.46,-12 129.05,-12 137.51,-12"/>
 <polygon fill="#000000" stroke="#000000" points="137.73,-15.5 147.73,-12 137.73,-8.5 137.73,-15.5"/>
 </g>
+<!-- interface~util_exit -->
+<g id="interface~~io_write_frame_body~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_write_frame_body~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
+<g id="interface~~io_write_frame_body~~CallsGraph_edge2" class="edge">
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M260.07,-12C268.73,-12 277.48,-12 285.58,-12"/>
+<polygon fill="#000000" stroke="#000000" points="285.77,-15.5 295.77,-12 285.77,-8.5 285.77,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_write_frame_body~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_write_frame_body~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="440,-24 386,-24 386,0 440,0 440,-24"/>
+<text text-anchor="middle" x="413" y="-9.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~~io_write_frame_body~~CallsGraph_edge3" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M350.4,-12C358.39,-12 367.31,-12 375.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="375.92,-15.5 385.92,-12 375.92,-8.5 375.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">
@@ -311,6 +341,122 @@ <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~~io_write_frame_body~~CalledByGraph Pages: 1 -->
+<svg id="interfaceio_write_frame_bodyCalledByGraph" width="358pt" height="32pt"
+ viewBox="0.00 0.00 358.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_write_frame_body~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_write_frame_body~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 354,-28 354,4 -4,4"/>
+<!-- interface~io_write_frame_body -->
+<g id="interface~~io_write_frame_body~~CalledByGraph_node1" class="node">
+<title>interface~io_write_frame_body</title>
+<polygon fill="none" stroke="black" points="350,-24 238,-24 238,0 350,0 350,-24"/>
+<text text-anchor="middle" x="294" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_body</text>
+</g>
+<!-- proc~io_dump_base -->
+<g id="interface~~io_write_frame_body~~CalledByGraph_node2" class="node">
+<title>proc~io_dump_base</title>
+<g id="a_interface~~io_write_frame_body~~CalledByGraph_node2"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-24 119,-24 119,0 202,0 202,-24"/>
+<text text-anchor="middle" x="160.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="interface~~io_write_frame_body~~CalledByGraph_edge1" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M202.03,-12C210.16,-12 218.91,-12 227.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="227.85,-15.5 237.85,-12 227.85,-8.5 227.85,-15.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="interface~~io_write_frame_body~~CalledByGraph_node3" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_interface~~io_write_frame_body~~CalledByGraph_node3"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-24 0,-24 0,0 83,0 83,-24"/>
+<text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="interface~~io_write_frame_body~~CalledByGraph_edge2" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<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>
+</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>
     
@@ -346,7 +492,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~171"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -376,7 +522,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~100"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~117"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/io_write_frame_cb.html b/docs/interface/io_write_frame_cb.html
index afbd7d59a..b760ba7aa 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~io_write_frame_cb~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_write_frame_cbCallsGraph" width="244pt" height="32pt"
- viewBox="0.00 0.00 244.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfaceio_write_frame_cbCallsGraph" width="424pt" height="32pt"
+ viewBox="0.00 0.00 424.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~io_write_frame_cb~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~io_write_frame_cb~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 240,-28 240,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 420,-28 420,4 -4,4"/>
 <!-- interface~io_write_frame_cb -->
 <g id="interface~~io_write_frame_cb~~CallsGraph_node1" class="node">
 <title>interface~io_write_frame_cb</title>
@@ -246,6 +246,36 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M100.14,-12C108.42,-12 117.1,-12 125.61,-12"/>
 <polygon fill="#000000" stroke="#000000" points="125.87,-15.5 135.87,-12 125.87,-8.5 125.87,-15.5"/>
 </g>
+<!-- interface~util_exit -->
+<g id="interface~~io_write_frame_cb~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_write_frame_cb~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="326,-24 272,-24 272,0 326,0 326,-24"/>
+<text text-anchor="middle" x="299" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="interface~~io_write_frame_cb~~CallsGraph_edge2" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M236.01,-12C244.67,-12 253.54,-12 261.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="261.77,-15.5 271.77,-12 261.77,-8.5 261.77,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_write_frame_cb~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_write_frame_cb~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="416,-24 362,-24 362,0 416,0 416,-24"/>
+<text text-anchor="middle" x="389" y="-9.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~~io_write_frame_cb~~CallsGraph_edge3" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.4,-12C334.39,-12 343.31,-12 351.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="351.92,-15.5 361.92,-12 351.92,-8.5 351.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">
@@ -311,6 +341,122 @@ <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~~io_write_frame_cb~~CalledByGraph Pages: 1 -->
+<svg id="interfaceio_write_frame_cbCalledByGraph" width="346pt" height="32pt"
+ viewBox="0.00 0.00 346.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_write_frame_cb~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_write_frame_cb~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 342,-28 342,4 -4,4"/>
+<!-- interface~io_write_frame_cb -->
+<g id="interface~~io_write_frame_cb~~CalledByGraph_node1" class="node">
+<title>interface~io_write_frame_cb</title>
+<polygon fill="none" stroke="black" points="338,-24 238,-24 238,0 338,0 338,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_cb</text>
+</g>
+<!-- proc~io_dump_base -->
+<g id="interface~~io_write_frame_cb~~CalledByGraph_node2" class="node">
+<title>proc~io_dump_base</title>
+<g id="a_interface~~io_write_frame_cb~~CalledByGraph_node2"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-24 119,-24 119,0 202,0 202,-24"/>
+<text text-anchor="middle" x="160.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
+<g id="interface~~io_write_frame_cb~~CalledByGraph_edge1" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M202.25,-12C210.37,-12 219.07,-12 227.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="227.7,-15.5 237.7,-12 227.7,-8.5 227.7,-15.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="interface~~io_write_frame_cb~~CalledByGraph_node3" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_interface~~io_write_frame_cb~~CalledByGraph_node3"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-24 0,-24 0,0 83,0 83,-24"/>
+<text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="interface~~io_write_frame_cb~~CalledByGraph_edge2" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<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>
+</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>
     
@@ -346,7 +492,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~172"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -376,7 +522,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~101"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~118"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/fragmentation_initialize.html b/docs/interface/io_write_frame_encounter.html
similarity index 65%
rename from docs/interface/fragmentation_initialize.html
rename to docs/interface/io_write_frame_encounter.html
index 5bed19cdf..3581ea325 100644
--- a/docs/interface/fragmentation_initialize.html
+++ b/docs/interface/io_write_frame_encounter.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>fragmentation_initialize &ndash; swiftest</title>
+    <title>io_write_frame_encounter &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>fragmentation_initialize
+    <h1>io_write_frame_encounter
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>fragmentation_initialize
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">fragmentation_initialize</li>
+     <li class="active">io_write_frame_encounter</li>
   </ol>
 </div>
 </div>
@@ -219,32 +219,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: interface~~fragmentation_initialize~~CallsGraph Pages: 1 -->
-<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 284,-28 284,4 -4,4"/>
-<!-- interface~fragmentation_initialize -->
-<g id="interface~~fragmentation_initialize~~CallsGraph_node1" class="node">
-<title>interface~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>
+<!-- Title: interface~~io_write_frame_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_write_frame_encounterCallsGraph" width="498pt" height="32pt"
+ viewBox="0.00 0.00 498.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_write_frame_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_write_frame_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 494,-28 494,4 -4,4"/>
+<!-- interface~io_write_frame_encounter -->
+<g id="interface~~io_write_frame_encounter~~CallsGraph_node1" class="node">
+<title>interface~io_write_frame_encounter</title>
+<polygon fill="none" stroke="black" points="137,-24 0,-24 0,0 137,0 137,-24"/>
+<text text-anchor="middle" x="68.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_encounter</text>
 </g>
-<!-- proc~fragmentation_initialize -->
-<g id="interface~~fragmentation_initialize~~CallsGraph_node2" class="node">
-<title>proc~fragmentation_initialize</title>
-<g id="a_interface~~fragmentation_initialize~~CallsGraph_node2"><a xlink:href=".././proc/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
-<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">fragmentation_initialize</text>
+<!-- proc~io_write_frame_encounter -->
+<g id="interface~~io_write_frame_encounter~~CallsGraph_node2" class="node">
+<title>proc~io_write_frame_encounter</title>
+<g id="a_interface~~io_write_frame_encounter~~CallsGraph_node2"><a xlink:href=".././proc/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="310,-24 173,-24 173,0 310,0 310,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize -->
-<g id="interface~~fragmentation_initialize~~CallsGraph_edge1" class="edge">
-<title>interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize</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~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter -->
+<g id="interface~~io_write_frame_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.08,-12C145.54,-12 154.24,-12 162.83,-12"/>
+<polygon fill="#000000" stroke="#000000" points="162.85,-15.5 172.85,-12 162.85,-8.5 162.85,-15.5"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_write_frame_encounter~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_write_frame_encounter~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="400,-24 346,-24 346,0 400,0 400,-24"/>
+<text text-anchor="middle" x="373" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_encounter&#45;&gt;interface~util_exit -->
+<g id="interface~~io_write_frame_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~io_write_frame_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M310.28,-12C319.05,-12 327.74,-12 335.71,-12"/>
+<polygon fill="#000000" stroke="#000000" points="335.73,-15.5 345.73,-12 335.73,-8.5 335.73,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_write_frame_encounter~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_write_frame_encounter~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="490,-24 436,-24 436,0 490,0 490,-24"/>
+<text text-anchor="middle" x="463" y="-9.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~~io_write_frame_encounter~~CallsGraph_edge3" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.4,-12C408.39,-12 417.31,-12 425.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="425.92,-15.5 435.92,-12 425.92,-8.5 425.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -315,11 +345,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-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)
+public module subroutine io_write_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
     
     
    
-   <a href='../proc/fragmentation_initialize.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -346,12 +376,12 @@ <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>intent(inout)</td>
+  <td><span class="anchor" id="variable-iu~10"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</p></td>
   
 </tr>
 
@@ -361,102 +391,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~84"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-t~41"></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>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Index of bodies involved in the collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-x~18"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~10"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~6"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~8"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~8"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
+  <td><strong>t</strong></td><td><p>Time of encounter</p></td>
   
 </tr>
 
@@ -466,12 +406,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-radius~8"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-id1~4"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>id1</strong></td><td><p>ids of the two encountering bodies</p></td>
   
 </tr>
 
@@ -481,12 +421,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nfrag"></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-id2~4"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
+  <td><strong>id2</strong></td><td><p>ids of the two encountering bodies</p></td>
   
 </tr>
 
@@ -496,12 +436,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip_frag~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-gmass1~3"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>Gmass1</strong></td><td><p>G*mass of the two encountering bodies</p></td>
   
 </tr>
 
@@ -511,12 +451,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m_frag~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-gmass2~3"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  <td></td><td>::</td>
+  <td><strong>Gmass2</strong></td><td><p>G*mass of the two encountering bodies</p></td>
   
 </tr>
 
@@ -526,12 +466,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad_frag~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-radius1~3"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  <td></td><td>::</td>
+  <td><strong>radius1</strong></td><td><p>Radii of the two encountering bodies</p></td>
   
 </tr>
 
@@ -541,12 +481,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xb_frag~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-radius2~3"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>radius2</strong></td><td><p>Radii of the two encountering bodies</p></td>
   
 </tr>
 
@@ -556,12 +496,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vb_frag~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-xh1~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh1</strong></td><td><p>Swiftestcentric position vectors of the two encountering bodies </p></td>
   
 </tr>
 
@@ -571,12 +511,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rot_frag~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-xh2~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh2</strong></td><td><p>Swiftestcentric position vectors of the two encountering bodies </p></td>
   
 </tr>
 
@@ -586,12 +526,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~4"></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-vh1~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh1</strong></td><td><p>Swiftestcentric velocity vectors of the two encountering bodies </p></td>
   
 </tr>
 
@@ -601,12 +541,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfailure"></span>logical,</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-vh2~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh2</strong></td><td><p>Swiftestcentric velocity vectors of the two encountering bodies </p></td>
   
 </tr>
 
diff --git a/docs/interface/io_write_frame_system.html b/docs/interface/io_write_frame_system.html
index ede208db0..54fc81f78 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~io_write_frame_system~~CallsGraph Pages: 1 -->
-<svg id="interfaceio_write_frame_systemCallsGraph" width="577pt" height="52pt"
- viewBox="0.00 0.00 577.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~io_write_frame_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<svg id="interfaceio_write_frame_systemCallsGraph" width="470pt" height="32pt"
+ viewBox="0.00 0.00 470.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_write_frame_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~io_write_frame_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 573,-48 573,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 466,-28 466,4 -4,4"/>
 <!-- interface~io_write_frame_system -->
 <g id="interface~~io_write_frame_system~~CallsGraph_node1" class="node">
 <title>interface~io_write_frame_system</title>
@@ -246,56 +246,35 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.2,-12C131.64,-12 140.36,-12 148.95,-12"/>
 <polygon fill="#000000" stroke="#000000" points="148.96,-15.5 158.96,-12 148.96,-8.5 148.96,-15.5"/>
 </g>
-<!-- proc~io_write_hdr -->
-<g id="interface~~io_write_frame_system~~CallsGraph_node3" class="node">
-<title>proc~io_write_hdr</title>
-<g id="a_interface~~io_write_frame_system~~CallsGraph_node3"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
-<polygon fill="#d9534f" stroke="#d9534f" points="389,-44 318,-44 318,-20 389,-20 389,-44"/>
-<text text-anchor="middle" x="353.5" y="-29.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="interface~~io_write_frame_system~~CallsGraph_edge2" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<path fill="none" stroke="#000000" d="M282.02,-21.24C290.78,-22.58 299.67,-23.93 308.05,-25.21"/>
-<polygon fill="#000000" stroke="#000000" points="307.56,-28.68 317.97,-26.73 308.61,-21.76 307.56,-28.68"/>
-</g>
 <!-- interface~util_exit -->
-<g id="interface~~io_write_frame_system~~CallsGraph_node4" class="node">
+<g id="interface~~io_write_frame_system~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~io_write_frame_system~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="479,-24 425,-24 425,0 479,0 479,-24"/>
-<text text-anchor="middle" x="452" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_write_frame_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="372,-24 318,-24 318,0 372,0 372,-24"/>
+<text text-anchor="middle" x="345" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
-<g id="interface~~io_write_frame_system~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_write_frame_system~~CallsGraph_edge2" class="edge">
 <title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M282.37,-11.23C314.14,-10.93 353.67,-10.72 389,-11 397.25,-11.07 406.12,-11.18 414.49,-11.31"/>
-<polygon fill="#000000" stroke="#000000" points="414.7,-14.82 424.76,-11.48 414.81,-7.82 414.7,-14.82"/>
-</g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
-<g id="interface~~io_write_frame_system~~CallsGraph_edge4" class="edge">
-<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M389.07,-24.84C397.45,-23.1 406.43,-21.24 414.88,-19.49"/>
-<polygon fill="#000000" stroke="#000000" points="415.77,-22.88 424.85,-17.42 414.35,-16.02 415.77,-22.88"/>
+<path fill="none" stroke="#000000" d="M282.03,-12C290.83,-12 299.66,-12 307.77,-12"/>
+<polygon fill="#000000" stroke="#000000" points="307.97,-15.5 317.97,-12 307.97,-8.5 307.97,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="interface~~io_write_frame_system~~CallsGraph_node5" class="node">
+<g id="interface~~io_write_frame_system~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
-<g id="a_interface~~io_write_frame_system~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="569,-24 515,-24 515,0 569,0 569,-24"/>
-<text text-anchor="middle" x="542" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~io_write_frame_system~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="462,-24 408,-24 408,0 462,0 462,-24"/>
+<text text-anchor="middle" x="435" y="-9.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~~io_write_frame_system~~CallsGraph_edge5" class="edge">
+<g id="interface~~io_write_frame_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="M479.4,-12C487.39,-12 496.31,-12 504.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="504.92,-15.5 514.92,-12 504.92,-8.5 504.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.4,-12C380.39,-12 389.31,-12 397.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="397.92,-15.5 407.92,-12 397.92,-8.5 397.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -366,7 +345,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine io_write_frame_system(self, param)
     
     
    
@@ -397,8 +376,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-self~173"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -412,25 +391,10 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-param~119"></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>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-param~102"></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>
   
diff --git a/docs/interface/io_write_hdr_system.html b/docs/interface/io_write_hdr_system.html
new file mode 100644
index 000000000..738c17d9b
--- /dev/null
+++ b/docs/interface/io_write_hdr_system.html
@@ -0,0 +1,480 @@
+
+<!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>io_write_hdr_system &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>io_write_hdr_system
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">io_write_hdr_system</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~~io_write_hdr_system~~CallsGraph Pages: 1 -->
+<svg id="interfaceio_write_hdr_systemCallsGraph" width="446pt" height="32pt"
+ viewBox="0.00 0.00 446.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~io_write_hdr_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~io_write_hdr_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 442,-28 442,4 -4,4"/>
+<!-- interface~io_write_hdr_system -->
+<g id="interface~~io_write_hdr_system~~CallsGraph_node1" class="node">
+<title>interface~io_write_hdr_system</title>
+<polygon fill="none" stroke="black" points="111,-24 0,-24 0,0 111,0 111,-24"/>
+<text text-anchor="middle" x="55.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_hdr_system</text>
+</g>
+<!-- proc~io_write_hdr_system -->
+<g id="interface~~io_write_hdr_system~~CallsGraph_node2" class="node">
+<title>proc~io_write_hdr_system</title>
+<g id="a_interface~~io_write_hdr_system~~CallsGraph_node2"><a xlink:href=".././proc/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="258,-24 147,-24 147,0 258,0 258,-24"/>
+<text text-anchor="middle" x="202.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system -->
+<g id="interface~~io_write_hdr_system~~CallsGraph_edge1" class="edge">
+<title>interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.32,-12C119.53,-12 128.06,-12 136.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="136.6,-15.5 146.6,-12 136.6,-8.5 136.6,-15.5"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~io_write_hdr_system~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~io_write_hdr_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="348,-24 294,-24 294,0 348,0 348,-24"/>
+<text text-anchor="middle" x="321" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_hdr_system&#45;&gt;interface~util_exit -->
+<g id="interface~~io_write_hdr_system~~CallsGraph_edge2" class="edge">
+<title>proc~io_write_hdr_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M258.34,-12C266.96,-12 275.67,-12 283.73,-12"/>
+<polygon fill="#000000" stroke="#000000" points="283.88,-15.5 293.88,-12 283.88,-8.5 283.88,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~io_write_hdr_system~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~io_write_hdr_system~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="438,-24 384,-24 384,0 438,0 438,-24"/>
+<text text-anchor="middle" x="411" y="-9.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~~io_write_hdr_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="M348.4,-12C356.39,-12 365.31,-12 373.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="373.92,-15.5 383.92,-12 373.92,-8.5 373.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">
+    <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 io_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_hdr_system.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~174"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</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" id="variable-iu~11"></span>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~120"></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>
+</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/kick_getacch_int_all_pl.html b/docs/interface/kick_getacch_int_all_pl.html
new file mode 100644
index 000000000..60909b22c
--- /dev/null
+++ b/docs/interface/kick_getacch_int_all_pl.html
@@ -0,0 +1,626 @@
+
+<!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>kick_getacch_int_all_pl &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>kick_getacch_int_all_pl
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">kick_getacch_int_all_pl</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~~kick_getacch_int_all_pl~~CallsGraph Pages: 1 -->
+<svg id="interfacekick_getacch_int_all_plCallsGraph" 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~~kick_getacch_int_all_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~kick_getacch_int_all_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
+<!-- interface~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CallsGraph_node1" class="node">
+<title>interface~kick_getacch_int_all_pl</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">kick_getacch_int_all_pl</text>
+</g>
+<!-- proc~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CallsGraph_node2" class="node">
+<title>proc~kick_getacch_int_all_pl</title>
+<g id="a_interface~~kick_getacch_int_all_pl~~CallsGraph_node2"><a xlink:href=".././proc/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<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">kick_getacch_int_all_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CallsGraph_edge1" class="edge">
+<title>interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl</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"/>
+</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">
+  <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~~kick_getacch_int_all_pl~~CalledByGraph Pages: 1 -->
+<svg id="interfacekick_getacch_int_all_plCalledByGraph" width="414pt" height="32pt"
+ viewBox="0.00 0.00 414.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~kick_getacch_int_all_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~kick_getacch_int_all_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 410,-28 410,4 -4,4"/>
+<!-- interface~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CalledByGraph_node1" class="node">
+<title>interface~kick_getacch_int_all_pl</title>
+<polygon fill="none" stroke="black" points="406,-24 284,-24 284,0 406,0 406,-24"/>
+<text text-anchor="middle" x="345" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick_getacch_int_all_pl</text>
+</g>
+<!-- proc~kick_getacch_int_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CalledByGraph_node2" class="node">
+<title>proc~kick_getacch_int_pl</title>
+<g id="a_interface~~kick_getacch_int_all_pl~~CalledByGraph_node2"><a xlink:href=".././proc/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<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">kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CalledByGraph_edge1" class="edge">
+<title>proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M248.18,-12C256.49,-12 265.21,-12 273.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="273.95,-15.5 283.95,-12 273.95,-8.5 273.95,-15.5"/>
+</g>
+<!-- interface~kick_getacch_int_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CalledByGraph_node3" class="node">
+<title>interface~kick_getacch_int_pl</title>
+<g id="a_interface~~kick_getacch_int_all_pl~~CalledByGraph_node3"><a xlink:href=".././interface/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<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">kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl -->
+<g id="interface~~kick_getacch_int_all_pl~~CalledByGraph_edge2" 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="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>
+</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 kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_all_pl.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-npl~3"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>npl</strong></td><td><p>Number of massive bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nplpl~2"></span>integer(kind=I8B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nplpl</strong></td><td><p>Number of massive body interactions to compute</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_plpl~3"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>k_plpl</strong></td><td><p>Array of interaction pair indices (flattened upper triangular matrix)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x~15"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector array</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>Gmass</strong></td><td><p>Array of massive body G*mass</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius~4"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>radius</strong></td><td><p>Array of massive body radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-acc"></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>acc</strong></td><td><p>Acceleration vector array </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/fragmentation_regime.html b/docs/interface/kick_getacch_int_one_pl.html
similarity index 73%
rename from docs/interface/fragmentation_regime.html
rename to docs/interface/kick_getacch_int_one_pl.html
index c68b5ccdf..92f5d9ebb 100644
--- a/docs/interface/fragmentation_regime.html
+++ b/docs/interface/kick_getacch_int_one_pl.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>fragmentation_regime &ndash; swiftest</title>
+    <title>kick_getacch_int_one_pl &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>fragmentation_regime
+    <h1>kick_getacch_int_one_pl
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>fragmentation_regime
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">fragmentation_regime</li>
+     <li class="active">kick_getacch_int_one_pl</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~~fragmentation_regime~~CallsGraph Pages: 1 -->
-<svg id="interfacefragmentation_regimeCallsGraph" 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~~fragmentation_regime~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~fragmentation_regime~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- interface~fragmentation_regime -->
-<g id="interface~~fragmentation_regime~~CallsGraph_node1" class="node">
-<title>interface~fragmentation_regime</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">fragmentation_regime</text>
+<!-- Title: interface~~kick_getacch_int_one_pl~~CallsGraph Pages: 1 -->
+<svg id="interfacekick_getacch_int_one_plCallsGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~kick_getacch_int_one_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~kick_getacch_int_one_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
+<!-- interface~kick_getacch_int_one_pl -->
+<g id="interface~~kick_getacch_int_one_pl~~CallsGraph_node1" class="node">
+<title>interface~kick_getacch_int_one_pl</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick_getacch_int_one_pl</text>
 </g>
-<!-- proc~fragmentation_regime -->
-<g id="interface~~fragmentation_regime~~CallsGraph_node2" class="node">
-<title>proc~fragmentation_regime</title>
-<g id="a_interface~~fragmentation_regime~~CallsGraph_node2"><a xlink:href=".././proc/fragmentation_regime.html" xlink:title="fragmentation_regime">
-<polygon fill="#d9534f" stroke="#d9534f" points="272,-24 154,-24 154,0 272,0 272,-24"/>
-<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_regime</text>
+<!-- proc~kick_getacch_int_one_pl -->
+<g id="interface~~kick_getacch_int_one_pl~~CallsGraph_node2" class="node">
+<title>proc~kick_getacch_int_one_pl</title>
+<g id="a_interface~~kick_getacch_int_one_pl~~CallsGraph_node2"><a xlink:href=".././proc/kick_getacch_int_one_pl.html" xlink:title="kick_getacch_int_one_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime -->
-<g id="interface~~fragmentation_regime~~CallsGraph_edge1" class="edge">
-<title>interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime</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"/>
+<!-- interface~kick_getacch_int_one_pl&#45;&gt;proc~kick_getacch_int_one_pl -->
+<g id="interface~~kick_getacch_int_one_pl~~CallsGraph_edge1" class="edge">
+<title>interface~kick_getacch_int_one_pl&#45;&gt;proc~kick_getacch_int_one_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-15.5"/>
 </g>
 </g>
 </svg>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss)
+public pure module subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
     
     
    
-   <a href='../proc/fragmentation_regime.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_one_pl.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-mcb"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rji2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mcb</strong></td><td></td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the two bodies</p></td>
   
 </tr>
 
@@ -361,12 +361,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m1"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xr~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>m1</strong></td><td></td>
+  <td><strong>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
   
 </tr>
 
@@ -376,12 +376,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-yr~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>m2</strong></td><td></td>
+  <td><strong>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
   
 </tr>
 
@@ -391,12 +391,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad1"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-zr~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>rad1</strong></td><td></td>
+  <td><strong>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
   
 </tr>
 
@@ -406,12 +406,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmi"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>rad2</strong></td><td></td>
+  <td><strong>Gmi</strong></td><td><p>G*mass of body i</p></td>
   
 </tr>
 
@@ -421,72 +421,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh1~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-xh2~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vb1"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vb1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vb2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vb2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-den1"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmj"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>den1</strong></td><td></td>
+  <td><strong>Gmj</strong></td><td><p>G*mass of body j</p></td>
   
 </tr>
 
@@ -496,12 +436,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-den2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-axi"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>den2</strong></td><td></td>
+  <td><strong>axi</strong></td><td><p>Acceleration vector components of body i</p></td>
   
 </tr>
 
@@ -511,12 +451,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-regime"></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-ayi"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>regime</strong></td><td></td>
+  <td><strong>ayi</strong></td><td><p>Acceleration vector components of body i</p></td>
   
 </tr>
 
@@ -526,12 +466,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mlr"></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-azi"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mlr</strong></td><td></td>
+  <td><strong>azi</strong></td><td><p>Acceleration vector components of body i</p></td>
   
 </tr>
 
@@ -541,12 +481,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mslr"></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-axj"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mslr</strong></td><td></td>
+  <td><strong>axj</strong></td><td><p>Acceleration vector components of body j</p></td>
   
 </tr>
 
@@ -556,12 +496,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtiny"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-ayj"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mtiny</strong></td><td></td>
+  <td><strong>ayj</strong></td><td><p>Acceleration vector components of body j</p></td>
   
 </tr>
 
@@ -571,12 +511,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~5"></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-azj"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
+  <td><strong>azj</strong></td><td><p>Acceleration vector components of body j</p></td>
   
 </tr>
 
diff --git a/docs/interface/kick_getacch_int_one_tp.html b/docs/interface/kick_getacch_int_one_tp.html
new file mode 100644
index 000000000..2267d9471
--- /dev/null
+++ b/docs/interface/kick_getacch_int_one_tp.html
@@ -0,0 +1,525 @@
+
+<!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>kick_getacch_int_one_tp &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>kick_getacch_int_one_tp
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">kick_getacch_int_one_tp</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~~kick_getacch_int_one_tp~~CallsGraph Pages: 1 -->
+<svg id="interfacekick_getacch_int_one_tpCallsGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~kick_getacch_int_one_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~kick_getacch_int_one_tp~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
+<!-- interface~kick_getacch_int_one_tp -->
+<g id="interface~~kick_getacch_int_one_tp~~CallsGraph_node1" class="node">
+<title>interface~kick_getacch_int_one_tp</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick_getacch_int_one_tp</text>
+</g>
+<!-- proc~kick_getacch_int_one_tp -->
+<g id="interface~~kick_getacch_int_one_tp~~CallsGraph_node2" class="node">
+<title>proc~kick_getacch_int_one_tp</title>
+<g id="a_interface~~kick_getacch_int_one_tp~~CallsGraph_node2"><a xlink:href=".././proc/kick_getacch_int_one_tp.html" xlink:title="kick_getacch_int_one_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_one_tp&#45;&gt;proc~kick_getacch_int_one_tp -->
+<g id="interface~~kick_getacch_int_one_tp~~CallsGraph_edge1" class="edge">
+<title>interface~kick_getacch_int_one_tp&#45;&gt;proc~kick_getacch_int_one_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-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 pure module subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_one_tp.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-rji2~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the test particle and massive body</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xr~4"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-yr~4"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-zr~4"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmpl"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmpl</strong></td><td><p>G*mass of massive body</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ax"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ax</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ay"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ay</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-az"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>az</strong></td><td><p>Acceleration vector components of test particle</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/kick_getacch_int_pl.html b/docs/interface/kick_getacch_int_pl.html
index aa18a2d35..f305148ee 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~kick_getacch_int_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacekick_getacch_int_plCallsGraph" 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">
+<svg id="interfacekick_getacch_int_plCallsGraph" width="572pt" height="32pt"
+ viewBox="0.00 0.00 572.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~kick_getacch_int_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~kick_getacch_int_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 568,-28 568,4 -4,4"/>
 <!-- interface~kick_getacch_int_pl -->
 <g id="interface~~kick_getacch_int_pl~~CallsGraph_node1" class="node">
 <title>interface~kick_getacch_int_pl</title>
@@ -246,6 +246,36 @@ <h3 class="panel-title">Calls</h3>
 <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>
+<!-- interface~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_pl~~CallsGraph_node3" class="node">
+<title>interface~kick_getacch_int_all_pl</title>
+<g id="a_interface~~kick_getacch_int_pl~~CallsGraph_node3"><a xlink:href=".././interface/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="406,-24 284,-24 284,0 406,0 406,-24"/>
+<text text-anchor="middle" x="345" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_pl~~CallsGraph_edge2" class="edge">
+<title>proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M248.18,-12C256.49,-12 265.21,-12 273.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="273.95,-15.5 283.95,-12 273.95,-8.5 273.95,-15.5"/>
+</g>
+<!-- proc~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_pl~~CallsGraph_node4" class="node">
+<title>proc~kick_getacch_int_all_pl</title>
+<g id="a_interface~~kick_getacch_int_pl~~CallsGraph_node4"><a xlink:href=".././proc/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="564,-24 442,-24 442,0 564,0 564,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl -->
+<g id="interface~~kick_getacch_int_pl~~CallsGraph_edge3" class="edge">
+<title>interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.31,-12C414.6,-12 423.17,-12 431.63,-12"/>
+<polygon fill="#000000" stroke="#000000" points="431.85,-15.5 441.85,-12 431.85,-8.5 431.85,-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">
@@ -315,7 +345,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine kick_getacch_int_pl(self)
     
     
    
@@ -346,12 +376,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~143"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~175"></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></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
diff --git a/docs/interface/kick_getacch_int_tp.html b/docs/interface/kick_getacch_int_tp.html
index d884999e8..9d781ea49 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 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_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~176"></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-gmpl"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmpl~2"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-npl~3"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-npl~4"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/lambda0.html b/docs/interface/lambda0.html
index 0c2acff7f..fe63f6d24 100644
--- a/docs/interface/lambda0.html
+++ b/docs/interface/lambda0.html
@@ -136,7 +136,7 @@ <h1>lambda0
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.8% of total for abstract interfaces.">19 statements</a>
+    title=" 4.2% of total for abstract interfaces.">19 statements</a>
      </li> 
      
      
diff --git a/docs/interface/lambda0err.html b/docs/interface/lambda0err.html
index 2b7bb7158..1a2c7f85b 100644
--- a/docs/interface/lambda0err.html
+++ b/docs/interface/lambda0err.html
@@ -136,7 +136,7 @@ <h1>lambda0err
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.8% of total for abstract interfaces.">19 statements</a>
+    title=" 4.2% of total for abstract interfaces.">19 statements</a>
      </li> 
      
      
diff --git a/docs/interface/lambda0tvar.html b/docs/interface/lambda0tvar.html
index 5366dc26b..ffc9fdd51 100644
--- a/docs/interface/lambda0tvar.html
+++ b/docs/interface/lambda0tvar.html
@@ -136,7 +136,7 @@ <h1>lambda0tvar
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.8% of total for abstract interfaces.">19 statements</a>
+    title=" 4.2% of total for abstract interfaces.">19 statements</a>
      </li> 
      
      
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~7"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~8"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/lambda_obj~2.html b/docs/interface/lambda_obj~2.html
index ca9a57217..c410916a8 100644
--- a/docs/interface/lambda_obj~2.html
+++ b/docs/interface/lambda_obj~2.html
@@ -134,7 +134,7 @@ <h1>lambda_obj
      <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: 26 statements,  0.1% of total for procedures.">5 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 26 statements,  0.0% of total for procedures.">5 statements</a>
      </li> 
      
      
@@ -254,33 +254,33 @@ <h3 class="panel-title">Calls</h3>
 <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"/>
 </g>
-<!-- proc~lambda_init_0_err -->
+<!-- proc~lambda_init_tvar -->
 <g id="interface~~lambda_obj~2~~CallsGraph_node3" class="node">
-<title>proc~lambda_init_0_err</title>
-<g id="a_interface~~lambda_obj~2~~CallsGraph_node3"><a xlink:href=".././proc/lambda_init_0_err.html" xlink:title="lambda_init_0_err">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="203,-66 104,-66 104,-42 203,-42 203,-66"/>
-<text text-anchor="middle" x="153.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0_err</text>
+<title>proc~lambda_init_tvar</title>
+<g id="a_interface~~lambda_obj~2~~CallsGraph_node3"><a xlink:href=".././proc/lambda_init_tvar.html" xlink:title="lambda_init_tvar">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="199,-66 108,-66 108,-42 199,-42 199,-66"/>
+<text text-anchor="middle" x="153.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_tvar</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err -->
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar -->
 <g id="interface~~lambda_obj~2~~CallsGraph_edge2" 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="M68.04,-54C76.04,-54 84.84,-54 93.63,-54"/>
-<polygon fill="#000000" stroke="#000000" points="93.92,-57.5 103.92,-54 93.92,-50.5 93.92,-57.5"/>
+<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M68.04,-54C77.31,-54 87.64,-54 97.8,-54"/>
+<polygon fill="#000000" stroke="#000000" points="97.87,-57.5 107.87,-54 97.87,-50.5 97.87,-57.5"/>
 </g>
-<!-- proc~lambda_init_tvar -->
+<!-- proc~lambda_init_0_err -->
 <g id="interface~~lambda_obj~2~~CallsGraph_node4" class="node">
-<title>proc~lambda_init_tvar</title>
-<g id="a_interface~~lambda_obj~2~~CallsGraph_node4"><a xlink:href=".././proc/lambda_init_tvar.html" xlink:title="lambda_init_tvar">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="199,-24 108,-24 108,0 199,0 199,-24"/>
-<text text-anchor="middle" x="153.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_tvar</text>
+<title>proc~lambda_init_0_err</title>
+<g id="a_interface~~lambda_obj~2~~CallsGraph_node4"><a xlink:href=".././proc/lambda_init_0_err.html" xlink:title="lambda_init_0_err">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="203,-24 104,-24 104,0 203,0 203,-24"/>
+<text text-anchor="middle" x="153.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0_err</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar -->
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err -->
 <g id="interface~~lambda_obj~2~~CallsGraph_edge3" class="edge">
-<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar</title>
+<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err</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"/>
 </g>
diff --git a/docs/interface/netcdf_close.html b/docs/interface/netcdf_close.html
new file mode 100644
index 000000000..ddc260b3d
--- /dev/null
+++ b/docs/interface/netcdf_close.html
@@ -0,0 +1,447 @@
+
+<!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>netcdf_close &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>netcdf_close
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_close</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~~netcdf_close~~CallsGraph Pages: 1 -->
+<svg id="interfacenetcdf_closeCallsGraph" width="290pt" height="32pt"
+ viewBox="0.00 0.00 290.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~netcdf_close~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~netcdf_close~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 286,-28 286,4 -4,4"/>
+<!-- interface~netcdf_close -->
+<g id="interface~~netcdf_close~~CallsGraph_node1" class="node">
+<title>interface~netcdf_close</title>
+<polygon fill="none" stroke="black" points="73,-24 0,-24 0,0 73,0 73,-24"/>
+<text text-anchor="middle" x="36.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_close</text>
+</g>
+<!-- proc~netcdf_close -->
+<g id="interface~~netcdf_close~~CallsGraph_node2" class="node">
+<title>proc~netcdf_close</title>
+<g id="a_interface~~netcdf_close~~CallsGraph_node2"><a xlink:href=".././proc/netcdf_close.html" xlink:title="netcdf_close">
+<polygon fill="#d9534f" stroke="#d9534f" points="182,-24 109,-24 109,0 182,0 182,-24"/>
+<text text-anchor="middle" x="145.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_close</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_close&#45;&gt;proc~netcdf_close -->
+<g id="interface~~netcdf_close~~CallsGraph_edge1" class="edge">
+<title>interface~netcdf_close&#45;&gt;proc~netcdf_close</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M73.13,-12C81.25,-12 90,-12 98.49,-12"/>
+<polygon fill="#000000" stroke="#000000" points="98.66,-15.5 108.66,-12 98.66,-8.5 98.66,-15.5"/>
+</g>
+<!-- nf90_close -->
+<g id="interface~~netcdf_close~~CallsGraph_node3" class="node">
+<title>nf90_close</title>
+<polygon fill="#777777" stroke="#777777" points="282,-24 218,-24 218,0 282,0 282,-24"/>
+<text text-anchor="middle" x="250" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_close</text>
+</g>
+<!-- proc~netcdf_close&#45;&gt;nf90_close -->
+<g id="interface~~netcdf_close~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_close&#45;&gt;nf90_close</title>
+<path fill="none" stroke="#000000" d="M182.06,-12C190.37,-12 199.28,-12 207.8,-12"/>
+<polygon fill="#000000" stroke="#000000" points="207.94,-15.5 217.94,-12 207.94,-8.5 207.94,-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 netcdf_close(self, param)
+    
+    
+   
+   <a href='../proc/netcdf_close.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~177"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~121"></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>
+</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/netcdf_initialize_output.html b/docs/interface/netcdf_initialize_output.html
new file mode 100644
index 000000000..893031263
--- /dev/null
+++ b/docs/interface/netcdf_initialize_output.html
@@ -0,0 +1,483 @@
+
+<!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>netcdf_initialize_output &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>netcdf_initialize_output
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_initialize_output</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~~netcdf_initialize_output~~CallsGraph Pages: 1 -->
+<svg id="interfacenetcdf_initialize_outputCallsGraph" width="400pt" height="158pt"
+ viewBox="0.00 0.00 400.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~netcdf_initialize_output~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<title>interface~~netcdf_initialize_output~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 396,-154 396,4 -4,4"/>
+<!-- interface~netcdf_initialize_output -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_node1" class="node">
+<title>interface~netcdf_initialize_output</title>
+<polygon fill="none" stroke="black" points="121,-87 0,-87 0,-63 121,-63 121,-87"/>
+<text text-anchor="middle" x="60.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_initialize_output</text>
+</g>
+<!-- proc~netcdf_initialize_output -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_node2" class="node">
+<title>proc~netcdf_initialize_output</title>
+<g id="a_interface~~netcdf_initialize_output~~CallsGraph_node2"><a xlink:href=".././proc/netcdf_initialize_output.html" xlink:title="netcdf_initialize_output">
+<polygon fill="#d9534f" stroke="#d9534f" points="278,-87 157,-87 157,-63 278,-63 278,-87"/>
+<text text-anchor="middle" x="217.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_initialize_output</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_initialize_output&#45;&gt;proc~netcdf_initialize_output -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_edge1" class="edge">
+<title>interface~netcdf_initialize_output&#45;&gt;proc~netcdf_initialize_output</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M121.43,-75C129.72,-75 138.31,-75 146.76,-75"/>
+<polygon fill="#000000" stroke="#000000" points="146.99,-78.5 156.99,-75 146.99,-71.5 146.99,-78.5"/>
+</g>
+<!-- nf90_create -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_node3" class="node">
+<title>nf90_create</title>
+<polygon fill="#777777" stroke="#777777" points="388,-150 318,-150 318,-126 388,-126 388,-150"/>
+<text text-anchor="middle" x="353" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_create</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_create -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_create</title>
+<path fill="none" stroke="#000000" d="M244.24,-87.15C264.92,-96.91 294.19,-110.72 317,-121.48"/>
+<polygon fill="#000000" stroke="#000000" points="315.8,-124.79 326.34,-125.89 318.79,-118.46 315.8,-124.79"/>
+</g>
+<!-- nf90_def_dim -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_node4" class="node">
+<title>nf90_def_dim</title>
+<polygon fill="#777777" stroke="#777777" points="392,-108 314,-108 314,-84 392,-84 392,-108"/>
+<text text-anchor="middle" x="353" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_def_dim</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_def_dim -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_def_dim</title>
+<path fill="none" stroke="#000000" d="M278.22,-84.39C286.81,-85.75 295.55,-87.12 303.88,-88.43"/>
+<polygon fill="#000000" stroke="#000000" points="303.36,-91.89 313.79,-89.99 304.45,-84.98 303.36,-91.89"/>
+</g>
+<!-- nf90_set_fill -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_node5" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="388,-66 318,-66 318,-42 388,-42 388,-66"/>
+<text text-anchor="middle" x="353" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_set_fill -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_edge4" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M278.22,-65.61C288.21,-64.03 298.42,-62.43 307.93,-60.93"/>
+<polygon fill="#000000" stroke="#000000" points="308.59,-64.37 317.93,-59.36 307.51,-57.46 308.59,-64.37"/>
+</g>
+<!-- nf90_def_var -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_node6" class="node">
+<title>nf90_def_var</title>
+<polygon fill="#777777" stroke="#777777" points="391,-24 315,-24 315,0 391,0 391,-24"/>
+<text text-anchor="middle" x="353" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_def_var</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_def_var -->
+<g id="interface~~netcdf_initialize_output~~CallsGraph_edge5" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_def_var</title>
+<path fill="none" stroke="#000000" d="M244.24,-62.85C264.92,-53.09 294.19,-39.28 317,-28.52"/>
+<polygon fill="#000000" stroke="#000000" points="318.79,-31.54 326.34,-24.11 315.8,-25.21 318.79,-31.54"/>
+</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 netcdf_initialize_output(self, param)
+    
+    
+   
+   <a href='../proc/netcdf_initialize_output.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~178"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~122"></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>
+</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/netcdf_open.html b/docs/interface/netcdf_open.html
new file mode 100644
index 000000000..a44165c61
--- /dev/null
+++ b/docs/interface/netcdf_open.html
@@ -0,0 +1,471 @@
+
+<!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>netcdf_open &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>netcdf_open
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_open</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~~netcdf_open~~CallsGraph Pages: 1 -->
+<svg id="interfacenetcdf_openCallsGraph" width="307pt" height="116pt"
+ viewBox="0.00 0.00 307.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~netcdf_open~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>interface~~netcdf_open~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 303,-112 303,4 -4,4"/>
+<!-- interface~netcdf_open -->
+<g id="interface~~netcdf_open~~CallsGraph_node1" class="node">
+<title>interface~netcdf_open</title>
+<polygon fill="none" stroke="black" points="72,-66 0,-66 0,-42 72,-42 72,-66"/>
+<text text-anchor="middle" x="36" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_open</text>
+</g>
+<!-- proc~netcdf_open -->
+<g id="interface~~netcdf_open~~CallsGraph_node2" class="node">
+<title>proc~netcdf_open</title>
+<g id="a_interface~~netcdf_open~~CallsGraph_node2"><a xlink:href=".././proc/netcdf_open.html" xlink:title="netcdf_open">
+<polygon fill="#d9534f" stroke="#d9534f" points="180,-66 108,-66 108,-42 180,-42 180,-66"/>
+<text text-anchor="middle" x="144" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_open</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_open&#45;&gt;proc~netcdf_open -->
+<g id="interface~~netcdf_open~~CallsGraph_edge1" class="edge">
+<title>interface~netcdf_open&#45;&gt;proc~netcdf_open</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M72,-54C80.15,-54 88.94,-54 97.46,-54"/>
+<polygon fill="#000000" stroke="#000000" points="97.67,-57.5 107.67,-54 97.67,-50.5 97.67,-57.5"/>
+</g>
+<!-- nf90_inq_varid -->
+<g id="interface~~netcdf_open~~CallsGraph_node3" class="node">
+<title>nf90_inq_varid</title>
+<polygon fill="#777777" stroke="#777777" points="299,-108 216,-108 216,-84 299,-84 299,-108"/>
+<text text-anchor="middle" x="257.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_inq_varid</text>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_inq_varid -->
+<g id="interface~~netcdf_open~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_inq_varid</title>
+<path fill="none" stroke="#000000" d="M176.95,-66.04C188.85,-70.52 202.53,-75.67 215.15,-80.42"/>
+<polygon fill="#000000" stroke="#000000" points="213.95,-83.71 224.54,-83.96 216.42,-77.16 213.95,-83.71"/>
+</g>
+<!-- nf90_set_fill -->
+<g id="interface~~netcdf_open~~CallsGraph_node4" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="292.5,-66 222.5,-66 222.5,-42 292.5,-42 292.5,-66"/>
+<text text-anchor="middle" x="257.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_set_fill -->
+<g id="interface~~netcdf_open~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M180.28,-54C190.33,-54 201.41,-54 211.93,-54"/>
+<polygon fill="#000000" stroke="#000000" points="212.21,-57.5 222.21,-54 212.21,-50.5 212.21,-57.5"/>
+</g>
+<!-- nf90_open -->
+<g id="interface~~netcdf_open~~CallsGraph_node5" class="node">
+<title>nf90_open</title>
+<polygon fill="#777777" stroke="#777777" points="289.5,-24 225.5,-24 225.5,0 289.5,0 289.5,-24"/>
+<text text-anchor="middle" x="257.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_open</text>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_open -->
+<g id="interface~~netcdf_open~~CallsGraph_edge4" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_open</title>
+<path fill="none" stroke="#000000" d="M176.95,-41.96C189.05,-37.41 203,-32.15 215.8,-27.33"/>
+<polygon fill="#000000" stroke="#000000" points="217.19,-30.55 225.31,-23.75 214.72,-24 217.19,-30.55"/>
+</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 netcdf_open(self, param)
+    
+    
+   
+   <a href='../proc/netcdf_open.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~179"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~123"></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>
+</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/netcdf_write_frame_base.html b/docs/interface/netcdf_write_frame_base.html
new file mode 100644
index 000000000..a5d9a9f56
--- /dev/null
+++ b/docs/interface/netcdf_write_frame_base.html
@@ -0,0 +1,477 @@
+
+<!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>netcdf_write_frame_base &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>netcdf_write_frame_base
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_write_frame_base</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~~netcdf_write_frame_base~~CallsGraph Pages: 1 -->
+<svg id="interfacenetcdf_write_frame_baseCallsGraph" 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="interface~~netcdf_write_frame_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~netcdf_write_frame_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 418,-70 418,4 -4,4"/>
+<!-- interface~netcdf_write_frame_base -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_node1" class="node">
+<title>interface~netcdf_write_frame_base</title>
+<polygon fill="none" stroke="black" points="133,-45 0,-45 0,-21 133,-21 133,-45"/>
+<text text-anchor="middle" x="66.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_frame_base</text>
+</g>
+<!-- proc~netcdf_write_frame_base -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_node2" class="node">
+<title>proc~netcdf_write_frame_base</title>
+<g id="a_interface~~netcdf_write_frame_base~~CallsGraph_node2"><a xlink:href=".././proc/netcdf_write_frame_base.html" xlink:title="netcdf_write_frame_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="302,-45 169,-45 169,-21 302,-21 302,-45"/>
+<text text-anchor="middle" x="235.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_edge1" class="edge">
+<title>interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-33C141.5,-33 150.23,-33 158.85,-33"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-36.5 168.89,-33 158.89,-29.5 158.89,-36.5"/>
+</g>
+<!-- interface~util_sort -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_node3" class="node">
+<title>interface~util_sort</title>
+<g id="a_interface~~netcdf_write_frame_base~~CallsGraph_node3"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" points="403,-66 349,-66 349,-42 403,-42 403,-66"/>
+<text text-anchor="middle" x="376" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
+</a>
+</g>
+</g>
+<!-- proc~netcdf_write_frame_base&#45;&gt;interface~util_sort -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M302.1,-42.95C314.6,-44.84 327.27,-46.76 338.45,-48.46"/>
+<polygon fill="#000000" stroke="#000000" points="338.26,-51.97 348.67,-50.01 339.31,-45.05 338.26,-51.97"/>
+</g>
+<!-- nf90_put_var -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_node4" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="414,-24 338,-24 338,0 414,0 414,-24"/>
+<text text-anchor="middle" x="376" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
+</g>
+<!-- proc~netcdf_write_frame_base&#45;&gt;nf90_put_var -->
+<g id="interface~~netcdf_write_frame_base~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M302.1,-23.05C310.85,-21.73 319.67,-20.39 328.02,-19.12"/>
+<polygon fill="#000000" stroke="#000000" points="328.56,-22.58 337.92,-17.62 327.51,-15.66 328.56,-22.58"/>
+</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 netcdf_write_frame_base(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_frame_base.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~180"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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" id="variable-iu~12"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~124"></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>
+</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/abstract_write_frame.html b/docs/interface/netcdf_write_frame_system.html
similarity index 90%
rename from docs/interface/abstract_write_frame.html
rename to docs/interface/netcdf_write_frame_system.html
index fcc32a7dc..5f11c9067 100644
--- a/docs/interface/abstract_write_frame.html
+++ b/docs/interface/netcdf_write_frame_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>abstract_write_frame &ndash; swiftest</title>
+    <title>netcdf_write_frame_system &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -117,8 +117,8 @@
     
   
   <div class="row">
-    <h1>abstract_write_frame
-   <small>Abstract Interface</small>
+    <h1>netcdf_write_frame_system
+   <small>Interface</small>
     
     </h1>
     
@@ -136,7 +136,7 @@ <h1>abstract_write_frame
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>abstract_write_frame
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">abstract_write_frame</li>
+     <li class="active">netcdf_write_frame_system</li>
   </ol>
 </div>
 </div>
@@ -205,9 +205,9 @@ <h3>Contents</h3>
     <div class="col-md-9" id='text'>
     
     
-      <h2>abstract interface <br>
+      <h2>interface <br>
       
-public subroutine abstract_write_frame(self, iu, param)
+public subroutine netcdf_write_frame_system(self, iu, param)
     
     
    
@@ -236,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~9"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td><span class="anchor" id="variable-self~181"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -251,12 +251,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~13"></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>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~8"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~125"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/netcdf_write_hdr_system.html b/docs/interface/netcdf_write_hdr_system.html
new file mode 100644
index 000000000..152733820
--- /dev/null
+++ b/docs/interface/netcdf_write_hdr_system.html
@@ -0,0 +1,486 @@
+
+<!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>netcdf_write_hdr_system &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>netcdf_write_hdr_system
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_write_hdr_system</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~~netcdf_write_hdr_system~~CallsGraph Pages: 1 -->
+<svg id="interfacenetcdf_write_hdr_systemCallsGraph" width="420pt" height="116pt"
+ viewBox="0.00 0.00 420.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>interface~~netcdf_write_hdr_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 416,-112 416,4 -4,4"/>
+<!-- interface~netcdf_write_hdr_system -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_node1" class="node">
+<title>interface~netcdf_write_hdr_system</title>
+<polygon fill="none" stroke="black" points="132,-66 0,-66 0,-42 132,-42 132,-66"/>
+<text text-anchor="middle" x="66" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_hdr_system</text>
+</g>
+<!-- proc~netcdf_write_hdr_system -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_node2" class="node">
+<title>proc~netcdf_write_hdr_system</title>
+<g id="a_interface~~netcdf_write_hdr_system~~CallsGraph_node2"><a xlink:href=".././proc/netcdf_write_hdr_system.html" xlink:title="netcdf_write_hdr_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="300,-66 168,-66 168,-42 300,-42 300,-66"/>
+<text text-anchor="middle" x="234" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_hdr_system&#45;&gt;proc~netcdf_write_hdr_system -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_edge1" class="edge">
+<title>interface~netcdf_write_hdr_system&#45;&gt;proc~netcdf_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-54C140.46,-54 149.04,-54 157.52,-54"/>
+<polygon fill="#000000" stroke="#000000" points="157.78,-57.5 167.78,-54 157.78,-50.5 157.78,-57.5"/>
+</g>
+<!-- nf90_set_fill -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_node3" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="409,-108 339,-108 339,-84 409,-84 409,-108"/>
+<text text-anchor="middle" x="374" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
+</g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_set_fill -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M274.55,-66.04C291.46,-71.18 311.27,-77.21 328.68,-82.51"/>
+<polygon fill="#000000" stroke="#000000" points="328.02,-85.97 338.61,-85.53 330.06,-79.27 328.02,-85.97"/>
+</g>
+<!-- nf90_put_var -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_node4" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="412,-66 336,-66 336,-42 412,-42 412,-66"/>
+<text text-anchor="middle" x="374" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
+</g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_put_var -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M300.36,-54C308.89,-54 317.48,-54 325.63,-54"/>
+<polygon fill="#000000" stroke="#000000" points="325.68,-57.5 335.68,-54 325.68,-50.5 325.68,-57.5"/>
+</g>
+<!-- nf90_open -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_node5" class="node">
+<title>nf90_open</title>
+<polygon fill="#777777" stroke="#777777" points="406,-24 342,-24 342,0 406,0 406,-24"/>
+<text text-anchor="middle" x="374" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_open</text>
+</g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_open -->
+<g id="interface~~netcdf_write_hdr_system~~CallsGraph_edge4" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_open</title>
+<path fill="none" stroke="#000000" d="M274.55,-41.96C292.56,-36.48 313.86,-30 332.04,-24.47"/>
+<polygon fill="#000000" stroke="#000000" points="333.23,-27.76 341.77,-21.5 331.19,-21.07 333.23,-27.76"/>
+</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 netcdf_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_hdr_system.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~182"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</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" id="variable-iu~14"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~126"></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>
+</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/netcdf_write_particle_info_base.html b/docs/interface/netcdf_write_particle_info_base.html
new file mode 100644
index 000000000..8cce56e81
--- /dev/null
+++ b/docs/interface/netcdf_write_particle_info_base.html
@@ -0,0 +1,462 @@
+
+<!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>netcdf_write_particle_info_base &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>netcdf_write_particle_info_base
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_write_particle_info_base</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~~netcdf_write_particle_info_base~~CallsGraph Pages: 1 -->
+<svg id="interfacenetcdf_write_particle_info_baseCallsGraph" width="482pt" height="74pt"
+ viewBox="0.00 0.00 482.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~netcdf_write_particle_info_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 478,-70 478,4 -4,4"/>
+<!-- interface~netcdf_write_particle_info_base -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_node1" class="node">
+<title>interface~netcdf_write_particle_info_base</title>
+<polygon fill="none" stroke="black" points="163,-45 0,-45 0,-21 163,-21 163,-45"/>
+<text text-anchor="middle" x="81.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_particle_info_base</text>
+</g>
+<!-- proc~netcdf_write_particle_info_base -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_node2" class="node">
+<title>proc~netcdf_write_particle_info_base</title>
+<g id="a_interface~~netcdf_write_particle_info_base~~CallsGraph_node2"><a xlink:href=".././proc/netcdf_write_particle_info_base.html" xlink:title="netcdf_write_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="362,-45 199,-45 199,-21 362,-21 362,-45"/>
+<text text-anchor="middle" x="280.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_edge1" class="edge">
+<title>interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.2,-33C171.67,-33 180.33,-33 188.91,-33"/>
+<polygon fill="#000000" stroke="#000000" points="188.93,-36.5 198.93,-33 188.93,-29.5 188.93,-36.5"/>
+</g>
+<!-- interface~util_sort -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_node3" class="node">
+<title>interface~util_sort</title>
+<g id="a_interface~~netcdf_write_particle_info_base~~CallsGraph_node3"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" points="463,-66 409,-66 409,-42 463,-42 463,-66"/>
+<text text-anchor="middle" x="436" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
+</a>
+</g>
+</g>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M362.3,-44.05C375.1,-45.81 387.76,-47.54 398.84,-49.05"/>
+<polygon fill="#000000" stroke="#000000" points="398.54,-52.54 408.92,-50.43 399.49,-45.61 398.54,-52.54"/>
+</g>
+<!-- nf90_put_var -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_node4" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="474,-24 398,-24 398,0 474,0 474,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
+</g>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;nf90_put_var -->
+<g id="interface~~netcdf_write_particle_info_base~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M362.3,-21.95C371.03,-20.75 379.7,-19.57 387.84,-18.45"/>
+<polygon fill="#000000" stroke="#000000" points="388.4,-21.91 397.83,-17.08 387.45,-14.97 388.4,-21.91"/>
+</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 netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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~183"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-iu~15"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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/obl_acc_body.html b/docs/interface/obl_acc_body.html
index 7f4cbfa5f..c84ffb04b 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -333,33 +333,33 @@ <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_pl -->
+<!-- proc~obl_acc_tp -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node2" class="node">
-<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">
+<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">
 <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_pl</text>
+<text text-anchor="middle" x="132" y="-51.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_edge1" 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,-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_tp -->
+<!-- proc~obl_acc_pl -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node3" class="node">
-<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">
+<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">
 <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_tp</text>
+<text text-anchor="middle" x="132" y="-9.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_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,-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>
@@ -367,31 +367,31 @@ <h3 class="panel-title">Called by</h3>
 <g id="interface~~obl_acc_body~~CalledByGraph_node4" class="node">
 <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_tp</text>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
-<g id="interface~~obl_acc_body~~CalledByGraph_edge4" class="edge">
+<g id="interface~~obl_acc_body~~CalledByGraph_edge3" class="edge">
 <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"/>
+<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>
 <!-- interface~obl_acc_pl -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node5" class="node">
 <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_pl</text>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
-<g id="interface~~obl_acc_body~~CalledByGraph_edge3" class="edge">
+<g id="interface~~obl_acc_body~~CalledByGraph_edge4" class="edge">
 <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"/>
+<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>
 </g>
 </svg>
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~145"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~184"></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~60"></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/obl_acc_pl.html b/docs/interface/obl_acc_pl.html
index 83e934a73..c9d815211 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~146"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~185"></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~61"></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>
   
diff --git a/docs/interface/obl_acc_tp.html b/docs/interface/obl_acc_tp.html
index cddfe9f92..f7a15e30f 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~147"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~186"></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~67"></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_system.html b/docs/interface/obl_pot_system.html
new file mode 100644
index 000000000..d3c0e564c
--- /dev/null
+++ b/docs/interface/obl_pot_system.html
@@ -0,0 +1,435 @@
+
+<!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>obl_pot_system &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>obl_pot_system
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">obl_pot_system</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~~obl_pot_system~~CallsGraph Pages: 1 -->
+<svg id="interfaceobl_pot_systemCallsGraph" width="328pt" height="32pt"
+ viewBox="0.00 0.00 328.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~obl_pot_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~obl_pot_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 324,-28 324,4 -4,4"/>
+<!-- interface~obl_pot_system -->
+<g id="interface~~obl_pot_system~~CallsGraph_node1" class="node">
+<title>interface~obl_pot_system</title>
+<polygon fill="none" stroke="black" points="88,-24 0,-24 0,0 88,0 88,-24"/>
+<text text-anchor="middle" x="44" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl_pot_system</text>
+</g>
+<!-- proc~obl_pot_system -->
+<g id="interface~~obl_pot_system~~CallsGraph_node2" class="node">
+<title>proc~obl_pot_system</title>
+<g id="a_interface~~obl_pot_system~~CallsGraph_node2"><a xlink:href=".././proc/obl_pot_system.html" xlink:title="obl_pot_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="212,-24 124,-24 124,0 212,0 212,-24"/>
+<text text-anchor="middle" x="168" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_system</text>
+</a>
+</g>
+</g>
+<!-- interface~obl_pot_system&#45;&gt;proc~obl_pot_system -->
+<g id="interface~~obl_pot_system~~CallsGraph_edge1" class="edge">
+<title>interface~obl_pot_system&#45;&gt;proc~obl_pot_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M88.01,-12C96.4,-12 105.28,-12 113.94,-12"/>
+<polygon fill="#000000" stroke="#000000" points="113.96,-15.5 123.96,-12 113.96,-8.5 113.96,-15.5"/>
+</g>
+<!-- proc~obl_pot_one -->
+<g id="interface~~obl_pot_system~~CallsGraph_node3" class="node">
+<title>proc~obl_pot_one</title>
+<g id="a_interface~~obl_pot_system~~CallsGraph_node3"><a xlink:href=".././proc/obl_pot_one.html" xlink:title="obl_pot_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="320,-24 248,-24 248,0 320,0 320,-24"/>
+<text text-anchor="middle" x="284" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_one</text>
+</a>
+</g>
+</g>
+<!-- proc~obl_pot_system&#45;&gt;proc~obl_pot_one -->
+<g id="interface~~obl_pot_system~~CallsGraph_edge2" class="edge">
+<title>proc~obl_pot_system&#45;&gt;proc~obl_pot_one</title>
+<path fill="none" stroke="#000000" d="M212.1,-12C220.53,-12 229.38,-12 237.88,-12"/>
+<polygon fill="#000000" stroke="#000000" points="238,-15.5 248,-12 238,-8.5 238,-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 obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_system.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~187"></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>
+
+</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/operator(.cross.).html b/docs/interface/operator(.cross.).html
index b87fb81aa..1e5be0ec0 100644
--- a/docs/interface/operator(.cross.).html
+++ b/docs/interface/operator(.cross.).html
@@ -134,7 +134,7 @@ <h1>operator(.cross.)
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.2% of total for procedures.</p>Including implementation: 72 statements,  0.2% of total for procedures.">72 statements</a>
+    title="<p> 0.1% of total for procedures.</p>Including implementation: 72 statements,  0.1% of total for procedures.">72 statements</a>
      </li> 
      
      
diff --git a/docs/interface/operator(.mag.).html b/docs/interface/operator(.mag.).html
index 7c18190fd..ceaaaf0f6 100644
--- a/docs/interface/operator(.mag.).html
+++ b/docs/interface/operator(.mag.).html
@@ -134,7 +134,7 @@ <h1>operator(.mag.)
      <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.0% of total for procedures.</p>Including implementation: 32 statements,  0.0% of total for procedures.">32 statements</a>
      </li> 
      
      
diff --git a/docs/interface/orbel_el2xv_vec.html b/docs/interface/orbel_el2xv_vec.html
index 580402398..a8e8c3222 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,247 +220,247 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~orbel_el2xv_vec~~CallsGraph Pages: 1 -->
-<svg id="interfaceorbel_el2xv_vecCallsGraph" width="641pt" height="230pt"
- viewBox="0.00 0.00 641.00 230.36" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~orbel_el2xv_vec~~CallsGraph" class="graph" transform="scale(0.83 0.83) rotate(0) translate(4 272)">
+<svg id="interfaceorbel_el2xv_vecCallsGraph" width="641pt" height="203pt"
+ viewBox="0.00 0.00 641.00 203.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph" class="graph" transform="scale(0.83 0.83) rotate(0) translate(4 239.22)">
 <title>interface~~orbel_el2xv_vec~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272 764,-272 764,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.22 764,-239.22 764,4 -4,4"/>
 <!-- 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,-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>
+<polygon fill="none" stroke="black" points="90,-93.62 0,-93.62 0,-69.62 90,-69.62 90,-93.62"/>
+<text text-anchor="middle" x="45" y="-79.22" 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,-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>
+<polygon fill="#d9534f" stroke="#d9534f" points="216,-93.62 126,-93.62 126,-69.62 216,-69.62 216,-93.62"/>
+<text text-anchor="middle" x="171" y="-79.22" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-81.62C98.28,-81.62 106.96,-81.62 115.44,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="115.66,-85.12 125.66,-81.62 115.66,-78.12 115.66,-85.12"/>
 </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,-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>
+<polygon fill="#d9534f" stroke="#d9534f" points="319,-93.62 252,-93.62 252,-69.62 319,-69.62 319,-93.62"/>
+<text text-anchor="middle" x="285.5" y="-79.22" 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,-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"/>
+<path fill="none" stroke="#000000" d="M216.14,-81.62C224.63,-81.62 233.51,-81.62 241.95,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="241.97,-85.12 251.97,-81.62 241.97,-78.12 241.97,-85.12"/>
 </g>
-<!-- proc~orbel_fhybrid -->
+<!-- interface~orbel_scget -->
 <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,-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>
+<title>interface~orbel_scget</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node4"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="653,-198.62 585,-198.62 585,-174.62 653,-174.62 653,-198.62"/>
+<text text-anchor="middle" x="619" y="-184.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
 <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="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"/>
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M294.15,-93.69C305.7,-111.2 329,-143.91 355,-165.62 399.43,-202.73 412.95,-214.16 469,-228.62 502.14,-237.17 512.96,-237.55 546,-228.62 563.53,-223.88 581.18,-213.69 594.62,-204.54"/>
+<polygon fill="#000000" stroke="#000000" points="596.66,-207.38 602.79,-198.74 592.61,-201.67 596.66,-207.38"/>
 </g>
 <!-- proc~orbel_ehybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node5" class="node">
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-156.62 355,-156.62 355,-132.62 433,-132.62 433,-156.62"/>
+<text text-anchor="middle" x="394" y="-142.22" 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_el2xv_vec~~CallsGraph_edge4" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M307.03,-93.77C323.09,-103.27 345.63,-116.6 363.61,-127.23"/>
+<polygon fill="#000000" stroke="#000000" points="362.14,-130.43 372.53,-132.51 365.7,-124.41 362.14,-130.43"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~orbel_fhybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node6" class="node">
-<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>
+<title>proc~orbel_fhybrid</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node6"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="431.5,-93.62 356.5,-93.62 356.5,-69.62 431.5,-69.62 431.5,-93.62"/>
+<text text-anchor="middle" x="394" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge5" class="edge">
-<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"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
+<path fill="none" stroke="#000000" d="M319.03,-81.62C327.57,-81.62 336.94,-81.62 346.06,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="346.2,-85.12 356.2,-81.62 346.2,-78.12 346.2,-85.12"/>
 </g>
 <!-- proc~orbel_zget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node7" class="node">
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="425.5,-51.62 362.5,-51.62 362.5,-27.62 425.5,-27.62 425.5,-51.62"/>
+<text text-anchor="middle" x="394" y="-37.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge6" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M317.02,-69.59C328.27,-65.15 341.19,-60.05 353.15,-55.34"/>
+<polygon fill="#000000" stroke="#000000" points="354.46,-58.58 362.48,-51.66 351.89,-52.07 354.46,-58.58"/>
 </g>
 <!-- proc~orbel_schget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node8" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="656,-31.62 582,-31.62 582,-7.62 656,-7.62 656,-31.62"/>
+<text text-anchor="middle" x="619" y="-17.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
 <!-- 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_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"/>
+<path fill="none" stroke="#000000" d="M295.02,-69.51C306.57,-54.27 328.81,-28.83 355,-18.62 426.54,9.27 517.57,0.09 571.63,-9.5"/>
+<polygon fill="#000000" stroke="#000000" points="571.13,-12.96 581.6,-11.35 572.41,-6.08 571.13,-12.96"/>
 </g>
-<!-- proc~orbel_flon -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_node10" class="node">
-<title>proc~orbel_flon</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node10"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="537.5,-268 477.5,-268 477.5,-244 537.5,-244 537.5,-268"/>
-<text text-anchor="middle" x="507.5" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
+<!-- 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,-198.62 692,-198.62 692,-174.62 760,-174.62 760,-198.62"/>
+<text text-anchor="middle" x="726" y="-184.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <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="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_node12" class="node">
-<title>proc~orbel_fget</title>
-<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_edge9" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<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"/>
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M653.22,-186.62C662.31,-186.62 672.3,-186.62 681.85,-186.62"/>
+<polygon fill="#000000" stroke="#000000" points="681.99,-190.12 691.99,-186.62 681.99,-183.12 681.99,-190.12"/>
 </g>
 <!-- proc~orbel_esolmd -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node10" class="node">
 <title>proc~orbel_esolmd</title>
-<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>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node10"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="546,-219.62 469,-219.62 469,-195.62 546,-195.62 546,-219.62"/>
+<text text-anchor="middle" x="507.5" y="-205.22" 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_edge10" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M416.35,-156.78C431.13,-165.19 451.24,-176.61 469,-186.62 471.22,-187.87 473.51,-189.16 475.82,-190.46"/>
+<polygon fill="#000000" stroke="#000000" points="474.24,-193.59 484.68,-195.43 477.67,-187.48 474.24,-193.59"/>
 </g>
 <!-- proc~orbel_eget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node11" class="node">
 <title>proc~orbel_eget</title>
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="539.5,-177.62 475.5,-177.62 475.5,-153.62 539.5,-153.62 539.5,-177.62"/>
+<text text-anchor="middle" x="507.5" y="-163.22" 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_edge12" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge11" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M433.06,-151.79C443.48,-153.75 454.82,-155.89 465.41,-157.88"/>
+<polygon fill="#000000" stroke="#000000" points="464.79,-161.33 475.27,-159.74 466.09,-154.45 464.79,-161.33"/>
 </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,-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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="539,-135.62 476,-135.62 476,-111.62 539,-111.62 539,-135.62"/>
+<text text-anchor="middle" x="507.5" y="-121.22" 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">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge9" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M433.06,-137.45C443.67,-135.45 455.24,-133.28 465.99,-131.25"/>
+<polygon fill="#000000" stroke="#000000" points="466.81,-134.66 475.99,-129.37 465.51,-127.78 466.81,-134.66"/>
 </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>
+<!-- proc~orbel_flon -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
+<title>proc~orbel_flon</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node9"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="537.5,-93.62 477.5,-93.62 477.5,-69.62 537.5,-69.62 537.5,-93.62"/>
+<text text-anchor="middle" x="507.5" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</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"/>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge12" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
+<path fill="none" stroke="#000000" d="M431.51,-81.62C442.89,-81.62 455.49,-81.62 467.06,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="467.33,-85.12 477.33,-81.62 467.33,-78.12 467.33,-85.12"/>
 </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"/>
+<!-- proc~orbel_fget -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node12" class="node">
+<title>proc~orbel_fget</title>
+<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,-51.62 477,-51.62 477,-27.62 538,-27.62 538,-51.62"/>
+<text text-anchor="middle" x="507.5" y="-37.22" 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_edge13" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M426.95,-69.59C439.46,-64.87 453.95,-59.42 467.1,-54.46"/>
+<polygon fill="#000000" stroke="#000000" points="468.71,-57.6 476.84,-50.79 466.25,-51.04 468.71,-57.6"/>
 </g>
 <!-- 3 -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node15" class="node">
 <title>3</title>
-<polygon fill="#777777" stroke="#777777" points="646,-268 592,-268 592,-244 646,-244 646,-268"/>
-<text text-anchor="middle" x="619" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
+<polygon fill="#777777" stroke="#777777" points="646,-93.62 592,-93.62 592,-69.62 646,-69.62 646,-93.62"/>
+<text text-anchor="middle" x="619" y="-79.22" 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_edge15" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge14" 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"/>
+<path fill="none" stroke="#000000" d="M537.56,-81.62C551.12,-81.62 567.4,-81.62 581.76,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="581.81,-85.12 591.81,-81.62 581.81,-78.12 581.81,-85.12"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge15" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M546.18,-200.39C555.36,-198.63 565.25,-196.74 574.67,-194.93"/>
+<polygon fill="#000000" stroke="#000000" points="575.48,-198.34 584.64,-193.02 574.16,-191.46 575.48,-198.34"/>
 </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"/>
+<path fill="none" stroke="#000000" d="M539.59,-171.58C550.54,-173.68 563.06,-176.08 574.83,-178.34"/>
+<polygon fill="#000000" stroke="#000000" points="574.44,-181.83 584.92,-180.28 575.76,-174.96 574.44,-181.83"/>
 </g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
 <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"/>
+<path fill="none" stroke="#000000" d="M538.13,-34.21C548.52,-32.31 560.44,-30.13 571.86,-28.05"/>
+<polygon fill="#000000" stroke="#000000" points="572.49,-31.49 581.7,-26.25 571.24,-24.6 572.49,-31.49"/>
 </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="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"/>
+<path fill="none" stroke="#000000" d="M530.35,-135.77C535.49,-138.66 540.95,-141.73 546,-144.62 560.05,-152.65 575.57,-161.69 588.59,-169.31"/>
+<polygon fill="#000000" stroke="#000000" points="587.18,-172.54 597.57,-174.58 590.72,-166.5 587.18,-172.54"/>
 </g>
 </g>
 </svg>
@@ -562,7 +562,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~148"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~188"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -577,7 +577,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~13"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~12"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/orbel_scget.html b/docs/interface/orbel_scget.html
index cb194b313..c66a1bef6 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -363,51 +363,51 @@ <h3 class="panel-title">Called by</h3>
 <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_node4" class="node">
-<title>proc~drift_kepu_guess</title>
-<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_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">
+<g id="interface~~orbel_scget~~CalledByGraph_node4" 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">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node4"><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">
+<g id="interface~~orbel_scget~~CalledByGraph_edge3" 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">
+<g id="interface~~orbel_scget~~CalledByGraph_node7" 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">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node7"><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">
+<g id="interface~~orbel_scget~~CalledByGraph_edge11" 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~drift_kepu_guess -->
+<g id="interface~~orbel_scget~~CalledByGraph_node5" 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">
+<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">
+<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_ehie -->
 <g id="interface~~orbel_scget~~CalledByGraph_node6" class="node">
 <title>proc~orbel_ehie</title>
@@ -423,84 +423,84 @@ <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_ehybrid&#45;&gt;proc~orbel_esolmd -->
+<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_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"/>
+</g>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
+<g id="interface~~orbel_scget~~CalledByGraph_edge10" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
+<path fill="none" stroke="#000000" d="M415.15,-104.92C429.89,-96.25 450.45,-84.47 469,-75 472.06,-73.44 475.27,-71.86 478.5,-70.31"/>
+<polygon fill="#000000" stroke="#000000" points="480.01,-73.47 487.57,-66.05 477.03,-67.13 480.01,-73.47"/>
+</g>
 <!-- proc~drift_kepu -->
-<g id="interface~~orbel_scget~~CalledByGraph_node7" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node8" class="node">
 <title>proc~drift_kepu</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node7"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<g id="a_interface~~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="interface~~orbel_scget~~CalledByGraph_edge8" class="edge">
+<g id="interface~~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="interface~~orbel_scget~~CalledByGraph_node8" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node9" 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">
+<g id="a_interface~~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="interface~~orbel_scget~~CalledByGraph_edge9" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge8" 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_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"/>
+<!-- proc~drift_dan -->
+<g id="interface~~orbel_scget~~CalledByGraph_node10" class="node">
+<title>proc~drift_dan</title>
+<g id="a_interface~~orbel_scget~~CalledByGraph_node10"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
+<polygon fill="#d9534f" stroke="#d9534f" points="313,-24 258,-24 258,0 313,0 313,-24"/>
+<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
+</a>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<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"/>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge10" class="edge">
-<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M415.15,-104.92C429.89,-96.25 450.45,-84.47 469,-75 472.06,-73.44 475.27,-71.86 478.5,-70.31"/>
-<polygon fill="#000000" stroke="#000000" points="480.01,-73.47 487.57,-66.05 477.03,-67.13 480.01,-73.47"/>
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
+<g id="interface~~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"/>
 </g>
 <!-- interface~orbel_el2xv_vec -->
-<g id="interface~~orbel_scget~~CalledByGraph_node10" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node11" class="node">
 <title>interface~orbel_el2xv_vec</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node10"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node11"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
 <polygon fill="#a7506f" stroke="#a7506f" points="90,-149 0,-149 0,-125 90,-125 90,-149"/>
 <text text-anchor="middle" x="45" y="-134.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_scget~~CalledByGraph_edge12" class="edge">
+<g id="interface~~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"/>
 </g>
-<!-- proc~drift_dan -->
-<g id="interface~~orbel_scget~~CalledByGraph_node11" class="node">
-<title>proc~drift_dan</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node11"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
-<polygon fill="#d9534f" stroke="#d9534f" points="313,-24 258,-24 258,0 313,0 313,-24"/>
-<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
-</a>
-</g>
-</g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
-<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"/>
-</g>
 </g>
 </svg>
 </div><script>var paninterfaceorbel_scgetCalledByGraph = svgPanZoom('#interfaceorbel_scgetCalledByGraph', {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/orbel_xv2aeq.html b/docs/interface/orbel_xv2aeq.html
index c30535f18..d2140b14c 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -477,7 +477,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~21"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~16"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~12"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~6"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/orbel_xv2aqt.html b/docs/interface/orbel_xv2aqt.html
index 6f20df739..83bdbb027 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~22"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~17"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~13"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~7"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/obl_pot.html b/docs/interface/orbel_xv2el.html
similarity index 73%
rename from docs/interface/obl_pot.html
rename to docs/interface/orbel_xv2el.html
index 5af043106..688004bf0 100644
--- a/docs/interface/obl_pot.html
+++ b/docs/interface/orbel_xv2el.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>obl_pot &ndash; swiftest</title>
+    <title>orbel_xv2el &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>obl_pot
+    <h1>orbel_xv2el
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>obl_pot
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">obl_pot</li>
+     <li class="active">orbel_xv2el</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~~obl_pot~~CallsGraph Pages: 1 -->
-<svg id="interfaceobl_potCallsGraph" width="152pt" height="32pt"
- viewBox="0.00 0.00 152.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~obl_pot~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~obl_pot~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 148,-28 148,4 -4,4"/>
-<!-- interface~obl_pot -->
-<g id="interface~~obl_pot~~CallsGraph_node1" class="node">
-<title>interface~obl_pot</title>
-<polygon fill="none" stroke="black" points="54,-24 0,-24 0,0 54,0 54,-24"/>
-<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl_pot</text>
+<!-- Title: interface~~orbel_xv2el~~CallsGraph Pages: 1 -->
+<svg id="interfaceorbel_xv2elCallsGraph" width="178pt" height="32pt"
+ viewBox="0.00 0.00 178.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~orbel_xv2el~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~orbel_xv2el~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 174,-28 174,4 -4,4"/>
+<!-- interface~orbel_xv2el -->
+<g id="interface~~orbel_xv2el~~CallsGraph_node1" class="node">
+<title>interface~orbel_xv2el</title>
+<polygon fill="none" stroke="black" 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">orbel_xv2el</text>
 </g>
-<!-- proc~obl_pot -->
-<g id="interface~~obl_pot~~CallsGraph_node2" class="node">
-<title>proc~obl_pot</title>
-<g id="a_interface~~obl_pot~~CallsGraph_node2"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
-<polygon fill="#d9534f" stroke="#d9534f" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
+<!-- proc~orbel_xv2el -->
+<g id="interface~~orbel_xv2el~~CallsGraph_node2" class="node">
+<title>proc~orbel_xv2el</title>
+<g id="a_interface~~orbel_xv2el~~CallsGraph_node2"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="170,-24 103,-24 103,0 170,0 170,-24"/>
+<text text-anchor="middle" x="136.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
-<g id="interface~~obl_pot~~CallsGraph_edge1" class="edge">
-<title>interface~obl_pot&#45;&gt;proc~obl_pot</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"/>
+<!-- interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el -->
+<g id="interface~~orbel_xv2el~~CallsGraph_edge1" class="edge">
+<title>interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M67.01,-12C75.13,-12 83.96,-12 92.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="92.7,-15.5 102.7,-12 92.7,-8.5 92.7,-15.5"/>
 </g>
 </g>
 </svg>
@@ -321,47 +321,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~~obl_pot~~CalledByGraph Pages: 1 -->
-<svg id="interfaceobl_potCalledByGraph" width="506pt" height="32pt"
- viewBox="0.00 0.00 506.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~obl_pot~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~obl_pot~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 502,-28 502,4 -4,4"/>
-<!-- interface~obl_pot -->
-<g id="interface~~obl_pot~~CalledByGraph_node1" class="node">
-<title>interface~obl_pot</title>
-<polygon fill="none" stroke="black" 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">obl_pot</text>
+<!-- Title: interface~~orbel_xv2el~~CalledByGraph Pages: 1 -->
+<svg id="interfaceorbel_xv2elCalledByGraph" width="327pt" height="32pt"
+ viewBox="0.00 0.00 327.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~orbel_xv2el~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~orbel_xv2el~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 323,-28 323,4 -4,4"/>
+<!-- interface~orbel_xv2el -->
+<g id="interface~~orbel_xv2el~~CalledByGraph_node1" class="node">
+<title>interface~orbel_xv2el</title>
+<polygon fill="none" stroke="black" points="319,-24 252,-24 252,0 319,0 319,-24"/>
+<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_xv2el</text>
 </g>
-<!-- proc~util_get_energy_momentum_system -->
-<g id="interface~~obl_pot~~CalledByGraph_node2" class="node">
-<title>proc~util_get_energy_momentum_system</title>
-<g id="a_interface~~obl_pot~~CalledByGraph_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>
+<!-- proc~orbel_xv2el_vec -->
+<g id="interface~~orbel_xv2el~~CalledByGraph_node2" class="node">
+<title>proc~orbel_xv2el_vec</title>
+<g id="a_interface~~orbel_xv2el~~CalledByGraph_node2"><a xlink:href=".././proc/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="216,-24 126,-24 126,0 216,0 216,-24"/>
+<text text-anchor="middle" x="171" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
 </a>
 </g>
 </g>
-<!-- proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot -->
-<g id="interface~~obl_pot~~CalledByGraph_edge1" 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"/>
+<!-- proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el -->
+<g id="interface~~orbel_xv2el~~CalledByGraph_edge1" class="edge">
+<title>proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el</title>
+<path fill="none" stroke="#000000" d="M216.14,-12C224.63,-12 233.51,-12 241.95,-12"/>
+<polygon fill="#000000" stroke="#000000" points="241.97,-15.5 251.97,-12 241.97,-8.5 241.97,-15.5"/>
 </g>
-<!-- interface~util_get_energy_momentum_system -->
-<g id="interface~~obl_pot~~CalledByGraph_node3" class="node">
-<title>interface~util_get_energy_momentum_system</title>
-<g id="a_interface~~obl_pot~~CalledByGraph_node3"><a xlink:href=".././interface/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
-<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_get_energy_momentum_system</text>
+<!-- interface~orbel_xv2el_vec -->
+<g id="interface~~orbel_xv2el~~CalledByGraph_node3" class="node">
+<title>interface~orbel_xv2el_vec</title>
+<g id="a_interface~~orbel_xv2el~~CalledByGraph_node3"><a xlink:href=".././interface/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<polygon fill="#a7506f" stroke="#a7506f" points="90,-24 0,-24 0,0 90,0 90,-24"/>
+<text text-anchor="middle" x="45" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
 </a>
 </g>
 </g>
-<!-- interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system -->
-<g id="interface~~obl_pot~~CalledByGraph_edge2" 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"/>
+<!-- interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec -->
+<g id="interface~~orbel_xv2el~~CalledByGraph_edge2" class="edge">
+<title>interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-12C98.28,-12 106.96,-12 115.44,-12"/>
+<polygon fill="#000000" stroke="#000000" points="115.66,-15.5 125.66,-12 115.66,-8.5 115.66,-15.5"/>
 </g>
 </g>
 </svg>
@@ -431,11 +431,11 @@ <h3 class="panel-title">Called by</h3>
     <br>
     
       <h2>
-public module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot)
+public pure module subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
     
     
    
-   <a href='../proc/obl_pot.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -462,12 +462,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-npl~4"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-mu~19"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>npl</strong></td><td></td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
   
 </tr>
 
@@ -477,12 +477,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mcb~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-x~18"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>Mcb</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector</p></td>
   
 </tr>
 
@@ -492,12 +492,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mpl"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~8"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>Mpl</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Velocity vector</p></td>
   
 </tr>
 
@@ -507,12 +507,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-j2rp2~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-a~6"></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>j2rp2</strong></td><td></td>
+  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
   
 </tr>
 
@@ -522,12 +522,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-j4rp4~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-e~11"></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>j4rp4</strong></td><td></td>
+  <td><strong>e</strong></td><td><p>eccentricity</p></td>
   
 </tr>
 
@@ -537,12 +537,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh~4"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-inc~4"></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:, :)</td><td>::</td>
-  <td><strong>xh</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>inc</strong></td><td><p>inclination</p></td>
   
 </tr>
 
@@ -552,12 +552,27 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irh"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-capom~4"></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>irh</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>capom</strong></td><td><p>longitude of ascending node</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-omega~4"></span>real(kind=DP),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>omega</strong></td><td><p>argument of periapsis</p></td>
   
 </tr>
 
@@ -567,12 +582,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-capm~5"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>oblpot</strong></td><td></td>
+  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
   
 </tr>
 
diff --git a/docs/interface/orbel_xv2el_vec.html b/docs/interface/orbel_xv2el_vec.html
index 329426dfa..e3fff4b71 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~orbel_xv2el_vec~~CallsGraph Pages: 1 -->
-<svg id="interfaceorbel_xv2el_vecCallsGraph" width="327pt" height="32pt"
- viewBox="0.00 0.00 327.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfaceorbel_xv2el_vecCallsGraph" width="430pt" height="32pt"
+ viewBox="0.00 0.00 430.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~orbel_xv2el_vec~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~orbel_xv2el_vec~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 323,-28 323,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 426,-28 426,4 -4,4"/>
 <!-- interface~orbel_xv2el_vec -->
 <g id="interface~~orbel_xv2el_vec~~CallsGraph_node1" class="node">
 <title>interface~orbel_xv2el_vec</title>
@@ -246,21 +246,36 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-12C98.28,-12 106.96,-12 115.44,-12"/>
 <polygon fill="#000000" stroke="#000000" points="115.66,-15.5 125.66,-12 115.66,-8.5 115.66,-15.5"/>
 </g>
-<!-- proc~orbel_xv2el -->
+<!-- interface~orbel_xv2el -->
 <g id="interface~~orbel_xv2el_vec~~CallsGraph_node3" class="node">
-<title>proc~orbel_xv2el</title>
-<g id="a_interface~~orbel_xv2el_vec~~CallsGraph_node3"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
-<polygon fill="#d9534f" stroke="#d9534f" points="319,-24 252,-24 252,0 319,0 319,-24"/>
+<title>interface~orbel_xv2el</title>
+<g id="a_interface~~orbel_xv2el_vec~~CallsGraph_node3"><a xlink:href=".././interface/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#a7506f" stroke="#a7506f" points="319,-24 252,-24 252,0 319,0 319,-24"/>
 <text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el -->
+<!-- proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el -->
 <g id="interface~~orbel_xv2el_vec~~CallsGraph_edge2" class="edge">
-<title>proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el</title>
+<title>proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el</title>
 <path fill="none" stroke="#000000" d="M216.14,-12C224.63,-12 233.51,-12 241.95,-12"/>
 <polygon fill="#000000" stroke="#000000" points="241.97,-15.5 251.97,-12 241.97,-8.5 241.97,-15.5"/>
 </g>
+<!-- proc~orbel_xv2el -->
+<g id="interface~~orbel_xv2el_vec~~CallsGraph_node4" class="node">
+<title>proc~orbel_xv2el</title>
+<g id="a_interface~~orbel_xv2el_vec~~CallsGraph_node4"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="422,-24 355,-24 355,0 422,0 422,-24"/>
+<text text-anchor="middle" x="388.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el -->
+<g id="interface~~orbel_xv2el_vec~~CallsGraph_edge3" class="edge">
+<title>interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.01,-12C327.13,-12 335.96,-12 344.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="344.7,-15.5 354.7,-12 344.7,-8.5 344.7,-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">
@@ -361,7 +376,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~189"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~14"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~13"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 38cf69c03..0e7a24039 100644
--- a/docs/interface/rmvs_chk_ind.html
+++ b/docs/interface/rmvs_chk_ind.html
@@ -136,7 +136,7 @@ <h1>rmvs_chk_ind
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -363,25 +363,10 @@ <h3 class="panel-title">Called by</h3>
 <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,-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_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,-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">
+<g id="interface~~rmvs_chk_ind~~CalledByGraph_node4" 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">
+<g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node4"><a xlink:href=".././interface/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
 <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>
@@ -393,6 +378,21 @@ <h3 class="panel-title">Called by</h3>
 <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>
+<!-- interface~rmvs_encounter_check_tp -->
+<g id="interface~~rmvs_chk_ind~~CalledByGraph_node5" class="node">
+<title>interface~rmvs_encounter_check_tp</title>
+<g id="a_interface~~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,-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_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,-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>
 </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">
@@ -537,7 +537,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~17"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~18"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_discard_tp.html b/docs/interface/rmvs_discard_tp.html
index e163d49bb..8cd0ca703 100644
--- a/docs/interface/rmvs_discard_tp.html
+++ b/docs/interface/rmvs_discard_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_discard_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~12"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~10"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</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~17"></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 aa055f12b..7dd36cec1 100644
--- a/docs/interface/rmvs_encounter_check_tp.html
+++ b/docs/interface/rmvs_encounter_check_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_encounter_check_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~11"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~9"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~18"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~19"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -425,7 +425,7 @@ <h3>Arguments</h3>
     
     
     
-      <h3>Return Value <span class="anchor" id="variable-lencounter~2"></span><small>logical
+      <h3>Return Value <span class="anchor" id="variable-lencounter~3"></span><small>logical
   </small></h3>
     <p>Returns true if there is at least one close encounter      </p>
     
diff --git a/docs/interface/rmvs_io_write_encounter.html b/docs/interface/rmvs_io_write_encounter.html
new file mode 100644
index 000000000..4e3f28ede
--- /dev/null
+++ b/docs/interface/rmvs_io_write_encounter.html
@@ -0,0 +1,609 @@
+
+<!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>rmvs_io_write_encounter &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>rmvs_io_write_encounter
+   <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.2% of total for procedures.">141 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/rmvs_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/rmvs_classes.f90.html'>rmvs_classes.f90</a></li>
+    
+     <li><a href='../module/rmvs_classes.html'>rmvs_classes</a></li>
+    
+  
+     <li class="active">rmvs_io_write_encounter</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~~rmvs_io_write_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacermvs_io_write_encounterCallsGraph" width="483pt" height="74pt"
+ viewBox="0.00 0.00 483.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~rmvs_io_write_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 479,-70 479,4 -4,4"/>
+<!-- interface~rmvs_io_write_encounter -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_node1" class="node">
+<title>interface~rmvs_io_write_encounter</title>
+<polygon fill="none" stroke="black" points="133,-45 0,-45 0,-21 133,-21 133,-45"/>
+<text text-anchor="middle" x="66.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_io_write_encounter</text>
+</g>
+<!-- proc~rmvs_io_write_encounter -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_node2" class="node">
+<title>proc~rmvs_io_write_encounter</title>
+<g id="a_interface~~rmvs_io_write_encounter~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_io_write_encounter.html" xlink:title="rmvs_io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="302,-45 169,-45 169,-21 302,-21 302,-45"/>
+<text text-anchor="middle" x="235.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io_write_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~rmvs_io_write_encounter&#45;&gt;proc~rmvs_io_write_encounter -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~rmvs_io_write_encounter&#45;&gt;proc~rmvs_io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-33C141.5,-33 150.23,-33 158.85,-33"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-36.5 168.89,-33 158.89,-29.5 158.89,-36.5"/>
+</g>
+<!-- util_exit -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_node3" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="433.5,-66 379.5,-66 379.5,-42 433.5,-42 433.5,-66"/>
+<text text-anchor="middle" x="406.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~rmvs_io_write_encounter&#45;&gt;util_exit -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_io_write_encounter&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M302.32,-41.18C325.11,-44.01 349.8,-47.08 369.31,-49.5"/>
+<polygon fill="#000000" stroke="#000000" points="368.93,-52.98 379.29,-50.74 369.8,-46.04 368.93,-52.98"/>
+</g>
+<!-- io_write_frame_encounter -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_node4" class="node">
+<title>io_write_frame_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="475,-24 338,-24 338,0 475,0 475,-24"/>
+<text text-anchor="middle" x="406.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
+</g>
+<!-- proc~rmvs_io_write_encounter&#45;&gt;io_write_frame_encounter -->
+<g id="interface~~rmvs_io_write_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~rmvs_io_write_encounter&#45;&gt;io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" d="M302.32,-24.82C310.72,-23.78 319.37,-22.7 327.93,-21.64"/>
+<polygon fill="#000000" stroke="#000000" points="328.41,-25.11 337.91,-20.4 327.55,-18.16 328.41,-25.11"/>
+</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 rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out)
+    
+    
+   
+   <a href='../proc/rmvs_io_write_encounter.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-t~13"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id1~3"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>id1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2~3"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>id2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass1~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass2~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius1~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>radius1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius2~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>radius2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh1~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh2~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh1~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh2~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-enc_out~3"></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>enc_out</strong></td><td></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/rmvs_kick_getacch_tp.html b/docs/interface/rmvs_kick_getacch_tp.html
index 86987ef6a..9f5bd37d9 100644
--- a/docs/interface/rmvs_kick_getacch_tp.html
+++ b/docs/interface/rmvs_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_kick_getacch_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~13"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~11"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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~18"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~13"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~14"></span>real(kind=DP),</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 2dc8b3520..ef9203301 100644
--- a/docs/interface/rmvs_setup_initialize_system.html
+++ b/docs/interface/rmvs_setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>rmvs_setup_initialize_system
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~15"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~13"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,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~20"></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 2c9c1e540..fd37e3488 100644
--- a/docs/interface/rmvs_setup_pl.html
+++ b/docs/interface/rmvs_setup_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_setup_pl
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~14"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~12"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,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~19"></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 d28355a65..4f7f1fb80 100644
--- a/docs/interface/rmvs_setup_tp.html
+++ b/docs/interface/rmvs_setup_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_setup_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~16"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~14"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,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~21"></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 d28d6a4b7..8c47add24 100644
--- a/docs/interface/rmvs_step_system.html
+++ b/docs/interface/rmvs_step_system.html
@@ -136,7 +136,7 @@ <h1>rmvs_step_system
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -228,182 +228,182 @@ <h3 class="panel-title">Calls</h3>
 <!-- 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,-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>
+<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>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
-<!-- whm_step_system -->
+<!-- proc~rmvs_step_out -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node3" class="node">
-<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>
+<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>
-<!-- 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_edge2" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
-<!-- proc~rmvs_step_out -->
+<!-- whm_step_system -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node5" class="node">
-<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>
+<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>
 </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_edge4" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- util_exit -->
+<!-- proc~rmvs_step_in -->
 <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>
+<title>proc~rmvs_step_in</title>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node6"><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>
+</a>
 </g>
-<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
+</g>
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
 <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"/>
+<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>
 <!-- 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_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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
 <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,-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"/>
+<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"/>
 </g>
-<!-- proc~rmvs_step_in -->
+<!-- util_exit -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node8" class="node">
-<title>proc~rmvs_step_in</title>
-<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>
+<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_step_out&#45;&gt;proc~rmvs_step_in -->
+<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge7" class="edge">
-<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,-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"/>
+<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"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_peri_tp -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node9" class="node">
-<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>
+<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,-189 572,-189 572,-165 647,-165 647,-189"/>
+<text text-anchor="middle" x="609.5" y="-174.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_make_planetocentric -->
-<g id="interface~~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="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"/>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<g id="interface~~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="M496.34,-145.49C516.27,-151.09 540.99,-158.03 562.15,-163.98"/>
+<polygon fill="#000000" stroke="#000000" points="561.32,-167.38 571.89,-166.72 563.21,-160.64 561.32,-167.38"/>
 </g>
 <!-- proc~rmvs_end_planetocentric -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node10" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="676,-147 543,-147 543,-123 676,-123 676,-147"/>
+<text text-anchor="middle" x="609.5" y="-132.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_end_planetocentric -->
-<g id="interface~~rmvs_step_system~~CallsGraph_edge10" class="edge">
+<g id="interface~~rmvs_step_system~~CallsGraph_edge9" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M496.34,-135C507.46,-135 520.08,-135 532.73,-135"/>
+<polygon fill="#000000" stroke="#000000" points="532.85,-138.5 542.85,-135 532.85,-131.5 532.85,-138.5"/>
 </g>
-<!-- proc~rmvs_peri_tp -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node11" class="node">
-<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>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node11"><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>
 </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_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"/>
+</g>
+<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge11" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node12" class="node">
-<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>
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="770,-210 716,-210 716,-186 770,-186 770,-210"/>
+<text text-anchor="middle" x="743" y="-195.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_edge12" class="edge">
-<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"/>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M647.13,-182.85C665.51,-185.79 687.7,-189.33 705.99,-192.25"/>
+<polygon fill="#000000" stroke="#000000" points="705.55,-195.72 715.98,-193.84 706.66,-188.81 705.55,-195.72"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node13" class="node">
-<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>
+<title>vpc</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">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge13" class="edge">
-<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"/>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M647.13,-171.15C665.51,-168.21 687.7,-164.67 705.99,-161.75"/>
+<polygon fill="#000000" stroke="#000000" points="706.66,-165.19 715.98,-160.16 705.55,-158.28 706.66,-165.19"/>
 </g>
 </g>
 </svg>
@@ -505,7 +505,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~29"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~27"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -520,7 +520,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~22"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -535,7 +535,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~14"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~15"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -550,7 +550,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~19"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~20"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_append_pl.html b/docs/interface/rmvs_util_append_pl.html
index 0efe3efa7..6166fbd5c 100644
--- a/docs/interface/rmvs_util_append_pl.html
+++ b/docs/interface/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.3% of total for procedures.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -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_exit -->
-<g id="interface~~rmvs_util_append_pl~~CallsGraph_node3" class="node">
-<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_exit -->
-<g id="interface~~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="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_append -->
-<g id="interface~~rmvs_util_append_pl~~CallsGraph_node4" class="node">
+<g id="interface~~rmvs_util_append_pl~~CallsGraph_node3" class="node">
 <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>
+<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>
 </g>
 <!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
-<g id="interface~~rmvs_util_append_pl~~CallsGraph_edge3" class="edge">
+<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="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"/>
+<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"/>
 </g>
 <!-- whm_util_append_pl -->
-<g id="interface~~rmvs_util_append_pl~~CallsGraph_node5" class="node">
+<g id="interface~~rmvs_util_append_pl~~CallsGraph_node4" class="node">
 <title>whm_util_append_pl</title>
-<polygon fill="#777777" stroke="#777777" points="407,-24 296,-24 296,0 407,0 407,-24"/>
-<text text-anchor="middle" x="351.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
+<polygon fill="#777777" stroke="#777777" points="407,-66 296,-66 296,-42 407,-42 407,-66"/>
+<text text-anchor="middle" x="351.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </g>
 <!-- proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl -->
-<g id="interface~~rmvs_util_append_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~rmvs_util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl</title>
-<path fill="none" stroke="#000000" d="M246.69,-41.96C262.98,-37.26 281.82,-31.82 298.95,-26.88"/>
-<polygon fill="#000000" stroke="#000000" points="300.16,-30.17 308.8,-24.04 298.22,-23.45 300.16,-30.17"/>
+<path fill="none" stroke="#000000" d="M260.01,-54C268.45,-54 277.24,-54 285.87,-54"/>
+<polygon fill="#000000" stroke="#000000" points="285.9,-57.5 295.9,-54 285.9,-50.5 285.9,-57.5"/>
+</g>
+<!-- util_exit -->
+<g id="interface~~rmvs_util_append_pl~~CallsGraph_node5" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="378.5,-24 324.5,-24 324.5,0 378.5,0 378.5,-24"/>
+<text text-anchor="middle" x="351.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
+<g id="interface~~rmvs_util_append_pl~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M246.69,-41.96C268.2,-35.76 294.16,-28.26 314.74,-22.32"/>
+<polygon fill="#000000" stroke="#000000" points="315.73,-25.68 324.37,-19.54 313.79,-18.95 315.73,-25.68"/>
 </g>
 </g>
 </svg>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~17"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~15"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_append_tp.html b/docs/interface/rmvs_util_append_tp.html
index 70b1a8abf..e02ad5e97 100644
--- a/docs/interface/rmvs_util_append_tp.html
+++ b/docs/interface/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.3% of total for procedures.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -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_exit -->
-<g id="interface~~rmvs_util_append_tp~~CallsGraph_node3" class="node">
-<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_exit -->
-<g id="interface~~rmvs_util_append_tp~~CallsGraph_edge2" class="edge">
-<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 -->
-<g id="interface~~rmvs_util_append_tp~~CallsGraph_node4" class="node">
+<g id="interface~~rmvs_util_append_tp~~CallsGraph_node3" class="node">
 <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>
+<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>
 </g>
 <!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
-<g id="interface~~rmvs_util_append_tp~~CallsGraph_edge3" class="edge">
+<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="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"/>
+<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"/>
 </g>
 <!-- util_append_tp -->
-<g id="interface~~rmvs_util_append_tp~~CallsGraph_node5" class="node">
+<g id="interface~~rmvs_util_append_tp~~CallsGraph_node4" class="node">
 <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>
+<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>
 </g>
 <!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
-<g id="interface~~rmvs_util_append_tp~~CallsGraph_edge4" class="edge">
+<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="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"/>
+<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"/>
+</g>
+<!-- util_exit -->
+<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>
+</g>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
+<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"/>
 </g>
 </g>
 </svg>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~18"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~16"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_fill_pl.html b/docs/interface/rmvs_util_fill_pl.html
index 0acbe25a8..8a6ebd2b0 100644
--- a/docs/interface/rmvs_util_fill_pl.html
+++ b/docs/interface/rmvs_util_fill_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_fill_pl
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -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_exit -->
+<!-- whm_util_fill_pl -->
 <g id="interface~~rmvs_util_fill_pl~~CallsGraph_node3" class="node">
-<title>util_exit</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_exit</text>
+<title>whm_util_fill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="327,-108 242,-108 242,-84 327,-84 327,-108"/>
+<text text-anchor="middle" x="284.5" y="-93.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;util_exit -->
+<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
 <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="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"/>
+<title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M198.6,-66.04C211.42,-70.56 226.18,-75.77 239.76,-80.56"/>
+<polygon fill="#000000" stroke="#000000" points="238.8,-83.93 249.39,-83.96 241.13,-77.33 238.8,-83.93"/>
 </g>
-<!-- whm_util_fill_pl -->
+<!-- util_fill -->
 <g id="interface~~rmvs_util_fill_pl~~CallsGraph_node4" class="node">
-<title>whm_util_fill_pl</title>
-<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>
+<title>util_fill</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_fill</text>
 </g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
+<!-- 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;whm_util_fill_pl</title>
-<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"/>
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</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"/>
 </g>
-<!-- util_fill -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_fill_pl~~CallsGraph_node5" class="node">
-<title>util_fill</title>
+<title>util_exit</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>
+<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>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_fill_pl~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</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>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~19"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~17"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_fill_tp.html b/docs/interface/rmvs_util_fill_tp.html
index 7620063e0..0faa7a1ad 100644
--- a/docs/interface/rmvs_util_fill_tp.html
+++ b/docs/interface/rmvs_util_fill_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_fill_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -246,39 +246,39 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M86.31,-54C94.46,-54 103.1,-54 111.53,-54"/>
 <polygon fill="#000000" stroke="#000000" points="111.67,-57.5 121.67,-54 111.67,-50.5 111.67,-57.5"/>
 </g>
-<!-- util_fill_tp -->
+<!-- util_fill -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_node3" class="node">
-<title>util_fill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="301,-108 244,-108 244,-84 301,-84 301,-108"/>
-<text text-anchor="middle" x="272.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="299.5,-108 245.5,-108 245.5,-84 299.5,-84 299.5,-108"/>
+<text text-anchor="middle" x="272.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
-<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"/>
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M196.23,-66.04C208.56,-70.94 222.9,-76.65 235.74,-81.76"/>
+<polygon fill="#000000" stroke="#000000" points="234.62,-85.09 245.21,-85.53 237.21,-78.58 234.62,-85.09"/>
 </g>
-<!-- util_exit -->
+<!-- util_fill_tp -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_node4" class="node">
-<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_exit</text>
+<title>util_fill_tp</title>
+<polygon fill="#777777" stroke="#777777" points="301,-66 244,-66 244,-42 301,-42 301,-66"/>
+<text text-anchor="middle" x="272.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
 <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"/>
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
+<path fill="none" stroke="#000000" d="M208.3,-54C216.69,-54 225.44,-54 233.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="233.73,-57.5 243.73,-54 233.73,-50.5 233.73,-57.5"/>
 </g>
-<!-- util_fill -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_node5" class="node">
-<title>util_fill</title>
+<title>util_exit</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_fill</text>
+<text text-anchor="middle" x="272.5" y="-9.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 -->
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</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>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~20"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~18"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_resize_pl.html b/docs/interface/rmvs_util_resize_pl.html
index b63b84e6a..4a62cb46a 100644
--- a/docs/interface/rmvs_util_resize_pl.html
+++ b/docs/interface/rmvs_util_resize_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_resize_pl
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -246,29 +246,29 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M104.39,-33C112.56,-33 121.08,-33 129.46,-33"/>
 <polygon fill="#000000" stroke="#000000" points="129.57,-36.5 139.57,-33 129.57,-29.5 129.57,-36.5"/>
 </g>
-<!-- whm_util_resize_pl -->
+<!-- util_resize -->
 <g id="interface~~rmvs_util_resize_pl~~CallsGraph_node3" class="node">
-<title>whm_util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="383,-66 280,-66 280,-42 383,-42 383,-66"/>
-<text text-anchor="middle" x="331.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="362,-66 301,-66 301,-42 362,-42 362,-66"/>
+<text text-anchor="middle" x="331.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
+<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
 <g id="interface~~rmvs_util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M244.2,-40.82C252.54,-42.09 261.25,-43.42 269.8,-44.73"/>
-<polygon fill="#000000" stroke="#000000" points="269.3,-48.19 279.72,-46.24 270.36,-41.27 269.3,-48.19"/>
+<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M244.2,-40.82C259.56,-43.17 276.17,-45.7 290.68,-47.92"/>
+<polygon fill="#000000" stroke="#000000" points="290.41,-51.42 300.83,-49.47 291.47,-44.5 290.41,-51.42"/>
 </g>
-<!-- util_resize -->
+<!-- whm_util_resize_pl -->
 <g id="interface~~rmvs_util_resize_pl~~CallsGraph_node4" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="362,-24 301,-24 301,0 362,0 362,-24"/>
-<text text-anchor="middle" x="331.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>whm_util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="383,-24 280,-24 280,0 383,0 383,-24"/>
+<text text-anchor="middle" x="331.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </g>
-<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
+<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
 <g id="interface~~rmvs_util_resize_pl~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M244.2,-25.18C259.56,-22.83 276.17,-20.3 290.68,-18.08"/>
-<polygon fill="#000000" stroke="#000000" points="291.47,-21.5 300.83,-16.53 290.41,-14.58 291.47,-21.5"/>
+<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M244.2,-25.18C252.54,-23.91 261.25,-22.58 269.8,-21.27"/>
+<polygon fill="#000000" stroke="#000000" points="270.36,-24.73 279.72,-19.76 269.3,-17.81 270.36,-24.73"/>
 </g>
 </g>
 </svg>
@@ -370,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~21"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~19"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_resize_tp.html b/docs/interface/rmvs_util_resize_tp.html
index 0dcfcf170..9e03f8941 100644
--- a/docs/interface/rmvs_util_resize_tp.html
+++ b/docs/interface/rmvs_util_resize_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_resize_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -246,29 +246,29 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M105.26,-33C113.49,-33 122.08,-33 130.51,-33"/>
 <polygon fill="#000000" stroke="#000000" points="130.7,-36.5 140.7,-33 130.7,-29.5 130.7,-36.5"/>
 </g>
-<!-- util_resize_tp -->
+<!-- util_resize -->
 <g id="interface~~rmvs_util_resize_tp~~CallsGraph_node3" class="node">
-<title>util_resize_tp</title>
-<polygon fill="#777777" stroke="#777777" points="358,-66 282,-66 282,-42 358,-42 358,-66"/>
-<text text-anchor="middle" x="320" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="350.5,-66 289.5,-66 289.5,-42 350.5,-42 350.5,-66"/>
+<text text-anchor="middle" x="320" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
 <g id="interface~~rmvs_util_resize_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
-<path fill="none" stroke="#000000" d="M246.22,-41.72C254.67,-43.15 263.39,-44.62 271.73,-46.03"/>
-<polygon fill="#000000" stroke="#000000" points="271.23,-49.49 281.67,-47.7 272.4,-42.59 271.23,-49.49"/>
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M246.22,-41.72C257.24,-43.58 268.72,-45.52 279.21,-47.29"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-50.78 289.32,-48.99 280.05,-43.88 278.88,-50.78"/>
 </g>
-<!-- util_resize -->
+<!-- util_resize_tp -->
 <g id="interface~~rmvs_util_resize_tp~~CallsGraph_node4" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="350.5,-24 289.5,-24 289.5,0 350.5,0 350.5,-24"/>
-<text text-anchor="middle" x="320" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>util_resize_tp</title>
+<polygon fill="#777777" stroke="#777777" points="358,-24 282,-24 282,0 358,0 358,-24"/>
+<text text-anchor="middle" x="320" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </g>
-<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
 <g id="interface~~rmvs_util_resize_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M246.22,-24.28C257.24,-22.42 268.72,-20.48 279.21,-18.71"/>
-<polygon fill="#000000" stroke="#000000" points="280.05,-22.12 289.32,-17.01 278.88,-15.22 280.05,-22.12"/>
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M246.22,-24.28C254.67,-22.85 263.39,-21.38 271.73,-19.97"/>
+<polygon fill="#000000" stroke="#000000" points="272.4,-23.41 281.67,-18.3 271.23,-16.51 272.4,-23.41"/>
 </g>
 </g>
 </svg>
@@ -370,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~22"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~20"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_sort_pl.html b/docs/interface/rmvs_util_sort_pl.html
index cef9c57c7..91ce0d485 100644
--- a/docs/interface/rmvs_util_sort_pl.html
+++ b/docs/interface/rmvs_util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_pl
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~23"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~21"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_sort_rearrange_pl.html b/docs/interface/rmvs_util_sort_rearrange_pl.html
index 85c12b250..317e03898 100644
--- a/docs/interface/rmvs_util_sort_rearrange_pl.html
+++ b/docs/interface/rmvs_util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_rearrange_pl
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -220,43 +220,55 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~rmvs_util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacermvs_util_sort_rearrange_plCallsGraph" width="492pt" height="32pt"
- viewBox="0.00 0.00 492.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacermvs_util_sort_rearrange_plCallsGraph" width="492pt" height="74pt"
+ viewBox="0.00 0.00 492.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>interface~~rmvs_util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 488,-28 488,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 488,-70 488,4 -4,4"/>
 <!-- interface~rmvs_util_sort_rearrange_pl -->
 <g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>interface~rmvs_util_sort_rearrange_pl</title>
-<polygon fill="none" stroke="black" points="147,-24 0,-24 0,0 147,0 147,-24"/>
-<text text-anchor="middle" x="73.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_pl</text>
+<polygon fill="none" stroke="black" points="147,-45 0,-45 0,-21 147,-21 147,-45"/>
+<text text-anchor="middle" x="73.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_pl</text>
 </g>
 <!-- proc~rmvs_util_sort_rearrange_pl -->
 <g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_node2" class="node">
 <title>proc~rmvs_util_sort_rearrange_pl</title>
 <g id="a_interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_util_sort_rearrange_pl.html" xlink:title="rmvs_util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="330,-24 183,-24 183,0 330,0 330,-24"/>
-<text text-anchor="middle" x="256.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="330,-45 183,-45 183,-21 330,-21 330,-45"/>
+<text text-anchor="middle" x="256.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_sort_rearrange_pl&#45;&gt;proc~rmvs_util_sort_rearrange_pl -->
 <g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_edge1" 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="M147.08,-12C155.56,-12 164.26,-12 172.87,-12"/>
-<polygon fill="#000000" stroke="#000000" points="172.91,-15.5 182.91,-12 172.91,-8.5 172.91,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.08,-33C155.56,-33 164.26,-33 172.87,-33"/>
+<polygon fill="#000000" stroke="#000000" points="172.91,-36.5 182.91,-33 172.91,-29.5 172.91,-36.5"/>
 </g>
 <!-- util_sort_rearrange_pl -->
 <g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_node3" class="node">
 <title>util_sort_rearrange_pl</title>
-<polygon fill="#777777" stroke="#777777" points="484,-24 366,-24 366,0 484,0 484,-24"/>
-<text text-anchor="middle" x="425" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<polygon fill="#777777" stroke="#777777" points="484,-66 366,-66 366,-42 484,-42 484,-66"/>
+<text text-anchor="middle" x="425" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
 <!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
 <g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M330.04,-12C338.58,-12 347.27,-12 355.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="355.95,-15.5 365.95,-12 355.95,-8.5 355.95,-15.5"/>
+<path fill="none" stroke="#000000" d="M330.04,-42.15C338.67,-43.24 347.46,-44.35 356.02,-45.43"/>
+<polygon fill="#000000" stroke="#000000" points="355.59,-48.9 365.95,-46.68 356.46,-41.95 355.59,-48.9"/>
+</g>
+<!-- util_sort_rearrange -->
+<g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_node4" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="476.5,-24 373.5,-24 373.5,0 476.5,0 476.5,-24"/>
+<text text-anchor="middle" x="425" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</g>
+<!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange -->
+<g id="interface~~rmvs_util_sort_rearrange_pl~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M330.04,-23.85C341.07,-22.46 352.35,-21.04 363.09,-19.68"/>
+<polygon fill="#000000" stroke="#000000" points="363.72,-23.13 373.2,-18.41 362.84,-16.19 363.72,-23.13"/>
 </g>
 </g>
 </svg>
@@ -358,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~25"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~23"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_sort_rearrange_tp.html b/docs/interface/rmvs_util_sort_rearrange_tp.html
index 5a9f215e6..3f40ba8d3 100644
--- a/docs/interface/rmvs_util_sort_rearrange_tp.html
+++ b/docs/interface/rmvs_util_sort_rearrange_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_rearrange_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -220,43 +220,55 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~rmvs_util_sort_rearrange_tp~~CallsGraph Pages: 1 -->
-<svg id="interfacermvs_util_sort_rearrange_tpCallsGraph" width="494pt" height="32pt"
- viewBox="0.00 0.00 494.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacermvs_util_sort_rearrange_tpCallsGraph" width="494pt" height="74pt"
+ viewBox="0.00 0.00 494.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>interface~~rmvs_util_sort_rearrange_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 490,-28 490,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 490,-70 490,4 -4,4"/>
 <!-- interface~rmvs_util_sort_rearrange_tp -->
 <g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_node1" class="node">
 <title>interface~rmvs_util_sort_rearrange_tp</title>
-<polygon fill="none" stroke="black" points="148,-24 0,-24 0,0 148,0 148,-24"/>
-<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_tp</text>
+<polygon fill="none" stroke="black" points="148,-45 0,-45 0,-21 148,-21 148,-45"/>
+<text text-anchor="middle" x="74" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_tp</text>
 </g>
 <!-- proc~rmvs_util_sort_rearrange_tp -->
 <g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_node2" class="node">
 <title>proc~rmvs_util_sort_rearrange_tp</title>
 <g id="a_interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
-<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-45 184,-45 184,-21 332,-21 332,-45"/>
+<text text-anchor="middle" x="258" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_sort_rearrange_tp&#45;&gt;proc~rmvs_util_sort_rearrange_tp -->
 <g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_edge1" 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="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
-<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-33C156.6,-33 165.16,-33 173.64,-33"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-36.5 183.91,-33 173.91,-29.5 173.91,-36.5"/>
 </g>
 <!-- util_sort_rearrange_tp -->
 <g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_node3" class="node">
 <title>util_sort_rearrange_tp</title>
-<polygon fill="#777777" stroke="#777777" points="486,-24 368,-24 368,0 486,0 486,-24"/>
-<text text-anchor="middle" x="427" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+<polygon fill="#777777" stroke="#777777" points="486,-66 368,-66 368,-42 486,-42 486,-66"/>
+<text text-anchor="middle" x="427" y="-51.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="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" d="M332.25,-12C340.72,-12 349.34,-12 357.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="357.86,-15.5 367.86,-12 357.86,-8.5 357.86,-15.5"/>
+<path fill="none" stroke="#000000" d="M332.25,-42.21C340.72,-43.28 349.34,-44.36 357.74,-45.42"/>
+<polygon fill="#000000" stroke="#000000" points="357.5,-48.91 367.86,-46.69 358.38,-41.97 357.5,-48.91"/>
+</g>
+<!-- util_sort_rearrange -->
+<g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_node4" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="478.5,-24 375.5,-24 375.5,0 478.5,0 478.5,-24"/>
+<text text-anchor="middle" x="427" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</g>
+<!-- proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange -->
+<g id="interface~~rmvs_util_sort_rearrange_tp~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M332.25,-23.79C343.27,-22.4 354.54,-20.99 365.26,-19.64"/>
+<polygon fill="#000000" stroke="#000000" points="365.87,-23.09 375.35,-18.37 365,-16.14 365.87,-23.09"/>
 </g>
 </g>
 </svg>
@@ -358,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~26"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~24"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_sort_tp.html b/docs/interface/rmvs_util_sort_tp.html
index 093f83a5a..bbcf16f6d 100644
--- a/docs/interface/rmvs_util_sort_tp.html
+++ b/docs/interface/rmvs_util_sort_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~24"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~22"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_spill_pl.html b/docs/interface/rmvs_util_spill_pl.html
index c591da10d..3e0185178 100644
--- a/docs/interface/rmvs_util_spill_pl.html
+++ b/docs/interface/rmvs_util_spill_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_spill_pl
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -246,41 +246,41 @@ <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_exit -->
+<!-- util_spill -->
 <g id="interface~~rmvs_util_spill_pl~~CallsGraph_node3" class="node">
-<title>util_exit</title>
+<title>util_spill</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>
+<text text-anchor="middle" x="306.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_spill -->
 <g id="interface~~rmvs_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</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">
-<title>util_spill</title>
-<polygon fill="#777777" stroke="#777777" points="333.5,-66 279.5,-66 279.5,-42 333.5,-42 333.5,-66"/>
-<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_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>
 <!-- whm_util_spill_pl -->
-<g id="interface~~rmvs_util_spill_pl~~CallsGraph_node5" class="node">
+<g id="interface~~rmvs_util_spill_pl~~CallsGraph_node4" class="node">
 <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>
+<polygon fill="#777777" stroke="#777777" points="353,-66 260,-66 260,-42 353,-42 353,-66"/>
+<text text-anchor="middle" x="306.5" y="-51.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;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"/>
+<path fill="none" stroke="#000000" d="M224.03,-54C232.44,-54 241.29,-54 249.94,-54"/>
+<polygon fill="#000000" stroke="#000000" points="249.96,-57.5 259.96,-54 249.96,-50.5 249.96,-57.5"/>
+</g>
+<!-- util_exit -->
+<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>
+</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"/>
 </g>
 </g>
 </svg>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~27"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~25"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_spill_tp.html b/docs/interface/rmvs_util_spill_tp.html
index f9d64ed0b..4ebbf3d97 100644
--- a/docs/interface/rmvs_util_spill_tp.html
+++ b/docs/interface/rmvs_util_spill_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_spill_tp
      <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.">134 statements</a>
+    title=" 0.2% of total for procedures.">141 statements</a>
      </li> 
      
      
@@ -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_tp -->
+<!-- util_spill -->
 <g id="interface~~rmvs_util_spill_tp~~CallsGraph_node3" class="node">
-<title>util_spill_tp</title>
-<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>
+<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_tp -->
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
 <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="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"/>
+<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_exit -->
+<!-- util_spill_tp -->
 <g id="interface~~rmvs_util_spill_tp~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<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>
+<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>
 </g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp -->
 <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"/>
+<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"/>
 </g>
-<!-- util_spill -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_spill_tp~~CallsGraph_node5" class="node">
-<title>util_spill</title>
+<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_spill</text>
+<text text-anchor="middle" x="292.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_spill_tp~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</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>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~28"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~26"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/setup_body.html b/docs/interface/setup_body.html
index 928230a12..7e2a4c756 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -333,63 +333,63 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="248,-45 180,-45 180,-21 248,-21 248,-45"/>
 <text text-anchor="middle" x="214" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">setup_body</text>
 </g>
-<!-- proc~setup_tp -->
+<!-- proc~setup_pl -->
 <g id="interface~~setup_body~~CalledByGraph_node2" class="node">
-<title>proc~setup_tp</title>
-<g id="a_interface~~setup_body~~CalledByGraph_node2"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
+<title>proc~setup_pl</title>
+<g id="a_interface~~setup_body~~CalledByGraph_node2"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
 <polygon fill="#d9534f" stroke="#d9534f" 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">setup_tp</text>
+<text text-anchor="middle" x="117" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
+<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
 <g id="interface~~setup_body~~CalledByGraph_edge1" class="edge">
-<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
+<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
 <path fill="none" stroke="#000000" d="M144.21,-48.21C152.19,-46.44 161.18,-44.45 169.97,-42.51"/>
 <polygon fill="#000000" stroke="#000000" points="170.73,-45.93 179.74,-40.35 169.22,-39.09 170.73,-45.93"/>
 </g>
-<!-- proc~setup_pl -->
+<!-- proc~setup_tp -->
 <g id="interface~~setup_body~~CalledByGraph_node3" class="node">
-<title>proc~setup_pl</title>
-<g id="a_interface~~setup_body~~CalledByGraph_node3"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
+<title>proc~setup_tp</title>
+<g id="a_interface~~setup_body~~CalledByGraph_node3"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
+<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
 <g id="interface~~setup_body~~CalledByGraph_edge2" class="edge">
-<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
+<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
 <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_tp -->
+<!-- interface~setup_pl -->
 <g id="interface~~setup_body~~CalledByGraph_node4" class="node">
-<title>interface~setup_tp</title>
-<g id="a_interface~~setup_body~~CalledByGraph_node4"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
+<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,-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>
+<text text-anchor="middle" x="27" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
+<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
 <g id="interface~~setup_body~~CalledByGraph_edge3" class="edge">
-<title>interface~setup_tp&#45;&gt;proc~setup_tp</title>
+<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
 <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 -->
+<!-- interface~setup_tp -->
 <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">
+<title>interface~setup_tp</title>
+<g id="a_interface~~setup_body~~CalledByGraph_node5"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
 <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>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
+<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
 <g id="interface~~setup_body~~CalledByGraph_edge4" class="edge">
-<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
+<title>interface~setup_tp&#45;&gt;proc~setup_tp</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>
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~150"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~190"></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-n~12"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~13"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -522,7 +522,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~103"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~127"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/setup_construct_system.html b/docs/interface/setup_construct_system.html
index 75f2f7e16..1329c00aa 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~63"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~68"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -391,8 +391,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~104"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-param~128"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/setup_encounter.html b/docs/interface/setup_encounter.html
index 93913d1cd..5be735ca2 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~151"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~191"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~13"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~14"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/setup_initialize_particle_info_system.html b/docs/interface/setup_initialize_particle_info_system.html
new file mode 100644
index 000000000..e9087a10b
--- /dev/null
+++ b/docs/interface/setup_initialize_particle_info_system.html
@@ -0,0 +1,435 @@
+
+<!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>setup_initialize_particle_info_system &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>setup_initialize_particle_info_system
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">setup_initialize_particle_info_system</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~~setup_initialize_particle_info_system~~CallsGraph Pages: 1 -->
+<svg id="interfacesetup_initialize_particle_info_systemCallsGraph" width="416pt" height="32pt"
+ viewBox="0.00 0.00 416.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~setup_initialize_particle_info_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~setup_initialize_particle_info_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 412,-28 412,4 -4,4"/>
+<!-- interface~setup_initialize_particle_info_system -->
+<g id="interface~~setup_initialize_particle_info_system~~CallsGraph_node1" class="node">
+<title>interface~setup_initialize_particle_info_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">setup_initialize_particle_info_system</text>
+</g>
+<!-- proc~setup_initialize_particle_info_system -->
+<g id="interface~~setup_initialize_particle_info_system~~CallsGraph_node2" class="node">
+<title>proc~setup_initialize_particle_info_system</title>
+<g id="a_interface~~setup_initialize_particle_info_system~~CallsGraph_node2"><a xlink:href=".././proc/setup_initialize_particle_info_system.html" xlink:title="setup_initialize_particle_info_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">setup_initialize_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_initialize_particle_info_system&#45;&gt;proc~setup_initialize_particle_info_system -->
+<g id="interface~~setup_initialize_particle_info_system~~CallsGraph_edge1" class="edge">
+<title>interface~setup_initialize_particle_info_system&#45;&gt;proc~setup_initialize_particle_info_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"/>
+</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 setup_initialize_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/setup_initialize_particle_info_system.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~192"></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" id="variable-param~129"></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/setup_initialize_system.html b/docs/interface/setup_initialize_system.html
index a5d2f517c..4474b53bd 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~152"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</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>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~105"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~130"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/setup_pl.html b/docs/interface/setup_pl.html
index 831c49160..622810d62 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~153"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~194"></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-n~14"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~15"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~106"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~131"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/setup_tp.html b/docs/interface/setup_tp.html
index f2b3a2312..47627d5bf 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~154"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~195"></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-n~15"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~16"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~107"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~132"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_fragmentation_casehitandrun.html b/docs/interface/symba_collision_casedisruption.html
similarity index 63%
rename from docs/interface/symba_fragmentation_casehitandrun.html
rename to docs/interface/symba_collision_casedisruption.html
index e8509d5f6..2303fe61d 100644
--- a/docs/interface/symba_fragmentation_casehitandrun.html
+++ b/docs/interface/symba_collision_casedisruption.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_fragmentation_casehitandrun &ndash; swiftest</title>
+    <title>symba_collision_casedisruption &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_fragmentation_casehitandrun
+    <h1>symba_collision_casedisruption
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_fragmentation_casehitandrun
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_fragmentation_casehitandrun</li>
+     <li class="active">symba_collision_casedisruption</li>
   </ol>
 </div>
 </div>
@@ -219,63 +219,90 @@ <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_fragmentation_casehitandrun~~CallsGraph Pages: 1 -->
-<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,-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,-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,-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>
+<!-- Title: interface~~symba_collision_casedisruption~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_casedisruptionCallsGraph" width="641pt" height="104pt"
+ viewBox="0.00 0.00 641.00 104.29" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_casedisruption~~CallsGraph" class="graph" transform="scale(0.9 0.9) rotate(0) translate(4 112)">
+<title>interface~~symba_collision_casedisruption~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 709,-112 709,4 -4,4"/>
+<!-- interface~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_casedisruption</title>
+<polygon fill="none" stroke="black" points="163,-66 0,-66 0,-42 163,-42 163,-66"/>
+<text text-anchor="middle" x="81.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casedisruption</text>
+</g>
+<!-- proc~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<g id="a_interface~~symba_collision_casedisruption~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="362,-66 199,-66 199,-42 362,-42 362,-66"/>
+<text text-anchor="middle" x="280.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</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,-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="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.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>
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.2,-54C171.67,-54 180.33,-54 188.91,-54"/>
+<polygon fill="#000000" stroke="#000000" points="188.93,-57.5 198.93,-54 188.93,-50.5 188.93,-57.5"/>
+</g>
+<!-- proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_node3" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_interface~~symba_collision_casedisruption~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="575,-108 398,-108 398,-84 575,-84 575,-108"/>
+<text text-anchor="middle" x="486.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M339.96,-66.04C364.07,-71 392.18,-76.79 417.24,-81.95"/>
+<polygon fill="#000000" stroke="#000000" points="416.53,-85.37 427.03,-83.96 417.94,-78.52 416.53,-85.37"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_node4" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_interface~~symba_collision_casedisruption~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="566.5,-66 406.5,-66 406.5,-42 566.5,-42 566.5,-66"/>
+<text text-anchor="middle" x="486.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_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"/>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M362.13,-54C373.3,-54 384.82,-54 396.14,-54"/>
+<polygon fill="#000000" stroke="#000000" points="396.46,-57.5 406.46,-54 396.46,-50.5 396.46,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="563.5,-24 409.5,-24 409.5,0 563.5,0 563.5,-24"/>
+<text text-anchor="middle" x="486.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M339.96,-41.96C364.07,-37 392.18,-31.21 417.24,-26.05"/>
+<polygon fill="#000000" stroke="#000000" points="417.94,-29.48 427.03,-24.04 416.53,-22.63 417.94,-29.48"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_node6" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="705,-66 611,-66 611,-42 705,-42 705,-66"/>
+<text text-anchor="middle" x="658" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="interface~~symba_collision_casedisruption~~CallsGraph_edge5" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M566.79,-54C578.15,-54 589.64,-54 600.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="600.57,-57.5 610.57,-54 600.57,-50.5 600.57,-57.5"/>
 </g>
 </g>
 </svg>
-</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">
+</div><script>var paninterfacesymba_collision_casedisruptionCallsGraph = svgPanZoom('#interfacesymba_collision_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"
@@ -348,51 +375,51 @@ <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~~symba_fragmentation_casehitandrun~~CalledByGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casehitandrunCalledByGraph" width="641pt" height="30pt"
- viewBox="0.00 0.00 641.00 30.16" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casehitandrun~~CalledByGraph" class="graph" transform="scale(0.94 0.94) rotate(0) translate(4 28)">
-<title>interface~~symba_fragmentation_casehitandrun~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 676,-28 676,4 -4,4"/>
-<!-- interface~symba_fragmentation_casehitandrun -->
-<g id="interface~~symba_fragmentation_casehitandrun~~CalledByGraph_node1" class="node">
-<title>interface~symba_fragmentation_casehitandrun</title>
-<polygon fill="none" stroke="black" points="672,-24 482,-24 482,0 672,0 672,-24"/>
-<text text-anchor="middle" x="577" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casehitandrun</text>
+<!-- Title: interface~~symba_collision_casedisruption~~CalledByGraph Pages: 1 -->
+<svg id="interfacesymba_collision_casedisruptionCalledByGraph" width="641pt" height="31pt"
+ viewBox="0.00 0.00 641.00 31.41" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_casedisruption~~CalledByGraph" class="graph" transform="scale(0.98 0.98) rotate(0) translate(4 28)">
+<title>interface~~symba_collision_casedisruption~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 649,-28 649,4 -4,4"/>
+<!-- interface~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_casedisruption~~CalledByGraph_node1" class="node">
+<title>interface~symba_collision_casedisruption</title>
+<polygon fill="none" stroke="black" points="645,-24 482,-24 482,0 645,0 645,-24"/>
+<text text-anchor="middle" x="563.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casedisruption</text>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casehitandrun~~CalledByGraph_node2" class="node">
+<g id="interface~~symba_collision_casedisruption~~CalledByGraph_node2" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casehitandrun~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<g id="a_interface~~symba_collision_casedisruption~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
 <polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
 <text text-anchor="middle" x="343.5" y="-9.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_casehitandrun -->
-<g id="interface~~symba_fragmentation_casehitandrun~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" d="M446.04,-12C454.6,-12 463.26,-12 471.84,-12"/>
-<polygon fill="#000000" stroke="#000000" points="471.85,-15.5 481.85,-12 471.85,-8.5 471.85,-15.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_casedisruption~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M446.16,-12C454.68,-12 463.27,-12 471.7,-12"/>
+<polygon fill="#000000" stroke="#000000" points="471.9,-15.5 481.9,-12 471.9,-8.5 471.9,-15.5"/>
 </g>
 <!-- interface~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casehitandrun~~CalledByGraph_node3" class="node">
+<g id="interface~~symba_collision_casedisruption~~CalledByGraph_node3" class="node">
 <title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casehitandrun~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<g id="a_interface~~symba_collision_casedisruption~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
 <polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
 <text text-anchor="middle" x="102.5" y="-9.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="interface~~symba_fragmentation_casehitandrun~~CalledByGraph_edge2" class="edge">
+<g id="interface~~symba_collision_casedisruption~~CalledByGraph_edge2" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
 <polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfacesymba_fragmentation_casehitandrunCalledByGraph = svgPanZoom('#interfacesymba_fragmentation_casehitandrunCalledByGraph', {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><script>var paninterfacesymba_collision_casedisruptionCalledByGraph = svgPanZoom('#interfacesymba_collision_casedisruptionCalledByGraph', {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"
@@ -458,11 +485,11 @@ <h3 class="panel-title">Called by</h3>
     <br>
     
       <h2>
-public module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+public module function symba_collision_casedisruption(system, param, colliders, frag) result(status)
     
     
    
-   <a href='../proc/symba_fragmentation_casehitandrun.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_casedisruption.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -489,7 +516,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~45"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -504,8 +531,8 @@ <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>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>
@@ -519,117 +546,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~4"></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-x~14"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~6"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~5"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~5"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~3"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~5"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass_res~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-colliders~13"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -639,12 +561,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-frag~7"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object</p></td>
   
 </tr>
 
@@ -658,7 +580,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_casemerge.html b/docs/interface/symba_collision_casehitandrun.html
similarity index 62%
rename from docs/interface/symba_fragmentation_casemerge.html
rename to docs/interface/symba_collision_casehitandrun.html
index 325f77b01..c97d8f97a 100644
--- a/docs/interface/symba_fragmentation_casemerge.html
+++ b/docs/interface/symba_collision_casehitandrun.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_fragmentation_casemerge &ndash; swiftest</title>
+    <title>symba_collision_casehitandrun &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_fragmentation_casemerge
+    <h1>symba_collision_casehitandrun
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_fragmentation_casemerge
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_fragmentation_casemerge</li>
+     <li class="active">symba_collision_casehitandrun</li>
   </ol>
 </div>
 </div>
@@ -219,51 +219,90 @@ <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_fragmentation_casemerge~~CallsGraph Pages: 1 -->
-<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 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>
-<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_casemerge -->
-<g id="interface~~symba_fragmentation_casemerge~~CallsGraph_node2" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<g id="a_interface~~symba_fragmentation_casemerge~~CallsGraph_node2"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="386,-24 211,-24 211,0 386,0 386,-24"/>
-<text text-anchor="middle" x="298.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- Title: interface~~symba_collision_casehitandrun~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_casehitandrunCallsGraph" width="641pt" height="105pt"
+ viewBox="0.00 0.00 641.00 104.87" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph" class="graph" transform="scale(0.9 0.9) rotate(0) translate(4 112)">
+<title>interface~~symba_collision_casehitandrun~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 705,-112 705,4 -4,4"/>
+<!-- interface~symba_collision_casehitandrun -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_casehitandrun</title>
+<polygon fill="none" stroke="black" points="161,-66 0,-66 0,-42 161,-42 161,-66"/>
+<text text-anchor="middle" x="80.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casehitandrun</text>
+</g>
+<!-- proc~symba_collision_casehitandrun -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_casehitandrun</title>
+<g id="a_interface~~symba_collision_casehitandrun~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="358,-66 197,-66 197,-42 358,-42 358,-66"/>
+<text text-anchor="middle" x="277.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
-<g id="interface~~symba_fragmentation_casemerge~~CallsGraph_edge1" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<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"/>
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.1,-54C169.57,-54 178.24,-54 186.82,-54"/>
+<polygon fill="#000000" stroke="#000000" points="186.84,-57.5 196.84,-54 186.84,-50.5 186.84,-57.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>
+<!-- proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_node3" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_interface~~symba_collision_casehitandrun~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="571,-108 394,-108 394,-84 571,-84 571,-108"/>
+<text text-anchor="middle" x="482.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</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"/>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M336.67,-66.04C360.56,-70.98 388.39,-76.74 413.24,-81.88"/>
+<polygon fill="#000000" stroke="#000000" points="412.82,-85.36 423.32,-83.96 414.24,-78.51 412.82,-85.36"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_node4" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_interface~~symba_collision_casehitandrun~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="562.5,-66 402.5,-66 402.5,-42 562.5,-42 562.5,-66"/>
+<text text-anchor="middle" x="482.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M358.15,-54C369.29,-54 380.8,-54 392.1,-54"/>
+<polygon fill="#000000" stroke="#000000" points="392.41,-57.5 402.41,-54 392.41,-50.5 392.41,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="559.5,-24 405.5,-24 405.5,0 559.5,0 559.5,-24"/>
+<text text-anchor="middle" x="482.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M336.67,-41.96C360.56,-37.02 388.39,-31.26 413.24,-26.12"/>
+<polygon fill="#000000" stroke="#000000" points="414.24,-29.49 423.32,-24.04 412.82,-22.64 414.24,-29.49"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_node6" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="701,-66 607,-66 607,-42 701,-42 701,-66"/>
+<text text-anchor="middle" x="654" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="interface~~symba_collision_casehitandrun~~CallsGraph_edge5" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M562.79,-54C574.15,-54 585.64,-54 596.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="596.57,-57.5 606.57,-54 596.57,-50.5 596.57,-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">
+</div><script>var paninterfacesymba_collision_casehitandrunCallsGraph = svgPanZoom('#interfacesymba_collision_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"
@@ -336,81 +375,51 @@ <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~~symba_fragmentation_casemerge~~CalledByGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casemergeCalledByGraph" width="641pt" height="71pt"
- viewBox="0.00 0.00 641.00 71.33" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph" class="graph" transform="scale(0.96 0.96) rotate(0) translate(4 70)">
-<title>interface~~symba_fragmentation_casemerge~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 661,-70 661,4 -4,4"/>
-<!-- interface~symba_fragmentation_casemerge -->
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph_node1" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<polygon fill="none" stroke="black" points="657,-45 482,-45 482,-21 657,-21 657,-45"/>
-<text text-anchor="middle" x="569.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casemerge</text>
+<!-- Title: interface~~symba_collision_casehitandrun~~CalledByGraph Pages: 1 -->
+<svg id="interfacesymba_collision_casehitandrunCalledByGraph" width="641pt" height="32pt"
+ viewBox="0.00 0.00 641.00 31.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_casehitandrun~~CalledByGraph" class="graph" transform="scale(0.98 0.98) rotate(0) translate(4 28)">
+<title>interface~~symba_collision_casehitandrun~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 647,-28 647,4 -4,4"/>
+<!-- interface~symba_collision_casehitandrun -->
+<g id="interface~~symba_collision_casehitandrun~~CalledByGraph_node1" class="node">
+<title>interface~symba_collision_casehitandrun</title>
+<polygon fill="none" stroke="black" points="643,-24 482,-24 482,0 643,0 643,-24"/>
+<text text-anchor="middle" x="562.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casehitandrun</text>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph_node2" class="node">
+<g id="interface~~symba_collision_casehitandrun~~CalledByGraph_node2" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casemerge~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-66 241,-66 241,-42 446,-42 446,-66"/>
-<text text-anchor="middle" x="343.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<g id="a_interface~~symba_collision_casehitandrun~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
+<text text-anchor="middle" x="343.5" y="-9.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_casemerge -->
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M446.01,-44.48C454.49,-43.69 463.05,-42.89 471.49,-42.09"/>
-<polygon fill="#000000" stroke="#000000" points="472.09,-45.55 481.72,-41.14 471.43,-38.58 472.09,-45.55"/>
-</g>
-<!-- proc~symba_collision_resolve_mergers -->
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph_node3" class="node">
-<title>proc~symba_collision_resolve_mergers</title>
-<g id="a_interface~~symba_fragmentation_casemerge~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-24 256.5,-24 256.5,0 430.5,0 430.5,-24"/>
-<text text-anchor="middle" x="343.5" y="-9.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="interface~~symba_fragmentation_casemerge~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M430.78,-20.09C444.14,-21.34 458.01,-22.64 471.58,-23.91"/>
-<polygon fill="#000000" stroke="#000000" points="471.61,-27.43 481.89,-24.88 472.26,-20.46 471.61,-27.43"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
+<g id="interface~~symba_collision_casehitandrun~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M446.01,-12C454.56,-12 463.16,-12 471.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="471.83,-15.5 481.83,-12 471.83,-8.5 471.83,-15.5"/>
 </g>
 <!-- interface~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph_node4" class="node">
+<g id="interface~~symba_collision_casehitandrun~~CalledByGraph_node3" class="node">
 <title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casemerge~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-66 0,-66 0,-42 205,-42 205,-66"/>
-<text text-anchor="middle" x="102.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<g id="a_interface~~symba_collision_casehitandrun~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
+<text text-anchor="middle" x="102.5" y="-9.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="interface~~symba_fragmentation_casemerge~~CalledByGraph_edge3" class="edge">
+<g id="interface~~symba_collision_casehitandrun~~CalledByGraph_edge2" 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,-54C213.7,-54 222.31,-54 230.87,-54"/>
-<polygon fill="#000000" stroke="#000000" points="230.89,-57.5 240.89,-54 230.89,-50.5 230.89,-57.5"/>
-</g>
-<!-- interface~symba_collision_resolve_mergers -->
-<g id="interface~~symba_fragmentation_casemerge~~CalledByGraph_node5" class="node">
-<title>interface~symba_collision_resolve_mergers</title>
-<g id="a_interface~~symba_fragmentation_casemerge~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-24 15.5,-24 15.5,0 189.5,0 189.5,-24"/>
-<text text-anchor="middle" x="102.5" y="-9.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="interface~~symba_fragmentation_casemerge~~CalledByGraph_edge4" 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,-12C208.06,-12 227.46,-12 246.09,-12"/>
-<polygon fill="#000000" stroke="#000000" points="246.34,-15.5 256.34,-12 246.34,-8.5 246.34,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.2,-12C213.7,-12 222.31,-12 230.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfacesymba_fragmentation_casemergeCalledByGraph = svgPanZoom('#interfacesymba_fragmentation_casemergeCalledByGraph', {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><script>var paninterfacesymba_collision_casehitandrunCalledByGraph = svgPanZoom('#interfacesymba_collision_casehitandrunCalledByGraph', {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"
@@ -476,11 +485,11 @@ <h3 class="panel-title">Called by</h3>
     <br>
     
       <h2>
-public module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status)
+public module function symba_collision_casehitandrun(system, param, colliders, frag) result(status)
     
     
    
-   <a href='../proc/symba_fragmentation_casemerge.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_casehitandrun.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -507,7 +516,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~46"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -522,8 +531,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-param~67"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -537,87 +546,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~5"></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-x~15"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~7"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~6"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collisio</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~6"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collisio</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~4"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-colliders~14"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -627,12 +561,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip~6"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-frag~8"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object</p></td>
   
 </tr>
 
@@ -646,7 +580,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_collision_casemerge.html b/docs/interface/symba_collision_casemerge.html
new file mode 100644
index 000000000..447d45008
--- /dev/null
+++ b/docs/interface/symba_collision_casemerge.html
@@ -0,0 +1,674 @@
+
+<!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_collision_casemerge &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_collision_casemerge
+   <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.4% of total for procedures.">261 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_collision_casemerge</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_collision_casemerge~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_casemergeCallsGraph" width="641pt" height="109pt"
+ viewBox="0.00 0.00 641.00 109.19" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_casemerge~~CallsGraph" class="graph" transform="scale(0.94 0.94) rotate(0) translate(4 112)">
+<title>interface~~symba_collision_casemerge~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 677,-112 677,4 -4,4"/>
+<!-- interface~symba_collision_casemerge -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_casemerge</title>
+<polygon fill="none" stroke="black" points="147,-66 0,-66 0,-42 147,-42 147,-66"/>
+<text text-anchor="middle" x="73.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casemerge</text>
+</g>
+<!-- proc~symba_collision_casemerge -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_casemerge</title>
+<g id="a_interface~~symba_collision_casemerge~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="330,-66 183,-66 183,-42 330,-42 330,-66"/>
+<text text-anchor="middle" x="256.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.08,-54C155.56,-54 164.26,-54 172.87,-54"/>
+<polygon fill="#000000" stroke="#000000" points="172.91,-57.5 182.91,-54 172.91,-50.5 172.91,-57.5"/>
+</g>
+<!-- proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_node3" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_interface~~symba_collision_casemerge~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="543,-108 366,-108 366,-84 543,-84 543,-108"/>
+<text text-anchor="middle" x="454.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M313.67,-66.04C336.63,-70.96 363.37,-76.69 387.27,-81.81"/>
+<polygon fill="#000000" stroke="#000000" points="386.81,-85.29 397.33,-83.96 388.28,-78.45 386.81,-85.29"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_node4" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_interface~~symba_collision_casemerge~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="534.5,-66 374.5,-66 374.5,-42 534.5,-42 534.5,-66"/>
+<text text-anchor="middle" x="454.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M330.2,-54C341.21,-54 352.68,-54 364,-54"/>
+<polygon fill="#000000" stroke="#000000" points="364.33,-57.5 374.33,-54 364.33,-50.5 364.33,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="531.5,-24 377.5,-24 377.5,0 531.5,0 531.5,-24"/>
+<text text-anchor="middle" x="454.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M313.67,-41.96C336.63,-37.04 363.37,-31.31 387.27,-26.19"/>
+<polygon fill="#000000" stroke="#000000" points="388.28,-29.55 397.33,-24.04 386.81,-22.71 388.28,-29.55"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_node6" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="673,-66 579,-66 579,-42 673,-42 673,-66"/>
+<text text-anchor="middle" x="626" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="interface~~symba_collision_casemerge~~CallsGraph_edge5" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M534.79,-54C546.15,-54 557.64,-54 568.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="568.57,-57.5 578.57,-54 568.57,-50.5 568.57,-57.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacesymba_collision_casemergeCallsGraph = svgPanZoom('#interfacesymba_collision_casemergeCallsGraph', {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_collision_casemerge~~CalledByGraph Pages: 1 -->
+<svg id="interfacesymba_collision_casemergeCalledByGraph" width="637pt" height="74pt"
+ viewBox="0.00 0.00 637.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_casemerge~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~symba_collision_casemerge~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 633,-70 633,4 -4,4"/>
+<!-- interface~symba_collision_casemerge -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_node1" class="node">
+<title>interface~symba_collision_casemerge</title>
+<polygon fill="none" stroke="black" points="629,-45 482,-45 482,-21 629,-21 629,-45"/>
+<text text-anchor="middle" x="555.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casemerge</text>
+</g>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_node2" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_interface~~symba_collision_casemerge~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-66 256.5,-66 256.5,-42 430.5,-42 430.5,-66"/>
+<text text-anchor="middle" x="343.5" y="-51.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_collision_casemerge -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M430.52,-45.4C444.06,-44.04 458.04,-42.65 471.5,-41.3"/>
+<polygon fill="#000000" stroke="#000000" points="472.09,-44.76 481.69,-40.28 471.39,-37.79 472.09,-44.76"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_node3" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_interface~~symba_collision_casemerge~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
+<text text-anchor="middle" x="343.5" y="-9.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_collision_casemerge -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M446.12,-22.16C454.68,-23.02 463.27,-23.88 471.66,-24.72"/>
+<polygon fill="#000000" stroke="#000000" points="471.48,-28.22 481.78,-25.73 472.18,-21.25 471.48,-28.22"/>
+</g>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_node4" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_interface~~symba_collision_casemerge~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-66 15.5,-66 15.5,-42 189.5,-42 189.5,-66"/>
+<text text-anchor="middle" x="102.5" y="-51.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="interface~~symba_collision_casemerge~~CalledByGraph_edge3" 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,-54C208.06,-54 227.46,-54 246.09,-54"/>
+<polygon fill="#000000" stroke="#000000" points="246.34,-57.5 256.34,-54 246.34,-50.5 246.34,-57.5"/>
+</g>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="interface~~symba_collision_casemerge~~CalledByGraph_node5" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_interface~~symba_collision_casemerge~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
+<text text-anchor="middle" x="102.5" y="-9.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="interface~~symba_collision_casemerge~~CalledByGraph_edge4" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-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 function symba_collision_casemerge(system, param, colliders, frag) result(status)
+    
+    
+   
+   <a href='../proc/symba_collision_casemerge.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~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>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~68"></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 additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~15"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-frag~9"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-status~8"></span><small>integer(kind=I4B)
+  </small></h3>
+    <p>Status flag assigned to this outcome</p>
+    
+    
+    <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_collision_check_pltpenc.html b/docs/interface/symba_collision_check_encounter.html
similarity index 65%
rename from docs/interface/symba_collision_check_pltpenc.html
rename to docs/interface/symba_collision_check_encounter.html
index b29e51baa..e8440dc56 100644
--- a/docs/interface/symba_collision_check_pltpenc.html
+++ b/docs/interface/symba_collision_check_encounter.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_collision_check_pltpenc &ndash; swiftest</title>
+    <title>symba_collision_check_encounter &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_collision_check_pltpenc
+    <h1>symba_collision_check_encounter
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_check_pltpenc
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_collision_check_pltpenc</li>
+     <li class="active">symba_collision_check_encounter</li>
   </ol>
 </div>
 </div>
@@ -219,87 +219,75 @@ <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_collision_check_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_collision_check_pltpencCallsGraph" width="641pt" height="112pt"
- viewBox="0.00 0.00 641.00 112.32" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph" class="graph" transform="scale(0.97 0.97) rotate(0) translate(4 112)">
-<title>interface~~symba_collision_check_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 658,-112 658,4 -4,4"/>
-<!-- interface~symba_collision_check_pltpenc -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node1" class="node">
-<title>interface~symba_collision_check_pltpenc</title>
-<polygon fill="none" stroke="black" points="162,-66 0,-66 0,-42 162,-42 162,-66"/>
-<text text-anchor="middle" x="81" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_pltpenc</text>
+<!-- Title: interface~~symba_collision_check_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_check_encounterCallsGraph" width="641pt" height="68pt"
+ viewBox="0.00 0.00 641.00 68.05" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_check_encounter~~CallsGraph" class="graph" transform="scale(0.92 0.92) rotate(0) translate(4 70)">
+<title>interface~~symba_collision_check_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 693,-70 693,4 -4,4"/>
+<!-- interface~symba_collision_check_encounter -->
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_check_encounter</title>
+<polygon fill="none" stroke="black" points="175,-45 0,-45 0,-21 175,-21 175,-45"/>
+<text text-anchor="middle" x="87.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_encounter</text>
 </g>
-<!-- proc~symba_collision_check_pltpenc -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node2" class="node">
-<title>proc~symba_collision_check_pltpenc</title>
-<g id="a_interface~~symba_collision_check_pltpenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="360,-66 198,-66 198,-42 360,-42 360,-66"/>
-<text text-anchor="middle" x="279" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
+<!-- proc~symba_collision_check_encounter -->
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_check_encounter</title>
+<g id="a_interface~~symba_collision_check_encounter~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_check_encounter.html" xlink:title="symba_collision_check_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="386,-45 211,-45 211,-21 386,-21 386,-45"/>
+<text text-anchor="middle" x="298.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_edge1" 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="M162,-54C170.52,-54 179.23,-54 187.86,-54"/>
-<polygon fill="#000000" stroke="#000000" points="187.93,-57.5 197.93,-54 187.93,-50.5 187.93,-57.5"/>
+<!-- interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter -->
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.02,-33C183.49,-33 192.13,-33 200.7,-33"/>
+<polygon fill="#000000" stroke="#000000" points="200.71,-36.5 210.71,-33 200.71,-29.5 200.71,-36.5"/>
 </g>
-<!-- ind2 -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node3" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="495.5,-108 441.5,-108 441.5,-84 495.5,-84 495.5,-108"/>
-<text text-anchor="middle" x="468.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_node3" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="576,-66 422,-66 422,-42 576,-42 576,-66"/>
+<text text-anchor="middle" x="499" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind2 -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;ind2</title>
-<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>
-<!-- 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"/>
+<!-- proc~symba_collision_check_encounter&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_check_encounter&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M386.28,-42.18C394.82,-43.08 403.5,-44 412.04,-44.91"/>
+<polygon fill="#000000" stroke="#000000" points="411.67,-48.39 421.99,-45.96 412.41,-41.43 411.67,-48.39"/>
 </g>
 <!-- proc~symba_collision_check_one -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node5" class="node">
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_node4" class="node">
 <title>proc~symba_collision_check_one</title>
-<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>
+<g id="a_interface~~symba_collision_check_encounter~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="571.5,-24 426.5,-24 426.5,0 571.5,0 571.5,-24"/>
+<text text-anchor="middle" x="499" 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="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"/>
+<!-- proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one -->
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one</title>
+<path fill="none" stroke="#000000" d="M386.28,-23.82C396.19,-22.77 406.27,-21.7 416.11,-20.66"/>
+<polygon fill="#000000" stroke="#000000" points="416.69,-24.12 426.27,-19.59 415.95,-17.16 416.69,-24.12"/>
 </g>
 <!-- orbel_xv2aeq -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node6" class="node">
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_node5" class="node">
 <title>orbel_xv2aeq</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="689,-24 612,-24 612,0 689,0 689,-24"/>
+<text text-anchor="middle" x="650.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">
+<g id="interface~~symba_collision_check_encounter~~CallsGraph_edge4" class="edge">
 <title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M571.68,-12C581.92,-12 592.23,-12 601.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="601.98,-15.5 611.98,-12 601.98,-8.5 601.98,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfacesymba_collision_check_pltpencCallsGraph = svgPanZoom('#interfacesymba_collision_check_pltpencCallsGraph', {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><script>var paninterfacesymba_collision_check_encounterCallsGraph = svgPanZoom('#interfacesymba_collision_check_encounterCallsGraph', {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"
@@ -366,11 +354,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec)
+public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
     
     
    
-   <a href='../proc/symba_collision_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_check_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -397,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~78"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~92"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -412,7 +400,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>
   
@@ -427,7 +415,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~65"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -442,7 +430,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~29"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~33"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -472,7 +460,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~5"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~3"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -487,6 +475,15 @@ <h3>Arguments</h3>
     
     
     
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-lany_collision"></span><small>logical
+  </small></h3>
+    <p>Returns true if cany pair of encounters resulted in a collision n</p>
+    
+    
     <br>
 
  </div>
diff --git a/docs/interface/symba_encounter_check_pltpenc.html b/docs/interface/symba_collision_encounter_extract_collisions.html
similarity index 71%
rename from docs/interface/symba_encounter_check_pltpenc.html
rename to docs/interface/symba_collision_encounter_extract_collisions.html
index e0321ae3e..d6ab16c44 100644
--- a/docs/interface/symba_encounter_check_pltpenc.html
+++ b/docs/interface/symba_collision_encounter_extract_collisions.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_encounter_check_pltpenc &ndash; swiftest</title>
+    <title>symba_collision_encounter_extract_collisions &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_encounter_check_pltpenc
+    <h1>symba_collision_encounter_extract_collisions
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_encounter_check_pltpenc
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_encounter_check_pltpenc</li>
+     <li class="active">symba_collision_encounter_extract_collisions</li>
   </ol>
 </div>
 </div>
@@ -219,56 +219,56 @@ <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_encounter_check_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_encounter_check_pltpencCallsGraph" width="478pt" height="74pt"
- viewBox="0.00 0.00 478.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>interface~~symba_encounter_check_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 474,-70 474,4 -4,4"/>
-<!-- interface~symba_encounter_check_pltpenc -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_node1" class="node">
-<title>interface~symba_encounter_check_pltpenc</title>
-<polygon fill="none" stroke="black" points="172,-45 0,-45 0,-21 172,-21 172,-45"/>
-<text text-anchor="middle" x="86" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check_pltpenc</text>
+<!-- Title: interface~~symba_collision_encounter_extract_collisions~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_encounter_extract_collisionsCallsGraph" width="592pt" height="74pt"
+ viewBox="0.00 0.00 592.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~symba_collision_encounter_extract_collisions~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 588,-70 588,4 -4,4"/>
+<!-- interface~symba_collision_encounter_extract_collisions -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_encounter_extract_collisions</title>
+<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_collision_encounter_extract_collisions</text>
 </g>
-<!-- proc~symba_encounter_check_pltpenc -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_node2" class="node">
-<title>proc~symba_encounter_check_pltpenc</title>
-<g id="a_interface~~symba_encounter_check_pltpenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_encounter_check_pltpenc.html" xlink:title="symba_encounter_check_pltpenc">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="380,-45 208,-45 208,-21 380,-21 380,-45"/>
-<text text-anchor="middle" x="294" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pltpenc</text>
+<!-- proc~symba_collision_encounter_extract_collisions -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_encounter_extract_collisions</title>
+<g id="a_interface~~symba_collision_encounter_extract_collisions~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_encounter_extract_collisions.html" xlink:title="symba_collision_encounter_extract_collisions">
+<polygon fill="#d9534f" stroke="#d9534f" 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_collision_encounter_extract_collisions</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_pltpenc&#45;&gt;proc~symba_encounter_check_pltpenc -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_edge1" 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="M172.28,-33C180.62,-33 189.12,-33 197.55,-33"/>
-<polygon fill="#000000" stroke="#000000" points="197.79,-36.5 207.79,-33 197.79,-29.5 197.79,-36.5"/>
+<!-- interface~symba_collision_encounter_extract_collisions&#45;&gt;proc~symba_collision_encounter_extract_collisions -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_encounter_extract_collisions&#45;&gt;proc~symba_collision_encounter_extract_collisions</title>
+<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>
-<!-- ind2 -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_node3" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="470,-66 416,-66 416,-42 470,-42 470,-66"/>
-<text text-anchor="middle" x="443" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+<!-- idx2 -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_node3" class="node">
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="584,-66 530,-66 530,-42 584,-42 584,-66"/>
+<text text-anchor="middle" x="557" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind2 -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M379.23,-45.03C388.52,-46.36 397.58,-47.65 405.79,-48.83"/>
-<polygon fill="#000000" stroke="#000000" points="405.3,-52.29 415.7,-50.24 406.29,-45.36 405.3,-52.29"/>
+<!-- proc~symba_collision_encounter_extract_collisions&#45;&gt;idx2 -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_encounter_extract_collisions&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M480.81,-45C494.68,-46.66 508.13,-48.27 519.72,-49.66"/>
+<polygon fill="#000000" stroke="#000000" points="519.46,-53.15 529.8,-50.87 520.29,-46.2 519.46,-53.15"/>
 </g>
-<!-- ind1 -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_node4" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="470,-24 416,-24 416,0 470,0 470,-24"/>
-<text text-anchor="middle" x="443" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+<!-- idx1 -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_node4" class="node">
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="584,-24 530,-24 530,0 584,0 584,-24"/>
+<text text-anchor="middle" x="557" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind1 -->
-<g id="interface~~symba_encounter_check_pltpenc~~CallsGraph_edge3" class="edge">
-<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M379.23,-20.97C388.52,-19.64 397.58,-18.35 405.79,-17.17"/>
-<polygon fill="#000000" stroke="#000000" points="406.29,-20.64 415.7,-15.76 405.3,-13.71 406.29,-20.64"/>
+<!-- proc~symba_collision_encounter_extract_collisions&#45;&gt;idx1 -->
+<g id="interface~~symba_collision_encounter_extract_collisions~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_encounter_extract_collisions&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M480.81,-21C494.68,-19.34 508.13,-17.73 519.72,-16.34"/>
+<polygon fill="#000000" stroke="#000000" points="520.29,-19.8 529.8,-15.13 519.46,-12.85 520.29,-19.8"/>
 </g>
 </g>
 </svg>
@@ -339,11 +339,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter)
+public module subroutine symba_collision_encounter_extract_collisions(self, system, param)
     
     
    
-   <a href='../proc/symba_encounter_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_encounter_extract_collisions.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -370,12 +370,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~76"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~96"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -385,7 +385,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~48"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,27 +400,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~41"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-param~69"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-irec~3"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -430,15 +415,6 @@ <h3>Arguments</h3>
     
     
     
-    
-    
-    
-    
-      <h3>Return Value <span class="anchor" id="variable-lany_encounter~2"></span><small>logical
-  </small></h3>
-    <p>Returns true if there is at least one close encounter      </p>
-    
-    
     <br>
 
  </div>
diff --git a/docs/interface/symba_collision_make_family_pl.html b/docs/interface/symba_collision_make_colliders_pl.html
similarity index 82%
rename from docs/interface/symba_collision_make_family_pl.html
rename to docs/interface/symba_collision_make_colliders_pl.html
index 3db7e454d..5a5c8c82b 100644
--- a/docs/interface/symba_collision_make_family_pl.html
+++ b/docs/interface/symba_collision_make_colliders_pl.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_collision_make_family_pl &ndash; swiftest</title>
+    <title>symba_collision_make_colliders_pl &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_collision_make_family_pl
+    <h1>symba_collision_make_colliders_pl
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_make_family_pl
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_collision_make_family_pl</li>
+     <li class="active">symba_collision_make_colliders_pl</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_collision_make_family_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_collision_make_family_plCallsGraph" width="380pt" height="32pt"
- viewBox="0.00 0.00 380.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_collision_make_family_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~symba_collision_make_family_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 376,-28 376,4 -4,4"/>
-<!-- interface~symba_collision_make_family_pl -->
-<g id="interface~~symba_collision_make_family_pl~~CallsGraph_node1" class="node">
-<title>interface~symba_collision_make_family_pl</title>
-<polygon fill="none" stroke="black" points="168,-24 0,-24 0,0 168,0 168,-24"/>
-<text text-anchor="middle" x="84" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_make_family_pl</text>
+<!-- Title: interface~~symba_collision_make_colliders_pl~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_make_colliders_plCallsGraph" width="402pt" height="32pt"
+ viewBox="0.00 0.00 402.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_make_colliders_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_collision_make_colliders_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 398,-28 398,4 -4,4"/>
+<!-- interface~symba_collision_make_colliders_pl -->
+<g id="interface~~symba_collision_make_colliders_pl~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_make_colliders_pl</title>
+<polygon fill="none" stroke="black" points="179,-24 0,-24 0,0 179,0 179,-24"/>
+<text text-anchor="middle" x="89.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_make_colliders_pl</text>
 </g>
-<!-- proc~symba_collision_make_family_pl -->
-<g id="interface~~symba_collision_make_family_pl~~CallsGraph_node2" class="node">
-<title>proc~symba_collision_make_family_pl</title>
-<g id="a_interface~~symba_collision_make_family_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_make_family_pl.html" xlink:title="symba_collision_make_family_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="372,-24 204,-24 204,0 372,0 372,-24"/>
-<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_family_pl</text>
+<!-- proc~symba_collision_make_colliders_pl -->
+<g id="interface~~symba_collision_make_colliders_pl~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_make_colliders_pl</title>
+<g id="a_interface~~symba_collision_make_colliders_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_make_colliders_pl.html" xlink:title="symba_collision_make_colliders_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="394,-24 215,-24 215,0 394,0 394,-24"/>
+<text text-anchor="middle" x="304.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_colliders_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_make_family_pl&#45;&gt;proc~symba_collision_make_family_pl -->
-<g id="interface~~symba_collision_make_family_pl~~CallsGraph_edge1" 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="M168.04,-12C176.56,-12 185.26,-12 193.89,-12"/>
-<polygon fill="#000000" stroke="#000000" points="193.96,-15.5 203.96,-12 193.96,-8.5 193.96,-15.5"/>
+<!-- interface~symba_collision_make_colliders_pl&#45;&gt;proc~symba_collision_make_colliders_pl -->
+<g id="interface~~symba_collision_make_colliders_pl~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_make_colliders_pl&#45;&gt;proc~symba_collision_make_colliders_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M179.29,-12C187.65,-12 196.16,-12 204.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="204.86,-15.5 214.86,-12 204.85,-8.5 204.86,-15.5"/>
 </g>
 </g>
 </svg>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_collision_make_family_pl(self, idx)
+public module subroutine symba_collision_make_colliders_pl(self, idx)
     
     
    
-   <a href='../proc/symba_collision_make_family_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_make_colliders_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~80"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~97"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-idx"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-idx~2"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/symba_collision_resolve_fragmentations.html b/docs/interface/symba_collision_resolve_fragmentations.html
index 4c73716e2..610ede82e 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -220,283 +220,286 @@ <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="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)">
+<svg id="interfacesymba_collision_resolve_fragmentationsCallsGraph" width="641pt" height="160pt"
+ viewBox="0.00 0.00 641.00 159.60" 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.52 0.52) rotate(0) translate(4 301)">
 <title>interface~~symba_collision_resolve_fragmentations~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-322 1204,-322 1204,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301 1221,-301 1221,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>
-<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>
+<polygon fill="none" stroke="black" points="205,-150 0,-150 0,-126 205,-126 205,-150"/>
+<text text-anchor="middle" x="102.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_fragmentations</text>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node2" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
 <g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-171 241,-171 241,-147 446,-147 446,-171"/>
-<text text-anchor="middle" x="343.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-150 241,-150 241,-126 446,-126 446,-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_fragmentations</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge1" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.2,-138C213.7,-138 222.31,-138 230.87,-138"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-141.5 240.89,-138 230.89,-134.5 230.89,-141.5"/>
 </g>
-<!-- idx2 -->
+<!-- proc~symba_collision_consolidate_colliders -->
 <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>
+<title>proc~symba_collision_consolidate_colliders</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_consolidate_colliders.html" xlink:title="symba_collision_consolidate_colliders">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="675,-276 482,-276 482,-252 675,-252 675,-276"/>
+<text text-anchor="middle" x="578.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_colliders</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders -->
 <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"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M356.53,-150.2C379.03,-172.29 429.96,-218.86 482,-243 486.65,-245.15 491.52,-247.09 496.51,-248.84"/>
+<polygon fill="#000000" stroke="#000000" points="495.62,-252.23 506.21,-251.95 497.76,-245.56 495.62,-252.23"/>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<!-- idx2 -->
 <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_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>
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="605.5,-234 551.5,-234 551.5,-210 605.5,-210 605.5,-234"/>
+<text text-anchor="middle" x="578.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
-<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="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"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M366.77,-150C393.48,-163.97 439.92,-186.91 482,-201 501.2,-207.43 523.23,-212.42 541.3,-215.93"/>
+<polygon fill="#000000" stroke="#000000" points="540.68,-219.37 551.15,-217.77 541.96,-212.49 540.68,-219.37"/>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
+<!-- idx1 -->
 <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>
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="605.5,-192 551.5,-192 551.5,-168 605.5,-168 605.5,-192"/>
+<text text-anchor="middle" x="578.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- 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;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"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M411.27,-150.04C453.56,-157.66 506.61,-167.22 541.25,-173.47"/>
+<polygon fill="#000000" stroke="#000000" points="540.91,-176.96 551.37,-175.29 542.15,-170.07 540.91,-176.96"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_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>
+<title>interface~symba_collision_casemerge</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node6"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="652,-66 505,-66 505,-42 652,-42 652,-66"/>
+<text text-anchor="middle" x="578.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_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"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M366.77,-126C393.48,-112.03 439.92,-89.09 482,-75 489.05,-72.64 496.49,-70.47 503.97,-68.5"/>
+<polygon fill="#000000" stroke="#000000" points="504.96,-71.86 513.8,-66.02 503.24,-65.07 504.96,-71.86"/>
 </g>
-<!-- idx1 -->
+<!-- interface~symba_collision_casedisruption -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node7" class="node">
-<title>idx1</title>
-<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>
+<title>interface~symba_collision_casedisruption</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node7"><a xlink:href=".././interface/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="660,-108 497,-108 497,-84 660,-84 660,-108"/>
+<text text-anchor="middle" x="578.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge6" class="edge">
-<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"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M411.27,-125.96C439.18,-120.93 471.77,-115.06 500.67,-109.85"/>
+<polygon fill="#000000" stroke="#000000" points="501.5,-113.26 510.72,-108.04 500.26,-106.37 501.5,-113.26"/>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun -->
+<!-- interface~symba_collision_casehitandrun -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node8" class="node">
-<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>
+<title>interface~symba_collision_casehitandrun</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node8"><a xlink:href=".././interface/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="659,-150 498,-150 498,-126 659,-126 659,-150"/>
+<text text-anchor="middle" x="578.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge7" 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;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M446.02,-138C459.8,-138 473.86,-138 487.42,-138"/>
+<polygon fill="#000000" stroke="#000000" points="487.68,-141.5 497.68,-138 487.68,-134.5 487.68,-141.5"/>
 </g>
 <!-- util_exit -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node9" class="node">
 <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>
+<polygon fill="#777777" stroke="#777777" points="605.5,-24 551.5,-24 551.5,0 605.5,0 605.5,-24"/>
+<text text-anchor="middle" x="578.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;util_exit -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge8" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M356.53,-125.8C379.03,-103.71 429.96,-57.14 482,-33 500.62,-24.36 522.96,-19.2 541.35,-16.15"/>
+<polygon fill="#000000" stroke="#000000" points="542.03,-19.59 551.39,-14.63 540.98,-12.67 542.03,-19.59"/>
 </g>
-<!-- interface~symba_fragmentation_casedisruption -->
+<!-- id_arr -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node10" class="node">
-<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>
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="819.5,-255 765.5,-255 765.5,-231 819.5,-231 819.5,-255"/>
+<text text-anchor="middle" x="792.5" y="-240.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;id_arr -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge9" 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"/>
-</g>
-<!-- proc~symba_fragmentation_casesupercatastrophic -->
-<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_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>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M675.27,-254.51C703.56,-251.71 732.83,-248.81 754.92,-246.62"/>
+<polygon fill="#000000" stroke="#000000" points="755.54,-250.08 765.15,-245.61 754.85,-243.11 755.54,-250.08"/>
 </g>
+<!-- idx_arr -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node13" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="819.5,-297 765.5,-297 765.5,-273 819.5,-273 819.5,-297"/>
+<text text-anchor="middle" x="792.5" y="-282.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr -->
 <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,-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"/>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M675.27,-273.49C703.56,-276.29 732.83,-279.19 754.92,-281.38"/>
+<polygon fill="#000000" stroke="#000000" points="754.85,-284.89 765.15,-282.39 755.54,-277.92 754.85,-284.89"/>
 </g>
-<!-- id_arr -->
+<!-- proc~symba_collision_casemerge -->
 <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"/>
+<title>proc~symba_collision_casemerge</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node14"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="866,-66 719,-66 719,-42 866,-42 866,-66"/>
+<text text-anchor="middle" x="792.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
 </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 -->
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
 <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"/>
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.16,-54C670.37,-54 690.03,-54 708.69,-54"/>
+<polygon fill="#000000" stroke="#000000" points="708.93,-57.5 718.93,-54 708.93,-50.5 708.93,-57.5"/>
+</g>
+<!-- proc~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node12" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node12"><a xlink:href=".././proc/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="874,-108 711,-108 711,-84 874,-84 874,-108"/>
+<text text-anchor="middle" x="792.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
+</g>
 </g>
-<!-- proc~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge12" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M660.25,-96C673.49,-96 687.29,-96 700.76,-96"/>
+<polygon fill="#000000" stroke="#000000" points="700.97,-99.5 710.97,-96 700.97,-92.5 700.97,-99.5"/>
+</g>
+<!-- proc~symba_collision_casehitandrun -->
 <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>
+<title>proc~symba_collision_casehitandrun</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node11"><a xlink:href=".././proc/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="873,-150 712,-150 712,-126 873,-126 873,-150"/>
+<text text-anchor="middle" x="792.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
 <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"/>
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.04,-138C672.94,-138 687.49,-138 701.64,-138"/>
+<polygon fill="#000000" stroke="#000000" points="701.86,-141.5 711.86,-138 701.86,-134.5 701.86,-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_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>
+<!-- proc~symba_collision_collider_message -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node15" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node15"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="1087,-150 910,-150 910,-126 1087,-126 1087,-150"/>
+<text text-anchor="middle" x="998.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message -->
 <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"/>
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M873.25,-138C881.84,-138 890.66,-138 899.44,-138"/>
+<polygon fill="#000000" stroke="#000000" points="899.71,-141.5 909.71,-138 899.71,-134.5 899.71,-141.5"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption -->
-<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_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>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node16" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node16"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="1078.5,-108 918.5,-108 918.5,-84 1078.5,-84 1078.5,-108"/>
+<text text-anchor="middle" x="998.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub -->
 <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>
-<!-- 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>
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M851.96,-125.96C876.07,-121 904.18,-115.21 929.24,-110.05"/>
+<polygon fill="#000000" stroke="#000000" points="929.94,-113.48 939.03,-108.04 928.53,-106.63 929.94,-113.48"/>
 </g>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node17" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="1075.5,-66 921.5,-66 921.5,-42 1075.5,-42 1075.5,-66"/>
+<text text-anchor="middle" x="998.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </g>
-<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message -->
 <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="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>
+<title>proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M855.76,-125.9C862.16,-123.46 868.37,-120.52 874,-117 894.85,-103.97 889.03,-87.83 910,-75 912.96,-73.19 916.05,-71.54 919.25,-70.03"/>
+<polygon fill="#000000" stroke="#000000" points="920.62,-73.25 928.48,-66.14 917.9,-66.8 920.62,-73.25"/>
 </g>
-<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message -->
 <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="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"/>
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M851.96,-108.04C876.07,-113 904.18,-118.79 929.24,-123.95"/>
+<polygon fill="#000000" stroke="#000000" points="928.53,-127.37 939.03,-125.96 929.94,-120.52 928.53,-127.37"/>
 </g>
-<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_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"/>
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M874.13,-96C885.3,-96 896.82,-96 908.14,-96"/>
+<polygon fill="#000000" stroke="#000000" points="908.46,-99.5 918.46,-96 908.46,-92.5 908.46,-99.5"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
+<!-- proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message -->
 <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="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"/>
+<title>proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M851.96,-83.96C876.07,-79 904.18,-73.21 929.24,-68.05"/>
+<polygon fill="#000000" stroke="#000000" points="929.94,-71.48 939.03,-66.04 928.53,-64.63 929.94,-71.48"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M855.76,-66.1C862.16,-68.54 868.37,-71.48 874,-75 894.85,-88.03 889.03,-104.17 910,-117 912.96,-118.81 916.05,-120.46 919.25,-121.97"/>
+<polygon fill="#000000" stroke="#000000" points="917.9,-125.2 928.48,-125.86 920.62,-118.75 917.9,-125.2"/>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M851.96,-66.04C876.07,-71 904.18,-76.79 929.24,-81.95"/>
+<polygon fill="#000000" stroke="#000000" points="928.53,-85.37 939.03,-83.96 929.94,-78.52 928.53,-85.37"/>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M866.28,-54C880.79,-54 896.15,-54 911.06,-54"/>
+<polygon fill="#000000" stroke="#000000" points="911.3,-57.5 921.3,-54 911.3,-50.5 911.3,-57.5"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node18" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1217,-108 1123,-108 1123,-84 1217,-84 1217,-108"/>
+<text text-anchor="middle" x="1170" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge23" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M1078.79,-96C1090.15,-96 1101.64,-96 1112.45,-96"/>
+<polygon fill="#000000" stroke="#000000" points="1112.57,-99.5 1122.57,-96 1112.57,-92.5 1112.57,-99.5"/>
 </g>
 </g>
 </svg>
@@ -598,7 +601,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~81"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-self~98"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -613,7 +616,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~49"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -628,8 +631,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-param~70"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/symba_collision_resolve_mergers.html b/docs/interface/symba_collision_resolve_mergers.html
index d10df7bbe..5fbac8dff 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -220,139 +220,178 @@ <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="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)">
+<svg id="interfacesymba_collision_resolve_mergersCallsGraph" width="641pt" height="124pt"
+ viewBox="0.00 0.00 641.00 123.51" 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.56 0.56) rotate(0) translate(4 217)">
 <title>interface~~symba_collision_resolve_mergers~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 1046,-154 1046,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-217 1143,-217 1143,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>
-<polygon fill="none" stroke="black" points="174,-87 0,-87 0,-63 174,-63 174,-87"/>
-<text text-anchor="middle" x="87" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_mergers</text>
+<polygon fill="none" stroke="black" points="174,-129 0,-129 0,-105 174,-105 174,-129"/>
+<text text-anchor="middle" x="87" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_mergers</text>
 </g>
 <!-- proc~symba_collision_resolve_mergers -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node2" class="node">
 <title>proc~symba_collision_resolve_mergers</title>
 <g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#d9534f" stroke="#d9534f" points="384,-87 210,-87 210,-63 384,-63 384,-87"/>
-<text text-anchor="middle" x="297" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="384,-129 210,-129 210,-105 384,-105 384,-129"/>
+<text text-anchor="middle" x="297" y="-114.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="interface~~symba_collision_resolve_mergers~~CallsGraph_edge1" 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="M174.1,-75C182.62,-75 191.3,-75 199.91,-75"/>
-<polygon fill="#000000" stroke="#000000" points="199.96,-78.5 209.96,-75 199.96,-71.5 199.96,-78.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.1,-117C182.62,-117 191.3,-117 199.91,-117"/>
+<polygon fill="#000000" stroke="#000000" points="199.96,-120.5 209.96,-117 199.96,-113.5 199.96,-120.5"/>
 </g>
-<!-- idx1 -->
+<!-- proc~symba_collision_consolidate_colliders -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node3" class="node">
-<title>idx1</title>
-<polygon fill="#777777" stroke="#777777" points="540.5,-150 486.5,-150 486.5,-126 540.5,-126 540.5,-150"/>
-<text text-anchor="middle" x="513.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<title>proc~symba_collision_consolidate_colliders</title>
+<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_consolidate_colliders.html" xlink:title="symba_collision_consolidate_colliders">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="613,-192 420,-192 420,-168 613,-168 613,-192"/>
+<text text-anchor="middle" x="516.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_colliders</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
-<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"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M329.79,-129.07C354.23,-138.07 388.95,-150.27 420,-159 428.31,-161.34 437.09,-163.57 445.82,-165.66"/>
+<polygon fill="#000000" stroke="#000000" points="445.1,-169.08 455.63,-167.94 446.69,-162.27 445.1,-169.08"/>
 </g>
 <!-- idx2 -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node4" class="node">
 <title>idx2</title>
-<polygon fill="#777777" stroke="#777777" points="540.5,-108 486.5,-108 486.5,-84 540.5,-84 540.5,-108"/>
-<text text-anchor="middle" x="513.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<polygon fill="#777777" stroke="#777777" points="543.5,-150 489.5,-150 489.5,-126 543.5,-126 543.5,-150"/>
+<text text-anchor="middle" x="516.5" y="-135.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="interface~~symba_collision_resolve_mergers~~CallsGraph_edge3" class="edge">
 <title>proc~symba_collision_resolve_mergers&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M384.01,-83.42C416.03,-86.56 450.69,-89.95 475.93,-92.42"/>
-<polygon fill="#000000" stroke="#000000" points="475.84,-95.93 486.13,-93.42 476.52,-88.96 475.84,-95.93"/>
+<path fill="none" stroke="#000000" d="M384.27,-125.33C417.21,-128.51 453.03,-131.97 478.91,-134.47"/>
+<polygon fill="#000000" stroke="#000000" points="478.72,-137.96 489.01,-135.44 479.39,-131 478.72,-137.96"/>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
+<!-- idx1 -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node5" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node5"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="607,-66 420,-66 420,-42 607,-42 607,-66"/>
-<text text-anchor="middle" x="513.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
-</a>
-</g>
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="543.5,-108 489.5,-108 489.5,-84 543.5,-84 543.5,-108"/>
+<text text-anchor="middle" x="516.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes -->
-<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"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
+<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="M384.27,-108.67C417.21,-105.49 453.03,-102.03 478.91,-99.53"/>
+<polygon fill="#000000" stroke="#000000" points="479.39,-103 489.01,-98.56 478.72,-96.04 479.39,-103"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casemerge -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node6" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node6"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#a7506f" stroke="#a7506f" points="601,-24 426,-24 426,0 601,0 601,-24"/>
-<text text-anchor="middle" x="513.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<title>interface~symba_collision_casemerge</title>
+<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node6"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="590,-66 443,-66 443,-42 590,-42 590,-66"/>
+<text text-anchor="middle" x="516.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge5" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M329.81,-62.99C354.25,-54.02 388.98,-41.83 420,-33 428.08,-30.7 436.62,-28.48 445.11,-26.4"/>
-<polygon fill="#000000" stroke="#000000" points="446.1,-29.76 455.02,-24.03 444.48,-22.96 446.1,-29.76"/>
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M329.79,-104.93C354.23,-95.93 388.95,-83.73 420,-75 428.31,-72.66 437.09,-70.43 445.82,-68.34"/>
+<polygon fill="#000000" stroke="#000000" points="446.69,-71.73 455.63,-66.06 445.1,-64.92 446.69,-71.73"/>
 </g>
-<!-- idx_arr -->
-<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node8" class="node">
-<title>idx_arr</title>
-<polygon fill="#777777" stroke="#777777" points="757.5,-108 703.5,-108 703.5,-84 757.5,-84 757.5,-108"/>
-<text text-anchor="middle" x="730.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
+<!-- id_arr -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node7" class="node">
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="749.5,-213 695.5,-213 695.5,-189 749.5,-189 749.5,-213"/>
+<text text-anchor="middle" x="722.5" y="-198.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;id_arr -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge6" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
-<path fill="none" stroke="#000000" d="M576.11,-66.04C614.01,-73.44 661.29,-82.68 693.26,-88.92"/>
-<polygon fill="#000000" stroke="#000000" points="693,-92.44 703.48,-90.92 694.34,-85.57 693,-92.44"/>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M613.23,-189.85C638.97,-192.5 665.24,-195.21 685.46,-197.29"/>
+<polygon fill="#000000" stroke="#000000" points="685.15,-200.78 695.45,-198.32 685.86,-193.81 685.15,-200.78"/>
 </g>
-<!-- id_arr -->
-<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node9" class="node">
-<title>id_arr</title>
-<polygon fill="#777777" stroke="#777777" points="757.5,-66 703.5,-66 703.5,-42 757.5,-42 757.5,-66"/>
-<text text-anchor="middle" x="730.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
+<!-- idx_arr -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node8" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="749.5,-171 695.5,-171 695.5,-147 749.5,-147 749.5,-171"/>
+<text text-anchor="middle" x="722.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge7" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
-<path fill="none" stroke="#000000" d="M607.24,-54C637.59,-54 669.55,-54 693.18,-54"/>
-<polygon fill="#000000" stroke="#000000" points="693.41,-57.5 703.41,-54 693.41,-50.5 693.41,-57.5"/>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M613.23,-170.15C638.97,-167.5 665.24,-164.79 685.46,-162.71"/>
+<polygon fill="#000000" stroke="#000000" points="685.86,-166.19 695.45,-161.68 685.15,-159.22 685.86,-166.19"/>
 </g>
-<!-- proc~symba_fragmentation_casemerge -->
-<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node7" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node7"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="818,-24 643,-24 643,0 818,0 818,-24"/>
-<text text-anchor="middle" x="730.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- proc~symba_collision_casemerge -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node9" class="node">
+<title>proc~symba_collision_casemerge</title>
+<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node9"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="796,-66 649,-66 649,-42 796,-42 796,-66"/>
+<text text-anchor="middle" x="722.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge8" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<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"/>
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.28,-54C605.87,-54 622.44,-54 638.38,-54"/>
+<polygon fill="#000000" stroke="#000000" points="638.74,-57.5 648.74,-54 638.74,-50.5 638.74,-57.5"/>
 </g>
-<!-- proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_collider_message -->
 <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>
+<title>proc~symba_collision_collider_message</title>
+<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node10"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="1009,-108 832,-108 832,-84 1009,-84 1009,-108"/>
+<text text-anchor="middle" x="920.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M779.67,-66.04C802.63,-70.96 829.37,-76.69 853.27,-81.81"/>
+<polygon fill="#000000" stroke="#000000" points="852.81,-85.29 863.33,-83.96 854.28,-78.45 852.81,-85.29"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node11" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node11"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="1000.5,-66 840.5,-66 840.5,-42 1000.5,-42 1000.5,-66"/>
+<text text-anchor="middle" x="920.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge10" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M796.2,-54C807.21,-54 818.68,-54 830,-54"/>
+<polygon fill="#000000" stroke="#000000" points="830.33,-57.5 840.33,-54 830.33,-50.5 830.33,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node12" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="997.5,-24 843.5,-24 843.5,0 997.5,0 997.5,-24"/>
+<text text-anchor="middle" x="920.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge11" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M779.67,-41.96C802.63,-37.04 829.37,-31.31 853.27,-26.19"/>
+<polygon fill="#000000" stroke="#000000" points="854.28,-29.55 863.33,-24.04 852.81,-22.71 854.28,-29.55"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node13" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1139,-66 1045,-66 1045,-42 1139,-42 1139,-66"/>
+<text text-anchor="middle" x="1092" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge12" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M1000.79,-54C1012.15,-54 1023.64,-54 1034.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="1034.57,-57.5 1044.57,-54 1034.57,-50.5 1034.57,-57.5"/>
 </g>
 </g>
 </svg>
@@ -454,7 +493,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~82"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-self~99"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -469,7 +508,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~43"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~50"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -484,8 +523,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~71"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/symba_kick_pltpenc.html b/docs/interface/symba_collision_resolve_plplenc.html
similarity index 75%
rename from docs/interface/symba_kick_pltpenc.html
rename to docs/interface/symba_collision_resolve_plplenc.html
index 2258630b4..c38a20f09 100644
--- a/docs/interface/symba_kick_pltpenc.html
+++ b/docs/interface/symba_collision_resolve_plplenc.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_kick_pltpenc &ndash; swiftest</title>
+    <title>symba_collision_resolve_plplenc &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_kick_pltpenc
+    <h1>symba_collision_resolve_plplenc
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_kick_pltpenc
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_kick_pltpenc</li>
+     <li class="active">symba_collision_resolve_plplenc</li>
   </ol>
 </div>
 </div>
@@ -219,56 +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~~symba_kick_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_kick_pltpencCallsGraph" width="352pt" height="74pt"
- viewBox="0.00 0.00 352.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_kick_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>interface~~symba_kick_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 348,-70 348,4 -4,4"/>
-<!-- interface~symba_kick_pltpenc -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_node1" class="node">
-<title>interface~symba_kick_pltpenc</title>
-<polygon fill="none" stroke="black" points="109,-45 0,-45 0,-21 109,-21 109,-45"/>
-<text text-anchor="middle" x="54.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_pltpenc</text>
+<!-- Title: interface~~symba_collision_resolve_plplenc~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_resolve_plplencCallsGraph" width="570pt" height="32pt"
+ viewBox="0.00 0.00 570.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_resolve_plplenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_collision_resolve_plplenc~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 566,-28 566,4 -4,4"/>
+<!-- interface~symba_collision_resolve_plplenc -->
+<g id="interface~~symba_collision_resolve_plplenc~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_resolve_plplenc</title>
+<polygon fill="none" stroke="black" points="168,-24 0,-24 0,0 168,0 168,-24"/>
+<text text-anchor="middle" x="84" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_plplenc</text>
 </g>
-<!-- proc~symba_kick_pltpenc -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_node2" class="node">
-<title>proc~symba_kick_pltpenc</title>
-<g id="a_interface~~symba_kick_pltpenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_kick_pltpenc.html" xlink:title="symba_kick_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="254,-45 145,-45 145,-21 254,-21 254,-45"/>
-<text text-anchor="middle" x="199.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_pltpenc</text>
+<!-- proc~symba_collision_resolve_plplenc -->
+<g id="interface~~symba_collision_resolve_plplenc~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_resolve_plplenc</title>
+<g id="a_interface~~symba_collision_resolve_plplenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_plplenc.html" xlink:title="symba_collision_resolve_plplenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-24 204,-24 204,0 372,0 372,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_plplenc</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_edge1" class="edge">
-<title>interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-33C117.38,-33 125.94,-33 134.37,-33"/>
-<polygon fill="#000000" stroke="#000000" points="134.54,-36.5 144.54,-33 134.54,-29.5 134.54,-36.5"/>
+<!-- interface~symba_collision_resolve_plplenc&#45;&gt;proc~symba_collision_resolve_plplenc -->
+<g id="interface~~symba_collision_resolve_plplenc~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_resolve_plplenc&#45;&gt;proc~symba_collision_resolve_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.04,-12C176.56,-12 185.26,-12 193.89,-12"/>
+<polygon fill="#000000" stroke="#000000" points="193.96,-15.5 203.96,-12 193.96,-8.5 193.96,-15.5"/>
 </g>
-<!-- ind2 -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_node3" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="344,-66 290,-66 290,-42 344,-42 344,-66"/>
-<text text-anchor="middle" x="317" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_resolve_plplenc~~CallsGraph_node3" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="562,-24 408,-24 408,0 562,0 562,-24"/>
+<text text-anchor="middle" x="485" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </g>
-<!-- proc~symba_kick_pltpenc&#45;&gt;ind2 -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_kick_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M254.19,-42.76C262.89,-44.34 271.71,-45.95 279.86,-47.43"/>
-<polygon fill="#000000" stroke="#000000" points="279.3,-50.89 289.77,-49.23 280.56,-44 279.3,-50.89"/>
-</g>
-<!-- ind1 -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_node4" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="344,-24 290,-24 290,0 344,0 344,-24"/>
-<text text-anchor="middle" x="317" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
-</g>
-<!-- proc~symba_kick_pltpenc&#45;&gt;ind1 -->
-<g id="interface~~symba_kick_pltpenc~~CallsGraph_edge3" class="edge">
-<title>proc~symba_kick_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M254.19,-23.24C262.89,-21.66 271.71,-20.05 279.86,-18.57"/>
-<polygon fill="#000000" stroke="#000000" points="280.56,-22 289.77,-16.77 279.3,-15.11 280.56,-22"/>
+<!-- proc~symba_collision_resolve_plplenc&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_collision_resolve_plplenc~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_plplenc&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M372.26,-12C380.65,-12 389.19,-12 397.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="397.81,-15.5 407.81,-12 397.81,-8.5 397.81,-15.5"/>
 </g>
 </g>
 </svg>
@@ -339,11 +327,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
+public module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec)
     
     
    
-   <a href='../proc/symba_kick_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_resolve_plplenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -370,12 +358,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-self~100"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -400,12 +388,27 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~47"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-param~72"></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 with SyMBA additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~34"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
   
 </tr>
 
@@ -415,12 +418,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~7"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-dt~47"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
+  <td><strong>dt</strong></td><td><p>Current simulation step size</p></td>
   
 </tr>
 
@@ -430,12 +433,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-sgn"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~7"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>sgn</strong></td><td><p>sign to be applied to acceleration</p></td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
   
 </tr>
 
diff --git a/docs/interface/symba_collision_encounter_scrub.html b/docs/interface/symba_collision_resolve_pltpenc.html
similarity index 74%
rename from docs/interface/symba_collision_encounter_scrub.html
rename to docs/interface/symba_collision_resolve_pltpenc.html
index 26679319c..06dec9e03 100644
--- a/docs/interface/symba_collision_encounter_scrub.html
+++ b/docs/interface/symba_collision_resolve_pltpenc.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_collision_encounter_scrub &ndash; swiftest</title>
+    <title>symba_collision_resolve_pltpenc &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_collision_encounter_scrub
+    <h1>symba_collision_resolve_pltpenc
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_encounter_scrub
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_collision_encounter_scrub</li>
+     <li class="active">symba_collision_resolve_pltpenc</li>
   </ol>
 </div>
 </div>
@@ -219,56 +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_collision_encounter_scrub~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_collision_encounter_scrubCallsGraph" width="482pt" height="74pt"
- viewBox="0.00 0.00 482.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_collision_encounter_scrub~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>interface~~symba_collision_encounter_scrub~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 478,-70 478,4 -4,4"/>
-<!-- interface~symba_collision_encounter_scrub -->
-<g id="interface~~symba_collision_encounter_scrub~~CallsGraph_node1" class="node">
-<title>interface~symba_collision_encounter_scrub</title>
-<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>
+<!-- Title: interface~~symba_collision_resolve_pltpenc~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_collision_resolve_pltpencCallsGraph" width="382pt" height="32pt"
+ viewBox="0.00 0.00 382.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_resolve_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_collision_resolve_pltpenc~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 378,-28 378,4 -4,4"/>
+<!-- interface~symba_collision_resolve_pltpenc -->
+<g id="interface~~symba_collision_resolve_pltpenc~~CallsGraph_node1" class="node">
+<title>interface~symba_collision_resolve_pltpenc</title>
+<polygon fill="none" stroke="black" points="169,-24 0,-24 0,0 169,0 169,-24"/>
+<text text-anchor="middle" x="84.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_pltpenc</text>
 </g>
-<!-- proc~symba_collision_encounter_scrub -->
-<g id="interface~~symba_collision_encounter_scrub~~CallsGraph_node2" class="node">
-<title>proc~symba_collision_encounter_scrub</title>
-<g id="a_interface~~symba_collision_encounter_scrub~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_encounter_scrub.html" xlink:title="symba_collision_encounter_scrub">
-<polygon fill="#d9534f" stroke="#d9534f" points="384,-45 210,-45 210,-21 384,-21 384,-45"/>
-<text text-anchor="middle" x="297" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_scrub</text>
+<!-- proc~symba_collision_resolve_pltpenc -->
+<g id="interface~~symba_collision_resolve_pltpenc~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_resolve_pltpenc</title>
+<g id="a_interface~~symba_collision_resolve_pltpenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_pltpenc.html" xlink:title="symba_collision_resolve_pltpenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-24 205,-24 205,0 374,0 374,-24"/>
+<text text-anchor="middle" x="289.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_encounter_scrub&#45;&gt;proc~symba_collision_encounter_scrub -->
-<g id="interface~~symba_collision_encounter_scrub~~CallsGraph_edge1" 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="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>
-<!-- idx2 -->
-<g id="interface~~symba_collision_encounter_scrub~~CallsGraph_node3" class="node">
-<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">idx2</text>
-</g>
-<!-- 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;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>
-<!-- idx1 -->
-<g id="interface~~symba_collision_encounter_scrub~~CallsGraph_node4" class="node">
-<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">idx1</text>
-</g>
-<!-- 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;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"/>
+<!-- interface~symba_collision_resolve_pltpenc&#45;&gt;proc~symba_collision_resolve_pltpenc -->
+<g id="interface~~symba_collision_resolve_pltpenc~~CallsGraph_edge1" class="edge">
+<title>interface~symba_collision_resolve_pltpenc&#45;&gt;proc~symba_collision_resolve_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.24,-12C177.72,-12 186.37,-12 194.94,-12"/>
+<polygon fill="#000000" stroke="#000000" points="194.95,-15.5 204.95,-12 194.95,-8.5 194.95,-15.5"/>
 </g>
 </g>
 </svg>
@@ -339,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_collision_encounter_scrub(self, system, param)
+public module subroutine symba_collision_resolve_pltpenc(self, system, param, t, dt, irec)
     
     
    
-   <a href='../proc/symba_collision_encounter_scrub.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_resolve_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -370,12 +346,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~79"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-self~101"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list</p></td>
   
 </tr>
 
@@ -385,7 +361,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~52"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,12 +376,57 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~58"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~73"></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 with SyMBA additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~35"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~48"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Current simulation step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~8"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameterss</p></td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
   
 </tr>
 
diff --git a/docs/interface/symba_discard_pl.html b/docs/interface/symba_discard_pl.html
index c3ab29988..805787744 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 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_discard_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_discard_plCallsGraph" width="622pt" height="74pt"
- viewBox="0.00 0.00 622.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_discard_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="interfacesymba_discard_plCallsGraph" width="641pt" height="58pt"
+ viewBox="0.00 0.00 641.00 58.42" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_discard_pl~~CallsGraph" class="graph" transform="scale(0.79 0.79) rotate(0) translate(4 70)">
 <title>interface~~symba_discard_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 618,-70 618,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 808,-70 808,4 -4,4"/>
 <!-- interface~symba_discard_pl -->
 <g id="interface~~symba_discard_pl~~CallsGraph_node1" class="node">
 <title>interface~symba_discard_pl</title>
@@ -246,54 +246,66 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M99.27,-33C107.49,-33 116.1,-33 124.55,-33"/>
 <polygon fill="#000000" stroke="#000000" points="124.74,-36.5 134.74,-33 124.74,-29.5 124.74,-36.5"/>
 </g>
-<!-- proc~symba_discard_nonplpl -->
+<!-- proc~symba_discard_nonplpl_conservation -->
 <g id="interface~~symba_discard_pl~~CallsGraph_node3" class="node">
-<title>proc~symba_discard_nonplpl</title>
-<g id="a_interface~~symba_discard_pl~~CallsGraph_node3"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
-<polygon fill="#d9534f" stroke="#d9534f" points="428.5,-66 303.5,-66 303.5,-42 428.5,-42 428.5,-66"/>
-<text text-anchor="middle" x="366" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
+<title>proc~symba_discard_nonplpl_conservation</title>
+<g id="a_interface~~symba_discard_pl~~CallsGraph_node3"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
+<polygon fill="#d9534f" stroke="#d9534f" points="462,-66 270,-66 270,-42 462,-42 462,-66"/>
+<text text-anchor="middle" x="366" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
 <g id="interface~~symba_discard_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
-<path fill="none" stroke="#000000" d="M234.08,-38.68C252.28,-40.81 273.38,-43.28 293.25,-45.61"/>
-<polygon fill="#000000" stroke="#000000" points="292.85,-49.08 303.19,-46.77 293.67,-42.13 292.85,-49.08"/>
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
+<path fill="none" stroke="#000000" d="M234.08,-38.68C242.15,-39.63 250.79,-40.64 259.63,-41.67"/>
+<polygon fill="#000000" stroke="#000000" points="259.35,-45.16 269.69,-42.85 260.17,-38.21 259.35,-45.16"/>
 </g>
-<!-- proc~symba_discard_nonplpl_conservation -->
+<!-- proc~symba_discard_nonplpl -->
 <g id="interface~~symba_discard_pl~~CallsGraph_node4" class="node">
-<title>proc~symba_discard_nonplpl_conservation</title>
-<g id="a_interface~~symba_discard_pl~~CallsGraph_node4"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
-<polygon fill="#d9534f" stroke="#d9534f" points="462,-24 270,-24 270,0 462,0 462,-24"/>
-<text text-anchor="middle" x="366" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
+<title>proc~symba_discard_nonplpl</title>
+<g id="a_interface~~symba_discard_pl~~CallsGraph_node4"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="428.5,-24 303.5,-24 303.5,0 428.5,0 428.5,-24"/>
+<text text-anchor="middle" x="366" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
 <g id="interface~~symba_discard_pl~~CallsGraph_edge3" class="edge">
-<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
-<path fill="none" stroke="#000000" d="M234.08,-27.32C242.15,-26.37 250.79,-25.36 259.63,-24.33"/>
-<polygon fill="#000000" stroke="#000000" points="260.17,-27.79 269.69,-23.15 259.35,-20.84 260.17,-27.79"/>
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
+<path fill="none" stroke="#000000" d="M234.08,-27.32C252.28,-25.19 273.38,-22.72 293.25,-20.39"/>
+<polygon fill="#000000" stroke="#000000" points="293.67,-23.87 303.19,-19.23 292.85,-16.92 293.67,-23.87"/>
 </g>
 <!-- proc~symba_discard_cb_pl -->
 <g id="interface~~symba_discard_pl~~CallsGraph_node5" class="node">
 <title>proc~symba_discard_cb_pl</title>
 <g id="a_interface~~symba_discard_pl~~CallsGraph_node5"><a xlink:href=".././proc/symba_discard_cb_pl.html" xlink:title="symba_discard_cb_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="614,-66 498,-66 498,-42 614,-42 614,-66"/>
-<text text-anchor="middle" x="556" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="614,-24 498,-24 498,0 614,0 614,-24"/>
+<text text-anchor="middle" x="556" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl -->
 <g id="interface~~symba_discard_pl~~CallsGraph_edge4" class="edge">
 <title>proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl</title>
-<path fill="none" stroke="#000000" d="M428.56,-54C447.44,-54 468.31,-54 487.56,-54"/>
-<polygon fill="#000000" stroke="#000000" points="487.76,-57.5 497.76,-54 487.76,-50.5 487.76,-57.5"/>
+<path fill="none" stroke="#000000" d="M428.56,-12C447.44,-12 468.31,-12 487.56,-12"/>
+<polygon fill="#000000" stroke="#000000" points="487.76,-15.5 497.76,-12 487.76,-8.5 487.76,-15.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="interface~~symba_discard_pl~~CallsGraph_node6" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="804,-24 650,-24 650,0 804,0 804,-24"/>
+<text text-anchor="middle" x="727" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message -->
+<g id="interface~~symba_discard_pl~~CallsGraph_edge5" class="edge">
+<title>proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M614.22,-12C622.47,-12 631.12,-12 639.8,-12"/>
+<polygon fill="#000000" stroke="#000000" points="639.97,-15.5 649.97,-12 639.97,-8.5 639.97,-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_discard_plCallsGraph = svgPanZoom('#interfacesymba_discard_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"
@@ -391,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~83"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~102"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,7 +418,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~53"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -421,7 +433,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~74"></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 4875fb124..e2041a872 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~84"></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>
   
@@ -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~54"></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~75"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~44"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~49"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_drift_tp.html b/docs/interface/symba_drift_tp.html
index 08cc57d88..20a137d17 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~85"></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>
   
@@ -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~55"></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~63"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~76"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~45"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~50"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_encounter_check.html b/docs/interface/symba_encounter_check.html
new file mode 100644
index 000000000..74efd1af5
--- /dev/null
+++ b/docs/interface/symba_encounter_check.html
@@ -0,0 +1,474 @@
+
+<!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_encounter_check &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_encounter_check
+   <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.4% of total for procedures.">261 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_encounter_check</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_encounter_check~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_encounter_checkCallsGraph" width="308pt" height="32pt"
+ viewBox="0.00 0.00 308.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_encounter_check~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_encounter_check~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 304,-28 304,4 -4,4"/>
+<!-- interface~symba_encounter_check -->
+<g id="interface~~symba_encounter_check~~CallsGraph_node1" class="node">
+<title>interface~symba_encounter_check</title>
+<polygon fill="none" stroke="black" points="132,-24 0,-24 0,0 132,0 132,-24"/>
+<text text-anchor="middle" x="66" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check</text>
+</g>
+<!-- proc~symba_encounter_check -->
+<g id="interface~~symba_encounter_check~~CallsGraph_node2" class="node">
+<title>proc~symba_encounter_check</title>
+<g id="a_interface~~symba_encounter_check~~CallsGraph_node2"><a xlink:href=".././proc/symba_encounter_check.html" xlink:title="symba_encounter_check">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="300,-24 168,-24 168,0 300,0 300,-24"/>
+<text text-anchor="middle" x="234" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_encounter_check&#45;&gt;proc~symba_encounter_check -->
+<g id="interface~~symba_encounter_check~~CallsGraph_edge1" class="edge">
+<title>interface~symba_encounter_check&#45;&gt;proc~symba_encounter_check</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-12C140.46,-12 149.04,-12 157.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.78,-15.5 167.78,-12 157.78,-8.5 157.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 function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
+    
+    
+   
+   <a href='../proc/symba_encounter_check.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~94"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <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-dt~45"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~5"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+    
+    
+    
+      <h3>Return Value <span class="anchor" id="variable-lany_encounter~2"></span><small>logical
+  </small></h3>
+    <p>Returns true if there is at least one close encounter      </p>
+    
+    
+    <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_encounter_check_one.html b/docs/interface/symba_encounter_check_one.html
index 328799f73..7b80d91ea 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -496,7 +496,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~46"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~51"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -511,7 +511,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~9"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -526,7 +526,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lencounter~3"></span>logical,</td>
+  <td><span class="anchor" id="variable-lencounter~4"></span>logical,</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/interface/symba_encounter_check_pl.html b/docs/interface/symba_encounter_check_pl.html
index 575db8d9c..5b4f70fd0 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 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_encounter_check_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_encounter_check_plCallsGraph" width="336pt" height="32pt"
- viewBox="0.00 0.00 336.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfacesymba_encounter_check_plCallsGraph" width="520pt" height="32pt"
+ viewBox="0.00 0.00 520.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~symba_encounter_check_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~symba_encounter_check_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 332,-28 332,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 516,-28 516,4 -4,4"/>
 <!-- interface~symba_encounter_check_pl -->
 <g id="interface~~symba_encounter_check_pl~~CallsGraph_node1" class="node">
 <title>interface~symba_encounter_check_pl</title>
@@ -246,6 +246,21 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.18,-12C154.52,-12 163.08,-12 171.54,-12"/>
 <polygon fill="#000000" stroke="#000000" points="171.81,-15.5 181.81,-12 171.81,-8.5 171.81,-15.5"/>
 </g>
+<!-- proc~symba_encounter_check_all -->
+<g id="interface~~symba_encounter_check_pl~~CallsGraph_node3" class="node">
+<title>proc~symba_encounter_check_all</title>
+<g id="a_interface~~symba_encounter_check_pl~~CallsGraph_node3"><a xlink:href=".././proc/symba_encounter_check_all.html" xlink:title="symba_encounter_check_all">
+<polygon fill="#d9534f" stroke="#d9534f" points="512,-24 364,-24 364,0 512,0 512,-24"/>
+<text text-anchor="middle" x="438" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_all</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all -->
+<g id="interface~~symba_encounter_check_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all</title>
+<path fill="none" stroke="#000000" d="M328.06,-12C336.49,-12 345.14,-12 353.71,-12"/>
+<polygon fill="#000000" stroke="#000000" points="353.71,-15.5 363.71,-12 353.71,-8.5 353.71,-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">
@@ -346,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~75"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~93"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +376,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~42"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~40"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~44"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~4"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_encounter_check_tp.html b/docs/interface/symba_encounter_check_tp.html
index f644d6401..7cdffec60 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~77"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~95"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,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~44"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~42"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~46"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~4"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~6"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_fragmentation_casedisruption.html b/docs/interface/symba_fragmentation_casedisruption.html
deleted file mode 100644
index 9caa18ab7..000000000
--- a/docs/interface/symba_fragmentation_casedisruption.html
+++ /dev/null
@@ -1,722 +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_fragmentation_casedisruption &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_casedisruption
-   <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_fragmentation_casedisruption</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_fragmentation_casedisruption~~CallsGraph Pages: 1 -->
-<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,-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,-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,-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,-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="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.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><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"
- "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_fragmentation_casedisruption~~CalledByGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casedisruptionCalledByGraph" width="641pt" height="30pt"
- viewBox="0.00 0.00 641.00 30.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casedisruption~~CalledByGraph" class="graph" transform="scale(0.94 0.94) rotate(0) translate(4 28)">
-<title>interface~~symba_fragmentation_casedisruption~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 677,-28 677,4 -4,4"/>
-<!-- interface~symba_fragmentation_casedisruption -->
-<g id="interface~~symba_fragmentation_casedisruption~~CalledByGraph_node1" class="node">
-<title>interface~symba_fragmentation_casedisruption</title>
-<polygon fill="none" stroke="black" points="673,-24 482,-24 482,0 673,0 673,-24"/>
-<text text-anchor="middle" x="577.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casedisruption</text>
-</g>
-<!-- proc~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casedisruption~~CalledByGraph_node2" class="node">
-<title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casedisruption~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
-<text text-anchor="middle" x="343.5" y="-9.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="interface~~symba_fragmentation_casedisruption~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" d="M446.26,-12C454.65,-12 463.15,-12 471.57,-12"/>
-<polygon fill="#000000" stroke="#000000" points="471.79,-15.5 481.79,-12 471.79,-8.5 471.79,-15.5"/>
-</g>
-<!-- interface~symba_collision_resolve_fragmentations -->
-<g id="interface~~symba_fragmentation_casedisruption~~CalledByGraph_node3" class="node">
-<title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_interface~~symba_fragmentation_casedisruption~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
-<text text-anchor="middle" x="102.5" y="-9.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="interface~~symba_fragmentation_casedisruption~~CalledByGraph_edge2" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
-<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
-</g>
-</g>
-</svg>
-</div><script>var paninterfacesymba_fragmentation_casedisruptionCalledByGraph = svgPanZoom('#interfacesymba_fragmentation_casedisruptionCalledByGraph', {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 function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
-    
-    
-   
-   <a href='../proc/symba_fragmentation_casedisruption.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~36"></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~53"></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~3"></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-x~13"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~5"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~4"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~4"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~2"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~4"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass_res"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-qloss"></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collisionn</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-    
-    
-    
-    
-    
-    
-    
-      <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>
-    
-    
-    <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_dump_particle_info.html b/docs/interface/symba_io_dump_particle_info.html
deleted file mode 100644
index 391ece06f..000000000
--- a/docs/interface/symba_io_dump_particle_info.html
+++ /dev/null
@@ -1,668 +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_dump_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_dump_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_io_dump_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_dump_particle_info~~CallsGraph Pages: 1 -->
-<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 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>
-<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>
-<!-- proc~symba_io_dump_particle_info -->
-<g id="interface~~symba_io_dump_particle_info~~CallsGraph_node2" class="node">
-<title>proc~symba_io_dump_particle_info</title>
-<g id="a_interface~~symba_io_dump_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
-<polygon fill="#d9534f" stroke="#d9534f" 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" 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_io_dump_particle_info~~CallsGraph_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"/>
-</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">
-    <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_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(system, param, lincludecb, tpidx, plidx)
-    
-    
-   
-   <a href='../proc/symba_io_dump_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~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>system</strong></td><td><p>SyMBA nbody system object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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 with SyMBA extensions</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lincludecb"></span>logical,</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</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>
-
-</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 cbe9a275c..910f5b0b1 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -220,67 +220,79 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_io_param_reader~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_io_param_readerCallsGraph" width="441pt" height="116pt"
- viewBox="0.00 0.00 441.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_io_param_reader~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<svg id="interfacesymba_io_param_readerCallsGraph" width="453pt" height="158pt"
+ viewBox="0.00 0.00 453.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_io_param_reader~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
 <title>interface~~symba_io_param_reader~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 437,-112 437,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 449,-154 449,4 -4,4"/>
 <!-- interface~symba_io_param_reader -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_node1" class="node">
 <title>interface~symba_io_param_reader</title>
-<polygon fill="none" stroke="black" points="133,-66 0,-66 0,-42 133,-42 133,-66"/>
-<text text-anchor="middle" x="66.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_param_reader</text>
+<polygon fill="none" stroke="black" points="133,-87 0,-87 0,-63 133,-63 133,-87"/>
+<text text-anchor="middle" x="66.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_param_reader</text>
 </g>
 <!-- proc~symba_io_param_reader -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_node2" class="node">
 <title>proc~symba_io_param_reader</title>
 <g id="a_interface~~symba_io_param_reader~~CallsGraph_node2"><a xlink:href=".././proc/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
-<polygon fill="#d9534f" stroke="#d9534f" points="302,-66 169,-66 169,-42 302,-42 302,-66"/>
-<text text-anchor="middle" x="235.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="302,-87 169,-87 169,-63 302,-63 302,-87"/>
+<text text-anchor="middle" x="235.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_io_param_reader&#45;&gt;proc~symba_io_param_reader -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_edge1" 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="M133.02,-54C141.5,-54 150.23,-54 158.85,-54"/>
-<polygon fill="#000000" stroke="#000000" points="158.89,-57.5 168.89,-54 158.89,-50.5 158.89,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-75C141.5,-75 150.23,-75 158.85,-75"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-78.5 168.89,-75 158.89,-71.5 158.89,-78.5"/>
 </g>
-<!-- io_toupper -->
+<!-- fraggle_io_log_start -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_node3" class="node">
-<title>io_toupper</title>
-<polygon fill="#777777" stroke="#777777" points="417.5,-108 353.5,-108 353.5,-84 417.5,-84 417.5,-108"/>
-<text text-anchor="middle" x="385.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<title>fraggle_io_log_start</title>
+<polygon fill="#777777" stroke="#777777" points="445,-150 338,-150 338,-126 445,-126 445,-150"/>
+<text text-anchor="middle" x="391.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
 </g>
-<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+<!-- proc~symba_io_param_reader&#45;&gt;fraggle_io_log_start -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_edge2" class="edge">
-<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
-<path fill="none" stroke="#000000" d="M278.91,-66.04C299.22,-71.8 323.45,-78.67 343.57,-84.38"/>
-<polygon fill="#000000" stroke="#000000" points="342.8,-87.8 353.37,-87.17 344.71,-81.07 342.8,-87.8"/>
+<title>proc~symba_io_param_reader&#45;&gt;fraggle_io_log_start</title>
+<path fill="none" stroke="#000000" d="M265.34,-87.04C285.63,-95.49 313.45,-107.01 338,-117 342.15,-118.69 346.49,-120.44 350.83,-122.19"/>
+<polygon fill="#000000" stroke="#000000" points="349.63,-125.48 360.21,-125.96 352.24,-118.98 349.63,-125.48"/>
 </g>
 <!-- io_param_reader -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_node4" class="node">
 <title>io_param_reader</title>
-<polygon fill="#777777" stroke="#777777" points="433,-66 338,-66 338,-42 433,-42 433,-66"/>
-<text text-anchor="middle" x="385.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<polygon fill="#777777" stroke="#777777" points="439,-108 344,-108 344,-84 439,-84 439,-108"/>
+<text text-anchor="middle" x="391.5" y="-93.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="interface~~symba_io_param_reader~~CallsGraph_edge3" class="edge">
 <title>proc~symba_io_param_reader&#45;&gt;io_param_reader</title>
-<path fill="none" stroke="#000000" d="M302.28,-54C310.84,-54 319.55,-54 327.94,-54"/>
-<polygon fill="#000000" stroke="#000000" points="327.99,-57.5 337.99,-54 327.99,-50.5 327.99,-57.5"/>
+<path fill="none" stroke="#000000" d="M302.26,-83.97C312.68,-85.39 323.38,-86.85 333.58,-88.24"/>
+<polygon fill="#000000" stroke="#000000" points="333.2,-91.72 343.58,-89.6 334.15,-84.78 333.2,-91.72"/>
 </g>
-<!-- io_get_token -->
+<!-- io_toupper -->
 <g id="interface~~symba_io_param_reader~~CallsGraph_node5" class="node">
+<title>io_toupper</title>
+<polygon fill="#777777" stroke="#777777" points="423.5,-66 359.5,-66 359.5,-42 423.5,-42 423.5,-66"/>
+<text text-anchor="middle" x="391.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+</g>
+<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+<g id="interface~~symba_io_param_reader~~CallsGraph_edge4" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
+<path fill="none" stroke="#000000" d="M302.26,-66.03C318.18,-63.86 334.75,-61.6 349.18,-59.63"/>
+<polygon fill="#000000" stroke="#000000" points="349.83,-63.08 359.27,-58.26 348.89,-56.14 349.83,-63.08"/>
+</g>
+<!-- io_get_token -->
+<g id="interface~~symba_io_param_reader~~CallsGraph_node6" class="node">
 <title>io_get_token</title>
-<polygon fill="#777777" stroke="#777777" points="422.5,-24 348.5,-24 348.5,0 422.5,0 422.5,-24"/>
-<text text-anchor="middle" x="385.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<polygon fill="#777777" stroke="#777777" points="428.5,-24 354.5,-24 354.5,0 428.5,0 428.5,-24"/>
+<text text-anchor="middle" x="391.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </g>
 <!-- proc~symba_io_param_reader&#45;&gt;io_get_token -->
-<g id="interface~~symba_io_param_reader~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_io_param_reader~~CallsGraph_edge5" class="edge">
 <title>proc~symba_io_param_reader&#45;&gt;io_get_token</title>
-<path fill="none" stroke="#000000" d="M278.91,-41.96C297.53,-36.68 319.44,-30.46 338.46,-25.07"/>
-<polygon fill="#000000" stroke="#000000" points="339.44,-28.43 348.11,-22.33 337.53,-21.69 339.44,-28.43"/>
+<path fill="none" stroke="#000000" d="M265.34,-62.96C285.63,-54.51 313.45,-42.99 338,-33 342.15,-31.31 346.49,-29.56 350.83,-27.81"/>
+<polygon fill="#000000" stroke="#000000" points="352.24,-31.02 360.21,-24.04 349.63,-24.52 352.24,-31.02"/>
 </g>
 </g>
 </svg>
@@ -382,7 +394,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~87"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~106"></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 72d40c270..eb02ff887 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,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~107"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_io_write_discard.html b/docs/interface/symba_io_write_discard.html
index 8dfd05162..dc1f92c7d 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~86"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~108"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,8 +373,8 @@ <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(in)</td>
+  <td><span class="anchor" id="variable-param~78"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/symba_kick_encounter.html b/docs/interface/symba_kick_encounter.html
new file mode 100644
index 000000000..c6cd20187
--- /dev/null
+++ b/docs/interface/symba_kick_encounter.html
@@ -0,0 +1,480 @@
+
+<!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_kick_encounter &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_kick_encounter
+   <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.4% of total for procedures.">261 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_kick_encounter</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_kick_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_kick_encounterCallsGraph" 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~~symba_kick_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_kick_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
+<!-- interface~symba_kick_encounter -->
+<g id="interface~~symba_kick_encounter~~CallsGraph_node1" class="node">
+<title>interface~symba_kick_encounter</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">symba_kick_encounter</text>
+</g>
+<!-- proc~symba_kick_encounter -->
+<g id="interface~~symba_kick_encounter~~CallsGraph_node2" class="node">
+<title>proc~symba_kick_encounter</title>
+<g id="a_interface~~symba_kick_encounter~~CallsGraph_node2"><a xlink:href=".././proc/symba_kick_encounter.html" xlink:title="symba_kick_encounter">
+<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">symba_kick_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_kick_encounter&#45;&gt;proc~symba_kick_encounter -->
+<g id="interface~~symba_kick_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~symba_kick_encounter&#45;&gt;proc~symba_kick_encounter</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"/>
+</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_kick_encounter(self, system, dt, irec, sgn)
+    
+    
+   
+   <a href='../proc/symba_kick_encounter.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~112"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~58"></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-dt~52"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~10"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-sgn"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>sgn</strong></td><td><p>sign to be applied to acceleration</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_kick_getacch_int_pl.html b/docs/interface/symba_kick_getacch_int_pl.html
new file mode 100644
index 000000000..5919a7498
--- /dev/null
+++ b/docs/interface/symba_kick_getacch_int_pl.html
@@ -0,0 +1,432 @@
+
+<!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_kick_getacch_int_pl &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_kick_getacch_int_pl
+   <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.4% of total for procedures.">261 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_kick_getacch_int_pl</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_kick_getacch_int_pl~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_kick_getacch_int_plCallsGraph" width="488pt" height="32pt"
+ viewBox="0.00 0.00 488.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_kick_getacch_int_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_kick_getacch_int_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 484,-28 484,4 -4,4"/>
+<!-- interface~symba_kick_getacch_int_pl -->
+<g id="interface~~symba_kick_getacch_int_pl~~CallsGraph_node1" class="node">
+<title>interface~symba_kick_getacch_int_pl</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_kick_getacch_int_pl</text>
+</g>
+<!-- proc~symba_kick_getacch_int_pl -->
+<g id="interface~~symba_kick_getacch_int_pl~~CallsGraph_node2" class="node">
+<title>proc~symba_kick_getacch_int_pl</title>
+<g id="a_interface~~symba_kick_getacch_int_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_kick_getacch_int_pl.html" xlink:title="symba_kick_getacch_int_pl">
+<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_kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_kick_getacch_int_pl&#45;&gt;proc~symba_kick_getacch_int_pl -->
+<g id="interface~~symba_kick_getacch_int_pl~~CallsGraph_edge1" class="edge">
+<title>interface~symba_kick_getacch_int_pl&#45;&gt;proc~symba_kick_getacch_int_pl</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"/>
+</g>
+<!-- kick_getacch_int_all_pl -->
+<g id="interface~~symba_kick_getacch_int_pl~~CallsGraph_node3" class="node">
+<title>kick_getacch_int_all_pl</title>
+<polygon fill="#777777" stroke="#777777" points="480,-24 358,-24 358,0 480,0 480,-24"/>
+<text text-anchor="middle" x="419" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</g>
+<!-- proc~symba_kick_getacch_int_pl&#45;&gt;kick_getacch_int_all_pl -->
+<g id="interface~~symba_kick_getacch_int_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_kick_getacch_int_pl&#45;&gt;kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M322.11,-12C330.55,-12 339.18,-12 347.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="347.8,-15.5 357.8,-12 347.8,-8.5 347.8,-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_kick_getacch_int_pl(self)
+    
+    
+   
+   <a href='../proc/symba_kick_getacch_int_pl.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~109"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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_kick_getacch_pl.html b/docs/interface/symba_kick_getacch_pl.html
index 668db1e1b..02094589b 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -220,43 +220,55 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_kick_getacch_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_kick_getacch_plCallsGraph" width="449pt" height="32pt"
- viewBox="0.00 0.00 449.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_kick_getacch_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_kick_getacch_plCallsGraph" width="454pt" height="74pt"
+ viewBox="0.00 0.00 454.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_kick_getacch_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>interface~~symba_kick_getacch_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 445,-28 445,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 450,-70 450,4 -4,4"/>
 <!-- interface~symba_kick_getacch_pl -->
 <g id="interface~~symba_kick_getacch_pl~~CallsGraph_node1" class="node">
 <title>interface~symba_kick_getacch_pl</title>
-<polygon fill="none" stroke="black" points="126,-24 0,-24 0,0 126,0 126,-24"/>
-<text text-anchor="middle" x="63" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_getacch_pl</text>
+<polygon fill="none" stroke="black" points="126,-45 0,-45 0,-21 126,-21 126,-45"/>
+<text text-anchor="middle" x="63" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_getacch_pl</text>
 </g>
 <!-- proc~symba_kick_getacch_pl -->
 <g id="interface~~symba_kick_getacch_pl~~CallsGraph_node2" class="node">
 <title>proc~symba_kick_getacch_pl</title>
 <g id="a_interface~~symba_kick_getacch_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="288,-24 162,-24 162,0 288,0 288,-24"/>
-<text text-anchor="middle" x="225" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="288,-45 162,-45 162,-21 288,-21 288,-45"/>
+<text text-anchor="middle" x="225" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_kick_getacch_pl&#45;&gt;proc~symba_kick_getacch_pl -->
 <g id="interface~~symba_kick_getacch_pl~~CallsGraph_edge1" 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="M126.32,-12C134.62,-12 143.18,-12 151.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="151.85,-15.5 161.85,-12 151.85,-8.5 151.85,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M126.32,-33C134.62,-33 143.18,-33 151.63,-33"/>
+<polygon fill="#000000" stroke="#000000" points="151.85,-36.5 161.85,-33 151.85,-29.5 151.85,-36.5"/>
 </g>
-<!-- helio_kick_getacch_pl -->
+<!-- kick_getacch_int_all_pl -->
 <g id="interface~~symba_kick_getacch_pl~~CallsGraph_node3" class="node">
+<title>kick_getacch_int_all_pl</title>
+<polygon fill="#777777" stroke="#777777" points="446,-66 324,-66 324,-42 446,-42 446,-66"/>
+<text text-anchor="middle" x="385" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</g>
+<!-- proc~symba_kick_getacch_pl&#45;&gt;kick_getacch_int_all_pl -->
+<g id="interface~~symba_kick_getacch_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_kick_getacch_pl&#45;&gt;kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M288.45,-41.3C296.72,-42.4 305.26,-43.53 313.66,-44.65"/>
+<polygon fill="#000000" stroke="#000000" points="313.44,-48.15 323.81,-46 314.36,-41.21 313.44,-48.15"/>
+</g>
+<!-- helio_kick_getacch_pl -->
+<g id="interface~~symba_kick_getacch_pl~~CallsGraph_node4" class="node">
 <title>helio_kick_getacch_pl</title>
-<polygon fill="#777777" stroke="#777777" points="441,-24 324,-24 324,0 441,0 441,-24"/>
-<text text-anchor="middle" x="382.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
+<polygon fill="#777777" stroke="#777777" points="443.5,-24 326.5,-24 326.5,0 443.5,0 443.5,-24"/>
+<text text-anchor="middle" x="385" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
 </g>
 <!-- proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl -->
-<g id="interface~~symba_kick_getacch_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_kick_getacch_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" d="M288.35,-12C296.7,-12 305.3,-12 313.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="313.92,-15.5 323.92,-12 313.92,-8.5 313.92,-15.5"/>
+<path fill="none" stroke="#000000" d="M288.45,-24.7C297.63,-23.48 307.13,-22.22 316.41,-20.98"/>
+<polygon fill="#000000" stroke="#000000" points="316.92,-24.45 326.38,-19.66 316,-17.51 316.92,-24.45"/>
 </g>
 </g>
 </svg>
@@ -358,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~89"></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>
   
@@ -373,7 +385,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~56"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +400,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~67"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~79"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +415,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~30"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~36"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -418,7 +430,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~15"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~17"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_kick_getacch_tp.html b/docs/interface/symba_kick_getacch_tp.html
index 53cc9ab5a..a4cec79a7 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~90"></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>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~50"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~57"></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~68"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~80"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~31"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~37"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -418,7 +418,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~18"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_pltpenc.html b/docs/interface/symba_setup_encounter.html
similarity index 80%
rename from docs/interface/symba_setup_pltpenc.html
rename to docs/interface/symba_setup_encounter.html
index 71809dd79..b25365972 100644
--- a/docs/interface/symba_setup_pltpenc.html
+++ b/docs/interface/symba_setup_encounter.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_setup_pltpenc &ndash; swiftest</title>
+    <title>symba_setup_encounter &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_setup_pltpenc
+    <h1>symba_setup_encounter
    <small>Interface</small>
     
     </h1>
@@ -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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_setup_pltpenc
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_setup_pltpenc</li>
+     <li class="active">symba_setup_encounter</li>
   </ol>
 </div>
 </div>
@@ -219,44 +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~~symba_setup_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_setup_pltpencCallsGraph" 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="interface~~symba_setup_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~symba_setup_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 403,-28 403,4 -4,4"/>
-<!-- interface~symba_setup_pltpenc -->
-<g id="interface~~symba_setup_pltpenc~~CallsGraph_node1" class="node">
-<title>interface~symba_setup_pltpenc</title>
-<polygon fill="none" stroke="black" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_pltpenc</text>
+<!-- Title: interface~~symba_setup_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_setup_encounterCallsGraph" width="433pt" height="32pt"
+ viewBox="0.00 0.00 433.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_setup_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_setup_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 429,-28 429,4 -4,4"/>
+<!-- interface~symba_setup_encounter -->
+<g id="interface~~symba_setup_encounter~~CallsGraph_node1" class="node">
+<title>interface~symba_setup_encounter</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_encounter</text>
 </g>
-<!-- proc~symba_setup_pltpenc -->
-<g id="interface~~symba_setup_pltpenc~~CallsGraph_node2" class="node">
-<title>proc~symba_setup_pltpenc</title>
-<g id="a_interface~~symba_setup_pltpenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_setup_pltpenc.html" xlink:title="symba_setup_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="270,-24 153,-24 153,0 270,0 270,-24"/>
-<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pltpenc</text>
+<!-- proc~symba_setup_encounter -->
+<g id="interface~~symba_setup_encounter~~CallsGraph_node2" class="node">
+<title>proc~symba_setup_encounter</title>
+<g id="a_interface~~symba_setup_encounter~~CallsGraph_node2"><a xlink:href=".././proc/symba_setup_encounter.html" xlink:title="symba_setup_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc -->
-<g id="interface~~symba_setup_pltpenc~~CallsGraph_edge1" class="edge">
-<title>interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M117.02,-12C125.46,-12 134.23,-12 142.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.89,-15.5 152.89,-12 142.89,-8.5 142.89,-15.5"/>
+<!-- interface~symba_setup_encounter&#45;&gt;proc~symba_setup_encounter -->
+<g id="interface~~symba_setup_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~symba_setup_encounter&#45;&gt;proc~symba_setup_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-15.5"/>
 </g>
 <!-- setup_encounter -->
-<g id="interface~~symba_setup_pltpenc~~CallsGraph_node3" class="node">
+<g id="interface~~symba_setup_encounter~~CallsGraph_node3" class="node">
 <title>setup_encounter</title>
-<polygon fill="#777777" stroke="#777777" points="399,-24 306,-24 306,0 399,0 399,-24"/>
-<text text-anchor="middle" x="352.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
+<polygon fill="#777777" stroke="#777777" points="425,-24 332,-24 332,0 425,0 425,-24"/>
+<text text-anchor="middle" x="378.5" y="-9.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="interface~~symba_setup_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_setup_pltpenc&#45;&gt;setup_encounter</title>
-<path fill="none" stroke="#000000" d="M270.24,-12C278.62,-12 287.23,-12 295.57,-12"/>
-<polygon fill="#000000" stroke="#000000" points="295.58,-15.5 305.58,-12 295.58,-8.5 295.58,-15.5"/>
+<!-- proc~symba_setup_encounter&#45;&gt;setup_encounter -->
+<g id="interface~~symba_setup_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_setup_encounter&#45;&gt;setup_encounter</title>
+<path fill="none" stroke="#000000" d="M296.24,-12C304.79,-12 313.5,-12 321.89,-12"/>
+<polygon fill="#000000" stroke="#000000" points="321.93,-15.5 331.93,-12 321.93,-8.5 321.93,-15.5"/>
 </g>
 </g>
 </svg>
@@ -327,11 +327,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_setup_pltpenc(self, n)
+public module subroutine symba_setup_encounter(self, n)
     
     
    
-   <a href='../proc/symba_setup_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_setup_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~95"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~116"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~8"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~9"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_initialize_particle_info.html b/docs/interface/symba_setup_initialize_particle_info.html
deleted file mode 100644
index 961a8ea27..000000000
--- a/docs/interface/symba_setup_initialize_particle_info.html
+++ /dev/null
@@ -1,593 +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_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 24a2161c8..453d8f490 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -220,155 +220,47 @@ <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="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)">
+<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)">
 <title>interface~~symba_setup_initialize_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1272,-112 1272,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 547,-28 547,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,-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>
+<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>
 </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,-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>
+<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_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,-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"/>
+<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>
-<!-- whm_setup_initialize_system -->
+<!-- helio_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="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>
+<title>helio_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">helio_setup_initialize_system</text>
 </g>
-<!-- proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<!-- proc~symba_setup_initialize_system&#45;&gt;helio_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="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"/>
+<title>proc~symba_setup_initialize_system&#45;&gt;helio_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"/>
 </g>
 </g>
 </svg>
-</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">
+</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"
@@ -466,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~92"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~113"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -481,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~70"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~81"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</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 9e9b0447e..98d02e1cb 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~93"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~114"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~7"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -418,7 +418,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~71"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~82"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_pl.html b/docs/interface/symba_setup_pl.html
index 0ccfb4baa..2970b9fb2 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -474,7 +474,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~94"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~115"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -489,7 +489,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~7"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~8"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -504,7 +504,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~72"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~83"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_tp.html b/docs/interface/symba_setup_tp.html
index 2a250add9..7dd878d0b 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~96"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~117"></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-n~9"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~10"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~73"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~84"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_interp_system.html b/docs/interface/symba_step_interp_system.html
index 5b2dffc47..b243318da 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~98"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~119"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~75"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~86"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~33"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~39"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~49"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~54"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_recur_system.html b/docs/interface/symba_step_recur_system.html
index 612d158a2..917ccb6fa 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 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_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~121"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~76"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~87"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,11 +388,11 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~34"></span>real(kind=DP),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-t~40"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>t</strong></td><td></td>
   
 </tr>
@@ -404,10 +404,10 @@ <h3>Arguments</h3>
 <tr>
   
   <td><span class="anchor" id="variable-ireci~2"></span>integer(kind=I4B),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>ireci</strong></td><td><p>input recursion level</p></td>
   
 </tr>
diff --git a/docs/interface/symba_step_reset_system.html b/docs/interface/symba_step_reset_system.html
index fe8a444f7..e2f055a43 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -315,7 +315,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_step_reset_system(self)
+public module subroutine symba_step_reset_system(self, param)
     
     
    
@@ -346,7 +346,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~122"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -355,6 +355,21 @@ <h3>Arguments</h3>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~88"></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>
+
 </tbody>
 </table>
 
diff --git a/docs/interface/symba_step_set_recur_levels_system.html b/docs/interface/symba_step_set_recur_levels_system.html
index 1a1ca584e..5ff8044a4 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~99"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~120"></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 038269060..d72dabaff 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.">264 statements</a>
+    title=" 0.4% of total for procedures.">261 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~97"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~118"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~74"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~85"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~32"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~38"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~48"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~53"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_append_encounter.html b/docs/interface/symba_util_append_encounter.html
new file mode 100644
index 000000000..8554676eb
--- /dev/null
+++ b/docs/interface/symba_util_append_encounter.html
@@ -0,0 +1,477 @@
+
+<!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_util_append_encounter &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_util_append_encounter
+   <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.1% of total for procedures.">35 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_util_append_encounter</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_util_append_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_util_append_encounterCallsGraph" width="522pt" height="74pt"
+ viewBox="0.00 0.00 522.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_append_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~symba_util_append_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 518,-70 518,4 -4,4"/>
+<!-- interface~symba_util_append_encounter -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_node1" class="node">
+<title>interface~symba_util_append_encounter</title>
+<polygon fill="none" stroke="black" points="160,-45 0,-45 0,-21 160,-21 160,-45"/>
+<text text-anchor="middle" x="80" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_append_encounter</text>
+</g>
+<!-- proc~symba_util_append_encounter -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_node2" class="node">
+<title>proc~symba_util_append_encounter</title>
+<g id="a_interface~~symba_util_append_encounter~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_append_encounter.html" xlink:title="symba_util_append_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-45 196,-45 196,-21 356,-21 356,-45"/>
+<text text-anchor="middle" x="276" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-33C168.53,-33 177.05,-33 185.5,-33"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-36.5 195.75,-33 185.75,-29.5 185.75,-36.5"/>
+</g>
+<!-- interface~util_append -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_node3" class="node">
+<title>interface~util_append</title>
+<g id="a_interface~~symba_util_append_encounter~~CallsGraph_node3"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="487,-66 419,-66 419,-42 487,-42 487,-66"/>
+<text text-anchor="middle" x="453" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_append_encounter&#45;&gt;interface~util_append -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_append_encounter&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M356.05,-42.49C374.18,-44.66 392.8,-46.9 408.75,-48.81"/>
+<polygon fill="#000000" stroke="#000000" points="408.48,-52.3 418.82,-50.02 409.31,-45.35 408.48,-52.3"/>
+</g>
+<!-- util_append_encounter -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_node4" class="node">
+<title>util_append_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="514,-24 392,-24 392,0 514,0 514,-24"/>
+<text text-anchor="middle" x="453" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
+</g>
+<!-- proc~symba_util_append_encounter&#45;&gt;util_append_encounter -->
+<g id="interface~~symba_util_append_encounter~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_append_encounter&#45;&gt;util_append_encounter</title>
+<path fill="none" stroke="#000000" d="M356.05,-23.51C364.62,-22.49 373.29,-21.45 381.74,-20.43"/>
+<polygon fill="#000000" stroke="#000000" points="382.4,-23.88 391.92,-19.21 381.57,-16.93 382.4,-23.88"/>
+</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_util_append_encounter(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/symba_util_append_encounter.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~123"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-source~4"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lsource_mask~4"></span>logical,</td>
+  <td>intent(in),</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>
+  
+</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_util_append_merger.html b/docs/interface/symba_util_append_merger.html
index 7a0dc7121..f09e53eac 100644
--- a/docs/interface/symba_util_append_merger.html
+++ b/docs/interface/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.1% of total for procedures.">23 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -246,17 +246,20 @@ <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>
-<!-- util_exit -->
+<!-- interface~util_append -->
 <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>
+<title>interface~util_append</title>
+<g id="a_interface~~symba_util_append_merger~~CallsGraph_node3"><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>
+</a>
 </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>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
+<g id="interface~~symba_util_append_merger~~CallsGraph_edge2" 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>
 <!-- interface~symba_util_append_pl -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_node4" class="node">
@@ -268,25 +271,22 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl -->
-<g id="interface~~symba_util_append_merger~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_util_append_merger~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
 <path fill="none" stroke="#000000" d="M328.28,-54C336.74,-54 345.35,-54 353.77,-54"/>
 <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 -->
+<!-- util_exit -->
 <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_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>
+<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;interface~util_append -->
+<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
 <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,-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"/>
+<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"/>
 </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 -->
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <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"/>
+<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;interface~util_append -->
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
 <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,-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"/>
+<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"/>
 </g>
 <!-- util_append_pl -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_node7" class="node">
@@ -427,7 +427,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~102"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~124"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -442,7 +442,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~4"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~5"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -457,7 +457,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~4"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~5"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_append_pl.html b/docs/interface/symba_util_append_pl.html
index 68e4b9c2d..bbe196e4b 100644
--- a/docs/interface/symba_util_append_pl.html
+++ b/docs/interface/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.">23 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -246,17 +246,20 @@ <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_exit -->
+<!-- interface~util_append -->
 <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>
+<title>interface~util_append</title>
+<g id="a_interface~~symba_util_append_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="387,-108 319,-108 319,-84 387,-84 387,-108"/>
+<text text-anchor="middle" x="353" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+</a>
 </g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+</g>
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <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"/>
+<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M255.69,-66.04C272.36,-71.22 291.92,-77.31 309.04,-82.64"/>
+<polygon fill="#000000" stroke="#000000" points="308.21,-86.04 318.8,-85.67 310.29,-79.36 308.21,-86.04"/>
 </g>
 <!-- util_append_pl -->
 <g id="interface~~symba_util_append_pl~~CallsGraph_node4" class="node">
@@ -270,20 +273,17 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- util_exit -->
 <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_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>
+<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;interface~util_append -->
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
 <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="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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -501,7 +501,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~103"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~125"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -516,7 +516,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~5"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~6"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -531,7 +531,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~5"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~6"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_append_tp.html b/docs/interface/symba_util_append_tp.html
index 2261e4a9d..c5ede93d0 100644
--- a/docs/interface/symba_util_append_tp.html
+++ b/docs/interface/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.1% of total for procedures.">23 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -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>
-<!-- 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">
+<g id="interface~~symba_util_append_tp~~CallsGraph_node3" class="node">
 <title>interface~util_append</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~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="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"/>
+<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"/>
 </g>
 <!-- util_append_tp -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_node5" class="node">
+<g id="interface~~symba_util_append_tp~~CallsGraph_node4" class="node">
 <title>util_append_tp</title>
-<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>
+<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>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
-<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;util_append_tp</title>
-<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"/>
+<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_edge4" 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"/>
 </g>
 </g>
 </svg>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~104"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~126"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,7 +400,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~6"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~7"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -415,7 +415,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~6"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~7"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_copy_encounter.html b/docs/interface/symba_util_copy_encounter.html
new file mode 100644
index 000000000..51923c325
--- /dev/null
+++ b/docs/interface/symba_util_copy_encounter.html
@@ -0,0 +1,447 @@
+
+<!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_util_copy_encounter &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_util_copy_encounter
+   <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.1% of total for procedures.">35 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_util_copy_encounter</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_util_copy_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_util_copy_encounterCallsGraph" width="481pt" height="32pt"
+ viewBox="0.00 0.00 481.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_copy_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_util_copy_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 477,-28 477,4 -4,4"/>
+<!-- interface~symba_util_copy_encounter -->
+<g id="interface~~symba_util_copy_encounter~~CallsGraph_node1" class="node">
+<title>interface~symba_util_copy_encounter</title>
+<polygon fill="none" stroke="black" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_copy_encounter</text>
+</g>
+<!-- proc~symba_util_copy_encounter -->
+<g id="interface~~symba_util_copy_encounter~~CallsGraph_node2" class="node">
+<title>proc~symba_util_copy_encounter</title>
+<g id="a_interface~~symba_util_copy_encounter~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_copy_encounter.html" xlink:title="symba_util_copy_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="328,-24 182,-24 182,0 328,0 328,-24"/>
+<text text-anchor="middle" x="255" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_copy_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_copy_encounter&#45;&gt;proc~symba_util_copy_encounter -->
+<g id="interface~~symba_util_copy_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~symba_util_copy_encounter&#45;&gt;proc~symba_util_copy_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.18,-12C154.52,-12 163.08,-12 171.54,-12"/>
+<polygon fill="#000000" stroke="#000000" points="171.81,-15.5 181.81,-12 171.81,-8.5 171.81,-15.5"/>
+</g>
+<!-- util_copy_encounter -->
+<g id="interface~~symba_util_copy_encounter~~CallsGraph_node3" class="node">
+<title>util_copy_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="473,-24 364,-24 364,0 473,0 473,-24"/>
+<text text-anchor="middle" x="418.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
+</g>
+<!-- proc~symba_util_copy_encounter&#45;&gt;util_copy_encounter -->
+<g id="interface~~symba_util_copy_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_copy_encounter&#45;&gt;util_copy_encounter</title>
+<path fill="none" stroke="#000000" d="M328.25,-12C336.73,-12 345.33,-12 353.68,-12"/>
+<polygon fill="#000000" stroke="#000000" points="353.72,-15.5 363.72,-12 353.72,-8.5 353.72,-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_util_copy_encounter(self, source)
+    
+    
+   
+   <a href='../proc/symba_util_copy_encounter.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~127"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-source~8"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</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_util_fill_pl.html b/docs/interface/symba_util_fill_pl.html
index 3bcd4ea3e..f60f1bd25 100644
--- a/docs/interface/symba_util_fill_pl.html
+++ b/docs/interface/symba_util_fill_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_fill_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.">29 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -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>
-<!-- util_fill_pl -->
+<!-- interface~util_fill -->
 <g id="interface~~symba_util_fill_pl~~CallsGraph_node3" class="node">
-<title>util_fill_pl</title>
-<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>
+<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>
-<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
+</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;util_fill_pl</title>
-<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"/>
+<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_exit -->
+<!-- util_fill_pl -->
 <g id="interface~~symba_util_fill_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<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>
+<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>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
+<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
 <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"/>
+<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"/>
 </g>
-<!-- interface~util_fill -->
+<!-- util_exit -->
 <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>
+<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>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
 <g id="interface~~symba_util_fill_pl~~CallsGraph_edge4" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
+<title>proc~symba_util_fill_pl&#45;&gt;util_exit</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~105"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~128"></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 9b05df44d..004f7dd19 100644
--- a/docs/interface/symba_util_fill_tp.html
+++ b/docs/interface/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.1% of total for procedures.">29 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -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>
-<!-- util_fill_tp -->
+<!-- interface~util_fill -->
 <g id="interface~~symba_util_fill_tp~~CallsGraph_node3" class="node">
-<title>util_fill_tp</title>
-<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>
+<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>
-<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
+</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;util_fill_tp</title>
-<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"/>
+<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_exit -->
+<!-- util_fill_tp -->
 <g id="interface~~symba_util_fill_tp~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<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>
+<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>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
+<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
 <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"/>
+<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"/>
 </g>
-<!-- interface~util_fill -->
+<!-- util_exit -->
 <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>
+<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>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
 <g id="interface~~symba_util_fill_tp~~CallsGraph_edge4" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
+<title>proc~symba_util_fill_tp&#45;&gt;util_exit</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~106"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~129"></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_index_eucl_plpl.html b/docs/interface/symba_util_index_eucl_plpl.html
new file mode 100644
index 000000000..3e6d96c98
--- /dev/null
+++ b/docs/interface/symba_util_index_eucl_plpl.html
@@ -0,0 +1,435 @@
+
+<!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_util_index_eucl_plpl &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_util_index_eucl_plpl
+   <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.4% of total for procedures.">261 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_util_index_eucl_plpl</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_util_index_eucl_plpl~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_util_index_eucl_plplCallsGraph" 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_util_index_eucl_plpl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_util_index_eucl_plpl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
+<!-- interface~symba_util_index_eucl_plpl -->
+<g id="interface~~symba_util_index_eucl_plpl~~CallsGraph_node1" class="node">
+<title>interface~symba_util_index_eucl_plpl</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_util_index_eucl_plpl</text>
+</g>
+<!-- proc~symba_util_index_eucl_plpl -->
+<g id="interface~~symba_util_index_eucl_plpl~~CallsGraph_node2" class="node">
+<title>proc~symba_util_index_eucl_plpl</title>
+<g id="a_interface~~symba_util_index_eucl_plpl~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_index_eucl_plpl.html" xlink:title="symba_util_index_eucl_plpl">
+<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_util_index_eucl_plpl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_index_eucl_plpl&#45;&gt;proc~symba_util_index_eucl_plpl -->
+<g id="interface~~symba_util_index_eucl_plpl~~CallsGraph_edge1" class="edge">
+<title>interface~symba_util_index_eucl_plpl&#45;&gt;proc~symba_util_index_eucl_plpl</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"/>
+</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_util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/symba_util_index_eucl_plpl.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~105"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~77"></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>
+</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_util_peri_pl.html b/docs/interface/symba_util_peri_pl.html
index 09705d1f0..6cbdc4058 100644
--- a/docs/interface/symba_util_peri_pl.html
+++ b/docs/interface/symba_util_peri_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_peri_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.">29 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -358,7 +358,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~130"></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~53"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~59"></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~77"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~89"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_rearray_pl.html b/docs/interface/symba_util_rearray_pl.html
index 81a17c728..a7fac9cf6 100644
--- a/docs/interface/symba_util_rearray_pl.html
+++ b/docs/interface/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.1% of total for procedures.">29 statements</a>
+    title=" 0.1% of total for procedures.">35 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_util_rearray_pl~~CallsGraph Pages: 1 -->
-<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)">
+<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)">
 <title>interface~~symba_util_rearray_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 748,-28 748,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,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,51 +246,9 @@ <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><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">
+</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"
@@ -388,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~108"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~131"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -403,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~54"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~60"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -418,8 +376,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~78"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-param~90"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/symba_util_reset_kinship.html b/docs/interface/symba_util_reset_kinship.html
new file mode 100644
index 000000000..d896afe9d
--- /dev/null
+++ b/docs/interface/symba_util_reset_kinship.html
@@ -0,0 +1,435 @@
+
+<!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_util_reset_kinship &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_util_reset_kinship
+   <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.1% of total for procedures.">35 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_util_reset_kinship</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_util_reset_kinship~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_util_reset_kinshipCallsGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_reset_kinship~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_util_reset_kinship~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<!-- interface~symba_util_reset_kinship -->
+<g id="interface~~symba_util_reset_kinship~~CallsGraph_node1" class="node">
+<title>interface~symba_util_reset_kinship</title>
+<polygon fill="none" stroke="black" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_reset_kinship</text>
+</g>
+<!-- proc~symba_util_reset_kinship -->
+<g id="interface~~symba_util_reset_kinship~~CallsGraph_node2" class="node">
+<title>proc~symba_util_reset_kinship</title>
+<g id="a_interface~~symba_util_reset_kinship~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_reset_kinship.html" xlink:title="symba_util_reset_kinship">
+<polygon fill="#d9534f" stroke="#d9534f" points="302,-24 169,-24 169,0 302,0 302,-24"/>
+<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_reset_kinship</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_reset_kinship&#45;&gt;proc~symba_util_reset_kinship -->
+<g id="interface~~symba_util_reset_kinship~~CallsGraph_edge1" class="edge">
+<title>interface~symba_util_reset_kinship&#45;&gt;proc~symba_util_reset_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-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_util_reset_kinship(self, idx)
+    
+    
+   
+   <a href='../proc/symba_util_reset_kinship.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~132"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-idx~3"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Index array of bodies to reset</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_util_resize_merger.html b/docs/interface/symba_util_resize_merger.html
index e79a1fc90..07bbf52b2 100644
--- a/docs/interface/symba_util_resize_merger.html
+++ b/docs/interface/symba_util_resize_merger.html
@@ -136,7 +136,7 @@ <h1>symba_util_resize_merger
      <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.">39 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -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,-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>
+<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>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
-<!-- interface~util_resize -->
+<!-- interface~symba_util_resize_pl -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- interface~symba_util_resize_pl -->
+<!-- interface~util_resize -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node4" class="node">
-<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>
+<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>
 </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_edge3" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<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;interface~util_resize</title>
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<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;util_resize_pl</title>
-<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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -409,7 +409,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~109"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~133"></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 a16fd66e4..439679714 100644
--- a/docs/interface/symba_util_resize_pl.html
+++ b/docs/interface/symba_util_resize_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_resize_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.">39 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -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>
-<!-- interface~util_resize -->
+<!-- util_resize_pl -->
 <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_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>
+<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;interface~util_resize -->
+<!-- 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;interface~util_resize</title>
-<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"/>
+<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>
-<!-- util_resize_pl -->
+<!-- interface~util_resize -->
 <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>
+<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>
+</a>
 </g>
-<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
+</g>
+<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
 <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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -489,7 +489,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~110"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~134"></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 8d00de32c..a5239c0c5 100644
--- a/docs/interface/symba_util_resize_tp.html
+++ b/docs/interface/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.1% of total for procedures.">39 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~111"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~135"></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 cbaa0cd20..94fcf6816 100644
--- a/docs/interface/symba_util_sort_pl.html
+++ b/docs/interface/symba_util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_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.">39 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -358,7 +358,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~136"></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 87d37db6a..32c04bfd1 100644
--- a/docs/interface/symba_util_sort_rearrange_pl.html
+++ b/docs/interface/symba_util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_rearrange_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.">39 statements</a>
+    title=" 0.0% of total for procedures.">12 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_util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_util_sort_rearrange_plCallsGraph" width="508pt" height="32pt"
- viewBox="0.00 0.00 508.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_util_sort_rearrange_plCallsGraph" width="508pt" height="74pt"
+ viewBox="0.00 0.00 508.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>interface~~symba_util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 504,-28 504,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 504,-70 504,4 -4,4"/>
 <!-- interface~symba_util_sort_rearrange_pl -->
 <g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>interface~symba_util_sort_rearrange_pl</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_util_sort_rearrange_pl</text>
+<polygon fill="none" stroke="black" points="155,-45 0,-45 0,-21 155,-21 155,-45"/>
+<text text-anchor="middle" x="77.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_sort_rearrange_pl</text>
 </g>
 <!-- proc~symba_util_sort_rearrange_pl -->
 <g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_node2" class="node">
 <title>proc~symba_util_sort_rearrange_pl</title>
 <g id="a_interface~~symba_util_sort_rearrange_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" 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" fill="white">symba_util_sort_rearrange_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="346,-45 191,-45 191,-21 346,-21 346,-45"/>
+<text text-anchor="middle" x="268.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl -->
 <g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_edge1" 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="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="M155.1,-33C163.56,-33 172.22,-33 180.79,-33"/>
+<polygon fill="#000000" stroke="#000000" points="180.79,-36.5 190.79,-33 180.79,-29.5 180.79,-36.5"/>
 </g>
-<!-- util_sort_rearrange_pl -->
+<!-- interface~util_sort_rearrange -->
 <g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_node3" class="node">
+<title>interface~util_sort_rearrange</title>
+<g id="a_interface~~symba_util_sort_rearrange_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="492.5,-66 389.5,-66 389.5,-42 492.5,-42 492.5,-66"/>
+<text text-anchor="middle" x="441" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange -->
+<g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M346.27,-42.46C357.26,-43.81 368.43,-45.19 379.06,-46.49"/>
+<polygon fill="#000000" stroke="#000000" points="378.7,-49.98 389.05,-47.72 379.55,-43.03 378.7,-49.98"/>
+</g>
+<!-- util_sort_rearrange_pl -->
+<g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_node4" class="node">
 <title>util_sort_rearrange_pl</title>
 <polygon fill="#777777" stroke="#777777" points="500,-24 382,-24 382,0 500,0 500,-24"/>
 <text text-anchor="middle" x="441" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
 <!-- proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
-<g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_util_sort_rearrange_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M346.27,-12C354.75,-12 363.35,-12 371.72,-12"/>
-<polygon fill="#000000" stroke="#000000" points="371.79,-15.5 381.79,-12 371.79,-8.5 371.79,-15.5"/>
+<path fill="none" stroke="#000000" d="M346.27,-23.54C354.75,-22.5 363.35,-21.44 371.72,-20.41"/>
+<polygon fill="#000000" stroke="#000000" points="372.29,-23.87 381.79,-19.17 371.44,-16.92 372.29,-23.87"/>
 </g>
 </g>
 </svg>
@@ -358,7 +373,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~138"></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 d54d7853a..0acda41d5 100644
--- a/docs/interface/symba_util_sort_rearrange_tp.html
+++ b/docs/interface/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.1% of total for procedures.">39 statements</a>
+    title=" 0.0% of total for procedures.">12 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_util_sort_rearrange_tp~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_util_sort_rearrange_tpCallsGraph" width="510pt" height="32pt"
- viewBox="0.00 0.00 510.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_util_sort_rearrange_tpCallsGraph" width="510pt" height="74pt"
+ viewBox="0.00 0.00 510.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>interface~~symba_util_sort_rearrange_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 506,-28 506,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 506,-70 506,4 -4,4"/>
 <!-- interface~symba_util_sort_rearrange_tp -->
 <g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_node1" class="node">
 <title>interface~symba_util_sort_rearrange_tp</title>
-<polygon fill="none" stroke="black" 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">symba_util_sort_rearrange_tp</text>
+<polygon fill="none" stroke="black" points="156,-45 0,-45 0,-21 156,-21 156,-45"/>
+<text text-anchor="middle" x="78" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_sort_rearrange_tp</text>
 </g>
 <!-- proc~symba_util_sort_rearrange_tp -->
 <g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_node2" class="node">
 <title>proc~symba_util_sort_rearrange_tp</title>
 <g id="a_interface~~symba_util_sort_rearrange_tp~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
-<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_util_sort_rearrange_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="348,-45 192,-45 192,-21 348,-21 348,-45"/>
+<text text-anchor="middle" x="270" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp -->
 <g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_edge1" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.01,-33C164.51,-33 173.21,-33 181.83,-33"/>
+<polygon fill="#000000" stroke="#000000" points="181.88,-36.5 191.88,-33 181.88,-29.5 181.88,-36.5"/>
 </g>
-<!-- util_sort_rearrange_tp -->
+<!-- interface~util_sort_rearrange -->
 <g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_node3" class="node">
+<title>interface~util_sort_rearrange</title>
+<g id="a_interface~~symba_util_sort_rearrange_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="494.5,-66 391.5,-66 391.5,-42 494.5,-42 494.5,-66"/>
+<text text-anchor="middle" x="443" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange -->
+<g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M348.49,-42.52C359.48,-43.87 370.64,-45.24 381.24,-46.54"/>
+<polygon fill="#000000" stroke="#000000" points="380.86,-50.02 391.22,-47.76 381.72,-43.07 380.86,-50.02"/>
+</g>
+<!-- util_sort_rearrange_tp -->
+<g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_node4" class="node">
 <title>util_sort_rearrange_tp</title>
 <polygon fill="#777777" stroke="#777777" points="502,-24 384,-24 384,0 502,0 502,-24"/>
 <text text-anchor="middle" x="443" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </g>
 <!-- proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
-<g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_util_sort_rearrange_tp~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" d="M348.49,-12C356.98,-12 365.56,-12 373.92,-12"/>
-<polygon fill="#000000" stroke="#000000" points="373.97,-15.5 383.97,-12 373.97,-8.5 373.97,-15.5"/>
+<path fill="none" stroke="#000000" d="M348.49,-23.48C356.98,-22.44 365.56,-21.39 373.92,-20.36"/>
+<polygon fill="#000000" stroke="#000000" points="374.47,-23.82 383.97,-19.13 373.62,-16.87 374.47,-23.82"/>
 </g>
 </g>
 </svg>
@@ -358,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~139"></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 6cac7b5bc..be724b4d5 100644
--- a/docs/interface/symba_util_sort_tp.html
+++ b/docs/interface/symba_util_sort_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_tp
      <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.">39 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~113"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~137"></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_pltpenc.html b/docs/interface/symba_util_spill_encounter.html
similarity index 74%
rename from docs/interface/symba_util_spill_pltpenc.html
rename to docs/interface/symba_util_spill_encounter.html
index fb53e43db..aa2079003 100644
--- a/docs/interface/symba_util_spill_pltpenc.html
+++ b/docs/interface/symba_util_spill_encounter.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_util_spill_pltpenc &ndash; swiftest</title>
+    <title>symba_util_spill_encounter &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_util_spill_pltpenc
+    <h1>symba_util_spill_encounter
    <small>Interface</small>
     
     </h1>
@@ -136,7 +136,7 @@ <h1>symba_util_spill_pltpenc
      <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.">26 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_util_spill_pltpenc
      <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">symba_util_spill_pltpenc</li>
+     <li class="active">symba_util_spill_encounter</li>
   </ol>
 </div>
 </div>
@@ -219,71 +219,71 @@ <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_util_spill_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_util_spill_pltpencCallsGraph" width="440pt" height="116pt"
- viewBox="0.00 0.00 440.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
-<title>interface~~symba_util_spill_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 436,-112 436,4 -4,4"/>
-<!-- interface~symba_util_spill_pltpenc -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node1" class="node">
-<title>interface~symba_util_spill_pltpenc</title>
-<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>
+<!-- Title: interface~~symba_util_spill_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_util_spill_encounterCallsGraph" width="468pt" height="116pt"
+ viewBox="0.00 0.00 468.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_spill_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>interface~~symba_util_spill_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 464,-112 464,4 -4,4"/>
+<!-- interface~symba_util_spill_encounter -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_node1" class="node">
+<title>interface~symba_util_spill_encounter</title>
+<polygon fill="none" stroke="black" points="142,-66 0,-66 0,-42 142,-42 142,-66"/>
+<text text-anchor="middle" x="71" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_encounter</text>
 </g>
-<!-- proc~symba_util_spill_pltpenc -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node2" class="node">
-<title>proc~symba_util_spill_pltpenc</title>
-<g id="a_interface~~symba_util_spill_pltpenc~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="292,-66 164,-66 164,-42 292,-42 292,-66"/>
-<text text-anchor="middle" x="228" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
+<!-- proc~symba_util_spill_encounter -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_node2" class="node">
+<title>proc~symba_util_spill_encounter</title>
+<g id="a_interface~~symba_util_spill_encounter~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_spill_encounter.html" xlink:title="symba_util_spill_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="320,-66 178,-66 178,-42 320,-42 320,-66"/>
+<text text-anchor="middle" x="249" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_edge1" 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="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"/>
+<!-- interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.07,-54C150.54,-54 159.25,-54 167.85,-54"/>
+<polygon fill="#000000" stroke="#000000" points="167.89,-57.5 177.89,-54 167.89,-50.5 167.89,-57.5"/>
+</g>
+<!-- interface~util_spill -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_node3" class="node">
+<title>interface~util_spill</title>
+<g id="a_interface~~symba_util_spill_encounter~~CallsGraph_node3"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="435,-108 381,-108 381,-84 435,-84 435,-108"/>
+<text text-anchor="middle" x="408" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_spill_encounter&#45;&gt;interface~util_spill -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_edge4" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M294.99,-66.04C319.03,-72.47 348.24,-80.28 370.8,-86.32"/>
+<polygon fill="#000000" stroke="#000000" points="370.09,-89.75 380.66,-88.95 371.9,-82.99 370.09,-89.75"/>
 </g>
 <!-- util_spill_encounter -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node3" class="node">
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_node4" class="node">
 <title>util_spill_encounter</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="460,-66 356,-66 356,-42 460,-42 460,-66"/>
+<text text-anchor="middle" x="408" y="-51.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_edge2" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter</title>
-<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"/>
+<!-- proc~symba_util_spill_encounter&#45;&gt;util_spill_encounter -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;util_spill_encounter</title>
+<path fill="none" stroke="#000000" d="M320.23,-54C328.71,-54 337.31,-54 345.65,-54"/>
+<polygon fill="#000000" stroke="#000000" points="345.65,-57.5 355.65,-54 345.65,-50.5 345.65,-57.5"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_node5" class="node">
 <title>util_exit</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="435,-24 381,-24 381,0 435,0 435,-24"/>
+<text text-anchor="middle" x="408" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </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"/>
+<!-- proc~symba_util_spill_encounter&#45;&gt;util_exit -->
+<g id="interface~~symba_util_spill_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M294.99,-41.96C319.03,-35.53 348.24,-27.72 370.8,-21.68"/>
+<polygon fill="#000000" stroke="#000000" points="371.9,-25.01 380.66,-19.05 370.09,-18.25 371.9,-25.01"/>
 </g>
 </g>
 </svg>
@@ -354,11 +354,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+public module subroutine symba_util_spill_encounter(self, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/symba_util_spill_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~117"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~141"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</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 bde3395d4..dc0838e79 100644
--- a/docs/interface/symba_util_spill_pl.html
+++ b/docs/interface/symba_util_spill_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_spill_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.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -246,15 +246,18 @@ <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>
-<!-- util_exit -->
+<!-- interface~util_spill -->
 <g id="interface~~symba_util_spill_pl~~CallsGraph_node3" class="node">
-<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>
+<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>
-<!-- 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;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,-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>
@@ -270,18 +273,15 @@ <h3 class="panel-title">Calls</h3>
 <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>
-<!-- interface~util_spill -->
+<!-- util_exit -->
 <g id="interface~~symba_util_spill_pl~~CallsGraph_node5" class="node">
-<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>
+<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>
 </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>
+<!-- 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;util_exit</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~116"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~140"></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_tp.html b/docs/interface/symba_util_spill_tp.html
index c21b3afd0..eb91daa1e 100644
--- a/docs/interface/symba_util_spill_tp.html
+++ b/docs/interface/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.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -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>
-<!-- util_spill_tp -->
+<!-- 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_edge4" 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">
 <title>util_spill_tp</title>
-<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>
+<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>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_util_spill_tp~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_spill_tp&#45;&gt;util_spill_tp</title>
-<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"/>
+<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"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_spill_tp~~CallsGraph_node5" class="node">
 <title>util_exit</title>
-<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>
+<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>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
-<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_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~118"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~142"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/tidederiv.html b/docs/interface/tidederiv.html
index 97df4bb6b..44e50775b 100644
--- a/docs/interface/tidederiv.html
+++ b/docs/interface/tidederiv.html
@@ -136,7 +136,7 @@ <h1>tidederiv
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.6% of total for abstract interfaces.">11 statements</a>
+    title=" 2.4% of total for abstract interfaces.">11 statements</a>
      </li> 
      
      
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/tides_kick_getacch_pl.html b/docs/interface/tides_kick_getacch_pl.html
index 08ba2faa6..f24002c5b 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 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_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~196"></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~64"></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/interface/tides_step_spin_system.html b/docs/interface/tides_step_spin_system.html
index 693ec50d7..ef47be60b 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,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~197"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~108"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~133"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~36"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~42"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~54"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~59"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/user_kick_getacch_body.html b/docs/interface/user_kick_getacch_body.html
index fc6cf8e75..963fdd7bb 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.">366 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~157"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~198"></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~65"></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>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~109"></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>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~37"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~43"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~17"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~19"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/util_append.html b/docs/interface/util_append.html
index aab1c72d0..6844b3bd0 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: 16 statements,  0.0% of total for procedures.">16 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 9 statements,  0.0% of total for procedures.">9 statements</a>
      </li> 
      
      
@@ -190,8 +190,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-0" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_append.html#proc-symba_util_append_arr_info">symba_util_append_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_append.html#proc-symba_util_append_arr_kin">symba_util_append_arr_kin</a>
       
     </div>
@@ -227,113 +225,143 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_append~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_appendCalledByGraph" width="641pt" height="80pt"
- viewBox="0.00 0.00 641.00 79.91" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_append~~CalledByGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 90)">
+<svg id="interfaceutil_appendCalledByGraph" width="641pt" height="119pt"
+ viewBox="0.00 0.00 641.00 118.65" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_append~~CalledByGraph" class="graph" transform="scale(0.77 0.77) rotate(0) translate(4 150)">
 <title>interface~~util_append~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90 750,-90 750,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-150 828,-150 828,4 -4,4"/>
 <!-- interface~util_append -->
 <g id="interface~~util_append~~CalledByGraph_node1" class="node">
 <title>interface~util_append</title>
-<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>
+<polygon fill="none" stroke="black" points="824,-86 756,-86 756,-62 824,-62 824,-86"/>
+<text text-anchor="middle" x="790" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append</text>
 </g>
-<!-- proc~symba_util_append_merger -->
+<!-- proc~symba_util_append_encounter -->
 <g id="interface~~util_append~~CalledByGraph_node2" class="node">
-<title>proc~symba_util_append_merger</title>
-<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>
+<title>proc~symba_util_append_encounter</title>
+<g id="a_interface~~util_append~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_append_encounter.html" xlink:title="symba_util_append_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="720,-146 560,-146 560,-122 720,-122 720,-146"/>
+<text text-anchor="middle" x="640" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
+<!-- proc~symba_util_append_encounter&#45;&gt;interface~util_append -->
 <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"/>
+<title>proc~symba_util_append_encounter&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M681.18,-121.98C693.74,-117.9 707.57,-113.08 720,-108 732.36,-102.95 745.6,-96.66 757.13,-90.86"/>
+<polygon fill="#000000" stroke="#000000" points="759.05,-93.81 766.37,-86.15 755.87,-87.58 759.05,-93.81"/>
 </g>
-<!-- interface~symba_util_append_pl -->
-<g id="interface~~util_append~~CalledByGraph_node6" class="node">
-<title>interface~symba_util_append_pl</title>
-<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>
+<!-- proc~symba_util_append_pl -->
+<g id="interface~~util_append~~CalledByGraph_node3" class="node">
+<title>proc~symba_util_append_pl</title>
+<g id="a_interface~~util_append~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="700,-66 580,-66 580,-42 700,-42 700,-66"/>
+<text text-anchor="middle" x="640" 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_merger&#45;&gt;interface~symba_util_append_pl -->
-<g id="interface~~util_append~~CalledByGraph_edge7" class="edge">
-<title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
-<path fill="none" stroke="#000000" d="M328.01,-65.4C336.74,-64.36 345.64,-63.3 354.33,-62.26"/>
-<polygon fill="#000000" stroke="#000000" points="354.89,-65.72 364.41,-61.06 354.06,-58.77 354.89,-65.72"/>
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
+<g id="interface~~util_append~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M700.34,-62.02C715.49,-64.07 731.48,-66.23 745.66,-68.14"/>
+<polygon fill="#000000" stroke="#000000" points="745.24,-71.62 755.62,-69.49 746.17,-64.68 745.24,-71.62"/>
 </g>
 <!-- proc~symba_util_append_tp -->
-<g id="interface~~util_append~~CalledByGraph_node3" class="node">
+<g id="interface~~util_append~~CalledByGraph_node4" class="node">
 <title>proc~symba_util_append_tp</title>
-<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>
+<g id="a_interface~~util_append~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="700.5,-24 579.5,-24 579.5,0 700.5,0 700.5,-24"/>
+<text text-anchor="middle" x="640" 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_edge2" class="edge">
+<g id="interface~~util_append~~CalledByGraph_edge3" 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"/>
+<path fill="none" stroke="#000000" d="M694.37,-24.03C703.07,-26.6 711.89,-29.59 720,-33 734.99,-39.3 750.65,-48.38 763.25,-56.39"/>
+<polygon fill="#000000" stroke="#000000" points="761.55,-59.45 771.84,-61.98 765.37,-53.59 761.55,-59.45"/>
 </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>
+<!-- proc~symba_util_append_merger -->
+<g id="interface~~util_append~~CalledByGraph_node5" class="node">
+<title>proc~symba_util_append_merger</title>
+<g id="a_interface~~util_append~~CalledByGraph_node5"><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_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"/>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
+<g id="interface~~util_append~~CalledByGraph_edge4" 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 522.22,-75.73 561.78,-76.15 720,-75 728.26,-74.94 737.08,-74.84 745.55,-74.73"/>
+<polygon fill="#000000" stroke="#000000" points="745.71,-78.22 755.66,-74.58 745.61,-71.22 745.71,-78.22"/>
 </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>
+<!-- interface~symba_util_append_pl -->
+<g id="interface~~util_append~~CalledByGraph_node6" class="node">
+<title>interface~symba_util_append_pl</title>
+<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="504,-66 384,-66 384,-42 504,-42 504,-66"/>
+<text text-anchor="middle" x="444" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</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"/>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl -->
+<g id="interface~~util_append~~CalledByGraph_edge9" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
+<path fill="none" stroke="#000000" d="M328.03,-66.3C343,-64.7 358.73,-63.01 373.6,-61.42"/>
+<polygon fill="#000000" stroke="#000000" points="374.16,-64.88 383.73,-60.34 373.42,-57.92 374.16,-64.88"/>
 </g>
 <!-- interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl -->
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M504.26,-54C524.94,-54 548.34,-54 569.76,-54"/>
+<polygon fill="#000000" stroke="#000000" points="569.77,-57.5 579.77,-54 569.77,-50.5 569.77,-57.5"/>
 </g>
-<!-- interface~symba_util_append_merger -->
+<!-- interface~symba_util_append_encounter -->
 <g id="interface~~util_append~~CalledByGraph_node7" class="node">
+<title>interface~symba_util_append_encounter</title>
+<g id="a_interface~~util_append~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_append_encounter.html" xlink:title="symba_util_append_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="524,-146 364,-146 364,-122 524,-122 524,-146"/>
+<text text-anchor="middle" x="444" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter -->
+<g id="interface~~util_append~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-134C532.53,-134 541.05,-134 549.5,-134"/>
+<polygon fill="#000000" stroke="#000000" points="549.75,-137.5 559.75,-134 549.75,-130.5 549.75,-137.5"/>
+</g>
+<!-- interface~symba_util_append_merger -->
+<g id="interface~~util_append~~CalledByGraph_node8" class="node">
 <title>interface~symba_util_append_merger</title>
-<g id="a_interface~~util_append~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<g id="a_interface~~util_append~~CalledByGraph_node8"><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_edge4" class="edge">
+<g id="interface~~util_append~~CalledByGraph_edge8" 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_node9" class="node">
+<title>interface~symba_util_append_tp</title>
+<g id="a_interface~~util_append~~CalledByGraph_node9"><a xlink:href=".././interface/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="504.5,-24 383.5,-24 383.5,0 504.5,0 504.5,-24"/>
+<text text-anchor="middle" x="444" 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_edge7" 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="M504.52,-12C524.91,-12 547.91,-12 569.05,-12"/>
+<polygon fill="#000000" stroke="#000000" points="569.25,-15.5 579.25,-12 569.25,-8.5 569.25,-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">
@@ -423,8 +451,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-1" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_append.html#proc-symba_util_append_arr_info">symba_util_append_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_append.html#proc-symba_util_append_arr_kin">symba_util_append_arr_kin</a>
       
     </div>
@@ -449,117 +475,6 @@ <h3>Contents</h3>
    <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, nold, nsrc, lsource_mask)
-    
-    
-   
-</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>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></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></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-   
-    
   <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, nold, nsrc, lsource_mask)
diff --git a/docs/interface/util_append_body.html b/docs/interface/util_append_body.html
index a611cb951..71dc48d59 100644
--- a/docs/interface/util_append_body.html
+++ b/docs/interface/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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -378,25 +378,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M201.76,-18.82C209.99,-20.21 218.81,-21.71 227.53,-23.18"/>
 <polygon fill="#000000" stroke="#000000" points="227.22,-26.68 237.67,-24.9 228.39,-19.78 227.22,-26.68"/>
 </g>
-<!-- interface~util_append_tp -->
-<g id="interface~~util_append_body~~CalledByGraph_node4" class="node">
-<title>interface~util_append_tp</title>
-<g id="a_interface~~util_append_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_append_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<g id="interface~~util_append_body~~CalledByGraph_edge3" 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,-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_pl -->
-<g id="interface~~util_append_body~~CalledByGraph_node5" class="node">
+<g id="interface~~util_append_body~~CalledByGraph_node4" class="node">
 <title>interface~util_append_pl</title>
-<g id="a_interface~~util_append_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<g id="a_interface~~util_append_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="82.5,-24 0.5,-24 0.5,0 82.5,0 82.5,-24"/>
 <text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
@@ -408,6 +393,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.76,-12C91.22,-12 100.24,-12 109.02,-12"/>
 <polygon fill="#000000" stroke="#000000" points="109.16,-15.5 119.16,-12 109.16,-8.5 109.16,-15.5"/>
 </g>
+<!-- interface~util_append_tp -->
+<g id="interface~~util_append_body~~CalledByGraph_node5" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_interface~~util_append_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_append_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
+<g id="interface~~util_append_body~~CalledByGraph_edge3" 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,-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>
 </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">
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~158"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~199"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -522,7 +522,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~7"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-source~9"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -537,7 +537,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~7"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~8"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/util_append_encounter.html b/docs/interface/util_append_encounter.html
new file mode 100644
index 000000000..c8151ce70
--- /dev/null
+++ b/docs/interface/util_append_encounter.html
@@ -0,0 +1,465 @@
+
+<!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_append_encounter &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_append_encounter
+   <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.2% of total for procedures.">114 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_append_encounter</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~~util_append_encounter~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_append_encounterCallsGraph" width="392pt" height="32pt"
+ viewBox="0.00 0.00 392.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_append_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_append_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 388,-28 388,4 -4,4"/>
+<!-- interface~util_append_encounter -->
+<g id="interface~~util_append_encounter~~CallsGraph_node1" class="node">
+<title>interface~util_append_encounter</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">util_append_encounter</text>
+</g>
+<!-- proc~util_append_encounter -->
+<g id="interface~~util_append_encounter~~CallsGraph_node2" class="node">
+<title>proc~util_append_encounter</title>
+<g id="a_interface~~util_append_encounter~~CallsGraph_node2"><a xlink:href=".././proc/util_append_encounter.html" xlink:title="util_append_encounter">
+<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">util_append_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_encounter&#45;&gt;proc~util_append_encounter -->
+<g id="interface~~util_append_encounter~~CallsGraph_edge1" class="edge">
+<title>interface~util_append_encounter&#45;&gt;proc~util_append_encounter</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"/>
+</g>
+<!-- interface~util_append~2 -->
+<g id="interface~~util_append_encounter~~CallsGraph_node3" class="node">
+<title>interface~util_append~2</title>
+<g id="a_interface~~util_append_encounter~~CallsGraph_node3"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="384,-24 316,-24 316,0 384,0 384,-24"/>
+<text text-anchor="middle" x="350" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_encounter&#45;&gt;interface~util_append~2 -->
+<g id="interface~~util_append_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~util_append_encounter&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M280.35,-12C288.92,-12 297.6,-12 305.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="305.78,-15.5 315.78,-12 305.78,-8.5 305.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 util_append_encounter(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/util_append_encounter.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~200"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-source~10"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lsource_mask~9"></span>logical,</td>
+  <td>intent(in),</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>
+  
+</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/util_append_pl.html b/docs/interface/util_append_pl.html
index d3b44bbde..4793f3532 100644
--- a/docs/interface/util_append_pl.html
+++ b/docs/interface/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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -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="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)">
+<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)">
 <title>interface~~util_append_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.17 574,-90.17 574,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 574,-108 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,-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>
+<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>
 <!-- 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,-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>
+<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>
 </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,-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"/>
+<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~2 -->
+<!-- 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"/>
+</g>
+<!-- interface~util_append~2 -->
+<g id="interface~~util_append_pl~~CallsGraph_node4" class="node">
 <title>interface~util_append~2</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
-<g id="interface~~util_append_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
-<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"/>
+<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"/>
 </g>
 <!-- interface~util_exit -->
-<g id="interface~~util_append_pl~~CallsGraph_node4" class="node">
+<g id="interface~~util_append_pl~~CallsGraph_node5" class="node">
 <title>interface~util_exit</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="interface~~util_append_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_append_pl~~CallsGraph_edge4" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<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"/>
+<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"/>
 </g>
-<!-- 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>
+<!-- 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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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"/>
 </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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<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,-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"/>
+<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"/>
 </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="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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -427,7 +427,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~201"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -442,7 +442,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~8"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-source~11"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -457,7 +457,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~8"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~10"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/util_append_tp.html b/docs/interface/util_append_tp.html
index cc49c6eaf..68c7bbf6d 100644
--- a/docs/interface/util_append_tp.html
+++ b/docs/interface/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.1% of total for procedures.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -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="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)">
+<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)">
 <title>interface~~util_append_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.14 576,-90.14 576,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 576,-108 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,-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>
+<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>
 <!-- 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,-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>
+<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>
 </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,-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"/>
+<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~2 -->
+<!-- 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"/>
+</g>
+<!-- interface~util_append~2 -->
+<g id="interface~~util_append_tp~~CallsGraph_node4" class="node">
 <title>interface~util_append~2</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
-<g id="interface~~util_append_tp~~CallsGraph_edge2" class="edge">
+<g id="interface~~util_append_tp~~CallsGraph_edge3" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
-<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"/>
+<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"/>
 </g>
 <!-- interface~util_exit -->
-<g id="interface~~util_append_tp~~CallsGraph_node4" class="node">
+<g id="interface~~util_append_tp~~CallsGraph_node5" class="node">
 <title>interface~util_exit</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
-<g id="interface~~util_append_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_append_tp~~CallsGraph_edge4" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<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"/>
+<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"/>
 </g>
-<!-- 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>
+<!-- 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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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"/>
 </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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<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,-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"/>
+<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"/>
 </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="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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -427,7 +427,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~160"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~202"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -442,7 +442,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~9"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-source~12"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -457,7 +457,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~9"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~11"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/util_append~2.html b/docs/interface/util_append~2.html
index 747210b07..b244b6471 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: 37 statements,  0.1% of total for procedures.">37 statements</a>
+    title="<p> 0.1% of total for procedures.</p>Including implementation: 44 statements,  0.1% of total for procedures.">44 statements</a>
      </li> 
      
      
@@ -198,6 +198,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_append~2.html#proc-util_append_arr_i4b">util_append_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_append~2.html#proc-util_append_arr_info">util_append_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_append~2.html#proc-util_append_arr_logical">util_append_arr_logical</a>
       
     </div>
@@ -233,118 +235,148 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_append~2~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_append2CalledByGraph" width="580pt" height="93pt"
- viewBox="0.00 0.00 580.00 93.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_append~2~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 89)">
+<svg id="interfaceutil_append2CalledByGraph" width="630pt" height="144pt"
+ viewBox="0.00 0.00 630.00 143.88" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_append~2~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 139.88)">
 <title>interface~~util_append~2~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-89 576,-89 576,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-139.88 626,-139.88 626,4 -4,4"/>
 <!-- interface~util_append~2 -->
 <g id="interface~~util_append~2~~CalledByGraph_node1" class="node">
 <title>interface~util_append~2</title>
-<polygon fill="none" stroke="black" points="572,-55 504,-55 504,-31 572,-31 572,-55"/>
-<text text-anchor="middle" x="538" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append</text>
+<polygon fill="none" stroke="black" points="622,-75.88 554,-75.88 554,-51.88 622,-51.88 622,-75.88"/>
+<text text-anchor="middle" x="588" y="-61.48" font-family="Helvetica,sans-Serif" font-size="10.50">util_append</text>
 </g>
-<!-- proc~util_append_tp -->
+<!-- proc~util_append_encounter -->
 <g id="interface~~util_append~2~~CalledByGraph_node2" class="node">
+<title>proc~util_append_encounter</title>
+<g id="a_interface~~util_append~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_append_encounter.html" xlink:title="util_append_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="518,-135.88 396,-135.88 396,-111.88 518,-111.88 518,-135.88"/>
+<text text-anchor="middle" x="457" y="-121.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_encounter&#45;&gt;interface~util_append~2 -->
+<g id="interface~~util_append~2~~CalledByGraph_edge2" class="edge">
+<title>proc~util_append_encounter&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M486.51,-111.86C496.52,-107.55 507.8,-102.6 518,-97.88 529.84,-92.4 542.68,-86.15 554.05,-80.52"/>
+<polygon fill="#000000" stroke="#000000" points="555.8,-83.56 563.19,-75.97 552.68,-77.3 555.8,-83.56"/>
+</g>
+<!-- proc~util_append_tp -->
+<g id="interface~~util_append~2~~CalledByGraph_node3" class="node">
 <title>proc~util_append_tp</title>
-<g id="a_interface~~util_append~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-24 119,-24 119,0 202,0 202,-24"/>
-<text text-anchor="middle" x="160.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<g id="a_interface~~util_append~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-24.88 119,-24.88 119,-0.88 202,-0.88 202,-24.88"/>
+<text text-anchor="middle" x="160.5" y="-10.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
 <g id="interface~~util_append~2~~CalledByGraph_edge1" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M202.49,-9.95C261.59,-7.75 373.98,-6.44 468,-22 476.52,-23.41 485.47,-25.59 493.98,-28.01"/>
-<polygon fill="#000000" stroke="#000000" points="493.15,-31.42 503.73,-30.94 495.16,-24.71 493.15,-31.42"/>
+<path fill="none" stroke="#000000" d="M202.08,-7.52C269.31,-0.07 407.39,9.18 518,-22.88 534.42,-27.64 550.95,-37.25 563.71,-45.97"/>
+<polygon fill="#000000" stroke="#000000" points="561.72,-48.85 571.9,-51.8 565.78,-43.15 561.72,-48.85"/>
 </g>
 <!-- interface~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_node7" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node8" class="node">
 <title>interface~util_append_body</title>
-<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>
+<g id="a_interface~~util_append~2~~CalledByGraph_node8"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="347.5,-55.88 250.5,-55.88 250.5,-31.88 347.5,-31.88 347.5,-55.88"/>
+<text text-anchor="middle" x="299" y="-41.48" 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~2~~CalledByGraph_edge7" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge9" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M202.08,-22.09C213.99,-24.8 227.25,-27.81 240.02,-30.71"/>
+<polygon fill="#000000" stroke="#000000" points="239.59,-34.2 250.12,-33 241.14,-27.37 239.59,-34.2"/>
 </g>
 <!-- proc~util_append_pl -->
-<g id="interface~~util_append~2~~CalledByGraph_node3" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node4" class="node">
 <title>proc~util_append_pl</title>
-<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>
+<g id="a_interface~~util_append~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="201.5,-85.88 119.5,-85.88 119.5,-61.88 201.5,-61.88 201.5,-85.88"/>
+<text text-anchor="middle" x="160.5" y="-71.48" 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_edge2" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" d="M201.53,-72.94C281.68,-71.05 461.25,-66.83 543.88,-64.89"/>
+<polygon fill="#000000" stroke="#000000" points="544.02,-68.39 553.94,-64.65 543.86,-61.39 544.02,-68.39"/>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_edge8" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge10" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M201.72,-65.04C213.87,-62.37 227.47,-59.38 240.52,-56.51"/>
+<polygon fill="#000000" stroke="#000000" points="241.35,-59.91 250.37,-54.35 239.85,-53.07 241.35,-59.91"/>
 </g>
 <!-- proc~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_node4" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node5" 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>
+<g id="a_interface~~util_append~2~~CalledByGraph_node5"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="505.5,-55.88 408.5,-55.88 408.5,-31.88 505.5,-31.88 505.5,-55.88"/>
+<text text-anchor="middle" x="457" y="-41.48" 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"/>
+<path fill="none" stroke="#000000" d="M505.67,-51.27C518.12,-53.2 531.46,-55.27 543.67,-57.16"/>
+<polygon fill="#000000" stroke="#000000" points="543.2,-60.63 553.62,-58.7 544.27,-53.71 543.2,-60.63"/>
 </g>
-<!-- interface~util_append_tp -->
-<g id="interface~~util_append~2~~CalledByGraph_node5" class="node">
-<title>interface~util_append_tp</title>
-<g id="a_interface~~util_append~2~~CalledByGraph_node5"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="83,-24 0,-24 0,0 83,0 83,-24"/>
-<text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<!-- interface~util_append_encounter -->
+<g id="interface~~util_append~2~~CalledByGraph_node6" class="node">
+<title>interface~util_append_encounter</title>
+<g id="a_interface~~util_append~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_append_encounter.html" xlink:title="util_append_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="360,-135.88 238,-135.88 238,-111.88 360,-111.88 360,-135.88"/>
+<text text-anchor="middle" x="299" y="-121.48" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<g id="interface~~util_append~2~~CalledByGraph_edge4" 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,-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"/>
+<!-- interface~util_append_encounter&#45;&gt;proc~util_append_encounter -->
+<g id="interface~~util_append~2~~CalledByGraph_edge5" class="edge">
+<title>interface~util_append_encounter&#45;&gt;proc~util_append_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.31,-123.88C368.6,-123.88 377.17,-123.88 385.63,-123.88"/>
+<polygon fill="#000000" stroke="#000000" points="385.85,-127.38 395.85,-123.88 385.85,-120.38 385.85,-127.38"/>
 </g>
 <!-- interface~util_append_pl -->
-<g id="interface~~util_append~2~~CalledByGraph_node6" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node7" class="node">
 <title>interface~util_append_pl</title>
-<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>
+<g id="a_interface~~util_append~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="82.5,-85.88 0.5,-85.88 0.5,-61.88 82.5,-61.88 82.5,-85.88"/>
+<text text-anchor="middle" x="41.5" y="-71.48" 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_edge5" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.76,-73.88C91.22,-73.88 100.24,-73.88 109.02,-73.88"/>
+<polygon fill="#000000" stroke="#000000" points="109.16,-77.38 119.16,-73.88 109.16,-70.38 109.16,-77.38"/>
 </g>
 <!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_edge6" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge8" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M347.65,-43.88C363.61,-43.88 381.57,-43.88 398.21,-43.88"/>
+<polygon fill="#000000" stroke="#000000" points="398.37,-47.38 408.37,-43.88 398.37,-40.38 398.37,-47.38"/>
+</g>
+<!-- interface~util_append_tp -->
+<g id="interface~~util_append~2~~CalledByGraph_node9" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_interface~~util_append~2~~CalledByGraph_node9"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-24.88 0,-24.88 0,-0.88 83,-0.88 83,-24.88"/>
+<text text-anchor="middle" x="41.5" y="-10.48" 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~2~~CalledByGraph_edge6" 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,-12.88C91.35,-12.88 100.14,-12.88 108.7,-12.88"/>
+<polygon fill="#000000" stroke="#000000" points="108.98,-16.38 118.98,-12.88 108.98,-9.38 108.98,-16.38"/>
 </g>
 </g>
 </svg>
@@ -443,6 +475,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_append~2.html#proc-util_append_arr_i4b">util_append_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_append~2.html#proc-util_append_arr_info">util_append_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_append~2.html#proc-util_append_arr_logical">util_append_arr_logical</a>
       
     </div>
@@ -888,6 +922,117 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_info"></span><h3>
+public subroutine util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
+    
+    
+   
+</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_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/swiftest_particle_info.html'>swiftest_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></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>
diff --git a/docs/interface/util_coord_b2h_pl.html b/docs/interface/util_coord_b2h_pl.html
index 4e7eac790..012fb1016 100644
--- a/docs/interface/util_coord_b2h_pl.html
+++ b/docs/interface/util_coord_b2h_pl.html
@@ -136,7 +136,7 @@ <h1>util_coord_b2h_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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 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_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>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~15"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~14"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 ddb43a2d9..b2de970c8 100644
--- a/docs/interface/util_coord_b2h_tp.html
+++ b/docs/interface/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.1% of total for procedures.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~162"></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>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~16"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~15"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/util_coord_h2b_pl.html b/docs/interface/util_coord_h2b_pl.html
index b3047c347..506589a69 100644
--- a/docs/interface/util_coord_h2b_pl.html
+++ b/docs/interface/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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -346,7 +346,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~205"></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-cb~17"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~16"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 2fc6961fb..784474c7b 100644
--- a/docs/interface/util_coord_h2b_tp.html
+++ b/docs/interface/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.1% of total for procedures.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -346,7 +346,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~206"></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-cb~18"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~17"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_coord_vb2vh_pl.html b/docs/interface/util_coord_vb2vh_pl.html
similarity index 81%
rename from docs/interface/helio_coord_vb2vh_pl.html
rename to docs/interface/util_coord_vb2vh_pl.html
index 924da9a1d..57f6a0c9a 100644
--- a/docs/interface/helio_coord_vb2vh_pl.html
+++ b/docs/interface/util_coord_vb2vh_pl.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>helio_coord_vb2vh_pl &ndash; swiftest</title>
+    <title>util_coord_vb2vh_pl &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>helio_coord_vb2vh_pl
+    <h1>util_coord_vb2vh_pl
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>helio_coord_vb2vh_pl
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_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/helio_classes.f90.html'>helio_classes.f90</a></li>
+     <li><a href='../sourcefile/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
     
-     <li><a href='../module/helio_classes.html'>helio_classes</a></li>
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">helio_coord_vb2vh_pl</li>
+     <li class="active">util_coord_vb2vh_pl</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~~helio_coord_vb2vh_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacehelio_coord_vb2vh_plCallsGraph" width="278pt" height="32pt"
- viewBox="0.00 0.00 278.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~helio_coord_vb2vh_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~helio_coord_vb2vh_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 274,-28 274,4 -4,4"/>
-<!-- interface~helio_coord_vb2vh_pl -->
-<g id="interface~~helio_coord_vb2vh_pl~~CallsGraph_node1" class="node">
-<title>interface~helio_coord_vb2vh_pl</title>
-<polygon fill="none" stroke="black" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord_vb2vh_pl</text>
+<!-- Title: interface~~util_coord_vb2vh_pl~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_coord_vb2vh_plCallsGraph" 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="interface~~util_coord_vb2vh_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_coord_vb2vh_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- interface~util_coord_vb2vh_pl -->
+<g id="interface~~util_coord_vb2vh_pl~~CallsGraph_node1" class="node">
+<title>interface~util_coord_vb2vh_pl</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">util_coord_vb2vh_pl</text>
 </g>
-<!-- proc~helio_coord_vb2vh_pl -->
-<g id="interface~~helio_coord_vb2vh_pl~~CallsGraph_node2" class="node">
-<title>proc~helio_coord_vb2vh_pl</title>
-<g id="a_interface~~helio_coord_vb2vh_pl~~CallsGraph_node2"><a xlink:href=".././proc/helio_coord_vb2vh_pl.html" xlink:title="helio_coord_vb2vh_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="270,-24 153,-24 153,0 270,0 270,-24"/>
-<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_pl</text>
+<!-- proc~util_coord_vb2vh_pl -->
+<g id="interface~~util_coord_vb2vh_pl~~CallsGraph_node2" class="node">
+<title>proc~util_coord_vb2vh_pl</title>
+<g id="a_interface~~util_coord_vb2vh_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_vb2vh_pl.html" xlink:title="util_coord_vb2vh_pl">
+<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_coord_vb2vh_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vb2vh_pl&#45;&gt;proc~helio_coord_vb2vh_pl -->
-<g id="interface~~helio_coord_vb2vh_pl~~CallsGraph_edge1" 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="M117.02,-12C125.46,-12 134.23,-12 142.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.89,-15.5 152.89,-12 142.89,-8.5 142.89,-15.5"/>
+<!-- interface~util_coord_vb2vh_pl&#45;&gt;proc~util_coord_vb2vh_pl -->
+<g id="interface~~util_coord_vb2vh_pl~~CallsGraph_edge1" class="edge">
+<title>interface~util_coord_vb2vh_pl&#45;&gt;proc~util_coord_vb2vh_pl</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>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine helio_coord_vb2vh_pl(self, cb)
+public module subroutine util_coord_vb2vh_pl(self, cb)
     
     
    
-   <a href='../proc/helio_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_pl.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~30"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~207"></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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~5"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~18"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/eucl_dist_index_plpl.html b/docs/interface/util_coord_vb2vh_tp.html
similarity index 86%
rename from docs/interface/eucl_dist_index_plpl.html
rename to docs/interface/util_coord_vb2vh_tp.html
index 93aa0c789..40e64032a 100644
--- a/docs/interface/eucl_dist_index_plpl.html
+++ b/docs/interface/util_coord_vb2vh_tp.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>eucl_dist_index_plpl &ndash; swiftest</title>
+    <title>util_coord_vb2vh_tp &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>eucl_dist_index_plpl
+    <h1>util_coord_vb2vh_tp
    <small>Interface</small>
     
     </h1>
@@ -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.">366 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>eucl_dist_index_plpl
      <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">eucl_dist_index_plpl</li>
+     <li class="active">util_coord_vb2vh_tp</li>
   </ol>
 </div>
 </div>
@@ -219,30 +219,30 @@ <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~~eucl_dist_index_plpl~~CallsGraph Pages: 1 -->
-<svg id="interfaceeucl_dist_index_plplCallsGraph" width="262pt" height="32pt"
+<!-- Title: interface~~util_coord_vb2vh_tp~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_coord_vb2vh_tpCallsGraph" width="262pt" height="32pt"
  viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~eucl_dist_index_plpl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~eucl_dist_index_plpl~~CallsGraph</title>
+<g id="interface~~util_coord_vb2vh_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_coord_vb2vh_tp~~CallsGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
-<!-- interface~eucl_dist_index_plpl -->
-<g id="interface~~eucl_dist_index_plpl~~CallsGraph_node1" class="node">
-<title>interface~eucl_dist_index_plpl</title>
+<!-- interface~util_coord_vb2vh_tp -->
+<g id="interface~~util_coord_vb2vh_tp~~CallsGraph_node1" class="node">
+<title>interface~util_coord_vb2vh_tp</title>
 <polygon fill="none" stroke="black" points="109,-24 0,-24 0,0 109,0 109,-24"/>
-<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">eucl_dist_index_plpl</text>
+<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_vb2vh_tp</text>
 </g>
-<!-- proc~eucl_dist_index_plpl -->
-<g id="interface~~eucl_dist_index_plpl~~CallsGraph_node2" class="node">
-<title>proc~eucl_dist_index_plpl</title>
-<g id="a_interface~~eucl_dist_index_plpl~~CallsGraph_node2"><a xlink:href=".././proc/eucl_dist_index_plpl.html" xlink:title="eucl_dist_index_plpl">
+<!-- proc~util_coord_vb2vh_tp -->
+<g id="interface~~util_coord_vb2vh_tp~~CallsGraph_node2" class="node">
+<title>proc~util_coord_vb2vh_tp</title>
+<g id="a_interface~~util_coord_vb2vh_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_vb2vh_tp.html" xlink:title="util_coord_vb2vh_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="254,-24 145,-24 145,0 254,0 254,-24"/>
-<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl_dist_index_plpl</text>
+<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vb2vh_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl -->
-<g id="interface~~eucl_dist_index_plpl~~CallsGraph_edge1" class="edge">
-<title>interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl</title>
+<!-- interface~util_coord_vb2vh_tp&#45;&gt;proc~util_coord_vb2vh_tp -->
+<g id="interface~~util_coord_vb2vh_tp~~CallsGraph_edge1" class="edge">
+<title>interface~util_coord_vb2vh_tp&#45;&gt;proc~util_coord_vb2vh_tp</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
 <polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-15.5"/>
 </g>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -346,12 +346,27 @@ <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~208"></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 massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vbcb"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
diff --git a/docs/interface/util_coord_vh2vb_pl.html b/docs/interface/util_coord_vh2vb_pl.html
new file mode 100644
index 000000000..1f31554af
--- /dev/null
+++ b/docs/interface/util_coord_vh2vb_pl.html
@@ -0,0 +1,435 @@
+
+<!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_coord_vh2vb_pl &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_coord_vh2vb_pl
+   <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.2% of total for procedures.">114 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_coord_vh2vb_pl</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~~util_coord_vh2vb_pl~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_coord_vh2vb_plCallsGraph" 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="interface~~util_coord_vh2vb_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_coord_vh2vb_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- interface~util_coord_vh2vb_pl -->
+<g id="interface~~util_coord_vh2vb_pl~~CallsGraph_node1" class="node">
+<title>interface~util_coord_vh2vb_pl</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">util_coord_vh2vb_pl</text>
+</g>
+<!-- proc~util_coord_vh2vb_pl -->
+<g id="interface~~util_coord_vh2vb_pl~~CallsGraph_node2" class="node">
+<title>proc~util_coord_vh2vb_pl</title>
+<g id="a_interface~~util_coord_vh2vb_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_vh2vb_pl.html" xlink:title="util_coord_vh2vb_pl">
+<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_coord_vh2vb_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_vh2vb_pl&#45;&gt;proc~util_coord_vh2vb_pl -->
+<g id="interface~~util_coord_vh2vb_pl~~CallsGraph_edge1" class="edge">
+<title>interface~util_coord_vh2vb_pl&#45;&gt;proc~util_coord_vh2vb_pl</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>
+</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 util_coord_vh2vb_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_vh2vb_pl.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~209"></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" id="variable-cb~19"></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>
+
+    
+    
+    
+    <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/util_coord_vh2vb_tp.html b/docs/interface/util_coord_vh2vb_tp.html
new file mode 100644
index 000000000..0ee2238d7
--- /dev/null
+++ b/docs/interface/util_coord_vh2vb_tp.html
@@ -0,0 +1,435 @@
+
+<!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_coord_vh2vb_tp &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_coord_vh2vb_tp
+   <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.2% of total for procedures.">114 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_coord_vh2vb_tp</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~~util_coord_vh2vb_tp~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_coord_vh2vb_tpCallsGraph" width="262pt" height="32pt"
+ viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_coord_vh2vb_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_coord_vh2vb_tp~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
+<!-- interface~util_coord_vh2vb_tp -->
+<g id="interface~~util_coord_vh2vb_tp~~CallsGraph_node1" class="node">
+<title>interface~util_coord_vh2vb_tp</title>
+<polygon fill="none" stroke="black" points="109,-24 0,-24 0,0 109,0 109,-24"/>
+<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_vh2vb_tp</text>
+</g>
+<!-- proc~util_coord_vh2vb_tp -->
+<g id="interface~~util_coord_vh2vb_tp~~CallsGraph_node2" class="node">
+<title>proc~util_coord_vh2vb_tp</title>
+<g id="a_interface~~util_coord_vh2vb_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_vh2vb_tp.html" xlink:title="util_coord_vh2vb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="254,-24 145,-24 145,0 254,0 254,-24"/>
+<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vh2vb_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_vh2vb_tp&#45;&gt;proc~util_coord_vh2vb_tp -->
+<g id="interface~~util_coord_vh2vb_tp~~CallsGraph_edge1" class="edge">
+<title>interface~util_coord_vh2vb_tp&#45;&gt;proc~util_coord_vh2vb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
+<polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-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 util_coord_vh2vb_tp(self, vbcb)
+    
+    
+   
+   <a href='../proc/util_coord_vh2vb_tp.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~210"></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" id="variable-vbcb~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</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/util_coord_xh2xb_pl.html b/docs/interface/util_coord_xh2xb_pl.html
new file mode 100644
index 000000000..bbfcaefe1
--- /dev/null
+++ b/docs/interface/util_coord_xh2xb_pl.html
@@ -0,0 +1,435 @@
+
+<!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_coord_xh2xb_pl &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_coord_xh2xb_pl
+   <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.2% of total for procedures.">114 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_coord_xh2xb_pl</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~~util_coord_xh2xb_pl~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_coord_xh2xb_plCallsGraph" 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="interface~~util_coord_xh2xb_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_coord_xh2xb_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- interface~util_coord_xh2xb_pl -->
+<g id="interface~~util_coord_xh2xb_pl~~CallsGraph_node1" class="node">
+<title>interface~util_coord_xh2xb_pl</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">util_coord_xh2xb_pl</text>
+</g>
+<!-- proc~util_coord_xh2xb_pl -->
+<g id="interface~~util_coord_xh2xb_pl~~CallsGraph_node2" class="node">
+<title>proc~util_coord_xh2xb_pl</title>
+<g id="a_interface~~util_coord_xh2xb_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_xh2xb_pl.html" xlink:title="util_coord_xh2xb_pl">
+<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_coord_xh2xb_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_xh2xb_pl&#45;&gt;proc~util_coord_xh2xb_pl -->
+<g id="interface~~util_coord_xh2xb_pl~~CallsGraph_edge1" class="edge">
+<title>interface~util_coord_xh2xb_pl&#45;&gt;proc~util_coord_xh2xb_pl</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>
+</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 util_coord_xh2xb_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_xh2xb_pl.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~211"></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" id="variable-cb~20"></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>
+
+    
+    
+    
+    <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/util_coord_xh2xb_tp.html b/docs/interface/util_coord_xh2xb_tp.html
new file mode 100644
index 000000000..8bcf67744
--- /dev/null
+++ b/docs/interface/util_coord_xh2xb_tp.html
@@ -0,0 +1,435 @@
+
+<!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_coord_xh2xb_tp &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_coord_xh2xb_tp
+   <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.2% of total for procedures.">114 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_coord_xh2xb_tp</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~~util_coord_xh2xb_tp~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_coord_xh2xb_tpCallsGraph" width="262pt" height="32pt"
+ viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_coord_xh2xb_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_coord_xh2xb_tp~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
+<!-- interface~util_coord_xh2xb_tp -->
+<g id="interface~~util_coord_xh2xb_tp~~CallsGraph_node1" class="node">
+<title>interface~util_coord_xh2xb_tp</title>
+<polygon fill="none" stroke="black" points="109,-24 0,-24 0,0 109,0 109,-24"/>
+<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_xh2xb_tp</text>
+</g>
+<!-- proc~util_coord_xh2xb_tp -->
+<g id="interface~~util_coord_xh2xb_tp~~CallsGraph_node2" class="node">
+<title>proc~util_coord_xh2xb_tp</title>
+<g id="a_interface~~util_coord_xh2xb_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_xh2xb_tp.html" xlink:title="util_coord_xh2xb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="254,-24 145,-24 145,0 254,0 254,-24"/>
+<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_xh2xb_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_xh2xb_tp&#45;&gt;proc~util_coord_xh2xb_tp -->
+<g id="interface~~util_coord_xh2xb_tp~~CallsGraph_edge1" class="edge">
+<title>interface~util_coord_xh2xb_tp&#45;&gt;proc~util_coord_xh2xb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
+<polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-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 util_coord_xh2xb_tp(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_xh2xb_tp.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~212"></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" id="variable-cb~21"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</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/util_copy_encounter.html b/docs/interface/util_copy_encounter.html
index 47a683dac..e21c472bb 100644
--- a/docs/interface/util_copy_encounter.html
+++ b/docs/interface/util_copy_encounter.html
@@ -136,7 +136,7 @@ <h1>util_copy_encounter
      <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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~165"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~213"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~10"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-source~13"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_coord_vh2vb_tp.html b/docs/interface/util_copy_particle_info.html
similarity index 84%
rename from docs/interface/helio_coord_vh2vb_tp.html
rename to docs/interface/util_copy_particle_info.html
index 7e1fdc4ed..18879d969 100644
--- a/docs/interface/helio_coord_vh2vb_tp.html
+++ b/docs/interface/util_copy_particle_info.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>helio_coord_vh2vb_tp &ndash; swiftest</title>
+    <title>util_copy_particle_info &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>helio_coord_vh2vb_tp
+    <h1>util_copy_particle_info
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>helio_coord_vh2vb_tp
      <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.">152 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_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/helio_classes.f90.html'>helio_classes.f90</a></li>
+     <li><a href='../sourcefile/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
     
-     <li><a href='../module/helio_classes.html'>helio_classes</a></li>
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">helio_coord_vh2vb_tp</li>
+     <li class="active">util_copy_particle_info</li>
   </ol>
 </div>
 </div>
@@ -219,30 +219,30 @@ <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~~helio_coord_vh2vb_tp~~CallsGraph Pages: 1 -->
-<svg id="interfacehelio_coord_vh2vb_tpCallsGraph" width="280pt" height="32pt"
+<!-- Title: interface~~util_copy_particle_info~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_copy_particle_infoCallsGraph" 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~~helio_coord_vh2vb_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~helio_coord_vh2vb_tp~~CallsGraph</title>
+<g id="interface~~util_copy_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_copy_particle_info~~CallsGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- interface~helio_coord_vh2vb_tp -->
-<g id="interface~~helio_coord_vh2vb_tp~~CallsGraph_node1" class="node">
-<title>interface~helio_coord_vh2vb_tp</title>
+<!-- interface~util_copy_particle_info -->
+<g id="interface~~util_copy_particle_info~~CallsGraph_node1" class="node">
+<title>interface~util_copy_particle_info</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">helio_coord_vh2vb_tp</text>
+<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy_particle_info</text>
 </g>
-<!-- proc~helio_coord_vh2vb_tp -->
-<g id="interface~~helio_coord_vh2vb_tp~~CallsGraph_node2" class="node">
-<title>proc~helio_coord_vh2vb_tp</title>
-<g id="a_interface~~helio_coord_vh2vb_tp~~CallsGraph_node2"><a xlink:href=".././proc/helio_coord_vh2vb_tp.html" xlink:title="helio_coord_vh2vb_tp">
+<!-- proc~util_copy_particle_info -->
+<g id="interface~~util_copy_particle_info~~CallsGraph_node2" class="node">
+<title>proc~util_copy_particle_info</title>
+<g id="a_interface~~util_copy_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/util_copy_particle_info.html" xlink:title="util_copy_particle_info">
 <polygon fill="#d9534f" stroke="#d9534f" points="272,-24 154,-24 154,0 272,0 272,-24"/>
-<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_tp</text>
+<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp -->
-<g id="interface~~helio_coord_vh2vb_tp~~CallsGraph_edge1" class="edge">
-<title>interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp</title>
+<!-- interface~util_copy_particle_info&#45;&gt;proc~util_copy_particle_info -->
+<g id="interface~~util_copy_particle_info~~CallsGraph_edge1" class="edge">
+<title>interface~util_copy_particle_info&#45;&gt;proc~util_copy_particle_info</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>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine helio_coord_vh2vb_tp(self, vbcb)
+public module subroutine util_copy_particle_info(self, source)
     
     
    
-   <a href='../proc/helio_coord_vh2vb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_copy_particle_info.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~33"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~214"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -361,12 +361,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vbcb~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-source~14"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td></td>
   
 </tr>
 
diff --git a/docs/interface/util_copy_particle_info_arr.html b/docs/interface/util_copy_particle_info_arr.html
new file mode 100644
index 000000000..96eea4143
--- /dev/null
+++ b/docs/interface/util_copy_particle_info_arr.html
@@ -0,0 +1,581 @@
+
+<!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_copy_particle_info_arr &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_copy_particle_info_arr
+   <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.2% of total for procedures.">114 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_copy_particle_info_arr</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~~util_copy_particle_info_arr~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_copy_particle_info_arrCallsGraph" width="320pt" height="32pt"
+ viewBox="0.00 0.00 320.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_copy_particle_info_arr~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_copy_particle_info_arr~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 316,-28 316,4 -4,4"/>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CallsGraph_node1" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<polygon fill="none" stroke="black" points="138,-24 0,-24 0,0 138,0 138,-24"/>
+<text text-anchor="middle" x="69" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy_particle_info_arr</text>
+</g>
+<!-- proc~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CallsGraph_node2" class="node">
+<title>proc~util_copy_particle_info_arr</title>
+<g id="a_interface~~util_copy_particle_info_arr~~CallsGraph_node2"><a xlink:href=".././proc/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#d9534f" stroke="#d9534f" points="312,-24 174,-24 174,0 312,0 312,-24"/>
+<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CallsGraph_edge1" class="edge">
+<title>interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.47,-12C146.73,-12 155.22,-12 163.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="163.76,-15.5 173.76,-12 163.76,-8.5 163.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">
+  <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~~util_copy_particle_info_arr~~CalledByGraph Pages: 1 -->
+<svg id="interfaceutil_copy_particle_info_arrCalledByGraph" width="328pt" height="116pt"
+ viewBox="0.00 0.00 328.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>interface~~util_copy_particle_info_arr~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 324,-112 324,4 -4,4"/>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_node1" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<polygon fill="none" stroke="black" points="320,-66 182,-66 182,-42 320,-42 320,-66"/>
+<text text-anchor="middle" x="251" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy_particle_info_arr</text>
+</g>
+<!-- proc~util_fill_arr_info -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_node2" class="node">
+<title>proc~util_fill_arr_info</title>
+<g id="a_interface~~util_copy_particle_info_arr~~CalledByGraph_node2"><a xlink:href=".././proc/util_fill_arr_info.html" xlink:title="util_fill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="115.5,-108 30.5,-108 30.5,-84 115.5,-84 115.5,-108"/>
+<text text-anchor="middle" x="73" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_edge1" class="edge">
+<title>proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M115.71,-86.05C137.78,-80.78 165.27,-74.22 189.63,-68.41"/>
+<polygon fill="#000000" stroke="#000000" points="190.58,-71.78 199.49,-66.05 188.95,-64.97 190.58,-71.78"/>
+</g>
+<!-- proc~util_spill_arr_info -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_node3" class="node">
+<title>proc~util_spill_arr_info</title>
+<g id="a_interface~~util_copy_particle_info_arr~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_arr_info.html" xlink:title="util_spill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="119.5,-66 26.5,-66 26.5,-42 119.5,-42 119.5,-66"/>
+<text text-anchor="middle" x="73" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_edge2" class="edge">
+<title>proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M119.78,-54C135.62,-54 153.85,-54 171.55,-54"/>
+<polygon fill="#000000" stroke="#000000" points="171.89,-57.5 181.89,-54 171.89,-50.5 171.89,-57.5"/>
+</g>
+<!-- proc~util_sort_rearrange_arr_info -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_node4" class="node">
+<title>proc~util_sort_rearrange_arr_info</title>
+<g id="a_interface~~util_copy_particle_info_arr~~CalledByGraph_node4"><a xlink:href=".././proc/util_sort_rearrange_arr_info.html" xlink:title="util_sort_rearrange_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="interface~~util_copy_particle_info_arr~~CalledByGraph_edge3" class="edge">
+<title>proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M124.43,-24.04C144.78,-28.89 168.42,-34.53 189.67,-39.6"/>
+<polygon fill="#000000" stroke="#000000" points="189.02,-43.05 199.56,-41.96 190.64,-36.24 189.02,-43.05"/>
+</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 util_copy_particle_info_arr(source, dest, idx)
+    
+    
+   
+   <a href='../proc/util_copy_particle_info_arr.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-source~15"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dest"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>dest</strong></td><td><p>Swiftest body object with particle metadata information object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-idx~5"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Optional array of indices to draw the source object</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/util_exit.html b/docs/interface/util_exit.html
index 813201234..06cf07667 100644
--- a/docs/interface/util_exit.html
+++ b/docs/interface/util_exit.html
@@ -136,7 +136,7 @@ <h1>util_exit
      <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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -322,536 +322,812 @@ <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="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)">
+<svg id="interfaceutil_exitCalledByGraph" width="641pt" height="1062pt"
+ viewBox="0.00 0.00 641.00 1062.01" 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.95 0.95) rotate(0) translate(4 1116)">
 <title>interface~~util_exit~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-738 545,-738 545,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-1116 672,-1116 672,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="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>
+<polygon fill="none" stroke="black" points="668,-570 614,-570 614,-546 668,-546 668,-570"/>
+<text text-anchor="middle" x="641" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit</text>
 </g>
-<!-- proc~io_get_args -->
+<!-- proc~io_write_hdr_system -->
 <g id="interface~~util_exit~~CalledByGraph_node2" class="node">
-<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>
+<title>proc~io_write_hdr_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node2"><a xlink:href=".././proc/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="557.5,-1112 446.5,-1112 446.5,-1088 557.5,-1088 557.5,-1112"/>
+<text text-anchor="middle" x="502" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_hdr_system&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge1" class="edge">
-<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"/>
+<title>proc~io_write_hdr_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M557.7,-1089.3C565.47,-1085.61 572.64,-1080.65 578,-1074 640.44,-996.52 641.31,-669.51 640.35,-580.47"/>
+<polygon fill="#000000" stroke="#000000" points="643.85,-580.34 640.23,-570.39 636.85,-580.43 643.85,-580.34"/>
 </g>
-<!-- proc~io_read_param_in -->
+<!-- proc~io_dump_base -->
 <g id="interface~~util_exit~~CalledByGraph_node3" class="node">
-<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>
+<title>proc~io_dump_base</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node3"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-1032 119,-1032 119,-1008 202,-1008 202,-1032"/>
+<text text-anchor="middle" x="160.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_base&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge2" class="edge">
-<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"/>
+<title>proc~io_dump_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M197.67,-1032.06C210.28,-1035.7 224.62,-1039.2 238,-1041 312.88,-1051.09 521.27,-1090.91 578,-1041 613.11,-1010.11 633.85,-671.78 638.83,-580.55"/>
+<polygon fill="#000000" stroke="#000000" points="642.33,-580.64 639.37,-570.46 635.34,-580.26 642.33,-580.64"/>
 </g>
-<!-- proc~util_append_tp -->
+<!-- interface~io_write_frame_body -->
+<g id="interface~~util_exit~~CalledByGraph_node34" class="node">
+<title>interface~io_write_frame_body</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node34"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="370,-1032 258,-1032 258,-1008 370,-1008 370,-1032"/>
+<text text-anchor="middle" x="314" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="interface~~util_exit~~CalledByGraph_edge53" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M202.1,-1020C216.12,-1020 232.2,-1020 247.69,-1020"/>
+<polygon fill="#000000" stroke="#000000" points="247.76,-1023.5 257.76,-1020 247.76,-1016.5 247.76,-1023.5"/>
+</g>
+<!-- interface~io_write_frame_cb -->
+<g id="interface~~util_exit~~CalledByGraph_node41" class="node">
+<title>interface~io_write_frame_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node41"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-990 264,-990 264,-966 364,-966 364,-990"/>
+<text text-anchor="middle" x="314" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
+<g id="interface~~util_exit~~CalledByGraph_edge54" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M202.1,-1008.74C219.86,-1003.82 240.94,-997.98 259.93,-992.71"/>
+<polygon fill="#000000" stroke="#000000" points="260.93,-996.07 269.63,-990.02 259.06,-989.32 260.93,-996.07"/>
+</g>
+<!-- proc~io_get_args -->
 <g id="interface~~util_exit~~CalledByGraph_node4" class="node">
-<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>
+<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="536.5,-948 467.5,-948 467.5,-924 536.5,-924 536.5,-948"/>
+<text text-anchor="middle" x="502" y="-933.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_edge3" class="edge">
-<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"/>
+<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M536.7,-934.41C551.38,-931.95 567.57,-926.54 578,-915 622.95,-865.26 636.03,-650.89 639.15,-580.49"/>
+<polygon fill="#000000" stroke="#000000" points="642.66,-580.26 639.58,-570.13 635.67,-579.97 642.66,-580.26"/>
 </g>
-<!-- proc~io_dump_param -->
+<!-- proc~io_write_frame_system -->
 <g id="interface~~util_exit~~CalledByGraph_node5" class="node">
-<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>
+<title>proc~io_write_frame_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node5"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="563.5,-906 440.5,-906 440.5,-882 563.5,-882 563.5,-906"/>
+<text text-anchor="middle" x="502" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge4" class="edge">
-<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"/>
+<title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M563.81,-883.64C569.1,-880.86 573.96,-877.37 578,-873 617.79,-829.95 634.05,-644.94 638.59,-580.35"/>
+<polygon fill="#000000" stroke="#000000" points="642.1,-580.29 639.28,-570.08 635.11,-579.82 642.1,-580.29"/>
 </g>
-<!-- proc~io_dump_swiftest -->
+<!-- proc~io_dump_particle_info_base -->
 <g id="interface~~util_exit~~CalledByGraph_node6" class="node">
-<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>
+<title>proc~io_dump_particle_info_base</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node6"><a xlink:href=".././proc/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="575.5,-864 428.5,-864 428.5,-840 575.5,-840 575.5,-864"/>
+<text text-anchor="middle" x="502" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_particle_info_base&#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"/>
+<title>proc~io_dump_particle_info_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M566.53,-839.94C570.75,-837.48 574.64,-834.53 578,-831 612.7,-794.53 631.84,-638.33 637.88,-580.04"/>
+<polygon fill="#000000" stroke="#000000" points="641.37,-580.35 638.88,-570.05 634.4,-579.65 641.37,-580.35"/>
 </g>
-<!-- proc~io_read_cb_in -->
+<!-- proc~io_write_frame_body -->
 <g id="interface~~util_exit~~CalledByGraph_node7" class="node">
-<title>proc~io_read_cb_in</title>
-<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>
+<title>proc~io_write_frame_body</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node7"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="558,-1032 446,-1032 446,-1008 558,-1008 558,-1032"/>
+<text text-anchor="middle" x="502" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
 <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="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"/>
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M558.18,-1012.66C565.7,-1009.5 572.66,-1005.11 578,-999 633.43,-935.64 639.42,-660.99 639.97,-580.34"/>
+<polygon fill="#000000" stroke="#000000" points="643.47,-580.31 640.02,-570.29 636.47,-580.28 643.47,-580.31"/>
 </g>
-<!-- proc~io_read_frame_body -->
+<!-- proc~io_write_encounter -->
 <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>
+<title>proc~io_write_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node8"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="553.5,-822 450.5,-822 450.5,-798 553.5,-798 553.5,-822"/>
+<text text-anchor="middle" x="502" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_encounter&#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"/>
+<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M553.7,-803.51C562.72,-800.35 571.34,-795.73 578,-789 635.46,-730.91 641.22,-625.64 640.81,-580.04"/>
+<polygon fill="#000000" stroke="#000000" points="644.31,-579.97 640.6,-570.04 637.31,-580.11 644.31,-579.97"/>
 </g>
-<!-- proc~io_write_hdr -->
+<!-- proc~io_write_frame_encounter -->
 <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>
+<title>proc~io_write_frame_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node9"><a xlink:href=".././proc/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="570.5,-780 433.5,-780 433.5,-756 570.5,-756 570.5,-780"/>
+<text text-anchor="middle" x="502" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_frame_encounter&#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"/>
+<title>proc~io_write_frame_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M565.46,-755.98C570.03,-753.51 574.29,-750.55 578,-747 625.33,-701.7 636.56,-619.74 639.2,-580.34"/>
+<polygon fill="#000000" stroke="#000000" points="642.71,-580.38 639.75,-570.2 635.72,-580 642.71,-580.38"/>
 </g>
-<!-- proc~io_read_encounter -->
+<!-- proc~io_dump_particle_info -->
 <g id="interface~~util_exit~~CalledByGraph_node10" class="node">
-<title>proc~io_read_encounter</title>
-<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>
+<title>proc~io_dump_particle_info</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node10"><a xlink:href=".././proc/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="561,-738 443,-738 443,-714 561,-714 561,-738"/>
+<text text-anchor="middle" x="502" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_particle_info&#45;&gt;interface~util_exit -->
 <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="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"/>
+<title>proc~io_dump_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M561.06,-715.61C567.21,-712.85 573.03,-709.38 578,-705 615.36,-672.07 630.83,-612.89 636.72,-580.57"/>
+<polygon fill="#000000" stroke="#000000" points="640.23,-580.78 638.43,-570.34 633.33,-579.63 640.23,-580.78"/>
 </g>
-<!-- proc~io_read_frame_cb -->
+<!-- proc~util_append_tp -->
 <g id="interface~~util_exit~~CalledByGraph_node11" class="node">
-<title>proc~io_read_frame_cb</title>
-<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>
+<title>proc~util_append_tp</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node11"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="543.5,-696 460.5,-696 460.5,-672 543.5,-672 543.5,-696"/>
+<text text-anchor="middle" x="502" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
+<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
 <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="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"/>
+<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M543.76,-678.52C555.68,-675.42 568.14,-670.58 578,-663 605.93,-641.54 623.74,-603.62 632.79,-579.7"/>
+<polygon fill="#000000" stroke="#000000" points="636.15,-580.7 636.24,-570.11 629.57,-578.33 636.15,-580.7"/>
 </g>
-<!-- proc~io_write_encounter -->
+<!-- proc~util_valid_id_system -->
 <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>
+<title>proc~util_valid_id_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node12"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="556,-654 448,-654 448,-630 556,-630 556,-654"/>
+<text text-anchor="middle" x="502" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<!-- proc~util_valid_id_system&#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"/>
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M556.07,-630.9C563.7,-628.24 571.25,-624.99 578,-621 596.6,-610.02 613.5,-592.06 624.93,-578.12"/>
+<polygon fill="#000000" stroke="#000000" points="627.85,-580.08 631.32,-570.06 622.36,-575.73 627.85,-580.08"/>
 </g>
-<!-- proc~io_write_frame_system -->
+<!-- proc~util_solve_rkf45 -->
 <g id="interface~~util_exit~~CalledByGraph_node13" class="node">
-<title>proc~io_write_frame_system</title>
-<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>
+<title>proc~util_solve_rkf45</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node13"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="545.5,-612 458.5,-612 458.5,-588 545.5,-588 545.5,-612"/>
+<text text-anchor="middle" x="502" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
+<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
 <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="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_edge26" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<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"/>
+<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M545.56,-588.51C556.19,-585.52 567.54,-582.23 578,-579 586.51,-576.37 595.61,-573.38 604.16,-570.5"/>
+<polygon fill="#000000" stroke="#000000" points="605.52,-573.74 613.86,-567.2 603.26,-567.11 605.52,-573.74"/>
 </g>
-<!-- proc~util_valid_id_system -->
+<!-- proc~io_read_particle_info_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>
+<title>proc~io_read_particle_info_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node14"><a xlink:href=".././proc/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="578,-570 426,-570 426,-546 578,-546 578,-570"/>
+<text text-anchor="middle" x="502" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_particle_info_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"/>
+<title>proc~io_read_particle_info_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M578.31,-558C587.22,-558 595.97,-558 603.96,-558"/>
+<polygon fill="#000000" stroke="#000000" points="603.96,-561.5 613.96,-558 603.96,-554.5 603.96,-561.5"/>
 </g>
-<!-- proc~setup_construct_system -->
+<!-- proc~io_read_in_cb -->
 <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>
+<title>proc~io_read_in_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node15"><a xlink:href=".././proc/io_read_in_cb.html" xlink:title="io_read_in_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="542,-528 462,-528 462,-504 542,-504 542,-528"/>
+<text text-anchor="middle" x="502" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_in_cb&#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"/>
+<title>proc~io_read_in_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M542.04,-526.5C553.65,-529.74 566.37,-533.41 578,-537 586.51,-539.63 595.61,-542.62 604.16,-545.5"/>
+<polygon fill="#000000" stroke="#000000" points="603.26,-548.89 613.86,-548.8 605.52,-542.26 603.26,-548.89"/>
 </g>
-<!-- proc~io_read_body_in -->
+<!-- proc~io_read_frame_body -->
 <g id="interface~~util_exit~~CalledByGraph_node16" class="node">
-<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>
+<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="#d94e8f" stroke="#d94e8f" points="558,-486 446,-486 446,-462 558,-462 558,-486"/>
+<text text-anchor="middle" x="502" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_frame_body&#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"/>
+<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M558.04,-485.8C565,-488.32 571.83,-491.36 578,-495 596.6,-505.98 613.5,-523.94 624.93,-537.88"/>
+<polygon fill="#000000" stroke="#000000" points="622.36,-540.27 631.32,-545.94 627.85,-535.92 622.36,-540.27"/>
 </g>
-<!-- proc~io_write_discard -->
+<!-- proc~io_read_in_particle_info -->
 <g id="interface~~util_exit~~CalledByGraph_node17" class="node">
-<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>
+<title>proc~io_read_in_particle_info</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node17"><a xlink:href=".././proc/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="565.5,-444 438.5,-444 438.5,-420 565.5,-420 565.5,-444"/>
+<text text-anchor="middle" x="502" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_particle_info</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_in_particle_info&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge16" class="edge">
-<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"/>
+<title>proc~io_read_in_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M562.79,-444.06C568.21,-446.51 573.39,-449.46 578,-453 605.93,-474.46 623.74,-512.38 632.79,-536.3"/>
+<polygon fill="#000000" stroke="#000000" points="629.57,-537.67 636.24,-545.89 636.15,-535.3 629.57,-537.67"/>
 </g>
-<!-- proc~util_append_pl -->
+<!-- proc~io_write_discard -->
 <g id="interface~~util_exit~~CalledByGraph_node18" class="node">
-<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>
+<title>proc~io_write_discard</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node18"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="547,-402 457,-402 457,-378 547,-378 547,-402"/>
+<text text-anchor="middle" x="502" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_discard&#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"/>
+<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M547.14,-395.42C558.21,-398.53 569.38,-403.4 578,-411 615.36,-443.93 630.83,-503.11 636.72,-535.43"/>
+<polygon fill="#000000" stroke="#000000" points="633.33,-536.37 638.43,-545.66 640.23,-535.22 633.33,-536.37"/>
 </g>
-<!-- proc~util_solve_rkf45 -->
+<!-- proc~io_read_encounter -->
 <g id="interface~~util_exit~~CalledByGraph_node19" class="node">
-<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>
+<title>proc~io_read_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node19"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="553.5,-360 450.5,-360 450.5,-336 553.5,-336 553.5,-360"/>
+<text text-anchor="middle" x="502" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_encounter&#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"/>
+<title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M553.8,-354.92C562.7,-358.05 571.26,-362.55 578,-369 625.33,-414.3 636.56,-496.26 639.2,-535.66"/>
+<polygon fill="#000000" stroke="#000000" points="635.72,-536 639.75,-545.8 642.71,-535.62 635.72,-536"/>
 </g>
-<!-- interface~io_read_cb_in -->
+<!-- proc~check -->
 <g id="interface~~util_exit~~CalledByGraph_node20" class="node">
-<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>
+<title>proc~check</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node20"><a xlink:href=".././proc/check.html" xlink:title="check">
+<polygon fill="#d9534f" stroke="#d9534f" points="529,-318 475,-318 475,-294 529,-294 529,-318"/>
+<text text-anchor="middle" x="502" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">check</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~check&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge19" class="edge">
+<title>proc~check&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M529.18,-306.99C545.31,-308.97 565.26,-314.12 578,-327 635.46,-385.09 641.22,-490.36 640.81,-535.96"/>
+<polygon fill="#000000" stroke="#000000" points="637.31,-535.89 640.6,-545.96 644.31,-536.03 637.31,-535.89"/>
 </g>
-<!-- interface~util_valid_id_system -->
+<!-- proc~io_conservation_report -->
 <g id="interface~~util_exit~~CalledByGraph_node21" class="node">
-<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>
+<title>proc~io_conservation_report</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node21"><a xlink:href=".././proc/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#d9534f" stroke="#d9534f" points="563,-276 441,-276 441,-252 563,-252 563,-276"/>
+<text text-anchor="middle" x="502" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_conservation_report&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge20" class="edge">
+<title>proc~io_conservation_report&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M563.31,-274.3C568.77,-277.08 573.81,-280.59 578,-285 612.7,-321.47 631.84,-477.67 637.88,-535.96"/>
+<polygon fill="#000000" stroke="#000000" points="634.4,-536.35 638.88,-545.95 641.37,-535.65 634.4,-536.35"/>
 </g>
-<!-- interface~io_write_discard -->
+<!-- proc~io_write_frame_cb -->
 <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="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>
+<title>proc~io_write_frame_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node22"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="552,-990 452,-990 452,-966 552,-966 552,-990"/>
+<text text-anchor="middle" x="502" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
-<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="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"/>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge21" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M552.36,-972.73C562.04,-969.53 571.27,-964.58 578,-957 628.13,-900.53 637.8,-656.52 639.6,-580.62"/>
+<polygon fill="#000000" stroke="#000000" points="643.11,-580.38 639.82,-570.31 636.11,-580.23 643.11,-580.38"/>
 </g>
-<!-- interface~util_append_pl -->
+<!-- proc~setup_construct_system -->
 <g id="interface~~util_exit~~CalledByGraph_node23" class="node">
-<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>
+<title>proc~setup_construct_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node23"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="566,-234 438,-234 438,-210 566,-210 566,-234"/>
+<text text-anchor="middle" x="502" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge22" class="edge">
+<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M566.3,-233.74C570.62,-236.28 574.6,-239.33 578,-243 617.79,-286.05 634.05,-471.06 638.59,-535.65"/>
+<polygon fill="#000000" stroke="#000000" points="635.11,-536.18 639.28,-545.92 642.1,-535.71 635.11,-536.18"/>
 </g>
-<!-- interface~io_dump_swiftest -->
+<!-- proc~util_append_pl -->
 <g id="interface~~util_exit~~CalledByGraph_node24" class="node">
-<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>
+<title>proc~util_append_pl</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node24"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="543,-192 461,-192 461,-168 543,-168 543,-192"/>
+<text text-anchor="middle" x="502" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
+<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
 <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"/>
+<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M543.29,-182.89C556.04,-185.79 569.12,-191.17 578,-201 622.95,-250.74 636.03,-465.11 639.15,-535.51"/>
+<polygon fill="#000000" stroke="#000000" points="635.67,-536.03 639.58,-545.87 642.66,-535.74 635.67,-536.03"/>
 </g>
-<!-- interface~util_append_tp -->
+<!-- proc~io_read_frame_cb -->
 <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="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>
+<title>proc~io_read_frame_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node25"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="552,-150 452,-150 452,-126 552,-126 552,-150"/>
+<text text-anchor="middle" x="502" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<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="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"/>
+<!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge24" class="edge">
+<title>proc~io_read_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M552.36,-143.27C562.04,-146.47 571.27,-151.42 578,-159 628.13,-215.47 637.8,-459.48 639.6,-535.38"/>
+<polygon fill="#000000" stroke="#000000" points="636.11,-535.77 639.82,-545.69 643.11,-535.62 636.11,-535.77"/>
 </g>
-<!-- interface~io_read_frame_cb -->
+<!-- proc~io_get_old_t_final_system -->
 <g id="interface~~util_exit~~CalledByGraph_node26" class="node">
-<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>
+<title>proc~io_get_old_t_final_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node26"><a xlink:href=".././proc/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="570,-108 434,-108 434,-84 570,-84 570,-108"/>
+<text text-anchor="middle" x="502" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_get_old_t_final_system&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge25" class="edge">
+<title>proc~io_get_old_t_final_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M567.55,-108.18C571.43,-110.63 574.97,-113.54 578,-117 633.43,-180.36 639.42,-455.01 639.97,-535.66"/>
+<polygon fill="#000000" stroke="#000000" points="636.47,-535.72 640.02,-545.71 643.47,-535.69 636.47,-535.72"/>
 </g>
-<!-- interface~io_read_body_in -->
+<!-- proc~io_dump_param -->
 <g id="interface~~util_exit~~CalledByGraph_node27" class="node">
-<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>
+<title>proc~io_dump_param</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node27"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="547.5,-66 456.5,-66 456.5,-42 547.5,-42 547.5,-66"/>
+<text text-anchor="middle" x="502" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge26" class="edge">
+<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M547.84,-57.74C559.18,-60.82 570.31,-66.1 578,-75 638.71,-145.24 640.88,-450.49 640.28,-535.79"/>
+<polygon fill="#000000" stroke="#000000" points="636.78,-535.87 640.18,-545.9 643.78,-535.94 636.78,-535.87"/>
 </g>
-<!-- interface~setup_construct_system -->
+<!-- proc~io_read_in_param -->
 <g id="interface~~util_exit~~CalledByGraph_node28" class="node">
-<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>
+<title>proc~io_read_in_param</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node28"><a xlink:href=".././proc/io_read_in_param.html" xlink:title="io_read_in_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="552,-24 452,-24 452,0 552,0 552,-24"/>
+<text text-anchor="middle" x="502" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_read_in_param&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge27" class="edge">
+<title>proc~io_read_in_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M552.19,-16.96C562,-20.17 571.32,-25.19 578,-33 611.21,-71.83 633.56,-440.35 638.81,-535.61"/>
+<polygon fill="#000000" stroke="#000000" points="635.32,-535.81 639.35,-545.6 642.31,-535.43 635.32,-535.81"/>
 </g>
-<!-- interface~io_read_param_in -->
+<!-- interface~io_read_frame_cb -->
 <g id="interface~~util_exit~~CalledByGraph_node29" class="node">
-<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>
+<title>interface~io_read_frame_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node29"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-150 264,-150 264,-126 364,-126 364,-150"/>
+<text text-anchor="middle" x="314" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<g id="interface~~util_exit~~CalledByGraph_edge49" 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="M364.36,-138C388.1,-138 416.75,-138 441.67,-138"/>
+<polygon fill="#000000" stroke="#000000" points="441.74,-141.5 451.74,-138 441.74,-134.5 441.74,-141.5"/>
 </g>
-<!-- interface~io_write_frame_system -->
+<!-- interface~util_valid_id_system -->
 <g id="interface~~util_exit~~CalledByGraph_node30" class="node">
-<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>
+<title>interface~util_valid_id_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node30"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="368,-654 260,-654 260,-630 368,-630 368,-654"/>
+<text text-anchor="middle" x="314" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
-<g id="interface~~util_exit~~CalledByGraph_edge29" 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="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"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="interface~~util_exit~~CalledByGraph_edge38" 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="M368.3,-642C389.9,-642 415.01,-642 437.54,-642"/>
+<polygon fill="#000000" stroke="#000000" points="437.69,-645.5 447.69,-642 437.69,-638.5 437.69,-645.5"/>
 </g>
-<!-- interface~io_dump_param -->
+<!-- interface~io_write_encounter -->
 <g id="interface~~util_exit~~CalledByGraph_node31" class="node">
-<title>interface~io_dump_param</title>
-<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>
+<title>interface~io_write_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node31"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="365.5,-822 262.5,-822 262.5,-798 365.5,-798 365.5,-822"/>
+<text text-anchor="middle" x="314" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
-<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="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"/>
+<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
+<g id="interface~~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="M365.83,-810C388.79,-810 416.11,-810 440.15,-810"/>
+<polygon fill="#000000" stroke="#000000" points="440.24,-813.5 450.24,-810 440.24,-806.5 440.24,-813.5"/>
 </g>
-<!-- interface~io_write_encounter -->
+<!-- interface~util_append_pl -->
 <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>
+<title>interface~util_append_pl</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node32"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="355,-192 273,-192 273,-168 355,-168 355,-192"/>
+<text text-anchor="middle" x="314" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
+<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
+<g id="interface~~util_exit~~CalledByGraph_edge48" class="edge">
+<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M355.36,-180C383.27,-180 420.61,-180 450.49,-180"/>
+<polygon fill="#000000" stroke="#000000" points="450.72,-183.5 460.72,-180 450.72,-176.5 450.72,-183.5"/>
+</g>
+<!-- interface~io_write_hdr_system -->
+<g id="interface~~util_exit~~CalledByGraph_node33" class="node">
+<title>interface~io_write_hdr_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node33"><a xlink:href=".././interface/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="369.5,-1112 258.5,-1112 258.5,-1088 369.5,-1088 369.5,-1112"/>
+<text text-anchor="middle" x="314" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system -->
 <g id="interface~~util_exit~~CalledByGraph_edge28" class="edge">
-<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"/>
+<title>interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.55,-1100C390.46,-1100 414.53,-1100 436.3,-1100"/>
+<polygon fill="#000000" stroke="#000000" points="436.45,-1103.5 446.45,-1100 436.45,-1096.5 436.45,-1103.5"/>
+</g>
+<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
+<g id="interface~~util_exit~~CalledByGraph_edge33" 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="M370.05,-1020C390.67,-1020 414.3,-1020 435.76,-1020"/>
+<polygon fill="#000000" stroke="#000000" points="435.77,-1023.5 445.77,-1020 435.77,-1016.5 435.77,-1023.5"/>
+</g>
+<!-- interface~io_write_frame_encounter -->
+<g id="interface~~util_exit~~CalledByGraph_node35" class="node">
+<title>interface~io_write_frame_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node35"><a xlink:href=".././interface/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="382.5,-780 245.5,-780 245.5,-756 382.5,-756 382.5,-780"/>
+<text text-anchor="middle" x="314" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter -->
+<g id="interface~~util_exit~~CalledByGraph_edge35" class="edge">
+<title>interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.68,-768C395.84,-768 409.73,-768 423.19,-768"/>
+<polygon fill="#000000" stroke="#000000" points="423.37,-771.5 433.37,-768 423.37,-764.5 423.37,-771.5"/>
+</g>
+<!-- interface~io_read_particle_info_system -->
+<g id="interface~~util_exit~~CalledByGraph_node36" class="node">
+<title>interface~io_read_particle_info_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node36"><a xlink:href=".././interface/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="390,-570 238,-570 238,-546 390,-546 390,-570"/>
+<text text-anchor="middle" x="314" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system -->
+<g id="interface~~util_exit~~CalledByGraph_edge40" class="edge">
+<title>interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.12,-558C398.6,-558 407.28,-558 415.87,-558"/>
+<polygon fill="#000000" stroke="#000000" points="415.9,-561.5 425.9,-558 415.9,-554.5 415.9,-561.5"/>
 </g>
 <!-- interface~io_read_frame_body -->
-<g id="interface~~util_exit~~CalledByGraph_node33" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node37" 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>
+<g id="a_interface~~util_exit~~CalledByGraph_node37"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="370,-486 258,-486 258,-462 370,-462 370,-486"/>
+<text text-anchor="middle" x="314" y="-471.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="interface~~util_exit~~CalledByGraph_edge25" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge42" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.05,-474C390.67,-474 414.3,-474 435.76,-474"/>
+<polygon fill="#000000" stroke="#000000" points="435.77,-477.5 445.77,-474 435.77,-470.5 435.77,-477.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="interface~~util_exit~~CalledByGraph_node38" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node38"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-1032 0,-1032 0,-1008 83,-1008 83,-1032"/>
+<text text-anchor="middle" x="41.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="interface~~util_exit~~CalledByGraph_edge29" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M83.09,-1020C91.35,-1020 100.14,-1020 108.7,-1020"/>
+<polygon fill="#000000" stroke="#000000" points="108.98,-1023.5 118.98,-1020 108.98,-1016.5 108.98,-1023.5"/>
 </g>
 <!-- interface~io_get_args -->
-<g id="interface~~util_exit~~CalledByGraph_node34" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node39" 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>
+<g id="a_interface~~util_exit~~CalledByGraph_node39"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="348.5,-948 279.5,-948 279.5,-924 348.5,-924 348.5,-948"/>
+<text text-anchor="middle" x="314" y="-933.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~~util_exit~~CalledByGraph_edge19" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge30" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.68,-936C379.01,-936 423.77,-936 456.93,-936"/>
+<polygon fill="#000000" stroke="#000000" points="457.25,-939.5 467.25,-936 457.25,-932.5 457.25,-939.5"/>
+</g>
+<!-- interface~io_get_old_t_final_system -->
+<g id="interface~~util_exit~~CalledByGraph_node40" class="node">
+<title>interface~io_get_old_t_final_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node40"><a xlink:href=".././interface/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="382,-108 246,-108 246,-84 382,-84 382,-108"/>
+<text text-anchor="middle" x="314" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system -->
+<g id="interface~~util_exit~~CalledByGraph_edge50" class="edge">
+<title>interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.15,-96C395.58,-96 409.8,-96 423.55,-96"/>
+<polygon fill="#000000" stroke="#000000" points="423.95,-99.5 433.95,-96 423.95,-92.5 423.95,-99.5"/>
+</g>
+<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
+<g id="interface~~util_exit~~CalledByGraph_edge46" 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="M364.36,-978C388.1,-978 416.75,-978 441.67,-978"/>
+<polygon fill="#000000" stroke="#000000" points="441.74,-981.5 451.74,-978 441.74,-974.5 441.74,-981.5"/>
+</g>
+<!-- interface~setup_construct_system -->
+<g id="interface~~util_exit~~CalledByGraph_node42" class="node">
+<title>interface~setup_construct_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node42"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="378,-234 250,-234 250,-210 378,-210 378,-234"/>
+<text text-anchor="middle" x="314" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<g id="interface~~util_exit~~CalledByGraph_edge47" class="edge">
+<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.23,-222C394.19,-222 411.46,-222 427.86,-222"/>
+<polygon fill="#000000" stroke="#000000" points="427.94,-225.5 437.94,-222 427.94,-218.5 427.94,-225.5"/>
+</g>
+<!-- interface~io_write_discard -->
+<g id="interface~~util_exit~~CalledByGraph_node43" class="node">
+<title>interface~io_write_discard</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node43"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#a7506f" stroke="#a7506f" points="359,-402 269,-402 269,-378 359,-378 359,-402"/>
+<text text-anchor="middle" x="314" y="-387.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_edge44" class="edge">
+<title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M359.08,-390C385.39,-390 419.01,-390 446.91,-390"/>
+<polygon fill="#000000" stroke="#000000" points="446.92,-393.5 456.92,-390 446.92,-386.5 446.92,-393.5"/>
+</g>
+<!-- interface~io_dump_particle_info -->
+<g id="interface~~util_exit~~CalledByGraph_node44" class="node">
+<title>interface~io_dump_particle_info</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node44"><a xlink:href=".././interface/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="373,-738 255,-738 255,-714 373,-714 373,-738"/>
+<text text-anchor="middle" x="314" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info -->
+<g id="interface~~util_exit~~CalledByGraph_edge36" class="edge">
+<title>interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.09,-726C391.97,-726 413.09,-726 432.65,-726"/>
+<polygon fill="#000000" stroke="#000000" points="432.71,-729.5 442.71,-726 432.71,-722.5 432.71,-729.5"/>
+</g>
+<!-- interface~io_read_in_cb -->
+<g id="interface~~util_exit~~CalledByGraph_node45" class="node">
+<title>interface~io_read_in_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node45"><a xlink:href=".././interface/io_read_in_cb.html" xlink:title="io_read_in_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="354,-528 274,-528 274,-504 354,-504 354,-528"/>
+<text text-anchor="middle" x="314" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb -->
+<g id="interface~~util_exit~~CalledByGraph_edge41" class="edge">
+<title>interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.45,-516C382.78,-516 421.17,-516 451.55,-516"/>
+<polygon fill="#000000" stroke="#000000" points="451.93,-519.5 461.93,-516 451.93,-512.5 451.93,-519.5"/>
+</g>
+<!-- interface~util_append_tp -->
+<g id="interface~~util_exit~~CalledByGraph_node46" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node46"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="355.5,-696 272.5,-696 272.5,-672 355.5,-672 355.5,-696"/>
+<text text-anchor="middle" x="314" y="-681.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_edge37" class="edge">
+<title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M355.82,-684C383.56,-684 420.46,-684 450.12,-684"/>
+<polygon fill="#000000" stroke="#000000" points="450.28,-687.5 460.28,-684 450.28,-680.5 450.28,-687.5"/>
 </g>
 <!-- interface~util_solve_rkf45 -->
-<g id="interface~~util_exit~~CalledByGraph_node35" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node47" 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>
+<g id="a_interface~~util_exit~~CalledByGraph_node47"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#a7506f" stroke="#a7506f" points="357.5,-612 270.5,-612 270.5,-588 357.5,-588 357.5,-612"/>
+<text text-anchor="middle" x="314" y="-597.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="interface~~util_exit~~CalledByGraph_edge35" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge39" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.67,-600C384.51,-600 419.36,-600 447.97,-600"/>
+<polygon fill="#000000" stroke="#000000" points="448.2,-603.5 458.2,-600 448.2,-596.5 448.2,-603.5"/>
+</g>
+<!-- interface~io_conservation_report -->
+<g id="interface~~util_exit~~CalledByGraph_node48" class="node">
+<title>interface~io_conservation_report</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node48"><a xlink:href=".././interface/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#a7506f" stroke="#a7506f" points="375,-276 253,-276 253,-252 375,-252 375,-276"/>
+<text text-anchor="middle" x="314" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
+</a>
+</g>
+</g>
+<!-- interface~io_conservation_report&#45;&gt;proc~io_conservation_report -->
+<g id="interface~~util_exit~~CalledByGraph_edge45" class="edge">
+<title>interface~io_conservation_report&#45;&gt;proc~io_conservation_report</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.13,-264C392.86,-264 412.42,-264 430.73,-264"/>
+<polygon fill="#000000" stroke="#000000" points="430.76,-267.5 440.76,-264 430.76,-260.5 430.76,-267.5"/>
+</g>
+<!-- interface~io_dump_particle_info_base -->
+<g id="interface~~util_exit~~CalledByGraph_node49" class="node">
+<title>interface~io_dump_particle_info_base</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node49"><a xlink:href=".././interface/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="387.5,-864 240.5,-864 240.5,-840 387.5,-840 387.5,-864"/>
+<text text-anchor="middle" x="314" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base -->
+<g id="interface~~util_exit~~CalledByGraph_edge32" class="edge">
+<title>interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M387.71,-852C397.72,-852 408.06,-852 418.24,-852"/>
+<polygon fill="#000000" stroke="#000000" points="418.34,-855.5 428.34,-852 418.34,-848.5 418.34,-855.5"/>
+</g>
+<!-- interface~io_read_in_param -->
+<g id="interface~~util_exit~~CalledByGraph_node50" class="node">
+<title>interface~io_read_in_param</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node50"><a xlink:href=".././interface/io_read_in_param.html" xlink:title="io_read_in_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-24 264,-24 264,0 364,0 364,-24"/>
+<text text-anchor="middle" x="314" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_param&#45;&gt;proc~io_read_in_param -->
+<g id="interface~~util_exit~~CalledByGraph_edge52" class="edge">
+<title>interface~io_read_in_param&#45;&gt;proc~io_read_in_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.36,-12C388.1,-12 416.75,-12 441.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="441.74,-15.5 451.74,-12 441.74,-8.5 441.74,-15.5"/>
+</g>
+<!-- interface~io_read_in_particle_info -->
+<g id="interface~~util_exit~~CalledByGraph_node51" class="node">
+<title>interface~io_read_in_particle_info</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node51"><a xlink:href=".././interface/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="377.5,-444 250.5,-444 250.5,-420 377.5,-420 377.5,-444"/>
+<text text-anchor="middle" x="314" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info -->
+<g id="interface~~util_exit~~CalledByGraph_edge43" class="edge">
+<title>interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.71,-432C393.87,-432 411.4,-432 428.03,-432"/>
+<polygon fill="#000000" stroke="#000000" points="428.24,-435.5 438.24,-432 428.24,-428.5 428.24,-435.5"/>
+</g>
+<!-- interface~io_write_frame_system -->
+<g id="interface~~util_exit~~CalledByGraph_node52" class="node">
+<title>interface~io_write_frame_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node52"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="375.5,-906 252.5,-906 252.5,-882 375.5,-882 375.5,-906"/>
+<text text-anchor="middle" x="314" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</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="M375.65,-894C393.1,-894 412.28,-894 430.29,-894"/>
+<polygon fill="#000000" stroke="#000000" points="430.44,-897.5 440.44,-894 430.44,-890.5 430.44,-897.5"/>
+</g>
+<!-- interface~io_dump_param -->
+<g id="interface~~util_exit~~CalledByGraph_node53" class="node">
+<title>interface~io_dump_param</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node53"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="359.5,-66 268.5,-66 268.5,-42 359.5,-42 359.5,-66"/>
+<text text-anchor="middle" x="314" y="-51.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_edge51" class="edge">
+<title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M359.55,-54C385.57,-54 418.6,-54 446.2,-54"/>
+<polygon fill="#000000" stroke="#000000" points="446.49,-57.5 456.49,-54 446.49,-50.5 446.49,-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">
+</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">
     <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 15d0fc647..077957c6e 100644
--- a/docs/interface/util_fill.html
+++ b/docs/interface/util_fill.html
@@ -134,7 +134,7 @@ <h1>util_fill
      <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: 8 statements,  0.0% of total for procedures.">8 statements</a>
      </li> 
      
      
@@ -190,8 +190,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-0" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_fill.html#proc-symba_util_fill_arr_info">symba_util_fill_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_fill.html#proc-symba_util_fill_arr_kin">symba_util_fill_arr_kin</a>
       
     </div>
@@ -387,8 +385,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-1" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_fill.html#proc-symba_util_fill_arr_info">symba_util_fill_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_fill.html#proc-symba_util_fill_arr_kin">symba_util_fill_arr_kin</a>
       
     </div>
@@ -413,87 +409,6 @@ <h3>Contents</h3>
    <h2>Subroutines</h2>
    
     
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_fill_arr_info"></span><h3>
-public subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list)
-    
-    
-   
-</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>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>keeps</strong></td><td><p>Array of values to keep </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>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-   
-    
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_fill_arr_kin"></span><h3>
 public subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list)
diff --git a/docs/interface/util_fill_body.html b/docs/interface/util_fill_body.html
index 15cebcc20..69fc04ca9 100644
--- a/docs/interface/util_fill_body.html
+++ b/docs/interface/util_fill_body.html
@@ -136,7 +136,7 @@ <h1>util_fill_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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -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_tp -->
+<!-- proc~util_fill_pl -->
 <g id="interface~~util_fill_body~~CalledByGraph_node2" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
-<g id="interface~~util_fill_body~~CalledByGraph_edge1" class="edge">
-<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"/>
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<g id="interface~~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"/>
 </g>
-<!-- proc~util_fill_pl -->
+<!-- proc~util_fill_tp -->
 <g id="interface~~util_fill_body~~CalledByGraph_node3" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
-<g id="interface~~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,-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"/>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<g id="interface~~util_fill_body~~CalledByGraph_edge1" 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"/>
 </g>
-<!-- interface~util_fill_pl -->
+<!-- interface~util_fill_tp -->
 <g id="interface~~util_fill_body~~CalledByGraph_node4" class="node">
-<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>
+<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>
 </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_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,-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"/>
+<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_tp -->
+<!-- interface~util_fill_pl -->
 <g id="interface~~util_fill_body~~CalledByGraph_node5" class="node">
-<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>
+<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>
 </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_edge3" 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,-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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~166"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~215"></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 1baf2c2f0..353ee2748 100644
--- a/docs/interface/util_fill_pl.html
+++ b/docs/interface/util_fill_pl.html
@@ -136,7 +136,7 @@ <h1>util_fill_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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -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,-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>
+<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>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="interface~~util_fill_pl~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="interface~~util_fill_pl~~CallsGraph_node4" class="node">
-<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>
+<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>
 </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_edge3" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </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,-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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,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~216"></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 0efacbd94..8e1d0262a 100644
--- a/docs/interface/util_fill_tp.html
+++ b/docs/interface/util_fill_tp.html
@@ -136,7 +136,7 @@ <h1>util_fill_tp
      <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.">67 statements</a>
+    title=" 0.2% of total for procedures.">114 statements</a>
      </li> 
      
      
@@ -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,-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>
+<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>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="interface~~util_fill_tp~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="interface~~util_fill_tp~~CallsGraph_node4" class="node">
-<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>
+<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>
 </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_edge3" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </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,-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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,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~217"></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 b7f0367e0..8dd794868 100644
--- a/docs/interface/util_fill~2.html
+++ b/docs/interface/util_fill~2.html
@@ -134,7 +134,7 @@ <h1>util_fill
      <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: 38 statements,  0.1% of total for procedures.">38 statements</a>
      </li> 
      
      
@@ -198,6 +198,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_fill~2.html#proc-util_fill_arr_i4b">util_fill_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_fill~2.html#proc-util_fill_arr_info">util_fill_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_fill~2.html#proc-util_fill_arr_logical">util_fill_arr_logical</a>
       
     </div>
@@ -254,7 +256,7 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge1" class="edge">
+<g id="interface~~util_fill~2~~CalledByGraph_edge2" 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"/>
@@ -274,17 +276,32 @@ <h3 class="panel-title">Called by</h3>
 <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 -->
+<!-- proc~util_fill_body -->
 <g id="interface~~util_fill~2~~CalledByGraph_node3" class="node">
+<title>proc~util_fill_body</title>
+<g id="a_interface~~util_fill~2~~CalledByGraph_node3"><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_body&#45;&gt;interface~util_fill~2 -->
+<g id="interface~~util_fill~2~~CalledByGraph_edge3" 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"/>
+</g>
+<!-- proc~util_fill_pl -->
+<g id="interface~~util_fill~2~~CalledByGraph_node4" class="node">
 <title>proc~util_fill_pl</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
+<g id="a_interface~~util_fill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
 <polygon fill="#d9534f" stroke="#d9534f" points="149.5,-85 93.5,-85 93.5,-61 149.5,-61 149.5,-85"/>
 <text text-anchor="middle" x="121.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
 <!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge2" class="edge">
+<g id="interface~~util_fill~2~~CalledByGraph_edge1" class="edge">
 <title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
 <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"/>
@@ -295,53 +312,38 @@ <h3 class="panel-title">Called by</h3>
 <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_body -->
-<g id="interface~~util_fill~2~~CalledByGraph_node4" class="node">
-<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>
+<!-- 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>
-<!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge3" 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"/>
+<!-- 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_pl -->
-<g id="interface~~util_fill~2~~CalledByGraph_node5" class="node">
+<g id="interface~~util_fill~2~~CalledByGraph_node6" class="node">
 <title>interface~util_fill_pl</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
+<g id="a_interface~~util_fill~2~~CalledByGraph_node6"><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>
 </g>
 </g>
 <!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge5" class="edge">
+<g id="interface~~util_fill~2~~CalledByGraph_edge6" 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,-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_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">
+<g id="interface~~util_fill~2~~CalledByGraph_edge5" 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"/>
@@ -443,6 +445,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_fill~2.html#proc-util_fill_arr_i4b">util_fill_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_fill~2.html#proc-util_fill_arr_info">util_fill_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_fill~2.html#proc-util_fill_arr_logical">util_fill_arr_logical</a>
       
     </div>
@@ -768,6 +772,87 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_fill_arr_info"></span><h3>
+public subroutine util_fill_arr_info(keeps, inserts, lfill_list)
+    
+    
+   
+</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
diff --git a/docs/interface/util_get_energy_momentum_system.html b/docs/interface/util_get_energy_momentum_system.html
index 5913b3166..35b2475e9 100644
--- a/docs/interface/util_get_energy_momentum_system.html
+++ b/docs/interface/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.1% of total for procedures.">62 statements</a>
+    title=" 0.1% of total for procedures.">77 statements</a>
      </li> 
      
      
@@ -220,121 +220,31 @@ <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="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)">
+<svg id="interfaceutil_get_energy_momentum_systemCallsGraph" width="416pt" height="32pt"
+ viewBox="0.00 0.00 416.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)">
 <title>interface~~util_get_energy_momentum_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 592,-238 592,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 412,-28 412,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,-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>
+<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>
 </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,-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>
+<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>
 </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,-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>
-<!-- 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_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_edge4" class="edge">
-<title>proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot</title>
-<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_node9" class="node">
-<title>proc~obl_pot</title>
-<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_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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -436,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~175"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~224"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -451,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~112"></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>
   
diff --git a/docs/interface/helio_coord_vh2vb_pl.html b/docs/interface/util_index_eucl_plpl.html
similarity index 81%
rename from docs/interface/helio_coord_vh2vb_pl.html
rename to docs/interface/util_index_eucl_plpl.html
index 30c807682..c37d2fc58 100644
--- a/docs/interface/helio_coord_vh2vb_pl.html
+++ b/docs/interface/util_index_eucl_plpl.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>helio_coord_vh2vb_pl &ndash; swiftest</title>
+    <title>util_index_eucl_plpl &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>helio_coord_vh2vb_pl
+    <h1>util_index_eucl_plpl
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>helio_coord_vh2vb_pl
      <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.">152 statements</a>
+    title=" 0.7% of total for procedures.">465 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_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/helio_classes.f90.html'>helio_classes.f90</a></li>
+     <li><a href='../sourcefile/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
     
-     <li><a href='../module/helio_classes.html'>helio_classes</a></li>
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">helio_coord_vh2vb_pl</li>
+     <li class="active">util_index_eucl_plpl</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~~helio_coord_vh2vb_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacehelio_coord_vh2vb_plCallsGraph" width="278pt" height="32pt"
- viewBox="0.00 0.00 278.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~helio_coord_vh2vb_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~helio_coord_vh2vb_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 274,-28 274,4 -4,4"/>
-<!-- interface~helio_coord_vh2vb_pl -->
-<g id="interface~~helio_coord_vh2vb_pl~~CallsGraph_node1" class="node">
-<title>interface~helio_coord_vh2vb_pl</title>
-<polygon fill="none" stroke="black" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord_vh2vb_pl</text>
+<!-- Title: interface~~util_index_eucl_plpl~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_index_eucl_plplCallsGraph" 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_index_eucl_plpl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_index_eucl_plpl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<!-- interface~util_index_eucl_plpl -->
+<g id="interface~~util_index_eucl_plpl~~CallsGraph_node1" class="node">
+<title>interface~util_index_eucl_plpl</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_index_eucl_plpl</text>
 </g>
-<!-- proc~helio_coord_vh2vb_pl -->
-<g id="interface~~helio_coord_vh2vb_pl~~CallsGraph_node2" class="node">
-<title>proc~helio_coord_vh2vb_pl</title>
-<g id="a_interface~~helio_coord_vh2vb_pl~~CallsGraph_node2"><a xlink:href=".././proc/helio_coord_vh2vb_pl.html" xlink:title="helio_coord_vh2vb_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="270,-24 153,-24 153,0 270,0 270,-24"/>
-<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_pl</text>
+<!-- proc~util_index_eucl_plpl -->
+<g id="interface~~util_index_eucl_plpl~~CallsGraph_node2" class="node">
+<title>proc~util_index_eucl_plpl</title>
+<g id="a_interface~~util_index_eucl_plpl~~CallsGraph_node2"><a xlink:href=".././proc/util_index_eucl_plpl.html" xlink:title="util_index_eucl_plpl">
+<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_index_eucl_plpl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vh2vb_pl&#45;&gt;proc~helio_coord_vh2vb_pl -->
-<g id="interface~~helio_coord_vh2vb_pl~~CallsGraph_edge1" 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="M117.02,-12C125.46,-12 134.23,-12 142.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.89,-15.5 152.89,-12 142.89,-8.5 142.89,-15.5"/>
+<!-- interface~util_index_eucl_plpl&#45;&gt;proc~util_index_eucl_plpl -->
+<g id="interface~~util_index_eucl_plpl~~CallsGraph_edge1" class="edge">
+<title>interface~util_index_eucl_plpl&#45;&gt;proc~util_index_eucl_plpl</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 helio_coord_vh2vb_pl(self, cb)
+public module subroutine util_index_eucl_plpl(self, param)
     
     
    
-   <a href='../proc/helio_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_index_eucl_plpl.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~32"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~151"></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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -361,12 +361,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~6"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-param~100"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</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>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
diff --git a/docs/interface/util_index_eucl_pltp.html b/docs/interface/util_index_eucl_pltp.html
new file mode 100644
index 000000000..21f10efaa
--- /dev/null
+++ b/docs/interface/util_index_eucl_pltp.html
@@ -0,0 +1,450 @@
+
+<!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_index_eucl_pltp &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_index_eucl_pltp
+   <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.7% of total for procedures.">465 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_index_eucl_pltp</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~~util_index_eucl_pltp~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_index_eucl_pltpCallsGraph" 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_index_eucl_pltp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_index_eucl_pltp~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<!-- interface~util_index_eucl_pltp -->
+<g id="interface~~util_index_eucl_pltp~~CallsGraph_node1" class="node">
+<title>interface~util_index_eucl_pltp</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_index_eucl_pltp</text>
+</g>
+<!-- proc~util_index_eucl_pltp -->
+<g id="interface~~util_index_eucl_pltp~~CallsGraph_node2" class="node">
+<title>proc~util_index_eucl_pltp</title>
+<g id="a_interface~~util_index_eucl_pltp~~CallsGraph_node2"><a xlink:href=".././proc/util_index_eucl_pltp.html" xlink:title="util_index_eucl_pltp">
+<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_index_eucl_pltp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_index_eucl_pltp&#45;&gt;proc~util_index_eucl_pltp -->
+<g id="interface~~util_index_eucl_pltp~~CallsGraph_edge1" class="edge">
+<title>interface~util_index_eucl_pltp&#45;&gt;proc~util_index_eucl_pltp</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>
+</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 util_index_eucl_pltp(self, pl, param)
+    
+    
+   
+   <a href='../proc/util_index_eucl_pltp.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~152"></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" id="variable-pl~12"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~101"></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>
+</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/util_minimize_bfgs.html b/docs/interface/util_minimize_bfgs.html
index da60fbe1e..307be459f 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.1% of total for procedures.">24 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -315,7 +315,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
+public module function util_minimize_bfgs(f, N, x0, eps, maxloop, lerr) result(x1)
     
     
    
@@ -404,6 +404,21 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-maxloop"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>maxloop</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lerr~3"></span>logical,</td>
diff --git a/docs/interface/util_peri_tp.html b/docs/interface/util_peri_tp.html
index 32f5bd7c4..6e3469c9f 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.1% of total for procedures.">24 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~170"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~219"></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~66"></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>
   
@@ -406,7 +406,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~136"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/util_rescale_system.html b/docs/interface/util_rescale_system.html
index 04eb77e0b..45b37f2db 100644
--- a/docs/interface/util_rescale_system.html
+++ b/docs/interface/util_rescale_system.html
@@ -136,7 +136,7 @@ <h1>util_rescale_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.">24 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~169"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~218"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,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~135"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mscale"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mscale~2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dscale"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dscale~2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tscale"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-tscale~2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/util_resize.html b/docs/interface/util_resize.html
index a50ab255f..b483c0036 100644
--- a/docs/interface/util_resize.html
+++ b/docs/interface/util_resize.html
@@ -134,7 +134,7 @@ <h1>util_resize
      <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: 12 statements,  0.0% of total for procedures.">12 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 7 statements,  0.0% of total for procedures.">7 statements</a>
      </li> 
      
      
@@ -190,8 +190,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-0" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_resize.html#proc-symba_util_resize_arr_info">symba_util_resize_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_resize.html#proc-symba_util_resize_arr_kin">symba_util_resize_arr_kin</a>
       
     </div>
@@ -227,142 +225,127 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_resize~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_resizeCalledByGraph" 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="interface~~util_resize~~CalledByGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 192.55)">
+<svg id="interfaceutil_resizeCalledByGraph" width="641pt" height="126pt"
+ viewBox="0.00 0.00 641.00 125.71" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_resize~~CalledByGraph" class="graph" transform="scale(0.86 0.86) rotate(0) translate(4 142.88)">
 <title>interface~~util_resize~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-192.55 748,-192.55 748,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-142.88 745,-142.88 745,4 -4,4"/>
 <!-- interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_node1" class="node">
 <title>interface~util_resize</title>
-<polygon fill="none" stroke="black" points="744,-108 683,-108 683,-84 744,-84 744,-108"/>
-<text text-anchor="middle" x="713.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize</text>
+<polygon fill="none" stroke="black" points="741,-87 680,-87 680,-63 741,-63 741,-87"/>
+<text text-anchor="middle" x="710.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize</text>
 </g>
 <!-- proc~symba_util_resize_merger -->
 <g id="interface~~util_resize~~CalledByGraph_node2" class="node">
 <title>proc~symba_util_resize_merger</title>
 <g id="a_interface~~util_resize~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
-<polygon fill="#d9534f" stroke="#d9534f" points="314,-170 175,-170 175,-146 314,-146 314,-170"/>
-<text text-anchor="middle" x="244.5" y="-155.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="314,-128 175,-128 175,-104 314,-104 314,-128"/>
+<text text-anchor="middle" x="244.5" y="-113.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_edge1" class="edge">
 <title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M296.93,-170.02C375.62,-185.84 529.17,-206.47 647,-159 668.29,-150.42 686.53,-131.26 698.32,-116.3"/>
-<polygon fill="#000000" stroke="#000000" points="701.27,-118.19 704.48,-108.09 695.68,-113.98 701.27,-118.19"/>
+<path fill="none" stroke="#000000" d="M314.13,-127.76C394.88,-138.98 532.13,-149.79 644,-117 659.86,-112.35 675.51,-102.56 687.54,-93.6"/>
+<polygon fill="#000000" stroke="#000000" points="689.88,-96.21 695.61,-87.3 685.57,-90.69 689.88,-96.21"/>
 </g>
 <!-- interface~symba_util_resize_pl -->
-<g id="interface~~util_resize~~CalledByGraph_node9" class="node">
+<g id="interface~~util_resize~~CalledByGraph_node6" class="node">
 <title>interface~symba_util_resize_pl</title>
-<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>
+<g id="a_interface~~util_resize~~CalledByGraph_node6"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="462.5,-108 350.5,-108 350.5,-84 462.5,-84 462.5,-108"/>
+<text text-anchor="middle" x="406.5" y="-93.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~symba_util_resize_pl -->
-<g id="interface~~util_resize~~CalledByGraph_edge9" class="edge">
+<g id="interface~~util_resize~~CalledByGraph_edge8" class="edge">
 <title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M314.28,-107.4C322.93,-106.32 331.75,-105.22 340.34,-104.15"/>
+<polygon fill="#000000" stroke="#000000" points="340.79,-107.62 350.28,-102.9 339.93,-100.67 340.79,-107.62"/>
 </g>
 <!-- proc~symba_util_append_arr_kin -->
 <g id="interface~~util_resize~~CalledByGraph_node3" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="644,-66 499,-66 499,-42 644,-42 644,-66"/>
+<text text-anchor="middle" x="571.5" y="-51.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_kin&#45;&gt;interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_edge2" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M644.21,-64.99C652.94,-66.33 661.61,-67.66 669.63,-68.89"/>
+<polygon fill="#000000" stroke="#000000" points="669.35,-72.39 679.76,-70.44 670.41,-65.47 669.35,-72.39"/>
 </g>
-<!-- proc~symba_util_resize_pl -->
+<!-- proc~symba_util_resize_tp -->
 <g id="interface~~util_resize~~CalledByGraph_node4" class="node">
-<title>proc~symba_util_resize_pl</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="629,-150 517,-150 517,-126 629,-126 629,-150"/>
-<text text-anchor="middle" x="573" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
+<title>proc~symba_util_resize_tp</title>
+<g id="a_interface~~util_resize~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="628,-24 515,-24 515,0 628,0 628,-24"/>
+<text text-anchor="middle" x="571.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
+<!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_edge3" class="edge">
-<title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M616.91,-125.89C626.81,-123.03 637.28,-119.95 647,-117 655.55,-114.4 664.7,-111.53 673.37,-108.76"/>
-<polygon fill="#000000" stroke="#000000" points="674.44,-112.09 682.89,-105.7 672.3,-105.43 674.44,-112.09"/>
+<title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M620.5,-24.04C628.49,-26.63 636.58,-29.62 644,-33 658.3,-39.52 673.13,-48.79 685.06,-56.96"/>
+<polygon fill="#000000" stroke="#000000" points="683.36,-60.05 693.55,-62.93 687.38,-54.32 683.36,-60.05"/>
 </g>
-<!-- proc~symba_util_resize_tp -->
+<!-- proc~symba_util_resize_pl -->
 <g id="interface~~util_resize~~CalledByGraph_node5" class="node">
-<title>proc~symba_util_resize_tp</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node5"><a xlink:href=".././proc/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="629.5,-66 516.5,-66 516.5,-42 629.5,-42 629.5,-66"/>
-<text text-anchor="middle" x="573" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
+<title>proc~symba_util_resize_pl</title>
+<g id="a_interface~~util_resize~~CalledByGraph_node5"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="627.5,-108 515.5,-108 515.5,-84 627.5,-84 627.5,-108"/>
+<text text-anchor="middle" x="571.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
+<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_edge4" class="edge">
-<title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
-<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_info -->
-<g id="interface~~util_resize~~CalledByGraph_node6" class="node">
-<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>
+<title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M627.83,-87.52C641.89,-85.36 656.73,-83.09 669.83,-81.08"/>
+<polygon fill="#000000" stroke="#000000" points="670.58,-84.51 679.93,-79.53 669.52,-77.59 670.58,-84.51"/>
 </g>
-<!-- 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_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"/>
+<!-- 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.68,-96C476.36,-96 491.14,-96 505.25,-96"/>
+<polygon fill="#000000" stroke="#000000" points="505.37,-99.5 515.37,-96 505.37,-92.5 505.37,-99.5"/>
 </g>
-<!-- interface~symba_util_resize_merger -->
+<!-- interface~symba_util_resize_tp -->
 <g id="interface~~util_resize~~CalledByGraph_node7" class="node">
-<title>interface~symba_util_resize_merger</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
-<polygon fill="#a7506f" stroke="#a7506f" points="139,-170 0,-170 0,-146 139,-146 139,-170"/>
-<text text-anchor="middle" x="69.5" y="-155.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
+<title>interface~symba_util_resize_tp</title>
+<g id="a_interface~~util_resize~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="463,-24 350,-24 350,0 463,0 463,-24"/>
+<text text-anchor="middle" x="406.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger -->
+<!-- interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp -->
 <g id="interface~~util_resize~~CalledByGraph_edge6" 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,-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"/>
+<title>interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M463.14,-12C476.44,-12 490.77,-12 504.49,-12"/>
+<polygon fill="#000000" stroke="#000000" points="504.83,-15.5 514.83,-12 504.83,-8.5 504.83,-15.5"/>
 </g>
-<!-- interface~symba_util_resize_tp -->
+<!-- interface~symba_util_resize_merger -->
 <g id="interface~~util_resize~~CalledByGraph_node8" class="node">
-<title>interface~symba_util_resize_tp</title>
-<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>
+<title>interface~symba_util_resize_merger</title>
+<g id="a_interface~~util_resize~~CalledByGraph_node8"><a xlink:href=".././interface/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="139,-128 0,-128 0,-104 139,-104 139,-128"/>
+<text text-anchor="middle" x="69.5" y="-113.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp -->
-<g id="interface~~util_resize~~CalledByGraph_edge8" 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="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"/>
+<!-- interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger -->
+<g id="interface~~util_resize~~CalledByGraph_edge5" 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,-116C147.68,-116 156.21,-116 164.65,-116"/>
+<polygon fill="#000000" stroke="#000000" points="164.87,-119.5 174.87,-116 164.87,-112.5 164.87,-119.5"/>
 </g>
 </g>
 </svg>
@@ -453,8 +436,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-1" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_resize.html#proc-symba_util_resize_arr_info">symba_util_resize_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_resize.html#proc-symba_util_resize_arr_kin">symba_util_resize_arr_kin</a>
       
     </div>
@@ -479,72 +460,6 @@ <h3>Contents</h3>
    <h2>Subroutines</h2>
    
     
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_resize_arr_info"></span><h3>
-public subroutine symba_util_resize_arr_info(arr, nnew)
-    
-    
-   
-</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>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>Array to resize</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>nnew</strong></td><td><p>New size</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-   
-    
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_resize_arr_kin"></span><h3>
 public subroutine symba_util_resize_arr_kin(arr, nnew)
diff --git a/docs/interface/util_resize_body.html b/docs/interface/util_resize_body.html
index 93a2d871e..f432c089c 100644
--- a/docs/interface/util_resize_body.html
+++ b/docs/interface/util_resize_body.html
@@ -136,7 +136,7 @@ <h1>util_resize_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.">62 statements</a>
+    title=" 0.1% of total for procedures.">77 statements</a>
      </li> 
      
      
@@ -378,25 +378,10 @@ <h3 class="panel-title">Called by</h3>
 <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_tp -->
-<g id="interface~~util_resize_body~~CalledByGraph_node4" class="node">
-<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_tp&#45;&gt;proc~util_resize_tp -->
-<g id="interface~~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,-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_pl -->
-<g id="interface~~util_resize_body~~CalledByGraph_node5" class="node">
+<g id="interface~~util_resize_body~~CalledByGraph_node4" class="node">
 <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">
+<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,-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>
@@ -408,6 +393,21 @@ <h3 class="panel-title">Called by</h3>
 <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>
+<!-- interface~util_resize_tp -->
+<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,-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_tp&#45;&gt;proc~util_resize_tp -->
+<g id="interface~~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,-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>
 </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">
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~171"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~220"></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 56d2613c7..c85f79672 100644
--- a/docs/interface/util_resize_encounter.html
+++ b/docs/interface/util_resize_encounter.html
@@ -136,7 +136,7 @@ <h1>util_resize_encounter
      <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.">77 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~172"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~221"></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 cd6512013..f54533f02 100644
--- a/docs/interface/util_resize_pl.html
+++ b/docs/interface/util_resize_pl.html
@@ -136,7 +136,7 @@ <h1>util_resize_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.">62 statements</a>
+    title=" 0.1% of total for procedures.">77 statements</a>
      </li> 
      
      
@@ -228,74 +228,74 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~util_resize_pl -->
 <g id="interface~~util_resize_pl~~CallsGraph_node1" class="node">
 <title>interface~util_resize_pl</title>
-<polygon fill="none" stroke="black" points="75,-44 0,-44 0,-20 75,-20 75,-44"/>
-<text text-anchor="middle" x="37.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_pl</text>
+<polygon fill="none" stroke="black" points="75,-24 0,-24 0,0 75,0 75,-24"/>
+<text text-anchor="middle" x="37.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_pl</text>
 </g>
 <!-- proc~util_resize_pl -->
 <g id="interface~~util_resize_pl~~CallsGraph_node2" class="node">
 <title>proc~util_resize_pl</title>
 <g id="a_interface~~util_resize_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="186,-44 111,-44 111,-20 186,-20 186,-44"/>
-<text text-anchor="middle" x="148.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="186,-24 111,-24 111,0 186,0 186,-24"/>
+<text text-anchor="middle" x="148.5" y="-9.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_pl~~CallsGraph_edge1" 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.1,-32C83.28,-32 92.06,-32 100.59,-32"/>
-<polygon fill="#000000" stroke="#000000" points="100.81,-35.5 110.81,-32 100.81,-28.5 100.81,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.1,-12C83.28,-12 92.06,-12 100.59,-12"/>
+<polygon fill="#000000" stroke="#000000" points="100.81,-15.5 110.81,-12 100.81,-8.5 100.81,-15.5"/>
 </g>
-<!-- interface~util_resize~2 -->
+<!-- interface~util_resize_body -->
 <g id="interface~~util_resize_pl~~CallsGraph_node3" class="node">
-<title>interface~util_resize~2</title>
-<g id="a_interface~~util_resize_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="535,-44 474,-44 474,-20 535,-20 535,-44"/>
-<text text-anchor="middle" x="504.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>interface~util_resize_body</title>
+<g id="a_interface~~util_resize_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="312,-44 222,-44 222,-20 312,-20 312,-44"/>
+<text text-anchor="middle" x="267" y="-29.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~2 -->
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
 <g id="interface~~util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M186.01,-32.6C197.52,-32.77 210.29,-32.92 222,-33 318,-33.66 342,-33.73 438,-33 446.33,-32.94 455.25,-32.83 463.75,-32.7"/>
-<polygon fill="#000000" stroke="#000000" points="463.88,-36.2 473.83,-32.55 463.78,-29.2 463.88,-36.2"/>
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M186.04,-18.27C194.2,-19.67 203.01,-21.19 211.71,-22.68"/>
+<polygon fill="#000000" stroke="#000000" points="211.37,-26.17 221.82,-24.42 212.55,-19.27 211.37,-26.17"/>
 </g>
-<!-- interface~util_resize_body -->
+<!-- interface~util_resize~2 -->
 <g id="interface~~util_resize_pl~~CallsGraph_node4" class="node">
-<title>interface~util_resize_body</title>
-<g id="a_interface~~util_resize_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="312,-24 222,-24 222,0 312,0 312,-24"/>
-<text text-anchor="middle" x="267" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<title>interface~util_resize~2</title>
+<g id="a_interface~~util_resize_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="535,-24 474,-24 474,0 535,0 535,-24"/>
+<text text-anchor="middle" x="504.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize~2 -->
 <g id="interface~~util_resize_pl~~CallsGraph_edge3" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M186.04,-25.73C194.2,-24.33 203.01,-22.81 211.71,-21.32"/>
-<polygon fill="#000000" stroke="#000000" points="212.55,-24.73 221.82,-19.58 211.37,-17.83 212.55,-24.73"/>
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M186.01,-11.4C197.52,-11.23 210.29,-11.08 222,-11 318,-10.34 342,-10.27 438,-11 446.33,-11.06 455.25,-11.17 463.75,-11.3"/>
+<polygon fill="#000000" stroke="#000000" points="463.78,-14.8 473.83,-11.45 463.88,-7.8 463.78,-14.8"/>
 </g>
 <!-- proc~util_resize_body -->
 <g id="interface~~util_resize_pl~~CallsGraph_node5" class="node">
 <title>proc~util_resize_body</title>
 <g id="a_interface~~util_resize_pl~~CallsGraph_node5"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="438,-24 348,-24 348,0 438,0 438,-24"/>
-<text text-anchor="middle" x="393" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="438,-44 348,-44 348,-20 438,-20 438,-44"/>
+<text text-anchor="middle" x="393" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
 <g id="interface~~util_resize_pl~~CallsGraph_edge4" class="edge">
 <title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.07,-12C320.28,-12 328.96,-12 337.44,-12"/>
-<polygon fill="#000000" stroke="#000000" points="337.66,-15.5 347.66,-12 337.66,-8.5 337.66,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.07,-32C320.28,-32 328.96,-32 337.44,-32"/>
+<polygon fill="#000000" stroke="#000000" points="337.66,-35.5 347.66,-32 337.66,-28.5 337.66,-35.5"/>
 </g>
 <!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
 <g id="interface~~util_resize_pl~~CallsGraph_edge5" class="edge">
 <title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M438.22,-20.08C446.75,-21.63 455.62,-23.26 463.99,-24.78"/>
-<polygon fill="#000000" stroke="#000000" points="463.41,-28.23 473.87,-26.59 464.66,-21.35 463.41,-28.23"/>
+<path fill="none" stroke="#000000" d="M438.22,-23.92C446.75,-22.37 455.62,-20.74 463.99,-19.22"/>
+<polygon fill="#000000" stroke="#000000" points="464.66,-22.65 473.87,-17.41 463.41,-15.77 464.66,-22.65"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~173"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~222"></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 c8650a555..f9cc72aa6 100644
--- a/docs/interface/util_resize_tp.html
+++ b/docs/interface/util_resize_tp.html
@@ -136,7 +136,7 @@ <h1>util_resize_tp
      <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.">77 statements</a>
      </li> 
      
      
@@ -228,74 +228,74 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~util_resize_tp -->
 <g id="interface~~util_resize_tp~~CallsGraph_node1" class="node">
 <title>interface~util_resize_tp</title>
-<polygon fill="none" stroke="black" points="76,-44 0,-44 0,-20 76,-20 76,-44"/>
-<text text-anchor="middle" x="38" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_tp</text>
+<polygon fill="none" stroke="black" points="76,-24 0,-24 0,0 76,0 76,-24"/>
+<text text-anchor="middle" x="38" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_tp</text>
 </g>
 <!-- proc~util_resize_tp -->
 <g id="interface~~util_resize_tp~~CallsGraph_node2" class="node">
 <title>proc~util_resize_tp</title>
 <g id="a_interface~~util_resize_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="188,-44 112,-44 112,-20 188,-20 188,-44"/>
-<text text-anchor="middle" x="150" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<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>
 <!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
 <g id="interface~~util_resize_tp~~CallsGraph_edge1" 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,-32C84.39,-32 93.13,-32 101.62,-32"/>
-<polygon fill="#000000" stroke="#000000" points="101.8,-35.5 111.8,-32 101.8,-28.5 101.8,-35.5"/>
+<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~2 -->
+<!-- interface~util_resize_body -->
 <g id="interface~~util_resize_tp~~CallsGraph_node3" class="node">
-<title>interface~util_resize~2</title>
-<g id="a_interface~~util_resize_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="537,-44 476,-44 476,-20 537,-20 537,-44"/>
-<text text-anchor="middle" x="506.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>interface~util_resize_body</title>
+<g id="a_interface~~util_resize_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="314,-44 224,-44 224,-20 314,-20 314,-44"/>
+<text text-anchor="middle" x="269" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
 <g id="interface~~util_resize_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M188.14,-32.61C199.63,-32.77 212.34,-32.92 224,-33 320,-33.66 344,-33.73 440,-33 448.33,-32.94 457.25,-32.83 465.75,-32.7"/>
-<polygon fill="#000000" stroke="#000000" points="465.88,-36.2 475.83,-32.55 465.78,-29.2 465.88,-36.2"/>
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M188.02,-18.33C196.2,-19.73 205.03,-21.24 213.74,-22.72"/>
+<polygon fill="#000000" stroke="#000000" points="213.4,-26.22 223.85,-24.45 214.58,-19.32 213.4,-26.22"/>
 </g>
-<!-- interface~util_resize_body -->
+<!-- interface~util_resize~2 -->
 <g id="interface~~util_resize_tp~~CallsGraph_node4" class="node">
-<title>interface~util_resize_body</title>
-<g id="a_interface~~util_resize_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="314,-24 224,-24 224,0 314,0 314,-24"/>
-<text text-anchor="middle" x="269" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<title>interface~util_resize~2</title>
+<g id="a_interface~~util_resize_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="537,-24 476,-24 476,0 537,0 537,-24"/>
+<text text-anchor="middle" x="506.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
 <g id="interface~~util_resize_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M188.02,-25.67C196.2,-24.27 205.03,-22.76 213.74,-21.28"/>
-<polygon fill="#000000" stroke="#000000" points="214.58,-24.68 223.85,-19.55 213.4,-17.78 214.58,-24.68"/>
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M188.14,-11.39C199.63,-11.23 212.34,-11.08 224,-11 320,-10.34 344,-10.27 440,-11 448.33,-11.06 457.25,-11.17 465.75,-11.3"/>
+<polygon fill="#000000" stroke="#000000" points="465.78,-14.8 475.83,-11.45 465.88,-7.8 465.78,-14.8"/>
 </g>
 <!-- proc~util_resize_body -->
 <g id="interface~~util_resize_tp~~CallsGraph_node5" class="node">
 <title>proc~util_resize_body</title>
 <g id="a_interface~~util_resize_tp~~CallsGraph_node5"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="440,-24 350,-24 350,0 440,0 440,-24"/>
-<text text-anchor="middle" x="395" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="440,-44 350,-44 350,-20 440,-20 440,-44"/>
+<text text-anchor="middle" x="395" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
 <g id="interface~~util_resize_tp~~CallsGraph_edge4" 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.07,-12C322.28,-12 330.96,-12 339.44,-12"/>
-<polygon fill="#000000" stroke="#000000" points="339.66,-15.5 349.66,-12 339.66,-8.5 339.66,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.07,-32C322.28,-32 330.96,-32 339.44,-32"/>
+<polygon fill="#000000" stroke="#000000" points="339.66,-35.5 349.66,-32 339.66,-28.5 339.66,-35.5"/>
 </g>
 <!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
 <g id="interface~~util_resize_tp~~CallsGraph_edge5" class="edge">
 <title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M440.22,-20.08C448.75,-21.63 457.62,-23.26 465.99,-24.78"/>
-<polygon fill="#000000" stroke="#000000" points="465.41,-28.23 475.87,-26.59 466.66,-21.35 465.41,-28.23"/>
+<path fill="none" stroke="#000000" d="M440.22,-23.92C448.75,-22.37 457.62,-20.74 465.99,-19.22"/>
+<polygon fill="#000000" stroke="#000000" points="466.66,-22.65 475.87,-17.41 465.41,-15.77 466.66,-22.65"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~174"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~223"></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 aedfd430a..f6c8bb7d9 100644
--- a/docs/interface/util_resize~2.html
+++ b/docs/interface/util_resize~2.html
@@ -134,7 +134,7 @@ <h1>util_resize
      <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: 27 statements,  0.1% of total for procedures.">27 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 32 statements,  0.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -198,6 +198,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_resize~2.html#proc-util_resize_arr_i4b">util_resize_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_resize~2.html#proc-util_resize_arr_info">util_resize_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_resize~2.html#proc-util_resize_arr_logical">util_resize_arr_logical</a>
       
     </div>
@@ -233,31 +235,61 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_resize~2~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_resize2CalledByGraph" width="602pt" height="327pt"
- 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)">
+<svg id="interfaceutil_resize2CalledByGraph" width="602pt" height="360pt"
+ viewBox="0.00 0.00 602.00 360.00" 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 356)">
 <title>interface~~util_resize~2~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-323.47 598,-323.47 598,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-356 598,-356 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>
+<polygon fill="none" stroke="black" points="594,-192 533,-192 533,-168 594,-168 594,-192"/>
+<text text-anchor="middle" x="563.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize</text>
 </g>
-<!-- proc~util_resize_pl -->
+<!-- proc~util_append_arr_char_string -->
 <g id="interface~~util_resize~2~~CalledByGraph_node2" class="node">
+<title>proc~util_append_arr_char_string</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_append_arr_char_string.html" xlink:title="util_append_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="497,-352 350,-352 350,-328 497,-328 497,-352"/>
+<text text-anchor="middle" x="423.5" y="-337.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_edge1" class="edge">
+<title>proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M474.54,-327.86C482.66,-324.33 490.52,-319.8 497,-314 531.02,-283.54 549.25,-231.46 557.3,-202"/>
+<polygon fill="#000000" stroke="#000000" points="560.71,-202.81 559.82,-192.25 553.93,-201.06 560.71,-202.81"/>
+</g>
+<!-- proc~util_resize_body -->
+<g id="interface~~util_resize~2~~CalledByGraph_node3" class="node">
+<title>proc~util_resize_body</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node3"><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="M465.86,-247.94C476.34,-244.15 487.35,-239.48 497,-234 513.82,-224.44 530.61,-210.49 542.98,-199.16"/>
+<polygon fill="#000000" stroke="#000000" points="545.53,-201.57 550.42,-192.17 540.74,-196.46 545.53,-201.57"/>
+</g>
+<!-- proc~util_resize_pl -->
+<g id="interface~~util_resize~2~~CalledByGraph_node4" class="node">
 <title>proc~util_resize_pl</title>
-<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>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node4"><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>
 </a>
 </g>
 </g>
 <!-- proc~util_resize_pl&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge1" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge2" class="edge">
 <title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M187.75,-299.52C254.3,-314.62 397.14,-336.96 497,-281 527.49,-263.91 546.1,-226.04 555.34,-201.84"/>
+<polygon fill="#000000" stroke="#000000" points="558.75,-202.7 558.83,-192.1 552.16,-200.33 558.75,-202.7"/>
 </g>
 <!-- interface~util_resize_body -->
 <g id="interface~~util_resize~2~~CalledByGraph_node12" class="node">
@@ -269,158 +301,143 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge12" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge13" class="edge">
 <title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<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,-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,-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"/>
+<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"/>
 </g>
-<!-- proc~util_append_arr_logical -->
+<!-- proc~util_append_arr_i4b -->
 <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_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>
+<title>proc~util_append_arr_i4b</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node5"><a xlink:href=".././proc/util_append_arr_i4b.html" xlink:title="util_append_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="478,-192 369,-192 369,-168 478,-168 478,-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_I4B</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_arr_logical&#45;&gt;interface~util_resize~2 -->
-<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"/>
+<!-- proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2 -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge3" class="edge">
+<title>proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M478.25,-180C493.09,-180 508.91,-180 522.79,-180"/>
+<polygon fill="#000000" stroke="#000000" points="522.98,-183.5 532.98,-180 522.98,-176.5 522.98,-183.5"/>
 </g>
 <!-- proc~util_append_arr_dp -->
 <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_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>
+<polygon fill="#d9534f" stroke="#d9534f" points="477.5,-150 369.5,-150 369.5,-126 477.5,-126 477.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_DP</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_dp&#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_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"/>
+<path fill="none" stroke="#000000" d="M466.73,-150.01C476.67,-152.9 487.22,-156.02 497,-159 505.55,-161.61 514.7,-164.49 523.36,-167.25"/>
+<polygon fill="#000000" stroke="#000000" points="522.29,-170.58 532.88,-170.31 524.43,-163.92 522.29,-170.58"/>
 </g>
-<!-- proc~util_append_arr_i4b -->
+<!-- proc~util_append_arr_dpvec -->
 <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_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>
+<title>proc~util_append_arr_dpvec</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node7"><a xlink:href=".././proc/util_append_arr_dpvec.html" xlink:title="util_append_arr_DPvec">
+<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_DPvec</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2 -->
-<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"/>
+<!-- proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2 -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge5" class="edge">
+<title>proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M477.62,-108.12C484.36,-110.59 490.99,-113.53 497,-117 516.41,-128.22 534.46,-146.39 546.67,-160.35"/>
+<polygon fill="#000000" stroke="#000000" points="544.02,-162.63 553.15,-167.99 549.35,-158.1 544.02,-162.63"/>
 </g>
-<!-- proc~util_resize_tp -->
+<!-- proc~util_append_arr_logical -->
 <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>
+<title>proc~util_append_arr_logical</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node8"><a xlink:href=".././proc/util_append_arr_logical.html" xlink:title="util_append_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="485.5,-66 361.5,-66 361.5,-42 485.5,-42 485.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_logical</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
+<!-- proc~util_append_arr_logical&#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>
-<!-- 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"/>
+<title>proc~util_append_arr_logical&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M481.48,-66.03C487.01,-68.49 492.3,-71.44 497,-75 525.51,-96.56 544.63,-134.45 554.52,-158.33"/>
+<polygon fill="#000000" stroke="#000000" points="551.38,-159.9 558.31,-167.92 557.89,-157.33 551.38,-159.9"/>
 </g>
-<!-- proc~util_resize_body -->
+<!-- proc~util_resize_tp -->
 <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>
+<title>proc~util_resize_tp</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node9"><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_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"/>
+<!-- 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.25,-228.77C252.07,-227.77 386.15,-222.95 497,-201 505.59,-199.3 514.63,-196.85 523.16,-194.22"/>
+<polygon fill="#000000" stroke="#000000" points="524.44,-197.49 532.88,-191.09 522.29,-190.82 524.44,-197.49"/>
 </g>
-<!-- interface~util_resize_tp -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge14" 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_info -->
 <g id="interface~~util_resize~2~~CalledByGraph_node10" class="node">
-<title>interface~util_resize_tp</title>
-<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>
+<title>proc~util_append_arr_info</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node10"><a xlink:href=".././proc/util_append_arr_info.html" xlink:title="util_append_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="479,-24 368,-24 368,0 479,0 479,-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_info</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
-<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,-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"/>
+<!-- proc~util_append_arr_info&#45;&gt;interface~util_resize~2 -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge9" class="edge">
+<title>proc~util_append_arr_info&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M479.09,-22.07C485.59,-24.86 491.76,-28.44 497,-33 534.87,-66 551.86,-125.16 558.61,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="555.25,-158.52 560.59,-167.67 562.12,-157.19 555.25,-158.52"/>
 </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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge9" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge11" 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"/>
+<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"/>
 </g>
 <!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge11" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge10" 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>
+<!-- interface~util_resize_tp -->
+<g id="interface~~util_resize~2~~CalledByGraph_node13" class="node">
+<title>interface~util_resize_tp</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node13"><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>
+</a>
+</g>
+</g>
+<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge12" 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"/>
+</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">
@@ -518,6 +535,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_resize~2.html#proc-util_resize_arr_i4b">util_resize_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_resize~2.html#proc-util_resize_arr_info">util_resize_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_resize~2.html#proc-util_resize_arr_logical">util_resize_arr_logical</a>
       
     </div>
@@ -783,6 +802,72 @@ <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>nnew</strong></td><td><p>New size</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_resize_arr_info"></span><h3>
+public subroutine util_resize_arr_info(arr, nnew)
+    
+    
+   
+</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
diff --git a/docs/interface/util_set_beg_end_pl.html b/docs/interface/util_set_beg_end_pl.html
index 626cce722..b7d640356 100644
--- a/docs/interface/util_set_beg_end_pl.html
+++ b/docs/interface/util_set_beg_end_pl.html
@@ -136,7 +136,7 @@ <h1>util_set_beg_end_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.">62 statements</a>
+    title=" 0.1% of total for procedures.">77 statements</a>
      </li> 
      
      
@@ -346,7 +346,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~225"></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 3f1e00391..94a31ac6e 100644
--- a/docs/interface/util_set_ir3h.html
+++ b/docs/interface/util_set_ir3h.html
@@ -136,7 +136,7 @@ <h1>util_set_ir3h
      <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.">77 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~177"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~226"></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 16fb310f1..7ebb9511f 100644
--- a/docs/interface/util_set_msys.html
+++ b/docs/interface/util_set_msys.html
@@ -136,7 +136,7 @@ <h1>util_set_msys
      <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.">77 statements</a>
      </li> 
      
      
@@ -346,7 +346,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~227"></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 2014b5de3..eacfda155 100644
--- a/docs/interface/util_set_mu_pl.html
+++ b/docs/interface/util_set_mu_pl.html
@@ -136,7 +136,7 @@ <h1>util_set_mu_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.">62 statements</a>
+    title=" 0.1% of total for procedures.">77 statements</a>
      </li> 
      
      
@@ -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~228"></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-cb~19"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~22"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 6066b8104..55d6cbb7d 100644
--- a/docs/interface/util_set_mu_tp.html
+++ b/docs/interface/util_set_mu_tp.html
@@ -136,7 +136,7 @@ <h1>util_set_mu_tp
      <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.">77 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~180"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~229"></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-cb~20"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~23"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_particle_info.html b/docs/interface/util_set_particle_info.html
new file mode 100644
index 000000000..bd5497b55
--- /dev/null
+++ b/docs/interface/util_set_particle_info.html
@@ -0,0 +1,585 @@
+
+<!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_set_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>util_set_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.1% of total for procedures.">77 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_set_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~~util_set_particle_info~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_set_particle_infoCallsGraph" width="264pt" height="32pt"
+ viewBox="0.00 0.00 264.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_set_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_set_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 260,-28 260,4 -4,4"/>
+<!-- interface~util_set_particle_info -->
+<g id="interface~~util_set_particle_info~~CallsGraph_node1" class="node">
+<title>interface~util_set_particle_info</title>
+<polygon fill="none" stroke="black" points="110,-24 0,-24 0,0 110,0 110,-24"/>
+<text text-anchor="middle" x="55" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_set_particle_info</text>
+</g>
+<!-- proc~util_set_particle_info -->
+<g id="interface~~util_set_particle_info~~CallsGraph_node2" class="node">
+<title>proc~util_set_particle_info</title>
+<g id="a_interface~~util_set_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/util_set_particle_info.html" xlink:title="util_set_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="256,-24 146,-24 146,0 256,0 256,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_particle_info&#45;&gt;proc~util_set_particle_info -->
+<g id="interface~~util_set_particle_info~~CallsGraph_edge1" class="edge">
+<title>interface~util_set_particle_info&#45;&gt;proc~util_set_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M110.03,-12C118.31,-12 126.94,-12 135.42,-12"/>
+<polygon fill="#000000" stroke="#000000" points="135.67,-15.5 145.67,-12 135.67,-8.5 135.67,-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 util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
+    
+    
+   
+   <a href='../proc/util_set_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~230"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-name~2"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>name</strong></td><td><p>Non-unique name</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_type~2"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>particle_type</strong></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~9"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td><p>Particle status description: Active, Merged, Fragmented, etc.</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_type~2"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_type</strong></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~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_time</strong></td><td><p>The time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_xh~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_xh</strong></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~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_time~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xh~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vh~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_body_id~2"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_body_id</strong></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</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/util_set_rhill.html b/docs/interface/util_set_rhill.html
index 83a64277c..c8daf909f 100644
--- a/docs/interface/util_set_rhill.html
+++ b/docs/interface/util_set_rhill.html
@@ -136,7 +136,7 @@ <h1>util_set_rhill
      <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.">77 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~181"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~231"></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-cb~21"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~24"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 fd12fcbb0..6def5e936 100644
--- a/docs/interface/util_set_rhill_approximate.html
+++ b/docs/interface/util_set_rhill_approximate.html
@@ -136,7 +136,7 @@ <h1>util_set_rhill_approximate
      <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.">77 statements</a>
      </li> 
      
      
@@ -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~232"></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-cb~22"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~25"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort.html b/docs/interface/util_sort.html
index b17f19164..3acf65640 100644
--- a/docs/interface/util_sort.html
+++ b/docs/interface/util_sort.html
@@ -134,7 +134,7 @@ <h1>util_sort
      <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: 29 statements,  0.1% of total for procedures.">29 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 29 statements,  0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -235,46 +235,106 @@ <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="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)">
+<svg id="interfaceutil_sortCalledByGraph" width="460pt" height="116pt"
+ viewBox="0.00 0.00 460.00 116.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 112)">
 <title>interface~~util_sort~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 346,-28 346,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 456,-112 456,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="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>
+<polygon fill="none" stroke="black" points="452,-66 398,-66 398,-42 452,-42 452,-66"/>
+<text text-anchor="middle" x="425" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort</text>
 </g>
 <!-- proc~util_valid_id_system -->
 <g id="interface~~util_sort~~CalledByGraph_node2" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="334.5,-108 226.5,-108 226.5,-84 334.5,-84 334.5,-108"/>
+<text text-anchor="middle" x="280.5" y="-93.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_sort -->
 <g id="interface~~util_sort~~CalledByGraph_edge1" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M330.18,-83.9C340.71,-81.11 351.76,-78.07 362,-75 370.53,-72.45 379.64,-69.49 388.19,-66.61"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-69.85 397.89,-63.31 387.29,-63.22 389.55,-69.85"/>
 </g>
-<!-- interface~util_valid_id_system -->
+<!-- proc~netcdf_write_frame_base -->
 <g id="interface~~util_sort~~CalledByGraph_node3" class="node">
+<title>proc~netcdf_write_frame_base</title>
+<g id="a_interface~~util_sort~~CalledByGraph_node3"><a xlink:href=".././proc/netcdf_write_frame_base.html" xlink:title="netcdf_write_frame_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="347,-66 214,-66 214,-42 347,-42 347,-66"/>
+<text text-anchor="middle" x="280.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_base</text>
+</a>
+</g>
+</g>
+<!-- proc~netcdf_write_frame_base&#45;&gt;interface~util_sort -->
+<g id="interface~~util_sort~~CalledByGraph_edge2" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M347.33,-54C361.2,-54 375.35,-54 387.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="387.94,-57.5 397.94,-54 387.94,-50.5 387.94,-57.5"/>
+</g>
+<!-- proc~netcdf_write_particle_info_base -->
+<g id="interface~~util_sort~~CalledByGraph_node4" class="node">
+<title>proc~netcdf_write_particle_info_base</title>
+<g id="a_interface~~util_sort~~CalledByGraph_node4"><a xlink:href=".././proc/netcdf_write_particle_info_base.html" xlink:title="netcdf_write_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="362,-24 199,-24 199,0 362,0 362,-24"/>
+<text text-anchor="middle" x="280.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort -->
+<g id="interface~~util_sort~~CalledByGraph_edge3" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M330.18,-24.1C340.71,-26.89 351.76,-29.93 362,-33 370.53,-35.55 379.64,-38.51 388.19,-41.39"/>
+<polygon fill="#000000" stroke="#000000" points="387.29,-44.78 397.89,-44.69 389.55,-38.15 387.29,-44.78"/>
+</g>
+<!-- interface~netcdf_write_frame_base -->
+<g id="interface~~util_sort~~CalledByGraph_node5" class="node">
+<title>interface~netcdf_write_frame_base</title>
+<g id="a_interface~~util_sort~~CalledByGraph_node5"><a xlink:href=".././interface/netcdf_write_frame_base.html" xlink:title="netcdf_write_frame_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-66 15,-66 15,-42 148,-42 148,-66"/>
+<text text-anchor="middle" x="81.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base -->
+<g id="interface~~util_sort~~CalledByGraph_edge5" class="edge">
+<title>interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.1,-54C165.95,-54 185.42,-54 203.78,-54"/>
+<polygon fill="#000000" stroke="#000000" points="203.85,-57.5 213.85,-54 203.85,-50.5 203.85,-57.5"/>
+</g>
+<!-- interface~util_valid_id_system -->
+<g id="interface~~util_sort~~CalledByGraph_node6" class="node">
 <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>
+<g id="a_interface~~util_sort~~CalledByGraph_node6"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="135.5,-108 27.5,-108 27.5,-84 135.5,-84 135.5,-108"/>
+<text text-anchor="middle" x="81.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
 <!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
-<g id="interface~~util_sort~~CalledByGraph_edge2" class="edge">
+<g id="interface~~util_sort~~CalledByGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.55,-96C160.4,-96 190.19,-96 216.21,-96"/>
+<polygon fill="#000000" stroke="#000000" points="216.35,-99.5 226.35,-96 216.35,-92.5 216.35,-99.5"/>
+</g>
+<!-- interface~netcdf_write_particle_info_base -->
+<g id="interface~~util_sort~~CalledByGraph_node7" class="node">
+<title>interface~netcdf_write_particle_info_base</title>
+<g id="a_interface~~util_sort~~CalledByGraph_node7"><a xlink:href=".././interface/netcdf_write_particle_info_base.html" xlink:title="netcdf_write_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="163,-24 0,-24 0,0 163,0 163,-24"/>
+<text text-anchor="middle" x="81.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base -->
+<g id="interface~~util_sort~~CalledByGraph_edge6" class="edge">
+<title>interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.2,-12C171.67,-12 180.33,-12 188.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="188.93,-15.5 198.93,-12 188.93,-8.5 188.93,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/util_sort_body.html b/docs/interface/util_sort_body.html
index 82338b6ee..6bba97cb8 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_pl -->
+<!-- proc~util_sort_tp -->
 <g id="interface~~util_sort_body~~CalledByGraph_node2" class="node">
-<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>
+<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>
 </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_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- proc~util_sort_tp -->
+<!-- proc~util_sort_pl -->
 <g id="interface~~util_sort_body~~CalledByGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_pl&#45;&gt;proc~util_sort_pl -->
-<g id="interface~~util_sort_body~~CalledByGraph_edge3" class="edge">
+<g id="interface~~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,-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"/>
+<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_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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_tp&#45;&gt;proc~util_sort_tp -->
-<g id="interface~~util_sort_body~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_sort_body~~CalledByGraph_edge3" 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,-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,-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"/>
 </g>
 </g>
 </svg>
@@ -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~236"></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 8735802d6..08431b884 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~187"></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/interface/util_sort_rearrange.html b/docs/interface/util_sort_rearrange.html
new file mode 100644
index 000000000..b9e8d63ed
--- /dev/null
+++ b/docs/interface/util_sort_rearrange.html
@@ -0,0 +1,550 @@
+<!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_sort_rearrange &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_sort_rearrange
+   <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="<p> 0.0% of total for procedures.</p>Including implementation: 8 statements,  0.0% of total for procedures.">8 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">util_sort_rearrange</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="#subs-0">Subroutines</a></h3></div>
+  <div class="list-group">
+    <div id="subs-0" class="panel-collapse collapse">
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange.html#proc-symba_util_sort_rearrange_arr_kin">symba_util_sort_rearrange_arr_kin</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface util_sort_rearrange</h2>
+   
+     
+     
+    <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~~util_sort_rearrange~~CalledByGraph Pages: 1 -->
+<svg id="interfaceutil_sort_rearrangeCalledByGraph" width="495pt" height="74pt"
+ viewBox="0.00 0.00 495.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_sort_rearrange~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~util_sort_rearrange~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 491,-70 491,4 -4,4"/>
+<!-- interface~util_sort_rearrange -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_node1" class="node">
+<title>interface~util_sort_rearrange</title>
+<polygon fill="none" stroke="black" points="487,-45 384,-45 384,-21 487,-21 487,-45"/>
+<text text-anchor="middle" x="435.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort_rearrange</text>
+</g>
+<!-- proc~symba_util_sort_rearrange_tp -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_node2" class="node">
+<title>proc~symba_util_sort_rearrange_tp</title>
+<g id="a_interface~~util_sort_rearrange~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
+<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_util_sort_rearrange_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M348.44,-44.05C357.01,-42.95 365.64,-41.84 373.95,-40.78"/>
+<polygon fill="#000000" stroke="#000000" points="374.44,-44.24 383.92,-39.5 373.55,-37.3 374.44,-44.24"/>
+</g>
+<!-- proc~symba_util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_node3" class="node">
+<title>proc~symba_util_sort_rearrange_pl</title>
+<g id="a_interface~~util_sort_rearrange~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="347.5,-24 192.5,-24 192.5,0 347.5,0 347.5,-24"/>
+<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M347.96,-21.89C356.56,-22.99 365.23,-24.1 373.58,-25.18"/>
+<polygon fill="#000000" stroke="#000000" points="373.23,-28.66 383.6,-26.46 374.12,-21.72 373.23,-28.66"/>
+</g>
+<!-- interface~symba_util_sort_rearrange_tp -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_node4" class="node">
+<title>interface~symba_util_sort_rearrange_tp</title>
+<g id="a_interface~~util_sort_rearrange~~CalledByGraph_node4"><a xlink:href=".././interface/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
+<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_util_sort_rearrange_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_edge3" 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="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"/>
+</g>
+<!-- interface~symba_util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_node5" class="node">
+<title>interface~symba_util_sort_rearrange_pl</title>
+<g id="a_interface~~util_sort_rearrange~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-24 0.5,-24 0.5,0 155.5,0 155.5,-24"/>
+<text text-anchor="middle" x="78" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange~~CalledByGraph_edge4" 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="M155.73,-12C164.39,-12 173.27,-12 182.04,-12"/>
+<polygon fill="#000000" stroke="#000000" points="182.29,-15.5 192.29,-12 182.29,-8.5 182.29,-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>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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="../interface/util_sort_rearrange.html#proc-symba_util_sort_rearrange_arr_kin">symba_util_sort_rearrange_arr_kin</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+  
+
+  
+   <h2>Subroutines</h2>
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_sort_rearrange_arr_kin"></span><h3>
+public subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n)
+    
+    
+   
+</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>type(<a href='../type/symba_kinship.html'>symba_kinship</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+     
+
+  
+
+ </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/util_sort_rearrange_body.html b/docs/interface/util_sort_rearrange_body.html
index cb9414e83..257dc2b45 100644
--- a/docs/interface/util_sort_rearrange_body.html
+++ b/docs/interface/util_sort_rearrange_body.html
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_sort_rearrange_body~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_sort_rearrange_bodyCallsGraph" width="310pt" height="32pt"
- viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfaceutil_sort_rearrange_bodyCallsGraph" width="449pt" height="32pt"
+ viewBox="0.00 0.00 449.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~util_sort_rearrange_body~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~util_sort_rearrange_body~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 445,-28 445,4 -4,4"/>
 <!-- interface~util_sort_rearrange_body -->
 <g id="interface~~util_sort_rearrange_body~~CallsGraph_node1" class="node">
 <title>interface~util_sort_rearrange_body</title>
@@ -246,6 +246,21 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
 <polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-15.5"/>
 </g>
+<!-- interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange_body~~CallsGraph_node3" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_interface~~util_sort_rearrange_body~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="441,-24 338,-24 338,0 441,0 441,-24"/>
+<text text-anchor="middle" x="389.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange_body~~CallsGraph_edge2" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M302.29,-12C310.73,-12 319.34,-12 327.7,-12"/>
+<polygon fill="#000000" stroke="#000000" points="327.74,-15.5 337.74,-12 327.74,-8.5 327.74,-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-self~183"></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/interface/util_sort_rearrange_pl.html b/docs/interface/util_sort_rearrange_pl.html
index 8b5c51ab8..feec55a66 100644
--- a/docs/interface/util_sort_rearrange_pl.html
+++ b/docs/interface/util_sort_rearrange_pl.html
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_sort_rearrange_plCallsGraph" 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~~util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfaceutil_sort_rearrange_plCallsGraph" width="641pt" height="44pt"
+ viewBox="0.00 0.00 641.00 44.03" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 48)">
 <title>interface~~util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 614,-28 614,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 753,-48 753,4 -4,4"/>
 <!-- interface~util_sort_rearrange_pl -->
 <g id="interface~~util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>interface~util_sort_rearrange_pl</title>
@@ -250,35 +250,56 @@ <h3 class="panel-title">Calls</h3>
 <g id="interface~~util_sort_rearrange_pl~~CallsGraph_node3" class="node">
 <title>interface~util_sort_rearrange_body</title>
 <g id="a_interface~~util_sort_rearrange_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="441,-24 308,-24 308,0 441,0 441,-24"/>
-<text text-anchor="middle" x="374.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="441,-44 308,-44 308,-20 441,-20 441,-44"/>
+<text text-anchor="middle" x="374.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body -->
 <g id="interface~~util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
 <title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" d="M272.03,-12C280.42,-12 289.15,-12 297.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="297.95,-15.5 307.95,-12 297.95,-8.5 297.95,-15.5"/>
+<path fill="none" stroke="#000000" d="M272.03,-19.28C280.42,-20.33 289.15,-21.42 297.82,-22.51"/>
+<polygon fill="#000000" stroke="#000000" points="297.59,-26.01 307.95,-23.78 298.46,-19.06 297.59,-26.01"/>
 </g>
-<!-- proc~util_sort_rearrange_body -->
+<!-- interface~util_sort_rearrange~2 -->
 <g id="interface~~util_sort_rearrange_pl~~CallsGraph_node4" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_interface~~util_sort_rearrange_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="749,-24 646,-24 646,0 749,0 749,-24"/>
+<text text-anchor="middle" x="697.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange_pl~~CallsGraph_edge3" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M272.17,-11.28C284.02,-11.17 296.41,-11.06 308,-11 442.22,-10.29 475.78,-10.22 610,-11 618.31,-11.05 627.07,-11.12 635.7,-11.21"/>
+<polygon fill="#000000" stroke="#000000" points="635.69,-14.71 645.73,-11.32 635.77,-7.71 635.69,-14.71"/>
+</g>
+<!-- proc~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange_pl~~CallsGraph_node5" class="node">
 <title>proc~util_sort_rearrange_body</title>
-<g id="a_interface~~util_sort_rearrange_pl~~CallsGraph_node4"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="610,-24 477,-24 477,0 610,0 610,-24"/>
-<text text-anchor="middle" x="543.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<g id="a_interface~~util_sort_rearrange_pl~~CallsGraph_node5"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="610,-44 477,-44 477,-20 610,-20 610,-44"/>
+<text text-anchor="middle" x="543.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
-<g id="interface~~util_sort_rearrange_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_sort_rearrange_pl~~CallsGraph_edge4" 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="M441.02,-12C449.5,-12 458.23,-12 466.85,-12"/>
-<polygon fill="#000000" stroke="#000000" points="466.89,-15.5 476.89,-12 466.89,-8.5 466.89,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.02,-32C449.5,-32 458.23,-32 466.85,-32"/>
+<polygon fill="#000000" stroke="#000000" points="466.89,-35.5 476.89,-32 466.89,-28.5 466.89,-35.5"/>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange_pl~~CallsGraph_edge5" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M610.29,-23.34C618.73,-22.23 627.34,-21.1 635.7,-20"/>
+<polygon fill="#000000" stroke="#000000" points="636.28,-23.45 645.74,-18.68 635.37,-16.51 636.28,-23.45"/>
 </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 paninterfaceutil_sort_rearrange_plCallsGraph = svgPanZoom('#interfaceutil_sort_rearrange_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"
@@ -376,7 +397,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~234"></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 b5204386f..cbdb70a2c 100644
--- a/docs/interface/util_sort_rearrange_tp.html
+++ b/docs/interface/util_sort_rearrange_tp.html
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_sort_rearrange_tp~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_sort_rearrange_tpCallsGraph" 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~~util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfaceutil_sort_rearrange_tpCallsGraph" width="641pt" height="44pt"
+ viewBox="0.00 0.00 641.00 44.03" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 48)">
 <title>interface~~util_sort_rearrange_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 614,-28 614,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 753,-48 753,4 -4,4"/>
 <!-- interface~util_sort_rearrange_tp -->
 <g id="interface~~util_sort_rearrange_tp~~CallsGraph_node1" class="node">
 <title>interface~util_sort_rearrange_tp</title>
@@ -250,35 +250,56 @@ <h3 class="panel-title">Calls</h3>
 <g id="interface~~util_sort_rearrange_tp~~CallsGraph_node3" class="node">
 <title>interface~util_sort_rearrange_body</title>
 <g id="a_interface~~util_sort_rearrange_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="441,-24 308,-24 308,0 441,0 441,-24"/>
-<text text-anchor="middle" x="374.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="441,-44 308,-44 308,-20 441,-20 441,-44"/>
+<text text-anchor="middle" x="374.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body -->
 <g id="interface~~util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
 <title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" d="M272.03,-12C280.42,-12 289.15,-12 297.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="297.95,-15.5 307.95,-12 297.95,-8.5 297.95,-15.5"/>
+<path fill="none" stroke="#000000" d="M272.03,-19.28C280.42,-20.33 289.15,-21.42 297.82,-22.51"/>
+<polygon fill="#000000" stroke="#000000" points="297.59,-26.01 307.95,-23.78 298.46,-19.06 297.59,-26.01"/>
 </g>
-<!-- proc~util_sort_rearrange_body -->
+<!-- interface~util_sort_rearrange~2 -->
 <g id="interface~~util_sort_rearrange_tp~~CallsGraph_node4" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_interface~~util_sort_rearrange_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="749,-24 646,-24 646,0 749,0 749,-24"/>
+<text text-anchor="middle" x="697.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange_tp~~CallsGraph_edge3" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M272.17,-11.28C284.02,-11.17 296.41,-11.06 308,-11 442.22,-10.29 475.78,-10.22 610,-11 618.31,-11.05 627.07,-11.12 635.7,-11.21"/>
+<polygon fill="#000000" stroke="#000000" points="635.69,-14.71 645.73,-11.32 635.77,-7.71 635.69,-14.71"/>
+</g>
+<!-- proc~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange_tp~~CallsGraph_node5" class="node">
 <title>proc~util_sort_rearrange_body</title>
-<g id="a_interface~~util_sort_rearrange_tp~~CallsGraph_node4"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="610,-24 477,-24 477,0 610,0 610,-24"/>
-<text text-anchor="middle" x="543.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<g id="a_interface~~util_sort_rearrange_tp~~CallsGraph_node5"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="610,-44 477,-44 477,-20 610,-20 610,-44"/>
+<text text-anchor="middle" x="543.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
-<g id="interface~~util_sort_rearrange_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_sort_rearrange_tp~~CallsGraph_edge4" 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="M441.02,-12C449.5,-12 458.23,-12 466.85,-12"/>
-<polygon fill="#000000" stroke="#000000" points="466.89,-15.5 476.89,-12 466.89,-8.5 466.89,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.02,-32C449.5,-32 458.23,-32 466.85,-32"/>
+<polygon fill="#000000" stroke="#000000" points="466.89,-35.5 476.89,-32 466.89,-28.5 466.89,-35.5"/>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange_tp~~CallsGraph_edge5" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M610.29,-23.34C618.73,-22.23 627.34,-21.1 635.7,-20"/>
+<polygon fill="#000000" stroke="#000000" points="636.28,-23.45 645.74,-18.68 635.37,-16.51 636.28,-23.45"/>
 </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 paninterfaceutil_sort_rearrange_tpCallsGraph = svgPanZoom('#interfaceutil_sort_rearrange_tpCallsGraph', {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"
@@ -376,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~185"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~235"></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_rearrange~2.html b/docs/interface/util_sort_rearrange~2.html
new file mode 100644
index 000000000..f98a5c071
--- /dev/null
+++ b/docs/interface/util_sort_rearrange~2.html
@@ -0,0 +1,1017 @@
+<!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_sort_rearrange &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_sort_rearrange
+   <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="<p> 0.1% of total for procedures.</p>Including implementation: 38 statements,  0.1% of total for procedures.">38 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">util_sort_rearrange</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="#subs-0">Subroutines</a></h3></div>
+  <div class="list-group">
+    <div id="subs-0" class="panel-collapse collapse">
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_char_string">util_sort_rearrange_arr_char_string</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_dp">util_sort_rearrange_arr_DP</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_dpvec">util_sort_rearrange_arr_DPvec</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_i4b">util_sort_rearrange_arr_I4B</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_info">util_sort_rearrange_arr_info</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_logical">util_sort_rearrange_arr_logical</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>public interface util_sort_rearrange</h2>
+   
+     
+     
+    <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~~util_sort_rearrange~2~~CalledByGraph Pages: 1 -->
+<svg id="interfaceutil_sort_rearrange2CalledByGraph" width="641pt" height="79pt"
+ viewBox="0.00 0.00 641.00 78.75" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 89)">
+<title>interface~~util_sort_rearrange~2~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-89 753,-89 753,4 -4,4"/>
+<!-- interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node1" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<polygon fill="none" stroke="black" points="749,-55 646,-55 646,-31 749,-31 749,-55"/>
+<text text-anchor="middle" x="697.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort_rearrange</text>
+</g>
+<!-- proc~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node2" class="node">
+<title>proc~util_sort_rearrange_body</title>
+<g id="a_interface~~util_sort_rearrange~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="610,-55 477,-55 477,-31 610,-31 610,-55"/>
+<text text-anchor="middle" x="543.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge1" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M610.29,-43C618.73,-43 627.34,-43 635.7,-43"/>
+<polygon fill="#000000" stroke="#000000" points="635.74,-46.5 645.74,-43 635.74,-39.5 635.74,-46.5"/>
+</g>
+<!-- proc~util_sort_rearrange_tp -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node3" class="node">
+<title>proc~util_sort_rearrange_tp</title>
+<g id="a_interface~~util_sort_rearrange~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="272,-85 154,-85 154,-61 272,-61 272,-85"/>
+<text text-anchor="middle" x="213" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge2" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M272.01,-75.57C349.44,-78.11 490.68,-79.65 610,-64 621.38,-62.51 633.43,-60.11 644.81,-57.47"/>
+<polygon fill="#000000" stroke="#000000" points="645.71,-60.85 654.61,-55.09 644.06,-54.05 645.71,-60.85"/>
+</g>
+<!-- interface~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node6" class="node">
+<title>interface~util_sort_rearrange_body</title>
+<g id="a_interface~~util_sort_rearrange~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="441,-55 308,-55 308,-31 441,-31 441,-55"/>
+<text text-anchor="middle" x="374.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge7" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" d="M272.03,-62.08C281,-60.4 290.35,-58.64 299.61,-56.9"/>
+<polygon fill="#000000" stroke="#000000" points="300.4,-60.31 309.58,-55.02 299.1,-53.43 300.4,-60.31"/>
+</g>
+<!-- proc~util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node4" class="node">
+<title>proc~util_sort_rearrange_pl</title>
+<g id="a_interface~~util_sort_rearrange~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="272,-24 154,-24 154,0 272,0 272,-24"/>
+<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge3" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M272.01,-9.62C349.45,-7.33 490.69,-6.19 610,-22 621.37,-23.51 633.43,-25.91 644.81,-28.55"/>
+<polygon fill="#000000" stroke="#000000" points="644.06,-31.97 654.6,-30.93 645.71,-25.17 644.06,-31.97"/>
+</g>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge8" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" d="M272.03,-23.28C281.72,-25.16 291.87,-27.13 301.85,-29.07"/>
+<polygon fill="#000000" stroke="#000000" points="301.26,-32.53 311.75,-31 302.6,-25.65 301.26,-32.53"/>
+</g>
+<!-- interface~util_sort_rearrange_tp -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node5" class="node">
+<title>interface~util_sort_rearrange_tp</title>
+<g id="a_interface~~util_sort_rearrange~2~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="118,-85 0,-85 0,-61 118,-61 118,-85"/>
+<text text-anchor="middle" x="59" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_sort_rearrange_tp&#45;&gt;proc~util_sort_rearrange_tp -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge5" 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="M118.33,-73C126.61,-73 135.17,-73 143.62,-73"/>
+<polygon fill="#000000" stroke="#000000" points="143.82,-76.5 153.82,-73 143.82,-69.5 143.82,-76.5"/>
+</g>
+<!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_edge4" 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="M441.02,-43C449.5,-43 458.23,-43 466.85,-43"/>
+<polygon fill="#000000" stroke="#000000" points="466.89,-46.5 476.89,-43 466.89,-39.5 466.89,-46.5"/>
+</g>
+<!-- interface~util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange~2~~CalledByGraph_node7" class="node">
+<title>interface~util_sort_rearrange_pl</title>
+<g id="a_interface~~util_sort_rearrange~2~~CalledByGraph_node7"><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~2~~CalledByGraph_edge6" 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><script>var paninterfaceutil_sort_rearrange2CalledByGraph = svgPanZoom('#interfaceutil_sort_rearrange2CalledByGraph', {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>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_char_string">util_sort_rearrange_arr_char_string</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_dp">util_sort_rearrange_arr_DP</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_dpvec">util_sort_rearrange_arr_DPvec</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_i4b">util_sort_rearrange_arr_I4B</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_info">util_sort_rearrange_arr_info</a>
+      
+      <a class="list-group-item" href="../interface/util_sort_rearrange~2.html#proc-util_sort_rearrange_arr_logical">util_sort_rearrange_arr_logical</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+     </section>
+     <br class="visible-xs visible-sm hidden-md">
+     
+  
+
+  
+   <h2>Subroutines</h2>
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_char_string"></span><h3>
+public subroutine util_sort_rearrange_arr_char_string(arr, ind, n)
+    
+    
+   
+</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>character(len=STRMAX),</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_dp"></span><h3>
+public subroutine util_sort_rearrange_arr_DP(arr, ind, n)
+    
+    
+   
+</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>real(kind=DP),</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_dpvec"></span><h3>
+public subroutine util_sort_rearrange_arr_DPvec(arr, ind, n)
+    
+    
+   
+</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>real(kind=DP),</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_i4b"></span><h3>
+public subroutine util_sort_rearrange_arr_I4B(arr, ind, n)
+    
+    
+   
+</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>integer(kind=I4B),</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_info"></span><h3>
+public subroutine util_sort_rearrange_arr_info(arr, ind, n)
+    
+    
+   
+</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_logical"></span><h3>
+public subroutine util_sort_rearrange_arr_logical(arr, ind, n)
+    
+    
+   
+</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>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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+     
+
+  
+
+ </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/util_sort_tp.html b/docs/interface/util_sort_tp.html
index eb3c5f115..2a7aa30e7 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~188"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~238"></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 92f3173ce..3b26ef0ec 100644
--- a/docs/interface/util_spill.html
+++ b/docs/interface/util_spill.html
@@ -134,7 +134,7 @@ <h1>util_spill
      <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: 16 statements,  0.0% of total for procedures.">16 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 9 statements,  0.0% of total for procedures.">9 statements</a>
      </li> 
      
      
@@ -190,8 +190,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-0" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_spill.html#proc-symba_util_spill_arr_info">symba_util_spill_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_spill.html#proc-symba_util_spill_arr_kin">symba_util_spill_arr_kin</a>
       
     </div>
@@ -227,106 +225,106 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_spill~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_spillCalledByGraph" width="390pt" height="116pt"
- viewBox="0.00 0.00 390.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfaceutil_spillCalledByGraph" width="418pt" height="116pt"
+ viewBox="0.00 0.00 418.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~util_spill~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>interface~~util_spill~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 386,-112 386,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 414,-112 414,4 -4,4"/>
 <!-- interface~util_spill -->
 <g id="interface~~util_spill~~CalledByGraph_node1" class="node">
 <title>interface~util_spill</title>
-<polygon fill="none" stroke="black" points="382,-66 328,-66 328,-42 382,-42 382,-66"/>
-<text text-anchor="middle" x="355" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill</text>
+<polygon fill="none" stroke="black" points="410,-66 356,-66 356,-42 410,-42 410,-66"/>
+<text text-anchor="middle" x="383" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill</text>
 </g>
-<!-- proc~symba_util_spill_pl -->
+<!-- proc~symba_util_spill_tp -->
 <g id="interface~~util_spill~~CalledByGraph_node2" class="node">
-<title>proc~symba_util_spill_pl</title>
-<g id="a_interface~~util_spill~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="279,-108 177,-108 177,-84 279,-84 279,-108"/>
-<text text-anchor="middle" x="228" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
+<title>proc~symba_util_spill_tp</title>
+<g id="a_interface~~util_spill~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="300.5,-108 197.5,-108 197.5,-84 300.5,-84 300.5,-108"/>
+<text text-anchor="middle" x="249" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
 <g id="interface~~util_spill~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M265.32,-83.93C274.06,-81.01 283.37,-77.9 292,-75 300.44,-72.16 309.52,-69.1 318.06,-66.21"/>
-<polygon fill="#000000" stroke="#000000" points="319.42,-69.44 327.76,-62.92 317.17,-62.81 319.42,-69.44"/>
+<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M291.16,-83.91C300.65,-81.05 310.69,-77.97 320,-75 328.48,-72.29 337.58,-69.28 346.12,-66.39"/>
+<polygon fill="#000000" stroke="#000000" points="347.48,-69.63 355.82,-63.09 345.23,-63 347.48,-69.63"/>
 </g>
-<!-- proc~symba_util_spill_tp -->
+<!-- proc~symba_util_spill_encounter -->
 <g id="interface~~util_spill~~CalledByGraph_node3" class="node">
-<title>proc~symba_util_spill_tp</title>
-<g id="a_interface~~util_spill~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="279.5,-66 176.5,-66 176.5,-42 279.5,-42 279.5,-66"/>
-<text text-anchor="middle" x="228" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
+<title>proc~symba_util_spill_encounter</title>
+<g id="a_interface~~util_spill~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_spill_encounter.html" xlink:title="symba_util_spill_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="320,-66 178,-66 178,-42 320,-42 320,-66"/>
+<text text-anchor="middle" x="249" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<!-- proc~symba_util_spill_encounter&#45;&gt;interface~util_spill -->
 <g id="interface~~util_spill~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M279.84,-54C292.47,-54 305.75,-54 317.54,-54"/>
-<polygon fill="#000000" stroke="#000000" points="317.87,-57.5 327.87,-54 317.87,-50.5 317.87,-57.5"/>
+<title>proc~symba_util_spill_encounter&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M320.25,-54C329.07,-54 337.79,-54 345.77,-54"/>
+<polygon fill="#000000" stroke="#000000" points="345.79,-57.5 355.79,-54 345.79,-50.5 345.79,-57.5"/>
 </g>
-<!-- proc~symba_util_spill_pltpenc -->
+<!-- proc~symba_util_spill_pl -->
 <g id="interface~~util_spill~~CalledByGraph_node4" class="node">
-<title>proc~symba_util_spill_pltpenc</title>
-<g id="a_interface~~util_spill~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="292,-24 164,-24 164,0 292,0 292,-24"/>
-<text text-anchor="middle" x="228" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
+<title>proc~symba_util_spill_pl</title>
+<g id="a_interface~~util_spill~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="300,-24 198,-24 198,0 300,0 300,-24"/>
+<text text-anchor="middle" x="249" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
+<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
 <g id="interface~~util_spill~~CalledByGraph_edge3" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
-<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"/>
+<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M291.16,-24.09C300.65,-26.95 310.69,-30.03 320,-33 328.48,-35.71 337.58,-38.72 346.12,-41.61"/>
+<polygon fill="#000000" stroke="#000000" points="345.23,-45 355.82,-44.91 347.48,-38.37 345.23,-45"/>
 </g>
-<!-- interface~symba_util_spill_pltpenc -->
+<!-- interface~symba_util_spill_encounter -->
 <g id="interface~~util_spill~~CalledByGraph_node5" class="node">
-<title>interface~symba_util_spill_pltpenc</title>
-<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>
+<title>interface~symba_util_spill_encounter</title>
+<g id="a_interface~~util_spill~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_spill_encounter.html" xlink:title="symba_util_spill_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-66 0,-66 0,-42 142,-42 142,-66"/>
+<text text-anchor="middle" x="71" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc -->
-<g id="interface~~util_spill~~CalledByGraph_edge6" 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="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"/>
+<!-- interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter -->
+<g id="interface~~util_spill~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.07,-54C150.54,-54 159.25,-54 167.85,-54"/>
+<polygon fill="#000000" stroke="#000000" points="167.89,-57.5 177.89,-54 167.89,-50.5 167.89,-57.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>
+<polygon fill="#a7506f" stroke="#a7506f" points="122.5,-108 19.5,-108 19.5,-84 122.5,-84 122.5,-108"/>
+<text text-anchor="middle" x="71" y="-93.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">
+<g id="interface~~util_spill~~CalledByGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.91,-96C142.97,-96 166.19,-96 187.13,-96"/>
+<polygon fill="#000000" stroke="#000000" points="187.21,-99.5 197.21,-96 187.21,-92.5 187.21,-99.5"/>
 </g>
 <!-- interface~symba_util_spill_pl -->
 <g id="interface~~util_spill~~CalledByGraph_node7" class="node">
 <title>interface~symba_util_spill_pl</title>
 <g id="a_interface~~util_spill~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="115,-108 13,-108 13,-84 115,-84 115,-108"/>
-<text text-anchor="middle" x="64" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="122,-24 20,-24 20,0 122,0 122,-24"/>
+<text text-anchor="middle" x="71" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_spill_pl&#45;&gt;proc~symba_util_spill_pl -->
-<g id="interface~~util_spill~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_spill~~CalledByGraph_edge6" 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="M115.37,-96C131.6,-96 149.75,-96 166.63,-96"/>
-<polygon fill="#000000" stroke="#000000" points="166.94,-99.5 176.94,-96 166.94,-92.5 166.94,-99.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.43,-12C142.77,-12 166.41,-12 187.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="187.86,-15.5 197.86,-12 187.86,-8.5 187.86,-15.5"/>
 </g>
 </g>
 </svg>
@@ -417,8 +415,6 @@ <h3>Contents</h3>
   <div class="list-group">
     <div id="subs-1" class="panel-collapse collapse">
       
-      <a class="list-group-item" href="../interface/util_spill.html#proc-symba_util_spill_arr_info">symba_util_spill_arr_info</a>
-      
       <a class="list-group-item" href="../interface/util_spill.html#proc-symba_util_spill_arr_kin">symba_util_spill_arr_kin</a>
       
     </div>
@@ -443,102 +439,6 @@ <h3>Contents</h3>
    <h2>Subroutines</h2>
    
     
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_spill_arr_info"></span><h3>
-public subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
-    
-    
-   
-</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>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>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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>discards</strong></td><td><p>Array of discards</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-   
-    
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_spill_arr_kin"></span><h3>
 public subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive)
diff --git a/docs/interface/util_spill_body.html b/docs/interface/util_spill_body.html
index 315787f4c..b91abcdca 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_pl -->
+<!-- proc~util_spill_tp -->
 <g id="interface~~util_spill_body~~CalledByGraph_node2" class="node">
-<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>
+<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>
 </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_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- proc~util_spill_tp -->
+<!-- proc~util_spill_pl -->
 <g id="interface~~util_spill_body~~CalledByGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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_body~~CalledByGraph_edge3" class="edge">
+<g id="interface~~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,-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"/>
+<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_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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
-<g id="interface~~util_spill_body~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_spill_body~~CalledByGraph_edge3" 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,-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"/>
 </g>
 </g>
 </svg>
@@ -507,7 +507,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~239"></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 f1820deb8..a3470209c 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~190"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~240"></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 406b283d7..5b6952a8c 100644
--- a/docs/interface/util_spill_pl.html
+++ b/docs/interface/util_spill_pl.html
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~191"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~241"></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 ce05af376..845f713a3 100644
--- a/docs/interface/util_spill_tp.html
+++ b/docs/interface/util_spill_tp.html
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~192"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~242"></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 4dbb599ca..2de54f1e1 100644
--- a/docs/interface/util_spill~2.html
+++ b/docs/interface/util_spill~2.html
@@ -134,7 +134,7 @@ <h1>util_spill
      <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: 37 statements,  0.1% of total for procedures.">37 statements</a>
+    title="<p> 0.1% of total for procedures.</p>Including implementation: 51 statements,  0.1% of total for procedures.">51 statements</a>
      </li> 
      
      
@@ -198,6 +198,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_i4b">util_spill_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_i8b">util_spill_arr_I8B</a>
+      
+      <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_info">util_spill_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_logical">util_spill_arr_logical</a>
       
     </div>
@@ -254,77 +258,77 @@ <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_edge1" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge3" 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_pl -->
+<!-- proc~util_spill_tp -->
 <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>
+<title>proc~util_spill_tp</title>
+<g id="a_interface~~util_spill~2~~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~2 -->
+<!-- proc~util_spill_tp&#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"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M166.4,-7.43C223.9,-0.41 348.04,9.18 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">
+<g id="interface~~util_spill~2~~CalledByGraph_node8" 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">
+<g id="a_interface~~util_spill~2~~CalledByGraph_node8"><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 -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
 <g id="interface~~util_spill~2~~CalledByGraph_edge9" class="edge">
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M166.26,-20.31C178.06,-23.39 191.73,-26.97 204.67,-30.36"/>
+<polygon fill="#000000" stroke="#000000" points="203.83,-33.76 214.39,-32.9 205.6,-26.98 203.83,-33.76"/>
+</g>
+<!-- proc~util_spill_pl -->
+<g id="interface~~util_spill~2~~CalledByGraph_node4" class="node">
+<title>proc~util_spill_pl</title>
+<g id="a_interface~~util_spill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-85 101.5,-85 101.5,-61 165.5,-61 165.5,-85"/>
+<text text-anchor="middle" x="133.5" y="-70.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_edge1" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M165.7,-72.16C234.38,-70.33 398.34,-65.94 471.58,-63.98"/>
+<polygon fill="#000000" stroke="#000000" points="471.8,-67.47 481.71,-63.7 471.62,-60.47 471.8,-67.47"/>
+</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"/>
+<path fill="none" stroke="#000000" d="M165.63,-65.12C177.55,-62.1 191.43,-58.59 204.58,-55.26"/>
+<polygon fill="#000000" stroke="#000000" points="205.61,-58.61 214.45,-52.76 203.9,-51.82 205.61,-58.61"/>
 </g>
 <!-- proc~util_spill_body -->
-<g id="interface~~util_spill~2~~CalledByGraph_node4" class="node">
+<g id="interface~~util_spill~2~~CalledByGraph_node5" class="node">
 <title>proc~util_spill_body</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
+<g id="a_interface~~util_spill~2~~CalledByGraph_node5"><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>
 </g>
 </g>
 <!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge3" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge4" class="edge">
 <title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
 <path fill="none" stroke="#000000" d="M433.57,-49.83C445.96,-52.02 459.63,-54.44 471.84,-56.6"/>
 <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_node5" class="node">
-<title>proc~util_spill_tp</title>
-<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_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>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
-<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>
 <!-- interface~util_spill_encounter -->
 <g id="interface~~util_spill~2~~CalledByGraph_node6" class="node">
 <title>interface~util_spill_encounter</title>
@@ -344,37 +348,37 @@ <h3 class="panel-title">Called by</h3>
 <g id="interface~~util_spill~2~~CalledByGraph_node7" class="node">
 <title>interface~util_spill_pl</title>
 <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>
+<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-85 0.5,-85 0.5,-61 64.5,-61 64.5,-85"/>
+<text text-anchor="middle" x="32.5" y="-70.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_edge6" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge7" 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,-73C72.95,-73 82.17,-73 91.04,-73"/>
+<polygon fill="#000000" stroke="#000000" points="91.22,-76.5 101.22,-73 91.22,-69.5 91.22,-76.5"/>
+</g>
+<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
+<g id="interface~~util_spill~2~~CalledByGraph_edge8" 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_node8" class="node">
+<g id="interface~~util_spill~2~~CalledByGraph_node9" 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>
+<g id="a_interface~~util_spill~2~~CalledByGraph_node9"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
+<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~2~~CalledByGraph_edge8" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge6" 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"/>
+<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>
@@ -473,6 +477,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_i4b">util_spill_arr_I4B</a>
       
+      <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_i8b">util_spill_arr_I8B</a>
+      
+      <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_info">util_spill_arr_info</a>
+      
       <a class="list-group-item" href="../interface/util_spill~2.html#proc-util_spill_arr_logical">util_spill_arr_logical</a>
       
     </div>
@@ -858,6 +866,198 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_spill_arr_i8b"></span><h3>
+public subroutine util_spill_arr_I8B(keeps, discards, lspill_list, ldestructive)
+    
+    
+   
+</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>integer(kind=I8B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I8B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+   
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_spill_arr_info"></span><h3>
+public subroutine util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
+    
+    
+   
+</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
diff --git a/docs/interface/util_valid_id_system.html b/docs/interface/util_valid_id_system.html
index a4695321b..8384e12f9 100644
--- a/docs/interface/util_valid_id_system.html
+++ b/docs/interface/util_valid_id_system.html
@@ -246,33 +246,33 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- interface~util_sort -->
 <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">
+<title>interface~util_sort</title>
+<g id="a_interface~~util_valid_id_system~~CallsGraph_node3"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
 <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>
+<text text-anchor="middle" x="315" y="-51.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_exit -->
-<g id="interface~~util_valid_id_system~~CallsGraph_edge2" class="edge">
-<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<!-- 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,-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 -->
+<!-- interface~util_exit -->
 <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">
+<title>interface~util_exit</title>
+<g id="a_interface~~util_valid_id_system~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
 <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>
+<text text-anchor="middle" x="315" y="-9.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_sort -->
-<g id="interface~~util_valid_id_system~~CallsGraph_edge3" class="edge">
-<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<!-- 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,-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>
@@ -280,16 +280,16 @@ <h3 class="panel-title">Calls</h3>
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="432,-24 378,-24 378,0 432,0 432,-24"/>
+<text text-anchor="middle" x="405" y="-9.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.4,-12C350.39,-12 359.31,-12 367.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="367.92,-15.5 377.92,-12 367.92,-8.5 367.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~193"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~243"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,8 +406,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~138"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/interface/walltime_finish.html b/docs/interface/walltime_finish.html
new file mode 100644
index 000000000..558e8121e
--- /dev/null
+++ b/docs/interface/walltime_finish.html
@@ -0,0 +1,340 @@
+
+<!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>walltime_finish &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>walltime_finish
+   <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.0% of total for procedures.">16 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltime_finish</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 <br>
+      
+public subroutine walltime_finish(self, nsubsteps, message)
+    
+    
+   
+</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~31"></span>class(<a href='../type/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsubsteps~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsubsteps</strong></td><td><p>Number of substeps used to compute the time per step </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-message~2"></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td><p>Message to prepend to the wall time terminal output</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/walltime_reset.html b/docs/interface/walltime_reset.html
new file mode 100644
index 000000000..a2f1ec70e
--- /dev/null
+++ b/docs/interface/walltime_reset.html
@@ -0,0 +1,310 @@
+
+<!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>walltime_reset &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>walltime_reset
+   <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.0% of total for procedures.">16 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltime_reset</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 <br>
+      
+public subroutine walltime_reset(self)
+    
+    
+   
+</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~32"></span>class(<a href='../type/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</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/walltime_start.html b/docs/interface/walltime_start.html
new file mode 100644
index 000000000..9416cc673
--- /dev/null
+++ b/docs/interface/walltime_start.html
@@ -0,0 +1,310 @@
+
+<!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>walltime_start &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>walltime_start
+   <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.0% of total for procedures.">16 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltime_start</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 <br>
+      
+public subroutine walltime_start(self)
+    
+    
+   
+</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~33"></span>class(<a href='../type/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</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/whm_coord_h2j_pl.html b/docs/interface/whm_coord_h2j_pl.html
index 5f71fff43..43789be56 100644
--- a/docs/interface/whm_coord_h2j_pl.html
+++ b/docs/interface/whm_coord_h2j_pl.html
@@ -136,7 +136,7 @@ <h1>whm_coord_h2j_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -246,51 +246,51 @@ <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>
-<!-- eta -->
+<!-- vj -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node3" class="node">
-<title>eta</title>
+<title>vj</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">eta</text>
+<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;vj</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>
-<!-- vj -->
+<!-- vh -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node4" class="node">
-<title>vj</title>
+<title>vh</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">vj</text>
+<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
 <g id="interface~~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;vh</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>
-<!-- xh -->
+<!-- xj -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node5" class="node">
-<title>xh</title>
+<title>xj</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">xh</text>
+<text text-anchor="middle" x="305" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;xj</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>
-<!-- xj -->
+<!-- xh -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node6" class="node">
-<title>xj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="332,-108 278,-108 278,-84 332,-84 332,-108"/>
-<text text-anchor="middle" x="305" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
+<text text-anchor="middle" x="305" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge5" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xj</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
 <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>
@@ -306,15 +306,15 @@ <h3 class="panel-title">Calls</h3>
 <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>
-<!-- vh -->
+<!-- eta -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node8" class="node">
-<title>vh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="332,-24 278,-24 278,0 332,0 332,-24"/>
-<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge7" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vh</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M203.21,-104.96C219.53,-88.32 250.27,-57.57 278,-33 278.83,-32.27 279.67,-31.53 280.53,-30.79"/>
 <polygon fill="#000000" stroke="#000000" points="282.98,-33.31 288.41,-24.21 278.49,-27.93 282.98,-33.31"/>
 </g>
@@ -418,7 +418,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~50"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~51"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -433,7 +433,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~9"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~8"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_coord_j2h_pl.html b/docs/interface/whm_coord_j2h_pl.html
index b14c757a3..827e376e8 100644
--- a/docs/interface/whm_coord_j2h_pl.html
+++ b/docs/interface/whm_coord_j2h_pl.html
@@ -136,7 +136,7 @@ <h1>whm_coord_j2h_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -246,51 +246,51 @@ <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>
-<!-- eta -->
+<!-- vj -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node3" class="node">
-<title>eta</title>
+<title>vj</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">eta</text>
+<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;vj</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>
-<!-- vj -->
+<!-- vh -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node4" class="node">
-<title>vj</title>
+<title>vh</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">vj</text>
+<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
 <g id="interface~~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;vh</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>
-<!-- xh -->
+<!-- xj -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node5" class="node">
-<title>xh</title>
+<title>xj</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">xh</text>
+<text text-anchor="middle" x="305" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;xj</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>
-<!-- xj -->
+<!-- xh -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node6" class="node">
-<title>xj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="332,-108 278,-108 278,-84 332,-84 332,-108"/>
-<text text-anchor="middle" x="305" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
+<text text-anchor="middle" x="305" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge5" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xj</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
 <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>
@@ -306,15 +306,15 @@ <h3 class="panel-title">Calls</h3>
 <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>
-<!-- vh -->
+<!-- eta -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node8" class="node">
-<title>vh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="332,-24 278,-24 278,0 332,0 332,-24"/>
-<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge7" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vh</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M203.21,-104.96C219.53,-88.32 250.27,-57.57 278,-33 278.83,-32.27 279.67,-31.53 280.53,-30.79"/>
 <polygon fill="#000000" stroke="#000000" points="282.98,-33.31 288.41,-24.21 278.49,-27.93 282.98,-33.31"/>
 </g>
@@ -418,7 +418,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~51"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~52"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -433,7 +433,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~10"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~9"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_coord_vh2vj_pl.html b/docs/interface/whm_coord_vh2vj_pl.html
index feae469a6..fd37b006c 100644
--- a/docs/interface/whm_coord_vh2vj_pl.html
+++ b/docs/interface/whm_coord_vh2vj_pl.html
@@ -136,7 +136,7 @@ <h1>whm_coord_vh2vj_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -246,51 +246,51 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M113.07,-75C121.49,-75 130.24,-75 138.84,-75"/>
 <polygon fill="#000000" stroke="#000000" points="138.85,-78.5 148.85,-75 138.85,-71.5 138.85,-78.5"/>
 </g>
-<!-- vj -->
+<!-- eta -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_node3" class="node">
-<title>vj</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="352,-150 298,-150 298,-126 352,-126 352,-150"/>
-<text text-anchor="middle" x="325" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<text text-anchor="middle" x="325" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
-<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</title>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
+<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge3" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</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>
-<!-- vh -->
+<!-- vj -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_node4" class="node">
-<title>vh</title>
+<title>vj</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">vh</text>
+<text text-anchor="middle" x="325" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- 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;vh</title>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
+<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge4" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</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>
-<!-- eta -->
+<!-- gmpl -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_node5" class="node">
-<title>eta</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="352,-66 298,-66 298,-42 352,-42 352,-66"/>
-<text text-anchor="middle" x="325" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
+<text text-anchor="middle" x="325" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
-<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</title>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
+<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge2" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</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>
-<!-- gmpl -->
+<!-- vh -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_node6" class="node">
-<title>gmpl</title>
+<title>vh</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">gmpl</text>
+<text text-anchor="middle" x="325" y="-9.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_edge5" 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="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>
@@ -394,7 +394,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~52"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~53"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -409,7 +409,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~11"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~10"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_drift_pl.html b/docs/interface/whm_drift_pl.html
index 91e0d6de0..9e2cbfb71 100644
--- a/docs/interface/whm_drift_pl.html
+++ b/docs/interface/whm_drift_pl.html
@@ -136,7 +136,7 @@ <h1>whm_drift_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -253,7 +253,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="245" y="-51.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="interface~~whm_drift_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~whm_drift_pl~~CallsGraph_edge3" class="edge">
 <title>proc~whm_drift_pl&#45;&gt;drift_all</title>
 <path fill="none" stroke="#000000" d="M182.25,-40.7C190.6,-42.5 199.49,-44.41 207.85,-46.21"/>
 <polygon fill="#000000" stroke="#000000" points="207.21,-49.66 217.72,-48.34 208.68,-42.81 207.21,-49.66"/>
@@ -265,7 +265,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="245" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~whm_drift_pl&#45;&gt;util_exit -->
-<g id="interface~~whm_drift_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~whm_drift_pl~~CallsGraph_edge2" class="edge">
 <title>proc~whm_drift_pl&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M182.25,-25.3C190.6,-23.5 199.49,-21.59 207.85,-19.79"/>
 <polygon fill="#000000" stroke="#000000" points="208.68,-23.19 217.72,-17.66 207.21,-16.34 208.68,-23.19"/>
@@ -370,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~53"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~54"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,7 +400,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~38"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -415,7 +415,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~32"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~33"></span>real(kind=DP),</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 166e9c9c3..84f199d5c 100644
--- a/docs/interface/whm_gr_kick_getacch_pl.html
+++ b/docs/interface/whm_gr_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>whm_gr_kick_getacch_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~58"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~60"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_gr_kick_getacch_tp.html b/docs/interface/whm_gr_kick_getacch_tp.html
index cad2c76e4..0b1610dae 100644
--- a/docs/interface/whm_gr_kick_getacch_tp.html
+++ b/docs/interface/whm_gr_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>whm_gr_kick_getacch_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~59"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~61"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_gr_p4_pl.html b/docs/interface/whm_gr_p4_pl.html
index ea4dd3832..a93e9e8f2 100644
--- a/docs/interface/whm_gr_p4_pl.html
+++ b/docs/interface/whm_gr_p4_pl.html
@@ -136,7 +136,7 @@ <h1>whm_gr_p4_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~60"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~62"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~35"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~36"></span>real(kind=DP),</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 82e4ca5fb..7408da209 100644
--- a/docs/interface/whm_gr_p4_tp.html
+++ b/docs/interface/whm_gr_p4_tp.html
@@ -136,7 +136,7 @@ <h1>whm_gr_p4_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~61"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~63"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~36"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~37"></span>real(kind=DP),</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 f90520af4..4da39415a 100644
--- a/docs/interface/whm_kick_getacch_pl.html
+++ b/docs/interface/whm_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>whm_kick_getacch_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -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_ah1 -->
+<!-- proc~whm_kick_getacch_ah0 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_node3" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
 <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>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</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_ah2 -->
+<!-- proc~whm_kick_getacch_ah1 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_node4" class="node">
-<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">
+<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">
 <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_ah2</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_ah1</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_ah1 -->
 <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>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</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_ah0 -->
+<!-- proc~whm_kick_getacch_ah2 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_node5" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</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>
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~54"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~56"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -436,7 +436,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~22"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~23"></span>real(kind=DP),</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 f574a16ee..d07b8e524 100644
--- a/docs/interface/whm_kick_getacch_tp.html
+++ b/docs/interface/whm_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>whm_kick_getacch_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~55"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~57"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~23"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~24"></span>real(kind=DP),</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 1e1b8ad0b..522e713fa 100644
--- a/docs/interface/whm_kick_vh_pl.html
+++ b/docs/interface/whm_kick_vh_pl.html
@@ -136,7 +136,7 @@ <h1>whm_kick_vh_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~56"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~58"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~24"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~25"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~33"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~34"></span>real(kind=DP),</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 f6f1732f5..b4072c043 100644
--- a/docs/interface/whm_kick_vh_tp.html
+++ b/docs/interface/whm_kick_vh_tp.html
@@ -136,7 +136,7 @@ <h1>whm_kick_vh_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~57"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~59"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~25"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~26"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~34"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~35"></span>real(kind=DP),</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 341b1645c..f5df41c24 100644
--- a/docs/interface/whm_setup_initialize_system.html
+++ b/docs/interface/whm_setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>whm_setup_initialize_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -370,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~63"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~65"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_setup_pl.html b/docs/interface/whm_setup_pl.html
index 82d4ee2de..48f1ed90f 100644
--- a/docs/interface/whm_setup_pl.html
+++ b/docs/interface/whm_setup_pl.html
@@ -136,7 +136,7 @@ <h1>whm_setup_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~62"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~64"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_step_pl.html b/docs/interface/whm_step_pl.html
index 0041d0b7b..a9550ee55 100644
--- a/docs/interface/whm_step_pl.html
+++ b/docs/interface/whm_step_pl.html
@@ -136,7 +136,7 @@ <h1>whm_step_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~64"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~66"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~26"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~27"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~37"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~38"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_step_system.html b/docs/interface/whm_step_system.html
index 34f23a00d..5a743b77d 100644
--- a/docs/interface/whm_step_system.html
+++ b/docs/interface/whm_step_system.html
@@ -136,7 +136,7 @@ <h1>whm_step_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~65"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~67"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~27"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~28"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~38"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~39"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_step_tp.html b/docs/interface/whm_step_tp.html
index d1f5ec601..db5d5b2f9 100644
--- a/docs/interface/whm_step_tp.html
+++ b/docs/interface/whm_step_tp.html
@@ -136,7 +136,7 @@ <h1>whm_step_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~66"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~68"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~28"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~29"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~39"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~40"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_append_pl.html b/docs/interface/whm_util_append_pl.html
index 45fc2551e..64a84147b 100644
--- a/docs/interface/whm_util_append_pl.html
+++ b/docs/interface/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.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -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_exit -->
+<!-- util_append -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </g>
 <!-- util_append_pl -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_node4" class="node">
@@ -265,22 +265,22 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="335" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
 <!-- proc~whm_util_append_pl&#45;&gt;util_append_pl -->
-<g id="interface~~whm_util_append_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~whm_util_append_pl~~CallsGraph_edge4" class="edge">
 <title>proc~whm_util_append_pl&#45;&gt;util_append_pl</title>
 <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_append -->
+<!-- util_exit -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_node5" class="node">
-<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>
+<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>
 </g>
-<!-- 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_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"/>
+<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
+<g id="interface~~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="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"/>
 </g>
 </g>
 </svg>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~67"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~69"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_fill_pl.html b/docs/interface/whm_util_fill_pl.html
index fbee585e0..29ee9ecba 100644
--- a/docs/interface/whm_util_fill_pl.html
+++ b/docs/interface/whm_util_fill_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_fill_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -258,27 +258,27 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- util_fill -->
 <g id="interface~~whm_util_fill_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
+<title>util_fill</title>
 <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>
+<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
 <g id="interface~~whm_util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill</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 -->
+<!-- util_exit -->
 <g id="interface~~whm_util_fill_pl~~CallsGraph_node5" class="node">
-<title>util_fill</title>
+<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_fill</text>
+<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
+<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
 <g id="interface~~whm_util_fill_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
+<title>proc~whm_util_fill_pl&#45;&gt;util_exit</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>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~69"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~71"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/abstract_initialize.html b/docs/interface/whm_util_index_eucl_plpl.html
similarity index 88%
rename from docs/interface/abstract_initialize.html
rename to docs/interface/whm_util_index_eucl_plpl.html
index ca4c2b3ab..6c46b6ddd 100644
--- a/docs/interface/abstract_initialize.html
+++ b/docs/interface/whm_util_index_eucl_plpl.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>abstract_initialize &ndash; swiftest</title>
+    <title>whm_util_index_eucl_plpl &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -117,8 +117,8 @@
     
   
   <div class="row">
-    <h1>abstract_initialize
-   <small>Abstract Interface</small>
+    <h1>whm_util_index_eucl_plpl
+   <small>Interface</small>
     
     </h1>
     
@@ -136,24 +136,24 @@ <h1>abstract_initialize
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="10.0% of total for abstract interfaces.">67 statements</a>
+    title=" 0.3% of total for procedures.">185 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/whm_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/whm_classes.f90.html'>whm_classes.f90</a></li>
     
-     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+     <li><a href='../module/whm_classes.html'>whm_classes</a></li>
     
   
-     <li class="active">abstract_initialize</li>
+     <li class="active">whm_util_index_eucl_plpl</li>
   </ol>
 </div>
 </div>
@@ -205,9 +205,9 @@ <h3>Contents</h3>
     <div class="col-md-9" id='text'>
     
     
-      <h2>abstract interface <br>
+      <h2>interface <br>
       
-public subroutine abstract_initialize(self, param)
+public subroutine whm_util_index_eucl_plpl(self, param)
     
     
    
@@ -236,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~3"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td><span class="anchor" id="variable-self~55"></span>class(<a href='../type/whm_pl.html'>whm_pl</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>self</strong></td><td><p>WHM massive body object</p></td>
   
 </tr>
 
@@ -251,12 +251,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~3"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-param~39"></span>class(swiftest_parameters),</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_util_resize_pl.html b/docs/interface/whm_util_resize_pl.html
index 893cdc8d2..e63411550 100644
--- a/docs/interface/whm_util_resize_pl.html
+++ b/docs/interface/whm_util_resize_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_resize_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -246,29 +246,29 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M103.12,-33C111.36,-33 119.97,-33 128.42,-33"/>
 <polygon fill="#000000" stroke="#000000" points="128.63,-36.5 138.63,-33 128.63,-29.5 128.63,-36.5"/>
 </g>
-<!-- util_resize_pl -->
+<!-- util_resize -->
 <g id="interface~~whm_util_resize_pl~~CallsGraph_node3" class="node">
-<title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="353,-66 278,-66 278,-42 353,-42 353,-66"/>
-<text text-anchor="middle" x="315.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="346,-66 285,-66 285,-42 346,-42 346,-66"/>
+<text text-anchor="middle" x="315.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize -->
 <g id="interface~~whm_util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M242.24,-41.66C250.71,-43.11 259.46,-44.6 267.82,-46.03"/>
-<polygon fill="#000000" stroke="#000000" points="267.33,-49.5 277.78,-47.73 268.51,-42.6 267.33,-49.5"/>
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M242.24,-41.66C253.06,-43.51 264.34,-45.44 274.68,-47.2"/>
+<polygon fill="#000000" stroke="#000000" points="274.21,-50.67 284.65,-48.9 275.39,-43.77 274.21,-50.67"/>
 </g>
-<!-- util_resize -->
+<!-- util_resize_pl -->
 <g id="interface~~whm_util_resize_pl~~CallsGraph_node4" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="346,-24 285,-24 285,0 346,0 346,-24"/>
-<text text-anchor="middle" x="315.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="353,-24 278,-24 278,0 353,0 353,-24"/>
+<text text-anchor="middle" x="315.5" y="-9.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 -->
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
 <g id="interface~~whm_util_resize_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M242.24,-24.34C253.06,-22.49 264.34,-20.56 274.68,-18.8"/>
-<polygon fill="#000000" stroke="#000000" points="275.39,-22.23 284.65,-17.1 274.21,-15.33 275.39,-22.23"/>
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M242.24,-24.34C250.71,-22.89 259.46,-21.4 267.82,-19.97"/>
+<polygon fill="#000000" stroke="#000000" points="268.51,-23.4 277.78,-18.27 267.33,-16.5 268.51,-23.4"/>
 </g>
 </g>
 </svg>
@@ -370,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~70"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~72"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_set_ir3j.html b/docs/interface/whm_util_set_ir3j.html
index c033ec3b2..e546e74b5 100644
--- a/docs/interface/whm_util_set_ir3j.html
+++ b/docs/interface/whm_util_set_ir3j.html
@@ -136,7 +136,7 @@ <h1>whm_util_set_ir3j
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~71"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~73"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_set_mu_eta_pl.html b/docs/interface/whm_util_set_mu_eta_pl.html
index 9c47ee9a6..0cf6d14da 100644
--- a/docs/interface/whm_util_set_mu_eta_pl.html
+++ b/docs/interface/whm_util_set_mu_eta_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_set_mu_eta_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~72"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~74"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~12"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~11"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_sort_pl.html b/docs/interface/whm_util_sort_pl.html
index 2dbe8de69..880ca1fd0 100644
--- a/docs/interface/whm_util_sort_pl.html
+++ b/docs/interface/whm_util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_sort_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~73"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~75"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_sort_rearrange_pl.html b/docs/interface/whm_util_sort_rearrange_pl.html
index e311f98f0..7892bb552 100644
--- a/docs/interface/whm_util_sort_rearrange_pl.html
+++ b/docs/interface/whm_util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_sort_rearrange_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -220,43 +220,55 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~whm_util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacewhm_util_sort_rearrange_plCallsGraph" width="490pt" height="32pt"
- viewBox="0.00 0.00 490.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacewhm_util_sort_rearrange_plCallsGraph" 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="interface~~whm_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>interface~~whm_util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 486,-28 486,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 486,-70 486,4 -4,4"/>
 <!-- interface~whm_util_sort_rearrange_pl -->
 <g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>interface~whm_util_sort_rearrange_pl</title>
-<polygon fill="none" stroke="black" points="146,-24 0,-24 0,0 146,0 146,-24"/>
-<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_sort_rearrange_pl</text>
+<polygon fill="none" stroke="black" points="146,-45 0,-45 0,-21 146,-21 146,-45"/>
+<text text-anchor="middle" x="73" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_sort_rearrange_pl</text>
 </g>
 <!-- proc~whm_util_sort_rearrange_pl -->
 <g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_node2" class="node">
 <title>proc~whm_util_sort_rearrange_pl</title>
 <g id="a_interface~~whm_util_sort_rearrange_pl~~CallsGraph_node2"><a xlink:href=".././proc/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="328,-24 182,-24 182,0 328,0 328,-24"/>
-<text text-anchor="middle" x="255" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="328,-45 182,-45 182,-21 328,-21 328,-45"/>
+<text text-anchor="middle" x="255" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~whm_util_sort_rearrange_pl&#45;&gt;proc~whm_util_sort_rearrange_pl -->
 <g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_edge1" 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="M146.18,-12C154.52,-12 163.08,-12 171.54,-12"/>
-<polygon fill="#000000" stroke="#000000" points="171.81,-15.5 181.81,-12 171.81,-8.5 171.81,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.18,-33C154.52,-33 163.08,-33 171.54,-33"/>
+<polygon fill="#000000" stroke="#000000" points="171.81,-36.5 181.81,-33 171.81,-29.5 171.81,-36.5"/>
 </g>
 <!-- util_sort_rearrange_pl -->
 <g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_node3" class="node">
 <title>util_sort_rearrange_pl</title>
-<polygon fill="#777777" stroke="#777777" points="482,-24 364,-24 364,0 482,0 482,-24"/>
-<text text-anchor="middle" x="423" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<polygon fill="#777777" stroke="#777777" points="482,-66 364,-66 364,-42 482,-42 482,-66"/>
+<text text-anchor="middle" x="423" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
 <!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
 <g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
 <title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M328.33,-12C336.77,-12 345.37,-12 353.76,-12"/>
-<polygon fill="#000000" stroke="#000000" points="353.87,-15.5 363.87,-12 353.87,-8.5 353.87,-15.5"/>
+<path fill="none" stroke="#000000" d="M328.33,-42.15C336.77,-43.22 345.37,-44.31 353.76,-45.37"/>
+<polygon fill="#000000" stroke="#000000" points="353.51,-48.86 363.87,-46.65 354.39,-41.92 353.51,-48.86"/>
+</g>
+<!-- util_sort_rearrange -->
+<g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_node4" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="474.5,-24 371.5,-24 371.5,0 474.5,0 474.5,-24"/>
+<text text-anchor="middle" x="423" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</g>
+<!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange -->
+<g id="interface~~whm_util_sort_rearrange_pl~~CallsGraph_edge3" class="edge">
+<title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M328.33,-23.85C339.32,-22.46 350.56,-21.04 361.27,-19.68"/>
+<polygon fill="#000000" stroke="#000000" points="361.87,-23.13 371.35,-18.41 360.99,-16.19 361.87,-23.13"/>
 </g>
 </g>
 </svg>
@@ -358,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~74"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~76"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_spill_pl.html b/docs/interface/whm_util_spill_pl.html
index 9613284d8..2b466c853 100644
--- a/docs/interface/whm_util_spill_pl.html
+++ b/docs/interface/whm_util_spill_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_spill_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">179 statements</a>
+    title=" 0.3% of total for procedures.">185 statements</a>
      </li> 
      
      
@@ -246,15 +246,15 @@ <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_exit -->
+<!-- util_spill -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_node3" class="node">
-<title>util_exit</title>
+<title>util_spill</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_exit</text>
+<text text-anchor="middle" x="290" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill</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>
@@ -270,15 +270,15 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- util_exit -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_node5" class="node">
-<title>util_spill</title>
+<title>util_exit</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>
+<text text-anchor="middle" x="290" y="-9.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 -->
+<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<title>proc~whm_util_spill_pl&#45;&gt;util_exit</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>
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~68"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~70"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/lists/absint.html b/docs/lists/absint.html
index d44ffd880..155faece9 100644
--- a/docs/lists/absint.html
+++ b/docs/lists/absint.html
@@ -128,8 +128,6 @@ <h1>Abstract Interfaces</h1>
 			 
 			   <tr><td><a href='../interface/abstract_discard_body.html'>abstract_discard_body</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/abstract_initialize.html'>abstract_initialize</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td></td></tr>
-			 
 			   <tr><td><a href='../interface/abstract_kick_body.html'>abstract_kick_body</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/abstract_read_frame.html'>abstract_read_frame</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td></td></tr>
@@ -140,8 +138,6 @@ <h1>Abstract Interfaces</h1>
 			 
 			   <tr><td><a href='../interface/abstract_step_system.html'>abstract_step_system</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/abstract_write_frame.html'>abstract_write_frame</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td></td></tr>
-			 
 			   <tr><td><a href='../interface/lambda0.html'>lambda0</a></td><td><a href='../module/lambda_function.html'>lambda_function</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/lambda0err.html'>lambda0err</a></td><td><a href='../module/lambda_function.html'>lambda_function</a></td><td></td></tr>
diff --git a/docs/lists/files.html b/docs/lists/files.html
index 75c6ec1d6..9d9d74046 100644
--- a/docs/lists/files.html
+++ b/docs/lists/files.html
@@ -127,22 +127,34 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/drift.f90.html'>drift.f90</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../sourcefile/eucl.f90.html'>eucl.f90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../sourcefile/fragmentation.f90.html'>fragmentation.f90</a></td><td></td></tr>
+			   <tr><td><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></td><td></td></tr>
+			 
+			   <tr><td><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></td><td></td></tr>
+			 
+			   <tr><td><a href='../sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></td><td></td></tr>
+			 
+			   <tr><td><a href='../sourcefile/fraggle_regime.f90.html'>fraggle_regime.f90</a></td><td></td></tr>
+			 
+			   <tr><td><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></td><td></td></tr>
+			 
+			   <tr><td><a href='../sourcefile/fraggle_setup.f90.html'>fraggle_setup.f90</a></td><td></td></tr>
+			 
+			   <tr><td><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/gr.f90.html'>gr.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/helio_classes.f90.html'>helio_classes.f90</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></td><td></td></tr>
-			 
 			   <tr><td><a href='../sourcefile/helio_drift.f90.html'>helio_drift.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/helio_gr.f90.html'>helio_gr.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/helio_kick.f90.html'>helio_kick.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/helio_setup.f90.html'>helio_setup.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/helio_step.f90.html'>helio_step.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/io.f90.html'>io.f90</a></td><td></td></tr>
@@ -151,6 +163,8 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/lambda_function.f90.html'>lambda_function.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/obl.f90.html'>obl.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/operator_cross.f90.html'>operator_cross.f90</a></td><td></td></tr>
@@ -159,12 +173,16 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/orbel.f90.html'>orbel.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/orbel.f90~2.html'>orbel.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/rmvs_classes.f90.html'>rmvs_classes.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/rmvs_discard.f90.html'>rmvs_discard.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/rmvs_encounter_check.f90.html'>rmvs_encounter_check.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/rmvs_io.f90.html'>rmvs_io.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/rmvs_kick.f90.html'>rmvs_kick.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/rmvs_setup.f90.html'>rmvs_setup.f90</a></td><td></td></tr>
@@ -195,8 +213,6 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/symba_encounter_check.f90.html'>symba_encounter_check.f90</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../sourcefile/symba_fragmentation.f90.html'>symba_fragmentation.f90</a></td><td></td></tr>
-			 
 			   <tr><td><a href='../sourcefile/symba_io.f90.html'>symba_io.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/symba_kick.f90.html'>symba_kick.f90</a></td><td></td></tr>
@@ -225,6 +241,8 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/util_get_energy_momentum.f90.html'>util_get_energy_momentum.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/util_index.f90.html'>util_index.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/util_minimize_bfgs.f90.html'>util_minimize_bfgs.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/util_peri.f90.html'>util_peri.f90</a></td><td></td></tr>
@@ -245,6 +263,8 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/util_version.f90.html'>util_version.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/whm_classes.f90.html'>whm_classes.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/whm_coord.f90.html'>whm_coord.f90</a></td><td></td></tr>
@@ -268,1477 +288,1710 @@ <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="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)">
+<svg id="filegraphFileGraph" width="641pt" height="1738pt"
+ viewBox="0.00 0.00 641.00 1738.26" 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.62 0.62) rotate(0) translate(4 2800)">
 <title>file~~graph~~FileGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 1017,-2464 1017,4 -4,4"/>
-<!-- sourcefile~symba_io.f90 -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 1030,-2800 1030,4 -4,4"/>
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="file~~graph~~FileGraph_node1" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2754 39,-2754 39,-2730 125,-2730 125,-2754"/>
+<text text-anchor="middle" x="82" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="file~~graph~~FileGraph_node2" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_file~~graph~~FileGraph_node2"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-906 48,-906 48,-882 116,-882 116,-906"/>
+<text text-anchor="middle" x="82" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="file~~graph~~FileGraph_node3" class="node">
-<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_append.f90 -->
-<g id="file~~graph~~FileGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1026,-1603 920,-1603 920,-1579 1026,-1579 1026,-1603"/>
+<text text-anchor="middle" x="973" y="-1588.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="file~~graph~~FileGraph_node5" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_file~~graph~~FileGraph_node5"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="738,-1728 629,-1728 629,-1704 738,-1704 738,-1728"/>
+<text text-anchor="middle" x="683.5" y="-1713.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="file~~graph~~FileGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="file~~graph~~FileGraph_edge7" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" d="M828,-1776C822.94,-1778.8 760.5,-1751.03 719.66,-1732.32"/>
+<polygon fill="#000000" stroke="#000000" points="721.1,-1729.13 710.55,-1728.13 718.18,-1735.49 721.1,-1729.13"/>
+<path fill="none" stroke="#000000" d="M966.89,-1603.28C951.84,-1637.66 904.05,-1735.04 830,-1776"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="file~~graph~~FileGraph_node10" class="node">
+<g id="file~~graph~~FileGraph_node8" 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>
+<g id="a_file~~graph~~FileGraph_node8"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="588,-1947 493,-1947 493,-1923 588,-1923 588,-1947"/>
+<text text-anchor="middle" x="540.5" y="-1932.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge18" class="edge">
+<g id="file~~graph~~FileGraph_edge13" 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"/>
+<path fill="none" stroke="#000000" d="M682.5,-1895C655.02,-1904.92 623.82,-1913.98 597.77,-1920.97"/>
+<polygon fill="#000000" stroke="#000000" points="596.83,-1917.6 588.06,-1923.54 598.62,-1924.37 596.83,-1917.6"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_node17" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node17"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="444.5,-1947 341.5,-1947 341.5,-1923 444.5,-1923 444.5,-1947"/>
+<text text-anchor="middle" x="393" y="-1932.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge31" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M682.5,-1895C621.45,-1917.03 605.39,-1845.56 541.5,-1857"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_node16" class="node">
+<g id="file~~graph~~FileGraph_node36" class="node">
 <title>sourcefile~swiftest.f90</title>
-<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>
+<g id="a_file~~graph~~FileGraph_node36"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="282,-1576 216,-1576 216,-1552 282,-1552 282,-1576"/>
+<text text-anchor="middle" x="249" y="-1561.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge36" class="edge">
+<g id="file~~graph~~FileGraph_edge74" 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"/>
+<path fill="none" stroke="#000000" d="M828,-1776C799.54,-1791.74 573.03,-1723.98 541.5,-1716"/>
 </g>
-<!-- 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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_node40" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node40"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="587.5,-1829 493.5,-1829 493.5,-1805 587.5,-1805 587.5,-1829"/>
+<text text-anchor="middle" x="540.5" y="-1814.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge88" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" d="M682.5,-1895C639.23,-1910.61 631.87,-1867.6 593,-1843 587.9,-1839.77 582.36,-1836.63 576.85,-1833.7"/>
+<polygon fill="#000000" stroke="#000000" points="578.21,-1830.46 567.71,-1829.01 575.01,-1836.69 578.21,-1830.46"/>
+<path fill="none" stroke="#000000" d="M828,-1776C777.1,-1804.15 785.44,-1837.35 738,-1871 716.75,-1886.08 709.01,-1886.16 684.5,-1895"/>
 </g>
-<!-- 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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="file~~graph~~FileGraph_node49" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node49"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="884,-1682 774,-1682 774,-1658 884,-1658 884,-1682"/>
+<text text-anchor="middle" x="829" y="-1667.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge105" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" d="M950.12,-1603.17C926.18,-1616.49 887.63,-1637.94 860.68,-1652.93"/>
+<polygon fill="#000000" stroke="#000000" points="858.71,-1650.02 851.67,-1657.95 862.11,-1656.14 858.71,-1650.02"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="882.5,-1537 775.5,-1537 775.5,-1513 882.5,-1513 882.5,-1537"/>
+<text text-anchor="middle" x="829" y="-1522.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge105" class="edge">
+<g id="file~~graph~~FileGraph_edge108" 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"/>
+<path fill="none" stroke="#000000" d="M945.96,-1578.89C923.24,-1568.34 890.08,-1552.93 865.04,-1541.29"/>
+<polygon fill="#000000" stroke="#000000" points="866.42,-1538.07 855.88,-1537.03 863.47,-1544.42 866.42,-1538.07"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="file~~graph~~FileGraph_node59" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node59"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="730.5,-1808 636.5,-1808 636.5,-1784 730.5,-1784 730.5,-1808"/>
+<text text-anchor="middle" x="683.5" y="-1793.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge123" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" d="M828,-1776C801.75,-1790.52 768.81,-1795.85 741.12,-1797.4"/>
+<polygon fill="#000000" stroke="#000000" points="740.63,-1793.92 730.78,-1797.83 740.92,-1800.92 740.63,-1793.92"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="file~~graph~~FileGraph_node60" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node60"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="593,-1412 488,-1412 488,-1388 593,-1388 593,-1412"/>
+<text text-anchor="middle" x="540.5" y="-1397.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge125" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" d="M919.67,-1584.04C878.88,-1577.46 821.4,-1565.6 774,-1546 691.31,-1511.81 604.87,-1449.25 564.65,-1418.32"/>
+<polygon fill="#000000" stroke="#000000" points="566.6,-1415.41 556.56,-1412.04 562.31,-1420.94 566.6,-1415.41"/>
 </g>
 <!-- sourcefile~swiftest_operators.f90 -->
-<g id="file~~graph~~FileGraph_node64" class="node">
+<g id="file~~graph~~FileGraph_node73" 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>
+<g id="a_file~~graph~~FileGraph_node73"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="452,-2668 334,-2668 334,-2644 452,-2644 452,-2668"/>
+<text text-anchor="middle" x="393" y="-2653.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="file~~graph~~FileGraph_edge129" class="edge">
+<g id="file~~graph~~FileGraph_edge150" 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"/>
+<path fill="none" stroke="#000000" d="M682.5,-1895C545.41,-1944.46 504.36,-2372.99 452,-2509 434.79,-2553.69 414.09,-2605.79 402.65,-2634.41"/>
+<polygon fill="#000000" stroke="#000000" points="399.35,-2633.25 398.88,-2643.83 405.84,-2635.85 399.35,-2633.25"/>
 </g>
-<!-- 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>
+<!-- sourcefile~whm_drift.f90 -->
+<g id="file~~graph~~FileGraph_node4" class="node">
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node4"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1788 43.5,-1788 43.5,-1764 120.5,-1764 120.5,-1788"/>
+<text text-anchor="middle" x="82" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge75" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M628.78,-1720.96C602.26,-1722.16 569.94,-1721.73 541.5,-1716"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_set.f90 -->
+<g id="file~~graph~~FileGraph_node6" class="node">
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_file~~graph~~FileGraph_node6"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124,-1158 40,-1158 40,-1134 124,-1134 124,-1158"/>
+<text text-anchor="middle" x="82" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~rmvs_kick.f90 -->
+<!-- sourcefile~obl.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>
+<title>sourcefile~obl.f90</title>
+<g id="a_file~~graph~~FileGraph_node7"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-864 55,-864 55,-840 109,-840 109,-864"/>
+<text text-anchor="middle" x="82" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge2" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2616C225.2,-2624.31 216.56,-2624.26 200,-2642 173.67,-2670.21 193.55,-2696.19 164,-2721 155.74,-2727.94 145.45,-2732.62 135.01,-2735.77"/>
+<polygon fill="#000000" stroke="#000000" points="133.83,-2732.46 125.02,-2738.34 135.57,-2739.23 133.83,-2732.46"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge30" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M492.66,-1935C480.54,-1935 467.3,-1935 454.58,-1935"/>
+<polygon fill="#000000" stroke="#000000" points="454.52,-1931.5 444.52,-1935 454.52,-1938.5 454.52,-1931.5"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="file~~graph~~FileGraph_node23" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_file~~graph~~FileGraph_node23"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-2628 48,-2628 48,-2604 116,-2604 116,-2628"/>
+<text text-anchor="middle" x="82" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_io.f90 -->
+<g id="file~~graph~~FileGraph_edge45" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_io.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2616C208.61,-2630.35 160.33,-2628.29 126.2,-2623.9"/>
+<polygon fill="#000000" stroke="#000000" points="126.47,-2620.4 116.08,-2622.47 125.5,-2627.33 126.47,-2620.4"/>
+</g>
+<!-- sourcefile~rmvs_kick.f90 -->
+<g id="file~~graph~~FileGraph_node25" class="node">
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node25"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121,-2586 43,-2586 43,-2562 121,-2562 121,-2586"/>
+<text text-anchor="middle" x="82" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge12" class="edge">
+<g id="file~~graph~~FileGraph_edge49" 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"/>
+<path fill="none" stroke="#000000" d="M248,-2616C247.29,-2616.26 179.23,-2598.81 130.76,-2586.33"/>
+<polygon fill="#000000" stroke="#000000" points="131.6,-2582.93 121.05,-2583.82 129.86,-2589.71 131.6,-2582.93"/>
 </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"/>
+<!-- sourcefile~rmvs_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_node26" class="node">
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_file~~graph~~FileGraph_node26"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="153,-2544 11,-2544 11,-2520 153,-2520 153,-2544"/>
+<text text-anchor="middle" x="82" y="-2529.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_edge51" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2616C204.15,-2631.98 206.05,-2573.24 164,-2553 159.73,-2550.94 155.22,-2549.07 150.62,-2547.36"/>
+<polygon fill="#000000" stroke="#000000" points="151.67,-2544.02 141.08,-2544.1 149.4,-2550.65 151.67,-2544.02"/>
 </g>
 <!-- sourcefile~rmvs_discard.f90 -->
-<g id="file~~graph~~FileGraph_node11" class="node">
+<g id="file~~graph~~FileGraph_node28" 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>
+<g id="a_file~~graph~~FileGraph_node28"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129,-2502 35,-2502 35,-2478 129,-2478 129,-2502"/>
+<text text-anchor="middle" x="82" y="-2487.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_edge20" class="edge">
+<g id="file~~graph~~FileGraph_edge55" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_discard.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M503.65,-1947.02C497.54,-1950.61 491.92,-1955.19 488,-1961 433.8,-2041.44 490.9,-2307.15 452,-2396 398.76,-2517.6 382.74,-2616 250,-2616"/>
+<path fill="none" stroke="#000000" d="M248,-2616C191.85,-2636.46 214.16,-2543.49 164,-2511 156.47,-2506.12 147.86,-2502.38 139.13,-2499.5"/>
+<polygon fill="#000000" stroke="#000000" points="139.85,-2496.06 129.27,-2496.6 137.88,-2502.78 139.85,-2496.06"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge31" class="edge">
+<g id="file~~graph~~FileGraph_edge73" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<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>
-<!-- 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"/>
+<path fill="none" stroke="#000000" d="M520.56,-1922.93C481.07,-1896.94 389.06,-1831.93 334,-1757 328.55,-1749.58 279.56,-1634.09 259.01,-1585.4"/>
+<polygon fill="#000000" stroke="#000000" points="262.19,-1583.94 255.08,-1576.08 255.74,-1586.66 262.19,-1583.94"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
-<g id="file~~graph~~FileGraph_node43" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<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>
+<!-- sourcefile~rmvs_util.f90 -->
+<g id="file~~graph~~FileGraph_node44" class="node">
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_file~~graph~~FileGraph_node44"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118.5,-2712 45.5,-2712 45.5,-2688 118.5,-2688 118.5,-2712"/>
+<text text-anchor="middle" x="82" y="-2697.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_encounter_check.f90 -->
-<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,-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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_util.f90 -->
+<g id="file~~graph~~FileGraph_edge96" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_util.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2616C225.2,-2624.31 219.35,-2627.36 200,-2642 181.7,-2655.84 183.84,-2667.47 164,-2679 153.21,-2685.27 140.53,-2689.7 128.45,-2692.81"/>
+<polygon fill="#000000" stroke="#000000" points="127.45,-2689.45 118.5,-2695.13 129.04,-2696.27 127.45,-2689.45"/>
 </g>
 <!-- sourcefile~rmvs_step.f90 -->
-<g id="file~~graph~~FileGraph_node44" class="node">
+<g id="file~~graph~~FileGraph_node76" 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>
+<g id="a_file~~graph~~FileGraph_node76"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="122,-2670 42,-2670 42,-2646 122,-2646 122,-2670"/>
+<text text-anchor="middle" x="82" y="-2655.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">
+<g id="file~~graph~~FileGraph_edge156" 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"/>
+<path fill="none" stroke="#000000" d="M248,-2616C209.87,-2629.89 165.18,-2640.97 131.93,-2648.25"/>
+<polygon fill="#000000" stroke="#000000" points="131.04,-2644.86 122,-2650.38 132.51,-2651.7 131.04,-2644.86"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
-<g id="file~~graph~~FileGraph_node67" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<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>
+<!-- sourcefile~symba_io.f90 -->
+<g id="file~~graph~~FileGraph_node9" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_file~~graph~~FileGraph_node9"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120,-2250 44,-2250 44,-2226 120,-2226 120,-2250"/>
+<text text-anchor="middle" x="82" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_util.f90 -->
-<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="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"/>
+<!-- sourcefile~drift.f90 -->
+<g id="file~~graph~~FileGraph_node10" class="node">
+<title>sourcefile~drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node10"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-822 55,-822 55,-798 109,-798 109,-822"/>
+<text text-anchor="middle" x="82" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+</a>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+</g>
+<!-- sourcefile~symba_drift.f90 -->
+<g id="file~~graph~~FileGraph_node11" class="node">
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node11"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2334 39,-2334 39,-2310 125,-2310 125,-2334"/>
+<text text-anchor="middle" x="82" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~discard.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>
+<title>sourcefile~discard.f90</title>
+<g id="a_file~~graph~~FileGraph_node12"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="114.5,-780 49.5,-780 49.5,-756 114.5,-756 114.5,-780"/>
+<text text-anchor="middle" x="82" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~io.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>
+<title>sourcefile~io.f90</title>
+<g id="a_file~~graph~~FileGraph_node13"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-738 55,-738 55,-714 109,-714 109,-738"/>
+<text text-anchor="middle" x="82" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_get_energy_momentum.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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_file~~graph~~FileGraph_node14"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="164,-696 0,-696 0,-672 164,-672 164,-696"/>
+<text text-anchor="middle" x="82" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~helio_setup.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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node15"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-1956 39.5,-1956 39.5,-1932 124.5,-1932 124.5,-1956"/>
+<text text-anchor="middle" x="82" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="file~~graph~~FileGraph_node16" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_file~~graph~~FileGraph_node16"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="131,-1578 33,-1578 33,-1554 131,-1554 131,-1578"/>
+<text text-anchor="middle" x="82" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_io.f90 -->
+<g id="file~~graph~~FileGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_io.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C206.93,-2176.15 206.05,-2196.76 164,-2217 153.47,-2222.07 141.56,-2226.02 130.18,-2229.07"/>
+<polygon fill="#000000" stroke="#000000" points="129.22,-2225.7 120.36,-2231.51 130.91,-2232.49 129.22,-2225.7"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge18" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C181.77,-2189.72 223.78,-2255.3 164,-2301 155.6,-2307.42 145.44,-2311.88 135.19,-2314.99"/>
+<polygon fill="#000000" stroke="#000000" points="134.17,-2311.64 125.39,-2317.57 135.95,-2318.41 134.17,-2311.64"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_util.f90 -->
+<g id="file~~graph~~FileGraph_node21" class="node">
+<title>sourcefile~symba_util.f90</title>
+<g id="a_file~~graph~~FileGraph_node21"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="123,-2292 41,-2292 41,-2268 123,-2268 123,-2292"/>
+<text text-anchor="middle" x="82" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_util.f90 -->
+<g id="file~~graph~~FileGraph_edge40" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_util.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C195.4,-2182.37 214.16,-2226.51 164,-2259 154.76,-2264.99 143.89,-2269.27 133.16,-2272.33"/>
+<polygon fill="#000000" stroke="#000000" points="132.24,-2268.96 123.41,-2274.82 133.96,-2275.74 132.24,-2268.96"/>
 </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~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"/>
+<!-- sourcefile~symba_kick.f90 -->
+<g id="file~~graph~~FileGraph_node22" class="node">
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node22"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2208 39,-2208 39,-2184 125,-2184 125,-2208"/>
+<text text-anchor="middle" x="82" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge42" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C212.87,-2172.95 168.89,-2183.59 135.18,-2189.42"/>
+<polygon fill="#000000" stroke="#000000" points="134.36,-2186.01 125.06,-2191.08 135.5,-2192.91 134.36,-2186.01"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge77" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M377.39,-1922.92C363.92,-1910.93 344.48,-1891.31 334,-1870 295.69,-1792.09 322.99,-1761.15 298,-1678 287.99,-1644.68 271.42,-1607.87 260.61,-1585.34"/>
+<polygon fill="#000000" stroke="#000000" points="263.75,-1583.79 256.23,-1576.33 257.45,-1586.85 263.75,-1583.79"/>
 </g>
-<!-- sourcefile~obl.f90 -->
-<g id="file~~graph~~FileGraph_node17" class="node">
-<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>
+<!-- sourcefile~symba_step.f90 -->
+<g id="file~~graph~~FileGraph_node42" class="node">
+<title>sourcefile~symba_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node42"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="126,-1998 38,-1998 38,-1974 126,-1974 126,-1998"/>
+<text text-anchor="middle" x="82" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90 -->
-<g id="file~~graph~~FileGraph_edge38" class="edge">
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_step.f90 -->
+<g id="file~~graph~~FileGraph_edge91" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C181.77,-2189.72 223.78,-2052.7 164,-2007 155.86,-2000.78 146.06,-1996.39 136.14,-1993.3"/>
+<polygon fill="#000000" stroke="#000000" points="136.79,-1989.85 126.22,-1990.62 134.96,-1996.61 136.79,-1989.85"/>
+<path fill="none" stroke="#000000" d="M388.68,-1947.03C377.23,-1985.86 335.35,-2107.97 250,-2154"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
-<g id="file~~graph~~FileGraph_node18" class="node">
-<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>
+<!-- sourcefile~symba_setup.f90 -->
+<g id="file~~graph~~FileGraph_node43" class="node">
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node43"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129,-2166 35,-2166 35,-2142 129,-2142 129,-2166"/>
+<text text-anchor="middle" x="82" y="-2151.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~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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge93" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C215.1,-2171.74 172.86,-2171.4 139.36,-2166.79"/>
+<polygon fill="#000000" stroke="#000000" points="139.68,-2163.3 129.26,-2165.24 138.62,-2170.22 139.68,-2163.3"/>
 </g>
-<!-- sourcefile~gr.f90 -->
-<g id="file~~graph~~FileGraph_node19" class="node">
-<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>
+<!-- sourcefile~symba_collision.f90 -->
+<g id="file~~graph~~FileGraph_node50" class="node">
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_file~~graph~~FileGraph_node50"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="135,-2082 29,-2082 29,-2058 135,-2058 135,-2082"/>
+<text text-anchor="middle" x="82" y="-2067.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~gr.f90 -->
-<g id="file~~graph~~FileGraph_edge42" class="edge">
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_collision.f90 -->
+<g id="file~~graph~~FileGraph_edge106" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_collision.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C206.93,-2176.15 206.05,-2111.24 164,-2091 157.93,-2088.08 151.4,-2085.53 144.78,-2083.31"/>
+<polygon fill="#000000" stroke="#000000" points="145.65,-2079.91 135.06,-2080.29 143.57,-2086.6 145.65,-2079.91"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
-<g id="file~~graph~~FileGraph_node21" class="node">
-<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>
+<!-- sourcefile~symba_discard.f90 -->
+<g id="file~~graph~~FileGraph_node57" class="node">
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_file~~graph~~FileGraph_node57"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-2040 30.5,-2040 30.5,-2016 133.5,-2016 133.5,-2040"/>
+<text text-anchor="middle" x="82" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_discard.f90 -->
+<g id="file~~graph~~FileGraph_edge118" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_discard.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C195.4,-2182.37 214.16,-2081.49 164,-2049 157.71,-2044.93 150.67,-2041.64 143.44,-2039"/>
+<polygon fill="#000000" stroke="#000000" points="144.1,-2035.53 133.5,-2035.76 141.93,-2042.19 144.1,-2035.53"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
-<g id="file~~graph~~FileGraph_node23" class="node">
-<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>
+<!-- sourcefile~symba_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_node71" class="node">
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_file~~graph~~FileGraph_node71"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="157,-2124 7,-2124 7,-2100 157,-2100 157,-2124"/>
+<text text-anchor="middle" x="82" y="-2109.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~whm_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge50" class="edge">
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_edge146" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2154C247.37,-2154.34 187.03,-2138.88 139.51,-2126.62"/>
+<polygon fill="#000000" stroke="#000000" points="140.15,-2123.17 129.59,-2124.06 138.4,-2129.95 140.15,-2123.17"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
-<g id="file~~graph~~FileGraph_node24" class="node">
-<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>
+<!-- sourcefile~tides_spin_step.f90 -->
+<g id="file~~graph~~FileGraph_node18" class="node">
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node18"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="134.5,-654 29.5,-654 29.5,-630 134.5,-630 134.5,-654"/>
+<text text-anchor="middle" x="82" y="-639.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~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~orbel.f90 -->
-<g id="file~~graph~~FileGraph_node25" class="node">
-<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>
+<!-- sourcefile~tides_getacch_pl.f90 -->
+<g id="file~~graph~~FileGraph_node19" class="node">
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_file~~graph~~FileGraph_node19"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="137.5,-612 26.5,-612 26.5,-588 137.5,-588 137.5,-612"/>
+<text text-anchor="middle" x="82" y="-597.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~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~util_resize.f90 -->
-<g id="file~~graph~~FileGraph_node26" class="node">
-<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>
+<!-- sourcefile~fraggle_regime.f90 -->
+<g id="file~~graph~~FileGraph_node20" class="node">
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_file~~graph~~FileGraph_node20"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-1116 30.5,-1116 30.5,-1092 133.5,-1092 133.5,-1116"/>
+<text text-anchor="middle" x="82" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~user_getacch.f90 -->
+<g id="file~~graph~~FileGraph_node24" class="node">
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_file~~graph~~FileGraph_node24"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129.5,-570 34.5,-570 34.5,-546 129.5,-546 129.5,-570"/>
+<text text-anchor="middle" x="82" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+</a>
+</g>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="file~~graph~~FileGraph_node27" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node27"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1746 43.5,-1746 43.5,-1722 120.5,-1722 120.5,-1746"/>
+<text text-anchor="middle" x="82" y="-1731.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~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~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>
+<!-- sourcefile~gr.f90 -->
+<g id="file~~graph~~FileGraph_node29" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_file~~graph~~FileGraph_node29"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-528 55,-528 55,-504 109,-504 109,-528"/>
+<text text-anchor="middle" x="82" y="-513.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 -->
-<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 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="file~~graph~~FileGraph_node30" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_file~~graph~~FileGraph_node30"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="138,-1368 26,-1368 26,-1344 138,-1344 138,-1368"/>
+<text text-anchor="middle" x="82" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~whm_util.f90 -->
+<!-- sourcefile~util_index.f90 -->
 <g id="file~~graph~~FileGraph_node31" class="node">
-<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>
+<title>sourcefile~util_index.f90</title>
+<g id="a_file~~graph~~FileGraph_node31"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120,-486 44,-486 44,-462 120,-462 120,-486"/>
+<text text-anchor="middle" x="82" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_util.f90 -->
-<g id="file~~graph~~FileGraph_edge65" class="edge">
-<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~util_peri.f90 -->
+<!-- sourcefile~orbel.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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_file~~graph~~FileGraph_node32"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109.5,-444 54.5,-444 54.5,-420 109.5,-420 109.5,-444"/>
+<text text-anchor="middle" x="82" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.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~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~helio_coord.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="file~~graph~~FileGraph_node33" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_file~~graph~~FileGraph_node33"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-1914 48,-1914 48,-1890 116,-1890 116,-1914"/>
+<text text-anchor="middle" x="82" y="-1899.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_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~helio_step.f90 -->
+<!-- sourcefile~whm_setup.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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node34"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-1704 39.5,-1704 39.5,-1680 124.5,-1680 124.5,-1704"/>
+<text text-anchor="middle" x="82" y="-1689.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~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 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="file~~graph~~FileGraph_node35" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node35"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1662 42.5,-1662 42.5,-1638 121.5,-1638 121.5,-1662"/>
+<text text-anchor="middle" x="82" y="-1647.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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge1" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_setup.f90</title>
+<path fill="none" stroke="#000000" d="M241.12,-1576.16C230.03,-1596.49 208.58,-1638.99 200,-1678 187.54,-1734.63 200.27,-2675.76 164,-2721 156.76,-2730.03 146.18,-2735.47 135.05,-2738.69"/>
+<polygon fill="#000000" stroke="#000000" points="134.14,-2735.31 125.18,-2740.97 135.72,-2742.12 134.14,-2735.31"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
-<g id="file~~graph~~FileGraph_node36" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_spill.f90 -->
+<g id="file~~graph~~FileGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_spill.f90</title>
+<path fill="none" stroke="#000000" d="M215.91,-1552.53C209.66,-1548.84 203.86,-1544.08 200,-1538 125.63,-1420.95 252,-1022.18 164,-915 154.8,-903.8 140.47,-898.14 126.4,-895.4"/>
+<polygon fill="#000000" stroke="#000000" points="126.69,-891.9 116.28,-893.89 125.65,-898.83 126.69,-891.9"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_drift.f90</title>
+<path fill="none" stroke="#000000" d="M242.88,-1576.01C225.23,-1617.41 167.73,-1751.82 164,-1755 154.58,-1763.02 142.46,-1768.02 130.49,-1771.14"/>
+<polygon fill="#000000" stroke="#000000" points="129.54,-1767.76 120.52,-1773.33 131.04,-1774.6 129.54,-1767.76"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_set.f90 -->
+<g id="file~~graph~~FileGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_set.f90</title>
+<path fill="none" stroke="#000000" d="M215.59,-1552.12C209.52,-1548.48 203.88,-1543.84 200,-1538 154.22,-1468.97 217.8,-1229.98 164,-1167 156.41,-1158.11 145.59,-1152.74 134.33,-1149.55"/>
+<polygon fill="#000000" stroke="#000000" points="134.91,-1146.09 124.38,-1147.27 133.35,-1152.91 134.91,-1146.09"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90 -->
+<g id="file~~graph~~FileGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90</title>
+<path fill="none" stroke="#000000" d="M215.89,-1552.54C209.65,-1548.85 203.85,-1544.09 200,-1538 120.86,-1412.94 257.7,-987.55 164,-873 153.29,-859.9 135.55,-854.38 119.4,-852.24"/>
+<polygon fill="#000000" stroke="#000000" points="119.39,-848.73 109.11,-851.28 118.74,-855.7 119.39,-848.73"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
-<g id="file~~graph~~FileGraph_node37" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_io.f90 -->
+<g id="file~~graph~~FileGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_io.f90</title>
+<path fill="none" stroke="#000000" d="M241.26,-1576.19C230.37,-1596.56 209.21,-1639.13 200,-1678 186.16,-1736.41 202.29,-2170.78 164,-2217 155.66,-2227.06 143.18,-2232.65 130.5,-2235.66"/>
+<polygon fill="#000000" stroke="#000000" points="129.55,-2232.27 120.37,-2237.56 130.84,-2239.15 129.55,-2232.27"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~drift.f90 -->
+<g id="file~~graph~~FileGraph_edge17" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~drift.f90</title>
+<path fill="none" stroke="#000000" d="M215.88,-1552.55C209.63,-1548.86 203.84,-1544.09 200,-1538 116.09,-1404.93 263.41,-952.93 164,-831 153.31,-817.88 135.57,-812.36 119.42,-810.23"/>
+<polygon fill="#000000" stroke="#000000" points="119.41,-806.71 109.13,-809.27 118.76,-813.68 119.41,-806.71"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90 -->
-<g id="file~~graph~~FileGraph_edge78" class="edge">
-<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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge19" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_drift.f90</title>
+<path fill="none" stroke="#000000" d="M241.22,-1576.18C230.28,-1596.54 209.03,-1639.09 200,-1678 184.32,-1745.54 208,-2247.41 164,-2301 156.66,-2309.94 146.04,-2315.36 134.9,-2318.57"/>
+<polygon fill="#000000" stroke="#000000" points="133.99,-2315.18 125.04,-2320.86 135.57,-2322 133.99,-2315.18"/>
 </g>
-<!-- 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_spill.f90</text>
-</a>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~discard.f90 -->
+<g id="file~~graph~~FileGraph_edge21" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~discard.f90</title>
+<path fill="none" stroke="#000000" d="M215.86,-1552.56C209.62,-1548.87 203.83,-1544.1 200,-1538 155.66,-1467.46 216.56,-853.65 164,-789 154.47,-777.28 139.31,-771.61 124.68,-769.02"/>
+<polygon fill="#000000" stroke="#000000" points="125.08,-765.54 114.7,-767.68 124.15,-772.48 125.08,-765.54"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~io.f90 -->
+<g id="file~~graph~~FileGraph_edge23" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~io.f90</title>
+<path fill="none" stroke="#000000" d="M215.85,-1552.57C209.61,-1548.87 203.83,-1544.1 200,-1538 153.27,-1463.46 219.41,-815.34 164,-747 153.34,-733.86 135.61,-728.33 119.45,-726.2"/>
+<polygon fill="#000000" stroke="#000000" points="119.43,-722.68 109.15,-725.25 118.79,-729.65 119.43,-722.68"/>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
+<g id="file~~graph~~FileGraph_edge25" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90</title>
+<path fill="none" stroke="#000000" d="M215.84,-1552.57C209.6,-1548.88 203.82,-1544.11 200,-1538 150.89,-1459.45 222.26,-777.03 164,-705 163.38,-704.23 162.74,-703.49 162.07,-702.78"/>
+<polygon fill="#000000" stroke="#000000" points="164.04,-699.86 154.16,-696.04 159.5,-705.19 164.04,-699.86"/>
 </g>
-<!-- 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">io.f90</text>
-</a>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge27" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_setup.f90</title>
+<path fill="none" stroke="#000000" d="M241.6,-1576.28C231.21,-1596.78 210.74,-1639.53 200,-1678 170.41,-1784.01 237.52,-1841.1 164,-1923 156.27,-1931.61 145.51,-1936.9 134.35,-1940.09"/>
+<polygon fill="#000000" stroke="#000000" points="133.44,-1936.71 124.5,-1942.4 135.04,-1943.53 133.44,-1936.71"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_driver.f90 -->
+<g id="file~~graph~~FileGraph_edge28" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_driver.f90</title>
+<path fill="none" stroke="#000000" d="M215.79,-1564.39C194.61,-1564.65 166.27,-1564.99 141.21,-1565.29"/>
+<polygon fill="#000000" stroke="#000000" points="141.03,-1561.8 131.07,-1565.42 141.11,-1568.8 141.03,-1561.8"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_spin_step.f90 -->
+<g id="file~~graph~~FileGraph_edge35" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_spin_step.f90</title>
+<path fill="none" stroke="#000000" d="M215.83,-1552.58C209.59,-1548.89 203.81,-1544.11 200,-1538 148.5,-1455.44 225.12,-738.72 164,-663 158.87,-656.64 152.08,-652.06 144.61,-648.79"/>
+<polygon fill="#000000" stroke="#000000" points="145.46,-645.38 134.86,-645.31 143.1,-651.97 145.46,-645.38"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_getacch_pl.f90 -->
+<g id="file~~graph~~FileGraph_edge37" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_getacch_pl.f90</title>
+<path fill="none" stroke="#000000" d="M215.83,-1552.58C209.58,-1548.89 203.81,-1544.11 200,-1538 146.11,-1451.44 227.97,-700.4 164,-621 159.53,-615.45 153.8,-611.26 147.46,-608.1"/>
+<polygon fill="#000000" stroke="#000000" points="148.38,-604.7 137.8,-604.19 145.75,-611.19 148.38,-604.7"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_regime.f90 -->
+<g id="file~~graph~~FileGraph_edge38" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_regime.f90</title>
+<path fill="none" stroke="#000000" d="M215.55,-1552.15C209.48,-1548.51 203.85,-1543.86 200,-1538 149.46,-1460.97 223.49,-1195.34 164,-1125 158.47,-1118.46 151.19,-1113.82 143.27,-1110.55"/>
+<polygon fill="#000000" stroke="#000000" points="144.32,-1107.21 133.73,-1107.31 142.07,-1113.84 144.32,-1107.21"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_util.f90 -->
+<g id="file~~graph~~FileGraph_edge41" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_util.f90</title>
+<path fill="none" stroke="#000000" d="M241.24,-1576.19C230.32,-1596.55 209.11,-1639.11 200,-1678 185.24,-1740.97 205.15,-2209.1 164,-2259 156.27,-2268.37 144.96,-2273.86 133.22,-2277"/>
+<polygon fill="#000000" stroke="#000000" points="132.37,-2273.61 123.33,-2279.13 133.84,-2280.45 132.37,-2273.61"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge83" class="edge">
+<g id="file~~graph~~FileGraph_edge43" 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"/>
+<path fill="none" stroke="#000000" d="M241.29,-1576.2C230.43,-1596.58 209.32,-1639.16 200,-1678 174.17,-1785.68 234.89,-2089.93 164,-2175 156.66,-2183.8 146.16,-2189.18 135.13,-2192.4"/>
+<polygon fill="#000000" stroke="#000000" points="134.3,-2189 125.37,-2194.7 135.91,-2195.81 134.3,-2189"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_io.f90 -->
+<g id="file~~graph~~FileGraph_edge44" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_io.f90</title>
+<path fill="none" stroke="#000000" d="M241.14,-1576.16C230.08,-1596.5 208.67,-1639.01 200,-1678 177.86,-1777.53 227.97,-2515.6 164,-2595 154.91,-2606.29 140.6,-2611.97 126.52,-2614.69"/>
+<polygon fill="#000000" stroke="#000000" points="125.76,-2611.27 116.38,-2616.2 126.79,-2618.19 125.76,-2611.27"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90 -->
+<g id="file~~graph~~FileGraph_edge47" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90</title>
+<path fill="none" stroke="#000000" d="M215.82,-1552.59C209.58,-1548.89 203.8,-1544.12 200,-1538 143.73,-1447.43 230.83,-662.09 164,-579 157.72,-571.19 148.94,-566.06 139.46,-562.74"/>
+<polygon fill="#000000" stroke="#000000" points="140.4,-559.37 129.82,-559.99 138.48,-566.1 140.4,-559.37"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge48" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_kick.f90</title>
+<path fill="none" stroke="#000000" d="M241.15,-1576.17C230.1,-1596.5 208.71,-1639.02 200,-1678 178.78,-1772.96 225.12,-2477.28 164,-2553 155.94,-2562.99 143.79,-2568.59 131.33,-2571.63"/>
+<polygon fill="#000000" stroke="#000000" points="130.51,-2568.22 121.35,-2573.56 131.84,-2575.1 130.51,-2568.22"/>
 </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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_edge50" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M241.16,-1576.17C230.12,-1596.51 208.75,-1639.03 200,-1678 179.71,-1768.39 222.26,-2438.97 164,-2511 163.03,-2512.2 162,-2513.34 160.92,-2514.41"/>
+<polygon fill="#000000" stroke="#000000" points="158.71,-2511.7 153.09,-2520.68 163.08,-2517.16 158.71,-2511.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge53" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_kick.f90</title>
+<path fill="none" stroke="#000000" d="M244.71,-1576.21C236.36,-1604.8 211.55,-1676.43 164,-1713 154.37,-1720.4 142.4,-1725.21 130.63,-1728.33"/>
+<polygon fill="#000000" stroke="#000000" points="129.82,-1724.92 120.85,-1730.57 131.38,-1731.75 129.82,-1724.92"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_discard.f90 -->
+<g id="file~~graph~~FileGraph_edge54" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_discard.f90</title>
+<path fill="none" stroke="#000000" d="M241.17,-1576.17C230.15,-1596.51 208.79,-1639.04 200,-1678 180.63,-1763.82 219.41,-2400.66 164,-2469 157.62,-2476.87 148.7,-2482.01 139.1,-2485.33"/>
+<polygon fill="#000000" stroke="#000000" points="138.03,-2481.99 129.35,-2488.06 139.92,-2488.73 138.03,-2481.99"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~gr.f90 -->
+<g id="file~~graph~~FileGraph_edge57" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~gr.f90</title>
+<path fill="none" stroke="#000000" d="M215.81,-1552.59C209.57,-1548.9 203.8,-1544.12 200,-1538 141.34,-1443.42 233.68,-623.78 164,-537 153.41,-523.8 135.68,-518.27 119.51,-516.16"/>
+<polygon fill="#000000" stroke="#000000" points="119.48,-512.64 109.2,-515.21 118.84,-519.61 119.48,-512.64"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_generate.f90 -->
+<g id="file~~graph~~FileGraph_edge58" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_generate.f90</title>
+<path fill="none" stroke="#000000" d="M216.13,-1551.75C210.02,-1548.13 204.23,-1543.6 200,-1538 155.79,-1479.5 214.97,-1429.71 164,-1377 159.43,-1372.27 153.94,-1368.56 148,-1365.65"/>
+<polygon fill="#000000" stroke="#000000" points="148.95,-1362.25 138.37,-1361.71 146.3,-1368.73 148.95,-1362.25"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_index.f90 -->
+<g id="file~~graph~~FileGraph_edge61" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_index.f90</title>
+<path fill="none" stroke="#000000" d="M215.8,-1552.6C209.56,-1548.9 203.79,-1544.12 200,-1538 138.95,-1439.41 236.54,-585.47 164,-495 155.67,-484.61 142.93,-478.97 129.99,-476.01"/>
+<polygon fill="#000000" stroke="#000000" points="130.6,-472.56 120.14,-474.23 129.36,-479.45 130.6,-472.56"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90 -->
+<g id="file~~graph~~FileGraph_edge63" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90</title>
+<path fill="none" stroke="#000000" d="M215.8,-1552.6C209.56,-1548.91 203.79,-1544.13 200,-1538 136.57,-1435.41 239.39,-547.16 164,-453 153.5,-439.88 135.95,-434.33 119.87,-432.19"/>
+<polygon fill="#000000" stroke="#000000" points="119.88,-428.67 109.6,-431.23 119.23,-435.64 119.88,-428.67"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_gr.f90 -->
-<g id="file~~graph~~FileGraph_edge88" class="edge">
+<g id="file~~graph~~FileGraph_edge65" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M241.73,-1576.32C231.52,-1596.87 211.31,-1639.69 200,-1678 174.06,-1765.88 226.21,-1813.73 164,-1881 154.24,-1891.56 139.92,-1897.09 126.02,-1899.91"/>
+<polygon fill="#000000" stroke="#000000" points="125.37,-1896.47 116.05,-1901.51 126.48,-1903.38 125.37,-1896.47"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge67" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90</title>
+<path fill="none" stroke="#000000" d="M241.99,-1576.06C230.22,-1598.4 201.94,-1646.17 164,-1671 155.16,-1676.79 144.8,-1680.98 134.5,-1684.02"/>
+<polygon fill="#000000" stroke="#000000" points="133.48,-1680.67 124.7,-1686.59 135.26,-1687.44 133.48,-1680.67"/>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_step.f90 -->
+<g id="file~~graph~~FileGraph_edge69" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_step.f90</title>
+<path fill="none" stroke="#000000" d="M235.73,-1576.15C220.28,-1590.78 192.31,-1615.11 164,-1629 153.91,-1633.95 142.53,-1637.82 131.55,-1640.82"/>
+<polygon fill="#000000" stroke="#000000" points="130.47,-1637.49 121.64,-1643.33 132.19,-1644.27 130.47,-1637.49"/>
 </g>
-<!-- sourcefile~kick.f90 -->
-<g id="file~~graph~~FileGraph_node45" class="node">
-<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>
+<!-- sourcefile~util_append.f90 -->
+<g id="file~~graph~~FileGraph_node37" class="node">
+<title>sourcefile~util_append.f90</title>
+<g id="a_file~~graph~~FileGraph_node37"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-402 39,-402 39,-378 125,-378 125,-402"/>
+<text text-anchor="middle" x="82" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_append.f90 -->
+<g id="file~~graph~~FileGraph_edge81" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_append.f90</title>
+<path fill="none" stroke="#000000" d="M215.79,-1552.6C209.55,-1548.91 203.78,-1544.13 200,-1538 134.18,-1431.4 242.24,-508.85 164,-411 156.77,-401.96 146.2,-396.51 135.06,-393.3"/>
+<polygon fill="#000000" stroke="#000000" points="135.73,-389.86 125.2,-391.01 134.15,-396.68 135.73,-389.86"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
-<g id="file~~graph~~FileGraph_node46" class="node">
-<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>
+<!-- sourcefile~netcdf.f90 -->
+<g id="file~~graph~~FileGraph_node38" class="node">
+<title>sourcefile~netcdf.f90</title>
+<g id="a_file~~graph~~FileGraph_node38"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="112,-360 52,-360 52,-336 112,-336 112,-360"/>
+<text text-anchor="middle" x="82" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~netcdf.f90 -->
+<g id="file~~graph~~FileGraph_edge83" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~netcdf.f90</title>
+<path fill="none" stroke="#000000" d="M215.79,-1552.61C209.55,-1548.91 203.78,-1544.13 200,-1538 131.79,-1427.39 245.1,-470.54 164,-369 154.13,-356.64 138,-351 122.73,-348.59"/>
+<polygon fill="#000000" stroke="#000000" points="122.71,-345.07 112.38,-347.4 121.91,-352.02 122.71,-345.07"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="file~~graph~~FileGraph_node39" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_file~~graph~~FileGraph_node39"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="123.5,-1326 40.5,-1326 40.5,-1302 123.5,-1302 123.5,-1326"/>
+<text text-anchor="middle" x="82" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_util.f90 -->
+<g id="file~~graph~~FileGraph_edge84" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_util.f90</title>
+<path fill="none" stroke="#000000" d="M215.94,-1551.89C209.84,-1548.26 204.1,-1543.69 200,-1538 146.39,-1463.69 226.21,-1402.27 164,-1335 156.07,-1326.42 145.12,-1321.16 133.84,-1317.98"/>
+<polygon fill="#000000" stroke="#000000" points="134.44,-1314.52 123.91,-1315.69 132.87,-1321.35 134.44,-1314.52"/>
+</g>
+<!-- sourcefile~whm_util.f90 -->
+<g id="file~~graph~~FileGraph_node41" class="node">
+<title>sourcefile~whm_util.f90</title>
+<g id="a_file~~graph~~FileGraph_node41"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118.5,-1620 45.5,-1620 45.5,-1596 118.5,-1596 118.5,-1620"/>
+<text text-anchor="middle" x="82" y="-1605.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~whm_util.f90 -->
+<g id="file~~graph~~FileGraph_edge90" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_util.f90</title>
+<path fill="none" stroke="#000000" d="M215.72,-1572.95C200.11,-1577.25 181.09,-1582.44 164,-1587 152.49,-1590.07 140.05,-1593.32 128.45,-1596.33"/>
+<polygon fill="#000000" stroke="#000000" points="127.32,-1593.01 118.51,-1598.9 129.07,-1599.79 127.32,-1593.01"/>
+</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_step.f90 -->
-<g id="file~~graph~~FileGraph_edge97" class="edge">
+<g id="file~~graph~~FileGraph_edge92" 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"/>
+<path fill="none" stroke="#000000" d="M241.51,-1576.26C230.99,-1596.72 210.33,-1639.42 200,-1678 183.37,-1740.09 206.43,-1916.72 164,-1965 156.73,-1973.27 146.67,-1978.49 136.1,-1981.73"/>
+<polygon fill="#000000" stroke="#000000" points="135.16,-1978.35 126.32,-1984.18 136.87,-1985.14 135.16,-1978.35"/>
 </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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge94" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_setup.f90</title>
+<path fill="none" stroke="#000000" d="M241.31,-1576.2C230.5,-1596.6 209.45,-1639.19 200,-1678 176.01,-1776.55 229.19,-2055.3 164,-2133 157.49,-2140.76 148.51,-2145.85 138.9,-2149.15"/>
+<polygon fill="#000000" stroke="#000000" points="137.82,-2145.82 129.14,-2151.89 139.71,-2152.56 137.82,-2145.82"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_util.f90 -->
+<g id="file~~graph~~FileGraph_edge95" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_util.f90</title>
+<path fill="none" stroke="#000000" d="M241.13,-1576.16C230.05,-1596.49 208.61,-1639 200,-1678 176.01,-1786.68 233.68,-2592.22 164,-2679 155.45,-2689.65 142.25,-2695.31 128.97,-2698.21"/>
+<polygon fill="#000000" stroke="#000000" points="128.15,-2694.8 118.88,-2699.92 129.33,-2701.7 128.15,-2694.8"/>
+</g>
+<!-- sourcefile~util_coord.f90 -->
+<g id="file~~graph~~FileGraph_node45" class="node">
+<title>sourcefile~util_coord.f90</title>
+<g id="a_file~~graph~~FileGraph_node45"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-276 43.5,-276 43.5,-252 120.5,-252 120.5,-276"/>
+<text text-anchor="middle" x="82" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge98" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_coord.f90</title>
+<path fill="none" stroke="#000000" d="M215.78,-1552.61C209.54,-1548.92 203.77,-1544.13 200,-1538 127.02,-1419.37 250.81,-393.92 164,-285 155.86,-274.78 143.43,-269.15 130.75,-266.15"/>
+<polygon fill="#000000" stroke="#000000" points="131.06,-262.64 120.59,-264.26 129.78,-269.53 131.06,-262.64"/>
+</g>
+<!-- sourcefile~setup.f90 -->
+<g id="file~~graph~~FileGraph_node46" class="node">
+<title>sourcefile~setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node46"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="110.5,-234 53.5,-234 53.5,-210 110.5,-210 110.5,-234"/>
+<text text-anchor="middle" x="82" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~setup.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~setup.f90</title>
+<path fill="none" stroke="#000000" d="M215.77,-1552.62C209.53,-1548.92 203.77,-1544.14 200,-1538 124.63,-1415.37 253.66,-355.61 164,-243 153.76,-230.13 136.73,-224.54 120.93,-222.3"/>
+<polygon fill="#000000" stroke="#000000" points="121.11,-218.8 110.8,-221.28 120.4,-225.77 121.11,-218.8"/>
 </g>
-<!-- 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>
+<!-- sourcefile~helio_step.f90 -->
+<g id="file~~graph~~FileGraph_node47" class="node">
+<title>sourcefile~helio_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node47"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1872 42.5,-1872 42.5,-1848 121.5,-1848 121.5,-1872"/>
+<text text-anchor="middle" x="82" y="-1857.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~tides_getacch_pl.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_step.f90 -->
 <g id="file~~graph~~FileGraph_edge102" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_step.f90</title>
+<path fill="none" stroke="#000000" d="M242.08,-1576.04C232.2,-1596.55 212.22,-1639.75 200,-1678 177.68,-1747.84 214.97,-1786.29 164,-1839 155.4,-1847.89 143.56,-1853.19 131.59,-1856.31"/>
+<polygon fill="#000000" stroke="#000000" points="130.62,-1852.94 121.56,-1858.44 132.07,-1859.78 130.62,-1852.94"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_io.f90 -->
+<g id="file~~graph~~FileGraph_node48" class="node">
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_file~~graph~~FileGraph_node48"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121,-1284 43,-1284 43,-1260 121,-1260 121,-1284"/>
+<text text-anchor="middle" x="82" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_io.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_io.f90</title>
+<path fill="none" stroke="#000000" d="M215.81,-1551.98C209.72,-1548.35 204.02,-1543.75 200,-1538 136.94,-1447.8 237.52,-1374.9 164,-1293 155.5,-1283.53 143.34,-1278.08 131.01,-1275.01"/>
+<polygon fill="#000000" stroke="#000000" points="131.65,-1271.57 121.15,-1273.03 130.27,-1278.43 131.65,-1271.57"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_collision.f90 -->
+<g id="file~~graph~~FileGraph_edge107" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_collision.f90</title>
+<path fill="none" stroke="#000000" d="M241.39,-1576.22C230.69,-1596.64 209.79,-1639.28 200,-1678 179.7,-1758.31 217.8,-1986.02 164,-2049 158.83,-2055.06 152.15,-2059.48 144.85,-2062.7"/>
+<polygon fill="#000000" stroke="#000000" points="143.55,-2059.45 135.35,-2066.16 145.94,-2066.03 143.55,-2059.45"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
 <g id="file~~graph~~FileGraph_node52" class="node">
-<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>
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_file~~graph~~FileGraph_node52"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="144,-1242 20,-1242 20,-1218 144,-1218 144,-1242"/>
+<text text-anchor="middle" x="82" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90 -->
-<g id="file~~graph~~FileGraph_edge107" class="edge">
-<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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_placeholder.f90 -->
+<g id="file~~graph~~FileGraph_edge109" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_placeholder.f90</title>
+<path fill="none" stroke="#000000" d="M215.71,-1552.04C209.64,-1548.41 203.96,-1543.79 200,-1538 127.46,-1431.87 248.86,-1347.57 164,-1251 160.9,-1247.47 157.28,-1244.49 153.33,-1241.99"/>
+<polygon fill="#000000" stroke="#000000" points="154.72,-1238.76 144.23,-1237.24 151.48,-1244.97 154.72,-1238.76"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~whm_coord.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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_file~~graph~~FileGraph_node53"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2460 39,-2460 39,-2436 125,-2436 125,-2460"/>
+<text text-anchor="middle" x="82" y="-2445.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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge112" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_coord.f90</title>
+<path fill="none" stroke="#000000" d="M241.18,-1576.17C230.18,-1596.52 208.84,-1639.05 200,-1678 181.55,-1759.25 216.56,-2362.35 164,-2427 156.7,-2435.98 146.1,-2441.4 134.96,-2444.62"/>
+<polygon fill="#000000" stroke="#000000" points="134.05,-2441.24 125.1,-2446.9 135.63,-2448.05 134.05,-2441.24"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~kick.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>
+<title>sourcefile~kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node54"><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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~kick.f90 -->
+<g id="file~~graph~~FileGraph_edge114" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~kick.f90</title>
+<path fill="none" stroke="#000000" d="M215.77,-1552.62C209.53,-1548.92 203.77,-1544.14 200,-1538 122.24,-1411.36 256.52,-317.3 164,-201 153.46,-187.76 135.75,-182.22 119.56,-180.11"/>
+<polygon fill="#000000" stroke="#000000" points="119.52,-176.6 109.24,-179.18 118.89,-183.57 119.52,-176.6"/>
+</g>
+<!-- sourcefile~util_exit.f90 -->
+<g id="file~~graph~~FileGraph_node56" class="node">
+<title>sourcefile~util_exit.f90</title>
+<g id="a_file~~graph~~FileGraph_node56"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="115.5,-150 48.5,-150 48.5,-126 115.5,-126 115.5,-150"/>
+<text text-anchor="middle" x="82" y="-135.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~util_exit.f90 -->
+<g id="file~~graph~~FileGraph_edge117" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_exit.f90</title>
+<path fill="none" stroke="#000000" d="M215.77,-1552.62C209.53,-1548.93 203.77,-1544.14 200,-1538 119.85,-1407.35 259.37,-278.99 164,-159 154.83,-147.47 140.22,-141.78 125.92,-139.11"/>
+<polygon fill="#000000" stroke="#000000" points="126.03,-135.59 115.64,-137.66 125.05,-142.52 126.03,-135.59"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_discard.f90 -->
+<g id="file~~graph~~FileGraph_edge119" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_discard.f90</title>
+<path fill="none" stroke="#000000" d="M241.45,-1576.24C230.82,-1596.68 210.03,-1639.34 200,-1678 181.54,-1749.19 212.11,-1951.37 164,-2007 158.4,-2013.48 151.08,-2018.08 143.14,-2021.34"/>
+<polygon fill="#000000" stroke="#000000" points="141.94,-2018.05 133.59,-2024.57 144.19,-2024.68 141.94,-2018.05"/>
 </g>
 <!-- sourcefile~util_valid.f90 -->
-<g id="file~~graph~~FileGraph_node55" class="node">
+<g id="file~~graph~~FileGraph_node58" class="node">
 <title>sourcefile~util_valid.f90</title>
-<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>
+<g id="a_file~~graph~~FileGraph_node58"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118,-108 46,-108 46,-84 118,-84 118,-108"/>
+<text text-anchor="middle" x="82" y="-93.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_edge113" class="edge">
+<g id="file~~graph~~FileGraph_edge121" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_valid.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M215.76,-1552.62C209.52,-1548.93 203.76,-1544.14 200,-1538 117.47,-1403.34 262.23,-240.68 164,-117 155.36,-106.12 141.87,-100.44 128.37,-97.59"/>
+<polygon fill="#000000" stroke="#000000" points="128.54,-94.07 118.11,-95.93 127.42,-100.98 128.54,-94.07"/>
+</g>
+<!-- sourcefile~whm_gr.f90 -->
+<g id="file~~graph~~FileGraph_node61" class="node">
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_file~~graph~~FileGraph_node61"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-2418 48,-2418 48,-2394 116,-2394 116,-2418"/>
+<text text-anchor="middle" x="82" y="-2403.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_gr.f90 -->
+<g id="file~~graph~~FileGraph_edge127" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_gr.f90</title>
+<path fill="none" stroke="#000000" d="M241.19,-1576.18C230.21,-1596.53 208.9,-1639.06 200,-1678 182.47,-1754.68 213.7,-2324.04 164,-2385 154.84,-2396.23 140.52,-2401.9 126.44,-2404.63"/>
+<polygon fill="#000000" stroke="#000000" points="125.69,-2401.21 116.32,-2406.14 126.73,-2408.13 125.69,-2401.21"/>
 </g>
 <!-- sourcefile~util_sort.f90 -->
-<g id="file~~graph~~FileGraph_node56" class="node">
+<g id="file~~graph~~FileGraph_node62" 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>
+<g id="a_file~~graph~~FileGraph_node62"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-66 48,-66 48,-42 116,-42 116,-66"/>
+<text text-anchor="middle" x="82" y="-51.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~util_sort.f90 -->
-<g id="file~~graph~~FileGraph_edge115" class="edge">
+<g id="file~~graph~~FileGraph_edge129" 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"/>
+<path fill="none" stroke="#000000" d="M215.76,-1552.62C209.52,-1548.93 203.76,-1544.14 200,-1538 157.54,-1468.67 214.54,-138.68 164,-75 154.92,-63.55 140.47,-57.86 126.27,-55.17"/>
+<polygon fill="#000000" stroke="#000000" points="126.45,-51.66 116.06,-53.7 125.45,-58.59 126.45,-51.66"/>
 </g>
-<!-- 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>
+<!-- sourcefile~operator_cross.f90 -->
+<g id="file~~graph~~FileGraph_node63" class="node">
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_file~~graph~~FileGraph_node63"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-2796 30.5,-2796 30.5,-2772 133.5,-2772 133.5,-2796"/>
+<text text-anchor="middle" x="82" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~operator_cross.f90 -->
+<g id="file~~graph~~FileGraph_edge131" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~operator_cross.f90</title>
+<path fill="none" stroke="#000000" d="M241.11,-1576.16C230.02,-1596.48 208.55,-1638.98 200,-1678 187.08,-1736.91 201.69,-2715.92 164,-2763 158.58,-2769.77 151.29,-2774.52 143.3,-2777.83"/>
+<polygon fill="#000000" stroke="#000000" points="142.01,-2774.57 133.65,-2781.09 144.25,-2781.2 142.01,-2774.57"/>
 </g>
-<!-- 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>
+<!-- sourcefile~util_fill.f90 -->
+<g id="file~~graph~~FileGraph_node64" class="node">
+<title>sourcefile~util_fill.f90</title>
+<g id="a_file~~graph~~FileGraph_node64"><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_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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90 -->
+<g id="file~~graph~~FileGraph_edge133" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90</title>
+<path fill="none" stroke="#000000" d="M215.76,-1552.63C209.52,-1548.93 203.76,-1544.14 200,-1538 156.35,-1466.66 215.97,-98.53 164,-33 154,-20.4 137.5,-14.77 121.99,-12.44"/>
+<polygon fill="#000000" stroke="#000000" points="122.34,-8.95 112.01,-11.34 121.57,-15.91 122.34,-8.95"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_setup.f90 -->
+<g id="file~~graph~~FileGraph_node65" class="node">
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node65"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="130,-1200 34,-1200 34,-1176 130,-1176 130,-1200"/>
+<text text-anchor="middle" x="82" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge134" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_setup.f90</title>
+<path fill="none" stroke="#000000" d="M215.64,-1552.09C209.57,-1548.45 203.91,-1543.82 200,-1538 117.96,-1415.91 260.22,-1320.26 164,-1209 157.65,-1201.66 149.1,-1196.72 139.93,-1193.43"/>
+<polygon fill="#000000" stroke="#000000" points="140.8,-1190.04 130.22,-1190.56 138.82,-1196.75 140.8,-1190.04"/>
 </g>
-<!-- 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>
+<!-- sourcefile~util_solve.f90 -->
+<g id="file~~graph~~FileGraph_node66" class="node">
+<title>sourcefile~util_solve.f90</title>
+<g id="a_file~~graph~~FileGraph_node66"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="119.5,-1536 44.5,-1536 44.5,-1512 119.5,-1512 119.5,-1536"/>
+<text text-anchor="middle" x="82" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_solve.f90 -->
+<g id="file~~graph~~FileGraph_edge137" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_solve.f90</title>
+<path fill="none" stroke="#000000" d="M215.79,-1556.19C191.24,-1550.24 157.07,-1541.96 129.54,-1535.28"/>
+<polygon fill="#000000" stroke="#000000" points="130.27,-1531.86 119.73,-1532.9 128.62,-1538.66 130.27,-1531.86"/>
 </g>
-<!-- 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>
+<!-- sourcefile~orbel.f90~2 -->
+<g id="file~~graph~~FileGraph_node67" class="node">
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_file~~graph~~FileGraph_node67"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109.5,-1494 54.5,-1494 54.5,-1470 109.5,-1470 109.5,-1494"/>
+<text text-anchor="middle" x="82" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90~2 -->
+<g id="file~~graph~~FileGraph_edge139" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90~2</title>
+<path fill="none" stroke="#000000" d="M222.3,-1551.75C214.85,-1547.77 206.87,-1543.05 200,-1538 182.02,-1524.78 183.45,-1513.94 164,-1503 150.55,-1495.43 134.32,-1490.53 119.93,-1487.38"/>
+<polygon fill="#000000" stroke="#000000" points="120.33,-1483.9 109.84,-1485.39 118.97,-1490.76 120.33,-1483.9"/>
 </g>
-<!-- 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>
+<!-- sourcefile~util_rescale.f90 -->
+<g id="file~~graph~~FileGraph_node68" class="node">
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_file~~graph~~FileGraph_node68"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-1452 39.5,-1452 39.5,-1428 124.5,-1428 124.5,-1452"/>
+<text text-anchor="middle" x="82" y="-1437.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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_rescale.f90 -->
+<g id="file~~graph~~FileGraph_edge141" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_rescale.f90</title>
+<path fill="none" stroke="#000000" d="M218.76,-1551.99C212,-1548.24 205.27,-1543.59 200,-1538 174.09,-1510.51 193.05,-1485.15 164,-1461 155.53,-1453.96 144.98,-1449.25 134.32,-1446.1"/>
+<polygon fill="#000000" stroke="#000000" points="135.1,-1442.69 124.55,-1443.63 133.39,-1449.48 135.1,-1442.69"/>
 </g>
-<!-- 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>
+<!-- sourcefile~util_set.f90 -->
+<g id="file~~graph~~FileGraph_node69" class="node">
+<title>sourcefile~util_set.f90</title>
+<g id="a_file~~graph~~FileGraph_node69"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="114,-1410 50,-1410 50,-1386 114,-1386 114,-1410"/>
+<text text-anchor="middle" x="82" y="-1395.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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_set.f90 -->
+<g id="file~~graph~~FileGraph_edge143" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_set.f90</title>
+<path fill="none" stroke="#000000" d="M216.93,-1551.79C210.63,-1548.14 204.55,-1543.58 200,-1538 165.08,-1495.18 203.85,-1457.28 164,-1419 153.38,-1408.8 138.46,-1403.38 124.32,-1400.56"/>
+<polygon fill="#000000" stroke="#000000" points="124.67,-1397.07 114.24,-1398.94 123.55,-1403.98 124.67,-1397.07"/>
 </g>
-<!-- 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>
+<!-- sourcefile~util_peri.f90 -->
+<g id="file~~graph~~FileGraph_node70" class="node">
+<title>sourcefile~util_peri.f90</title>
+<g id="a_file~~graph~~FileGraph_node70"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.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_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_peri.f90 -->
+<g id="file~~graph~~FileGraph_edge145" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_peri.f90</title>
+<path fill="none" stroke="#000000" d="M215.51,-1552.18C209.45,-1548.53 203.82,-1543.88 200,-1538 144.7,-1452.98 229.19,-1160.7 164,-1083 154.68,-1071.89 140.32,-1066.26 126.27,-1063.51"/>
+<polygon fill="#000000" stroke="#000000" points="126.57,-1060.02 116.16,-1061.98 125.53,-1066.94 126.57,-1060.02"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_edge147" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M241.35,-1576.21C230.59,-1596.62 209.6,-1639.23 200,-1678 177.86,-1767.43 223.49,-2020.66 164,-2091 163.27,-2091.86 162.52,-2092.69 161.73,-2093.48"/>
+<polygon fill="#000000" stroke="#000000" points="159.51,-2090.78 153.98,-2099.82 163.94,-2096.2 159.51,-2090.78"/>
 </g>
-<!-- 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>
+<!-- sourcefile~helio_drift.f90 -->
+<g id="file~~graph~~FileGraph_node72" class="node">
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node72"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1830 43.5,-1830 43.5,-1806 120.5,-1806 120.5,-1830"/>
+<text text-anchor="middle" x="82" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge149" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_drift.f90</title>
+<path fill="none" stroke="#000000" d="M242.39,-1576.15C232.96,-1596.81 213.62,-1640.22 200,-1678 181.25,-1729.98 203.85,-1758.72 164,-1797 155,-1805.65 142.91,-1810.86 130.83,-1813.96"/>
+<polygon fill="#000000" stroke="#000000" points="129.8,-1810.6 120.74,-1816.1 131.25,-1817.45 129.8,-1810.6"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_resize.f90 -->
+<g id="file~~graph~~FileGraph_node74" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_file~~graph~~FileGraph_node74"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1032 42.5,-1032 42.5,-1008 121.5,-1008 121.5,-1032"/>
+<text text-anchor="middle" x="82" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_resize.f90 -->
+<g id="file~~graph~~FileGraph_edge152" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_resize.f90</title>
+<path fill="none" stroke="#000000" d="M215.97,-1552.49C209.72,-1548.8 203.91,-1544.05 200,-1538 139.93,-1444.97 234.89,-1126.07 164,-1041 155.85,-1031.22 143.8,-1025.68 131.47,-1022.62"/>
+<polygon fill="#000000" stroke="#000000" points="132.08,-1019.17 121.59,-1020.66 130.71,-1026.03 132.08,-1019.17"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_version.f90 -->
+<g id="file~~graph~~FileGraph_node75" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_file~~graph~~FileGraph_node75"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-990 39.5,-990 39.5,-966 124.5,-966 124.5,-990"/>
+<text text-anchor="middle" x="82" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_version.f90 -->
+<g id="file~~graph~~FileGraph_edge154" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_version.f90</title>
+<path fill="none" stroke="#000000" d="M215.95,-1552.5C209.7,-1548.82 203.89,-1544.06 200,-1538 135.17,-1436.97 240.59,-1091.44 164,-999 156.54,-990 145.78,-984.58 134.52,-981.39"/>
+<polygon fill="#000000" stroke="#000000" points="135.09,-977.93 124.56,-979.11 133.53,-984.75 135.09,-977.93"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_step.f90 -->
+<g id="file~~graph~~FileGraph_edge155" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_step.f90</title>
+<path fill="none" stroke="#000000" d="M241.13,-1576.16C230.06,-1596.49 208.64,-1639 200,-1678 176.94,-1782.11 230.83,-2553.91 164,-2637 156.1,-2646.83 144.24,-2652.4 132.02,-2655.48"/>
+<polygon fill="#000000" stroke="#000000" points="131.33,-2652.05 122.21,-2657.45 132.71,-2658.92 131.33,-2652.05"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_kick.f90 -->
+<g id="file~~graph~~FileGraph_node77" class="node">
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node77"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-2376 43.5,-2376 43.5,-2352 120.5,-2352 120.5,-2376"/>
+<text text-anchor="middle" x="82" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge158" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_kick.f90</title>
+<path fill="none" stroke="#000000" d="M241.21,-1576.18C230.24,-1596.53 208.96,-1639.08 200,-1678 183.4,-1750.11 210.85,-2285.72 164,-2343 155.8,-2353.03 143.48,-2358.62 130.92,-2361.64"/>
+<polygon fill="#000000" stroke="#000000" points="130.03,-2358.25 120.86,-2363.56 131.34,-2365.13 130.03,-2358.25"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_copy.f90 -->
+<g id="file~~graph~~FileGraph_node78" class="node">
+<title>sourcefile~util_copy.f90</title>
+<g id="a_file~~graph~~FileGraph_node78"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="117.5,-948 46.5,-948 46.5,-924 117.5,-924 117.5,-948"/>
+<text text-anchor="middle" x="82" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_copy.f90 -->
+<g id="file~~graph~~FileGraph_edge160" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_copy.f90</title>
+<path fill="none" stroke="#000000" d="M215.93,-1552.52C209.68,-1548.83 203.88,-1544.07 200,-1538 130.4,-1428.96 246.29,-1056.81 164,-957 155.16,-946.28 141.63,-940.64 128.13,-937.78"/>
+<polygon fill="#000000" stroke="#000000" points="128.34,-934.27 117.9,-936.09 127.2,-941.17 128.34,-934.27"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
+<g id="file~~graph~~FileGraph_node79" class="node">
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_file~~graph~~FileGraph_node79"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="141,-318 23,-318 23,-294 141,-294 141,-318"/>
+<text text-anchor="middle" x="82" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90 -->
+<g id="file~~graph~~FileGraph_edge162" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90</title>
+<path fill="none" stroke="#000000" d="M215.78,-1552.61C209.54,-1548.92 203.78,-1544.13 200,-1538 129.4,-1423.38 247.95,-432.23 164,-327 160.23,-322.27 155.54,-318.53 150.33,-315.57"/>
+<polygon fill="#000000" stroke="#000000" points="151.69,-312.34 141.15,-311.3 148.74,-318.69 151.69,-312.34"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1902C245.07,-1902.3 181.99,-1918.47 134.7,-1930.65"/>
+<polygon fill="#000000" stroke="#000000" points="133.68,-1927.3 124.87,-1933.18 135.43,-1934.08 133.68,-1927.3"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~symba_classes.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M508.11,-1829.06C500.94,-1832.8 493.76,-1837.43 488,-1843 464,-1866.25 476.53,-1886.31 452,-1909 448.25,-1912.47 443.96,-1915.54 439.44,-1918.23"/>
+<polygon fill="#000000" stroke="#000000" points="437.75,-1915.17 430.57,-1922.96 441.04,-1921.34 437.75,-1915.17"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_gr.f90 -->
+<g id="file~~graph~~FileGraph_edge64" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_gr.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1902C206.99,-1906.23 159.94,-1905.7 126.6,-1904.43"/>
+<polygon fill="#000000" stroke="#000000" points="126.42,-1900.92 116.29,-1904 126.13,-1907.91 126.42,-1900.92"/>
 </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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge76" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M504.61,-1804.93C460.57,-1788.29 384.46,-1754.73 334,-1706 297.32,-1670.58 271.04,-1615.76 258.43,-1585.64"/>
+<polygon fill="#000000" stroke="#000000" points="261.55,-1584.04 254.54,-1576.1 255.07,-1586.68 261.55,-1584.04"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_step.f90 -->
+<g id="file~~graph~~FileGraph_edge101" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_step.f90</title>
+<path fill="none" stroke="#000000" d="M514.66,-1829.11C465.46,-1851.99 351.59,-1899.53 250,-1902"/>
+<path fill="none" stroke="#000000" d="M248,-1902C246.5,-1902.15 179.71,-1885.01 131.58,-1872.58"/>
+<polygon fill="#000000" stroke="#000000" points="132.18,-1869.12 121.62,-1870 130.43,-1875.89 132.18,-1869.12"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge148" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_drift.f90</title>
+<path fill="none" stroke="#000000" d="M493.22,-1817.1C406.2,-1817.29 219.05,-1817.7 130.85,-1817.9"/>
+<polygon fill="#000000" stroke="#000000" points="130.59,-1814.4 120.6,-1817.92 130.6,-1821.4 130.59,-1814.4"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge157" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_kick.f90</title>
+<path fill="none" stroke="#000000" d="M528.34,-1829.11C517.25,-1841.52 500.17,-1861.7 488,-1881 468.28,-1912.28 470.94,-1924.25 452,-1956 342.16,-2140.13 342.69,-2224.52 164,-2343 154.07,-2349.58 142.2,-2354.1 130.64,-2357.21"/>
+<polygon fill="#000000" stroke="#000000" points="129.54,-2353.87 120.62,-2359.58 131.16,-2360.68 129.54,-2353.87"/>
 </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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge72" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M773.7,-1675.18C733.55,-1679.41 677.64,-1686.14 629,-1695 589.65,-1702.17 580.7,-1723.9 541.5,-1716"/>
+<path fill="none" stroke="#000000" d="M539.5,-1716C511.61,-1710 348.98,-1619.68 280.44,-1581.18"/>
+<polygon fill="#000000" stroke="#000000" points="281.85,-1577.95 271.42,-1576.1 278.42,-1584.06 281.85,-1577.95"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_spill.f90 -->
+<g id="file~~graph~~FileGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_spill.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C132.35,-470.71 266.81,-770.9 164,-873 153.98,-882.95 139.89,-888.37 126.26,-891.27"/>
+<polygon fill="#000000" stroke="#000000" points="125.27,-887.89 116.01,-893.03 126.46,-894.79 125.27,-887.89"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~obl.f90 -->
-<g id="file~~graph~~FileGraph_edge37" class="edge">
+<g id="file~~graph~~FileGraph_edge10" 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"/>
+<path fill="none" stroke="#000000" d="M248,-558C146.68,-481.52 255.75,-743.27 164,-831 152.14,-842.34 134.98,-847.76 119.51,-850.28"/>
+<polygon fill="#000000" stroke="#000000" points="118.63,-846.86 109.15,-851.59 119.51,-853.81 118.63,-846.86"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~gr.f90 -->
-<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,-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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~drift.f90 -->
+<g id="file~~graph~~FileGraph_edge16" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C160.81,-492.19 244.83,-715.51 164,-789 151.95,-799.96 134.91,-805.34 119.58,-807.94"/>
+<polygon fill="#000000" stroke="#000000" points="118.75,-804.52 109.31,-809.32 119.69,-811.46 118.75,-804.52"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~discard.f90 -->
+<g id="file~~graph~~FileGraph_edge20" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~discard.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C174.63,-502.62 234.12,-687.56 164,-747 153.14,-756.21 138.72,-761.44 125.06,-764.4"/>
+<polygon fill="#000000" stroke="#000000" points="124.05,-761.02 114.83,-766.24 125.3,-767.91 124.05,-761.02"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~io.f90 -->
+<g id="file~~graph~~FileGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~io.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C187.94,-512.67 223.78,-659.3 164,-705 151.25,-714.75 134.41,-719.99 119.39,-722.81"/>
+<polygon fill="#000000" stroke="#000000" points="118.69,-719.38 109.36,-724.39 119.78,-726.29 118.69,-719.38"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
+<g id="file~~graph~~FileGraph_edge24" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C200.3,-522 214.16,-630.51 164,-663 161.26,-664.78 158.37,-666.4 155.39,-667.89"/>
+<polygon fill="#000000" stroke="#000000" points="153.92,-664.72 146.19,-671.96 156.75,-671.12 153.92,-664.72"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge43" class="edge">
+<g id="file~~graph~~FileGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" d="M682.5,-1857C627.79,-1887.56 603.19,-1845.96 541.5,-1857"/>
+<path fill="none" stroke="#000000" d="M539.5,-1857C492.15,-1865.48 444.35,-1896.37 417.04,-1916.64"/>
+<polygon fill="#000000" stroke="#000000" points="414.76,-1913.97 408.92,-1922.8 419,-1919.54 414.76,-1913.97"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_spin_step.f90 -->
+<g id="file~~graph~~FileGraph_edge34" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_spin_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C210.75,-529.89 206.05,-600.76 164,-621 157.84,-623.96 151.22,-626.55 144.5,-628.79"/>
+<polygon fill="#000000" stroke="#000000" points="143.15,-625.54 134.63,-631.84 145.22,-632.23 143.15,-625.54"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_getacch_pl.f90 -->
+<g id="file~~graph~~FileGraph_edge36" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_getacch_pl.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C247.43,-557.57 187.08,-573.05 139.54,-585.34"/>
+<polygon fill="#000000" stroke="#000000" points="138.42,-582.01 129.61,-587.91 140.17,-588.79 138.42,-582.01"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_resize.f90 -->
-<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,-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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~user_getacch.f90 -->
+<g id="file~~graph~~FileGraph_edge46" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~user_getacch.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C215.22,-533.26 167.42,-536.23 131.69,-543.63"/>
+<polygon fill="#000000" stroke="#000000" points="130.48,-540.31 121.49,-545.93 132.02,-547.14 130.48,-540.31"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~gr.f90 -->
+<g id="file~~graph~~FileGraph_edge56" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~gr.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C210.21,-529.47 155.11,-520.2 119.16,-517.26"/>
+<polygon fill="#000000" stroke="#000000" points="119.32,-513.76 109.1,-516.56 118.84,-520.74 119.32,-513.76"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_index.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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_index.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C210.75,-529.89 206.05,-515.24 164,-495 153.47,-489.93 141.56,-485.98 130.18,-482.93"/>
+<polygon fill="#000000" stroke="#000000" points="130.91,-479.51 120.36,-480.49 129.22,-486.3 130.91,-479.51"/>
 </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_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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90 -->
+<g id="file~~graph~~FileGraph_edge62" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C200.3,-522 214.16,-485.49 164,-453 150.85,-444.48 134.41,-439.41 119.78,-436.4"/>
+<polygon fill="#000000" stroke="#000000" points="119.99,-432.88 109.52,-434.55 118.74,-439.77 119.99,-432.88"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge70" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M392,-1564C358.63,-1561.69 320.75,-1561.83 292.51,-1562.47"/>
+<polygon fill="#000000" stroke="#000000" points="292.1,-1558.98 282.19,-1562.74 292.28,-1565.98 292.1,-1558.98"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_append.f90 -->
+<g id="file~~graph~~FileGraph_edge80" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_append.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C187.94,-512.67 223.78,-456.7 164,-411 155.6,-404.58 145.44,-400.12 135.19,-397.01"/>
+<polygon fill="#000000" stroke="#000000" points="135.95,-393.59 125.39,-394.43 134.17,-400.36 135.95,-393.59"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~netcdf.f90 -->
+<g id="file~~graph~~FileGraph_edge82" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~netcdf.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C174.63,-502.62 234.12,-428.44 164,-369 152.41,-359.17 136.76,-353.87 122.32,-351.04"/>
+<polygon fill="#000000" stroke="#000000" points="122.51,-347.52 112.08,-349.38 121.39,-354.43 122.51,-347.52"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge86" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" d="M821.8,-1537.01C810.78,-1558.79 787.65,-1606.53 774,-1649 750.64,-1721.7 779.2,-1752.71 738,-1817 721.98,-1842 710.42,-1842.52 684.5,-1857"/>
+<path fill="none" stroke="#000000" d="M682.5,-1857C664.48,-1867.07 612.67,-1848.31 577.13,-1833.22"/>
+<polygon fill="#000000" stroke="#000000" points="578.15,-1829.84 567.58,-1829.08 575.37,-1836.27 578.15,-1829.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge97" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_coord.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C146.68,-481.52 255.75,-372.73 164,-285 154.98,-276.37 142.88,-271.17 130.8,-268.07"/>
+<polygon fill="#000000" stroke="#000000" points="131.23,-264.58 120.72,-265.92 129.77,-271.43 131.23,-264.58"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.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_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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C132.35,-470.71 266.81,-345.1 164,-243 152.69,-231.77 136.21,-226.31 121.05,-223.73"/>
+<polygon fill="#000000" stroke="#000000" points="121.23,-220.23 110.85,-222.38 120.31,-227.17 121.23,-220.23"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~kick.f90 -->
+<g id="file~~graph~~FileGraph_edge113" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C117.9,-459.8 277.95,-317.55 164,-201 152.34,-189.07 134.84,-183.62 119.08,-181.23"/>
+<polygon fill="#000000" stroke="#000000" points="119.4,-177.75 109.06,-180.07 118.59,-184.7 119.4,-177.75"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_exit.f90 -->
-<g id="file~~graph~~FileGraph_edge108" class="edge">
+<g id="file~~graph~~FileGraph_edge116" class="edge">
 <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~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"/>
+<path fill="none" stroke="#000000" d="M248,-558C103.36,-448.82 289.15,-290.07 164,-159 154.07,-148.6 139.71,-143.1 125.83,-140.27"/>
+<polygon fill="#000000" stroke="#000000" points="126.31,-136.8 115.88,-138.65 125.19,-143.71 126.31,-136.8"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_valid.f90 -->
-<g id="file~~graph~~FileGraph_edge112" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" d="M248,-558C88.75,-437.8 300.39,-262.63 164,-117 154.66,-107.03 141.26,-101.55 128.03,-98.61"/>
+<polygon fill="#000000" stroke="#000000" points="128.48,-95.13 118.02,-96.82 127.25,-102.02 128.48,-95.13"/>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge122" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" d="M822.54,-1537.28C812.69,-1559.5 791.35,-1607.9 774,-1649 757.56,-1687.93 760.53,-1701.25 738,-1737 728.86,-1751.5 716.04,-1765.78 705.23,-1776.67"/>
+<polygon fill="#000000" stroke="#000000" points="702.5,-1774.45 697.8,-1783.94 707.4,-1779.45 702.5,-1774.45"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge124" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" d="M682.5,-1420C658.26,-1408.23 629.11,-1402.85 603.61,-1400.56"/>
+<polygon fill="#000000" stroke="#000000" points="603.54,-1397.05 593.31,-1399.78 603.02,-1404.03 603.54,-1397.05"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_sort.f90 -->
+<g id="file~~graph~~FileGraph_edge128" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_sort.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C74.09,-426.73 311.67,-235.22 164,-75 154.26,-64.43 139.94,-58.89 126.04,-56.08"/>
+<polygon fill="#000000" stroke="#000000" points="126.49,-52.6 116.07,-54.48 125.38,-59.52 126.49,-52.6"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_fill.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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_fill.f90</title>
+<path fill="none" stroke="#000000" d="M814.74,-1512.95C790.52,-1491.51 736.81,-1446.52 684.5,-1420"/>
+<path fill="none" stroke="#000000" d="M248,-558C59.4,-415.64 322.97,-207.84 164,-33 153.44,-21.38 137.36,-15.83 122.31,-13.3"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-9.79 112.13,-11.98 121.6,-16.73 122.49,-9.79"/>
+<path fill="none" stroke="#000000" d="M682.5,-1420C300.2,-1226.18 592.11,-816.23 250,-558"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_solve.f90 -->
+<g id="file~~graph~~FileGraph_edge136" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_solve.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1524C208.84,-1516.14 163.4,-1516.84 130.13,-1519.11"/>
+<polygon fill="#000000" stroke="#000000" points="129.49,-1515.65 119.78,-1519.89 130.02,-1522.63 129.49,-1515.65"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90~2 -->
+<g id="file~~graph~~FileGraph_edge138" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90~2</title>
+<path fill="none" stroke="#000000" d="M248,-1524C241.62,-1522.72 165.96,-1503.33 119.34,-1491.35"/>
+<polygon fill="#000000" stroke="#000000" points="120.14,-1487.94 109.58,-1488.84 118.4,-1494.72 120.14,-1487.94"/>
+<path fill="none" stroke="#000000" d="M775.28,-1535.15C693.65,-1549.65 531.73,-1573.52 394,-1564"/>
+<path fill="none" stroke="#000000" d="M392,-1564C326.56,-1559.92 314.29,-1536.9 250,-1524"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_rescale.f90 -->
+<g id="file~~graph~~FileGraph_edge140" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_rescale.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1440C210.21,-1437.63 167.45,-1437.71 134.93,-1438.34"/>
+<polygon fill="#000000" stroke="#000000" points="134.67,-1434.84 124.75,-1438.56 134.82,-1441.84 134.67,-1434.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_set.f90 -->
+<g id="file~~graph~~FileGraph_edge142" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_set.f90</title>
+<path fill="none" stroke="#000000" d="M682.5,-1420C671.68,-1414.75 262,-1440.75 250,-1440"/>
+<path fill="none" stroke="#000000" d="M248,-1440C246.41,-1439.94 172.26,-1420.95 123.91,-1408.53"/>
+<polygon fill="#000000" stroke="#000000" points="124.58,-1405.08 114.03,-1405.98 122.84,-1411.86 124.58,-1405.08"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_peri.f90 -->
+<g id="file~~graph~~FileGraph_edge144" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_peri.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C74.09,-426.73 311.67,-880.78 164,-1041 154.26,-1051.57 139.94,-1057.11 126.04,-1059.92"/>
+<polygon fill="#000000" stroke="#000000" points="125.38,-1056.48 116.07,-1061.52 126.49,-1063.4 125.38,-1056.48"/>
 </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.48,-1474.81C453.45,-1467.1 408.8,-1455.54 394,-1444"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_resize.f90 -->
+<g id="file~~graph~~FileGraph_edge151" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_resize.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C88.75,-437.8 300.39,-853.37 164,-999 155.54,-1008.03 143.75,-1013.38 131.78,-1016.49"/>
+<polygon fill="#000000" stroke="#000000" points="130.8,-1013.12 121.74,-1018.61 132.25,-1019.97 130.8,-1013.12"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_version.f90 -->
+<g id="file~~graph~~FileGraph_edge153" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_version.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C103.36,-448.82 289.15,-825.93 164,-957 156.09,-965.29 145.36,-970.46 134.3,-973.66"/>
+<polygon fill="#000000" stroke="#000000" points="133.48,-970.25 124.56,-975.98 135.1,-977.06 133.48,-970.25"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_copy.f90 -->
+<g id="file~~graph~~FileGraph_edge159" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_copy.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C117.9,-459.8 277.95,-798.45 164,-915 154.45,-924.77 140.99,-930.19 127.78,-933.15"/>
+<polygon fill="#000000" stroke="#000000" points="127.01,-929.73 117.79,-934.96 128.25,-936.62 127.01,-929.73"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90 -->
+<g id="file~~graph~~FileGraph_edge161" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90</title>
+<path fill="none" stroke="#000000" d="M248,-558C160.81,-492.19 244.83,-400.49 164,-327 160.07,-323.43 155.61,-320.45 150.85,-317.96"/>
+<polygon fill="#000000" stroke="#000000" points="151.96,-314.62 141.4,-313.77 149.12,-321.02 151.96,-314.62"/>
 </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"/>
+<!-- sourcefile~operator_mag.f90 -->
+<g id="file~~graph~~FileGraph_node55" class="node">
+<title>sourcefile~operator_mag.f90</title>
+<g id="a_file~~graph~~FileGraph_node55"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="298,-2708 200,-2708 200,-2684 298,-2684 298,-2708"/>
+<text text-anchor="middle" x="249" y="-2693.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
+</a>
 </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~whm_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge5" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1776C208.66,-1773.54 163.94,-1773.72 130.99,-1774.42"/>
+<polygon fill="#000000" stroke="#000000" points="130.64,-1770.93 120.72,-1774.66 130.8,-1777.92 130.64,-1770.93"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge17" class="edge">
+<g id="file~~graph~~FileGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M665.67,-1808.26C654.37,-1817.06 639.66,-1829.68 629,-1843 608.13,-1869.09 617,-1885.75 593,-1909 589.67,-1912.22 585.87,-1915.13 581.86,-1917.73"/>
+<polygon fill="#000000" stroke="#000000" points="579.79,-1914.89 572.89,-1922.94 583.3,-1920.94 579.79,-1914.89"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge52" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1776C244.98,-1775.81 178.24,-1758.66 130.58,-1746.34"/>
+<polygon fill="#000000" stroke="#000000" points="131.28,-1742.9 120.73,-1743.79 129.53,-1749.68 131.28,-1742.9"/>
+<path fill="none" stroke="#000000" d="M539.5,-1776C413.61,-1749.41 378.42,-1784.04 250,-1776"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge66" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1692C210.29,-1687.33 167.36,-1687.5 134.74,-1688.75"/>
+<polygon fill="#000000" stroke="#000000" points="134.38,-1685.26 124.54,-1689.19 134.68,-1692.25 134.38,-1685.26"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_step.f90 -->
+<g id="file~~graph~~FileGraph_edge68" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1692C245.01,-1691.63 179.01,-1674.72 131.4,-1662.47"/>
+<polygon fill="#000000" stroke="#000000" points="132.11,-1659.04 121.55,-1659.94 130.36,-1665.82 132.11,-1659.04"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge34" class="edge">
+<g id="file~~graph~~FileGraph_edge71" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M661.78,-1511.91C640.33,-1489.15 589.62,-1442.37 536.5,-1444"/>
+<path fill="none" stroke="#000000" d="M392,-1692C367.1,-1679.42 356.35,-1684.7 334,-1668 303.12,-1644.92 276.95,-1608 262.37,-1584.92"/>
+<polygon fill="#000000" stroke="#000000" points="265.25,-1582.93 257.03,-1576.25 259.29,-1586.6 265.25,-1582.93"/>
+<path fill="none" stroke="#000000" d="M539.5,-1776C490.77,-1765.71 496.72,-1727.92 452,-1706 428.19,-1694.33 417.67,-1703.96 394,-1692"/>
+<path fill="none" stroke="#000000" d="M636.19,-1791.02C608.54,-1787.66 572.83,-1782.62 541.5,-1776"/>
 </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"/>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge87" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" d="M636.33,-1802.88C624.04,-1804.71 610.62,-1806.71 597.84,-1808.61"/>
+<polygon fill="#000000" stroke="#000000" points="597.15,-1805.17 587.77,-1810.11 598.18,-1812.1 597.15,-1805.17"/>
 </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"/>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_util.f90 -->
+<g id="file~~graph~~FileGraph_edge89" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_util.f90</title>
+<path fill="none" stroke="#000000" d="M392,-1692C335.67,-1663.53 312.63,-1699.76 250,-1692"/>
+<path fill="none" stroke="#000000" d="M248,-1692C201.69,-1686.27 206.05,-1649.24 164,-1629 152.96,-1623.68 140.39,-1619.59 128.51,-1616.49"/>
+<polygon fill="#000000" stroke="#000000" points="129.28,-1613.08 118.74,-1614.12 127.63,-1619.88 129.28,-1613.08"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge51" class="edge">
+<g id="file~~graph~~FileGraph_edge111" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_coord.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M248,-2448C213.01,-2464.48 169.02,-2463.58 135.27,-2459.04"/>
+<polygon fill="#000000" stroke="#000000" points="135.55,-2455.54 125.14,-2457.53 134.52,-2462.47 135.55,-2455.54"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_kick.f90 -->
-<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,-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"/>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_gr.f90 -->
+<g id="file~~graph~~FileGraph_edge126" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_gr.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2448C246.45,-2448.24 174.66,-2429.76 126.3,-2417.24"/>
+<polygon fill="#000000" stroke="#000000" points="126.93,-2413.78 116.37,-2414.67 125.17,-2420.56 126.93,-2413.78"/>
+<path fill="none" stroke="#000000" d="M668.64,-1808.02C645.6,-1827.94 601.16,-1866.08 593,-1871 549.83,-1897.06 520.5,-1875.44 488,-1914 440.46,-1970.39 477.85,-2006.92 452,-2076 419.03,-2164.1 342.98,-2433.73 250,-2448"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_util.f90 -->
-<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,-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"/>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_set.f90 -->
+<g id="file~~graph~~FileGraph_edge9" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_set.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1272C188.69,-1264.66 214.16,-1199.49 164,-1167 155.04,-1161.19 144.54,-1156.99 134.14,-1153.95"/>
+<polygon fill="#000000" stroke="#000000" points="134.8,-1150.5 124.24,-1151.37 133.04,-1157.28 134.8,-1150.5"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_step.f90 -->
-<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.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"/>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge33" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M536.19,-1412.18C517.45,-1481.08 424.69,-1822.14 400.03,-1912.82"/>
+<polygon fill="#000000" stroke="#000000" points="396.62,-1912.04 397.37,-1922.61 403.37,-1913.87 396.62,-1912.04"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_setup.f90 -->
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_regime.f90 -->
+<g id="file~~graph~~FileGraph_edge39" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_regime.f90</title>
+<path fill="none" stroke="#000000" d="M392,-1272C328.94,-1274.45 312.63,-1279.76 250,-1272"/>
+<path fill="none" stroke="#000000" d="M248,-1272C173.32,-1262.75 223.78,-1170.7 164,-1125 157.83,-1120.29 150.71,-1116.62 143.3,-1113.78"/>
+<polygon fill="#000000" stroke="#000000" points="144.41,-1110.46 133.81,-1110.6 142.18,-1117.1 144.41,-1110.46"/>
+<path fill="none" stroke="#000000" d="M533.45,-1387.9C516.28,-1355.48 463.93,-1269.29 394,-1272"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_generate.f90 -->
+<g id="file~~graph~~FileGraph_edge59" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_generate.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1272C201.69,-1266.27 206.05,-1314.76 164,-1335 158.8,-1337.5 153.27,-1339.73 147.62,-1341.72"/>
+<polygon fill="#000000" stroke="#000000" points="146.49,-1338.41 138.07,-1344.83 148.66,-1345.06 146.49,-1338.41"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge78" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M392,-1272C266.71,-1276.86 379.45,-1442.67 298,-1538 295.37,-1541.07 292.29,-1543.84 288.97,-1546.33"/>
+<polygon fill="#000000" stroke="#000000" points="286.85,-1543.53 280.38,-1551.92 290.67,-1549.4 286.85,-1543.53"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_util.f90 -->
+<g id="file~~graph~~FileGraph_edge85" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_util.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1272C246.52,-1271.82 181.61,-1288.49 133.65,-1300.88"/>
+<polygon fill="#000000" stroke="#000000" points="132.51,-1297.56 123.71,-1303.45 134.26,-1304.33 132.51,-1297.56"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_io.f90 -->
 <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="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"/>
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_io.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1272C209.01,-1267.17 164.43,-1267.52 131.45,-1268.88"/>
+<polygon fill="#000000" stroke="#000000" points="131,-1265.4 121.17,-1269.35 131.32,-1272.39 131,-1265.4"/>
 </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"/>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_placeholder.f90 -->
+<g id="file~~graph~~FileGraph_edge110" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_placeholder.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1272C245.18,-1271.65 186.01,-1256.51 139.33,-1244.51"/>
+<polygon fill="#000000" stroke="#000000" points="140.13,-1241.11 129.58,-1242.01 138.39,-1247.89 140.13,-1241.11"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge135" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~fraggle_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1272C201.69,-1266.27 206.05,-1229.24 164,-1209 156.47,-1205.38 148.24,-1202.32 140,-1199.76"/>
+<polygon fill="#000000" stroke="#000000" points="140.94,-1196.39 130.36,-1196.98 139,-1203.12 140.94,-1196.39"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge79" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M391.07,-2643.97C382.86,-2538.74 322.86,-1776.51 298,-1678 289.49,-1644.26 272.52,-1607.57 261.21,-1585.17"/>
+<polygon fill="#000000" stroke="#000000" points="264.3,-1583.51 256.61,-1576.22 258.07,-1586.72 264.3,-1583.51"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_mag.f90 -->
+<g id="file~~graph~~FileGraph_edge115" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_mag.f90</title>
+<path fill="none" stroke="#000000" d="M349.4,-2668C334.79,-2672.12 318.26,-2676.77 302.93,-2681.09"/>
+<polygon fill="#000000" stroke="#000000" points="301.74,-2677.79 293.07,-2683.87 303.64,-2684.53 301.74,-2677.79"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_cross.f90 -->
+<g id="file~~graph~~FileGraph_edge130" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_cross.f90</title>
+<path fill="none" stroke="#000000" d="M333.94,-2647C292.65,-2643.86 238,-2646.67 200,-2675 166.12,-2700.25 195.82,-2735.2 164,-2763 158,-2768.24 150.85,-2772.2 143.33,-2775.19"/>
+<polygon fill="#000000" stroke="#000000" points="141.99,-2771.95 133.65,-2778.47 144.24,-2778.57 141.99,-2771.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/lists/modules.html b/docs/lists/modules.html
index 24fe9fcaf..c775f8e9e 100644
--- a/docs/lists/modules.html
+++ b/docs/lists/modules.html
@@ -125,34 +125,72 @@ <h1>Modules</h1>
 			 <tbody>
              
 			 
-			   <tr class="active"><td><a href='../module/helio_classes.html'>helio_classes</a></td><td><a href='../sourcefile/helio_classes.f90.html'>helio_classes.f90</a></td><td><p>Definition of classes and methods specific to the Democratic Heliocentric Method
- Adapted from David E. Kaufmann's Swifter routine: helio.f90</p><a href="../module/helio_classes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr class="active"><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></td><td><p>Definition of classes and methods specific to Fraggel: The Fragment Generation Model</p><a href="../module/fraggle_classes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
                
                   
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_coord.html'>s_helio_coord</a></td><td><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></td><td></td></tr>
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></td><td><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_drift.html'>s_helio_drift</a></td><td><a href='../sourcefile/helio_drift.f90.html'>helio_drift.f90</a></td><td></td></tr>
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_io.html'>s_fraggle_io</a></td><td><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_gr.html'>s_helio_gr</a></td><td><a href='../sourcefile/helio_gr.f90.html'>helio_gr.f90</a></td><td></td></tr>
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_placeholder.html'>s_fraggle_placeholder</a></td><td><a href='../sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_kick.html'>s_helio_kick</a></td><td><a href='../sourcefile/helio_kick.f90.html'>helio_kick.f90</a></td><td></td></tr>
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_regime.html'>s_fraggle_regime</a></td><td><a href='../sourcefile/fraggle_regime.f90.html'>fraggle_regime.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_step.html'>s_helio_step</a></td><td><a href='../sourcefile/helio_step.f90.html'>helio_step.f90</a></td><td></td></tr>
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_set.html'>s_fraggle_set</a></td><td><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></td><td></td></tr>
                
                
 			 
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_setup.html'>s_fraggle_setup</a></td><td><a href='../sourcefile/fraggle_setup.f90.html'>fraggle_setup.f90</a></td><td></td></tr>
+               
+               
+			 
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fraggle_util.html'>s_fraggle_util</a></td><td><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></td><td></td></tr>
+               
+               
+			 
+               
+               <!--active-->
+			 
+			   <tr class=""><td><a href='../module/helio_classes.html'>helio_classes</a></td><td><a href='../sourcefile/helio_classes.f90.html'>helio_classes.f90</a></td><td><p>Definition of classes and methods specific to the Democratic Heliocentric Method
+ Adapted from David E. Kaufmann's Swifter routine: module_helio.f90</p><a href="../module/helio_classes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+               
+                  
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_drift.html'>s_helio_drift</a></td><td><a href='../sourcefile/helio_drift.f90.html'>helio_drift.f90</a></td><td></td></tr>
+               
+               
+			 
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_gr.html'>s_helio_gr</a></td><td><a href='../sourcefile/helio_gr.f90.html'>helio_gr.f90</a></td><td></td></tr>
+               
+               
+			 
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_kick.html'>s_helio_kick</a></td><td><a href='../sourcefile/helio_kick.f90.html'>helio_kick.f90</a></td><td></td></tr>
+               
+               
+			 
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_setup.html'>s_helio_setup</a></td><td><a href='../sourcefile/helio_setup.f90.html'>helio_setup.f90</a></td><td></td></tr>
+               
+               
+			 
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_helio_step.html'>s_helio_step</a></td><td><a href='../sourcefile/helio_step.f90.html'>helio_step.f90</a></td><td></td></tr>
+               
+               
+			 
+               
+               <!---->
+			 
+			   <tr class="active"><td><a href='../module/lambda_function.html'>lambda_function</a></td><td><a href='../sourcefile/lambda_function.f90.html'>lambda_function.f90</a></td><td><p>Defines a class that can enable objects that behave like lambda functions.</p><a href="../module/lambda_function.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
                
                <!--active-->
 			 
-			   <tr class=""><td><a href='../module/lambda_function.html'>lambda_function</a></td><td><a href='../sourcefile/lambda_function.f90.html'>lambda_function.f90</a></td><td><p>Defines a class that can enable objects that behave like lambda functions.</p><a href="../module/lambda_function.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr class=""><td><a href='../module/orbel.html'>orbel</a></td><td><a href='../sourcefile/orbel.f90~2.html'>orbel.f90</a></td><td></td></tr>
                
                <!---->
 			 
@@ -168,6 +206,10 @@ <h1>Modules</h1>
                
                
 			 
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_rmvs_io.html'>s_rmvs_io</a></td><td><a href='../sourcefile/rmvs_io.f90.html'>rmvs_io.f90</a></td><td></td></tr>
+               
+               
+			 
 			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_rmvs_kick.html'>s_rmvs_kick</a></td><td><a href='../sourcefile/rmvs_kick.f90.html'>rmvs_kick.f90</a></td><td></td></tr>
                
                
@@ -203,14 +245,6 @@ <h1>Modules</h1>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_eucl.html'>s_eucl</a></td><td><a href='../sourcefile/eucl.f90.html'>eucl.f90</a></td><td></td></tr>
-               
-               
-			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_fragmentation.html'>s_fragmentation</a></td><td><a href='../sourcefile/fragmentation.f90.html'>fragmentation.f90</a></td><td></td></tr>
-               
-               
-			 
 			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_gr.html'>s_gr</a></td><td><a href='../sourcefile/gr.f90.html'>gr.f90</a></td><td></td></tr>
                
                
@@ -223,6 +257,10 @@ <h1>Modules</h1>
                
                
 			 
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_netcdf.html'>s_netcdf</a></td><td><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></td><td></td></tr>
+               
+               
+			 
 			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_obl.html'>s_obl</a></td><td><a href='../sourcefile/obl.f90.html'>obl.f90</a></td><td></td></tr>
                
                
@@ -272,6 +310,10 @@ <h1>Modules</h1>
                
                
 			 
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_util_index.html'>s_util_index</a></td><td><a href='../sourcefile/util_index.f90.html'>util_index.f90</a></td><td></td></tr>
+               
+               
+			 
 			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_util_minimize_bfgs.html'>s_util_minimize_bfgs</a></td><td><a href='../sourcefile/util_minimize_bfgs.f90.html'>util_minimize_bfgs.f90</a></td><td></td></tr>
                
                
@@ -339,8 +381,8 @@ <h1>Modules</h1>
                
                <!--active-->
 			 
-			   <tr class=""><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></td><td><p>Definition of classes and methods specific to the Democratic SyMBAcentric Method
- Adapted from David E. Kaufmann's Swifter routine: helio.f90</p><a href="../module/symba_classes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr class=""><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></td><td><p>Definition of classes and methods specific to the SyMBA integrator
+ Adapted from David E. Kaufmann's Swifter routine: module_symba.f90</p><a href="../module/symba_classes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
                
                   
 			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_symba_collision.html'>s_symba_collision</a></td><td><a href='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></td><td></td></tr>
@@ -359,10 +401,6 @@ <h1>Modules</h1>
                
                
 			 
-			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></td><td><a href='../sourcefile/symba_fragmentation.f90.html'>symba_fragmentation.f90</a></td><td></td></tr>
-               
-               
-			 
 			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_symba_io.html'>s_symba_io</a></td><td><a href='../sourcefile/symba_io.f90.html'>symba_io.f90</a></td><td></td></tr>
                
                
@@ -386,40 +424,44 @@ <h1>Modules</h1>
                
                <!---->
 			 
-			   <tr class="active"><td><a href='../module/whm_classes.html'>whm_classes</a></td><td><a href='../sourcefile/whm_classes.f90.html'>whm_classes.f90</a></td><td><p>Definition of classes and methods specific to the Democratic Heliocentric Method
+			   <tr class="active"><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></td><td><p>Classes and methods used to compute elasped wall time</p></td></tr>
+               
+               <!--active-->
+			 
+			   <tr class=""><td><a href='../module/whm_classes.html'>whm_classes</a></td><td><a href='../sourcefile/whm_classes.f90.html'>whm_classes.f90</a></td><td><p>Definition of classes and methods specific to the Democratic Heliocentric Method
  Partially adapted from David E. Kaufmann's Swifter module: module_whm.f90</p><a href="../module/whm_classes.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
                
                   
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_coord.html'>s_whm_coord</a></td><td><a href='../sourcefile/whm_coord.f90.html'>whm_coord.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_coord.html'>s_whm_coord</a></td><td><a href='../sourcefile/whm_coord.f90.html'>whm_coord.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_gr.html'>s_whm_gr</a></td><td><a href='../sourcefile/whm_gr.f90.html'>whm_gr.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_gr.html'>s_whm_gr</a></td><td><a href='../sourcefile/whm_gr.f90.html'>whm_gr.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_kick.html'>s_whm_kick</a></td><td><a href='../sourcefile/whm_kick.f90.html'>whm_kick.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_kick.html'>s_whm_kick</a></td><td><a href='../sourcefile/whm_kick.f90.html'>whm_kick.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_setup.html'>s_whm_setup</a></td><td><a href='../sourcefile/whm_setup.f90.html'>whm_setup.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_setup.html'>s_whm_setup</a></td><td><a href='../sourcefile/whm_setup.f90.html'>whm_setup.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_step.html'>s_whm_step</a></td><td><a href='../sourcefile/whm_step.f90.html'>whm_step.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_step.html'>s_whm_step</a></td><td><a href='../sourcefile/whm_step.f90.html'>whm_step.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_util.html'>s_whm_util</a></td><td><a href='../sourcefile/whm_util.f90.html'>whm_util.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_whm_util.html'>s_whm_util</a></td><td><a href='../sourcefile/whm_util.f90.html'>whm_util.f90</a></td><td></td></tr>
                
                
 			 
-			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/whm_drift.html'>whm_drift</a></td><td><a href='../sourcefile/whm_drift.f90.html'>whm_drift.f90</a></td><td></td></tr>
+			   <tr class=" submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/whm_drift.html'>whm_drift</a></td><td><a href='../sourcefile/whm_drift.f90.html'>whm_drift.f90</a></td><td></td></tr>
                
                
 			 
                
-               <!--active-->
+               <!---->
 			 
 			 </tbody></table>
              <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
@@ -428,1521 +470,1793 @@ <h1>Modules</h1>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~graph~~ModuleGraph Pages: 1 -->
-<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)">
+<svg id="modulegraphModuleGraph" width="855pt" height="2479pt"
+ viewBox="0.00 0.00 855.00 2478.69" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~graph~~ModuleGraph" class="graph" transform="scale(0.98 0.98) rotate(0) translate(4 2529.77)">
 <title>module~~graph~~ModuleGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2121.52 839,-2121.52 839,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2529.77 870,-2529.77 870,4 -4,4"/>
 <!-- module~s_whm_coord -->
 <g id="module~~graph~~ModuleGraph_node1" class="node">
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="515,-2150 436,-2150 436,-2126 515,-2126 515,-2150"/>
+<text text-anchor="middle" x="475.5" y="-2135.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_node34" class="node">
+<g id="module~~graph~~ModuleGraph_node16" 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>
+<g id="a_module~~graph~~ModuleGraph_node16"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="340,-2339 264,-2339 264,-2315 340,-2315 340,-2339"/>
+<text text-anchor="middle" x="302" y="-2324.6" 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~~graph~~ModuleGraph_edge2" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M435.62,-2140.32C419.49,-2142.98 401.44,-2148.34 388,-2159 340.41,-2196.72 317.13,-2268.17 307.94,-2304.53"/>
+<polygon fill="#000000" stroke="#000000" points="304.45,-2304.07 305.52,-2314.61 311.25,-2305.7 304.45,-2304.07"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~graph~~ModuleGraph_node76" class="node">
+<g id="module~~graph~~ModuleGraph_node90" class="node">
 <title>module~swiftest</title>
-<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>
+<g id="a_module~~graph~~ModuleGraph_node90"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="329,-1356 275,-1356 275,-1332 329,-1332 329,-1356"/>
+<text text-anchor="middle" x="302" y="-1341.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 -->
 <g id="module~~graph~~ModuleGraph_edge1" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.56,-2138.32C418.41,-2136.3 399.56,-2130.7 388,-2117 350.79,-2072.91 359.46,-1656.21 352,-1599 340.67,-1512.05 318.27,-1410.01 308.16,-1366.01"/>
+<polygon fill="#000000" stroke="#000000" points="311.54,-1365.08 305.87,-1356.12 304.72,-1366.66 311.54,-1365.08"/>
 </g>
 <!-- module~s_whm_util -->
 <g id="module~~graph~~ModuleGraph_node2" class="node">
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="508.5,-2318 442.5,-2318 442.5,-2294 508.5,-2294 508.5,-2318"/>
+<text text-anchor="middle" x="475.5" y="-2303.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~~graph~~ModuleGraph_edge4" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M442.24,-2309.95C416.29,-2313.13 379.45,-2317.64 350.19,-2321.22"/>
+<polygon fill="#000000" stroke="#000000" points="349.68,-2317.76 340.18,-2322.45 350.53,-2324.71 349.68,-2317.76"/>
 </g>
 <!-- module~s_whm_util&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge3" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.44,-2307.04C423.61,-2305.79 401.02,-2300.7 388,-2285 339.27,-2226.26 361.22,-1674.77 352,-1599 341.4,-1511.95 318.62,-1409.97 308.29,-1366"/>
+<polygon fill="#000000" stroke="#000000" points="311.66,-1365.04 305.94,-1356.11 304.85,-1366.65 311.66,-1365.04"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_util_sort -->
 <g id="module~~graph~~ModuleGraph_node3" class="node">
-<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>
+<title>module~s_util_sort</title>
+<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="506,-1604 445,-1604 445,-1580 506,-1580 506,-1604"/>
+<text text-anchor="middle" x="475.5" y="-1589.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_node27" class="node">
+<g id="module~~graph~~ModuleGraph_node10" class="node">
 <title>module~swiftest_classes</title>
-<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>
+<g id="a_module~~graph~~ModuleGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="214.5,-1305 125.5,-1305 125.5,-1281 214.5,-1281 214.5,-1305"/>
+<text text-anchor="middle" x="170" y="-1290.6" 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 -->
+<!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge6" class="edge">
-<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"/>
+<title>module~s_util_sort&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M444.77,-1600.24C401.95,-1611.35 325.56,-1628.1 303,-1613"/>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge5" class="edge">
-<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"/>
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.85,-1591.6C426.47,-1589.85 403.5,-1584.74 388,-1571 326.04,-1516.07 309.11,-1411.46 304.59,-1366.01"/>
+<polygon fill="#000000" stroke="#000000" points="308.08,-1365.68 303.71,-1356.03 301.11,-1366.3 308.08,-1365.68"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~whm_drift -->
 <g id="module~~graph~~ModuleGraph_node4" class="node">
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="505,-2360 446,-2360 446,-2336 505,-2336 505,-2360"/>
+<text text-anchor="middle" x="475.5" y="-2345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
+<!-- module~whm_drift&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge8" class="edge">
-<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"/>
+<title>module~whm_drift&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M445.79,-2344.49C419.75,-2341.3 380.86,-2336.53 350.24,-2332.78"/>
+<polygon fill="#000000" stroke="#000000" points="350.55,-2329.3 340.2,-2331.56 349.7,-2336.24 350.55,-2329.3"/>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge7" class="edge">
-<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"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.81,-2349.24C426.37,-2348.39 401.79,-2343.67 388,-2327 336.38,-2264.59 361.67,-1679.41 352,-1599 341.54,-1511.94 318.68,-1409.96 308.31,-1366"/>
+<polygon fill="#000000" stroke="#000000" points="311.68,-1365.03 305.96,-1356.11 304.87,-1366.65 311.68,-1365.03"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_copy -->
 <g id="module~~graph~~ModuleGraph_node5" class="node">
-<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>
+<title>module~s_util_copy</title>
+<g id="a_module~~graph~~ModuleGraph_node5"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="508.5,-1562 442.5,-1562 442.5,-1538 508.5,-1538 508.5,-1562"/>
+<text text-anchor="middle" x="475.5" y="-1547.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge10" class="edge">
-<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"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M442.37,-1556.03C425.86,-1559.57 405.57,-1564.61 388,-1571 348.4,-1585.39 338.02,-1636.44 303,-1613"/>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge9" class="edge">
-<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"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.28,-1548.88C424.55,-1546.75 403.15,-1541.48 388,-1529 336.24,-1486.36 314.52,-1405.32 306.74,-1366.21"/>
+<polygon fill="#000000" stroke="#000000" points="310.13,-1365.33 304.86,-1356.14 303.25,-1366.61 310.13,-1365.33"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~graph~~ModuleGraph_node6" class="node">
-<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~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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~graph~~ModuleGraph_node6"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-1520 397,-1520 397,-1496 554,-1496 554,-1520"/>
+<text text-anchor="middle" x="475.5" y="-1505.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge12" class="edge">
-<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"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M408.36,-1520.06C401.27,-1522.51 394.34,-1525.46 388,-1529 341.62,-1554.87 347.14,-1642.54 303,-1613"/>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge11" class="edge">
-<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"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.43,-1495.84C397.95,-1493.41 392.72,-1490.49 388,-1487 346.05,-1456.01 320.99,-1397.58 309.86,-1365.85"/>
+<polygon fill="#000000" stroke="#000000" points="313.12,-1364.55 306.62,-1356.19 306.48,-1366.78 313.12,-1364.55"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_discard -->
 <g id="module~~graph~~ModuleGraph_node7" class="node">
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~graph~~ModuleGraph_node7"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="504.5,-1478 446.5,-1478 446.5,-1454 504.5,-1454 504.5,-1478"/>
+<text text-anchor="middle" x="475.5" y="-1463.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
+<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge14" class="edge">
-<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"/>
+<title>module~s_discard&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M446.27,-1467.66C428.24,-1469.9 405.13,-1475.09 388,-1487 332.54,-1525.57 359.14,-1650.57 303,-1613"/>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<!-- module~s_discard&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge13" class="edge">
-<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"/>
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.28,-1463.67C428.48,-1461.15 405.6,-1455.91 388,-1445 355.47,-1424.84 329.21,-1388.01 314.88,-1364.83"/>
+<polygon fill="#000000" stroke="#000000" points="317.8,-1362.88 309.66,-1356.11 311.79,-1366.48 317.8,-1362.88"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_helio_setup -->
 <g id="module~~graph~~ModuleGraph_node8" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node8"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="682.5,-1354 603.5,-1354 603.5,-1330 682.5,-1330 682.5,-1354"/>
+<text text-anchor="middle" x="643" y="-1339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<!-- module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_node22" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node22"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="513.5,-2444 437.5,-2444 437.5,-2420 513.5,-2420 513.5,-2444"/>
+<text text-anchor="middle" x="475.5" y="-2429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_setup&#45;&gt;module~helio_classes -->
 <g id="module~~graph~~ModuleGraph_edge16" class="edge">
-<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"/>
+<title>module~s_helio_setup&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M607.67,-1354.14C604.28,-1356.59 601.26,-1359.51 599,-1363 535.6,-1460.75 636.58,-2320.66 563,-2411 553.49,-2422.68 538.67,-2428.51 523.97,-2431.25"/>
+<polygon fill="#000000" stroke="#000000" points="523.29,-2427.82 513.88,-2432.69 524.28,-2434.75 523.29,-2427.82"/>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge15" class="edge">
-<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"/>
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.97,-1354.11C573.12,-1370.93 499.58,-1397.82 476.5,-1384"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_helio_kick -->
 <g id="module~~graph~~ModuleGraph_node9" class="node">
-<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>
+<title>module~s_helio_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node9"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678,-1312 608,-1312 608,-1288 678,-1288 678,-1312"/>
+<text text-anchor="middle" x="643" y="-1297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
 <g id="module~~graph~~ModuleGraph_edge18" class="edge">
-<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"/>
+<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M607.67,-1312.14C604.27,-1314.59 601.26,-1317.51 599,-1321 533.12,-1422.71 639.46,-2316.99 563,-2411 553.49,-2422.69 538.68,-2428.52 523.98,-2431.26"/>
+<polygon fill="#000000" stroke="#000000" points="523.3,-2427.82 513.89,-2432.7 524.29,-2434.75 523.3,-2427.82"/>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge17" class="edge">
-<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"/>
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.5,-1384C440.73,-1363.78 426.33,-1373.94 388,-1365 372,-1361.27 354.37,-1356.94 339.32,-1353.19"/>
+<polygon fill="#000000" stroke="#000000" points="339.93,-1349.74 329.38,-1350.7 338.23,-1356.53 339.93,-1349.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.75,-1312.15C607.94,-1314.74 603.17,-1317.7 599,-1321 579.19,-1336.68 584.53,-1351.78 563,-1365 529.46,-1385.6 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~whm_drift -->
-<g id="module~~graph~~ModuleGraph_node10" class="node">
-<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>
+<!-- module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_node89" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~graph~~ModuleGraph_node89"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="88,-1204 0,-1204 0,-1180 88,-1180 88,-1204"/>
+<text text-anchor="middle" x="44" y="-1189.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge20" class="edge">
-<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~whm_drift&#45;&gt;module~swiftest -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~graph~~ModuleGraph_edge19" class="edge">
-<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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.45,-1280.78C138.33,-1276.72 130.65,-1271.97 124,-1267 101.55,-1250.23 78.62,-1227.75 63.29,-1211.78"/>
+<polygon fill="#000000" stroke="#000000" points="65.43,-1208.95 56.01,-1204.09 60.35,-1213.76 65.43,-1208.95"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_set -->
 <g id="module~~graph~~ModuleGraph_node11" class="node">
-<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~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>
+<title>module~s_util_set</title>
+<g id="a_module~~graph~~ModuleGraph_node11"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="504.5,-1436 446.5,-1436 446.5,-1412 504.5,-1412 504.5,-1436"/>
+<text text-anchor="middle" x="475.5" y="-1421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
-<g id="module~~graph~~ModuleGraph_edge22" class="edge">
-<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~s_helio_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge21" class="edge">
-<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"/>
+<title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M446.16,-1424.91C427.85,-1426.83 404.47,-1431.94 388,-1445 322.42,-1496.98 372.54,-1659.54 303,-1613"/>
+<path fill="none" stroke="#000000" d="M301,-1613C197.32,-1543.61 176.3,-1375.65 172.06,-1315.17"/>
+<polygon fill="#000000" stroke="#000000" points="175.55,-1314.94 171.45,-1305.18 168.57,-1315.37 175.55,-1314.94"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge20" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.13,-1417.57C428.89,-1413.15 406.68,-1406.54 388,-1398 366.54,-1388.18 344.07,-1373.7 327.63,-1362.21"/>
+<polygon fill="#000000" stroke="#000000" points="329.34,-1359.13 319.16,-1356.18 325.28,-1364.83 329.34,-1359.13"/>
+</g>
+<!-- module~s_util_coord -->
 <g id="module~~graph~~ModuleGraph_node12" class="node">
-<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>
+<title>module~s_util_coord</title>
+<g id="a_module~~graph~~ModuleGraph_node12"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="510.5,-1196 440.5,-1196 440.5,-1172 510.5,-1172 510.5,-1196"/>
+<text text-anchor="middle" x="475.5" y="-1181.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge24" class="edge">
-<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_drift&#45;&gt;module~swiftest -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge23" class="edge">
-<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"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M440.13,-1182.66C422.83,-1180.38 402.5,-1175.05 388,-1163 317.15,-1104.15 378.46,-921.18 303,-974"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge22" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.32,-1188.5C423.27,-1192.1 403.12,-1198.54 388,-1210 348.92,-1239.63 323.09,-1292.85 310.98,-1322.52"/>
+<polygon fill="#000000" stroke="#000000" points="307.67,-1321.37 307.27,-1331.96 314.19,-1323.93 307.67,-1321.37"/>
+</g>
+<!-- module~s_util_index -->
 <g id="module~~graph~~ModuleGraph_node13" class="node">
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~graph~~ModuleGraph_node13"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="510,-1154 441,-1154 441,-1130 510,-1130 510,-1154"/>
+<text text-anchor="middle" x="475.5" y="-1139.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge26" class="edge">
-<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_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_util_index&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge25" class="edge">
-<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~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_node14" class="node">
-<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>
+<title>module~s_util_index&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M440.62,-1140.05C423.45,-1137.59 403.1,-1132.29 388,-1121 327.57,-1075.79 364.83,-930.72 303,-974"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge28" class="edge">
-<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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge24" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.64,-1143.38C423.26,-1145.66 402.72,-1150.97 388,-1163 337.35,-1204.38 315.21,-1282.89 307.05,-1321.46"/>
+<polygon fill="#000000" stroke="#000000" points="303.55,-1321.15 305.03,-1331.64 310.41,-1322.51 303.55,-1321.15"/>
 </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,-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>
+<!-- module~s_util_rescale -->
+<g id="module~~graph~~ModuleGraph_node14" class="node">
+<title>module~s_util_rescale</title>
+<g id="a_module~~graph~~ModuleGraph_node14"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="514.5,-1112 436.5,-1112 436.5,-1088 514.5,-1088 514.5,-1112"/>
+<text text-anchor="middle" x="475.5" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~s_util_rescale&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge27" class="edge">
-<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"/>
+<title>module~s_util_rescale&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M436.2,-1096.17C420.35,-1093.25 402.36,-1088.09 388,-1079 337.26,-1046.89 352.19,-939.57 303,-974"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge26" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.38,-1101.46C419.82,-1103.91 401.22,-1109.35 388,-1121 327.11,-1174.67 309.63,-1276.78 304.79,-1321.77"/>
+<polygon fill="#000000" stroke="#000000" points="301.28,-1321.62 303.81,-1331.91 308.25,-1322.3 301.28,-1321.62"/>
+</g>
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~graph~~ModuleGraph_node15" class="node">
-<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>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~graph~~ModuleGraph_node15"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="531.5,-1070 419.5,-1070 419.5,-1046 531.5,-1046 531.5,-1070"/>
+<text text-anchor="middle" x="475.5" y="-1055.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge30" class="edge">
-<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_kick&#45;&gt;module~swiftest -->
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge29" class="edge">
-<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_get_energy_momentum -->
-<g id="module~~graph~~ModuleGraph_node16" class="node">
-<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>
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M419.38,-1048.12C408.7,-1045.24 397.8,-1041.59 388,-1037 345.42,-1017.06 341.52,-947.04 303,-974"/>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge32" class="edge">
-<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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge28" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.1,-1062.68C407.72,-1065.9 396.6,-1071 388,-1079 316.96,-1145.08 305.07,-1270.55 303.24,-1321.58"/>
+<polygon fill="#000000" stroke="#000000" points="299.74,-1321.73 302.98,-1331.82 306.74,-1321.91 299.74,-1321.73"/>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_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="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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.9,-2314.72C291.74,-2272.62 267.85,-2130.21 252,-2012 215.27,-1737.99 181.83,-1403.7 173.17,-1315.3"/>
+<polygon fill="#000000" stroke="#000000" points="176.65,-1314.95 172.19,-1305.33 169.68,-1315.63 176.65,-1314.95"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge30" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.93,-2339.02C277.88,-2370.96 227.17,-2454.06 171,-2432"/>
+</g>
+<!-- module~s_io -->
 <g id="module~~graph~~ModuleGraph_node17" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~graph~~ModuleGraph_node17"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-1028 448.5,-1028 448.5,-1004 502.5,-1004 502.5,-1028"/>
+<text text-anchor="middle" x="475.5" y="-1013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
-<g id="module~~graph~~ModuleGraph_edge34" class="edge">
-<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_helio_drift&#45;&gt;module~swiftest -->
+<!-- module~s_io&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge33" class="edge">
-<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"/>
+<title>module~s_io&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.38,-1009.69C431.21,-1005.53 408.26,-999.96 388,-995 350.2,-985.74 334.88,-951.69 303,-974"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge32" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.5,-1015.65C429.36,-1016.81 403.98,-1021.52 388,-1037 346.31,-1077.38 315.84,-1257.93 306.22,-1321.65"/>
+<polygon fill="#000000" stroke="#000000" points="302.72,-1321.4 304.72,-1331.8 309.64,-1322.42 302.72,-1321.4"/>
+</g>
+<!-- module~s_user_kick_getacch -->
 <g id="module~~graph~~ModuleGraph_node18" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~graph~~ModuleGraph_node18"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="531.5,-986 419.5,-986 419.5,-962 531.5,-962 531.5,-986"/>
+<text text-anchor="middle" x="475.5" y="-971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge36" class="edge">
-<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_util_set&#45;&gt;module~swiftest -->
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge35" class="edge">
-<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"/>
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M434.57,-961.97C397.12,-953.27 341.3,-947.19 303,-974"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge34" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.11,-978.11C407.6,-981.34 396.42,-986.59 388,-995 341.1,-1041.87 313.46,-1251.71 305.45,-1321.41"/>
+<polygon fill="#000000" stroke="#000000" points="301.93,-1321.37 304.3,-1331.7 308.89,-1322.15 301.93,-1321.37"/>
+</g>
+<!-- module~s_symba_encounter_check -->
 <g id="module~~graph~~ModuleGraph_node19" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~graph~~ModuleGraph_node19"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="866,-1104 723,-1104 723,-1080 866,-1080 866,-1104"/>
+<text text-anchor="middle" x="794.5" y="-1089.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge38" class="edge">
-<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"/>
+<!-- module~symba_classes -->
+<g id="module~~graph~~ModuleGraph_node61" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node61"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="685.5,-1732 600.5,-1732 600.5,-1708 685.5,-1708 685.5,-1732"/>
+<text text-anchor="middle" x="643" y="-1717.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+</g>
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge37" class="edge">
-<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"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M732.81,-1104.1C729.12,-1106.56 725.78,-1109.5 723,-1113 641.85,-1215.16 759.47,-1590.51 687,-1699 686.57,-1699.65 686.11,-1700.28 685.63,-1700.89"/>
+<polygon fill="#000000" stroke="#000000" points="683.15,-1698.41 678.24,-1707.8 687.93,-1703.52 683.15,-1698.41"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge36" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744,-1104.1C736.77,-1106.62 729.57,-1109.57 723,-1113 683.19,-1133.79 687.22,-1163.82 644,-1176"/>
+</g>
+<!-- module~s_symba_discard -->
 <g id="module~~graph~~ModuleGraph_node20" class="node">
-<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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~graph~~ModuleGraph_node20"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="842.5,-1062 746.5,-1062 746.5,-1038 842.5,-1038 842.5,-1062"/>
+<text text-anchor="middle" x="794.5" y="-1047.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_edge40" class="edge">
-<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_rmvs_kick&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge39" class="edge">
-<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"/>
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M746.16,-1055.51C737.23,-1058.71 728.86,-1063.59 723,-1071 636.27,-1180.63 764.41,-1582.61 687,-1699 686.57,-1699.65 686.11,-1700.28 685.63,-1700.89"/>
+<polygon fill="#000000" stroke="#000000" points="683.15,-1698.42 678.25,-1707.81 687.94,-1703.52 683.15,-1698.42"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge38" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M746.45,-1059.45C738.2,-1062.35 730.02,-1066.11 723,-1071 675.05,-1104.34 700.21,-1160.16 644,-1176"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642,-1176C606,-1186.15 598.92,-1194.56 563,-1205 486.57,-1227.21 456.16,-1201.91 388,-1243 355.22,-1262.76 329.04,-1299.72 314.79,-1323.03"/>
+<polygon fill="#000000" stroke="#000000" points="311.68,-1321.42 309.6,-1331.8 317.71,-1324.98 311.68,-1321.42"/>
+</g>
+<!-- module~s_symba_io -->
 <g id="module~~graph~~ModuleGraph_node21" class="node">
-<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>
+<title>module~s_symba_io</title>
+<g id="a_module~~graph~~ModuleGraph_node21"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="829.5,-1752 759.5,-1752 759.5,-1728 829.5,-1728 829.5,-1752"/>
+<text text-anchor="middle" x="794.5" y="-1737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_rescale&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge42" class="edge">
-<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_util_rescale&#45;&gt;module~swiftest -->
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge41" class="edge">
-<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~swiftest_operators -->
-<g id="module~~graph~~ModuleGraph_node22" class="node">
-<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>
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M759.2,-1735.41C740.38,-1732.89 716.67,-1729.72 695.66,-1726.91"/>
+<polygon fill="#000000" stroke="#000000" points="695.97,-1723.42 685.6,-1725.56 695.04,-1730.36 695.97,-1723.42"/>
 </g>
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge40" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.6,-1752.1C717.7,-1765.54 642.94,-1780.51 599,-1741 542.83,-1690.5 613.39,-1459.27 563,-1403 536.74,-1373.68 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge43" class="edge">
-<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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M437.74,-2444.05C399.77,-2453.99 340.88,-2462.1 303,-2432"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2432C267.16,-2405.11 264.87,-2389.26 252,-2348 188.82,-2145.44 173.71,-1449.33 171.36,-1315.39"/>
+<polygon fill="#000000" stroke="#000000" points="174.85,-1315.08 171.18,-1305.14 167.85,-1315.2 174.85,-1315.08"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~graph~~ModuleGraph_edge44" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M437.1,-2427.46C421.23,-2424.41 402.98,-2419.36 388,-2411 359.25,-2394.96 333.48,-2366.53 318.04,-2347.23"/>
+<polygon fill="#000000" stroke="#000000" points="320.61,-2344.83 311.7,-2339.08 315.08,-2349.13 320.61,-2344.83"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge42" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2432C255.77,-2396.05 224.78,-2453.12 171,-2432"/>
+</g>
+<!-- module~s_symba_drift -->
 <g id="module~~graph~~ModuleGraph_node23" class="node">
-<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>
+<title>module~s_symba_drift</title>
+<g id="a_module~~graph~~ModuleGraph_node23"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="834,-1356 755,-1356 755,-1332 834,-1332 834,-1356"/>
+<text text-anchor="middle" x="794.5" y="-1341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge45" class="edge">
-<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"/>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~graph~~ModuleGraph_edge46" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M793.23,-1356.01C791.54,-1404.79 779.04,-1590.6 687,-1699 686.27,-1699.85 685.51,-1700.68 684.7,-1701.47"/>
+<polygon fill="#000000" stroke="#000000" points="682.35,-1698.87 676.64,-1707.8 686.67,-1704.37 682.35,-1698.87"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge45" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M754.72,-1336.89C743.87,-1333.76 732.46,-1329.3 723,-1323 701.97,-1309 707.11,-1294.3 687,-1279 670.37,-1266.35 664.89,-1260.14 644,-1260"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_obl -->
 <g id="module~~graph~~ModuleGraph_node24" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~graph~~ModuleGraph_node24"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-818 448.5,-818 448.5,-794 502.5,-794 502.5,-818"/>
+<text text-anchor="middle" x="475.5" y="-803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge47" class="edge">
-<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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge48" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.11,-805.69C429.03,-806.9 403.9,-811.66 388,-827 345.47,-868.03 391.74,-911.26 352,-955 336.29,-972.29 322.14,-960.61 303,-974"/>
 </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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge47" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.41,-805.15C428.96,-806.02 403.24,-810.57 388,-827 370.74,-845.6 318.98,-1224.65 305.98,-1321.58"/>
+<polygon fill="#000000" stroke="#000000" points="302.48,-1321.35 304.63,-1331.73 309.42,-1322.28 302.48,-1321.35"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_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,-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>
+<title>module~s_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node25"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-776 448.5,-776 448.5,-752 502.5,-752 502.5,-776"/>
+<text text-anchor="middle" x="475.5" y="-761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<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.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"/>
+<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge50" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.23,-758.57C402.78,-749.49 313.29,-733.15 303,-743"/>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<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,-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"/>
+<!-- module~s_setup&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge49" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.35,-763.1C428.88,-763.94 403.14,-768.48 388,-785 378.68,-795.17 320.17,-1218.61 306.06,-1321.6"/>
+<polygon fill="#000000" stroke="#000000" points="302.55,-1321.41 304.67,-1331.79 309.49,-1322.36 302.55,-1321.41"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~graph~~ModuleGraph_node26" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node26"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678.5,-1396 607.5,-1396 607.5,-1372 678.5,-1372 678.5,-1396"/>
+<text text-anchor="middle" x="643" y="-1381.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
-<g id="module~~graph~~ModuleGraph_edge51" class="edge">
-<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"/>
+<!-- module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_node64" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node64"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="514,-2486 437,-2486 437,-2462 514,-2462 514,-2486"/>
+<text text-anchor="middle" x="475.5" y="-2471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </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~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
 <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"/>
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M607.67,-1396.14C604.28,-1398.59 601.26,-1401.51 599,-1405 535.6,-1502.75 636.58,-2362.66 563,-2453 553.56,-2464.59 538.92,-2470.42 524.34,-2473.18"/>
+<polygon fill="#000000" stroke="#000000" points="523.72,-2469.74 514.33,-2474.65 524.73,-2476.66 523.72,-2469.74"/>
 </g>
-<!-- module~s_io -->
-<g id="module~~graph~~ModuleGraph_node28" class="node">
-<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>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge51" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.34,-1371.92C608.36,-1369.3 603.38,-1366.3 599,-1363 579.9,-1348.6 583.67,-1335.03 563,-1323 528.98,-1303.2 515.79,-1301.65 476.5,-1304"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~graph~~ModuleGraph_node27" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node27"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="345.5,-2003 258.5,-2003 258.5,-1979 345.5,-1979 345.5,-2003"/>
+<text text-anchor="middle" x="302" y="-1988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge54" class="edge">
-<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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.74,-1978.88C283.49,-1896.97 195.42,-1424.14 175.16,-1315.33"/>
+<polygon fill="#000000" stroke="#000000" points="178.54,-1314.37 173.27,-1305.17 171.66,-1315.65 178.54,-1314.37"/>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169,-2432C50.64,-2385.51 45.09,-1378.55 44.98,-1214.5"/>
+<polygon fill="#000000" stroke="#000000" points="48.48,-1214.17 44.98,-1204.17 41.48,-1214.17 48.48,-1214.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.75,-2003.28C285.23,-2076.22 213.9,-2448.85 171,-2432"/>
 </g>
-<!-- module~s_rmvs_setup -->
-<g id="module~~graph~~ModuleGraph_node29" class="node">
-<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>
+<!-- module~s_fraggle_set -->
+<g id="module~~graph~~ModuleGraph_node28" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~graph~~ModuleGraph_node28"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="514,-1940 437,-1940 437,-1916 514,-1916 514,-1940"/>
+<text text-anchor="middle" x="475.5" y="-1925.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
+<!-- module~s_fraggle_set&#45;&gt;module~fraggle_classes -->
 <g id="module~~graph~~ModuleGraph_edge56" class="edge">
-<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"/>
+<title>module~s_fraggle_set&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M436.92,-1935.23C421.53,-1938.67 403.69,-1943.3 388,-1949 369.12,-1955.86 348.92,-1965.73 332.95,-1974.17"/>
+<polygon fill="#000000" stroke="#000000" points="331.23,-1971.12 324.08,-1978.95 334.55,-1977.29 331.23,-1971.12"/>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_set&#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"/>
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.73,-1928.18C419.41,-1926.18 400.09,-1920.66 388,-1907 342.33,-1855.4 362.51,-1667.1 352,-1599 338.63,-1512.34 317.29,-1410.15 307.81,-1366.07"/>
+<polygon fill="#000000" stroke="#000000" points="311.2,-1365.19 305.67,-1356.15 304.36,-1366.67 311.2,-1365.19"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~walltime_classes -->
+<g id="module~~graph~~ModuleGraph_node29" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node29"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="216,-1225 124,-1225 124,-1201 216,-1201 216,-1225"/>
+<text text-anchor="middle" x="170" y="-1210.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge57" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.88,-1205.36C115.52,-1203.94 106.72,-1202.45 98.14,-1201"/>
+<polygon fill="#000000" stroke="#000000" points="98.67,-1197.54 88.22,-1199.32 97.5,-1204.44 98.67,-1197.54"/>
+</g>
+<!-- module~s_fraggle_io -->
 <g id="module~~graph~~ModuleGraph_node30" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~graph~~ModuleGraph_node30"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="511,-1898 440,-1898 440,-1874 511,-1874 511,-1898"/>
+<text text-anchor="middle" x="475.5" y="-1883.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge58" class="edge">
-<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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~fraggle_classes -->
+<g id="module~~graph~~ModuleGraph_edge59" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M439.65,-1890.06C423.22,-1893.05 403.79,-1898.19 388,-1907 359.25,-1923.04 333.48,-1951.47 318.04,-1970.77"/>
+<polygon fill="#000000" stroke="#000000" points="315.08,-1968.87 311.7,-1978.92 320.61,-1973.17 315.08,-1968.87"/>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge58" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.89,-1886.4C421.86,-1884.69 400.93,-1879.35 388,-1865 348.06,-1820.69 361.63,-1657.87 352,-1599 337.84,-1512.46 316.91,-1410.21 307.67,-1366.09"/>
+<polygon fill="#000000" stroke="#000000" points="311.07,-1365.23 305.59,-1356.17 304.22,-1366.67 311.07,-1365.23"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~graph~~ModuleGraph_node31" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~graph~~ModuleGraph_node31"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678,-1854 608,-1854 608,-1830 678,-1830 678,-1854"/>
+<text text-anchor="middle" x="643" y="-1839.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge60" class="edge">
-<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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge61" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M642.22,-1854.16C643.4,-1932.03 645.97,-2360.4 563,-2453 553.11,-2464.03 538.5,-2469.75 524.09,-2472.58"/>
+<polygon fill="#000000" stroke="#000000" points="523.55,-2469.12 514.2,-2474.11 524.62,-2476.04 523.55,-2469.12"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge60" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.84,-1829.74C604.42,-1827.31 601.35,-1824.43 599,-1821 546.26,-1744.12 624.49,-1473.08 563,-1403 537.04,-1373.41 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_kick -->
 <g id="module~~graph~~ModuleGraph_node32" class="node">
-<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>
+<title>module~s_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node32"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-734 448.5,-734 448.5,-710 502.5,-710 502.5,-734"/>
+<text text-anchor="middle" x="475.5" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge62" class="edge">
-<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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge63" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.44,-716.58C410.95,-710.45 342.01,-705.67 303,-743"/>
 </g>
-<!-- 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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge62" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.31,-721.06C428.8,-721.87 403.05,-726.4 388,-743 385.5,-745.76 321.03,-1213.05 306.08,-1321.64"/>
+<polygon fill="#000000" stroke="#000000" points="302.58,-1321.4 304.68,-1331.78 309.51,-1322.36 302.58,-1321.4"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_util_spill -->
 <g id="module~~graph~~ModuleGraph_node33" class="node">
-<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>
+<title>module~s_util_spill</title>
+<g id="a_module~~graph~~ModuleGraph_node33"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="506,-654 445,-654 445,-630 506,-630 506,-654"/>
+<text text-anchor="middle" x="475.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge65" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M444.81,-647.59C427.51,-651.64 405.68,-658.17 388,-668 343.97,-692.48 339.4,-708.17 303,-743"/>
+<path fill="none" stroke="#000000" d="M301,-743C244.19,-797.37 266.93,-835.8 252,-913 236.99,-990.63 258.94,-1200.6 216,-1267 214.19,-1269.8 211.96,-1272.34 209.47,-1274.63"/>
+<polygon fill="#000000" stroke="#000000" points="207.24,-1271.93 201.4,-1280.76 211.48,-1277.5 207.24,-1271.93"/>
+</g>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge64" class="edge">
-<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"/>
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.07,-654.2C425.54,-663.9 401.17,-679.44 388,-701 354.49,-755.85 360.38,-924.27 352,-988 335.41,-1114.15 314.15,-1265.25 306.2,-1321.48"/>
+<polygon fill="#000000" stroke="#000000" points="302.68,-1321.32 304.75,-1331.71 309.61,-1322.3 302.68,-1321.32"/>
 </g>
-<!-- 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"/>
+<!-- module~s_netcdf -->
+<g id="module~~graph~~ModuleGraph_node34" class="node">
+<title>module~s_netcdf</title>
+<g id="a_module~~graph~~ModuleGraph_node34"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-612 448.5,-612 448.5,-588 502.5,-588 502.5,-612"/>
+<text text-anchor="middle" x="475.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
+</a>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge68" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.23,-596.43C430.6,-593.36 407.17,-587.98 388,-579 345.42,-559.06 337.04,-483.55 303,-516"/>
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge66" class="edge">
-<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"/>
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.1,-598.88C428.49,-599.59 402.69,-604.08 388,-621 334.26,-682.87 361.59,-906.62 352,-988 337.11,-1114.37 314.85,-1265.34 306.41,-1321.51"/>
+<polygon fill="#000000" stroke="#000000" points="302.9,-1321.32 304.87,-1331.73 309.82,-1322.36 302.9,-1321.32"/>
 </g>
-<!-- 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"/>
+<!-- netcdf -->
+<g id="module~~graph~~ModuleGraph_node91" class="node">
+<title>netcdf</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="329,-612 275,-612 275,-588 329,-588 329,-612"/>
+<text text-anchor="middle" x="302" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf</text>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_netcdf&#45;&gt;netcdf -->
+<g id="module~~graph~~ModuleGraph_edge67" class="edge">
+<title>module~s_netcdf&#45;&gt;netcdf</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.45,-600C419.28,-600 371.81,-600 339.08,-600"/>
+<polygon fill="#000000" stroke="#000000" points="339.01,-596.5 329.01,-600 339.01,-603.5 339.01,-596.5"/>
+</g>
+<!-- module~s_rmvs_io -->
 <g id="module~~graph~~ModuleGraph_node35" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~graph~~ModuleGraph_node35"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="673.5,-1812 612.5,-1812 612.5,-1788 673.5,-1788 673.5,-1812"/>
+<text text-anchor="middle" x="643" y="-1797.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge68" class="edge">
-<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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge70" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M612.42,-1809.23C607.16,-1812.18 602.31,-1816.02 599,-1821 521.12,-1938.15 653.06,-2344.94 563,-2453 553.43,-2464.48 538.76,-2470.28 524.19,-2473.06"/>
+<polygon fill="#000000" stroke="#000000" points="523.57,-2469.61 514.19,-2474.53 524.59,-2476.54 523.57,-2469.61"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge69" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.36,-1787.84C607.76,-1784.18 602.53,-1779.61 599,-1774 554.87,-1703.9 617.97,-1464.96 563,-1403 536.88,-1373.56 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_valid -->
 <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>
+<title>module~s_util_valid</title>
+<g id="a_module~~graph~~ModuleGraph_node36"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="508,-570 443,-570 443,-546 508,-546 508,-570"/>
+<text text-anchor="middle" x="475.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge70" class="edge">
-<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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge72" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M442.86,-550.35C426.48,-546.38 406.16,-541.45 388,-537 350.2,-527.74 331.17,-489.15 303,-516"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge71" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.64,-557.12C423.88,-558.43 401.3,-563.53 388,-579 358.26,-613.59 357.11,-942.67 352,-988 337.74,-1114.44 315.1,-1265.37 306.49,-1321.51"/>
+<polygon fill="#000000" stroke="#000000" points="302.97,-1321.31 304.91,-1331.73 309.89,-1322.38 302.97,-1321.31"/>
 </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"/>
+<!-- module~s_util_version -->
+<g id="module~~graph~~ModuleGraph_node37" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~graph~~ModuleGraph_node37"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="514.5,-528 436.5,-528 436.5,-504 514.5,-504 514.5,-528"/>
+<text text-anchor="middle" x="475.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge73" class="edge">
-<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~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~s_util_version&#45;&gt;module~swiftest_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"/>
+<title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M436.43,-510.19C391.76,-504.34 321.43,-498.43 303,-516"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge73" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.07,-515.68C418.81,-517.67 399.73,-523.24 388,-537 355.38,-575.25 357.43,-938.02 352,-988 338.26,-1114.5 315.31,-1265.39 306.55,-1321.52"/>
+<polygon fill="#000000" stroke="#000000" points="303.04,-1321.31 304.95,-1331.73 309.95,-1322.4 303.04,-1321.31"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_whm_gr -->
 <g id="module~~graph~~ModuleGraph_node38" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~graph~~ModuleGraph_node38"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="506.5,-2402 444.5,-2402 444.5,-2378 506.5,-2378 506.5,-2402"/>
+<text text-anchor="middle" x="475.5" y="-2387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
+<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge76" class="edge">
-<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"/>
+<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M444.39,-2384.4C427.54,-2380.84 406.3,-2375.65 388,-2369 369.12,-2362.14 348.92,-2352.27 332.95,-2343.83"/>
+<polygon fill="#000000" stroke="#000000" points="334.55,-2340.71 324.08,-2339.05 331.23,-2346.88 334.55,-2340.71"/>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_whm_gr&#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"/>
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.11,-2391.17C424.95,-2390.13 401.37,-2385.21 388,-2369 333.5,-2302.93 362.11,-1684.05 352,-1599 341.65,-1511.92 318.74,-1409.95 308.33,-1365.99"/>
+<polygon fill="#000000" stroke="#000000" points="311.7,-1365.02 305.97,-1356.11 304.89,-1366.65 311.7,-1365.02"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_gr -->
 <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>
+<title>module~s_gr</title>
+<g id="a_module~~graph~~ModuleGraph_node39"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-486 448.5,-486 448.5,-462 502.5,-462 502.5,-486"/>
+<text text-anchor="middle" x="475.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
+<!-- module~s_gr&#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"/>
+<title>module~s_gr&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.38,-472.84C411.12,-472.66 342.83,-478.03 303,-516"/>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<!-- module~s_gr&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge77" class="edge">
-<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"/>
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.39,-472.76C428.67,-473.37 402.58,-477.78 388,-495 352.5,-536.91 357.75,-933.38 352,-988 338.68,-1114.54 315.49,-1265.41 306.6,-1321.53"/>
+<polygon fill="#000000" stroke="#000000" points="303.09,-1321.31 304.98,-1331.74 310.01,-1322.41 303.09,-1321.31"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_util_peri -->
 <g id="module~~graph~~ModuleGraph_node40" class="node">
-<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>
+<title>module~s_util_peri</title>
+<g id="a_module~~graph~~ModuleGraph_node40"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="506,-444 445,-444 445,-420 506,-420 506,-444"/>
+<text text-anchor="middle" x="475.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<!-- module~s_util_peri&#45;&gt;module~swiftest_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"/>
+<title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M444.69,-436.21C427.54,-439.36 405.91,-444.61 388,-453 345.42,-472.94 337.04,-483.55 303,-516"/>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<!-- module~s_util_peri&#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"/>
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.64,-430.9C425.45,-431.93 401.64,-436.81 388,-453 349.62,-498.57 358.07,-928.73 352,-988 339.05,-1114.58 315.63,-1265.42 306.65,-1321.53"/>
+<polygon fill="#000000" stroke="#000000" points="303.14,-1321.31 305,-1331.74 310.05,-1322.42 303.14,-1321.31"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_exit -->
 <g id="module~~graph~~ModuleGraph_node41" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~graph~~ModuleGraph_node41"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="505.5,-402 445.5,-402 445.5,-378 505.5,-378 505.5,-402"/>
+<text text-anchor="middle" x="475.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest_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"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M445.41,-392.33C427.7,-394.85 405.24,-400.09 388,-411 337.26,-443.11 346.46,-474.57 303,-516"/>
+<path fill="none" stroke="#000000" d="M301,-516C275.32,-540.48 264.38,-545.76 252,-579 198.55,-722.46 295.97,-1136.45 216,-1267 214.26,-1269.85 212.08,-1272.41 209.62,-1274.72"/>
+<polygon fill="#000000" stroke="#000000" points="207.39,-1272.02 201.61,-1280.89 211.66,-1277.57 207.39,-1272.02"/>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#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"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.46,-388.83C426.11,-389.76 401.8,-394.54 388,-411 346.74,-460.23 358.38,-924.08 352,-988 339.35,-1114.61 315.76,-1265.44 306.69,-1321.54"/>
+<polygon fill="#000000" stroke="#000000" points="303.18,-1321.31 305.02,-1331.74 310.08,-1322.43 303.18,-1321.31"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~graph~~ModuleGraph_node42" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~graph~~ModuleGraph_node42"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="528.5,-1856 422.5,-1856 422.5,-1832 528.5,-1832 528.5,-1856"/>
+<text text-anchor="middle" x="475.5" y="-1841.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
+<!-- module~s_fraggle_generate&#45;&gt;module~fraggle_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"/>
+<title>module~s_fraggle_generate&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M422.45,-1850.12C410.4,-1853.24 398.15,-1857.94 388,-1865 349.99,-1891.44 324.16,-1940.82 311.66,-1969.28"/>
+<polygon fill="#000000" stroke="#000000" points="308.33,-1968.16 307.66,-1978.74 314.78,-1970.89 308.33,-1968.16"/>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_generate&#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"/>
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.21,-1841.32C409.45,-1838.2 396.92,-1832.65 388,-1823 353.78,-1785.97 360.76,-1648.65 352,-1599 336.77,-1512.64 316.39,-1410.3 307.49,-1366.12"/>
+<polygon fill="#000000" stroke="#000000" points="310.89,-1365.29 305.48,-1356.18 304.03,-1366.68 310.89,-1365.29"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_fraggle_regime -->
 <g id="module~~graph~~ModuleGraph_node43" class="node">
-<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>
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~graph~~ModuleGraph_node43"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="523.5,-2108 427.5,-2108 427.5,-2084 523.5,-2084 523.5,-2108"/>
+<text text-anchor="middle" x="475.5" y="-2093.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
+<!-- module~s_fraggle_regime&#45;&gt;module~fraggle_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"/>
+<title>module~s_fraggle_regime&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M427.43,-2089.4C414.13,-2086.28 400.01,-2081.7 388,-2075 359.25,-2058.96 333.48,-2030.53 318.04,-2011.23"/>
+<polygon fill="#000000" stroke="#000000" points="320.61,-2008.83 311.7,-2003.08 315.08,-2013.13 320.61,-2008.83"/>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_regime&#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"/>
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.07,-2094.98C412.47,-2092.21 397.7,-2086.43 388,-2075 353.67,-2034.57 359.02,-1651.57 352,-1599 340.4,-1512.08 318.14,-1410.03 308.11,-1366.02"/>
+<polygon fill="#000000" stroke="#000000" points="311.49,-1365.09 305.84,-1356.13 304.67,-1366.66 311.49,-1365.09"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_whm_kick -->
 <g id="module~~graph~~ModuleGraph_node44" class="node">
-<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>
+<title>module~s_whm_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node44"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="510.5,-2276 440.5,-2276 440.5,-2252 510.5,-2252 510.5,-2276"/>
+<text text-anchor="middle" x="475.5" y="-2261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest_operators -->
+<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
 <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"/>
+<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M440.3,-2270.48C424.19,-2273.99 404.85,-2278.88 388,-2285 369.12,-2291.86 348.92,-2301.73 332.95,-2310.17"/>
+<polygon fill="#000000" stroke="#000000" points="331.23,-2307.12 324.08,-2314.95 334.55,-2313.29 331.23,-2307.12"/>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#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"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.31,-2264.87C421.94,-2263.37 400.56,-2258.08 388,-2243 342.15,-2187.92 360.78,-1670.13 352,-1599 341.26,-1511.97 318.55,-1409.98 308.26,-1366"/>
+<polygon fill="#000000" stroke="#000000" points="311.63,-1365.05 305.93,-1356.12 304.82,-1366.65 311.63,-1365.05"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_operator_cross -->
 <g id="module~~graph~~ModuleGraph_node45" class="node">
-<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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~graph~~ModuleGraph_node45"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="523.5,-108 427.5,-108 427.5,-84 523.5,-84 523.5,-108"/>
+<text text-anchor="middle" x="475.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_operators -->
+<g id="module~~graph~~ModuleGraph_node76" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~graph~~ModuleGraph_node76"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="352,-108 252,-108 252,-84 352,-84 352,-108"/>
+<text text-anchor="middle" x="302" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
+</g>
+</g>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~s_operator_cross&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" d="M427.18,-96C407.16,-96 383.61,-96 362.44,-96"/>
+<polygon fill="#000000" stroke="#000000" points="362.26,-92.5 352.26,-96 362.26,-99.5 362.26,-92.5"/>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<!-- module~s_operator_cross&#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"/>
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.3,-96.74C412.53,-99.47 397.6,-105.29 388,-117 357.29,-154.44 356.31,-939.76 352,-988 340.68,-1114.74 316.3,-1265.49 306.85,-1321.55"/>
+<polygon fill="#000000" stroke="#000000" points="303.34,-1321.31 305.12,-1331.75 310.24,-1322.48 303.34,-1321.31"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_symba_util -->
 <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,-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>
+<title>module~s_symba_util</title>
+<g id="a_module~~graph~~ModuleGraph_node46"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="832,-1314 757,-1314 757,-1290 832,-1290 832,-1314"/>
+<text text-anchor="middle" x="794.5" y="-1299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
 <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.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"/>
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M756.64,-1304.73C744.15,-1307.56 731.28,-1312.94 723,-1323 669.68,-1387.82 734.81,-1630.01 687,-1699 686.56,-1699.64 686.09,-1700.26 685.6,-1700.86"/>
+<polygon fill="#000000" stroke="#000000" points="683.12,-1698.38 678.12,-1707.72 687.86,-1703.54 683.12,-1698.38"/>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
 <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.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"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M756.91,-1291.2C714.53,-1278.77 649.76,-1260.04 644,-1260"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_symba_step -->
 <g id="module~~graph~~ModuleGraph_node47" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~graph~~ModuleGraph_node47"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="835.5,-1272 753.5,-1272 753.5,-1248 835.5,-1248 835.5,-1272"/>
+<text text-anchor="middle" x="794.5" y="-1257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
+<!-- module~s_symba_step&#45;&gt;module~symba_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"/>
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M753.28,-1263.5C741.86,-1266.5 730.5,-1271.79 723,-1281 664.12,-1353.28 739.74,-1622.12 687,-1699 686.56,-1699.64 686.09,-1700.27 685.6,-1700.87"/>
+<polygon fill="#000000" stroke="#000000" points="683.13,-1698.39 678.16,-1707.74 687.88,-1703.54 683.13,-1698.39"/>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#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"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.5,-1304C426.58,-1306.87 372.94,-1321.26 338.61,-1331.97"/>
+<polygon fill="#000000" stroke="#000000" points="337.5,-1328.65 329.03,-1335.01 339.62,-1335.32 337.5,-1328.65"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642,-1260C605.17,-1259.75 598.58,-1275.48 563,-1285 524.98,-1295.17 515.79,-1301.65 476.5,-1304"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.21,-1260.15C723.12,-1260.22 680.98,-1260.25 644,-1260"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_helio_drift -->
 <g id="module~~graph~~ModuleGraph_node48" class="node">
-<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>
+<title>module~s_helio_drift</title>
+<g id="a_module~~graph~~ModuleGraph_node48"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678,-1438 608,-1438 608,-1414 678,-1414 678,-1438"/>
+<text text-anchor="middle" x="643" y="-1423.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
+<!-- module~s_helio_drift&#45;&gt;module~helio_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"/>
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M607.68,-1438.15C604.29,-1440.6 601.27,-1443.52 599,-1447 540.54,-1536.84 630.81,-2327.99 563,-2411 553.47,-2422.67 538.65,-2428.5 523.95,-2431.24"/>
+<polygon fill="#000000" stroke="#000000" points="523.27,-2427.8 513.87,-2432.68 524.26,-2434.73 523.27,-2427.8"/>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_helio_drift&#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"/>
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.92,-1415.53C594.04,-1411.42 577.81,-1406.78 563,-1403 524.86,-1393.27 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~lambda_function -->
 <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,-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>
+<title>module~lambda_function</title>
+<g id="a_module~~graph~~ModuleGraph_node49"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="215.5,-1183 124.5,-1183 124.5,-1159 215.5,-1159 215.5,-1183"/>
+<text text-anchor="middle" x="170" y="-1168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<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="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 -->
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.23,-1178.58C115.76,-1180.02 106.81,-1181.53 98.11,-1183.01"/>
+<polygon fill="#000000" stroke="#000000" points="97.32,-1179.59 88.04,-1184.71 98.49,-1186.49 97.32,-1179.59"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_orbel -->
 <g id="module~~graph~~ModuleGraph_node50" class="node">
-<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>
+<title>module~s_orbel</title>
+<g id="a_module~~graph~~ModuleGraph_node50"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="502.5,-1814 448.5,-1814 448.5,-1790 502.5,-1790 502.5,-1814"/>
+<text text-anchor="middle" x="475.5" y="-1799.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_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~s_util_resize&#45;&gt;module~swiftest -->
+<!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge99" class="edge">
-<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"/>
+<title>module~s_orbel&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.15,-1801.29C429.58,-1799.53 405.08,-1794.54 388,-1781 322.42,-1729.02 372.54,-1659.54 303,-1613"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge98" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.14,-1802.7C428.82,-1801.73 403.37,-1797.09 388,-1781 387.08,-1780.03 324.38,-1454.92 307.27,-1366.16"/>
+<polygon fill="#000000" stroke="#000000" points="310.66,-1365.27 305.33,-1356.11 303.79,-1366.6 310.66,-1365.27"/>
+</g>
+<!-- module~s_rmvs_setup -->
 <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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node51"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="682.5,-1690 603.5,-1690 603.5,-1666 682.5,-1666 682.5,-1690"/>
+<text text-anchor="middle" x="643" y="-1675.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge102" class="edge">
-<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_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
 <g id="module~~graph~~ModuleGraph_edge101" class="edge">
-<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"/>
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M607.72,-1690.17C604.32,-1692.61 601.28,-1695.53 599,-1699 552.89,-1769.06 616.4,-2388.32 563,-2453 553.49,-2464.52 538.82,-2470.34 524.25,-2473.11"/>
+<polygon fill="#000000" stroke="#000000" points="523.63,-2469.66 514.24,-2474.58 524.65,-2476.59 523.63,-2469.66"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge100" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.44,-1665.9C604.82,-1663.44 601.54,-1660.49 599,-1657 531.95,-1564.78 640.53,-1486.6 563,-1403 536.24,-1374.14 510.27,-1404.22 476.5,-1384"/>
+</g>
+<!-- module~s_whm_step -->
 <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>
+<title>module~s_whm_step</title>
+<g id="a_module~~graph~~ModuleGraph_node52"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="512,-2234 439,-2234 439,-2210 512,-2210 512,-2234"/>
+<text text-anchor="middle" x="475.5" y="-2219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge103" class="edge">
-<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"/>
+<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M438.81,-2226.22C422.55,-2229.23 403.52,-2234.34 388,-2243 359.25,-2259.04 333.48,-2287.47 318.04,-2306.77"/>
+<polygon fill="#000000" stroke="#000000" points="315.08,-2304.87 311.7,-2314.92 320.61,-2309.17 315.08,-2304.87"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge102" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M438.59,-2222.69C420.63,-2221 400.19,-2215.58 388,-2201 345.03,-2149.58 360.34,-1665.49 352,-1599 341.09,-1511.99 318.47,-1409.99 308.23,-1366.01"/>
+<polygon fill="#000000" stroke="#000000" points="311.61,-1365.05 305.91,-1356.12 304.79,-1366.65 311.61,-1365.05"/>
+</g>
+<!-- module~s_helio_step -->
 <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>
+<title>module~s_helio_step</title>
+<g id="a_module~~graph~~ModuleGraph_node53"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679.5,-1522 606.5,-1522 606.5,-1498 679.5,-1498 679.5,-1522"/>
+<text text-anchor="middle" x="643" y="-1507.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
 <g id="module~~graph~~ModuleGraph_edge105" class="edge">
-<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"/>
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M607.69,-1522.15C604.3,-1524.6 601.27,-1527.52 599,-1531 545.48,-1612.93 625.05,-2335.32 563,-2411 553.45,-2422.65 538.62,-2428.47 523.93,-2431.22"/>
+<polygon fill="#000000" stroke="#000000" points="523.25,-2427.78 513.84,-2432.66 524.24,-2434.71 523.25,-2427.78"/>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_helio_step&#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"/>
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.12,-1497.77C606.05,-1495.29 602.19,-1492.38 599,-1489 570.56,-1458.87 594.82,-1429.54 563,-1403 532.78,-1377.79 510.27,-1404.22 476.5,-1384"/>
+</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="502.5,-1772 448.5,-1772 448.5,-1748 502.5,-1748 502.5,-1772"/>
+<text text-anchor="middle" x="475.5" y="-1757.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~s_util_fill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M448.25,-1758.58C429.97,-1756.48 405.76,-1751.35 388,-1739 332.54,-1700.43 359.14,-1650.57 303,-1613"/>
+</g>
+<!-- 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="M448.23,-1760.61C428.96,-1759.59 403.53,-1754.94 388,-1739 374.65,-1725.29 322.29,-1447.9 307.13,-1366.36"/>
+<polygon fill="#000000" stroke="#000000" points="310.51,-1365.39 305.25,-1356.2 303.63,-1366.67 310.51,-1365.39"/>
+</g>
+<!-- module~s_symba_collision -->
+<g id="module~~graph~~ModuleGraph_node55" class="node">
+<title>module~s_symba_collision</title>
+<g id="a_module~~graph~~ModuleGraph_node55"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="844,-1230 745,-1230 745,-1206 844,-1206 844,-1230"/>
+<text text-anchor="middle" x="794.5" y="-1215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~graph~~ModuleGraph_edge109" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M744.83,-1224.14C736.44,-1227.33 728.62,-1232.05 723,-1239 658.55,-1318.75 744.67,-1614.22 687,-1699 686.56,-1699.64 686.1,-1700.27 685.61,-1700.88"/>
+<polygon fill="#000000" stroke="#000000" points="683.14,-1698.4 678.18,-1707.76 687.89,-1703.53 683.14,-1698.4"/>
+</g>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge108" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M752.45,-1205.91C709.13,-1193.23 646.7,-1175.24 644,-1176"/>
+</g>
+<!-- module~s_symba_setup -->
+<g id="module~~graph~~ModuleGraph_node56" class="node">
+<title>module~s_symba_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node56"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="838.5,-1188 750.5,-1188 750.5,-1164 838.5,-1164 838.5,-1188"/>
+<text text-anchor="middle" x="794.5" y="-1173.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_edge111" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M750.25,-1180.26C739.85,-1183.38 729.8,-1188.53 723,-1197 652.98,-1284.22 749.6,-1606.32 687,-1699 686.56,-1699.65 686.1,-1700.27 685.62,-1700.88"/>
+<polygon fill="#000000" stroke="#000000" points="683.14,-1698.4 678.2,-1707.78 687.91,-1703.53 683.14,-1698.4"/>
+</g>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge110" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.45,-1169.9C720.11,-1167.06 678.85,-1166.18 644,-1176"/>
+</g>
+<!-- module~orbel -->
+<g id="module~~graph~~ModuleGraph_node57" class="node">
+<title>module~orbel</title>
+<g id="a_module~~graph~~ModuleGraph_node57"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="502.5,-1356 448.5,-1356 448.5,-1332 502.5,-1332 502.5,-1356"/>
+<text text-anchor="middle" x="475.5" y="-1341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
+</a>
+</g>
+</g>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge112" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.45,-1344C419.28,-1344 371.81,-1344 339.08,-1344"/>
+<polygon fill="#000000" stroke="#000000" points="339.01,-1340.5 329.01,-1344 339.01,-1347.5 339.01,-1340.5"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~graph~~ModuleGraph_node58" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~graph~~ModuleGraph_node58"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="532.5,-1730 418.5,-1730 418.5,-1706 532.5,-1706 532.5,-1730"/>
+<text text-anchor="middle" x="475.5" y="-1715.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~~graph~~ModuleGraph_edge114" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M418.37,-1709.07C407.89,-1706.11 397.31,-1702.19 388,-1697 341.62,-1671.13 347.14,-1642.54 303,-1613"/>
+</g>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge113" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.2,-1713.65C407,-1710.4 396.19,-1705.2 388,-1697 364.07,-1673.02 320.39,-1440.41 307.01,-1366.45"/>
+<polygon fill="#000000" stroke="#000000" points="310.41,-1365.59 305.19,-1356.37 303.52,-1366.83 310.41,-1365.59"/>
+</g>
+<!-- module~s_operator_mag -->
+<g id="module~~graph~~ModuleGraph_node59" class="node">
+<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="521,-24 430,-24 430,0 521,0 521,-24"/>
+<text text-anchor="middle" x="475.5" y="-9.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~~graph~~ModuleGraph_edge115" class="edge">
+<title>module~s_operator_mag&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" d="M429.78,-19.29C415.99,-22.47 401.02,-26.9 388,-33 363.92,-44.28 339.89,-62.95 323.56,-77.04"/>
+<polygon fill="#000000" stroke="#000000" points="320.94,-74.69 315.76,-83.93 325.57,-79.93 320.94,-74.69"/>
+</g>
+<!-- module~s_fraggle_setup -->
+<g id="module~~graph~~ModuleGraph_node60" class="node">
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node60"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="520,-2066 431,-2066 431,-2042 520,-2042 520,-2066"/>
+<text text-anchor="middle" x="475.5" y="-2051.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~fraggle_classes -->
+<g id="module~~graph~~ModuleGraph_edge117" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M430.82,-2045.38C416.94,-2042.11 401.65,-2037.96 388,-2033 369.12,-2026.14 348.92,-2016.27 332.95,-2007.83"/>
+<polygon fill="#000000" stroke="#000000" points="334.55,-2004.71 324.08,-2003.05 331.23,-2010.88 334.55,-2004.71"/>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge116" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.73,-2053.57C415,-2051.08 398.55,-2045.33 388,-2033 356.54,-1996.23 358.57,-1646.94 352,-1599 340.08,-1512.12 317.99,-1410.05 308.06,-1366.03"/>
+<polygon fill="#000000" stroke="#000000" points="311.44,-1365.11 305.81,-1356.13 304.61,-1366.66 311.44,-1365.11"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<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="M301,-974C193.76,-1049.06 288.58,-1147.06 216,-1256 211.35,-1262.98 204.98,-1269.33 198.51,-1274.71"/>
+<polygon fill="#000000" stroke="#000000" points="196.14,-1272.12 190.36,-1281 200.42,-1277.66 196.14,-1272.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.68,-1707.86C604.28,-1705.41 601.26,-1702.48 599,-1699 538.54,-1605.96 642.86,-778.03 563,-701 535.01,-674 417.36,-675.5 388,-701 301.91,-775.75 422.88,-865.69 352,-955 337.48,-973.3 322.14,-960.61 303,-974"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_edge120" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.69,-1732.32C619.43,-1743.46 605.49,-1760.86 599,-1779 575.32,-1845.23 608.03,-2356.97 563,-2411 553.35,-2422.57 538.51,-2428.38 523.82,-2431.13"/>
+<polygon fill="#000000" stroke="#000000" points="523.15,-2427.69 513.75,-2432.58 524.14,-2434.62 523.15,-2427.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~graph~~ModuleGraph_edge119" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.66,-1732.31C619.38,-1743.44 605.43,-1760.84 599,-1779 572.43,-1854.1 614.46,-2434.2 563,-2495 537.57,-2525.04 515.16,-2506.61 476.5,-2514"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.5,-2514C435.84,-2521.39 415.14,-2523.51 388,-2495 379.47,-2486.04 321.22,-2109.7 306.42,-2013.31"/>
+<polygon fill="#000000" stroke="#000000" points="309.84,-2012.57 304.87,-2003.21 302.92,-2013.63 309.84,-2012.57"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge118" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.67,-1732.31C619.4,-1743.45 605.45,-1760.85 599,-1779 573.88,-1849.66 610.91,-2395.3 563,-2453 553.45,-2464.5 538.78,-2470.3 524.21,-2473.08"/>
+<polygon fill="#000000" stroke="#000000" points="523.59,-2469.63 514.21,-2474.55 524.61,-2476.56 523.59,-2469.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge121" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.5,-2514C399.63,-2528.32 377.38,-2530.67 303,-2514"/>
+</g>
+<!-- module~s_tides_step_spin -->
+<g id="module~~graph~~ModuleGraph_node62" class="node">
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~graph~~ModuleGraph_node62"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="524.5,-1688 426.5,-1688 426.5,-1664 524.5,-1664 524.5,-1688"/>
+<text text-anchor="middle" x="475.5" y="-1673.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+</a>
+</g>
+</g>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge124" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M426.35,-1666.3C413.71,-1663.22 400.2,-1659.43 388,-1655 348.4,-1640.61 338.02,-1636.44 303,-1613"/>
+</g>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge123" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.49,-1673.48C412.54,-1670.53 398.31,-1665.02 388,-1655 345.78,-1613.97 315.55,-1430.36 306.11,-1366.21"/>
+<polygon fill="#000000" stroke="#000000" points="309.53,-1365.4 304.64,-1356 302.61,-1366.4 309.53,-1365.4"/>
+</g>
+<!-- module~drift_implementation -->
+<g id="module~~graph~~ModuleGraph_node63" class="node">
+<title>module~drift_implementation</title>
+<g id="a_module~~graph~~ModuleGraph_node63"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="530,-1646 421,-1646 421,-1622 530,-1622 530,-1646"/>
+<text text-anchor="middle" x="475.5" y="-1631.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+</a>
+</g>
+</g>
+<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge126" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M420.71,-1639.4C384.55,-1640.33 337.4,-1636.02 303,-1613"/>
+</g>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge125" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.87,-1629.84C408.87,-1626.66 397.03,-1621.44 388,-1613 315.82,-1545.56 304.61,-1417.4 303.11,-1366.07"/>
+<polygon fill="#000000" stroke="#000000" points="306.61,-1366 302.91,-1356.07 299.61,-1366.13 306.61,-1366"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~graph~~ModuleGraph_edge128" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.67,-2470.92C420.54,-2468.14 402.21,-2462.88 388,-2453 349.99,-2426.56 324.16,-2377.18 311.66,-2348.72"/>
+<polygon fill="#000000" stroke="#000000" points="314.78,-2347.11 307.66,-2339.26 308.33,-2349.84 314.78,-2347.11"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge127" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2514C234.34,-2499.06 234.58,-2456.97 171,-2432"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.98,-2484.58C390.54,-2497.38 315.98,-2516.91 303,-2514"/>
 </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>
+<!-- module~s_whm_setup -->
+<g id="module~~graph~~ModuleGraph_node65" class="node">
+<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="515,-2192 436,-2192 436,-2168 515,-2168 515,-2192"/>
+<text text-anchor="middle" x="475.5" y="-2177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge107" class="edge">
-<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"/>
+<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
+<g id="module~~graph~~ModuleGraph_edge130" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M435.8,-2183.23C419.89,-2186.05 401.96,-2191.29 388,-2201 349.99,-2227.44 324.16,-2276.82 311.66,-2305.28"/>
+<polygon fill="#000000" stroke="#000000" points="308.33,-2304.16 307.66,-2314.74 314.78,-2306.89 308.33,-2304.16"/>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge129" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.97,-2180.4C418.69,-2178.42 399.63,-2172.85 388,-2159 347.91,-2111.25 359.9,-1660.85 352,-1599 340.89,-1512.02 318.37,-1410 308.2,-1366.01"/>
+<polygon fill="#000000" stroke="#000000" points="311.57,-1365.06 305.89,-1356.12 304.76,-1366.66 311.57,-1365.06"/>
 </g>
-<!-- module~s_eucl -->
-<g id="module~~graph~~ModuleGraph_node55" class="node">
-<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>
+<!-- module~s_util_resize -->
+<g id="module~~graph~~ModuleGraph_node66" class="node">
+<title>module~s_util_resize</title>
+<g id="a_module~~graph~~ModuleGraph_node66"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="511.5,-944 439.5,-944 439.5,-920 511.5,-920 511.5,-944"/>
+<text text-anchor="middle" x="475.5" y="-929.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_classes -->
-<g id="module~~graph~~ModuleGraph_edge109" class="edge">
-<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"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge132" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M439.33,-937.52C395.82,-944.88 324.79,-958.75 303,-974"/>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge108" class="edge">
-<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"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge131" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.47,-932.1C421.76,-934.02 401.28,-939.4 388,-953 335.73,-1006.55 311.24,-1246.89 304.79,-1321.7"/>
+<polygon fill="#000000" stroke="#000000" points="301.28,-1321.61 303.94,-1331.86 308.26,-1322.19 301.28,-1321.61"/>
 </g>
-<!-- module~s_util_append -->
-<g id="module~~graph~~ModuleGraph_node56" class="node">
-<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>
+<!-- module~s_util_solve -->
+<g id="module~~graph~~ModuleGraph_node67" class="node">
+<title>module~s_util_solve</title>
+<g id="a_module~~graph~~ModuleGraph_node67"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="509.5,-902 441.5,-902 441.5,-878 509.5,-878 509.5,-902"/>
+<text text-anchor="middle" x="475.5" y="-887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge111" class="edge">
-<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"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge134" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M441.33,-892.98C424.35,-895.72 403.96,-900.96 388,-911 366.61,-924.46 372.45,-940.17 352,-955 333.09,-968.71 322.14,-960.61 303,-974"/>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge110" class="edge">
-<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"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge133" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.08,-889.82C422.96,-891.54 401.57,-896.82 388,-911 358.99,-941.33 317.35,-1237.07 305.97,-1321.56"/>
+<polygon fill="#000000" stroke="#000000" points="302.48,-1321.25 304.63,-1331.62 309.42,-1322.18 302.48,-1321.25"/>
 </g>
 <!-- module~s_rmvs_discard -->
-<g id="module~~graph~~ModuleGraph_node57" class="node">
+<g id="module~~graph~~ModuleGraph_node68" 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>
+<g id="a_module~~graph~~ModuleGraph_node68"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="687,-1648 599,-1648 599,-1624 687,-1624 687,-1648"/>
+<text text-anchor="middle" x="643" y="-1633.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">
+<g id="module~~graph~~ModuleGraph_edge136" 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"/>
+<path fill="none" stroke="#000000" d="M607.71,-1648.16C604.31,-1650.61 601.28,-1653.53 599,-1657 550.42,-1731.02 619.28,-2384.66 563,-2453 553.5,-2464.53 538.84,-2470.35 524.27,-2473.12"/>
+<polygon fill="#000000" stroke="#000000" points="523.65,-2469.68 514.26,-2474.59 524.66,-2476.6 523.65,-2469.68"/>
 </g>
 <!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge112" class="edge">
+<g id="module~~graph~~ModuleGraph_edge135" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.53,-1623.84C604.9,-1621.38 601.59,-1618.46 599,-1615 541.75,-1538.48 628.94,-1472.18 563,-1403 535.84,-1374.51 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~s_whm_step -->
-<g id="module~~graph~~ModuleGraph_node58" class="node">
-<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>
+<!-- module~s_fraggle_placeholder -->
+<g id="module~~graph~~ModuleGraph_node69" class="node">
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~graph~~ModuleGraph_node69"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="534.5,-2024 416.5,-2024 416.5,-2000 534.5,-2000 534.5,-2024"/>
+<text text-anchor="middle" x="475.5" y="-2009.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes -->
+<g id="module~~graph~~ModuleGraph_edge138" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M416.44,-2004.89C396.75,-2002.48 374.88,-1999.8 355.64,-1997.45"/>
+<polygon fill="#000000" stroke="#000000" points="355.9,-1993.95 345.55,-1996.21 355.05,-2000.9 355.9,-1993.95"/>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge137" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.39,-2008.24C405.57,-2004.92 395.37,-1999.54 388,-1991 330.84,-1924.78 364.27,-1685.61 352,-1599 339.7,-1512.18 317.8,-1410.07 307.99,-1366.04"/>
+<polygon fill="#000000" stroke="#000000" points="311.38,-1365.13 305.77,-1356.14 304.55,-1366.66 311.38,-1365.13"/>
 </g>
-<!-- module~s_operator_mag -->
-<g id="module~~graph~~ModuleGraph_node59" class="node">
-<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>
+<!-- module~s_util_append -->
+<g id="module~~graph~~ModuleGraph_node70" class="node">
+<title>module~s_util_append</title>
+<g id="a_module~~graph~~ModuleGraph_node70"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="515,-860 436,-860 436,-836 515,-836 515,-860"/>
+<text text-anchor="middle" x="475.5" y="-845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_mag&#45;&gt;module~swiftest_operators -->
-<g id="module~~graph~~ModuleGraph_edge116" class="edge">
-<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~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge118" class="edge">
-<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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge140" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M435.68,-849.8C419.37,-852.34 401.17,-857.77 388,-869 356.48,-895.89 381.69,-926.09 352,-955 335.27,-971.3 322.14,-960.61 303,-974"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~graph~~ModuleGraph_edge117" class="edge">
-<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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge139" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.77,-848.31C418.87,-850.5 400.18,-856.06 388,-869 356.28,-902.72 315.96,-1232.35 305.55,-1321.74"/>
+<polygon fill="#000000" stroke="#000000" points="302.05,-1321.51 304.38,-1331.85 309,-1322.32 302.05,-1321.51"/>
 </g>
-<!-- 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>
+<!-- module~s_helio_gr -->
+<g id="module~~graph~~ModuleGraph_node71" class="node">
+<title>module~s_helio_gr</title>
+<g id="a_module~~graph~~ModuleGraph_node71"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674,-1480 612,-1480 612,-1456 674,-1456 674,-1480"/>
+<text text-anchor="middle" x="643" y="-1465.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_classes -->
-<g id="module~~graph~~ModuleGraph_edge121" class="edge">
-<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"/>
+<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_edge142" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M611.92,-1477.43C606.83,-1480.35 602.18,-1484.13 599,-1489 543.01,-1574.88 627.93,-2331.66 563,-2411 553.46,-2422.66 538.64,-2428.49 523.94,-2431.23"/>
+<polygon fill="#000000" stroke="#000000" points="523.26,-2427.79 513.86,-2432.67 524.25,-2434.72 523.26,-2427.79"/>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge120" class="edge">
-<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"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge141" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.75,-1455.85C607.94,-1453.26 603.17,-1450.3 599,-1447 579.19,-1431.32 584.53,-1416.22 563,-1403 529.46,-1382.4 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- 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>
+<!-- module~s_rmvs_step -->
+<g id="module~~graph~~ModuleGraph_node72" class="node">
+<title>module~s_rmvs_step</title>
+<g id="a_module~~graph~~ModuleGraph_node72"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679.5,-1606 606.5,-1606 606.5,-1582 679.5,-1582 679.5,-1606"/>
+<text text-anchor="middle" x="643" y="-1591.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge144" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M607.7,-1606.16C604.3,-1608.61 601.28,-1611.52 599,-1615 547.95,-1692.97 622.16,-2380.99 563,-2453 553.51,-2464.54 538.86,-2470.36 524.28,-2473.14"/>
+<polygon fill="#000000" stroke="#000000" points="523.66,-2469.69 514.27,-2474.6 524.68,-2476.62 523.66,-2469.69"/>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge122" class="edge">
-<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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge143" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.66,-1581.74C605.01,-1579.29 601.66,-1576.41 599,-1573 551.49,-1512.11 617.4,-1457.82 563,-1403 535.27,-1375.06 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- 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>
+<!-- module~s_symba_kick -->
+<g id="module~~graph~~ModuleGraph_node73" class="node">
+<title>module~s_symba_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node73"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="834,-1146 755,-1146 755,-1122 834,-1122 834,-1146"/>
+<text text-anchor="middle" x="794.5" y="-1131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</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"/>
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~graph~~ModuleGraph_edge146" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M754.64,-1137.04C742.72,-1139.96 730.73,-1145.32 723,-1155 647.42,-1249.68 754.53,-1598.42 687,-1699 686.57,-1699.65 686.11,-1700.27 685.62,-1700.88"/>
+<polygon fill="#000000" stroke="#000000" points="683.14,-1698.41 678.22,-1707.79 687.92,-1703.53 683.14,-1698.41"/>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge124" class="edge">
-<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"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge145" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M754.78,-1144.86C724.59,-1153.33 681.63,-1165.39 644,-1176"/>
 </g>
 <!-- module~s_rmvs_util -->
-<g id="module~~graph~~ModuleGraph_node64" class="node">
+<g id="module~~graph~~ModuleGraph_node74" class="node">
 <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>
+<g id="a_module~~graph~~ModuleGraph_node74"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-1564 609.5,-1564 609.5,-1540 676.5,-1540 676.5,-1564"/>
+<text text-anchor="middle" x="643" y="-1549.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~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_edge127" class="edge">
+<g id="module~~graph~~ModuleGraph_edge148" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M609.35,-1563.02C605.28,-1565.68 601.64,-1568.97 599,-1573 545.48,-1654.93 625.05,-2377.32 563,-2453 553.53,-2464.55 538.87,-2470.38 524.3,-2473.15"/>
+<polygon fill="#000000" stroke="#000000" points="523.67,-2469.7 514.29,-2474.61 524.69,-2476.63 523.67,-2469.7"/>
 </g>
 <!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge126" class="edge">
+<g id="module~~graph~~ModuleGraph_edge147" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.3,-1539.84C605.45,-1537.37 601.87,-1534.44 599,-1531 561.14,-1485.62 605.98,-1443.56 563,-1403 534.37,-1375.99 510.27,-1404.22 476.5,-1384"/>
 </g>
-<!-- module~s_whm_setup -->
-<g id="module~~graph~~ModuleGraph_node65" class="node">
-<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>
+<!-- module~s_fraggle_util -->
+<g id="module~~graph~~ModuleGraph_node75" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~graph~~ModuleGraph_node75"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="513.5,-1982 437.5,-1982 437.5,-1958 513.5,-1958 513.5,-1982"/>
+<text text-anchor="middle" x="475.5" y="-1967.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge129" class="edge">
-<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_whm_setup&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge128" class="edge">
-<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>
-<!-- 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>
+<!-- module~s_fraggle_util&#45;&gt;module~fraggle_classes -->
+<g id="module~~graph~~ModuleGraph_edge150" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M437.29,-1974.56C413.46,-1977.47 382.17,-1981.31 355.79,-1984.54"/>
+<polygon fill="#000000" stroke="#000000" points="355.08,-1981.1 345.58,-1985.79 355.93,-1988.05 355.08,-1981.1"/>
 </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"/>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge149" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M437.09,-1970.3C419.63,-1968.37 400.09,-1962.86 388,-1949 336.59,-1890.09 363.39,-1676.35 352,-1599 339.23,-1512.25 317.58,-1410.11 307.91,-1366.05"/>
+<polygon fill="#000000" stroke="#000000" points="311.3,-1365.16 305.73,-1356.14 304.46,-1366.66 311.3,-1365.16"/>
 </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"/>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge151" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.42,-108.01C281.94,-126.93 260.6,-165.21 252,-201 238.59,-256.84 257.31,-1194.11 216,-1234 175.96,-1272.67 106.38,-1235.09 69.53,-1210.16"/>
+<polygon fill="#000000" stroke="#000000" points="71.11,-1206.99 60.9,-1204.15 67.11,-1212.74 71.11,-1206.99"/>
 </g>
 <!-- program~swiftest_driver -->
-<g id="module~~graph~~ModuleGraph_node67" class="node">
+<g id="module~~graph~~ModuleGraph_node77" class="node">
 <title>program~swiftest_driver</title>
-<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>
+<g id="a_module~~graph~~ModuleGraph_node77"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="516,-1276 435,-1276 435,-1252 516,-1252 516,-1276"/>
+<text text-anchor="middle" x="475.5" y="-1261.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_edge132" class="edge">
+<g id="module~~graph~~ModuleGraph_edge152" class="edge">
 <title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<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~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M434.91,-1273.44C419.89,-1277.65 402.83,-1283.22 388,-1290 366.54,-1299.82 344.07,-1314.3 327.63,-1325.79"/>
+<polygon fill="#000000" stroke="#000000" points="325.28,-1323.17 319.16,-1331.82 329.34,-1328.87 325.28,-1323.17"/>
 </g>
-</g>
-<!-- ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_node75" class="node">
-<title>ieee_exceptions</title>
-<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>
+<!-- proc~walltime_finish -->
+<g id="module~~graph~~ModuleGraph_node78" class="node">
+<title>proc~walltime_finish</title>
+<g id="a_module~~graph~~ModuleGraph_node78"><a xlink:href=".././proc/walltime_finish.html" xlink:title="walltime_finish">
+<polygon fill="#d9534f" stroke="#d9534f" points="211,-1141 129,-1141 129,-1117 211,-1117 211,-1141"/>
+<text text-anchor="middle" x="170" y="-1126.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_finish</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"/>
+<!-- proc~walltime_finish&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge153" class="edge">
+<title>proc~walltime_finish&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.24,-1141.21C136.21,-1144.04 129.86,-1147.08 124,-1150 108.04,-1157.96 90.5,-1167.23 76.01,-1175.04"/>
+<polygon fill="#000000" stroke="#000000" points="74.1,-1172.09 66.97,-1179.92 77.44,-1178.24 74.1,-1172.09"/>
 </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>
+<!-- proc~walltime_reset -->
+<g id="module~~graph~~ModuleGraph_node79" class="node">
+<title>proc~walltime_reset</title>
+<g id="a_module~~graph~~ModuleGraph_node79"><a xlink:href=".././proc/walltime_reset.html" xlink:title="walltime_reset">
+<polygon fill="#d9534f" stroke="#d9534f" points="210.5,-1099 129.5,-1099 129.5,-1075 210.5,-1075 210.5,-1099"/>
+<text text-anchor="middle" x="170" y="-1084.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_reset</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"/>
+<!-- proc~walltime_reset&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge154" class="edge">
+<title>proc~walltime_reset&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.05,-1099.02C133.83,-1101.65 128.61,-1104.66 124,-1108 98.8,-1126.24 75.08,-1153.28 60.34,-1171.73"/>
+<polygon fill="#000000" stroke="#000000" points="57.45,-1169.74 54.03,-1179.77 62.96,-1174.06 57.45,-1169.74"/>
 </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>
+<!-- proc~walltime_start -->
+<g id="module~~graph~~ModuleGraph_node80" class="node">
+<title>proc~walltime_start</title>
+<g id="a_module~~graph~~ModuleGraph_node80"><a xlink:href=".././proc/walltime_start.html" xlink:title="walltime_start">
+<polygon fill="#d9534f" stroke="#d9534f" points="209,-1057 131,-1057 131,-1033 209,-1033 209,-1057"/>
+<text text-anchor="middle" x="170" y="-1042.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_start</text>
 </a>
 </g>
 </g>
-<!-- proc~util_minimize_bfgs&#45;&gt;ieee_exceptions -->
-<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"/>
+<!-- proc~walltime_start&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge155" class="edge">
+<title>proc~walltime_start&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.07,-1057.06C132.41,-1059.6 127.88,-1062.57 124,-1066 90.55,-1095.56 66.24,-1142.67 53.99,-1170.14"/>
+<polygon fill="#000000" stroke="#000000" points="50.65,-1169.06 49.89,-1179.63 57.07,-1171.83 50.65,-1169.06"/>
 </g>
 <!-- proc~util_solve_linear_system_d -->
-<g id="module~~graph~~ModuleGraph_node71" class="node">
+<g id="module~~graph~~ModuleGraph_node81" class="node">
 <title>proc~util_solve_linear_system_d</title>
-<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>
+<g id="a_module~~graph~~ModuleGraph_node81"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="546,-276 405,-276 405,-252 546,-252 546,-276"/>
+<text text-anchor="middle" x="475.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
+</a>
+</g>
+</g>
+<!-- ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_node92" class="node">
+<title>ieee_exceptions</title>
+<g id="a_module~~graph~~ModuleGraph_node92"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-234 257,-234 257,-210 347,-210 347,-234"/>
+<text text-anchor="middle" x="302" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
 </a>
 </g>
 </g>
 <!-- proc~util_solve_linear_system_d&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge137" class="edge">
+<g id="module~~graph~~ModuleGraph_edge156" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.63,-251.93C412.63,-249.02 399.86,-245.9 388,-243 377.93,-240.53 367.19,-237.89 356.86,-235.34"/>
+<polygon fill="#000000" stroke="#000000" points="357.66,-231.93 347.11,-232.93 355.98,-238.73 357.66,-231.93"/>
+</g>
+<!-- proc~util_solve_linear_system_q -->
+<g id="module~~graph~~ModuleGraph_node82" class="node">
+<title>proc~util_solve_linear_system_q</title>
+<g id="a_module~~graph~~ModuleGraph_node82"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="546,-234 405,-234 405,-210 546,-210 546,-234"/>
+<text text-anchor="middle" x="475.5" y="-219.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_edge157" class="edge">
+<title>proc~util_solve_linear_system_q&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.74,-222C388.92,-222 372.35,-222 357.27,-222"/>
+<polygon fill="#000000" stroke="#000000" points="357.11,-218.5 347.11,-222 357.11,-225.5 357.11,-218.5"/>
 </g>
 <!-- proc~solve_wbs -->
-<g id="module~~graph~~ModuleGraph_node72" class="node">
+<g id="module~~graph~~ModuleGraph_node83" 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>
+<g id="a_module~~graph~~ModuleGraph_node83"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="506.5,-318 444.5,-318 444.5,-294 506.5,-294 506.5,-318"/>
+<text text-anchor="middle" x="475.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge158" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.16,-304.86C425.01,-305.92 401.43,-310.84 388,-327 340.98,-383.56 359.02,-914.78 352,-988 339.85,-1114.66 315.96,-1265.46 306.75,-1321.54"/>
+<polygon fill="#000000" stroke="#000000" points="303.24,-1321.31 305.06,-1331.75 310.14,-1322.45 303.24,-1321.31"/>
+</g>
 <!-- proc~solve_wbs&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge138" class="edge">
+<g id="module~~graph~~ModuleGraph_edge159" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.28,-301.72C427.2,-298.56 405.77,-293.32 388,-285 363.92,-273.72 339.89,-255.05 323.56,-240.96"/>
+<polygon fill="#000000" stroke="#000000" points="325.57,-238.07 315.76,-234.07 320.94,-243.31 325.57,-238.07"/>
 </g>
-<!-- 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"/>
+<!-- proc~ge_wpp -->
+<g id="module~~graph~~ModuleGraph_node84" class="node">
+<title>proc~ge_wpp</title>
+<g id="a_module~~graph~~ModuleGraph_node84"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="502.5,-360 448.5,-360 448.5,-336 502.5,-336 502.5,-360"/>
+<text text-anchor="middle" x="475.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+</a>
 </g>
-<!-- proc~util_solve_linear_system_q -->
-<g id="module~~graph~~ModuleGraph_node73" class="node">
-<title>proc~util_solve_linear_system_q</title>
-<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>
+</g>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge160" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.32,-346.7C428.56,-347.28 402.45,-351.68 388,-369 343.86,-421.9 358.7,-919.43 352,-988 339.62,-1114.64 315.87,-1265.45 306.72,-1321.54"/>
+<polygon fill="#000000" stroke="#000000" points="303.21,-1321.31 305.04,-1331.74 310.12,-1322.44 303.21,-1321.31"/>
+</g>
+<!-- proc~ge_wpp&#45;&gt;ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_edge161" class="edge">
+<title>proc~ge_wpp&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.19,-346.05C430.09,-343.69 406.15,-338.49 388,-327 354.58,-305.85 328.31,-267.01 314.27,-242.96"/>
+<polygon fill="#000000" stroke="#000000" points="317.31,-241.22 309.34,-234.24 311.21,-244.66 317.31,-241.22"/>
+</g>
+<!-- proc~fraggle_set_original_scale_factors -->
+<g id="module~~graph~~ModuleGraph_node85" class="node">
+<title>proc~fraggle_set_original_scale_factors</title>
+<g id="a_module~~graph~~ModuleGraph_node85"><a xlink:href=".././proc/fraggle_set_original_scale_factors.html" xlink:title="fraggle_set_original_scale_factors">
+<polygon fill="#d9534f" stroke="#d9534f" points="563,-192 388,-192 388,-168 563,-168 563,-192"/>
+<text text-anchor="middle" x="475.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_original_scale_factors</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;ieee_exceptions -->
-<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"/>
+<!-- proc~fraggle_set_original_scale_factors&#45;&gt;ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_edge162" class="edge">
+<title>proc~fraggle_set_original_scale_factors&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.63,-192.07C412.63,-194.98 399.86,-198.1 388,-201 377.93,-203.47 367.19,-206.11 356.86,-208.66"/>
+<polygon fill="#000000" stroke="#000000" points="355.98,-205.27 347.11,-211.07 357.66,-212.07 355.98,-205.27"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="module~~graph~~ModuleGraph_node86" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_module~~graph~~ModuleGraph_node86"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="549.5,-150 401.5,-150 401.5,-126 549.5,-126 549.5,-150"/>
+<text text-anchor="middle" x="475.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_edge163" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.58,-150.12C403.47,-152.59 395.42,-155.53 388,-159 363.92,-170.28 339.89,-188.95 323.56,-203.04"/>
+<polygon fill="#000000" stroke="#000000" points="320.94,-200.69 315.76,-209.93 325.57,-205.93 320.94,-200.69"/>
+</g>
+<!-- proc~util_minimize_bfgs -->
+<g id="module~~graph~~ModuleGraph_node87" class="node">
+<title>proc~util_minimize_bfgs</title>
+<g id="a_module~~graph~~ModuleGraph_node87"><a xlink:href=".././proc/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="525.5,-66 425.5,-66 425.5,-42 525.5,-42 525.5,-66"/>
+<text text-anchor="middle" x="475.5" y="-51.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_edge164" class="edge">
+<title>proc~util_minimize_bfgs&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.25,-58.84C412.2,-61.94 398.76,-66.95 388,-75 365.67,-91.71 329.91,-164.02 312.78,-200.62"/>
+<polygon fill="#000000" stroke="#000000" points="309.5,-199.37 308.47,-209.91 315.85,-202.32 309.5,-199.37"/>
+</g>
+<!-- proc~xv2el -->
+<g id="module~~graph~~ModuleGraph_node88" class="node">
+<title>proc~xv2el</title>
+<g id="a_module~~graph~~ModuleGraph_node88"><a xlink:href=".././proc/xv2el.html" xlink:title="xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="329,-946 275,-946 275,-922 329,-922 329,-946"/>
+<text text-anchor="middle" x="302" y="-931.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xv2el</text>
+</a>
+</g>
+</g>
+<!-- proc~xv2el&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge165" class="edge">
+<title>proc~xv2el&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.9,-942.22C266.28,-946.23 257.49,-951.97 252,-960 174.45,-1073.4 291.49,-1152.22 216,-1267 214.17,-1269.79 211.92,-1272.32 209.42,-1274.6"/>
+<polygon fill="#000000" stroke="#000000" points="207.19,-1271.89 201.33,-1280.72 211.42,-1277.48 207.19,-1271.89"/>
 </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 panmodulegraphModuleGraph = svgPanZoom('#modulegraphModuleGraph', {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/lists/procedures.html b/docs/lists/procedures.html
index d2b442076..ef260edf2 100644
--- a/docs/lists/procedures.html
+++ b/docs/lists/procedures.html
@@ -123,6 +123,8 @@ <h1>Procedures</h1>
 			 <thead><tr><th>Procedure</th><th>Location</th><th>Procedure Type</th><th>Description</th></tr></thead>
 			 <tbody>
 			 
+			   <tr><td><a href='../proc/check.html'>check</a></td><td><a href='../module/s_netcdf.html'>s_netcdf</a></td><td>Subroutine</td><td><p>Checks the status of all NetCDF operations to catch errors</p></td></tr>
+			 
 			   <tr><td><a href='../proc/discard_cb_tp.html'>discard_cb_tp</a></td><td><a href='../module/s_discard.html'>s_discard</a></td><td>Subroutine</td><td><p>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</p><a href="../proc/discard_cb_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
 			 
@@ -169,11 +171,79 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/drift_one.html'>drift_one</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/fraggle_generate_fragments.html'>fraggle_generate_fragments</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../proc/fraggle_generate_pos_vec.html'>fraggle_generate_pos_vec</a></td><td><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></td><td>Subroutine</td><td><p>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.</p></td></tr>
+			 
+			   <tr><td><a href='../proc/fraggle_generate_rad_vel.html'>fraggle_generate_rad_vel</a></td><td><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></td><td>Subroutine</td><td><p>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</p></td></tr>
+			 
+			   <tr><td><a href='../proc/fraggle_generate_spins.html'>fraggle_generate_spins</a></td><td><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></td><td>Subroutine</td><td><p>Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.</p><a href="../proc/fraggle_generate_spins.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			 
+			   <tr><td><a href='../proc/fraggle_generate_tan_vel.html'>fraggle_generate_tan_vel</a></td><td><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></td><td>Subroutine</td><td><p>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 (frag%ke_budget) that we can put into the radial velocity distribution.</p><a href="../proc/fraggle_generate_tan_vel.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_io_log_generate.html'>fraggle_io_log_generate</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_io_log_one_message.html'>fraggle_io_log_one_message</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_io_log_pl.html'>fraggle_io_log_pl</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_io_log_regime.html'>fraggle_io_log_regime</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_io_log_start.html'>fraggle_io_log_start</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_placeholder_accel.html'>fraggle_placeholder_accel</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_placeholder_kick.html'>fraggle_placeholder_kick</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_placeholder_step.html'>fraggle_placeholder_step</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_regime_colliders.html'>fraggle_regime_colliders</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../proc/fraggle_regime_collresolve.html'>fraggle_regime_collresolve</a></td><td><a href='../module/s_fraggle_regime.html'>s_fraggle_regime</a></td><td>Subroutine</td><td><p>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</p></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_set_budgets_fragments.html'>fraggle_set_budgets_fragments</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/fragmentation_initialize.html'>fragmentation_initialize</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/fraggle_set_coordinate_system.html'>fraggle_set_coordinate_system</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/fragmentation_regime.html'>fragmentation_regime</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/fraggle_set_mass_dist_fragments.html'>fraggle_set_mass_dist_fragments</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_set_natural_scale_factors.html'>fraggle_set_natural_scale_factors</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_set_original_scale_factors.html'>fraggle_set_original_scale_factors</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_setup_fragments.html'>fraggle_setup_fragments</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_setup_reset_fragments.html'>fraggle_setup_reset_fragments</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_add_fragments_to_system.html'>fraggle_util_add_fragments_to_system</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_ang_mtm.html'>fraggle_util_ang_mtm</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_construct_temporary_system.html'>fraggle_util_construct_temporary_system</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_get_energy_momentum.html'>fraggle_util_get_energy_momentum</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_restructure.html'>fraggle_util_restructure</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_shift_vector_to_origin.html'>fraggle_util_shift_vector_to_origin</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/fraggle_util_vmag_to_vb.html'>fraggle_util_vmag_to_vb</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../proc/ge_wpp.html'>ge_wpp</a></td><td><a href='../module/s_util_solve.html'>s_util_solve</a></td><td>Function</td><td><p>Solve  Ax=b  using Gaussian elimination then backwards substitution.
    A being an n by n matrix.
@@ -194,14 +264,6 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/helio_coord_vb2vh_pl.html'>helio_coord_vb2vh_pl</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
-			 
-			   <tr><td><a href='../interface/helio_coord_vb2vh_tp.html'>helio_coord_vb2vh_tp</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
-			 
-			   <tr><td><a href='../interface/helio_coord_vh2vb_pl.html'>helio_coord_vh2vb_pl</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
-			 
-			   <tr><td><a href='../interface/helio_coord_vh2vb_tp.html'>helio_coord_vh2vb_tp</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
-			 
 			   <tr><td><a href='../interface/helio_drift_body.html'>helio_drift_body</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/helio_drift_linear_pl.html'>helio_drift_linear_pl</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
@@ -228,6 +290,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/helio_kick_vb_tp.html'>helio_kick_vb_tp</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/helio_setup_initialize_system.html'>helio_setup_initialize_system</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/helio_step_pl.html'>helio_step_pl</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/helio_step_system.html'>helio_step_system</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td>Interface</td><td></td></tr>
@@ -236,24 +300,26 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/io_conservation_report.html'>io_conservation_report</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/io_dump_base.html'>io_dump_base</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/io_dump_param.html'>io_dump_param</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/io_dump_particle_info.html'>io_dump_particle_info</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/io_dump_system.html'>io_dump_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/io_get_args.html'>io_get_args</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/io_get_old_t_final_system.html'>io_get_old_t_final_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/io_get_token.html'>io_get_token</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/io_param_reader.html'>io_param_reader</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/io_param_writer.html'>io_param_writer</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/io_read_body_in.html'>io_read_body_in</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
-			 
-			   <tr><td><a href='../interface/io_read_cb_in.html'>io_read_cb_in</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
-			 
 			   <tr><td><a href='../proc/io_read_encounter.html'>io_read_encounter</a></td><td><a href='../module/s_io.html'>s_io</a></td><td>Function</td><td><p>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)
@@ -270,7 +336,15 @@ <h1>Procedures</h1>
  Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90
  Adapted from Hal Levison's Swift routine io_read_hdr.f</p></td></tr>
 			 
-			   <tr><td><a href='../interface/io_read_param_in.html'>io_read_param_in</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/io_read_in_body.html'>io_read_in_body</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/io_read_in_cb.html'>io_read_in_cb</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/io_read_in_param.html'>io_read_in_param</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/io_read_in_particle_info.html'>io_read_in_particle_info</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/io_read_particle_info_system.html'>io_read_particle_info_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/io_toupper.html'>io_toupper</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
@@ -282,9 +356,17 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/io_write_frame_encounter.html'>io_write_frame_encounter</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/io_write_frame_system.html'>io_write_frame_system</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../proc/io_write_hdr.html'>io_write_hdr</a></td><td><a href='../module/s_io.html'>s_io</a></td><td>Subroutine</td><td><p>Write frame header to output binary file</p><a href="../proc/io_write_hdr.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr><td><a href='../interface/io_write_hdr_system.html'>io_write_hdr_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/kick_getacch_int_all_pl.html'>kick_getacch_int_all_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/kick_getacch_int_one_pl.html'>kick_getacch_int_one_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/kick_getacch_int_one_tp.html'>kick_getacch_int_one_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/kick_getacch_int_pl.html'>kick_getacch_int_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
@@ -308,13 +390,30 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/lambda_obj~2.html'>lambda_obj</a></td><td><a href='../module/lambda_function.html'>lambda_function</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/netcdf_close.html'>netcdf_close</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/netcdf_initialize_output.html'>netcdf_initialize_output</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/netcdf_open.html'>netcdf_open</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../interface/netcdf_write_frame_system.html'>netcdf_write_frame_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/netcdf_write_hdr_system.html'>netcdf_write_hdr_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/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/obl_acc_body.html'>obl_acc_body</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/obl_acc_pl.html'>obl_acc_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/obl_acc_tp.html'>obl_acc_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/obl_pot.html'>obl_pot</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../proc/obl_pot_one.html'>obl_pot_one</a></td><td><a href='../module/s_obl.html'>s_obl</a></td><td>Function</td><td><p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive body
+    Returned value does not include monopole term or terms higher than J4</p><a href="../proc/obl_pot_one.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			 
+			   <tr><td><a href='../interface/obl_pot_system.html'>obl_pot_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/operator%28.cross.%29.html'>operator(.cross.)</a></td><td><a href='../module/swiftest_operators.html'>swiftest_operators</a></td><td>Interface</td><td></td></tr>
 			 
@@ -348,9 +447,7 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/orbel_xv2aqt.html'>orbel_xv2aqt</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../proc/orbel_xv2el.html'>orbel_xv2el</a></td><td><a href='../module/s_orbel.html'>s_orbel</a></td><td>Subroutine</td><td><p>Compute osculating orbital elements from relative Cartesian position and velocity
-  All angular measures are returned in radians
-      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</p><a href="../proc/orbel_xv2el.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
+			   <tr><td><a href='../interface/orbel_xv2el.html'>orbel_xv2el</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
@@ -368,6 +465,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../proc/rmvs_interp_out.html'>rmvs_interp_out</a></td><td><a href='../module/s_rmvs_step.html'>s_rmvs_step</a></td><td>Subroutine</td><td><p>Interpolate planet positions between two Keplerian orbits in outer encounter region</p><a href="../proc/rmvs_interp_out.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
 			 
+			   <tr><td><a href='../interface/rmvs_io_write_encounter.html'>rmvs_io_write_encounter</a></td><td><a href='../module/rmvs_classes.html'>rmvs_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/rmvs_kick_getacch_tp.html'>rmvs_kick_getacch_tp</a></td><td><a href='../module/rmvs_classes.html'>rmvs_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../proc/rmvs_make_planetocentric.html'>rmvs_make_planetocentric</a></td><td><a href='../module/s_rmvs_step.html'>s_rmvs_step</a></td><td>Subroutine</td><td><p>When encounters are detected, this method will call the interpolation methods for the planets and 
@@ -419,6 +518,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/setup_encounter.html'>setup_encounter</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_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/setup_initialize_system.html'>setup_initialize_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/setup_pl.html'>setup_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
@@ -427,21 +528,36 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../proc/solve_wbs.html'>solve_wbs</a></td><td><a href='../module/s_util_solve.html'>s_util_solve</a></td><td>Function</td><td><p>Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran</p></td></tr>
 			 
+			   <tr><td><a href='../interface/symba_collision_casedisruption.html'>symba_collision_casedisruption</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_collision_casehitandrun.html'>symba_collision_casehitandrun</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_collision_casemerge.html'>symba_collision_casemerge</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_collision_check_encounter.html'>symba_collision_check_encounter</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_collision_check_one.html'>symba_collision_check_one</a></td><td><a href='../module/s_symba_collision.html'>s_symba_collision</a></td><td>Function</td><td><p>Check for a merger between a single pair of particles</p><a href="../proc/symba_collision_check_one.html" class="pull-right"><emph>Read more&hellip;</emph></a></td></tr>
 			 
-			   <tr><td><a href='../interface/symba_collision_check_pltpenc.html'>symba_collision_check_pltpenc</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_collision_collider_message.html'>symba_collision_collider_message</a></td><td><a href='../module/s_symba_collision.html'>s_symba_collision</a></td><td>Subroutine</td><td><p>Prints a nicely formatted message about which bodies collided, including their names and ids.
+ This subroutine appends the body names and ids to an input message.</p></td></tr>
 			 
-			   <tr><td><a href='../proc/symba_collision_consolidate_familes.html'>symba_collision_consolidate_familes</a></td><td><a href='../module/s_symba_collision.html'>s_symba_collision</a></td><td>Function</td><td><p>Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, 
+			   <tr><td><a href='../proc/symba_collision_consolidate_colliders.html'>symba_collision_consolidate_colliders</a></td><td><a href='../module/s_symba_collision.html'>s_symba_collision</a></td><td>Function</td><td><p>Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx members, 
  and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome.</p></td></tr>
 			 
-			   <tr><td><a href='../interface/symba_collision_encounter_scrub.html'>symba_collision_encounter_scrub</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_collision_encounter_extract_collisions.html'>symba_collision_encounter_extract_collisions</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_collision_make_family_pl.html'>symba_collision_make_family_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_collision_make_colliders_pl.html'>symba_collision_make_colliders_pl</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_collision_mergeaddsub.html'>symba_collision_mergeaddsub</a></td><td><a href='../module/s_symba_collision.html'>s_symba_collision</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_collision_resolve_fragmentations.html'>symba_collision_resolve_fragmentations</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_collision_resolve_mergers.html'>symba_collision_resolve_mergers</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_collision_resolve_plplenc.html'>symba_collision_resolve_plplenc</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_collision_resolve_pltpenc.html'>symba_collision_resolve_pltpenc</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_discard_cb_pl.html'>symba_discard_cb_pl</a></td><td><a href='../module/s_symba_discard.html'>s_symba_discard</a></td><td>Subroutine</td><td><p>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 
@@ -462,41 +578,31 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/symba_drift_tp.html'>symba_drift_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_encounter_check.html'>symba_encounter_check</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_encounter_check_all.html'>symba_encounter_check_all</a></td><td><a href='../module/s_symba_encounter_check.html'>s_symba_encounter_check</a></td><td>Subroutine</td><td><p>Check for encounters between massive bodies. Split off from the main subroutine for performance</p></td></tr>
+			 
 			   <tr><td><a href='../interface/symba_encounter_check_one.html'>symba_encounter_check_one</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_encounter_check_pl.html'>symba_encounter_check_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_encounter_check_pltpenc.html'>symba_encounter_check_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_encounter_check_tp.html'>symba_encounter_check_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_fragmentation_casedisruption.html'>symba_fragmentation_casedisruption</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_fragmentation_casehitandrun.html'>symba_fragmentation_casehitandrun</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_fragmentation_casemerge.html'>symba_fragmentation_casemerge</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_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='../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_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_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_kick_encounter.html'>symba_kick_encounter</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_int_pl.html'>symba_kick_getacch_int_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_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_encounter.html'>symba_setup_encounter</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>
 			 
@@ -504,8 +610,6 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/symba_setup_pl.html'>symba_setup_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_setup_pltpenc.html'>symba_setup_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_tp.html'>symba_setup_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_step_interp_system.html'>symba_step_interp_system</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
@@ -518,20 +622,28 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/symba_step_system.html'>symba_step_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_util_append_encounter.html'>symba_util_append_encounter</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_util_append_merger.html'>symba_util_append_merger</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_util_append_pl.html'>symba_util_append_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_util_append_tp.html'>symba_util_append_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_util_copy_encounter.html'>symba_util_copy_encounter</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_util_fill_pl.html'>symba_util_fill_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_util_fill_tp.html'>symba_util_fill_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_util_index_eucl_plpl.html'>symba_util_index_eucl_plpl</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_util_peri_pl.html'>symba_util_peri_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_util_rearray_pl.html'>symba_util_rearray_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_util_reset_kinship.html'>symba_util_reset_kinship</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_util_resize_merger.html'>symba_util_resize_merger</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_util_resize_pl.html'>symba_util_resize_pl</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
@@ -546,9 +658,9 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/symba_util_sort_tp.html'>symba_util_sort_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_util_spill_pl.html'>symba_util_spill_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_util_spill_encounter.html'>symba_util_spill_encounter</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_util_spill_pltpenc.html'>symba_util_spill_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_util_spill_pl.html'>symba_util_spill_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_util_spill_tp.html'>symba_util_spill_tp</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
@@ -571,6 +683,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_append_body.html'>util_append_body</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_append_encounter.html'>util_append_encounter</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_append_pl.html'>util_append_pl</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_append_tp.html'>util_append_tp</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
@@ -583,8 +697,24 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_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_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</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_coord_vb2vh_tp.html'>util_coord_vb2vh_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_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</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_coord_vh2vb_tp.html'>util_coord_vh2vb_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_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</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_coord_xh2xb_tp.html'>util_coord_xh2xb_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_copy_encounter.html'>util_copy_encounter</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_copy_particle_info.html'>util_copy_particle_info</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_copy_particle_info_arr.html'>util_copy_particle_info_arr</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_exit.html'>util_exit</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_fill.html'>util_fill</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
@@ -599,6 +729,10 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_get_energy_momentum_system.html'>util_get_energy_momentum_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_index_eucl_plpl.html'>util_index_eucl_plpl</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_index_eucl_pltp.html'>util_index_eucl_pltp</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_minimize_bfgs.html'>util_minimize_bfgs</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_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>
@@ -627,6 +761,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_set_mu_tp.html'>util_set_mu_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_set_particle_info.html'>util_set_particle_info</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_set_rhill.html'>util_set_rhill</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_set_rhill_approximate.html'>util_set_rhill_approximate</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
@@ -641,6 +777,10 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_sort_pl.html'>util_sort_pl</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_sort_rearrange.html'>util_sort_rearrange</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_sort_rearrange~2.html'>util_sort_rearrange</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_sort_rearrange_body.html'>util_sort_rearrange_body</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_sort_rearrange_pl.html'>util_sort_rearrange_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
@@ -665,6 +805,18 @@ <h1>Procedures</h1>
 			 
 			   <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>
 			 
+			   <tr><td><a href='../proc/walltime_finish.html'>walltime_finish</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>Subroutine</td><td><p>Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</p></td></tr>
+			 
+			   <tr><td><a href='../interface/walltime_finish.html'>walltime_finish</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../proc/walltime_reset.html'>walltime_reset</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>Subroutine</td><td><p>Resets the clock ticker, settting main_start to the current ticker value</p></td></tr>
+			 
+			   <tr><td><a href='../interface/walltime_reset.html'>walltime_reset</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>Interface</td><td></td></tr>
+			 
+			   <tr><td><a href='../proc/walltime_start.html'>walltime_start</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>Subroutine</td><td><p>Starts the timer, setting step_start to the current ticker value</p></td></tr>
+			 
+			   <tr><td><a href='../interface/walltime_start.html'>walltime_start</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/whm_coord_h2j_pl.html'>whm_coord_h2j_pl</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/whm_coord_j2h_pl.html'>whm_coord_j2h_pl</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
@@ -709,6 +861,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/whm_util_fill_pl.html'>whm_util_fill_pl</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/whm_util_index_eucl_plpl.html'>whm_util_index_eucl_plpl</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/whm_util_resize_pl.html'>whm_util_resize_pl</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/whm_util_set_ir3j.html'>whm_util_set_ir3j</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
@@ -721,6 +875,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/whm_util_spill_pl.html'>whm_util_spill_pl</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../proc/xv2el.html'>xv2el</a></td><td><a href='../module/orbel.html'>orbel</a></td><td>Subroutine</td><td></td></tr>
+			 
 			 </tbody></table>
              <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
@@ -728,8545 +884,10441 @@ <h1>Procedures</h1>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: call~~graph~~CallGraph Pages: 1 -->
-<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)">
+<svg id="callgraphCallGraph" width="855pt" height="6971pt"
+ viewBox="0.00 0.00 855.00 6970.51" 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.48 0.48) rotate(0) translate(4 14630)">
 <title>call~~graph~~CallGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-11385 2112,-11385 2112,4 -4,4"/>
-<!-- proc~ge_wpp -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-14630 1791,-14630 1791,4 -4,4"/>
+<!-- interface~symba_util_append_pl -->
 <g id="call~~graph~~CallGraph_node1" class="node">
-<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>
-<!-- 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>
+<title>interface~symba_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="634.5,-940 514.5,-940 514.5,-916 634.5,-916 634.5,-940"/>
+<text text-anchor="middle" x="574.5" y="-925.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_append_pl -->
+<g id="call~~graph~~CallGraph_node303" class="node">
+<title>proc~symba_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node303"><a xlink:href=".././proc/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="899.5,-940 779.5,-940 779.5,-916 899.5,-916 899.5,-940"/>
+<text text-anchor="middle" x="839.5" y="-925.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel -->
+<!-- interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl -->
 <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"/>
+<title>interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M634.52,-928C674.4,-928 727.2,-928 769.09,-928"/>
+<polygon fill="#000000" stroke="#000000" points="769.22,-931.5 779.22,-928 769.22,-924.5 769.22,-931.5"/>
 </g>
-<!-- interface~gr_vh2pv_body -->
-<g id="call~~graph~~CallGraph_node3" class="node">
-<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>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="call~~graph~~CallGraph_node2" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="642.5,-1852 506.5,-1852 506.5,-1828 642.5,-1828 642.5,-1852"/>
+<text text-anchor="middle" x="574.5" y="-1837.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="call~~graph~~CallGraph_node155" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_call~~graph~~CallGraph_node155"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="904.5,-1856 774.5,-1856 774.5,-1832 904.5,-1832 904.5,-1856"/>
+<text text-anchor="middle" x="839.5" y="-1841.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="call~~graph~~CallGraph_edge3" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M642.55,-1841.02C679.71,-1841.58 725.99,-1842.29 764.25,-1842.87"/>
+<polygon fill="#000000" stroke="#000000" points="764.24,-1846.37 774.3,-1843.02 764.35,-1839.37 764.24,-1846.37"/>
 </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>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_node158" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_call~~graph~~CallGraph_node158"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="916.5,-1772 762.5,-1772 762.5,-1748 916.5,-1748 916.5,-1772"/>
+<text text-anchor="middle" x="839.5" y="-1757.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge4" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M642.67,-1830.62C658.43,-1826.81 674.77,-1821.47 689,-1814 708.22,-1803.91 705.57,-1790.68 725,-1781 733.59,-1776.72 742.93,-1773.31 752.45,-1770.59"/>
+<polygon fill="#000000" stroke="#000000" points="753.61,-1773.9 762.4,-1767.99 751.84,-1767.13 753.61,-1773.9"/>
 </g>
+<!-- lambda_obj -->
+<g id="call~~graph~~CallGraph_node709" class="node">
+<title>lambda_obj</title>
+<polygon fill="#777777" stroke="#777777" points="873.5,-1898 805.5,-1898 805.5,-1874 873.5,-1874 873.5,-1898"/>
+<text text-anchor="middle" x="839.5" y="-1883.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
 </g>
-<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge3" class="edge">
-<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"/>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj -->
+<g id="call~~graph~~CallGraph_edge5" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M642.55,-1851.73C690.53,-1860.12 753.72,-1871.17 795.2,-1878.43"/>
+<polygon fill="#000000" stroke="#000000" points="794.8,-1881.91 805.25,-1880.18 796,-1875.01 794.8,-1881.91"/>
 </g>
-<!-- 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>
+<!-- util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_node721" class="node">
+<title>util_minimize_bfgs</title>
+<polygon fill="#777777" stroke="#777777" points="889.5,-1814 789.5,-1814 789.5,-1790 889.5,-1790 889.5,-1814"/>
+<text text-anchor="middle" x="839.5" y="-1799.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
 </g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_edge2" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M642.55,-1830.31C684.78,-1824.21 738.79,-1816.41 779.41,-1810.54"/>
+<polygon fill="#000000" stroke="#000000" points="780.03,-1813.98 789.43,-1809.09 779.03,-1807.06 780.03,-1813.98"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_make_planetocentric -->
+<g id="call~~graph~~CallGraph_node3" class="node">
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="1165,-1384 1024,-1384 1024,-1360 1165,-1360 1165,-1384"/>
+<text text-anchor="middle" x="1094.5" y="-1369.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- 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>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>
+<!-- interface~symba_util_append_tp -->
+<g id="call~~graph~~CallGraph_node4" class="node">
+<title>interface~symba_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././interface/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="635,-1062 514,-1062 514,-1038 635,-1038 635,-1062"/>
+<text text-anchor="middle" x="574.5" y="-1047.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_append_tp -->
+<g id="call~~graph~~CallGraph_node314" class="node">
+<title>proc~symba_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node314"><a xlink:href=".././proc/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="900,-1058 779,-1058 779,-1034 900,-1034 900,-1058"/>
+<text text-anchor="middle" x="839.5" y="-1043.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
-<g id="call~~graph~~CallGraph_edge5" class="edge">
-<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"/>
+<!-- interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp -->
+<g id="call~~graph~~CallGraph_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="M635.18,-1049.09C674.8,-1048.49 726.97,-1047.7 768.55,-1047.06"/>
+<polygon fill="#000000" stroke="#000000" points="768.66,-1050.56 778.6,-1046.91 768.55,-1043.56 768.66,-1050.56"/>
 </g>
-<!-- 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>
+<!-- proc~io_dump_base -->
+<g id="call~~graph~~CallGraph_node5" class="node">
+<title>proc~io_dump_base</title>
+<g id="a_call~~graph~~CallGraph_node5"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-3238 285.5,-3238 285.5,-3214 368.5,-3214 368.5,-3238"/>
+<text text-anchor="middle" x="327" y="-3223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
 </a>
 </g>
 </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>
+<!-- interface~util_exit -->
+<g id="call~~graph~~CallGraph_node430" class="node">
+<title>interface~util_exit</title>
+<g id="a_call~~graph~~CallGraph_node430"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="1121.5,-2860 1067.5,-2860 1067.5,-2836 1121.5,-2836 1121.5,-2860"/>
+<text text-anchor="middle" x="1094.5" y="-2845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
-<g id="call~~graph~~CallGraph_edge6" class="edge">
-<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"/>
+<!-- proc~io_dump_base&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge9" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M368.79,-3233.56C492.38,-3255.53 860,-3313.71 954,-3247 1018.74,-3201.05 1073.69,-2947.77 1089.16,-2870.43"/>
+<polygon fill="#000000" stroke="#000000" points="1092.65,-2870.83 1091.15,-2860.34 1085.78,-2869.48 1092.65,-2870.83"/>
 </g>
-<!-- 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>
+<!-- interface~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_node440" class="node">
+<title>interface~io_write_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node440"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="630.5,-3238 518.5,-3238 518.5,-3214 630.5,-3214 630.5,-3238"/>
+<text text-anchor="middle" x="574.5" y="-3223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
 </a>
 </g>
 </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>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_edge8" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M368.54,-3226C406.44,-3226 463.7,-3226 508.08,-3226"/>
+<polygon fill="#000000" stroke="#000000" points="508.19,-3229.5 518.19,-3226 508.19,-3222.5 508.19,-3229.5"/>
+</g>
+<!-- interface~io_write_frame_cb -->
+<g id="call~~graph~~CallGraph_node441" class="node">
+<title>interface~io_write_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node441"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="624.5,-2440 524.5,-2440 524.5,-2416 624.5,-2416 624.5,-2440"/>
+<text text-anchor="middle" x="574.5" y="-2425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_system&#45;&gt;proc~io_dump_system -->
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
 <g id="call~~graph~~CallGraph_edge7" 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,-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"/>
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M328.23,-3213.77C330.22,-3123.73 347.03,-2563.64 460,-2449 474.07,-2434.72 494.49,-2428.39 514.13,-2425.99"/>
+<polygon fill="#000000" stroke="#000000" points="514.65,-2429.45 524.3,-2425.06 514.02,-2422.48 514.65,-2429.45"/>
 </g>
-<!-- interface~io_param_reader -->
-<g id="call~~graph~~CallGraph_node9" class="node">
-<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>
+<!-- proc~netcdf_initialize_output -->
+<g id="call~~graph~~CallGraph_node6" class="node">
+<title>proc~netcdf_initialize_output</title>
+<g id="a_call~~graph~~CallGraph_node6"><a xlink:href=".././proc/netcdf_initialize_output.html" xlink:title="netcdf_initialize_output">
+<polygon fill="#d9534f" stroke="#d9534f" points="900,-2125 779,-2125 779,-2101 900,-2101 900,-2125"/>
+<text text-anchor="middle" x="839.5" y="-2110.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_initialize_output</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- nf90_create -->
+<g id="call~~graph~~CallGraph_node729" class="node">
+<title>nf90_create</title>
+<polygon fill="#777777" stroke="#777777" points="1129.5,-2146 1059.5,-2146 1059.5,-2122 1129.5,-2122 1129.5,-2146"/>
+<text text-anchor="middle" x="1094.5" y="-2131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_create</text>
 </g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_create -->
+<g id="call~~graph~~CallGraph_edge10" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_create</title>
+<path fill="none" stroke="#000000" d="M900.14,-2117.95C945.79,-2121.74 1007.75,-2126.88 1049.11,-2130.32"/>
+<polygon fill="#000000" stroke="#000000" points="1048.9,-2133.81 1059.15,-2131.15 1049.48,-2126.83 1048.9,-2133.81"/>
 </g>
-<!-- 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"/>
+<!-- nf90_def_var -->
+<g id="call~~graph~~CallGraph_node740" class="node">
+<title>nf90_def_var</title>
+<polygon fill="#777777" stroke="#777777" points="1132.5,-2104 1056.5,-2104 1056.5,-2080 1132.5,-2080 1132.5,-2104"/>
+<text text-anchor="middle" x="1094.5" y="-2089.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_def_var</text>
 </g>
-<!-- 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>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_def_var -->
+<g id="call~~graph~~CallGraph_edge13" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_def_var</title>
+<path fill="none" stroke="#000000" d="M900.14,-2108.05C944.71,-2104.35 1004.84,-2099.36 1046.14,-2095.93"/>
+<polygon fill="#000000" stroke="#000000" points="1046.54,-2099.41 1056.22,-2095.09 1045.96,-2092.43 1046.54,-2099.41"/>
 </g>
+<!-- nf90_set_fill -->
+<g id="call~~graph~~CallGraph_node749" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="1129.5,-2062 1059.5,-2062 1059.5,-2038 1129.5,-2038 1129.5,-2062"/>
+<text text-anchor="middle" x="1094.5" y="-2047.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
 </g>
-<!-- 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>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_set_fill -->
+<g id="call~~graph~~CallGraph_edge12" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M880.27,-2100.97C910.27,-2092.1 952.53,-2080.05 990,-2071 1009.4,-2066.31 1031.01,-2061.82 1049.45,-2058.19"/>
+<polygon fill="#000000" stroke="#000000" points="1050.18,-2061.62 1059.33,-2056.28 1048.85,-2054.75 1050.18,-2061.62"/>
 </g>
+<!-- nf90_def_dim -->
+<g id="call~~graph~~CallGraph_node770" class="node">
+<title>nf90_def_dim</title>
+<polygon fill="#777777" stroke="#777777" points="1133.5,-2188 1055.5,-2188 1055.5,-2164 1133.5,-2164 1133.5,-2188"/>
+<text text-anchor="middle" x="1094.5" y="-2173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_def_dim</text>
 </g>
-<!-- interface~io_param_writer&#45;&gt;proc~io_param_writer -->
-<g id="call~~graph~~CallGraph_edge9" 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,-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"/>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_def_dim -->
+<g id="call~~graph~~CallGraph_edge11" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_def_dim</title>
+<path fill="none" stroke="#000000" d="M880.27,-2125.03C910.27,-2133.9 952.53,-2145.95 990,-2155 1007.88,-2159.32 1027.64,-2163.48 1045.06,-2166.94"/>
+<polygon fill="#000000" stroke="#000000" points="1044.53,-2170.4 1055.01,-2168.89 1045.87,-2163.53 1044.53,-2170.4"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node7" class="node">
+<title>interface~symba_util_copy_encounter</title>
+<g id="a_call~~graph~~CallGraph_node7"><a xlink:href=".././interface/symba_util_copy_encounter.html" xlink:title="symba_util_copy_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="170,-3486 24,-3486 24,-3462 170,-3462 170,-3486"/>
+<text text-anchor="middle" x="97" y="-3471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_copy_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node317" class="node">
+<title>proc~symba_util_copy_encounter</title>
+<g id="a_call~~graph~~CallGraph_node317"><a xlink:href=".././proc/symba_util_copy_encounter.html" xlink:title="symba_util_copy_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="400,-3486 254,-3486 254,-3462 400,-3462 400,-3486"/>
+<text text-anchor="middle" x="327" y="-3471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_copy_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_copy_encounter&#45;&gt;proc~symba_util_copy_encounter -->
+<g id="call~~graph~~CallGraph_edge14" class="edge">
+<title>interface~symba_util_copy_encounter&#45;&gt;proc~symba_util_copy_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.14,-3474C193.54,-3474 219.68,-3474 243.76,-3474"/>
+<polygon fill="#000000" stroke="#000000" points="243.94,-3477.5 253.94,-3474 243.94,-3470.5 243.94,-3477.5"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_interp_in -->
+<g id="call~~graph~~CallGraph_node8" class="node">
+<title>proc~rmvs_interp_in</title>
+<g id="a_call~~graph~~CallGraph_node8"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="881,-1226 798,-1226 798,-1202 881,-1202 881,-1226"/>
+<text text-anchor="middle" x="839.5" y="-1211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- util_exit -->
+<g id="call~~graph~~CallGraph_node745" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-1079 1067.5,-1079 1067.5,-1055 1121.5,-1055 1121.5,-1079"/>
+<text text-anchor="middle" x="1094.5" y="-1064.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge15" class="edge">
+<title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M881.13,-1215.57C904.7,-1214.43 933.65,-1209.27 954,-1193 985.72,-1167.64 961,-1137.44 990,-1109 1008.41,-1090.95 1035.61,-1080.32 1057.51,-1074.27"/>
+<polygon fill="#000000" stroke="#000000" points="1058.63,-1077.6 1067.45,-1071.73 1056.9,-1070.81 1058.63,-1077.6"/>
 </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>
+<!-- proc~netcdf_write_particle_info_base -->
+<g id="call~~graph~~CallGraph_node9" class="node">
+<title>proc~netcdf_write_particle_info_base</title>
+<g id="a_call~~graph~~CallGraph_node9"><a xlink:href=".././proc/netcdf_write_particle_info_base.html" xlink:title="netcdf_write_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="921,-2230 758,-2230 758,-2206 921,-2206 921,-2230"/>
+<text text-anchor="middle" x="839.5" y="-2215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_particle_info_base</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_sort -->
+<g id="call~~graph~~CallGraph_node537" class="node">
+<title>interface~util_sort</title>
+<g id="a_call~~graph~~CallGraph_node537"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" points="1121.5,-2272 1067.5,-2272 1067.5,-2248 1121.5,-2248 1121.5,-2272"/>
+<text text-anchor="middle" x="1094.5" y="-2257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
+</a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort -->
+<g id="call~~graph~~CallGraph_edge16" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M913,-2230.04C960.25,-2237.88 1019.87,-2247.78 1057.35,-2254"/>
+<polygon fill="#000000" stroke="#000000" points="1056.87,-2257.47 1067.31,-2255.65 1058.02,-2250.56 1056.87,-2257.47"/>
 </g>
-<!-- interface~io_read_frame_body -->
-<g id="call~~graph~~CallGraph_node14" class="node">
-<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>
+<!-- nf90_put_var -->
+<g id="call~~graph~~CallGraph_node769" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="1132.5,-2230 1056.5,-2230 1056.5,-2206 1132.5,-2206 1132.5,-2230"/>
+<text text-anchor="middle" x="1094.5" y="-2215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
 </g>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;nf90_put_var -->
+<g id="call~~graph~~CallGraph_edge17" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M921.25,-2218C962.27,-2218 1010.71,-2218 1045.75,-2218"/>
+<polygon fill="#000000" stroke="#000000" points="1046.18,-2221.5 1056.18,-2218 1046.18,-2214.5 1046.18,-2221.5"/>
 </g>
-<!-- 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>
+<!-- proc~io_dump_system -->
+<g id="call~~graph~~CallGraph_node10" class="node">
+<title>proc~io_dump_system</title>
+<g id="a_call~~graph~~CallGraph_node10"><a xlink:href=".././proc/io_dump_system.html" xlink:title="io_dump_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-3591 280,-3591 280,-3567 374,-3567 374,-3591"/>
+<text text-anchor="middle" x="327" y="-3576.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_system</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"/>
+<!-- dump_tp_file -->
+<g id="call~~graph~~CallGraph_node704" class="node">
+<title>dump_tp_file</title>
+<polygon fill="#777777" stroke="#777777" points="611.5,-3654 537.5,-3654 537.5,-3630 611.5,-3630 611.5,-3654"/>
+<text text-anchor="middle" x="574.5" y="-3639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
 </g>
-<!-- interface~io_read_frame_cb -->
-<g id="call~~graph~~CallGraph_node15" class="node">
-<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>
+<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
+<g id="call~~graph~~CallGraph_edge21" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
+<path fill="none" stroke="#000000" d="M361.85,-3591.06C388.32,-3600.18 426.17,-3612.52 460,-3621 481.95,-3626.5 506.62,-3631.23 527.34,-3634.81"/>
+<polygon fill="#000000" stroke="#000000" points="527.03,-3638.3 537.47,-3636.52 528.19,-3631.4 527.03,-3638.3"/>
 </g>
+<!-- dump_cb_file -->
+<g id="call~~graph~~CallGraph_node706" class="node">
+<title>dump_cb_file</title>
+<polygon fill="#777777" stroke="#777777" points="612.5,-3612 536.5,-3612 536.5,-3588 612.5,-3588 612.5,-3612"/>
+<text text-anchor="middle" x="574.5" y="-3597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
 </g>
-<!-- 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>
+<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
+<g id="call~~graph~~CallGraph_edge18" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_cb_file</title>
+<path fill="none" stroke="#000000" d="M374.18,-3582.95C417.64,-3586.67 482.43,-3592.21 526.24,-3595.96"/>
+<polygon fill="#000000" stroke="#000000" points="526.09,-3599.46 536.35,-3596.82 526.69,-3592.48 526.09,-3599.46"/>
 </g>
+<!-- dump_param_file -->
+<g id="call~~graph~~CallGraph_node727" class="node">
+<title>dump_param_file</title>
+<polygon fill="#777777" stroke="#777777" points="622.5,-3570 526.5,-3570 526.5,-3546 622.5,-3546 622.5,-3570"/>
+<text text-anchor="middle" x="574.5" y="-3555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
 </g>
-<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
-<g id="call~~graph~~CallGraph_edge14" 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="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"/>
+<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
+<g id="call~~graph~~CallGraph_edge19" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<path fill="none" stroke="#000000" d="M374.18,-3575.05C414.42,-3571.61 472.96,-3566.6 516.19,-3562.9"/>
+<polygon fill="#000000" stroke="#000000" points="516.61,-3566.38 526.28,-3562.04 516.01,-3559.4 516.61,-3566.38"/>
 </g>
-<!-- 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>
+<!-- dump_pl_file -->
+<g id="call~~graph~~CallGraph_node761" class="node">
+<title>dump_pl_file</title>
+<polygon fill="#777777" stroke="#777777" points="611,-3528 538,-3528 538,-3504 611,-3504 611,-3528"/>
+<text text-anchor="middle" x="574.5" y="-3513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
 </g>
+<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
+<g id="call~~graph~~CallGraph_edge20" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
+<path fill="none" stroke="#000000" d="M361.85,-3566.94C388.32,-3557.82 426.17,-3545.48 460,-3537 482.22,-3531.43 507.22,-3526.65 528.09,-3523.06"/>
+<polygon fill="#000000" stroke="#000000" points="528.7,-3526.51 537.98,-3521.4 527.54,-3519.61 528.7,-3526.51"/>
 </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>
+<!-- proc~netcdf_open -->
+<g id="call~~graph~~CallGraph_node11" class="node">
+<title>proc~netcdf_open</title>
+<g id="a_call~~graph~~CallGraph_node11"><a xlink:href=".././proc/netcdf_open.html" xlink:title="netcdf_open">
+<polygon fill="#d9534f" stroke="#d9534f" points="875.5,-2020 803.5,-2020 803.5,-1996 875.5,-1996 875.5,-2020"/>
+<text text-anchor="middle" x="839.5" y="-2005.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_open</text>
 </a>
 </g>
 </g>
-<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
-<g id="call~~graph~~CallGraph_edge15" class="edge">
-<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"/>
+<!-- nf90_inq_varid -->
+<g id="call~~graph~~CallGraph_node715" class="node">
+<title>nf90_inq_varid</title>
+<polygon fill="#777777" stroke="#777777" points="1136,-1978 1053,-1978 1053,-1954 1136,-1954 1136,-1978"/>
+<text text-anchor="middle" x="1094.5" y="-1963.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_inq_varid</text>
 </g>
-<!-- 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>
+<!-- proc~netcdf_open&#45;&gt;nf90_inq_varid -->
+<g id="call~~graph~~CallGraph_edge22" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_inq_varid</title>
+<path fill="none" stroke="#000000" d="M875.68,-2002.16C919.12,-1994.95 993.33,-1982.63 1042.89,-1974.4"/>
+<polygon fill="#000000" stroke="#000000" points="1043.47,-1977.85 1052.76,-1972.76 1042.33,-1970.95 1043.47,-1977.85"/>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_set_fill -->
+<g id="call~~graph~~CallGraph_edge23" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M875.68,-2013.84C921.06,-2021.37 1000.01,-2034.48 1049.37,-2042.67"/>
+<polygon fill="#000000" stroke="#000000" points="1048.99,-2046.16 1059.43,-2044.34 1050.14,-2039.25 1048.99,-2046.16"/>
 </g>
+<!-- nf90_open -->
+<g id="call~~graph~~CallGraph_node754" class="node">
+<title>nf90_open</title>
+<polygon fill="#777777" stroke="#777777" points="1126.5,-2020 1062.5,-2020 1062.5,-1996 1126.5,-1996 1126.5,-2020"/>
+<text text-anchor="middle" x="1094.5" y="-2005.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_open</text>
 </g>
-<!-- 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>
+<!-- proc~netcdf_open&#45;&gt;nf90_open -->
+<g id="call~~graph~~CallGraph_edge24" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_open</title>
+<path fill="none" stroke="#000000" d="M875.68,-2008C921.85,-2008 1002.77,-2008 1051.92,-2008"/>
+<polygon fill="#000000" stroke="#000000" points="1052.2,-2011.5 1062.2,-2008 1052.2,-2004.5 1052.2,-2011.5"/>
+</g>
+<!-- proc~netcdf_write_frame_base -->
+<g id="call~~graph~~CallGraph_node12" class="node">
+<title>proc~netcdf_write_frame_base</title>
+<g id="a_call~~graph~~CallGraph_node12"><a xlink:href=".././proc/netcdf_write_frame_base.html" xlink:title="netcdf_write_frame_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="906,-2272 773,-2272 773,-2248 906,-2248 906,-2272"/>
+<text text-anchor="middle" x="839.5" y="-2257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_base</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_system&#45;&gt;proc~io_read_frame_system -->
-<g id="call~~graph~~CallGraph_edge16" 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,-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"/>
+<!-- proc~netcdf_write_frame_base&#45;&gt;interface~util_sort -->
+<g id="call~~graph~~CallGraph_edge25" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M906.31,-2260C954.46,-2260 1017.98,-2260 1057.26,-2260"/>
+<polygon fill="#000000" stroke="#000000" points="1057.42,-2263.5 1067.42,-2260 1057.42,-2256.5 1057.42,-2263.5"/>
 </g>
-<!-- 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>
+<!-- proc~netcdf_write_frame_base&#45;&gt;nf90_put_var -->
+<g id="call~~graph~~CallGraph_edge26" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M906.31,-2249.07C950.22,-2241.79 1006.91,-2232.37 1046.35,-2225.83"/>
+<polygon fill="#000000" stroke="#000000" points="1046.94,-2229.28 1056.23,-2224.19 1045.8,-2222.37 1046.94,-2229.28"/>
+</g>
+<!-- proc~io_get_args -->
+<g id="call~~graph~~CallGraph_node13" class="node">
+<title>proc~io_get_args</title>
+<g id="a_call~~graph~~CallGraph_node13"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="874,-3402 805,-3402 805,-3378 874,-3378 874,-3402"/>
+<text text-anchor="middle" x="839.5" y="-3387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </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>
+<!-- interface~util_version -->
+<g id="call~~graph~~CallGraph_node364" class="node">
+<title>interface~util_version</title>
+<g id="a_call~~graph~~CallGraph_node364"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
+<polygon fill="#a7506f" stroke="#a7506f" points="1128,-3402 1061,-3402 1061,-3378 1128,-3378 1128,-3402"/>
+<text text-anchor="middle" x="1094.5" y="-3387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter -->
-<g id="call~~graph~~CallGraph_edge17" class="edge">
-<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"/>
+<!-- proc~io_get_args&#45;&gt;interface~util_version -->
+<g id="call~~graph~~CallGraph_edge29" class="edge">
+<title>proc~io_get_args&#45;&gt;interface~util_version</title>
+<path fill="none" stroke="#000000" d="M874.1,-3390C919.65,-3390 1001.02,-3390 1050.84,-3390"/>
+<polygon fill="#000000" stroke="#000000" points="1050.97,-3393.5 1060.97,-3390 1050.97,-3386.5 1050.97,-3393.5"/>
 </g>
-<!-- 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>
+<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge28" class="edge">
+<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M874.21,-3392.95C899.44,-3393.22 933.08,-3389.16 954,-3369 1006.8,-3318.12 971.86,-3279.04 990,-3208 1022.95,-3078.93 1069.44,-2925.92 1086.7,-2869.92"/>
+<polygon fill="#000000" stroke="#000000" points="1090.14,-2870.64 1089.75,-2860.05 1083.45,-2868.57 1090.14,-2870.64"/>
+</g>
+<!-- interface~io_toupper -->
+<g id="call~~graph~~CallGraph_node438" class="node">
+<title>interface~io_toupper</title>
+<g id="a_call~~graph~~CallGraph_node438"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#a7506f" stroke="#a7506f" points="1126.5,-3444 1062.5,-3444 1062.5,-3420 1126.5,-3420 1126.5,-3444"/>
+<text text-anchor="middle" x="1094.5" y="-3429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
+<g id="call~~graph~~CallGraph_edge27" class="edge">
+<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M874.1,-3395.58C920.03,-3403.2 1002.37,-3416.87 1052.07,-3425.12"/>
+<polygon fill="#000000" stroke="#000000" points="1051.72,-3428.61 1062.15,-3426.8 1052.86,-3421.71 1051.72,-3428.61"/>
+</g>
+<!-- proc~symba_io_param_reader -->
+<g id="call~~graph~~CallGraph_node14" class="node">
+<title>proc~symba_io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node14"><a xlink:href=".././proc/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-3759 260.5,-3759 260.5,-3735 393.5,-3735 393.5,-3759"/>
+<text text-anchor="middle" x="327" y="-3744.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- io_toupper -->
+<g id="call~~graph~~CallGraph_node724" class="node">
+<title>io_toupper</title>
+<polygon fill="#777777" stroke="#777777" points="606.5,-3822 542.5,-3822 542.5,-3798 606.5,-3798 606.5,-3822"/>
+<text text-anchor="middle" x="574.5" y="-3807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </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>
+<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+<g id="call~~graph~~CallGraph_edge32" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
+<path fill="none" stroke="#000000" d="M361.85,-3759.06C388.32,-3768.18 426.17,-3780.52 460,-3789 483.83,-3794.97 510.86,-3800.04 532.57,-3803.7"/>
+<polygon fill="#000000" stroke="#000000" points="532.01,-3807.15 542.44,-3805.33 533.15,-3800.25 532.01,-3807.15"/>
 </g>
+<!-- io_param_reader -->
+<g id="call~~graph~~CallGraph_node748" class="node">
+<title>io_param_reader</title>
+<polygon fill="#777777" stroke="#777777" points="622,-3780 527,-3780 527,-3756 622,-3756 622,-3780"/>
+<text text-anchor="middle" x="574.5" y="-3765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </g>
-<!-- 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>
+<!-- proc~symba_io_param_reader&#45;&gt;io_param_reader -->
+<g id="call~~graph~~CallGraph_edge31" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_param_reader</title>
+<path fill="none" stroke="#000000" d="M393.79,-3752.63C432.22,-3755.91 480.22,-3760.02 516.94,-3763.16"/>
+<polygon fill="#000000" stroke="#000000" points="516.72,-3766.66 526.98,-3764.02 517.32,-3759.68 516.72,-3766.66"/>
 </g>
+<!-- fraggle_io_log_start -->
+<g id="call~~graph~~CallGraph_node755" class="node">
+<title>fraggle_io_log_start</title>
+<polygon fill="#777777" stroke="#777777" points="628,-3738 521,-3738 521,-3714 628,-3714 628,-3738"/>
+<text text-anchor="middle" x="574.5" y="-3723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
 </g>
-<!-- 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>
+<!-- proc~symba_io_param_reader&#45;&gt;fraggle_io_log_start -->
+<g id="call~~graph~~CallGraph_edge30" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;fraggle_io_log_start</title>
+<path fill="none" stroke="#000000" d="M393.79,-3741.37C429.99,-3738.28 474.67,-3734.45 510.43,-3731.4"/>
+<polygon fill="#000000" stroke="#000000" points="511.07,-3734.85 520.74,-3730.51 510.48,-3727.88 511.07,-3734.85"/>
 </g>
+<!-- io_get_token -->
+<g id="call~~graph~~CallGraph_node768" class="node">
+<title>io_get_token</title>
+<polygon fill="#777777" stroke="#777777" points="611.5,-3696 537.5,-3696 537.5,-3672 611.5,-3672 611.5,-3696"/>
+<text text-anchor="middle" x="574.5" y="-3681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </g>
-<!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge19" 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,-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"/>
+<!-- proc~symba_io_param_reader&#45;&gt;io_get_token -->
+<g id="call~~graph~~CallGraph_edge33" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_get_token</title>
+<path fill="none" stroke="#000000" d="M361.85,-3734.94C388.32,-3725.82 426.17,-3713.48 460,-3705 481.95,-3699.5 506.62,-3694.77 527.34,-3691.19"/>
+<polygon fill="#000000" stroke="#000000" points="528.19,-3694.6 537.47,-3689.48 527.03,-3687.7 528.19,-3694.6"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_in -->
+<g id="call~~graph~~CallGraph_node15" class="node">
+<title>proc~rmvs_step_in</title>
+<g id="a_call~~graph~~CallGraph_node15"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="877.5,-1394 801.5,-1394 801.5,-1370 877.5,-1370 877.5,-1394"/>
+<text text-anchor="middle" x="839.5" y="-1379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<g id="call~~graph~~CallGraph_edge36" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
+<path fill="none" stroke="#000000" d="M877.56,-1380.54C913.16,-1379.13 968.11,-1376.96 1013.67,-1375.16"/>
+<polygon fill="#000000" stroke="#000000" points="1013.98,-1378.65 1023.83,-1374.75 1013.7,-1371.65 1013.98,-1378.65"/>
+</g>
+<!-- proc~rmvs_peri_tp -->
+<g id="call~~graph~~CallGraph_node34" class="node">
+<title>proc~rmvs_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node34"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1132,-1342 1057,-1342 1057,-1318 1132,-1318 1132,-1342"/>
+<text text-anchor="middle" x="1094.5" y="-1327.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
-<g id="call~~graph~~CallGraph_edge20" class="edge">
-<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"/>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<g id="call~~graph~~CallGraph_edge34" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M877.73,-1375.96C899.97,-1372.14 928.71,-1366.84 954,-1361 970.18,-1357.26 973.85,-1354.88 990,-1351 1008.57,-1346.54 1029.16,-1342.24 1047.05,-1338.7"/>
+<polygon fill="#000000" stroke="#000000" points="1047.82,-1342.11 1056.96,-1336.76 1046.47,-1335.24 1047.82,-1342.11"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_end_planetocentric -->
+<g id="call~~graph~~CallGraph_node74" class="node">
+<title>proc~rmvs_end_planetocentric</title>
+<g id="a_call~~graph~~CallGraph_node74"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="1161,-1426 1028,-1426 1028,-1402 1161,-1402 1161,-1426"/>
+<text text-anchor="middle" x="1094.5" y="-1411.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
+<g id="call~~graph~~CallGraph_edge35" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<path fill="none" stroke="#000000" d="M877.56,-1386.69C914.26,-1391.33 971.52,-1398.57 1017.86,-1404.43"/>
+<polygon fill="#000000" stroke="#000000" points="1017.51,-1407.92 1027.87,-1405.7 1018.39,-1400.97 1017.51,-1407.92"/>
+</g>
+<!-- proc~netcdf_write_hdr_system -->
+<g id="call~~graph~~CallGraph_node16" class="node">
+<title>proc~netcdf_write_hdr_system</title>
+<g id="a_call~~graph~~CallGraph_node16"><a xlink:href=".././proc/netcdf_write_hdr_system.html" xlink:title="netcdf_write_hdr_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="905.5,-2062 773.5,-2062 773.5,-2038 905.5,-2038 905.5,-2062"/>
+<text text-anchor="middle" x="839.5" y="-2047.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_hdr_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
-<g id="call~~graph~~CallGraph_edge21" class="edge">
-<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"/>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_set_fill -->
+<g id="call~~graph~~CallGraph_edge38" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M905.65,-2050C950.68,-2050 1009.38,-2050 1049.09,-2050"/>
+<polygon fill="#000000" stroke="#000000" points="1049.26,-2053.5 1059.26,-2050 1049.26,-2046.5 1049.26,-2053.5"/>
 </g>
-<!-- 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>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_open -->
+<g id="call~~graph~~CallGraph_edge39" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_open</title>
+<path fill="none" stroke="#000000" d="M905.65,-2039.18C951.89,-2031.51 1012.55,-2021.44 1052.25,-2014.85"/>
+<polygon fill="#000000" stroke="#000000" points="1053.07,-2018.26 1062.37,-2013.17 1051.93,-2011.35 1053.07,-2018.26"/>
 </g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_put_var -->
+<g id="call~~graph~~CallGraph_edge37" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M902.46,-2062.09C921.03,-2068.35 940.13,-2077.79 954,-2092 988.46,-2127.3 952.92,-2164.46 990,-2197 1005.37,-2210.49 1027,-2216.21 1046.51,-2218.37"/>
+<polygon fill="#000000" stroke="#000000" points="1046.23,-2221.86 1056.48,-2219.2 1046.8,-2214.89 1046.23,-2221.86"/>
 </g>
-<!-- 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>
+<!-- interface~util_fill -->
+<g id="call~~graph~~CallGraph_node17" class="node">
+<title>interface~util_fill</title>
+<g id="a_call~~graph~~CallGraph_node17"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1121.5,-818 1067.5,-818 1067.5,-794 1121.5,-794 1121.5,-818"/>
+<text text-anchor="middle" x="1094.5" y="-803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- interface~symba_collision_check_encounter -->
+<g id="call~~graph~~CallGraph_node18" class="node">
+<title>interface~symba_collision_check_encounter</title>
+<g id="a_call~~graph~~CallGraph_node18"><a xlink:href=".././interface/symba_collision_check_encounter.html" xlink:title="symba_collision_check_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="1182,-650 1007,-650 1007,-626 1182,-626 1182,-650"/>
+<text text-anchor="middle" x="1094.5" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_check_encounter -->
+<g id="call~~graph~~CallGraph_node305" class="node">
+<title>proc~symba_collision_check_encounter</title>
+<g id="a_call~~graph~~CallGraph_node305"><a xlink:href=".././proc/symba_collision_check_encounter.html" xlink:title="symba_collision_check_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1427,-597 1252,-597 1252,-573 1427,-573 1427,-597"/>
+<text text-anchor="middle" x="1339.5" y="-582.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter -->
+<g id="call~~graph~~CallGraph_edge40" class="edge">
+<title>interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1159.76,-625.96C1172.8,-623.24 1186.38,-620.2 1199,-617 1215.22,-612.89 1218.78,-610.11 1235,-606 1244.46,-603.6 1254.47,-601.29 1264.38,-599.14"/>
+<polygon fill="#000000" stroke="#000000" points="1265.19,-602.54 1274.24,-597.04 1263.73,-595.7 1265.19,-602.54"/>
 </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>
+<!-- interface~symba_encounter_check_pl -->
+<g id="call~~graph~~CallGraph_node19" class="node">
+<title>interface~symba_encounter_check_pl</title>
+<g id="a_call~~graph~~CallGraph_node19"><a xlink:href=".././interface/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="170,-3864 24,-3864 24,-3840 170,-3840 170,-3864"/>
+<text text-anchor="middle" x="97" y="-3849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_encounter_check_pl -->
+<g id="call~~graph~~CallGraph_node242" class="node">
+<title>proc~symba_encounter_check_pl</title>
+<g id="a_call~~graph~~CallGraph_node242"><a xlink:href=".././proc/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="400,-3864 254,-3864 254,-3840 400,-3840 400,-3864"/>
+<text text-anchor="middle" x="327" y="-3849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
-<g id="call~~graph~~CallGraph_edge24" 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="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"/>
+<!-- interface~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_pl -->
+<g id="call~~graph~~CallGraph_edge41" 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,-3852C193.54,-3852 219.68,-3852 243.76,-3852"/>
+<polygon fill="#000000" stroke="#000000" points="243.94,-3855.5 253.94,-3852 243.94,-3848.5 243.94,-3855.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_encounter_check -->
+<g id="call~~graph~~CallGraph_node20" class="node">
+<title>interface~symba_encounter_check</title>
+<g id="a_call~~graph~~CallGraph_node20"><a xlink:href=".././interface/symba_encounter_check.html" xlink:title="symba_encounter_check">
+<polygon fill="#a7506f" stroke="#a7506f" points="163,-3906 31,-3906 31,-3882 163,-3882 163,-3906"/>
+<text text-anchor="middle" x="97" y="-3891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_encounter_check -->
+<g id="call~~graph~~CallGraph_node243" class="node">
+<title>proc~symba_encounter_check</title>
+<g id="a_call~~graph~~CallGraph_node243"><a xlink:href=".././proc/symba_encounter_check.html" xlink:title="symba_encounter_check">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="393,-3906 261,-3906 261,-3882 393,-3882 393,-3906"/>
+<text text-anchor="middle" x="327" y="-3891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- 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>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>
+<!-- interface~symba_encounter_check&#45;&gt;proc~symba_encounter_check -->
+<g id="call~~graph~~CallGraph_edge42" class="edge">
+<title>interface~symba_encounter_check&#45;&gt;proc~symba_encounter_check</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.03,-3894C190.34,-3894 222.29,-3894 250.62,-3894"/>
+<polygon fill="#000000" stroke="#000000" points="250.88,-3897.5 260.88,-3894 250.88,-3890.5 250.88,-3897.5"/>
 </g>
+<!-- interface~symba_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_node21" class="node">
+<title>interface~symba_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node21"><a xlink:href=".././interface/symba_encounter_check_tp.html" xlink:title="symba_encounter_check_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-3948 23.5,-3948 23.5,-3924 170.5,-3924 170.5,-3948"/>
+<text text-anchor="middle" x="97" y="-3933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_tp</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- proc~symba_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_node259" class="node">
+<title>proc~symba_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node259"><a xlink:href=".././proc/symba_encounter_check_tp.html" xlink:title="symba_encounter_check_tp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="400.5,-3948 253.5,-3948 253.5,-3924 400.5,-3924 400.5,-3948"/>
+<text text-anchor="middle" x="327" y="-3933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_version&#45;&gt;proc~util_version -->
-<g id="call~~graph~~CallGraph_edge26" class="edge">
-<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"/>
+<!-- interface~symba_encounter_check_tp&#45;&gt;proc~symba_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_edge43" 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,-3936C193.8,-3936 219.43,-3936 243.12,-3936"/>
+<polygon fill="#000000" stroke="#000000" points="243.14,-3939.5 253.14,-3936 243.14,-3932.5 243.14,-3939.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_casedisruption -->
+<g id="call~~graph~~CallGraph_node22" class="node">
+<title>interface~symba_collision_casedisruption</title>
+<g id="a_call~~graph~~CallGraph_node22"><a xlink:href=".././interface/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="1176,-398 1013,-398 1013,-374 1176,-374 1176,-398"/>
+<text text-anchor="middle" x="1094.5" y="-383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_casedisruption -->
+<g id="call~~graph~~CallGraph_node354" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<g id="a_call~~graph~~CallGraph_node354"><a xlink:href=".././proc/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1421,-398 1258,-398 1258,-374 1421,-374 1421,-398"/>
+<text text-anchor="middle" x="1339.5" y="-383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="call~~graph~~CallGraph_edge44" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1176.08,-386C1198.94,-386 1224,-386 1247.44,-386"/>
+<polygon fill="#000000" stroke="#000000" points="1247.73,-389.5 1257.73,-386 1247.73,-382.5 1247.73,-389.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>
+<!-- interface~symba_collision_casehitandrun -->
+<g id="call~~graph~~CallGraph_node23" class="node">
+<title>interface~symba_collision_casehitandrun</title>
+<g id="a_call~~graph~~CallGraph_node23"><a xlink:href=".././interface/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="1175,-356 1014,-356 1014,-332 1175,-332 1175,-356"/>
+<text text-anchor="middle" x="1094.5" y="-341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_casehitandrun -->
+<g id="call~~graph~~CallGraph_node371" class="node">
+<title>proc~symba_collision_casehitandrun</title>
+<g id="a_call~~graph~~CallGraph_node371"><a xlink:href=".././proc/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1420,-356 1259,-356 1259,-332 1420,-332 1420,-356"/>
+<text text-anchor="middle" x="1339.5" y="-341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl -->
-<g id="call~~graph~~CallGraph_edge28" 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,-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"/>
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
+<g id="call~~graph~~CallGraph_edge45" class="edge">
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1175.07,-344C1198.56,-344 1224.44,-344 1248.55,-344"/>
+<polygon fill="#000000" stroke="#000000" points="1248.75,-347.5 1258.75,-344 1248.75,-340.5 1248.75,-347.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_casemerge -->
+<g id="call~~graph~~CallGraph_node24" class="node">
+<title>interface~symba_collision_casemerge</title>
+<g id="a_call~~graph~~CallGraph_node24"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="1168,-314 1021,-314 1021,-290 1168,-290 1168,-314"/>
+<text text-anchor="middle" x="1094.5" y="-299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~kick_getacch_int_tp -->
-<g id="call~~graph~~CallGraph_node208" class="node">
-<title>proc~kick_getacch_int_tp</title>
-<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>
+<!-- proc~symba_collision_casemerge -->
+<g id="call~~graph~~CallGraph_node372" class="node">
+<title>proc~symba_collision_casemerge</title>
+<g id="a_call~~graph~~CallGraph_node372"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1413,-314 1266,-314 1266,-290 1413,-290 1413,-314"/>
+<text text-anchor="middle" x="1339.5" y="-299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- interface~kick_getacch_int_tp&#45;&gt;proc~kick_getacch_int_tp -->
-<g id="call~~graph~~CallGraph_edge29" 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,-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"/>
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
+<g id="call~~graph~~CallGraph_edge46" class="edge">
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1168.08,-302C1195.61,-302 1227.15,-302 1255.56,-302"/>
+<polygon fill="#000000" stroke="#000000" points="1255.88,-305.5 1265.88,-302 1255.88,-298.5 1255.88,-305.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_encounter_extract_collisions -->
+<g id="call~~graph~~CallGraph_node25" class="node">
+<title>interface~symba_collision_encounter_extract_collisions</title>
+<g id="a_call~~graph~~CallGraph_node25"><a xlink:href=".././interface/symba_collision_encounter_extract_collisions.html" xlink:title="symba_collision_encounter_extract_collisions">
+<polygon fill="#a7506f" stroke="#a7506f" points="689,-200 460,-200 460,-176 689,-176 689,-200"/>
+<text text-anchor="middle" x="574.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_extract_collisions</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_encounter_extract_collisions -->
+<g id="call~~graph~~CallGraph_node340" class="node">
+<title>proc~symba_collision_encounter_extract_collisions</title>
+<g id="a_call~~graph~~CallGraph_node340"><a xlink:href=".././proc/symba_collision_encounter_extract_collisions.html" xlink:title="symba_collision_encounter_extract_collisions">
+<polygon fill="#d9534f" stroke="#d9534f" points="954,-200 725,-200 725,-176 954,-176 954,-200"/>
+<text text-anchor="middle" x="839.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_extract_collisions</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_body&#45;&gt;proc~obl_acc_body -->
-<g id="call~~graph~~CallGraph_edge30" class="edge">
-<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"/>
+<!-- interface~symba_collision_encounter_extract_collisions&#45;&gt;proc~symba_collision_encounter_extract_collisions -->
+<g id="call~~graph~~CallGraph_edge47" class="edge">
+<title>interface~symba_collision_encounter_extract_collisions&#45;&gt;proc~symba_collision_encounter_extract_collisions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.33,-188C697.72,-188 706.2,-188 714.65,-188"/>
+<polygon fill="#000000" stroke="#000000" points="714.92,-191.5 724.92,-188 714.92,-184.5 714.92,-191.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_make_colliders_pl -->
+<g id="call~~graph~~CallGraph_node26" class="node">
+<title>interface~symba_collision_make_colliders_pl</title>
+<g id="a_call~~graph~~CallGraph_node26"><a xlink:href=".././interface/symba_collision_make_colliders_pl.html" xlink:title="symba_collision_make_colliders_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="186.5,-3990 7.5,-3990 7.5,-3966 186.5,-3966 186.5,-3990"/>
+<text text-anchor="middle" x="97" y="-3975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_colliders_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_make_colliders_pl -->
+<g id="call~~graph~~CallGraph_node508" class="node">
+<title>proc~symba_collision_make_colliders_pl</title>
+<g id="a_call~~graph~~CallGraph_node508"><a xlink:href=".././proc/symba_collision_make_colliders_pl.html" xlink:title="symba_collision_make_colliders_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="416.5,-3990 237.5,-3990 237.5,-3966 416.5,-3966 416.5,-3990"/>
+<text text-anchor="middle" x="327" y="-3975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_colliders_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
-<g id="call~~graph~~CallGraph_edge31" 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,-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"/>
+<!-- interface~symba_collision_make_colliders_pl&#45;&gt;proc~symba_collision_make_colliders_pl -->
+<g id="call~~graph~~CallGraph_edge48" class="edge">
+<title>interface~symba_collision_make_colliders_pl&#45;&gt;proc~symba_collision_make_colliders_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M186.8,-3978C200.06,-3978 213.79,-3978 227.23,-3978"/>
+<polygon fill="#000000" stroke="#000000" points="227.44,-3981.5 237.44,-3978 227.44,-3974.5 227.44,-3981.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_node27" class="node">
+<title>interface~util_sort_rearrange</title>
+<g id="a_call~~graph~~CallGraph_node27"><a xlink:href=".././interface/util_sort_rearrange.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="626,-4132 523,-4132 523,-4108 626,-4108 626,-4132"/>
+<text text-anchor="middle" x="574.5" y="-4117.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="call~~graph~~CallGraph_node28" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_call~~graph~~CallGraph_node28"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="677,-314 472,-314 472,-290 677,-290 677,-314"/>
+<text text-anchor="middle" x="574.5" y="-299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
-<g id="call~~graph~~CallGraph_edge32" 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,-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~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>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="call~~graph~~CallGraph_node519" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_call~~graph~~CallGraph_node519"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="942,-314 737,-314 737,-290 942,-290 942,-314"/>
+<text text-anchor="middle" x="839.5" y="-299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
+<g id="call~~graph~~CallGraph_edge49" 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="M677.18,-302C693.34,-302 710.14,-302 726.52,-302"/>
+<polygon fill="#000000" stroke="#000000" points="726.65,-305.5 736.65,-302 726.65,-298.5 726.65,-305.5"/>
 </g>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="call~~graph~~CallGraph_node29" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_call~~graph~~CallGraph_node29"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="661.5,-252 487.5,-252 487.5,-228 661.5,-228 661.5,-252"/>
+<text text-anchor="middle" x="574.5" y="-237.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+</a>
 </g>
-<!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
-<g id="call~~graph~~CallGraph_edge33" class="edge">
-<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~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>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="call~~graph~~CallGraph_node591" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_call~~graph~~CallGraph_node591"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="926.5,-252 752.5,-252 752.5,-228 926.5,-228 926.5,-252"/>
+<text text-anchor="middle" x="839.5" y="-237.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers -->
+<g id="call~~graph~~CallGraph_edge50" 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="M661.62,-240C687.39,-240 715.81,-240 742.19,-240"/>
+<polygon fill="#000000" stroke="#000000" points="742.19,-243.5 752.19,-240 742.19,-236.5 742.19,-243.5"/>
 </g>
+<!-- interface~symba_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node30" class="node">
+<title>interface~symba_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node30"><a xlink:href=".././interface/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="621.5,-860 527.5,-860 527.5,-836 621.5,-836 621.5,-860"/>
+<text text-anchor="middle" x="574.5" y="-845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
+</a>
 </g>
-<!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
-<g id="call~~graph~~CallGraph_edge34" 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,-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>
-<!-- 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>
+<!-- proc~symba_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node332" class="node">
+<title>proc~symba_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node332"><a xlink:href=".././proc/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="886.5,-860 792.5,-860 792.5,-836 886.5,-836 886.5,-860"/>
+<text text-anchor="middle" x="839.5" y="-845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge51" 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="M621.61,-848C666.35,-848 734.33,-848 782.24,-848"/>
+<polygon fill="#000000" stroke="#000000" points="782.44,-851.5 792.44,-848 782.44,-844.5 782.44,-851.5"/>
+</g>
+<!-- proc~io_get_old_t_final_system -->
+<g id="call~~graph~~CallGraph_node31" class="node">
+<title>proc~io_get_old_t_final_system</title>
+<g id="a_call~~graph~~CallGraph_node31"><a xlink:href=".././proc/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="907.5,-3196 771.5,-3196 771.5,-3172 907.5,-3172 907.5,-3196"/>
+<text text-anchor="middle" x="839.5" y="-3181.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
-<g id="call~~graph~~CallGraph_edge35" class="edge">
-<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"/>
+<!-- proc~io_get_old_t_final_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge52" class="edge">
+<title>proc~io_get_old_t_final_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M907.76,-3182.37C924.23,-3179.21 940.87,-3173.37 954,-3163 1051.01,-3086.39 1082.31,-2928.16 1090.76,-2870.04"/>
+<polygon fill="#000000" stroke="#000000" points="1094.24,-2870.48 1092.13,-2860.1 1087.3,-2869.53 1094.24,-2870.48"/>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_resolve_plplenc -->
+<g id="call~~graph~~CallGraph_node32" class="node">
+<title>interface~symba_collision_resolve_plplenc</title>
+<g id="a_call~~graph~~CallGraph_node32"><a xlink:href=".././interface/symba_collision_resolve_plplenc.html" xlink:title="symba_collision_resolve_plplenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="1178.5,-524 1010.5,-524 1010.5,-500 1178.5,-500 1178.5,-524"/>
+<text text-anchor="middle" x="1094.5" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_plplenc</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_resolve_plplenc -->
+<g id="call~~graph~~CallGraph_node567" class="node">
+<title>proc~symba_collision_resolve_plplenc</title>
+<g id="a_call~~graph~~CallGraph_node567"><a xlink:href=".././proc/symba_collision_resolve_plplenc.html" xlink:title="symba_collision_resolve_plplenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="1423.5,-503 1255.5,-503 1255.5,-479 1423.5,-479 1423.5,-503"/>
+<text text-anchor="middle" x="1339.5" y="-488.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_plplenc</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_edge36" class="edge">
-<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"/>
+<!-- interface~symba_collision_resolve_plplenc&#45;&gt;proc~symba_collision_resolve_plplenc -->
+<g id="call~~graph~~CallGraph_edge53" class="edge">
+<title>interface~symba_collision_resolve_plplenc&#45;&gt;proc~symba_collision_resolve_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1178.79,-504.8C1200.23,-502.95 1223.45,-500.94 1245.36,-499.05"/>
+<polygon fill="#000000" stroke="#000000" points="1245.66,-502.54 1255.32,-498.19 1245.06,-495.56 1245.66,-502.54"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_fill_tp -->
+<g id="call~~graph~~CallGraph_node33" class="node">
+<title>interface~symba_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node33"><a xlink:href=".././interface/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="621.5,-776 527.5,-776 527.5,-752 621.5,-752 621.5,-776"/>
+<text text-anchor="middle" x="574.5" y="-761.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_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>
+<!-- proc~symba_util_fill_tp -->
+<g id="call~~graph~~CallGraph_node329" class="node">
+<title>proc~symba_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node329"><a xlink:href=".././proc/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="886.5,-776 792.5,-776 792.5,-752 886.5,-752 886.5,-776"/>
+<text text-anchor="middle" x="839.5" y="-761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt -->
-<g id="call~~graph~~CallGraph_edge37" class="edge">
-<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~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>
+<!-- interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge54" 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="M621.61,-764C666.35,-764 734.33,-764 782.24,-764"/>
+<polygon fill="#000000" stroke="#000000" points="782.44,-767.5 792.44,-764 782.44,-760.5 782.44,-767.5"/>
 </g>
+<!-- xpc -->
+<g id="call~~graph~~CallGraph_node733" class="node">
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="1366.5,-1363 1312.5,-1363 1312.5,-1339 1366.5,-1339 1366.5,-1363"/>
+<text text-anchor="middle" x="1339.5" y="-1348.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<g id="call~~graph~~CallGraph_edge55" class="edge">
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M1132.14,-1333.17C1178.15,-1337.14 1256.57,-1343.92 1302.34,-1347.88"/>
+<polygon fill="#000000" stroke="#000000" points="1302.15,-1351.37 1312.41,-1348.75 1302.75,-1344.4 1302.15,-1351.37"/>
 </g>
+<!-- vpc -->
+<g id="call~~graph~~CallGraph_node743" class="node">
+<title>vpc</title>
+<polygon fill="#777777" stroke="#777777" points="1366.5,-1321 1312.5,-1321 1312.5,-1297 1366.5,-1297 1366.5,-1321"/>
+<text text-anchor="middle" x="1339.5" y="-1306.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="call~~graph~~CallGraph_edge38" class="edge">
-<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"/>
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<g id="call~~graph~~CallGraph_edge56" class="edge">
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M1132.14,-1326.83C1178.15,-1322.86 1256.57,-1316.08 1302.34,-1312.12"/>
+<polygon fill="#000000" stroke="#000000" points="1302.75,-1315.6 1312.41,-1311.25 1302.15,-1308.63 1302.75,-1315.6"/>
 </g>
-<!-- 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>
+<!-- interface~symba_collision_resolve_pltpenc -->
+<g id="call~~graph~~CallGraph_node35" class="node">
+<title>interface~symba_collision_resolve_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node35"><a xlink:href=".././interface/symba_collision_resolve_pltpenc.html" xlink:title="symba_collision_resolve_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="181.5,-4242 12.5,-4242 12.5,-4218 181.5,-4218 181.5,-4242"/>
+<text text-anchor="middle" x="97" y="-4227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_resolve_pltpenc -->
+<g id="call~~graph~~CallGraph_node272" class="node">
+<title>proc~symba_collision_resolve_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node272"><a xlink:href=".././proc/symba_collision_resolve_pltpenc.html" xlink:title="symba_collision_resolve_pltpenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="411.5,-4242 242.5,-4242 242.5,-4218 411.5,-4218 411.5,-4242"/>
+<text text-anchor="middle" x="327" y="-4227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec -->
-<g id="call~~graph~~CallGraph_edge39" 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,-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"/>
+<!-- interface~symba_collision_resolve_pltpenc&#45;&gt;proc~symba_collision_resolve_pltpenc -->
+<g id="call~~graph~~CallGraph_edge57" class="edge">
+<title>interface~symba_collision_resolve_pltpenc&#45;&gt;proc~symba_collision_resolve_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.6,-4230C198.02,-4230 215.35,-4230 232.08,-4230"/>
+<polygon fill="#000000" stroke="#000000" points="232.41,-4233.5 242.41,-4230 232.41,-4226.5 232.41,-4233.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_peri_pl -->
+<g id="call~~graph~~CallGraph_node36" class="node">
+<title>interface~symba_util_peri_pl</title>
+<g id="a_call~~graph~~CallGraph_node36"><a xlink:href=".././interface/symba_util_peri_pl.html" xlink:title="symba_util_peri_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1390.5,-639 1288.5,-639 1288.5,-615 1390.5,-615 1390.5,-639"/>
+<text text-anchor="middle" x="1339.5" y="-624.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_peri_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_peri_pl -->
+<g id="call~~graph~~CallGraph_node338" class="node">
+<title>proc~symba_util_peri_pl</title>
+<g id="a_call~~graph~~CallGraph_node338"><a xlink:href=".././proc/symba_util_peri_pl.html" xlink:title="symba_util_peri_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1619.5,-639 1517.5,-639 1517.5,-615 1619.5,-615 1619.5,-639"/>
+<text text-anchor="middle" x="1568.5" y="-624.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_peri_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_peri_pl&#45;&gt;proc~symba_util_peri_pl -->
+<g id="call~~graph~~CallGraph_edge58" 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="M1390.6,-627C1424.82,-627 1470.37,-627 1506.68,-627"/>
+<polygon fill="#000000" stroke="#000000" points="1507.14,-630.5 1517.14,-627 1507.14,-623.5 1507.14,-630.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>
+<!-- interface~symba_discard_pl -->
+<g id="call~~graph~~CallGraph_node37" class="node">
+<title>interface~symba_discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node37"><a xlink:href=".././interface/symba_discard_pl.html" xlink:title="symba_discard_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="624,-461 525,-461 525,-437 624,-437 624,-461"/>
+<text text-anchor="middle" x="574.5" y="-446.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_discard_pl -->
+<g id="call~~graph~~CallGraph_node222" class="node">
+<title>proc~symba_discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node222"><a xlink:href=".././proc/symba_discard_pl.html" xlink:title="symba_discard_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="889,-461 790,-461 790,-437 889,-437 889,-461"/>
+<text text-anchor="middle" x="839.5" y="-446.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_body&#45;&gt;proc~setup_body -->
-<g id="call~~graph~~CallGraph_edge41" class="edge">
-<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"/>
+<!-- interface~symba_discard_pl&#45;&gt;proc~symba_discard_pl -->
+<g id="call~~graph~~CallGraph_edge59" class="edge">
+<title>interface~symba_discard_pl&#45;&gt;proc~symba_discard_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M624.04,-449C668.02,-449 732.9,-449 779.78,-449"/>
+<polygon fill="#000000" stroke="#000000" points="779.79,-452.5 789.79,-449 779.79,-445.5 779.79,-452.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_rearray_pl -->
+<g id="call~~graph~~CallGraph_node38" class="node">
+<title>interface~symba_util_rearray_pl</title>
+<g id="a_call~~graph~~CallGraph_node38"><a xlink:href=".././interface/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-4284 38,-4284 38,-4260 156,-4260 156,-4284"/>
+<text text-anchor="middle" x="97" y="-4269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_rearray_pl -->
+<g id="call~~graph~~CallGraph_node341" class="node">
+<title>proc~symba_util_rearray_pl</title>
+<g id="a_call~~graph~~CallGraph_node341"><a xlink:href=".././proc/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-4284 268,-4284 268,-4260 386,-4260 386,-4284"/>
+<text text-anchor="middle" x="327" y="-4269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl -->
+<g id="call~~graph~~CallGraph_edge60" 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,-4272C187.08,-4272 225.33,-4272 257.7,-4272"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-4275.5 267.98,-4272 257.98,-4268.5 257.98,-4275.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>
+<!-- interface~symba_util_reset_kinship -->
+<g id="call~~graph~~CallGraph_node39" class="node">
+<title>interface~symba_util_reset_kinship</title>
+<g id="a_call~~graph~~CallGraph_node39"><a xlink:href=".././interface/symba_util_reset_kinship.html" xlink:title="symba_util_reset_kinship">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-4326 30.5,-4326 30.5,-4302 163.5,-4302 163.5,-4326"/>
+<text text-anchor="middle" x="97" y="-4311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_reset_kinship</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_reset_kinship -->
+<g id="call~~graph~~CallGraph_node347" class="node">
+<title>proc~symba_util_reset_kinship</title>
+<g id="a_call~~graph~~CallGraph_node347"><a xlink:href=".././proc/symba_util_reset_kinship.html" xlink:title="symba_util_reset_kinship">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-4326 260.5,-4326 260.5,-4302 393.5,-4302 393.5,-4326"/>
+<text text-anchor="middle" x="327" y="-4311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_reset_kinship</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
-<g id="call~~graph~~CallGraph_edge43" class="edge">
-<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"/>
+<!-- interface~symba_util_reset_kinship&#45;&gt;proc~symba_util_reset_kinship -->
+<g id="call~~graph~~CallGraph_edge61" class="edge">
+<title>interface~symba_util_reset_kinship&#45;&gt;proc~symba_util_reset_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-4314C190.71,-4314 222.24,-4314 250.27,-4314"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-4317.5 260.43,-4314 250.43,-4310.5 250.43,-4317.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_drift_pl -->
+<g id="call~~graph~~CallGraph_node40" class="node">
+<title>interface~symba_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node40"><a xlink:href=".././interface/symba_drift_pl.html" xlink:title="symba_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-4410 56,-4410 56,-4386 138,-4386 138,-4410"/>
+<text text-anchor="middle" x="97" y="-4395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_drift_pl -->
+<g id="call~~graph~~CallGraph_node660" class="node">
+<title>proc~symba_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node660"><a xlink:href=".././proc/symba_drift_pl.html" xlink:title="symba_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-4410 286,-4410 286,-4386 368,-4386 368,-4410"/>
+<text text-anchor="middle" x="327" y="-4395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_pl</text>
 </a>
 </g>
 </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"/>
+<!-- interface~symba_drift_pl&#45;&gt;proc~symba_drift_pl -->
+<g id="call~~graph~~CallGraph_edge62" 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,-4398C176.54,-4398 234.31,-4398 275.65,-4398"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-4401.5 285.78,-4398 275.78,-4394.5 275.78,-4401.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>
+<!-- interface~symba_drift_tp -->
+<g id="call~~graph~~CallGraph_node41" class="node">
+<title>interface~symba_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node41"><a xlink:href=".././interface/symba_drift_tp.html" xlink:title="symba_drift_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-4368 55.5,-4368 55.5,-4344 138.5,-4344 138.5,-4368"/>
+<text text-anchor="middle" x="97" y="-4353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_drift_tp -->
+<g id="call~~graph~~CallGraph_node667" class="node">
+<title>proc~symba_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node667"><a xlink:href=".././proc/symba_drift_tp.html" xlink:title="symba_drift_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-4368 285.5,-4368 285.5,-4344 368.5,-4344 368.5,-4368"/>
+<text text-anchor="middle" x="327" y="-4353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0 -->
-<g id="call~~graph~~CallGraph_edge45" 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,-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"/>
+<!-- interface~symba_drift_tp&#45;&gt;proc~symba_drift_tp -->
+<g id="call~~graph~~CallGraph_edge63" 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,-4356C176.9,-4356 234.01,-4356 275.12,-4356"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-4359.5 285.21,-4356 275.21,-4352.5 275.21,-4359.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_encounter_check_one -->
+<g id="call~~graph~~CallGraph_node42" class="node">
+<title>interface~symba_encounter_check_one</title>
+<g id="a_call~~graph~~CallGraph_node42"><a xlink:href=".././interface/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
+<polygon fill="#a7506f" stroke="#a7506f" points="175,-4494 19,-4494 19,-4470 175,-4470 175,-4494"/>
+<text text-anchor="middle" x="97" y="-4479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_encounter_check_one -->
+<g id="call~~graph~~CallGraph_node266" class="node">
+<title>proc~symba_encounter_check_one</title>
+<g id="a_call~~graph~~CallGraph_node266"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
+<polygon fill="#d9534f" stroke="#d9534f" points="405,-4494 249,-4494 249,-4470 405,-4470 405,-4494"/>
+<text text-anchor="middle" x="327" y="-4479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one -->
+<g id="call~~graph~~CallGraph_edge64" 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,-4482C195.62,-4482 217.81,-4482 238.73,-4482"/>
+<polygon fill="#000000" stroke="#000000" points="238.89,-4485.5 248.89,-4482 238.89,-4478.5 238.89,-4485.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_index_eucl_plpl -->
+<g id="call~~graph~~CallGraph_node43" class="node">
+<title>interface~symba_util_index_eucl_plpl</title>
+<g id="a_call~~graph~~CallGraph_node43"><a xlink:href=".././interface/symba_util_index_eucl_plpl.html" xlink:title="symba_util_index_eucl_plpl">
+<polygon fill="#a7506f" stroke="#a7506f" points="168.5,-4536 25.5,-4536 25.5,-4512 168.5,-4512 168.5,-4536"/>
+<text text-anchor="middle" x="97" y="-4521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_index_eucl_plpl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_index_eucl_plpl -->
+<g id="call~~graph~~CallGraph_node335" class="node">
+<title>proc~symba_util_index_eucl_plpl</title>
+<g id="a_call~~graph~~CallGraph_node335"><a xlink:href=".././proc/symba_util_index_eucl_plpl.html" xlink:title="symba_util_index_eucl_plpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="398.5,-4536 255.5,-4536 255.5,-4512 398.5,-4512 398.5,-4536"/>
+<text text-anchor="middle" x="327" y="-4521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_index_eucl_plpl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_util_index_eucl_plpl&#45;&gt;proc~symba_util_index_eucl_plpl -->
+<g id="call~~graph~~CallGraph_edge65" class="edge">
+<title>interface~symba_util_index_eucl_plpl&#45;&gt;proc~symba_util_index_eucl_plpl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.58,-4524C192.83,-4524 220.17,-4524 245.17,-4524"/>
+<polygon fill="#000000" stroke="#000000" points="245.36,-4527.5 255.36,-4524 245.36,-4520.5 245.36,-4527.5"/>
+</g>
+<!-- interface~symba_io_param_reader -->
+<g id="call~~graph~~CallGraph_node44" class="node">
+<title>interface~symba_io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node44"><a xlink:href=".././interface/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-3759 30.5,-3759 30.5,-3735 163.5,-3735 163.5,-3759"/>
+<text text-anchor="middle" x="97" y="-3744.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_encounter&#45;&gt;proc~setup_encounter -->
-<g id="call~~graph~~CallGraph_edge48" class="edge">
-<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"/>
+<!-- interface~symba_io_param_reader&#45;&gt;proc~symba_io_param_reader -->
+<g id="call~~graph~~CallGraph_edge66" 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,-3747C190.71,-3747 222.24,-3747 250.27,-3747"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-3750.5 260.43,-3747 250.43,-3743.5 250.43,-3750.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_io_param_writer -->
+<g id="call~~graph~~CallGraph_node45" class="node">
+<title>interface~symba_io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node45"><a xlink:href=".././interface/symba_io_param_writer.html" xlink:title="symba_io_param_writer">
+<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-4578 33.5,-4578 33.5,-4554 160.5,-4554 160.5,-4578"/>
+<text text-anchor="middle" x="97" y="-4563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_io_param_writer -->
+<g id="call~~graph~~CallGraph_node669" class="node">
+<title>proc~symba_io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node669"><a xlink:href=".././proc/symba_io_param_writer.html" xlink:title="symba_io_param_writer">
+<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-4578 263.5,-4578 263.5,-4554 390.5,-4554 390.5,-4578"/>
+<text text-anchor="middle" x="327" y="-4563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_writer</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~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"/>
+<!-- interface~symba_io_param_writer&#45;&gt;proc~symba_io_param_writer -->
+<g id="call~~graph~~CallGraph_edge67" 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,-4566C189.14,-4566 223.11,-4566 252.83,-4566"/>
+<polygon fill="#000000" stroke="#000000" points="253.14,-4569.5 263.14,-4566 253.14,-4562.5 253.14,-4569.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_io_write_discard -->
+<g id="call~~graph~~CallGraph_node46" class="node">
+<title>interface~symba_io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node46"><a xlink:href=".././interface/symba_io_write_discard.html" xlink:title="symba_io_write_discard">
+<polygon fill="#a7506f" stroke="#a7506f" points="638,-1146 511,-1146 511,-1122 638,-1122 638,-1146"/>
+<text text-anchor="middle" x="574.5" y="-1131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_io_write_discard -->
+<g id="call~~graph~~CallGraph_node678" class="node">
+<title>proc~symba_io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node678"><a xlink:href=".././proc/symba_io_write_discard.html" xlink:title="symba_io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="903,-1142 776,-1142 776,-1118 903,-1118 903,-1142"/>
+<text text-anchor="middle" x="839.5" y="-1127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge50" 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,-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"/>
+<!-- interface~symba_io_write_discard&#45;&gt;proc~symba_io_write_discard -->
+<g id="call~~graph~~CallGraph_edge68" 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="M638.16,-1133.05C676.46,-1132.46 725.6,-1131.72 765.63,-1131.11"/>
+<polygon fill="#000000" stroke="#000000" points="765.92,-1134.6 775.86,-1130.95 765.81,-1127.61 765.92,-1134.6"/>
 </g>
-<!-- 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>
+<!-- interface~symba_kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_node47" class="node">
+<title>interface~symba_kick_getacch_int_pl</title>
+<g id="a_call~~graph~~CallGraph_node47"><a xlink:href=".././interface/symba_kick_getacch_int_pl.html" xlink:title="symba_kick_getacch_int_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="168.5,-4662 25.5,-4662 25.5,-4638 168.5,-4638 168.5,-4662"/>
+<text text-anchor="middle" x="97" y="-4647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_int_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_node289" class="node">
+<title>proc~symba_kick_getacch_int_pl</title>
+<g id="a_call~~graph~~CallGraph_node289"><a xlink:href=".././proc/symba_kick_getacch_int_pl.html" xlink:title="symba_kick_getacch_int_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="398.5,-4662 255.5,-4662 255.5,-4638 398.5,-4638 398.5,-4662"/>
+<text text-anchor="middle" x="327" y="-4647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_int_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_coord_h2b_pl&#45;&gt;proc~util_coord_h2b_pl -->
-<g id="call~~graph~~CallGraph_edge51" 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,-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"/>
+<!-- interface~symba_kick_getacch_int_pl&#45;&gt;proc~symba_kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_edge69" class="edge">
+<title>interface~symba_kick_getacch_int_pl&#45;&gt;proc~symba_kick_getacch_int_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.58,-4650C192.83,-4650 220.17,-4650 245.17,-4650"/>
+<polygon fill="#000000" stroke="#000000" points="245.36,-4653.5 255.36,-4650 245.36,-4646.5 245.36,-4653.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node48" class="node">
+<title>interface~symba_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node48"><a xlink:href=".././interface/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-4620 34,-4620 34,-4596 160,-4596 160,-4620"/>
+<text text-anchor="middle" x="97" y="-4605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node293" class="node">
+<title>proc~symba_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node293"><a xlink:href=".././proc/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="390,-4620 264,-4620 264,-4596 390,-4596 390,-4620"/>
+<text text-anchor="middle" x="327" y="-4605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
-<g id="call~~graph~~CallGraph_edge52" class="edge">
-<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"/>
+<!-- interface~symba_kick_getacch_pl&#45;&gt;proc~symba_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge70" 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,-4608C188.91,-4608 223.49,-4608 253.59,-4608"/>
+<polygon fill="#000000" stroke="#000000" points="253.62,-4611.5 263.62,-4608 253.62,-4604.5 253.62,-4611.5"/>
 </g>
-<!-- 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>
+<!-- proc~io_get_token -->
+<g id="call~~graph~~CallGraph_node49" class="node">
+<title>proc~io_get_token</title>
+<g id="a_call~~graph~~CallGraph_node49"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1376.5,-3486 1302.5,-3486 1302.5,-3462 1376.5,-3462 1376.5,-3486"/>
+<text text-anchor="middle" x="1339.5" y="-3471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</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>
+<!-- interface~symba_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node50" class="node">
+<title>interface~symba_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node50"><a xlink:href=".././interface/symba_kick_getacch_tp.html" xlink:title="symba_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-4704 33.5,-4704 33.5,-4680 160.5,-4680 160.5,-4704"/>
+<text text-anchor="middle" x="97" y="-4689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp -->
-<g id="call~~graph~~CallGraph_edge53" 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,-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"/>
+<!-- proc~symba_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node292" class="node">
+<title>proc~symba_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node292"><a xlink:href=".././proc/symba_kick_getacch_tp.html" xlink:title="symba_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-4704 263.5,-4704 263.5,-4680 390.5,-4680 390.5,-4704"/>
+<text text-anchor="middle" x="327" y="-4689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_tp</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- interface~symba_kick_getacch_tp&#45;&gt;proc~symba_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge71" 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,-4692C189.14,-4692 223.11,-4692 252.83,-4692"/>
+<polygon fill="#000000" stroke="#000000" points="253.14,-4695.5 263.14,-4692 253.14,-4688.5 253.14,-4695.5"/>
+</g>
+<!-- proc~io_param_reader -->
+<g id="call~~graph~~CallGraph_node51" class="node">
+<title>proc~io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node51"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
+<polygon fill="#d9534f" stroke="#d9534f" points="887,-3444 792,-3444 792,-3420 887,-3420 887,-3444"/>
+<text text-anchor="middle" x="839.5" y="-3429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~io_get_token -->
+<g id="call~~graph~~CallGraph_node87" class="node">
+<title>interface~io_get_token</title>
+<g id="a_call~~graph~~CallGraph_node87"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#a7506f" stroke="#a7506f" points="1131.5,-3486 1057.5,-3486 1057.5,-3462 1131.5,-3462 1131.5,-3486"/>
+<text text-anchor="middle" x="1094.5" y="-3471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
-<g id="call~~graph~~CallGraph_edge54" class="edge">
-<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"/>
+<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
+<g id="call~~graph~~CallGraph_edge73" class="edge">
+<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
+<path fill="none" stroke="#000000" d="M887.2,-3439.75C932.86,-3447.33 1001.97,-3458.81 1047.42,-3466.35"/>
+<polygon fill="#000000" stroke="#000000" points="1046.87,-3469.81 1057.31,-3467.99 1048.01,-3462.9 1046.87,-3469.81"/>
 </g>
-<!-- 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>
+<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
+<g id="call~~graph~~CallGraph_edge72" class="edge">
+<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M887.2,-3432C934.49,-3432 1006.92,-3432 1052.18,-3432"/>
+<polygon fill="#000000" stroke="#000000" points="1052.24,-3435.5 1062.24,-3432 1052.24,-3428.5 1052.24,-3435.5"/>
+</g>
+<!-- interface~symba_kick_encounter -->
+<g id="call~~graph~~CallGraph_node52" class="node">
+<title>interface~symba_kick_encounter</title>
+<g id="a_call~~graph~~CallGraph_node52"><a xlink:href=".././interface/symba_kick_encounter.html" xlink:title="symba_kick_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-4746 36,-4746 36,-4722 158,-4722 158,-4746"/>
+<text text-anchor="middle" x="97" y="-4731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_kick_encounter -->
+<g id="call~~graph~~CallGraph_node295" class="node">
+<title>proc~symba_kick_encounter</title>
+<g id="a_call~~graph~~CallGraph_node295"><a xlink:href=".././proc/symba_kick_encounter.html" xlink:title="symba_kick_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="388,-4746 266,-4746 266,-4722 388,-4722 388,-4746"/>
+<text text-anchor="middle" x="327" y="-4731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_kick_encounter&#45;&gt;proc~symba_kick_encounter -->
+<g id="call~~graph~~CallGraph_edge74" class="edge">
+<title>interface~symba_kick_encounter&#45;&gt;proc~symba_kick_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-4734C188.07,-4734 224.34,-4734 255.5,-4734"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-4737.5 265.86,-4734 255.86,-4730.5 255.86,-4737.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node53" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node53"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="177,-4788 17,-4788 17,-4764 177,-4764 177,-4788"/>
+<text text-anchor="middle" x="97" y="-4773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node267" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node267"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="407,-4788 247,-4788 247,-4764 407,-4764 407,-4788"/>
+<text text-anchor="middle" x="327" y="-4773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge75" 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,-4776C196.27,-4776 216.89,-4776 236.5,-4776"/>
+<polygon fill="#000000" stroke="#000000" points="236.65,-4779.5 246.65,-4776 236.65,-4772.5 236.65,-4779.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_setup_merger -->
+<g id="call~~graph~~CallGraph_node54" class="node">
+<title>interface~symba_setup_merger</title>
+<g id="a_call~~graph~~CallGraph_node54"><a xlink:href=".././interface/symba_setup_merger.html" xlink:title="symba_setup_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-4914 38.5,-4914 38.5,-4890 155.5,-4890 155.5,-4914"/>
+<text text-anchor="middle" x="97" y="-4899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_merger</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- proc~symba_setup_merger -->
+<g id="call~~graph~~CallGraph_node282" class="node">
+<title>proc~symba_setup_merger</title>
+<g id="a_call~~graph~~CallGraph_node282"><a xlink:href=".././proc/symba_setup_merger.html" xlink:title="symba_setup_merger">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-4914 268.5,-4914 268.5,-4890 385.5,-4890 385.5,-4914"/>
+<text text-anchor="middle" x="327" y="-4899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_merger</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~symba_setup_merger&#45;&gt;proc~symba_setup_merger -->
+<g id="call~~graph~~CallGraph_edge76" 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,-4902C186.72,-4902 225.45,-4902 258.11,-4902"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-4905.5 268.48,-4902 258.48,-4898.5 258.48,-4905.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_node55" class="node">
+<title>interface~symba_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node55"><a xlink:href=".././interface/symba_setup_pl.html" xlink:title="symba_setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="620,-4914 529,-4914 529,-4890 620,-4890 620,-4914"/>
+<text text-anchor="middle" x="574.5" y="-4899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_node281" class="node">
+<title>proc~symba_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node281"><a xlink:href=".././proc/symba_setup_pl.html" xlink:title="symba_setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="885,-4914 794,-4914 794,-4890 885,-4890 885,-4914"/>
+<text text-anchor="middle" x="839.5" y="-4899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_setup_pl&#45;&gt;proc~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_edge77" class="edge">
+<title>interface~symba_setup_pl&#45;&gt;proc~symba_setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M620.11,-4902C665.27,-4902 735.15,-4902 783.66,-4902"/>
+<polygon fill="#000000" stroke="#000000" points="783.67,-4905.5 793.67,-4902 783.67,-4898.5 783.67,-4905.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_setup_encounter -->
+<g id="call~~graph~~CallGraph_node56" class="node">
+<title>interface~symba_setup_encounter</title>
+<g id="a_call~~graph~~CallGraph_node56"><a xlink:href=".././interface/symba_setup_encounter.html" xlink:title="symba_setup_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-4956 32,-4956 32,-4932 162,-4932 162,-4956"/>
+<text text-anchor="middle" x="97" y="-4941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_setup_encounter -->
+<g id="call~~graph~~CallGraph_node284" class="node">
+<title>proc~symba_setup_encounter</title>
+<g id="a_call~~graph~~CallGraph_node284"><a xlink:href=".././proc/symba_setup_encounter.html" xlink:title="symba_setup_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-4956 262,-4956 262,-4932 392,-4932 392,-4956"/>
+<text text-anchor="middle" x="327" y="-4941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_setup_encounter&#45;&gt;proc~symba_setup_encounter -->
+<g id="call~~graph~~CallGraph_edge78" class="edge">
+<title>interface~symba_setup_encounter&#45;&gt;proc~symba_setup_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.12,-4944C190.04,-4944 222.94,-4944 251.9,-4944"/>
+<polygon fill="#000000" stroke="#000000" points="251.97,-4947.5 261.97,-4944 251.97,-4940.5 251.97,-4947.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_setup_tp -->
+<g id="call~~graph~~CallGraph_node57" class="node">
+<title>interface~symba_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node57"><a xlink:href=".././interface/symba_setup_tp.html" xlink:title="symba_setup_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-5040 51.5,-5040 51.5,-5016 142.5,-5016 142.5,-5040"/>
+<text text-anchor="middle" x="97" y="-5025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_setup_tp -->
+<g id="call~~graph~~CallGraph_node285" class="node">
+<title>proc~symba_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node285"><a xlink:href=".././proc/symba_setup_tp.html" xlink:title="symba_setup_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-5040 281.5,-5040 281.5,-5016 372.5,-5016 372.5,-5040"/>
+<text text-anchor="middle" x="327" y="-5025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_setup_tp&#45;&gt;proc~symba_setup_tp -->
+<g id="call~~graph~~CallGraph_edge79" 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,-5028C179.26,-5028 231.61,-5028 270.99,-5028"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-5031.5 281.22,-5028 271.22,-5024.5 271.22,-5031.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_step_system -->
+<g id="call~~graph~~CallGraph_node58" class="node">
+<title>interface~symba_step_system</title>
+<g id="a_call~~graph~~CallGraph_node58"><a xlink:href=".././interface/symba_step_system.html" xlink:title="symba_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="152,-5082 42,-5082 42,-5058 152,-5058 152,-5082"/>
+<text text-anchor="middle" x="97" y="-5067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_step_system -->
+<g id="call~~graph~~CallGraph_node599" class="node">
+<title>proc~symba_step_system</title>
+<g id="a_call~~graph~~CallGraph_node599"><a xlink:href=".././proc/symba_step_system.html" xlink:title="symba_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="382,-5082 272,-5082 272,-5058 382,-5058 382,-5082"/>
+<text text-anchor="middle" x="327" y="-5067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_step_system&#45;&gt;proc~symba_step_system -->
+<g id="call~~graph~~CallGraph_edge80" 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,-5070C184.99,-5070 227.3,-5070 261.94,-5070"/>
+<polygon fill="#000000" stroke="#000000" points="261.96,-5073.5 271.96,-5070 261.96,-5066.5 261.96,-5073.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>
+<!-- interface~symba_step_interp_system -->
+<g id="call~~graph~~CallGraph_node59" class="node">
+<title>interface~symba_step_interp_system</title>
+<g id="a_call~~graph~~CallGraph_node59"><a xlink:href=".././interface/symba_step_interp_system.html" xlink:title="symba_step_interp_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="168.5,-5124 25.5,-5124 25.5,-5100 168.5,-5100 168.5,-5124"/>
+<text text-anchor="middle" x="97" y="-5109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_interp_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_step_interp_system -->
+<g id="call~~graph~~CallGraph_node611" class="node">
+<title>proc~symba_step_interp_system</title>
+<g id="a_call~~graph~~CallGraph_node611"><a xlink:href=".././proc/symba_step_interp_system.html" xlink:title="symba_step_interp_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="398.5,-5124 255.5,-5124 255.5,-5100 398.5,-5100 398.5,-5124"/>
+<text text-anchor="middle" x="327" y="-5109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_interp_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_step_interp_system&#45;&gt;proc~symba_step_interp_system -->
+<g id="call~~graph~~CallGraph_edge81" 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,-5112C192.83,-5112 220.17,-5112 245.17,-5112"/>
+<polygon fill="#000000" stroke="#000000" points="245.36,-5115.5 255.36,-5112 245.36,-5108.5 245.36,-5115.5"/>
+</g>
+<!-- interface~symba_step_set_recur_levels_system -->
+<g id="call~~graph~~CallGraph_node60" class="node">
+<title>interface~symba_step_set_recur_levels_system</title>
+<g id="a_call~~graph~~CallGraph_node60"><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,-5166 0,-5166 0,-5142 194,-5142 194,-5166"/>
+<text text-anchor="middle" x="97" y="-5151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_set_recur_levels_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_step_set_recur_levels_system -->
+<g id="call~~graph~~CallGraph_node609" class="node">
+<title>proc~symba_step_set_recur_levels_system</title>
+<g id="a_call~~graph~~CallGraph_node609"><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,-5166 230,-5166 230,-5142 424,-5142 424,-5166"/>
+<text text-anchor="middle" x="327" y="-5151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_set_recur_levels_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_step_set_recur_levels_system&#45;&gt;proc~symba_step_set_recur_levels_system -->
+<g id="call~~graph~~CallGraph_edge82" 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,-5154C202.52,-5154 211.14,-5154 219.7,-5154"/>
+<polygon fill="#000000" stroke="#000000" points="219.71,-5157.5 229.71,-5154 219.71,-5150.5 219.71,-5157.5"/>
+</g>
+<!-- proc~fraggle_regime_colliders -->
+<g id="call~~graph~~CallGraph_node61" class="node">
+<title>proc~fraggle_regime_colliders</title>
+<g id="a_call~~graph~~CallGraph_node61"><a xlink:href=".././proc/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-5208 262,-5208 262,-5184 392,-5184 392,-5208"/>
+<text text-anchor="middle" x="327" y="-5193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~fraggle_io_log_regime -->
+<g id="call~~graph~~CallGraph_node163" class="node">
+<title>interface~fraggle_io_log_regime</title>
+<g id="a_call~~graph~~CallGraph_node163"><a xlink:href=".././interface/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#a7506f" stroke="#a7506f" points="634,-5208 515,-5208 515,-5184 634,-5184 634,-5208"/>
+<text text-anchor="middle" x="574.5" y="-5193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime -->
+<g id="call~~graph~~CallGraph_edge83" class="edge">
+<title>proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" d="M392.18,-5196C426.71,-5196 469.3,-5196 504.53,-5196"/>
+<polygon fill="#000000" stroke="#000000" points="504.74,-5199.5 514.74,-5196 504.74,-5192.5 504.74,-5199.5"/>
+</g>
+<!-- interface~symba_step_recur_system -->
+<g id="call~~graph~~CallGraph_node62" class="node">
+<title>interface~symba_step_recur_system</title>
+<g id="a_call~~graph~~CallGraph_node62"><a xlink:href=".././interface/symba_step_recur_system.html" xlink:title="symba_step_recur_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="645,-1188 504,-1188 504,-1164 645,-1164 645,-1188"/>
+<text text-anchor="middle" x="574.5" y="-1173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_recur_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_step_recur_system -->
+<g id="call~~graph~~CallGraph_node612" class="node">
+<title>proc~symba_step_recur_system</title>
+<g id="a_call~~graph~~CallGraph_node612"><a xlink:href=".././proc/symba_step_recur_system.html" xlink:title="symba_step_recur_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="910,-1184 769,-1184 769,-1160 910,-1160 910,-1184"/>
+<text text-anchor="middle" x="839.5" y="-1169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_recur_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_step_recur_system&#45;&gt;proc~symba_step_recur_system -->
+<g id="call~~graph~~CallGraph_edge84" 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="M645.29,-1174.94C680.2,-1174.41 722.62,-1173.76 758.81,-1173.21"/>
+<polygon fill="#000000" stroke="#000000" points="758.9,-1176.71 768.84,-1173.06 758.79,-1169.71 758.9,-1176.71"/>
+</g>
+<!-- proc~io_param_writer -->
+<g id="call~~graph~~CallGraph_node63" class="node">
+<title>proc~io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node63"><a xlink:href=".././proc/io_param_writer.html" xlink:title="io_param_writer">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-5269 282,-5269 282,-5245 372,-5245 372,-5269"/>
+<text text-anchor="middle" x="327" y="-5254.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~walltime_finish -->
+<g id="call~~graph~~CallGraph_node64" class="node">
+<title>proc~walltime_finish</title>
+<g id="a_call~~graph~~CallGraph_node64"><a xlink:href=".././proc/walltime_finish.html" xlink:title="walltime_finish">
+<polygon fill="#d9534f" stroke="#d9534f" points="138,-5320 56,-5320 56,-5296 138,-5296 138,-5320"/>
+<text text-anchor="middle" x="97" y="-5305.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_finish</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_step_reset_system -->
+<g id="call~~graph~~CallGraph_node65" class="node">
+<title>interface~symba_step_reset_system</title>
+<g id="a_call~~graph~~CallGraph_node65"><a xlink:href=".././interface/symba_step_reset_system.html" xlink:title="symba_step_reset_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="167,-5367 27,-5367 27,-5343 167,-5343 167,-5367"/>
+<text text-anchor="middle" x="97" y="-5352.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_reset_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_step_reset_system -->
+<g id="call~~graph~~CallGraph_node617" class="node">
+<title>proc~symba_step_reset_system</title>
+<g id="a_call~~graph~~CallGraph_node617"><a xlink:href=".././proc/symba_step_reset_system.html" xlink:title="symba_step_reset_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="397,-5367 257,-5367 257,-5343 397,-5343 397,-5367"/>
+<text text-anchor="middle" x="327" y="-5352.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_reset_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_step_reset_system&#45;&gt;proc~symba_step_reset_system -->
+<g id="call~~graph~~CallGraph_edge85" 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,-5355C192.13,-5355 220.71,-5355 246.64,-5355"/>
+<polygon fill="#000000" stroke="#000000" points="246.82,-5358.5 256.82,-5355 246.82,-5351.5 246.82,-5358.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_spill -->
+<g id="call~~graph~~CallGraph_node66" class="node">
+<title>interface~util_spill</title>
+<g id="a_call~~graph~~CallGraph_node66"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1121.5,-1636 1067.5,-1636 1067.5,-1612 1121.5,-1612 1121.5,-1636"/>
+<text text-anchor="middle" x="1094.5" y="-1621.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~walltime_reset -->
+<g id="call~~graph~~CallGraph_node67" class="node">
+<title>proc~walltime_reset</title>
+<g id="a_call~~graph~~CallGraph_node67"><a xlink:href=".././proc/walltime_reset.html" xlink:title="walltime_reset">
+<polygon fill="#d9534f" stroke="#d9534f" points="137.5,-5427 56.5,-5427 56.5,-5403 137.5,-5403 137.5,-5427"/>
+<text text-anchor="middle" x="97" y="-5412.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_reset</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_util_resize_merger -->
+<g id="call~~graph~~CallGraph_node68" class="node">
+<title>interface~symba_util_resize_merger</title>
+<g id="a_call~~graph~~CallGraph_node68"><a xlink:href=".././interface/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="166.5,-5471 27.5,-5471 27.5,-5447 166.5,-5447 166.5,-5471"/>
+<text text-anchor="middle" x="97" y="-5456.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_resize_merger -->
+<g id="call~~graph~~CallGraph_node302" class="node">
+<title>proc~symba_util_resize_merger</title>
+<g id="a_call~~graph~~CallGraph_node302"><a xlink:href=".././proc/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
+<polygon fill="#d9534f" stroke="#d9534f" points="396.5,-5471 257.5,-5471 257.5,-5447 396.5,-5447 396.5,-5471"/>
+<text text-anchor="middle" x="327" y="-5456.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger -->
+<g id="call~~graph~~CallGraph_edge86" 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,-5459C192.07,-5459 220.98,-5459 247.16,-5459"/>
+<polygon fill="#000000" stroke="#000000" points="247.42,-5462.5 257.42,-5459 247.42,-5455.5 247.42,-5462.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node69" class="node">
+<title>interface~symba_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node69"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="630.5,-5376 518.5,-5376 518.5,-5352 630.5,-5352 630.5,-5376"/>
+<text text-anchor="middle" x="574.5" y="-5361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_minimize_bfgs -->
+<!-- proc~symba_util_resize_pl -->
 <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>
+<title>proc~symba_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node315"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="895.5,-5376 783.5,-5376 783.5,-5352 895.5,-5352 895.5,-5376"/>
+<text text-anchor="middle" x="839.5" y="-5361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge87" 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="M630.63,-5364C672.19,-5364 729.31,-5364 773.16,-5364"/>
+<polygon fill="#000000" stroke="#000000" points="773.44,-5367.5 783.44,-5364 773.44,-5360.5 773.44,-5367.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_resize_tp -->
+<g id="call~~graph~~CallGraph_node70" class="node">
+<title>interface~symba_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node70"><a xlink:href=".././interface/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="631,-5418 518,-5418 518,-5394 631,-5394 631,-5418"/>
+<text text-anchor="middle" x="574.5" y="-5403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_resize_tp -->
+<g id="call~~graph~~CallGraph_node318" class="node">
+<title>proc~symba_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node318"><a xlink:href=".././proc/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="896,-5418 783,-5418 783,-5394 896,-5394 896,-5418"/>
+<text text-anchor="middle" x="839.5" y="-5403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge88" 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="M631.28,-5406C672.59,-5406 729.05,-5406 772.59,-5406"/>
+<polygon fill="#000000" stroke="#000000" points="772.8,-5409.5 782.8,-5406 772.8,-5402.5 772.8,-5409.5"/>
 </g>
-<!-- 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>
+<!-- interface~symba_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node71" class="node">
+<title>interface~symba_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node71"><a xlink:href=".././interface/symba_util_sort_pl.html" xlink:title="symba_util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-5572 46,-5572 46,-5548 148,-5548 148,-5572"/>
+<text text-anchor="middle" x="97" y="-5557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node324" class="node">
+<title>proc~symba_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node324"><a xlink:href=".././proc/symba_util_sort_pl.html" xlink:title="symba_util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="378,-5572 276,-5572 276,-5548 378,-5548 378,-5572"/>
+<text text-anchor="middle" x="327" y="-5557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_sort_pl&#45;&gt;proc~symba_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge89" 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,-5560C182.66,-5560 228.93,-5560 265.61,-5560"/>
+<polygon fill="#000000" stroke="#000000" points="265.69,-5563.5 275.69,-5560 265.69,-5556.5 265.69,-5563.5"/>
 </g>
-<!-- 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>
+<!-- proc~walltime_start -->
+<g id="call~~graph~~CallGraph_node72" class="node">
+<title>proc~walltime_start</title>
+<g id="a_call~~graph~~CallGraph_node72"><a xlink:href=".././proc/walltime_start.html" xlink:title="walltime_start">
+<polygon fill="#d9534f" stroke="#d9534f" points="136,-5614 58,-5614 58,-5590 136,-5590 136,-5614"/>
+<text text-anchor="middle" x="97" y="-5599.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_start</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>
+<!-- interface~symba_util_sort_tp -->
+<g id="call~~graph~~CallGraph_node73" class="node">
+<title>interface~symba_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node73"><a xlink:href=".././interface/symba_util_sort_tp.html" xlink:title="symba_util_sort_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-5698 45.5,-5698 45.5,-5674 148.5,-5674 148.5,-5698"/>
+<text text-anchor="middle" x="97" y="-5683.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_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>
+<!-- proc~symba_util_sort_tp -->
+<g id="call~~graph~~CallGraph_node327" class="node">
+<title>proc~symba_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node327"><a xlink:href=".././proc/symba_util_sort_tp.html" xlink:title="symba_util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-5698 275.5,-5698 275.5,-5674 378.5,-5674 378.5,-5698"/>
+<text text-anchor="middle" x="327" y="-5683.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_tp</text>
+</a>
 </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>
+<!-- interface~symba_util_sort_tp&#45;&gt;proc~symba_util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge90" 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,-5686C183.02,-5686 228.74,-5686 265.14,-5686"/>
+<polygon fill="#000000" stroke="#000000" points="265.15,-5689.5 275.15,-5686 265.15,-5682.5 265.15,-5689.5"/>
+</g>
+<!-- interface~walltime_finish -->
+<g id="call~~graph~~CallGraph_node75" class="node">
+<title>interface~walltime_finish</title>
+<g id="a_call~~graph~~CallGraph_node75"><a xlink:href=".././interface/walltime_finish.html" xlink:title="walltime_finish">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-5740 56,-5740 56,-5716 138,-5716 138,-5740"/>
+<text text-anchor="middle" x="97" y="-5725.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_finish</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"/>
+<!-- interface~walltime_reset -->
+<g id="call~~graph~~CallGraph_node76" class="node">
+<title>interface~walltime_reset</title>
+<g id="a_call~~graph~~CallGraph_node76"><a xlink:href=".././interface/walltime_reset.html" xlink:title="walltime_reset">
+<polygon fill="#a7506f" stroke="#a7506f" points="137.5,-5782 56.5,-5782 56.5,-5758 137.5,-5758 137.5,-5782"/>
+<text text-anchor="middle" x="97" y="-5767.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_reset</text>
+</a>
 </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>
+</g>
+<!-- interface~walltime_start -->
+<g id="call~~graph~~CallGraph_node77" class="node">
+<title>interface~walltime_start</title>
+<g id="a_call~~graph~~CallGraph_node77"><a xlink:href=".././interface/walltime_start.html" xlink:title="walltime_start">
+<polygon fill="#a7506f" stroke="#a7506f" points="136,-5824 58,-5824 58,-5800 136,-5800 136,-5824"/>
+<text text-anchor="middle" x="97" y="-5809.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_start</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"/>
+<!-- interface~symba_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node78" class="node">
+<title>interface~symba_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node78"><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,-4116 19.5,-4116 19.5,-4092 174.5,-4092 174.5,-4116"/>
+<text text-anchor="middle" x="97" y="-4101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
+</a>
 </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>
+</g>
+<!-- proc~symba_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node328" class="node">
+<title>proc~symba_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node328"><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,-4116 249.5,-4116 249.5,-4092 404.5,-4092 404.5,-4116"/>
+<text text-anchor="middle" x="327" y="-4101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</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"/>
+<!-- interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge91" 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,-4104C195.33,-4104 217.97,-4104 239.26,-4104"/>
+<polygon fill="#000000" stroke="#000000" points="239.26,-4107.5 249.26,-4104 239.26,-4100.5 239.26,-4107.5"/>
 </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>
+<!-- interface~symba_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node79" class="node">
+<title>interface~symba_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node79"><a xlink:href=".././interface/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="175,-4200 19,-4200 19,-4176 175,-4176 175,-4200"/>
+<text text-anchor="middle" x="97" y="-4185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</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"/>
+<!-- proc~symba_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node333" class="node">
+<title>proc~symba_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node333"><a xlink:href=".././proc/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="405,-4200 249,-4200 249,-4176 405,-4176 405,-4200"/>
+<text text-anchor="middle" x="327" y="-4185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</text>
+</a>
 </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~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>
+<!-- interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge92" 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,-4188C195.62,-4188 217.81,-4188 238.73,-4188"/>
+<polygon fill="#000000" stroke="#000000" points="238.89,-4191.5 248.89,-4188 238.89,-4184.5 238.89,-4191.5"/>
+</g>
+<!-- proc~io_read_in_body -->
+<g id="call~~graph~~CallGraph_node80" class="node">
+<title>proc~io_read_in_body</title>
+<g id="a_call~~graph~~CallGraph_node80"><a xlink:href=".././proc/io_read_in_body.html" xlink:title="io_read_in_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="373,-5866 281,-5866 281,-5842 373,-5842 373,-5866"/>
+<text text-anchor="middle" x="327" y="-5851.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="call~~graph~~CallGraph_node81" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_call~~graph~~CallGraph_node81"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1159.5,-1865 1029.5,-1865 1029.5,-1841 1159.5,-1841 1159.5,-1865"/>
+<text text-anchor="middle" x="1094.5" y="-1850.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="call~~graph~~CallGraph_node196" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_call~~graph~~CallGraph_node196"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="1426,-1895 1253,-1895 1253,-1871 1426,-1871 1426,-1895"/>
+<text text-anchor="middle" x="1339.5" y="-1880.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
 </g>
-<!-- interface~util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node97" class="node">
-<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>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="call~~graph~~CallGraph_edge93" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M1159.66,-1860.92C1185.09,-1864.06 1214.85,-1867.73 1242.73,-1871.18"/>
+<polygon fill="#000000" stroke="#000000" points="1242.55,-1874.68 1252.9,-1872.43 1243.4,-1867.73 1242.55,-1874.68"/>
+</g>
+<!-- interface~operator(.cross.) -->
+<g id="call~~graph~~CallGraph_node82" class="node">
+<title>interface~operator(.cross.)</title>
+<g id="a_call~~graph~~CallGraph_node82"><a xlink:href=".././interface/operator%28.cross.%29.html" xlink:title="operator(.cross.)">
+<polygon fill="#a7506f" stroke="#a7506f" points="143,-5908 51,-5908 51,-5884 143,-5884 143,-5908"/>
+<text text-anchor="middle" x="97" y="-5893.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator(.cross.)</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~io_get_args -->
+<g id="call~~graph~~CallGraph_node83" class="node">
+<title>interface~io_get_args</title>
+<g id="a_call~~graph~~CallGraph_node83"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="609,-3402 540,-3402 540,-3378 609,-3378 609,-3402"/>
+<text text-anchor="middle" x="574.5" y="-3387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<g id="call~~graph~~CallGraph_edge94" class="edge">
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.08,-3390C656.23,-3390 742.15,-3390 794.41,-3390"/>
+<polygon fill="#000000" stroke="#000000" points="794.71,-3393.5 804.71,-3390 794.71,-3386.5 794.71,-3393.5"/>
 </g>
-<!-- interface~util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node98" class="node">
-<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>
+<!-- interface~util_resize -->
+<g id="call~~graph~~CallGraph_node84" class="node">
+<title>interface~util_resize</title>
+<g id="a_call~~graph~~CallGraph_node84"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="1125,-5454 1064,-5454 1064,-5430 1125,-5430 1125,-5454"/>
+<text text-anchor="middle" x="1094.5" y="-5439.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~io_get_old_t_final_system -->
+<g id="call~~graph~~CallGraph_node85" class="node">
+<title>interface~io_get_old_t_final_system</title>
+<g id="a_call~~graph~~CallGraph_node85"><a xlink:href=".././interface/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="642.5,-3196 506.5,-3196 506.5,-3172 642.5,-3172 642.5,-3196"/>
+<text text-anchor="middle" x="574.5" y="-3181.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system -->
+<g id="call~~graph~~CallGraph_edge95" class="edge">
+<title>interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.55,-3184C678.58,-3184 723.18,-3184 760.73,-3184"/>
+<polygon fill="#000000" stroke="#000000" points="761.12,-3187.5 771.12,-3184 761.12,-3180.5 761.12,-3187.5"/>
 </g>
-<!-- interface~util_sort_body -->
-<g id="call~~graph~~CallGraph_node99" class="node">
-<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>
+<!-- interface~symba_util_append_encounter -->
+<g id="call~~graph~~CallGraph_node86" class="node">
+<title>interface~symba_util_append_encounter</title>
+<g id="a_call~~graph~~CallGraph_node86"><a xlink:href=".././interface/symba_util_append_encounter.html" xlink:title="symba_util_append_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="654.5,-608 494.5,-608 494.5,-584 654.5,-584 654.5,-608"/>
+<text text-anchor="middle" x="574.5" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_append_encounter -->
+<g id="call~~graph~~CallGraph_node304" class="node">
+<title>proc~symba_util_append_encounter</title>
+<g id="a_call~~graph~~CallGraph_node304"><a xlink:href=".././proc/symba_util_append_encounter.html" xlink:title="symba_util_append_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="919.5,-608 759.5,-608 759.5,-584 919.5,-584 919.5,-608"/>
+<text text-anchor="middle" x="839.5" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter -->
+<g id="call~~graph~~CallGraph_edge96" class="edge">
+<title>interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.77,-596C684.52,-596 718.55,-596 749.16,-596"/>
+<polygon fill="#000000" stroke="#000000" points="749.4,-599.5 759.4,-596 749.4,-592.5 749.4,-599.5"/>
 </g>
-<!-- interface~util_sort_pl -->
-<g id="call~~graph~~CallGraph_node100" class="node">
-<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>
+<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
+<g id="call~~graph~~CallGraph_edge97" class="edge">
+<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1131.62,-3474C1174.27,-3474 1245.31,-3474 1292.02,-3474"/>
+<polygon fill="#000000" stroke="#000000" points="1292.18,-3477.5 1302.18,-3474 1292.18,-3470.5 1292.18,-3477.5"/>
+</g>
+<!-- interface~operator(.mag.) -->
+<g id="call~~graph~~CallGraph_node88" class="node">
+<title>interface~operator(.mag.)</title>
+<g id="a_call~~graph~~CallGraph_node88"><a xlink:href=".././interface/operator%28.mag.%29.html" xlink:title="operator(.mag.)">
+<polygon fill="#a7506f" stroke="#a7506f" points="141,-5950 53,-5950 53,-5926 141,-5926 141,-5950"/>
+<text text-anchor="middle" x="97" y="-5935.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator(.mag.)</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_util_append_merger -->
+<g id="call~~graph~~CallGraph_node89" class="node">
+<title>interface~symba_util_append_merger</title>
+<g id="a_call~~graph~~CallGraph_node89"><a xlink:href=".././interface/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="170,-940 24,-940 24,-916 170,-916 170,-940"/>
+<text text-anchor="middle" x="97" y="-925.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_merger -->
+<g id="call~~graph~~CallGraph_node306" class="node">
+<title>proc~symba_util_append_merger</title>
+<g id="a_call~~graph~~CallGraph_node306"><a xlink:href=".././proc/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<polygon fill="#d9534f" stroke="#d9534f" points="400,-940 254,-940 254,-916 400,-916 400,-940"/>
+<text text-anchor="middle" x="327" y="-925.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
+</a>
 </g>
-<!-- interface~util_sort_tp -->
-<g id="call~~graph~~CallGraph_node101" class="node">
-<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>
+</g>
+<!-- interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger -->
+<g id="call~~graph~~CallGraph_edge98" 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,-928C193.54,-928 219.68,-928 243.76,-928"/>
+<polygon fill="#000000" stroke="#000000" points="243.94,-931.5 253.94,-928 243.94,-924.5 243.94,-931.5"/>
+</g>
+<!-- interface~io_read_frame_body -->
+<g id="call~~graph~~CallGraph_node90" class="node">
+<title>interface~io_read_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node90"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="630.5,-3154 518.5,-3154 518.5,-3130 630.5,-3130 630.5,-3154"/>
+<text text-anchor="middle" x="574.5" y="-3139.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~io_read_frame_body -->
+<g id="call~~graph~~CallGraph_node99" class="node">
+<title>proc~io_read_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node99"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="895.5,-3154 783.5,-3154 783.5,-3130 895.5,-3130 895.5,-3154"/>
+<text text-anchor="middle" x="839.5" y="-3139.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
+<g id="call~~graph~~CallGraph_edge99" 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="M630.63,-3142C672.19,-3142 729.31,-3142 773.16,-3142"/>
+<polygon fill="#000000" stroke="#000000" points="773.44,-3145.5 783.44,-3142 773.44,-3138.5 773.44,-3145.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"/>
+<!-- proc~drift_kepu_new -->
+<g id="call~~graph~~CallGraph_node91" class="node">
+<title>proc~drift_kepu_new</title>
+<g id="a_call~~graph~~CallGraph_node91"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
+<polygon fill="#d9534f" stroke="#d9534f" points="1137,-6345 1052,-6345 1052,-6321 1137,-6321 1137,-6345"/>
+<text text-anchor="middle" x="1094.5" y="-6330.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
+</a>
 </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_node107" class="node">
-<title>proc~util_append_arr_dp</title>
-<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>
+<!-- proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_node147" class="node">
+<title>proc~drift_kepu_stumpff</title>
+<g id="a_call~~graph~~CallGraph_node147"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
+<polygon fill="#d9534f" stroke="#d9534f" points="1390,-6303 1289,-6303 1289,-6279 1390,-6279 1390,-6303"/>
+<text text-anchor="middle" x="1339.5" y="-6288.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_arr_dp&#45;&gt;interface~util_resize~2 -->
-<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="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"/>
+<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_edge100" class="edge">
+<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M1137.27,-6325.78C1176.3,-6319.03 1234.97,-6308.89 1278.91,-6301.3"/>
+<polygon fill="#000000" stroke="#000000" points="1279.63,-6304.73 1288.89,-6299.57 1278.44,-6297.83 1279.63,-6304.73"/>
+</g>
+<!-- proc~operator_cross_el_qp -->
+<g id="call~~graph~~CallGraph_node92" class="node">
+<title>proc~operator_cross_el_qp</title>
+<g id="a_call~~graph~~CallGraph_node92"><a xlink:href=".././proc/operator_cross_el_qp.html" xlink:title="operator_cross_el_qp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155.5,-6187 38.5,-6187 38.5,-6163 155.5,-6163 155.5,-6187"/>
+<text text-anchor="middle" x="97" y="-6172.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_qp</text>
+</a>
 </g>
-<!-- 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_node109" class="node">
+<g id="call~~graph~~CallGraph_node93" class="node">
 <title>proc~util_append_arr_dpvec</title>
-<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>
+<g id="a_call~~graph~~CallGraph_node93"><a xlink:href=".././proc/util_append_arr_dpvec.html" xlink:title="util_append_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="901.5,-6652 777.5,-6652 777.5,-6628 901.5,-6628 901.5,-6652"/>
+<text text-anchor="middle" x="839.5" y="-6637.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_edge84" class="edge">
-<title>proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2</title>
-<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>
-<!-- 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>
+<!-- interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_node455" class="node">
+<title>interface~util_resize~2</title>
+<g id="a_call~~graph~~CallGraph_node455"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="1125,-6484 1064,-6484 1064,-6460 1125,-6460 1125,-6484"/>
+<text text-anchor="middle" x="1094.5" y="-6469.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge101" class="edge">
+<title>proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M901.78,-6635.81C919.41,-6632.75 938.15,-6627.6 954,-6619 1010.85,-6588.14 1057.99,-6525.79 1080.05,-6493.09"/>
+<polygon fill="#000000" stroke="#000000" points="1083.24,-6494.61 1085.84,-6484.34 1077.4,-6490.75 1083.24,-6494.61"/>
 </g>
-<!-- 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>
+<!-- proc~orbel_eget -->
+<g id="call~~graph~~CallGraph_node94" class="node">
+<title>proc~orbel_eget</title>
+<g id="a_call~~graph~~CallGraph_node94"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1126.5,-6177 1062.5,-6177 1062.5,-6153 1126.5,-6153 1126.5,-6177"/>
+<text text-anchor="middle" x="1094.5" y="-6162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_node471" class="node">
+<title>interface~orbel_scget</title>
+<g id="a_call~~graph~~CallGraph_node471"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="1373.5,-6135 1305.5,-6135 1305.5,-6111 1373.5,-6111 1373.5,-6135"/>
+<text text-anchor="middle" x="1339.5" y="-6120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge102" class="edge">
+<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1126.77,-6159.6C1169.73,-6152.17 1247.18,-6138.78 1295.55,-6130.42"/>
+<polygon fill="#000000" stroke="#000000" points="1296.15,-6133.87 1305.41,-6128.72 1294.96,-6126.97 1296.15,-6133.87"/>
 </g>
-<!-- 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>
+<!-- proc~obl_acc_body -->
+<g id="call~~graph~~CallGraph_node95" class="node">
+<title>proc~obl_acc_body</title>
+<g id="a_call~~graph~~CallGraph_node95"><a xlink:href=".././proc/obl_acc_body.html" xlink:title="obl_acc_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="879,-6694 800,-6694 800,-6670 879,-6670 879,-6694"/>
+<text text-anchor="middle" x="839.5" y="-6679.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_regime_collresolve -->
+<g id="call~~graph~~CallGraph_node96" class="node">
+<title>proc~fraggle_regime_collresolve</title>
+<g id="a_call~~graph~~CallGraph_node96"><a xlink:href=".././proc/fraggle_regime_collresolve.html" xlink:title="fraggle_regime_collresolve">
+<polygon fill="#d9534f" stroke="#d9534f" points="645,-1730 504,-1730 504,-1706 645,-1706 645,-1730"/>
+<text text-anchor="middle" x="574.5" y="-1715.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_collresolve</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge103" class="edge">
+<title>proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M645.29,-1729.14C678.39,-1734.43 718.24,-1740.8 753.13,-1746.37"/>
+<polygon fill="#000000" stroke="#000000" points="752.88,-1749.87 763.31,-1747.99 753.98,-1742.96 752.88,-1749.87"/>
 </g>
-<!-- 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>
+<!-- proc~operator_cross_el_i1b -->
+<g id="call~~graph~~CallGraph_node97" class="node">
+<title>proc~operator_cross_el_i1b</title>
+<g id="a_call~~graph~~CallGraph_node97"><a xlink:href=".././proc/operator_cross_el_i1b.html" xlink:title="operator_cross_el_i1b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-6757 37.5,-6757 37.5,-6733 156.5,-6733 156.5,-6757"/>
+<text text-anchor="middle" x="97" y="-6742.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i1b</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~drift_kepu -->
+<g id="call~~graph~~CallGraph_node98" class="node">
+<title>proc~drift_kepu</title>
+<g id="a_call~~graph~~CallGraph_node98"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<polygon fill="#d9534f" stroke="#d9534f" points="869.5,-6282 809.5,-6282 809.5,-6258 869.5,-6258 869.5,-6282"/>
+<text text-anchor="middle" x="839.5" y="-6267.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
+<g id="call~~graph~~CallGraph_edge104" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
+<path fill="none" stroke="#000000" d="M869.85,-6275.11C893.02,-6279.52 926,-6286.67 954,-6296 970.61,-6301.54 973.32,-6306.67 990,-6312 1006.56,-6317.29 1025.05,-6321.54 1041.77,-6324.8"/>
+<polygon fill="#000000" stroke="#000000" points="1041.45,-6328.3 1051.92,-6326.7 1042.74,-6321.42 1041.45,-6328.3"/>
 </g>
-<!-- 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>
+<!-- proc~drift_kepu_fchk -->
+<g id="call~~graph~~CallGraph_node138" class="node">
+<title>proc~drift_kepu_fchk</title>
+<g id="a_call~~graph~~CallGraph_node138"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
+<polygon fill="#d9534f" stroke="#d9534f" points="1137,-6303 1052,-6303 1052,-6279 1137,-6279 1137,-6303"/>
+<text text-anchor="middle" x="1094.5" y="-6288.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
+<g id="call~~graph~~CallGraph_edge106" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
+<path fill="none" stroke="#000000" d="M869.52,-6272.41C911.5,-6275.89 989.83,-6282.39 1041.82,-6286.71"/>
+<polygon fill="#000000" stroke="#000000" points="1041.6,-6290.2 1051.85,-6287.54 1042.17,-6283.23 1041.6,-6290.2"/>
 </g>
+<!-- proc~drift_kepu_guess -->
+<g id="call~~graph~~CallGraph_node167" class="node">
+<title>proc~drift_kepu_guess</title>
+<g id="a_call~~graph~~CallGraph_node167"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
+<polygon fill="#d9534f" stroke="#d9534f" points="1141.5,-6219 1047.5,-6219 1047.5,-6195 1141.5,-6195 1141.5,-6219"/>
+<text text-anchor="middle" x="1094.5" y="-6204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
+<g id="call~~graph~~CallGraph_edge105" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
+<path fill="none" stroke="#000000" d="M869.69,-6267.4C893.06,-6264.66 926.38,-6259.25 954,-6249 971.36,-6242.55 972.69,-6234.6 990,-6228 1004.9,-6222.32 1021.62,-6218.08 1037.2,-6214.95"/>
+<polygon fill="#000000" stroke="#000000" points="1038.07,-6218.35 1047.24,-6213.05 1036.77,-6211.47 1038.07,-6218.35"/>
 </g>
-<!-- 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>
+<!-- proc~drift_kepu_lag -->
+<g id="call~~graph~~CallGraph_node193" class="node">
+<title>proc~drift_kepu_lag</title>
+<g id="a_call~~graph~~CallGraph_node193"><a xlink:href=".././proc/drift_kepu_lag.html" xlink:title="drift_kepu_lag">
+<polygon fill="#d9534f" stroke="#d9534f" points="1134.5,-6261 1054.5,-6261 1054.5,-6237 1134.5,-6237 1134.5,-6261"/>
+<text text-anchor="middle" x="1094.5" y="-6246.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_lag -->
+<g id="call~~graph~~CallGraph_edge107" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_lag</title>
+<path fill="none" stroke="#000000" d="M869.52,-6267.59C912.11,-6264.06 992.1,-6257.42 1044.06,-6253.1"/>
+<polygon fill="#000000" stroke="#000000" points="1044.39,-6256.59 1054.06,-6252.27 1043.81,-6249.61 1044.39,-6256.59"/>
 </g>
-<!-- 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"/>
+<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge108" class="edge">
+<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M895.64,-3141.72C915.64,-3139.2 937.37,-3133.4 954,-3121 1040.45,-3056.55 1077.43,-2923.14 1089.11,-2870.27"/>
+<polygon fill="#000000" stroke="#000000" points="1092.58,-2870.78 1091.22,-2860.27 1085.73,-2869.33 1092.58,-2870.78"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node100" class="node">
+<title>proc~rmvs_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node100"><a xlink:href=".././proc/rmvs_util_spill_pl.html" xlink:title="rmvs_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="886.5,-1436 792.5,-1436 792.5,-1412 886.5,-1412 886.5,-1436"/>
+<text text-anchor="middle" x="839.5" y="-1421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- util_spill -->
+<g id="call~~graph~~CallGraph_node714" class="node">
+<title>util_spill</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-1510 1067.5,-1510 1067.5,-1486 1121.5,-1486 1121.5,-1510"/>
+<text text-anchor="middle" x="1094.5" y="-1495.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="call~~graph~~CallGraph_edge109" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M886.75,-1426.85C908.07,-1429.57 933.21,-1434.83 954,-1445 973.23,-1454.4 970.85,-1467.43 990,-1477 1010.91,-1487.45 1036.65,-1492.7 1057.24,-1495.33"/>
+<polygon fill="#000000" stroke="#000000" points="1056.85,-1498.81 1067.18,-1496.46 1057.64,-1491.86 1056.85,-1498.81"/>
 </g>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge110" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M886.61,-1427.43C910.03,-1426.55 937.04,-1421.03 954,-1403 1044.2,-1307.11 909.96,-1213.51 990,-1109 1006.05,-1088.04 1034.31,-1077.49 1057.24,-1072.21"/>
+<polygon fill="#000000" stroke="#000000" points="1058.25,-1075.58 1067.34,-1070.14 1056.84,-1068.72 1058.25,-1075.58"/>
 </g>
-<!-- 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"/>
+<!-- whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node757" class="node">
+<title>whm_util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1141,-1468 1048,-1468 1048,-1444 1141,-1444 1141,-1468"/>
+<text text-anchor="middle" x="1094.5" y="-1453.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge111" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M886.61,-1429.83C929.14,-1435.21 992.38,-1443.21 1037.74,-1448.95"/>
+<polygon fill="#000000" stroke="#000000" points="1037.35,-1452.43 1047.71,-1450.21 1038.23,-1445.48 1037.35,-1452.43"/>
+</g>
+<!-- proc~operator_cross_el_i2b -->
+<g id="call~~graph~~CallGraph_node101" class="node">
+<title>proc~operator_cross_el_i2b</title>
+<g id="a_call~~graph~~CallGraph_node101"><a xlink:href=".././proc/operator_cross_el_i2b.html" xlink:title="operator_cross_el_i2b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-6799 37.5,-6799 37.5,-6775 156.5,-6775 156.5,-6799"/>
+<text text-anchor="middle" x="97" y="-6784.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i2b</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_spill_tp -->
+<g id="call~~graph~~CallGraph_node102" class="node">
+<title>proc~rmvs_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node102"><a xlink:href=".././proc/rmvs_util_spill_tp.html" xlink:title="rmvs_util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="886.5,-1478 792.5,-1478 792.5,-1454 886.5,-1454 886.5,-1478"/>
+<text text-anchor="middle" x="839.5" y="-1463.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
+<g id="call~~graph~~CallGraph_edge112" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M886.61,-1471.83C935.69,-1478.04 1012.35,-1487.74 1057.28,-1493.42"/>
+<polygon fill="#000000" stroke="#000000" points="1057.09,-1496.92 1067.45,-1494.7 1057.96,-1489.98 1057.09,-1496.92"/>
 </g>
-<!-- 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>
+<!-- util_spill_tp -->
+<g id="call~~graph~~CallGraph_node744" class="node">
+<title>util_spill_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1127,-1552 1062,-1552 1062,-1528 1127,-1528 1127,-1552"/>
+<text text-anchor="middle" x="1094.5" y="-1537.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_edge113" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp</title>
+<path fill="none" stroke="#000000" d="M886.75,-1468.85C908.07,-1471.57 933.21,-1476.83 954,-1487 973.23,-1496.4 970.85,-1509.43 990,-1519 1009.05,-1528.52 1032.11,-1533.72 1051.63,-1536.57"/>
+<polygon fill="#000000" stroke="#000000" points="1051.4,-1540.07 1061.76,-1537.88 1052.3,-1533.12 1051.4,-1540.07"/>
+</g>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge114" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M886.72,-1469.54C910.17,-1468.68 937.18,-1463.15 954,-1445 1005.04,-1389.92 944.79,-1168.96 990,-1109 1005.97,-1087.82 1034.41,-1077.29 1057.45,-1072.06"/>
+<polygon fill="#000000" stroke="#000000" points="1058.15,-1075.49 1067.26,-1070.08 1056.76,-1068.63 1058.15,-1075.49"/>
+</g>
+<!-- proc~util_append_arr_char_string -->
+<g id="call~~graph~~CallGraph_node103" class="node">
+<title>proc~util_append_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node103"><a xlink:href=".././proc/util_append_arr_char_string.html" xlink:title="util_append_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="913,-6610 766,-6610 766,-6586 913,-6586 913,-6610"/>
+<text text-anchor="middle" x="839.5" y="-6595.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_char_string</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge115" class="edge">
+<title>proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M913.15,-6589.73C927.06,-6586.71 941.25,-6582.6 954,-6577 1002.08,-6555.87 1048.97,-6515.25 1074.27,-6491.2"/>
+<polygon fill="#000000" stroke="#000000" points="1076.94,-6493.48 1081.69,-6484.02 1072.07,-6488.45 1076.94,-6493.48"/>
+</g>
+<!-- proc~io_read_in_cb -->
+<g id="call~~graph~~CallGraph_node104" class="node">
+<title>proc~io_read_in_cb</title>
+<g id="a_call~~graph~~CallGraph_node104"><a xlink:href=".././proc/io_read_in_cb.html" xlink:title="io_read_in_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="879.5,-3112 799.5,-3112 799.5,-3088 879.5,-3088 879.5,-3112"/>
+<text text-anchor="middle" x="839.5" y="-3097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_read_in_cb&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge116" class="edge">
+<title>proc~io_read_in_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M879.55,-3100.57C902.97,-3099.12 932.33,-3093.99 954,-3079 1030.49,-3026.08 1072.24,-2916.31 1087.13,-2869.69"/>
+<polygon fill="#000000" stroke="#000000" points="1090.52,-2870.59 1090.13,-2860.01 1083.83,-2868.53 1090.52,-2870.59"/>
 </g>
-<!-- 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>
+<!-- proc~obl_acc_pl -->
+<g id="call~~graph~~CallGraph_node105" class="node">
+<title>proc~obl_acc_pl</title>
+<g id="a_call~~graph~~CallGraph_node105"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-6715 295,-6715 295,-6691 359,-6691 359,-6715"/>
+<text text-anchor="middle" x="327" y="-6700.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~obl_acc_body -->
+<g id="call~~graph~~CallGraph_node464" class="node">
+<title>interface~obl_acc_body</title>
+<g id="a_call~~graph~~CallGraph_node464"><a xlink:href=".././interface/obl_acc_body.html" xlink:title="obl_acc_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="614,-6694 535,-6694 535,-6670 614,-6670 614,-6694"/>
+<text text-anchor="middle" x="574.5" y="-6679.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
+<g id="call~~graph~~CallGraph_edge117" class="edge">
+<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-6700.34C400.89,-6696.76 475.63,-6690.37 524.9,-6686.16"/>
+<polygon fill="#000000" stroke="#000000" points="525.33,-6689.63 535,-6685.29 524.74,-6682.66 525.33,-6689.63"/>
 </g>
-<!-- proc~symba_setup_pltpenc -->
-<g id="call~~graph~~CallGraph_node124" class="node">
-<title>proc~symba_setup_pltpenc</title>
-<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>
+<!-- proc~io_read_encounter -->
+<g id="call~~graph~~CallGraph_node106" class="node">
+<title>proc~io_read_encounter</title>
+<g id="a_call~~graph~~CallGraph_node106"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="891,-3070 788,-3070 788,-3046 891,-3046 891,-3070"/>
+<text text-anchor="middle" x="839.5" y="-3055.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
 </a>
 </g>
 </g>
-<!-- setup_encounter -->
-<g id="call~~graph~~CallGraph_node566" class="node">
-<title>setup_encounter</title>
-<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>
+<!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge118" class="edge">
+<title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M891.19,-3056.67C911.94,-3054.16 935.4,-3048.64 954,-3037 1020.48,-2995.42 1065.79,-2909.69 1084.23,-2869.58"/>
+<polygon fill="#000000" stroke="#000000" points="1087.53,-2870.76 1088.43,-2860.2 1081.15,-2867.9 1087.53,-2870.76"/>
 </g>
-<!-- proc~symba_setup_pltpenc&#45;&gt;setup_encounter -->
-<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.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"/>
+<!-- interface~whm_coord_h2j_pl -->
+<g id="call~~graph~~CallGraph_node107" class="node">
+<title>interface~whm_coord_h2j_pl</title>
+<g id="a_call~~graph~~CallGraph_node107"><a xlink:href=".././interface/whm_coord_h2j_pl.html" xlink:title="whm_coord_h2j_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-6883 45.5,-6883 45.5,-6859 148.5,-6859 148.5,-6883"/>
+<text text-anchor="middle" x="97" y="-6868.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_h2j_pl</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- proc~whm_coord_h2j_pl -->
+<g id="call~~graph~~CallGraph_node517" class="node">
+<title>proc~whm_coord_h2j_pl</title>
+<g id="a_call~~graph~~CallGraph_node517"><a xlink:href=".././proc/whm_coord_h2j_pl.html" xlink:title="whm_coord_h2j_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-6883 275.5,-6883 275.5,-6859 378.5,-6859 378.5,-6883"/>
+<text text-anchor="middle" x="327" y="-6868.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_h2j_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~whm_coord_h2j_pl&#45;&gt;proc~whm_coord_h2j_pl -->
+<g id="call~~graph~~CallGraph_edge119" 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,-6871C183.02,-6871 228.74,-6871 265.14,-6871"/>
+<polygon fill="#000000" stroke="#000000" points="265.15,-6874.5 275.15,-6871 265.15,-6867.5 265.15,-6874.5"/>
+</g>
+<!-- proc~obl_acc_tp -->
+<g id="call~~graph~~CallGraph_node108" class="node">
+<title>proc~obl_acc_tp</title>
+<g id="a_call~~graph~~CallGraph_node108"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-6673 295,-6673 295,-6649 359,-6649 359,-6673"/>
+<text text-anchor="middle" x="327" y="-6658.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </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"/>
+<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
+<g id="call~~graph~~CallGraph_edge120" class="edge">
+<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-6663.66C400.89,-6667.24 475.63,-6673.63 524.9,-6677.84"/>
+<polygon fill="#000000" stroke="#000000" points="524.74,-6681.34 535,-6678.71 525.33,-6674.37 524.74,-6681.34"/>
 </g>
-<!-- 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>
+<!-- interface~whm_coord_j2h_pl -->
+<g id="call~~graph~~CallGraph_node109" class="node">
+<title>interface~whm_coord_j2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node109"><a xlink:href=".././interface/whm_coord_j2h_pl.html" xlink:title="whm_coord_j2h_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-6925 45.5,-6925 45.5,-6901 148.5,-6901 148.5,-6925"/>
+<text text-anchor="middle" x="97" y="-6910.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_j2h_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_coord_j2h_pl -->
+<g id="call~~graph~~CallGraph_node545" class="node">
+<title>proc~whm_coord_j2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node545"><a xlink:href=".././proc/whm_coord_j2h_pl.html" xlink:title="whm_coord_j2h_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-6925 275.5,-6925 275.5,-6901 378.5,-6901 378.5,-6925"/>
+<text text-anchor="middle" x="327" y="-6910.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_j2h_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_coord_j2h_pl&#45;&gt;proc~whm_coord_j2h_pl -->
+<g id="call~~graph~~CallGraph_edge121" 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,-6913C183.02,-6913 228.74,-6913 265.14,-6913"/>
+<polygon fill="#000000" stroke="#000000" points="265.15,-6916.5 275.15,-6913 265.15,-6909.5 265.15,-6916.5"/>
 </g>
-<!-- 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>
+<!-- proc~operator_cross_el_i4b -->
+<g id="call~~graph~~CallGraph_node110" class="node">
+<title>proc~operator_cross_el_i4b</title>
+<g id="a_call~~graph~~CallGraph_node110"><a xlink:href=".././proc/operator_cross_el_i4b.html" xlink:title="operator_cross_el_i4b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-6988 37.5,-6988 37.5,-6964 156.5,-6964 156.5,-6988"/>
+<text text-anchor="middle" x="97" y="-6973.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i4b</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~orbel_ehybrid -->
+<g id="call~~graph~~CallGraph_node111" class="node">
+<title>proc~orbel_ehybrid</title>
+<g id="a_call~~graph~~CallGraph_node111"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="878.5,-6114 800.5,-6114 800.5,-6090 878.5,-6090 878.5,-6114"/>
+<text text-anchor="middle" x="839.5" y="-6099.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
+<g id="call~~graph~~CallGraph_edge124" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
+<path fill="none" stroke="#000000" d="M878.7,-6113.57C908.79,-6122.48 951.87,-6134.79 990,-6144 1010.39,-6148.93 1033.24,-6153.65 1052.26,-6157.36"/>
+<polygon fill="#000000" stroke="#000000" points="1051.63,-6160.8 1062.12,-6159.26 1052.96,-6153.93 1051.63,-6160.8"/>
 </g>
-<!-- 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>
+<!-- proc~orbel_esolmd -->
+<g id="call~~graph~~CallGraph_node632" class="node">
+<title>proc~orbel_esolmd</title>
+<g id="a_call~~graph~~CallGraph_node632"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1133,-6135 1056,-6135 1056,-6111 1133,-6111 1133,-6135"/>
+<text text-anchor="middle" x="1094.5" y="-6120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
+<g id="call~~graph~~CallGraph_edge123" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
+<path fill="none" stroke="#000000" d="M878.65,-6105.17C923.28,-6108.87 997.2,-6115.01 1045.64,-6119.03"/>
+<polygon fill="#000000" stroke="#000000" points="1045.61,-6122.54 1055.87,-6119.88 1046.19,-6115.56 1045.61,-6122.54"/>
+</g>
+<!-- proc~orbel_ehie -->
+<g id="call~~graph~~CallGraph_node635" class="node">
+<title>proc~orbel_ehie</title>
+<g id="a_call~~graph~~CallGraph_node635"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1126,-6093 1063,-6093 1063,-6069 1126,-6069 1126,-6093"/>
+<text text-anchor="middle" x="1094.5" y="-6078.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
+<g id="call~~graph~~CallGraph_edge122" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
+<path fill="none" stroke="#000000" d="M878.65,-6098.83C925.59,-6094.94 1004.95,-6088.35 1052.96,-6084.36"/>
+<polygon fill="#000000" stroke="#000000" points="1053.32,-6087.85 1063,-6083.53 1052.74,-6080.87 1053.32,-6087.85"/>
 </g>
-<!-- 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>
+<!-- interface~whm_coord_vh2vj_pl -->
+<g id="call~~graph~~CallGraph_node112" class="node">
+<title>interface~whm_coord_vh2vj_pl</title>
+<g id="a_call~~graph~~CallGraph_node112"><a xlink:href=".././interface/whm_coord_vh2vj_pl.html" xlink:title="whm_coord_vh2vj_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="153.5,-6841 40.5,-6841 40.5,-6817 153.5,-6817 153.5,-6841"/>
+<text text-anchor="middle" x="97" y="-6826.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_vh2vj_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_coord_vh2vj_pl -->
+<g id="call~~graph~~CallGraph_node547" class="node">
+<title>proc~whm_coord_vh2vj_pl</title>
+<g id="a_call~~graph~~CallGraph_node547"><a xlink:href=".././proc/whm_coord_vh2vj_pl.html" xlink:title="whm_coord_vh2vj_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="383.5,-6841 270.5,-6841 270.5,-6817 383.5,-6817 383.5,-6841"/>
+<text text-anchor="middle" x="327" y="-6826.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_vh2vj_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_coord_vh2vj_pl&#45;&gt;proc~whm_coord_vh2vj_pl -->
+<g id="call~~graph~~CallGraph_edge125" 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,-6829C185.91,-6829 226.49,-6829 260.19,-6829"/>
+<polygon fill="#000000" stroke="#000000" points="260.41,-6832.5 270.41,-6829 260.41,-6825.5 260.41,-6832.5"/>
 </g>
-<!-- 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~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>
-<!-- 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>
+<!-- interface~whm_drift_pl -->
+<g id="call~~graph~~CallGraph_node113" class="node">
+<title>interface~whm_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node113"><a xlink:href=".././interface/whm_drift_pl.html" xlink:title="whm_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="611,-650 538,-650 538,-626 611,-626 611,-650"/>
+<text text-anchor="middle" x="574.5" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift_pl</text>
+</a>
 </g>
-<!-- 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>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>
+<!-- proc~whm_drift_pl -->
+<g id="call~~graph~~CallGraph_node604" class="node">
+<title>proc~whm_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node604"><a xlink:href=".././proc/whm_drift_pl.html" xlink:title="whm_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="876,-650 803,-650 803,-626 876,-626 876,-650"/>
+<text text-anchor="middle" x="839.5" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift_pl</text>
 </a>
 </g>
 </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>
-<!-- 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"/>
+<!-- interface~whm_drift_pl&#45;&gt;proc~whm_drift_pl -->
+<g id="call~~graph~~CallGraph_edge126" class="edge">
+<title>interface~whm_drift_pl&#45;&gt;proc~whm_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.24,-638C658.28,-638 741.03,-638 792.63,-638"/>
+<polygon fill="#000000" stroke="#000000" points="792.84,-641.5 802.84,-638 792.84,-634.5 792.84,-641.5"/>
 </g>
-<!-- interface~whm_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node132" class="node">
-<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>
+<!-- proc~rmvs_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node114" class="node">
+<title>proc~rmvs_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node114"><a xlink:href=".././proc/rmvs_kick_getacch_tp.html" xlink:title="rmvs_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-7051 268,-7051 268,-7027 386,-7027 386,-7051"/>
+<text text-anchor="middle" x="327" y="-7036.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node686" class="node">
+<title>whm_kick_getacch_tp</title>
+<polygon fill="#777777" stroke="#777777" points="633.5,-7051 515.5,-7051 515.5,-7027 633.5,-7027 633.5,-7051"/>
+<text text-anchor="middle" x="574.5" y="-7036.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_kick_getacch_tp&#45;&gt;whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge127" class="edge">
+<title>proc~rmvs_kick_getacch_tp&#45;&gt;whm_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" d="M386.18,-7039C421.82,-7039 467.62,-7039 505.01,-7039"/>
+<polygon fill="#000000" stroke="#000000" points="505.31,-7042.5 515.31,-7039 505.31,-7035.5 505.31,-7042.5"/>
 </g>
-<!-- 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>
+<!-- interface~whm_util_index_eucl_plpl -->
+<g id="call~~graph~~CallGraph_node115" class="node">
+<title>interface~whm_util_index_eucl_plpl</title>
+<g id="a_call~~graph~~CallGraph_node115"><a xlink:href=".././interface/whm_util_index_eucl_plpl.html" xlink:title="whm_util_index_eucl_plpl">
+<polygon fill="#a7506f" stroke="#a7506f" points="164,-7093 30,-7093 30,-7069 164,-7069 164,-7093"/>
+<text text-anchor="middle" x="97" y="-7078.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_index_eucl_plpl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~whm_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node116" class="node">
+<title>interface~whm_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node116"><a xlink:href=".././interface/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-7135 38.5,-7135 38.5,-7111 155.5,-7111 155.5,-7135"/>
+<text text-anchor="middle" x="97" y="-7120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_step_pl -->
-<g id="call~~graph~~CallGraph_node135" class="node">
-<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>
+<!-- proc~whm_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node622" class="node">
+<title>proc~whm_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node622"><a xlink:href=".././proc/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-7135 268.5,-7135 268.5,-7111 385.5,-7111 385.5,-7135"/>
+<text text-anchor="middle" x="327" y="-7120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge128" 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,-7123C186.72,-7123 225.45,-7123 258.11,-7123"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-7126.5 268.48,-7123 258.48,-7119.5 258.48,-7126.5"/>
 </g>
-<!-- proc~whm_step_tp -->
-<g id="call~~graph~~CallGraph_node136" class="node">
-<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>
+<!-- interface~whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node117" class="node">
+<title>interface~whm_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node117"><a xlink:href=".././interface/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-7177 38,-7177 38,-7153 156,-7153 156,-7177"/>
+<text text-anchor="middle" x="97" y="-7162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_step_interp_system -->
-<g id="call~~graph~~CallGraph_node137" class="node">
-<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>
+<!-- proc~whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node637" class="node">
+<title>proc~whm_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node637"><a xlink:href=".././proc/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-7177 268,-7177 268,-7153 386,-7153 386,-7177"/>
+<text text-anchor="middle" x="327" y="-7162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_step_system -->
-<g id="call~~graph~~CallGraph_node138" class="node">
-<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>
+<!-- interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge129" 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,-7165C187.08,-7165 225.33,-7165 257.7,-7165"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-7168.5 267.98,-7165 257.98,-7161.5 257.98,-7168.5"/>
 </g>
+<!-- proc~operator_cross_el_i8b -->
+<g id="call~~graph~~CallGraph_node118" class="node">
+<title>proc~operator_cross_el_i8b</title>
+<g id="a_call~~graph~~CallGraph_node118"><a xlink:href=".././proc/operator_cross_el_i8b.html" xlink:title="operator_cross_el_i8b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-7219 37.5,-7219 37.5,-7195 156.5,-7195 156.5,-7219"/>
+<text text-anchor="middle" x="97" y="-7204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i8b</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~drift_kepu_p3solve -->
+<g id="call~~graph~~CallGraph_node119" class="node">
+<title>proc~drift_kepu_p3solve</title>
+<g id="a_call~~graph~~CallGraph_node119"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
+<polygon fill="#d9534f" stroke="#d9534f" points="1391,-6219 1288,-6219 1288,-6195 1391,-6195 1391,-6219"/>
+<text text-anchor="middle" x="1339.5" y="-6204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_kick_vh_pl -->
+<g id="call~~graph~~CallGraph_node120" class="node">
+<title>interface~whm_kick_vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node120"><a xlink:href=".././interface/whm_kick_vh_pl.html" xlink:title="whm_kick_vh_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-7261 51.5,-7261 51.5,-7237 142.5,-7237 142.5,-7261"/>
+<text text-anchor="middle" x="97" y="-7246.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_pl</text>
+</a>
 </g>
-<!-- interface~whm_step_tp -->
-<g id="call~~graph~~CallGraph_node140" class="node">
-<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>
+</g>
+<!-- proc~whm_kick_vh_pl -->
+<g id="call~~graph~~CallGraph_node673" class="node">
+<title>proc~whm_kick_vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node673"><a xlink:href=".././proc/whm_kick_vh_pl.html" xlink:title="whm_kick_vh_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-7261 281.5,-7261 281.5,-7237 372.5,-7237 372.5,-7261"/>
+<text text-anchor="middle" x="327" y="-7246.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_kick_vh_pl&#45;&gt;proc~whm_kick_vh_pl -->
+<g id="call~~graph~~CallGraph_edge130" 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,-7249C179.26,-7249 231.61,-7249 270.99,-7249"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-7252.5 281.22,-7249 271.22,-7245.5 271.22,-7252.5"/>
 </g>
-<!-- interface~whm_util_append_pl -->
-<g id="call~~graph~~CallGraph_node141" class="node">
-<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>
+<!-- interface~whm_kick_vh_tp -->
+<g id="call~~graph~~CallGraph_node121" class="node">
+<title>interface~whm_kick_vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node121"><a xlink:href=".././interface/whm_kick_vh_tp.html" xlink:title="whm_kick_vh_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-7303 51.5,-7303 51.5,-7279 142.5,-7279 142.5,-7303"/>
+<text text-anchor="middle" x="97" y="-7288.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_kick_vh_tp -->
+<g id="call~~graph~~CallGraph_node653" class="node">
+<title>proc~whm_kick_vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node653"><a xlink:href=".././proc/whm_kick_vh_tp.html" xlink:title="whm_kick_vh_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-7303 281.5,-7303 281.5,-7279 372.5,-7279 372.5,-7303"/>
+<text text-anchor="middle" x="327" y="-7288.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_kick_vh_tp&#45;&gt;proc~whm_kick_vh_tp -->
+<g id="call~~graph~~CallGraph_edge131" 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,-7291C179.26,-7291 231.61,-7291 270.99,-7291"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-7294.5 281.22,-7291 271.22,-7287.5 271.22,-7294.5"/>
 </g>
-<!-- interface~whm_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node142" class="node">
-<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>
+<!-- interface~whm_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node122" class="node">
+<title>interface~whm_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node122"><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,-7471 30.5,-7471 30.5,-7447 163.5,-7447 163.5,-7471"/>
+<text text-anchor="middle" x="97" y="-7456.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node544" class="node">
+<title>proc~whm_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node544"><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,-7471 260.5,-7471 260.5,-7447 393.5,-7447 393.5,-7471"/>
+<text text-anchor="middle" x="327" y="-7456.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_pl</text>
 </a>
 </g>
 </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"/>
+<!-- interface~whm_gr_kick_getacch_pl&#45;&gt;proc~whm_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge132" 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,-7459C190.71,-7459 222.24,-7459 250.27,-7459"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-7462.5 260.43,-7459 250.43,-7455.5 250.43,-7462.5"/>
 </g>
-<!-- interface~whm_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node143" class="node">
-<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>
+<!-- interface~whm_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node123" class="node">
+<title>interface~whm_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node123"><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,-7345 30.5,-7345 30.5,-7321 163.5,-7321 163.5,-7345"/>
+<text text-anchor="middle" x="97" y="-7330.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node575" class="node">
+<title>proc~whm_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node575"><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,-7345 260.5,-7345 260.5,-7321 393.5,-7321 393.5,-7345"/>
+<text text-anchor="middle" x="327" y="-7330.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_tp</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"/>
+<!-- interface~whm_gr_kick_getacch_tp&#45;&gt;proc~whm_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge133" 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,-7333C190.71,-7333 222.24,-7333 250.27,-7333"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-7336.5 260.43,-7333 250.43,-7329.5 250.43,-7336.5"/>
 </g>
-<!-- interface~whm_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node144" class="node">
-<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>
+<!-- interface~whm_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node124" class="node">
+<title>interface~whm_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node124"><a xlink:href=".././interface/whm_gr_p4_pl.html" xlink:title="whm_gr_p4_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-7639 55.5,-7639 55.5,-7615 138.5,-7615 138.5,-7639"/>
+<text text-anchor="middle" x="97" y="-7624.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node578" class="node">
+<title>proc~whm_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node578"><a xlink:href=".././proc/whm_gr_p4_pl.html" xlink:title="whm_gr_p4_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-7639 285.5,-7639 285.5,-7615 368.5,-7615 368.5,-7639"/>
+<text text-anchor="middle" x="327" y="-7624.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_gr_p4_pl&#45;&gt;proc~whm_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_edge134" 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,-7627C176.9,-7627 234.01,-7627 275.12,-7627"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-7630.5 285.21,-7627 275.21,-7623.5 275.21,-7630.5"/>
 </g>
-<!-- proc~symba_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node145" class="node">
-<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>
+<!-- proc~rmvs_io_write_encounter -->
+<g id="call~~graph~~CallGraph_node125" class="node">
+<title>proc~rmvs_io_write_encounter</title>
+<g id="a_call~~graph~~CallGraph_node125"><a xlink:href=".././proc/rmvs_io_write_encounter.html" xlink:title="rmvs_io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="906,-1310 773,-1310 773,-1286 906,-1286 906,-1310"/>
+<text text-anchor="middle" x="839.5" y="-1295.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- io_write_frame_encounter -->
+<g id="call~~graph~~CallGraph_node711" class="node">
+<title>io_write_frame_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="1163,-1258 1026,-1258 1026,-1234 1163,-1234 1163,-1258"/>
+<text text-anchor="middle" x="1094.5" y="-1243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_io_write_encounter&#45;&gt;io_write_frame_encounter -->
+<g id="call~~graph~~CallGraph_edge135" class="edge">
+<title>proc~rmvs_io_write_encounter&#45;&gt;io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" d="M906.12,-1286.87C921.86,-1283.93 938.57,-1280.56 954,-1277 970.18,-1273.26 973.85,-1270.88 990,-1267 999.93,-1264.62 1010.44,-1262.28 1020.8,-1260.07"/>
+<polygon fill="#000000" stroke="#000000" points="1021.6,-1263.48 1030.67,-1258.01 1020.17,-1256.63 1021.6,-1263.48"/>
 </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>
+<!-- proc~rmvs_io_write_encounter&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge136" class="edge">
+<title>proc~rmvs_io_write_encounter&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M906.06,-1298.72C923.6,-1295.76 941.21,-1289.43 954,-1277 1008.75,-1223.77 940.91,-1167.49 990,-1109 1006.86,-1088.91 1034.81,-1078.32 1057.41,-1072.8"/>
+<polygon fill="#000000" stroke="#000000" points="1058.35,-1076.18 1067.36,-1070.61 1056.84,-1069.35 1058.35,-1076.18"/>
+</g>
+<!-- interface~whm_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node126" class="node">
+<title>interface~whm_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node126"><a xlink:href=".././interface/whm_gr_p4_tp.html" xlink:title="whm_gr_p4_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="139,-7513 55,-7513 55,-7489 139,-7489 139,-7513"/>
+<text text-anchor="middle" x="97" y="-7498.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node589" class="node">
+<title>proc~whm_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node589"><a xlink:href=".././proc/whm_gr_p4_tp.html" xlink:title="whm_gr_p4_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="369,-7513 285,-7513 285,-7489 369,-7489 369,-7513"/>
+<text text-anchor="middle" x="327" y="-7498.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_gr_p4_tp&#45;&gt;proc~whm_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_edge137" 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,-7501C177.08,-7501 233.86,-7501 274.86,-7501"/>
+<polygon fill="#000000" stroke="#000000" points="274.92,-7504.5 284.92,-7501 274.92,-7497.5 274.92,-7504.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>
+<!-- interface~whm_setup_pl -->
+<g id="call~~graph~~CallGraph_node127" class="node">
+<title>interface~whm_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node127"><a xlink:href=".././interface/whm_setup_pl.html" xlink:title="whm_setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="615.5,-4872 533.5,-4872 533.5,-4848 615.5,-4848 615.5,-4872"/>
+<text text-anchor="middle" x="574.5" y="-4857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_set_mu_eta_pl -->
-<g id="call~~graph~~CallGraph_node148" class="node">
-<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>
+<!-- proc~whm_setup_pl -->
+<g id="call~~graph~~CallGraph_node268" class="node">
+<title>proc~whm_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node268"><a xlink:href=".././proc/whm_setup_pl.html" xlink:title="whm_setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="880.5,-4872 798.5,-4872 798.5,-4848 880.5,-4848 880.5,-4872"/>
+<text text-anchor="middle" x="839.5" y="-4857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~whm_setup_pl&#45;&gt;proc~whm_setup_pl -->
+<g id="call~~graph~~CallGraph_edge138" class="edge">
+<title>interface~whm_setup_pl&#45;&gt;proc~whm_setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.73,-4860C661.94,-4860 737.83,-4860 787.98,-4860"/>
+<polygon fill="#000000" stroke="#000000" points="788.27,-4863.5 798.27,-4860 788.27,-4856.5 788.27,-4863.5"/>
+</g>
+<!-- proc~io_read_in_particle_info -->
+<g id="call~~graph~~CallGraph_node128" class="node">
+<title>proc~io_read_in_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node128"><a xlink:href=".././proc/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="903,-3028 776,-3028 776,-3004 903,-3004 903,-3028"/>
+<text text-anchor="middle" x="839.5" y="-3013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_particle_info</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_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"/>
+<!-- proc~io_read_in_particle_info&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge139" class="edge">
+<title>proc~io_read_in_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M903.26,-3011.55C920.45,-3008.46 938.59,-3003.36 954,-2995 1010.85,-2964.14 1057.99,-2901.79 1080.05,-2869.09"/>
+<polygon fill="#000000" stroke="#000000" points="1083.24,-2870.61 1085.84,-2860.34 1077.4,-2866.75 1083.24,-2870.61"/>
 </g>
-<!-- interface~whm_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node149" class="node">
-<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>
+<!-- interface~whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node129" class="node">
+<title>interface~whm_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node129"><a xlink:href=".././interface/whm_setup_initialize_system.html" xlink:title="whm_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-7681 21.5,-7681 21.5,-7657 172.5,-7657 172.5,-7681"/>
+<text text-anchor="middle" x="97" y="-7666.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node270" class="node">
+<title>proc~whm_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node270"><a xlink:href=".././proc/whm_setup_initialize_system.html" xlink:title="whm_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-7681 251.5,-7681 251.5,-7657 402.5,-7657 402.5,-7681"/>
+<text text-anchor="middle" x="327" y="-7666.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_setup_initialize_system&#45;&gt;proc~whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge140" 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,-7669C194.5,-7669 218.55,-7669 240.99,-7669"/>
+<polygon fill="#000000" stroke="#000000" points="241.18,-7672.5 251.18,-7669 241.18,-7665.5 241.18,-7672.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>
+<!-- interface~whm_step_pl -->
+<g id="call~~graph~~CallGraph_node130" class="node">
+<title>interface~whm_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node130"><a xlink:href=".././interface/whm_step_pl.html" xlink:title="whm_step_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-7723 59,-7723 59,-7699 135,-7699 135,-7723"/>
+<text text-anchor="middle" x="97" y="-7708.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_step_pl -->
+<g id="call~~graph~~CallGraph_node606" class="node">
+<title>proc~whm_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node606"><a xlink:href=".././proc/whm_step_pl.html" xlink:title="whm_step_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-7723 289,-7723 289,-7699 365,-7699 365,-7723"/>
+<text text-anchor="middle" x="327" y="-7708.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_step_pl&#45;&gt;proc~whm_step_pl -->
+<g id="call~~graph~~CallGraph_edge141" 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,-7711C174.31,-7711 236.14,-7711 278.75,-7711"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-7714.5 288.88,-7711 278.88,-7707.5 278.88,-7714.5"/>
 </g>
-<!-- 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>
+<!-- interface~whm_step_system -->
+<g id="call~~graph~~CallGraph_node131" class="node">
+<title>interface~whm_step_system</title>
+<g id="a_call~~graph~~CallGraph_node131"><a xlink:href=".././interface/whm_step_system.html" xlink:title="whm_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-7765 46.5,-7765 46.5,-7741 147.5,-7741 147.5,-7765"/>
+<text text-anchor="middle" x="97" y="-7750.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~whm_step_system -->
+<g id="call~~graph~~CallGraph_node595" class="node">
+<title>proc~whm_step_system</title>
+<g id="a_call~~graph~~CallGraph_node595"><a xlink:href=".././proc/whm_step_system.html" xlink:title="whm_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="377.5,-7765 276.5,-7765 276.5,-7741 377.5,-7741 377.5,-7765"/>
+<text text-anchor="middle" x="327" y="-7750.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~whm_step_system&#45;&gt;proc~whm_step_system -->
+<g id="call~~graph~~CallGraph_edge142" 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,-7753C182.61,-7753 229.35,-7753 266.23,-7753"/>
+<polygon fill="#000000" stroke="#000000" points="266.35,-7756.5 276.35,-7753 266.35,-7749.5 266.35,-7756.5"/>
 </g>
-<!-- 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>
+<!-- interface~whm_step_tp -->
+<g id="call~~graph~~CallGraph_node132" class="node">
+<title>interface~whm_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node132"><a xlink:href=".././interface/whm_step_tp.html" xlink:title="whm_step_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-7807 59,-7807 59,-7783 135,-7783 135,-7807"/>
+<text text-anchor="middle" x="97" y="-7792.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_tp</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~whm_step_tp -->
+<g id="call~~graph~~CallGraph_node607" class="node">
+<title>proc~whm_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node607"><a xlink:href=".././proc/whm_step_tp.html" xlink:title="whm_step_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-7807 289,-7807 289,-7783 365,-7783 365,-7807"/>
+<text text-anchor="middle" x="327" y="-7792.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_tp</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~whm_step_tp&#45;&gt;proc~whm_step_tp -->
+<g id="call~~graph~~CallGraph_edge143" 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,-7795C174.31,-7795 236.14,-7795 278.75,-7795"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-7798.5 288.88,-7795 278.88,-7791.5 278.88,-7798.5"/>
 </g>
-<!-- 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>
+<!-- proc~orbel_fhybrid -->
+<g id="call~~graph~~CallGraph_node133" class="node">
+<title>proc~orbel_fhybrid</title>
+<g id="a_call~~graph~~CallGraph_node133"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="877,-5992 802,-5992 802,-5968 877,-5968 877,-5992"/>
+<text text-anchor="middle" x="839.5" y="-5977.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
-<!-- 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~whm_kick_getacch_ah1 -->
-<g id="call~~graph~~CallGraph_node158" class="node">
-<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>
+<!-- proc~orbel_flon -->
+<g id="call~~graph~~CallGraph_node601" class="node">
+<title>proc~orbel_flon</title>
+<g id="a_call~~graph~~CallGraph_node601"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1124.5,-6013 1064.5,-6013 1064.5,-5989 1124.5,-5989 1124.5,-6013"/>
+<text text-anchor="middle" x="1094.5" y="-5998.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<g id="call~~graph~~CallGraph_edge144" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
+<path fill="none" stroke="#000000" d="M877.02,-5983.03C924.19,-5986.95 1005.97,-5993.73 1054.38,-5997.75"/>
+<polygon fill="#000000" stroke="#000000" points="1054.21,-6001.25 1064.47,-5998.59 1054.79,-5994.27 1054.21,-6001.25"/>
 </g>
-<!-- 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>
+<!-- proc~orbel_fget -->
+<g id="call~~graph~~CallGraph_node602" class="node">
+<title>proc~orbel_fget</title>
+<g id="a_call~~graph~~CallGraph_node602"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1125,-5971 1064,-5971 1064,-5947 1125,-5947 1125,-5971"/>
+<text text-anchor="middle" x="1094.5" y="-5956.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
+<g id="call~~graph~~CallGraph_edge145" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M877.02,-5976.97C923.93,-5973.07 1005.09,-5966.34 1053.59,-5962.31"/>
+<polygon fill="#000000" stroke="#000000" points="1054.03,-5965.79 1063.71,-5961.47 1053.46,-5958.81 1054.03,-5965.79"/>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_node134" class="node">
+<title>interface~whm_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node134"><a xlink:href=".././interface/whm_util_append_pl.html" xlink:title="whm_util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="630,-1104 519,-1104 519,-1080 630,-1080 630,-1104"/>
+<text text-anchor="middle" x="574.5" y="-1089.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- proc~whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_node273" class="node">
+<title>proc~whm_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node273"><a xlink:href=".././proc/whm_util_append_pl.html" xlink:title="whm_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="895,-1100 784,-1100 784,-1076 895,-1076 895,-1100"/>
+<text text-anchor="middle" x="839.5" y="-1085.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casedisruption -->
-<g id="call~~graph~~CallGraph_node159" class="node">
-<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>
+<!-- interface~whm_util_append_pl&#45;&gt;proc~whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge146" 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="M630.31,-1091.17C672.07,-1090.53 729.69,-1089.65 773.73,-1088.99"/>
+<polygon fill="#000000" stroke="#000000" points="773.81,-1092.48 783.76,-1088.83 773.71,-1085.49 773.81,-1092.48"/>
+</g>
+<!-- interface~whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node135" class="node">
+<title>interface~whm_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node135"><a xlink:href=".././interface/whm_util_spill_pl.html" xlink:title="whm_util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="621,-1520 528,-1520 528,-1496 621,-1496 621,-1520"/>
+<text text-anchor="middle" x="574.5" y="-1505.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node279" class="node">
+<title>proc~whm_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node279"><a xlink:href=".././proc/whm_util_spill_pl.html" xlink:title="whm_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="886,-1520 793,-1520 793,-1496 886,-1496 886,-1520"/>
+<text text-anchor="middle" x="839.5" y="-1505.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_spill_pl&#45;&gt;proc~whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge147" 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="M621.01,-1508C665.8,-1508 734.29,-1508 782.42,-1508"/>
+<polygon fill="#000000" stroke="#000000" points="782.66,-1511.5 792.66,-1508 782.66,-1504.5 782.66,-1511.5"/>
 </g>
-<!-- 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>
+<!-- interface~whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node136" class="node">
+<title>interface~whm_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node136"><a xlink:href=".././interface/whm_util_fill_pl.html" xlink:title="whm_util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="617,-818 532,-818 532,-794 617,-794 617,-818"/>
+<text text-anchor="middle" x="574.5" y="-803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+</a>
 </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>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>
+<!-- proc~whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node275" class="node">
+<title>proc~whm_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node275"><a xlink:href=".././proc/whm_util_fill_pl.html" xlink:title="whm_util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="882,-818 797,-818 797,-794 882,-794 882,-818"/>
+<text text-anchor="middle" x="839.5" y="-803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_fill_pl&#45;&gt;proc~whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge148" 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="M617.17,-806C663.01,-806 736.75,-806 786.38,-806"/>
+<polygon fill="#000000" stroke="#000000" points="786.59,-809.5 796.59,-806 786.59,-802.5 786.59,-809.5"/>
 </g>
-<!-- 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>
+<!-- interface~whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node137" class="node">
+<title>interface~whm_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node137"><a xlink:href=".././interface/whm_util_resize_pl.html" xlink:title="whm_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="626,-5292 523,-5292 523,-5268 626,-5268 626,-5292"/>
+<text text-anchor="middle" x="574.5" y="-5277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node274" class="node">
+<title>proc~whm_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node274"><a xlink:href=".././proc/whm_util_resize_pl.html" xlink:title="whm_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="891,-5292 788,-5292 788,-5268 891,-5268 891,-5292"/>
+<text text-anchor="middle" x="839.5" y="-5277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_resize_pl&#45;&gt;proc~whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge149" 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="M626.21,-5280C669.51,-5280 731.88,-5280 777.82,-5280"/>
+<polygon fill="#000000" stroke="#000000" points="777.95,-5283.5 787.95,-5280 777.95,-5276.5 777.95,-5283.5"/>
 </g>
-<!-- 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"/>
+<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_edge150" class="edge">
+<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M1137.27,-6291C1176.22,-6291 1234.73,-6291 1278.63,-6291"/>
+<polygon fill="#000000" stroke="#000000" points="1278.89,-6294.5 1288.89,-6291 1278.89,-6287.5 1278.89,-6294.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>
+<!-- interface~whm_util_set_ir3j -->
+<g id="call~~graph~~CallGraph_node139" class="node">
+<title>interface~whm_util_set_ir3j</title>
+<g id="a_call~~graph~~CallGraph_node139"><a xlink:href=".././interface/whm_util_set_ir3j.html" xlink:title="whm_util_set_ir3j">
+<polygon fill="#a7506f" stroke="#a7506f" points="144.5,-7849 49.5,-7849 49.5,-7825 144.5,-7825 144.5,-7849"/>
+<text text-anchor="middle" x="97" y="-7834.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_ir3j</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_util_set_ir3j -->
+<g id="call~~graph~~CallGraph_node277" class="node">
+<title>proc~whm_util_set_ir3j</title>
+<g id="a_call~~graph~~CallGraph_node277"><a xlink:href=".././proc/whm_util_set_ir3j.html" xlink:title="whm_util_set_ir3j">
+<polygon fill="#d9534f" stroke="#d9534f" points="374.5,-7849 279.5,-7849 279.5,-7825 374.5,-7825 374.5,-7849"/>
+<text text-anchor="middle" x="327" y="-7834.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_ir3j</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_set_ir3j&#45;&gt;proc~whm_util_set_ir3j -->
+<g id="call~~graph~~CallGraph_edge151" 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,-7837C180.65,-7837 230.54,-7837 268.89,-7837"/>
+<polygon fill="#000000" stroke="#000000" points="269.37,-7840.5 279.37,-7837 269.37,-7833.5 269.37,-7840.5"/>
 </g>
-<!-- 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>
+<!-- proc~io_read_frame_cb -->
+<g id="call~~graph~~CallGraph_node140" class="node">
+<title>proc~io_read_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node140"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="889.5,-2986 789.5,-2986 789.5,-2962 889.5,-2962 889.5,-2986"/>
+<text text-anchor="middle" x="839.5" y="-2971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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="M889.73,-2969.91C910.24,-2966.95 933.91,-2961.83 954,-2953 1002.08,-2931.87 1048.97,-2891.25 1074.27,-2867.2"/>
+<polygon fill="#000000" stroke="#000000" points="1076.94,-2869.48 1081.69,-2860.02 1072.07,-2864.45 1076.94,-2869.48"/>
 </g>
-<!-- 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>
+<!-- interface~whm_util_set_mu_eta_pl -->
+<g id="call~~graph~~CallGraph_node141" class="node">
+<title>interface~whm_util_set_mu_eta_pl</title>
+<g id="a_call~~graph~~CallGraph_node141"><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,-7891 31.5,-7891 31.5,-7867 162.5,-7867 162.5,-7891"/>
+<text text-anchor="middle" x="97" y="-7876.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_mu_eta_pl</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- proc~whm_util_set_mu_eta_pl -->
+<g id="call~~graph~~CallGraph_node271" class="node">
+<title>proc~whm_util_set_mu_eta_pl</title>
+<g id="a_call~~graph~~CallGraph_node271"><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,-7891 261.5,-7891 261.5,-7867 392.5,-7867 392.5,-7891"/>
+<text text-anchor="middle" x="327" y="-7876.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_mu_eta_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~whm_util_set_mu_eta_pl&#45;&gt;proc~whm_util_set_mu_eta_pl -->
+<g id="call~~graph~~CallGraph_edge153" 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,-7879C190.16,-7879 222.32,-7879 250.8,-7879"/>
+<polygon fill="#000000" stroke="#000000" points="251.11,-7882.5 261.11,-7879 251.11,-7875.5 251.11,-7882.5"/>
+</g>
+<!-- proc~rmvs_setup_pl -->
+<g id="call~~graph~~CallGraph_node142" class="node">
+<title>proc~rmvs_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node142"><a xlink:href=".././proc/rmvs_setup_pl.html" xlink:title="rmvs_setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-7933 286,-7933 286,-7909 368,-7909 368,-7933"/>
+<text text-anchor="middle" x="327" y="-7918.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- whm_setup_pl -->
+<g id="call~~graph~~CallGraph_node687" class="node">
+<title>whm_setup_pl</title>
+<polygon fill="#777777" stroke="#777777" points="615.5,-7933 533.5,-7933 533.5,-7909 615.5,-7909 615.5,-7933"/>
+<text text-anchor="middle" x="574.5" y="-7918.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_setup_pl&#45;&gt;whm_setup_pl -->
+<g id="call~~graph~~CallGraph_edge154" class="edge">
+<title>proc~rmvs_setup_pl&#45;&gt;whm_setup_pl</title>
+<path fill="none" stroke="#000000" d="M368.26,-7921C410.63,-7921 477.4,-7921 523.2,-7921"/>
+<polygon fill="#000000" stroke="#000000" points="523.21,-7924.5 533.21,-7921 523.21,-7917.5 523.21,-7924.5"/>
+</g>
+<!-- interface~whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node143" class="node">
+<title>interface~whm_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node143"><a xlink:href=".././interface/whm_util_sort_pl.html" xlink:title="whm_util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="143.5,-5530 50.5,-5530 50.5,-5506 143.5,-5506 143.5,-5530"/>
+<text text-anchor="middle" x="97" y="-5515.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node278" class="node">
+<title>proc~whm_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node278"><a xlink:href=".././proc/whm_util_sort_pl.html" xlink:title="whm_util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="373.5,-5530 280.5,-5530 280.5,-5506 373.5,-5506 373.5,-5530"/>
+<text text-anchor="middle" x="327" y="-5515.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_sort_pl&#45;&gt;proc~whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge155" 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,-5518C180.09,-5518 231.45,-5518 270.37,-5518"/>
+<polygon fill="#000000" stroke="#000000" points="270.49,-5521.5 280.49,-5518 270.49,-5514.5 270.49,-5521.5"/>
 </g>
-<!-- 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>
+<!-- proc~operator_mag_sp -->
+<g id="call~~graph~~CallGraph_node144" class="node">
+<title>proc~operator_mag_sp</title>
+<g id="a_call~~graph~~CallGraph_node144"><a xlink:href=".././proc/operator_mag_sp.html" xlink:title="operator_mag_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="145.5,-7975 48.5,-7975 48.5,-7951 145.5,-7951 145.5,-7975"/>
+<text text-anchor="middle" x="97" y="-7960.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_sp</text>
 </a>
 </g>
 </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>
-<!-- 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>
+<!-- interface~whm_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node145" class="node">
+<title>interface~whm_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node145"><a xlink:href=".././interface/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="170,-4074 24,-4074 24,-4050 170,-4050 170,-4074"/>
+<text text-anchor="middle" x="97" y="-4059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~whm_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node276" class="node">
+<title>proc~whm_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node276"><a xlink:href=".././proc/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="400,-4074 254,-4074 254,-4050 400,-4050 400,-4074"/>
+<text text-anchor="middle" x="327" y="-4059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~whm_util_sort_rearrange_pl&#45;&gt;proc~whm_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge156" 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,-4062C193.54,-4062 219.68,-4062 243.76,-4062"/>
+<polygon fill="#000000" stroke="#000000" points="243.94,-4065.5 253.94,-4062 243.94,-4058.5 243.94,-4065.5"/>
 </g>
-<!-- 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>
+<!-- proc~util_append_arr_dp -->
+<g id="call~~graph~~CallGraph_node146" class="node">
+<title>proc~util_append_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node146"><a xlink:href=".././proc/util_append_arr_dp.html" xlink:title="util_append_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="893.5,-6568 785.5,-6568 785.5,-6544 893.5,-6544 893.5,-6568"/>
+<text text-anchor="middle" x="839.5" y="-6553.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_append_arr_dp&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge157" class="edge">
+<title>proc~util_append_arr_dp&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M893.7,-6548.88C912.94,-6545.6 934.69,-6541.05 954,-6535 992.34,-6522.99 1034.04,-6503.2 1061.77,-6489"/>
+<polygon fill="#000000" stroke="#000000" points="1063.7,-6491.94 1070.97,-6484.23 1060.48,-6485.73 1063.7,-6491.94"/>
+</g>
+<!-- proc~util_append_arr_i4b -->
+<g id="call~~graph~~CallGraph_node148" class="node">
+<title>proc~util_append_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node148"><a xlink:href=".././proc/util_append_arr_i4b.html" xlink:title="util_append_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="894,-6526 785,-6526 785,-6502 894,-6502 894,-6526"/>
+<text text-anchor="middle" x="839.5" y="-6511.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge158" class="edge">
+<title>proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M894.15,-6505.09C941.99,-6497.15 1010.92,-6485.71 1053.91,-6478.57"/>
+<polygon fill="#000000" stroke="#000000" points="1054.7,-6481.99 1063.99,-6476.9 1053.55,-6475.08 1054.7,-6481.99"/>
 </g>
-<!-- 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>
+<!-- proc~operator_mag_el_qp -->
+<g id="call~~graph~~CallGraph_node149" class="node">
+<title>proc~operator_mag_el_qp</title>
+<g id="a_call~~graph~~CallGraph_node149"><a xlink:href=".././proc/operator_mag_el_qp.html" xlink:title="operator_mag_el_qp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-8017 41,-8017 41,-7993 153,-7993 153,-8017"/>
+<text text-anchor="middle" x="97" y="-8002.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_qp</text>
 </a>
 </g>
 </g>
-<!-- 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_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>
+<!-- proc~operator_mag_dp -->
+<g id="call~~graph~~CallGraph_node150" class="node">
+<title>proc~operator_mag_dp</title>
+<g id="a_call~~graph~~CallGraph_node150"><a xlink:href=".././proc/operator_mag_dp.html" xlink:title="operator_mag_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-8059 48,-8059 48,-8035 146,-8035 146,-8059"/>
+<text text-anchor="middle" x="97" y="-8044.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_dp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~operator_mag_el_sp -->
+<g id="call~~graph~~CallGraph_node151" class="node">
+<title>proc~operator_mag_el_sp</title>
+<g id="a_call~~graph~~CallGraph_node151"><a xlink:href=".././proc/operator_mag_el_sp.html" xlink:title="operator_mag_el_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-8101 41,-8101 41,-8077 153,-8077 153,-8101"/>
+<text text-anchor="middle" x="97" y="-8086.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_sp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_node152" class="node">
+<title>proc~orbel_xv2aeq</title>
+<g id="a_call~~graph~~CallGraph_node152"><a xlink:href=".././proc/orbel_xv2aeq.html" xlink:title="orbel_xv2aeq">
+<polygon fill="#d9534f" stroke="#d9534f" points="878,-8143 801,-8143 801,-8119 878,-8119 878,-8143"/>
+<text text-anchor="middle" x="839.5" y="-8128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~operator_mag_el_dp -->
+<g id="call~~graph~~CallGraph_node153" class="node">
+<title>proc~operator_mag_el_dp</title>
+<g id="a_call~~graph~~CallGraph_node153"><a xlink:href=".././proc/operator_mag_el_dp.html" xlink:title="operator_mag_el_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-8185 41,-8185 41,-8161 153,-8161 153,-8185"/>
+<text text-anchor="middle" x="97" y="-8170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_dp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_append_arr_info -->
+<g id="call~~graph~~CallGraph_node154" class="node">
+<title>proc~util_append_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node154"><a xlink:href=".././proc/util_append_arr_info.html" xlink:title="util_append_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="895,-6484 784,-6484 784,-6460 895,-6460 895,-6484"/>
+<text text-anchor="middle" x="839.5" y="-6469.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_info</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_append_arr_info&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge159" class="edge">
+<title>proc~util_append_arr_info&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M895.09,-6472C942.86,-6472 1011.13,-6472 1053.85,-6472"/>
+<polygon fill="#000000" stroke="#000000" points="1053.87,-6475.5 1063.87,-6472 1053.87,-6468.5 1053.87,-6475.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="call~~graph~~CallGraph_edge160" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.67,-1846.28C939.59,-1847.53 982.97,-1849.07 1019.34,-1850.36"/>
+<polygon fill="#000000" stroke="#000000" points="1019.28,-1853.86 1029.4,-1850.72 1019.53,-1846.87 1019.28,-1853.86"/>
 </g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="call~~graph~~CallGraph_node156" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_call~~graph~~CallGraph_node156"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="171,-1873 23,-1873 23,-1849 171,-1849 171,-1873"/>
+<text text-anchor="middle" x="97" y="-1858.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~fraggle_generate_fragments -->
+<g id="call~~graph~~CallGraph_node250" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_call~~graph~~CallGraph_node250"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="401,-1873 253,-1873 253,-1849 401,-1849 401,-1873"/>
+<text text-anchor="middle" x="327" y="-1858.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="call~~graph~~CallGraph_edge161" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171.08,-1861C193.89,-1861 219.21,-1861 242.67,-1861"/>
+<polygon fill="#000000" stroke="#000000" points="242.94,-1864.5 252.94,-1861 242.94,-1857.5 242.94,-1864.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_io_log_generate -->
+<g id="call~~graph~~CallGraph_node157" class="node">
+<title>interface~fraggle_io_log_generate</title>
+<g id="a_call~~graph~~CallGraph_node157"><a xlink:href=".././interface/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#a7506f" stroke="#a7506f" points="639,-1978 510,-1978 510,-1954 639,-1954 639,-1978"/>
+<text text-anchor="middle" x="574.5" y="-1963.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~fraggle_io_log_generate -->
+<g id="call~~graph~~CallGraph_node220" class="node">
+<title>proc~fraggle_io_log_generate</title>
+<g id="a_call~~graph~~CallGraph_node220"><a xlink:href=".././proc/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#d9534f" stroke="#d9534f" points="904,-1978 775,-1978 775,-1954 904,-1954 904,-1978"/>
+<text text-anchor="middle" x="839.5" y="-1963.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate -->
+<g id="call~~graph~~CallGraph_edge162" class="edge">
+<title>interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.16,-1966C677.06,-1966 725.32,-1966 764.85,-1966"/>
+<polygon fill="#000000" stroke="#000000" points="764.97,-1969.5 774.97,-1966 764.97,-1962.5 764.97,-1969.5"/>
 </g>
-<!-- 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>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_node236" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_call~~graph~~CallGraph_node236"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="1171.5,-1772 1017.5,-1772 1017.5,-1748 1171.5,-1748 1171.5,-1772"/>
+<text text-anchor="middle" x="1094.5" y="-1757.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge163" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.75,-1760C945.25,-1760 977.82,-1760 1007.17,-1760"/>
+<polygon fill="#000000" stroke="#000000" points="1007.4,-1763.5 1017.4,-1760 1007.4,-1756.5 1007.4,-1763.5"/>
 </g>
-<!-- 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>
+<!-- proc~orbel_xv2aqt -->
+<g id="call~~graph~~CallGraph_node159" class="node">
+<title>proc~orbel_xv2aqt</title>
+<g id="a_call~~graph~~CallGraph_node159"><a xlink:href=".././proc/orbel_xv2aqt.html" xlink:title="orbel_xv2aqt">
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-8227 290,-8227 290,-8203 364,-8203 364,-8227"/>
+<text text-anchor="middle" x="327" y="-8212.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aqt</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~fraggle_io_log_pl -->
+<g id="call~~graph~~CallGraph_node160" class="node">
+<title>interface~fraggle_io_log_pl</title>
+<g id="a_call~~graph~~CallGraph_node160"><a xlink:href=".././interface/fraggle_io_log_pl.html" xlink:title="fraggle_io_log_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-8269 50,-8269 50,-8245 144,-8245 144,-8269"/>
+<text text-anchor="middle" x="97" y="-8254.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_io_log_pl -->
+<g id="call~~graph~~CallGraph_node238" class="node">
+<title>proc~fraggle_io_log_pl</title>
+<g id="a_call~~graph~~CallGraph_node238"><a xlink:href=".././proc/fraggle_io_log_pl.html" xlink:title="fraggle_io_log_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-8269 280,-8269 280,-8245 374,-8245 374,-8269"/>
+<text text-anchor="middle" x="327" y="-8254.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_io_log_pl&#45;&gt;proc~fraggle_io_log_pl -->
+<g id="call~~graph~~CallGraph_edge164" class="edge">
+<title>interface~fraggle_io_log_pl&#45;&gt;proc~fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-8257C180.45,-8257 231.21,-8257 269.87,-8257"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-8260.5 279.93,-8257 269.93,-8253.5 269.93,-8260.5"/>
 </g>
-<!-- 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>
+<!-- proc~io_read_frame_system -->
+<g id="call~~graph~~CallGraph_node161" class="node">
+<title>proc~io_read_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node161"><a xlink:href=".././proc/io_read_frame_system.html" xlink:title="io_read_frame_system">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="388,-8311 266,-8311 266,-8287 388,-8287 388,-8311"/>
+<text text-anchor="middle" x="327" y="-8296.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~io_read_hdr -->
+<g id="call~~graph~~CallGraph_node176" class="node">
+<title>proc~io_read_hdr</title>
+<g id="a_call~~graph~~CallGraph_node176"><a xlink:href=".././proc/io_read_hdr.html" xlink:title="io_read_hdr">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="609.5,-8311 539.5,-8311 539.5,-8287 609.5,-8287 609.5,-8311"/>
+<text text-anchor="middle" x="574.5" y="-8296.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_hdr</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- proc~io_read_frame_system&#45;&gt;proc~io_read_hdr -->
+<g id="call~~graph~~CallGraph_edge165" class="edge">
+<title>proc~io_read_frame_system&#45;&gt;proc~io_read_hdr</title>
+<path fill="none" stroke="#000000" d="M388.06,-8299C431.71,-8299 489.82,-8299 529.28,-8299"/>
+<polygon fill="#000000" stroke="#000000" points="529.39,-8302.5 539.39,-8299 529.39,-8295.5 529.39,-8302.5"/>
 </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>
+<!-- proc~rmvs_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node162" class="node">
+<title>proc~rmvs_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node162"><a xlink:href=".././proc/rmvs_setup_initialize_system.html" xlink:title="rmvs_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-8353 251.5,-8353 251.5,-8329 402.5,-8329 402.5,-8353"/>
+<text text-anchor="middle" x="327" y="-8338.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node767" class="node">
+<title>whm_setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="650,-8374 499,-8374 499,-8350 650,-8350 650,-8374"/>
+<text text-anchor="middle" x="574.5" y="-8359.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </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>
+<!-- proc~rmvs_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge166" class="edge">
+<title>proc~rmvs_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M402.66,-8347.39C429.8,-8349.71 460.66,-8352.35 488.62,-8354.74"/>
+<polygon fill="#000000" stroke="#000000" points="488.51,-8358.24 498.77,-8355.61 489.11,-8351.27 488.51,-8358.24"/>
+</g>
+<!-- proc~fraggle_io_log_regime -->
+<g id="call~~graph~~CallGraph_node239" class="node">
+<title>proc~fraggle_io_log_regime</title>
+<g id="a_call~~graph~~CallGraph_node239"><a xlink:href=".././proc/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#d9534f" stroke="#d9534f" points="899,-5208 780,-5208 780,-5184 899,-5184 899,-5208"/>
+<text text-anchor="middle" x="839.5" y="-5193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime -->
+<g id="call~~graph~~CallGraph_edge167" class="edge">
+<title>interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M634.19,-5196C674.33,-5196 727.69,-5196 769.81,-5196"/>
+<polygon fill="#000000" stroke="#000000" points="769.98,-5199.5 779.98,-5196 769.98,-5192.5 769.98,-5199.5"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_setup_tp -->
+<g id="call~~graph~~CallGraph_node164" class="node">
+<title>proc~rmvs_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node164"><a xlink:href=".././proc/rmvs_setup_tp.html" xlink:title="rmvs_setup_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-4998 285.5,-4998 285.5,-4974 368.5,-4974 368.5,-4998"/>
+<text text-anchor="middle" x="327" y="-4983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- setup_tp -->
+<g id="call~~graph~~CallGraph_node735" class="node">
+<title>setup_tp</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-5019 547.5,-5019 547.5,-4995 601.5,-4995 601.5,-5019"/>
+<text text-anchor="middle" x="574.5" y="-5004.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_setup_tp&#45;&gt;setup_tp -->
+<g id="call~~graph~~CallGraph_edge168" class="edge">
+<title>proc~rmvs_setup_tp&#45;&gt;setup_tp</title>
+<path fill="none" stroke="#000000" d="M368.54,-4989.47C415.44,-4993.48 491.98,-5000.03 537.07,-5003.88"/>
+<polygon fill="#000000" stroke="#000000" points="537.01,-5007.39 547.27,-5004.76 537.61,-5000.42 537.01,-5007.39"/>
 </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>
+<!-- interface~fraggle_io_log_start -->
+<g id="call~~graph~~CallGraph_node165" class="node">
+<title>interface~fraggle_io_log_start</title>
+<g id="a_call~~graph~~CallGraph_node165"><a xlink:href=".././interface/fraggle_io_log_start.html" xlink:title="fraggle_io_log_start">
+<polygon fill="#a7506f" stroke="#a7506f" points="150.5,-8437 43.5,-8437 43.5,-8413 150.5,-8413 150.5,-8437"/>
+<text text-anchor="middle" x="97" y="-8422.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_io_log_start -->
+<g id="call~~graph~~CallGraph_node244" class="node">
+<title>proc~fraggle_io_log_start</title>
+<g id="a_call~~graph~~CallGraph_node244"><a xlink:href=".././proc/fraggle_io_log_start.html" xlink:title="fraggle_io_log_start">
+<polygon fill="#d9534f" stroke="#d9534f" points="380.5,-8437 273.5,-8437 273.5,-8413 380.5,-8413 380.5,-8437"/>
+<text text-anchor="middle" x="327" y="-8422.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~fraggle_io_log_start&#45;&gt;proc~fraggle_io_log_start -->
+<g id="call~~graph~~CallGraph_edge169" class="edge">
+<title>interface~fraggle_io_log_start&#45;&gt;proc~fraggle_io_log_start</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.59,-8425C184.11,-8425 227.72,-8425 263.07,-8425"/>
+<polygon fill="#000000" stroke="#000000" points="263.28,-8428.5 273.28,-8425 263.28,-8421.5 263.28,-8428.5"/>
 </g>
+<!-- proc~util_append_arr_logical -->
+<g id="call~~graph~~CallGraph_node166" class="node">
+<title>proc~util_append_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node166"><a xlink:href=".././proc/util_append_arr_logical.html" xlink:title="util_append_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="901.5,-6442 777.5,-6442 777.5,-6418 901.5,-6418 901.5,-6442"/>
+<text text-anchor="middle" x="839.5" y="-6427.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_logical</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- proc~util_append_arr_logical&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge170" class="edge">
+<title>proc~util_append_arr_logical&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M901.74,-6440.17C948.96,-6448.01 1012.89,-6458.62 1053.67,-6465.39"/>
+<polygon fill="#000000" stroke="#000000" points="1053.33,-6468.88 1063.77,-6467.06 1054.48,-6461.97 1053.33,-6468.88"/>
 </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>
+<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
+<g id="call~~graph~~CallGraph_edge172" class="edge">
+<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
+<path fill="none" stroke="#000000" d="M1141.78,-6207C1180.32,-6207 1235.52,-6207 1277.64,-6207"/>
+<polygon fill="#000000" stroke="#000000" points="1277.78,-6210.5 1287.78,-6207 1277.78,-6203.5 1277.78,-6210.5"/>
 </g>
+<!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge171" class="edge">
+<title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1141.67,-6199.92C1159.78,-6196.55 1180.59,-6191.94 1199,-6186 1237.23,-6173.66 1278.96,-6153.93 1306.72,-6139.83"/>
+<polygon fill="#000000" stroke="#000000" points="1308.63,-6142.79 1315.92,-6135.1 1305.43,-6136.56 1308.63,-6142.79"/>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_placeholder_accel -->
+<g id="call~~graph~~CallGraph_node168" class="node">
+<title>interface~fraggle_placeholder_accel</title>
+<g id="a_call~~graph~~CallGraph_node168"><a xlink:href=".././interface/fraggle_placeholder_accel.html" xlink:title="fraggle_placeholder_accel">
+<polygon fill="#a7506f" stroke="#a7506f" points="166,-8479 28,-8479 28,-8455 166,-8455 166,-8479"/>
+<text text-anchor="middle" x="97" y="-8464.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_accel</text>
+</a>
 </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>
+<!-- proc~fraggle_placeholder_accel -->
+<g id="call~~graph~~CallGraph_node383" class="node">
+<title>proc~fraggle_placeholder_accel</title>
+<g id="a_call~~graph~~CallGraph_node383"><a xlink:href=".././proc/fraggle_placeholder_accel.html" xlink:title="fraggle_placeholder_accel">
+<polygon fill="#d9534f" stroke="#d9534f" points="396,-8479 258,-8479 258,-8455 396,-8455 396,-8479"/>
+<text text-anchor="middle" x="327" y="-8464.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_accel</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_placeholder_accel&#45;&gt;proc~fraggle_placeholder_accel -->
+<g id="call~~graph~~CallGraph_edge173" class="edge">
+<title>interface~fraggle_placeholder_accel&#45;&gt;proc~fraggle_placeholder_accel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.1,-8467C191.81,-8467 221.27,-8467 247.83,-8467"/>
+<polygon fill="#000000" stroke="#000000" points="247.86,-8470.5 257.86,-8467 247.86,-8463.5 247.86,-8470.5"/>
 </g>
-<!-- 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>
+<!-- proc~orbel_xv2el_vec -->
+<g id="call~~graph~~CallGraph_node169" class="node">
+<title>proc~orbel_xv2el_vec</title>
+<g id="a_call~~graph~~CallGraph_node169"><a xlink:href=".././proc/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-8521 282,-8521 282,-8497 372,-8497 372,-8521"/>
+<text text-anchor="middle" x="327" y="-8506.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
+</a>
 </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>
-<!-- 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>
+<!-- interface~orbel_xv2el -->
+<g id="call~~graph~~CallGraph_node474" class="node">
+<title>interface~orbel_xv2el</title>
+<g id="a_call~~graph~~CallGraph_node474"><a xlink:href=".././interface/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#a7506f" stroke="#a7506f" points="608,-8521 541,-8521 541,-8497 608,-8497 608,-8521"/>
+<text text-anchor="middle" x="574.5" y="-8506.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el -->
+<g id="call~~graph~~CallGraph_edge174" class="edge">
+<title>proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el</title>
+<path fill="none" stroke="#000000" d="M372.17,-8509C417.03,-8509 486.05,-8509 530.48,-8509"/>
+<polygon fill="#000000" stroke="#000000" points="530.67,-8512.5 540.67,-8509 530.67,-8505.5 530.67,-8512.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>
+<!-- interface~fraggle_placeholder_kick -->
+<g id="call~~graph~~CallGraph_node170" class="node">
+<title>interface~fraggle_placeholder_kick</title>
+<g id="a_call~~graph~~CallGraph_node170"><a xlink:href=".././interface/fraggle_placeholder_kick.html" xlink:title="fraggle_placeholder_kick">
+<polygon fill="#a7506f" stroke="#a7506f" points="162.5,-8563 31.5,-8563 31.5,-8539 162.5,-8539 162.5,-8563"/>
+<text text-anchor="middle" x="97" y="-8548.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_kick</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_placeholder_kick -->
+<g id="call~~graph~~CallGraph_node466" class="node">
+<title>proc~fraggle_placeholder_kick</title>
+<g id="a_call~~graph~~CallGraph_node466"><a xlink:href=".././proc/fraggle_placeholder_kick.html" xlink:title="fraggle_placeholder_kick">
+<polygon fill="#d9534f" stroke="#d9534f" points="392.5,-8563 261.5,-8563 261.5,-8539 392.5,-8539 392.5,-8563"/>
+<text text-anchor="middle" x="327" y="-8548.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_placeholder_kick&#45;&gt;proc~fraggle_placeholder_kick -->
+<g id="call~~graph~~CallGraph_edge175" class="edge">
+<title>interface~fraggle_placeholder_kick&#45;&gt;proc~fraggle_placeholder_kick</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.73,-8551C190.16,-8551 222.32,-8551 250.8,-8551"/>
+<polygon fill="#000000" stroke="#000000" points="251.11,-8554.5 261.11,-8551 251.11,-8547.5 251.11,-8554.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_placeholder_step -->
+<g id="call~~graph~~CallGraph_node171" class="node">
+<title>interface~fraggle_placeholder_step</title>
+<g id="a_call~~graph~~CallGraph_node171"><a xlink:href=".././interface/fraggle_placeholder_step.html" xlink:title="fraggle_placeholder_step">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-8605 30.5,-8605 30.5,-8581 163.5,-8581 163.5,-8605"/>
+<text text-anchor="middle" x="97" y="-8590.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_step</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_placeholder_step -->
+<g id="call~~graph~~CallGraph_node443" class="node">
+<title>proc~fraggle_placeholder_step</title>
+<g id="a_call~~graph~~CallGraph_node443"><a xlink:href=".././proc/fraggle_placeholder_step.html" xlink:title="fraggle_placeholder_step">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-8605 260.5,-8605 260.5,-8581 393.5,-8581 393.5,-8605"/>
+<text text-anchor="middle" x="327" y="-8590.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_placeholder_step&#45;&gt;proc~fraggle_placeholder_step -->
+<g id="call~~graph~~CallGraph_edge176" class="edge">
+<title>interface~fraggle_placeholder_step&#45;&gt;proc~fraggle_placeholder_step</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-8593C190.71,-8593 222.24,-8593 250.27,-8593"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-8596.5 260.43,-8593 250.43,-8589.5 250.43,-8596.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_regime_colliders -->
+<g id="call~~graph~~CallGraph_node172" class="node">
+<title>interface~fraggle_regime_colliders</title>
+<g id="a_call~~graph~~CallGraph_node172"><a xlink:href=".././interface/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-5208 32,-5208 32,-5184 162,-5184 162,-5208"/>
+<text text-anchor="middle" x="97" y="-5193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders -->
+<g id="call~~graph~~CallGraph_edge177" class="edge">
+<title>interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.12,-5196C190.04,-5196 222.94,-5196 251.9,-5196"/>
+<polygon fill="#000000" stroke="#000000" points="251.97,-5199.5 261.97,-5196 251.97,-5192.5 251.97,-5199.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_set_budgets_fragments -->
+<g id="call~~graph~~CallGraph_node173" class="node">
+<title>interface~fraggle_set_budgets_fragments</title>
+<g id="a_call~~graph~~CallGraph_node173"><a xlink:href=".././interface/fraggle_set_budgets_fragments.html" xlink:title="fraggle_set_budgets_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="179,-8647 15,-8647 15,-8623 179,-8623 179,-8647"/>
+<text text-anchor="middle" x="97" y="-8632.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_budgets_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_set_budgets_fragments -->
+<g id="call~~graph~~CallGraph_node493" class="node">
+<title>proc~fraggle_set_budgets_fragments</title>
+<g id="a_call~~graph~~CallGraph_node493"><a xlink:href=".././proc/fraggle_set_budgets_fragments.html" xlink:title="fraggle_set_budgets_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="409,-8647 245,-8647 245,-8623 409,-8623 409,-8647"/>
+<text text-anchor="middle" x="327" y="-8632.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_budgets_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_set_budgets_fragments&#45;&gt;proc~fraggle_set_budgets_fragments -->
+<g id="call~~graph~~CallGraph_edge178" class="edge">
+<title>interface~fraggle_set_budgets_fragments&#45;&gt;proc~fraggle_set_budgets_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M179.03,-8635C197.06,-8635 216.3,-8635 234.72,-8635"/>
+<polygon fill="#000000" stroke="#000000" points="234.85,-8638.5 244.85,-8635 234.85,-8631.5 234.85,-8638.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_set_coordinate_system -->
+<g id="call~~graph~~CallGraph_node174" class="node">
+<title>interface~fraggle_set_coordinate_system</title>
+<g id="a_call~~graph~~CallGraph_node174"><a xlink:href=".././interface/fraggle_set_coordinate_system.html" xlink:title="fraggle_set_coordinate_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="178,-8689 16,-8689 16,-8665 178,-8665 178,-8689"/>
+<text text-anchor="middle" x="97" y="-8674.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_coordinate_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_set_coordinate_system -->
+<g id="call~~graph~~CallGraph_node502" class="node">
+<title>proc~fraggle_set_coordinate_system</title>
+<g id="a_call~~graph~~CallGraph_node502"><a xlink:href=".././proc/fraggle_set_coordinate_system.html" xlink:title="fraggle_set_coordinate_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="408,-8689 246,-8689 246,-8665 408,-8665 408,-8689"/>
+<text text-anchor="middle" x="327" y="-8674.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_coordinate_system</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- interface~fraggle_set_coordinate_system&#45;&gt;proc~fraggle_set_coordinate_system -->
+<g id="call~~graph~~CallGraph_edge179" class="edge">
+<title>interface~fraggle_set_coordinate_system&#45;&gt;proc~fraggle_set_coordinate_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.06,-8677C196.66,-8677 216.59,-8677 235.6,-8677"/>
+<polygon fill="#000000" stroke="#000000" points="235.74,-8680.5 245.74,-8677 235.74,-8673.5 235.74,-8680.5"/>
 </g>
+<!-- proc~util_solve_linear_system_d -->
+<g id="call~~graph~~CallGraph_node175" class="node">
+<title>proc~util_solve_linear_system_d</title>
+<g id="a_call~~graph~~CallGraph_node175"><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,-8773 26.5,-8773 26.5,-8749 167.5,-8749 167.5,-8773"/>
+<text text-anchor="middle" x="97" y="-8758.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~solve_wbs -->
+<g id="call~~graph~~CallGraph_node185" class="node">
+<title>proc~solve_wbs</title>
+<g id="a_call~~graph~~CallGraph_node185"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="358,-8773 296,-8773 296,-8749 358,-8749 358,-8773"/>
+<text text-anchor="middle" x="327" y="-8758.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
+<g id="call~~graph~~CallGraph_edge180" class="edge">
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
+<path fill="none" stroke="#000000" d="M167.65,-8761C206.41,-8761 253.27,-8761 285.92,-8761"/>
+<polygon fill="#000000" stroke="#000000" points="285.99,-8764.5 295.99,-8761 285.99,-8757.5 285.99,-8764.5"/>
+</g>
+<!-- proc~ge_wpp -->
+<g id="call~~graph~~CallGraph_node197" class="node">
+<title>proc~ge_wpp</title>
+<g id="a_call~~graph~~CallGraph_node197"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="354,-8731 300,-8731 300,-8707 354,-8707 354,-8731"/>
+<text text-anchor="middle" x="327" y="-8716.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
+<g id="call~~graph~~CallGraph_edge181" class="edge">
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
+<path fill="none" stroke="#000000" d="M163.34,-8748.96C204.48,-8741.39 256.03,-8731.89 289.94,-8725.64"/>
+<polygon fill="#000000" stroke="#000000" points="290.66,-8729.07 299.86,-8723.81 289.39,-8722.18 290.66,-8729.07"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_set_mass_dist_fragments -->
+<g id="call~~graph~~CallGraph_node177" class="node">
+<title>interface~fraggle_set_mass_dist_fragments</title>
+<g id="a_call~~graph~~CallGraph_node177"><a xlink:href=".././interface/fraggle_set_mass_dist_fragments.html" xlink:title="fraggle_set_mass_dist_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="184,-8815 10,-8815 10,-8791 184,-8791 184,-8815"/>
+<text text-anchor="middle" x="97" y="-8800.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_mass_dist_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_set_mass_dist_fragments -->
+<g id="call~~graph~~CallGraph_node500" class="node">
+<title>proc~fraggle_set_mass_dist_fragments</title>
+<g id="a_call~~graph~~CallGraph_node500"><a xlink:href=".././proc/fraggle_set_mass_dist_fragments.html" xlink:title="fraggle_set_mass_dist_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="414,-8815 240,-8815 240,-8791 414,-8791 414,-8815"/>
+<text text-anchor="middle" x="327" y="-8800.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_mass_dist_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_set_mass_dist_fragments&#45;&gt;proc~fraggle_set_mass_dist_fragments -->
+<g id="call~~graph~~CallGraph_edge182" class="edge">
+<title>interface~fraggle_set_mass_dist_fragments&#45;&gt;proc~fraggle_set_mass_dist_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M184.2,-8803C198.95,-8803 214.37,-8803 229.37,-8803"/>
+<polygon fill="#000000" stroke="#000000" points="229.68,-8806.5 239.68,-8803 229.68,-8799.5 229.68,-8806.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_set_natural_scale_factors -->
+<g id="call~~graph~~CallGraph_node178" class="node">
+<title>interface~fraggle_set_natural_scale_factors</title>
+<g id="a_call~~graph~~CallGraph_node178"><a xlink:href=".././interface/fraggle_set_natural_scale_factors.html" xlink:title="fraggle_set_natural_scale_factors">
+<polygon fill="#a7506f" stroke="#a7506f" points="184,-8857 10,-8857 10,-8833 184,-8833 184,-8857"/>
+<text text-anchor="middle" x="97" y="-8842.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_natural_scale_factors</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_set_natural_scale_factors -->
+<g id="call~~graph~~CallGraph_node201" class="node">
+<title>proc~fraggle_set_natural_scale_factors</title>
+<g id="a_call~~graph~~CallGraph_node201"><a xlink:href=".././proc/fraggle_set_natural_scale_factors.html" xlink:title="fraggle_set_natural_scale_factors">
+<polygon fill="#d9534f" stroke="#d9534f" points="414,-8857 240,-8857 240,-8833 414,-8833 414,-8857"/>
+<text text-anchor="middle" x="327" y="-8842.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_natural_scale_factors</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_set_natural_scale_factors&#45;&gt;proc~fraggle_set_natural_scale_factors -->
+<g id="call~~graph~~CallGraph_edge183" class="edge">
+<title>interface~fraggle_set_natural_scale_factors&#45;&gt;proc~fraggle_set_natural_scale_factors</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M184.2,-8845C198.95,-8845 214.37,-8845 229.37,-8845"/>
+<polygon fill="#000000" stroke="#000000" points="229.68,-8848.5 239.68,-8845 229.68,-8841.5 229.68,-8848.5"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_set_original_scale_factors -->
+<g id="call~~graph~~CallGraph_node179" class="node">
+<title>interface~fraggle_set_original_scale_factors</title>
+<g id="a_call~~graph~~CallGraph_node179"><a xlink:href=".././interface/fraggle_set_original_scale_factors.html" xlink:title="fraggle_set_original_scale_factors">
+<polygon fill="#a7506f" stroke="#a7506f" points="184.5,-8899 9.5,-8899 9.5,-8875 184.5,-8875 184.5,-8899"/>
+<text text-anchor="middle" x="97" y="-8884.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_original_scale_factors</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_set_original_scale_factors -->
+<g id="call~~graph~~CallGraph_node214" class="node">
+<title>proc~fraggle_set_original_scale_factors</title>
+<g id="a_call~~graph~~CallGraph_node214"><a xlink:href=".././proc/fraggle_set_original_scale_factors.html" xlink:title="fraggle_set_original_scale_factors">
+<polygon fill="#d9534f" stroke="#d9534f" points="414.5,-8899 239.5,-8899 239.5,-8875 414.5,-8875 414.5,-8899"/>
+<text text-anchor="middle" x="327" y="-8884.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_original_scale_factors</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~fraggle_set_original_scale_factors&#45;&gt;proc~fraggle_set_original_scale_factors -->
+<g id="call~~graph~~CallGraph_edge184" class="edge">
+<title>interface~fraggle_set_original_scale_factors&#45;&gt;proc~fraggle_set_original_scale_factors</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M184.52,-8887C199.06,-8887 214.22,-8887 229,-8887"/>
+<polygon fill="#000000" stroke="#000000" points="229.16,-8890.5 239.16,-8887 229.16,-8883.5 229.16,-8890.5"/>
 </g>
+<!-- interface~fraggle_setup_fragments -->
+<g id="call~~graph~~CallGraph_node180" class="node">
+<title>interface~fraggle_setup_fragments</title>
+<g id="a_call~~graph~~CallGraph_node180"><a xlink:href=".././interface/fraggle_setup_fragments.html" xlink:title="fraggle_setup_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="640.5,-4830 508.5,-4830 508.5,-4806 640.5,-4806 640.5,-4830"/>
+<text text-anchor="middle" x="574.5" y="-4815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_fragments</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~fraggle_setup_fragments -->
+<g id="call~~graph~~CallGraph_node489" class="node">
+<title>proc~fraggle_setup_fragments</title>
+<g id="a_call~~graph~~CallGraph_node489"><a xlink:href=".././proc/fraggle_setup_fragments.html" xlink:title="fraggle_setup_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="905.5,-4830 773.5,-4830 773.5,-4806 905.5,-4806 905.5,-4830"/>
+<text text-anchor="middle" x="839.5" y="-4815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_setup_fragments&#45;&gt;proc~fraggle_setup_fragments -->
+<g id="call~~graph~~CallGraph_edge185" class="edge">
+<title>interface~fraggle_setup_fragments&#45;&gt;proc~fraggle_setup_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.51,-4818C677.65,-4818 724.4,-4818 763.14,-4818"/>
+<polygon fill="#000000" stroke="#000000" points="763.33,-4821.5 773.33,-4818 763.33,-4814.5 763.33,-4821.5"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_system -->
+<g id="call~~graph~~CallGraph_node181" class="node">
+<title>proc~rmvs_step_system</title>
+<g id="a_call~~graph~~CallGraph_node181"><a xlink:href=".././proc/rmvs_step_system.html" xlink:title="rmvs_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="378,-1230 276,-1230 276,-1206 378,-1206 378,-1230"/>
+<text text-anchor="middle" x="327" y="-1215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_interp_out -->
+<g id="call~~graph~~CallGraph_node191" class="node">
+<title>proc~rmvs_interp_out</title>
+<g id="a_call~~graph~~CallGraph_node191"><a xlink:href=".././proc/rmvs_interp_out.html" xlink:title="rmvs_interp_out">
+<polygon fill="#d9534f" stroke="#d9534f" points="619.5,-1020 529.5,-1020 529.5,-996 619.5,-996 619.5,-1020"/>
+<text text-anchor="middle" x="574.5" y="-1005.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out -->
+<g id="call~~graph~~CallGraph_edge187" class="edge">
+<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out</title>
+<path fill="none" stroke="#000000" d="M332.6,-1205.81C346.19,-1171.6 389.67,-1074.28 460,-1029 477.43,-1017.78 499.31,-1012.19 519.2,-1009.53"/>
+<polygon fill="#000000" stroke="#000000" points="519.84,-1012.98 529.38,-1008.38 519.06,-1006.02 519.84,-1012.98"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_out -->
+<g id="call~~graph~~CallGraph_node195" class="node">
+<title>proc~rmvs_step_out</title>
+<g id="a_call~~graph~~CallGraph_node195"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
+<polygon fill="#d9534f" stroke="#d9534f" points="616,-1230 533,-1230 533,-1206 616,-1206 616,-1230"/>
+<text text-anchor="middle" x="574.5" y="-1215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
+<g id="call~~graph~~CallGraph_edge186" class="edge">
+<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
+<path fill="none" stroke="#000000" d="M378.27,-1218C420.39,-1218 480.25,-1218 522.55,-1218"/>
+<polygon fill="#000000" stroke="#000000" points="522.64,-1221.5 532.64,-1218 522.64,-1214.5 522.64,-1221.5"/>
 </g>
+<!-- whm_step_system -->
+<g id="call~~graph~~CallGraph_node685" class="node">
+<title>whm_step_system</title>
+<polygon fill="#777777" stroke="#777777" points="625,-1646 524,-1646 524,-1622 625,-1622 625,-1646"/>
+<text text-anchor="middle" x="574.5" y="-1631.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
+<g id="call~~graph~~CallGraph_edge188" class="edge">
+<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
+<path fill="none" stroke="#000000" d="M327.95,-1230.36C328.42,-1285.01 338.04,-1506.98 460,-1613 474.74,-1625.82 494.71,-1631.92 513.8,-1634.56"/>
+<polygon fill="#000000" stroke="#000000" points="513.64,-1638.06 523.96,-1635.67 514.4,-1631.1 513.64,-1638.06"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_setup_reset_fragments -->
+<g id="call~~graph~~CallGraph_node182" class="node">
+<title>interface~fraggle_setup_reset_fragments</title>
+<g id="a_call~~graph~~CallGraph_node182"><a xlink:href=".././interface/fraggle_setup_reset_fragments.html" xlink:title="fraggle_setup_reset_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="178,-8941 16,-8941 16,-8917 178,-8917 178,-8941"/>
+<text text-anchor="middle" x="97" y="-8926.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_reset_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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_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>
+<!-- proc~fraggle_setup_reset_fragments -->
+<g id="call~~graph~~CallGraph_node484" class="node">
+<title>proc~fraggle_setup_reset_fragments</title>
+<g id="a_call~~graph~~CallGraph_node484"><a xlink:href=".././proc/fraggle_setup_reset_fragments.html" xlink:title="fraggle_setup_reset_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="408,-8941 246,-8941 246,-8917 408,-8917 408,-8941"/>
+<text text-anchor="middle" x="327" y="-8926.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_reset_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_setup_reset_fragments&#45;&gt;proc~fraggle_setup_reset_fragments -->
+<g id="call~~graph~~CallGraph_edge189" class="edge">
+<title>interface~fraggle_setup_reset_fragments&#45;&gt;proc~fraggle_setup_reset_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.06,-8929C196.66,-8929 216.59,-8929 235.6,-8929"/>
+<polygon fill="#000000" stroke="#000000" points="235.74,-8932.5 245.74,-8929 235.74,-8925.5 235.74,-8932.5"/>
 </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>
+<!-- interface~fraggle_util_add_fragments_to_system -->
+<g id="call~~graph~~CallGraph_node183" class="node">
+<title>interface~fraggle_util_add_fragments_to_system</title>
+<g id="a_call~~graph~~CallGraph_node183"><a xlink:href=".././interface/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="1193.5,-66 995.5,-66 995.5,-42 1193.5,-42 1193.5,-66"/>
+<text text-anchor="middle" x="1094.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- proc~fraggle_util_add_fragments_to_system -->
+<g id="call~~graph~~CallGraph_node650" class="node">
+<title>proc~fraggle_util_add_fragments_to_system</title>
+<g id="a_call~~graph~~CallGraph_node650"><a xlink:href=".././proc/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="1438.5,-66 1240.5,-66 1240.5,-42 1438.5,-42 1438.5,-66"/>
+<text text-anchor="middle" x="1339.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system -->
+<g id="call~~graph~~CallGraph_edge190" class="edge">
+<title>interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1193.64,-54C1205.68,-54 1218.04,-54 1230.21,-54"/>
+<polygon fill="#000000" stroke="#000000" points="1230.39,-57.5 1240.39,-54 1230.39,-50.5 1230.39,-57.5"/>
+</g>
+<!-- proc~util_solve_linear_system_q -->
+<g id="call~~graph~~CallGraph_node184" class="node">
+<title>proc~util_solve_linear_system_q</title>
+<g id="a_call~~graph~~CallGraph_node184"><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,-8731 26.5,-8731 26.5,-8707 167.5,-8707 167.5,-8731"/>
+<text text-anchor="middle" x="97" y="-8716.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
+<g id="call~~graph~~CallGraph_edge191" class="edge">
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
+<path fill="none" stroke="#000000" d="M163.34,-8731.04C202.81,-8738.31 251.86,-8747.34 285.72,-8753.58"/>
+<polygon fill="#000000" stroke="#000000" points="285.25,-8757.05 295.72,-8755.42 286.52,-8750.17 285.25,-8757.05"/>
+</g>
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
+<g id="call~~graph~~CallGraph_edge192" class="edge">
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
+<path fill="none" stroke="#000000" d="M167.65,-8719C207.94,-8719 257,-8719 289.73,-8719"/>
+<polygon fill="#000000" stroke="#000000" points="289.75,-8722.5 299.75,-8719 289.75,-8715.5 289.75,-8722.5"/>
+</g>
+<!-- interface~fraggle_util_ang_mtm -->
+<g id="call~~graph~~CallGraph_node186" class="node">
+<title>interface~fraggle_util_ang_mtm</title>
+<g id="a_call~~graph~~CallGraph_node186"><a xlink:href=".././interface/fraggle_util_ang_mtm.html" xlink:title="fraggle_util_ang_mtm">
+<polygon fill="#a7506f" stroke="#a7506f" points="155,-8983 39,-8983 39,-8959 155,-8959 155,-8983"/>
+<text text-anchor="middle" x="97" y="-8968.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_ang_mtm</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_util_ang_mtm -->
+<g id="call~~graph~~CallGraph_node656" class="node">
+<title>proc~fraggle_util_ang_mtm</title>
+<g id="a_call~~graph~~CallGraph_node656"><a xlink:href=".././proc/fraggle_util_ang_mtm.html" xlink:title="fraggle_util_ang_mtm">
+<polygon fill="#d9534f" stroke="#d9534f" points="385,-8983 269,-8983 269,-8959 385,-8959 385,-8983"/>
+<text text-anchor="middle" x="327" y="-8968.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_ang_mtm</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_util_ang_mtm&#45;&gt;proc~fraggle_util_ang_mtm -->
+<g id="call~~graph~~CallGraph_edge193" class="edge">
+<title>interface~fraggle_util_ang_mtm&#45;&gt;proc~fraggle_util_ang_mtm</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.24,-8971C186.54,-8971 225.52,-8971 258.32,-8971"/>
+<polygon fill="#000000" stroke="#000000" points="258.74,-8974.5 268.74,-8971 258.74,-8967.5 258.74,-8974.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>
+<!-- interface~fraggle_util_construct_temporary_system -->
+<g id="call~~graph~~CallGraph_node187" class="node">
+<title>interface~fraggle_util_construct_temporary_system</title>
+<g id="a_call~~graph~~CallGraph_node187"><a xlink:href=".././interface/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="1199,-24 990,-24 990,0 1199,0 1199,-24"/>
+<text text-anchor="middle" x="1094.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_util_construct_temporary_system -->
+<g id="call~~graph~~CallGraph_node662" class="node">
+<title>proc~fraggle_util_construct_temporary_system</title>
+<g id="a_call~~graph~~CallGraph_node662"><a xlink:href=".././proc/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="1444,-24 1235,-24 1235,0 1444,0 1444,-24"/>
+<text text-anchor="middle" x="1339.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system -->
+<g id="call~~graph~~CallGraph_edge194" class="edge">
+<title>interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1199.26,-12C1207.6,-12 1216.06,-12 1224.48,-12"/>
+<polygon fill="#000000" stroke="#000000" points="1224.7,-15.5 1234.7,-12 1224.7,-8.5 1224.7,-15.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>
+<!-- proc~util_append_body -->
+<g id="call~~graph~~CallGraph_node188" class="node">
+<title>proc~util_append_body</title>
+<g id="a_call~~graph~~CallGraph_node188"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="1388,-3321 1291,-3321 1291,-3297 1388,-3297 1388,-3321"/>
+<text text-anchor="middle" x="1339.5" y="-3306.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_node280" class="node">
+<title>interface~util_append~2</title>
+<g id="a_call~~graph~~CallGraph_node280"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="1602.5,-3301 1534.5,-3301 1534.5,-3277 1602.5,-3277 1602.5,-3301"/>
+<text text-anchor="middle" x="1568.5" y="-3286.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge195" class="edge">
+<title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M1388.09,-3304.81C1428.31,-3301.26 1485.42,-3296.23 1524.33,-3292.8"/>
+<polygon fill="#000000" stroke="#000000" points="1524.65,-3296.29 1534.3,-3291.92 1524.03,-3289.32 1524.65,-3296.29"/>
 </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>
+<!-- proc~io_read_in_param -->
+<g id="call~~graph~~CallGraph_node189" class="node">
+<title>proc~io_read_in_param</title>
+<g id="a_call~~graph~~CallGraph_node189"><a xlink:href=".././proc/io_read_in_param.html" xlink:title="io_read_in_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="889.5,-2944 789.5,-2944 789.5,-2920 889.5,-2920 889.5,-2944"/>
+<text text-anchor="middle" x="839.5" y="-2929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_read_in_param&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge196" class="edge">
+<title>proc~io_read_in_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M889.73,-2925.55C909.92,-2922.22 933.35,-2917.47 954,-2911 992.34,-2898.99 1034.04,-2879.2 1061.77,-2865"/>
+<polygon fill="#000000" stroke="#000000" points="1063.7,-2867.94 1070.97,-2860.23 1060.48,-2861.73 1063.7,-2867.94"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="call~~graph~~CallGraph_node190" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<g id="a_call~~graph~~CallGraph_node190"><a xlink:href=".././interface/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#a7506f" stroke="#a7506f" points="667,-66 482,-66 482,-42 667,-42 667,-66"/>
+<text text-anchor="middle" x="574.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="call~~graph~~CallGraph_node671" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<g id="a_call~~graph~~CallGraph_node671"><a xlink:href=".././proc/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#d9534f" stroke="#d9534f" points="932,-66 747,-66 747,-42 932,-42 932,-66"/>
+<text text-anchor="middle" x="839.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="call~~graph~~CallGraph_edge197" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M667.12,-54C689.59,-54 713.77,-54 736.69,-54"/>
+<polygon fill="#000000" stroke="#000000" points="736.77,-57.5 746.77,-54 736.77,-50.5 736.77,-57.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>
+<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge198" class="edge">
+<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M619.59,-1006.47C690.57,-1004.79 834.36,-1004.63 954,-1025 990.09,-1031.14 1029.96,-1043.77 1057.8,-1053.58"/>
+<polygon fill="#000000" stroke="#000000" points="1056.89,-1056.97 1067.48,-1057.05 1059.25,-1050.38 1056.89,-1056.97"/>
+</g>
+<!-- proc~orbel_xv2el -->
+<g id="call~~graph~~CallGraph_node192" class="node">
+<title>proc~orbel_xv2el</title>
+<g id="a_call~~graph~~CallGraph_node192"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="873,-8521 806,-8521 806,-8497 873,-8497 873,-8521"/>
+<text text-anchor="middle" x="839.5" y="-8506.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_edge199" class="edge">
+<title>proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M1134.54,-6255.75C1173.46,-6262.47 1233.74,-6272.89 1278.69,-6280.66"/>
+<polygon fill="#000000" stroke="#000000" points="1278.16,-6284.12 1288.61,-6282.38 1279.35,-6277.23 1278.16,-6284.12"/>
 </g>
-<!-- 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>
+<!-- interface~fraggle_util_restructure -->
+<g id="call~~graph~~CallGraph_node194" class="node">
+<title>interface~fraggle_util_restructure</title>
+<g id="a_call~~graph~~CallGraph_node194"><a xlink:href=".././interface/fraggle_util_restructure.html" xlink:title="fraggle_util_restructure">
+<polygon fill="#a7506f" stroke="#a7506f" points="158.5,-9025 35.5,-9025 35.5,-9001 158.5,-9001 158.5,-9025"/>
+<text text-anchor="middle" x="97" y="-9010.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_restructure</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_util_restructure -->
+<g id="call~~graph~~CallGraph_node657" class="node">
+<title>proc~fraggle_util_restructure</title>
+<g id="a_call~~graph~~CallGraph_node657"><a xlink:href=".././proc/fraggle_util_restructure.html" xlink:title="fraggle_util_restructure">
+<polygon fill="#d9534f" stroke="#d9534f" points="388.5,-9025 265.5,-9025 265.5,-9001 388.5,-9001 388.5,-9025"/>
+<text text-anchor="middle" x="327" y="-9010.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_restructure</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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~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"/>
+<!-- interface~fraggle_util_restructure&#45;&gt;proc~fraggle_util_restructure -->
+<g id="call~~graph~~CallGraph_edge200" class="edge">
+<title>interface~fraggle_util_restructure&#45;&gt;proc~fraggle_util_restructure</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.5,-9013C188.13,-9013 224,-9013 254.93,-9013"/>
+<polygon fill="#000000" stroke="#000000" points="255.22,-9016.5 265.22,-9013 255.22,-9009.5 255.22,-9016.5"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
+<g id="call~~graph~~CallGraph_edge202" class="edge">
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
+<path fill="none" stroke="#000000" d="M616.02,-1217.38C662.16,-1216.68 737.61,-1215.53 787.66,-1214.77"/>
+<polygon fill="#000000" stroke="#000000" points="787.99,-1218.27 797.94,-1214.62 787.88,-1211.27 787.99,-1218.27"/>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
+<g id="call~~graph~~CallGraph_edge201" class="edge">
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
+<path fill="none" stroke="#000000" d="M616.03,-1215.55C640.01,-1216.3 669.42,-1221.36 689,-1239 731,-1276.84 683,-1323.16 725,-1361 742.82,-1377.05 768.78,-1382.69 791.38,-1384.13"/>
+<polygon fill="#000000" stroke="#000000" points="791.35,-1387.64 801.48,-1384.53 791.63,-1380.64 791.35,-1387.64"/>
 </g>
-<!-- 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>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="call~~graph~~CallGraph_node677" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_call~~graph~~CallGraph_node677"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="1655,-1895 1482,-1895 1482,-1871 1655,-1871 1655,-1895"/>
+<text text-anchor="middle" x="1568.5" y="-1880.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
 </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>
-<!-- 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>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="call~~graph~~CallGraph_edge203" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1426.32,-1883C1441.11,-1883 1456.57,-1883 1471.61,-1883"/>
+<polygon fill="#000000" stroke="#000000" points="1471.94,-1886.5 1481.94,-1883 1471.94,-1879.5 1471.94,-1886.5"/>
 </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"/>
+<!-- proc~util_append_encounter -->
+<g id="call~~graph~~CallGraph_node198" class="node">
+<title>proc~util_append_encounter</title>
+<g id="a_call~~graph~~CallGraph_node198"><a xlink:href=".././proc/util_append_encounter.html" xlink:title="util_append_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="1400.5,-3241 1278.5,-3241 1278.5,-3217 1400.5,-3217 1400.5,-3241"/>
+<text text-anchor="middle" x="1339.5" y="-3226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- proc~util_append_encounter&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge204" class="edge">
+<title>proc~util_append_encounter&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M1389.26,-3241.01C1406.57,-3245.34 1426.17,-3250.31 1444,-3255 1470.82,-3262.06 1500.81,-3270.31 1524.52,-3276.91"/>
+<polygon fill="#000000" stroke="#000000" points="1523.7,-3280.32 1534.27,-3279.63 1525.58,-3273.57 1523.7,-3280.32"/>
 </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>
+<!-- proc~symba_encounter_check_all -->
+<g id="call~~graph~~CallGraph_node199" class="node">
+<title>proc~symba_encounter_check_all</title>
+<g id="a_call~~graph~~CallGraph_node199"><a xlink:href=".././proc/symba_encounter_check_all.html" xlink:title="symba_encounter_check_all">
+<polygon fill="#d9534f" stroke="#d9534f" points="648.5,-3864 500.5,-3864 500.5,-3840 648.5,-3840 648.5,-3864"/>
+<text text-anchor="middle" x="574.5" y="-3849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_all</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~util_sort_body -->
+<g id="call~~graph~~CallGraph_node200" class="node">
+<title>proc~util_sort_body</title>
+<g id="a_call~~graph~~CallGraph_node200"><a xlink:href=".././proc/util_sort_body.html" xlink:title="util_sort_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="879,-9088 800,-9088 800,-9064 879,-9064 879,-9088"/>
+<text text-anchor="middle" x="839.5" y="-9073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_sort_dp -->
+<g id="call~~graph~~CallGraph_node202" class="node">
+<title>proc~util_sort_dp</title>
+<g id="a_call~~graph~~CallGraph_node202"><a xlink:href=".././proc/util_sort_dp.html" xlink:title="util_sort_dp">
+<polygon fill="#d9534f" stroke="#d9534f" points="131,-9151 63,-9151 63,-9127 131,-9127 131,-9151"/>
+<text text-anchor="middle" x="97" y="-9136.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_dp</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- proc~util_sort_index_dp -->
+<g id="call~~graph~~CallGraph_node203" class="node">
+<title>proc~util_sort_index_dp</title>
+<g id="a_call~~graph~~CallGraph_node203"><a xlink:href=".././proc/util_sort_index_dp.html" xlink:title="util_sort_index_dp">
+<polygon fill="#d9534f" stroke="#d9534f" points="147,-9193 47,-9193 47,-9169 147,-9169 147,-9193"/>
+<text text-anchor="middle" x="97" y="-9178.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_dp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_append -->
+<g id="call~~graph~~CallGraph_node204" class="node">
+<title>interface~util_append</title>
+<g id="a_call~~graph~~CallGraph_node204"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="1128.5,-921 1060.5,-921 1060.5,-897 1128.5,-897 1128.5,-921"/>
+<text text-anchor="middle" x="1094.5" y="-906.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_sort_i4b -->
+<g id="call~~graph~~CallGraph_node205" class="node">
+<title>proc~util_sort_i4b</title>
+<g id="a_call~~graph~~CallGraph_node205"><a xlink:href=".././proc/util_sort_i4b.html" xlink:title="util_sort_i4b">
+<polygon fill="#d9534f" stroke="#d9534f" points="132,-9235 62,-9235 62,-9211 132,-9211 132,-9235"/>
+<text text-anchor="middle" x="97" y="-9220.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_i4b</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_sort_sp -->
+<g id="call~~graph~~CallGraph_node206" class="node">
+<title>proc~util_sort_sp</title>
+<g id="a_call~~graph~~CallGraph_node206"><a xlink:href=".././proc/util_sort_sp.html" xlink:title="util_sort_sp">
+<polygon fill="#d9534f" stroke="#d9534f" points="130.5,-9277 63.5,-9277 63.5,-9253 130.5,-9253 130.5,-9277"/>
+<text text-anchor="middle" x="97" y="-9262.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_sp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_fill_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node207" class="node">
+<title>proc~util_fill_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node207"><a xlink:href=".././proc/util_fill_arr_dpvec.html" xlink:title="util_fill_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="146,-9319 48,-9319 48,-9295 146,-9295 146,-9319"/>
+<text text-anchor="middle" x="97" y="-9304.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_DPvec</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~util_sort_index_i4b -->
+<g id="call~~graph~~CallGraph_node208" class="node">
+<title>proc~util_sort_index_i4b</title>
+<g id="a_call~~graph~~CallGraph_node208"><a xlink:href=".././proc/util_sort_index_i4b.html" xlink:title="util_sort_index_i4b">
+<polygon fill="#d9534f" stroke="#d9534f" points="148,-9361 46,-9361 46,-9337 148,-9337 148,-9361"/>
+<text text-anchor="middle" x="97" y="-9346.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_i4b</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~helio_drift_body -->
+<g id="call~~graph~~CallGraph_node209" class="node">
+<title>interface~helio_drift_body</title>
+<g id="a_call~~graph~~CallGraph_node209"><a xlink:href=".././interface/helio_drift_body.html" xlink:title="helio_drift_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="618.5,-566 530.5,-566 530.5,-542 618.5,-542 618.5,-566"/>
+<text text-anchor="middle" x="574.5" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
 </a>
 </g>
 </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~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>
+<!-- proc~helio_drift_body -->
+<g id="call~~graph~~CallGraph_node520" class="node">
+<title>proc~helio_drift_body</title>
+<g id="a_call~~graph~~CallGraph_node520"><a xlink:href=".././proc/helio_drift_body.html" xlink:title="helio_drift_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="883.5,-566 795.5,-566 795.5,-542 883.5,-542 883.5,-566"/>
+<text text-anchor="middle" x="839.5" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc -->
+<!-- interface~helio_drift_body&#45;&gt;proc~helio_drift_body -->
 <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"/>
+<title>interface~helio_drift_body&#45;&gt;proc~helio_drift_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.63,-554C664.21,-554 736.15,-554 785.23,-554"/>
+<polygon fill="#000000" stroke="#000000" points="785.34,-557.5 795.34,-554 785.34,-550.5 785.34,-557.5"/>
 </g>
-<!-- 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>
+<!-- interface~helio_drift_pl -->
+<g id="call~~graph~~CallGraph_node210" class="node">
+<title>interface~helio_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node210"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="133.5,-545 60.5,-545 60.5,-521 133.5,-521 133.5,-545"/>
+<text text-anchor="middle" x="97" y="-530.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~helio_drift_pl -->
+<g id="call~~graph~~CallGraph_node527" class="node">
+<title>proc~helio_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node527"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="363.5,-545 290.5,-545 290.5,-521 363.5,-521 363.5,-545"/>
+<text text-anchor="middle" x="327" y="-530.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_tp&#45;&gt;proc~symba_setup_tp -->
+<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
 <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"/>
+<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.62,-533C173.08,-533 236.81,-533 280.01,-533"/>
+<polygon fill="#000000" stroke="#000000" points="280.25,-536.5 290.25,-533 280.25,-529.5 280.25,-536.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>
+<!-- interface~helio_drift_tp -->
+<g id="call~~graph~~CallGraph_node211" class="node">
+<title>interface~helio_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node211"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="134,-587 60,-587 60,-563 134,-563 134,-587"/>
+<text text-anchor="middle" x="97" y="-572.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- proc~helio_drift_tp -->
+<g id="call~~graph~~CallGraph_node528" class="node">
+<title>proc~helio_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node528"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-587 290,-587 290,-563 364,-563 364,-587"/>
+<text text-anchor="middle" x="327" y="-572.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
 </a>
 </g>
 </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"/>
+<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
+<g id="call~~graph~~CallGraph_edge207" 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,-575C173.45,-575 236.46,-575 279.46,-575"/>
+<polygon fill="#000000" stroke="#000000" points="279.67,-578.5 289.66,-575 279.66,-571.5 279.67,-578.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_discard_cb_pl -->
+<g id="call~~graph~~CallGraph_node212" class="node">
+<title>proc~symba_discard_cb_pl</title>
+<g id="a_call~~graph~~CallGraph_node212"><a xlink:href=".././proc/symba_discard_cb_pl.html" xlink:title="symba_discard_cb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1397.5,-440 1281.5,-440 1281.5,-416 1397.5,-416 1397.5,-440"/>
+<text text-anchor="middle" x="1339.5" y="-425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
+<!-- fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_node697" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="1645.5,-419 1491.5,-419 1491.5,-395 1645.5,-395 1645.5,-419"/>
+<text text-anchor="middle" x="1568.5" y="-404.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message -->
 <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"/>
+<title>proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M1397.78,-422.7C1423.05,-420.36 1453.29,-417.57 1481.2,-414.98"/>
+<polygon fill="#000000" stroke="#000000" points="1481.72,-418.45 1491.36,-414.04 1481.08,-411.48 1481.72,-418.45"/>
 </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>
+<!-- interface~helio_drift_linear_pl -->
+<g id="call~~graph~~CallGraph_node213" class="node">
+<title>interface~helio_drift_linear_pl</title>
+<g id="a_call~~graph~~CallGraph_node213"><a xlink:href=".././interface/helio_drift_linear_pl.html" xlink:title="helio_drift_linear_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-9403 44,-9403 44,-9379 150,-9379 150,-9403"/>
+<text text-anchor="middle" x="97" y="-9388.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_interp_system&#45;&gt;proc~symba_step_interp_system -->
+<!-- proc~helio_drift_linear_pl -->
+<g id="call~~graph~~CallGraph_node536" class="node">
+<title>proc~helio_drift_linear_pl</title>
+<g id="a_call~~graph~~CallGraph_node536"><a xlink:href=".././proc/helio_drift_linear_pl.html" xlink:title="helio_drift_linear_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-9403 274,-9403 274,-9379 380,-9379 380,-9403"/>
+<text text-anchor="middle" x="327" y="-9388.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_drift_linear_pl&#45;&gt;proc~helio_drift_linear_pl -->
+<g id="call~~graph~~CallGraph_edge209" 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,-9391C183.76,-9391 227.89,-9391 263.52,-9391"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-9394.5 273.81,-9391 263.81,-9387.5 263.81,-9394.5"/>
+</g>
+<!-- interface~helio_drift_linear_tp -->
+<g id="call~~graph~~CallGraph_node215" class="node">
+<title>interface~helio_drift_linear_tp</title>
+<g id="a_call~~graph~~CallGraph_node215"><a xlink:href=".././interface/helio_drift_linear_tp.html" xlink:title="helio_drift_linear_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-9445 44,-9445 44,-9421 150,-9421 150,-9445"/>
+<text text-anchor="middle" x="97" y="-9430.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~helio_drift_linear_tp -->
+<g id="call~~graph~~CallGraph_node541" class="node">
+<title>proc~helio_drift_linear_tp</title>
+<g id="a_call~~graph~~CallGraph_node541"><a xlink:href=".././proc/helio_drift_linear_tp.html" xlink:title="helio_drift_linear_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-9445 274,-9445 274,-9421 380,-9421 380,-9445"/>
+<text text-anchor="middle" x="327" y="-9430.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_drift_linear_tp&#45;&gt;proc~helio_drift_linear_tp -->
 <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"/>
+<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,-9433C183.76,-9433 227.89,-9433 263.52,-9433"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-9436.5 273.81,-9433 263.81,-9429.5 263.81,-9436.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>
+<!-- proc~util_sort_pl -->
+<g id="call~~graph~~CallGraph_node216" class="node">
+<title>proc~util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node216"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-9109 295,-9109 295,-9085 359,-9085 359,-9109"/>
+<text text-anchor="middle" x="327" y="-9094.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_set_recur_levels_system&#45;&gt;proc~symba_step_set_recur_levels_system -->
+<!-- interface~util_sort_body -->
+<g id="call~~graph~~CallGraph_node499" class="node">
+<title>interface~util_sort_body</title>
+<g id="a_call~~graph~~CallGraph_node499"><a xlink:href=".././interface/util_sort_body.html" xlink:title="util_sort_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="614,-9088 535,-9088 535,-9064 614,-9064 614,-9088"/>
+<text text-anchor="middle" x="574.5" y="-9073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
 <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"/>
+<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-9094.34C400.89,-9090.76 475.63,-9084.37 524.9,-9080.16"/>
+<polygon fill="#000000" stroke="#000000" points="525.33,-9083.63 535,-9079.29 524.74,-9076.66 525.33,-9083.63"/>
 </g>
-<!-- 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>
+<!-- interface~helio_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node217" class="node">
+<title>interface~helio_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node217"><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,-7429 30.5,-7429 30.5,-7405 163.5,-7405 163.5,-7429"/>
+<text text-anchor="middle" x="97" y="-7414.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_recur_system&#45;&gt;proc~symba_step_recur_system -->
+<!-- proc~helio_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node339" class="node">
+<title>proc~helio_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node339"><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,-7429 260.5,-7429 260.5,-7405 393.5,-7405 393.5,-7429"/>
+<text text-anchor="middle" x="327" y="-7414.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_gr_kick_getacch_pl&#45;&gt;proc~helio_gr_kick_getacch_pl -->
 <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"/>
+<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,-7417C190.71,-7417 222.24,-7417 250.27,-7417"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-7420.5 260.43,-7417 250.43,-7413.5 250.43,-7420.5"/>
 </g>
-<!-- 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>
+<!-- interface~helio_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node218" class="node">
+<title>interface~helio_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node218"><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,-7387 30.5,-7387 30.5,-7363 163.5,-7363 163.5,-7387"/>
+<text text-anchor="middle" x="97" y="-7372.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_reset_system&#45;&gt;proc~symba_step_reset_system -->
+<!-- proc~helio_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node345" class="node">
+<title>proc~helio_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node345"><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,-7387 260.5,-7387 260.5,-7363 393.5,-7363 393.5,-7387"/>
+<text text-anchor="middle" x="327" y="-7372.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_gr_kick_getacch_tp&#45;&gt;proc~helio_gr_kick_getacch_tp -->
 <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"/>
+<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,-7375C190.71,-7375 222.24,-7375 250.27,-7375"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-7378.5 260.43,-7375 250.43,-7371.5 250.43,-7378.5"/>
 </g>
-<!-- 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>
+<!-- interface~helio_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node219" class="node">
+<title>interface~helio_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node219"><a xlink:href=".././interface/helio_gr_p4_pl.html" xlink:title="helio_gr_p4_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-7597 55.5,-7597 55.5,-7573 138.5,-7573 138.5,-7597"/>
+<text text-anchor="middle" x="97" y="-7582.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~helio_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node346" class="node">
+<title>proc~helio_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node346"><a xlink:href=".././proc/helio_gr_p4_pl.html" xlink:title="helio_gr_p4_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-7597 285.5,-7597 285.5,-7573 368.5,-7573 368.5,-7597"/>
+<text text-anchor="middle" x="327" y="-7582.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
+<!-- interface~helio_gr_p4_pl&#45;&gt;proc~helio_gr_p4_pl -->
 <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"/>
+<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,-7585C176.9,-7585 234.01,-7585 275.12,-7585"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-7588.5 285.21,-7585 275.21,-7581.5 275.21,-7588.5"/>
 </g>
-<!-- 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>
+<!-- interface~helio_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node221" class="node">
+<title>interface~helio_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node221"><a xlink:href=".././interface/helio_gr_p4_tp.html" xlink:title="helio_gr_p4_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="139,-7555 55,-7555 55,-7531 139,-7531 139,-7555"/>
+<text text-anchor="middle" x="97" y="-7540.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
+<!-- proc~helio_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node355" class="node">
+<title>proc~helio_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node355"><a xlink:href=".././proc/helio_gr_p4_tp.html" xlink:title="helio_gr_p4_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="369,-7555 285,-7555 285,-7531 369,-7531 369,-7555"/>
+<text text-anchor="middle" x="327" y="-7540.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_gr_p4_tp&#45;&gt;proc~helio_gr_p4_tp -->
 <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"/>
+<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,-7543C177.08,-7543 233.86,-7543 274.86,-7543"/>
+<polygon fill="#000000" stroke="#000000" points="274.92,-7546.5 284.92,-7543 274.92,-7539.5 274.92,-7546.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_discard_nonplpl -->
+<g id="call~~graph~~CallGraph_node225" class="node">
+<title>proc~symba_discard_nonplpl</title>
+<g id="a_call~~graph~~CallGraph_node225"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1157,-440 1032,-440 1032,-416 1157,-416 1157,-440"/>
+<text text-anchor="middle" x="1094.5" y="-425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
+<g id="call~~graph~~CallGraph_edge217" class="edge">
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
+<path fill="none" stroke="#000000" d="M889.28,-444.95C926.9,-441.83 979.49,-437.46 1021.89,-433.94"/>
+<polygon fill="#000000" stroke="#000000" points="1022.2,-437.43 1031.87,-433.12 1021.62,-430.45 1022.2,-437.43"/>
 </g>
-<!-- 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>
+<!-- proc~symba_discard_nonplpl_conservation -->
+<g id="call~~graph~~CallGraph_node241" class="node">
+<title>proc~symba_discard_nonplpl_conservation</title>
+<g id="a_call~~graph~~CallGraph_node241"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
+<polygon fill="#d9534f" stroke="#d9534f" points="1190.5,-482 998.5,-482 998.5,-458 1190.5,-458 1190.5,-482"/>
+<text text-anchor="middle" x="1094.5" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
+<g id="call~~graph~~CallGraph_edge216" class="edge">
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
+<path fill="none" stroke="#000000" d="M889.28,-453.05C917.44,-455.39 954,-458.42 988.38,-461.28"/>
+<polygon fill="#000000" stroke="#000000" points="988.24,-464.77 998.49,-462.11 988.82,-457.8 988.24,-464.77"/>
+</g>
+<!-- proc~symba_discard_conserve_mtm -->
+<g id="call~~graph~~CallGraph_node223" class="node">
+<title>proc~symba_discard_conserve_mtm</title>
+<g id="a_call~~graph~~CallGraph_node223"><a xlink:href=".././proc/symba_discard_conserve_mtm.html" xlink:title="symba_discard_conserve_mtm">
+<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-9487 16.5,-9487 16.5,-9463 177.5,-9463 177.5,-9487"/>
+<text text-anchor="middle" x="97" y="-9472.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_conserve_mtm</text>
 </a>
 </g>
 </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"/>
+<!-- interface~helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node224" class="node">
+<title>interface~helio_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node224"><a xlink:href=".././interface/helio_kick_getacch_pl.html" xlink:title="helio_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-9529 38.5,-9529 38.5,-9505 155.5,-9505 155.5,-9529"/>
+<text text-anchor="middle" x="97" y="-9514.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node343" class="node">
+<title>proc~helio_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node343"><a xlink:href=".././proc/helio_kick_getacch_pl.html" xlink:title="helio_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-9529 268.5,-9529 268.5,-9505 385.5,-9505 385.5,-9529"/>
+<text text-anchor="middle" x="327" y="-9514.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_edge218" 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,-9517C186.72,-9517 225.45,-9517 258.11,-9517"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-9520.5 268.48,-9517 258.48,-9513.5 258.48,-9520.5"/>
+</g>
 <!-- proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl -->
-<g id="call~~graph~~CallGraph_edge220" class="edge">
+<g id="call~~graph~~CallGraph_edge219" 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"/>
+<path fill="none" stroke="#000000" d="M1157.13,-428C1191.81,-428 1235.17,-428 1270.8,-428"/>
+<polygon fill="#000000" stroke="#000000" points="1271.11,-431.5 1281.11,-428 1271.11,-424.5 1271.11,-431.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>
+<!-- interface~helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node226" class="node">
+<title>interface~helio_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node226"><a xlink:href=".././interface/helio_kick_getacch_tp.html" xlink:title="helio_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-9571 38,-9571 38,-9547 156,-9547 156,-9571"/>
+<text text-anchor="middle" x="97" y="-9556.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node366" class="node">
+<title>proc~helio_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node366"><a xlink:href=".././proc/helio_kick_getacch_tp.html" xlink:title="helio_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-9571 268,-9571 268,-9547 386,-9547 386,-9571"/>
+<text text-anchor="middle" x="327" y="-9556.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- interface~helio_kick_getacch_tp&#45;&gt;proc~helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge220" 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,-9559C187.08,-9559 225.33,-9559 257.7,-9559"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-9562.5 267.98,-9559 257.98,-9555.5 257.98,-9562.5"/>
 </g>
-<!-- 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>
+<!-- proc~util_sort_index_sp -->
+<g id="call~~graph~~CallGraph_node227" class="node">
+<title>proc~util_sort_index_sp</title>
+<g id="a_call~~graph~~CallGraph_node227"><a xlink:href=".././proc/util_sort_index_sp.html" xlink:title="util_sort_index_sp">
+<polygon fill="#d9534f" stroke="#d9534f" points="146.5,-9613 47.5,-9613 47.5,-9589 146.5,-9589 146.5,-9613"/>
+<text text-anchor="middle" x="97" y="-9598.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_sp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~helio_kick_vb_pl -->
+<g id="call~~graph~~CallGraph_node228" class="node">
+<title>interface~helio_kick_vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node228"><a xlink:href=".././interface/helio_kick_vb_pl.html" xlink:title="helio_kick_vb_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-9655 51.5,-9655 51.5,-9631 142.5,-9631 142.5,-9655"/>
+<text text-anchor="middle" x="97" y="-9640.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~helio_kick_vb_pl -->
+<g id="call~~graph~~CallGraph_node365" class="node">
+<title>proc~helio_kick_vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node365"><a xlink:href=".././proc/helio_kick_vb_pl.html" xlink:title="helio_kick_vb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-9655 281.5,-9655 281.5,-9631 372.5,-9631 372.5,-9655"/>
+<text text-anchor="middle" x="327" y="-9640.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_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="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>
+<!-- interface~helio_kick_vb_pl&#45;&gt;proc~helio_kick_vb_pl -->
+<g id="call~~graph~~CallGraph_edge221" 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,-9643C179.26,-9643 231.61,-9643 270.99,-9643"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-9646.5 281.22,-9643 271.22,-9639.5 271.22,-9646.5"/>
 </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"/>
+<!-- interface~helio_kick_vb_tp -->
+<g id="call~~graph~~CallGraph_node229" class="node">
+<title>interface~helio_kick_vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node229"><a xlink:href=".././interface/helio_kick_vb_tp.html" xlink:title="helio_kick_vb_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-9697 51.5,-9697 51.5,-9673 142.5,-9673 142.5,-9697"/>
+<text text-anchor="middle" x="97" y="-9682.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_tp</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~helio_kick_vb_tp -->
+<g id="call~~graph~~CallGraph_node367" class="node">
+<title>proc~helio_kick_vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node367"><a xlink:href=".././proc/helio_kick_vb_tp.html" xlink:title="helio_kick_vb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-9697 281.5,-9697 281.5,-9673 372.5,-9673 372.5,-9697"/>
+<text text-anchor="middle" x="327" y="-9682.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_tp</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~helio_kick_vb_tp&#45;&gt;proc~helio_kick_vb_tp -->
+<g id="call~~graph~~CallGraph_edge222" 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,-9685C179.26,-9685 231.61,-9685 270.99,-9685"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-9688.5 281.22,-9685 271.22,-9681.5 271.22,-9688.5"/>
 </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>
+<!-- interface~helio_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node230" class="node">
+<title>interface~helio_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node230"><a xlink:href=".././interface/helio_setup_initialize_system.html" xlink:title="helio_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-8395 21.5,-8395 21.5,-8371 172.5,-8371 172.5,-8395"/>
+<text text-anchor="middle" x="97" y="-8380.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup_initialize_system</text>
+</a>
 </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>
+<!-- proc~helio_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node320" class="node">
+<title>proc~helio_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node320"><a xlink:href=".././proc/helio_setup_initialize_system.html" xlink:title="helio_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-8395 251.5,-8395 251.5,-8371 402.5,-8371 402.5,-8395"/>
+<text text-anchor="middle" x="327" y="-8380.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~helio_setup_initialize_system&#45;&gt;proc~helio_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge223" class="edge">
+<title>interface~helio_setup_initialize_system&#45;&gt;proc~helio_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.66,-8383C194.5,-8383 218.55,-8383 240.99,-8383"/>
+<polygon fill="#000000" stroke="#000000" points="241.18,-8386.5 251.18,-8383 241.18,-8379.5 241.18,-8386.5"/>
 </g>
-<!-- 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_edge228" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
-<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"/>
+<!-- interface~helio_step_pl -->
+<g id="call~~graph~~CallGraph_node231" class="node">
+<title>interface~helio_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node231"><a xlink:href=".././interface/helio_step_pl.html" xlink:title="helio_step_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-9739 59,-9739 59,-9715 135,-9715 135,-9739"/>
+<text text-anchor="middle" x="97" y="-9724.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_pl</text>
+</a>
 </g>
-<!-- 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_edge229" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
-<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"/>
+<!-- proc~helio_step_pl -->
+<g id="call~~graph~~CallGraph_node322" class="node">
+<title>proc~helio_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node322"><a xlink:href=".././proc/helio_step_pl.html" xlink:title="helio_step_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-9739 289,-9739 289,-9715 365,-9715 365,-9739"/>
+<text text-anchor="middle" x="327" y="-9724.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_pl</text>
+</a>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
-<g id="call~~graph~~CallGraph_edge230" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
-<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_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"/>
+<!-- interface~helio_step_pl&#45;&gt;proc~helio_step_pl -->
+<g id="call~~graph~~CallGraph_edge224" 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,-9727C174.31,-9727 236.14,-9727 278.75,-9727"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-9730.5 288.88,-9727 278.88,-9723.5 278.88,-9730.5"/>
 </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>
+<!-- proc~rmvs_discard_tp -->
+<g id="call~~graph~~CallGraph_node232" class="node">
+<title>proc~rmvs_discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node232"><a xlink:href=".././proc/rmvs_discard_tp.html" xlink:title="rmvs_discard_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-9781 281.5,-9781 281.5,-9757 372.5,-9757 372.5,-9781"/>
+<text text-anchor="middle" x="327" y="-9766.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- discard_tp -->
+<g id="call~~graph~~CallGraph_node766" class="node">
+<title>discard_tp</title>
+<polygon fill="#777777" stroke="#777777" points="605.5,-9781 543.5,-9781 543.5,-9757 605.5,-9757 605.5,-9781"/>
+<text text-anchor="middle" x="574.5" y="-9766.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
-<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.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"/>
+<!-- proc~rmvs_discard_tp&#45;&gt;discard_tp -->
+<g id="call~~graph~~CallGraph_edge225" class="edge">
+<title>proc~rmvs_discard_tp&#45;&gt;discard_tp</title>
+<path fill="none" stroke="#000000" d="M372.74,-9769C418.58,-9769 489.2,-9769 533.31,-9769"/>
+<polygon fill="#000000" stroke="#000000" points="533.38,-9772.5 543.38,-9769 533.38,-9765.5 533.38,-9772.5"/>
 </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"/>
+<!-- interface~helio_step_system -->
+<g id="call~~graph~~CallGraph_node233" class="node">
+<title>interface~helio_step_system</title>
+<g id="a_call~~graph~~CallGraph_node233"><a xlink:href=".././interface/helio_step_system.html" xlink:title="helio_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-1646 46.5,-1646 46.5,-1622 147.5,-1622 147.5,-1646"/>
+<text text-anchor="middle" x="97" y="-1631.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
+</a>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
-<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.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~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"/>
+<!-- proc~helio_step_system -->
+<g id="call~~graph~~CallGraph_node310" class="node">
+<title>proc~helio_step_system</title>
+<g id="a_call~~graph~~CallGraph_node310"><a xlink:href=".././proc/helio_step_system.html" xlink:title="helio_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="377.5,-1646 276.5,-1646 276.5,-1622 377.5,-1622 377.5,-1646"/>
+<text text-anchor="middle" x="327" y="-1631.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
+</a>
 </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~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"/>
+<!-- interface~helio_step_system&#45;&gt;proc~helio_step_system -->
+<g id="call~~graph~~CallGraph_edge226" 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,-1634C182.61,-1634 229.35,-1634 266.23,-1634"/>
+<polygon fill="#000000" stroke="#000000" points="266.35,-1637.5 276.35,-1634 266.35,-1630.5 266.35,-1637.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~helio_step_tp -->
+<g id="call~~graph~~CallGraph_node234" class="node">
+<title>interface~helio_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node234"><a xlink:href=".././interface/helio_step_tp.html" xlink:title="helio_step_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-9823 59,-9823 59,-9799 135,-9799 135,-9823"/>
+<text text-anchor="middle" x="97" y="-9808.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_tp</text>
+</a>
 </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>
+<!-- proc~helio_step_tp -->
+<g id="call~~graph~~CallGraph_node325" class="node">
+<title>proc~helio_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node325"><a xlink:href=".././proc/helio_step_tp.html" xlink:title="helio_step_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-9823 289,-9823 289,-9799 365,-9799 365,-9823"/>
+<text text-anchor="middle" x="327" y="-9808.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~helio_step_tp&#45;&gt;proc~helio_step_tp -->
+<g id="call~~graph~~CallGraph_edge227" 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,-9811C174.31,-9811 236.14,-9811 278.75,-9811"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-9814.5 288.88,-9811 278.88,-9807.5 278.88,-9814.5"/>
 </g>
-<!-- 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>
+<!-- proc~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_node235" class="node">
+<title>proc~util_sort_rearrange_body</title>
+<g id="a_call~~graph~~CallGraph_node235"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="906,-9896 773,-9896 773,-9872 906,-9872 906,-9896"/>
+<text text-anchor="middle" x="839.5" y="-9881.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_sort_rearrange~2 -->
+<g id="call~~graph~~CallGraph_node374" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_call~~graph~~CallGraph_node374"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="1146,-9896 1043,-9896 1043,-9872 1146,-9872 1146,-9896"/>
+<text text-anchor="middle" x="1094.5" y="-9881.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="call~~graph~~CallGraph_edge228" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M906.31,-9884C945.26,-9884 994.26,-9884 1032.36,-9884"/>
+<polygon fill="#000000" stroke="#000000" points="1032.79,-9887.5 1042.79,-9884 1032.79,-9880.5 1032.79,-9887.5"/>
+</g>
+<!-- proc~util_sort_tp -->
+<g id="call~~graph~~CallGraph_node237" class="node">
+<title>proc~util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node237"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-9067 294.5,-9067 294.5,-9043 359.5,-9043 359.5,-9067"/>
+<text text-anchor="middle" x="327" y="-9052.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
+<g id="call~~graph~~CallGraph_edge229" class="edge">
+<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M359.59,-9057.7C401.42,-9061.28 475.62,-9067.63 524.69,-9071.82"/>
+<polygon fill="#000000" stroke="#000000" points="524.49,-9075.32 534.75,-9072.69 525.09,-9068.35 524.49,-9075.32"/>
+</g>
+<!-- proc~rmvs_util_append_pl -->
+<g id="call~~graph~~CallGraph_node240" class="node">
+<title>proc~rmvs_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node240"><a xlink:href=".././proc/rmvs_util_append_pl.html" xlink:title="rmvs_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="895.5,-1352 783.5,-1352 783.5,-1328 895.5,-1328 895.5,-1352"/>
+<text text-anchor="middle" x="839.5" y="-1337.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_node702" class="node">
+<title>whm_util_append_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1150,-1300 1039,-1300 1039,-1276 1150,-1276 1150,-1300"/>
+<text text-anchor="middle" x="1094.5" y="-1285.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge231" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl</title>
+<path fill="none" stroke="#000000" d="M895.54,-1330.82C914.18,-1327.45 935.06,-1323.37 954,-1319 970.18,-1315.26 973.85,-1312.88 990,-1309 1002.45,-1306.01 1015.81,-1303.09 1028.66,-1300.42"/>
+<polygon fill="#000000" stroke="#000000" points="1029.73,-1303.78 1038.82,-1298.34 1028.32,-1296.92 1029.73,-1303.78"/>
 </g>
+<!-- util_append -->
+<g id="call~~graph~~CallGraph_node707" class="node">
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="1128.5,-1216 1060.5,-1216 1060.5,-1192 1128.5,-1192 1128.5,-1216"/>
+<text text-anchor="middle" x="1094.5" y="-1201.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
+<g id="call~~graph~~CallGraph_edge230" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M895.79,-1340.71C916.03,-1338.35 937.9,-1332.39 954,-1319 988.39,-1290.39 955.86,-1253.91 990,-1225 1006.52,-1211.01 1029.81,-1205.46 1050.12,-1203.54"/>
+<polygon fill="#000000" stroke="#000000" points="1050.37,-1207.03 1060.11,-1202.85 1049.89,-1200.04 1050.37,-1207.03"/>
 </g>
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge232" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M895.78,-1342.45C916.64,-1340.43 938.94,-1334.26 954,-1319 1020.52,-1251.6 930.64,-1182.78 990,-1109 1006.45,-1088.56 1034.41,-1078 1057.13,-1072.58"/>
+<polygon fill="#000000" stroke="#000000" points="1058.1,-1075.95 1067.14,-1070.43 1056.63,-1069.1 1058.1,-1075.95"/>
 </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"/>
+<!-- proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all -->
+<g id="call~~graph~~CallGraph_edge233" class="edge">
+<title>proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all</title>
+<path fill="none" stroke="#000000" d="M400.33,-3852C428.54,-3852 461.06,-3852 490.24,-3852"/>
+<polygon fill="#000000" stroke="#000000" points="490.41,-3855.5 500.41,-3852 490.41,-3848.5 490.41,-3855.5"/>
 </g>
-<!-- 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>
+<!-- proc~util_sort_rearrange_arr_char_string -->
+<g id="call~~graph~~CallGraph_node245" class="node">
+<title>proc~util_sort_rearrange_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node245"><a xlink:href=".././proc/util_sort_rearrange_arr_char_string.html" xlink:title="util_sort_rearrange_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="188,-9968 6,-9968 6,-9944 188,-9944 188,-9968"/>
+<text text-anchor="middle" x="97" y="-9953.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_char_string</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node246" class="node">
+<title>proc~rmvs_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node246"><a xlink:href=".././proc/rmvs_util_fill_pl.html" xlink:title="rmvs_util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="882,-692 797,-692 797,-668 882,-668 882,-692"/>
+<text text-anchor="middle" x="839.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node684" class="node">
+<title>whm_util_fill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1137,-692 1052,-692 1052,-668 1137,-668 1137,-692"/>
+<text text-anchor="middle" x="1094.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge234" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M882.28,-680C925.95,-680 994.56,-680 1041.66,-680"/>
+<polygon fill="#000000" stroke="#000000" points="1041.66,-683.5 1051.66,-680 1041.66,-676.5 1041.66,-683.5"/>
 </g>
+<!-- util_fill -->
+<g id="call~~graph~~CallGraph_node708" class="node">
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-734 1067.5,-734 1067.5,-710 1121.5,-710 1121.5,-734"/>
+<text text-anchor="middle" x="1094.5" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
+<g id="call~~graph~~CallGraph_edge235" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M882.28,-686.94C931.08,-695.04 1011.01,-708.31 1057.28,-715.99"/>
+<polygon fill="#000000" stroke="#000000" points="1056.74,-719.45 1067.18,-717.63 1057.89,-712.54 1056.74,-719.45"/>
 </g>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge236" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M882.15,-676.41C906.55,-676.74 936,-681.75 954,-701 1048.44,-801.98 912.88,-895.24 990,-1010 1005.72,-1033.39 1034.37,-1048.09 1057.55,-1056.69"/>
+<polygon fill="#000000" stroke="#000000" points="1056.5,-1060.03 1067.1,-1060.01 1058.8,-1053.42 1056.5,-1060.03"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_append_tp -->
+<g id="call~~graph~~CallGraph_node247" class="node">
+<title>proc~rmvs_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node247"><a xlink:href=".././proc/rmvs_util_append_tp.html" xlink:title="rmvs_util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="895.5,-1268 783.5,-1268 783.5,-1244 895.5,-1244 895.5,-1268"/>
+<text text-anchor="middle" x="839.5" y="-1253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
+<g id="call~~graph~~CallGraph_edge237" class="edge">
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M895.54,-1246.82C914.18,-1243.45 935.06,-1239.37 954,-1235 970.18,-1231.26 973.85,-1228.88 990,-1225 1009.71,-1220.27 1031.69,-1215.71 1050.31,-1212.05"/>
+<polygon fill="#000000" stroke="#000000" points="1051.12,-1215.46 1060.27,-1210.12 1049.79,-1208.59 1051.12,-1215.46"/>
+</g>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge239" class="edge">
+<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M895.55,-1257.54C916.12,-1255.34 938.28,-1249.29 954,-1235 997.1,-1195.83 951.08,-1152.33 990,-1109 1007.42,-1089.61 1035.08,-1079 1057.42,-1073.3"/>
+<polygon fill="#000000" stroke="#000000" points="1058.31,-1076.69 1067.26,-1071.01 1056.73,-1069.87 1058.31,-1076.69"/>
+</g>
+<!-- util_append_tp -->
+<g id="call~~graph~~CallGraph_node763" class="node">
+<title>util_append_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1136,-1142 1053,-1142 1053,-1118 1136,-1118 1136,-1142"/>
+<text text-anchor="middle" x="1094.5" y="-1127.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_append_tp -->
+<g id="call~~graph~~CallGraph_edge238" class="edge">
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
+<path fill="none" stroke="#000000" d="M895.67,-1254.4C915.33,-1251.69 936.84,-1246.1 954,-1235 977.6,-1219.73 968.85,-1201.52 990,-1183 1007.83,-1167.38 1031.08,-1154.94 1051.02,-1146.05"/>
+<polygon fill="#000000" stroke="#000000" points="1052.41,-1149.26 1060.21,-1142.1 1049.64,-1142.83 1052.41,-1149.26"/>
+</g>
+<!-- proc~rmvs_util_fill_tp -->
+<g id="call~~graph~~CallGraph_node248" class="node">
+<title>proc~rmvs_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node248"><a xlink:href=".././proc/rmvs_util_fill_tp.html" xlink:title="rmvs_util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="882.5,-734 796.5,-734 796.5,-710 882.5,-710 882.5,-734"/>
+<text text-anchor="middle" x="839.5" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
+<g id="call~~graph~~CallGraph_edge240" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M882.56,-722C931.32,-722 1010.86,-722 1057.08,-722"/>
+<polygon fill="#000000" stroke="#000000" points="1057.24,-725.5 1067.24,-722 1057.24,-718.5 1057.24,-725.5"/>
+</g>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge242" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M882.59,-718.54C906.82,-718.97 935.97,-724.06 954,-743 1036.57,-829.72 922.32,-911.22 990,-1010 1005.93,-1033.25 1034.57,-1047.96 1057.69,-1056.6"/>
+<polygon fill="#000000" stroke="#000000" points="1056.61,-1059.93 1067.2,-1059.94 1058.93,-1053.33 1056.61,-1059.93"/>
+</g>
+<!-- util_fill_tp -->
+<g id="call~~graph~~CallGraph_node746" class="node">
+<title>util_fill_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1123,-776 1066,-776 1066,-752 1123,-752 1123,-776"/>
+<text text-anchor="middle" x="1094.5" y="-761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+</g>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge241" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
+<path fill="none" stroke="#000000" d="M882.56,-728.98C930.9,-737.01 1009.5,-750.05 1055.88,-757.75"/>
+<polygon fill="#000000" stroke="#000000" points="1055.38,-761.22 1065.82,-759.41 1056.53,-754.31 1055.38,-761.22"/>
+</g>
+<!-- proc~util_sort_rearrange_arr_info -->
+<g id="call~~graph~~CallGraph_node249" class="node">
+<title>proc~util_sort_rearrange_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node249"><a xlink:href=".././proc/util_sort_rearrange_arr_info.html" xlink:title="util_sort_rearrange_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="170,-10094 24,-10094 24,-10070 170,-10070 170,-10094"/>
+<text text-anchor="middle" x="97" y="-10079.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_info</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="call~~graph~~CallGraph_node428" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<g id="a_call~~graph~~CallGraph_node428"><a xlink:href=".././interface/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#a7506f" stroke="#a7506f" points="396,-10052 258,-10052 258,-10028 396,-10028 396,-10052"/>
+<text text-anchor="middle" x="327" y="-10037.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<!-- proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="call~~graph~~CallGraph_edge243" class="edge">
+<title>proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M163.34,-10069.96C190.64,-10064.93 222.54,-10059.06 250.82,-10053.85"/>
+<polygon fill="#000000" stroke="#000000" points="251.45,-10057.29 260.65,-10052.04 250.19,-10050.41 251.45,-10057.29"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="call~~graph~~CallGraph_edge246" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M401.33,-1854.73C431.28,-1852.17 465.96,-1849.2 496.3,-1846.6"/>
+<polygon fill="#000000" stroke="#000000" points="496.75,-1850.08 506.41,-1845.74 496.15,-1843.1 496.75,-1850.08"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate -->
 <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"/>
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" d="M344.2,-1873.01C368.26,-1890.3 415.4,-1922.07 460,-1940 472.68,-1945.1 486.57,-1949.31 500.16,-1952.76"/>
+<polygon fill="#000000" stroke="#000000" points="499.43,-1956.19 509.98,-1955.14 501.08,-1949.38 499.43,-1956.19"/>
 </g>
-<!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message -->
 <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"/>
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M360.97,-1848.95C387.44,-1839.67 425.71,-1827.08 460,-1819 487.84,-1812.44 649.17,-1788.06 752.02,-1772.76"/>
+<polygon fill="#000000" stroke="#000000" points="752.71,-1776.2 762.09,-1771.27 751.69,-1769.28 752.71,-1776.2"/>
 </g>
-<!-- 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>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="call~~graph~~CallGraph_node252" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<g id="a_call~~graph~~CallGraph_node252"><a xlink:href=".././proc/fraggle_generate_pos_vec.html" xlink:title="fraggle_generate_pos_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="1164.5,-1926 1024.5,-1926 1024.5,-1902 1164.5,-1902 1164.5,-1926"/>
+<text text-anchor="middle" x="1094.5" y="-1911.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_pos_vec</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec -->
+<g id="call~~graph~~CallGraph_edge245" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec</title>
+<path fill="none" stroke="#000000" d="M357.28,-1873.03C383.63,-1883.2 423.69,-1897.04 460,-1903 657.23,-1935.38 893.63,-1927.33 1014.23,-1919.94"/>
+<polygon fill="#000000" stroke="#000000" points="1014.72,-1923.42 1024.48,-1919.3 1014.28,-1916.43 1014.72,-1923.42"/>
+</g>
+<!-- proc~fraggle_generate_spins -->
+<g id="call~~graph~~CallGraph_node256" class="node">
+<title>proc~fraggle_generate_spins</title>
+<g id="a_call~~graph~~CallGraph_node256"><a xlink:href=".././proc/fraggle_generate_spins.html" xlink:title="fraggle_generate_spins">
+<polygon fill="#d9534f" stroke="#d9534f" points="637,-1772 512,-1772 512,-1748 637,-1748 637,-1772"/>
+<text text-anchor="middle" x="574.5" y="-1757.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_spins</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
-<!-- 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~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"/>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins -->
+<g id="call~~graph~~CallGraph_edge247" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins</title>
+<path fill="none" stroke="#000000" d="M345.53,-1848.81C370.06,-1832.29 416.52,-1802.91 460,-1786 473.19,-1780.87 487.65,-1776.6 501.71,-1773.11"/>
+<polygon fill="#000000" stroke="#000000" points="502.93,-1776.41 511.85,-1770.7 501.31,-1769.6 502.93,-1776.41"/>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="call~~graph~~CallGraph_node258" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_call~~graph~~CallGraph_node258"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="642,-1894 507,-1894 507,-1870 642,-1870 642,-1894"/>
+<text text-anchor="middle" x="574.5" y="-1879.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
 </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&#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"/>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="call~~graph~~CallGraph_edge244" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M401.33,-1867.27C431.41,-1869.85 466.25,-1872.83 496.69,-1875.43"/>
+<polygon fill="#000000" stroke="#000000" points="496.57,-1878.93 506.83,-1876.3 497.16,-1871.96 496.57,-1878.93"/>
 </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"/>
+<!-- proc~rmvs_util_resize_tp -->
+<g id="call~~graph~~CallGraph_node251" class="node">
+<title>proc~rmvs_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node251"><a xlink:href=".././proc/rmvs_util_resize_tp.html" xlink:title="rmvs_util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="892,-5334 787,-5334 787,-5310 892,-5310 892,-5334"/>
+<text text-anchor="middle" x="839.5" y="-5319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_tp</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- util_resize -->
+<g id="call~~graph~~CallGraph_node694" class="node">
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="1125,-5292 1064,-5292 1064,-5268 1125,-5268 1125,-5292"/>
+<text text-anchor="middle" x="1094.5" y="-5277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </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"/>
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
+<g id="call~~graph~~CallGraph_edge250" class="edge">
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M892,-5313.45C939.89,-5305.5 1010.21,-5293.83 1053.86,-5286.58"/>
+<polygon fill="#000000" stroke="#000000" points="1054.52,-5290.02 1063.82,-5284.93 1053.38,-5283.11 1054.52,-5290.02"/>
 </g>
-<!-- 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"/>
+<!-- util_resize_tp -->
+<g id="call~~graph~~CallGraph_node710" class="node">
+<title>util_resize_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1132.5,-5391 1056.5,-5391 1056.5,-5367 1132.5,-5367 1132.5,-5391"/>
+<text text-anchor="middle" x="1094.5" y="-5376.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </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>
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge251" class="edge">
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M892.11,-5330.56C911.59,-5334.05 933.89,-5338.36 954,-5343 970.18,-5346.74 973.95,-5348.75 990,-5353 1008.27,-5357.83 1028.41,-5362.94 1046.03,-5367.34"/>
+<polygon fill="#000000" stroke="#000000" points="1045.53,-5370.82 1056.08,-5369.84 1047.22,-5364.03 1045.53,-5370.82"/>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="call~~graph~~CallGraph_edge252" class="edge">
+<title>proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M1164.81,-1905.16C1188.96,-1902.08 1216.5,-1898.56 1242.43,-1895.26"/>
+<polygon fill="#000000" stroke="#000000" points="1243.18,-1898.69 1252.66,-1893.95 1242.3,-1891.74 1243.18,-1898.69"/>
 </g>
-<!-- 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>
+<!-- proc~symba_discard_peri_pl -->
+<g id="call~~graph~~CallGraph_node253" class="node">
+<title>proc~symba_discard_peri_pl</title>
+<g id="a_call~~graph~~CallGraph_node253"><a xlink:href=".././proc/symba_discard_peri_pl.html" xlink:title="symba_discard_peri_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="158.5,-10136 35.5,-10136 35.5,-10112 158.5,-10112 158.5,-10136"/>
+<text text-anchor="middle" x="97" y="-10121.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_peri_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_sort_rearrange_arr_dp -->
+<g id="call~~graph~~CallGraph_node254" class="node">
+<title>proc~util_sort_rearrange_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node254"><a xlink:href=".././proc/util_sort_rearrange_arr_dp.html" xlink:title="util_sort_rearrange_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="168.5,-10178 25.5,-10178 25.5,-10154 168.5,-10154 168.5,-10178"/>
+<text text-anchor="middle" x="97" y="-10163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- proc~rmvs_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node255" class="node">
+<title>proc~rmvs_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node255"><a xlink:href=".././proc/rmvs_util_resize_pl.html" xlink:title="rmvs_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="891.5,-5250 787.5,-5250 787.5,-5226 891.5,-5226 891.5,-5250"/>
+<text text-anchor="middle" x="839.5" y="-5235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_pl</text>
+</a>
 </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~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"/>
+<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
+<g id="call~~graph~~CallGraph_edge253" class="edge">
+<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M891.7,-5246.5C939.55,-5254.44 1010.01,-5266.14 1053.76,-5273.4"/>
+<polygon fill="#000000" stroke="#000000" points="1053.3,-5276.87 1063.74,-5275.06 1054.45,-5269.97 1053.3,-5276.87"/>
 </g>
-<!-- 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"/>
+<!-- whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node747" class="node">
+<title>whm_util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1146,-5250 1043,-5250 1043,-5226 1146,-5226 1146,-5250"/>
+<text text-anchor="middle" x="1094.5" y="-5235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </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>
+<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge254" class="edge">
+<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M891.7,-5238C932.47,-5238 989.65,-5238 1032.73,-5238"/>
+<polygon fill="#000000" stroke="#000000" points="1032.81,-5241.5 1042.81,-5238 1032.81,-5234.5 1032.81,-5241.5"/>
 </g>
+<!-- proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge255" class="edge">
+<title>proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M637.16,-1760C671.3,-1760 714.29,-1760 751.77,-1760"/>
+<polygon fill="#000000" stroke="#000000" points="752.18,-1763.5 762.18,-1760 752.18,-1756.5 752.18,-1763.5"/>
 </g>
-<!-- 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>
+<!-- proc~util_sort_rearrange_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node257" class="node">
+<title>proc~util_sort_rearrange_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node257"><a xlink:href=".././proc/util_sort_rearrange_arr_dpvec.html" xlink:title="util_sort_rearrange_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="177,-10220 17,-10220 17,-10196 177,-10196 177,-10220"/>
+<text text-anchor="middle" x="97" y="-10205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_DPvec</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="call~~graph~~CallGraph_edge257" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M642.21,-1872.36C679.37,-1866.99 725.73,-1860.29 764.06,-1854.76"/>
+<polygon fill="#000000" stroke="#000000" points="764.74,-1858.19 774.14,-1853.3 763.74,-1851.27 764.74,-1858.19"/>
 </g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge258" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M642.13,-1880.43C658.79,-1877.3 675.68,-1871.45 689,-1861 719.67,-1836.93 694.33,-1805.07 725,-1781 733.18,-1774.58 742.71,-1769.9 752.71,-1766.51"/>
+<polygon fill="#000000" stroke="#000000" points="753.81,-1769.84 762.41,-1763.65 751.83,-1763.13 753.81,-1769.84"/>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj -->
+<g id="call~~graph~~CallGraph_edge259" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M642.21,-1883.01C690.19,-1883.74 753.51,-1884.71 795.08,-1885.34"/>
+<polygon fill="#000000" stroke="#000000" points="795.11,-1888.84 805.16,-1885.49 795.22,-1881.84 795.11,-1888.84"/>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_edge256" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M642.11,-1876.84C658.14,-1873.7 674.74,-1868.75 689,-1861 709.44,-1849.89 704.56,-1834.11 725,-1823 741.49,-1814.04 761.11,-1808.83 779.35,-1805.81"/>
+<polygon fill="#000000" stroke="#000000" points="779.93,-1809.27 789.32,-1804.36 778.92,-1802.34 779.93,-1809.27"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node260" class="node">
+<title>proc~rmvs_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node260"><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,-4032 253.5,-4032 253.5,-4008 400.5,-4008 400.5,-4032"/>
+<text text-anchor="middle" x="327" y="-4017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node723" class="node">
+<title>util_sort_rearrange_pl</title>
+<polygon fill="#777777" stroke="#777777" points="633.5,-4038 515.5,-4038 515.5,-4014 633.5,-4014 633.5,-4038"/>
+<text text-anchor="middle" x="574.5" y="-4023.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </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>
+<!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge260" class="edge">
+<title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" d="M400.66,-4021.78C433.71,-4022.58 472.59,-4023.53 505.11,-4024.33"/>
+<polygon fill="#000000" stroke="#000000" points="505.34,-4027.84 515.43,-4024.58 505.51,-4020.84 505.34,-4027.84"/>
 </g>
+<!-- util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_node741" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="626,-4080 523,-4080 523,-4056 626,-4056 626,-4080"/>
+<text text-anchor="middle" x="574.5" y="-4065.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_edge261" class="edge">
+<title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M385.78,-4032.06C408.85,-4036.82 435.66,-4042.26 460,-4047 477.18,-4050.35 495.85,-4053.85 513,-4057.02"/>
+<polygon fill="#000000" stroke="#000000" points="512.42,-4060.48 522.89,-4058.85 513.69,-4053.59 512.42,-4060.48"/>
 </g>
-<!-- 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>
+<!-- proc~util_sort_rearrange_arr_i4b -->
+<g id="call~~graph~~CallGraph_node261" class="node">
+<title>proc~util_sort_rearrange_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node261"><a xlink:href=".././proc/util_sort_rearrange_arr_i4b.html" xlink:title="util_sort_rearrange_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="169.5,-10262 24.5,-10262 24.5,-10238 169.5,-10238 169.5,-10262"/>
+<text text-anchor="middle" x="97" y="-10247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node262" class="node">
+<title>proc~rmvs_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node262"><a xlink:href=".././proc/rmvs_util_sort_pl.html" xlink:title="rmvs_util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-10304 280,-10304 280,-10280 374,-10280 374,-10304"/>
+<text text-anchor="middle" x="327" y="-10289.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node692" class="node">
+<title>whm_util_sort_pl</title>
+<polygon fill="#777777" stroke="#777777" points="621,-10304 528,-10304 528,-10280 621,-10280 621,-10304"/>
+<text text-anchor="middle" x="574.5" y="-10289.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
 </g>
+<!-- proc~rmvs_util_sort_pl&#45;&gt;whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge262" class="edge">
+<title>proc~rmvs_util_sort_pl&#45;&gt;whm_util_sort_pl</title>
+<path fill="none" stroke="#000000" d="M374.18,-10292C414.94,-10292 474.46,-10292 517.84,-10292"/>
+<polygon fill="#000000" stroke="#000000" points="517.95,-10295.5 527.95,-10292 517.95,-10288.5 517.95,-10295.5"/>
 </g>
-<!-- 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"/>
+<!-- proc~util_sort_rearrange_arr_logical -->
+<g id="call~~graph~~CallGraph_node263" class="node">
+<title>proc~util_sort_rearrange_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node263"><a xlink:href=".././proc/util_sort_rearrange_arr_logical.html" xlink:title="util_sort_rearrange_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="176.5,-10346 17.5,-10346 17.5,-10322 176.5,-10322 176.5,-10346"/>
+<text text-anchor="middle" x="97" y="-10331.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_logical</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_util_sort_tp -->
+<g id="call~~graph~~CallGraph_node264" class="node">
+<title>proc~rmvs_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node264"><a xlink:href=".././proc/rmvs_util_sort_tp.html" xlink:title="rmvs_util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-5656 280,-5656 280,-5632 374,-5632 374,-5656"/>
+<text text-anchor="middle" x="327" y="-5641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_tp</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- util_sort_tp -->
+<g id="call~~graph~~CallGraph_node718" class="node">
+<title>util_sort_tp</title>
+<polygon fill="#777777" stroke="#777777" points="607,-5677 542,-5677 542,-5653 607,-5653 607,-5677"/>
+<text text-anchor="middle" x="574.5" y="-5662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_util_sort_tp&#45;&gt;util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge263" class="edge">
+<title>proc~rmvs_util_sort_tp&#45;&gt;util_sort_tp</title>
+<path fill="none" stroke="#000000" d="M374.18,-5647.95C419.57,-5651.83 488.22,-5657.71 531.95,-5661.45"/>
+<polygon fill="#000000" stroke="#000000" points="531.69,-5664.94 541.96,-5662.3 532.29,-5657.96 531.69,-5664.94"/>
 </g>
-<!-- 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>
+<!-- proc~rmvs_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node265" class="node">
+<title>proc~rmvs_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node265"><a xlink:href=".././proc/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="401,-4158 253,-4158 253,-4134 401,-4134 401,-4158"/>
+<text text-anchor="middle" x="327" y="-4143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node713" class="node">
+<title>util_sort_rearrange_tp</title>
+<polygon fill="#777777" stroke="#777777" points="633.5,-4179 515.5,-4179 515.5,-4155 633.5,-4155 633.5,-4179"/>
+<text text-anchor="middle" x="574.5" y="-4164.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </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"/>
+<!-- proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge264" class="edge">
+<title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" d="M401.33,-4152.27C434.22,-4155.09 472.8,-4158.39 505.09,-4161.15"/>
+<polygon fill="#000000" stroke="#000000" points="505.07,-4164.66 515.34,-4162.02 505.67,-4157.69 505.07,-4164.66"/>
 </g>
-<!-- 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"/>
+<!-- proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_edge265" class="edge">
+<title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M399.06,-4133.93C407.64,-4131.46 416.13,-4128.52 424,-4125 442.02,-4116.94 442.19,-4107.51 460,-4099 476.48,-4091.12 495.3,-4084.96 512.82,-4080.28"/>
+<polygon fill="#000000" stroke="#000000" points="514.12,-4083.56 522.95,-4077.7 512.39,-4076.78 514.12,-4083.56"/>
 </g>
-<!-- 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>
+<!-- interface~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_node625" class="node">
+<title>interface~rmvs_chk_ind</title>
+<g id="a_call~~graph~~CallGraph_node625"><a xlink:href=".././interface/rmvs_chk_ind.html" xlink:title="rmvs_chk_ind">
+<polygon fill="#a7506f" stroke="#a7506f" points="614,-4473 535,-4473 535,-4449 614,-4449 614,-4473"/>
+<text text-anchor="middle" x="574.5" y="-4458.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_chk_ind</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_edge266" class="edge">
+<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M405,-4475.41C444.13,-4472.07 490.48,-4468.1 524.66,-4465.18"/>
+<polygon fill="#000000" stroke="#000000" points="525.19,-4468.65 534.86,-4464.31 524.59,-4461.67 525.19,-4468.65"/>
 </g>
+<!-- helio_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node719" class="node">
+<title>helio_setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="650,-4788 499,-4788 499,-4764 650,-4764 650,-4788"/>
+<text text-anchor="middle" x="574.5" y="-4773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup_initialize_system</text>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;helio_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge267" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;helio_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M407.03,-4776C433.13,-4776 462.27,-4776 488.78,-4776"/>
+<polygon fill="#000000" stroke="#000000" points="488.8,-4779.5 498.8,-4776 488.8,-4772.5 488.8,-4779.5"/>
 </g>
 <!-- setup_pl -->
-<g id="call~~graph~~CallGraph_node575" class="node">
+<g id="call~~graph~~CallGraph_node750" 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>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-4872 1067.5,-4872 1067.5,-4848 1121.5,-4848 1121.5,-4872"/>
+<text text-anchor="middle" x="1094.5" y="-4857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </g>
 <!-- proc~whm_setup_pl&#45;&gt;setup_pl -->
-<g id="call~~graph~~CallGraph_edge280" class="edge">
+<g id="call~~graph~~CallGraph_edge268" 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>
-<!-- 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>
-<!-- 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>
-<!-- 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>
+<path fill="none" stroke="#000000" d="M880.59,-4860C929.17,-4860 1010.31,-4860 1057.14,-4860"/>
+<polygon fill="#000000" stroke="#000000" points="1057.15,-4863.5 1067.15,-4860 1057.15,-4856.5 1057.15,-4863.5"/>
 </g>
-</g>
-<!-- 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>
+<!-- proc~tides_derivs_init -->
+<g id="call~~graph~~CallGraph_node269" class="node">
+<title>proc~tides_derivs_init</title>
+<g id="a_call~~graph~~CallGraph_node269"><a xlink:href=".././proc/tides_derivs_init.html" xlink:title="tides_derivs_init">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="371.5,-10388 282.5,-10388 282.5,-10364 371.5,-10364 371.5,-10388"/>
+<text text-anchor="middle" x="327" y="-10373.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_init</text>
 </a>
 </g>
 </g>
 <!-- util_set_ir3h -->
-<g id="call~~graph~~CallGraph_node610" class="node">
+<g id="call~~graph~~CallGraph_node712" 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>
+<polygon fill="#777777" stroke="#777777" points="609.5,-7702 539.5,-7702 539.5,-7678 609.5,-7678 609.5,-7702"/>
+<text text-anchor="middle" x="574.5" y="-7687.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_edge284" class="edge">
+<g id="call~~graph~~CallGraph_edge269" 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"/>
+<path fill="none" stroke="#000000" d="M402.66,-7675.39C444.13,-7678.93 494.3,-7683.23 529.51,-7686.24"/>
+<polygon fill="#000000" stroke="#000000" points="529.21,-7689.72 539.47,-7687.09 529.81,-7682.75 529.21,-7689.72"/>
 </g>
 <!-- setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node618" class="node">
+<g id="call~~graph~~CallGraph_node760" 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>
+<polygon fill="#777777" stroke="#777777" points="635.5,-7660 513.5,-7660 513.5,-7636 635.5,-7636 635.5,-7660"/>
+<text text-anchor="middle" x="574.5" y="-7645.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </g>
 <!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge285" class="edge">
+<g id="call~~graph~~CallGraph_edge270" 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"/>
+<path fill="none" stroke="#000000" d="M402.66,-7662.61C434.61,-7659.88 471.72,-7656.71 503.18,-7654.02"/>
+<polygon fill="#000000" stroke="#000000" points="503.52,-7657.5 513.18,-7653.16 502.92,-7650.52 503.52,-7657.5"/>
 </g>
 <!-- util_set_mu_pl -->
-<g id="call~~graph~~CallGraph_node612" class="node">
+<g id="call~~graph~~CallGraph_node753" 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>
+<polygon fill="#777777" stroke="#777777" points="615.5,-7891 533.5,-7891 533.5,-7867 615.5,-7867 615.5,-7891"/>
+<text text-anchor="middle" x="574.5" y="-7876.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_edge286" class="edge">
+<g id="call~~graph~~CallGraph_edge271" 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>
+<path fill="none" stroke="#000000" d="M392.5,-7879C433.28,-7879 485.22,-7879 522.99,-7879"/>
+<polygon fill="#000000" stroke="#000000" points="523.24,-7882.5 533.24,-7879 523.24,-7875.5 523.24,-7882.5"/>
 </g>
+<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
+<g id="call~~graph~~CallGraph_edge272" class="edge">
+<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M895.07,-1090.58C914.67,-1093.39 936.29,-1098.8 954,-1109 975.3,-1121.27 970.69,-1135.78 990,-1151 1009.16,-1166.11 1033.3,-1178.76 1053.44,-1187.91"/>
+<polygon fill="#000000" stroke="#000000" points="1052.11,-1191.16 1062.68,-1192 1054.94,-1184.75 1052.11,-1191.16"/>
 </g>
-<!-- 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>
+<!-- util_append_pl -->
+<g id="call~~graph~~CallGraph_node730" class="node">
+<title>util_append_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1135.5,-1001 1053.5,-1001 1053.5,-977 1135.5,-977 1135.5,-1001"/>
+<text text-anchor="middle" x="1094.5" y="-986.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
+<!-- proc~whm_util_append_pl&#45;&gt;util_append_pl -->
+<g id="call~~graph~~CallGraph_edge274" class="edge">
+<title>proc~whm_util_append_pl&#45;&gt;util_append_pl</title>
+<path fill="none" stroke="#000000" d="M895.22,-1081.78C914.21,-1078.61 935.4,-1073.91 954,-1067 971.36,-1060.55 973.89,-1055.14 990,-1046 1014.14,-1032.31 1041.67,-1017.18 1062.27,-1005.94"/>
+<polygon fill="#000000" stroke="#000000" points="1064.1,-1008.93 1071.2,-1001.07 1060.75,-1002.78 1064.1,-1008.93"/>
 </g>
-<!-- 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"/>
+<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge273" class="edge">
+<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M895.09,-1083.47C944.1,-1079.4 1014.68,-1073.54 1057.12,-1070.02"/>
+<polygon fill="#000000" stroke="#000000" points="1057.59,-1073.49 1067.27,-1069.18 1057.01,-1066.52 1057.59,-1073.49"/>
 </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>
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize -->
+<g id="call~~graph~~CallGraph_edge275" class="edge">
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M891.09,-5280C939.02,-5280 1010.01,-5280 1053.93,-5280"/>
+<polygon fill="#000000" stroke="#000000" points="1053.95,-5283.5 1063.95,-5280 1053.95,-5276.5 1053.95,-5283.5"/>
 </g>
-<!-- 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"/>
+<!-- util_resize_pl -->
+<g id="call~~graph~~CallGraph_node722" class="node">
+<title>util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1132,-5344 1057,-5344 1057,-5320 1132,-5320 1132,-5344"/>
+<text text-anchor="middle" x="1094.5" y="-5329.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </g>
-<!-- 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>
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge276" class="edge">
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M891.14,-5288.97C910.8,-5292.56 933.48,-5296.82 954,-5301 985.04,-5307.32 1019.82,-5315.05 1046.89,-5321.21"/>
+<polygon fill="#000000" stroke="#000000" points="1046.33,-5324.67 1056.86,-5323.48 1047.89,-5317.84 1046.33,-5324.67"/>
 </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"/>
+<!-- util_fill_pl -->
+<g id="call~~graph~~CallGraph_node701" class="node">
+<title>util_fill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1122.5,-860 1066.5,-860 1066.5,-836 1122.5,-836 1122.5,-860"/>
+<text text-anchor="middle" x="1094.5" y="-845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
-<!-- 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>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge277" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M882.28,-812.94C930.82,-820.99 1010.16,-834.16 1056.54,-841.86"/>
+<polygon fill="#000000" stroke="#000000" points="1056.03,-845.33 1066.47,-843.51 1057.18,-838.42 1056.03,-845.33"/>
 </g>
-<!-- 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"/>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
+<g id="call~~graph~~CallGraph_edge278" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M882.19,-804.95C904.72,-802.8 932.29,-797.5 954,-785 975.3,-772.73 968.8,-755.45 990,-743 1010.29,-731.08 1036.24,-725.84 1057.08,-723.57"/>
+<polygon fill="#000000" stroke="#000000" points="1057.51,-727.04 1067.16,-722.65 1056.88,-720.07 1057.51,-727.04"/>
 </g>
-<!-- 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>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge279" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M882.18,-802.94C906.27,-803.51 935.4,-808.61 954,-827 1012.94,-885.28 941.11,-943.06 990,-1010 1006.52,-1032.61 1034.84,-1047.32 1057.69,-1056.12"/>
+<polygon fill="#000000" stroke="#000000" points="1056.51,-1059.41 1067.1,-1059.53 1058.89,-1052.83 1056.51,-1059.41"/>
 </g>
-<!-- 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"/>
+<!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge280" class="edge">
+<title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" d="M400.33,-4051.39C433.53,-4046.53 472.68,-4040.78 505.35,-4035.99"/>
+<polygon fill="#000000" stroke="#000000" points="505.88,-4039.45 515.27,-4034.54 504.87,-4032.53 505.88,-4039.45"/>
 </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>
+<!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_edge281" class="edge">
+<title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M400.33,-4063.77C435.96,-4064.64 478.46,-4065.68 512.43,-4066.51"/>
+<polygon fill="#000000" stroke="#000000" points="512.61,-4070.01 522.69,-4066.76 512.78,-4063.01 512.61,-4070.01"/>
 </g>
-<!-- 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"/>
+<!-- util_sort_pl -->
+<g id="call~~graph~~CallGraph_node765" class="node">
+<title>util_sort_pl</title>
+<polygon fill="#777777" stroke="#777777" points="606.5,-5551 542.5,-5551 542.5,-5527 606.5,-5527 606.5,-5551"/>
+<text text-anchor="middle" x="574.5" y="-5536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </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>
+<!-- proc~whm_util_sort_pl&#45;&gt;util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge282" class="edge">
+<title>proc~whm_util_sort_pl&#45;&gt;util_sort_pl</title>
+<path fill="none" stroke="#000000" d="M373.6,-5521.9C419.05,-5525.79 488.21,-5531.7 532.12,-5535.46"/>
+<polygon fill="#000000" stroke="#000000" points="531.9,-5538.95 542.16,-5536.32 532.5,-5531.98 531.9,-5538.95"/>
 </g>
-<!-- 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"/>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
+<g id="call~~graph~~CallGraph_edge283" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M886.02,-1506.2C935.02,-1504.26 1011.97,-1501.22 1057.11,-1499.44"/>
+<polygon fill="#000000" stroke="#000000" points="1057.46,-1502.93 1067.32,-1499.03 1057.19,-1495.93 1057.46,-1502.93"/>
 </g>
-<!-- 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"/>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge285" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M886.24,-1511.63C909.85,-1510.87 937.15,-1505.4 954,-1487 1010.98,-1424.77 939.6,-1176.67 990,-1109 1005.84,-1087.73 1034.29,-1077.2 1057.36,-1072"/>
+<polygon fill="#000000" stroke="#000000" points="1058.08,-1075.43 1067.19,-1070.03 1056.7,-1068.57 1058.08,-1075.43"/>
 </g>
-<!-- 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>
+<!-- util_spill_pl -->
+<g id="call~~graph~~CallGraph_node756" class="node">
+<title>util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1126.5,-1594 1062.5,-1594 1062.5,-1570 1126.5,-1570 1126.5,-1594"/>
+<text text-anchor="middle" x="1094.5" y="-1579.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </g>
-<!-- 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"/>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge284" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M886.19,-1510.78C907.64,-1513.47 933.03,-1518.74 954,-1529 973.23,-1538.4 970.85,-1551.43 990,-1561 1009.19,-1570.59 1032.45,-1575.8 1052.06,-1578.63"/>
+<polygon fill="#000000" stroke="#000000" points="1051.86,-1582.13 1062.23,-1579.94 1052.76,-1575.19 1051.86,-1582.13"/>
 </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>
+<!-- proc~symba_setup_pl&#45;&gt;setup_pl -->
+<g id="call~~graph~~CallGraph_edge286" class="edge">
+<title>proc~symba_setup_pl&#45;&gt;setup_pl</title>
+<path fill="none" stroke="#000000" d="M885.15,-4894.59C934.24,-4886.44 1012.15,-4873.51 1057.49,-4865.98"/>
+<polygon fill="#000000" stroke="#000000" points="1058.18,-4869.41 1067.47,-4864.32 1057.03,-4862.51 1058.18,-4869.41"/>
 </g>
+<!-- proc~symba_setup_merger&#45;&gt;interface~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_edge287" class="edge">
+<title>proc~symba_setup_merger&#45;&gt;interface~symba_setup_pl</title>
+<path fill="none" stroke="#000000" d="M385.56,-4902C425.84,-4902 479.33,-4902 518.94,-4902"/>
+<polygon fill="#000000" stroke="#000000" points="518.95,-4905.5 528.95,-4902 518.95,-4898.5 518.95,-4905.5"/>
 </g>
-<!-- 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>
+<!-- proc~operator_cross_sp -->
+<g id="call~~graph~~CallGraph_node283" class="node">
+<title>proc~operator_cross_sp</title>
+<g id="a_call~~graph~~CallGraph_node283"><a xlink:href=".././proc/operator_cross_sp.html" xlink:title="operator_cross_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="148,-10430 46,-10430 46,-10406 148,-10406 148,-10430"/>
+<text text-anchor="middle" x="97" y="-10415.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_sp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- setup_encounter -->
+<g id="call~~graph~~CallGraph_node732" class="node">
+<title>setup_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="621,-4956 528,-4956 528,-4932 621,-4932 621,-4956"/>
+<text text-anchor="middle" x="574.5" y="-4941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
 </g>
+<!-- proc~symba_setup_encounter&#45;&gt;setup_encounter -->
+<g id="call~~graph~~CallGraph_edge288" class="edge">
+<title>proc~symba_setup_encounter&#45;&gt;setup_encounter</title>
+<path fill="none" stroke="#000000" d="M392.18,-4944C431.14,-4944 480.38,-4944 517.71,-4944"/>
+<polygon fill="#000000" stroke="#000000" points="517.91,-4947.5 527.91,-4944 517.91,-4940.5 517.91,-4947.5"/>
 </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"/>
+<!-- proc~symba_setup_tp&#45;&gt;setup_tp -->
+<g id="call~~graph~~CallGraph_edge289" class="edge">
+<title>proc~symba_setup_tp&#45;&gt;setup_tp</title>
+<path fill="none" stroke="#000000" d="M372.74,-5024.17C419.89,-5020.14 493.25,-5013.86 537.02,-5010.12"/>
+<polygon fill="#000000" stroke="#000000" points="537.54,-5013.59 547.21,-5009.25 536.95,-5006.61 537.54,-5013.59"/>
 </g>
-<!-- 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>
+<!-- proc~operator_cross_dp -->
+<g id="call~~graph~~CallGraph_node286" class="node">
+<title>proc~operator_cross_dp</title>
+<g id="a_call~~graph~~CallGraph_node286"><a xlink:href=".././proc/operator_cross_dp.html" xlink:title="operator_cross_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="148.5,-10472 45.5,-10472 45.5,-10448 148.5,-10448 148.5,-10472"/>
+<text text-anchor="middle" x="97" y="-10457.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_dp</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- proc~operator_cross_i1b -->
+<g id="call~~graph~~CallGraph_node287" class="node">
+<title>proc~operator_cross_i1b</title>
+<g id="a_call~~graph~~CallGraph_node287"><a xlink:href=".././proc/operator_cross_i1b.html" xlink:title="operator_cross_i1b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10514 44.5,-10514 44.5,-10490 149.5,-10490 149.5,-10514"/>
+<text text-anchor="middle" x="97" y="-10499.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i1b</text>
 </a>
 </g>
 </g>
-<!-- util_fill_pl -->
-<g id="call~~graph~~CallGraph_node558" class="node">
-<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>
-<!-- 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"/>
+<!-- proc~operator_cross_qp -->
+<g id="call~~graph~~CallGraph_node288" class="node">
+<title>proc~operator_cross_qp</title>
+<g id="a_call~~graph~~CallGraph_node288"><a xlink:href=".././proc/operator_cross_qp.html" xlink:title="operator_cross_qp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="148.5,-10556 45.5,-10556 45.5,-10532 148.5,-10532 148.5,-10556"/>
+<text text-anchor="middle" x="97" y="-10541.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_qp</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_node738" class="node">
+<title>kick_getacch_int_all_pl</title>
+<polygon fill="#777777" stroke="#777777" points="635.5,-4662 513.5,-4662 513.5,-4638 635.5,-4638 635.5,-4662"/>
+<text text-anchor="middle" x="574.5" y="-4647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</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"/>
+<!-- proc~symba_kick_getacch_int_pl&#45;&gt;kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_edge290" class="edge">
+<title>proc~symba_kick_getacch_int_pl&#45;&gt;kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M398.68,-4650C431.4,-4650 470.18,-4650 502.89,-4650"/>
+<polygon fill="#000000" stroke="#000000" points="503.29,-4653.5 513.29,-4650 503.29,-4646.5 503.29,-4653.5"/>
 </g>
-<!-- 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>
+<!-- proc~operator_cross_i2b -->
+<g id="call~~graph~~CallGraph_node290" class="node">
+<title>proc~operator_cross_i2b</title>
+<g id="a_call~~graph~~CallGraph_node290"><a xlink:href=".././proc/operator_cross_i2b.html" xlink:title="operator_cross_i2b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10598 44.5,-10598 44.5,-10574 149.5,-10574 149.5,-10598"/>
+<text text-anchor="middle" x="97" y="-10583.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i2b</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~obl_pot_system -->
+<g id="call~~graph~~CallGraph_node291" class="node">
+<title>proc~obl_pot_system</title>
+<g id="a_call~~graph~~CallGraph_node291"><a xlink:href=".././proc/obl_pot_system.html" xlink:title="obl_pot_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="371,-10640 283,-10640 283,-10616 371,-10616 371,-10640"/>
+<text text-anchor="middle" x="327" y="-10625.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_system</text>
+</a>
 </g>
-<!-- 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_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"/>
+<!-- proc~obl_pot_one -->
+<g id="call~~graph~~CallGraph_node309" class="node">
+<title>proc~obl_pot_one</title>
+<g id="a_call~~graph~~CallGraph_node309"><a xlink:href=".././proc/obl_pot_one.html" xlink:title="obl_pot_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="610.5,-10640 538.5,-10640 538.5,-10616 610.5,-10616 610.5,-10640"/>
+<text text-anchor="middle" x="574.5" y="-10625.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_one</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- proc~obl_pot_system&#45;&gt;proc~obl_pot_one -->
+<g id="call~~graph~~CallGraph_edge291" class="edge">
+<title>proc~obl_pot_system&#45;&gt;proc~obl_pot_one</title>
+<path fill="none" stroke="#000000" d="M371.04,-10628C415.19,-10628 483.56,-10628 528.42,-10628"/>
+<polygon fill="#000000" stroke="#000000" points="528.46,-10631.5 538.46,-10628 528.46,-10624.5 528.46,-10631.5"/>
 </g>
-<!-- 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>
+<!-- helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node726" class="node">
+<title>helio_kick_getacch_tp</title>
+<polygon fill="#777777" stroke="#777777" points="633.5,-4704 515.5,-4704 515.5,-4680 633.5,-4680 633.5,-4704"/>
+<text text-anchor="middle" x="574.5" y="-4689.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_edge292" class="edge">
+<title>proc~symba_kick_getacch_tp&#45;&gt;helio_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" d="M390.59,-4692C425.5,-4692 469.03,-4692 504.87,-4692"/>
+<polygon fill="#000000" stroke="#000000" points="505.24,-4695.5 515.24,-4692 505.24,-4688.5 505.24,-4695.5"/>
 </g>
+<!-- helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node693" class="node">
+<title>helio_kick_getacch_pl</title>
+<polygon fill="#777777" stroke="#777777" points="633,-4620 516,-4620 516,-4596 633,-4596 633,-4620"/>
+<text text-anchor="middle" x="574.5" y="-4605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
 </g>
-<!-- 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"/>
+<!-- proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge294" class="edge">
+<title>proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" d="M390.27,-4608C425.43,-4608 469.43,-4608 505.5,-4608"/>
+<polygon fill="#000000" stroke="#000000" points="505.93,-4611.5 515.93,-4608 505.93,-4604.5 505.93,-4611.5"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_kick_getacch_pl&#45;&gt;kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_edge293" class="edge">
+<title>proc~symba_kick_getacch_pl&#45;&gt;kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M390.27,-4618.65C424.81,-4624.56 467.86,-4631.93 503.56,-4638.03"/>
+<polygon fill="#000000" stroke="#000000" points="502.97,-4641.48 513.42,-4639.72 504.15,-4634.58 502.97,-4641.48"/>
 </g>
-<!-- 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>
+<!-- proc~operator_cross_i4b -->
+<g id="call~~graph~~CallGraph_node294" class="node">
+<title>proc~operator_cross_i4b</title>
+<g id="a_call~~graph~~CallGraph_node294"><a xlink:href=".././proc/operator_cross_i4b.html" xlink:title="operator_cross_i4b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10682 44.5,-10682 44.5,-10658 149.5,-10658 149.5,-10682"/>
+<text text-anchor="middle" x="97" y="-10667.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i4b</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~operator_cross_i8b -->
+<g id="call~~graph~~CallGraph_node296" class="node">
+<title>proc~operator_cross_i8b</title>
+<g id="a_call~~graph~~CallGraph_node296"><a xlink:href=".././proc/operator_cross_i8b.html" xlink:title="operator_cross_i8b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10724 44.5,-10724 44.5,-10700 149.5,-10700 149.5,-10724"/>
+<text text-anchor="middle" x="97" y="-10709.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i8b</text>
 </a>
 </g>
 </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~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>
+<!-- proc~operator_cross_el_sp -->
+<g id="call~~graph~~CallGraph_node297" class="node">
+<title>proc~operator_cross_el_sp</title>
+<g id="a_call~~graph~~CallGraph_node297"><a xlink:href=".././proc/operator_cross_el_sp.html" xlink:title="operator_cross_el_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155,-10766 39,-10766 39,-10742 155,-10742 155,-10766"/>
+<text text-anchor="middle" x="97" y="-10751.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_sp</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~operator_cross_el_dp -->
+<g id="call~~graph~~CallGraph_node298" class="node">
+<title>proc~operator_cross_el_dp</title>
+<g id="a_call~~graph~~CallGraph_node298"><a xlink:href=".././proc/operator_cross_el_dp.html" xlink:title="operator_cross_el_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155.5,-10808 38.5,-10808 38.5,-10784 155.5,-10784 155.5,-10808"/>
+<text text-anchor="middle" x="97" y="-10793.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_dp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_collision_collider_message -->
+<g id="call~~graph~~CallGraph_node299" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_call~~graph~~CallGraph_node299"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="1657,-367 1480,-367 1480,-343 1657,-343 1657,-367"/>
+<text text-anchor="middle" x="1568.5" y="-352.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~setup_construct_system -->
+<g id="call~~graph~~CallGraph_node300" class="node">
+<title>proc~setup_construct_system</title>
+<g id="a_call~~graph~~CallGraph_node300"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="903.5,-2902 775.5,-2902 775.5,-2878 903.5,-2878 903.5,-2902"/>
+<text text-anchor="middle" x="839.5" y="-2887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge295" class="edge">
+<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M903.69,-2879.51C952.19,-2871.46 1017.42,-2860.63 1057.41,-2853.99"/>
+<polygon fill="#000000" stroke="#000000" points="1058.2,-2857.41 1067.5,-2852.32 1057.06,-2850.5 1058.2,-2857.41"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_append_arr_kin -->
+<g id="call~~graph~~CallGraph_node301" class="node">
+<title>proc~symba_util_append_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node301"><a xlink:href=".././proc/symba_util_append_arr_kin.html" xlink:title="symba_util_append_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="912,-5460 767,-5460 767,-5436 912,-5436 912,-5460"/>
+<text text-anchor="middle" x="839.5" y="-5445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge296" class="edge">
+<title>proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M912.32,-5446.3C958.13,-5445.21 1015.77,-5443.84 1053.58,-5442.95"/>
+<polygon fill="#000000" stroke="#000000" points="1053.78,-5446.44 1063.69,-5442.71 1053.61,-5439.45 1053.78,-5446.44"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge297" class="edge">
+<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M345.46,-5446.73C369.91,-5430.13 416.27,-5400.81 460,-5385 475.29,-5379.47 492.3,-5375.34 508.39,-5372.27"/>
+<polygon fill="#000000" stroke="#000000" points="509.05,-5375.71 518.27,-5370.49 507.81,-5368.82 509.05,-5375.71"/>
 </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>
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge298" class="edge">
+<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M396.75,-5465.09C512.19,-5474.2 752.21,-5488.35 954,-5469 987.97,-5465.74 1025.96,-5458.12 1053.7,-5451.81"/>
+<polygon fill="#000000" stroke="#000000" points="1054.86,-5455.13 1063.81,-5449.46 1053.27,-5448.31 1054.86,-5455.13"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
+<g id="call~~graph~~CallGraph_edge299" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M899.82,-923.55C946,-920.08 1009.01,-915.34 1050.45,-912.23"/>
+<polygon fill="#000000" stroke="#000000" points="1050.79,-915.72 1060.5,-911.48 1050.26,-908.74 1050.79,-915.72"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
+<g id="call~~graph~~CallGraph_edge300" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
+<path fill="none" stroke="#000000" d="M893.96,-940.01C912.94,-944.33 934.44,-949.31 954,-954 983.71,-961.13 1016.89,-969.44 1043.44,-976.17"/>
+<polygon fill="#000000" stroke="#000000" points="1042.71,-979.6 1053.26,-978.67 1044.43,-972.82 1042.71,-979.6"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge301" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M899.77,-932.76C918.4,-936.47 938.2,-942.9 954,-954 978.21,-971.01 968.38,-989.8 990,-1010 1009.76,-1028.46 1036.61,-1043.02 1058.01,-1052.8"/>
+<polygon fill="#000000" stroke="#000000" points="1056.85,-1056.12 1067.41,-1056.96 1059.68,-1049.72 1056.85,-1056.12"/>
 </g>
+<!-- proc~symba_util_append_encounter&#45;&gt;interface~util_append -->
+<g id="call~~graph~~CallGraph_edge302" class="edge">
+<title>proc~symba_util_append_encounter&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M919.54,-597.6C932.5,-601.26 944.7,-607.31 954,-617 1032.34,-698.63 919.57,-780.46 990,-869 1004.7,-887.48 1029.05,-897.43 1050.45,-902.79"/>
+<polygon fill="#000000" stroke="#000000" points="1049.81,-906.24 1060.34,-905 1051.34,-899.4 1049.81,-906.24"/>
 </g>
-<!-- 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>
+<!-- util_append_encounter -->
+<g id="call~~graph~~CallGraph_node691" class="node">
+<title>util_append_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="1155.5,-608 1033.5,-608 1033.5,-584 1155.5,-584 1155.5,-608"/>
+<text text-anchor="middle" x="1094.5" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
 </g>
+<!-- proc~symba_util_append_encounter&#45;&gt;util_append_encounter -->
+<g id="call~~graph~~CallGraph_edge303" class="edge">
+<title>proc~symba_util_append_encounter&#45;&gt;util_append_encounter</title>
+<path fill="none" stroke="#000000" d="M919.51,-596C952.61,-596 990.78,-596 1022.93,-596"/>
+<polygon fill="#000000" stroke="#000000" points="1023.14,-599.5 1033.14,-596 1023.14,-592.5 1023.14,-599.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_check_one -->
+<g id="call~~graph~~CallGraph_node319" class="node">
+<title>proc~symba_collision_check_one</title>
+<g id="a_call~~graph~~CallGraph_node319"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1641,-597 1496,-597 1496,-573 1641,-573 1641,-597"/>
+<text text-anchor="middle" x="1568.5" y="-582.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one -->
+<g id="call~~graph~~CallGraph_edge305" class="edge">
+<title>proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one</title>
+<path fill="none" stroke="#000000" d="M1427.29,-585C1446.49,-585 1466.78,-585 1485.77,-585"/>
+<polygon fill="#000000" stroke="#000000" points="1485.87,-588.5 1495.87,-585 1485.87,-581.5 1485.87,-588.5"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_collision_check_encounter&#45;&gt;fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge304" class="edge">
+<title>proc~symba_collision_check_encounter&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M1358.81,-572.82C1379.78,-558.71 1414.98,-534.5 1444,-512 1481.17,-483.19 1522.44,-447.25 1546.61,-425.77"/>
+<polygon fill="#000000" stroke="#000000" points="1548.99,-428.33 1554.13,-419.06 1544.33,-423.11 1548.99,-428.33"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge307" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
+<path fill="none" stroke="#000000" d="M400.33,-928C433.13,-928 471.74,-928 504.17,-928"/>
+<polygon fill="#000000" stroke="#000000" points="504.47,-931.5 514.47,-928 504.47,-924.5 504.47,-931.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
+<g id="call~~graph~~CallGraph_edge306" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M390.54,-915.98C412.42,-912.33 437.21,-908.8 460,-907 681.32,-889.51 947.49,-900.84 1050.17,-906.42"/>
+<polygon fill="#000000" stroke="#000000" points="1050.27,-909.93 1060.45,-906.99 1050.66,-902.94 1050.27,-909.93"/>
 </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"/>
+<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge308" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M399.5,-940.03C419.08,-943.14 440.34,-946.36 460,-949 678.9,-978.36 741.11,-944.19 954,-1003 993.52,-1013.92 1035.92,-1034.83 1063.47,-1049.78"/>
+<polygon fill="#000000" stroke="#000000" points="1062.12,-1053.03 1072.57,-1054.79 1065.5,-1046.9 1062.12,-1053.03"/>
 </g>
-<!-- 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>
+<!-- proc~setup_body -->
+<g id="call~~graph~~CallGraph_node307" class="node">
+<title>proc~setup_body</title>
+<g id="a_call~~graph~~CallGraph_node307"><a xlink:href=".././proc/setup_body.html" xlink:title="setup_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="873.5,-10871 805.5,-10871 805.5,-10847 873.5,-10847 873.5,-10871"/>
+<text text-anchor="middle" x="839.5" y="-10856.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_sort_rearrange_arr_kin -->
+<g id="call~~graph~~CallGraph_node308" class="node">
+<title>proc~symba_util_sort_rearrange_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node308"><a xlink:href=".././proc/symba_util_sort_rearrange_arr_kin.html" xlink:title="symba_util_sort_rearrange_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="187,-10934 7,-10934 7,-10910 187,-10910 187,-10934"/>
+<text text-anchor="middle" x="97" y="-10919.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- 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~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_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~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"/>
+<!-- proc~helio_step_system&#45;&gt;whm_step_system -->
+<g id="call~~graph~~CallGraph_edge309" class="edge">
+<title>proc~helio_step_system&#45;&gt;whm_step_system</title>
+<path fill="none" stroke="#000000" d="M377.68,-1634C417.03,-1634 472.13,-1634 513.86,-1634"/>
+<polygon fill="#000000" stroke="#000000" points="513.89,-1637.5 523.89,-1634 513.89,-1630.5 513.89,-1637.5"/>
 </g>
-<!-- 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>
+<!-- proc~setup_encounter -->
+<g id="call~~graph~~CallGraph_node311" class="node">
+<title>proc~setup_encounter</title>
+<g id="a_call~~graph~~CallGraph_node311"><a xlink:href=".././proc/setup_encounter.html" xlink:title="setup_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="373.5,-10976 280.5,-10976 280.5,-10952 373.5,-10952 373.5,-10976"/>
+<text text-anchor="middle" x="327" y="-10961.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~setup_initialize_particle_info_system -->
+<g id="call~~graph~~CallGraph_node312" class="node">
+<title>proc~setup_initialize_particle_info_system</title>
+<g id="a_call~~graph~~CallGraph_node312"><a xlink:href=".././proc/setup_initialize_particle_info_system.html" xlink:title="setup_initialize_particle_info_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="420,-11018 234,-11018 234,-10994 420,-10994 420,-11018"/>
+<text text-anchor="middle" x="327" y="-11003.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_particle_info_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node313" class="node">
+<title>proc~setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node313"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="388,-11060 266,-11060 266,-11036 388,-11036 388,-11060"/>
+<text text-anchor="middle" x="327" y="-11045.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="call~~graph~~CallGraph_edge326" class="edge">
+<g id="call~~graph~~CallGraph_edge310" 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"/>
+<path fill="none" stroke="#000000" d="M862.95,-1033.84C908.15,-1009.37 1010.21,-954.1 1062.03,-926.04"/>
+<polygon fill="#000000" stroke="#000000" points="1063.97,-928.97 1071.1,-921.13 1060.64,-922.81 1063.97,-928.97"/>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge325" class="edge">
+<g id="call~~graph~~CallGraph_edge312" 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"/>
+<path fill="none" stroke="#000000" d="M900.14,-1050.95C948.92,-1055 1016.32,-1060.59 1057.3,-1064"/>
+<polygon fill="#000000" stroke="#000000" points="1057.12,-1067.49 1067.38,-1064.83 1057.7,-1060.52 1057.12,-1067.49"/>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
-<g id="call~~graph~~CallGraph_edge327" class="edge">
+<g id="call~~graph~~CallGraph_edge311" 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"/>
+<path fill="none" stroke="#000000" d="M900.16,-1053.07C917.83,-1056.21 937,-1060.69 954,-1067 971.36,-1073.45 973.38,-1079.83 990,-1088 1009.56,-1097.61 1031.9,-1106.88 1050.8,-1114.26"/>
+<polygon fill="#000000" stroke="#000000" points="1049.75,-1117.6 1060.34,-1117.93 1052.27,-1111.07 1049.75,-1117.6"/>
 </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>
+<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge314" class="edge">
+<title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M895.61,-5371.78C914.34,-5375.06 935.27,-5379.43 954,-5385 970.62,-5389.94 973.97,-5393.41 990,-5400 1011.17,-5408.71 1034.83,-5418.31 1054.17,-5426.14"/>
+<polygon fill="#000000" stroke="#000000" points="1052.99,-5429.44 1063.58,-5429.94 1055.62,-5422.95 1052.99,-5429.44"/>
 </g>
+<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge313" class="edge">
+<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M895.71,-5357.02C940.84,-5351.31 1003.95,-5343.33 1046.65,-5337.93"/>
+<polygon fill="#000000" stroke="#000000" points="1047.29,-5341.37 1056.77,-5336.65 1046.41,-5334.43 1047.29,-5341.37"/>
 </g>
-<!-- proc~util_resize_encounter -->
-<g id="call~~graph~~CallGraph_node467" class="node">
-<title>proc~util_resize_encounter</title>
-<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>
+<!-- proc~netcdf_close -->
+<g id="call~~graph~~CallGraph_node316" class="node">
+<title>proc~netcdf_close</title>
+<g id="a_call~~graph~~CallGraph_node316"><a xlink:href=".././proc/netcdf_close.html" xlink:title="netcdf_close">
+<polygon fill="#d9534f" stroke="#d9534f" points="363.5,-11102 290.5,-11102 290.5,-11078 363.5,-11078 363.5,-11102"/>
+<text text-anchor="middle" x="327" y="-11087.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_close</text>
 </a>
 </g>
 </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"/>
+<!-- nf90_close -->
+<g id="call~~graph~~CallGraph_node695" class="node">
+<title>nf90_close</title>
+<polygon fill="#777777" stroke="#777777" points="606.5,-11102 542.5,-11102 542.5,-11078 606.5,-11078 606.5,-11102"/>
+<text text-anchor="middle" x="574.5" y="-11087.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_close</text>
 </g>
-<!-- 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>
+<!-- proc~netcdf_close&#45;&gt;nf90_close -->
+<g id="call~~graph~~CallGraph_edge315" class="edge">
+<title>proc~netcdf_close&#45;&gt;nf90_close</title>
+<path fill="none" stroke="#000000" d="M363.7,-11090C408.45,-11090 485.02,-11090 532.24,-11090"/>
+<polygon fill="#000000" stroke="#000000" points="532.42,-11093.5 542.42,-11090 532.42,-11086.5 532.42,-11093.5"/>
 </g>
+<!-- util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node734" class="node">
+<title>util_copy_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="629,-3486 520,-3486 520,-3462 629,-3462 629,-3486"/>
+<text text-anchor="middle" x="574.5" y="-3471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
 </g>
-<!-- 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>
+<!-- proc~symba_util_copy_encounter&#45;&gt;util_copy_encounter -->
+<g id="call~~graph~~CallGraph_edge316" class="edge">
+<title>proc~symba_util_copy_encounter&#45;&gt;util_copy_encounter</title>
+<path fill="none" stroke="#000000" d="M400.33,-3474C435.07,-3474 476.32,-3474 509.85,-3474"/>
+<polygon fill="#000000" stroke="#000000" points="509.99,-3477.5 519.99,-3474 509.99,-3470.5 509.99,-3477.5"/>
 </g>
+<!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge317" class="edge">
+<title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M896.02,-5413.9C943.73,-5420.69 1011.34,-5430.31 1053.79,-5436.35"/>
+<polygon fill="#000000" stroke="#000000" points="1053.35,-5439.82 1063.75,-5437.77 1054.34,-5432.89 1053.35,-5439.82"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge318" class="edge">
+<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M896.02,-5400.07C941.04,-5395.27 1003.79,-5388.57 1046.38,-5384.03"/>
+<polygon fill="#000000" stroke="#000000" points="1046.91,-5387.49 1056.49,-5382.95 1046.17,-5380.53 1046.91,-5387.49"/>
 </g>
-<!-- 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>
+<!-- orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_node742" class="node">
+<title>orbel_xv2aeq</title>
+<polygon fill="#777777" stroke="#777777" points="1778.5,-618 1701.5,-618 1701.5,-594 1778.5,-594 1778.5,-618"/>
+<text text-anchor="middle" x="1740" y="-603.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="call~~graph~~CallGraph_edge319" class="edge">
+<title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" d="M1641.38,-593.91C1658.1,-595.98 1675.5,-598.13 1690.9,-600.04"/>
+<polygon fill="#000000" stroke="#000000" points="1690.85,-603.56 1701.2,-601.32 1691.71,-596.61 1690.85,-603.56"/>
 </g>
-<!-- proc~util_resize_pl -->
-<g id="call~~graph~~CallGraph_node470" class="node">
-<title>proc~util_resize_pl</title>
-<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>
+<!-- proc~helio_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge320" class="edge">
+<title>proc~helio_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M402.66,-8376.61C429.8,-8374.29 460.66,-8371.65 488.62,-8369.26"/>
+<polygon fill="#000000" stroke="#000000" points="489.11,-8372.73 498.77,-8368.39 488.51,-8365.76 489.11,-8372.73"/>
 </g>
+<!-- proc~setup_pl -->
+<g id="call~~graph~~CallGraph_node321" class="node">
+<title>proc~setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node321"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="354,-10892 300,-10892 300,-10868 354,-10868 354,-10892"/>
+<text text-anchor="middle" x="327" y="-10877.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- interface~setup_body -->
+<g id="call~~graph~~CallGraph_node478" class="node">
+<title>interface~setup_body</title>
+<g id="a_call~~graph~~CallGraph_node478"><a xlink:href=".././interface/setup_body.html" xlink:title="setup_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="608.5,-10871 540.5,-10871 540.5,-10847 608.5,-10847 608.5,-10871"/>
+<text text-anchor="middle" x="574.5" y="-10856.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_body</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
+<g id="call~~graph~~CallGraph_edge321" class="edge">
+<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
+<path fill="none" stroke="#000000" d="M354.27,-10877.75C396.4,-10874.15 479.47,-10867.04 530.38,-10862.69"/>
+<polygon fill="#000000" stroke="#000000" points="530.76,-10866.17 540.42,-10861.83 530.16,-10859.19 530.76,-10866.17"/>
 </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>
+<!-- proc~symba_util_fill_arr_kin -->
+<g id="call~~graph~~CallGraph_node323" class="node">
+<title>proc~symba_util_fill_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node323"><a xlink:href=".././proc/symba_util_fill_arr_kin.html" xlink:title="symba_util_fill_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="156,-11144 38,-11144 38,-11120 156,-11120 156,-11144"/>
+<text text-anchor="middle" x="97" y="-11129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- proc~symba_util_sort_pl&#45;&gt;util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge322" class="edge">
+<title>proc~symba_util_sort_pl&#45;&gt;util_sort_pl</title>
+<path fill="none" stroke="#000000" d="M378.27,-5555.7C423.76,-5551.81 489.94,-5546.15 532.35,-5542.52"/>
+<polygon fill="#000000" stroke="#000000" points="532.67,-5546.01 542.33,-5541.67 532.07,-5539.03 532.67,-5546.01"/>
 </g>
-<!-- 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>
+<!-- proc~setup_tp -->
+<g id="call~~graph~~CallGraph_node326" class="node">
+<title>proc~setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node326"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="354,-10850 300,-10850 300,-10826 354,-10826 354,-10850"/>
+<text text-anchor="middle" x="327" y="-10835.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
+<g id="call~~graph~~CallGraph_edge323" class="edge">
+<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
+<path fill="none" stroke="#000000" d="M354.27,-10840.25C396.4,-10843.85 479.47,-10850.96 530.38,-10855.31"/>
+<polygon fill="#000000" stroke="#000000" points="530.16,-10858.81 540.42,-10856.17 530.76,-10851.83 530.16,-10858.81"/>
 </g>
+<!-- proc~symba_util_sort_tp&#45;&gt;util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge324" class="edge">
+<title>proc~symba_util_sort_tp&#45;&gt;util_sort_tp</title>
+<path fill="none" stroke="#000000" d="M378.57,-5681.67C423.83,-5677.8 489.38,-5672.2 531.73,-5668.57"/>
+<polygon fill="#000000" stroke="#000000" points="532.04,-5672.06 541.7,-5667.72 531.44,-5665.08 532.04,-5672.06"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_edge325" class="edge">
+<title>proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M404.67,-4109C439.45,-4111.26 480.01,-4113.91 512.66,-4116.03"/>
+<polygon fill="#000000" stroke="#000000" points="512.75,-4119.55 522.96,-4116.71 513.21,-4112.56 512.75,-4119.55"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge326" class="edge">
+<title>proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" d="M403.42,-4091.89C410.58,-4089.45 417.56,-4086.52 424,-4083 443.85,-4072.14 439.97,-4057.53 460,-4047 473.82,-4039.73 489.75,-4034.94 505.21,-4031.8"/>
+<polygon fill="#000000" stroke="#000000" points="506.07,-4035.2 515.28,-4029.96 504.82,-4028.31 506.07,-4035.2"/>
 </g>
+<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<g id="call~~graph~~CallGraph_edge327" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
+<path fill="none" stroke="#000000" d="M886.61,-771.65C935.8,-779.82 1012.68,-792.58 1057.57,-800.03"/>
+<polygon fill="#000000" stroke="#000000" points="1057.01,-803.49 1067.45,-801.67 1058.15,-796.58 1057.01,-803.49"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge329" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M886.63,-760.83C909.91,-761.82 936.78,-767.36 954,-785 1024.73,-857.47 931.73,-927.17 990,-1010 1006.21,-1033.05 1034.83,-1047.77 1057.87,-1056.47"/>
+<polygon fill="#000000" stroke="#000000" points="1056.75,-1059.79 1067.35,-1059.84 1059.1,-1053.19 1056.75,-1059.79"/>
 </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>
+<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge328" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;util_fill_tp</title>
+<path fill="none" stroke="#000000" d="M886.61,-764C935.04,-764 1010.3,-764 1055.45,-764"/>
+<polygon fill="#000000" stroke="#000000" points="1055.7,-767.5 1065.7,-764 1055.7,-760.5 1055.7,-767.5"/>
+</g>
+<!-- proc~util_coord_b2h_pl -->
+<g id="call~~graph~~CallGraph_node330" class="node">
+<title>proc~util_coord_b2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node330"><a xlink:href=".././proc/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-11186 278.5,-11186 278.5,-11162 375.5,-11162 375.5,-11186"/>
+<text text-anchor="middle" x="327" y="-11171.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~user_kick_getacch_body -->
+<g id="call~~graph~~CallGraph_node331" class="node">
+<title>proc~user_kick_getacch_body</title>
+<g id="a_call~~graph~~CallGraph_node331"><a xlink:href=".././proc/user_kick_getacch_body.html" xlink:title="user_kick_getacch_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-11228 262,-11228 262,-11204 392,-11204 392,-11228"/>
+<text text-anchor="middle" x="327" y="-11213.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_kick_getacch_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<g id="call~~graph~~CallGraph_edge330" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
+<path fill="none" stroke="#000000" d="M886.61,-840.35C935.8,-832.18 1012.68,-819.42 1057.57,-811.97"/>
+<polygon fill="#000000" stroke="#000000" points="1058.15,-815.42 1067.45,-810.33 1057.01,-808.51 1058.15,-815.42"/>
 </g>
+<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge331" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M886.61,-848C935.3,-848 1011.12,-848 1056.19,-848"/>
+<polygon fill="#000000" stroke="#000000" points="1056.41,-851.5 1066.41,-848 1056.41,-844.5 1056.41,-851.5"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge332" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M879.99,-860.1C904.33,-869.4 934.52,-884.51 954,-907 985.75,-943.65 958.69,-972.97 990,-1010 1007.88,-1031.15 1035.69,-1045.85 1057.98,-1055.01"/>
+<polygon fill="#000000" stroke="#000000" points="1056.88,-1058.34 1067.47,-1058.72 1059.43,-1051.82 1056.88,-1058.34"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange -->
+<g id="call~~graph~~CallGraph_edge333" class="edge">
+<title>proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M395.67,-4176C405.33,-4173.48 415.02,-4170.5 424,-4167 441.26,-4160.27 442.78,-4152.81 460,-4146 476.66,-4139.41 495.38,-4134.27 512.75,-4130.36"/>
+<polygon fill="#000000" stroke="#000000" points="513.75,-4133.73 522.79,-4128.2 512.27,-4126.88 513.75,-4133.73"/>
 </g>
+<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge334" class="edge">
+<title>proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" d="M405,-4181.41C437.09,-4178.67 474.05,-4175.51 505.16,-4172.85"/>
+<polygon fill="#000000" stroke="#000000" points="505.81,-4176.3 515.47,-4171.96 505.21,-4169.33 505.81,-4176.3"/>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_consolidate_colliders -->
+<g id="call~~graph~~CallGraph_node334" class="node">
+<title>proc~symba_collision_consolidate_colliders</title>
+<g id="a_call~~graph~~CallGraph_node334"><a xlink:href=".././proc/symba_collision_consolidate_colliders.html" xlink:title="symba_collision_consolidate_colliders">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1191,-272 998,-272 998,-248 1191,-248 1191,-272"/>
+<text text-anchor="middle" x="1094.5" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_colliders</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- idx_arr -->
+<g id="call~~graph~~CallGraph_node688" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="1366.5,-272 1312.5,-272 1312.5,-248 1366.5,-248 1366.5,-272"/>
+<text text-anchor="middle" x="1339.5" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
 </g>
-<!-- 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"/>
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr -->
+<g id="call~~graph~~CallGraph_edge336" class="edge">
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M1191.19,-260C1230.11,-260 1272.73,-260 1302.07,-260"/>
+<polygon fill="#000000" stroke="#000000" points="1302.24,-263.5 1312.24,-260 1302.24,-256.5 1302.24,-263.5"/>
 </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>
+<!-- id_arr -->
+<g id="call~~graph~~CallGraph_node737" class="node">
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="1366.5,-230 1312.5,-230 1312.5,-206 1366.5,-206 1366.5,-230"/>
+<text text-anchor="middle" x="1339.5" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
 </g>
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;id_arr -->
+<g id="call~~graph~~CallGraph_edge335" class="edge">
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M1165.13,-247.96C1209.94,-240.22 1266.33,-230.47 1302.4,-224.24"/>
+<polygon fill="#000000" stroke="#000000" points="1303.2,-227.65 1312.46,-222.5 1302.01,-220.76 1303.2,-227.65"/>
 </g>
-<!-- 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"/>
+<!-- proc~drift_body -->
+<g id="call~~graph~~CallGraph_node336" class="node">
+<title>proc~drift_body</title>
+<g id="a_call~~graph~~CallGraph_node336"><a xlink:href=".././proc/drift_body.html" xlink:title="drift_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="357,-11270 297,-11270 297,-11246 357,-11246 357,-11270"/>
+<text text-anchor="middle" x="327" y="-11255.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_body</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- interface~drift_all -->
+<g id="call~~graph~~CallGraph_node382" class="node">
+<title>interface~drift_all</title>
+<g id="a_call~~graph~~CallGraph_node382"><a xlink:href=".././interface/drift_all.html" xlink:title="drift_all">
+<polygon fill="#a7506f" stroke="#a7506f" points="601.5,-11270 547.5,-11270 547.5,-11246 601.5,-11246 601.5,-11270"/>
+<text text-anchor="middle" x="574.5" y="-11255.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~drift_body&#45;&gt;interface~drift_all -->
+<g id="call~~graph~~CallGraph_edge337" class="edge">
+<title>proc~drift_body&#45;&gt;interface~drift_all</title>
+<path fill="none" stroke="#000000" d="M357.13,-11258C402.09,-11258 488.32,-11258 537.26,-11258"/>
+<polygon fill="#000000" stroke="#000000" points="537.39,-11261.5 547.39,-11258 537.39,-11254.5 537.39,-11261.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>
+<!-- proc~symba_util_spill_arr_kin -->
+<g id="call~~graph~~CallGraph_node337" class="node">
+<title>proc~symba_util_spill_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node337"><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,-11312 33.5,-11312 33.5,-11288 160.5,-11288 160.5,-11312"/>
+<text text-anchor="middle" x="97" y="-11297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_peri_pl&#45;&gt;orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_edge338" class="edge">
+<title>proc~symba_util_peri_pl&#45;&gt;orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" d="M1619.9,-620.76C1642.47,-617.96 1668.97,-614.68 1691.23,-611.92"/>
+<polygon fill="#000000" stroke="#000000" points="1691.96,-615.36 1701.45,-610.65 1691.1,-608.41 1691.96,-615.36"/>
 </g>
-<!-- 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"/>
+<!-- gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_node725" class="node">
+<title>gr_kick_getacch</title>
+<polygon fill="#777777" stroke="#777777" points="619.5,-7408 529.5,-7408 529.5,-7384 619.5,-7384 619.5,-7408"/>
+<text text-anchor="middle" x="574.5" y="-7393.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
 </g>
-<!-- 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"/>
+<!-- proc~helio_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge339" class="edge">
+<title>proc~helio_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M393.79,-7411.37C433,-7408.02 482.17,-7403.81 519.16,-7400.65"/>
+<polygon fill="#000000" stroke="#000000" points="519.59,-7404.12 529.25,-7399.79 518.99,-7397.15 519.59,-7404.12"/>
 </g>
-<!-- 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"/>
+<!-- idx1 -->
+<g id="call~~graph~~CallGraph_node699" class="node">
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-230 1067.5,-230 1067.5,-206 1121.5,-206 1121.5,-230"/>
+<text text-anchor="middle" x="1094.5" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_encounter_extract_collisions&#45;&gt;idx1 -->
+<g id="call~~graph~~CallGraph_edge341" class="edge">
+<title>proc~symba_collision_encounter_extract_collisions&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M941.95,-200.03C982.77,-204.87 1027.23,-210.14 1057.37,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="1057.06,-217.2 1067.4,-214.91 1057.88,-210.25 1057.06,-217.2"/>
 </g>
+<!-- idx2 -->
+<g id="call~~graph~~CallGraph_node717" class="node">
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-188 1067.5,-188 1067.5,-164 1121.5,-164 1121.5,-188"/>
+<text text-anchor="middle" x="1094.5" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_encounter_extract_collisions&#45;&gt;idx2 -->
+<g id="call~~graph~~CallGraph_edge340" class="edge">
+<title>proc~symba_collision_encounter_extract_collisions&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M954.05,-182.61C991.28,-180.85 1030.01,-179.01 1057.19,-177.72"/>
+<polygon fill="#000000" stroke="#000000" points="1057.54,-181.21 1067.36,-177.24 1057.21,-174.22 1057.54,-181.21"/>
 </g>
-<!-- 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"/>
+<!-- proc~drift_all -->
+<g id="call~~graph~~CallGraph_node342" class="node">
+<title>proc~drift_all</title>
+<g id="a_call~~graph~~CallGraph_node342"><a xlink:href=".././proc/drift_all.html" xlink:title="drift_all">
+<polygon fill="#d9534f" stroke="#d9534f" points="866.5,-11270 812.5,-11270 812.5,-11246 866.5,-11246 866.5,-11270"/>
+<text text-anchor="middle" x="839.5" y="-11255.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~symba_util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node344" class="node">
+<title>proc~symba_util_spill_encounter</title>
+<g id="a_call~~graph~~CallGraph_node344"><a xlink:href=".././proc/symba_util_spill_encounter.html" xlink:title="symba_util_spill_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="910.5,-1667 768.5,-1667 768.5,-1643 910.5,-1643 910.5,-1667"/>
+<text text-anchor="middle" x="839.5" y="-1652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_spill_encounter&#45;&gt;interface~util_spill -->
+<g id="call~~graph~~CallGraph_edge344" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M910.64,-1646.41C958.23,-1640.58 1019.19,-1633.11 1057.3,-1628.44"/>
+<polygon fill="#000000" stroke="#000000" points="1057.92,-1631.89 1067.42,-1627.2 1057.06,-1624.94 1057.92,-1631.89"/>
 </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>
+<!-- util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node698" class="node">
+<title>util_spill_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="1146.5,-1678 1042.5,-1678 1042.5,-1654 1146.5,-1654 1146.5,-1678"/>
+<text text-anchor="middle" x="1094.5" y="-1663.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
 </g>
+<!-- proc~symba_util_spill_encounter&#45;&gt;util_spill_encounter -->
+<g id="call~~graph~~CallGraph_edge343" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;util_spill_encounter</title>
+<path fill="none" stroke="#000000" d="M910.64,-1658.05C948.73,-1659.71 995.4,-1661.73 1032.06,-1663.33"/>
+<polygon fill="#000000" stroke="#000000" points="1031.97,-1666.83 1042.12,-1663.77 1032.28,-1659.83 1031.97,-1666.83"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_spill_encounter&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge342" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M910.42,-1642.94C927.17,-1636.71 943.28,-1627.28 954,-1613 1021.4,-1523.19 924,-1199.84 990,-1109 1005.59,-1087.54 1034.06,-1077.03 1057.2,-1071.88"/>
+<polygon fill="#000000" stroke="#000000" points="1057.93,-1075.31 1067.06,-1069.93 1056.58,-1068.44 1057.93,-1075.31"/>
 </g>
-<!-- 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>
+<!-- proc~helio_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge345" class="edge">
+<title>proc~helio_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M393.79,-7380.63C433,-7383.98 482.17,-7388.19 519.16,-7391.35"/>
+<polygon fill="#000000" stroke="#000000" points="518.99,-7394.85 529.25,-7392.21 519.59,-7387.88 518.99,-7394.85"/>
 </g>
+<!-- gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_node689" class="node">
+<title>gr_p4_pos_kick</title>
+<polygon fill="#777777" stroke="#777777" points="618.5,-7576 530.5,-7576 530.5,-7552 618.5,-7552 618.5,-7576"/>
+<text text-anchor="middle" x="574.5" y="-7561.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
 </g>
-<!-- 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"/>
+<!-- proc~helio_gr_p4_pl&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge346" class="edge">
+<title>proc~helio_gr_p4_pl&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M368.54,-7581.53C410.07,-7577.98 474.83,-7572.44 520.42,-7568.54"/>
+<polygon fill="#000000" stroke="#000000" points="520.76,-7572.02 530.42,-7567.68 520.16,-7565.05 520.76,-7572.02"/>
 </g>
-<!-- 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>
+<!-- proc~kick_getacch_int_one_pl -->
+<g id="call~~graph~~CallGraph_node348" class="node">
+<title>proc~kick_getacch_int_one_pl</title>
+<g id="a_call~~graph~~CallGraph_node348"><a xlink:href=".././proc/kick_getacch_int_one_pl.html" xlink:title="kick_getacch_int_one_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-11354 262,-11354 262,-11330 392,-11330 392,-11354"/>
+<text text-anchor="middle" x="327" y="-11339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_node349" class="node">
+<title>proc~kick_getacch_int_all_pl</title>
+<g id="a_call~~graph~~CallGraph_node349"><a xlink:href=".././proc/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="900.5,-11396 778.5,-11396 778.5,-11372 900.5,-11372 900.5,-11396"/>
+<text text-anchor="middle" x="839.5" y="-11381.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~drift_kepmd -->
+<g id="call~~graph~~CallGraph_node350" class="node">
+<title>proc~drift_kepmd</title>
+<g id="a_call~~graph~~CallGraph_node350"><a xlink:href=".././proc/drift_kepmd.html" xlink:title="drift_kepmd">
+<polygon fill="#d9534f" stroke="#d9534f" points="874,-6240 805,-6240 805,-6216 874,-6216 874,-6240"/>
+<text text-anchor="middle" x="839.5" y="-6225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepmd</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
+<!-- proc~symba_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node351" class="node">
+<title>proc~symba_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node351"><a xlink:href=".././proc/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="890.5,-1604 788.5,-1604 788.5,-1580 890.5,-1580 890.5,-1604"/>
+<text text-anchor="middle" x="839.5" y="-1589.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<g id="call~~graph~~CallGraph_edge349" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M890.79,-1598.36C939.91,-1604.57 1013.48,-1613.88 1057.17,-1619.41"/>
+<polygon fill="#000000" stroke="#000000" points="1056.98,-1622.91 1067.34,-1620.69 1057.86,-1615.96 1056.98,-1622.91"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge347" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M890.68,-1595.56C913.26,-1594.31 938.32,-1588.43 954,-1571 1022.89,-1494.46 929.2,-1192.12 990,-1109 1005.66,-1087.59 1034.12,-1077.07 1057.25,-1071.92"/>
+<polygon fill="#000000" stroke="#000000" points="1057.97,-1075.34 1067.1,-1069.96 1056.61,-1068.47 1057.97,-1075.34"/>
 </g>
+<!-- proc~symba_util_spill_pl&#45;&gt;util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge348" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M890.79,-1590.01C938.15,-1588.14 1008.23,-1585.37 1052.35,-1583.63"/>
+<polygon fill="#000000" stroke="#000000" points="1052.58,-1587.12 1062.44,-1583.23 1052.31,-1580.13 1052.58,-1587.12"/>
 </g>
-<!-- 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>
+<!-- proc~kick_getacch_int_one_tp -->
+<g id="call~~graph~~CallGraph_node352" class="node">
+<title>proc~kick_getacch_int_one_tp</title>
+<g id="a_call~~graph~~CallGraph_node352"><a xlink:href=".././proc/kick_getacch_int_one_tp.html" xlink:title="kick_getacch_int_one_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-11438 262,-11438 262,-11414 392,-11414 392,-11438"/>
+<text text-anchor="middle" x="327" y="-11423.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~drift_one -->
+<g id="call~~graph~~CallGraph_node353" class="node">
+<title>proc~drift_one</title>
+<g id="a_call~~graph~~CallGraph_node353"><a xlink:href=".././proc/drift_one.html" xlink:title="drift_one">
+<polygon fill="#d9534f" stroke="#d9534f" points="354.5,-11480 299.5,-11480 299.5,-11456 354.5,-11456 354.5,-11480"/>
+<text text-anchor="middle" x="327" y="-11465.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_one</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message -->
+<g id="call~~graph~~CallGraph_edge350" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M1421.17,-374.98C1436.9,-372.84 1453.54,-370.56 1469.75,-368.35"/>
+<polygon fill="#000000" stroke="#000000" points="1470.33,-371.8 1479.77,-366.98 1469.39,-364.87 1470.33,-371.8"/>
 </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>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="call~~graph~~CallGraph_node533" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_call~~graph~~CallGraph_node533"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="1648.5,-325 1488.5,-325 1488.5,-301 1648.5,-301 1648.5,-325"/>
+<text text-anchor="middle" x="1568.5" y="-310.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge351" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1420.97,-373.95C1428.94,-371.5 1436.76,-368.55 1444,-365 1462.96,-355.71 1461.21,-343.62 1480,-334 1483.94,-331.98 1488.08,-330.16 1492.32,-328.5"/>
+<polygon fill="#000000" stroke="#000000" points="1493.51,-331.79 1501.75,-325.14 1491.16,-325.2 1493.51,-331.79"/>
 </g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge352" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M1421.17,-393.46C1440.6,-395.26 1461.42,-397.19 1481.1,-399.01"/>
+<polygon fill="#000000" stroke="#000000" points="1480.99,-402.51 1491.27,-399.95 1481.63,-395.54 1480.99,-402.51"/>
 </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"/>
+<!-- proc~helio_gr_p4_tp&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge353" class="edge">
+<title>proc~helio_gr_p4_tp&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M369.09,-7546.51C410.5,-7550.06 474.6,-7555.54 519.97,-7559.42"/>
+<polygon fill="#000000" stroke="#000000" points="519.94,-7562.93 530.21,-7560.3 520.54,-7555.96 519.94,-7562.93"/>
 </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>
+<!-- interface~util_spill_body -->
+<g id="call~~graph~~CallGraph_node356" class="node">
+<title>interface~util_spill_body</title>
+<g id="a_call~~graph~~CallGraph_node356"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="614,-11553 535,-11553 535,-11529 614,-11529 614,-11553"/>
+<text text-anchor="middle" x="574.5" y="-11538.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_spill_body -->
+<g id="call~~graph~~CallGraph_node614" class="node">
+<title>proc~util_spill_body</title>
+<g id="a_call~~graph~~CallGraph_node614"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="879,-11553 800,-11553 800,-11529 879,-11529 879,-11553"/>
+<text text-anchor="middle" x="839.5" y="-11538.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
+<g id="call~~graph~~CallGraph_edge354" class="edge">
+<title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.02,-11541C660.61,-11541 739.07,-11541 789.8,-11541"/>
+<polygon fill="#000000" stroke="#000000" points="789.87,-11544.5 799.87,-11541 789.87,-11537.5 789.87,-11544.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_resize_arr_kin -->
+<g id="call~~graph~~CallGraph_node357" class="node">
+<title>proc~symba_util_resize_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node357"><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,-11625 28.5,-11625 28.5,-11601 165.5,-11601 165.5,-11625"/>
+<text text-anchor="middle" x="97" y="-11610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~drift_dan -->
+<g id="call~~graph~~CallGraph_node358" class="node">
+<title>proc~drift_dan</title>
+<g id="a_call~~graph~~CallGraph_node358"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
+<polygon fill="#d9534f" stroke="#d9534f" points="602,-6261 547,-6261 547,-6237 602,-6237 602,-6261"/>
+<text text-anchor="middle" x="574.5" y="-6246.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
+<g id="call~~graph~~CallGraph_edge355" class="edge">
+<title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
+<path fill="none" stroke="#000000" d="M602.17,-6251.13C648.69,-6254.84 744.89,-6262.53 799.11,-6266.85"/>
+<polygon fill="#000000" stroke="#000000" points="799.12,-6270.37 809.37,-6267.67 799.68,-6263.39 799.12,-6270.37"/>
 </g>
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepmd -->
+<g id="call~~graph~~CallGraph_edge356" class="edge">
+<title>proc~drift_dan&#45;&gt;proc~drift_kepmd</title>
+<path fill="none" stroke="#000000" d="M602.17,-6246.87C647.44,-6243.26 739.74,-6235.89 794.64,-6231.5"/>
+<polygon fill="#000000" stroke="#000000" points="795.08,-6234.98 804.77,-6230.69 794.52,-6228 795.08,-6234.98"/>
 </g>
-<!-- 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>
+<!-- interface~util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node359" class="node">
+<title>interface~util_spill_encounter</title>
+<g id="a_call~~graph~~CallGraph_node359"><a xlink:href=".././interface/util_spill_encounter.html" xlink:title="util_spill_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="626.5,-11473 522.5,-11473 522.5,-11449 626.5,-11449 626.5,-11473"/>
+<text text-anchor="middle" x="574.5" y="-11458.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node679" class="node">
+<title>proc~util_spill_encounter</title>
+<g id="a_call~~graph~~CallGraph_node679"><a xlink:href=".././proc/util_spill_encounter.html" xlink:title="util_spill_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="891.5,-11473 787.5,-11473 787.5,-11449 891.5,-11449 891.5,-11473"/>
+<text text-anchor="middle" x="839.5" y="-11458.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter -->
+<g id="call~~graph~~CallGraph_edge357" class="edge">
+<title>interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.52,-11461C669.57,-11461 731.32,-11461 777.08,-11461"/>
+<polygon fill="#000000" stroke="#000000" points="777.17,-11464.5 787.17,-11461 777.17,-11457.5 777.17,-11464.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_spill_pl -->
+<g id="call~~graph~~CallGraph_node360" class="node">
+<title>interface~util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node360"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-11583 65,-11583 65,-11559 129,-11559 129,-11583"/>
+<text text-anchor="middle" x="97" y="-11568.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_spill_pl -->
+<g id="call~~graph~~CallGraph_node598" class="node">
+<title>proc~util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node598"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-11583 295,-11583 295,-11559 359,-11559 359,-11583"/>
+<text text-anchor="middle" x="327" y="-11568.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge358" 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,-11571C169.53,-11571 239.8,-11571 284.55,-11571"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-11574.5 294.79,-11571 284.79,-11567.5 284.79,-11574.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_spill_tp -->
+<g id="call~~graph~~CallGraph_node361" class="node">
+<title>interface~util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node361"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-11522 64.5,-11522 64.5,-11498 129.5,-11498 129.5,-11522"/>
+<text text-anchor="middle" x="97" y="-11507.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- 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~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>
-<!-- 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>
+<!-- proc~util_spill_tp -->
+<g id="call~~graph~~CallGraph_node600" class="node">
+<title>proc~util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node600"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-11522 294.5,-11522 294.5,-11498 359.5,-11498 359.5,-11522"/>
+<text text-anchor="middle" x="327" y="-11507.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge359" 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,-11510C169.92,-11510 239.38,-11510 283.98,-11510"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-11513.5 294.2,-11510 284.2,-11506.5 284.2,-11513.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_valid_id_system -->
+<g id="call~~graph~~CallGraph_node362" class="node">
+<title>interface~util_valid_id_system</title>
+<g id="a_call~~graph~~CallGraph_node362"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="628.5,-2314 520.5,-2314 520.5,-2290 628.5,-2290 628.5,-2314"/>
+<text text-anchor="middle" x="574.5" y="-2299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_valid_id_system -->
+<g id="call~~graph~~CallGraph_node608" class="node">
+<title>proc~util_valid_id_system</title>
+<g id="a_call~~graph~~CallGraph_node608"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="893.5,-2314 785.5,-2314 785.5,-2290 893.5,-2290 893.5,-2314"/>
+<text text-anchor="middle" x="839.5" y="-2299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="call~~graph~~CallGraph_edge360" 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="M628.72,-2302C671.05,-2302 730.4,-2302 775.17,-2302"/>
+<polygon fill="#000000" stroke="#000000" points="775.36,-2305.5 785.36,-2302 775.36,-2298.5 775.36,-2305.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_spill_tp -->
+<g id="call~~graph~~CallGraph_node363" class="node">
+<title>proc~symba_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node363"><a xlink:href=".././proc/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="891,-1562 788,-1562 788,-1538 891,-1538 891,-1562"/>
+<text text-anchor="middle" x="839.5" y="-1547.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<g id="call~~graph~~CallGraph_edge363" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M891.23,-1553.45C911.53,-1556.32 934.65,-1561.54 954,-1571 973.23,-1580.4 970.85,-1593.43 990,-1603 1010.91,-1613.45 1036.65,-1618.7 1057.24,-1621.33"/>
+<polygon fill="#000000" stroke="#000000" points="1056.85,-1624.81 1067.18,-1622.46 1057.64,-1617.86 1056.85,-1624.81"/>
 </g>
-<!-- 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>
+<!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge362" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;util_spill_tp</title>
+<path fill="none" stroke="#000000" d="M891.09,-1548C938.22,-1546.14 1007.65,-1543.39 1051.71,-1541.65"/>
+<polygon fill="#000000" stroke="#000000" points="1051.94,-1545.15 1061.79,-1541.25 1051.66,-1538.15 1051.94,-1545.15"/>
 </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"/>
+<!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge361" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M891.2,-1553.48C913.61,-1552.14 938.38,-1546.22 954,-1529 1016.93,-1459.61 934.4,-1184.39 990,-1109 1005.74,-1087.66 1034.2,-1077.13 1057.3,-1071.96"/>
+<polygon fill="#000000" stroke="#000000" points="1058.02,-1075.38 1067.14,-1069.99 1056.65,-1068.52 1058.02,-1075.38"/>
 </g>
-<!-- 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>
+<!-- proc~util_version -->
+<g id="call~~graph~~CallGraph_node492" class="node">
+<title>proc~util_version</title>
+<g id="a_call~~graph~~CallGraph_node492"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
+<polygon fill="#d9534f" stroke="#d9534f" points="1373,-3402 1306,-3402 1306,-3378 1373,-3378 1373,-3402"/>
+<text text-anchor="middle" x="1339.5" y="-3387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- interface~util_version&#45;&gt;proc~util_version -->
+<g id="call~~graph~~CallGraph_edge364" class="edge">
+<title>interface~util_version&#45;&gt;proc~util_version</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1128.02,-3390C1171.27,-3390 1247.83,-3390 1295.73,-3390"/>
+<polygon fill="#000000" stroke="#000000" points="1295.78,-3393.5 1305.78,-3390 1295.78,-3386.5 1295.78,-3393.5"/>
+</g>
+<!-- interface~lambda_obj~2 -->
+<g id="call~~graph~~CallGraph_node368" class="node">
+<title>interface~lambda_obj~2</title>
+<g id="a_call~~graph~~CallGraph_node368"><a xlink:href=".././interface/lambda_obj~2.html" xlink:title="lambda_obj">
+<polygon fill="#a7506f" stroke="#a7506f" points="131,-11667 63,-11667 63,-11643 131,-11643 131,-11667"/>
+<text text-anchor="middle" x="97" y="-11652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~lambda_init_0 -->
+<g id="call~~graph~~CallGraph_node594" class="node">
+<title>proc~lambda_init_0</title>
+<g id="a_call~~graph~~CallGraph_node594"><a xlink:href=".././proc/lambda_init_0.html" xlink:title="lambda_init_0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="366.5,-11709 287.5,-11709 287.5,-11685 366.5,-11685 366.5,-11709"/>
+<text text-anchor="middle" x="327" y="-11694.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0 -->
+<g id="call~~graph~~CallGraph_edge365" 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,-11661.11C169.65,-11668.2 233.5,-11679.96 277.55,-11688.08"/>
+<polygon fill="#000000" stroke="#000000" points="277,-11691.53 287.47,-11689.9 278.27,-11684.65 277,-11691.53"/>
 </g>
-<!-- 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>
+<!-- proc~lambda_init_0_err -->
+<g id="call~~graph~~CallGraph_node603" class="node">
+<title>proc~lambda_init_0_err</title>
+<g id="a_call~~graph~~CallGraph_node603"><a xlink:href=".././proc/lambda_init_0_err.html" xlink:title="lambda_init_0_err">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="376.5,-11667 277.5,-11667 277.5,-11643 376.5,-11643 376.5,-11667"/>
+<text text-anchor="middle" x="327" y="-11652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0_err</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err -->
+<g id="call~~graph~~CallGraph_edge367" 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,-11655C166.71,-11655 223.89,-11655 267.14,-11655"/>
+<polygon fill="#000000" stroke="#000000" points="267.25,-11658.5 277.25,-11655 267.25,-11651.5 267.25,-11658.5"/>
 </g>
-<!-- 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>
+<!-- proc~lambda_init_tvar -->
+<g id="call~~graph~~CallGraph_node613" class="node">
+<title>proc~lambda_init_tvar</title>
+<g id="a_call~~graph~~CallGraph_node613"><a xlink:href=".././proc/lambda_init_tvar.html" xlink:title="lambda_init_tvar">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="372.5,-11625 281.5,-11625 281.5,-11601 372.5,-11601 372.5,-11625"/>
+<text text-anchor="middle" x="327" y="-11610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_tvar</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar -->
+<g id="call~~graph~~CallGraph_edge366" 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,-11648.89C167.93,-11642.12 227.85,-11631.08 271.54,-11623.03"/>
+<polygon fill="#000000" stroke="#000000" points="272.24,-11626.46 281.44,-11621.21 270.97,-11619.58 272.24,-11626.46"/>
 </g>
-<!-- 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>
+<!-- proc~kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_node369" class="node">
+<title>proc~kick_getacch_int_pl</title>
+<g id="a_call~~graph~~CallGraph_node369"><a xlink:href=".././proc/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-11396 274,-11396 274,-11372 380,-11372 380,-11396"/>
+<text text-anchor="middle" x="327" y="-11381.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_node447" class="node">
+<title>interface~kick_getacch_int_all_pl</title>
+<g id="a_call~~graph~~CallGraph_node447"><a xlink:href=".././interface/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="635.5,-11396 513.5,-11396 513.5,-11372 635.5,-11372 635.5,-11396"/>
+<text text-anchor="middle" x="574.5" y="-11381.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_edge368" class="edge">
+<title>proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M380.06,-11384C415.93,-11384 464.01,-11384 503.26,-11384"/>
+<polygon fill="#000000" stroke="#000000" points="503.3,-11387.5 513.3,-11384 503.3,-11380.5 503.3,-11387.5"/>
+</g>
+<!-- proc~kick_getacch_int_tp -->
+<g id="call~~graph~~CallGraph_node370" class="node">
+<title>proc~kick_getacch_int_tp</title>
+<g id="a_call~~graph~~CallGraph_node370"><a xlink:href=".././proc/kick_getacch_int_tp.html" xlink:title="kick_getacch_int_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-11751 274,-11751 274,-11727 380,-11727 380,-11751"/>
+<text text-anchor="middle" x="327" y="-11736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message -->
+<g id="call~~graph~~CallGraph_edge369" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M1420.21,-347.86C1436.19,-348.64 1453.14,-349.46 1469.65,-350.26"/>
+<polygon fill="#000000" stroke="#000000" points="1469.7,-353.76 1479.86,-350.75 1470.04,-346.77 1469.7,-353.76"/>
 </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>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge370" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1420.21,-333.11C1439.03,-330.54 1459.22,-327.79 1478.42,-325.16"/>
+<polygon fill="#000000" stroke="#000000" points="1478.93,-328.63 1488.36,-323.81 1477.98,-321.69 1478.93,-328.63"/>
 </g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge371" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M1406.22,-356.02C1418.83,-358.7 1431.88,-361.72 1444,-365 1459.37,-369.15 1495.11,-381.42 1524.21,-391.62"/>
+<polygon fill="#000000" stroke="#000000" points="1523.19,-394.98 1533.79,-394.99 1525.51,-388.37 1523.19,-394.98"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
+<g id="call~~graph~~CallGraph_edge372" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M1404.76,-314.04C1417.8,-316.76 1431.38,-319.8 1444,-323 1460.22,-327.11 1463.86,-329.6 1480,-334 1488.13,-336.21 1496.71,-338.43 1505.2,-340.54"/>
+<polygon fill="#000000" stroke="#000000" points="1504.54,-343.98 1515.08,-342.97 1506.21,-337.19 1504.54,-343.98"/>
 </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>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge373" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1413.26,-305.53C1433.97,-306.53 1456.77,-307.63 1478.34,-308.68"/>
+<polygon fill="#000000" stroke="#000000" points="1478.32,-312.18 1488.48,-309.17 1478.66,-305.19 1478.32,-312.18"/>
 </g>
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge374" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M1413.23,-309.28C1424.11,-312.44 1434.77,-316.85 1444,-323 1467.71,-338.78 1457.46,-358.6 1480,-376 1487.94,-382.13 1497.2,-387.11 1506.65,-391.14"/>
+<polygon fill="#000000" stroke="#000000" points="1505.55,-394.47 1516.14,-394.86 1508.11,-387.95 1505.55,-394.47"/>
 </g>
-<!-- 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>
+<!-- interface~io_read_frame_cb -->
+<g id="call~~graph~~CallGraph_node373" class="node">
+<title>interface~io_read_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node373"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="624.5,-2986 524.5,-2986 524.5,-2962 624.5,-2962 624.5,-2986"/>
+<text text-anchor="middle" x="574.5" y="-2971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<g id="call~~graph~~CallGraph_edge375" 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="M624.66,-2974C668.34,-2974 732.3,-2974 778.88,-2974"/>
+<polygon fill="#000000" stroke="#000000" points="779.14,-2977.5 789.14,-2974 779.14,-2970.5 779.14,-2977.5"/>
 </g>
-<!-- proc~symba_collision_check_pltpenc -->
-<g id="call~~graph~~CallGraph_node423" class="node">
-<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>
+<!-- proc~util_peri_tp -->
+<g id="call~~graph~~CallGraph_node375" class="node">
+<title>proc~util_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node375"><a xlink:href=".././proc/util_peri_tp.html" xlink:title="util_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-8143 294.5,-8143 294.5,-8119 359.5,-8119 359.5,-8143"/>
+<text text-anchor="middle" x="327" y="-8128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_node472" class="node">
+<title>interface~orbel_xv2aeq</title>
+<g id="a_call~~graph~~CallGraph_node472"><a xlink:href=".././interface/orbel_xv2aeq.html" xlink:title="orbel_xv2aeq">
+<polygon fill="#a7506f" stroke="#a7506f" points="613,-8143 536,-8143 536,-8119 613,-8119 613,-8143"/>
+<text text-anchor="middle" x="574.5" y="-8128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
 </a>
 </g>
 </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"/>
+<!-- proc~util_peri_tp&#45;&gt;interface~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_edge376" class="edge">
+<title>proc~util_peri_tp&#45;&gt;interface~orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" d="M359.59,-8131C401.67,-8131 476.48,-8131 525.53,-8131"/>
+<polygon fill="#000000" stroke="#000000" points="525.59,-8134.5 535.59,-8131 525.59,-8127.5 525.59,-8134.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_frame_system -->
+<g id="call~~graph~~CallGraph_node376" class="node">
+<title>interface~io_read_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node376"><a xlink:href=".././interface/io_read_frame_system.html" xlink:title="io_read_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-8311 36,-8311 36,-8287 158,-8287 158,-8311"/>
+<text text-anchor="middle" x="97" y="-8296.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_system</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- interface~io_read_frame_system&#45;&gt;proc~io_read_frame_system -->
+<g id="call~~graph~~CallGraph_edge377" 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,-8299C188.07,-8299 224.34,-8299 255.5,-8299"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-8302.5 265.86,-8299 255.86,-8295.5 255.86,-8302.5"/>
+</g>
+<!-- interface~discard_pl -->
+<g id="call~~graph~~CallGraph_node377" class="node">
+<title>interface~discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node377"><a xlink:href=".././interface/discard_pl.html" xlink:title="discard_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="127.5,-11793 66.5,-11793 66.5,-11769 127.5,-11769 127.5,-11793"/>
+<text text-anchor="middle" x="97" y="-11778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~discard_pl -->
+<g id="call~~graph~~CallGraph_node538" class="node">
+<title>proc~discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node538"><a xlink:href=".././proc/discard_pl.html" xlink:title="discard_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="357.5,-11793 296.5,-11793 296.5,-11769 357.5,-11769 357.5,-11793"/>
+<text text-anchor="middle" x="327" y="-11778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- interface~discard_pl&#45;&gt;proc~discard_pl -->
+<g id="call~~graph~~CallGraph_edge378" class="edge">
+<title>interface~discard_pl&#45;&gt;proc~discard_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.81,-11781C168.35,-11781 240.98,-11781 286.16,-11781"/>
+<polygon fill="#000000" stroke="#000000" points="286.19,-11784.5 296.19,-11781 286.19,-11777.5 286.19,-11784.5"/>
+</g>
+<!-- proc~orbel_el2xv_vec -->
+<g id="call~~graph~~CallGraph_node378" class="node">
+<title>proc~orbel_el2xv_vec</title>
+<g id="a_call~~graph~~CallGraph_node378"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-5992 282,-5992 282,-5968 372,-5968 372,-5992"/>
+<text text-anchor="middle" x="327" y="-5977.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~orbel_el2xv -->
+<g id="call~~graph~~CallGraph_node459" class="node">
+<title>proc~orbel_el2xv</title>
+<g id="a_call~~graph~~CallGraph_node459"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
+<polygon fill="#d9534f" stroke="#d9534f" points="608,-5992 541,-5992 541,-5968 608,-5968 608,-5992"/>
+<text text-anchor="middle" x="574.5" y="-5977.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
+<g id="call~~graph~~CallGraph_edge379" class="edge">
+<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
+<path fill="none" stroke="#000000" d="M372.17,-5980C417.03,-5980 486.05,-5980 530.48,-5980"/>
+<polygon fill="#000000" stroke="#000000" points="530.67,-5983.5 540.67,-5980 530.67,-5976.5 530.67,-5983.5"/>
 </g>
-<!-- interface~helio_drift_tp -->
-<g id="call~~graph~~CallGraph_node427" class="node">
-<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>
+<!-- proc~util_coord_h2b_pl -->
+<g id="call~~graph~~CallGraph_node379" class="node">
+<title>proc~util_coord_h2b_pl</title>
+<g id="a_call~~graph~~CallGraph_node379"><a xlink:href=".././proc/util_coord_h2b_pl.html" xlink:title="util_coord_h2b_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-11835 278.5,-11835 278.5,-11811 375.5,-11811 375.5,-11835"/>
+<text text-anchor="middle" x="327" y="-11820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~discard_system -->
+<g id="call~~graph~~CallGraph_node380" class="node">
+<title>interface~discard_system</title>
+<g id="a_call~~graph~~CallGraph_node380"><a xlink:href=".././interface/discard_system.html" xlink:title="discard_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="140.5,-11877 53.5,-11877 53.5,-11853 140.5,-11853 140.5,-11877"/>
+<text text-anchor="middle" x="97" y="-11862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_system</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
+<!-- proc~discard_system -->
+<g id="call~~graph~~CallGraph_node516" class="node">
+<title>proc~discard_system</title>
+<g id="a_call~~graph~~CallGraph_node516"><a xlink:href=".././proc/discard_system.html" xlink:title="discard_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="370.5,-11877 283.5,-11877 283.5,-11853 370.5,-11853 370.5,-11877"/>
+<text text-anchor="middle" x="327" y="-11862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_system</text>
+</a>
+</g>
+</g>
+<!-- interface~discard_system&#45;&gt;proc~discard_system -->
+<g id="call~~graph~~CallGraph_edge380" class="edge">
+<title>interface~discard_system&#45;&gt;proc~discard_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.62,-11865C178.09,-11865 232.77,-11865 273.04,-11865"/>
+<polygon fill="#000000" stroke="#000000" points="273.2,-11868.5 283.2,-11865 273.2,-11861.5 273.2,-11868.5"/>
+</g>
+<!-- interface~discard_tp -->
+<g id="call~~graph~~CallGraph_node381" class="node">
+<title>interface~discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node381"><a xlink:href=".././interface/discard_tp.html" xlink:title="discard_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="128,-11919 66,-11919 66,-11895 128,-11895 128,-11919"/>
+<text text-anchor="middle" x="97" y="-11904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~discard_tp -->
+<g id="call~~graph~~CallGraph_node535" class="node">
+<title>proc~discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node535"><a xlink:href=".././proc/discard_tp.html" xlink:title="discard_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="358,-11919 296,-11919 296,-11895 358,-11895 358,-11919"/>
+<text text-anchor="middle" x="327" y="-11904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~discard_tp&#45;&gt;proc~discard_tp -->
+<g id="call~~graph~~CallGraph_edge381" class="edge">
+<title>interface~discard_tp&#45;&gt;proc~discard_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.28,-11907C168.76,-11907 240.64,-11907 285.68,-11907"/>
+<polygon fill="#000000" stroke="#000000" points="285.96,-11910.5 295.96,-11907 285.96,-11903.5 285.96,-11910.5"/>
+</g>
+<!-- interface~drift_all&#45;&gt;proc~drift_all -->
+<g id="call~~graph~~CallGraph_edge382" class="edge">
+<title>interface~drift_all&#45;&gt;proc~drift_all</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.68,-11258C648.94,-11258 748.58,-11258 802.32,-11258"/>
+<polygon fill="#000000" stroke="#000000" points="802.43,-11261.5 812.43,-11258 802.43,-11254.5 802.43,-11261.5"/>
+</g>
+<!-- interface~drift_body -->
+<g id="call~~graph~~CallGraph_node384" class="node">
+<title>interface~drift_body</title>
+<g id="a_call~~graph~~CallGraph_node384"><a xlink:href=".././interface/drift_body.html" xlink:title="drift_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="127,-11270 67,-11270 67,-11246 127,-11246 127,-11270"/>
+<text text-anchor="middle" x="97" y="-11255.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_body</text>
+</a>
+</g>
+</g>
+<!-- interface~drift_body&#45;&gt;proc~drift_body -->
+<g id="call~~graph~~CallGraph_edge383" class="edge">
+<title>interface~drift_body&#45;&gt;proc~drift_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.34,-11258C167.96,-11258 241.42,-11258 286.73,-11258"/>
+<polygon fill="#000000" stroke="#000000" points="286.77,-11261.5 296.77,-11258 286.77,-11254.5 286.77,-11261.5"/>
+</g>
+<!-- interface~drift_one -->
+<g id="call~~graph~~CallGraph_node385" class="node">
+<title>interface~drift_one</title>
+<g id="a_call~~graph~~CallGraph_node385"><a xlink:href=".././interface/drift_one.html" xlink:title="drift_one">
+<polygon fill="#a7506f" stroke="#a7506f" points="124.5,-11480 69.5,-11480 69.5,-11456 124.5,-11456 124.5,-11480"/>
+<text text-anchor="middle" x="97" y="-11465.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_one</text>
+</a>
+</g>
+</g>
+<!-- interface~drift_one&#45;&gt;proc~drift_one -->
 <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"/>
+<title>interface~drift_one&#45;&gt;proc~drift_one</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.6,-11468C165.25,-11468 242.95,-11468 289.05,-11468"/>
+<polygon fill="#000000" stroke="#000000" points="289.22,-11471.5 299.22,-11468 289.22,-11464.5 289.22,-11471.5"/>
 </g>
-<!-- interface~helio_drift_linear_pl -->
-<g id="call~~graph~~CallGraph_node428" class="node">
-<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>
+<!-- interface~util_index_eucl_plpl -->
+<g id="call~~graph~~CallGraph_node386" class="node">
+<title>interface~util_index_eucl_plpl</title>
+<g id="a_call~~graph~~CallGraph_node386"><a xlink:href=".././interface/util_index_eucl_plpl.html" xlink:title="util_index_eucl_plpl">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-11961 44,-11961 44,-11937 150,-11937 150,-11961"/>
+<text text-anchor="middle" x="97" y="-11946.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index_eucl_plpl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_index_eucl_plpl -->
+<g id="call~~graph~~CallGraph_node469" class="node">
+<title>proc~util_index_eucl_plpl</title>
+<g id="a_call~~graph~~CallGraph_node469"><a xlink:href=".././proc/util_index_eucl_plpl.html" xlink:title="util_index_eucl_plpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-11961 274,-11961 274,-11937 380,-11937 380,-11961"/>
+<text text-anchor="middle" x="327" y="-11946.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index_eucl_plpl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_linear_pl&#45;&gt;proc~helio_drift_linear_pl -->
+<!-- interface~util_index_eucl_plpl&#45;&gt;proc~util_index_eucl_plpl -->
 <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"/>
+<title>interface~util_index_eucl_plpl&#45;&gt;proc~util_index_eucl_plpl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-11949C183.76,-11949 227.89,-11949 263.52,-11949"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-11952.5 273.81,-11949 263.81,-11945.5 263.81,-11952.5"/>
 </g>
-<!-- interface~helio_drift_linear_tp -->
-<g id="call~~graph~~CallGraph_node429" class="node">
-<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>
+<!-- interface~util_index_eucl_pltp -->
+<g id="call~~graph~~CallGraph_node387" class="node">
+<title>interface~util_index_eucl_pltp</title>
+<g id="a_call~~graph~~CallGraph_node387"><a xlink:href=".././interface/util_index_eucl_pltp.html" xlink:title="util_index_eucl_pltp">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-12003 44,-12003 44,-11979 150,-11979 150,-12003"/>
+<text text-anchor="middle" x="97" y="-11988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index_eucl_pltp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_index_eucl_pltp -->
+<g id="call~~graph~~CallGraph_node475" class="node">
+<title>proc~util_index_eucl_pltp</title>
+<g id="a_call~~graph~~CallGraph_node475"><a xlink:href=".././proc/util_index_eucl_pltp.html" xlink:title="util_index_eucl_pltp">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-12003 274,-12003 274,-11979 380,-11979 380,-12003"/>
+<text text-anchor="middle" x="327" y="-11988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index_eucl_pltp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_linear_tp&#45;&gt;proc~helio_drift_linear_tp -->
+<!-- interface~util_index_eucl_pltp&#45;&gt;proc~util_index_eucl_pltp -->
 <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"/>
+<title>interface~util_index_eucl_pltp&#45;&gt;proc~util_index_eucl_pltp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-11991C183.76,-11991 227.89,-11991 263.52,-11991"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-11994.5 273.81,-11991 263.81,-11987.5 263.81,-11994.5"/>
 </g>
-<!-- proc~util_fill_arr_logical -->
-<g id="call~~graph~~CallGraph_node430" class="node">
-<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>
+<!-- proc~orbel_schget -->
+<g id="call~~graph~~CallGraph_node388" class="node">
+<title>proc~orbel_schget</title>
+<g id="a_call~~graph~~CallGraph_node388"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
+<polygon fill="#d9534f" stroke="#d9534f" points="1376.5,-5951 1302.5,-5951 1302.5,-5927 1376.5,-5927 1376.5,-5951"/>
+<text text-anchor="middle" x="1339.5" y="-5936.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~gr_kick_getaccb_ns_body -->
+<g id="call~~graph~~CallGraph_node389" class="node">
+<title>interface~gr_kick_getaccb_ns_body</title>
+<g id="a_call~~graph~~CallGraph_node389"><a xlink:href=".././interface/gr_kick_getaccb_ns_body.html" xlink:title="gr_kick_getaccb_ns_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="165,-12045 29,-12045 29,-12021 165,-12021 165,-12045"/>
+<text text-anchor="middle" x="97" y="-12030.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getaccb_ns_body</text>
+</a>
+</g>
+</g>
+<!-- proc~gr_kick_getaccb_ns_body -->
+<g id="call~~graph~~CallGraph_node530" class="node">
+<title>proc~gr_kick_getaccb_ns_body</title>
+<g id="a_call~~graph~~CallGraph_node530"><a xlink:href=".././proc/gr_kick_getaccb_ns_body.html" xlink:title="gr_kick_getaccb_ns_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="395,-12045 259,-12045 259,-12021 395,-12021 395,-12045"/>
+<text text-anchor="middle" x="327" y="-12030.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getaccb_ns_body</text>
+</a>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+</g>
+<!-- interface~gr_kick_getaccb_ns_body&#45;&gt;proc~gr_kick_getaccb_ns_body -->
 <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"/>
+<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,-12033C191.38,-12033 221.58,-12033 248.69,-12033"/>
+<polygon fill="#000000" stroke="#000000" points="248.91,-12036.5 258.91,-12033 248.91,-12029.5 248.91,-12036.5"/>
 </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>
+<!-- interface~util_append_body -->
+<g id="call~~graph~~CallGraph_node390" class="node">
+<title>interface~util_append_body</title>
+<g id="a_call~~graph~~CallGraph_node390"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="1143,-3321 1046,-3321 1046,-3297 1143,-3297 1143,-3321"/>
+<text text-anchor="middle" x="1094.5" y="-3306.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+</g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
 <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"/>
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1143.22,-3309C1182.68,-3309 1238.84,-3309 1280.81,-3309"/>
+<polygon fill="#000000" stroke="#000000" points="1280.89,-3312.5 1290.89,-3309 1280.89,-3305.5 1280.89,-3312.5"/>
 </g>
-<!-- interface~helio_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node432" class="node">
-<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>
+<!-- interface~gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_node391" class="node">
+<title>interface~gr_kick_getacch</title>
+<g id="a_call~~graph~~CallGraph_node391"><a xlink:href=".././interface/gr_kick_getacch.html" xlink:title="gr_kick_getacch">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-12087 52,-12087 52,-12063 142,-12063 142,-12087"/>
+<text text-anchor="middle" x="97" y="-12072.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_node559" class="node">
+<title>proc~gr_kick_getacch</title>
+<g id="a_call~~graph~~CallGraph_node559"><a xlink:href=".././proc/gr_kick_getacch.html" xlink:title="gr_kick_getacch">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-12087 282,-12087 282,-12063 372,-12063 372,-12087"/>
+<text text-anchor="middle" x="327" y="-12072.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_kick_getacch_pl&#45;&gt;proc~helio_gr_kick_getacch_pl -->
+<!-- interface~gr_kick_getacch&#45;&gt;proc~gr_kick_getacch -->
 <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"/>
+<title>interface~gr_kick_getacch&#45;&gt;proc~gr_kick_getacch</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-12075C179.28,-12075 232.3,-12075 271.88,-12075"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-12078.5 281.89,-12075 271.89,-12071.5 271.89,-12078.5"/>
 </g>
-<!-- proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq -->
+<!-- interface~util_append_encounter -->
+<g id="call~~graph~~CallGraph_node392" class="node">
+<title>interface~util_append_encounter</title>
+<g id="a_call~~graph~~CallGraph_node392"><a xlink:href=".././interface/util_append_encounter.html" xlink:title="util_append_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="1155.5,-3241 1033.5,-3241 1033.5,-3217 1155.5,-3217 1155.5,-3241"/>
+<text text-anchor="middle" x="1094.5" y="-3226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_encounter&#45;&gt;proc~util_append_encounter -->
 <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"/>
+<title>interface~util_append_encounter&#45;&gt;proc~util_append_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1155.57,-3229C1189.59,-3229 1232.34,-3229 1267.96,-3229"/>
+<polygon fill="#000000" stroke="#000000" points="1268.28,-3232.5 1278.28,-3229 1268.28,-3225.5 1268.28,-3232.5"/>
 </g>
-<!-- interface~helio_gr_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node434" class="node">
-<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>
+<!-- interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_node393" class="node">
+<title>interface~util_fill~2</title>
+<g id="a_call~~graph~~CallGraph_node393"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1121.5,-12159 1067.5,-12159 1067.5,-12135 1121.5,-12135 1121.5,-12159"/>
+<text text-anchor="middle" x="1094.5" y="-12144.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_node394" class="node">
+<title>interface~gr_p4_pos_kick</title>
+<g id="a_call~~graph~~CallGraph_node394"><a xlink:href=".././interface/gr_p4_pos_kick.html" xlink:title="gr_p4_pos_kick">
+<polygon fill="#a7506f" stroke="#a7506f" points="141,-12232 53,-12232 53,-12208 141,-12208 141,-12232"/>
+<text text-anchor="middle" x="97" y="-12217.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_kick_getacch_tp&#45;&gt;proc~helio_gr_kick_getacch_tp -->
+<!-- proc~gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_node558" class="node">
+<title>proc~gr_p4_pos_kick</title>
+<g id="a_call~~graph~~CallGraph_node558"><a xlink:href=".././proc/gr_p4_pos_kick.html" xlink:title="gr_p4_pos_kick">
+<polygon fill="#d9534f" stroke="#d9534f" points="371,-12232 283,-12232 283,-12208 371,-12208 371,-12232"/>
+<text text-anchor="middle" x="327" y="-12217.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
+</a>
+</g>
+</g>
+<!-- interface~gr_p4_pos_kick&#45;&gt;proc~gr_p4_pos_kick -->
 <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"/>
+<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,-12220C178.44,-12220 232.49,-12220 272.52,-12220"/>
+<polygon fill="#000000" stroke="#000000" points="272.64,-12223.5 282.64,-12220 272.64,-12216.5 272.64,-12223.5"/>
 </g>
-<!-- interface~helio_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_node435" class="node">
-<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>
+<!-- interface~util_append_pl -->
+<g id="call~~graph~~CallGraph_node395" class="node">
+<title>interface~util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node395"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="615.5,-3318 533.5,-3318 533.5,-3294 615.5,-3294 615.5,-3318"/>
+<text text-anchor="middle" x="574.5" y="-3303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_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>
+<!-- proc~util_append_pl -->
+<g id="call~~graph~~CallGraph_node507" class="node">
+<title>proc~util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node507"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="880.5,-3318 798.5,-3318 798.5,-3294 880.5,-3294 880.5,-3318"/>
+<text text-anchor="middle" x="839.5" y="-3303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_p4_pl&#45;&gt;proc~helio_gr_p4_pl -->
+<!-- interface~util_append_pl&#45;&gt;proc~util_append_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"/>
+<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.73,-3306C661.94,-3306 737.83,-3306 787.98,-3306"/>
+<polygon fill="#000000" stroke="#000000" points="788.27,-3309.5 798.27,-3306 788.27,-3302.5 788.27,-3309.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>
+<!-- proc~util_coord_h2b_tp -->
+<g id="call~~graph~~CallGraph_node396" class="node">
+<title>proc~util_coord_h2b_tp</title>
+<g id="a_call~~graph~~CallGraph_node396"><a xlink:href=".././proc/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="376,-12274 278,-12274 278,-12250 376,-12250 376,-12274"/>
+<text text-anchor="middle" x="327" y="-12259.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~gr_pseudovel2vel -->
+<g id="call~~graph~~CallGraph_node397" class="node">
+<title>interface~gr_pseudovel2vel</title>
+<g id="a_call~~graph~~CallGraph_node397"><a xlink:href=".././interface/gr_pseudovel2vel.html" xlink:title="gr_pseudovel2vel">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-12316 48.5,-12316 48.5,-12292 145.5,-12292 145.5,-12316"/>
+<text text-anchor="middle" x="97" y="-12301.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pseudovel2vel</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_p4_tp&#45;&gt;proc~helio_gr_p4_tp -->
+<!-- proc~gr_pseudovel2vel -->
+<g id="call~~graph~~CallGraph_node571" class="node">
+<title>proc~gr_pseudovel2vel</title>
+<g id="a_call~~graph~~CallGraph_node571"><a xlink:href=".././proc/gr_pseudovel2vel.html" xlink:title="gr_pseudovel2vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-12316 278.5,-12316 278.5,-12292 375.5,-12292 375.5,-12316"/>
+<text text-anchor="middle" x="327" y="-12301.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pseudovel2vel</text>
+</a>
+</g>
+</g>
+<!-- interface~gr_pseudovel2vel&#45;&gt;proc~gr_pseudovel2vel -->
 <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"/>
+<title>interface~gr_pseudovel2vel&#45;&gt;proc~gr_pseudovel2vel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-12304C181.07,-12304 229.87,-12304 267.77,-12304"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-12307.5 278.15,-12304 268.15,-12300.5 268.15,-12307.5"/>
 </g>
-<!-- interface~helio_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node437" class="node">
-<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>
+<!-- interface~util_append_tp -->
+<g id="call~~graph~~CallGraph_node398" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node398"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="616,-3360 533,-3360 533,-3336 616,-3336 616,-3360"/>
+<text text-anchor="middle" x="574.5" y="-3345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_append_tp -->
+<g id="call~~graph~~CallGraph_node515" class="node">
+<title>proc~util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node515"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="881,-3360 798,-3360 798,-3336 881,-3336 881,-3360"/>
+<text text-anchor="middle" x="839.5" y="-3345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_kick_getacch_pl&#45;&gt;proc~helio_kick_getacch_pl -->
+<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
 <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>
-<!-- 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"/>
+<title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M616.02,-3348C662.16,-3348 737.61,-3348 787.66,-3348"/>
+<polygon fill="#000000" stroke="#000000" points="787.94,-3351.5 797.94,-3348 787.94,-3344.5 787.94,-3351.5"/>
 </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~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>
+<!-- interface~util_solve_rkf45 -->
+<g id="call~~graph~~CallGraph_node399" class="node">
+<title>interface~util_solve_rkf45</title>
+<g id="a_call~~graph~~CallGraph_node399"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#a7506f" stroke="#a7506f" points="618,-2860 531,-2860 531,-2836 618,-2836 618,-2860"/>
+<text text-anchor="middle" x="574.5" y="-2845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_solve_rkf45 -->
+<g id="call~~graph~~CallGraph_node504" class="node">
+<title>proc~util_solve_rkf45</title>
+<g id="a_call~~graph~~CallGraph_node504"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="883,-2860 796,-2860 796,-2836 883,-2836 883,-2860"/>
+<text text-anchor="middle" x="839.5" y="-2845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
+<g id="call~~graph~~CallGraph_edge395" class="edge">
+<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.05,-2848C663.65,-2848 736.13,-2848 785.43,-2848"/>
+<polygon fill="#000000" stroke="#000000" points="785.58,-2851.5 795.58,-2848 785.58,-2844.5 785.58,-2851.5"/>
 </g>
-<!-- interface~helio_kick_vb_pl -->
-<g id="call~~graph~~CallGraph_node441" class="node">
-<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>
+<!-- interface~gr_pv2vh_body -->
+<g id="call~~graph~~CallGraph_node400" class="node">
+<title>interface~gr_pv2vh_body</title>
+<g id="a_call~~graph~~CallGraph_node400"><a xlink:href=".././interface/gr_pv2vh_body.html" xlink:title="gr_pv2vh_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="140,-12358 54,-12358 54,-12334 140,-12334 140,-12358"/>
+<text text-anchor="middle" x="97" y="-12343.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pv2vh_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~gr_pv2vh_body -->
+<g id="call~~graph~~CallGraph_node587" class="node">
+<title>proc~gr_pv2vh_body</title>
+<g id="a_call~~graph~~CallGraph_node587"><a xlink:href=".././proc/gr_pv2vh_body.html" xlink:title="gr_pv2vh_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="370,-12358 284,-12358 284,-12334 370,-12334 370,-12358"/>
+<text text-anchor="middle" x="327" y="-12343.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pv2vh_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~gr_pv2vh_body&#45;&gt;proc~gr_pv2vh_body -->
+<g id="call~~graph~~CallGraph_edge396" 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,-12346C177.73,-12346 233.05,-12346 273.55,-12346"/>
+<polygon fill="#000000" stroke="#000000" points="273.78,-12349.5 283.78,-12346 273.78,-12342.5 273.78,-12349.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~util_coord_b2h_pl -->
+<g id="call~~graph~~CallGraph_node401" class="node">
+<title>interface~util_coord_b2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node401"><a xlink:href=".././interface/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-11186 48.5,-11186 48.5,-11162 145.5,-11162 145.5,-11186"/>
+<text text-anchor="middle" x="97" y="-11171.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
+</a>
 </g>
-<!-- interface~helio_kick_vb_tp -->
-<g id="call~~graph~~CallGraph_node443" class="node">
-<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>
+</g>
+<!-- interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl -->
+<g id="call~~graph~~CallGraph_edge397" 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,-11174C181.07,-11174 229.87,-11174 267.77,-11174"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-11177.5 278.15,-11174 268.15,-11170.5 268.15,-11177.5"/>
+</g>
+<!-- proc~util_coord_b2h_tp -->
+<g id="call~~graph~~CallGraph_node402" class="node">
+<title>proc~util_coord_b2h_tp</title>
+<g id="a_call~~graph~~CallGraph_node402"><a xlink:href=".././proc/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="376,-12400 278,-12400 278,-12376 376,-12376 376,-12400"/>
+<text text-anchor="middle" x="327" y="-12385.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_coord_b2h_tp -->
+<g id="call~~graph~~CallGraph_node403" class="node">
+<title>interface~util_coord_b2h_tp</title>
+<g id="a_call~~graph~~CallGraph_node403"><a xlink:href=".././interface/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="146,-12400 48,-12400 48,-12376 146,-12376 146,-12400"/>
+<text text-anchor="middle" x="97" y="-12385.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp -->
+<g id="call~~graph~~CallGraph_edge398" 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,-12388C181.54,-12388 229.98,-12388 267.67,-12388"/>
+<polygon fill="#000000" stroke="#000000" points="267.99,-12391.5 277.99,-12388 267.99,-12384.5 267.99,-12391.5"/>
 </g>
-<!-- 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>
+<!-- interface~gr_vel2pseudovel -->
+<g id="call~~graph~~CallGraph_node404" class="node">
+<title>interface~gr_vel2pseudovel</title>
+<g id="a_call~~graph~~CallGraph_node404"><a xlink:href=".././interface/gr_vel2pseudovel.html" xlink:title="gr_vel2pseudovel">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-12442 48.5,-12442 48.5,-12418 145.5,-12418 145.5,-12442"/>
+<text text-anchor="middle" x="97" y="-12427.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vel2pseudovel</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~gr_vel2pseudovel -->
+<g id="call~~graph~~CallGraph_node562" class="node">
+<title>proc~gr_vel2pseudovel</title>
+<g id="a_call~~graph~~CallGraph_node562"><a xlink:href=".././proc/gr_vel2pseudovel.html" xlink:title="gr_vel2pseudovel">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-12442 278.5,-12442 278.5,-12418 375.5,-12418 375.5,-12442"/>
+<text text-anchor="middle" x="327" y="-12427.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vel2pseudovel</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel -->
+<g id="call~~graph~~CallGraph_edge399" class="edge">
+<title>interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-12430C181.07,-12430 229.87,-12430 267.77,-12430"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-12433.5 278.15,-12430 268.15,-12426.5 268.15,-12433.5"/>
 </g>
-<!-- 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>
+<!-- interface~gr_vh2pv_body -->
+<g id="call~~graph~~CallGraph_node405" class="node">
+<title>interface~gr_vh2pv_body</title>
+<g id="a_call~~graph~~CallGraph_node405"><a xlink:href=".././interface/gr_vh2pv_body.html" xlink:title="gr_vh2pv_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="140,-12484 54,-12484 54,-12460 140,-12460 140,-12484"/>
+<text text-anchor="middle" x="97" y="-12469.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vh2pv_body</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~gr_vh2pv_body -->
+<g id="call~~graph~~CallGraph_node510" class="node">
+<title>proc~gr_vh2pv_body</title>
+<g id="a_call~~graph~~CallGraph_node510"><a xlink:href=".././proc/gr_vh2pv_body.html" xlink:title="gr_vh2pv_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="370,-12484 284,-12484 284,-12460 370,-12460 370,-12484"/>
+<text text-anchor="middle" x="327" y="-12469.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vh2pv_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~gr_vh2pv_body&#45;&gt;proc~gr_vh2pv_body -->
+<g id="call~~graph~~CallGraph_edge400" 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,-12472C177.73,-12472 233.05,-12472 273.55,-12472"/>
+<polygon fill="#000000" stroke="#000000" points="273.78,-12475.5 283.78,-12472 273.78,-12468.5 273.78,-12475.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_coord_h2b_pl -->
+<g id="call~~graph~~CallGraph_node406" class="node">
+<title>interface~util_coord_h2b_pl</title>
+<g id="a_call~~graph~~CallGraph_node406"><a xlink:href=".././interface/util_coord_h2b_pl.html" xlink:title="util_coord_h2b_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-11835 48.5,-11835 48.5,-11811 145.5,-11811 145.5,-11835"/>
+<text text-anchor="middle" x="97" y="-11820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_coord_h2b_pl&#45;&gt;proc~util_coord_h2b_pl -->
+<g id="call~~graph~~CallGraph_edge401" 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,-11823C181.07,-11823 229.87,-11823 267.77,-11823"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-11826.5 278.15,-11823 268.15,-11819.5 268.15,-11826.5"/>
+</g>
+<!-- interface~io_conservation_report -->
+<g id="call~~graph~~CallGraph_node407" class="node">
+<title>interface~io_conservation_report</title>
+<g id="a_call~~graph~~CallGraph_node407"><a xlink:href=".././interface/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#a7506f" stroke="#a7506f" points="635.5,-2734 513.5,-2734 513.5,-2710 635.5,-2710 635.5,-2734"/>
+<text text-anchor="middle" x="574.5" y="-2719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_conservation_report -->
+<g id="call~~graph~~CallGraph_node557" class="node">
+<title>proc~io_conservation_report</title>
+<g id="a_call~~graph~~CallGraph_node557"><a xlink:href=".././proc/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#d9534f" stroke="#d9534f" points="900.5,-2734 778.5,-2734 778.5,-2710 900.5,-2710 900.5,-2734"/>
+<text text-anchor="middle" x="839.5" y="-2719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
+</a>
 </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>
-<!-- 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"/>
+<!-- interface~io_conservation_report&#45;&gt;proc~io_conservation_report -->
+<g id="call~~graph~~CallGraph_edge402" class="edge">
+<title>interface~io_conservation_report&#45;&gt;proc~io_conservation_report</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.51,-2722C675,-2722 726.86,-2722 768.28,-2722"/>
+<polygon fill="#000000" stroke="#000000" points="768.3,-2725.5 778.3,-2722 768.3,-2718.5 768.3,-2725.5"/>
 </g>
-<!-- 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>
+<!-- interface~util_coord_h2b_tp -->
+<g id="call~~graph~~CallGraph_node408" class="node">
+<title>interface~util_coord_h2b_tp</title>
+<g id="a_call~~graph~~CallGraph_node408"><a xlink:href=".././interface/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="146,-12274 48,-12274 48,-12250 146,-12250 146,-12274"/>
+<text text-anchor="middle" x="97" y="-12259.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp -->
+<g id="call~~graph~~CallGraph_edge403" 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,-12262C181.54,-12262 229.98,-12262 267.67,-12262"/>
+<polygon fill="#000000" stroke="#000000" points="267.99,-12265.5 277.99,-12262 267.99,-12258.5 267.99,-12265.5"/>
+</g>
+<!-- interface~io_dump_param -->
+<g id="call~~graph~~CallGraph_node409" class="node">
+<title>interface~io_dump_param</title>
+<g id="a_call~~graph~~CallGraph_node409"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="620,-2650 529,-2650 529,-2626 620,-2626 620,-2650"/>
+<text text-anchor="middle" x="574.5" y="-2635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </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>
+<!-- proc~io_dump_param -->
+<g id="call~~graph~~CallGraph_node565" class="node">
+<title>proc~io_dump_param</title>
+<g id="a_call~~graph~~CallGraph_node565"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="885,-2650 794,-2650 794,-2626 885,-2626 885,-2650"/>
+<text text-anchor="middle" x="839.5" y="-2635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
+<g id="call~~graph~~CallGraph_edge404" class="edge">
+<title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M620.11,-2638C665.27,-2638 735.15,-2638 783.66,-2638"/>
+<polygon fill="#000000" stroke="#000000" points="783.67,-2641.5 793.67,-2638 783.67,-2634.5 783.67,-2641.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~util_coord_vb2vh_pl -->
+<g id="call~~graph~~CallGraph_node410" class="node">
+<title>interface~util_coord_vb2vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node410"><a xlink:href=".././interface/util_coord_vb2vh_pl.html" xlink:title="util_coord_vb2vh_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="151,-12526 43,-12526 43,-12502 151,-12502 151,-12526"/>
+<text text-anchor="middle" x="97" y="-12511.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vb2vh_pl</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- proc~util_coord_vb2vh_pl -->
+<g id="call~~graph~~CallGraph_node415" class="node">
+<title>proc~util_coord_vb2vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node415"><a xlink:href=".././proc/util_coord_vb2vh_pl.html" xlink:title="util_coord_vb2vh_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="381,-12526 273,-12526 273,-12502 381,-12502 381,-12526"/>
+<text text-anchor="middle" x="327" y="-12511.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vb2vh_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_coord_vb2vh_pl&#45;&gt;proc~util_coord_vb2vh_pl -->
+<g id="call~~graph~~CallGraph_edge405" class="edge">
+<title>interface~util_coord_vb2vh_pl&#45;&gt;proc~util_coord_vb2vh_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.17,-12514C184.46,-12514 227.55,-12514 262.61,-12514"/>
+<polygon fill="#000000" stroke="#000000" points="262.75,-12517.5 272.75,-12514 262.75,-12510.5 262.75,-12517.5"/>
 </g>
-<!-- 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>
+<!-- interface~io_dump_particle_info_base -->
+<g id="call~~graph~~CallGraph_node411" class="node">
+<title>interface~io_dump_particle_info_base</title>
+<g id="a_call~~graph~~CallGraph_node411"><a xlink:href=".././interface/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="648,-2482 501,-2482 501,-2458 648,-2458 648,-2482"/>
+<text text-anchor="middle" x="574.5" y="-2467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~io_dump_particle_info_base -->
+<g id="call~~graph~~CallGraph_node593" class="node">
+<title>proc~io_dump_particle_info_base</title>
+<g id="a_call~~graph~~CallGraph_node593"><a xlink:href=".././proc/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="913,-2482 766,-2482 766,-2458 913,-2458 913,-2482"/>
+<text text-anchor="middle" x="839.5" y="-2467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base -->
+<g id="call~~graph~~CallGraph_edge406" class="edge">
+<title>interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.06,-2470C681.41,-2470 721.14,-2470 755.66,-2470"/>
+<polygon fill="#000000" stroke="#000000" points="755.72,-2473.5 765.72,-2470 755.72,-2466.5 755.72,-2473.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~util_coord_vb2vh_tp -->
+<g id="call~~graph~~CallGraph_node412" class="node">
+<title>interface~util_coord_vb2vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node412"><a xlink:href=".././interface/util_coord_vb2vh_tp.html" xlink:title="util_coord_vb2vh_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-12568 42.5,-12568 42.5,-12544 151.5,-12544 151.5,-12568"/>
+<text text-anchor="middle" x="97" y="-12553.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vb2vh_tp</text>
+</a>
 </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>
-<!-- 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"/>
+<!-- proc~util_coord_vb2vh_tp -->
+<g id="call~~graph~~CallGraph_node424" class="node">
+<title>proc~util_coord_vb2vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node424"><a xlink:href=".././proc/util_coord_vb2vh_tp.html" xlink:title="util_coord_vb2vh_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-12568 272.5,-12568 272.5,-12544 381.5,-12544 381.5,-12568"/>
+<text text-anchor="middle" x="327" y="-12553.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vb2vh_tp</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~util_coord_vb2vh_tp&#45;&gt;proc~util_coord_vb2vh_tp -->
+<g id="call~~graph~~CallGraph_edge407" class="edge">
+<title>interface~util_coord_vb2vh_tp&#45;&gt;proc~util_coord_vb2vh_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-12556C184.82,-12556 227.38,-12556 262.17,-12556"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-12559.5 272.22,-12556 262.22,-12552.5 262.22,-12559.5"/>
 </g>
-<!-- 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>
+<!-- interface~io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_node413" class="node">
+<title>interface~io_dump_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node413"><a xlink:href=".././interface/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="633.5,-2524 515.5,-2524 515.5,-2500 633.5,-2500 633.5,-2524"/>
+<text text-anchor="middle" x="574.5" y="-2509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_node592" class="node">
+<title>proc~io_dump_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node592"><a xlink:href=".././proc/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="898.5,-2524 780.5,-2524 780.5,-2500 898.5,-2500 898.5,-2524"/>
+<text text-anchor="middle" x="839.5" y="-2509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_edge408" class="edge">
+<title>interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.54,-2512C673.79,-2512 727.55,-2512 769.92,-2512"/>
+<polygon fill="#000000" stroke="#000000" points="770.15,-2515.5 780.15,-2512 770.15,-2508.5 770.15,-2515.5"/>
 </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>
+<!-- interface~util_coord_vh2vb_pl -->
+<g id="call~~graph~~CallGraph_node414" class="node">
+<title>interface~util_coord_vh2vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node414"><a xlink:href=".././interface/util_coord_vh2vb_pl.html" xlink:title="util_coord_vh2vb_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="151,-12610 43,-12610 43,-12586 151,-12586 151,-12610"/>
+<text text-anchor="middle" x="97" y="-12595.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vh2vb_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_coord_vh2vb_pl -->
+<g id="call~~graph~~CallGraph_node433" class="node">
+<title>proc~util_coord_vh2vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node433"><a xlink:href=".././proc/util_coord_vh2vb_pl.html" xlink:title="util_coord_vh2vb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="381,-12610 273,-12610 273,-12586 381,-12586 381,-12610"/>
+<text text-anchor="middle" x="327" y="-12595.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vh2vb_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_coord_vh2vb_pl&#45;&gt;proc~util_coord_vh2vb_pl -->
+<g id="call~~graph~~CallGraph_edge409" class="edge">
+<title>interface~util_coord_vh2vb_pl&#45;&gt;proc~util_coord_vh2vb_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.17,-12598C184.46,-12598 227.55,-12598 262.61,-12598"/>
+<polygon fill="#000000" stroke="#000000" points="262.75,-12601.5 272.75,-12598 262.75,-12594.5 262.75,-12601.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="call~~graph~~CallGraph_node416" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_call~~graph~~CallGraph_node416"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-3238 55.5,-3238 55.5,-3214 138.5,-3214 138.5,-3238"/>
+<text text-anchor="middle" x="97" y="-3223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="call~~graph~~CallGraph_edge410" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-3226C176.9,-3226 234.01,-3226 275.12,-3226"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-3229.5 285.21,-3226 275.21,-3222.5 275.21,-3229.5"/>
+</g>
+<!-- interface~util_coord_vh2vb_tp -->
+<g id="call~~graph~~CallGraph_node417" class="node">
+<title>interface~util_coord_vh2vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node417"><a xlink:href=".././interface/util_coord_vh2vb_tp.html" xlink:title="util_coord_vh2vb_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-12652 42.5,-12652 42.5,-12628 151.5,-12628 151.5,-12652"/>
+<text text-anchor="middle" x="97" y="-12637.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vh2vb_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_coord_vh2vb_tp -->
+<g id="call~~graph~~CallGraph_node445" class="node">
+<title>proc~util_coord_vh2vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node445"><a xlink:href=".././proc/util_coord_vh2vb_tp.html" xlink:title="util_coord_vh2vb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-12652 272.5,-12652 272.5,-12628 381.5,-12628 381.5,-12652"/>
+<text text-anchor="middle" x="327" y="-12637.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vh2vb_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~util_coord_vh2vb_tp&#45;&gt;proc~util_coord_vh2vb_tp -->
+<g id="call~~graph~~CallGraph_edge411" class="edge">
+<title>interface~util_coord_vh2vb_tp&#45;&gt;proc~util_coord_vh2vb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-12640C184.82,-12640 227.38,-12640 262.17,-12640"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-12643.5 272.22,-12640 262.22,-12636.5 262.22,-12643.5"/>
 </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"/>
+<!-- interface~io_dump_system -->
+<g id="call~~graph~~CallGraph_node418" class="node">
+<title>interface~io_dump_system</title>
+<g id="a_call~~graph~~CallGraph_node418"><a xlink:href=".././interface/io_dump_system.html" xlink:title="io_dump_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-3591 50,-3591 50,-3567 144,-3567 144,-3591"/>
+<text text-anchor="middle" x="97" y="-3576.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_system</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~io_dump_system&#45;&gt;proc~io_dump_system -->
+<g id="call~~graph~~CallGraph_edge412" 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,-3579C180.45,-3579 231.21,-3579 269.87,-3579"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-3582.5 279.93,-3579 269.93,-3575.5 269.93,-3582.5"/>
 </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>
+<!-- interface~util_coord_xh2xb_pl -->
+<g id="call~~graph~~CallGraph_node419" class="node">
+<title>interface~util_coord_xh2xb_pl</title>
+<g id="a_call~~graph~~CallGraph_node419"><a xlink:href=".././interface/util_coord_xh2xb_pl.html" xlink:title="util_coord_xh2xb_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="151,-12694 43,-12694 43,-12670 151,-12670 151,-12694"/>
+<text text-anchor="middle" x="97" y="-12679.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_xh2xb_pl</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~util_coord_xh2xb_pl -->
+<g id="call~~graph~~CallGraph_node449" class="node">
+<title>proc~util_coord_xh2xb_pl</title>
+<g id="a_call~~graph~~CallGraph_node449"><a xlink:href=".././proc/util_coord_xh2xb_pl.html" xlink:title="util_coord_xh2xb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="381,-12694 273,-12694 273,-12670 381,-12670 381,-12694"/>
+<text text-anchor="middle" x="327" y="-12679.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_xh2xb_pl</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- interface~util_coord_xh2xb_pl&#45;&gt;proc~util_coord_xh2xb_pl -->
+<g id="call~~graph~~CallGraph_edge413" class="edge">
+<title>interface~util_coord_xh2xb_pl&#45;&gt;proc~util_coord_xh2xb_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.17,-12682C184.46,-12682 227.55,-12682 262.61,-12682"/>
+<polygon fill="#000000" stroke="#000000" points="262.75,-12685.5 272.75,-12682 262.75,-12678.5 262.75,-12685.5"/>
+</g>
+<!-- interface~io_param_reader -->
+<g id="call~~graph~~CallGraph_node420" class="node">
+<title>interface~io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node420"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
+<polygon fill="#a7506f" stroke="#a7506f" points="622,-3444 527,-3444 527,-3420 622,-3420 622,-3444"/>
+<text text-anchor="middle" x="574.5" y="-3429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
+<g id="call~~graph~~CallGraph_edge414" class="edge">
+<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.22,-3432C666.77,-3432 733.97,-3432 781.62,-3432"/>
+<polygon fill="#000000" stroke="#000000" points="781.78,-3435.5 791.78,-3432 781.78,-3428.5 781.78,-3435.5"/>
 </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"/>
+<!-- interface~util_coord_xh2xb_tp -->
+<g id="call~~graph~~CallGraph_node421" class="node">
+<title>interface~util_coord_xh2xb_tp</title>
+<g id="a_call~~graph~~CallGraph_node421"><a xlink:href=".././interface/util_coord_xh2xb_tp.html" xlink:title="util_coord_xh2xb_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-12736 42.5,-12736 42.5,-12712 151.5,-12712 151.5,-12736"/>
+<text text-anchor="middle" x="97" y="-12721.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_xh2xb_tp</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- proc~util_coord_xh2xb_tp -->
+<g id="call~~graph~~CallGraph_node457" class="node">
+<title>proc~util_coord_xh2xb_tp</title>
+<g id="a_call~~graph~~CallGraph_node457"><a xlink:href=".././proc/util_coord_xh2xb_tp.html" xlink:title="util_coord_xh2xb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-12736 272.5,-12736 272.5,-12712 381.5,-12712 381.5,-12736"/>
+<text text-anchor="middle" x="327" y="-12721.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_xh2xb_tp</text>
+</a>
 </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>
-<!-- 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>
+<!-- interface~util_coord_xh2xb_tp&#45;&gt;proc~util_coord_xh2xb_tp -->
+<g id="call~~graph~~CallGraph_edge415" class="edge">
+<title>interface~util_coord_xh2xb_tp&#45;&gt;proc~util_coord_xh2xb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-12724C184.82,-12724 227.38,-12724 262.17,-12724"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-12727.5 272.22,-12724 262.22,-12720.5 262.22,-12727.5"/>
+</g>
+<!-- interface~io_param_writer -->
+<g id="call~~graph~~CallGraph_node422" class="node">
+<title>interface~io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node422"><a xlink:href=".././interface/io_param_writer.html" xlink:title="io_param_writer">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-5269 52,-5269 52,-5245 142,-5245 142,-5269"/>
+<text text-anchor="middle" x="97" y="-5254.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_param_writer&#45;&gt;proc~io_param_writer -->
+<g id="call~~graph~~CallGraph_edge416" 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,-5257C179.28,-5257 232.3,-5257 271.88,-5257"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-5260.5 281.89,-5257 271.89,-5253.5 271.89,-5260.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"/>
+<!-- interface~util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node423" class="node">
+<title>interface~util_copy_encounter</title>
+<g id="a_call~~graph~~CallGraph_node423"><a xlink:href=".././interface/util_copy_encounter.html" xlink:title="util_copy_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-12778 42.5,-12778 42.5,-12754 151.5,-12754 151.5,-12778"/>
+<text text-anchor="middle" x="97" y="-12763.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
+</a>
 </g>
-<!-- interface~discard_pl -->
-<g id="call~~graph~~CallGraph_node474" class="node">
-<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>
+</g>
+<!-- proc~util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node540" class="node">
+<title>proc~util_copy_encounter</title>
+<g id="a_call~~graph~~CallGraph_node540"><a xlink:href=".././proc/util_copy_encounter.html" xlink:title="util_copy_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-12778 272.5,-12778 272.5,-12754 381.5,-12754 381.5,-12778"/>
+<text text-anchor="middle" x="327" y="-12763.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_copy_encounter&#45;&gt;proc~util_copy_encounter -->
+<g id="call~~graph~~CallGraph_edge417" 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,-12766C184.82,-12766 227.38,-12766 262.17,-12766"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-12769.5 272.22,-12766 262.22,-12762.5 262.22,-12769.5"/>
 </g>
-<!-- interface~discard_system -->
-<g id="call~~graph~~CallGraph_node475" class="node">
-<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>
+<!-- interface~io_read_in_body -->
+<g id="call~~graph~~CallGraph_node425" class="node">
+<title>interface~io_read_in_body</title>
+<g id="a_call~~graph~~CallGraph_node425"><a xlink:href=".././interface/io_read_in_body.html" xlink:title="io_read_in_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="143,-5866 51,-5866 51,-5842 143,-5842 143,-5866"/>
+<text text-anchor="middle" x="97" y="-5851.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_in_body&#45;&gt;proc~io_read_in_body -->
+<g id="call~~graph~~CallGraph_edge418" class="edge">
+<title>interface~io_read_in_body&#45;&gt;proc~io_read_in_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.05,-5854C179.62,-5854 231.36,-5854 270.49,-5854"/>
+<polygon fill="#000000" stroke="#000000" points="270.66,-5857.5 280.66,-5854 270.66,-5850.5 270.66,-5857.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>
+<!-- interface~util_copy_particle_info -->
+<g id="call~~graph~~CallGraph_node426" class="node">
+<title>interface~util_copy_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node426"><a xlink:href=".././interface/util_copy_particle_info.html" xlink:title="util_copy_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-12820 38,-12820 38,-12796 156,-12796 156,-12820"/>
+<text text-anchor="middle" x="97" y="-12805.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_copy_particle_info -->
+<g id="call~~graph~~CallGraph_node554" class="node">
+<title>proc~util_copy_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node554"><a xlink:href=".././proc/util_copy_particle_info.html" xlink:title="util_copy_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-12820 268,-12820 268,-12796 386,-12796 386,-12820"/>
+<text text-anchor="middle" x="327" y="-12805.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info</text>
+</a>
 </g>
-<!-- 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>
+<!-- interface~util_copy_particle_info&#45;&gt;proc~util_copy_particle_info -->
+<g id="call~~graph~~CallGraph_edge419" class="edge">
+<title>interface~util_copy_particle_info&#45;&gt;proc~util_copy_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-12808C187.08,-12808 225.33,-12808 257.7,-12808"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-12811.5 267.98,-12808 257.98,-12804.5 257.98,-12811.5"/>
+</g>
+<!-- interface~io_read_in_cb -->
+<g id="call~~graph~~CallGraph_node427" class="node">
+<title>interface~io_read_in_cb</title>
+<g id="a_call~~graph~~CallGraph_node427"><a xlink:href=".././interface/io_read_in_cb.html" xlink:title="io_read_in_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="614.5,-3112 534.5,-3112 534.5,-3088 614.5,-3088 614.5,-3112"/>
+<text text-anchor="middle" x="574.5" y="-3097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb -->
+<g id="call~~graph~~CallGraph_edge420" class="edge">
+<title>interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.59,-3100C661.04,-3100 738.61,-3100 789.15,-3100"/>
+<polygon fill="#000000" stroke="#000000" points="789.2,-3103.5 799.2,-3100 789.2,-3096.5 789.2,-3103.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>
+<!-- proc~util_copy_particle_info_arr -->
+<g id="call~~graph~~CallGraph_node556" class="node">
+<title>proc~util_copy_particle_info_arr</title>
+<g id="a_call~~graph~~CallGraph_node556"><a xlink:href=".././proc/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#d9534f" stroke="#d9534f" points="643.5,-10052 505.5,-10052 505.5,-10028 643.5,-10028 643.5,-10052"/>
+<text text-anchor="middle" x="574.5" y="-10037.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr -->
+<g id="call~~graph~~CallGraph_edge421" class="edge">
+<title>interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.06,-10040C426.79,-10040 463.27,-10040 495.14,-10040"/>
+<polygon fill="#000000" stroke="#000000" points="495.31,-10043.5 505.31,-10040 495.31,-10036.5 495.31,-10043.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>
+<!-- interface~io_read_in_param -->
+<g id="call~~graph~~CallGraph_node429" class="node">
+<title>interface~io_read_in_param</title>
+<g id="a_call~~graph~~CallGraph_node429"><a xlink:href=".././interface/io_read_in_param.html" xlink:title="io_read_in_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="624.5,-2944 524.5,-2944 524.5,-2920 624.5,-2920 624.5,-2944"/>
+<text text-anchor="middle" x="574.5" y="-2929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_in_param&#45;&gt;proc~io_read_in_param -->
+<g id="call~~graph~~CallGraph_edge422" class="edge">
+<title>interface~io_read_in_param&#45;&gt;proc~io_read_in_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M624.66,-2932C668.34,-2932 732.3,-2932 778.88,-2932"/>
+<polygon fill="#000000" stroke="#000000" points="779.14,-2935.5 789.14,-2932 779.14,-2928.5 779.14,-2935.5"/>
 </g>
-<!-- interface~fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_node481" class="node">
-<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>
+<!-- proc~util_exit -->
+<g id="call~~graph~~CallGraph_node620" class="node">
+<title>proc~util_exit</title>
+<g id="a_call~~graph~~CallGraph_node620"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="1366.5,-2860 1312.5,-2860 1312.5,-2836 1366.5,-2836 1366.5,-2860"/>
+<text text-anchor="middle" x="1339.5" y="-2845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- interface~util_exit&#45;&gt;proc~util_exit -->
+<g id="call~~graph~~CallGraph_edge423" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1121.51,-2848C1164.96,-2848 1252.46,-2848 1302.04,-2848"/>
+<polygon fill="#000000" stroke="#000000" points="1302.31,-2851.5 1312.31,-2848 1302.31,-2844.5 1302.31,-2851.5"/>
 </g>
-<!-- interface~fragmentation_regime -->
-<g id="call~~graph~~CallGraph_node483" class="node">
-<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>
+<!-- interface~io_read_in_particle_info -->
+<g id="call~~graph~~CallGraph_node431" class="node">
+<title>interface~io_read_in_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node431"><a xlink:href=".././interface/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="638,-3028 511,-3028 511,-3004 638,-3004 638,-3028"/>
+<text text-anchor="middle" x="574.5" y="-3013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_particle_info</text>
 </a>
 </g>
 </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"/>
+<!-- interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info -->
+<g id="call~~graph~~CallGraph_edge424" class="edge">
+<title>interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M638.16,-3016C676.46,-3016 725.6,-3016 765.63,-3016"/>
+<polygon fill="#000000" stroke="#000000" points="765.86,-3019.5 775.86,-3016 765.86,-3012.5 765.86,-3019.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~util_fill_body -->
+<g id="call~~graph~~CallGraph_node432" class="node">
+<title>interface~util_fill_body</title>
+<g id="a_call~~graph~~CallGraph_node432"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="610,-12159 539,-12159 539,-12135 610,-12135 610,-12159"/>
+<text text-anchor="middle" x="574.5" y="-12144.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~util_fill_body -->
+<g id="call~~graph~~CallGraph_node665" class="node">
+<title>proc~util_fill_body</title>
+<g id="a_call~~graph~~CallGraph_node665"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="875,-12159 804,-12159 804,-12135 875,-12135 875,-12159"/>
+<text text-anchor="middle" x="839.5" y="-12144.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
+<g id="call~~graph~~CallGraph_edge425" class="edge">
+<title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.15,-12147C657.26,-12147 741.58,-12147 793.52,-12147"/>
+<polygon fill="#000000" stroke="#000000" points="793.77,-12150.5 803.77,-12147 793.77,-12143.5 793.77,-12150.5"/>
+</g>
+<!-- interface~util_fill_pl -->
+<g id="call~~graph~~CallGraph_node434" class="node">
+<title>interface~util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node434"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="125,-12190 69,-12190 69,-12166 125,-12166 125,-12190"/>
+<text text-anchor="middle" x="97" y="-12175.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_fill_pl -->
+<g id="call~~graph~~CallGraph_node668" class="node">
+<title>proc~util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node668"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="355,-12190 299,-12190 299,-12166 355,-12166 355,-12190"/>
+<text text-anchor="middle" x="327" y="-12175.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge426" 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,-12178C165.76,-12178 242.89,-12178 288.85,-12178"/>
+<polygon fill="#000000" stroke="#000000" points="288.99,-12181.5 298.99,-12178 288.99,-12174.5 288.99,-12181.5"/>
 </g>
+<!-- interface~io_read_particle_info_system -->
+<g id="call~~graph~~CallGraph_node435" class="node">
+<title>interface~io_read_particle_info_system</title>
+<g id="a_call~~graph~~CallGraph_node435"><a xlink:href=".././interface/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="650.5,-2818 498.5,-2818 498.5,-2794 650.5,-2794 650.5,-2818"/>
+<text text-anchor="middle" x="574.5" y="-2803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~io_read_particle_info_system -->
+<g id="call~~graph~~CallGraph_node506" class="node">
+<title>proc~io_read_particle_info_system</title>
+<g id="a_call~~graph~~CallGraph_node506"><a xlink:href=".././proc/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="915.5,-2818 763.5,-2818 763.5,-2794 915.5,-2794 915.5,-2818"/>
+<text text-anchor="middle" x="839.5" y="-2803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
+</a>
 </g>
-<!-- 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>
+<!-- interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system -->
+<g id="call~~graph~~CallGraph_edge427" class="edge">
+<title>interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M650.51,-2806C682.57,-2806 720.16,-2806 753.27,-2806"/>
+<polygon fill="#000000" stroke="#000000" points="753.39,-2809.5 763.39,-2806 753.39,-2802.5 753.39,-2809.5"/>
 </g>
-<!-- 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"/>
+<!-- interface~util_fill_tp -->
+<g id="call~~graph~~CallGraph_node436" class="node">
+<title>interface~util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node436"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="125.5,-12129 68.5,-12129 68.5,-12105 125.5,-12105 125.5,-12129"/>
+<text text-anchor="middle" x="97" y="-12114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- proc~util_fill_tp -->
+<g id="call~~graph~~CallGraph_node676" class="node">
+<title>proc~util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node676"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="355.5,-12129 298.5,-12129 298.5,-12105 355.5,-12105 355.5,-12129"/>
+<text text-anchor="middle" x="327" y="-12114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge428" 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,-12117C166.16,-12117 242.42,-12117 288.27,-12117"/>
+<polygon fill="#000000" stroke="#000000" points="288.4,-12120.5 298.4,-12117 288.4,-12113.5 288.4,-12120.5"/>
 </g>
-<!-- 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>
+<!-- interface~io_write_discard -->
+<g id="call~~graph~~CallGraph_node437" class="node">
+<title>interface~io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node437"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#a7506f" stroke="#a7506f" points="619.5,-2776 529.5,-2776 529.5,-2752 619.5,-2752 619.5,-2776"/>
+<text text-anchor="middle" x="574.5" y="-2761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~io_write_discard -->
+<g id="call~~graph~~CallGraph_node518" class="node">
+<title>proc~io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node518"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="884.5,-2776 794.5,-2776 794.5,-2752 884.5,-2752 884.5,-2776"/>
+<text text-anchor="middle" x="839.5" y="-2761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
+<g id="call~~graph~~CallGraph_edge429" class="edge">
+<title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.52,-2764C664.84,-2764 735.54,-2764 784.29,-2764"/>
+<polygon fill="#000000" stroke="#000000" points="784.34,-2767.5 794.34,-2764 784.34,-2760.5 784.34,-2767.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>
+<!-- proc~io_toupper -->
+<g id="call~~graph~~CallGraph_node511" class="node">
+<title>proc~io_toupper</title>
+<g id="a_call~~graph~~CallGraph_node511"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#d9534f" stroke="#d9534f" points="1371.5,-3444 1307.5,-3444 1307.5,-3420 1371.5,-3420 1371.5,-3444"/>
+<text text-anchor="middle" x="1339.5" y="-3429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
+<g id="call~~graph~~CallGraph_edge430" class="edge">
+<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1126.77,-3432C1170.24,-3432 1249.01,-3432 1297.25,-3432"/>
+<polygon fill="#000000" stroke="#000000" points="1297.35,-3435.5 1307.35,-3432 1297.35,-3428.5 1297.35,-3435.5"/>
 </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>
+<!-- interface~io_write_encounter -->
+<g id="call~~graph~~CallGraph_node439" class="node">
+<title>interface~io_write_encounter</title>
+<g id="a_call~~graph~~CallGraph_node439"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="626,-2398 523,-2398 523,-2374 626,-2374 626,-2398"/>
+<text text-anchor="middle" x="574.5" y="-2383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~io_write_encounter -->
+<g id="call~~graph~~CallGraph_node531" class="node">
+<title>proc~io_write_encounter</title>
+<g id="a_call~~graph~~CallGraph_node531"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="891,-2398 788,-2398 788,-2374 891,-2374 891,-2398"/>
+<text text-anchor="middle" x="839.5" y="-2383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
+<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
+<g id="call~~graph~~CallGraph_edge431" class="edge">
+<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.21,-2386C669.51,-2386 731.88,-2386 777.82,-2386"/>
+<polygon fill="#000000" stroke="#000000" points="777.95,-2389.5 787.95,-2386 777.95,-2382.5 777.95,-2389.5"/>
+</g>
+<!-- proc~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_node542" class="node">
+<title>proc~io_write_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node542"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="895.5,-3238 783.5,-3238 783.5,-3214 895.5,-3214 895.5,-3238"/>
+<text text-anchor="middle" x="839.5" y="-3223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_edge432" 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="M630.63,-3226C672.19,-3226 729.31,-3226 773.16,-3226"/>
+<polygon fill="#000000" stroke="#000000" points="773.44,-3229.5 783.44,-3226 773.44,-3222.5 773.44,-3229.5"/>
+</g>
+<!-- proc~io_write_frame_cb -->
+<g id="call~~graph~~CallGraph_node550" class="node">
+<title>proc~io_write_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node550"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="889.5,-2440 789.5,-2440 789.5,-2416 889.5,-2416 889.5,-2440"/>
+<text text-anchor="middle" x="839.5" y="-2425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
+<g id="call~~graph~~CallGraph_edge433" 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="M624.66,-2428C668.34,-2428 732.3,-2428 778.88,-2428"/>
+<polygon fill="#000000" stroke="#000000" points="779.14,-2431.5 789.14,-2428 779.14,-2424.5 779.14,-2431.5"/>
+</g>
+<!-- interface~io_write_frame_encounter -->
+<g id="call~~graph~~CallGraph_node442" class="node">
+<title>interface~io_write_frame_encounter</title>
+<g id="a_call~~graph~~CallGraph_node442"><a xlink:href=".././interface/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="643,-2692 506,-2692 506,-2668 643,-2668 643,-2692"/>
+<text text-anchor="middle" x="574.5" y="-2677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_encounter -->
+<g id="call~~graph~~CallGraph_node563" class="node">
+<title>proc~io_write_frame_encounter</title>
+<g id="a_call~~graph~~CallGraph_node563"><a xlink:href=".././proc/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="908,-2692 771,-2692 771,-2668 908,-2668 908,-2692"/>
+<text text-anchor="middle" x="839.5" y="-2677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter -->
+<g id="call~~graph~~CallGraph_edge434" class="edge">
+<title>interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M643.23,-2680C678.98,-2680 723.03,-2680 760.24,-2680"/>
+<polygon fill="#000000" stroke="#000000" points="760.54,-2683.5 770.54,-2680 760.54,-2676.5 760.54,-2683.5"/>
+</g>
+<!-- interface~io_write_frame_system -->
+<g id="call~~graph~~CallGraph_node444" class="node">
+<title>interface~io_write_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node444"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="636,-2608 513,-2608 513,-2584 636,-2584 636,-2608"/>
+<text text-anchor="middle" x="574.5" y="-2593.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 -->
+<g id="call~~graph~~CallGraph_node566" class="node">
+<title>proc~io_write_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node566"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="901,-2608 778,-2608 778,-2584 901,-2584 901,-2608"/>
+<text text-anchor="middle" x="839.5" y="-2593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
+<g id="call~~graph~~CallGraph_edge435" 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="M636.17,-2596C675.33,-2596 726.43,-2596 767.48,-2596"/>
+<polygon fill="#000000" stroke="#000000" points="767.68,-2599.5 777.68,-2596 767.68,-2592.5 767.68,-2599.5"/>
+</g>
+<!-- interface~io_write_hdr_system -->
+<g id="call~~graph~~CallGraph_node446" class="node">
+<title>interface~io_write_hdr_system</title>
+<g id="a_call~~graph~~CallGraph_node446"><a xlink:href=".././interface/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="630,-2566 519,-2566 519,-2542 630,-2542 630,-2566"/>
+<text text-anchor="middle" x="574.5" y="-2551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_hdr_system -->
+<g id="call~~graph~~CallGraph_node576" class="node">
+<title>proc~io_write_hdr_system</title>
+<g id="a_call~~graph~~CallGraph_node576"><a xlink:href=".././proc/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="895,-2566 784,-2566 784,-2542 895,-2542 895,-2566"/>
+<text text-anchor="middle" x="839.5" y="-2551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system -->
+<g id="call~~graph~~CallGraph_edge436" class="edge">
+<title>interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.31,-2554C672.07,-2554 729.69,-2554 773.73,-2554"/>
+<polygon fill="#000000" stroke="#000000" points="773.76,-2557.5 783.76,-2554 773.76,-2550.5 773.76,-2557.5"/>
+</g>
+<!-- interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl -->
+<g id="call~~graph~~CallGraph_edge437" class="edge">
+<title>interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.51,-11384C675,-11384 726.86,-11384 768.28,-11384"/>
+<polygon fill="#000000" stroke="#000000" points="768.3,-11387.5 778.3,-11384 768.3,-11380.5 768.3,-11387.5"/>
+</g>
+<!-- interface~kick_getacch_int_one_pl -->
+<g id="call~~graph~~CallGraph_node448" class="node">
+<title>interface~kick_getacch_int_one_pl</title>
+<g id="a_call~~graph~~CallGraph_node448"><a xlink:href=".././interface/kick_getacch_int_one_pl.html" xlink:title="kick_getacch_int_one_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-11354 32,-11354 32,-11330 162,-11330 162,-11354"/>
+<text text-anchor="middle" x="97" y="-11339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_one_pl&#45;&gt;proc~kick_getacch_int_one_pl -->
+<g id="call~~graph~~CallGraph_edge438" class="edge">
+<title>interface~kick_getacch_int_one_pl&#45;&gt;proc~kick_getacch_int_one_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.12,-11342C190.04,-11342 222.94,-11342 251.9,-11342"/>
+<polygon fill="#000000" stroke="#000000" points="251.97,-11345.5 261.97,-11342 251.97,-11338.5 251.97,-11345.5"/>
+</g>
+<!-- interface~kick_getacch_int_one_tp -->
+<g id="call~~graph~~CallGraph_node450" class="node">
+<title>interface~kick_getacch_int_one_tp</title>
+<g id="a_call~~graph~~CallGraph_node450"><a xlink:href=".././interface/kick_getacch_int_one_tp.html" xlink:title="kick_getacch_int_one_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-11438 32,-11438 32,-11414 162,-11414 162,-11438"/>
+<text text-anchor="middle" x="97" y="-11423.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_one_tp&#45;&gt;proc~kick_getacch_int_one_tp -->
+<g id="call~~graph~~CallGraph_edge439" class="edge">
+<title>interface~kick_getacch_int_one_tp&#45;&gt;proc~kick_getacch_int_one_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.12,-11426C190.04,-11426 222.94,-11426 251.9,-11426"/>
+<polygon fill="#000000" stroke="#000000" points="251.97,-11429.5 261.97,-11426 251.97,-11422.5 251.97,-11429.5"/>
+</g>
+<!-- interface~kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_node451" class="node">
+<title>interface~kick_getacch_int_pl</title>
+<g id="a_call~~graph~~CallGraph_node451"><a xlink:href=".././interface/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-11396 44,-11396 44,-11372 150,-11372 150,-11396"/>
+<text text-anchor="middle" x="97" y="-11381.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_edge440" 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,-11384C183.76,-11384 227.89,-11384 263.52,-11384"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-11387.5 273.81,-11384 263.81,-11380.5 263.81,-11387.5"/>
+</g>
+<!-- interface~kick_getacch_int_tp -->
+<g id="call~~graph~~CallGraph_node452" class="node">
+<title>interface~kick_getacch_int_tp</title>
+<g id="a_call~~graph~~CallGraph_node452"><a xlink:href=".././interface/kick_getacch_int_tp.html" xlink:title="kick_getacch_int_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-11751 44,-11751 44,-11727 150,-11727 150,-11751"/>
+<text text-anchor="middle" x="97" y="-11736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_tp&#45;&gt;proc~kick_getacch_int_tp -->
+<g id="call~~graph~~CallGraph_edge441" 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,-11739C183.76,-11739 227.89,-11739 263.52,-11739"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-11742.5 273.81,-11739 263.81,-11735.5 263.81,-11742.5"/>
+</g>
+<!-- interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_node453" class="node">
+<title>interface~util_spill~2</title>
+<g id="a_call~~graph~~CallGraph_node453"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1121.5,-11533 1067.5,-11533 1067.5,-11509 1121.5,-11509 1121.5,-11533"/>
+<text text-anchor="middle" x="1094.5" y="-11518.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_close -->
+<g id="call~~graph~~CallGraph_node454" class="node">
+<title>interface~netcdf_close</title>
+<g id="a_call~~graph~~CallGraph_node454"><a xlink:href=".././interface/netcdf_close.html" xlink:title="netcdf_close">
+<polygon fill="#a7506f" stroke="#a7506f" points="133.5,-11102 60.5,-11102 60.5,-11078 133.5,-11078 133.5,-11102"/>
+<text text-anchor="middle" x="97" y="-11087.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_close</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_close&#45;&gt;proc~netcdf_close -->
+<g id="call~~graph~~CallGraph_edge442" class="edge">
+<title>interface~netcdf_close&#45;&gt;proc~netcdf_close</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.62,-11090C173.08,-11090 236.81,-11090 280.01,-11090"/>
+<polygon fill="#000000" stroke="#000000" points="280.25,-11093.5 290.25,-11090 280.25,-11086.5 280.25,-11093.5"/>
+</g>
+<!-- interface~netcdf_initialize_output -->
+<g id="call~~graph~~CallGraph_node456" class="node">
+<title>interface~netcdf_initialize_output</title>
+<g id="a_call~~graph~~CallGraph_node456"><a xlink:href=".././interface/netcdf_initialize_output.html" xlink:title="netcdf_initialize_output">
+<polygon fill="#a7506f" stroke="#a7506f" points="635,-2125 514,-2125 514,-2101 635,-2101 635,-2125"/>
+<text text-anchor="middle" x="574.5" y="-2110.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_initialize_output</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_initialize_output&#45;&gt;proc~netcdf_initialize_output -->
+<g id="call~~graph~~CallGraph_edge443" class="edge">
+<title>interface~netcdf_initialize_output&#45;&gt;proc~netcdf_initialize_output</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.18,-2113C674.8,-2113 726.97,-2113 768.55,-2113"/>
+<polygon fill="#000000" stroke="#000000" points="768.6,-2116.5 778.6,-2113 768.6,-2109.5 768.6,-2116.5"/>
+</g>
+<!-- interface~netcdf_open -->
+<g id="call~~graph~~CallGraph_node458" class="node">
+<title>interface~netcdf_open</title>
+<g id="a_call~~graph~~CallGraph_node458"><a xlink:href=".././interface/netcdf_open.html" xlink:title="netcdf_open">
+<polygon fill="#a7506f" stroke="#a7506f" points="610.5,-2020 538.5,-2020 538.5,-1996 610.5,-1996 610.5,-2020"/>
+<text text-anchor="middle" x="574.5" y="-2005.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_open</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_open&#45;&gt;proc~netcdf_open -->
+<g id="call~~graph~~CallGraph_edge444" class="edge">
+<title>interface~netcdf_open&#45;&gt;proc~netcdf_open</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.7,-2008C657.71,-2008 741.07,-2008 792.86,-2008"/>
+<polygon fill="#000000" stroke="#000000" points="793.09,-2011.5 803.09,-2008 793.09,-2004.5 793.09,-2011.5"/>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<g id="call~~graph~~CallGraph_edge446" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M598.3,-5992.09C627.4,-6007.36 679.44,-6034.17 725,-6055 748.99,-6065.97 776.3,-6077.31 798.11,-6086.1"/>
+<polygon fill="#000000" stroke="#000000" points="796.82,-6089.36 807.41,-6089.83 799.43,-6082.86 796.82,-6089.36"/>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
+<g id="call~~graph~~CallGraph_edge447" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
+<path fill="none" stroke="#000000" d="M608.01,-5980C654.14,-5980 738.83,-5980 791.71,-5980"/>
+<polygon fill="#000000" stroke="#000000" points="791.84,-5983.5 801.84,-5980 791.84,-5976.5 791.84,-5983.5"/>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
+<g id="call~~graph~~CallGraph_edge449" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M608.09,-5974.84C638.33,-5970.2 684.62,-5963.43 725,-5959 842.44,-5946.11 871.95,-5942.67 990,-5938 1082.82,-5934.33 1106.11,-5937.67 1199,-5938 1230.14,-5938.11 1265.19,-5938.36 1292.37,-5938.59"/>
+<polygon fill="#000000" stroke="#000000" points="1292.34,-5942.09 1302.37,-5938.67 1292.4,-5935.09 1292.34,-5942.09"/>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge445" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M608.14,-5984.74C638.42,-5989.09 684.73,-5995.67 725,-6001 830.23,-6014.94 1096.81,-6031.28 1199,-6060 1238.13,-6071 1280.31,-6091.35 1307.91,-6105.94"/>
+<polygon fill="#000000" stroke="#000000" points="1306.58,-6109.2 1317.04,-6110.84 1309.89,-6103.03 1306.58,-6109.2"/>
+</g>
+<!-- proc~orbel_zget -->
+<g id="call~~graph~~CallGraph_node672" class="node">
+<title>proc~orbel_zget</title>
+<g id="a_call~~graph~~CallGraph_node672"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="871,-5891 808,-5891 808,-5867 871,-5867 871,-5891"/>
+<text text-anchor="middle" x="839.5" y="-5876.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
+<g id="call~~graph~~CallGraph_edge448" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
+<path fill="none" stroke="#000000" d="M595.61,-5967.95C623.68,-5951.58 676.63,-5922.39 725,-5905 748.48,-5896.56 775.71,-5890.21 797.61,-5885.9"/>
+<polygon fill="#000000" stroke="#000000" points="798.41,-5889.31 807.58,-5884.01 797.1,-5882.44 798.41,-5889.31"/>
+</g>
+<!-- interface~netcdf_write_frame_base -->
+<g id="call~~graph~~CallGraph_node460" class="node">
+<title>interface~netcdf_write_frame_base</title>
+<g id="a_call~~graph~~CallGraph_node460"><a xlink:href=".././interface/netcdf_write_frame_base.html" xlink:title="netcdf_write_frame_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="641,-2272 508,-2272 508,-2248 641,-2248 641,-2272"/>
+<text text-anchor="middle" x="574.5" y="-2257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base -->
+<g id="call~~graph~~CallGraph_edge450" class="edge">
+<title>interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.19,-2260C678.06,-2260 724.23,-2260 762.64,-2260"/>
+<polygon fill="#000000" stroke="#000000" points="762.74,-2263.5 772.74,-2260 762.74,-2256.5 762.74,-2263.5"/>
+</g>
+<!-- interface~netcdf_write_frame_system -->
+<g id="call~~graph~~CallGraph_node461" class="node">
+<title>interface~netcdf_write_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node461"><a xlink:href=".././interface/netcdf_write_frame_system.html" xlink:title="netcdf_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="169,-12862 25,-12862 25,-12838 169,-12838 169,-12862"/>
+<text text-anchor="middle" x="97" y="-12847.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_system</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_hdr_system -->
+<g id="call~~graph~~CallGraph_node462" class="node">
+<title>interface~netcdf_write_hdr_system</title>
+<g id="a_call~~graph~~CallGraph_node462"><a xlink:href=".././interface/netcdf_write_hdr_system.html" xlink:title="netcdf_write_hdr_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="640.5,-2062 508.5,-2062 508.5,-2038 640.5,-2038 640.5,-2062"/>
+<text text-anchor="middle" x="574.5" y="-2047.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_hdr_system&#45;&gt;proc~netcdf_write_hdr_system -->
+<g id="call~~graph~~CallGraph_edge451" class="edge">
+<title>interface~netcdf_write_hdr_system&#45;&gt;proc~netcdf_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.51,-2050C677.65,-2050 724.4,-2050 763.14,-2050"/>
+<polygon fill="#000000" stroke="#000000" points="763.33,-2053.5 773.33,-2050 763.33,-2046.5 763.33,-2053.5"/>
+</g>
+<!-- interface~netcdf_write_particle_info_base -->
+<g id="call~~graph~~CallGraph_node463" class="node">
+<title>interface~netcdf_write_particle_info_base</title>
+<g id="a_call~~graph~~CallGraph_node463"><a xlink:href=".././interface/netcdf_write_particle_info_base.html" xlink:title="netcdf_write_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="656,-2230 493,-2230 493,-2206 656,-2206 656,-2230"/>
+<text text-anchor="middle" x="574.5" y="-2215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base -->
+<g id="call~~graph~~CallGraph_edge452" class="edge">
+<title>interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.2,-2218C685.1,-2218 717.88,-2218 747.59,-2218"/>
+<polygon fill="#000000" stroke="#000000" points="747.96,-2221.5 757.96,-2218 747.96,-2214.5 747.96,-2221.5"/>
+</g>
+<!-- interface~obl_acc_body&#45;&gt;proc~obl_acc_body -->
+<g id="call~~graph~~CallGraph_edge453" class="edge">
+<title>interface~obl_acc_body&#45;&gt;proc~obl_acc_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.02,-6682C660.61,-6682 739.07,-6682 789.8,-6682"/>
+<polygon fill="#000000" stroke="#000000" points="789.87,-6685.5 799.87,-6682 789.87,-6678.5 789.87,-6685.5"/>
+</g>
+<!-- interface~obl_acc_pl -->
+<g id="call~~graph~~CallGraph_node465" class="node">
+<title>interface~obl_acc_pl</title>
+<g id="a_call~~graph~~CallGraph_node465"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-6715 65,-6715 65,-6691 129,-6691 129,-6715"/>
+<text text-anchor="middle" x="97" y="-6700.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
+<g id="call~~graph~~CallGraph_edge454" 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,-6703C169.53,-6703 239.8,-6703 284.55,-6703"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-6706.5 294.79,-6703 284.79,-6699.5 284.79,-6706.5"/>
+</g>
+<!-- interface~obl_acc_tp -->
+<g id="call~~graph~~CallGraph_node467" class="node">
+<title>interface~obl_acc_tp</title>
+<g id="a_call~~graph~~CallGraph_node467"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-6673 65,-6673 65,-6649 129,-6649 129,-6673"/>
+<text text-anchor="middle" x="97" y="-6658.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
+<g id="call~~graph~~CallGraph_edge455" 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,-6661C169.53,-6661 239.8,-6661 284.55,-6661"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-6664.5 294.79,-6661 284.79,-6657.5 284.79,-6664.5"/>
+</g>
+<!-- interface~obl_pot_system -->
+<g id="call~~graph~~CallGraph_node468" class="node">
+<title>interface~obl_pot_system</title>
+<g id="a_call~~graph~~CallGraph_node468"><a xlink:href=".././interface/obl_pot_system.html" xlink:title="obl_pot_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="141,-10640 53,-10640 53,-10616 141,-10616 141,-10640"/>
+<text text-anchor="middle" x="97" y="-10625.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_system</text>
+</a>
+</g>
+</g>
+<!-- interface~obl_pot_system&#45;&gt;proc~obl_pot_system -->
 <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"/>
+<title>interface~obl_pot_system&#45;&gt;proc~obl_pot_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.15,-10628C178.44,-10628 232.49,-10628 272.52,-10628"/>
+<polygon fill="#000000" stroke="#000000" points="272.64,-10631.5 282.64,-10628 272.64,-10624.5 272.64,-10631.5"/>
+</g>
+<!-- interface~orbel_el2xv_vec -->
+<g id="call~~graph~~CallGraph_node470" class="node">
+<title>interface~orbel_el2xv_vec</title>
+<g id="a_call~~graph~~CallGraph_node470"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-5992 52,-5992 52,-5968 142,-5968 142,-5992"/>
+<text text-anchor="middle" x="97" y="-5977.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="call~~graph~~CallGraph_edge457" 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,-5980C179.28,-5980 232.3,-5980 271.88,-5980"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-5983.5 281.89,-5980 271.89,-5976.5 271.89,-5983.5"/>
+</g>
+<!-- proc~orbel_scget -->
+<g id="call~~graph~~CallGraph_node490" class="node">
+<title>proc~orbel_scget</title>
+<g id="a_call~~graph~~CallGraph_node490"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#d9534f" stroke="#d9534f" points="1602.5,-6135 1534.5,-6135 1534.5,-6111 1602.5,-6111 1602.5,-6135"/>
+<text text-anchor="middle" x="1568.5" y="-6120.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="call~~graph~~CallGraph_edge458" class="edge">
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1373.51,-6123C1413.35,-6123 1480.46,-6123 1524.37,-6123"/>
+<polygon fill="#000000" stroke="#000000" points="1524.45,-6126.5 1534.45,-6123 1524.45,-6119.5 1524.45,-6126.5"/>
+</g>
+<!-- interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_edge459" class="edge">
+<title>interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.18,-8131C659.96,-8131 739.77,-8131 790.78,-8131"/>
+<polygon fill="#000000" stroke="#000000" points="790.89,-8134.5 800.89,-8131 790.89,-8127.5 790.89,-8134.5"/>
+</g>
+<!-- interface~orbel_xv2aqt -->
+<g id="call~~graph~~CallGraph_node473" class="node">
+<title>interface~orbel_xv2aqt</title>
+<g id="a_call~~graph~~CallGraph_node473"><a xlink:href=".././interface/orbel_xv2aqt.html" xlink:title="orbel_xv2aqt">
+<polygon fill="#a7506f" stroke="#a7506f" points="134,-8227 60,-8227 60,-8203 134,-8203 134,-8227"/>
+<text text-anchor="middle" x="97" y="-8212.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aqt</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt -->
+<g id="call~~graph~~CallGraph_edge460" class="edge">
+<title>interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.13,-8215C173.45,-8215 236.46,-8215 279.46,-8215"/>
+<polygon fill="#000000" stroke="#000000" points="279.67,-8218.5 289.66,-8215 279.66,-8211.5 279.67,-8218.5"/>
+</g>
+<!-- interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el -->
+<g id="call~~graph~~CallGraph_edge461" class="edge">
+<title>interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.01,-8509C655.3,-8509 743.12,-8509 795.64,-8509"/>
+<polygon fill="#000000" stroke="#000000" points="795.65,-8512.5 805.65,-8509 795.65,-8505.5 795.65,-8512.5"/>
+</g>
+<!-- interface~orbel_xv2el_vec -->
+<g id="call~~graph~~CallGraph_node476" class="node">
+<title>interface~orbel_xv2el_vec</title>
+<g id="a_call~~graph~~CallGraph_node476"><a xlink:href=".././interface/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-8521 52,-8521 52,-8497 142,-8497 142,-8521"/>
+<text text-anchor="middle" x="97" y="-8506.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_edge462" 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,-8509C179.28,-8509 232.3,-8509 271.88,-8509"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-8512.5 281.89,-8509 271.89,-8505.5 271.89,-8512.5"/>
+</g>
+<!-- proc~util_rescale_system -->
+<g id="call~~graph~~CallGraph_node477" class="node">
+<title>proc~util_rescale_system</title>
+<g id="a_call~~graph~~CallGraph_node477"><a xlink:href=".././proc/util_rescale_system.html" xlink:title="util_rescale_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-12904 274,-12904 274,-12880 380,-12880 380,-12904"/>
+<text text-anchor="middle" x="327" y="-12889.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_body&#45;&gt;proc~setup_body -->
+<g id="call~~graph~~CallGraph_edge463" class="edge">
+<title>interface~setup_body&#45;&gt;proc~setup_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.54,-10859C655.78,-10859 742.69,-10859 795.07,-10859"/>
+<polygon fill="#000000" stroke="#000000" points="795.39,-10862.5 805.39,-10859 795.39,-10855.5 795.39,-10862.5"/>
+</g>
+<!-- interface~setup_construct_system -->
+<g id="call~~graph~~CallGraph_node479" class="node">
+<title>interface~setup_construct_system</title>
+<g id="a_call~~graph~~CallGraph_node479"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="638.5,-2902 510.5,-2902 510.5,-2878 638.5,-2878 638.5,-2902"/>
+<text text-anchor="middle" x="574.5" y="-2887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<g id="call~~graph~~CallGraph_edge464" class="edge">
+<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M638.83,-2890C676.86,-2890 725.41,-2890 765.11,-2890"/>
+<polygon fill="#000000" stroke="#000000" points="765.26,-2893.5 775.26,-2890 765.26,-2886.5 765.26,-2893.5"/>
+</g>
+<!-- interface~setup_encounter -->
+<g id="call~~graph~~CallGraph_node480" class="node">
+<title>interface~setup_encounter</title>
+<g id="a_call~~graph~~CallGraph_node480"><a xlink:href=".././interface/setup_encounter.html" xlink:title="setup_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="143.5,-10976 50.5,-10976 50.5,-10952 143.5,-10952 143.5,-10976"/>
+<text text-anchor="middle" x="97" y="-10961.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_encounter&#45;&gt;proc~setup_encounter -->
+<g id="call~~graph~~CallGraph_edge465" class="edge">
+<title>interface~setup_encounter&#45;&gt;proc~setup_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.59,-10964C180.09,-10964 231.45,-10964 270.37,-10964"/>
+<polygon fill="#000000" stroke="#000000" points="270.49,-10967.5 280.49,-10964 270.49,-10960.5 270.49,-10967.5"/>
+</g>
+<!-- interface~setup_initialize_particle_info_system -->
+<g id="call~~graph~~CallGraph_node481" class="node">
+<title>interface~setup_initialize_particle_info_system</title>
+<g id="a_call~~graph~~CallGraph_node481"><a xlink:href=".././interface/setup_initialize_particle_info_system.html" xlink:title="setup_initialize_particle_info_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="190,-11018 4,-11018 4,-10994 190,-10994 190,-11018"/>
+<text text-anchor="middle" x="97" y="-11003.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_initialize_particle_info_system&#45;&gt;proc~setup_initialize_particle_info_system -->
+<g id="call~~graph~~CallGraph_edge466" class="edge">
+<title>interface~setup_initialize_particle_info_system&#45;&gt;proc~setup_initialize_particle_info_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.08,-11006C201.15,-11006 212.51,-11006 223.71,-11006"/>
+<polygon fill="#000000" stroke="#000000" points="223.95,-11009.5 233.95,-11006 223.95,-11002.5 223.95,-11009.5"/>
+</g>
+<!-- interface~setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node482" class="node">
+<title>interface~setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node482"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-11060 36,-11060 36,-11036 158,-11036 158,-11060"/>
+<text text-anchor="middle" x="97" y="-11045.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_edge467" 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,-11048C188.07,-11048 224.34,-11048 255.5,-11048"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-11051.5 265.86,-11048 255.86,-11044.5 255.86,-11051.5"/>
+</g>
+<!-- interface~setup_pl -->
+<g id="call~~graph~~CallGraph_node483" class="node">
+<title>interface~setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node483"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="124,-10892 70,-10892 70,-10868 124,-10868 124,-10892"/>
+<text text-anchor="middle" x="97" y="-10877.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_edge468" class="edge">
+<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.15,-10880C164.85,-10880 243.43,-10880 289.63,-10880"/>
+<polygon fill="#000000" stroke="#000000" points="289.8,-10883.5 299.8,-10880 289.8,-10876.5 289.8,-10883.5"/>
+</g>
+<!-- interface~setup_tp -->
+<g id="call~~graph~~CallGraph_node485" class="node">
+<title>interface~setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node485"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="124,-10850 70,-10850 70,-10826 124,-10826 124,-10850"/>
+<text text-anchor="middle" x="97" y="-10835.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
+<g id="call~~graph~~CallGraph_edge469" class="edge">
+<title>interface~setup_tp&#45;&gt;proc~setup_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.15,-10838C164.85,-10838 243.43,-10838 289.63,-10838"/>
+<polygon fill="#000000" stroke="#000000" points="289.8,-10841.5 299.8,-10838 289.8,-10834.5 289.8,-10841.5"/>
+</g>
+<!-- interface~tides_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node486" class="node">
+<title>interface~tides_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node486"><a xlink:href=".././interface/tides_kick_getacch_pl.html" xlink:title="tides_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-12946 38.5,-12946 38.5,-12922 155.5,-12922 155.5,-12946"/>
+<text text-anchor="middle" x="97" y="-12931.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_kick_getacch_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~tides_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node521" class="node">
+<title>proc~tides_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node521"><a xlink:href=".././proc/tides_kick_getacch_pl.html" xlink:title="tides_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-12946 268.5,-12946 268.5,-12922 385.5,-12922 385.5,-12946"/>
+<text text-anchor="middle" x="327" y="-12931.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_kick_getacch_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~tides_kick_getacch_pl&#45;&gt;proc~tides_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge470" 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,-12934C186.72,-12934 225.45,-12934 258.11,-12934"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-12937.5 268.48,-12934 258.48,-12930.5 258.48,-12937.5"/>
+</g>
+<!-- interface~tides_step_spin_system -->
+<g id="call~~graph~~CallGraph_node487" class="node">
+<title>interface~tides_step_spin_system</title>
+<g id="a_call~~graph~~CallGraph_node487"><a xlink:href=".././interface/tides_step_spin_system.html" xlink:title="tides_step_spin_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-12988 33.5,-12988 33.5,-12964 160.5,-12964 160.5,-12988"/>
+<text text-anchor="middle" x="97" y="-12973.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_step_spin_system</text>
+</a>
+</g>
+</g>
+<!-- proc~tides_step_spin_system -->
+<g id="call~~graph~~CallGraph_node561" class="node">
+<title>proc~tides_step_spin_system</title>
+<g id="a_call~~graph~~CallGraph_node561"><a xlink:href=".././proc/tides_step_spin_system.html" xlink:title="tides_step_spin_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-12988 263.5,-12988 263.5,-12964 390.5,-12964 390.5,-12988"/>
+<text text-anchor="middle" x="327" y="-12973.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_step_spin_system</text>
+</a>
+</g>
+</g>
+<!-- interface~tides_step_spin_system&#45;&gt;proc~tides_step_spin_system -->
+<g id="call~~graph~~CallGraph_edge471" 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,-12976C189.14,-12976 223.11,-12976 252.83,-12976"/>
+<polygon fill="#000000" stroke="#000000" points="253.14,-12979.5 263.14,-12976 253.14,-12972.5 253.14,-12979.5"/>
+</g>
+<!-- interface~user_kick_getacch_body -->
+<g id="call~~graph~~CallGraph_node488" class="node">
+<title>interface~user_kick_getacch_body</title>
+<g id="a_call~~graph~~CallGraph_node488"><a xlink:href=".././interface/user_kick_getacch_body.html" xlink:title="user_kick_getacch_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-11228 32,-11228 32,-11204 162,-11204 162,-11228"/>
+<text text-anchor="middle" x="97" y="-11213.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_kick_getacch_body</text>
+</a>
+</g>
+</g>
+<!-- interface~user_kick_getacch_body&#45;&gt;proc~user_kick_getacch_body -->
+<g id="call~~graph~~CallGraph_edge472" 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,-11216C190.04,-11216 222.94,-11216 251.9,-11216"/>
+<polygon fill="#000000" stroke="#000000" points="251.97,-11219.5 261.97,-11216 251.97,-11212.5 251.97,-11219.5"/>
+</g>
+<!-- proc~fraggle_setup_fragments&#45;&gt;setup_pl -->
+<g id="call~~graph~~CallGraph_edge473" class="edge">
+<title>proc~fraggle_setup_fragments&#45;&gt;setup_pl</title>
+<path fill="none" stroke="#000000" d="M905.65,-4828.82C953.9,-4836.83 1017.86,-4847.44 1057.32,-4853.99"/>
+<polygon fill="#000000" stroke="#000000" points="1056.84,-4857.46 1067.28,-4855.65 1057.99,-4850.56 1056.84,-4857.46"/>
+</g>
+<!-- interface~util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_node491" class="node">
+<title>interface~util_minimize_bfgs</title>
+<g id="a_call~~graph~~CallGraph_node491"><a xlink:href=".././interface/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
+<polygon fill="#a7506f" stroke="#a7506f" points="147,-13030 47,-13030 47,-13006 147,-13006 147,-13030"/>
+<text text-anchor="middle" x="97" y="-13015.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</a>
+</g>
+</g>
+<!-- proc~util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_node553" class="node">
+<title>proc~util_minimize_bfgs</title>
+<g id="a_call~~graph~~CallGraph_node553"><a xlink:href=".././proc/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="377,-13030 277,-13030 277,-13006 377,-13006 377,-13030"/>
+<text text-anchor="middle" x="327" y="-13015.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</a>
+</g>
+</g>
+<!-- interface~util_minimize_bfgs&#45;&gt;proc~util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_edge474" 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,-13018C182.25,-13018 229.56,-13018 266.71,-13018"/>
+<polygon fill="#000000" stroke="#000000" points="266.9,-13021.5 276.9,-13018 266.9,-13014.5 266.9,-13021.5"/>
+</g>
+<!-- interface~util_rescale_system -->
+<g id="call~~graph~~CallGraph_node494" class="node">
+<title>interface~util_rescale_system</title>
+<g id="a_call~~graph~~CallGraph_node494"><a xlink:href=".././interface/util_rescale_system.html" xlink:title="util_rescale_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-12904 44,-12904 44,-12880 150,-12880 150,-12904"/>
+<text text-anchor="middle" x="97" y="-12889.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale_system</text>
+</a>
+</g>
+</g>
+<!-- interface~util_rescale_system&#45;&gt;proc~util_rescale_system -->
+<g id="call~~graph~~CallGraph_edge475" 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,-12892C183.76,-12892 227.89,-12892 263.52,-12892"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-12895.5 273.81,-12892 263.81,-12888.5 263.81,-12895.5"/>
+</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,-8143 64.5,-8143 64.5,-8119 129.5,-8119 129.5,-8143"/>
+<text text-anchor="middle" x="97" y="-8128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_peri_tp&#45;&gt;proc~util_peri_tp -->
+<g id="call~~graph~~CallGraph_edge476" 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,-8131C169.92,-8131 239.38,-8131 283.98,-8131"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-8134.5 294.2,-8131 284.2,-8127.5 284.2,-8134.5"/>
+</g>
+<!-- interface~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_node496" class="node">
+<title>interface~util_sort_rearrange_body</title>
+<g id="a_call~~graph~~CallGraph_node496"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="641,-9896 508,-9896 508,-9872 641,-9872 641,-9896"/>
+<text text-anchor="middle" x="574.5" y="-9881.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_edge477" 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="M641.19,-9884C678.06,-9884 724.23,-9884 762.64,-9884"/>
+<polygon fill="#000000" stroke="#000000" points="762.74,-9887.5 772.74,-9884 762.74,-9880.5 762.74,-9887.5"/>
+</g>
+<!-- interface~util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node497" class="node">
+<title>interface~util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node497"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-9926 38,-9926 38,-9902 156,-9902 156,-9926"/>
+<text text-anchor="middle" x="97" y="-9911.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node597" class="node">
+<title>proc~util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node597"><a xlink:href=".././proc/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-9926 268,-9926 268,-9902 386,-9902 386,-9926"/>
+<text text-anchor="middle" x="327" y="-9911.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="call~~graph~~CallGraph_edge478" 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,-9914C187.08,-9914 225.33,-9914 257.7,-9914"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-9917.5 267.98,-9914 257.98,-9910.5 257.98,-9917.5"/>
+</g>
+<!-- interface~util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node498" class="node">
+<title>interface~util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node498"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-9865 38,-9865 38,-9841 156,-9841 156,-9865"/>
+<text text-anchor="middle" x="97" y="-9850.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node596" class="node">
+<title>proc~util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node596"><a xlink:href=".././proc/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-9865 268,-9865 268,-9841 386,-9841 386,-9865"/>
+<text text-anchor="middle" x="327" y="-9850.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_sort_rearrange_tp&#45;&gt;proc~util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge479" 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,-9853C187.08,-9853 225.33,-9853 257.7,-9853"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-9856.5 267.98,-9853 257.98,-9849.5 257.98,-9856.5"/>
+</g>
+<!-- interface~util_sort_body&#45;&gt;proc~util_sort_body -->
+<g id="call~~graph~~CallGraph_edge480" class="edge">
+<title>interface~util_sort_body&#45;&gt;proc~util_sort_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.02,-9076C660.61,-9076 739.07,-9076 789.8,-9076"/>
+<polygon fill="#000000" stroke="#000000" points="789.87,-9079.5 799.87,-9076 789.87,-9072.5 789.87,-9079.5"/>
+</g>
+<!-- interface~util_sort_pl -->
+<g id="call~~graph~~CallGraph_node501" class="node">
+<title>interface~util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node501"><a xlink:href=".././interface/util_sort_pl.html" xlink:title="util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-9109 65,-9109 65,-9085 129,-9085 129,-9109"/>
+<text text-anchor="middle" x="97" y="-9094.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="call~~graph~~CallGraph_edge481" 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,-9097C169.53,-9097 239.8,-9097 284.55,-9097"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-9100.5 294.79,-9097 284.79,-9093.5 284.79,-9100.5"/>
+</g>
+<!-- interface~util_sort_tp -->
+<g id="call~~graph~~CallGraph_node503" class="node">
+<title>interface~util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node503"><a xlink:href=".././interface/util_sort_tp.html" xlink:title="util_sort_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-9067 64.5,-9067 64.5,-9043 129.5,-9043 129.5,-9067"/>
+<text text-anchor="middle" x="97" y="-9052.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="call~~graph~~CallGraph_edge482" 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,-9055C169.92,-9055 239.38,-9055 283.98,-9055"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-9058.5 294.2,-9055 284.2,-9051.5 284.2,-9058.5"/>
+</g>
+<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge483" class="edge">
+<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M883.13,-2848C931.99,-2848 1011.24,-2848 1057.25,-2848"/>
+<polygon fill="#000000" stroke="#000000" points="1057.37,-2851.5 1067.37,-2848 1057.37,-2844.5 1057.37,-2851.5"/>
+</g>
+<!-- proc~util_resize_arr_i4b -->
+<g id="call~~graph~~CallGraph_node505" class="node">
+<title>proc~util_resize_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node505"><a xlink:href=".././proc/util_resize_arr_i4b.html" xlink:title="util_resize_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="148,-13072 46,-13072 46,-13048 148,-13048 148,-13072"/>
+<text text-anchor="middle" x="97" y="-13057.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_I4B</text>
+</a>
+</g>
+</g>
+<!-- proc~io_read_particle_info_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge484" class="edge">
+<title>proc~io_read_particle_info_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M913,-2818.04C960.25,-2825.88 1019.87,-2835.78 1057.35,-2842"/>
+<polygon fill="#000000" stroke="#000000" points="1056.87,-2845.47 1067.31,-2843.65 1058.02,-2838.56 1056.87,-2845.47"/>
+</g>
+<!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge486" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M880.67,-3299.84C910.7,-3295.56 952.81,-3290.23 990,-3288 1189.2,-3276.05 1427.74,-3283.29 1524.04,-3287.1"/>
+<polygon fill="#000000" stroke="#000000" points="1524.12,-3290.61 1534.26,-3287.51 1524.41,-3283.61 1524.12,-3290.61"/>
+</g>
+<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
+<g id="call~~graph~~CallGraph_edge485" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M880.59,-3306.48C922.39,-3306.97 988.3,-3307.75 1035.71,-3308.31"/>
+<polygon fill="#000000" stroke="#000000" points="1035.8,-3311.82 1045.84,-3308.43 1035.88,-3304.82 1035.8,-3311.82"/>
+</g>
+<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge487" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M880.74,-3306.3C904.77,-3304.38 934.33,-3298.03 954,-3280 985.87,-3250.8 1065.56,-2954.39 1087.71,-2870.19"/>
+<polygon fill="#000000" stroke="#000000" points="1091.13,-2870.95 1090.28,-2860.39 1084.36,-2869.17 1091.13,-2870.95"/>
+</g>
+<!-- proc~util_resize_arr_logical -->
+<g id="call~~graph~~CallGraph_node509" class="node">
+<title>proc~util_resize_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node509"><a xlink:href=".././proc/util_resize_arr_logical.html" xlink:title="util_resize_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="155,-13114 39,-13114 39,-13090 155,-13090 155,-13114"/>
+<text text-anchor="middle" x="97" y="-13099.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_logical</text>
+</a>
+</g>
+</g>
+<!-- interface~util_solve_linear_system -->
+<g id="call~~graph~~CallGraph_node512" class="node">
+<title>interface~util_solve_linear_system</title>
+<g id="a_call~~graph~~CallGraph_node512"><a xlink:href=".././interface/util_solve_linear_system.html" xlink:title="util_solve_linear_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="161.5,-13156 32.5,-13156 32.5,-13132 161.5,-13132 161.5,-13156"/>
+<text text-anchor="middle" x="97" y="-13141.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system</text>
+</a>
+</g>
+</g>
+<!-- proc~util_set_beg_end_pl -->
+<g id="call~~graph~~CallGraph_node513" class="node">
+<title>proc~util_set_beg_end_pl</title>
+<g id="a_call~~graph~~CallGraph_node513"><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,-13198 272.5,-13198 272.5,-13174 381.5,-13174 381.5,-13198"/>
+<text text-anchor="middle" x="327" y="-13183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_beg_end_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~util_resize_arr_info -->
+<g id="call~~graph~~CallGraph_node514" class="node">
+<title>proc~util_resize_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node514"><a xlink:href=".././proc/util_resize_arr_info.html" xlink:title="util_resize_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="148.5,-13240 45.5,-13240 45.5,-13216 148.5,-13216 148.5,-13240"/>
+<text text-anchor="middle" x="97" y="-13225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge489" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M881.17,-3350.82C979.03,-3356.72 1234.99,-3366.99 1444,-3330 1473.52,-3324.77 1505.63,-3313.95 1529.7,-3304.73"/>
+<polygon fill="#000000" stroke="#000000" points="1531.13,-3307.93 1539.17,-3301.03 1528.58,-3301.41 1531.13,-3307.93"/>
+</g>
+<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
+<g id="call~~graph~~CallGraph_edge488" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M881.15,-3341.73C922.92,-3335.29 988.34,-3325.21 1035.54,-3317.94"/>
+<polygon fill="#000000" stroke="#000000" points="1036.26,-3321.36 1045.61,-3316.38 1035.2,-3314.45 1036.26,-3321.36"/>
+</g>
+<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge490" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M881.05,-3350.47C905.04,-3349.73 934.45,-3344.67 954,-3327 956.24,-3324.98 1060.13,-2964.04 1087.14,-2870.12"/>
+<polygon fill="#000000" stroke="#000000" points="1090.58,-2870.84 1089.98,-2860.26 1083.85,-2868.91 1090.58,-2870.84"/>
+</g>
+<!-- vj -->
+<g id="call~~graph~~CallGraph_node703" class="node">
+<title>vj</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-6925 547.5,-6925 547.5,-6901 601.5,-6901 601.5,-6925"/>
+<text text-anchor="middle" x="574.5" y="-6910.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_edge491" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
+<path fill="none" stroke="#000000" d="M378.57,-6879.65C425.8,-6887.73 495.14,-6899.59 537.13,-6906.78"/>
+<polygon fill="#000000" stroke="#000000" points="536.74,-6910.26 547.19,-6908.5 537.92,-6903.36 536.74,-6910.26"/>
+</g>
+<!-- xh -->
+<g id="call~~graph~~CallGraph_node705" class="node">
+<title>xh</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-7009 547.5,-7009 547.5,-6985 601.5,-6985 601.5,-7009"/>
+<text text-anchor="middle" x="574.5" y="-6994.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
+</g>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
+<g id="call~~graph~~CallGraph_edge494" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
+<path fill="none" stroke="#000000" d="M378.83,-6873.13C394.72,-6876.01 411.37,-6881.57 424,-6892 455.31,-6917.87 428.28,-6950.64 460,-6976 481.54,-6993.22 512.73,-6998 536.96,-6998.73"/>
+<polygon fill="#000000" stroke="#000000" points="537.18,-7002.23 547.21,-6998.82 537.24,-6995.23 537.18,-7002.23"/>
+</g>
+<!-- xj -->
+<g id="call~~graph~~CallGraph_node720" class="node">
+<title>xj</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-6967 547.5,-6967 547.5,-6943 601.5,-6943 601.5,-6967"/>
+<text text-anchor="middle" x="574.5" y="-6952.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
+</g>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
+<g id="call~~graph~~CallGraph_edge493" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;xj</title>
+<path fill="none" stroke="#000000" d="M378.63,-6875.8C393.99,-6878.86 410.38,-6883.86 424,-6892 445.1,-6904.61 438.7,-6921.73 460,-6934 483.49,-6947.53 513.85,-6952.62 537.26,-6954.42"/>
+<polygon fill="#000000" stroke="#000000" points="537.28,-6957.93 547.47,-6955.03 537.7,-6950.94 537.28,-6957.93"/>
+</g>
+<!-- eta -->
+<g id="call~~graph~~CallGraph_node739" class="node">
+<title>eta</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-6883 547.5,-6883 547.5,-6859 601.5,-6859 601.5,-6883"/>
+<text text-anchor="middle" x="574.5" y="-6868.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_edge496" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
+<path fill="none" stroke="#000000" d="M378.57,-6871C425.8,-6871 495.14,-6871 537.13,-6871"/>
+<polygon fill="#000000" stroke="#000000" points="537.19,-6874.5 547.19,-6871 537.19,-6867.5 537.19,-6874.5"/>
+</g>
+<!-- gmpl -->
+<g id="call~~graph~~CallGraph_node752" class="node">
+<title>gmpl</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-6841 547.5,-6841 547.5,-6817 601.5,-6817 601.5,-6841"/>
+<text text-anchor="middle" x="574.5" y="-6826.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_edge495" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
+<path fill="none" stroke="#000000" d="M378.57,-6862.35C425.8,-6854.27 495.14,-6842.41 537.13,-6835.22"/>
+<polygon fill="#000000" stroke="#000000" points="537.92,-6838.64 547.19,-6833.5 536.74,-6831.74 537.92,-6838.64"/>
+</g>
+<!-- vh -->
+<g id="call~~graph~~CallGraph_node764" class="node">
+<title>vh</title>
+<polygon fill="#777777" stroke="#777777" points="601.5,-6799 547.5,-6799 547.5,-6775 601.5,-6775 601.5,-6799"/>
+<text text-anchor="middle" x="574.5" y="-6784.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+</g>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
+<g id="call~~graph~~CallGraph_edge492" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;vh</title>
+<path fill="none" stroke="#000000" d="M378.63,-6866.2C393.99,-6863.14 410.38,-6858.14 424,-6850 445.1,-6837.39 438.7,-6820.27 460,-6808 483.49,-6794.47 513.85,-6789.38 537.26,-6787.58"/>
+<polygon fill="#000000" stroke="#000000" points="537.7,-6791.06 547.47,-6786.97 537.28,-6784.07 537.7,-6791.06"/>
+</g>
+<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge497" class="edge">
+<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M884.76,-2769.65C906,-2773 931.63,-2777.99 954,-2785 992.34,-2797.01 1034.04,-2816.8 1061.77,-2831"/>
+<polygon fill="#000000" stroke="#000000" points="1060.48,-2834.27 1070.97,-2835.77 1063.7,-2828.06 1060.48,-2834.27"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption -->
+<g id="call~~graph~~CallGraph_edge502" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M864.81,-314.02C893.93,-328 944.52,-350.96 990,-365 997.87,-367.43 1006.16,-369.65 1014.49,-371.67"/>
+<polygon fill="#000000" stroke="#000000" points="1013.73,-375.08 1024.26,-373.94 1015.31,-368.27 1013.73,-375.08"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
+<g id="call~~graph~~CallGraph_edge503" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M913,-314.04C943.57,-319.11 979.31,-325.04 1010.89,-330.29"/>
+<polygon fill="#000000" stroke="#000000" points="1010.55,-333.78 1020.99,-331.96 1011.7,-326.87 1010.55,-333.78"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge -->
+<g id="call~~graph~~CallGraph_edge501" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M942.31,-302C964.95,-302 988.69,-302 1010.47,-302"/>
+<polygon fill="#000000" stroke="#000000" points="1010.66,-305.5 1020.66,-302 1010.66,-298.5 1010.66,-305.5"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders -->
+<g id="call~~graph~~CallGraph_edge498" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M913,-289.96C943.57,-284.89 979.31,-278.96 1010.89,-273.71"/>
+<polygon fill="#000000" stroke="#000000" points="1011.7,-277.13 1020.99,-272.04 1010.55,-270.22 1011.7,-277.13"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
+<g id="call~~graph~~CallGraph_edge500" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M879.91,-289.95C902.11,-282.62 930.11,-272.47 954,-261 970.9,-252.88 972.55,-245.86 990,-239 1011.51,-230.55 1036.92,-225.33 1057.19,-222.21"/>
+<polygon fill="#000000" stroke="#000000" points="1057.86,-225.65 1067.27,-220.76 1056.87,-218.72 1057.86,-225.65"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+<g id="call~~graph~~CallGraph_edge499" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M897.76,-289.96C917.19,-283.75 938.01,-274.54 954,-261 978.91,-239.91 963.62,-216.21 990,-197 1009.36,-182.9 1035.91,-177.73 1057.27,-176.03"/>
+<polygon fill="#000000" stroke="#000000" points="1057.51,-179.53 1067.29,-175.46 1057.11,-172.54 1057.51,-179.53"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge504" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M856.98,-314.11C883.03,-334.34 932.91,-377.78 954,-428 1004.16,-547.48 920.67,-900.53 990,-1010 1005.17,-1033.96 1034.14,-1048.66 1057.58,-1057.12"/>
+<polygon fill="#000000" stroke="#000000" points="1056.64,-1060.5 1067.23,-1060.37 1058.88,-1053.86 1056.64,-1060.5"/>
+</g>
+<!-- drift_all -->
+<g id="call~~graph~~CallGraph_node751" class="node">
+<title>drift_all</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-566 1067.5,-566 1067.5,-542 1121.5,-542 1121.5,-566"/>
+<text text-anchor="middle" x="1094.5" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
+</g>
+<!-- proc~helio_drift_body&#45;&gt;drift_all -->
+<g id="call~~graph~~CallGraph_edge505" class="edge">
+<title>proc~helio_drift_body&#45;&gt;drift_all</title>
+<path fill="none" stroke="#000000" d="M883.7,-554C932.67,-554 1011.62,-554 1057.43,-554"/>
+<polygon fill="#000000" stroke="#000000" points="1057.5,-557.5 1067.5,-554 1057.5,-550.5 1057.5,-557.5"/>
+</g>
+<!-- interface~symba_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node522" class="node">
+<title>interface~symba_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node522"><a xlink:href=".././interface/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="625.5,-1604 523.5,-1604 523.5,-1580 625.5,-1580 625.5,-1604"/>
+<text text-anchor="middle" x="574.5" y="-1589.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_spill_pl&#45;&gt;proc~symba_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge506" 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="M625.59,-1592C668.96,-1592 731.8,-1592 777.98,-1592"/>
+<polygon fill="#000000" stroke="#000000" points="778.15,-1595.5 788.15,-1592 778.15,-1588.5 778.15,-1595.5"/>
+</g>
+<!-- interface~symba_util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node523" class="node">
+<title>interface~symba_util_spill_encounter</title>
+<g id="a_call~~graph~~CallGraph_node523"><a xlink:href=".././interface/symba_util_spill_encounter.html" xlink:title="symba_util_spill_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="645.5,-1688 503.5,-1688 503.5,-1664 645.5,-1664 645.5,-1688"/>
+<text text-anchor="middle" x="574.5" y="-1673.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter -->
+<g id="call~~graph~~CallGraph_edge507" class="edge">
+<title>interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.63,-1670.4C680.12,-1667.65 721.86,-1664.31 757.68,-1661.45"/>
+<polygon fill="#000000" stroke="#000000" points="758.42,-1664.91 768.11,-1660.62 757.86,-1657.93 758.42,-1664.91"/>
+</g>
+<!-- interface~symba_util_spill_tp -->
+<g id="call~~graph~~CallGraph_node524" class="node">
+<title>interface~symba_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node524"><a xlink:href=".././interface/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="626,-1562 523,-1562 523,-1538 626,-1538 626,-1562"/>
+<text text-anchor="middle" x="574.5" y="-1547.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="call~~graph~~CallGraph_edge508" 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="M626.21,-1550C669.51,-1550 731.88,-1550 777.82,-1550"/>
+<polygon fill="#000000" stroke="#000000" points="777.95,-1553.5 787.95,-1550 777.95,-1546.5 777.95,-1553.5"/>
+</g>
+<!-- proc~util_resize_encounter -->
+<g id="call~~graph~~CallGraph_node525" class="node">
+<title>proc~util_resize_encounter</title>
+<g id="a_call~~graph~~CallGraph_node525"><a xlink:href=".././proc/util_resize_encounter.html" xlink:title="util_resize_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="384.5,-13282 269.5,-13282 269.5,-13258 384.5,-13258 384.5,-13282"/>
+<text text-anchor="middle" x="327" y="-13267.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_encounter</text>
+</a>
+</g>
+</g>
+<!-- proc~util_get_energy_momentum_system -->
+<g id="call~~graph~~CallGraph_node526" class="node">
+<title>proc~util_get_energy_momentum_system</title>
+<g id="a_call~~graph~~CallGraph_node526"><a xlink:href=".././proc/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="420,-13324 234,-13324 234,-13300 420,-13300 420,-13324"/>
+<text text-anchor="middle" x="327" y="-13309.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
+</a>
+</g>
+</g>
+<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge509" class="edge">
+<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M363.7,-536.05C404.83,-539.57 472.83,-545.39 520.23,-549.44"/>
+<polygon fill="#000000" stroke="#000000" points="520.05,-552.94 530.31,-550.31 520.65,-545.97 520.05,-552.94"/>
+</g>
+<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge510" class="edge">
+<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M364.22,-571.9C405.35,-568.38 472.86,-562.61 520.04,-558.57"/>
+<polygon fill="#000000" stroke="#000000" points="520.42,-562.05 530.08,-557.71 519.82,-555.08 520.42,-562.05"/>
+</g>
+<!-- proc~util_resize_body -->
+<g id="call~~graph~~CallGraph_node529" class="node">
+<title>proc~util_resize_body</title>
+<g id="a_call~~graph~~CallGraph_node529"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="884.5,-6362 794.5,-6362 794.5,-6338 884.5,-6338 884.5,-6362"/>
+<text text-anchor="middle" x="839.5" y="-6347.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="call~~graph~~CallGraph_edge511" class="edge">
+<title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M884.58,-6356.11C906.12,-6360.08 932.07,-6366.36 954,-6376 999.66,-6396.06 1046.06,-6431.69 1072.17,-6453.45"/>
+<polygon fill="#000000" stroke="#000000" points="1070.01,-6456.2 1079.91,-6459.98 1074.53,-6450.86 1070.01,-6456.2"/>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge513" class="edge">
+<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M891.01,-2384.28C912.71,-2386.11 936.96,-2391.94 954,-2407 1019.66,-2465.02 1074.75,-2744.6 1089.58,-2825.83"/>
+<polygon fill="#000000" stroke="#000000" points="1086.18,-2826.71 1091.4,-2835.93 1093.07,-2825.47 1086.18,-2826.71"/>
+</g>
+<!-- ind2 -->
+<g id="call~~graph~~CallGraph_node690" class="node">
+<title>ind2</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-2440 1067.5,-2440 1067.5,-2416 1121.5,-2416 1121.5,-2440"/>
+<text text-anchor="middle" x="1094.5" y="-2425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;ind2 -->
+<g id="call~~graph~~CallGraph_edge514" class="edge">
+<title>proc~io_write_encounter&#45;&gt;ind2</title>
+<path fill="none" stroke="#000000" d="M891.09,-2394.4C940.35,-2402.58 1013.98,-2414.8 1057.54,-2422.03"/>
+<polygon fill="#000000" stroke="#000000" points="1056.97,-2425.48 1067.4,-2423.67 1058.11,-2418.58 1056.97,-2425.48"/>
+</g>
+<!-- ind1 -->
+<g id="call~~graph~~CallGraph_node759" class="node">
+<title>ind1</title>
+<polygon fill="#777777" stroke="#777777" points="1121.5,-2398 1067.5,-2398 1067.5,-2374 1121.5,-2374 1121.5,-2398"/>
+<text text-anchor="middle" x="1094.5" y="-2383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;ind1 -->
+<g id="call~~graph~~CallGraph_edge512" class="edge">
+<title>proc~io_write_encounter&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M891.09,-2386C940.25,-2386 1013.67,-2386 1057.26,-2386"/>
+<polygon fill="#000000" stroke="#000000" points="1057.4,-2389.5 1067.4,-2386 1057.4,-2382.5 1057.4,-2389.5"/>
+</g>
+<!-- proc~util_resize_tp -->
+<g id="call~~graph~~CallGraph_node532" class="node">
+<title>proc~util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node532"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-6383 289,-6383 289,-6359 365,-6359 365,-6383"/>
+<text text-anchor="middle" x="327" y="-6368.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="call~~graph~~CallGraph_edge516" class="edge">
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M365.11,-6371.49C481.98,-6373.32 841.3,-6381.13 954,-6409 993.92,-6418.87 1036.55,-6439.83 1064.03,-6454.86"/>
+<polygon fill="#000000" stroke="#000000" points="1062.65,-6458.1 1073.09,-6459.91 1066.06,-6451.98 1062.65,-6458.1"/>
+</g>
+<!-- interface~util_resize_body -->
+<g id="call~~graph~~CallGraph_node570" class="node">
+<title>interface~util_resize_body</title>
+<g id="a_call~~graph~~CallGraph_node570"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="619.5,-6362 529.5,-6362 529.5,-6338 619.5,-6338 619.5,-6362"/>
+<text text-anchor="middle" x="574.5" y="-6347.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<g id="call~~graph~~CallGraph_edge515" class="edge">
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M365.02,-6367.83C405.95,-6364.33 472.29,-6358.66 519.12,-6354.65"/>
+<polygon fill="#000000" stroke="#000000" points="519.43,-6358.14 529.1,-6353.8 518.84,-6351.16 519.43,-6358.14"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="call~~graph~~CallGraph_node731" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1787,-325 1693,-325 1693,-301 1787,-301 1787,-325"/>
+<text text-anchor="middle" x="1740" y="-310.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="call~~graph~~CallGraph_edge517" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M1648.79,-313C1660.15,-313 1671.64,-313 1682.45,-313"/>
+<polygon fill="#000000" stroke="#000000" points="1682.57,-316.5 1692.57,-313 1682.57,-309.5 1682.57,-316.5"/>
+</g>
+<!-- proc~util_resize_pl -->
+<g id="call~~graph~~CallGraph_node534" class="node">
+<title>proc~util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node534"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="364.5,-6331 289.5,-6331 289.5,-6307 364.5,-6307 364.5,-6331"/>
+<text text-anchor="middle" x="327" y="-6316.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="call~~graph~~CallGraph_edge519" class="edge">
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M364.81,-6315.97C482.36,-6306.85 847.32,-6283.03 954,-6329 984.52,-6342.15 1047.52,-6415.75 1077.27,-6451.92"/>
+<polygon fill="#000000" stroke="#000000" points="1074.71,-6454.32 1083.75,-6459.85 1080.13,-6449.89 1074.71,-6454.32"/>
+</g>
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
+<g id="call~~graph~~CallGraph_edge518" class="edge">
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M364.75,-6323.64C405.75,-6328.82 472.48,-6337.24 519.43,-6343.17"/>
+<polygon fill="#000000" stroke="#000000" points="519.07,-6346.65 529.43,-6344.43 519.94,-6339.71 519.07,-6346.65"/>
+</g>
+<!-- proc~discard_cb_tp -->
+<g id="call~~graph~~CallGraph_node539" class="node">
+<title>proc~discard_cb_tp</title>
+<g id="a_call~~graph~~CallGraph_node539"><a xlink:href=".././proc/discard_cb_tp.html" xlink:title="discard_cb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="136.5,-13366 57.5,-13366 57.5,-13342 136.5,-13342 136.5,-13366"/>
+<text text-anchor="middle" x="97" y="-13351.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_cb_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge520" class="edge">
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M895.74,-3226.66C915.98,-3224.29 937.86,-3218.34 954,-3205 1061.42,-3116.23 1086.45,-2933.78 1092,-2870.33"/>
+<polygon fill="#000000" stroke="#000000" points="1095.49,-2870.49 1092.8,-2860.24 1088.52,-2869.93 1095.49,-2870.49"/>
+</g>
+<!-- interface~lambda_obj -->
+<g id="call~~graph~~CallGraph_node543" class="node">
+<title>interface~lambda_obj</title>
+<g id="a_call~~graph~~CallGraph_node543"><a xlink:href=".././interface/lambda_obj.html" xlink:title="lambda_obj">
+<polygon fill="#a7506f" stroke="#a7506f" points="131,-10388 63,-10388 63,-10364 131,-10364 131,-10388"/>
+<text text-anchor="middle" x="97" y="-10373.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+</a>
+</g>
+</g>
+<!-- interface~lambda_obj&#45;&gt;proc~tides_derivs_init -->
+<g id="call~~graph~~CallGraph_edge521" 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,-10376C168.08,-10376 228.34,-10376 272.08,-10376"/>
+<polygon fill="#000000" stroke="#000000" points="272.26,-10379.5 282.26,-10376 272.26,-10372.5 272.26,-10379.5"/>
+</g>
+<!-- proc~whm_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge522" class="edge">
+<title>proc~whm_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M385.49,-7447C398.21,-7444.18 411.59,-7441.1 424,-7438 457.23,-7429.71 494.29,-7419.3 523.2,-7410.92"/>
+<polygon fill="#000000" stroke="#000000" points="524.44,-7414.21 533.06,-7408.05 522.48,-7407.49 524.44,-7414.21"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
+<g id="call~~graph~~CallGraph_edge523" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
+<path fill="none" stroke="#000000" d="M378.57,-6913C425.8,-6913 495.14,-6913 537.13,-6913"/>
+<polygon fill="#000000" stroke="#000000" points="537.19,-6916.5 547.19,-6913 537.19,-6909.5 537.19,-6916.5"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
+<g id="call~~graph~~CallGraph_edge526" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
+<path fill="none" stroke="#000000" d="M348.78,-6925.04C374.21,-6939.26 418.94,-6962.66 460,-6976 485.17,-6984.18 514.58,-6989.51 537.16,-6992.75"/>
+<polygon fill="#000000" stroke="#000000" points="536.94,-6996.25 547.33,-6994.14 537.89,-6989.32 536.94,-6996.25"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
+<g id="call~~graph~~CallGraph_edge525" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;xj</title>
+<path fill="none" stroke="#000000" d="M378.57,-6921.65C425.8,-6929.73 495.14,-6941.59 537.13,-6948.78"/>
+<polygon fill="#000000" stroke="#000000" points="536.74,-6952.26 547.19,-6950.5 537.92,-6945.36 536.74,-6952.26"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
+<g id="call~~graph~~CallGraph_edge528" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
+<path fill="none" stroke="#000000" d="M378.57,-6904.35C425.8,-6896.27 495.14,-6884.41 537.13,-6877.22"/>
+<polygon fill="#000000" stroke="#000000" points="537.92,-6880.64 547.19,-6875.5 536.74,-6873.74 537.92,-6880.64"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
+<g id="call~~graph~~CallGraph_edge527" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
+<path fill="none" stroke="#000000" d="M378.63,-6908.2C393.99,-6905.14 410.38,-6900.14 424,-6892 445.1,-6879.39 438.7,-6862.27 460,-6850 483.49,-6836.47 513.85,-6831.38 537.26,-6829.58"/>
+<polygon fill="#000000" stroke="#000000" points="537.7,-6833.06 547.47,-6828.97 537.28,-6826.07 537.7,-6833.06"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
+<g id="call~~graph~~CallGraph_edge524" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;vh</title>
+<path fill="none" stroke="#000000" d="M378.83,-6910.87C394.72,-6907.99 411.37,-6902.43 424,-6892 455.31,-6866.13 428.28,-6833.36 460,-6808 481.54,-6790.78 512.73,-6786 536.96,-6785.27"/>
+<polygon fill="#000000" stroke="#000000" points="537.24,-6788.77 547.21,-6785.18 537.18,-6781.77 537.24,-6788.77"/>
+</g>
+<!-- proc~discard_peri_tp -->
+<g id="call~~graph~~CallGraph_node546" class="node">
+<title>proc~discard_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node546"><a xlink:href=".././proc/discard_peri_tp.html" xlink:title="discard_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="140,-13408 54,-13408 54,-13384 140,-13384 140,-13408"/>
+<text text-anchor="middle" x="97" y="-13393.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_peri_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
+<g id="call~~graph~~CallGraph_edge531" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</title>
+<path fill="none" stroke="#000000" d="M383.62,-6834.86C397.48,-6837.97 411.85,-6842.73 424,-6850 445.1,-6862.61 438.7,-6879.73 460,-6892 483.49,-6905.53 513.85,-6910.62 537.26,-6912.42"/>
+<polygon fill="#000000" stroke="#000000" points="537.28,-6915.93 547.47,-6913.03 537.7,-6908.94 537.28,-6915.93"/>
+</g>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
+<g id="call~~graph~~CallGraph_edge530" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</title>
+<path fill="none" stroke="#000000" d="M383.71,-6838.53C430.82,-6846.59 496.94,-6857.9 537.41,-6864.82"/>
+<polygon fill="#000000" stroke="#000000" points="536.91,-6868.29 547.36,-6866.53 538.1,-6861.39 536.91,-6868.29"/>
+</g>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
+<g id="call~~graph~~CallGraph_edge529" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
+<path fill="none" stroke="#000000" d="M383.71,-6829C430.72,-6829 496.66,-6829 537.15,-6829"/>
+<polygon fill="#000000" stroke="#000000" points="537.36,-6832.5 547.36,-6829 537.36,-6825.5 537.36,-6832.5"/>
+</g>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
+<g id="call~~graph~~CallGraph_edge532" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
+<path fill="none" stroke="#000000" d="M383.71,-6819.47C430.82,-6811.41 496.94,-6800.1 537.41,-6793.18"/>
+<polygon fill="#000000" stroke="#000000" points="538.1,-6796.61 547.36,-6791.47 536.91,-6789.71 538.1,-6796.61"/>
+</g>
+<!-- proc~util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_node548" class="node">
+<title>proc~util_set_mu_pl</title>
+<g id="a_call~~graph~~CallGraph_node548"><a xlink:href=".././proc/util_set_mu_pl.html" xlink:title="util_set_mu_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-13450 286,-13450 286,-13426 368,-13426 368,-13450"/>
+<text text-anchor="middle" x="327" y="-13435.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~util_set_ir3h -->
+<g id="call~~graph~~CallGraph_node549" class="node">
+<title>proc~util_set_ir3h</title>
+<g id="a_call~~graph~~CallGraph_node549"><a xlink:href=".././proc/util_set_ir3h.html" xlink:title="util_set_ir3h">
+<polygon fill="#d9534f" stroke="#d9534f" points="362,-13492 292,-13492 292,-13468 362,-13468 362,-13492"/>
+<text text-anchor="middle" x="327" y="-13477.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge533" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M889.66,-2426.42C911.61,-2428.19 936.43,-2433.94 954,-2449 1072.21,-2550.34 1090.3,-2757.8 1093.03,-2825.85"/>
+<polygon fill="#000000" stroke="#000000" points="1089.53,-2825.99 1093.36,-2835.87 1096.53,-2825.76 1089.53,-2825.99"/>
+</g>
+<!-- proc~util_set_msys -->
+<g id="call~~graph~~CallGraph_node551" class="node">
+<title>proc~util_set_msys</title>
+<g id="a_call~~graph~~CallGraph_node551"><a xlink:href=".././proc/util_set_msys.html" xlink:title="util_set_msys">
+<polygon fill="#d9534f" stroke="#d9534f" points="365.5,-13534 288.5,-13534 288.5,-13510 365.5,-13510 365.5,-13534"/>
+<text text-anchor="middle" x="327" y="-13519.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_msys</text>
+</a>
+</g>
+</g>
+<!-- proc~tides_derivs_eval -->
+<g id="call~~graph~~CallGraph_node552" class="node">
+<title>proc~tides_derivs_eval</title>
+<g id="a_call~~graph~~CallGraph_node552"><a xlink:href=".././proc/tides_derivs_eval.html" xlink:title="tides_derivs_eval">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="144.5,-13576 49.5,-13576 49.5,-13552 144.5,-13552 144.5,-13576"/>
+<text text-anchor="middle" x="97" y="-13561.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_eval</text>
+</a>
+</g>
+</g>
+<!-- proc~util_set_mu_tp -->
+<g id="call~~graph~~CallGraph_node555" class="node">
+<title>proc~util_set_mu_tp</title>
+<g id="a_call~~graph~~CallGraph_node555"><a xlink:href=".././proc/util_set_mu_tp.html" xlink:title="util_set_mu_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-13618 286,-13618 286,-13594 368,-13594 368,-13618"/>
+<text text-anchor="middle" x="327" y="-13603.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~io_conservation_report&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge534" class="edge">
+<title>proc~io_conservation_report&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M900.66,-2727.83C918.35,-2730.94 937.4,-2735.7 954,-2743 1002.08,-2764.13 1048.97,-2804.75 1074.27,-2828.8"/>
+<polygon fill="#000000" stroke="#000000" points="1072.07,-2831.55 1081.69,-2835.98 1076.94,-2826.52 1072.07,-2831.55"/>
+</g>
+<!-- proc~discard_pl_tp -->
+<g id="call~~graph~~CallGraph_node560" class="node">
+<title>proc~discard_pl_tp</title>
+<g id="a_call~~graph~~CallGraph_node560"><a xlink:href=".././proc/discard_pl_tp.html" xlink:title="discard_pl_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="135,-13660 59,-13660 59,-13636 135,-13636 135,-13660"/>
+<text text-anchor="middle" x="97" y="-13645.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_encounter&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge535" class="edge">
+<title>proc~io_write_frame_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M908.29,-2685.4C923.95,-2688.56 940.09,-2693.45 954,-2701 1010.85,-2731.86 1057.99,-2794.21 1080.05,-2826.91"/>
+<polygon fill="#000000" stroke="#000000" points="1077.4,-2829.25 1085.84,-2835.66 1083.24,-2825.39 1077.4,-2829.25"/>
+</g>
+<!-- proc~util_set_particle_info -->
+<g id="call~~graph~~CallGraph_node564" class="node">
+<title>proc~util_set_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node564"><a xlink:href=".././proc/util_set_particle_info.html" xlink:title="util_set_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="382,-13702 272,-13702 272,-13678 382,-13678 382,-13702"/>
+<text text-anchor="middle" x="327" y="-13687.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge536" class="edge">
+<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M885.03,-2638.66C907.18,-2640.79 933.53,-2646.19 954,-2659 1020.48,-2700.58 1065.79,-2786.31 1084.23,-2826.42"/>
+<polygon fill="#000000" stroke="#000000" points="1081.15,-2828.1 1088.43,-2835.8 1087.53,-2825.24 1081.15,-2828.1"/>
+</g>
+<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge537" class="edge">
+<title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M901.01,-2597.76C919.3,-2600.67 938.59,-2606.34 954,-2617 1030.49,-2669.92 1072.24,-2779.69 1087.13,-2826.31"/>
+<polygon fill="#000000" stroke="#000000" points="1083.83,-2827.47 1090.13,-2835.99 1090.52,-2825.41 1083.83,-2827.47"/>
+</g>
+<!-- proc~symba_collision_resolve_plplenc&#45;&gt;fraggle_io_log_one_message -->
+<g id="call~~graph~~CallGraph_edge538" class="edge">
+<title>proc~symba_collision_resolve_plplenc&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M1373.02,-478.96C1413.14,-464.12 1481.42,-438.85 1525.48,-422.55"/>
+<polygon fill="#000000" stroke="#000000" points="1526.87,-425.77 1535.04,-419.01 1524.44,-419.2 1526.87,-425.77"/>
+</g>
+<!-- proc~util_set_rhill -->
+<g id="call~~graph~~CallGraph_node568" class="node">
+<title>proc~util_set_rhill</title>
+<g id="a_call~~graph~~CallGraph_node568"><a xlink:href=".././proc/util_set_rhill.html" xlink:title="util_set_rhill">
+<polygon fill="#d9534f" stroke="#d9534f" points="361.5,-13744 292.5,-13744 292.5,-13720 361.5,-13720 361.5,-13744"/>
+<text text-anchor="middle" x="327" y="-13729.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill</text>
+</a>
+</g>
+</g>
+<!-- proc~tides_spin_derivs -->
+<g id="call~~graph~~CallGraph_node569" class="node">
+<title>proc~tides_spin_derivs</title>
+<g id="a_call~~graph~~CallGraph_node569"><a xlink:href=".././proc/tides_spin_derivs.html" xlink:title="tides_spin_derivs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="144.5,-13786 49.5,-13786 49.5,-13762 144.5,-13762 144.5,-13786"/>
+<text text-anchor="middle" x="97" y="-13771.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_derivs</text>
+</a>
+</g>
+</g>
+<!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
+<g id="call~~graph~~CallGraph_edge539" class="edge">
+<title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.52,-6350C664.84,-6350 735.54,-6350 784.29,-6350"/>
+<polygon fill="#000000" stroke="#000000" points="784.34,-6353.5 794.34,-6350 784.34,-6346.5 784.34,-6353.5"/>
+</g>
+<!-- interface~util_resize_encounter -->
+<g id="call~~graph~~CallGraph_node572" class="node">
+<title>interface~util_resize_encounter</title>
+<g id="a_call~~graph~~CallGraph_node572"><a xlink:href=".././interface/util_resize_encounter.html" xlink:title="util_resize_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="154.5,-13282 39.5,-13282 39.5,-13258 154.5,-13258 154.5,-13282"/>
+<text text-anchor="middle" x="97" y="-13267.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~util_resize_encounter&#45;&gt;proc~util_resize_encounter -->
+<g id="call~~graph~~CallGraph_edge540" 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,-13270C186.33,-13270 225.98,-13270 259.17,-13270"/>
+<polygon fill="#000000" stroke="#000000" points="259.24,-13273.5 269.24,-13270 259.24,-13266.5 259.24,-13273.5"/>
+</g>
+<!-- proc~util_set_rhill_approximate -->
+<g id="call~~graph~~CallGraph_node573" class="node">
+<title>proc~util_set_rhill_approximate</title>
+<g id="a_call~~graph~~CallGraph_node573"><a xlink:href=".././proc/util_set_rhill_approximate.html" xlink:title="util_set_rhill_approximate">
+<polygon fill="#d9534f" stroke="#d9534f" points="394,-13828 260,-13828 260,-13804 394,-13804 394,-13828"/>
+<text text-anchor="middle" x="327" y="-13813.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill_approximate</text>
+</a>
+</g>
+</g>
+<!-- interface~util_resize_pl -->
+<g id="call~~graph~~CallGraph_node574" class="node">
+<title>interface~util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node574"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="134.5,-6331 59.5,-6331 59.5,-6307 134.5,-6307 134.5,-6331"/>
+<text text-anchor="middle" x="97" y="-6316.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="call~~graph~~CallGraph_edge541" 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,-6319C173.94,-6319 236.48,-6319 279.29,-6319"/>
+<polygon fill="#000000" stroke="#000000" points="279.46,-6322.5 289.46,-6319 279.46,-6315.5 279.46,-6322.5"/>
+</g>
+<!-- proc~whm_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge542" class="edge">
+<title>proc~whm_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M385.49,-7345C398.21,-7347.82 411.59,-7350.9 424,-7354 457.23,-7362.29 494.29,-7372.7 523.2,-7381.08"/>
+<polygon fill="#000000" stroke="#000000" points="522.48,-7384.51 533.06,-7383.95 524.44,-7377.79 522.48,-7384.51"/>
+</g>
+<!-- proc~io_write_hdr_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge543" class="edge">
+<title>proc~io_write_hdr_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M895.06,-2554.21C915.22,-2556.69 937.21,-2562.48 954,-2575 1040.45,-2639.45 1077.43,-2772.86 1089.11,-2825.73"/>
+<polygon fill="#000000" stroke="#000000" points="1085.73,-2826.67 1091.22,-2835.73 1092.58,-2825.22 1085.73,-2826.67"/>
+</g>
+<!-- interface~util_resize_tp -->
+<g id="call~~graph~~CallGraph_node577" class="node">
+<title>interface~util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node577"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-6383 59,-6383 59,-6359 135,-6359 135,-6383"/>
+<text text-anchor="middle" x="97" y="-6368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge544" 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,-6371C174.31,-6371 236.14,-6371 278.75,-6371"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-6374.5 288.88,-6371 278.88,-6367.5 278.88,-6374.5"/>
 </g>
-<!-- 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>
+<!-- proc~whm_gr_p4_pl&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge545" class="edge">
+<title>proc~whm_gr_p4_pl&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M368.76,-7618.63C385.88,-7614.98 405.96,-7610.5 424,-7606 457.23,-7597.71 494.29,-7587.3 523.2,-7578.92"/>
+<polygon fill="#000000" stroke="#000000" points="524.44,-7582.21 533.06,-7576.05 522.48,-7575.49 524.44,-7582.21"/>
+</g>
+<!-- interface~util_get_energy_momentum_system -->
+<g id="call~~graph~~CallGraph_node579" class="node">
+<title>interface~util_get_energy_momentum_system</title>
+<g id="a_call~~graph~~CallGraph_node579"><a xlink:href=".././interface/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="190,-13324 4,-13324 4,-13300 190,-13300 190,-13324"/>
+<text text-anchor="middle" x="97" y="-13309.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system -->
+<g id="call~~graph~~CallGraph_edge546" 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,-13312C201.15,-13312 212.51,-13312 223.71,-13312"/>
+<polygon fill="#000000" stroke="#000000" points="223.95,-13315.5 233.95,-13312 223.95,-13308.5 223.95,-13315.5"/>
 </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"/>
+<!-- interface~util_set_beg_end_pl -->
+<g id="call~~graph~~CallGraph_node580" class="node">
+<title>interface~util_set_beg_end_pl</title>
+<g id="a_call~~graph~~CallGraph_node580"><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,-13198 42.5,-13198 42.5,-13174 151.5,-13174 151.5,-13198"/>
+<text text-anchor="middle" x="97" y="-13183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_beg_end_pl</text>
+</a>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~util_set_beg_end_pl&#45;&gt;proc~util_set_beg_end_pl -->
+<g id="call~~graph~~CallGraph_edge547" 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,-13186C184.82,-13186 227.38,-13186 262.17,-13186"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-13189.5 272.22,-13186 262.22,-13182.5 262.22,-13189.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"/>
+<!-- proc~discard_pl_close -->
+<g id="call~~graph~~CallGraph_node581" class="node">
+<title>proc~discard_pl_close</title>
+<g id="a_call~~graph~~CallGraph_node581"><a xlink:href=".././proc/discard_pl_close.html" xlink:title="discard_pl_close">
+<polygon fill="#d9534f" stroke="#d9534f" points="143,-13870 51,-13870 51,-13846 143,-13846 143,-13870"/>
+<text text-anchor="middle" x="97" y="-13855.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl_close</text>
+</a>
 </g>
-<!-- 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>
+</g>
+<!-- interface~util_set_ir3h -->
+<g id="call~~graph~~CallGraph_node582" class="node">
+<title>interface~util_set_ir3h</title>
+<g id="a_call~~graph~~CallGraph_node582"><a xlink:href=".././interface/util_set_ir3h.html" xlink:title="util_set_ir3h">
+<polygon fill="#a7506f" stroke="#a7506f" points="132,-13492 62,-13492 62,-13468 132,-13468 132,-13492"/>
+<text text-anchor="middle" x="97" y="-13477.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
 </a>
 </g>
 </g>
-<!-- whm_kick_getacch_tp -->
+<!-- interface~util_set_ir3h&#45;&gt;proc~util_set_ir3h -->
+<g id="call~~graph~~CallGraph_edge548" 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,-13480C171.93,-13480 237.81,-13480 281.56,-13480"/>
+<polygon fill="#000000" stroke="#000000" points="281.63,-13483.5 291.63,-13480 281.63,-13476.5 281.63,-13483.5"/>
+</g>
+<!-- interface~util_set_msys -->
+<g id="call~~graph~~CallGraph_node583" class="node">
+<title>interface~util_set_msys</title>
+<g id="a_call~~graph~~CallGraph_node583"><a xlink:href=".././interface/util_set_msys.html" xlink:title="util_set_msys">
+<polygon fill="#a7506f" stroke="#a7506f" points="135.5,-13534 58.5,-13534 58.5,-13510 135.5,-13510 135.5,-13534"/>
+<text text-anchor="middle" x="97" y="-13519.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_msys</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_msys&#45;&gt;proc~util_set_msys -->
+<g id="call~~graph~~CallGraph_edge549" 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,-13522C174.68,-13522 235.8,-13522 278.21,-13522"/>
+<polygon fill="#000000" stroke="#000000" points="278.29,-13525.5 288.29,-13522 278.29,-13518.5 278.29,-13525.5"/>
+</g>
+<!-- interface~util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_node584" class="node">
+<title>interface~util_set_mu_pl</title>
+<g id="a_call~~graph~~CallGraph_node584"><a xlink:href=".././interface/util_set_mu_pl.html" xlink:title="util_set_mu_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-13450 56,-13450 56,-13426 138,-13426 138,-13450"/>
+<text text-anchor="middle" x="97" y="-13435.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_mu_pl&#45;&gt;proc~util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_edge550" 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,-13438C176.54,-13438 234.31,-13438 275.65,-13438"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-13441.5 285.78,-13438 275.78,-13434.5 275.78,-13441.5"/>
+</g>
+<!-- interface~util_set_mu_tp -->
+<g id="call~~graph~~CallGraph_node585" class="node">
+<title>interface~util_set_mu_tp</title>
+<g id="a_call~~graph~~CallGraph_node585"><a xlink:href=".././interface/util_set_mu_tp.html" xlink:title="util_set_mu_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-13618 56,-13618 56,-13594 138,-13594 138,-13618"/>
+<text text-anchor="middle" x="97" y="-13603.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_mu_tp&#45;&gt;proc~util_set_mu_tp -->
+<g id="call~~graph~~CallGraph_edge551" 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,-13606C176.54,-13606 234.31,-13606 275.65,-13606"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-13609.5 285.78,-13606 275.78,-13602.5 275.78,-13609.5"/>
+</g>
+<!-- interface~util_set_particle_info -->
+<g id="call~~graph~~CallGraph_node586" class="node">
+<title>interface~util_set_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node586"><a xlink:href=".././interface/util_set_particle_info.html" xlink:title="util_set_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="152,-13702 42,-13702 42,-13678 152,-13678 152,-13702"/>
+<text text-anchor="middle" x="97" y="-13687.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_particle_info&#45;&gt;proc~util_set_particle_info -->
+<g id="call~~graph~~CallGraph_edge552" class="edge">
+<title>interface~util_set_particle_info&#45;&gt;proc~util_set_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.03,-13690C184.99,-13690 227.3,-13690 261.94,-13690"/>
+<polygon fill="#000000" stroke="#000000" points="261.96,-13693.5 271.96,-13690 261.96,-13686.5 261.96,-13693.5"/>
+</g>
+<!-- interface~util_set_rhill -->
+<g id="call~~graph~~CallGraph_node588" class="node">
+<title>interface~util_set_rhill</title>
+<g id="a_call~~graph~~CallGraph_node588"><a xlink:href=".././interface/util_set_rhill.html" xlink:title="util_set_rhill">
+<polygon fill="#a7506f" stroke="#a7506f" points="131.5,-13744 62.5,-13744 62.5,-13720 131.5,-13720 131.5,-13744"/>
+<text text-anchor="middle" x="97" y="-13729.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_rhill&#45;&gt;proc~util_set_rhill -->
+<g id="call~~graph~~CallGraph_edge553" 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,-13732C171.55,-13732 238.19,-13732 282.12,-13732"/>
+<polygon fill="#000000" stroke="#000000" points="282.22,-13735.5 292.22,-13732 282.22,-13728.5 282.22,-13735.5"/>
+</g>
+<!-- proc~whm_gr_p4_tp&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge554" class="edge">
+<title>proc~whm_gr_p4_tp&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M369.23,-7509.47C386.24,-7513.1 406.12,-7517.54 424,-7522 457.23,-7530.29 494.29,-7540.7 523.2,-7549.08"/>
+<polygon fill="#000000" stroke="#000000" points="522.48,-7552.51 533.06,-7551.95 524.44,-7545.79 522.48,-7552.51"/>
+</g>
+<!-- interface~util_set_rhill_approximate -->
 <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>
+<title>interface~util_set_rhill_approximate</title>
+<g id="a_call~~graph~~CallGraph_node590"><a xlink:href=".././interface/util_set_rhill_approximate.html" xlink:title="util_set_rhill_approximate">
+<polygon fill="#a7506f" stroke="#a7506f" points="164,-13828 30,-13828 30,-13804 164,-13804 164,-13828"/>
+<text text-anchor="middle" x="97" y="-13813.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill_approximate</text>
+</a>
 </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"/>
+<!-- interface~util_set_rhill_approximate&#45;&gt;proc~util_set_rhill_approximate -->
+<g id="call~~graph~~CallGraph_edge555" 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,-13816C191.07,-13816 222.19,-13816 249.92,-13816"/>
+<polygon fill="#000000" stroke="#000000" points="249.98,-13819.5 259.98,-13816 249.98,-13812.5 249.98,-13819.5"/>
 </g>
-<!-- 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>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge -->
+<g id="call~~graph~~CallGraph_edge559" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M881.55,-252.06C911.48,-260.66 953.09,-272.2 990,-281 999.93,-283.37 1010.45,-285.7 1020.81,-287.9"/>
+<polygon fill="#000000" stroke="#000000" points="1020.18,-291.34 1030.68,-289.96 1021.61,-284.49 1020.18,-291.34"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders -->
+<g id="call~~graph~~CallGraph_edge556" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M926.51,-246.8C946.11,-248.35 967.17,-250.01 987.51,-251.62"/>
+<polygon fill="#000000" stroke="#000000" points="987.49,-255.13 997.74,-252.43 988.05,-248.15 987.49,-255.13"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
+<g id="call~~graph~~CallGraph_edge558" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M926.51,-232.52C970.97,-228.65 1022.9,-224.14 1056.9,-221.18"/>
+<polygon fill="#000000" stroke="#000000" points="1057.62,-224.63 1067.28,-220.28 1057.01,-217.66 1057.62,-224.63"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx2 -->
+<g id="call~~graph~~CallGraph_edge557" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M886.78,-227.98C907.43,-222.46 932.01,-215.66 954,-209 970.14,-204.11 973.71,-201.35 990,-197 1012.17,-191.08 1037.41,-185.93 1057.41,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="1058.14,-185.63 1067.35,-180.4 1056.88,-178.75 1058.14,-185.63"/>
+</g>
+<!-- proc~io_dump_particle_info&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge560" class="edge">
+<title>proc~io_dump_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M898.64,-2512.13C917.93,-2514.78 938.43,-2520.7 954,-2533 1051.01,-2609.61 1082.31,-2767.84 1090.76,-2825.96"/>
+<polygon fill="#000000" stroke="#000000" points="1087.3,-2826.47 1092.13,-2835.9 1094.24,-2825.52 1087.3,-2826.47"/>
+</g>
+<!-- proc~io_dump_particle_info_base&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge561" class="edge">
+<title>proc~io_dump_particle_info_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M913.11,-2472.29C927.88,-2475.66 942.41,-2481.43 954,-2491 1061.42,-2579.77 1086.45,-2762.22 1092,-2825.67"/>
+<polygon fill="#000000" stroke="#000000" points="1088.52,-2826.07 1092.8,-2835.76 1095.49,-2825.51 1088.52,-2826.07"/>
+</g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="call~~graph~~CallGraph_edge563" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M386.38,-9851.34C497.24,-9848.76 745.75,-9845.74 954,-9863 979.95,-9865.15 1008.4,-9869.14 1032.81,-9873.06"/>
+<polygon fill="#000000" stroke="#000000" points="1032.56,-9876.57 1043,-9874.74 1033.7,-9869.66 1032.56,-9876.57"/>
+</g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_edge562" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" d="M386.18,-9860.35C419.62,-9864.57 461.99,-9869.92 497.98,-9874.46"/>
+<polygon fill="#000000" stroke="#000000" points="497.59,-9877.94 507.95,-9875.72 498.46,-9871 497.59,-9877.94"/>
+</g>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="call~~graph~~CallGraph_edge565" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M386.38,-9915.78C497.23,-9918.59 745.74,-9922.09 954,-9905 979.84,-9902.88 1008.17,-9898.92 1032.51,-9895.01"/>
+<polygon fill="#000000" stroke="#000000" points="1033.37,-9898.41 1042.67,-9893.34 1032.24,-9891.5 1033.37,-9898.41"/>
+</g>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_edge564" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" d="M386.18,-9906.89C419.62,-9902.8 461.99,-9897.63 497.98,-9893.23"/>
+<polygon fill="#000000" stroke="#000000" points="498.45,-9896.7 507.95,-9892.01 497.6,-9889.75 498.45,-9896.7"/>
+</g>
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<g id="call~~graph~~CallGraph_edge567" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-11567.2C400.89,-11562.09 475.63,-11552.96 524.9,-11546.94"/>
+<polygon fill="#000000" stroke="#000000" points="525.5,-11550.39 535,-11545.7 524.65,-11543.44 525.5,-11550.39"/>
+</g>
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge566" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M359.18,-11573.51C450.99,-11580.29 728.05,-11596.18 954,-11562 990.12,-11556.54 1029.99,-11544.15 1057.82,-11534.41"/>
+<polygon fill="#000000" stroke="#000000" points="1059.25,-11537.61 1067.5,-11530.96 1056.9,-11531.02 1059.25,-11537.61"/>
+</g>
+<!-- helio_step_system -->
+<g id="call~~graph~~CallGraph_node696" class="node">
+<title>helio_step_system</title>
+<polygon fill="#777777" stroke="#777777" points="625,-5082 524,-5082 524,-5058 625,-5058 625,-5082"/>
+<text text-anchor="middle" x="574.5" y="-5067.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_edge568" class="edge">
+<title>proc~symba_step_system&#45;&gt;helio_step_system</title>
+<path fill="none" stroke="#000000" d="M382.18,-5070C421.02,-5070 473.34,-5070 513.46,-5070"/>
+<polygon fill="#000000" stroke="#000000" points="513.64,-5073.5 523.64,-5070 513.64,-5066.5 513.64,-5073.5"/>
+</g>
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
+<g id="call~~graph~~CallGraph_edge570" class="edge">
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M359.59,-11513.99C401.42,-11519.27 475.62,-11528.64 524.69,-11534.84"/>
+<polygon fill="#000000" stroke="#000000" points="524.39,-11538.33 534.75,-11536.11 525.27,-11531.38 524.39,-11538.33"/>
+</g>
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge569" class="edge">
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M359.92,-11510.46C482.94,-11512.23 926.01,-11518.59 1056.87,-11520.47"/>
+<polygon fill="#000000" stroke="#000000" points="1057.1,-11523.98 1067.15,-11520.62 1057.2,-11516.98 1057.1,-11523.98"/>
+</g>
+<!-- 3 -->
+<g id="call~~graph~~CallGraph_node758" class="node">
+<title>3</title>
+<polygon fill="#777777" stroke="#777777" points="1366.5,-6013 1312.5,-6013 1312.5,-5989 1366.5,-5989 1366.5,-6013"/>
+<text text-anchor="middle" x="1339.5" y="-5998.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_edge571" class="edge">
+<title>proc~orbel_flon&#45;&gt;3</title>
+<path fill="none" stroke="#000000" d="M1124.81,-6001C1169.38,-6001 1254.11,-6001 1302.41,-6001"/>
+<polygon fill="#000000" stroke="#000000" points="1302.42,-6004.5 1312.42,-6001 1302.42,-5997.5 1302.42,-6004.5"/>
+</g>
+<!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
+<g id="call~~graph~~CallGraph_edge572" class="edge">
+<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M1125.3,-5956.55C1166.94,-5953.12 1242.96,-5946.86 1292.07,-5942.82"/>
+<polygon fill="#000000" stroke="#000000" points="1292.44,-5946.3 1302.12,-5941.99 1291.87,-5939.33 1292.44,-5946.3"/>
+</g>
+<!-- proc~whm_drift_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge573" class="edge">
+<title>proc~whm_drift_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M876.23,-634.35C901.66,-633.88 934.64,-638.01 954,-659 1007.16,-716.64 946.72,-944.62 990,-1010 1005.66,-1033.65 1034.59,-1048.38 1057.89,-1056.92"/>
+<polygon fill="#000000" stroke="#000000" points="1056.88,-1060.28 1067.48,-1060.22 1059.16,-1053.66 1056.88,-1060.28"/>
+</g>
+<!-- proc~whm_drift_pl&#45;&gt;drift_all -->
+<g id="call~~graph~~CallGraph_edge574" class="edge">
+<title>proc~whm_drift_pl&#45;&gt;drift_all</title>
+<path fill="none" stroke="#000000" d="M876.11,-637.47C899.6,-635.72 930.3,-630.65 954,-617 975.3,-604.73 968.8,-587.45 990,-575 1010.29,-563.08 1036.24,-557.84 1057.08,-555.57"/>
+<polygon fill="#000000" stroke="#000000" points="1057.51,-559.04 1067.16,-554.65 1056.88,-552.07 1057.51,-559.04"/>
+</g>
+<!-- proc~util_spill_arr_char_string -->
+<g id="call~~graph~~CallGraph_node605" class="node">
+<title>proc~util_spill_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node605"><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,-13912 32.5,-13912 32.5,-13888 161.5,-13888 161.5,-13912"/>
+<text text-anchor="middle" x="97" y="-13897.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_char_string</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge575" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M893.65,-2300.11C914.81,-2302.09 937.9,-2308.09 954,-2323 958.85,-2327.49 1062.33,-2727.29 1087.85,-2826.1"/>
+<polygon fill="#000000" stroke="#000000" points="1084.49,-2827.1 1090.38,-2835.91 1091.27,-2825.35 1084.49,-2827.1"/>
 </g>
-<!-- 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"/>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_sort -->
+<g id="call~~graph~~CallGraph_edge576" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M893.54,-2293.2C942.66,-2285.04 1014.41,-2273.13 1057.28,-2266.01"/>
+<polygon fill="#000000" stroke="#000000" points="1057.97,-2269.45 1067.27,-2264.36 1056.83,-2262.54 1057.97,-2269.45"/>
 </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"/>
+<!-- proc~rmvs_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_node610" class="node">
+<title>proc~rmvs_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node610"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="396.5,-4452 257.5,-4452 257.5,-4428 396.5,-4428 396.5,-4452"/>
+<text text-anchor="middle" x="327" y="-4437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_edge577" class="edge">
+<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M396.71,-4445.88C437.38,-4449.36 487.94,-4453.68 524.55,-4456.81"/>
+<polygon fill="#000000" stroke="#000000" points="524.71,-4460.34 534.97,-4457.7 525.3,-4453.36 524.71,-4460.34"/>
 </g>
-<!-- proc~rmvs_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node508" class="node">
-<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>
+<!-- proc~symba_step_recur_system&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge578" class="edge">
+<title>proc~symba_step_recur_system&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M910.06,-1166.79C925.24,-1163.6 940.72,-1158.65 954,-1151 975.3,-1138.73 970.05,-1123.36 990,-1109 1010.29,-1094.4 1036.39,-1083.85 1057.3,-1076.98"/>
+<polygon fill="#000000" stroke="#000000" points="1058.61,-1080.24 1067.1,-1073.9 1056.51,-1073.56 1058.61,-1080.24"/>
+</g>
+<!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge579" class="edge">
+<title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M879.2,-11537.94C927.59,-11534.12 1009.8,-11527.62 1057.09,-11523.88"/>
+<polygon fill="#000000" stroke="#000000" points="1057.5,-11527.36 1067.19,-11523.08 1056.94,-11520.38 1057.5,-11527.36"/>
+</g>
+<!-- proc~util_spill_arr_dp -->
+<g id="call~~graph~~CallGraph_node615" class="node">
+<title>proc~util_spill_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node615"><a xlink:href=".././proc/util_spill_arr_dp.html" xlink:title="util_spill_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="142,-13954 52,-13954 52,-13930 142,-13930 142,-13954"/>
+<text text-anchor="middle" x="97" y="-13939.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_spill_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node616" class="node">
+<title>proc~util_spill_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node616"><a xlink:href=".././proc/util_spill_arr_dpvec.html" xlink:title="util_spill_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-13996 44,-13996 44,-13972 150,-13972 150,-13996"/>
+<text text-anchor="middle" x="97" y="-13981.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_DPvec</text>
+</a>
 </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>
+<!-- proc~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_node618" class="node">
+<title>proc~rmvs_chk_ind</title>
+<g id="a_call~~graph~~CallGraph_node618"><a xlink:href=".././proc/rmvs_chk_ind.html" xlink:title="rmvs_chk_ind">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="879,-4473 800,-4473 800,-4449 879,-4449 879,-4473"/>
+<text text-anchor="middle" x="839.5" y="-4458.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_chk_ind</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_setup_tp&#45;&gt;setup_tp -->
-<g id="call~~graph~~CallGraph_edge470" class="edge">
-<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"/>
+<!-- proc~lambda_eval_0 -->
+<g id="call~~graph~~CallGraph_node619" class="node">
+<title>proc~lambda_eval_0</title>
+<g id="a_call~~graph~~CallGraph_node619"><a xlink:href=".././proc/lambda_eval_0.html" xlink:title="lambda_eval_0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="139.5,-14038 54.5,-14038 54.5,-14014 139.5,-14014 139.5,-14038"/>
+<text text-anchor="middle" x="97" y="-14023.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_0</text>
+</a>
 </g>
-<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
-<g id="call~~graph~~CallGraph_edge471" class="edge">
-<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>
-<!-- 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>
+<!-- proc~lambda_eval_tvar -->
+<g id="call~~graph~~CallGraph_node621" class="node">
+<title>proc~lambda_eval_tvar</title>
+<g id="a_call~~graph~~CallGraph_node621"><a xlink:href=".././proc/lambda_eval_tvar.html" xlink:title="lambda_eval_tvar">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="145.5,-14080 48.5,-14080 48.5,-14056 145.5,-14056 145.5,-14080"/>
+<text text-anchor="middle" x="97" y="-14065.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_tvar</text>
+</a>
 </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>
-<!-- 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>
+<!-- proc~whm_kick_getacch_ah0 -->
+<g id="call~~graph~~CallGraph_node633" class="node">
+<title>proc~whm_kick_getacch_ah0</title>
+<g id="a_call~~graph~~CallGraph_node633"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="638,-7177 511,-7177 511,-7153 638,-7153 638,-7177"/>
+<text text-anchor="middle" x="574.5" y="-7162.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_ah0 -->
+<g id="call~~graph~~CallGraph_edge580" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<path fill="none" stroke="#000000" d="M385.56,-7132.85C419.89,-7138.72 463.8,-7146.23 500.54,-7152.52"/>
+<polygon fill="#000000" stroke="#000000" points="500.26,-7156.02 510.7,-7154.26 501.44,-7149.12 500.26,-7156.02"/>
+</g>
+<!-- proc~whm_kick_getacch_ah1 -->
+<g id="call~~graph~~CallGraph_node638" class="node">
+<title>proc~whm_kick_getacch_ah1</title>
+<g id="a_call~~graph~~CallGraph_node638"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
+<polygon fill="#d9534f" stroke="#d9534f" points="638,-7135 511,-7135 511,-7111 638,-7111 638,-7135"/>
+<text text-anchor="middle" x="574.5" y="-7120.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_ah1 -->
+<g id="call~~graph~~CallGraph_edge581" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
+<path fill="none" stroke="#000000" d="M385.56,-7123C419.89,-7123 463.8,-7123 500.54,-7123"/>
+<polygon fill="#000000" stroke="#000000" points="500.7,-7126.5 510.7,-7123 500.7,-7119.5 500.7,-7126.5"/>
+</g>
+<!-- proc~whm_kick_getacch_ah2 -->
+<g id="call~~graph~~CallGraph_node666" class="node">
+<title>proc~whm_kick_getacch_ah2</title>
+<g id="a_call~~graph~~CallGraph_node666"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
+<polygon fill="#d9534f" stroke="#d9534f" points="638,-7093 511,-7093 511,-7069 638,-7069 638,-7093"/>
+<text text-anchor="middle" x="574.5" y="-7078.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
+</a>
 </g>
-<!-- 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>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
+<g id="call~~graph~~CallGraph_edge582" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
+<path fill="none" stroke="#000000" d="M385.56,-7113.15C419.89,-7107.28 463.8,-7099.77 500.54,-7093.48"/>
+<polygon fill="#000000" stroke="#000000" points="501.44,-7096.88 510.7,-7091.74 500.26,-7089.98 501.44,-7096.88"/>
 </g>
-<!-- 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"/>
+<!-- proc~lambda_eval_0_err -->
+<g id="call~~graph~~CallGraph_node623" class="node">
+<title>proc~lambda_eval_0_err</title>
+<g id="a_call~~graph~~CallGraph_node623"><a xlink:href=".././proc/lambda_eval_0_err.html" xlink:title="lambda_eval_0_err">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-14122 44.5,-14122 44.5,-14098 149.5,-14098 149.5,-14122"/>
+<text text-anchor="middle" x="97" y="-14107.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_0_err</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- proc~util_spill_arr_i4b -->
+<g id="call~~graph~~CallGraph_node624" class="node">
+<title>proc~util_spill_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node624"><a xlink:href=".././proc/util_spill_arr_i4b.html" xlink:title="util_spill_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="142.5,-14164 51.5,-14164 51.5,-14140 142.5,-14140 142.5,-14164"/>
+<text text-anchor="middle" x="97" y="-14149.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_I4B</text>
+</a>
+</g>
 </g>
 <!-- interface~rmvs_chk_ind&#45;&gt;proc~rmvs_chk_ind -->
-<g id="call~~graph~~CallGraph_edge476" class="edge">
+<g id="call~~graph~~CallGraph_edge583" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.02,-4461C660.61,-4461 739.07,-4461 789.8,-4461"/>
+<polygon fill="#000000" stroke="#000000" points="789.87,-4464.5 799.87,-4461 789.87,-4457.5 789.87,-4464.5"/>
+</g>
+<!-- proc~lambda_destroy -->
+<g id="call~~graph~~CallGraph_node626" class="node">
+<title>proc~lambda_destroy</title>
+<g id="a_call~~graph~~CallGraph_node626"><a xlink:href=".././proc/lambda_destroy.html" xlink:title="lambda_destroy">
+<polygon fill="#d9534f" stroke="#d9534f" points="141.5,-14206 52.5,-14206 52.5,-14182 141.5,-14182 141.5,-14206"/>
+<text text-anchor="middle" x="97" y="-14191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_destroy</text>
+</a>
+</g>
+</g>
+<!-- proc~util_fill_arr_char_string -->
+<g id="call~~graph~~CallGraph_node627" class="node">
+<title>proc~util_fill_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node627"><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,-14248 36.5,-14248 36.5,-14224 157.5,-14224 157.5,-14248"/>
+<text text-anchor="middle" x="97" y="-14233.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_char_string</text>
+</a>
+</g>
 </g>
 <!-- interface~rmvs_encounter_check_tp -->
-<g id="call~~graph~~CallGraph_node516" class="node">
+<g id="call~~graph~~CallGraph_node628" 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>
+<g id="a_call~~graph~~CallGraph_node628"><a xlink:href=".././interface/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="166.5,-4452 27.5,-4452 27.5,-4428 166.5,-4428 166.5,-4452"/>
+<text text-anchor="middle" x="97" y="-4437.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="call~~graph~~CallGraph_edge477" class="edge">
+<g id="call~~graph~~CallGraph_edge584" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.72,-4440C192.07,-4440 220.98,-4440 247.16,-4440"/>
+<polygon fill="#000000" stroke="#000000" points="247.42,-4443.5 257.42,-4440 247.42,-4436.5 247.42,-4443.5"/>
 </g>
 <!-- interface~rmvs_discard_tp -->
-<g id="call~~graph~~CallGraph_node517" class="node">
+<g id="call~~graph~~CallGraph_node629" 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>
+<g id="a_call~~graph~~CallGraph_node629"><a xlink:href=".././interface/rmvs_discard_tp.html" xlink:title="rmvs_discard_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-9781 51.5,-9781 51.5,-9757 142.5,-9757 142.5,-9781"/>
+<text text-anchor="middle" x="97" y="-9766.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_discard_tp&#45;&gt;proc~rmvs_discard_tp -->
-<g id="call~~graph~~CallGraph_edge478" class="edge">
+<g id="call~~graph~~CallGraph_edge585" 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,-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~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>
-<!-- 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>
-<!-- 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-9769C179.26,-9769 231.61,-9769 270.99,-9769"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-9772.5 281.22,-9769 271.22,-9765.5 271.22,-9772.5"/>
 </g>
-<!-- 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>
+<!-- interface~rmvs_io_write_encounter -->
+<g id="call~~graph~~CallGraph_node630" class="node">
+<title>interface~rmvs_io_write_encounter</title>
+<g id="a_call~~graph~~CallGraph_node630"><a xlink:href=".././interface/rmvs_io_write_encounter.html" xlink:title="rmvs_io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="641,-1314 508,-1314 508,-1290 641,-1290 641,-1314"/>
+<text text-anchor="middle" x="574.5" y="-1299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- interface~rmvs_io_write_encounter&#45;&gt;proc~rmvs_io_write_encounter -->
+<g id="call~~graph~~CallGraph_edge586" class="edge">
+<title>interface~rmvs_io_write_encounter&#45;&gt;proc~rmvs_io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.19,-1301C678.06,-1300.44 724.23,-1299.74 762.64,-1299.15"/>
+<polygon fill="#000000" stroke="#000000" points="762.79,-1302.65 772.74,-1299 762.69,-1295.65 762.79,-1302.65"/>
 </g>
 <!-- interface~rmvs_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node519" class="node">
+<g id="call~~graph~~CallGraph_node631" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node631"><a xlink:href=".././interface/rmvs_kick_getacch_tp.html" xlink:title="rmvs_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-7051 38,-7051 38,-7027 156,-7027 156,-7051"/>
+<text text-anchor="middle" x="97" y="-7036.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick_getacch_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_kick_getacch_tp&#45;&gt;proc~rmvs_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge482" class="edge">
+<g id="call~~graph~~CallGraph_edge587" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-7039C187.08,-7039 225.33,-7039 257.7,-7039"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-7042.5 267.98,-7039 257.98,-7035.5 257.98,-7042.5"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge588" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1133.2,-6123C1176.98,-6123 1249.07,-6123 1295.13,-6123"/>
+<polygon fill="#000000" stroke="#000000" points="1295.4,-6126.5 1305.4,-6123 1295.4,-6119.5 1295.4,-6126.5"/>
 </g>
 <!-- interface~rmvs_setup_pl -->
-<g id="call~~graph~~CallGraph_node520" class="node">
+<g id="call~~graph~~CallGraph_node634" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node634"><a xlink:href=".././interface/rmvs_setup_pl.html" xlink:title="rmvs_setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-7933 56,-7933 56,-7909 138,-7909 138,-7933"/>
+<text text-anchor="middle" x="97" y="-7918.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_setup_pl&#45;&gt;proc~rmvs_setup_pl -->
-<g id="call~~graph~~CallGraph_edge483" class="edge">
+<g id="call~~graph~~CallGraph_edge589" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-7921C176.54,-7921 234.31,-7921 275.65,-7921"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-7924.5 285.78,-7921 275.78,-7917.5 275.78,-7924.5"/>
+</g>
+<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge590" class="edge">
+<title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1126.28,-6086.32C1169.08,-6093.72 1246.78,-6107.15 1295.36,-6115.54"/>
+<polygon fill="#000000" stroke="#000000" points="1294.81,-6119 1305.26,-6117.25 1296,-6112.1 1294.81,-6119"/>
 </g>
 <!-- interface~rmvs_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node521" class="node">
+<g id="call~~graph~~CallGraph_node636" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node636"><a xlink:href=".././interface/rmvs_setup_initialize_system.html" xlink:title="rmvs_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-8353 21.5,-8353 21.5,-8329 172.5,-8329 172.5,-8353"/>
+<text text-anchor="middle" x="97" y="-8338.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_initialize_system</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_setup_initialize_system&#45;&gt;proc~rmvs_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge484" class="edge">
+<g id="call~~graph~~CallGraph_edge591" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.66,-8341C194.5,-8341 218.55,-8341 240.99,-8341"/>
+<polygon fill="#000000" stroke="#000000" points="241.18,-8344.5 251.18,-8341 241.18,-8337.5 241.18,-8344.5"/>
+</g>
+<!-- proc~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_ah0 -->
+<g id="call~~graph~~CallGraph_edge592" class="edge">
+<title>proc~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<path fill="none" stroke="#000000" d="M386.18,-7165C420.4,-7165 463.97,-7165 500.48,-7165"/>
+<polygon fill="#000000" stroke="#000000" points="500.58,-7168.5 510.58,-7165 500.58,-7161.5 500.58,-7168.5"/>
 </g>
 <!-- interface~rmvs_setup_tp -->
-<g id="call~~graph~~CallGraph_node522" class="node">
+<g id="call~~graph~~CallGraph_node639" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node639"><a xlink:href=".././interface/rmvs_setup_tp.html" xlink:title="rmvs_setup_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-4998 55.5,-4998 55.5,-4974 138.5,-4974 138.5,-4998"/>
+<text text-anchor="middle" x="97" y="-4983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_setup_tp&#45;&gt;proc~rmvs_setup_tp -->
-<g id="call~~graph~~CallGraph_edge485" class="edge">
+<g id="call~~graph~~CallGraph_edge593" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-4986C176.9,-4986 234.01,-4986 275.12,-4986"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-4989.5 285.21,-4986 275.21,-4982.5 275.21,-4989.5"/>
+</g>
+<!-- proc~util_spill_arr_i8b -->
+<g id="call~~graph~~CallGraph_node640" class="node">
+<title>proc~util_spill_arr_i8b</title>
+<g id="a_call~~graph~~CallGraph_node640"><a xlink:href=".././proc/util_spill_arr_i8b.html" xlink:title="util_spill_arr_I8B">
+<polygon fill="#d9534f" stroke="#d9534f" points="142.5,-14290 51.5,-14290 51.5,-14266 142.5,-14266 142.5,-14290"/>
+<text text-anchor="middle" x="97" y="-14275.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_I8B</text>
+</a>
+</g>
 </g>
 <!-- interface~rmvs_util_append_pl -->
-<g id="call~~graph~~CallGraph_node524" class="node">
+<g id="call~~graph~~CallGraph_node641" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node641"><a xlink:href=".././interface/rmvs_util_append_pl.html" xlink:title="rmvs_util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="630.5,-1356 518.5,-1356 518.5,-1332 630.5,-1332 630.5,-1356"/>
+<text text-anchor="middle" x="574.5" y="-1341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_append_pl&#45;&gt;proc~rmvs_util_append_pl -->
-<g id="call~~graph~~CallGraph_edge486" class="edge">
+<g id="call~~graph~~CallGraph_edge594" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.63,-1343.16C672.19,-1342.53 729.31,-1341.66 773.16,-1340.99"/>
+<polygon fill="#000000" stroke="#000000" points="773.49,-1344.49 783.44,-1340.84 773.39,-1337.49 773.49,-1344.49"/>
 </g>
-<!-- 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>
+<!-- proc~util_fill_arr_dp -->
+<g id="call~~graph~~CallGraph_node642" class="node">
+<title>proc~util_fill_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node642"><a xlink:href=".././proc/util_fill_arr_dp.html" xlink:title="util_fill_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="138,-14332 56,-14332 56,-14308 138,-14308 138,-14332"/>
+<text text-anchor="middle" x="97" y="-14317.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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>
+<!-- proc~util_fill_arr_i4b -->
+<g id="call~~graph~~CallGraph_node643" class="node">
+<title>proc~util_fill_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node643"><a xlink:href=".././proc/util_fill_arr_i4b.html" xlink:title="util_fill_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="138.5,-14374 55.5,-14374 55.5,-14350 138.5,-14350 138.5,-14374"/>
+<text text-anchor="middle" x="97" y="-14359.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- 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~rmvs_util_append_tp -->
-<g id="call~~graph~~CallGraph_node528" class="node">
+<g id="call~~graph~~CallGraph_node644" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node644"><a xlink:href=".././interface/rmvs_util_append_tp.html" xlink:title="rmvs_util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="630.5,-1272 518.5,-1272 518.5,-1248 630.5,-1248 630.5,-1272"/>
+<text text-anchor="middle" x="574.5" y="-1257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_append_tp&#45;&gt;proc~rmvs_util_append_tp -->
-<g id="call~~graph~~CallGraph_edge490" class="edge">
+<g id="call~~graph~~CallGraph_edge595" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.63,-1259.16C672.19,-1258.53 729.31,-1257.66 773.16,-1256.99"/>
+<polygon fill="#000000" stroke="#000000" points="773.49,-1260.49 783.44,-1256.84 773.39,-1253.49 773.49,-1260.49"/>
 </g>
 <!-- interface~rmvs_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node530" class="node">
+<g id="call~~graph~~CallGraph_node645" 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>
+<g id="a_call~~graph~~CallGraph_node645"><a xlink:href=".././interface/rmvs_util_fill_pl.html" xlink:title="rmvs_util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="617,-692 532,-692 532,-668 617,-668 617,-692"/>
+<text text-anchor="middle" x="574.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_fill_pl&#45;&gt;proc~rmvs_util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge491" class="edge">
+<g id="call~~graph~~CallGraph_edge596" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.17,-680C663.01,-680 736.75,-680 786.38,-680"/>
+<polygon fill="#000000" stroke="#000000" points="786.59,-683.5 796.59,-680 786.59,-676.5 786.59,-683.5"/>
 </g>
 <!-- interface~rmvs_util_fill_tp -->
-<g id="call~~graph~~CallGraph_node531" class="node">
+<g id="call~~graph~~CallGraph_node646" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node646"><a xlink:href=".././interface/rmvs_util_fill_tp.html" xlink:title="rmvs_util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="617.5,-734 531.5,-734 531.5,-710 617.5,-710 617.5,-734"/>
+<text text-anchor="middle" x="574.5" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_fill_tp&#45;&gt;proc~rmvs_util_fill_tp -->
-<g id="call~~graph~~CallGraph_edge492" class="edge">
+<g id="call~~graph~~CallGraph_edge597" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.76,-722C663.58,-722 736.77,-722 786.18,-722"/>
+<polygon fill="#000000" stroke="#000000" points="786.35,-725.5 796.35,-722 786.35,-718.5 786.35,-725.5"/>
+</g>
+<!-- proc~util_fill_arr_logical -->
+<g id="call~~graph~~CallGraph_node647" class="node">
+<title>proc~util_fill_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node647"><a xlink:href=".././proc/util_fill_arr_logical.html" xlink:title="util_fill_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="145.5,-14416 48.5,-14416 48.5,-14392 145.5,-14392 145.5,-14416"/>
+<text text-anchor="middle" x="97" y="-14401.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_logical</text>
+</a>
+</g>
 </g>
 <!-- interface~rmvs_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node532" class="node">
+<g id="call~~graph~~CallGraph_node648" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node648"><a xlink:href=".././interface/rmvs_util_resize_pl.html" xlink:title="rmvs_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="626.5,-5250 522.5,-5250 522.5,-5226 626.5,-5226 626.5,-5250"/>
+<text text-anchor="middle" x="574.5" y="-5235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_resize_pl&#45;&gt;proc~rmvs_util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge493" class="edge">
+<g id="call~~graph~~CallGraph_edge598" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.52,-5238C669.57,-5238 731.32,-5238 777.08,-5238"/>
+<polygon fill="#000000" stroke="#000000" points="777.17,-5241.5 787.17,-5238 777.17,-5234.5 777.17,-5241.5"/>
 </g>
 <!-- interface~rmvs_util_resize_tp -->
-<g id="call~~graph~~CallGraph_node533" class="node">
+<g id="call~~graph~~CallGraph_node649" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node649"><a xlink:href=".././interface/rmvs_util_resize_tp.html" xlink:title="rmvs_util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="627,-5334 522,-5334 522,-5310 627,-5310 627,-5334"/>
+<text text-anchor="middle" x="574.5" y="-5319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_resize_tp&#45;&gt;proc~rmvs_util_resize_tp -->
-<g id="call~~graph~~CallGraph_edge494" class="edge">
+<g id="call~~graph~~CallGraph_edge599" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M627.15,-5322C670.12,-5322 731.41,-5322 776.93,-5322"/>
+<polygon fill="#000000" stroke="#000000" points="776.97,-5325.5 786.97,-5322 776.97,-5318.5 776.97,-5325.5"/>
 </g>
 <!-- interface~rmvs_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node534" class="node">
+<g id="call~~graph~~CallGraph_node651" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node651"><a xlink:href=".././interface/rmvs_util_sort_pl.html" xlink:title="rmvs_util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-10304 50,-10304 50,-10280 144,-10280 144,-10304"/>
+<text text-anchor="middle" x="97" y="-10289.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_sort_pl&#45;&gt;proc~rmvs_util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge495" class="edge">
+<g id="call~~graph~~CallGraph_edge600" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-10292C180.45,-10292 231.21,-10292 269.87,-10292"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-10295.5 279.93,-10292 269.93,-10288.5 269.93,-10295.5"/>
 </g>
 <!-- interface~rmvs_util_sort_tp -->
-<g id="call~~graph~~CallGraph_node535" class="node">
+<g id="call~~graph~~CallGraph_node652" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node652"><a xlink:href=".././interface/rmvs_util_sort_tp.html" xlink:title="rmvs_util_sort_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-5656 50,-5656 50,-5632 144,-5632 144,-5656"/>
+<text text-anchor="middle" x="97" y="-5641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_sort_tp&#45;&gt;proc~rmvs_util_sort_tp -->
-<g id="call~~graph~~CallGraph_edge496" class="edge">
+<g id="call~~graph~~CallGraph_edge601" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-5644C180.45,-5644 231.21,-5644 269.87,-5644"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-5647.5 279.93,-5644 269.93,-5640.5 269.93,-5647.5"/>
+</g>
+<!-- proc~util_fill_arr_info -->
+<g id="call~~graph~~CallGraph_node654" class="node">
+<title>proc~util_fill_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node654"><a xlink:href=".././proc/util_fill_arr_info.html" xlink:title="util_fill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="139.5,-10052 54.5,-10052 54.5,-10028 139.5,-10028 139.5,-10052"/>
+<text text-anchor="middle" x="97" y="-10037.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="call~~graph~~CallGraph_edge602" class="edge">
+<title>proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M139.55,-10040C169.73,-10040 211.46,-10040 247.8,-10040"/>
+<polygon fill="#000000" stroke="#000000" points="247.89,-10043.5 257.89,-10040 247.89,-10036.5 247.89,-10043.5"/>
 </g>
 <!-- interface~rmvs_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node536" class="node">
+<g id="call~~graph~~CallGraph_node655" 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>
+<g id="a_call~~graph~~CallGraph_node655"><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,-4032 23.5,-4032 23.5,-4008 170.5,-4008 170.5,-4032"/>
+<text text-anchor="middle" x="97" y="-4017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_sort_rearrange_pl&#45;&gt;proc~rmvs_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge497" class="edge">
+<g id="call~~graph~~CallGraph_edge603" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.77,-4020C193.8,-4020 219.43,-4020 243.12,-4020"/>
+<polygon fill="#000000" stroke="#000000" points="243.14,-4023.5 253.14,-4020 243.14,-4016.5 243.14,-4023.5"/>
 </g>
 <!-- interface~rmvs_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node537" class="node">
+<g id="call~~graph~~CallGraph_node658" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node658"><a xlink:href=".././interface/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="171,-4158 23,-4158 23,-4134 171,-4134 171,-4158"/>
+<text text-anchor="middle" x="97" y="-4143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_sort_rearrange_tp&#45;&gt;proc~rmvs_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_edge498" class="edge">
+<g id="call~~graph~~CallGraph_edge604" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171.08,-4146C193.89,-4146 219.21,-4146 242.67,-4146"/>
+<polygon fill="#000000" stroke="#000000" points="242.94,-4149.5 252.94,-4146 242.94,-4142.5 242.94,-4149.5"/>
+</g>
+<!-- proc~util_spill_arr_info -->
+<g id="call~~graph~~CallGraph_node659" class="node">
+<title>proc~util_spill_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node659"><a xlink:href=".././proc/util_spill_arr_info.html" xlink:title="util_spill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="143.5,-10010 50.5,-10010 50.5,-9986 143.5,-9986 143.5,-10010"/>
+<text text-anchor="middle" x="97" y="-9995.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="call~~graph~~CallGraph_edge605" class="edge">
+<title>proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M143.59,-10006.4C174.11,-10012.02 215,-10019.55 250.33,-10026.06"/>
+<polygon fill="#000000" stroke="#000000" points="250.15,-10029.59 260.62,-10027.96 251.42,-10022.7 250.15,-10029.59"/>
+</g>
+<!-- helio_drift_body -->
+<g id="call~~graph~~CallGraph_node762" class="node">
+<title>helio_drift_body</title>
+<polygon fill="#777777" stroke="#777777" points="618.5,-4410 530.5,-4410 530.5,-4386 618.5,-4386 618.5,-4410"/>
+<text text-anchor="middle" x="574.5" y="-4395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
+</g>
+<!-- proc~symba_drift_pl&#45;&gt;helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge606" class="edge">
+<title>proc~symba_drift_pl&#45;&gt;helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M368.26,-4398C409.75,-4398 474.62,-4398 520.3,-4398"/>
+<polygon fill="#000000" stroke="#000000" points="520.32,-4401.5 530.32,-4398 520.32,-4394.5 520.32,-4401.5"/>
 </g>
 <!-- interface~rmvs_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node538" class="node">
+<g id="call~~graph~~CallGraph_node661" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node661"><a xlink:href=".././interface/rmvs_util_spill_pl.html" xlink:title="rmvs_util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="621.5,-1436 527.5,-1436 527.5,-1412 621.5,-1412 621.5,-1436"/>
+<text text-anchor="middle" x="574.5" y="-1421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_spill_pl&#45;&gt;proc~rmvs_util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge499" class="edge">
+<g id="call~~graph~~CallGraph_edge607" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.61,-1424C666.35,-1424 734.33,-1424 782.24,-1424"/>
+<polygon fill="#000000" stroke="#000000" points="782.44,-1427.5 792.44,-1424 782.44,-1420.5 782.44,-1427.5"/>
+</g>
+<!-- setup_construct_system -->
+<g id="call~~graph~~CallGraph_node700" class="node">
+<title>setup_construct_system</title>
+<polygon fill="#777777" stroke="#777777" points="1632.5,-86 1504.5,-86 1504.5,-62 1632.5,-62 1632.5,-86"/>
+<text text-anchor="middle" x="1568.5" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system -->
+<g id="call~~graph~~CallGraph_edge608" class="edge">
+<title>proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system</title>
+<path fill="none" stroke="#000000" d="M1405.93,-24.03C1418.62,-26.72 1431.78,-29.74 1444,-33 1471.32,-40.28 1501.43,-50.24 1525.09,-58.52"/>
+<polygon fill="#000000" stroke="#000000" points="1524.21,-61.92 1534.8,-61.95 1526.54,-55.32 1524.21,-61.92"/>
 </g>
 <!-- interface~rmvs_util_spill_tp -->
-<g id="call~~graph~~CallGraph_node539" class="node">
+<g id="call~~graph~~CallGraph_node663" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node663"><a xlink:href=".././interface/rmvs_util_spill_tp.html" xlink:title="rmvs_util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="621.5,-1478 527.5,-1478 527.5,-1454 621.5,-1454 621.5,-1478"/>
+<text text-anchor="middle" x="574.5" y="-1463.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_util_spill_tp&#45;&gt;proc~rmvs_util_spill_tp -->
-<g id="call~~graph~~CallGraph_edge500" class="edge">
+<g id="call~~graph~~CallGraph_edge609" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.61,-1466C666.35,-1466 734.33,-1466 782.24,-1466"/>
+<polygon fill="#000000" stroke="#000000" points="782.44,-1469.5 792.44,-1466 782.44,-1462.5 782.44,-1469.5"/>
 </g>
 <!-- interface~rmvs_step_system -->
-<g id="call~~graph~~CallGraph_node540" class="node">
+<g id="call~~graph~~CallGraph_node664" class="node">
 <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>
+<g id="a_call~~graph~~CallGraph_node664"><a xlink:href=".././interface/rmvs_step_system.html" xlink:title="rmvs_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-1230 46,-1230 46,-1206 148,-1206 148,-1230"/>
+<text text-anchor="middle" x="97" y="-1215.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="call~~graph~~CallGraph_edge501" class="edge">
+<g id="call~~graph~~CallGraph_edge610" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.04,-1218C182.66,-1218 228.93,-1218 265.61,-1218"/>
+<polygon fill="#000000" stroke="#000000" points="265.69,-1221.5 275.69,-1218 265.69,-1214.5 265.69,-1221.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"/>
+<!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_edge611" class="edge">
+<title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M875.15,-12147C922.93,-12147 1008.66,-12147 1057.27,-12147"/>
+<polygon fill="#000000" stroke="#000000" points="1057.34,-12150.5 1067.34,-12147 1057.34,-12143.5 1057.34,-12150.5"/>
 </g>
-<!-- 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"/>
+<!-- proc~symba_drift_tp&#45;&gt;helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge612" class="edge">
+<title>proc~symba_drift_tp&#45;&gt;helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M368.54,-4362.94C410.07,-4370.04 474.83,-4381.12 520.42,-4388.92"/>
+<polygon fill="#000000" stroke="#000000" points="519.97,-4392.39 530.42,-4390.63 521.15,-4385.49 519.97,-4392.39"/>
 </g>
-<!-- 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>
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_edge613" class="edge">
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M355.22,-12178.86C442.47,-12181.33 723,-12187.15 954,-12168 989.28,-12165.08 1029.19,-12158.76 1057.25,-12153.81"/>
+<polygon fill="#000000" stroke="#000000" points="1058.17,-12157.21 1067.4,-12152 1056.94,-12150.32 1058.17,-12157.21"/>
 </g>
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<g id="call~~graph~~CallGraph_edge614" class="edge">
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M355.21,-12174.56C397.14,-12169.27 477.99,-12159.06 528.66,-12152.66"/>
+<polygon fill="#000000" stroke="#000000" points="529.2,-12156.12 538.68,-12151.4 528.32,-12149.18 529.2,-12156.12"/>
 </g>
-<!-- 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"/>
+<!-- io_param_writer -->
+<g id="call~~graph~~CallGraph_node728" class="node">
+<title>io_param_writer</title>
+<polygon fill="#777777" stroke="#777777" points="619.5,-4578 529.5,-4578 529.5,-4554 619.5,-4554 619.5,-4578"/>
+<text text-anchor="middle" x="574.5" y="-4563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
 </g>
-<!-- interface~symba_encounter_check_pltpenc -->
-<g id="call~~graph~~CallGraph_node546" class="node">
-<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>
+<!-- proc~symba_io_param_writer&#45;&gt;io_param_writer -->
+<g id="call~~graph~~CallGraph_edge615" class="edge">
+<title>proc~symba_io_param_writer&#45;&gt;io_param_writer</title>
+<path fill="none" stroke="#000000" d="M390.59,-4566C430.19,-4566 480.9,-4566 518.87,-4566"/>
+<polygon fill="#000000" stroke="#000000" points="519.23,-4569.5 529.23,-4566 519.23,-4562.5 519.23,-4569.5"/>
+</g>
+<!-- proc~util_spill_arr_logical -->
+<g id="call~~graph~~CallGraph_node670" class="node">
+<title>proc~util_spill_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node670"><a xlink:href=".././proc/util_spill_arr_logical.html" xlink:title="util_spill_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-14458 44,-14458 44,-14434 150,-14434 150,-14458"/>
+<text text-anchor="middle" x="97" y="-14443.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_logical</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system -->
+<g id="call~~graph~~CallGraph_edge616" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" d="M932.2,-54C949.34,-54 967.4,-54 984.99,-54"/>
+<polygon fill="#000000" stroke="#000000" points="985.29,-57.5 995.29,-54 985.29,-50.5 985.29,-57.5"/>
 </g>
-<!-- interface~symba_encounter_check_tp -->
-<g id="call~~graph~~CallGraph_node547" class="node">
-<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>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system -->
+<g id="call~~graph~~CallGraph_edge618" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" d="M913,-41.96C943.57,-36.89 979.31,-30.96 1010.89,-25.71"/>
+<polygon fill="#000000" stroke="#000000" points="1011.7,-29.13 1020.99,-24.04 1010.55,-22.22 1011.7,-29.13"/>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge617" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M885.29,-66.08C910,-75.24 938.7,-90.53 954,-115 1059.55,-283.76 885.32,-840.7 990,-1010 1004.92,-1034.12 1033.91,-1048.81 1057.42,-1057.23"/>
+<polygon fill="#000000" stroke="#000000" points="1056.51,-1060.61 1067.1,-1060.46 1058.73,-1053.97 1056.51,-1060.61"/>
+</g>
+<!-- proc~xv2el -->
+<g id="call~~graph~~CallGraph_node674" class="node">
+<title>proc~xv2el</title>
+<g id="a_call~~graph~~CallGraph_node674"><a xlink:href=".././proc/xv2el.html" xlink:title="xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="124,-14500 70,-14500 70,-14476 124,-14476 124,-14500"/>
+<text text-anchor="middle" x="97" y="-14485.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xv2el</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~check -->
+<g id="call~~graph~~CallGraph_node675" class="node">
+<title>proc~check</title>
+<g id="a_call~~graph~~CallGraph_node675"><a xlink:href=".././proc/check.html" xlink:title="check">
+<polygon fill="#d9534f" stroke="#d9534f" points="866.5,-2356 812.5,-2356 812.5,-2332 866.5,-2332 866.5,-2356"/>
+<text text-anchor="middle" x="839.5" y="-2341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">check</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- proc~check&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge620" class="edge">
+<title>proc~check&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M866.87,-2341.54C892.33,-2340.68 930.39,-2343.6 954,-2365 971.96,-2381.28 1063.84,-2733.18 1087.79,-2825.82"/>
+<polygon fill="#000000" stroke="#000000" points="1084.41,-2826.76 1090.3,-2835.57 1091.19,-2825.01 1084.41,-2826.76"/>
 </g>
-<!-- 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"/>
+<!-- nf90_strerror -->
+<g id="call~~graph~~CallGraph_node736" class="node">
+<title>nf90_strerror</title>
+<polygon fill="#777777" stroke="#777777" points="1132,-2356 1057,-2356 1057,-2332 1132,-2332 1132,-2356"/>
+<text text-anchor="middle" x="1094.5" y="-2341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_strerror</text>
 </g>
-<!-- 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"/>
+<!-- proc~check&#45;&gt;nf90_strerror -->
+<g id="call~~graph~~CallGraph_edge619" class="edge">
+<title>proc~check&#45;&gt;nf90_strerror</title>
+<path fill="none" stroke="#000000" d="M866.62,-2344C909.11,-2344 993.78,-2344 1046.81,-2344"/>
+<polygon fill="#000000" stroke="#000000" points="1046.97,-2347.5 1056.97,-2344 1046.97,-2340.5 1046.97,-2347.5"/>
 </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"/>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_edge621" class="edge">
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M355.52,-12116.07C443.12,-12113.41 723.26,-12107.06 954,-12126 989.28,-12128.9 1029.19,-12135.22 1057.26,-12140.17"/>
+<polygon fill="#000000" stroke="#000000" points="1056.94,-12143.67 1067.4,-12141.99 1058.17,-12136.78 1056.94,-12143.67"/>
 </g>
-<!-- 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"/>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<g id="call~~graph~~CallGraph_edge622" class="edge">
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M355.68,-12120.38C397.8,-12125.53 478.39,-12135.38 528.85,-12141.54"/>
+<polygon fill="#000000" stroke="#000000" points="528.48,-12145.02 538.83,-12142.76 529.33,-12138.08 528.48,-12145.02"/>
 </g>
-<!-- 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>
+<!-- proc~symba_io_write_discard&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge623" class="edge">
+<title>proc~symba_io_write_discard&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M903.2,-1119.67C919.8,-1116.59 937.64,-1112.96 954,-1109 989.58,-1100.38 1029.51,-1088.08 1057.51,-1079.02"/>
+<polygon fill="#000000" stroke="#000000" points="1058.83,-1082.27 1067.25,-1075.84 1056.66,-1075.62 1058.83,-1082.27"/>
+</g>
+<!-- proc~util_spill_encounter&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge624" class="edge">
+<title>proc~util_spill_encounter&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M891.67,-11472.56C911.19,-11477.02 933.64,-11482.19 954,-11487 989.22,-11495.33 1029.35,-11505.14 1057.5,-11512.08"/>
+<polygon fill="#000000" stroke="#000000" points="1056.75,-11515.5 1067.3,-11514.5 1058.43,-11508.71 1056.75,-11515.5"/>
+</g>
+<!-- proc~util_resize_arr_char_string -->
+<g id="call~~graph~~CallGraph_node680" class="node">
+<title>proc~util_resize_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node680"><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,-14542 27.5,-14542 27.5,-14518 166.5,-14518 166.5,-14542"/>
+<text text-anchor="middle" x="97" y="-14527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_char_string</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~util_resize_arr_dp -->
+<g id="call~~graph~~CallGraph_node681" class="node">
+<title>proc~util_resize_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node681"><a xlink:href=".././proc/util_resize_arr_dp.html" xlink:title="util_resize_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="147,-14584 47,-14584 47,-14560 147,-14560 147,-14584"/>
+<text text-anchor="middle" x="97" y="-14569.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_DP</text>
+</a>
 </g>
-<!-- program~swiftest_driver -->
-<g id="call~~graph~~CallGraph_node553" class="node">
-<title>program~swiftest_driver</title>
-<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>
+</g>
+<!-- proc~util_resize_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node682" class="node">
+<title>proc~util_resize_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node682"><a xlink:href=".././proc/util_resize_arr_dpvec.html" xlink:title="util_resize_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="155.5,-14626 38.5,-14626 38.5,-14602 155.5,-14602 155.5,-14626"/>
+<text text-anchor="middle" x="97" y="-14611.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_DPvec</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge515" class="edge">
-<title>program~swiftest_driver&#45;&gt;util_exit</title>
-<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"/>
+<!-- program~swiftest_driver -->
+<g id="call~~graph~~CallGraph_node683" class="node">
+<title>program~swiftest_driver</title>
+<g id="a_call~~graph~~CallGraph_node683"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="880,-148 799,-148 799,-124 880,-124 880,-148"/>
+<text text-anchor="middle" x="839.5" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+</a>
 </g>
-<!-- setup_construct_system -->
-<g id="call~~graph~~CallGraph_node581" class="node">
-<title>setup_construct_system</title>
-<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_edge514" class="edge">
+<g id="call~~graph~~CallGraph_edge625" class="edge">
 <title>program~swiftest_driver&#45;&gt;setup_construct_system</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M880.08,-134.72C946.21,-132.4 1083.33,-126.8 1199,-117 1301.67,-108.3 1419.92,-93.68 1494.19,-83.94"/>
+<polygon fill="#000000" stroke="#000000" points="1494.92,-87.37 1504.37,-82.6 1494,-80.43 1494.92,-87.37"/>
 </g>
 <!-- io_get_args -->
-<g id="call~~graph~~CallGraph_node608" class="node">
+<g id="call~~graph~~CallGraph_node716" class="node">
 <title>io_get_args</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="1129,-108 1060,-108 1060,-84 1129,-84 1129,-108"/>
+<text text-anchor="middle" x="1094.5" 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="call~~graph~~CallGraph_edge516" class="edge">
+<g id="call~~graph~~CallGraph_edge626" class="edge">
 <title>program~swiftest_driver&#45;&gt;io_get_args</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M880.03,-129.75C926.12,-122.46 1002.08,-110.45 1049.86,-102.9"/>
+<polygon fill="#000000" stroke="#000000" points="1050.57,-106.33 1059.9,-101.31 1049.48,-99.42 1050.57,-106.33"/>
+</g>
+<!-- program~swiftest_driver&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge627" class="edge">
+<title>program~swiftest_driver&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M880.24,-135.71C905.5,-137.84 936.61,-145.2 954,-167 1012.47,-240.29 940.59,-930.32 990,-1010 1004.94,-1034.1 1033.93,-1048.8 1057.44,-1057.21"/>
+<polygon fill="#000000" stroke="#000000" points="1056.53,-1060.6 1067.12,-1060.45 1058.74,-1053.96 1056.53,-1060.6"/>
 </g>
 </g>
 </svg>
diff --git a/docs/lists/types.html b/docs/lists/types.html
index a66494360..b85f45276 100644
--- a/docs/lists/types.html
+++ b/docs/lists/types.html
@@ -124,6 +124,10 @@ <h1>Derived Types</h1>
 			 <tr><th>Type</th><th>Location</th><th>Extends</th><th>Description</th></tr>
 			 </thead><tbody>
 			 
+			   <tr><td><a href='../type/fraggle_colliders.html'>fraggle_colliders</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td>None</td><td><p>Class definition for the variables that describe the bodies involved in the collision</p></td></tr>
+			 
+			   <tr><td><a href='../type/fraggle_fragments.html'>fraggle_fragments</a></td><td><a href='../module/fraggle_classes.html'>fraggle_classes</a></td><td><a href='../type/swiftest_pl.html'>swiftest_pl</a></td><td><p>Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates</p></td></tr>
+			 
 			   <tr><td><a href='../type/helio_cb.html'>helio_cb</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td><a href='../type/swiftest_cb.html'>swiftest_cb</a></td><td><p>Helio central body particle class</p></td></tr>
 			 
 			   <tr><td><a href='../type/helio_nbody_system.html'>helio_nbody_system</a></td><td><a href='../module/helio_classes.html'>helio_classes</a></td><td><a href='../type/whm_nbody_system.html'>whm_nbody_system</a></td><td></td></tr>
@@ -138,6 +142,8 @@ <h1>Derived Types</h1>
 			 
 			   <tr><td><a href='../type/lambda_obj_tvar.html'>lambda_obj_tvar</a></td><td><a href='../module/lambda_function.html'>lambda_function</a></td><td><a href='../type/lambda_obj.html'>lambda_obj</a></td><td><p>Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers</p></td></tr>
 			 
+			   <tr><td><a href='../type/netcdf_parameters.html'>netcdf_parameters</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>None</td><td></td></tr>
+			 
 			   <tr><td><a href='../type/rmvs_cb.html'>rmvs_cb</a></td><td><a href='../module/rmvs_classes.html'>rmvs_classes</a></td><td><a href='../type/whm_cb.html'>whm_cb</a></td><td><p>RMVS central body particle class </p></td></tr>
 			 
 			   <tr><td><a href='../type/rmvs_interp.html'>rmvs_interp</a></td><td><a href='../module/rmvs_classes.html'>rmvs_classes</a></td><td>None</td><td></td></tr>
@@ -149,7 +155,7 @@ <h1>Derived Types</h1>
 			   <tr><td><a href='../type/rmvs_tp.html'>rmvs_tp</a></td><td><a href='../module/rmvs_classes.html'>rmvs_classes</a></td><td><a href='../type/whm_tp.html'>whm_tp</a></td><td><p>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</p></td></tr>
 			 
-			   <tr><td><a href='../type/swiftest_base.html'>swiftest_base</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>None</td><td><p>An superclass for a generic Swiftest object
+			   <tr><td><a href='../type/swiftest_base.html'>swiftest_base</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>None</td><td><p>An abstract superclass for a generic Swiftest object
  The minimal methods that all systems must have</p></td></tr>
 			 
 			   <tr><td><a href='../type/swiftest_body.html'>swiftest_body</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td><a href='../type/swiftest_base.html'>swiftest_base</a></td><td><p>An abstract class for a generic collection of Swiftest bodies
@@ -159,12 +165,15 @@ <h1>Derived Types</h1>
 			 
 			   <tr><td><a href='../type/swiftest_encounter.html'>swiftest_encounter</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>None</td><td></td></tr>
 			 
-			   <tr><td><a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td><a href='../type/swiftest_base.html'>swiftest_base</a></td><td><p>An abstract class for a basic Swiftest nbody system 
+			   <tr><td><a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>None</td><td><p>An abstract class for a basic Swiftest nbody system 
   This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb)</p></td></tr>
 			 
 			   <tr><td><a href='../type/swiftest_parameters.html'>swiftest_parameters</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>None</td><td><p>User defined parameters that are read in from the parameters input file. 
     Each paramter is initialized to a default values. </p></td></tr>
 			 
+			   <tr><td><a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a></td><td><a href='../module/swiftest_classes.html'>swiftest_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/swiftest_pl.html'>swiftest_pl</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td><a href='../type/swiftest_body.html'>swiftest_body</a></td><td><p>An abstract class for a generic collection of Swiftest massive bodies
  Superclass that defines the generic elements of a Swiftest particle </p></td></tr>
 			 
@@ -173,6 +182,8 @@ <h1>Derived Types</h1>
 			 
 			   <tr><td><a href='../type/symba_cb.html'>symba_cb</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/helio_cb.html'>helio_cb</a></td><td><p>SyMBA central body particle class</p></td></tr>
 			 
+			   <tr><td><a href='../type/symba_encounter.html'>symba_encounter</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/swiftest_encounter.html'>swiftest_encounter</a></td><td><p>SyMBA class for tracking close encounters in a step</p></td></tr>
+			 
 			   <tr><td><a href='../type/symba_kinship.html'>symba_kinship</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>None</td><td><p>Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step.</p></td></tr>
 			 
 			   <tr><td><a href='../type/symba_merger.html'>symba_merger</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/symba_pl.html'>symba_pl</a></td><td></td></tr>
@@ -181,19 +192,18 @@ <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>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>
 			 
-			   <tr><td><a href='../type/symba_plplenc.html'>symba_plplenc</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/symba_pltpenc.html'>symba_pltpenc</a></td><td><p>SyMBA class for tracking pl-pl close encounters in a step</p></td></tr>
+			   <tr><td><a href='../type/symba_plplenc.html'>symba_plplenc</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/symba_encounter.html'>symba_encounter</a></td><td><p>SyMBA class for tracking pl-pl close encounters in a step</p></td></tr>
 			 
-			   <tr><td><a href='../type/symba_pltpenc.html'>symba_pltpenc</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/swiftest_encounter.html'>swiftest_encounter</a></td><td><p>SyMBA class for tracking pl-tp close encounters in a step</p></td></tr>
+			   <tr><td><a href='../type/symba_pltpenc.html'>symba_pltpenc</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/symba_encounter.html'>symba_encounter</a></td><td><p>SyMBA class for tracking pl-tp close encounters in a step</p></td></tr>
 			 
 			   <tr><td><a href='../type/symba_tp.html'>symba_tp</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/helio_tp.html'>helio_tp</a></td><td><p>SyMBA test particle class</p></td></tr>
 			 
 			   <tr><td><a href='../type/tides_derivs_func.html'>tides_derivs_func</a></td><td><a href='../module/s_tides_step_spin.html'>s_tides_step_spin</a></td><td>lambda_obj_tvar</td><td><p>Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers</p></td></tr>
 			 
+			   <tr><td><a href='../type/walltimer.html'>walltimer</a></td><td><a href='../module/walltime_classes.html'>walltime_classes</a></td><td>None</td><td></td></tr>
+			 
 			   <tr><td><a href='../type/whm_cb.html'>whm_cb</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td><a href='../type/swiftest_cb.html'>swiftest_cb</a></td><td><p>Swiftest central body particle class</p></td></tr>
 			 
 			   <tr><td><a href='../type/whm_nbody_system.html'>whm_nbody_system</a></td><td><a href='../module/whm_classes.html'>whm_classes</a></td><td><a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a></td><td><p>An abstract class for the WHM integrator nbody system </p></td></tr>
@@ -210,597 +220,646 @@ <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="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)">
+<svg id="typegraphTypeGraph" width="855pt" height="397pt"
+ viewBox="0.00 0.00 855.00 397.38" 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 583)">
 <title>type~~graph~~TypeGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-604 1145,-604 1145,4 -4,4"/>
-<!-- type~rmvs_pl -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-583 1259,-583 1259,4 -4,4"/>
+<!-- type~walltimer -->
 <g id="type~~graph~~TypeGraph_node1" class="node">
-<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>
+<title>type~walltimer</title>
+<g id="a_type~~graph~~TypeGraph_node1"><a xlink:href=".././type/walltimer.html" xlink:title="walltimer">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1223,-24 1168,-24 1168,0 1223,0 1223,-24"/>
+<text text-anchor="middle" x="1195.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltimer</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- type~symba_parameters -->
+<g id="type~~graph~~TypeGraph_node2" class="node">
+<title>type~symba_parameters</title>
+<g id="a_type~~graph~~TypeGraph_node2"><a xlink:href=".././type/symba_parameters.html" xlink:title="symba_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1248,-66 1143,-66 1143,-42 1248,-42 1248,-66"/>
+<text text-anchor="middle" x="1195.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_parameters</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>
+<!-- type~swiftest_parameters -->
+<g id="type~~graph~~TypeGraph_node21" class="node">
+<title>type~swiftest_parameters</title>
+<g id="a_type~~graph~~TypeGraph_node21"><a xlink:href=".././type/swiftest_parameters.html" xlink:title="swiftest_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="979,-66 870,-66 870,-42 979,-42 979,-66"/>
+<text text-anchor="middle" x="924.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_parameters</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>
+<!-- type~symba_parameters&#45;&gt;type~swiftest_parameters -->
+<g id="type~~graph~~TypeGraph_edge1" class="edge">
+<title>type~symba_parameters&#45;&gt;type~swiftest_parameters</title>
+<path fill="none" stroke="#000000" d="M1142.95,-54C1099.18,-54 1036.17,-54 989.23,-54"/>
+<polygon fill="#000000" stroke="#000000" points="989.18,-50.5 979.18,-54 989.18,-57.5 989.18,-50.5"/>
 </g>
-<!-- type~rmvs_interp -->
-<g id="type~~graph~~TypeGraph_node27" class="node">
-<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>
+<!-- type~symba_cb -->
+<g id="type~~graph~~TypeGraph_node3" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~graph~~TypeGraph_node3"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="538,-495 477,-495 477,-471 538,-471 538,-495"/>
+<text text-anchor="middle" x="507.5" y="-480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
-<g id="type~~graph~~TypeGraph_edge1" class="edge">
-<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>
+<!-- type~helio_cb -->
+<g id="type~~graph~~TypeGraph_node32" class="node">
+<title>type~helio_cb</title>
+<g id="a_type~~graph~~TypeGraph_node32"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="339.5,-472 285.5,-472 285.5,-448 339.5,-448 339.5,-472"/>
+<text text-anchor="middle" x="312.5" y="-457.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
+</a>
 </g>
-<!-- type~rmvs_tp -->
-<g id="type~~graph~~TypeGraph_node2" class="node">
-<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>
+</g>
+<!-- type~symba_cb&#45;&gt;type~helio_cb -->
+<g id="type~~graph~~TypeGraph_edge2" class="edge">
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M476.77,-479.46C442.6,-475.39 386.54,-468.7 349.82,-464.33"/>
+<polygon fill="#000000" stroke="#000000" points="349.9,-460.81 339.55,-463.1 349.07,-467.76 349.9,-460.81"/>
+</g>
+<!-- type~symba_pl -->
+<g id="type~~graph~~TypeGraph_node4" class="node">
+<title>type~symba_pl</title>
+<g id="a_type~~graph~~TypeGraph_node4"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="753,-108 695,-108 695,-84 753,-84 753,-108"/>
+<text text-anchor="middle" x="724" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- type~symba_kinship -->
+<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="549,-108 466,-108 466,-84 549,-84 549,-108"/>
+<text text-anchor="middle" x="507.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
+<g id="type~~graph~~TypeGraph_edge3" class="edge">
+<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.96,-96C660.55,-96 601.56,-96 559.14,-96"/>
+<polygon fill="#000000" stroke="#000000" points="559,-92.5 549,-96 559,-99.5 559,-92.5"/>
+<text text-anchor="middle" x="619" y="-98.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
-<!-- 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>
+<!-- type~helio_pl -->
+<g id="type~~graph~~TypeGraph_node37" class="node">
+<title>type~helio_pl</title>
+<g id="a_type~~graph~~TypeGraph_node37"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="534.5,-66 480.5,-66 480.5,-42 534.5,-42 534.5,-66"/>
+<text text-anchor="middle" x="507.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
+<!-- type~symba_pl&#45;&gt;type~helio_pl -->
 <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>
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M694.96,-90.51C656.35,-82.95 586.81,-69.33 544.43,-61.04"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-57.58 534.53,-59.1 543.68,-64.45 545.02,-57.58"/>
 </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>
+<!-- type~whm_cb -->
+<g id="type~~graph~~TypeGraph_node5" class="node">
+<title>type~whm_cb</title>
+<g id="a_type~~graph~~TypeGraph_node5"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="339.5,-388 285.5,-388 285.5,-364 339.5,-364 339.5,-388"/>
+<text text-anchor="middle" x="312.5" y="-373.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</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>
+<!-- type~swiftest_cb -->
+<g id="type~~graph~~TypeGraph_node39" class="node">
+<title>type~swiftest_cb</title>
+<g id="a_type~~graph~~TypeGraph_node39"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-358 170,-358 170,-334 235,-334 235,-358"/>
+<text text-anchor="middle" x="202.5" y="-343.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</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_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>
+<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~graph~~TypeGraph_edge5" class="edge">
+<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M294.16,-363.81C284.51,-357.58 272.05,-350.4 260,-346"/>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~symba_encounter -->
 <g id="type~~graph~~TypeGraph_node6" class="node">
-<title>type~swiftest_tp</title>
-<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>
+<title>type~symba_encounter</title>
+<g id="a_type~~graph~~TypeGraph_node6"><a xlink:href=".././type/symba_encounter.html" xlink:title="symba_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="773,-192 675,-192 675,-168 773,-168 773,-192"/>
+<text text-anchor="middle" x="724" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~graph~~TypeGraph_edge7" class="edge">
-<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
-<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"/>
+<!-- type~swiftest_encounter -->
+<g id="type~~graph~~TypeGraph_node18" class="node">
+<title>type~swiftest_encounter</title>
+<g id="a_type~~graph~~TypeGraph_node18"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="558.5,-192 456.5,-192 456.5,-168 558.5,-168 558.5,-192"/>
+<text text-anchor="middle" x="507.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- type~symba_encounter&#45;&gt;type~swiftest_encounter -->
+<g id="type~~graph~~TypeGraph_edge6" class="edge">
+<title>type~symba_encounter&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M674.86,-180C643.52,-180 602.38,-180 568.86,-180"/>
+<polygon fill="#000000" stroke="#000000" points="568.71,-176.5 558.71,-180 568.71,-183.5 568.71,-176.5"/>
 </g>
-<!-- type~whm_nbody_system -->
+<!-- type~swiftest_particle_info -->
 <g id="type~~graph~~TypeGraph_node7" class="node">
-<title>type~whm_nbody_system</title>
-<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~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>
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~graph~~TypeGraph_node7"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-367 0,-367 0,-343 112,-343 112,-367"/>
+<text text-anchor="middle" x="56" y="-352.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
 </a>
 </g>
 </g>
-<!-- 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 -->
+<!-- type~rmvs_nbody_system -->
 <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>
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node8"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="980,-318 869,-318 869,-294 980,-294 980,-318"/>
+<text text-anchor="middle" x="924.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_base -->
-<g id="type~~graph~~TypeGraph_node26" class="node">
-<title>type~swiftest_base</title>
-<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>
+<!-- type~whm_nbody_system -->
+<g id="type~~graph~~TypeGraph_node22" 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="779,-318 669,-318 669,-294 779,-294 779,-318"/>
+<text text-anchor="middle" x="724" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</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"/>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge7" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M869,-306C844.27,-306 814.87,-306 789.09,-306"/>
+<polygon fill="#000000" stroke="#000000" points="789.04,-302.5 779.04,-306 789.04,-309.5 789.04,-302.5"/>
 </g>
-<!-- type~helio_pl -->
+<!-- type~symba_merger -->
 <g id="type~~graph~~TypeGraph_node9" class="node">
-<title>type~helio_pl</title>
-<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>
+<title>type~symba_merger</title>
+<g id="a_type~~graph~~TypeGraph_node9"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="967,-108 882,-108 882,-84 967,-84 967,-108"/>
+<text text-anchor="middle" x="924.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
 </a>
 </g>
 </g>
-<!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~graph~~TypeGraph_edge12" class="edge">
-<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<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"/>
+<!-- type~symba_merger&#45;&gt;type~symba_pl -->
+<g id="type~~graph~~TypeGraph_edge8" class="edge">
+<title>type~symba_merger&#45;&gt;type~symba_pl</title>
+<path fill="none" stroke="#000000" d="M881.89,-96C846.86,-96 797.17,-96 763.15,-96"/>
+<polygon fill="#000000" stroke="#000000" points="763.13,-92.5 753.13,-96 763.13,-99.5 763.13,-92.5"/>
 </g>
-<!-- type~lambda_obj -->
+<!-- type~rmvs_interp -->
 <g id="type~~graph~~TypeGraph_node10" class="node">
-<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>
+<title>type~rmvs_interp</title>
+<g id="a_type~~graph~~TypeGraph_node10"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="347,-430 278,-430 278,-406 347,-406 347,-430"/>
+<text text-anchor="middle" x="312.5" y="-415.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
 </a>
 </g>
 </g>
-<!-- type~lambda_obj_err -->
-<g id="type~~graph~~TypeGraph_node11" class="node">
-<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>
+<!-- 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="241,-300 164,-300 164,-276 241,-276 241,-300"/>
+<text text-anchor="middle" x="202.5" y="-285.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~graph~~TypeGraph_edge9" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.33,-300.13C152.11,-310.9 117.99,-326.72 92.35,-338.61"/>
+<polygon fill="#000000" stroke="#000000" points="90.57,-335.58 82.97,-342.96 93.52,-341.93 90.57,-335.58"/>
+<text text-anchor="middle" x="138" y="-321.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~swiftest_base -->
+<g id="type~~graph~~TypeGraph_node25" class="node">
+<title>type~swiftest_base</title>
+<g id="a_type~~graph~~TypeGraph_node25"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-313 17.5,-313 17.5,-289 94.5,-289 94.5,-313"/>
+<text text-anchor="middle" x="56" y="-298.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~~graph~~TypeGraph_edge14" class="edge">
+<g id="type~~graph~~TypeGraph_edge10" 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"/>
+<path fill="none" stroke="#000000" d="M163.98,-288.91C153.01,-289.35 141.01,-290.02 130,-291 121.85,-291.73 113.21,-292.72 104.84,-293.79"/>
+<polygon fill="#000000" stroke="#000000" points="104.26,-290.34 94.81,-295.13 105.19,-297.27 104.26,-290.34"/>
 </g>
-<!-- type~swiftest_encounter -->
+<!-- type~fraggle_fragments -->
 <g id="type~~graph~~TypeGraph_node13" class="node">
-<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>
+<title>type~fraggle_fragments</title>
+<g id="a_type~~graph~~TypeGraph_node13"><a xlink:href=".././type/fraggle_fragments.html" xlink:title="fraggle_fragments">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="557.5,-150 457.5,-150 457.5,-126 557.5,-126 557.5,-150"/>
+<text text-anchor="middle" x="507.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_fragments</text>
 </a>
 </g>
 </g>
-<!-- type~symba_plplenc -->
+<!-- type~swiftest_pl -->
+<g id="type~~graph~~TypeGraph_node33" class="node">
+<title>type~swiftest_pl</title>
+<g id="a_type~~graph~~TypeGraph_node33"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="343.5,-258 281.5,-258 281.5,-234 343.5,-234 343.5,-258"/>
+<text text-anchor="middle" x="312.5" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+</a>
+</g>
+</g>
+<!-- type~fraggle_fragments&#45;&gt;type~swiftest_pl -->
+<g id="type~~graph~~TypeGraph_edge11" class="edge">
+<title>type~fraggle_fragments&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M462.43,-150.01C456.65,-152.51 451,-155.48 446,-159 417.94,-178.71 428.03,-203.39 397.5,-219"/>
+</g>
+<!-- type~symba_tp -->
 <g id="type~~graph~~TypeGraph_node14" class="node">
-<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>
+<title>type~symba_tp</title>
+<g id="a_type~~graph~~TypeGraph_node14"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="753.5,-272 694.5,-272 694.5,-248 753.5,-248 753.5,-272"/>
+<text text-anchor="middle" x="724" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- type~helio_tp -->
+<g id="type~~graph~~TypeGraph_node38" class="node">
+<title>type~helio_tp</title>
+<g id="a_type~~graph~~TypeGraph_node38"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="534.5,-272 480.5,-272 480.5,-248 534.5,-248 534.5,-272"/>
+<text text-anchor="middle" x="507.5" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~symba_tp&#45;&gt;type~helio_tp -->
+<g id="type~~graph~~TypeGraph_edge12" class="edge">
+<title>type~symba_tp&#45;&gt;type~helio_tp</title>
+<path fill="none" stroke="#000000" d="M694.07,-260C655.38,-260 586.79,-260 544.72,-260"/>
+<polygon fill="#000000" stroke="#000000" points="544.62,-256.5 534.62,-260 544.62,-263.5 544.62,-256.5"/>
 </g>
-<!-- type~helio_cb -->
+<!-- type~whm_pl -->
 <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>
+<title>type~whm_pl</title>
+<g id="a_type~~graph~~TypeGraph_node15"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="851,-271 797,-271 797,-247 851,-247 851,-271"/>
+<text text-anchor="middle" x="824" y="-256.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~graph~~TypeGraph_edge13" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M800.75,-246.94C793.95,-243.8 786.34,-240.79 779,-239 696.53,-218.86 473.09,-180.35 397.5,-219"/>
 </g>
-<!-- type~symba_nbody_system -->
+<!-- type~netcdf_parameters -->
 <g id="type~~graph~~TypeGraph_node16" class="node">
-<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>
+<title>type~netcdf_parameters</title>
+<g id="a_type~~graph~~TypeGraph_node16"><a xlink:href=".././type/netcdf_parameters.html" xlink:title="netcdf_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="775.5,-66 672.5,-66 672.5,-42 775.5,-42 775.5,-66"/>
+<text text-anchor="middle" x="724" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_parameters</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- type~lambda_obj -->
+<g id="type~~graph~~TypeGraph_node17" class="node">
+<title>type~lambda_obj</title>
+<g id="a_type~~graph~~TypeGraph_node17"><a xlink:href=".././type/lambda_obj.html" xlink:title="lambda_obj">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="958.5,-495 890.5,-495 890.5,-471 958.5,-471 958.5,-495"/>
+<text text-anchor="middle" x="924.5" y="-480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+</a>
 </g>
-<!-- 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~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>
+<!-- type~lambda_obj_err -->
+<g id="type~~graph~~TypeGraph_node19" class="node">
+<title>type~lambda_obj_err</title>
+<g id="a_type~~graph~~TypeGraph_node19"><a xlink:href=".././type/lambda_obj_err.html" xlink:title="lambda_obj_err">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1239.5,-495 1151.5,-495 1151.5,-471 1239.5,-471 1239.5,-495"/>
+<text text-anchor="middle" x="1195.5" y="-480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_err</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~lambda_obj_err&#45;&gt;type~lambda_obj -->
+<g id="type~~graph~~TypeGraph_edge14" class="edge">
+<title>type~lambda_obj_err&#45;&gt;type~lambda_obj</title>
+<path fill="none" stroke="#000000" d="M1151.41,-481.34C1124.76,-480.72 1089.85,-480.66 1059,-483"/>
 </g>
-<!-- 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>
+<!-- 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="967,-192 882,-192 882,-168 967,-168 967,-192"/>
+<text text-anchor="middle" x="924.5" y="-177.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_merger -->
-<g id="type~~graph~~TypeGraph_edge17" class="edge">
-<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>
+<!-- type~symba_pltpenc&#45;&gt;type~symba_encounter -->
+<g id="type~~graph~~TypeGraph_edge15" class="edge">
+<title>type~symba_pltpenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M881.71,-178.1C864.15,-177.8 843.54,-178.08 825,-180"/>
 </g>
-<!-- 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"/>
+<!-- type~swiftest_parameters&#45;&gt;type~netcdf_parameters -->
+<g id="type~~graph~~TypeGraph_edge16" class="edge">
+<title>type~swiftest_parameters&#45;&gt;type~netcdf_parameters</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.78,-54C843.82,-54 812.55,-54 785.73,-54"/>
+<polygon fill="#000000" stroke="#000000" points="785.68,-50.5 775.68,-54 785.68,-57.5 785.68,-50.5"/>
+<text text-anchor="middle" x="824" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">nciu</text>
 </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="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"/>
+<!-- type~swiftest_nbody_system -->
+<g id="type~~graph~~TypeGraph_node34" class="node">
+<title>type~swiftest_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node34"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="569,-320 446,-320 446,-296 569,-296 569,-320"/>
+<text text-anchor="middle" x="507.5" y="-305.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+</a>
 </g>
-<!-- type~swiftest_parameters -->
-<g id="type~~graph~~TypeGraph_node19" class="node">
-<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>
+</g>
+<!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge17" class="edge">
+<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
+<path fill="none" stroke="#000000" d="M668.87,-306.5C641.67,-306.76 608.37,-307.07 579.18,-307.34"/>
+<polygon fill="#000000" stroke="#000000" points="579.01,-303.84 569.04,-307.44 579.08,-310.84 579.01,-303.84"/>
+</g>
+<!-- type~swiftest_tp -->
+<g id="type~~graph~~TypeGraph_node23" class="node">
+<title>type~swiftest_tp</title>
+<g id="a_type~~graph~~TypeGraph_node23"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="344,-300 281,-300 281,-276 344,-276 344,-300"/>
+<text text-anchor="middle" x="312.5" y="-285.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
+<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
+<g id="type~~graph~~TypeGraph_edge18" class="edge">
+<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M280.82,-286.11C273.93,-286.21 266.67,-286.73 260,-288"/>
+</g>
 <!-- type~tides_derivs_func -->
-<g id="type~~graph~~TypeGraph_node20" class="node">
+<g id="type~~graph~~TypeGraph_node24" 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>
+<g id="a_type~~graph~~TypeGraph_node24"><a xlink:href=".././type/tides_derivs_func.html" xlink:title="tides_derivs_func">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1243.5,-537 1147.5,-537 1147.5,-513 1243.5,-513 1243.5,-537"/>
+<text text-anchor="middle" x="1195.5" y="-522.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_func</text>
 </a>
 </g>
 </g>
 <!-- lambda_obj_tvar -->
-<g id="type~~graph~~TypeGraph_node36" class="node">
+<g id="type~~graph~~TypeGraph_node41" 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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="970.5,-537 878.5,-537 878.5,-513 970.5,-513 970.5,-537"/>
+<text text-anchor="middle" x="924.5" y="-522.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">
+<g id="type~~graph~~TypeGraph_edge19" 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"/>
+<path fill="none" stroke="#000000" d="M1147.34,-525C1100.91,-525 1030.04,-525 980.94,-525"/>
+<polygon fill="#000000" stroke="#000000" points="980.81,-521.5 970.81,-525 980.81,-528.5 980.81,-521.5"/>
 </g>
-<!-- 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>
+<!-- type~symba_plplenc -->
+<g id="type~~graph~~TypeGraph_node26" class="node">
+<title>type~symba_plplenc</title>
+<g id="a_type~~graph~~TypeGraph_node26"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="966.5,-150 882.5,-150 882.5,-126 966.5,-126 966.5,-150"/>
+<text text-anchor="middle" x="924.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~symba_plplenc&#45;&gt;type~symba_encounter -->
+<g id="type~~graph~~TypeGraph_edge20" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M823,-180C810.25,-181.32 796.51,-181.86 783.47,-181.97"/>
+<polygon fill="#000000" stroke="#000000" points="783.2,-178.47 773.2,-181.97 783.2,-185.47 783.2,-178.47"/>
+<path fill="none" stroke="#000000" d="M891.06,-150.03C883.76,-152.86 876.08,-155.95 869,-159 849.1,-167.57 846.55,-177.77 825,-180"/>
 </g>
-<!-- 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>
+<!-- type~rmvs_pl -->
+<g id="type~~graph~~TypeGraph_node27" class="node">
+<title>type~rmvs_pl</title>
+<g id="a_type~~graph~~TypeGraph_node27"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1222.5,-318 1168.5,-318 1168.5,-294 1222.5,-294 1222.5,-318"/>
+<text text-anchor="middle" x="1195.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge22" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1168.22,-306C1127.31,-306 1047.2,-306 990.21,-306"/>
+<polygon fill="#000000" stroke="#000000" points="990.21,-302.5 980.21,-306 990.21,-309.5 990.21,-302.5"/>
+<text text-anchor="middle" x="1058" y="-308.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
-<!-- 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>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
+<g id="type~~graph~~TypeGraph_edge21" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1181.7,-318.16C1145.01,-351.69 1035.04,-443 925.5,-443 925.5,-443 925.5,-443 506.5,-443 454.86,-443 396.09,-434.09 357.1,-426.91"/>
+<polygon fill="#000000" stroke="#000000" points="357.62,-423.44 347.15,-425.03 356.33,-430.32 357.62,-423.44"/>
+<text text-anchor="middle" x="724" y="-445.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+</g>
+<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
+<g id="type~~graph~~TypeGraph_edge23" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
+<path fill="none" stroke="#000000" d="M1168.22,-302.66C1103.48,-294.42 936.15,-273.14 861.68,-263.67"/>
+<polygon fill="#000000" stroke="#000000" points="861.75,-260.15 851.39,-262.36 860.87,-267.09 861.75,-260.15"/>
+</g>
+<!-- type~symba_nbody_system -->
+<g id="type~~graph~~TypeGraph_node28" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node28"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1255,-173 1136,-173 1136,-149 1255,-149 1255,-173"/>
+<text text-anchor="middle" x="1195.5" y="-158.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</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"/>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
+<g id="type~~graph~~TypeGraph_edge24" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1168.78,-149C1154.16,-142.58 1135.35,-134.99 1118,-130 1071.14,-116.53 1016.25,-107.47 977.1,-102.11"/>
+<polygon fill="#000000" stroke="#000000" points="977.38,-98.62 967,-100.77 976.45,-105.56 977.38,-98.62"/>
+<text text-anchor="middle" x="1058" y="-132.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </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"/>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_pltpenc -->
+<g id="type~~graph~~TypeGraph_edge25" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1135.8,-165.15C1088.61,-168.48 1022.95,-173.12 977.61,-176.32"/>
+<polygon fill="#000000" stroke="#000000" points="977.13,-172.84 967.4,-177.04 977.62,-179.83 977.13,-172.84"/>
+<text text-anchor="middle" x="1058" y="-177.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </g>
-<!-- type~symba_pl -->
-<g id="type~~graph~~TypeGraph_node28" class="node">
-<title>type~symba_pl</title>
-<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>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
+<g id="type~~graph~~TypeGraph_edge26" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1135.63,-154.68C1129.67,-154.09 1123.72,-153.52 1118,-153 1070.19,-148.64 1015.64,-144.46 976.84,-141.63"/>
+<polygon fill="#000000" stroke="#000000" points="977.06,-138.14 966.83,-140.9 976.55,-145.12 977.06,-138.14"/>
+<text text-anchor="middle" x="1058" y="-155.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list, plplcollision_list</text>
 </g>
+<!-- type~helio_nbody_system -->
+<g id="type~~graph~~TypeGraph_node31" class="node">
+<title>type~helio_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node31"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="979.5,-236 869.5,-236 869.5,-212 979.5,-212 979.5,-236"/>
+<text text-anchor="middle" x="924.5" y="-221.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
+</a>
 </g>
-<!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~graph~~TypeGraph_edge30" class="edge">
-<title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<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_edge29" class="edge">
-<title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<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>
+<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge27" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M1165.09,-173.1C1151.02,-178.55 1133.83,-184.7 1118,-189 1075.9,-200.44 1027.6,-209.21 989.91,-215.11"/>
+<polygon fill="#000000" stroke="#000000" points="988.92,-211.72 979.57,-216.7 989.99,-218.64 988.92,-211.72"/>
 </g>
-<!-- type~symba_kinship -->
+<!-- type~rmvs_cb -->
 <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>
+<title>type~rmvs_cb</title>
+<g id="a_type~~graph~~TypeGraph_node29"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="534.5,-414 480.5,-414 480.5,-390 534.5,-390 534.5,-414"/>
+<text text-anchor="middle" x="507.5" y="-399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
+<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
+<g id="type~~graph~~TypeGraph_edge29" class="edge">
+<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
+<path fill="none" stroke="#000000" d="M480.47,-398.49C446.8,-393.96 387.96,-386.03 349.88,-380.9"/>
+<polygon fill="#000000" stroke="#000000" points="350.11,-377.4 339.73,-379.53 349.18,-384.34 350.11,-377.4"/>
+</g>
+<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
 <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="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>
+<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.47,-404.16C448.96,-406.77 395.42,-411.21 357.47,-414.35"/>
+<polygon fill="#000000" stroke="#000000" points="356.89,-410.89 347.21,-415.21 357.46,-417.87 356.89,-410.89"/>
+<text text-anchor="middle" x="396.5" y="-415.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
-<!-- type~symba_parameters -->
+<!-- type~lambda_obj_tvar -->
 <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>
+<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="1241.5,-453 1149.5,-453 1149.5,-429 1241.5,-429 1241.5,-453"/>
+<text text-anchor="middle" x="1195.5" y="-438.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
 </a>
 </g>
 </g>
-<!-- type~symba_parameters&#45;&gt;type~swiftest_parameters -->
-<g id="type~~graph~~TypeGraph_edge31" class="edge">
-<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~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>
+<!-- type~lambda_obj_tvar&#45;&gt;type~lambda_obj -->
+<g id="type~~graph~~TypeGraph_edge30" class="edge">
+<title>type~lambda_obj_tvar&#45;&gt;type~lambda_obj</title>
+<path fill="none" stroke="#000000" d="M1161.46,-453.11C1128.17,-464.97 1078.95,-481.49 1059,-483"/>
+<path fill="none" stroke="#000000" d="M1057,-483C1027.59,-485.23 994.37,-485.21 968.68,-484.64"/>
+<polygon fill="#000000" stroke="#000000" points="968.6,-481.14 958.52,-484.38 968.42,-488.14 968.6,-481.14"/>
 </g>
-<!-- type~symba_cb&#45;&gt;type~helio_cb -->
-<g id="type~~graph~~TypeGraph_edge33" class="edge">
-<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"/>
+<!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge31" class="edge">
+<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M869.31,-221.09C845.11,-222.39 817.5,-227.77 797,-243 782,-254.14 792.27,-267.84 779,-281 776.11,-283.86 772.83,-286.44 769.35,-288.74"/>
+<polygon fill="#000000" stroke="#000000" points="767.3,-285.89 760.4,-293.94 770.81,-291.95 767.3,-285.89"/>
 </g>
-<!-- type~symba_cb&#45;&gt;type~symba_particle_info -->
+<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
 <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>
+<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M286.75,-447.89C283.41,-445.35 280.33,-442.4 278,-439 254.19,-404.28 299.55,-360.44 260,-346"/>
 </g>
-<!-- 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>
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
+<g id="type~~graph~~TypeGraph_edge33" class="edge">
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M259,-288C256.52,-288.47 253.96,-288.85 251.37,-289.15"/>
+<polygon fill="#000000" stroke="#000000" points="251,-285.66 241.3,-289.91 251.53,-292.64 251,-285.66"/>
+<path fill="none" stroke="#000000" d="M289.91,-258.18C285.79,-260.87 281.64,-263.86 278,-267 268.69,-275.02 272.07,-285.7 260,-288"/>
 </g>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~graph~~TypeGraph_edge36" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.96,-301.73C416.1,-298.63 380.87,-294.98 354.26,-292.22"/>
+<polygon fill="#000000" stroke="#000000" points="354.45,-288.73 344.15,-291.18 353.73,-295.69 354.45,-288.73"/>
+<text text-anchor="middle" x="396.5" y="-301.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~symba_tp&#45;&gt;type~helio_tp -->
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~graph~~TypeGraph_edge35" class="edge">
-<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"/>
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.36,-295.9C461.02,-290.48 443.74,-284.17 428,-279 403.46,-270.94 375.61,-262.89 353.53,-256.76"/>
+<polygon fill="#000000" stroke="#000000" points="354.39,-253.37 343.82,-254.09 352.53,-260.12 354.39,-253.37"/>
+<text text-anchor="middle" x="396.5" y="-281.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~symba_tp&#45;&gt;type~symba_particle_info -->
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
 <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>
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259,-346C254.71,-344.43 250.1,-343.45 245.45,-342.88"/>
+<polygon fill="#000000" stroke="#000000" points="245.48,-339.37 235.28,-342.24 245.04,-346.36 245.48,-339.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.71,-318.1C374.14,-329.89 264.37,-347.6 260,-346"/>
+<text text-anchor="middle" x="312.5" y="-346.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
+<!-- type~whm_tp -->
+<g id="type~~graph~~TypeGraph_node35" class="node">
+<title>type~whm_tp</title>
+<g id="a_type~~graph~~TypeGraph_node35"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="534.5,-372 480.5,-372 480.5,-348 534.5,-348 534.5,-372"/>
+<text text-anchor="middle" x="507.5" y="-357.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~~graph~~TypeGraph_edge37" class="edge">
-<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>
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M480.31,-352.43C451.62,-343.88 404.44,-329.04 365,-313 358.84,-310.49 352.38,-307.59 346.19,-304.66"/>
+<polygon fill="#000000" stroke="#000000" points="347.32,-301.32 336.79,-300.11 344.27,-307.62 347.32,-301.32"/>
 </g>
-<!-- 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>
+<!-- type~rmvs_tp -->
+<g id="type~~graph~~TypeGraph_node36" class="node">
+<title>type~rmvs_tp</title>
+<g id="a_type~~graph~~TypeGraph_node36"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="751,-394 697,-394 697,-370 751,-370 751,-394"/>
+<text text-anchor="middle" x="724" y="-379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+</a>
 </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~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~graph~~TypeGraph_edge39" class="edge">
-<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"/>
+<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
+<g id="type~~graph~~TypeGraph_edge38" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.7,-384.45C658.56,-388.01 587.78,-394.61 544.73,-398.62"/>
+<polygon fill="#000000" stroke="#000000" points="544.31,-395.15 534.68,-399.56 544.96,-402.12 544.31,-395.15"/>
+<text text-anchor="middle" x="619" y="-396.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~graph~~TypeGraph_edge41" class="edge">
-<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"/>
+<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
+<g id="type~~graph~~TypeGraph_edge39" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
+<path fill="none" stroke="#000000" d="M696.7,-379.3C658.56,-375.39 587.78,-368.13 544.73,-363.72"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-360.22 534.68,-362.69 544.27,-367.19 544.99,-360.22"/>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
+<!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~graph~~TypeGraph_edge40" class="edge">
-<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>
+<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M395.5,-219C382.29,-225.75 367.04,-231.32 353.3,-235.61"/>
+<polygon fill="#000000" stroke="#000000" points="352.19,-232.29 343.61,-238.51 354.19,-238.99 352.19,-232.29"/>
+<path fill="none" stroke="#000000" d="M480.46,-57.68C468.58,-60.58 455.16,-65.76 446,-75 398.47,-122.97 457.63,-188.26 397.5,-219"/>
 </g>
-<!-- type~symba_merger&#45;&gt;type~symba_pl -->
+<!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~graph~~TypeGraph_edge41" class="edge">
+<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M480.41,-255.42C451.61,-251.32 404.14,-247.43 365,-258 362.25,-258.74 352.33,-264.4 341.92,-270.61"/>
+<polygon fill="#000000" stroke="#000000" points="339.97,-267.7 333.21,-275.85 343.58,-273.69 339.97,-267.7"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
 <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"/>
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-347.98C155.82,-348.84 138.87,-349.9 122.39,-350.93"/>
+<polygon fill="#000000" stroke="#000000" points="121.99,-347.45 112.23,-351.56 122.43,-354.43 121.99,-347.45"/>
+<text text-anchor="middle" x="138" y="-352.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~graph~~TypeGraph_edge43" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M169.79,-336.12C150.55,-330.13 125.65,-322.38 104.14,-315.68"/>
+<polygon fill="#000000" stroke="#000000" points="105.11,-312.32 94.52,-312.69 103.03,-319 105.11,-312.32"/>
+</g>
+<!-- type~fraggle_colliders -->
+<g id="type~~graph~~TypeGraph_node40" class="node">
+<title>type~fraggle_colliders</title>
+<g id="a_type~~graph~~TypeGraph_node40"><a xlink:href=".././type/fraggle_colliders.html" xlink:title="fraggle_colliders">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1241,-579 1150,-579 1150,-555 1241,-555 1241,-579"/>
+<text text-anchor="middle" x="1195.5" y="-564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_colliders</text>
+</a>
+</g>
 </g>
 </g>
 </svg>
diff --git a/docs/module/drift_implementation.html b/docs/module/drift_implementation.html
index f30432e1a..6e69378bd 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.6% of total for modules and submodules.">352 statements</a>
+    title=" 2.2% of total for modules and submodules.">352 statements</a>
      </li> 
      
      
@@ -299,258 +299,311 @@ <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="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)">
+<svg id="moduledrift_implementationUsesGraph" width="641pt" height="262pt"
+ viewBox="0.00 0.00 641.00 261.65" 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 387.05)">
 <title>module~~drift_implementation~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 947,-265.94 947,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 954,-387.05 954,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="950,-318.05 841,-318.05 841,-294.05 950,-294.05 950,-318.05"/>
+<text text-anchor="middle" x="895.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">drift_implementation</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~drift_implementation~~UsesGraph_node3" class="node">
+<g id="module~~drift_implementation~~UsesGraph_node2" 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,-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>
+<g id="a_module~~drift_implementation~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.45,-294.01C857.49,-281.38 827.47,-261.36 805.75,-246.88"/>
+<polygon fill="#000000" stroke="#000000" points="807.56,-243.88 797.3,-241.25 803.68,-249.71 807.56,-243.88"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~drift_implementation~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M874.3,-318.08C835.98,-339.73 749.45,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~drift_implementation~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~drift_implementation~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~drift_implementation~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~drift_implementation~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~drift_implementation~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~drift_implementation~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~drift_implementation~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~drift_implementation~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge16" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge21" 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~~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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~drift_implementation~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge21" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_edge20" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~drift_implementation~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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~~drift_implementation~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge25" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~drift_implementation~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/fraggle_classes.html b/docs/module/fraggle_classes.html
new file mode 100644
index 000000000..d3164a21d
--- /dev/null
+++ b/docs/module/fraggle_classes.html
@@ -0,0 +1,5781 @@
+<!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>fraggle_classes &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>fraggle_classes 
+    <small>Module</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> The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</li>
+     
+     
+     
+     
+    
+    
+     <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.">234 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+  
+     <li class="active">fraggle_classes</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#variable-fraggle_nmass_dist">FRAGGLE_NMASS_DIST</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#variable-fraggle_log_out">FRAGGLE_LOG_OUT</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#variable-fraggle_log_unit">FRAGGLE_LOG_UNIT</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-0">Interfaces</a></h3></div>
+  <div id="inters-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_vmag_to_vb">fraggle_util_vmag_to_vb</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_generate_fragments">fraggle_generate_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_generate">fraggle_io_log_generate</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_one_message">fraggle_io_log_one_message</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_pl">fraggle_io_log_pl</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_regime">fraggle_io_log_regime</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_start">fraggle_io_log_start</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_placeholder_accel">fraggle_placeholder_accel</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_placeholder_kick">fraggle_placeholder_kick</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_placeholder_step">fraggle_placeholder_step</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_regime_colliders">fraggle_regime_colliders</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_budgets_fragments">fraggle_set_budgets_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_coordinate_system">fraggle_set_coordinate_system</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_mass_dist_fragments">fraggle_set_mass_dist_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_natural_scale_factors">fraggle_set_natural_scale_factors</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_original_scale_factors">fraggle_set_original_scale_factors</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_setup_fragments">fraggle_setup_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_setup_reset_fragments">fraggle_setup_reset_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_add_fragments_to_system">fraggle_util_add_fragments_to_system</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_ang_mtm">fraggle_util_ang_mtm</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_construct_temporary_system">fraggle_util_construct_temporary_system</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_get_energy_momentum">fraggle_util_get_energy_momentum</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_restructure">fraggle_util_restructure</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_shift_vector_to_origin">fraggle_util_shift_vector_to_origin</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-0">Derived Types</a></h3></div>
+  <div id="types-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#type-fraggle_colliders">fraggle_colliders</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#type-fraggle_fragments">fraggle_fragments</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <p>Definition of classes and methods specific to Fraggel: The Fragment Generation Model</p>
+<hr>
+<div class="codehilite"><pre><span></span><code><span class="err">                                fraggle_fragments class definitions and method interfaces</span>
+</code></pre></div>
+
+
+<hr>
+      <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_globals.html'>swiftest_globals</a></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~~fraggle_classes~~UsesGraph Pages: 1 -->
+<svg id="modulefraggle_classesUsesGraph" width="467pt" height="52pt"
+ viewBox="0.00 0.00 467.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~fraggle_classes~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<title>module~~fraggle_classes~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 463,-48 463,4 -4,4"/>
+<!-- module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsesGraph_node1" class="node">
+<title>module~fraggle_classes</title>
+<polygon fill="none" stroke="black" points="459,-44 372,-44 372,-20 459,-20 459,-44"/>
+<text text-anchor="middle" x="415.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_classes</text>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~fraggle_classes~~UsesGraph_node2" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~fraggle_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~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~fraggle_classes~~UsesGraph_edge1" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.72,-32.64C360.13,-32.79 347.58,-32.93 336,-33 296.45,-33.25 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_classes -->
+<g id="module~~fraggle_classes~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~fraggle_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~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~fraggle_classes~~UsesGraph_edge2" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.83,-25C363.53,-23.64 354.74,-22.2 346.14,-20.79"/>
+<polygon fill="#000000" stroke="#000000" points="346.61,-17.32 336.18,-19.16 345.48,-24.23 346.61,-17.32"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~fraggle_classes~~UsesGraph_node4" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~fraggle_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,-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~~fraggle_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~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~fraggle_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>
+</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="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>
+    
+
+    
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  
+  <li class="list-group-item">  
+    <ul class="list-inline">
+      <li><h5>Descendants:</h5></li>
+      
+      <li><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></li>
+      
+      <li><a href='../module/s_fraggle_io.html'>s_fraggle_io</a></li>
+      
+      <li><a href='../module/s_fraggle_placeholder.html'>s_fraggle_placeholder</a></li>
+      
+      <li><a href='../module/s_fraggle_regime.html'>s_fraggle_regime</a></li>
+      
+      <li><a href='../module/s_fraggle_set.html'>s_fraggle_set</a></li>
+      
+      <li><a href='../module/s_fraggle_setup.html'>s_fraggle_setup</a></li>
+      
+      <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</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~~fraggle_classes~~UsedByGraph Pages: 1 -->
+<svg id="modulefraggle_classesUsedByGraph" width="499pt" height="2888pt"
+ viewBox="0.00 0.00 499.00 2888.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~fraggle_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2884)">
+<title>module~~fraggle_classes~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 495,-2884 495,4 -4,4"/>
+<!-- module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_node1" class="node">
+<title>module~fraggle_classes</title>
+<polygon fill="none" stroke="black" points="87,-1410 0,-1410 0,-1386 87,-1386 87,-1410"/>
+<text text-anchor="middle" x="43.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_classes</text>
+</g>
+<!-- module~s_fraggle_placeholder -->
+<g id="module~~fraggle_classes~~UsedByGraph_node2" class="node">
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="471.5,-2880 353.5,-2880 353.5,-2856 471.5,-2856 471.5,-2880"/>
+<text text-anchor="middle" x="412.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge3" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M353.4,-2855.92C346.64,-2853.46 340.02,-2850.52 334,-2847 300.08,-2827.17 304.15,-2806.57 272,-2784"/>
+</g>
+<!-- module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_node7" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node7"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="298,-1410 244,-1410 244,-1386 298,-1386 298,-1410"/>
+<text text-anchor="middle" x="271" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.19,-2861.08C345.79,-2857.85 339.05,-2853.31 334,-2847 287.48,-2788.82 273.98,-1599.73 272.21,-1420.53"/>
+<polygon fill="#000000" stroke="#000000" points="275.71,-1420.38 272.11,-1410.42 268.71,-1420.45 275.71,-1420.38"/>
+</g>
+<!-- module~s_fraggle_generate -->
+<g id="module~~fraggle_classes~~UsedByGraph_node3" class="node">
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="465.5,-2838 359.5,-2838 359.5,-2814 465.5,-2814 465.5,-2838"/>
+<text text-anchor="middle" x="412.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_generate&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge4" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M359.29,-2818.46C331.47,-2812.52 297.77,-2802.09 272,-2784"/>
+</g>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M359.46,-2821.46C349.64,-2818.2 340.45,-2813.05 334,-2805 288.81,-2748.56 274.2,-1595.04 272.24,-1420.14"/>
+<polygon fill="#000000" stroke="#000000" points="275.74,-1420.02 272.13,-1410.06 268.74,-1420.1 275.74,-1420.02"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~fraggle_classes~~UsedByGraph_node4" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="460.5,-2796 364.5,-2796 364.5,-2772 460.5,-2772 460.5,-2796"/>
+<text text-anchor="middle" x="412.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge5" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M368.3,-2796.06C338.59,-2801.67 299.65,-2803.41 272,-2784"/>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.28,-2780.89C352.71,-2777.79 341.5,-2772.35 334,-2763 290.19,-2708.36 274.44,-1592.59 272.27,-1420.27"/>
+<polygon fill="#000000" stroke="#000000" points="275.77,-1420.06 272.14,-1410.1 268.77,-1420.15 275.77,-1420.06"/>
+</g>
+<!-- module~s_fraggle_setup -->
+<g id="module~~fraggle_classes~~UsedByGraph_node5" class="node">
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="457,-2754 368,-2754 368,-2730 457,-2730 457,-2754"/>
+<text text-anchor="middle" x="412.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge6" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M367.92,-2753.3C356.82,-2756.32 344.94,-2759.67 334,-2763 306.17,-2771.48 295.81,-2800.72 272,-2784"/>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.93,-2739.78C355.1,-2736.88 342.29,-2731.33 334,-2721 291.56,-2668.14 274.7,-1589.92 272.3,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="275.8,-1420.08 272.16,-1410.13 268.8,-1420.18 275.8,-1420.08"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~fraggle_classes~~UsedByGraph_node6" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="451,-2712 374,-2712 374,-2688 451,-2688 451,-2712"/>
+<text text-anchor="middle" x="412.5" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge7" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M270,-2784C125.75,-2784 55.48,-1599.36 45.7,-1420.5"/>
+<polygon fill="#000000" stroke="#000000" points="49.18,-1420.2 45.15,-1410.41 42.19,-1420.58 49.18,-1420.2"/>
+<path fill="none" stroke="#000000" d="M373.64,-2706.05C360.49,-2709.22 346.03,-2713.96 334,-2721 300.08,-2740.83 304.15,-2806.57 272,-2784"/>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.6,-2698.89C358.99,-2696.41 343.52,-2690.84 334,-2679 292.91,-2627.9 274.94,-1586 272.34,-1420.16"/>
+<polygon fill="#000000" stroke="#000000" points="275.84,-1420.08 272.18,-1410.14 268.84,-1420.19 275.84,-1420.08"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge1" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.73,-1385.95C266.67,-1252.28 237.18,-51.7 166.5,-54"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_node8" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="208,-1410 123,-1410 123,-1386 208,-1386 208,-1410"/>
+<text text-anchor="middle" x="165.5" y="-1395.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~~fraggle_classes~~UsedByGraph_edge79" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M243.88,-1398C236.13,-1398 227.36,-1398 218.58,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="218.32,-1394.5 208.32,-1398 218.32,-1401.5 218.32,-1394.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge2" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.87,-1398C114.69,-1398 106,-1398 97.5,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="97.28,-1394.5 87.28,-1398 97.28,-1401.5 97.28,-1394.5"/>
+</g>
+<!-- module~s_fraggle_io -->
+<g id="module~~fraggle_classes~~UsedByGraph_node9" class="node">
+<title>module~s_fraggle_io</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="448,-66 377,-66 377,-42 448,-42 448,-66"/>
+<text text-anchor="middle" x="412.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_io&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge8" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M376.76,-52.58C348.51,-51.77 307.63,-51.37 272,-54"/>
+</g>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M376.8,-54.6C361.28,-56.8 344.21,-62.28 334,-75 291.56,-127.86 274.7,-1206.08 272.3,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="268.8,-1375.82 272.16,-1385.87 275.8,-1375.92 268.8,-1375.82"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~fraggle_classes~~UsedByGraph_node10" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-24 374.5,-24 374.5,0 450.5,0 450.5,-24"/>
+<text text-anchor="middle" x="412.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~fraggle_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge9" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M374.31,-21.58C361.49,-25.01 347.07,-29.02 334,-33 306.17,-41.48 301.01,-51.86 272,-54"/>
+<path fill="none" stroke="#000000" d="M164.5,-54C95.27,-56.26 51.52,-1201.94 45.27,-1375.96"/>
+<polygon fill="#000000" stroke="#000000" points="41.77,-1375.87 44.92,-1385.99 48.77,-1376.12 41.77,-1375.87"/>
+<path fill="none" stroke="#000000" d="M270,-54C224.12,-57.39 212.48,-52.5 166.5,-54"/>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.39,-12.96C359.53,-15.38 343.68,-20.93 334,-33 290.19,-87.64 274.44,-1203.41 272.27,-1375.73"/>
+<polygon fill="#000000" stroke="#000000" points="268.77,-1375.85 272.14,-1385.9 275.77,-1375.94 268.77,-1375.85"/>
+</g>
+<!-- module~s_symba_kick -->
+<g id="module~~fraggle_classes~~UsedByGraph_node11" class="node">
+<title>module~s_symba_kick</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-2670 373,-2670 373,-2646 452,-2646 452,-2670"/>
+<text text-anchor="middle" x="412.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.81,-2656.74C358.43,-2654.19 343.36,-2648.62 334,-2637 294.29,-2587.71 275.23,-1583.94 272.38,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="275.87,-1420.07 272.2,-1410.13 268.87,-1420.19 275.87,-1420.07"/>
+</g>
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge80" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M372.99,-2653.61C359.63,-2650.6 345.2,-2645.53 334,-2637 290.89,-2604.16 312.06,-2568.5 272,-2532"/>
+</g>
+<!-- module~s_symba_drift -->
+<g id="module~~fraggle_classes~~UsedByGraph_node12" class="node">
+<title>module~s_symba_drift</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-2628 373,-2628 373,-2604 452,-2604 452,-2628"/>
+<text text-anchor="middle" x="412.5" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.82,-2614.74C358.44,-2612.18 343.37,-2606.61 334,-2595 295.64,-2547.46 275.48,-1579.65 272.41,-1420.16"/>
+<polygon fill="#000000" stroke="#000000" points="275.91,-1420.03 272.22,-1410.1 268.91,-1420.16 275.91,-1420.03"/>
+</g>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M372.85,-2609.75C359.92,-2606.59 345.79,-2601.89 334,-2595 300.08,-2575.17 301.04,-2558.46 272,-2532"/>
+</g>
+<!-- module~s_util_exit -->
+<g id="module~~fraggle_classes~~UsedByGraph_node13" class="node">
+<title>module~s_util_exit</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442.5,-2376 382.5,-2376 382.5,-2352 442.5,-2352 442.5,-2376"/>
+<text text-anchor="middle" x="412.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge11" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.38,-2363.98C365.59,-2362.3 345.57,-2357.13 334,-2343 273.74,-2269.36 271.76,-1556.18 271.94,-1420.3"/>
+<polygon fill="#000000" stroke="#000000" points="275.44,-1420.24 271.96,-1410.24 268.44,-1420.23 275.44,-1420.24"/>
+</g>
+<!-- proc~ge_wpp -->
+<g id="module~~fraggle_classes~~UsedByGraph_node14" class="node">
+<title>proc~ge_wpp</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node14"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="439.5,-2334 385.5,-2334 385.5,-2310 439.5,-2310 439.5,-2334"/>
+<text text-anchor="middle" x="412.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+</a>
+</g>
+</g>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge12" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.44,-2322.24C368.09,-2320.88 346.29,-2315.98 334,-2301 276.42,-2230.85 272.27,-1551.96 272.01,-1420.12"/>
+<polygon fill="#000000" stroke="#000000" points="275.51,-1420.01 272,-1410.01 268.51,-1420.02 275.51,-1420.01"/>
+</g>
+<!-- module~s_whm_util -->
+<g id="module~~fraggle_classes~~UsedByGraph_node15" class="node">
+<title>module~s_whm_util</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-2292 379.5,-2292 379.5,-2268 445.5,-2268 445.5,-2292"/>
+<text text-anchor="middle" x="412.5" y="-2277.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.31,-2279.6C363.22,-2277.6 344.9,-2272.23 334,-2259 279.14,-2192.4 272.81,-1548.83 272.09,-1420.28"/>
+<polygon fill="#000000" stroke="#000000" points="275.59,-1420.06 272.04,-1410.08 268.59,-1420.09 275.59,-1420.06"/>
+</g>
+<!-- module~s_helio_setup -->
+<g id="module~~fraggle_classes~~UsedByGraph_node16" class="node">
+<title>module~s_helio_setup</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-2250 373,-2250 373,-2226 452,-2226 452,-2250"/>
+<text text-anchor="middle" x="412.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.96,-2236.62C358.6,-2234.05 343.5,-2228.5 334,-2217 281.85,-2153.92 273.37,-1545.29 272.18,-1420.35"/>
+<polygon fill="#000000" stroke="#000000" points="275.68,-1420.06 272.09,-1410.09 268.68,-1420.12 275.68,-1420.06"/>
+</g>
+<!-- module~s_util_solve -->
+<g id="module~~fraggle_classes~~UsedByGraph_node17" class="node">
+<title>module~s_util_solve</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-2208 378.5,-2208 378.5,-2184 446.5,-2184 446.5,-2208"/>
+<text text-anchor="middle" x="412.5" y="-2193.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.17,-2195.41C362.38,-2193.29 344.69,-2187.87 334,-2175 284.54,-2115.43 273.96,-1541.35 272.27,-1420.33"/>
+<polygon fill="#000000" stroke="#000000" points="275.77,-1420.01 272.14,-1410.06 268.77,-1420.11 275.77,-1420.01"/>
+</g>
+<!-- module~s_whm_setup -->
+<g id="module~~fraggle_classes~~UsedByGraph_node18" class="node">
+<title>module~s_whm_setup</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-2166 373,-2166 373,-2142 452,-2142 452,-2166"/>
+<text text-anchor="middle" x="412.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.61,-2152.51C358.38,-2149.9 343.46,-2144.35 334,-2133 287.27,-2076.97 274.6,-1538.15 272.39,-1420.58"/>
+<polygon fill="#000000" stroke="#000000" points="275.88,-1420.21 272.2,-1410.27 268.88,-1420.33 275.88,-1420.21"/>
+</g>
+<!-- module~s_netcdf -->
+<g id="module~~fraggle_classes~~UsedByGraph_node19" class="node">
+<title>module~s_netcdf</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-2124 385.5,-2124 385.5,-2100 439.5,-2100 439.5,-2124"/>
+<text text-anchor="middle" x="412.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
+</a>
+</g>
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.16,-2112.12C367.91,-2110.69 346.36,-2105.74 334,-2091 289.92,-2038.42 275.25,-1533.34 272.5,-1420.35"/>
+<polygon fill="#000000" stroke="#000000" points="276,-1420.04 272.26,-1410.13 269,-1420.21 276,-1420.04"/>
+</g>
+<!-- module~s_io -->
+<g id="module~~fraggle_classes~~UsedByGraph_node20" class="node">
+<title>module~s_io</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-2082 385.5,-2082 385.5,-2058 439.5,-2058 439.5,-2082"/>
+<text text-anchor="middle" x="412.5" y="-2067.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~~fraggle_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.19,-2070.1C367.95,-2068.66 346.4,-2063.71 334,-2049 292.6,-1999.91 275.95,-1529.13 272.64,-1420.35"/>
+<polygon fill="#000000" stroke="#000000" points="276.13,-1420.09 272.34,-1410.2 269.14,-1420.3 276.13,-1420.09"/>
+</g>
+<!-- module~s_helio_step -->
+<g id="module~~fraggle_classes~~UsedByGraph_node21" class="node">
+<title>module~s_helio_step</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449,-2040 376,-2040 376,-2016 449,-2016 449,-2040"/>
+<text text-anchor="middle" x="412.5" y="-2025.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.91,-2026.97C360.78,-2024.6 344.28,-2019.12 334,-2007 295.26,-1961.37 276.69,-1524.4 272.79,-1420.22"/>
+<polygon fill="#000000" stroke="#000000" points="276.29,-1420.06 272.42,-1410.19 269.29,-1420.31 276.29,-1420.06"/>
+</g>
+<!-- module~orbel -->
+<g id="module~~fraggle_classes~~UsedByGraph_node22" class="node">
+<title>module~orbel</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node22"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="439.5,-1998 385.5,-1998 385.5,-1974 439.5,-1974 439.5,-1998"/>
+<text text-anchor="middle" x="412.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
+</a>
+</g>
+</g>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge21" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.25,-1986.05C368.05,-1984.58 346.5,-1979.62 334,-1965 297.94,-1922.84 277.5,-1519.95 272.97,-1420.24"/>
+<polygon fill="#000000" stroke="#000000" points="276.46,-1419.93 272.51,-1410.1 269.46,-1420.24 276.46,-1419.93"/>
+</g>
+<!-- module~s_symba_util -->
+<g id="module~~fraggle_classes~~UsedByGraph_node23" class="node">
+<title>module~s_symba_util</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450,-2586 375,-2586 375,-2562 450,-2562 450,-2586"/>
+<text text-anchor="middle" x="412.5" y="-2571.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.84,-2573.07C359.88,-2570.68 343.82,-2565.14 334,-2553 297.01,-2507.25 275.78,-1577.09 272.46,-1420.33"/>
+<polygon fill="#000000" stroke="#000000" points="275.95,-1419.97 272.24,-1410.05 268.96,-1420.12 275.95,-1419.97"/>
+</g>
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge85" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M374.9,-2571.62C343.98,-2567.78 300.32,-2557.81 272,-2532"/>
+</g>
+<!-- module~s_symba_collision -->
+<g id="module~~fraggle_classes~~UsedByGraph_node24" class="node">
+<title>module~s_symba_collision</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="462,-2544 363,-2544 363,-2520 462,-2520 462,-2544"/>
+<text text-anchor="middle" x="412.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.73,-2528.39C351.73,-2525.23 341.2,-2519.88 334,-2511 298.38,-2467.04 276.09,-1574.31 272.51,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="276.01,-1420.26 272.28,-1410.34 269.01,-1420.42 276.01,-1420.26"/>
+</g>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M375.53,-2544.04C344.16,-2552.05 299.48,-2557.04 272,-2532"/>
+</g>
+<!-- module~s_symba_encounter_check -->
+<g id="module~~fraggle_classes~~UsedByGraph_node25" class="node">
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="484,-2502 341,-2502 341,-2478 484,-2478 484,-2502"/>
+<text text-anchor="middle" x="412.5" y="-2487.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M343.79,-2477.86C340.13,-2475.39 336.81,-2472.46 334,-2469 265.63,-2384.8 270.35,-1567.08 271.75,-1420.45"/>
+<polygon fill="#000000" stroke="#000000" points="275.26,-1420.08 271.86,-1410.04 268.26,-1420.01 275.26,-1420.08"/>
+</g>
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge83" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M365.06,-2502.08C354.79,-2504.89 344,-2507.95 334,-2511 306.17,-2519.48 293.5,-2551.6 272,-2532"/>
+</g>
+<!-- module~s_helio_kick -->
+<g id="module~~fraggle_classes~~UsedByGraph_node26" class="node">
+<title>module~s_helio_kick</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-1956 377.5,-1956 377.5,-1932 447.5,-1932 447.5,-1956"/>
+<text text-anchor="middle" x="412.5" y="-1941.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.19,-1943.07C361.76,-1940.8 344.65,-1935.35 334,-1923 300.62,-1884.31 278.4,-1515.69 273.18,-1420.4"/>
+<polygon fill="#000000" stroke="#000000" points="276.68,-1420.2 272.64,-1410.4 269.69,-1420.57 276.68,-1420.2"/>
+</g>
+<!-- module~s_symba_step -->
+<g id="module~~fraggle_classes~~UsedByGraph_node27" class="node">
+<title>module~s_symba_step</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="453.5,-2460 371.5,-2460 371.5,-2436 453.5,-2436 453.5,-2460"/>
+<text text-anchor="middle" x="412.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.25,-2446.4C357.38,-2443.71 343.06,-2438.14 334,-2427 268.34,-2346.34 270.8,-1563.74 271.81,-1420.47"/>
+<polygon fill="#000000" stroke="#000000" points="275.31,-1420.28 271.89,-1410.26 268.31,-1420.23 275.31,-1420.28"/>
+</g>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge87" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M371.26,-2454.64C358.77,-2457.8 345.31,-2462.39 334,-2469 300.08,-2488.83 301.04,-2558.46 272,-2532"/>
+</g>
+<!-- module~s_whm_step -->
+<g id="module~~fraggle_classes~~UsedByGraph_node28" class="node">
+<title>module~s_whm_step</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449,-1914 376,-1914 376,-1890 449,-1890 449,-1914"/>
+<text text-anchor="middle" x="412.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.66,-1900.78C360.66,-1898.36 344.35,-1892.87 334,-1881 273,-1811.01 271.03,-1505.58 271.7,-1420.23"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-1420.14 271.81,-1410.1 268.21,-1420.07 275.21,-1420.14"/>
+</g>
+<!-- module~s_helio_gr -->
+<g id="module~~fraggle_classes~~UsedByGraph_node29" class="node">
+<title>module~s_helio_gr</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443.5,-1872 381.5,-1872 381.5,-1848 443.5,-1848 443.5,-1872"/>
+<text text-anchor="middle" x="412.5" y="-1857.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.22,-1859.49C364.88,-1857.55 345.71,-1852.28 334,-1839 278.31,-1775.88 272.5,-1501.06 272.01,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="275.51,-1420.29 271.97,-1410.3 268.51,-1420.31 275.51,-1420.29"/>
+</g>
+<!-- module~s_symba_discard -->
+<g id="module~~fraggle_classes~~UsedByGraph_node30" class="node">
+<title>module~s_symba_discard</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="460.5,-2418 364.5,-2418 364.5,-2394 460.5,-2394 460.5,-2418"/>
+<text text-anchor="middle" x="412.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.39,-2402.81C352.81,-2399.71 341.58,-2394.29 334,-2385 271.05,-2307.86 271.27,-1560.06 271.87,-1420.4"/>
+<polygon fill="#000000" stroke="#000000" points="275.37,-1420.11 271.92,-1410.09 268.37,-1420.08 275.37,-1420.11"/>
+</g>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge88" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M270,-2532C184.64,-2454.21 168.88,-1573.69 166.78,-1420.62"/>
+<polygon fill="#000000" stroke="#000000" points="170.27,-1420.12 166.64,-1410.16 163.27,-1420.21 170.27,-1420.12"/>
+<path fill="none" stroke="#000000" d="M364.15,-2412.66C353.49,-2415.77 342.76,-2420.33 334,-2427 290.89,-2459.84 312.06,-2568.5 272,-2532"/>
+</g>
+<!-- module~s_rmvs_discard -->
+<g id="module~~fraggle_classes~~UsedByGraph_node31" class="node">
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="456.5,-1830 368.5,-1830 368.5,-1806 456.5,-1806 456.5,-1830"/>
+<text text-anchor="middle" x="412.5" y="-1815.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.17,-1815.14C355.51,-1812.19 342.74,-1806.76 334,-1797 283.63,-1740.74 274.13,-1496.59 272.38,-1420.64"/>
+<polygon fill="#000000" stroke="#000000" points="275.88,-1420.24 272.17,-1410.32 268.88,-1420.39 275.88,-1420.24"/>
+</g>
+<!-- module~whm_drift -->
+<g id="module~~fraggle_classes~~UsedByGraph_node32" class="node">
+<title>module~whm_drift</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node32"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-1788 383,-1788 383,-1764 442,-1764 442,-1788"/>
+<text text-anchor="middle" x="412.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+</a>
+</g>
+</g>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge31" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.91,-1775.52C366.31,-1773.68 346.3,-1768.5 334,-1755 288.84,-1705.45 275.9,-1490.95 272.83,-1420.51"/>
+<polygon fill="#000000" stroke="#000000" points="276.32,-1419.98 272.41,-1410.14 269.32,-1420.27 276.32,-1419.98"/>
+</g>
+<!-- module~s_rmvs_util -->
+<g id="module~~fraggle_classes~~UsedByGraph_node33" class="node">
+<title>module~s_rmvs_util</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446,-1746 379,-1746 379,-1722 446,-1722 446,-1746"/>
+<text text-anchor="middle" x="412.5" y="-1731.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~~fraggle_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.78,-1732.88C363.15,-1730.62 345.41,-1725.24 334,-1713 294.03,-1670.11 277.88,-1485 273.4,-1420.37"/>
+<polygon fill="#000000" stroke="#000000" points="276.87,-1419.83 272.71,-1410.09 269.88,-1420.3 276.87,-1419.83"/>
+</g>
+<!-- module~s_rmvs_io -->
+<g id="module~~fraggle_classes~~UsedByGraph_node34" class="node">
+<title>module~s_rmvs_io</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443,-1704 382,-1704 382,-1680 443,-1680 443,-1704"/>
+<text text-anchor="middle" x="412.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.63,-1691.11C365.43,-1689.04 346.26,-1683.77 334,-1671 299.15,-1634.68 280.1,-1478.39 274.1,-1420.06"/>
+<polygon fill="#000000" stroke="#000000" points="277.58,-1419.67 273.11,-1410.06 270.62,-1420.36 277.58,-1419.67"/>
+</g>
+<!-- module~s_util_append -->
+<g id="module~~fraggle_classes~~UsedByGraph_node35" class="node">
+<title>module~s_util_append</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-1662 373,-1662 373,-1638 452,-1638 452,-1662"/>
+<text text-anchor="middle" x="412.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.81,-1647.44C358.95,-1644.65 344.24,-1639.26 334,-1629 276.29,-1571.15 270.67,-1465.75 271.15,-1420.08"/>
+<polygon fill="#000000" stroke="#000000" points="274.65,-1420.14 271.37,-1410.06 267.66,-1419.98 274.65,-1420.14"/>
+</g>
+<!-- module~s_rmvs_kick -->
+<g id="module~~fraggle_classes~~UsedByGraph_node36" class="node">
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="448,-1620 377,-1620 377,-1596 448,-1596 448,-1620"/>
+<text text-anchor="middle" x="412.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_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="M376.67,-1605.81C361.87,-1603.21 345.43,-1597.84 334,-1587 286.48,-1541.9 275.34,-1459.85 272.76,-1420.38"/>
+<polygon fill="#000000" stroke="#000000" points="276.25,-1420.03 272.23,-1410.23 269.26,-1420.4 276.25,-1420.03"/>
+</g>
+<!-- module~s_util_fill -->
+<g id="module~~fraggle_classes~~UsedByGraph_node37" class="node">
+<title>module~s_util_fill</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-1578 385.5,-1578 385.5,-1554 439.5,-1554 439.5,-1578"/>
+<text text-anchor="middle" x="412.5" y="-1563.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~~fraggle_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.42,-1564.66C368.95,-1562.55 348.17,-1557.38 334,-1545 296.5,-1512.23 281.09,-1452.98 275.24,-1420.61"/>
+<polygon fill="#000000" stroke="#000000" points="278.63,-1419.66 273.55,-1410.37 271.73,-1420.8 278.63,-1419.66"/>
+</g>
+<!-- module~s_rmvs_setup -->
+<g id="module~~fraggle_classes~~UsedByGraph_node38" class="node">
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-1536 373,-1536 373,-1512 452,-1512 452,-1536"/>
+<text text-anchor="middle" x="412.5" y="-1521.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~~fraggle_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.99,-1519.61C359.63,-1516.6 345.2,-1511.53 334,-1503 305.98,-1481.66 288.19,-1443.7 279.17,-1419.75"/>
+<polygon fill="#000000" stroke="#000000" points="282.4,-1418.37 275.74,-1410.13 275.81,-1420.73 282.4,-1418.37"/>
+</g>
+<!-- module~s_whm_gr -->
+<g id="module~~fraggle_classes~~UsedByGraph_node39" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443.5,-1494 381.5,-1494 381.5,-1470 443.5,-1470 443.5,-1494"/>
+<text text-anchor="middle" x="412.5" y="-1479.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~~fraggle_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.35,-1477.66C366.37,-1474.58 348.44,-1469.44 334,-1461 315.35,-1450.1 298.46,-1432.13 287.04,-1418.17"/>
+<polygon fill="#000000" stroke="#000000" points="289.61,-1415.78 280.66,-1410.1 284.11,-1420.11 289.61,-1415.78"/>
+</g>
+<!-- module~s_tides_step_spin -->
+<g id="module~~fraggle_classes~~UsedByGraph_node40" class="node">
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="461.5,-1452 363.5,-1452 363.5,-1428 461.5,-1428 461.5,-1452"/>
+<text text-anchor="middle" x="412.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+</a>
+</g>
+</g>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.06,-1427.92C354.79,-1425.11 344,-1422.05 334,-1419 325.48,-1416.41 316.37,-1413.43 307.83,-1410.56"/>
+<polygon fill="#000000" stroke="#000000" points="308.72,-1407.16 298.13,-1407.25 306.47,-1413.79 308.72,-1407.16"/>
+</g>
+<!-- module~s_obl -->
+<g id="module~~fraggle_classes~~UsedByGraph_node41" class="node">
+<title>module~s_obl</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-1410 385.5,-1410 385.5,-1386 439.5,-1386 439.5,-1410"/>
+<text text-anchor="middle" x="412.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+</a>
+</g>
+</g>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.26,-1398C363.54,-1398 332.43,-1398 308.32,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="308.12,-1394.5 298.12,-1398 308.12,-1401.5 308.12,-1394.5"/>
+</g>
+<!-- module~s_discard -->
+<g id="module~~fraggle_classes~~UsedByGraph_node42" class="node">
+<title>module~s_discard</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-1368 383.5,-1368 383.5,-1344 441.5,-1344 441.5,-1368"/>
+<text text-anchor="middle" x="412.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+</a>
+</g>
+</g>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.4,-1363.17C368.63,-1367.04 350.27,-1372.05 334,-1377 325.48,-1379.59 316.37,-1382.57 307.83,-1385.44"/>
+<polygon fill="#000000" stroke="#000000" points="306.47,-1382.21 298.13,-1388.75 308.72,-1388.84 306.47,-1382.21"/>
+</g>
+<!-- module~s_util_resize -->
+<g id="module~~fraggle_classes~~UsedByGraph_node43" class="node">
+<title>module~s_util_resize</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="448.5,-1326 376.5,-1326 376.5,-1302 448.5,-1302 448.5,-1326"/>
+<text text-anchor="middle" x="412.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M376.39,-1319.41C362.53,-1322.57 346.88,-1327.47 334,-1335 315.35,-1345.9 298.46,-1363.87 287.04,-1377.83"/>
+<polygon fill="#000000" stroke="#000000" points="284.11,-1375.89 280.66,-1385.9 289.61,-1380.22 284.11,-1375.89"/>
+</g>
+<!-- module~drift_implementation -->
+<g id="module~~fraggle_classes~~UsedByGraph_node44" class="node">
+<title>module~drift_implementation</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node44"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="467,-1284 358,-1284 358,-1260 467,-1260 467,-1284"/>
+<text text-anchor="middle" x="412.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+</a>
+</g>
+</g>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge45" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.68,-1280.74C349.23,-1283.7 340.99,-1287.68 334,-1293 305.98,-1314.34 288.19,-1352.3 279.17,-1376.25"/>
+<polygon fill="#000000" stroke="#000000" points="275.81,-1375.27 275.74,-1385.87 282.4,-1377.63 275.81,-1375.27"/>
+</g>
+<!-- module~s_operator_cross -->
+<g id="module~~fraggle_classes~~UsedByGraph_node45" class="node">
+<title>module~s_operator_cross</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="460.5,-1242 364.5,-1242 364.5,-1218 460.5,-1218 460.5,-1242"/>
+<text text-anchor="middle" x="412.5" y="-1227.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.29,-1235.61C353.38,-1238.74 342.5,-1243.57 334,-1251 296.5,-1283.77 281.09,-1343.02 275.24,-1375.39"/>
+<polygon fill="#000000" stroke="#000000" points="271.73,-1375.2 273.55,-1385.63 278.63,-1376.34 271.73,-1375.2"/>
+</g>
+<!-- module~s_symba_setup -->
+<g id="module~~fraggle_classes~~UsedByGraph_node46" class="node">
+<title>module~s_symba_setup</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="456.5,-150 368.5,-150 368.5,-126 456.5,-126 456.5,-150"/>
+<text text-anchor="middle" x="412.5" y="-135.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.36,-140.14C355.39,-143.02 342.39,-148.58 334,-159 294.29,-208.29 275.23,-1212.06 272.38,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="268.87,-1375.81 272.2,-1385.87 275.87,-1375.93 268.87,-1375.81"/>
+</g>
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M378.24,-125.99C346.08,-116.76 298.43,-109.83 272,-138"/>
+</g>
+<!-- proc~solve_wbs -->
+<g id="module~~fraggle_classes~~UsedByGraph_node47" class="node">
+<title>proc~solve_wbs</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node47"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="443.5,-1200 381.5,-1200 381.5,-1176 443.5,-1176 443.5,-1200"/>
+<text text-anchor="middle" x="412.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+</a>
+</g>
+</g>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge49" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.32,-1189.45C365.41,-1191.72 346.64,-1197.01 334,-1209 286.48,-1254.1 275.34,-1336.15 272.76,-1375.62"/>
+<polygon fill="#000000" stroke="#000000" points="269.26,-1375.6 272.23,-1385.77 276.25,-1375.97 269.26,-1375.6"/>
+</g>
+<!-- program~swiftest_driver -->
+<g id="module~~fraggle_classes~~UsedByGraph_node48" class="node">
+<title>program~swiftest_driver</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node48"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="453,-1158 372,-1158 372,-1134 453,-1134 453,-1158"/>
+<text text-anchor="middle" x="412.5" y="-1143.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~~fraggle_classes~~UsedByGraph_edge51" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.61,-1148.81C358.1,-1151.66 343.94,-1157.03 334,-1167 276.29,-1224.85 270.67,-1330.25 271.15,-1375.92"/>
+<polygon fill="#000000" stroke="#000000" points="267.66,-1376.02 271.37,-1385.94 274.65,-1375.86 267.66,-1376.02"/>
+</g>
+<!-- module~s_gr -->
+<g id="module~~fraggle_classes~~UsedByGraph_node49" class="node">
+<title>module~s_gr</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-1116 385.5,-1116 385.5,-1092 439.5,-1092 439.5,-1116"/>
+<text text-anchor="middle" x="412.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.4,-1104.46C368.49,-1106.17 347.22,-1111.22 334,-1125 299.15,-1161.32 280.1,-1317.61 274.1,-1375.94"/>
+<polygon fill="#000000" stroke="#000000" points="270.62,-1375.64 273.11,-1385.94 277.58,-1376.33 270.62,-1375.64"/>
+</g>
+<!-- module~s_user_kick_getacch -->
+<g id="module~~fraggle_classes~~UsedByGraph_node50" class="node">
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="468.5,-1074 356.5,-1074 356.5,-1050 468.5,-1050 468.5,-1074"/>
+<text text-anchor="middle" x="412.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+</a>
+</g>
+</g>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M356.37,-1068.71C347.97,-1071.9 340.08,-1076.47 334,-1083 294.03,-1125.89 277.88,-1311 273.4,-1375.63"/>
+<polygon fill="#000000" stroke="#000000" points="269.88,-1375.7 272.71,-1385.91 276.87,-1376.17 269.88,-1375.7"/>
+</g>
+<!-- module~s_util_rescale -->
+<g id="module~~fraggle_classes~~UsedByGraph_node51" class="node">
+<title>module~s_util_rescale</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="451.5,-1032 373.5,-1032 373.5,-1008 451.5,-1008 451.5,-1032"/>
+<text text-anchor="middle" x="412.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.11,-1021.93C358.95,-1024.6 343.95,-1030.08 334,-1041 288.84,-1090.55 275.9,-1305.05 272.83,-1375.49"/>
+<polygon fill="#000000" stroke="#000000" points="269.32,-1375.73 272.41,-1385.86 276.32,-1376.02 269.32,-1375.73"/>
+</g>
+<!-- module~s_util_get_energy_momentum -->
+<g id="module~~fraggle_classes~~UsedByGraph_node52" class="node">
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="491,-990 334,-990 334,-966 491,-966 491,-990"/>
+<text text-anchor="middle" x="412.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M344.87,-990.02C340.85,-992.5 337.16,-995.47 334,-999 283.63,-1055.26 274.13,-1299.41 272.38,-1375.36"/>
+<polygon fill="#000000" stroke="#000000" points="268.88,-1375.61 272.17,-1385.68 275.88,-1375.76 268.88,-1375.61"/>
+</g>
+<!-- module~s_kick -->
+<g id="module~~fraggle_classes~~UsedByGraph_node53" class="node">
+<title>module~s_kick</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-948 385.5,-948 385.5,-924 439.5,-924 439.5,-948"/>
+<text text-anchor="middle" x="412.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.39,-936.08C368.25,-937.6 346.73,-942.57 334,-957 278.31,-1020.12 272.5,-1294.94 272.01,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="268.51,-1375.69 271.97,-1385.7 275.51,-1375.71 268.51,-1375.69"/>
+</g>
+<!-- module~s_whm_coord -->
+<g id="module~~fraggle_classes~~UsedByGraph_node54" class="node">
+<title>module~s_whm_coord</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-906 373,-906 373,-882 452,-882 452,-906"/>
+<text text-anchor="middle" x="412.5" y="-891.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~~fraggle_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.86,-895.71C358.67,-898.35 343.71,-903.86 334,-915 273,-984.99 271.03,-1290.42 271.7,-1375.77"/>
+<polygon fill="#000000" stroke="#000000" points="268.21,-1375.93 271.81,-1385.9 275.21,-1375.86 268.21,-1375.93"/>
+</g>
+<!-- module~s_util_index -->
+<g id="module~~fraggle_classes~~UsedByGraph_node55" class="node">
+<title>module~s_util_index</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447,-864 378,-864 378,-840 447,-840 447,-864"/>
+<text text-anchor="middle" x="412.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.98,-852.81C362.34,-855.02 344.84,-860.44 334,-873 300.62,-911.69 278.4,-1280.31 273.18,-1375.6"/>
+<polygon fill="#000000" stroke="#000000" points="269.69,-1375.43 272.64,-1385.6 276.68,-1375.8 269.69,-1375.43"/>
+</g>
+<!-- module~s_util_valid -->
+<g id="module~~fraggle_classes~~UsedByGraph_node56" class="node">
+<title>module~s_util_valid</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445,-822 380,-822 380,-798 445,-798 445,-822"/>
+<text text-anchor="middle" x="412.5" y="-807.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.9,-810.51C363.77,-812.53 345.24,-817.86 334,-831 297.94,-873.16 277.5,-1276.05 272.97,-1375.76"/>
+<polygon fill="#000000" stroke="#000000" points="269.46,-1375.76 272.51,-1385.9 276.46,-1376.07 269.46,-1375.76"/>
+</g>
+<!-- module~s_rmvs_chk -->
+<g id="module~~fraggle_classes~~UsedByGraph_node57" class="node">
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-780 377.5,-780 377.5,-756 447.5,-756 447.5,-780"/>
+<text text-anchor="middle" x="412.5" y="-765.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.5,-768.8C361.94,-771.02 344.64,-776.46 334,-789 295.26,-834.63 276.69,-1271.6 272.79,-1375.78"/>
+<polygon fill="#000000" stroke="#000000" points="269.29,-1375.69 272.42,-1385.81 276.29,-1375.94 269.29,-1375.69"/>
+</g>
+<!-- module~s_util_coord -->
+<g id="module~~fraggle_classes~~UsedByGraph_node58" class="node">
+<title>module~s_util_coord</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-738 377.5,-738 377.5,-714 447.5,-714 447.5,-738"/>
+<text text-anchor="middle" x="412.5" y="-723.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.46,-726.77C361.9,-728.98 344.6,-734.42 334,-747 292.6,-796.09 275.95,-1266.87 272.64,-1375.65"/>
+<polygon fill="#000000" stroke="#000000" points="269.14,-1375.7 272.34,-1385.8 276.13,-1375.91 269.14,-1375.7"/>
+</g>
+<!-- module~s_util_set -->
+<g id="module~~fraggle_classes~~UsedByGraph_node59" class="node">
+<title>module~s_util_set</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-696 383.5,-696 383.5,-672 441.5,-672 441.5,-696"/>
+<text text-anchor="middle" x="412.5" y="-681.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.27,-684.05C366.36,-685.68 345.91,-690.79 334,-705 289.92,-757.58 275.25,-1262.66 272.5,-1375.65"/>
+<polygon fill="#000000" stroke="#000000" points="269,-1375.79 272.26,-1385.87 276,-1375.96 269,-1375.79"/>
+</g>
+<!-- module~s_util_peri -->
+<g id="module~~fraggle_classes~~UsedByGraph_node60" class="node">
+<title>module~s_util_peri</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443,-654 382,-654 382,-630 443,-630 443,-654"/>
+<text text-anchor="middle" x="412.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.71,-642.18C365.11,-643.97 345.52,-649.19 334,-663 287.27,-719.03 274.6,-1257.85 272.39,-1375.42"/>
+<polygon fill="#000000" stroke="#000000" points="268.88,-1375.67 272.2,-1385.73 275.88,-1375.79 268.88,-1375.67"/>
+</g>
+<!-- module~s_util_minimize_bfgs -->
+<g id="module~~fraggle_classes~~UsedByGraph_node61" class="node">
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="468.5,-612 356.5,-612 356.5,-588 468.5,-588 468.5,-612"/>
+<text text-anchor="middle" x="412.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M356.12,-605.98C347.63,-609.24 339.79,-614.03 334,-621 284.54,-680.57 273.96,-1254.65 272.27,-1375.67"/>
+<polygon fill="#000000" stroke="#000000" points="268.77,-1375.89 272.14,-1385.94 275.77,-1375.99 268.77,-1375.89"/>
+</g>
+<!-- module~s_helio_drift -->
+<g id="module~~fraggle_classes~~UsedByGraph_node62" class="node">
+<title>module~s_helio_drift</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-570 377.5,-570 377.5,-546 447.5,-546 447.5,-570"/>
+<text text-anchor="middle" x="412.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.36,-558.68C361.77,-560.87 344.48,-566.32 334,-579 281.85,-642.08 273.37,-1250.71 272.18,-1375.65"/>
+<polygon fill="#000000" stroke="#000000" points="268.68,-1375.88 272.09,-1385.91 275.68,-1375.94 268.68,-1375.88"/>
+</g>
+<!-- module~s_rmvs_step -->
+<g id="module~~fraggle_classes~~UsedByGraph_node63" class="node">
+<title>module~s_rmvs_step</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449,-528 376,-528 376,-504 449,-504 449,-528"/>
+<text text-anchor="middle" x="412.5" y="-513.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~~fraggle_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.74,-516.89C360.58,-519.23 344.1,-524.73 334,-537 279.14,-603.6 272.81,-1247.17 272.09,-1375.72"/>
+<polygon fill="#000000" stroke="#000000" points="268.59,-1375.91 272.04,-1385.92 275.59,-1375.94 268.59,-1375.91"/>
+</g>
+<!-- module~s_util_spill -->
+<g id="module~~fraggle_classes~~UsedByGraph_node64" class="node">
+<title>module~s_util_spill</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443,-486 382,-486 382,-462 443,-462 443,-486"/>
+<text text-anchor="middle" x="412.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.63,-474.11C365,-475.88 345.41,-481.1 334,-495 276.42,-565.15 272.27,-1244.04 272.01,-1375.88"/>
+<polygon fill="#000000" stroke="#000000" points="268.51,-1375.98 272,-1385.99 275.51,-1375.99 268.51,-1375.98"/>
+</g>
+<!-- module~s_whm_kick -->
+<g id="module~~fraggle_classes~~UsedByGraph_node65" class="node">
+<title>module~s_whm_kick</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-444 377.5,-444 377.5,-420 447.5,-420 447.5,-444"/>
+<text text-anchor="middle" x="412.5" y="-429.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~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.3,-432.63C361.7,-434.81 344.42,-440.27 334,-453 273.74,-526.64 271.76,-1239.82 271.94,-1375.7"/>
+<polygon fill="#000000" stroke="#000000" points="268.44,-1375.77 271.96,-1385.76 275.44,-1375.76 268.44,-1375.77"/>
+</g>
+<!-- module~s_util_copy -->
+<g id="module~~fraggle_classes~~UsedByGraph_node66" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-402 379.5,-402 379.5,-378 445.5,-378 445.5,-402"/>
+<text text-anchor="middle" x="412.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_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="M379.26,-390.36C363.16,-392.35 344.84,-397.72 334,-411 271.05,-488.14 271.27,-1235.94 271.87,-1375.6"/>
+<polygon fill="#000000" stroke="#000000" points="268.37,-1375.92 271.92,-1385.91 275.37,-1375.89 268.37,-1375.92"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~fraggle_classes~~UsedByGraph_node67" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node67"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-360 385.5,-360 385.5,-336 439.5,-336 439.5,-360"/>
+<text text-anchor="middle" x="412.5" y="-345.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.4,-347.73C368.03,-349.07 346.23,-353.97 334,-369 268.34,-449.66 270.8,-1232.26 271.81,-1375.53"/>
+<polygon fill="#000000" stroke="#000000" points="268.31,-1375.77 271.89,-1385.74 275.31,-1375.72 268.31,-1375.77"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~fraggle_classes~~UsedByGraph_node68" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="469.5,-318 355.5,-318 355.5,-294 469.5,-294 469.5,-318"/>
+<text text-anchor="middle" x="412.5" y="-303.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M355.21,-312.19C347.04,-315.45 339.54,-320.18 334,-327 265.63,-411.2 270.35,-1228.92 271.75,-1375.55"/>
+<polygon fill="#000000" stroke="#000000" points="268.26,-1375.99 271.86,-1385.96 275.26,-1375.92 268.26,-1375.99"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~fraggle_classes~~UsedByGraph_node69" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node69"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-108 377.5,-108 377.5,-84 447.5,-84 447.5,-108"/>
+<text text-anchor="middle" x="412.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~~fraggle_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.2,-96.55C361.58,-98.72 344.31,-104.18 334,-117 292.91,-168.1 274.94,-1210 272.34,-1375.84"/>
+<polygon fill="#000000" stroke="#000000" points="268.84,-1375.81 272.18,-1385.86 275.84,-1375.92 268.84,-1375.81"/>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M270,-138C181.83,-231.99 168.33,-1214.05 166.7,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="163.2,-1375.73 166.6,-1385.76 170.2,-1375.79 163.2,-1375.73"/>
+<path fill="none" stroke="#000000" d="M377.24,-96.99C345.48,-99.8 299.17,-109.04 272,-138"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~fraggle_classes~~UsedByGraph_node70" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-276 385.5,-276 385.5,-252 439.5,-252 439.5,-276"/>
+<text text-anchor="middle" x="412.5" y="-261.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.38,-263.72C368,-265.05 346.2,-269.94 334,-285 298.38,-328.96 276.09,-1221.69 272.51,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="269.01,-1375.58 272.28,-1385.66 276.01,-1375.74 269.01,-1375.58"/>
+</g>
+<!-- module~s_util_sort -->
+<g id="module~~fraggle_classes~~UsedByGraph_node71" class="node">
+<title>module~s_util_sort</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443,-234 382,-234 382,-210 443,-210 443,-234"/>
+<text text-anchor="middle" x="412.5" y="-219.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 -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.94,-222.01C365.2,-223.71 345.39,-228.91 334,-243 297.01,-288.75 275.78,-1218.91 272.46,-1375.67"/>
+<polygon fill="#000000" stroke="#000000" points="268.96,-1375.88 272.24,-1385.95 275.95,-1376.03 268.96,-1375.88"/>
+</g>
+<!-- module~s_util_version -->
+<g id="module~~fraggle_classes~~UsedByGraph_node72" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~fraggle_classes~~UsedByGraph_node72"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="451.5,-192 373.5,-192 373.5,-168 451.5,-168 451.5,-192"/>
+<text text-anchor="middle" x="412.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~fraggle_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.22,-181.19C358.73,-183.72 343.45,-189.28 334,-201 295.64,-248.54 275.48,-1216.35 272.41,-1375.84"/>
+<polygon fill="#000000" stroke="#000000" points="268.91,-1375.84 272.22,-1385.9 275.91,-1375.97 268.91,-1375.84"/>
+</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="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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#variable-fraggle_nmass_dist">FRAGGLE_NMASS_DIST</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#variable-fraggle_log_out">FRAGGLE_LOG_OUT</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#variable-fraggle_log_unit">FRAGGLE_LOG_UNIT</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#inters-1">Interfaces</a></h3></div>
+  <div id="inters-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_vmag_to_vb">fraggle_util_vmag_to_vb</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_generate_fragments">fraggle_generate_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_generate">fraggle_io_log_generate</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_one_message">fraggle_io_log_one_message</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_pl">fraggle_io_log_pl</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_regime">fraggle_io_log_regime</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_io_log_start">fraggle_io_log_start</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_placeholder_accel">fraggle_placeholder_accel</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_placeholder_kick">fraggle_placeholder_kick</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_placeholder_step">fraggle_placeholder_step</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_regime_colliders">fraggle_regime_colliders</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_budgets_fragments">fraggle_set_budgets_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_coordinate_system">fraggle_set_coordinate_system</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_mass_dist_fragments">fraggle_set_mass_dist_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_natural_scale_factors">fraggle_set_natural_scale_factors</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_set_original_scale_factors">fraggle_set_original_scale_factors</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_setup_fragments">fraggle_setup_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_setup_reset_fragments">fraggle_setup_reset_fragments</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_add_fragments_to_system">fraggle_util_add_fragments_to_system</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_ang_mtm">fraggle_util_ang_mtm</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_construct_temporary_system">fraggle_util_construct_temporary_system</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_get_energy_momentum">fraggle_util_get_energy_momentum</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_restructure">fraggle_util_restructure</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#interface-fraggle_util_shift_vector_to_origin">fraggle_util_shift_vector_to_origin</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-1">Derived Types</a></h3></div>
+  <div id="types-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#type-fraggle_colliders">fraggle_colliders</a>
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html#type-fraggle_fragments">fraggle_fragments</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    <section>
+    <h2>Variables</h2>
+    
+<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-fraggle_nmass_dist"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FRAGGLE_NMASS_DIST</strong></td><td> =</td><td>3</td><td><p>Number of mass bins returned by the regime calculation (largest fragment, second largest, and remainder)  </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-fraggle_log_out"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FRAGGLE_LOG_OUT</strong></td><td> =</td><td>"fraggle.log"</td><td><p>Name of log file for Fraggle diagnostic information</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-fraggle_log_unit"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FRAGGLE_LOG_UNIT</strong></td><td> =</td><td>76</td><td><p>Unit number for Fraggle log file</p>
+<hr>
+<div class="codehilite"><pre><span></span><code><span class="err">                                fraggle_colliders class definitions and method interfaces</span>
+</code></pre></div>
+
+
+<hr></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    <section>
+   <h2>Interfaces</h2>
+   
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_util_vmag_to_vb"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb)
+    
+    
+   
+   <a href='../proc/fraggle_util_vmag_to_vb.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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>v_r_mag</strong></td><td><p>Unknown radial component of fragment velocity vector</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>v_r_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</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>v_t_mag</strong></td><td><p>Tangential component of velocity vector set previously by angular momentum constraint</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>v_t_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</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>Fragment masses</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>vcom</strong></td><td><p>Barycentric velocity of collisional system center of mass</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP),
+  dimension(:,:), allocatable</small></h4>
+  
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_generate_fragments"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure)
+    
+    
+   
+   <a href='../proc/fraggle_generate_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object containing the two-body equivalent values of the colliding bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_io_log_generate"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_io_log_generate(frag)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_generate.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_io_log_one_message"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_io_log_one_message(message)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_one_message.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>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_io_log_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_io_log_pl(pl, param)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_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(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object (only the new bodies generated in a collision)</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 swiftest 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-fraggle_io_log_regime"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_io_log_regime(colliders, frag)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_regime.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/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_io_log_start"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_io_log_start(param)
+    
+    
+   
+   <a href='../proc/fraggle_io_log_start.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_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_placeholder_accel"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_accel.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+
+
+
+<p>The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_placeholder_kick"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_kick.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nbody system objec</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current 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>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_placeholder_step"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_placeholder_step(self, system, param, t, dt)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_step.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Helio massive body particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nboody system</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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation 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>dt</strong></td><td><p>Stepsiz</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_regime_colliders"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_regime_colliders(self, frag, system, param)
+    
+    
+   
+   <a href='../proc/fraggle_regime_colliders.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/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle colliders object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</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 Swiftest 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-fraggle_set_budgets_fragments"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_set_budgets_fragments(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_budgets_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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-fraggle_set_coordinate_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_set_coordinate_system(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_coordinate_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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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-fraggle_set_mass_dist_fragments"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_set_mass_dist_fragments(self, colliders, param)
+    
+    
+   
+   <a href='../proc/fraggle_set_mass_dist_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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 Swiftest 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-fraggle_set_natural_scale_factors"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_set_natural_scale_factors(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_natural_scale_factors.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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-fraggle_set_original_scale_factors"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_set_original_scale_factors(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_original_scale_factors.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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-fraggle_setup_fragments"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_setup_fragments(self, n, param)
+    
+    
+   
+   <a href='../proc/fraggle_setup_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</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>n</strong></td><td><p>Number of fragments</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 swiftest 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-fraggle_setup_reset_fragments"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_setup_reset_fragments(self)
+    
+    
+   
+   <a href='../proc/fraggle_setup_reset_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_util_add_fragments_to_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_util_add_fragments_to_system(frag, colliders, system, param)
+    
+    
+   
+   <a href='../proc/fraggle_util_add_fragments_to_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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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 swiftest 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-fraggle_util_ang_mtm"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_util_ang_mtm(self)
+    
+    
+   
+   <a href='../proc/fraggle_util_ang_mtm.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment 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-fraggle_util_construct_temporary_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam)
+    
+    
+   
+   <a href='../proc/fraggle_util_construct_temporary_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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Original 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 swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpsys</strong></td><td><p>Output temporary 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(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpparam</strong></td><td><p>Output temporary configuration run parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_util_get_energy_momentum"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore)
+    
+    
+   
+   <a href='../proc/fraggle_util_get_energy_momentum.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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 swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbefore</strong></td><td><p>Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_util_restructure"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start)
+    
+    
+   
+   <a href='../proc/fraggle_util_restructure.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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>try</strong></td><td><p>The current number of times Fraggle has tried to find a solution</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>f_spin</strong></td><td><p>Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>r_max_start</strong></td><td><p>The maximum radial distance that the position calculation starts with. This increases after a failed attempt</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-fraggle_util_shift_vector_to_origin"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine fraggle_util_shift_vector_to_origin(m_frag, vec_frag)
+    
+    
+   
+   <a href='../proc/fraggle_util_shift_vector_to_origin.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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>m_frag</strong></td><td><p>Fragment masses</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vec_frag</strong></td><td><p>Fragment positions or velocities in the center of mass frame</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+    </section>
+  <br>
+    
+
+    
+    
+    
+    <section>
+     <h2>Derived Types</h2>
+   
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-fraggle_colliders"></span><h3>type, public :: <a href='../type/fraggle_colliders.html'>fraggle_colliders</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>Class definition for the variables that describe the bodies involved in the collision</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-ncoll"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ncoll</strong></td><td></td><td></td><td><p>Number of bodies involved in the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-idx"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>idx</strong></td><td></td><td></td><td><p>Index of bodies involved in the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xb~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>xb</strong></td><td></td><td></td><td><p>Two-body equivalent position vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vb~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>vb</strong></td><td></td><td></td><td><p>Two-body equivalent velocity vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rot~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>rot</strong></td><td></td><td></td><td><p>Two-body equivalent principal axes moments of inertia the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spin"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>L_spin</strong></td><td></td><td></td><td><p>Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orbit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>L_orbit</strong></td><td></td><td></td><td><p>Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>Ip</strong></td><td></td><td></td><td><p>Two-body equivalent principal axes moments of inertia the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mass~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(2)</td><td>::</td>
+  <td><strong>mass</strong></td><td></td><td></td><td><p>Two-body equivalent mass of the collider bodies prior to the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(2)</td><td>::</td>
+  <td><strong>radius</strong></td><td></td><td></td><td><p>Two-body equivalent radii of the collider bodies prior to the collision</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+     
+     
+          
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_colliders.html#boundprocedure-regime'>regime</a></strong>  => fraggle_regime_colliders </td>
+       <td><p>Determine which fragmentation regime the set of colliders will be</p></td></tr>
+      
+       </tbody>
+       </table>
+     
+  </div>
+</div>
+
+     
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-fraggle_fragments"></span><h3>type, public, extends(<a href='../type/swiftest_pl.html'>swiftest_pl</a>) :: <a href='../type/fraggle_fragments.html'>fraggle_fragments</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates</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-lfirst"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lfirst</strong></td><td> =</td><td>.true.</td><td><p>Run the current step as a first</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nbody"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nbody</strong></td><td> =</td><td>0</td><td><p>Number of bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id~2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id</strong></td><td></td><td></td><td><p>External identifier (unique)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>An integrator-specific status indicator </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ldiscard"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>ldiscard</strong></td><td></td><td></td><td><p>Body should be discarded</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lmask"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>lmask</strong></td><td></td><td></td><td><p>Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mu"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>mu</strong></td><td></td><td></td><td><p>G * (Mcb + [m])</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xb~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xb</strong></td><td></td><td></td><td><p>Barycentric position</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vb~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vb</strong></td><td></td><td></td><td><p>Barycentric velocity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ah"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>ah</strong></td><td></td><td></td><td><p>Total heliocentric acceleration</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-aobl~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>aobl</strong></td><td></td><td></td><td><p>Barycentric accelerations of bodies due to central body oblatenes</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-atide~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>atide</strong></td><td></td><td></td><td><p>Tanngential component of acceleration of bodies due to tides</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-agr~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>agr</strong></td><td></td><td></td><td><p>Acceleration due to post-Newtonian correction</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ir3h"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>ir3h</strong></td><td></td><td></td><td><p>Inverse heliocentric radius term (1/rh**3)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-a"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>a</strong></td><td></td><td></td><td><p>Semimajor axis (pericentric distance for a parabolic orbit)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-e"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>e</strong></td><td></td><td></td><td><p>Eccentricity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inc"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inc</strong></td><td></td><td></td><td><p>Inclination</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>capom</strong></td><td></td><td></td><td><p>Longitude of ascending node</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-omega"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>omega</strong></td><td></td><td></td><td><p>Argument of pericenter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capm"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>capm</strong></td><td></td><td></td><td><p>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</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mass~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>mass</strong></td><td></td><td></td><td><p>Body mass (units MU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>Gmass</strong></td><td></td><td></td><td><p>Mass gravitational term G * mass (units GU * MU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rhill"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>rhill</strong></td><td></td><td></td><td><p>Body mass (units MU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>radius</strong></td><td></td><td></td><td><p>Body radius (units DU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xbeg~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xbeg</strong></td><td></td><td></td><td><p>Position at beginning of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xend~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xend</strong></td><td></td><td></td><td><p>Position at end of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vbeg~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vbeg</strong></td><td></td><td></td><td><p>Velocity at beginning of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-density~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>density</strong></td><td></td><td></td><td><p>Body mass density - calculated internally (units MU / DU**3)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>Ip</strong></td><td></td><td></td><td><p>Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rot~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>rot</strong></td><td></td><td></td><td><p>Body rotation vector in inertial coordinate frame (units rad / TU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k2~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>k2</strong></td><td></td><td></td><td><p>Tidal Love number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-q~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>Q</strong></td><td></td><td></td><td><p>Tidal quality factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tlag~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>tlag</strong></td><td></td><td></td><td><p>Tidal phase lag</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_plpl"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_plpl</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nplpl"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nplpl</strong></td><td></td><td></td><td><p>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</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mtot"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>mtot</strong></td><td></td><td></td><td><p>Total mass of fragments       </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-qloss"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Qloss</strong></td><td></td><td></td><td><p>Energy lost during the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mass_dist"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(FRAGGLE_NMASS_DIST)</td><td>::</td>
+  <td><strong>mass_dist</strong></td><td></td><td></td><td><p>Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder)    </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-regime~2"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>regime</strong></td><td></td><td></td><td><p>Collresolve regime code for this collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xbcom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>xbcom</strong></td><td></td><td></td><td><p>Center of mass position vector of the collider system in system barycentric coordinates</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vbcom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>vbcom</strong></td><td></td><td></td><td><p>Velocity vector of the center of mass of the collider system in system barycentric coordinates</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x_coll_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>x_coll_unit</strong></td><td></td><td></td><td><p>x-direction unit vector of collisional system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-y_coll_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>y_coll_unit</strong></td><td></td><td></td><td><p>y-direction unit vector of collisional system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-z_coll_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>z_coll_unit</strong></td><td></td><td></td><td><p>z-direction unit vector of collisional system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x_coll"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>x_coll</strong></td><td></td><td></td><td><p>Array of fragment position vectors in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_coll"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_coll</strong></td><td></td><td></td><td><p>Array of fragment velocity vectors in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_r_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_r_unit</strong></td><td></td><td></td><td><p>Array of radial direction unit vectors of individual fragments in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_t_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_t_unit</strong></td><td></td><td></td><td><p>Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_n_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_n_unit</strong></td><td></td><td></td><td><p>Array of normal direction unit vectors of individual fragments in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rmag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>rmag</strong></td><td></td><td></td><td><p>Array of radial distance magnitudes of individual fragments in the collisional coordinate frame </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rotmag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>rotmag</strong></td><td></td><td></td><td><p>Array of rotation magnitudes of individual fragments </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_r_mag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>v_r_mag</strong></td><td></td><td></td><td><p>Array of radial direction velocity magnitudes of individual fragments </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_t_mag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>v_t_mag</strong></td><td></td><td></td><td><p>Array of tangential direction velocity magnitudes of individual fragments</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orbit~2"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_orbit</strong></td><td></td><td></td><td><p>Current orbital kinetic energy of the system of fragments in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin~2"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_spin</strong></td><td></td><td></td><td><p>Current spin kinetic energy of the system of fragments in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orbit~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>L_orbit</strong></td><td></td><td></td><td><p>Current orbital angular momentum of the system of fragments in the collisional frame  </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spin~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>L_spin</strong></td><td></td><td></td><td><p>Current spin angular momentum of the system of fragments in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_budget"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_budget</strong></td><td></td><td></td><td><p>Total kinetic energy budget for the system of fragmens in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_budget"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>L_budget</strong></td><td></td><td></td><td><p>Total angular momentum budget for the system of fragmens in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lorbit_before"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lorbit_before</strong></td><td></td><td></td><td><p>Before/after orbital angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lorbit_after"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lorbit_after</strong></td><td></td><td></td><td><p>Before/after orbital angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lspin_before"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lspin_before</strong></td><td></td><td></td><td><p>Before/after spin angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lspin_after"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lspin_after</strong></td><td></td><td></td><td><p>Before/after spin angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ltot_before"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot_before</strong></td><td></td><td></td><td><p>Before/after total system angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ltot_after"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot_after</strong></td><td></td><td></td><td><p>Before/after total system angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orbit_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_orbit_before</strong></td><td></td><td></td><td><p>Before/after orbital kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orbit_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_orbit_after</strong></td><td></td><td></td><td><p>Before/after orbital kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_spin_before</strong></td><td></td><td></td><td><p>Before/after spin kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_spin_after</strong></td><td></td><td></td><td><p>Before/after spin kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pe_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>pe_before</strong></td><td></td><td></td><td><p>Before/after potential energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pe_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>pe_after</strong></td><td></td><td></td><td><p>Before/after potential energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-etot_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Etot_before</strong></td><td></td><td></td><td><p>Before/after total system energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-etot_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Etot_after</strong></td><td></td><td></td><td><p>Before/after total system energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td></td><td></td><td><p>Distance dimension scale factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td></td><td></td><td><p>Mass scale factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td></td><td></td><td><p>Time scale factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>vscale</strong></td><td></td><td></td><td><p>Velocity scale factor (a convenience unit that is derived from dscale and tscale)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-escale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Escale</strong></td><td></td><td></td><td><p>Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Lscale</strong></td><td></td><td></td><td><p>Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale)</p></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_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-write_particle_info~10'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
+       <td></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-drift'>drift</a></strong>  => drift_body </td>
+       <td><p>Loop through bodies and call Danby drift routine on heliocentric variables</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
+       <td><p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
+       <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
+       <td><p>Read in body initial conditions from a file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
+       <td><p>Convert orbital elements to position and velocity vectors</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-xv2el'>xv2el</a></strong>  => orbel_xv2el_vec </td>
+       <td><p>Convert position and velocity vectors to orbital  elements </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_user'>accel_user</a></strong>  => user_kick_getacch_body </td>
+       <td><p>Add user-supplied heliocentric accelerations to planets</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
+       <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-write_frame~11'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-discard~3'>discard</a></strong>  => discard_pl </td>
+       <td><p>Placeholder method for discarding massive bodies </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-index~2'>index</a></strong>  => util_index_eucl_plpl </td>
+       <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
+       <td><p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_obl~2'>accel_obl</a></strong>  => obl_acc_pl </td>
+       <td><p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_tides'>accel_tides</a></strong>  => tides_kick_getacch_pl </td>
+       <td><p>Compute the accelerations of bodies due to tidal interactions with the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-append~3'>append</a></strong>  => util_append_pl </td>
+       <td><p>Appends elements from one structure to another</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-h2b~2'>h2b</a></strong>  => util_coord_h2b_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-fill~3'>fill</a></strong>  => util_fill_pl </td>
+       <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-resize~3'>resize</a></strong>  => util_resize_pl </td>
+       <td><p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_beg_end'>set_beg_end</a></strong>  => util_set_beg_end_pl </td>
+       <td><p>Sets the beginning and ending positions and velocities of planets.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_mu~3'>set_mu</a></strong>  => util_set_mu_pl </td>
+       <td><p>Method used to construct the vectorized form of the central body mass</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_rhill'>set_rhill</a></strong>  => util_set_rhill </td>
+       <td><p>Calculates the Hill's radii for each body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-sort~3'>sort</a></strong>  => util_sort_pl </td>
+       <td><p>Sorts body arrays by a sortable component</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-rearrange~3'>rearrange</a></strong>  => util_sort_rearrange_pl </td>
+       <td><p>Rearranges the order of array elements of body based on an input index array. Used in sorting methods</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-spill~3'>spill</a></strong>  => util_spill_pl </td>
+       <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-generate_fragments'>generate_fragments</a></strong>  => fraggle_generate_fragments </td>
+       <td><p>Generates a system of fragments in barycentric coordinates that conserves energy and momentum.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-accel~6'>accel</a></strong>  => fraggle_placeholder_accel </td>
+       <td><p>Placeholder subroutine to fulfill requirement for an accel method</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-kick~5'>kick</a></strong>  => fraggle_placeholder_kick </td>
+       <td><p>Placeholder subroutine to fulfill requirement for a kick method</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-step~8'>step</a></strong>  => fraggle_placeholder_step </td>
+       <td><p>Placeholder subroutine to fulfill requirement for a step method</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-set_budgets'>set_budgets</a></strong>  => fraggle_set_budgets_fragments </td>
+       <td><p>Sets the energy and momentum budgets of the fragments based on the collider value</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-set_coordinate_system'>set_coordinate_system</a></strong>  => fraggle_set_coordinate_system </td>
+       <td><p>Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-set_mass_dist'>set_mass_dist</a></strong>  => fraggle_set_mass_dist_fragments </td>
+       <td><p>Sets the distribution of mass among the fragments depending on the regime type</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-set_natural_scale'>set_natural_scale</a></strong>  => fraggle_set_natural_scale_factors </td>
+       <td><p>Scales dimenional quantities to ~O(1) with respect to the collisional system.  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-set_original_scale'>set_original_scale</a></strong>  => fraggle_set_original_scale_factors </td>
+       <td><p>Restores dimenional quantities back to the original system units</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-setup~6'>setup</a></strong>  => fraggle_setup_fragments </td>
+       <td><p>Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-reset~2'>reset</a></strong>  => fraggle_setup_reset_fragments </td>
+       <td><p>Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-get_ang_mtm'>get_ang_mtm</a></strong>  => fraggle_util_ang_mtm </td>
+       <td><p>Calcualtes the current angular momentum of the fragments</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-get_energy_and_momentum~2'>get_energy_and_momentum</a></strong>  => fraggle_util_get_energy_momentum </td>
+       <td><p>Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/fraggle_fragments.html#boundprocedure-restructure'>restructure</a></strong>  => fraggle_util_restructure </td>
+       <td><p>Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints</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/helio_classes.html b/docs/module/helio_classes.html
index 419753e49..ddd58796e 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.4% of total for modules and submodules.">192 statements</a>
+    title=" 1.1% of total for modules and submodules.">173 statements</a>
      </li> 
      
      
@@ -186,14 +186,6 @@ <h3>Contents</h3>
   <div id="inters-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vb2vh_pl">helio_coord_vb2vh_pl</a>
-      
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vb2vh_tp">helio_coord_vb2vh_tp</a>
-      
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vh2vb_pl">helio_coord_vh2vb_pl</a>
-      
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vh2vb_tp">helio_coord_vh2vb_tp</a>
-      
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_drift_body">helio_drift_body</a>
       
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_drift_pl">helio_drift_pl</a>
@@ -220,6 +212,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_kick_vb_tp">helio_kick_vb_tp</a>
       
+      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_setup_initialize_system">helio_setup_initialize_system</a>
+      
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_step_pl">helio_step_pl</a>
       
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_step_system">helio_step_system</a>
@@ -267,7 +261,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <p>Definition of classes and methods specific to the Democratic Heliocentric Method
- Adapted from David E. Kaufmann's Swifter routine: helio.f90</p>
+ Adapted from David E. Kaufmann's Swifter routine: module_helio.f90</p>
 <hr>
 <p>helio_nbody_system class definitions and method interfaces</p>
 <hr>
@@ -354,7 +348,7 @@ <h3 class="panel-title">Uses</h3>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~helio_classes~~UsesGraph_edge3" class="edge">
+<g id="module~~helio_classes~~UsesGraph_edge2" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
 <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"/>
@@ -370,7 +364,7 @@ <h3 class="panel-title">Uses</h3>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~helio_classes~~UsesGraph_edge2" class="edge">
+<g id="module~~helio_classes~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
 <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"/>
@@ -486,14 +480,14 @@ <h3 class="panel-title">Used by</h3>
     <ul class="list-inline">
       <li><h5>Descendants:</h5></li>
       
-      <li><a href='../module/s_helio_coord.html'>s_helio_coord</a></li>
-      
       <li><a href='../module/s_helio_drift.html'>s_helio_drift</a></li>
       
       <li><a href='../module/s_helio_gr.html'>s_helio_gr</a></li>
       
       <li><a href='../module/s_helio_kick.html'>s_helio_kick</a></li>
       
+      <li><a href='../module/s_helio_setup.html'>s_helio_setup</a></li>
+      
       <li><a href='../module/s_helio_step.html'>s_helio_step</a></li>
       
     </ul>
@@ -507,1048 +501,1162 @@ <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="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)">
+<svg id="modulehelio_classesUsedByGraph" width="488pt" height="2888pt"
+ viewBox="0.00 0.00 488.00 2888.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 2884)">
 <title>module~~helio_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 484,-2548 484,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 484,-2884 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,-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>
+<polygon fill="none" stroke="black" points="76,-2060 0,-2060 0,-2036 76,-2036 76,-2060"/>
+<text text-anchor="middle" x="38" y="-2045.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes</text>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_helio_setup -->
 <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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2880 362,-2880 362,-2856 441,-2856 441,-2880"/>
+<text text-anchor="middle" x="401.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
+<!-- module~s_helio_setup&#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"/>
+<title>module~s_helio_setup&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M361.71,-2863.97C348.32,-2860.99 333.95,-2855.86 323,-2847 255,-2791.99 266.11,-2752.95 233,-2672 139.48,-2443.34 64.69,-2152.19 44.43,-2070.31"/>
+<polygon fill="#000000" stroke="#000000" points="47.73,-2069.04 41.94,-2060.17 40.93,-2070.72 47.73,-2069.04"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_node7" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="287,-1431 233,-1431 233,-1407 287,-1407 287,-1431"/>
+<text text-anchor="middle" x="260" y="-1416.6" 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~~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"/>
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.77,-2866.78C347.39,-2864.23 332.32,-2858.65 323,-2847 277.16,-2789.7 263.1,-1618.98 261.23,-1441.47"/>
+<polygon fill="#000000" stroke="#000000" points="264.72,-1441.2 261.12,-1431.24 257.72,-1441.27 264.72,-1441.2"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_helio_step -->
 <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>
+<title>module~s_helio_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-150 365,-150 365,-126 438,-126 438,-150"/>
+<text text-anchor="middle" x="401.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
+<!-- module~s_helio_step&#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"/>
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M364.87,-128.84C351.67,-125.32 336.6,-121.14 323,-117 295.17,-108.52 290.01,-93.86 261,-96"/>
 </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"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.61,-138.79C349.42,-141.1 332.96,-146.62 323,-159 282.64,-209.14 264.12,-1229.92 261.37,-1396.2"/>
+<polygon fill="#000000" stroke="#000000" points="257.86,-1396.61 261.19,-1406.67 264.86,-1396.72 257.86,-1396.61"/>
 </g>
 <!-- module~s_helio_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node4" class="node">
 <title>module~s_helio_kick</title>
 <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>
+<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_helio_kick</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
 <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.39,-2448C338.15,-2448 296.96,-2448 261,-2448"/>
+<path fill="none" stroke="#000000" d="M366.34,-94.6C338.06,-93.78 296.87,-93.35 261,-96"/>
 </g>
 <!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge41" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge23" class="edge">
 <title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.2,-96.55C350.57,-98.71 333.3,-104.18 323,-117 281.26,-168.95 263.84,-1227.92 261.32,-1396.48"/>
+<polygon fill="#000000" stroke="#000000" points="257.82,-1396.61 261.17,-1406.66 264.82,-1396.71 257.82,-1396.61"/>
 </g>
 <!-- module~s_helio_gr -->
 <g id="module~~helio_classes~~UsedByGraph_node5" class="node">
 <title>module~s_helio_gr</title>
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-66 370.5,-66 370.5,-42 432.5,-42 432.5,-66"/>
+<text text-anchor="middle" x="401.5" y="-51.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_edge6" class="edge">
 <title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M370.2,-61.75C355.83,-65.54 338.47,-70.29 323,-75 295.17,-83.48 290.01,-93.86 261,-96"/>
 </g>
 <!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge53" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge26" class="edge">
 <title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.12,-54.06C353.54,-55.83 334.17,-61.08 323,-75 279.89,-128.74 263.58,-1225.13 261.29,-1396.55"/>
+<polygon fill="#000000" stroke="#000000" points="257.79,-1396.63 261.15,-1406.68 264.79,-1396.72 257.79,-1396.63"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_helio_drift -->
 <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,-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>
+<title>module~s_helio_drift</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node6"><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>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
 <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="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"/>
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M259,-96C213.12,-99.39 201.44,-93.73 155.5,-96"/>
+<path fill="none" stroke="#000000" d="M153.5,-96C51.9,-101.01 40.18,-1808.13 39.1,-2025.36"/>
+<polygon fill="#000000" stroke="#000000" points="35.6,-2025.55 39.05,-2035.57 42.6,-2025.59 35.6,-2025.55"/>
+<path fill="none" stroke="#000000" d="M366.16,-17.24C352.11,-20.39 336.12,-25.33 323,-33 289.08,-52.83 300.18,-93.11 261,-96"/>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.18,-12.54C350.55,-14.7 333.28,-20.16 323,-33 278.51,-88.53 263.33,-1222.55 261.25,-1396.65"/>
+<polygon fill="#000000" stroke="#000000" points="257.75,-1396.67 261.14,-1406.71 264.75,-1396.75 257.75,-1396.67"/>
 </g>
 <!-- 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.71,-1406.71C255.48,-1272.99 224.96,-92.57 155.5,-96"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~helio_classes~~UsedByGraph_node8" class="node">
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="197,-2060 112,-2060 112,-2036 197,-2036 197,-2060"/>
+<text text-anchor="middle" x="154.5" y="-2045.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~~helio_classes~~UsedByGraph_edge69" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge77" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.02,-1431C244.47,-1507.29 175.81,-1924.57 159.15,-2025.85"/>
+<polygon fill="#000000" stroke="#000000" points="155.67,-2025.43 157.5,-2035.87 162.57,-2026.57 155.67,-2025.43"/>
 </g>
 <!-- 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.84,-2048C103.57,-2048 94.82,-2048 86.37,-2048"/>
+<polygon fill="#000000" stroke="#000000" points="86.27,-2044.5 76.27,-2048 86.27,-2051.5 86.27,-2044.5"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_symba_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node9" class="node">
-<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>
+<title>module~s_symba_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2586 362,-2586 362,-2562 441,-2562 441,-2586"/>
+<text text-anchor="middle" x="401.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge8" class="edge">
-<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"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.84,-2572.72C347.46,-2570.17 332.38,-2564.59 323,-2553 286.7,-2508.14 264.94,-1596.73 261.48,-1441.41"/>
+<polygon fill="#000000" stroke="#000000" points="264.98,-1441.12 261.26,-1431.2 257.98,-1441.27 264.98,-1441.12"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M361.85,-2580.25C348.92,-2583.41 334.79,-2588.11 323,-2595 289.08,-2614.83 291.05,-2683.3 261,-2658"/>
+</g>
+<!-- module~s_symba_drift -->
 <g id="module~~helio_classes~~UsedByGraph_node10" class="node">
-<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>
+<title>module~s_symba_drift</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<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_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge9" class="edge">
-<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"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge11" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.85,-2530.71C347.48,-2528.15 332.4,-2522.58 323,-2511 288.06,-2467.92 265.25,-1593.73 261.54,-1441.51"/>
+<polygon fill="#000000" stroke="#000000" points="265.03,-1441.02 261.28,-1431.11 258.03,-1441.19 265.03,-1441.02"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M361.99,-2536.39C348.63,-2539.4 334.2,-2544.47 323,-2553 279.89,-2585.84 302.46,-2692.9 261,-2658"/>
+</g>
+<!-- module~s_util_exit -->
 <g id="module~~helio_classes~~UsedByGraph_node11" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-2418 371.5,-2418 371.5,-2394 431.5,-2394 431.5,-2418"/>
+<text text-anchor="middle" x="401.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge9" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.38,-2405.98C354.58,-2404.31 334.56,-2399.14 323,-2385 261.39,-2309.61 260.52,-1579.15 260.9,-1441.36"/>
+<polygon fill="#000000" stroke="#000000" points="264.41,-1441.18 260.94,-1431.17 257.41,-1441.16 264.41,-1441.18"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- proc~ge_wpp -->
 <g id="module~~helio_classes~~UsedByGraph_node12" class="node">
-<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>
+<title>proc~ge_wpp</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node12"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="428.5,-2376 374.5,-2376 374.5,-2352 428.5,-2352 428.5,-2376"/>
+<text text-anchor="middle" x="401.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- proc~ge_wpp&#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_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"/>
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.43,-2364.24C357.08,-2362.89 335.28,-2357.99 323,-2343 264.14,-2271.18 261.02,-1576.53 260.97,-1441.63"/>
+<polygon fill="#000000" stroke="#000000" points="264.47,-1441.29 260.98,-1431.29 257.47,-1441.29 264.47,-1441.29"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_whm_util -->
 <g id="module~~helio_classes~~UsedByGraph_node13" class="node">
-<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>
+<title>module~s_whm_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="434.5,-2334 368.5,-2334 368.5,-2310 434.5,-2310 434.5,-2334"/>
+<text text-anchor="middle" x="401.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_whm_util&#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"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.3,-2321.61C352.21,-2319.61 333.89,-2314.24 323,-2301 266.81,-2232.66 261.54,-1572.11 261.05,-1441.41"/>
+<polygon fill="#000000" stroke="#000000" points="264.55,-1441.04 261.02,-1431.05 257.55,-1441.06 264.55,-1441.04"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_netcdf -->
 <g id="module~~helio_classes~~UsedByGraph_node14" class="node">
-<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>
+<title>module~s_netcdf</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-2292 374.5,-2292 374.5,-2268 428.5,-2268 428.5,-2292"/>
+<text text-anchor="middle" x="401.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.46,-2280.22C357.12,-2278.85 335.33,-2273.95 323,-2259 269.47,-2194.13 262.08,-1567.48 261.13,-1441.13"/>
+<polygon fill="#000000" stroke="#000000" points="264.63,-1441.07 261.06,-1431.09 257.63,-1441.11 264.63,-1441.07"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_util_solve -->
 <g id="module~~helio_classes~~UsedByGraph_node15" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-2250 367.5,-2250 367.5,-2226 435.5,-2226 435.5,-2250"/>
+<text text-anchor="middle" x="401.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#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"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.16,-2237.42C351.37,-2235.3 333.67,-2229.88 323,-2217 272.17,-2155.65 262.65,-1563.77 261.22,-1441.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.72,-1441.04 261.11,-1431.08 257.72,-1441.12 264.72,-1441.04"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_whm_setup -->
 <g id="module~~helio_classes~~UsedByGraph_node16" class="node">
-<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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2208 362,-2208 362,-2184 441,-2184 441,-2208"/>
+<text text-anchor="middle" x="401.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<!-- module~s_whm_setup&#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"/>
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362,-2194.59C347.64,-2192.02 332.54,-2186.47 323,-2175 274.86,-2117.14 263.25,-1559.66 261.32,-1441.1"/>
+<polygon fill="#000000" stroke="#000000" points="264.82,-1440.97 261.17,-1431.03 257.82,-1441.08 264.82,-1440.97"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_rmvs_step -->
 <g id="module~~helio_classes~~UsedByGraph_node17" class="node">
-<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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-2166 365,-2166 365,-2142 438,-2142 438,-2166"/>
+<text text-anchor="middle" x="401.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.83,-2153.04C349.68,-2150.69 333.19,-2145.19 323,-2133 277.57,-2078.67 263.91,-1556.27 261.44,-1441.3"/>
+<polygon fill="#000000" stroke="#000000" points="264.94,-1441.13 261.23,-1431.21 257.94,-1441.28 264.94,-1441.13"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_io -->
 <g id="module~~helio_classes~~UsedByGraph_node18" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-2124 374.5,-2124 374.5,-2100 428.5,-2100 428.5,-2124"/>
+<text text-anchor="middle" x="401.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<!-- module~s_io&#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"/>
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.17,-2112.11C356.93,-2110.68 335.38,-2105.72 323,-2091 280.26,-2040.17 264.59,-1552.27 261.57,-1441.36"/>
+<polygon fill="#000000" stroke="#000000" points="265.06,-1440.94 261.3,-1431.03 258.06,-1441.12 265.06,-1440.94"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_symba_collision -->
 <g id="module~~helio_classes~~UsedByGraph_node19" class="node">
-<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>
+<title>module~s_symba_collision</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="451,-2502 352,-2502 352,-2478 451,-2478 451,-2502"/>
+<text text-anchor="middle" x="401.5" y="-2487.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~~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"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge21" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M351.75,-2486.38C340.75,-2483.21 330.21,-2477.87 323,-2469 255.99,-2386.57 259.57,-1586.44 260.78,-1441.47"/>
+<polygon fill="#000000" stroke="#000000" points="264.28,-1441.19 260.87,-1431.16 257.28,-1441.12 264.28,-1441.19"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M351.67,-2496.08C341.31,-2499.22 331.08,-2503.94 323,-2511 269.61,-2557.66 315.24,-2703.67 261,-2658"/>
+<path fill="none" stroke="#000000" d="M259,-2658C166.92,-2580.48 156.74,-2171.19 155.63,-2070.43"/>
+<polygon fill="#000000" stroke="#000000" points="159.13,-2070.16 155.54,-2060.19 152.13,-2070.22 159.13,-2070.16"/>
+</g>
+<!-- module~orbel -->
 <g id="module~~helio_classes~~UsedByGraph_node20" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node20"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="428.5,-2082 374.5,-2082 374.5,-2058 428.5,-2058 428.5,-2082"/>
+<text text-anchor="middle" x="401.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<!-- module~orbel&#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"/>
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.2,-2070.09C356.97,-2068.64 335.42,-2063.69 323,-2049 282.94,-2001.64 265.32,-1547.8 261.71,-1441.29"/>
+<polygon fill="#000000" stroke="#000000" points="265.2,-1440.95 261.37,-1431.07 258.21,-1441.18 265.2,-1440.95"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_symba_util -->
 <g id="module~~helio_classes~~UsedByGraph_node21" class="node">
-<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>
+<title>module~s_symba_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-2838 364,-2838 364,-2814 439,-2814 439,-2838"/>
+<text text-anchor="middle" x="401.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#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"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.79,-2825.11C348.82,-2822.73 332.76,-2817.18 323,-2805 278.51,-2749.47 263.33,-1615.45 261.25,-1441.35"/>
+<polygon fill="#000000" stroke="#000000" points="264.75,-1441.25 261.14,-1431.29 257.75,-1441.33 264.75,-1441.25"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge83" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M363.71,-2822.91C349.61,-2820.09 334.23,-2814.81 323,-2805 269.61,-2758.34 315.24,-2703.67 261,-2658"/>
+</g>
+<!-- module~s_symba_encounter_check -->
 <g id="module~~helio_classes~~UsedByGraph_node22" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="473,-2796 330,-2796 330,-2772 473,-2772 473,-2796"/>
+<text text-anchor="middle" x="401.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.74,-2771.89C329.1,-2769.42 325.79,-2766.48 323,-2763 279.89,-2709.26 263.58,-1612.87 261.29,-1441.45"/>
+<polygon fill="#000000" stroke="#000000" points="264.79,-1441.28 261.15,-1431.32 257.79,-1441.37 264.79,-1441.28"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M338.34,-2771.95C332.87,-2769.5 327.66,-2766.55 323,-2763 279.89,-2730.16 302.46,-2692.9 261,-2658"/>
+</g>
+<!-- module~s_rmvs_chk -->
 <g id="module~~helio_classes~~UsedByGraph_node23" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2040 366.5,-2040 366.5,-2016 436.5,-2016 436.5,-2040"/>
+<text text-anchor="middle" x="401.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.12,-2027.13C350.67,-2024.87 333.58,-2019.42 323,-2007 285.58,-1963.08 266.07,-1542.8 261.87,-1441.09"/>
+<polygon fill="#000000" stroke="#000000" points="265.36,-1440.88 261.46,-1431.03 258.37,-1441.16 265.36,-1440.88"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_symba_step -->
 <g id="module~~helio_classes~~UsedByGraph_node24" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442.5,-2754 360.5,-2754 360.5,-2730 442.5,-2730 442.5,-2754"/>
+<text text-anchor="middle" x="401.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.18,-2740.46C346.3,-2737.78 331.99,-2732.19 323,-2721 281.26,-2669.05 263.84,-1610.08 261.32,-1441.52"/>
+<polygon fill="#000000" stroke="#000000" points="264.82,-1441.29 261.17,-1431.34 257.82,-1441.39 264.82,-1441.29"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge85" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M360.26,-2735.36C347.77,-2732.2 334.31,-2727.61 323,-2721 289.08,-2701.17 291.05,-2683.3 261,-2658"/>
+</g>
+<!-- module~s_whm_step -->
 <g id="module~~helio_classes~~UsedByGraph_node25" class="node">
-<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>
+<title>module~s_whm_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-1998 365,-1998 365,-1974 438,-1974 438,-1998"/>
+<text text-anchor="middle" x="401.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.98,-1984.91C349.86,-1982.54 333.35,-1977.06 323,-1965 288.32,-1924.62 266.99,-1539.73 262.09,-1441.65"/>
+<polygon fill="#000000" stroke="#000000" points="265.57,-1441.21 261.58,-1431.39 258.58,-1441.55 265.57,-1441.21"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_symba_discard -->
 <g id="module~~helio_classes~~UsedByGraph_node26" class="node">
-<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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-2712 353.5,-2712 353.5,-2688 449.5,-2688 449.5,-2712"/>
+<text text-anchor="middle" x="401.5" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.31,-2696.87C341.73,-2693.77 330.52,-2688.34 323,-2679 282.64,-2628.86 264.12,-1608.08 261.37,-1441.8"/>
+<polygon fill="#000000" stroke="#000000" points="264.86,-1441.28 261.19,-1431.33 257.86,-1441.39 264.86,-1441.28"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M353.32,-2695.35C323.93,-2690.31 286.93,-2679.83 261,-2658"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~helio_classes~~UsedByGraph_node27" class="node">
-<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>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-1956 357.5,-1956 357.5,-1932 445.5,-1932 445.5,-1956"/>
+<text text-anchor="middle" x="401.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.39,-1941.4C344.58,-1938.48 331.68,-1933.01 323,-1923 259.37,-1849.62 259.34,-1529.18 260.57,-1441.34"/>
+<polygon fill="#000000" stroke="#000000" points="264.07,-1441.22 260.73,-1431.17 257.07,-1441.11 264.07,-1441.22"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~whm_drift -->
 <g id="module~~helio_classes~~UsedByGraph_node28" class="node">
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node28"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431,-1914 372,-1914 372,-1890 431,-1890 431,-1914"/>
+<text text-anchor="middle" x="401.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge29" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.72,-1901.69C355.05,-1899.91 335.04,-1894.73 323,-1881 264.6,-1814.39 260.74,-1523.8 260.85,-1441.06"/>
+<polygon fill="#000000" stroke="#000000" points="264.35,-1441.02 260.89,-1431.01 257.35,-1441 264.35,-1441.02"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_rmvs_util -->
 <g id="module~~helio_classes~~UsedByGraph_node29" class="node">
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435,-1872 368,-1872 368,-1848 435,-1848 435,-1872"/>
+<text text-anchor="middle" x="401.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.92,-1859.16C352.13,-1856.99 334.2,-1851.61 323,-1839 269.93,-1779.26 262.28,-1519.4 261.18,-1441.29"/>
+<polygon fill="#000000" stroke="#000000" points="264.68,-1441.09 261.06,-1431.13 257.68,-1441.17 264.68,-1441.09"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_fraggle_io -->
 <g id="module~~helio_classes~~UsedByGraph_node30" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437,-1830 366,-1830 366,-1806 437,-1806 437,-1830"/>
+<text text-anchor="middle" x="401.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.64,-1816.73C350.47,-1814.35 333.74,-1808.9 323,-1797 275.2,-1744.05 263.97,-1514.41 261.59,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="265.08,-1440.95 261.28,-1431.06 258.08,-1441.16 265.08,-1440.95"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_util_append -->
 <g id="module~~helio_classes~~UsedByGraph_node31" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-1788 362,-1788 362,-1764 441,-1764 441,-1788"/>
+<text text-anchor="middle" x="401.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge32" class="edge">
-<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_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"/>
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.77,-1773.94C347.74,-1771.23 332.92,-1765.77 323,-1755 280.45,-1708.81 265.87,-1509.15 262.1,-1441.51"/>
+<polygon fill="#000000" stroke="#000000" points="265.58,-1440.95 261.55,-1431.15 258.59,-1441.32 265.58,-1440.95"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node32" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437,-1746 366,-1746 366,-1722 437,-1722 437,-1746"/>
+<text text-anchor="middle" x="401.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.89,-1732.51C350.77,-1730.07 334.01,-1724.65 323,-1713 285.65,-1673.47 268.01,-1503.28 262.75,-1441.51"/>
+<polygon fill="#000000" stroke="#000000" points="266.22,-1440.97 261.91,-1431.29 259.24,-1441.54 266.22,-1440.97"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_util_fill -->
 <g id="module~~helio_classes~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<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_util_fill</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.48,-1691.46C357.6,-1689.71 336.35,-1684.66 323,-1671 290.75,-1637.98 270.41,-1496.4 263.57,-1441.18"/>
+<polygon fill="#000000" stroke="#000000" points="267.02,-1440.57 262.35,-1431.06 260.07,-1441.41 267.02,-1440.57"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_rmvs_io -->
 <g id="module~~helio_classes~~UsedByGraph_node34" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-1662 371,-1662 371,-1638 432,-1638 432,-1662"/>
+<text text-anchor="middle" x="401.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.94,-1648.81C354.83,-1646.64 335.66,-1641.38 323,-1629 270.48,-1577.65 261.92,-1484.17 260.88,-1441.42"/>
+<polygon fill="#000000" stroke="#000000" points="264.38,-1441.2 260.76,-1431.24 257.38,-1441.28 264.38,-1441.2"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_fraggle_placeholder -->
 <g id="module~~helio_classes~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="460.5,-1620 342.5,-1620 342.5,-1596 460.5,-1596 460.5,-1620"/>
+<text text-anchor="middle" x="401.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.26,-1598.9C335.21,-1595.95 328.55,-1592.08 323,-1587 280.38,-1548.01 266.97,-1477.14 262.82,-1441.19"/>
+<polygon fill="#000000" stroke="#000000" points="266.3,-1440.82 261.8,-1431.22 259.33,-1441.53 266.3,-1440.82"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~helio_classes~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-1578 362,-1578 362,-1554 441,-1554 441,-1578"/>
+<text text-anchor="middle" x="401.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.62,-1562.07C348.22,-1559.11 333.87,-1553.95 323,-1545 290.13,-1517.92 273.25,-1469.13 265.84,-1440.87"/>
+<polygon fill="#000000" stroke="#000000" points="269.24,-1440.01 263.45,-1431.13 262.44,-1441.67 269.24,-1440.01"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_whm_gr -->
 <g id="module~~helio_classes~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-1536 370.5,-1536 370.5,-1512 432.5,-1512 432.5,-1536"/>
+<text text-anchor="middle" x="401.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.19,-1520.58C355,-1517.73 336.92,-1512.52 323,-1503 299.58,-1486.98 281.62,-1459.14 271.2,-1439.93"/>
+<polygon fill="#000000" stroke="#000000" points="274.29,-1438.29 266.57,-1431.03 268.08,-1441.52 274.29,-1438.29"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~helio_classes~~UsedByGraph_node38" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-1494 352.5,-1494 352.5,-1470 450.5,-1470 450.5,-1494"/>
+<text text-anchor="middle" x="401.5" y="-1479.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 -->
-<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"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge39" 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,-1471.65C342.53,-1468.77 332.25,-1465.24 323,-1461 309.25,-1454.69 295.19,-1445.45 283.95,-1437.23"/>
+<polygon fill="#000000" stroke="#000000" points="286.04,-1434.43 275.95,-1431.22 281.84,-1440.02 286.04,-1434.43"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_obl -->
 <g id="module~~helio_classes~~UsedByGraph_node39" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<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_obl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.26,-1436.05C352.54,-1432.78 321.43,-1428.1 297.32,-1424.47"/>
+<polygon fill="#000000" stroke="#000000" points="297.53,-1420.96 287.12,-1422.93 296.49,-1427.88 297.53,-1420.96"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_discard -->
 <g id="module~~helio_classes~~UsedByGraph_node40" class="node">
-<title>module~s_util_fill</title>
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="430.5,-1410 372.5,-1410 372.5,-1386 430.5,-1386 430.5,-1410"/>
+<text text-anchor="middle" x="401.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.27,-1402.25C350.63,-1405.51 320.61,-1410.03 297.21,-1413.55"/>
+<polygon fill="#000000" stroke="#000000" points="296.67,-1410.09 287.3,-1415.04 297.71,-1417.01 296.67,-1410.09"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_util_resize -->
 <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>
+<title>module~s_util_resize</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1368 365.5,-1368 365.5,-1344 437.5,-1344 437.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_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<!-- module~s_util_resize&#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_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"/>
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.3,-1362.93C351.73,-1366.27 336.3,-1370.9 323,-1377 309.25,-1383.31 295.19,-1392.55 283.95,-1400.77"/>
+<polygon fill="#000000" stroke="#000000" points="281.84,-1397.98 275.95,-1406.78 286.04,-1403.57 281.84,-1397.98"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~drift_implementation -->
 <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>
+<title>module~drift_implementation</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node42"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="456,-1326 347,-1326 347,-1302 456,-1302 456,-1326"/>
+<text text-anchor="middle" x="401.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#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>
-<!-- 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"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.73,-1323.5C338.36,-1326.37 330.13,-1330.12 323,-1335 299.58,-1351.02 281.62,-1378.86 271.2,-1398.07"/>
+<polygon fill="#000000" stroke="#000000" points="268.08,-1396.48 266.57,-1406.97 274.29,-1399.71 268.08,-1396.48"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_fraggle_generate -->
 <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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="454.5,-1284 348.5,-1284 348.5,-1260 454.5,-1260 454.5,-1284"/>
+<text text-anchor="middle" x="401.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_generate&#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_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"/>
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.34,-1279.59C339.21,-1282.67 330.32,-1286.97 323,-1293 290.13,-1320.08 273.25,-1368.87 265.84,-1397.13"/>
+<polygon fill="#000000" stroke="#000000" points="262.44,-1396.33 263.45,-1406.87 269.24,-1397.99 262.44,-1396.33"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_operator_cross -->
 <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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-1242 353.5,-1242 353.5,-1218 449.5,-1218 449.5,-1242"/>
+<text text-anchor="middle" x="401.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~s_operator_cross&#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"/>
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.45,-1235.22C342.42,-1238.36 331.43,-1243.28 323,-1251 280.38,-1289.99 266.97,-1360.86 262.82,-1396.81"/>
+<polygon fill="#000000" stroke="#000000" points="259.33,-1396.47 261.8,-1406.78 266.3,-1397.18 259.33,-1396.47"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_symba_setup -->
 <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>
+<title>module~s_symba_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-2670 357.5,-2670 357.5,-2646 445.5,-2646 445.5,-2670"/>
+<text text-anchor="middle" x="401.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<!-- module~s_symba_setup&#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"/>
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.36,-2655.85C344.4,-2652.98 331.4,-2647.42 323,-2637 283.99,-2588.61 264.37,-1603.83 261.4,-1441.55"/>
+<polygon fill="#000000" stroke="#000000" points="264.9,-1441.24 261.21,-1431.31 257.9,-1441.37 264.9,-1441.24"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M362.85,-2670.03C331.91,-2677.38 288.79,-2681.4 261,-2658"/>
+</g>
+<!-- proc~solve_wbs -->
 <g id="module~~helio_classes~~UsedByGraph_node46" class="node">
-<title>module~s_symba_io</title>
-<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>
+<title>proc~solve_wbs</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node46"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="432.5,-1200 370.5,-1200 370.5,-1176 432.5,-1176 432.5,-1200"/>
+<text text-anchor="middle" x="401.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
 <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.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_edge70" class="edge">
-<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<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"/>
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.18,-1189.3C354.23,-1191.53 335.46,-1196.82 323,-1209 270.48,-1260.35 261.92,-1353.83 260.88,-1396.58"/>
+<polygon fill="#000000" stroke="#000000" points="257.38,-1396.72 260.76,-1406.76 264.38,-1396.8 257.38,-1396.72"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_fraggle_setup -->
 <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>
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446,-1158 357,-1158 357,-1134 446,-1134 446,-1158"/>
+<text text-anchor="middle" x="401.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_setup&#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"/>
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M356.87,-1149.52C344.49,-1152.53 331.96,-1157.83 323,-1167 290.75,-1200.02 270.41,-1341.6 263.57,-1396.82"/>
+<polygon fill="#000000" stroke="#000000" points="260.07,-1396.59 262.35,-1406.94 267.02,-1397.43 260.07,-1396.59"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_util_sort -->
 <g id="module~~helio_classes~~UsedByGraph_node48" class="node">
-<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>
+<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,-1116 371,-1116 371,-1092 432,-1092 432,-1116"/>
+<text text-anchor="middle" x="401.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.94,-1104.77C354.63,-1106.78 335.25,-1112.03 323,-1125 285.65,-1164.53 268.01,-1334.72 262.75,-1396.49"/>
+<polygon fill="#000000" stroke="#000000" points="259.24,-1396.46 261.91,-1406.71 266.22,-1397.03 259.24,-1396.46"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- program~swiftest_driver -->
 <g id="module~~helio_classes~~UsedByGraph_node49" class="node">
-<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>
+<title>program~swiftest_driver</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node49"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="442,-1074 361,-1074 361,-1050 442,-1050 442,-1074"/>
+<text text-anchor="middle" x="401.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge49" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.97,-1064.22C347.17,-1066.98 332.73,-1072.44 323,-1083 280.45,-1129.19 265.87,-1328.85 262.1,-1396.49"/>
+<polygon fill="#000000" stroke="#000000" points="258.59,-1396.68 261.55,-1406.85 265.58,-1397.05 258.59,-1396.68"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_gr -->
 <g id="module~~helio_classes~~UsedByGraph_node50" class="node">
-<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>
+<title>module~s_gr</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<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_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.5,-1020.17C357.4,-1021.73 335.89,-1026.72 323,-1041 275.2,-1093.95 263.97,-1323.59 261.59,-1396.62"/>
+<polygon fill="#000000" stroke="#000000" points="258.08,-1396.84 261.28,-1406.94 265.08,-1397.05 258.08,-1396.84"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~helio_classes~~UsedByGraph_node51" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="457.5,-990 345.5,-990 345.5,-966 457.5,-966 457.5,-990"/>
+<text text-anchor="middle" x="401.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.11,-984.46C336.73,-987.68 328.93,-992.33 323,-999 269.93,-1058.74 262.28,-1318.6 261.18,-1396.71"/>
+<polygon fill="#000000" stroke="#000000" points="257.68,-1396.83 261.06,-1406.87 264.68,-1396.91 257.68,-1396.83"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_rescale -->
 <g id="module~~helio_classes~~UsedByGraph_node52" class="node">
-<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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440.5,-948 362.5,-948 362.5,-924 440.5,-924 440.5,-948"/>
+<text text-anchor="middle" x="401.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.29,-937.66C347.99,-940.28 332.83,-945.78 323,-957 264.6,-1023.61 260.74,-1314.2 260.85,-1396.94"/>
+<polygon fill="#000000" stroke="#000000" points="257.35,-1397 260.89,-1406.99 264.35,-1396.98 257.35,-1397"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~helio_classes~~UsedByGraph_node53" class="node">
-<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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="480,-906 323,-906 323,-882 480,-882 480,-906"/>
+<text text-anchor="middle" x="401.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_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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge53" 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.39,-906.13C329.54,-908.6 326.01,-911.52 323,-915 259.37,-988.38 259.34,-1308.82 260.57,-1396.66"/>
+<polygon fill="#000000" stroke="#000000" points="257.07,-1396.89 260.73,-1406.83 264.07,-1396.78 257.07,-1396.89"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node54" class="node">
-<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>
+<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,-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_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.27,-851.97C357.08,-853.44 335.53,-858.41 323,-873 288.32,-913.38 266.99,-1298.27 262.09,-1396.35"/>
+<polygon fill="#000000" stroke="#000000" points="258.58,-1396.45 261.58,-1406.61 265.57,-1396.79 258.58,-1396.45"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_whm_coord -->
 <g id="module~~helio_classes~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_whm_coord</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-822 362,-822 362,-798 441,-798 441,-822"/>
+<text text-anchor="middle" x="401.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- 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~s_symba_fragmentation -->
-<g id="module~~helio_classes~~UsedByGraph_node56" class="node">
-<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>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.73,-811.6C347.52,-814.22 332.58,-819.75 323,-831 285.58,-874.92 266.07,-1295.2 261.87,-1396.91"/>
+<polygon fill="#000000" stroke="#000000" points="258.37,-1396.84 261.46,-1406.97 265.36,-1397.12 258.37,-1396.84"/>
 </g>
+<!-- module~s_util_index -->
+<g id="module~~helio_classes~~UsedByGraph_node56" class="node">
+<title>module~s_util_index</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436,-780 367,-780 367,-756 436,-756 436,-780"/>
+<text text-anchor="middle" x="401.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
+</a>
 </g>
-<!-- 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_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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.87,-768.72C351.21,-770.91 333.71,-776.34 323,-789 282.94,-836.36 265.32,-1290.2 261.71,-1396.71"/>
+<polygon fill="#000000" stroke="#000000" points="258.21,-1396.82 261.37,-1406.93 265.2,-1397.05 258.21,-1396.82"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_util_valid -->
 <g id="module~~helio_classes~~UsedByGraph_node57" class="node">
-<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>
+<title>module~s_util_valid</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="434,-738 369,-738 369,-714 434,-714 434,-738"/>
+<text text-anchor="middle" x="401.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.81,-726.44C352.65,-728.43 334.12,-733.77 323,-747 280.26,-797.83 264.59,-1285.73 261.57,-1396.64"/>
+<polygon fill="#000000" stroke="#000000" points="258.06,-1396.88 261.3,-1406.97 265.06,-1397.06 258.06,-1396.88"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_coord -->
 <g id="module~~helio_classes~~UsedByGraph_node58" class="node">
-<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>
+<title>module~s_util_coord</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-696 366.5,-696 366.5,-672 436.5,-672 436.5,-696"/>
+<text text-anchor="middle" x="401.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.42,-684.73C350.84,-686.93 333.55,-692.38 323,-705 277.57,-759.33 263.91,-1281.73 261.44,-1396.7"/>
+<polygon fill="#000000" stroke="#000000" points="257.94,-1396.72 261.23,-1406.79 264.94,-1396.87 257.94,-1396.72"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_util_set -->
 <g id="module~~helio_classes~~UsedByGraph_node59" class="node">
-<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>
+<title>module~s_util_set</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="430.5,-654 372.5,-654 372.5,-630 430.5,-630 430.5,-654"/>
+<text text-anchor="middle" x="401.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.23,-642.02C355.31,-643.64 334.86,-648.75 323,-663 274.86,-720.86 263.25,-1278.34 261.32,-1396.9"/>
+<polygon fill="#000000" stroke="#000000" points="257.82,-1396.92 261.17,-1406.97 264.82,-1397.03 257.82,-1396.92"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_util_peri -->
 <g id="module~~helio_classes~~UsedByGraph_node60" class="node">
-<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>
+<title>module~s_util_peri</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<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_peri</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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.67,-600.15C354.06,-601.93 334.47,-607.15 323,-621 272.17,-682.35 262.65,-1274.23 261.22,-1396.84"/>
+<polygon fill="#000000" stroke="#000000" points="257.72,-1396.88 261.11,-1406.92 264.72,-1396.96 257.72,-1396.88"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~helio_classes~~UsedByGraph_node61" class="node">
-<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>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node61"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.47,-563.81C336.84,-567.07 328.86,-571.9 323,-579 269.47,-643.87 262.08,-1270.52 261.13,-1396.87"/>
+<polygon fill="#000000" stroke="#000000" points="257.63,-1396.89 261.06,-1406.91 264.63,-1396.93 257.63,-1396.89"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_util_spill -->
 <g id="module~~helio_classes~~UsedByGraph_node62" class="node">
-<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>
+<title>module~s_util_spill</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<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_spill</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.64,-516.12C354.01,-517.89 334.42,-523.11 323,-537 266.81,-605.34 261.54,-1265.89 261.05,-1396.59"/>
+<polygon fill="#000000" stroke="#000000" points="257.55,-1396.94 261.02,-1406.95 264.55,-1396.96 257.55,-1396.94"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_whm_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node63" class="node">
-<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>
+<title>module~s_whm_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-486 366.5,-486 366.5,-462 436.5,-462 436.5,-486"/>
+<text text-anchor="middle" x="401.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge67" class="edge">
-<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"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.31,-474.64C350.71,-476.82 333.43,-482.28 323,-495 264.14,-566.82 261.02,-1261.47 260.97,-1396.37"/>
+<polygon fill="#000000" stroke="#000000" points="257.47,-1396.71 260.98,-1406.71 264.47,-1396.71 257.47,-1396.71"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_copy -->
 <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>
+<title>module~s_util_copy</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="434.5,-444 368.5,-444 368.5,-420 434.5,-420 434.5,-444"/>
+<text text-anchor="middle" x="401.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<!-- module~s_util_copy&#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"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.27,-432.36C352.16,-434.36 333.85,-439.72 323,-453 261.39,-528.39 260.52,-1258.85 260.9,-1396.64"/>
+<polygon fill="#000000" stroke="#000000" points="257.41,-1396.84 260.94,-1406.83 264.41,-1396.82 257.41,-1396.84"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~helio_classes~~UsedByGraph_node65" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-402 374.5,-402 374.5,-378 428.5,-378 428.5,-402"/>
+<text text-anchor="middle" x="401.5" y="-387.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 -->
+<g id="module~~helio_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.4,-389.74C357.04,-391.08 335.24,-395.98 323,-411 258.69,-489.9 260.04,-1255.1 260.84,-1396.57"/>
+<polygon fill="#000000" stroke="#000000" points="257.34,-1397.01 260.91,-1406.99 264.34,-1396.97 257.34,-1397.01"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~helio_classes~~UsedByGraph_node66" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-360 344.5,-360 344.5,-336 458.5,-336 458.5,-360"/>
+<text text-anchor="middle" x="401.5" y="-345.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 -->
+<g id="module~~helio_classes~~UsedByGraph_edge70" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M344.22,-354.19C336.05,-357.45 328.54,-362.19 323,-369 255.99,-451.43 259.57,-1251.56 260.78,-1396.53"/>
+<polygon fill="#000000" stroke="#000000" points="257.28,-1396.88 260.87,-1406.84 264.28,-1396.81 257.28,-1396.88"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~helio_classes~~UsedByGraph_node67" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node67"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2628 366.5,-2628 366.5,-2604 436.5,-2604 436.5,-2628"/>
+<text text-anchor="middle" x="401.5" y="-2613.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_edge71" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.23,-2615.43C350.61,-2613.26 333.34,-2607.8 323,-2595 285.32,-2548.36 264.63,-1599.44 261.44,-1441.26"/>
+<polygon fill="#000000" stroke="#000000" points="264.94,-1441.19 261.24,-1431.26 257.94,-1441.33 264.94,-1441.19"/>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge80" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M366.42,-2624.75C352.85,-2628.36 337.14,-2632.7 323,-2637 295.17,-2645.48 283.26,-2676.74 261,-2658"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~helio_classes~~UsedByGraph_node68" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-318 353.5,-318 353.5,-294 449.5,-294 449.5,-318"/>
+<text text-anchor="middle" x="401.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.35,-309.16C341.78,-312.26 330.55,-317.69 323,-327 288.06,-370.08 265.25,-1244.27 261.54,-1396.49"/>
+<polygon fill="#000000" stroke="#000000" points="258.03,-1396.81 261.28,-1406.89 265.03,-1396.98 258.03,-1396.81"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~helio_classes~~UsedByGraph_node69" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node69"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-276 374.5,-276 374.5,-252 428.5,-252 428.5,-276"/>
+<text text-anchor="middle" x="401.5" y="-261.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 -->
+<g id="module~~helio_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.37,-263.71C356.99,-265.04 335.19,-269.94 323,-285 286.7,-329.86 264.94,-1241.27 261.48,-1396.59"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-1396.73 261.26,-1406.8 264.98,-1396.88 257.98,-1396.73"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~helio_classes~~UsedByGraph_node70" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440,-234 363,-234 363,-210 440,-210 440,-234"/>
+<text text-anchor="middle" x="401.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.63,-223.13C348.01,-225.62 332.55,-231.18 323,-243 285.32,-289.64 264.63,-1238.56 261.44,-1396.74"/>
+<polygon fill="#000000" stroke="#000000" points="257.94,-1396.67 261.24,-1406.74 264.94,-1396.81 257.94,-1396.67"/>
+</g>
+<!-- module~s_util_version -->
+<g id="module~~helio_classes~~UsedByGraph_node71" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440.5,-192 362.5,-192 362.5,-168 440.5,-168 440.5,-192"/>
+<text text-anchor="middle" x="401.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.22,-181.19C347.72,-183.71 332.45,-189.28 323,-201 283.99,-249.39 264.37,-1234.17 261.4,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="257.9,-1396.63 261.21,-1406.69 264.9,-1396.76 257.9,-1396.63"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~helio_classes~~UsedByGraph_node72" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node72"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439.5,-2460 363.5,-2460 363.5,-2436 439.5,-2436 439.5,-2460"/>
+<text text-anchor="middle" x="401.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.48,-2446.96C348.64,-2444.54 332.78,-2438.99 323,-2427 258.69,-2348.1 260.04,-1582.9 260.84,-1441.43"/>
+<polygon fill="#000000" stroke="#000000" points="264.34,-1441.03 260.91,-1431.01 257.34,-1440.99 264.34,-1441.03"/>
 </g>
 </g>
 </svg>
@@ -1637,14 +1745,6 @@ <h3>Contents</h3>
   <div id="inters-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vb2vh_pl">helio_coord_vb2vh_pl</a>
-      
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vb2vh_tp">helio_coord_vb2vh_tp</a>
-      
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vh2vb_pl">helio_coord_vh2vb_pl</a>
-      
-      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_coord_vh2vb_tp">helio_coord_vh2vb_tp</a>
-      
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_drift_body">helio_drift_body</a>
       
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_drift_pl">helio_drift_pl</a>
@@ -1671,6 +1771,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_kick_vb_tp">helio_kick_vb_tp</a>
       
+      <a class="list-group-item" href="../module/helio_classes.html#interface-helio_setup_initialize_system">helio_setup_initialize_system</a>
+      
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_step_pl">helio_step_pl</a>
       
       <a class="list-group-item" href="../module/helio_classes.html#interface-helio_step_system">helio_step_system</a>
@@ -1712,327 +1814,19 @@ <h3>Contents</h3>
 
 
 
-    </section>
-    <br class="visible-xs visible-sm hidden-md">
-
-    
-
-    
-    
-    
-    
-    
-    <section>
-   <h2>Interfaces</h2>
-   
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-helio_coord_vb2vh_pl"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine helio_coord_vb2vh_pl(self, cb)
-    
-    
-   
-   <a href='../proc/helio_coord_vb2vh_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/helio_pl.html'>helio_pl</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio 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-helio_coord_vb2vh_tp"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine helio_coord_vb2vh_tp(self, vbcb)
-    
-    
-   
-   <a href='../proc/helio_coord_vb2vh_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/helio_tp.html'>helio_tp</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-helio_coord_vh2vb_pl"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine helio_coord_vh2vb_pl(self, cb)
-    
-    
-   
-   <a href='../proc/helio_coord_vh2vb_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/helio_pl.html'>helio_pl</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio 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-helio_coord_vh2vb_tp"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine helio_coord_vh2vb_tp(self, vbcb)
-    
-    
-   
-   <a href='../proc/helio_coord_vh2vb_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/helio_tp.html'>helio_tp</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
-  
-</tr>
-
-</tbody>
-</table>
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
 
-      
-    
     
 
-    </li>
-  
-  </ul>
-</div>
-
     
+    
+    
+    
+    
+    <section>
+   <h2>Interfaces</h2>
+   
      
 <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="interface-helio_drift_body"></span><h3>interface 
@@ -3418,6 +3212,83 @@ <h4>Arguments</h4>
     
     
 
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-helio_setup_initialize_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine helio_setup_initialize_system(self, param)
+    
+    
+   
+   <a href='../proc/helio_setup_initialize_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/helio_nbody_system.html'>helio_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Helio nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(swiftest_parameters),</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>
@@ -3808,20 +3679,6 @@ <h4>Components</h4>
   
   
   
-<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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -3898,7 +3755,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -3964,11 +3821,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -3978,11 +3835,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -3992,39 +3849,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -4034,11 +3863,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -4058,20 +3887,6 @@ <h4>Components</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -4092,15 +3907,33 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-dump'>dump</a></strong>  => io_dump_system </td>
        <td><p>Dump the state of the system to a file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final'>get_old_t_final</a></strong>  => io_get_old_t_final_system </td>
+       <td><p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_frame'>read_frame</a></strong>  => io_read_frame_system </td>
        <td><p>Read in a frame of input data from file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_particle_info'>read_particle_info</a></strong>  => io_read_particle_info_system </td>
+       <td><p>Read in particle metadata from file</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_discard'>write_discard</a></strong>  => io_write_discard </td>
        <td><p>Write out information about discarded test particles</p></td></tr>
       
        <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-write_hdr_bin'>write_hdr_bin</a></strong>  => io_write_hdr_system </td>
+       <td><p>Write a header for an output frame in Fortran binary format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a></strong>  => netcdf_write_hdr_system </td>
+       <td><p>Write a header for an output frame in NetCDF format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-obl_pot'>obl_pot</a></strong>  => obl_pot_system </td>
+       <td><p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-init_particle_info'>init_particle_info</a></strong>  => setup_initialize_particle_info_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>
        <td><p>Steps the spins of the massive &amp; central bodies due to tides.</p></td></tr>
       
@@ -4116,13 +3949,15 @@ <h4>Type-Bound Procedures</h4>
        <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>
+       <tr><td>generic, public :: <strong><a href='../type/helio_nbody_system.html#boundprocedure-write_hdr~2'>write_hdr</a></strong>  => write_hdr_bin, write_hdr_netcdf </td>
+       <td><p>Generic method call for writing headers</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/helio_nbody_system.html#boundprocedure-step~4'>step</a></strong>  => helio_step_system </td>
        <td><p>Advance the Helio nbody system forward in time by one step</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/helio_nbody_system.html#boundprocedure-initialize~2'>initialize</a></strong>  => helio_setup_initialize_system </td>
+       <td><p>Performs Helio-specific initilization steps, including converting to DH coordinates</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -4158,25 +3993,11 @@ <h4>Components</h4>
   
 <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -4541,18 +4362,33 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/helio_cb.html#boundprocedure-write_particle_info~4'>write_particle_info</a></strong>  => write_particle_info_netcdf </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_in'>read_in</a></strong>  => io_read_in_cb </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</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>
       
+       <tr><td>generic, public :: <strong><a href='../type/helio_cb.html#boundprocedure-write_frame~5'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Write a frame (either binary or NetCDF, using generic procedures)</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -4583,20 +4419,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -4627,11 +4449,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -4715,7 +4537,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -4729,7 +4551,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -5140,7 +4962,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/helio_pl.html#boundprocedure-write_particle_info~5'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
@@ -5149,13 +4983,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -5170,10 +5004,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/helio_pl.html#boundprocedure-write_frame~6'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-discard~3'>discard</a></strong>  => discard_pl </td>
        <td><p>Placeholder method for discarding massive bodies </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-eucl_index'>eucl_index</a></strong>  => eucl_dist_index_plpl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-index~2'>index</a></strong>  => util_index_eucl_plpl </td>
        <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
@@ -5197,6 +5034,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
        <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-fill~3'>fill</a></strong>  => util_fill_pl </td>
        <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
       
@@ -5221,12 +5067,6 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-spill~3'>spill</a></strong>  => util_spill_pl </td>
        <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => helio_coord_vh2vb_pl </td>
-       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => helio_coord_vb2vh_pl </td>
-       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
-      
        <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-drift~3'>drift</a></strong>  => helio_drift_pl </td>
        <td><p>Method for Danby drift in Democratic Heliocentric coordinates </p></td></tr>
       
@@ -5278,20 +5118,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -5322,11 +5148,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -5410,7 +5236,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -5424,7 +5250,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -5650,7 +5476,35 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -5667,7 +5521,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/helio_tp.html#boundprocedure-write_particle_info~6'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
@@ -5676,13 +5542,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -5697,6 +5563,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/helio_tp.html#boundprocedure-write_frame~7'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-discard~4'>discard</a></strong>  => discard_tp </td>
        <td><p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p></td></tr>
       
@@ -5718,6 +5587,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-b2h'>b2h</a></strong>  => util_coord_b2h_tp </td>
        <td><p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => util_coord_vb2vh_tp </td>
+       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => util_coord_vh2vb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-xh2xb'>xh2xb</a></strong>  => util_coord_xh2xb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-fill~4'>fill</a></strong>  => util_fill_tp </td>
        <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
       
@@ -5739,12 +5617,6 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-spill~4'>spill</a></strong>  => util_spill_tp </td>
        <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => helio_coord_vh2vb_tp </td>
-       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => helio_coord_vb2vh_tp </td>
-       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
-      
        <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-lindrift~2'>lindrift</a></strong>  => helio_drift_linear_tp </td>
        <td><p>Method for linear drift of massive bodies due to barycentric momentum of Sun</p></td></tr>
       
diff --git a/docs/module/lambda_function.html b/docs/module/lambda_function.html
index 26599095a..280c9769b 100644
--- a/docs/module/lambda_function.html
+++ b/docs/module/lambda_function.html
@@ -136,7 +136,7 @@ <h1>lambda_function
      <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.">121 statements</a>
+    title=" 0.7% of total for modules and submodules.">121 statements</a>
      </li> 
      
      
@@ -545,946 +545,1066 @@ <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="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)">
+<svg id="modulelambda_functionUsedByGraph" width="382pt" height="2888pt"
+ viewBox="0.00 0.00 382.00 2888.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 2884)">
 <title>module~~lambda_function~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 378,-2548 378,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 378,-2884 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,-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>
+<polygon fill="none" stroke="black" points="91,-1452 0,-1452 0,-1428 91,-1428 91,-1452"/>
+<text text-anchor="middle" x="45.5" y="-1437.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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="181,-1452 127,-1452 127,-1428 181,-1428 181,-1452"/>
+<text text-anchor="middle" x="154" y="-1437.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M126.95,-1440C119.16,-1440 110.32,-1440 101.41,-1440"/>
+<polygon fill="#000000" stroke="#000000" points="101.38,-1436.5 91.38,-1440 101.38,-1443.5 101.38,-1436.5"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_symba_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node3" class="node">
-<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>
+<title>module~s_symba_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node3"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2880 256,-2880 256,-2856 335,-2856 335,-2880"/>
+<text text-anchor="middle" x="295.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge2" class="edge">
-<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"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.77,-2866.77C241.39,-2864.22 226.32,-2858.64 217,-2847 171.81,-2790.56 157.2,-1637.04 155.24,-1462.14"/>
+<polygon fill="#000000" stroke="#000000" points="158.74,-1462.02 155.13,-1452.06 151.74,-1462.1 158.74,-1462.02"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_symba_drift -->
 <g id="module~~lambda_function~~UsedByGraph_node4" class="node">
-<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>
+<title>module~s_symba_drift</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node4"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2838 256,-2838 256,-2814 335,-2814 335,-2838"/>
+<text text-anchor="middle" x="295.5" y="-2823.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~~lambda_function~~UsedByGraph_edge3" class="edge">
-<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"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge5" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.78,-2824.77C241.4,-2822.22 226.33,-2816.64 217,-2805 173.19,-2750.36 157.44,-1634.59 155.27,-1462.27"/>
+<polygon fill="#000000" stroke="#000000" points="158.77,-1462.06 155.14,-1452.1 151.77,-1462.15 158.77,-1462.06"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_util_exit -->
 <g id="module~~lambda_function~~UsedByGraph_node5" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node5"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-2796 265.5,-2796 265.5,-2772 325.5,-2772 325.5,-2796"/>
+<text text-anchor="middle" x="295.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge3" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.29,-2784.05C248.46,-2782.4 228.43,-2777.24 217,-2763 174.56,-2710.14 157.7,-1631.92 155.3,-1462.36"/>
+<polygon fill="#000000" stroke="#000000" points="158.8,-1462.08 155.16,-1452.13 151.8,-1462.18 158.8,-1462.08"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- proc~ge_wpp -->
 <g id="module~~lambda_function~~UsedByGraph_node6" class="node">
-<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>
+<title>proc~ge_wpp</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node6"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="322.5,-2754 268.5,-2754 268.5,-2730 322.5,-2730 322.5,-2754"/>
+<text text-anchor="middle" x="295.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- proc~ge_wpp&#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"/>
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.34,-2742.31C250.95,-2740.99 229.14,-2736.1 217,-2721 175.91,-2669.9 157.94,-1628 155.34,-1462.16"/>
+<polygon fill="#000000" stroke="#000000" points="158.84,-1462.08 155.18,-1452.14 151.84,-1462.19 158.84,-1462.08"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_whm_util -->
 <g id="module~~lambda_function~~UsedByGraph_node7" class="node">
-<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>
+<title>module~s_whm_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node7"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-2712 262.5,-2712 262.5,-2688 328.5,-2688 328.5,-2712"/>
+<text text-anchor="middle" x="295.5" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge6" class="edge">
-<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"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.19,-2699.7C246.07,-2697.72 227.76,-2692.35 217,-2679 177.29,-2629.71 158.23,-1625.94 155.38,-1462.43"/>
+<polygon fill="#000000" stroke="#000000" points="158.87,-1462.07 155.2,-1452.13 151.87,-1462.19 158.87,-1462.07"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_helio_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node8" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node8"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2670 256,-2670 256,-2646 335,-2646 335,-2670"/>
+<text text-anchor="middle" x="295.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge7" class="edge">
-<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"/>
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.82,-2656.74C241.44,-2654.18 226.37,-2648.61 217,-2637 178.64,-2589.46 158.48,-1621.65 155.41,-1462.16"/>
+<polygon fill="#000000" stroke="#000000" points="158.91,-1462.03 155.22,-1452.1 151.91,-1462.16 158.91,-1462.03"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_util_solve -->
 <g id="module~~lambda_function~~UsedByGraph_node9" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node9"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329.5,-2628 261.5,-2628 261.5,-2604 329.5,-2604 329.5,-2628"/>
+<text text-anchor="middle" x="295.5" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge8" class="edge">
-<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"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.42,-2615.58C245.5,-2613.53 227.6,-2608.12 217,-2595 180.01,-2549.25 158.78,-1619.09 155.46,-1462.33"/>
+<polygon fill="#000000" stroke="#000000" points="158.95,-1461.97 155.24,-1452.05 151.96,-1462.12 158.95,-1461.97"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_whm_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node10" class="node">
-<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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node10"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2586 256,-2586 256,-2562 335,-2562 335,-2586"/>
+<text text-anchor="middle" x="295.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<!-- module~s_whm_setup&#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"/>
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.84,-2572.72C241.47,-2570.16 226.39,-2564.59 217,-2553 181.38,-2509.04 159.09,-1616.31 155.51,-1462.48"/>
+<polygon fill="#000000" stroke="#000000" points="159.01,-1462.26 155.28,-1452.34 152.01,-1462.42 159.01,-1462.26"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_netcdf -->
 <g id="module~~lambda_function~~UsedByGraph_node11" class="node">
-<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>
+<title>module~s_netcdf</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node11"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<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_netcdf</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<!-- module~s_netcdf&#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"/>
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.39,-2532.28C251.01,-2530.94 229.21,-2526.04 217,-2511 148.63,-2426.8 153.35,-1609.08 154.75,-1462.45"/>
+<polygon fill="#000000" stroke="#000000" points="158.26,-1462.08 154.86,-1452.04 151.26,-1462.01 158.26,-1462.08"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_io -->
 <g id="module~~lambda_function~~UsedByGraph_node12" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node12"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<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_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<!-- module~s_io&#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"/>
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.4,-2490.27C251.03,-2488.93 229.23,-2484.03 217,-2469 151.34,-2388.34 153.8,-1605.74 154.81,-1462.47"/>
+<polygon fill="#000000" stroke="#000000" points="158.31,-1462.28 154.89,-1452.26 151.31,-1462.23 158.31,-1462.28"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_helio_step -->
 <g id="module~~lambda_function~~UsedByGraph_node13" class="node">
-<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>
+<title>module~s_helio_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node13"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-2460 259,-2460 259,-2436 332,-2436 332,-2460"/>
+<text text-anchor="middle" x="295.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<!-- module~s_helio_step&#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"/>
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.69,-2447.15C243.52,-2444.82 227.05,-2439.31 217,-2427 154.05,-2349.86 154.27,-1602.06 154.87,-1462.4"/>
+<polygon fill="#000000" stroke="#000000" points="158.37,-1462.11 154.92,-1452.09 151.37,-1462.08 158.37,-1462.11"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~orbel -->
 <g id="module~~lambda_function~~UsedByGraph_node14" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node14"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="322.5,-2418 268.5,-2418 268.5,-2394 322.5,-2394 322.5,-2418"/>
+<text text-anchor="middle" x="295.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<!-- module~orbel&#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"/>
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.42,-2406.25C251.07,-2404.9 229.27,-2400 217,-2385 156.74,-2311.36 154.76,-1598.18 154.94,-1462.3"/>
+<polygon fill="#000000" stroke="#000000" points="158.44,-1462.24 154.96,-1452.24 151.44,-1462.23 158.44,-1462.24"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_symba_util -->
 <g id="module~~lambda_function~~UsedByGraph_node15" class="node">
-<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>
+<title>module~s_symba_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node15"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333,-2376 258,-2376 258,-2352 333,-2352 333,-2376"/>
+<text text-anchor="middle" x="295.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#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"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.93,-2363C242.98,-2360.6 226.91,-2355.07 217,-2343 159.42,-2272.85 155.27,-1593.96 155.01,-1462.12"/>
+<polygon fill="#000000" stroke="#000000" points="158.51,-1462.01 155,-1452.01 151.51,-1462.02 158.51,-1462.01"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_symba_collision -->
 <g id="module~~lambda_function~~UsedByGraph_node16" class="node">
-<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>
+<title>module~s_symba_collision</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node16"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345,-2334 246,-2334 246,-2310 345,-2310 345,-2334"/>
+<text text-anchor="middle" x="295.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<!-- module~s_symba_collision&#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"/>
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.83,-2318.31C234.83,-2315.15 224.27,-2309.82 217,-2301 162.14,-2234.4 155.81,-1590.83 155.09,-1462.28"/>
+<polygon fill="#000000" stroke="#000000" points="158.59,-1462.06 155.04,-1452.08 151.59,-1462.09 158.59,-1462.06"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~lambda_function~~UsedByGraph_node17" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node17"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="367,-2292 224,-2292 224,-2268 367,-2268 367,-2292"/>
+<text text-anchor="middle" x="295.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
+<!-- module~s_symba_encounter_check&#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"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M226.86,-2267.8C223.19,-2265.34 219.84,-2262.44 217,-2259 164.85,-2195.92 156.37,-1587.29 155.18,-1462.35"/>
+<polygon fill="#000000" stroke="#000000" points="158.68,-1462.06 155.09,-1452.09 151.68,-1462.12 158.68,-1462.06"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_helio_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node18" class="node">
-<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>
+<title>module~s_helio_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node18"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2250 260.5,-2250 260.5,-2226 330.5,-2226 330.5,-2250"/>
+<text text-anchor="middle" x="295.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
+<!-- module~s_helio_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"/>
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.38,-2237.31C244.79,-2235.11 227.51,-2229.66 217,-2217 167.54,-2157.43 156.96,-1583.35 155.27,-1462.33"/>
+<polygon fill="#000000" stroke="#000000" points="158.77,-1462.01 155.14,-1452.06 151.77,-1462.11 158.77,-1462.01"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_symba_step -->
 <g id="module~~lambda_function~~UsedByGraph_node19" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node19"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336.5,-2208 254.5,-2208 254.5,-2184 336.5,-2184 336.5,-2208"/>
+<text text-anchor="middle" x="295.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#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"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.4,-2194.28C240.54,-2191.58 226.2,-2186.03 217,-2175 170.27,-2118.97 157.6,-1580.15 155.39,-1462.58"/>
+<polygon fill="#000000" stroke="#000000" points="158.88,-1462.21 155.2,-1452.27 151.88,-1462.33 158.88,-1462.21"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_whm_step -->
 <g id="module~~lambda_function~~UsedByGraph_node20" class="node">
-<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>
+<title>module~s_whm_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node20"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_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_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<!-- module~s_whm_step&#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"/>
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.84,-2153.03C243.69,-2150.67 227.21,-2145.18 217,-2133 172.92,-2080.42 158.25,-1575.34 155.5,-1462.35"/>
+<polygon fill="#000000" stroke="#000000" points="159,-1462.04 155.26,-1452.13 152,-1462.21 159,-1462.04"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_helio_gr -->
 <g id="module~~lambda_function~~UsedByGraph_node21" class="node">
-<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>
+<title>module~s_helio_gr</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node21"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-2124 264.5,-2124 264.5,-2100 326.5,-2100 326.5,-2124"/>
+<text text-anchor="middle" x="295.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<!-- module~s_helio_gr&#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"/>
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.38,-2111.73C247.88,-2109.89 228.5,-2104.64 217,-2091 175.6,-2041.91 158.95,-1571.13 155.64,-1462.35"/>
+<polygon fill="#000000" stroke="#000000" points="159.13,-1462.09 155.34,-1452.2 152.14,-1462.3 159.13,-1462.09"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_symba_discard -->
 <g id="module~~lambda_function~~UsedByGraph_node22" class="node">
-<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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node22"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-2082 247.5,-2082 247.5,-2058 343.5,-2058 343.5,-2082"/>
+<text text-anchor="middle" x="295.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#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"/>
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.22,-2066.5C235.79,-2063.38 224.67,-2058.03 217,-2049 178.26,-2003.37 159.69,-1566.4 155.79,-1462.22"/>
+<polygon fill="#000000" stroke="#000000" points="159.29,-1462.06 155.42,-1452.19 152.29,-1462.31 159.29,-1462.06"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~lambda_function~~UsedByGraph_node23" class="node">
-<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>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node23"><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>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_discard&#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"/>
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.31,-2025.47C238.5,-2022.55 225.61,-2017.06 217,-2007 180.94,-1964.84 160.5,-1561.95 155.97,-1462.24"/>
+<polygon fill="#000000" stroke="#000000" points="159.46,-1461.93 155.51,-1452.1 152.46,-1462.24 159.46,-1461.93"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~whm_drift -->
 <g id="module~~lambda_function~~UsedByGraph_node24" class="node">
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node24"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-1998 266,-1998 266,-1974 325,-1974 325,-1998"/>
+<text text-anchor="middle" x="295.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#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"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.64,-1985.76C248.94,-1984 228.93,-1978.83 217,-1965 183.62,-1926.31 161.4,-1557.69 156.18,-1462.4"/>
+<polygon fill="#000000" stroke="#000000" points="159.68,-1462.2 155.64,-1452.4 152.69,-1462.57 159.68,-1462.2"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_rmvs_util -->
 <g id="module~~lambda_function~~UsedByGraph_node25" class="node">
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node25"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1956 262,-1956 262,-1932 329,-1932 329,-1956"/>
+<text text-anchor="middle" x="295.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_util&#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"/>
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.82,-1943.25C246,-1941.1 228.08,-1935.72 217,-1923 156,-1853.01 154.03,-1547.58 154.7,-1462.23"/>
+<polygon fill="#000000" stroke="#000000" points="158.21,-1462.14 154.81,-1452.1 151.21,-1462.07 158.21,-1462.14"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_fraggle_io -->
 <g id="module~~lambda_function~~UsedByGraph_node26" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node26"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331,-1914 260,-1914 260,-1890 331,-1890 331,-1914"/>
+<text text-anchor="middle" x="295.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_io&#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"/>
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.92,-1900.91C244.61,-1898.57 227.7,-1893.13 217,-1881 161.31,-1817.88 155.5,-1543.06 155.01,-1462.36"/>
+<polygon fill="#000000" stroke="#000000" points="158.51,-1462.29 154.97,-1452.3 151.51,-1462.31 158.51,-1462.29"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_util_append -->
 <g id="module~~lambda_function~~UsedByGraph_node27" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node27"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-1872 256,-1872 256,-1848 335,-1848 335,-1872"/>
+<text text-anchor="middle" x="295.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_append&#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"/>
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.61,-1858.08C241.55,-1855.4 226.76,-1849.91 217,-1839 166.63,-1782.74 157.13,-1538.59 155.38,-1462.64"/>
+<polygon fill="#000000" stroke="#000000" points="158.88,-1462.24 155.17,-1452.32 151.88,-1462.39 158.88,-1462.24"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node28" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node28"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331,-1830 260,-1830 260,-1806 331,-1806 331,-1830"/>
+<text text-anchor="middle" x="295.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_kick&#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"/>
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.69,-1816.69C244.53,-1814.29 227.8,-1808.85 217,-1797 171.84,-1747.45 158.9,-1532.95 155.83,-1462.51"/>
+<polygon fill="#000000" stroke="#000000" points="159.32,-1461.98 155.41,-1452.14 152.32,-1462.27 159.32,-1461.98"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_util_fill -->
 <g id="module~~lambda_function~~UsedByGraph_node29" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node29"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1788 268.5,-1788 268.5,-1764 322.5,-1764 322.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_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge28" class="edge">
-<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"/>
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.27,-1775.66C251.3,-1774 230.02,-1768.97 217,-1755 177.03,-1712.11 160.88,-1527 156.4,-1462.37"/>
+<polygon fill="#000000" stroke="#000000" points="159.87,-1461.83 155.71,-1452.09 152.88,-1462.3 159.87,-1461.83"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_rmvs_io -->
 <g id="module~~lambda_function~~UsedByGraph_node30" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node30"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<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_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge29" class="edge">
-<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"/>
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.63,-1733.11C248.43,-1731.04 229.26,-1725.77 217,-1713 182.15,-1676.68 163.1,-1520.39 157.1,-1462.06"/>
+<polygon fill="#000000" stroke="#000000" points="160.58,-1461.67 156.11,-1452.06 153.62,-1462.36 160.58,-1461.67"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_fraggle_placeholder -->
 <g id="module~~lambda_function~~UsedByGraph_node31" class="node">
-<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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node31"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="354.5,-1704 236.5,-1704 236.5,-1680 354.5,-1680 354.5,-1704"/>
+<text text-anchor="middle" x="295.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge30" class="edge">
-<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"/>
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.21,-1683.53C229.08,-1680.49 222.41,-1676.43 217,-1671 159.29,-1613.15 153.67,-1507.75 154.15,-1462.08"/>
+<polygon fill="#000000" stroke="#000000" points="157.65,-1462.14 154.37,-1452.06 150.66,-1461.98 157.65,-1462.14"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node32" class="node">
-<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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node32"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-1662 256,-1662 256,-1638 335,-1638 335,-1662"/>
+<text text-anchor="middle" x="295.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_setup&#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"/>
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.7,-1647.05C242,-1644.21 227.42,-1638.88 217,-1629 169.48,-1583.9 158.34,-1501.85 155.76,-1462.38"/>
+<polygon fill="#000000" stroke="#000000" points="159.25,-1462.03 155.23,-1452.23 152.26,-1462.4 159.25,-1462.03"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_whm_gr -->
 <g id="module~~lambda_function~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node33"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-1620 264.5,-1620 264.5,-1596 326.5,-1596 326.5,-1620"/>
+<text text-anchor="middle" x="295.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_whm_gr&#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"/>
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.32,-1606.08C248.61,-1603.66 230.02,-1598.37 217,-1587 179.5,-1554.23 164.09,-1494.98 158.24,-1462.61"/>
+<polygon fill="#000000" stroke="#000000" points="161.63,-1461.66 156.55,-1452.37 154.73,-1462.8 161.63,-1461.66"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~lambda_function~~UsedByGraph_node34" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node34"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344.5,-1578 246.5,-1578 246.5,-1554 344.5,-1554 344.5,-1578"/>
+<text text-anchor="middle" x="295.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge33" class="edge">
-<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"/>
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.34,-1559.1C235.95,-1556 225.54,-1551.5 217,-1545 188.98,-1523.66 171.19,-1485.7 162.17,-1461.75"/>
+<polygon fill="#000000" stroke="#000000" points="165.4,-1460.37 158.74,-1452.13 158.81,-1462.73 165.4,-1460.37"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_obl -->
 <g id="module~~lambda_function~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node35"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1536 268.5,-1536 268.5,-1512 322.5,-1512 322.5,-1536"/>
+<text text-anchor="middle" x="295.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<!-- module~s_obl&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge34" class="edge">
-<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"/>
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.39,-1520.46C252.69,-1517.5 232.77,-1512.22 217,-1503 198.35,-1492.1 181.46,-1474.13 170.04,-1460.17"/>
+<polygon fill="#000000" stroke="#000000" points="172.61,-1457.78 163.66,-1452.1 167.11,-1462.11 172.61,-1457.78"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_discard -->
 <g id="module~~lambda_function~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node36"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1494 266.5,-1494 266.5,-1470 324.5,-1470 324.5,-1494"/>
+<text text-anchor="middle" x="295.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<!-- module~s_discard&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge35" class="edge">
-<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"/>
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.4,-1474.83C251.63,-1470.96 233.27,-1465.95 217,-1461 208.48,-1458.41 199.37,-1455.43 190.83,-1452.56"/>
+<polygon fill="#000000" stroke="#000000" points="191.72,-1449.16 181.13,-1449.25 189.47,-1455.79 191.72,-1449.16"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_util_resize -->
 <g id="module~~lambda_function~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_util_resize</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node37"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-1452 259.5,-1452 259.5,-1428 331.5,-1428 331.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_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge36" class="edge">
-<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"/>
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.3,-1440C238.58,-1440 212.43,-1440 191.5,-1440"/>
+<polygon fill="#000000" stroke="#000000" points="191.38,-1436.5 181.38,-1440 191.38,-1443.5 191.38,-1436.5"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~drift_implementation -->
 <g id="module~~lambda_function~~UsedByGraph_node38" class="node">
-<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>
+<title>module~drift_implementation</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node38"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="350,-1410 241,-1410 241,-1386 350,-1386 350,-1410"/>
+<text text-anchor="middle" x="295.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge37" class="edge">
-<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"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.06,-1410.08C237.79,-1412.89 227,-1415.95 217,-1419 208.48,-1421.59 199.37,-1424.57 190.83,-1427.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.47,-1424.21 181.13,-1430.75 191.72,-1430.84 189.47,-1424.21"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~lambda_function~~UsedByGraph_node39" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node39"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="348.5,-1368 242.5,-1368 242.5,-1344 348.5,-1344 348.5,-1368"/>
+<text text-anchor="middle" x="295.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge38" class="edge">
-<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"/>
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M242.11,-1366.12C233.4,-1368.93 224.7,-1372.5 217,-1377 198.35,-1387.9 181.46,-1405.87 170.04,-1419.83"/>
+<polygon fill="#000000" stroke="#000000" points="167.11,-1417.89 163.66,-1427.9 172.61,-1422.22 167.11,-1417.89"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_operator_cross -->
 <g id="module~~lambda_function~~UsedByGraph_node40" class="node">
-<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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node40"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-1326 247.5,-1326 247.5,-1302 343.5,-1302 343.5,-1326"/>
+<text text-anchor="middle" x="295.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge39" class="edge">
-<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"/>
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.15,-1320.66C236.49,-1323.77 225.76,-1328.33 217,-1335 188.98,-1356.34 171.19,-1394.3 162.17,-1418.25"/>
+<polygon fill="#000000" stroke="#000000" points="158.81,-1417.27 158.74,-1427.87 165.4,-1419.63 158.81,-1417.27"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_symba_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node41" class="node">
-<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>
+<title>module~s_symba_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node41"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="339.5,-1284 251.5,-1284 251.5,-1260 339.5,-1260 339.5,-1284"/>
+<text text-anchor="middle" x="295.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge40" class="edge">
-<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"/>
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.32,-1276.52C239.11,-1279.59 226.55,-1284.65 217,-1293 179.5,-1325.77 164.09,-1385.02 158.24,-1417.39"/>
+<polygon fill="#000000" stroke="#000000" points="154.73,-1417.2 156.55,-1427.63 161.63,-1418.34 154.73,-1417.2"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- proc~solve_wbs -->
 <g id="module~~lambda_function~~UsedByGraph_node42" class="node">
-<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>
+<title>proc~solve_wbs</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node42"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" 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">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge41" class="edge">
-<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"/>
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.32,-1231.45C248.41,-1233.72 229.64,-1239.01 217,-1251 169.48,-1296.1 158.34,-1378.15 155.76,-1417.62"/>
+<polygon fill="#000000" stroke="#000000" points="152.26,-1417.6 155.23,-1427.77 159.25,-1417.97 152.26,-1417.6"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_fraggle_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node43" class="node">
-<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>
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node43"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="340,-1200 251,-1200 251,-1176 340,-1176 340,-1200"/>
+<text text-anchor="middle" x="295.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge42" class="edge">
-<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"/>
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.99,-1191.63C238.61,-1194.65 226.06,-1199.92 217,-1209 159.29,-1266.85 153.67,-1372.25 154.15,-1417.92"/>
+<polygon fill="#000000" stroke="#000000" points="150.66,-1418.02 154.37,-1427.94 157.65,-1417.86 150.66,-1418.02"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_util_sort -->
 <g id="module~~lambda_function~~UsedByGraph_node44" class="node">
-<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>
+<title>module~s_util_sort</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node44"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1158 265,-1158 265,-1134 326,-1134 326,-1158"/>
+<text text-anchor="middle" x="295.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge43" class="edge">
-<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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge68" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.63,-1146.89C248.43,-1148.96 229.26,-1154.23 217,-1167 182.15,-1203.32 163.1,-1359.61 157.1,-1417.94"/>
+<polygon fill="#000000" stroke="#000000" points="153.62,-1417.64 156.11,-1427.94 160.58,-1418.33 153.62,-1417.64"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- program~swiftest_driver -->
 <g id="module~~lambda_function~~UsedByGraph_node45" class="node">
-<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>
+<title>program~swiftest_driver</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node45"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="336,-1116 255,-1116 255,-1092 336,-1092 336,-1116"/>
+<text text-anchor="middle" x="295.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge44" class="edge">
-<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"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge43" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.63,-1106.36C240.97,-1109.15 226.69,-1114.6 217,-1125 177.03,-1167.89 160.88,-1353 156.4,-1417.63"/>
+<polygon fill="#000000" stroke="#000000" points="152.88,-1417.7 155.71,-1427.91 159.87,-1418.17 152.88,-1417.7"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_gr -->
 <g id="module~~lambda_function~~UsedByGraph_node46" class="node">
-<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>
+<title>module~s_gr</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node46"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<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_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge45" class="edge">
-<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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge44" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.17,-1062.24C251.16,-1063.86 229.86,-1068.88 217,-1083 171.84,-1132.55 158.9,-1347.05 155.83,-1417.49"/>
+<polygon fill="#000000" stroke="#000000" points="152.32,-1417.73 155.41,-1427.86 159.32,-1418.02 152.32,-1417.73"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~lambda_function~~UsedByGraph_node47" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node47"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="351.5,-1032 239.5,-1032 239.5,-1008 351.5,-1008 351.5,-1032"/>
+<text text-anchor="middle" x="295.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge46" class="edge">
-<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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge45" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.15,-1026.5C230.77,-1029.72 222.95,-1034.35 217,-1041 166.63,-1097.26 157.13,-1341.41 155.38,-1417.36"/>
+<polygon fill="#000000" stroke="#000000" points="151.88,-1417.61 155.17,-1427.68 158.88,-1417.76 151.88,-1417.61"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_util_rescale -->
 <g id="module~~lambda_function~~UsedByGraph_node48" class="node">
-<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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node48"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-990 256.5,-990 256.5,-966 334.5,-966 334.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_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge47" class="edge">
-<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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge46" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.33,-979.69C242.03,-982.31 226.87,-987.82 217,-999 161.31,-1062.12 155.5,-1336.94 155.01,-1417.64"/>
+<polygon fill="#000000" stroke="#000000" points="151.51,-1417.69 154.97,-1427.7 158.51,-1417.71 151.51,-1417.69"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~lambda_function~~UsedByGraph_node49" class="node">
-<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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node49"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374,-948 217,-948 217,-924 374,-924 374,-948"/>
+<text text-anchor="middle" x="295.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge48" class="edge">
-<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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge47" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M227.41,-948.15C223.55,-950.61 220.02,-953.53 217,-957 156,-1026.99 154.03,-1332.42 154.7,-1417.77"/>
+<polygon fill="#000000" stroke="#000000" points="151.21,-1417.93 154.81,-1427.9 158.21,-1417.86 151.21,-1417.93"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node50" class="node">
-<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>
+<title>module~s_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node50"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-906 268.5,-906 268.5,-882 322.5,-882 322.5,-906"/>
+<text text-anchor="middle" x="295.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge49" class="edge">
-<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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge48" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.29,-893.99C251.11,-895.47 229.57,-900.43 217,-915 183.62,-953.69 161.4,-1322.31 156.18,-1417.6"/>
+<polygon fill="#000000" stroke="#000000" points="152.69,-1417.43 155.64,-1427.6 159.68,-1417.8 152.69,-1417.43"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_whm_coord -->
 <g id="module~~lambda_function~~UsedByGraph_node51" class="node">
-<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>
+<title>module~s_whm_coord</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node51"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-864 256,-864 256,-840 335,-840 335,-864"/>
+<text text-anchor="middle" x="295.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge50" class="edge">
-<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"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge49" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.75,-853.61C241.54,-856.24 226.6,-861.77 217,-873 180.94,-915.16 160.5,-1318.05 155.97,-1417.76"/>
+<polygon fill="#000000" stroke="#000000" points="152.46,-1417.76 155.51,-1427.9 159.46,-1418.07 152.46,-1417.76"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_util_index -->
 <g id="module~~lambda_function~~UsedByGraph_node52" class="node">
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node52"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330,-822 261,-822 261,-798 330,-798 330,-822"/>
+<text text-anchor="middle" x="295.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge51" class="edge">
-<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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge50" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.89,-810.74C245.24,-812.93 227.74,-818.35 217,-831 178.26,-876.63 159.69,-1313.6 155.79,-1417.78"/>
+<polygon fill="#000000" stroke="#000000" points="152.29,-1417.69 155.42,-1427.81 159.29,-1417.94 152.29,-1417.69"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_util_valid -->
 <g id="module~~lambda_function~~UsedByGraph_node53" class="node">
-<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>
+<title>module~s_util_valid</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node53"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328,-780 263,-780 263,-756 328,-756 328,-780"/>
+<text text-anchor="middle" x="295.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge52" class="edge">
-<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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge51" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.82,-768.45C246.67,-770.45 228.14,-775.79 217,-789 175.6,-838.09 158.95,-1308.87 155.64,-1417.65"/>
+<polygon fill="#000000" stroke="#000000" points="152.14,-1417.7 155.34,-1427.8 159.13,-1417.91 152.14,-1417.7"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~lambda_function~~UsedByGraph_node54" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node54"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-738 260.5,-738 260.5,-714 330.5,-714 330.5,-738"/>
+<text text-anchor="middle" x="295.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge53" class="edge">
-<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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge52" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.43,-726.74C244.86,-728.95 227.57,-734.39 217,-747 172.92,-799.58 158.25,-1304.66 155.5,-1417.65"/>
+<polygon fill="#000000" stroke="#000000" points="152,-1417.79 155.26,-1427.87 159,-1417.96 152,-1417.79"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_coord -->
 <g id="module~~lambda_function~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_util_coord</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node55"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<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_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge54" class="edge">
-<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"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge53" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.4,-684.72C244.83,-686.92 227.54,-692.37 217,-705 170.27,-761.03 157.6,-1299.85 155.39,-1417.42"/>
+<polygon fill="#000000" stroke="#000000" points="151.88,-1417.67 155.2,-1427.73 158.88,-1417.79 151.88,-1417.67"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_set -->
 <g id="module~~lambda_function~~UsedByGraph_node56" class="node">
-<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>
+<title>module~s_util_set</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node56"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-654 266.5,-654 266.5,-630 324.5,-630 324.5,-654"/>
+<text text-anchor="middle" x="295.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge54" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.22,-642.01C249.3,-643.62 228.84,-648.74 217,-663 167.54,-722.57 156.96,-1296.65 155.27,-1417.67"/>
+<polygon fill="#000000" stroke="#000000" points="151.77,-1417.89 155.14,-1427.94 158.77,-1417.99 151.77,-1417.89"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_util_peri -->
 <g id="module~~lambda_function~~UsedByGraph_node57" class="node">
-<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>
+<title>module~s_util_peri</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node57"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-612 265,-612 265,-588 326,-588 326,-612"/>
+<text text-anchor="middle" x="295.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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="M264.66,-600.14C248.05,-601.92 228.46,-607.14 217,-621 164.85,-684.08 156.37,-1292.71 155.18,-1417.65"/>
+<polygon fill="#000000" stroke="#000000" points="151.68,-1417.88 155.09,-1427.91 158.68,-1417.94 151.68,-1417.88"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~lambda_function~~UsedByGraph_node58" class="node">
-<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>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node58"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="351.5,-570 239.5,-570 239.5,-546 351.5,-546 351.5,-570"/>
+<text text-anchor="middle" x="295.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge56" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.46,-563.8C230.83,-567.06 222.85,-571.9 217,-579 162.14,-645.6 155.81,-1289.17 155.09,-1417.72"/>
+<polygon fill="#000000" stroke="#000000" points="151.59,-1417.91 155.04,-1427.92 158.59,-1417.94 151.59,-1417.91"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_helio_drift -->
 <g id="module~~lambda_function~~UsedByGraph_node59" class="node">
-<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>
+<title>module~s_helio_drift</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node59"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-528 260.5,-528 260.5,-504 330.5,-504 330.5,-528"/>
+<text text-anchor="middle" x="295.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge57" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.32,-516.64C244.72,-518.83 227.44,-524.29 217,-537 159.42,-607.15 155.27,-1286.04 155.01,-1417.88"/>
+<polygon fill="#000000" stroke="#000000" points="151.51,-1417.98 155,-1427.99 158.51,-1417.99 151.51,-1417.98"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_rmvs_step -->
 <g id="module~~lambda_function~~UsedByGraph_node60" class="node">
-<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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node60"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-486 259,-486 259,-462 332,-462 332,-486"/>
+<text text-anchor="middle" x="295.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge59" class="edge">
-<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"/>
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.71,-474.86C243.53,-477.19 227.06,-482.7 217,-495 156.74,-568.64 154.76,-1281.82 154.94,-1417.7"/>
+<polygon fill="#000000" stroke="#000000" points="151.44,-1417.77 154.96,-1427.76 158.44,-1417.76 151.44,-1417.77"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_spill -->
 <g id="module~~lambda_function~~UsedByGraph_node61" class="node">
-<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>
+<title>module~s_util_spill</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node61"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-444 265,-444 265,-420 326,-420 326,-444"/>
+<text text-anchor="middle" x="295.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge60" class="edge">
-<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"/>
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.98,-432.05C248.26,-433.76 228.46,-438.96 217,-453 154.05,-530.14 154.27,-1277.94 154.87,-1417.6"/>
+<polygon fill="#000000" stroke="#000000" points="151.37,-1417.92 154.92,-1427.91 158.37,-1417.89 151.37,-1417.92"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_whm_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node62" class="node">
-<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>
+<title>module~s_whm_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node62"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-402 260.5,-402 260.5,-378 330.5,-378 330.5,-402"/>
+<text text-anchor="middle" x="295.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge61" class="edge">
-<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"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.27,-390.61C244.66,-392.78 227.38,-398.24 217,-411 151.34,-491.66 153.8,-1274.26 154.81,-1417.53"/>
+<polygon fill="#000000" stroke="#000000" points="151.31,-1417.77 154.89,-1427.74 158.31,-1417.72 151.31,-1417.77"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_copy -->
 <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>
+<title>module~s_util_copy</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node63"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-360 262.5,-360 262.5,-336 328.5,-336 328.5,-360"/>
+<text text-anchor="middle" x="295.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<!-- module~s_util_copy&#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"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.23,-348.34C246.12,-350.32 227.81,-355.69 217,-369 148.63,-453.2 153.35,-1270.92 154.75,-1417.55"/>
+<polygon fill="#000000" stroke="#000000" points="151.26,-1417.99 154.86,-1427.96 158.26,-1417.92 151.26,-1417.99"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~lambda_function~~UsedByGraph_node64" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node64"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-318 268.5,-318 268.5,-294 322.5,-294 322.5,-318"/>
+<text text-anchor="middle" x="295.5" y="-303.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 -->
+<g id="module~~lambda_function~~UsedByGraph_edge63" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.38,-305.72C251,-307.05 229.2,-311.94 217,-327 181.38,-370.96 159.09,-1263.69 155.51,-1417.52"/>
+<polygon fill="#000000" stroke="#000000" points="152.01,-1417.58 155.28,-1427.66 159.01,-1417.74 152.01,-1417.58"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~lambda_function~~UsedByGraph_node65" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node65"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="352.5,-276 238.5,-276 238.5,-252 352.5,-252 352.5,-276"/>
+<text text-anchor="middle" x="295.5" y="-261.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 -->
+<g id="module~~lambda_function~~UsedByGraph_edge64" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M238.19,-270.17C230.02,-273.43 222.52,-278.17 217,-285 180.01,-330.75 158.78,-1260.91 155.46,-1417.67"/>
+<polygon fill="#000000" stroke="#000000" points="151.96,-1417.88 155.24,-1427.95 158.95,-1418.03 151.96,-1417.88"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~lambda_function~~UsedByGraph_node66" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node66"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-234 260.5,-234 260.5,-210 330.5,-210 330.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_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge65" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.22,-222.57C244.6,-224.74 227.33,-230.2 217,-243 178.64,-290.54 158.48,-1258.35 155.41,-1417.84"/>
+<polygon fill="#000000" stroke="#000000" points="151.91,-1417.84 155.22,-1427.9 158.91,-1417.97 151.91,-1417.84"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~lambda_function~~UsedByGraph_node67" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node67"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-192 247.5,-192 247.5,-168 343.5,-168 343.5,-192"/>
+<text text-anchor="middle" x="295.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge66" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.31,-183.13C235.73,-186.23 224.52,-191.66 217,-201 177.29,-250.29 158.23,-1254.06 155.38,-1417.57"/>
+<polygon fill="#000000" stroke="#000000" points="151.87,-1417.81 155.2,-1427.87 158.87,-1417.93 151.87,-1417.81"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~lambda_function~~UsedByGraph_node68" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node68"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-150 268.5,-150 268.5,-126 322.5,-126 322.5,-150"/>
+<text text-anchor="middle" x="295.5" y="-135.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 -->
+<g id="module~~lambda_function~~UsedByGraph_edge67" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.34,-137.69C250.95,-139.01 229.14,-143.9 217,-159 175.91,-210.1 157.94,-1252 155.34,-1417.84"/>
+<polygon fill="#000000" stroke="#000000" points="151.84,-1417.81 155.18,-1427.86 158.84,-1417.92 151.84,-1417.81"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~lambda_function~~UsedByGraph_node69" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node69"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334,-108 257,-108 257,-84 334,-84 334,-108"/>
+<text text-anchor="middle" x="295.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge58" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257,-97.03C242.26,-99.48 226.6,-105.04 217,-117 174.56,-169.86 157.7,-1248.08 155.3,-1417.64"/>
+<polygon fill="#000000" stroke="#000000" points="151.8,-1417.82 155.16,-1427.87 158.8,-1417.92 151.8,-1417.82"/>
+</g>
+<!-- module~s_util_version -->
+<g id="module~~lambda_function~~UsedByGraph_node70" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node70"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-66 256.5,-66 256.5,-42 334.5,-42 334.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_version</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge69" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.18,-55.16C241.68,-57.68 226.42,-63.25 217,-75 173.19,-129.64 157.44,-1245.41 155.27,-1417.73"/>
+<polygon fill="#000000" stroke="#000000" points="151.77,-1417.85 155.14,-1427.9 158.77,-1417.94 151.77,-1417.85"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~lambda_function~~UsedByGraph_node71" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node71"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333.5,-24 257.5,-24 257.5,0 333.5,0 333.5,-24"/>
+<text text-anchor="middle" x="295.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge70" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.38,-12.95C242.53,-15.37 226.67,-20.92 217,-33 171.81,-89.44 157.2,-1242.96 155.24,-1417.86"/>
+<polygon fill="#000000" stroke="#000000" points="151.74,-1417.9 155.13,-1427.94 158.74,-1417.98 151.74,-1417.9"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/orbel.html b/docs/module/orbel.html
new file mode 100644
index 000000000..413785c52
--- /dev/null
+++ b/docs/module/orbel.html
@@ -0,0 +1,960 @@
+<!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>orbel &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>orbel 
+    <small>Module</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.1% of total for modules and submodules.">17 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/orbel.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/orbel.f90~2.html'>orbel.f90</a></li>
+    
+  
+     <li class="active">orbel</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="#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/orbel.html#proc-xv2el">xv2el</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">
+  <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~~orbel~~UsesGraph Pages: 1 -->
+<svg id="moduleorbelUsesGraph" width="641pt" height="214pt"
+ viewBox="0.00 0.00 641.00 214.50" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~orbel~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 298.17)">
+<title>module~~orbel~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-298.17 899,-298.17 899,4 -4,4"/>
+<!-- module~orbel -->
+<g id="module~~orbel~~UsesGraph_node1" class="node">
+<title>module~orbel</title>
+<polygon fill="none" stroke="black" points="895,-142 841,-142 841,-118 895,-118 895,-142"/>
+<text text-anchor="middle" x="868" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~orbel~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~orbel~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~orbel~~UsesGraph_edge1" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.6,-130C832.61,-130 823.69,-130 815.18,-130"/>
+<polygon fill="#000000" stroke="#000000" points="815.08,-126.5 805.08,-130 815.08,-133.5 815.08,-126.5"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~orbel~~UsesGraph_node3" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~orbel~~UsesGraph_node3"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-260 247,-260 247,-236 347,-236 347,-260"/>
+<text text-anchor="middle" x="297" y="-245.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~~orbel~~UsesGraph_edge2" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-288C398.02,-282.17 365.15,-272.02 339.97,-263.41"/>
+<polygon fill="#000000" stroke="#000000" points="340.96,-260.05 330.37,-260.07 338.66,-266.66 340.96,-260.05"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~orbel~~UsesGraph_node4" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node4"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-182 511,-182 511,-158 588,-158 588,-182"/>
+<text text-anchor="middle" x="549.5" y="-167.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~~orbel~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-130C637.51,-130 604.25,-142.53 580.97,-153.56"/>
+<polygon fill="#000000" stroke="#000000" points="579.37,-150.44 571.94,-158 582.46,-156.73 579.37,-150.44"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~orbel~~UsesGraph_node5" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-260 385.5,-260 385.5,-236 472.5,-236 472.5,-260"/>
+<text text-anchor="middle" x="429" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~orbel~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.97,-142.04C742.33,-180.36 652.76,-296.43 550.5,-288"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-288C516.44,-291.48 481.69,-277.45 458.16,-265.07"/>
+<polygon fill="#000000" stroke="#000000" points="459.56,-261.84 449.12,-260.09 456.19,-267.98 459.56,-261.84"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~orbel~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-102 511.5,-102 511.5,-78 587.5,-78 587.5,-102"/>
+<text text-anchor="middle" x="549.5" y="-87.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~~orbel~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.74,-130C729.18,-130 697.86,-130 670.5,-130"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-130C637.51,-130 604.25,-117.47 580.97,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="582.46,-103.27 571.94,-102 579.37,-109.56 582.46,-103.27"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~orbel~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-142 391,-142 391,-118 467,-118 467,-142"/>
+<text text-anchor="middle" x="429" y="-127.6" 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~~orbel~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-130C602.15,-130 525.42,-130 477.3,-130"/>
+<polygon fill="#000000" stroke="#000000" points="477.18,-126.5 467.18,-130 477.18,-133.5 477.18,-126.5"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~orbel~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-220 123,-220 123,-196 211,-196 211,-220"/>
+<text text-anchor="middle" x="167" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-288C348.6,-272.57 322.08,-299.08 247,-269 223.79,-259.7 201.65,-241.51 186.74,-227.4"/>
+<polygon fill="#000000" stroke="#000000" points="188.84,-224.56 179.25,-220.06 183.95,-229.56 188.84,-224.56"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~orbel~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-182 627,-182 627,-158 712,-158 712,-182"/>
+<text text-anchor="middle" x="669.5" y="-167.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~~orbel~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-139.79C739.37,-144.13 725.44,-149.37 712.45,-154.24"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-151.09 702.76,-157.88 713.35,-157.64 710.89,-151.09"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~orbel~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-180 252.5,-180 252.5,-156 341.5,-156 341.5,-180"/>
+<text text-anchor="middle" x="297" y="-165.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~~orbel~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-288C496.14,-293.68 481.7,-298.05 430,-288"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-288C406.69,-283.86 398.72,-283.98 383,-269 356.24,-243.49 372.61,-220.67 347,-194 344,-190.87 340.54,-188.04 336.87,-185.5"/>
+<polygon fill="#000000" stroke="#000000" points="338.42,-182.35 328.07,-180.09 334.75,-188.31 338.42,-182.35"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~orbel~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~orbel~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-83 624,-83 624,-59 715,-59 715,-83"/>
+<text text-anchor="middle" x="669.5" y="-68.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~~orbel~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M755.19,-117.92C739.68,-109.33 718.64,-97.67 701.4,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="702.72,-84.85 692.28,-83.07 699.33,-90.97 702.72,-84.85"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~orbel~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~orbel~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-24 383,-24 383,0 475,0 475,-24"/>
+<text text-anchor="middle" x="429" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~orbel~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M771.4,-117.81C762.36,-99.65 742.72,-65.95 715,-50 643.52,-8.88 545.62,-5.01 485.16,-7.43"/>
+<polygon fill="#000000" stroke="#000000" points="484.88,-3.94 475.05,-7.91 485.21,-10.93 484.88,-3.94"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~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,-236C244.68,-231.96 230.09,-227.4 216.5,-223.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-219.77 206.82,-220.13 215.32,-226.45 217.41,-219.77"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~orbel~~UsesGraph_edge14" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-158C501.22,-154.04 488.01,-149.58 475.64,-145.4"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-142.01 465.94,-142.13 474.29,-148.65 476.53,-142.01"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.74,-171C476.34,-170.68 424.69,-167.09 383,-151 339.62,-134.26 341.43,-73.38 298,-90"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge15" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.3,-235.93C375.49,-225.2 334.97,-210.78 298,-208"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~orbel~~UsesGraph_edge16" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.66,-235.89C398.31,-231.7 390.19,-226.84 383,-222 366.19,-210.68 364.02,-205.01 347,-194 342.2,-190.89 336.99,-187.83 331.82,-184.95"/>
+<polygon fill="#000000" stroke="#000000" points="333.12,-181.68 322.65,-180.02 329.8,-187.84 333.12,-181.68"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~orbel~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-102C501.22,-105.96 488.01,-110.42 475.64,-114.6"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-111.35 465.94,-117.87 476.53,-117.99 474.29,-111.35"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C370.82,-98.27 351.8,-68.94 298,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.47,-87.29C488.01,-86.24 457.08,-86.08 430,-90"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~orbel~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C384.19,-96.34 341.84,-128.01 317.94,-148.99"/>
+<polygon fill="#000000" stroke="#000000" points="315.35,-146.61 310.28,-155.91 320.04,-151.81 315.35,-146.61"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-117.93C370.04,-103.65 317.13,-82.68 298,-90"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~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.75,-140.89C377.83,-144.67 363.11,-148.97 349.26,-153.02"/>
+<polygon fill="#000000" stroke="#000000" points="347.98,-149.74 339.37,-155.91 349.95,-156.46 347.98,-149.74"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~orbel~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~orbel~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-220 0,-220 0,-196 87,-196 87,-220"/>
+<text text-anchor="middle" x="43.5" y="-205.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~~orbel~~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,-208C114.58,-208 105.86,-208 97.36,-208"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-204.5 87.13,-208 97.13,-211.5 97.13,-204.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~orbel~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-170C617.64,-170 607.75,-170 598.27,-170"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-166.5 588.18,-170 598.18,-173.5 598.18,-166.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~orbel~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-210C522.97,-216.11 494.97,-224.99 472.61,-232.62"/>
+<polygon fill="#000000" stroke="#000000" points="471.38,-229.34 463.08,-235.91 473.67,-235.96 471.38,-229.34"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~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="M646.49,-157.75C639.23,-153.55 631.18,-148.72 624,-144 606.9,-132.77 588.34,-119.12 574.15,-108.36"/>
+<polygon fill="#000000" stroke="#000000" points="576,-105.37 565.93,-102.07 571.75,-110.93 576,-105.37"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-208C271.5,-206.15 244.29,-205.9 221.27,-206.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-202.72 211.02,-206.39 221.08,-209.72 220.96,-202.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-208C370.42,-203.18 355.61,-212.34 298,-208"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~orbel~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.9,-182.1C614.34,-191 580.79,-202.75 550.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-208C395.45,-205.28 360.12,-193.82 334.52,-183.86"/>
+<polygon fill="#000000" stroke="#000000" points="335.79,-180.6 325.21,-180.14 333.19,-187.1 335.79,-180.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-210C497.27,-222.27 482.49,-212.39 430,-208"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge28" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-180C244.68,-184.04 230.09,-188.6 216.5,-192.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-189.55 206.82,-195.87 217.41,-196.23 215.32,-189.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge29" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M623.84,-64.48C552.26,-55.94 408.66,-46.69 298,-90"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~orbel~~UsesGraph_edge30" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-90C245.57,-109.3 203.18,-159.14 182.18,-187.48"/>
+<polygon fill="#000000" stroke="#000000" points="179.14,-185.71 176.13,-195.87 184.82,-189.81 179.14,-185.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.87,-24.06C399.32,-28.41 390.76,-33.39 383,-38 344.94,-60.64 339.36,-74.17 298,-90"/>
+</g>
+</g>
+</svg>
+</div><script>var panmoduleorbelUsesGraph = svgPanZoom('#moduleorbelUsesGraph', {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="#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/orbel.html#proc-xv2el">xv2el</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+    
+    <section>
+    <h2>Subroutines</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-xv2el"></span><h3>
+public pure elemental subroutine <a href='../proc/xv2el.html'>xv2el</a>(mu, px, py, pz, vx, vy, vz, a, e, inc, capom, omega, capm)
+    
+    
+   
+</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>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mu</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>px</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>py</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pz</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vx</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vy</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vz</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>a</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>e</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>inc</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>capom</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>omega</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>capm</strong></td><td></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/rmvs_classes.html b/docs/module/rmvs_classes.html
index 8874ecf23..7f994f473 100644
--- a/docs/module/rmvs_classes.html
+++ b/docs/module/rmvs_classes.html
@@ -136,7 +136,7 @@ <h1>rmvs_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.">203 statements</a>
+    title=" 1.3% of total for modules and submodules.">210 statements</a>
      </li> 
      
      
@@ -214,6 +214,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_discard_tp">rmvs_discard_tp</a>
       
+      <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_io_write_encounter">rmvs_io_write_encounter</a>
+      
       <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_kick_getacch_tp">rmvs_kick_getacch_tp</a>
       
       <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_setup_pl">rmvs_setup_pl</a>
@@ -498,6 +500,8 @@ <h3 class="panel-title">Used by</h3>
       
       <li><a href='../module/s_rmvs_discard.html'>s_rmvs_discard</a></li>
       
+      <li><a href='../module/s_rmvs_io.html'>s_rmvs_io</a></li>
+      
       <li><a href='../module/s_rmvs_kick.html'>s_rmvs_kick</a></li>
       
       <li><a href='../module/s_rmvs_setup.html'>s_rmvs_setup</a></li>
@@ -517,1051 +521,1175 @@ <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="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)">
+<svg id="modulermvs_classesUsedByGraph" width="489pt" height="2888pt"
+ viewBox="0.00 0.00 489.00 2888.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 2884)">
 <title>module~~rmvs_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 485,-2548 485,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 485,-2884 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,-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>
+<polygon fill="none" stroke="black" points="77,-1410 0,-1410 0,-1386 77,-1386 77,-1410"/>
+<text text-anchor="middle" x="38.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes</text>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node2" class="node">
-<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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2880 363,-2880 363,-2856 442,-2856 442,-2880"/>
+<text text-anchor="middle" x="402.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge3" class="edge">
-<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"/>
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M362.85,-2861.75C349.92,-2858.59 335.79,-2853.89 324,-2847 290.08,-2827.17 294.15,-2806.57 262,-2784"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_node8" class="node">
+<g id="module~~rmvs_classes~~UsedByGraph_node7" class="node">
 <title>module~swiftest</title>
-<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>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node7"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="288,-1410 234,-1410 234,-1386 288,-1386 288,-1410"/>
+<text text-anchor="middle" x="261" y="-1395.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~~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"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.77,-2866.78C348.38,-2864.23 333.31,-2858.65 324,-2847 277.48,-2788.82 263.98,-1599.73 262.21,-1420.53"/>
+<polygon fill="#000000" stroke="#000000" points="265.71,-1420.38 262.11,-1410.42 258.71,-1420.45 265.71,-1420.38"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_rmvs_step -->
 <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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-2838 366,-2838 366,-2814 439,-2814 439,-2838"/>
+<text text-anchor="middle" x="402.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<!-- module~s_rmvs_step&#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"/>
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M365.83,-2821.62C335.89,-2816.54 293.16,-2805.87 262,-2784"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.99,-2825.3C350.68,-2823.02 334.02,-2817.51 324,-2805 278.81,-2748.56 264.2,-1595.04 262.24,-1420.14"/>
+<polygon fill="#000000" stroke="#000000" points="265.74,-1420.02 262.13,-1410.06 258.74,-1420.1 265.74,-1420.02"/>
 </g>
 <!-- module~s_rmvs_chk -->
 <g id="module~~rmvs_classes~~UsedByGraph_node4" class="node">
 <title>module~s_rmvs_chk</title>
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-2796 367.5,-2796 367.5,-2772 437.5,-2772 437.5,-2796"/>
+<text text-anchor="middle" x="402.5" y="-2781.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_edge5" class="edge">
 <title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M367.34,-2446.6C339.06,-2445.78 297.87,-2445.35 262,-2448"/>
+<path fill="none" stroke="#000000" d="M367.25,-2794.21C336.81,-2801.08 292.53,-2805.43 262,-2784"/>
 </g>
 <!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge13" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge60" class="edge">
 <title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.19,-2783.46C351.56,-2781.3 334.29,-2775.83 324,-2763 280.19,-2708.36 264.44,-1592.59 262.27,-1420.27"/>
+<polygon fill="#000000" stroke="#000000" points="265.77,-1420.06 262.14,-1410.1 258.77,-1420.15 265.77,-1420.06"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_rmvs_util -->
 <g id="module~~rmvs_classes~~UsedByGraph_node5" class="node">
-<title>module~s_rmvs_setup</title>
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436,-2754 369,-2754 369,-2730 436,-2730 436,-2754"/>
+<text text-anchor="middle" x="402.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
-<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.73,-2416C350.31,-2419.34 336.54,-2423.18 324,-2427 296.17,-2435.48 291.01,-2445.86 262,-2448"/>
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge7" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M368.94,-2750.34C355.04,-2754.03 338.67,-2758.53 324,-2763 296.17,-2771.48 285.81,-2800.72 262,-2784"/>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
-<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,-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"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.78,-2741.66C352.75,-2739.65 334.65,-2734.26 324,-2721 281.56,-2668.14 264.7,-1589.92 262.3,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="265.8,-1420.08 262.16,-1410.13 258.8,-1420.18 265.8,-1420.08"/>
 </g>
 <!-- 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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-2712 358.5,-2712 358.5,-2688 446.5,-2688 446.5,-2712"/>
+<text text-anchor="middle" x="402.5" y="-2697.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~~rmvs_classes~~UsedByGraph_edge7" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge6" 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"/>
+<path fill="none" stroke="#000000" d="M260,-2784C115.84,-2784 49.77,-1599.36 40.62,-1420.5"/>
+<polygon fill="#000000" stroke="#000000" points="44.11,-1420.22 40.1,-1410.41 37.11,-1420.57 44.11,-1420.22"/>
+<path fill="none" stroke="#000000" d="M358.46,-2707.37C346.77,-2710.49 334.47,-2714.88 324,-2721 290.08,-2740.83 294.15,-2806.57 262,-2784"/>
 </g>
 <!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge21" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge30" 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_node7" class="node">
-<title>module~s_rmvs_step</title>
-<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_edge8" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
-<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_edge47" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M358.35,-2697.87C345.38,-2694.99 332.39,-2689.43 324,-2679 282.91,-2627.9 264.94,-1586 262.34,-1420.16"/>
+<polygon fill="#000000" stroke="#000000" points="265.84,-1420.08 262.18,-1410.14 258.84,-1420.19 265.84,-1420.08"/>
 </g>
 <!-- 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.73,-1385.95C256.67,-1252.27 227.18,-51.56 156.5,-54"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_node9" class="node">
+<g id="module~~rmvs_classes~~UsedByGraph_node8" class="node">
 <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>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-1410 113,-1410 113,-1386 198,-1386 198,-1410"/>
+<text text-anchor="middle" x="155.5" y="-1395.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~~rmvs_classes~~UsedByGraph_edge70" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge79" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.88,-1398C226.13,-1398 217.36,-1398 208.58,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="208.32,-1394.5 198.32,-1398 208.32,-1401.5 208.32,-1394.5"/>
 </g>
 <!-- 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.98,-1398C104.66,-1398 95.85,-1398 87.33,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="87.14,-1394.5 77.14,-1398 87.14,-1401.5 87.14,-1394.5"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_rmvs_io -->
+<g id="module~~rmvs_classes~~UsedByGraph_node9" class="node">
+<title>module~s_rmvs_io</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-66 372,-66 372,-42 433,-42 433,-66"/>
+<text text-anchor="middle" x="402.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_io&#45;&gt;module~rmvs_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge8" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M371.79,-52.74C343.52,-51.83 299.8,-51.21 262,-54"/>
+</g>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.9,-53.98C355.15,-55.67 335.35,-60.87 324,-75 281.56,-127.86 264.7,-1206.08 262.3,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="258.8,-1375.82 262.16,-1385.87 265.8,-1375.92 258.8,-1375.82"/>
+</g>
+<!-- module~s_rmvs_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node10" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node10"><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>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge9" class="edge">
-<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"/>
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M366.65,-20.95C353.26,-24.52 337.87,-28.78 324,-33 296.17,-41.48 291.01,-51.86 262,-54"/>
+<path fill="none" stroke="#000000" d="M154.5,-54C85.29,-56.38 45.79,-1201.96 40.19,-1375.96"/>
+<polygon fill="#000000" stroke="#000000" points="36.69,-1375.89 39.87,-1385.99 43.69,-1376.11 36.69,-1375.89"/>
+<path fill="none" stroke="#000000" d="M260,-54C214.12,-57.39 202.47,-52.42 156.5,-54"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_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="M366.79,-12.6C351.27,-14.79 334.2,-20.27 324,-33 280.19,-87.64 264.44,-1203.41 262.27,-1375.73"/>
+<polygon fill="#000000" stroke="#000000" points="258.77,-1375.85 262.14,-1385.9 265.77,-1375.94 258.77,-1375.85"/>
+</g>
+<!-- module~s_symba_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node11" class="node">
-<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>
+<title>module~s_symba_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2670 363,-2670 363,-2646 442,-2646 442,-2670"/>
+<text text-anchor="middle" x="402.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge10" class="edge">
-<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"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.81,-2656.74C348.43,-2654.19 333.36,-2648.62 324,-2637 284.29,-2587.71 265.23,-1583.94 262.38,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="265.87,-1420.07 262.2,-1410.13 258.87,-1420.19 265.87,-1420.07"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge80" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M362.99,-2653.61C349.63,-2650.6 335.2,-2645.53 324,-2637 280.89,-2604.16 302.06,-2568.5 262,-2532"/>
+</g>
+<!-- module~s_symba_drift -->
 <g id="module~~rmvs_classes~~UsedByGraph_node12" class="node">
-<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>
+<title>module~s_symba_drift</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2628 363,-2628 363,-2604 442,-2604 442,-2628"/>
+<text text-anchor="middle" x="402.5" y="-2613.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~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge11" class="edge">
-<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"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.82,-2614.74C348.44,-2612.18 333.37,-2606.61 324,-2595 285.64,-2547.46 265.48,-1579.65 262.41,-1420.16"/>
+<polygon fill="#000000" stroke="#000000" points="265.91,-1420.03 262.22,-1410.1 258.91,-1420.16 265.91,-1420.03"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M362.85,-2609.75C349.92,-2606.59 335.79,-2601.89 324,-2595 290.08,-2575.17 291.04,-2558.46 262,-2532"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_util_exit -->
 <g id="module~~rmvs_classes~~UsedByGraph_node13" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-2376 372.5,-2376 372.5,-2352 432.5,-2352 432.5,-2376"/>
+<text text-anchor="middle" x="402.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge11" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.38,-2363.98C355.59,-2362.3 335.57,-2357.13 324,-2343 263.74,-2269.36 261.76,-1556.18 261.94,-1420.3"/>
+<polygon fill="#000000" stroke="#000000" points="265.44,-1420.24 261.96,-1410.24 258.44,-1420.23 265.44,-1420.24"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- proc~ge_wpp -->
 <g id="module~~rmvs_classes~~UsedByGraph_node14" class="node">
-<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>
+<title>proc~ge_wpp</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node14"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="429.5,-2334 375.5,-2334 375.5,-2310 429.5,-2310 429.5,-2334"/>
+<text text-anchor="middle" x="402.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge12" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.44,-2322.24C358.09,-2320.88 336.29,-2315.98 324,-2301 266.42,-2230.85 262.27,-1551.96 262.01,-1420.12"/>
+<polygon fill="#000000" stroke="#000000" points="265.51,-1420.01 262,-1410.01 258.51,-1420.02 265.51,-1420.01"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_whm_util -->
 <g id="module~~rmvs_classes~~UsedByGraph_node15" class="node">
-<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>
+<title>module~s_whm_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-2292 369.5,-2292 369.5,-2268 435.5,-2268 435.5,-2292"/>
+<text text-anchor="middle" x="402.5" y="-2277.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~~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"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.31,-2279.6C353.22,-2277.6 334.9,-2272.23 324,-2259 269.14,-2192.4 262.81,-1548.83 262.09,-1420.28"/>
+<polygon fill="#000000" stroke="#000000" points="265.59,-1420.06 262.04,-1410.08 258.59,-1420.09 265.59,-1420.06"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_helio_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node16" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2250 363,-2250 363,-2226 442,-2226 442,-2250"/>
+<text text-anchor="middle" x="402.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.96,-2236.62C348.6,-2234.05 333.5,-2228.5 324,-2217 271.85,-2153.92 263.37,-1545.29 262.18,-1420.35"/>
+<polygon fill="#000000" stroke="#000000" points="265.68,-1420.06 262.09,-1410.09 258.68,-1420.12 265.68,-1420.06"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_util_solve -->
 <g id="module~~rmvs_classes~~UsedByGraph_node17" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2208 368.5,-2208 368.5,-2184 436.5,-2184 436.5,-2208"/>
+<text text-anchor="middle" x="402.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.17,-2195.41C352.38,-2193.29 334.69,-2187.87 324,-2175 274.54,-2115.43 263.96,-1541.35 262.27,-1420.33"/>
+<polygon fill="#000000" stroke="#000000" points="265.77,-1420.01 262.14,-1410.06 258.77,-1420.11 265.77,-1420.01"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_whm_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node18" class="node">
-<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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2166 363,-2166 363,-2142 442,-2142 442,-2166"/>
+<text text-anchor="middle" x="402.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.61,-2152.51C348.38,-2149.9 333.46,-2144.35 324,-2133 277.27,-2076.97 264.6,-1538.15 262.39,-1420.58"/>
+<polygon fill="#000000" stroke="#000000" points="265.88,-1420.21 262.2,-1410.27 258.88,-1420.33 265.88,-1420.21"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_netcdf -->
 <g id="module~~rmvs_classes~~UsedByGraph_node19" class="node">
-<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>
+<title>module~s_netcdf</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-2124 375.5,-2124 375.5,-2100 429.5,-2100 429.5,-2124"/>
+<text text-anchor="middle" x="402.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.16,-2112.12C357.91,-2110.69 336.36,-2105.74 324,-2091 279.92,-2038.42 265.25,-1533.34 262.5,-1420.35"/>
+<polygon fill="#000000" stroke="#000000" points="266,-1420.04 262.26,-1410.13 259,-1420.21 266,-1420.04"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_io -->
 <g id="module~~rmvs_classes~~UsedByGraph_node20" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-2082 375.5,-2082 375.5,-2058 429.5,-2058 429.5,-2082"/>
+<text text-anchor="middle" x="402.5" y="-2067.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~~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"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.19,-2070.1C357.95,-2068.66 336.4,-2063.71 324,-2049 282.6,-1999.91 265.95,-1529.13 262.64,-1420.35"/>
+<polygon fill="#000000" stroke="#000000" points="266.13,-1420.09 262.34,-1410.2 259.14,-1420.3 266.13,-1420.09"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_helio_step -->
 <g id="module~~rmvs_classes~~UsedByGraph_node21" class="node">
-<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>
+<title>module~s_helio_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-2040 366,-2040 366,-2016 439,-2016 439,-2040"/>
+<text text-anchor="middle" x="402.5" y="-2025.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 -->
-<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"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.91,-2026.97C350.78,-2024.6 334.28,-2019.12 324,-2007 285.26,-1961.37 266.69,-1524.4 262.79,-1420.22"/>
+<polygon fill="#000000" stroke="#000000" points="266.29,-1420.06 262.42,-1410.19 259.29,-1420.31 266.29,-1420.06"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~orbel -->
 <g id="module~~rmvs_classes~~UsedByGraph_node22" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node22"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" 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">orbel</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge21" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.25,-1986.05C358.05,-1984.58 336.5,-1979.62 324,-1965 287.94,-1922.84 267.5,-1519.95 262.97,-1420.24"/>
+<polygon fill="#000000" stroke="#000000" points="266.46,-1419.93 262.51,-1410.1 259.46,-1420.24 266.46,-1419.93"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_symba_util -->
 <g id="module~~rmvs_classes~~UsedByGraph_node23" class="node">
-<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>
+<title>module~s_symba_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440,-2586 365,-2586 365,-2562 440,-2562 440,-2586"/>
+<text text-anchor="middle" x="402.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.84,-2573.07C349.88,-2570.68 333.82,-2565.14 324,-2553 287.01,-2507.25 265.78,-1577.09 262.46,-1420.33"/>
+<polygon fill="#000000" stroke="#000000" points="265.95,-1419.97 262.24,-1410.05 258.96,-1420.12 265.95,-1419.97"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge85" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M364.9,-2571.62C333.98,-2567.78 290.32,-2557.81 262,-2532"/>
+</g>
+<!-- module~s_symba_collision -->
 <g id="module~~rmvs_classes~~UsedByGraph_node24" class="node">
-<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>
+<title>module~s_symba_collision</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-2544 353,-2544 353,-2520 452,-2520 452,-2544"/>
+<text text-anchor="middle" x="402.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M352.73,-2528.39C341.73,-2525.23 331.2,-2519.88 324,-2511 288.38,-2467.04 266.09,-1574.31 262.51,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="266.01,-1420.26 262.28,-1410.34 259.01,-1420.42 266.01,-1420.26"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M365.53,-2544.04C334.16,-2552.05 289.48,-2557.04 262,-2532"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~rmvs_classes~~UsedByGraph_node25" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="474,-2502 331,-2502 331,-2478 474,-2478 474,-2502"/>
+<text text-anchor="middle" x="402.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.79,-2477.86C330.13,-2475.39 326.81,-2472.46 324,-2469 255.63,-2384.8 260.35,-1567.08 261.75,-1420.45"/>
+<polygon fill="#000000" stroke="#000000" points="265.26,-1420.08 261.86,-1410.04 258.26,-1420.01 265.26,-1420.08"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge83" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M355.06,-2502.08C344.79,-2504.89 334,-2507.95 324,-2511 296.17,-2519.48 283.5,-2551.6 262,-2532"/>
+</g>
+<!-- module~s_helio_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node26" class="node">
-<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>
+<title>module~s_helio_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1956 367.5,-1956 367.5,-1932 437.5,-1932 437.5,-1956"/>
+<text text-anchor="middle" x="402.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.19,-1943.07C351.76,-1940.8 334.65,-1935.35 324,-1923 290.62,-1884.31 268.4,-1515.69 263.18,-1420.4"/>
+<polygon fill="#000000" stroke="#000000" points="266.68,-1420.2 262.64,-1410.4 259.69,-1420.57 266.68,-1420.2"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_symba_step -->
 <g id="module~~rmvs_classes~~UsedByGraph_node27" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443.5,-2460 361.5,-2460 361.5,-2436 443.5,-2436 443.5,-2460"/>
+<text text-anchor="middle" x="402.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.25,-2446.4C347.38,-2443.71 333.06,-2438.14 324,-2427 258.34,-2346.34 260.8,-1563.74 261.81,-1420.47"/>
+<polygon fill="#000000" stroke="#000000" points="265.31,-1420.28 261.89,-1410.26 258.31,-1420.23 265.31,-1420.28"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge87" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M361.26,-2454.64C348.77,-2457.8 335.31,-2462.39 324,-2469 290.08,-2488.83 291.04,-2558.46 262,-2532"/>
+</g>
+<!-- module~s_whm_step -->
 <g id="module~~rmvs_classes~~UsedByGraph_node28" class="node">
-<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>
+<title>module~s_whm_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-1914 366,-1914 366,-1890 439,-1890 439,-1914"/>
+<text text-anchor="middle" x="402.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.66,-1900.78C350.66,-1898.36 334.35,-1892.87 324,-1881 263,-1811.01 261.03,-1505.58 261.7,-1420.23"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-1420.14 261.81,-1410.1 258.21,-1420.07 265.21,-1420.14"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_helio_gr -->
 <g id="module~~rmvs_classes~~UsedByGraph_node29" class="node">
-<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>
+<title>module~s_helio_gr</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433.5,-1872 371.5,-1872 371.5,-1848 433.5,-1848 433.5,-1872"/>
+<text text-anchor="middle" x="402.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.22,-1859.49C354.88,-1857.55 335.71,-1852.28 324,-1839 268.31,-1775.88 262.5,-1501.06 262.01,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="265.51,-1420.29 261.97,-1410.3 258.51,-1420.31 265.51,-1420.29"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_symba_discard -->
 <g id="module~~rmvs_classes~~UsedByGraph_node30" class="node">
-<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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-2418 354.5,-2418 354.5,-2394 450.5,-2394 450.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_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.39,-2402.81C342.81,-2399.71 331.58,-2394.29 324,-2385 261.05,-2307.86 261.27,-1560.06 261.87,-1420.4"/>
+<polygon fill="#000000" stroke="#000000" points="265.37,-1420.11 261.92,-1410.09 258.37,-1420.08 265.37,-1420.11"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge88" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M354.15,-2412.66C343.49,-2415.77 332.76,-2420.33 324,-2427 280.89,-2459.84 302.06,-2568.5 262,-2532"/>
+<path fill="none" stroke="#000000" d="M260,-2532C174.64,-2454.21 158.88,-1573.69 156.78,-1420.62"/>
+<polygon fill="#000000" stroke="#000000" points="160.27,-1420.12 156.64,-1410.16 153.27,-1420.21 160.27,-1420.12"/>
+</g>
+<!-- module~whm_drift -->
 <g id="module~~rmvs_classes~~UsedByGraph_node31" class="node">
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node31"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-1830 373,-1830 373,-1806 432,-1806 432,-1830"/>
+<text text-anchor="middle" x="402.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_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="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_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"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge31" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.82,-1817.6C356.19,-1815.79 336.18,-1810.61 324,-1797 273.63,-1740.74 264.13,-1496.59 262.38,-1420.64"/>
+<polygon fill="#000000" stroke="#000000" points="265.88,-1420.24 262.17,-1410.32 258.88,-1420.39 265.88,-1420.24"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_fraggle_io -->
 <g id="module~~rmvs_classes~~UsedByGraph_node32" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-1788 367,-1788 367,-1764 438,-1764 438,-1788"/>
+<text text-anchor="middle" x="402.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.69,-1774.69C351.53,-1772.29 334.8,-1766.85 324,-1755 278.84,-1705.45 265.9,-1490.95 262.83,-1420.51"/>
+<polygon fill="#000000" stroke="#000000" points="266.32,-1419.98 262.41,-1410.14 259.32,-1420.27 266.32,-1419.98"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_util_append -->
 <g id="module~~rmvs_classes~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-1746 363,-1746 363,-1722 442,-1722 442,-1746"/>
+<text text-anchor="middle" x="402.5" y="-1731.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 -->
-<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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.83,-1731.88C348.81,-1729.16 333.98,-1723.71 324,-1713 284.03,-1670.11 267.88,-1485 263.4,-1420.37"/>
+<polygon fill="#000000" stroke="#000000" points="266.87,-1419.83 262.71,-1410.09 259.88,-1420.3 266.87,-1419.83"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_util_fill -->
 <g id="module~~rmvs_classes~~UsedByGraph_node34" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1704 375.5,-1704 375.5,-1680 429.5,-1680 429.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_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<!-- module~s_util_fill&#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"/>
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.4,-1691.54C358.49,-1689.83 337.22,-1684.78 324,-1671 289.15,-1634.68 270.1,-1478.39 264.1,-1420.06"/>
+<polygon fill="#000000" stroke="#000000" points="267.58,-1419.67 263.11,-1410.06 260.62,-1420.36 267.58,-1419.67"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_fraggle_placeholder -->
 <g id="module~~rmvs_classes~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="461.5,-1662 343.5,-1662 343.5,-1638 461.5,-1638 461.5,-1662"/>
+<text text-anchor="middle" x="402.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M343.21,-1641.53C336.08,-1638.49 329.41,-1634.43 324,-1629 266.29,-1571.15 260.67,-1465.75 261.15,-1420.08"/>
+<polygon fill="#000000" stroke="#000000" points="264.65,-1420.14 261.37,-1410.06 257.66,-1419.98 264.65,-1420.14"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_whm_gr -->
 <g id="module~~rmvs_classes~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433.5,-1620 371.5,-1620 371.5,-1596 433.5,-1596 433.5,-1620"/>
+<text text-anchor="middle" x="402.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge38" class="edge">
-<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"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.32,-1606.55C355.41,-1604.28 336.64,-1598.99 324,-1587 276.48,-1541.9 265.34,-1459.85 262.76,-1420.38"/>
+<polygon fill="#000000" stroke="#000000" points="266.25,-1420.03 262.23,-1410.23 259.26,-1420.4 266.25,-1420.03"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~rmvs_classes~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node37"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.48,-1560.16C342.85,-1557.02 332.29,-1552.25 324,-1545 286.5,-1512.23 271.09,-1452.98 265.24,-1420.61"/>
+<polygon fill="#000000" stroke="#000000" points="268.63,-1419.66 263.55,-1410.37 261.73,-1420.8 268.63,-1419.66"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_obl -->
 <g id="module~~rmvs_classes~~UsedByGraph_node38" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<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_obl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.23,-1521.9C359.09,-1519.46 338.75,-1514.24 324,-1503 295.98,-1481.66 278.19,-1443.7 269.17,-1419.75"/>
+<polygon fill="#000000" stroke="#000000" points="272.4,-1418.37 265.74,-1410.13 265.81,-1420.73 272.4,-1418.37"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_discard -->
 <g id="module~~rmvs_classes~~UsedByGraph_node39" class="node">
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-1494 373.5,-1494 373.5,-1470 431.5,-1470 431.5,-1494"/>
+<text text-anchor="middle" x="402.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.21,-1478.04C357.87,-1475.01 339.04,-1469.79 324,-1461 305.35,-1450.1 288.46,-1432.13 277.04,-1418.17"/>
+<polygon fill="#000000" stroke="#000000" points="279.61,-1415.78 270.66,-1410.1 274.11,-1420.11 279.61,-1415.78"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_util_resize -->
 <g id="module~~rmvs_classes~~UsedByGraph_node40" class="node">
-<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>
+<title>module~s_util_resize</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438.5,-1452 366.5,-1452 366.5,-1428 438.5,-1428 438.5,-1452"/>
+<text text-anchor="middle" x="402.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.26,-1430.95C352.96,-1427.4 337.74,-1423.18 324,-1419 315.48,-1416.41 306.37,-1413.43 297.83,-1410.56"/>
+<polygon fill="#000000" stroke="#000000" points="298.72,-1407.16 288.13,-1407.25 296.47,-1413.79 298.72,-1407.16"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~drift_implementation -->
 <g id="module~~rmvs_classes~~UsedByGraph_node41" class="node">
-<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>
+<title>module~drift_implementation</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node41"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="457,-1410 348,-1410 348,-1386 457,-1386 457,-1410"/>
+<text text-anchor="middle" x="402.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge45" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M347.96,-1398C331.52,-1398 313.8,-1398 298.74,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="298.31,-1394.5 288.31,-1398 298.31,-1401.5 298.31,-1394.5"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~rmvs_classes~~UsedByGraph_node42" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="455.5,-1368 349.5,-1368 349.5,-1344 455.5,-1344 455.5,-1368"/>
+<text text-anchor="middle" x="402.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M355.06,-1368.08C344.79,-1370.89 334,-1373.95 324,-1377 315.48,-1379.59 306.37,-1382.57 297.83,-1385.44"/>
+<polygon fill="#000000" stroke="#000000" points="296.47,-1382.21 288.13,-1388.75 298.72,-1388.84 296.47,-1382.21"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_operator_cross -->
 <g id="module~~rmvs_classes~~UsedByGraph_node43" class="node">
-<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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-1326 354.5,-1326 354.5,-1302 450.5,-1302 450.5,-1326"/>
+<text text-anchor="middle" x="402.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.41,-1322.5C343.97,-1325.52 333.27,-1329.58 324,-1335 305.35,-1345.9 288.46,-1363.87 277.04,-1377.83"/>
+<polygon fill="#000000" stroke="#000000" points="274.11,-1375.89 270.66,-1385.9 279.61,-1380.22 274.11,-1375.89"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_symba_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node44" class="node">
-<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>
+<title>module~s_symba_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-150 358.5,-150 358.5,-126 446.5,-126 446.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_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M358.36,-140.14C345.39,-143.02 332.39,-148.58 324,-159 284.29,-208.29 265.23,-1212.06 262.38,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="258.87,-1375.81 262.2,-1385.87 265.87,-1375.93 258.87,-1375.81"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M368.24,-125.99C336.08,-116.76 288.43,-109.83 262,-138"/>
+</g>
+<!-- proc~solve_wbs -->
 <g id="module~~rmvs_classes~~UsedByGraph_node45" class="node">
-<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>
+<title>proc~solve_wbs</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node45"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433.5,-1284 371.5,-1284 371.5,-1260 433.5,-1260 433.5,-1284"/>
+<text text-anchor="middle" x="402.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge48" class="edge">
-<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>
-<!-- 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"/>
+<!-- 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.15,-1274.77C355.76,-1277.44 337.53,-1282.69 324,-1293 295.98,-1314.34 278.19,-1352.3 269.17,-1376.25"/>
+<polygon fill="#000000" stroke="#000000" points="265.81,-1375.27 265.74,-1385.87 272.4,-1377.63 265.81,-1375.27"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_fraggle_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node46" class="node">
-<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>
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447,-1242 358,-1242 358,-1218 447,-1218 447,-1242"/>
+<text text-anchor="middle" x="402.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_setup&#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"/>
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.92,-1234.63C345.83,-1237.7 333.45,-1242.74 324,-1251 286.5,-1283.77 271.09,-1343.02 265.24,-1375.39"/>
+<polygon fill="#000000" stroke="#000000" points="261.73,-1375.2 263.55,-1385.63 268.63,-1376.34 261.73,-1375.2"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~s_util_sort -->
 <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,-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>
+<title>module~s_util_sort</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-1200 372,-1200 372,-1176 433,-1176 433,-1200"/>
+<text text-anchor="middle" x="402.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.7,-1189.39C355.71,-1191.63 336.74,-1196.91 324,-1209 276.48,-1254.1 265.34,-1336.15 262.76,-1375.62"/>
+<polygon fill="#000000" stroke="#000000" points="259.26,-1375.6 262.23,-1385.77 266.25,-1375.97 259.26,-1375.6"/>
 </g>
-<!-- module~s_io -->
+<!-- program~swiftest_driver -->
 <g id="module~~rmvs_classes~~UsedByGraph_node48" class="node">
-<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>
+<title>program~swiftest_driver</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node48"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="443,-1158 362,-1158 362,-1134 443,-1134 443,-1158"/>
+<text text-anchor="middle" x="402.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge51" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.61,-1148.81C348.1,-1151.66 333.94,-1157.03 324,-1167 266.29,-1224.85 260.67,-1330.25 261.15,-1375.92"/>
+<polygon fill="#000000" stroke="#000000" points="257.66,-1376.02 261.37,-1385.94 264.65,-1375.86 257.66,-1376.02"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_gr -->
 <g id="module~~rmvs_classes~~UsedByGraph_node49" class="node">
-<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>
+<title>module~s_gr</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<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_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.4,-1104.46C358.49,-1106.17 337.22,-1111.22 324,-1125 289.15,-1161.32 270.1,-1317.61 264.1,-1375.94"/>
+<polygon fill="#000000" stroke="#000000" points="260.62,-1375.64 263.11,-1385.94 267.58,-1376.33 260.62,-1375.64"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~rmvs_classes~~UsedByGraph_node50" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-1074 346.5,-1074 346.5,-1050 458.5,-1050 458.5,-1074"/>
+<text text-anchor="middle" x="402.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.37,-1068.71C337.97,-1071.9 330.08,-1076.47 324,-1083 284.03,-1125.89 267.88,-1311 263.4,-1375.63"/>
+<polygon fill="#000000" stroke="#000000" points="259.88,-1375.7 262.71,-1385.91 266.87,-1376.17 259.88,-1375.7"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_rescale -->
 <g id="module~~rmvs_classes~~UsedByGraph_node51" class="node">
-<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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-1032 363.5,-1032 363.5,-1008 441.5,-1008 441.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_rescale</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.11,-1021.93C348.95,-1024.6 333.95,-1030.08 324,-1041 278.84,-1090.55 265.9,-1305.05 262.83,-1375.49"/>
+<polygon fill="#000000" stroke="#000000" points="259.32,-1375.73 262.41,-1385.86 266.32,-1376.02 259.32,-1375.73"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~rmvs_classes~~UsedByGraph_node52" class="node">
-<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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="481,-990 324,-990 324,-966 481,-966 481,-990"/>
+<text text-anchor="middle" x="402.5" y="-975.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~~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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M334.87,-990.02C330.85,-992.5 327.16,-995.47 324,-999 273.63,-1055.26 264.13,-1299.41 262.38,-1375.36"/>
+<polygon fill="#000000" stroke="#000000" points="258.88,-1375.61 262.17,-1385.68 265.88,-1375.76 258.88,-1375.61"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node53" class="node">
-<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>
+<title>module~s_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-948 375.5,-948 375.5,-924 429.5,-924 429.5,-948"/>
+<text text-anchor="middle" x="402.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.39,-936.08C358.25,-937.6 336.73,-942.57 324,-957 268.31,-1020.12 262.5,-1294.94 262.01,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="258.51,-1375.69 261.97,-1385.7 265.51,-1375.71 258.51,-1375.69"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_whm_coord -->
 <g id="module~~rmvs_classes~~UsedByGraph_node54" class="node">
-<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>
+<title>module~s_whm_coord</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-906 363,-906 363,-882 442,-882 442,-906"/>
+<text text-anchor="middle" x="402.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.86,-895.71C348.67,-898.35 333.71,-903.86 324,-915 263,-984.99 261.03,-1290.42 261.7,-1375.77"/>
+<polygon fill="#000000" stroke="#000000" points="258.21,-1375.93 261.81,-1385.9 265.21,-1375.86 258.21,-1375.93"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_util_index -->
 <g id="module~~rmvs_classes~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437,-864 368,-864 368,-840 437,-840 437,-864"/>
+<text text-anchor="middle" x="402.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge59" class="edge">
-<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~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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.98,-852.81C352.34,-855.02 334.84,-860.44 324,-873 290.62,-911.69 268.4,-1280.31 263.18,-1375.6"/>
+<polygon fill="#000000" stroke="#000000" points="259.69,-1375.43 262.64,-1385.6 266.68,-1375.8 259.69,-1375.43"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_util_valid -->
 <g id="module~~rmvs_classes~~UsedByGraph_node56" class="node">
-<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>
+<title>module~s_util_valid</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435,-822 370,-822 370,-798 435,-798 435,-822"/>
+<text text-anchor="middle" x="402.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.9,-810.51C353.77,-812.53 335.24,-817.86 324,-831 287.94,-873.16 267.5,-1276.05 262.97,-1375.76"/>
+<polygon fill="#000000" stroke="#000000" points="259.46,-1375.76 262.51,-1385.9 266.46,-1376.07 259.46,-1375.76"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_coord -->
 <g id="module~~rmvs_classes~~UsedByGraph_node57" class="node">
-<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>
+<title>module~s_util_coord</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-780 367.5,-780 367.5,-756 437.5,-756 437.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_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_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"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.5,-768.8C351.94,-771.02 334.64,-776.46 324,-789 285.26,-834.63 266.69,-1271.6 262.79,-1375.78"/>
+<polygon fill="#000000" stroke="#000000" points="259.29,-1375.69 262.42,-1385.81 266.29,-1375.94 259.29,-1375.69"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_set -->
 <g id="module~~rmvs_classes~~UsedByGraph_node58" class="node">
-<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>
+<title>module~s_util_set</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-738 373.5,-738 373.5,-714 431.5,-714 431.5,-738"/>
+<text text-anchor="middle" x="402.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_util_set&#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"/>
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.3,-726.07C356.4,-727.71 335.95,-732.83 324,-747 282.6,-796.09 265.95,-1266.87 262.64,-1375.65"/>
+<polygon fill="#000000" stroke="#000000" points="259.14,-1375.7 262.34,-1385.8 266.13,-1375.91 259.14,-1375.7"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_util_peri -->
 <g id="module~~rmvs_classes~~UsedByGraph_node59" class="node">
-<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>
+<title>module~s_util_peri</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-696 372,-696 372,-672 433,-672 433,-696"/>
+<text text-anchor="middle" x="402.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.73,-684.2C355.14,-685.99 335.55,-691.22 324,-705 279.92,-757.58 265.25,-1262.66 262.5,-1375.65"/>
+<polygon fill="#000000" stroke="#000000" points="259,-1375.79 262.26,-1385.87 266,-1375.96 259,-1375.79"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~rmvs_classes~~UsedByGraph_node60" class="node">
-<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>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<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_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge65" class="edge">
-<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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.14,-648.01C337.66,-651.26 329.8,-656.04 324,-663 277.27,-719.03 264.6,-1257.85 262.39,-1375.42"/>
+<polygon fill="#000000" stroke="#000000" points="258.88,-1375.67 262.2,-1385.73 265.88,-1375.79 258.88,-1375.67"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_helio_drift -->
 <g id="module~~rmvs_classes~~UsedByGraph_node61" class="node">
-<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>
+<title>module~s_helio_drift</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<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_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge66" class="edge">
-<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_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"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.38,-600.69C351.79,-602.89 334.51,-608.34 324,-621 274.54,-680.57 263.96,-1254.65 262.27,-1375.67"/>
+<polygon fill="#000000" stroke="#000000" points="258.77,-1375.89 262.14,-1385.94 265.77,-1375.99 258.77,-1375.89"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_spill -->
 <g id="module~~rmvs_classes~~UsedByGraph_node62" class="node">
-<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>
+<title>module~s_util_spill</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-570 372,-570 372,-546 433,-546 433,-570"/>
+<text text-anchor="middle" x="402.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge67" class="edge">
-<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"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.66,-558.14C355.05,-559.92 335.46,-565.14 324,-579 271.85,-642.08 263.37,-1250.71 262.18,-1375.65"/>
+<polygon fill="#000000" stroke="#000000" points="258.68,-1375.88 262.09,-1385.91 265.68,-1375.94 258.68,-1375.88"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_whm_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node63" class="node">
-<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>
+<title>module~s_whm_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-528 367.5,-528 367.5,-504 437.5,-504 437.5,-528"/>
+<text text-anchor="middle" x="402.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge68" class="edge">
-<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"/>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.34,-516.66C351.74,-518.85 334.46,-524.3 324,-537 269.14,-603.6 262.81,-1247.17 262.09,-1375.72"/>
+<polygon fill="#000000" stroke="#000000" points="258.59,-1375.91 262.04,-1385.92 265.59,-1375.94 258.59,-1375.91"/>
+</g>
+<!-- module~s_util_copy -->
+<g id="module~~rmvs_classes~~UsedByGraph_node64" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-486 369.5,-486 369.5,-462 435.5,-462 435.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_copy</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_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="M369.29,-474.38C353.2,-476.38 334.88,-481.75 324,-495 266.42,-565.15 262.27,-1244.04 262.01,-1375.88"/>
+<polygon fill="#000000" stroke="#000000" points="258.51,-1375.98 262,-1385.99 265.51,-1375.99 258.51,-1375.98"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~rmvs_classes~~UsedByGraph_node65" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-444 375.5,-444 375.5,-420 429.5,-420 429.5,-444"/>
+<text text-anchor="middle" x="402.5" y="-429.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 -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.42,-431.75C358.07,-433.1 336.27,-438 324,-453 263.74,-526.64 261.76,-1239.82 261.94,-1375.7"/>
+<polygon fill="#000000" stroke="#000000" points="258.44,-1375.77 261.96,-1385.76 265.44,-1375.76 258.44,-1375.77"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~rmvs_classes~~UsedByGraph_node66" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="459.5,-402 345.5,-402 345.5,-378 459.5,-378 459.5,-402"/>
+<text text-anchor="middle" x="402.5" y="-387.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 -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge72" 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,-396.21C337.07,-399.47 329.55,-404.2 324,-411 261.05,-488.14 261.27,-1235.94 261.87,-1375.6"/>
+<polygon fill="#000000" stroke="#000000" points="258.37,-1375.92 261.92,-1385.91 265.37,-1375.89 258.37,-1375.92"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~rmvs_classes~~UsedByGraph_node67" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node67"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-108 367.5,-108 367.5,-84 437.5,-84 437.5,-108"/>
+<text text-anchor="middle" x="402.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~~rmvs_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.2,-96.55C351.58,-98.72 334.31,-104.18 324,-117 282.91,-168.1 264.94,-1210 262.34,-1375.84"/>
+<polygon fill="#000000" stroke="#000000" points="258.84,-1375.81 262.18,-1385.86 265.84,-1375.92 258.84,-1375.81"/>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M260,-138C171.83,-231.99 158.33,-1214.05 156.7,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="153.2,-1375.73 156.6,-1385.76 160.2,-1375.79 153.2,-1375.73"/>
+<path fill="none" stroke="#000000" d="M367.24,-96.99C335.48,-99.8 289.17,-109.04 262,-138"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~rmvs_classes~~UsedByGraph_node68" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-360 354.5,-360 354.5,-336 450.5,-336 450.5,-360"/>
+<text text-anchor="middle" x="402.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.37,-351.18C342.8,-354.28 331.57,-359.7 324,-369 258.34,-449.66 260.8,-1232.26 261.81,-1375.53"/>
+<polygon fill="#000000" stroke="#000000" points="258.31,-1375.77 261.89,-1385.74 265.31,-1375.72 258.31,-1375.77"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~rmvs_classes~~UsedByGraph_node69" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node69"><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>
+</a>
+</g>
+</g>
+<!-- module~s_setup&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.39,-305.72C358.01,-307.06 336.21,-311.96 324,-327 255.63,-411.2 260.35,-1228.92 261.75,-1375.55"/>
+<polygon fill="#000000" stroke="#000000" points="258.26,-1375.99 261.86,-1385.96 265.26,-1375.92 258.26,-1375.99"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~rmvs_classes~~UsedByGraph_node70" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-276 364,-276 364,-252 441,-252 441,-276"/>
+<text text-anchor="middle" x="402.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.65,-265.14C349.03,-267.63 333.57,-273.19 324,-285 288.38,-328.96 266.09,-1221.69 262.51,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="259.01,-1375.58 262.28,-1385.66 266.01,-1375.74 259.01,-1375.58"/>
+</g>
+<!-- module~s_util_version -->
+<g id="module~~rmvs_classes~~UsedByGraph_node71" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-234 363.5,-234 363.5,-210 441.5,-210 441.5,-234"/>
+<text text-anchor="middle" x="402.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+</a>
+</g>
 </g>
-<!-- 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>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.23,-223.2C348.74,-225.73 333.47,-231.29 324,-243 287.01,-288.75 265.78,-1218.91 262.46,-1375.67"/>
+<polygon fill="#000000" stroke="#000000" points="258.96,-1375.88 262.24,-1385.95 265.95,-1376.03 258.96,-1375.88"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~rmvs_classes~~UsedByGraph_node72" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node72"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440.5,-192 364.5,-192 364.5,-168 440.5,-168 440.5,-192"/>
+<text text-anchor="middle" x="402.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</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"/>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.43,-180.99C349.58,-183.41 333.72,-188.96 324,-201 285.64,-248.54 265.48,-1216.35 262.41,-1375.84"/>
+<polygon fill="#000000" stroke="#000000" points="258.91,-1375.84 262.22,-1385.9 265.91,-1375.97 258.91,-1375.84"/>
 </g>
 </g>
 </svg>
@@ -1678,6 +1806,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_discard_tp">rmvs_discard_tp</a>
       
+      <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_io_write_encounter">rmvs_io_write_encounter</a>
+      
       <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_kick_getacch_tp">rmvs_kick_getacch_tp</a>
       
       <a class="list-group-item" href="../module/rmvs_classes.html#interface-rmvs_setup_pl">rmvs_setup_pl</a>
@@ -2037,12 +2167,265 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>RMVS test particle object  </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>RMVS nbody system object</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>dt</strong></td><td><p>step size</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if there is at least one close encounter      </p>
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-rmvs_discard_tp"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine rmvs_discard_tp(self, system, param)
+    
+    
+   
+   <a href='../proc/rmvs_discard_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/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>RMVS test particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(swiftest_nbody_system),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(swiftest_parameters),</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-rmvs_io_write_encounter"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out)
+    
+    
+   
+   <a href='../proc/rmvs_io_write_encounter.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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</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>id1</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>id2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>RMVS test particle object  </p></td>
+  <td><strong>Gmass2</strong></td><td></td>
   
 </tr>
 
@@ -2052,12 +2435,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>RMVS nbody system object</p></td>
+  <td><strong>radius1</strong></td><td></td>
   
 </tr>
 
@@ -2072,65 +2455,39 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
+  <td><strong>radius2</strong></td><td></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
   
   
   
   
-     <h4>Return Value <small>logical
-  </small></h4>
-  <p>Returns true if there is at least one close encounter      </p>
-    
-
-    </li>
+<tr>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-rmvs_discard_tp"></span><h3>interface 
-    
-  </h3></div>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
   
-  <ul class="list-group">
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh1</strong></td><td></td>
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine rmvs_discard_tp(self, system, param)
-    
-    
-   
-   <a href='../proc/rmvs_discard_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>
-
-
+</tr>
 
-<tbody>
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh2</strong></td><td></td>
+  
+</tr>
 
   
   
@@ -2138,12 +2495,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>RMVS test particle object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh1</strong></td><td></td>
   
 </tr>
 
@@ -2153,12 +2510,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(swiftest_nbody_system),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh2</strong></td><td></td>
   
 </tr>
 
@@ -2168,12 +2525,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(swiftest_parameters),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>character(len=*),</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>enc_out</strong></td><td></td>
   
 </tr>
 
@@ -3787,20 +4144,6 @@ <h4>Components</h4>
   
   
   
-<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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -3877,7 +4220,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -3943,11 +4286,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -3957,11 +4300,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -3971,39 +4314,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -4013,11 +4328,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -4041,20 +4356,6 @@ <h4>Components</h4>
   
   
   
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" id="variable-lplanetocentric"></span>logical,</td>
@@ -4114,15 +4415,33 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-dump'>dump</a></strong>  => io_dump_system </td>
        <td><p>Dump the state of the system to a file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final'>get_old_t_final</a></strong>  => io_get_old_t_final_system </td>
+       <td><p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_frame'>read_frame</a></strong>  => io_read_frame_system </td>
        <td><p>Read in a frame of input data from file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_particle_info'>read_particle_info</a></strong>  => io_read_particle_info_system </td>
+       <td><p>Read in particle metadata from file</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_discard'>write_discard</a></strong>  => io_write_discard </td>
        <td><p>Write out information about discarded test particles</p></td></tr>
       
        <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-write_hdr_bin'>write_hdr_bin</a></strong>  => io_write_hdr_system </td>
+       <td><p>Write a header for an output frame in Fortran binary format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a></strong>  => netcdf_write_hdr_system </td>
+       <td><p>Write a header for an output frame in NetCDF format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-obl_pot'>obl_pot</a></strong>  => obl_pot_system </td>
+       <td><p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-init_particle_info'>init_particle_info</a></strong>  => setup_initialize_particle_info_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>
        <td><p>Steps the spins of the massive &amp; central bodies due to tides.</p></td></tr>
       
@@ -4138,6 +4457,9 @@ <h4>Type-Bound Procedures</h4>
        <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>generic, public :: <strong><a href='../type/rmvs_nbody_system.html#boundprocedure-write_hdr'>write_hdr</a></strong>  => write_hdr_bin, write_hdr_netcdf </td>
+       <td><p>Generic method call for writing headers</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>
@@ -4266,25 +4588,11 @@ <h4>Components</h4>
   
 <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -4663,18 +4971,33 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/rmvs_cb.html#boundprocedure-write_particle_info'>write_particle_info</a></strong>  => write_particle_info_netcdf </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_in'>read_in</a></strong>  => io_read_in_cb </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</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>
       
+       <tr><td>generic, public :: <strong><a href='../type/rmvs_cb.html#boundprocedure-write_frame~2'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Write a frame (either binary or NetCDF, using generic procedures)</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -4709,20 +5032,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -4753,11 +5062,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -4841,7 +5150,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -4855,7 +5164,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -5081,7 +5390,35 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -5210,7 +5547,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/rmvs_tp.html#boundprocedure-write_particle_info~2'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-drift'>drift</a></strong>  => drift_body </td>
@@ -5222,13 +5571,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -5243,6 +5592,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/rmvs_tp.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-accel_int'>accel_int</a></strong>  => kick_getacch_int_tp </td>
        <td><p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p></td></tr>
       
@@ -5255,6 +5607,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-b2h'>b2h</a></strong>  => util_coord_b2h_tp </td>
        <td><p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => util_coord_vb2vh_tp </td>
+       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => util_coord_vh2vb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-xh2xb'>xh2xb</a></strong>  => util_coord_xh2xb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-get_peri'>get_peri</a></strong>  => util_peri_tp </td>
        <td><p>Determine system pericenter passages for test particles </p></td></tr>
       
@@ -5337,20 +5698,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -5381,11 +5728,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -5469,7 +5816,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -5483,7 +5830,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -6064,7 +6411,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/rmvs_pl.html#boundprocedure-write_particle_info~3'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
@@ -6073,13 +6432,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -6091,10 +6450,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_user'>accel_user</a></strong>  => user_kick_getacch_body </td>
        <td><p>Add user-supplied heliocentric accelerations to planets</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/rmvs_pl.html#boundprocedure-write_frame~4'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-discard~3'>discard</a></strong>  => discard_pl </td>
        <td><p>Placeholder method for discarding massive bodies </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-eucl_index'>eucl_index</a></strong>  => eucl_dist_index_plpl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-index~2'>index</a></strong>  => util_index_eucl_plpl </td>
        <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
@@ -6112,6 +6474,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
        <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_beg_end'>set_beg_end</a></strong>  => util_set_beg_end_pl </td>
        <td><p>Sets the beginning and ending positions and velocities of planets.</p></td></tr>
       
diff --git a/docs/module/s_discard.html b/docs/module/s_discard.html
index 4bceeb6c2..8e4994684 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.5% of total for modules and submodules.">195 statements</a>
+    title=" 1.3% of total for modules and submodules.">217 statements</a>
      </li> 
      
      
@@ -267,258 +267,311 @@ <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="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)">
+<svg id="modules_discardUsesGraph" width="641pt" height="276pt"
+ viewBox="0.00 0.00 641.00 276.36" 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 387.05)">
 <title>module~~s_discard~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 896,-265.94 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 903,-387.05 903,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="899,-318.05 841,-318.05 841,-294.05 899,-294.05 899,-318.05"/>
+<text text-anchor="middle" x="870" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_discard</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_discard~~UsesGraph_node3" class="node">
+<g id="module~~s_discard~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_discard~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M854.94,-294.01C840.49,-281.66 817.8,-262.24 800.98,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.13,-245.09 793.26,-241.25 798.58,-250.41 803.13,-245.09"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_discard~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M851.29,-318.08C817.64,-339.73 741.47,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_discard~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_discard~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_discard~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_discard~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_discard~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_discard~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_discard~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_discard~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_discard~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_discard~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_discard~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_discard~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_discard~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_discard~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_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="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_discard~~UsesGraph_edge16" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_discard~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_discard~~UsesGraph_edge21" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_edge20" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_discard~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_discard~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_discard~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_discard~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_discard~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_discard~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_discard~~UsesGraph_edge25" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_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="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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_fraggle_generate.html b/docs/module/s_fraggle_generate.html
new file mode 100644
index 000000000..89c975ae3
--- /dev/null
+++ b/docs/module/s_fraggle_generate.html
@@ -0,0 +1,1453 @@
+<!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_fraggle_generate &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_fraggle_generate 
+    <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=" 2.5% of total for modules and submodules.">400 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
+    
+  
+     <li class="active">s_fraggle_generate</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-nfrag_min">NFRAG_MIN</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-f_spin_first">F_SPIN_FIRST</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-fraggle_ltol">FRAGGLE_LTOL</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-fraggle_etol">FRAGGLE_ETOL</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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_fraggle_generate.html#proc-fraggle_generate_pos_vec">fraggle_generate_pos_vec</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#proc-fraggle_generate_spins">fraggle_generate_spins</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#proc-fraggle_generate_tan_vel">fraggle_generate_tan_vel</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#proc-fraggle_generate_rad_vel">fraggle_generate_rad_vel</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<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_fraggle_generate.html#proc-fraggle_generate_fragments">fraggle_generate_fragments</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/fraggle_classes.html'>fraggle_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_fraggle_generate~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_generateUsesGraph" width="641pt" height="237pt"
+ viewBox="0.00 0.00 641.00 236.50" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_generate~~UsesGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_generate~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 961,-352.04 961,4 -4,4"/>
+<!-- module~s_fraggle_generate -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_generate</title>
+<polygon fill="none" stroke="black" points="957,-84 851,-84 851,-60 957,-60 957,-84"/>
+<text text-anchor="middle" x="904" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_generate</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M889.02,-84.02C869.53,-100.77 834.01,-131.31 810.97,-151.12"/>
+<polygon fill="#000000" stroke="#000000" points="808.39,-148.71 803.09,-157.88 812.96,-154.02 808.39,-148.71"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_generate&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.91,-61.53C815.47,-54.54 767.48,-45.31 725,-38 685.91,-31.27 641.61,-24.51 608.1,-19.56"/>
+<polygon fill="#000000" stroke="#000000" points="608.46,-16.08 598.06,-18.09 607.45,-23 608.46,-16.08"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fraggle_generate~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fraggle_generate~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_generate~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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_fraggle_generate~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fraggle_generate~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.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_fraggle_generate~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_generate~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge22" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_generate~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_generate~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.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_fraggle_generate~~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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_generate~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_fraggle_generateUsesGraph = svgPanZoom('#modules_fraggle_generateUsesGraph', {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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-nfrag_min">NFRAG_MIN</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-f_spin_first">F_SPIN_FIRST</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-fraggle_ltol">FRAGGLE_LTOL</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#variable-fraggle_etol">FRAGGLE_ETOL</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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_fraggle_generate.html#proc-fraggle_generate_pos_vec">fraggle_generate_pos_vec</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#proc-fraggle_generate_spins">fraggle_generate_spins</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#proc-fraggle_generate_tan_vel">fraggle_generate_tan_vel</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_generate.html#proc-fraggle_generate_rad_vel">fraggle_generate_rad_vel</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<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_fraggle_generate.html#proc-fraggle_generate_fragments">fraggle_generate_fragments</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    <section>
+    <h2>Variables</h2>
+    
+<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-nfrag_min"></span>integer(kind=I4B),</td>
+  
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NFRAG_MIN</strong></td><td> =</td><td>7</td><td><p>The minimum allowable number of fragments (set to 6 because that's how many unknowns are needed in the tangential velocity calculation)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-f_spin_first"></span>real(kind=DP),</td>
+  
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>F_SPIN_FIRST</strong></td><td> =</td><td>0.05_DP</td><td><p>The initial try value of the fraction of energy or momenum in spin (whichever has the lowest kinetic energy)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-fraggle_ltol"></span>real(kind=DP),</td>
+  
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FRAGGLE_LTOL</strong></td><td> =</td><td>10*epsilon(1.0_DP)</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-fraggle_etol"></span>real(kind=DP),</td>
+  
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FRAGGLE_ETOL</strong></td><td> =</td><td>1e-8_DP</td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+    
+    <section>
+    <h2>Subroutines</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_generate_pos_vec"></span><h3>
+subroutine <a href='../proc/fraggle_generate_pos_vec.html'>fraggle_generate_pos_vec</a>(frag, colliders, r_max_start)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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.</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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>r_max_start</strong></td><td><p>Initial guess for the starting maximum radial distance of fragments</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_generate_spins"></span><h3>
+subroutine <a href='../proc/fraggle_generate_spins.html'>fraggle_generate_spins</a>(frag, colliders, f_spin, lfailure)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.</p><a href="../proc/fraggle_generate_spins.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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>f_spin</strong></td><td><p>Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Logical flag indicating whether this step fails or succeeds! </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_generate_tan_vel"></span><h3>
+subroutine <a href='../proc/fraggle_generate_tan_vel.html'>fraggle_generate_tan_vel</a>(frag, colliders, lfailure)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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 (frag%ke_budget) that we can put into the radial velocity distribution.</p><a href="../proc/fraggle_generate_tan_vel.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Logical flag indicating whether this step fails or succeeds</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_generate_rad_vel"></span><h3>
+subroutine <a href='../proc/fraggle_generate_rad_vel.html'>fraggle_generate_rad_vel</a>(frag, colliders, lfailure)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Logical flag indicating whether this step fails or succeeds! </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    </section>    
+    <br>
+    
+    
+    
+    
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_generate_fragments"></span><h3>
+module subroutine <a href='../proc/fraggle_generate_fragments.html'>fraggle_generate_fragments</a>(self, colliders, system, param, lfailure)
+    
+    
+   <a href='../interface/fraggle_generate_fragments.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Generates a system of fragments in barycentric coordinates that conserves energy and momentum.</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle system object the outputs will be the fragmentation </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object containing the two-body equivalent values of the colliding bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</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_fraggle_io.html b/docs/module/s_fraggle_io.html
new file mode 100644
index 000000000..22eb3e2d9
--- /dev/null
+++ b/docs/module/s_fraggle_io.html
@@ -0,0 +1,1156 @@
+<!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_fraggle_io &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_fraggle_io 
+    <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=" 1.3% of total for modules and submodules.">203 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
+    
+  
+     <li class="active">s_fraggle_io</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_fraggle_io.html#proc-fraggle_io_log_generate">fraggle_io_log_generate</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_one_message">fraggle_io_log_one_message</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_pl">fraggle_io_log_pl</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_regime">fraggle_io_log_regime</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_start">fraggle_io_log_start</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/fraggle_classes.html'>fraggle_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_fraggle_io~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_ioUsesGraph" width="641pt" height="245pt"
+ viewBox="0.00 0.00 641.00 245.40" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_io~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_io~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 926,-352.04 926,4 -4,4"/>
+<!-- module~s_fraggle_io -->
+<g id="module~~s_fraggle_io~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_io</title>
+<polygon fill="none" stroke="black" points="922,-84 851,-84 851,-60 922,-60 922,-84"/>
+<text text-anchor="middle" x="886.5" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_io</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_fraggle_io~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M873.67,-84.02C857.32,-100.62 827.63,-130.77 808.11,-150.59"/>
+<polygon fill="#000000" stroke="#000000" points="805.45,-148.3 800.93,-157.88 810.44,-153.22 805.45,-148.3"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_io&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.86,-64.07C818.43,-56.79 768.57,-45.95 725,-38 685.98,-30.88 641.67,-24.13 608.14,-19.29"/>
+<polygon fill="#000000" stroke="#000000" points="608.5,-15.81 598.1,-17.85 607.51,-22.74 608.5,-15.81"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_fraggle_io~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fraggle_io~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fraggle_io~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_io~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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_fraggle_io~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fraggle_io~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.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_fraggle_io~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_io~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_io~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_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="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_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="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_io~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_io~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.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_fraggle_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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_io~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_fraggle_ioUsesGraph = svgPanZoom('#modules_fraggle_ioUsesGraph', {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_fraggle_io.html#proc-fraggle_io_log_generate">fraggle_io_log_generate</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_one_message">fraggle_io_log_one_message</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_pl">fraggle_io_log_pl</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_regime">fraggle_io_log_regime</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_io.html#proc-fraggle_io_log_start">fraggle_io_log_start</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-fraggle_io_log_generate"></span><h3>
+module subroutine <a href='../proc/fraggle_io_log_generate.html'>fraggle_io_log_generate</a>(frag)
+    
+    
+   <a href='../interface/fraggle_io_log_generate.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>Writes a log of the results of the fragment generation</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_io_log_one_message"></span><h3>
+module subroutine <a href='../proc/fraggle_io_log_one_message.html'>fraggle_io_log_one_message</a>(message)
+    
+    
+   <a href='../interface/fraggle_io_log_one_message.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>Writes a single message to the fraggle log file</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>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_io_log_pl"></span><h3>
+module subroutine <a href='../proc/fraggle_io_log_pl.html'>fraggle_io_log_pl</a>(pl, param)
+    
+    
+   <a href='../interface/fraggle_io_log_pl.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>Writes a single message to the fraggle log file</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_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object (only the new bodies generated in a collision)</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 swiftest 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-fraggle_io_log_regime"></span><h3>
+module subroutine <a href='../proc/fraggle_io_log_regime.html'>fraggle_io_log_regime</a>(colliders, frag)
+    
+    
+   <a href='../interface/fraggle_io_log_regime.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>Writes a log of the results of the collisional regime determination</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/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_io_log_start"></span><h3>
+module subroutine <a href='../proc/fraggle_io_log_start.html'>fraggle_io_log_start</a>(param)
+    
+    
+   <a href='../interface/fraggle_io_log_start.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>Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this 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/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td></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_fraggle_placeholder.html b/docs/module/s_fraggle_placeholder.html
new file mode 100644
index 000000000..164dc0ff5
--- /dev/null
+++ b/docs/module/s_fraggle_placeholder.html
@@ -0,0 +1,1125 @@
+<!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_fraggle_placeholder &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_fraggle_placeholder 
+    <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.2% of total for modules and submodules.">35 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_placeholder.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></li>
+    
+  
+     <li class="active">s_fraggle_placeholder</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_fraggle_placeholder.html#proc-fraggle_placeholder_accel">fraggle_placeholder_accel</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_placeholder.html#proc-fraggle_placeholder_kick">fraggle_placeholder_kick</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_placeholder.html#proc-fraggle_placeholder_step">fraggle_placeholder_step</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/fraggle_classes.html'>fraggle_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_fraggle_placeholder~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_placeholderUsesGraph" width="641pt" height="234pt"
+ viewBox="0.00 0.00 641.00 233.60" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_placeholder~~UsesGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_placeholder~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 973,-352.04 973,4 -4,4"/>
+<!-- module~s_fraggle_placeholder -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_placeholder</title>
+<polygon fill="none" stroke="black" points="969,-84 851,-84 851,-60 969,-60 969,-84"/>
+<text text-anchor="middle" x="910" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_placeholder</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.29,-84.02C873.68,-100.84 836.05,-131.58 811.8,-151.38"/>
+<polygon fill="#000000" stroke="#000000" points="809.37,-148.85 803.83,-157.88 813.79,-154.27 809.37,-148.85"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.66,-60.75C814.52,-53.9 767.12,-45.12 725,-38 685.89,-31.39 641.59,-24.62 608.08,-19.64"/>
+<polygon fill="#000000" stroke="#000000" points="608.45,-16.16 598.05,-18.16 607.43,-23.08 608.45,-16.16"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fraggle_placeholder~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fraggle_placeholder~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_placeholder~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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_fraggle_placeholder~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fraggle_placeholder~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.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_fraggle_placeholder~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_placeholder~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge22" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_placeholder~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.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_fraggle_placeholder~~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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_placeholder~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_fraggle_placeholderUsesGraph = svgPanZoom('#modules_fraggle_placeholderUsesGraph', {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_fraggle_placeholder.html#proc-fraggle_placeholder_accel">fraggle_placeholder_accel</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_placeholder.html#proc-fraggle_placeholder_kick">fraggle_placeholder_kick</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_placeholder.html#proc-fraggle_placeholder_step">fraggle_placeholder_step</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-fraggle_placeholder_accel"></span><h3>
+module subroutine <a href='../proc/fraggle_placeholder_accel.html'>fraggle_placeholder_accel</a>(self, system, param, t, lbeg)
+    
+    
+   <a href='../interface/fraggle_placeholder_accel.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+
+
+<p>The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_placeholder_kick"></span><h3>
+module subroutine <a href='../proc/fraggle_placeholder_kick.html'>fraggle_placeholder_kick</a>(self, system, param, t, dt, lbeg)
+    
+    
+   <a href='../interface/fraggle_placeholder_kick.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nbody system objec</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current 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>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_placeholder_step"></span><h3>
+module subroutine <a href='../proc/fraggle_placeholder_step.html'>fraggle_placeholder_step</a>(self, system, param, t, dt)
+    
+    
+   <a href='../interface/fraggle_placeholder_step.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest 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 </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>t</strong></td><td><p>Simulation 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>dt</strong></td><td><p>Current stepsize</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_fragmentation.html b/docs/module/s_fraggle_regime.html
similarity index 53%
rename from docs/module/s_fragmentation.html
rename to docs/module/s_fraggle_regime.html
index bd6c2e3a6..0ca76f62d 100644
--- a/docs/module/s_fragmentation.html
+++ b/docs/module/s_fraggle_regime.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>s_fragmentation &ndash; swiftest</title>
+    <title>s_fraggle_regime &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>s_fragmentation 
+    <h1>s_fraggle_regime 
     <small>Submodule</small>
     
     </h1>
@@ -134,22 +134,22 @@ <h1>s_fragmentation
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 5.9% of total for modules and submodules.">784 statements</a>
+    title=" 1.5% of total for modules and submodules.">246 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/fragmentation.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_regime.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/fragmentation.f90.html'>fragmentation.f90</a></li>
+     <li><a href='../sourcefile/fraggle_regime.f90.html'>fraggle_regime.f90</a></li>
     
   
-     <li class="active">s_fragmentation</li>
+     <li class="active">s_fraggle_regime</li>
   </ol>
 </div>
 </div>
@@ -183,6 +183,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_fraggle_regime.html#proc-fraggle_regime_collresolve">fraggle_regime_collresolve</a>
+      
+    </div>
+  </div>
+</div>
+
+
 
 
 <div class="panel panel-primary">
@@ -190,9 +202,7 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_fragmentation.html#proc-fragmentation_initialize">fragmentation_initialize</a>
-      
-      <a class="list-group-item" href="../module/s_fragmentation.html#proc-fragmentation_regime">fragmentation_regime</a>
+      <a class="list-group-item" href="../module/s_fraggle_regime.html#proc-fraggle_regime_colliders">fraggle_regime_colliders</a>
       
     </div>
   </div>
@@ -233,7 +243,7 @@ <h3 class="panel-title">Uses</h3>
   <ul class="list-inline">
     <li><h5>Ancestors:</h5></li>
     
-    <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
     
     
   </ul>
@@ -246,263 +256,320 @@ <h3 class="panel-title">Uses</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: module~~s_fragmentation~~UsesGraph Pages: 1 -->
-<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,-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,-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="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="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"/>
+<!-- Title: module~~s_fraggle_regime~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_regimeUsesGraph" width="641pt" height="239pt"
+ viewBox="0.00 0.00 641.00 238.98" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_regime~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_regime~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 951,-352.04 951,4 -4,4"/>
+<!-- module~s_fraggle_regime -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_regime</title>
+<polygon fill="none" stroke="black" points="947,-84 851,-84 851,-60 947,-60 947,-84"/>
+<text text-anchor="middle" x="899" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_regime</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_fragmentation~~UsesGraph_node3" class="node">
+<g id="module~~s_fraggle_regime~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" 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="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"/>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M884.63,-84.02C866,-100.77 832.04,-131.31 810,-151.12"/>
+<polygon fill="#000000" stroke="#000000" points="807.57,-148.6 802.47,-157.88 812.25,-153.8 807.57,-148.6"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</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="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="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_fragmentation~~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_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="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>
+<!-- module~s_fraggle_regime&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.74,-62.16C816.02,-55.06 767.66,-45.46 725,-38 685.93,-31.17 641.62,-24.41 608.11,-19.49"/>
+<polygon fill="#000000" stroke="#000000" points="608.47,-16.01 598.07,-18.03 607.46,-22.93 608.47,-16.01"/>
 </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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_fragmentation~~UsesGraph_node6" class="node">
+<g id="module~~s_fraggle_regime~~UsesGraph_node4" 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="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>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fragmentation~~UsesGraph_edge7" class="edge">
+<g id="module~~s_fraggle_regime~~UsesGraph_edge3" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_node8" class="node">
+<g id="module~~s_fraggle_regime~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fragmentation~~UsesGraph_edge11" class="edge">
+<g id="module~~s_fraggle_regime~~UsesGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_regime~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_node9" class="node">
+<g id="module~~s_fraggle_regime~~UsesGraph_node7" 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>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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">
+<g id="module~~s_fraggle_regime~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_node10" class="node">
+<g id="module~~s_fraggle_regime~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fragmentation~~UsesGraph_edge6" class="edge">
+<g id="module~~s_fraggle_regime~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
 </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,-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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
 </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"/>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_regime~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_edge14" class="edge">
+<g id="module~~s_fraggle_regime~~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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge16" class="edge">
+<g id="module~~s_fraggle_regime~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
 </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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_fragmentation~~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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge21" class="edge">
+<g id="module~~s_fraggle_regime~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_regime~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_regime~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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_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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_fraggle_regime~~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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge23" class="edge">
+<g id="module~~s_fraggle_regime~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_regime~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
 </g>
 </g>
 </svg>
-</div><script>var panmodules_fragmentationUsesGraph = svgPanZoom('#modules_fragmentationUsesGraph', {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><script>var panmodules_fraggle_regimeUsesGraph = svgPanZoom('#modules_fraggle_regimeUsesGraph', {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"
@@ -589,6 +656,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_fraggle_regime.html#proc-fraggle_regime_collresolve">fraggle_regime_collresolve</a>
+      
+    </div>
+  </div>
+</div>
+
+
 
 
 <div class="panel panel-primary">
@@ -596,9 +675,7 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_fragmentation.html#proc-fragmentation_initialize">fragmentation_initialize</a>
-      
-      <a class="list-group-item" href="../module/s_fragmentation.html#proc-fragmentation_regime">fragmentation_regime</a>
+      <a class="list-group-item" href="../module/s_fraggle_regime.html#proc-fraggle_regime_colliders">fraggle_regime_colliders</a>
       
     </div>
   </div>
@@ -629,22 +706,14 @@ <h3>Contents</h3>
     
 
     
+    <section>
+    <h2>Subroutines</h2>
     
     
-    
-        
-
-        
-        <section>
-        <h2>Module Subroutines</h2>
-        
-        
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-fragmentation_initialize"></span><h3>
-module subroutine <a href='../proc/fragmentation_initialize.html'>fragmentation_initialize</a>(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)
-    
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_regime_collresolve"></span><h3>
+subroutine <a href='../proc/fraggle_regime_collresolve.html'>fraggle_regime_collresolve</a>(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, min_mfrag, regime, Mlr, Mslr, Qloss)
     
-   <a href='../interface/fragmentation_initialize.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -668,7 +737,19 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Initialize the position and velocity of fragments to conserve energy and momentum.</p>
+<p>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</p>
     
     <h4>Arguments</h4>
     
@@ -689,12 +770,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>Mcb</strong></td><td></td>
   
 </tr>
 
@@ -704,27 +785,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>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>
-  
-</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>Index of bodies involved in the collision</p></td>
+  <td><strong>m1</strong></td><td></td>
   
 </tr>
 
@@ -735,11 +801,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:)</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>
+  <td></td><td>::</td>
+  <td><strong>m2</strong></td><td></td>
   
 </tr>
 
@@ -750,11 +816,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:)</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>
+  <td></td><td>::</td>
+  <td><strong>rad1</strong></td><td></td>
   
 </tr>
 
@@ -765,11 +831,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:)</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>
+  <td></td><td>::</td>
+  <td><strong>rad2</strong></td><td></td>
   
 </tr>
 
@@ -780,11 +846,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:)</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>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh1</strong></td><td></td>
   
 </tr>
 
@@ -795,11 +861,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
+  <td><strong>xh2</strong></td><td></td>
   
 </tr>
 
@@ -810,26 +876,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
+  <td><strong>vb1</strong></td><td></td>
   
 </tr>
 
@@ -840,11 +891,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vb2</strong></td><td></td>
   
 </tr>
 
@@ -855,11 +906,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  <td></td><td>::</td>
+  <td><strong>den1</strong></td><td></td>
   
 </tr>
 
@@ -870,11 +921,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  <td></td><td>::</td>
+  <td><strong>den2</strong></td><td></td>
   
 </tr>
 
@@ -885,11 +936,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>min_mfrag</strong></td><td></td>
   
 </tr>
 
@@ -899,12 +950,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>regime</strong></td><td></td>
   
 </tr>
 
@@ -915,11 +966,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>Mlr</strong></td><td></td>
   
 </tr>
 
@@ -930,11 +981,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
+  <td><strong>Mslr</strong></td><td></td>
   
 </tr>
 
@@ -944,12 +995,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
+  <td><strong>Qloss</strong></td><td><p>The residual energy after the collision </p></td>
   
 </tr>
 
@@ -963,14 +1014,26 @@ <h4>Arguments</h4>
   </div>
   </div>
 
+    
+    </section>    
+    <br>
+    
+    
+    
+    
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-fragmentation_regime"></span><h3>
-module subroutine <a href='../proc/fragmentation_regime.html'>fragmentation_regime</a>(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_regime_colliders"></span><h3>
+module subroutine <a href='../proc/fraggle_regime_colliders.html'>fraggle_regime_colliders</a>(self, frag, system, param)
     
     
-   <a href='../interface/fragmentation_regime.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/fraggle_regime_colliders.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -994,19 +1057,18 @@ <h4>Arguments</h4>
 
 
 
-<p>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</p>
+<p>Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine.
+ It converts to SI units prior to calling
+ The two-body equivalent masses of the collider system
+ The two-body equivalent radii of the collider system
+ The two-body equivalent density of the collider system
+ The first body of the two-body equivalent position vector the collider system
+ The first body of the two-body equivalent velocity vector the collider system
+ The second body of the two-body equivalent position vector the collider system
+ The second body of the two-body equivalent velocity vector the collider system
+ The central body mass of the system
+ The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead
+ Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime</p>
     
     <h4>Arguments</h4>
     
@@ -1027,102 +1089,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Mcb</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>m1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>m2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>rad1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>rad2</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>xh1</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>xh2</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Fraggle colliders object</p></td>
   
 </tr>
 
@@ -1132,42 +1104,12 @@ <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>vb1</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>vb2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>den1</strong></td><td></td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
   
 </tr>
 
@@ -1177,57 +1119,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>den2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>regime</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Mlr</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Mslr</strong></td><td></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1237,27 +1134,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>mtiny</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>The residual energy after the collision </p></td>
+  <td><strong>param</strong></td><td><p>Current Swiftest run configuration parameters</p></td>
   
 </tr>
 
diff --git a/docs/module/s_fraggle_set.html b/docs/module/s_fraggle_set.html
new file mode 100644
index 000000000..ba0c67ec2
--- /dev/null
+++ b/docs/module/s_fraggle_set.html
@@ -0,0 +1,1218 @@
+<!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_fraggle_set &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_fraggle_set 
+    <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=" 1.3% of total for modules and submodules.">209 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
+    
+  
+     <li class="active">s_fraggle_set</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_fraggle_set.html#proc-fraggle_set_budgets_fragments">fraggle_set_budgets_fragments</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_mass_dist_fragments">fraggle_set_mass_dist_fragments</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_coordinate_system">fraggle_set_coordinate_system</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_natural_scale_factors">fraggle_set_natural_scale_factors</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_original_scale_factors">fraggle_set_original_scale_factors</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/fraggle_classes.html'>fraggle_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_fraggle_set~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_setUsesGraph" width="641pt" height="244pt"
+ viewBox="0.00 0.00 641.00 243.83" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_set~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_set~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 932,-352.04 932,4 -4,4"/>
+<!-- module~s_fraggle_set -->
+<g id="module~~s_fraggle_set~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_set</title>
+<polygon fill="none" stroke="black" points="928,-84 851,-84 851,-60 928,-60 928,-84"/>
+<text text-anchor="middle" x="889.5" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_set</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_fraggle_set~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.3,-84.02C859.37,-100.69 828.56,-131.04 808.44,-150.86"/>
+<polygon fill="#000000" stroke="#000000" points="805.97,-148.37 801.3,-157.88 810.88,-153.36 805.97,-148.37"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.94,-63.6C817.88,-56.35 768.37,-45.83 725,-38 685.97,-30.95 641.66,-24.2 608.14,-19.34"/>
+<polygon fill="#000000" stroke="#000000" points="608.49,-15.86 598.1,-17.9 607.49,-22.79 608.49,-15.86"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_fraggle_set~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fraggle_set~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fraggle_set~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_set~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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_fraggle_set~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fraggle_set~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.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_fraggle_set~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_set~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_set~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_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="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge22" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_set~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_set~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.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_fraggle_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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_set~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_fraggle_setUsesGraph = svgPanZoom('#modules_fraggle_setUsesGraph', {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_fraggle_set.html#proc-fraggle_set_budgets_fragments">fraggle_set_budgets_fragments</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_mass_dist_fragments">fraggle_set_mass_dist_fragments</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_coordinate_system">fraggle_set_coordinate_system</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_natural_scale_factors">fraggle_set_natural_scale_factors</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_set.html#proc-fraggle_set_original_scale_factors">fraggle_set_original_scale_factors</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-fraggle_set_budgets_fragments"></span><h3>
+module subroutine <a href='../proc/fraggle_set_budgets_fragments.html'>fraggle_set_budgets_fragments</a>(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_budgets_fragments.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>Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_set_mass_dist_fragments"></span><h3>
+module subroutine <a href='../proc/fraggle_set_mass_dist_fragments.html'>fraggle_set_mass_dist_fragments</a>(self, colliders, param)
+    
+    
+   <a href='../interface/fraggle_set_mass_dist_fragments.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>Sets the mass of fragments based on the mass distribution returned by the regime calculation.
+ This subroutine must be run after the the setup rourtine has been run on the fragments</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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 Swiftest 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-fraggle_set_coordinate_system"></span><h3>
+module subroutine <a href='../proc/fraggle_set_coordinate_system.html'>fraggle_set_coordinate_system</a>(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_coordinate_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>Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_set_natural_scale_factors"></span><h3>
+module subroutine <a href='../proc/fraggle_set_natural_scale_factors.html'>fraggle_set_natural_scale_factors</a>(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_natural_scale_factors.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>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</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_set_original_scale_factors"></span><h3>
+module subroutine <a href='../proc/fraggle_set_original_scale_factors.html'>fraggle_set_original_scale_factors</a>(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_original_scale_factors.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>Restores dimenional quantities back to the system units</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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_fraggle_setup.html b/docs/module/s_fraggle_setup.html
new file mode 100644
index 000000000..b67e9f1d3
--- /dev/null
+++ b/docs/module/s_fraggle_setup.html
@@ -0,0 +1,931 @@
+<!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_fraggle_setup &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_fraggle_setup 
+    <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.">54 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_setup.f90.html'>fraggle_setup.f90</a></li>
+    
+  
+     <li class="active">s_fraggle_setup</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_fraggle_setup.html#proc-fraggle_setup_reset_fragments">fraggle_setup_reset_fragments</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_setup.html#proc-fraggle_setup_fragments">fraggle_setup_fragments</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/fraggle_classes.html'>fraggle_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_fraggle_setup~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_setupUsesGraph" width="641pt" height="241pt"
+ viewBox="0.00 0.00 641.00 240.74" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_setup~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_setup~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 944,-352.04 944,4 -4,4"/>
+<!-- module~s_fraggle_setup -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_setup</title>
+<polygon fill="none" stroke="black" points="940,-84 851,-84 851,-60 940,-60 940,-84"/>
+<text text-anchor="middle" x="895.5" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_setup</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M881.56,-84.02C863.61,-100.69 830.94,-131.04 809.61,-150.86"/>
+<polygon fill="#000000" stroke="#000000" points="806.99,-148.51 802.04,-157.88 811.75,-153.64 806.99,-148.51"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.7,-62.64C816.54,-55.48 767.85,-45.58 725,-38 685.95,-31.09 641.64,-24.33 608.12,-19.44"/>
+<polygon fill="#000000" stroke="#000000" points="608.48,-15.95 598.08,-17.98 607.47,-22.88 608.48,-15.95"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fraggle_setup~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fraggle_setup~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_setup~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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_fraggle_setup~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fraggle_setup~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.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_fraggle_setup~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_setup~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_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="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_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="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_setup~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_setup~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.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_fraggle_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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_setup~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_fraggle_setupUsesGraph = svgPanZoom('#modules_fraggle_setupUsesGraph', {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_fraggle_setup.html#proc-fraggle_setup_reset_fragments">fraggle_setup_reset_fragments</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_setup.html#proc-fraggle_setup_fragments">fraggle_setup_fragments</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-fraggle_setup_reset_fragments"></span><h3>
+module subroutine <a href='../proc/fraggle_setup_reset_fragments.html'>fraggle_setup_reset_fragments</a>(self)
+    
+    
+   <a href='../interface/fraggle_setup_reset_fragments.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>Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_setup_fragments"></span><h3>
+module subroutine <a href='../proc/fraggle_setup_fragments.html'>fraggle_setup_fragments</a>(self, n, param)
+    
+    
+   <a href='../interface/fraggle_setup_fragments.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>Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</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>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>
+  
+</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_fraggle_util.html b/docs/module/s_fraggle_util.html
new file mode 100644
index 000000000..44891cc5c
--- /dev/null
+++ b/docs/module/s_fraggle_util.html
@@ -0,0 +1,1630 @@
+<!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_fraggle_util &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_fraggle_util 
+    <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=" 1.3% of total for modules and submodules.">210 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
+    
+  
+     <li class="active">s_fraggle_util</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="#modfuncs-0">Module Functions</a></h3></div>
+  <div id="modfuncs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_vmag_to_vb">fraggle_util_vmag_to_vb</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+<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_fraggle_util.html#proc-fraggle_util_add_fragments_to_system">fraggle_util_add_fragments_to_system</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_ang_mtm">fraggle_util_ang_mtm</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_construct_temporary_system">fraggle_util_construct_temporary_system</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_get_energy_momentum">fraggle_util_get_energy_momentum</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_restructure">fraggle_util_restructure</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_shift_vector_to_origin">fraggle_util_shift_vector_to_origin</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/fraggle_classes.html'>fraggle_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_fraggle_util~~UsesGraph Pages: 1 -->
+<svg id="modules_fraggle_utilUsesGraph" width="641pt" height="244pt"
+ viewBox="0.00 0.00 641.00 244.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fraggle_util~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 352.04)">
+<title>module~~s_fraggle_util~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-352.04 931,-352.04 931,4 -4,4"/>
+<!-- module~s_fraggle_util -->
+<g id="module~~s_fraggle_util~~UsesGraph_node1" class="node">
+<title>module~s_fraggle_util</title>
+<polygon fill="none" stroke="black" points="927,-84 851,-84 851,-60 927,-60 927,-84"/>
+<text text-anchor="middle" x="889" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_fraggle_util</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_fraggle_util~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="815,-182 761,-182 761,-158 815,-158 815,-182"/>
+<text text-anchor="middle" x="788" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge1" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M875.86,-84.02C859.09,-100.62 828.63,-130.77 808.6,-150.59"/>
+<polygon fill="#000000" stroke="#000000" points="805.88,-148.36 801.24,-157.88 810.81,-153.34 805.88,-148.36"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node3" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="598,-24 511,-24 511,0 598,0 598,-24"/>
+<text text-anchor="middle" x="554.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge2" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M850.89,-63.67C817.92,-56.41 768.38,-45.85 725,-38 685.97,-30.94 641.66,-24.19 608.14,-19.33"/>
+<polygon fill="#000000" stroke="#000000" points="608.49,-15.85 598.1,-17.89 607.5,-22.78 608.49,-15.85"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M780.04,-157.81C765.26,-133.17 728.15,-77.6 680.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C656.44,-40.15 630.27,-31.04 607.74,-24.52"/>
+<polygon fill="#000000" stroke="#000000" points="608.58,-21.12 598.01,-21.8 606.7,-27.86 608.58,-21.12"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_fraggle_util~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-239 247,-239 247,-215 347,-215 347,-239"/>
+<text text-anchor="middle" x="297" y="-224.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_fraggle_util~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C483.42,-270.7 398.23,-255.42 346.08,-241.78"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-238.31 336.1,-239.08 344.84,-245.07 346.67,-238.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C638.56,-194.13 634.23,-213.69 598,-231 579.33,-239.92 575.24,-243.79 555.5,-250"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="593,-222 516,-222 516,-198 593,-198 593,-222"/>
+<text text-anchor="middle" x="554.5" y="-207.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_fraggle_util~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C653.46,-192.29 625.81,-196.62 603.08,-200.67"/>
+<polygon fill="#000000" stroke="#000000" points="602.22,-197.27 593.01,-202.5 603.47,-204.15 602.22,-197.27"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="592.5,-142 516.5,-142 516.5,-118 592.5,-118 592.5,-142"/>
+<text text-anchor="middle" x="554.5" y="-127.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_fraggle_util~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C668.61,-190.9 619.13,-165.01 586.02,-146.95"/>
+<polygon fill="#000000" stroke="#000000" points="587.61,-143.83 577.16,-142.1 584.25,-149.97 587.61,-143.83"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.93,-176.32C739.49,-181.18 708.23,-187.47 680.5,-190"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-180 391,-180 391,-156 467,-156 467,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" 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_fraggle_util~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-190C640.68,-193.46 538.08,-181.86 477.19,-174.2"/>
+<polygon fill="#000000" stroke="#000000" points="477.42,-170.7 467.06,-172.92 476.54,-177.65 477.42,-170.7"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-180 123,-180 123,-156 211,-156 211,-180"/>
+<text text-anchor="middle" x="167" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M783.49,-182.21C776.36,-204.84 757.97,-253.3 725,-279 663.34,-327.06 632.12,-310.46 555.5,-326"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="722,-142 637,-142 637,-118 722,-118 722,-142"/>
+<text text-anchor="middle" x="679.5" y="-127.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_fraggle_util~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.95,-160.21C749.37,-155.87 735.44,-150.63 722.45,-145.76"/>
+<polygon fill="#000000" stroke="#000000" points="723.35,-142.36 712.76,-142.12 720.89,-148.91 723.35,-142.36"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-102 252.5,-102 252.5,-78 341.5,-78 341.5,-102"/>
+<text text-anchor="middle" x="297" y="-87.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_fraggle_util~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.5,-52C623.33,-22.36 442.8,-57.05 351.66,-77.35"/>
+<polygon fill="#000000" stroke="#000000" points="350.78,-73.96 341.8,-79.57 352.32,-80.79 350.78,-73.96"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_fraggle_util~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="725,-270 634,-270 634,-246 725,-246 725,-270"/>
+<text text-anchor="middle" x="679.5" y="-255.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_fraggle_util~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M772.19,-182.24C754.23,-197.08 723.77,-222.25 702.92,-239.47"/>
+<polygon fill="#000000" stroke="#000000" points="700.66,-236.8 695.18,-245.87 705.12,-242.2 700.66,-236.8"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-250C529.82,-256.99 503.56,-264.66 481.36,-271.12"/>
+<polygon fill="#000000" stroke="#000000" points="480.1,-267.84 471.47,-273.99 482.05,-274.56 480.1,-267.84"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge13" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-8.7C486.76,-7.83 456.43,-8.41 430,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C369.35,-26.41 354.09,-28.83 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-50C274.15,-58.25 265.82,-55.17 247,-69 217.85,-90.42 193.54,-125.19 179.89,-147.31"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-145.56 174.71,-155.94 182.86,-149.16 176.86,-145.56"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge14" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-14C386.61,-22.76 382.92,-41.65 347,-64 341.97,-67.13 336.53,-70.26 331.17,-73.2"/>
+<polygon fill="#000000" stroke="#000000" points="329.46,-70.14 322.3,-77.95 332.77,-76.31 329.46,-70.14"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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="M269.79,-214.92C250.63,-206.09 224.44,-194.02 203.43,-184.33"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-181.07 194.18,-180.07 201.79,-187.43 204.72,-181.07"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M518.11,-197.96C504.67,-193.4 489.19,-188.13 474.98,-183.3"/>
+<polygon fill="#000000" stroke="#000000" points="475.99,-179.94 465.4,-180.04 473.74,-186.57 475.99,-179.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.72,-206.66C481.03,-203.28 428.31,-197.36 383,-189 344.73,-181.94 336.91,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.45,-141.4C503.99,-145.23 489.93,-149.56 476.82,-153.59"/>
+<polygon fill="#000000" stroke="#000000" points="475.56,-150.32 467.03,-156.61 477.62,-157.01 475.56,-150.32"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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,-168C271.53,-168 244.42,-168 221.48,-168"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-164.5 211.25,-168 221.25,-171.5 221.25,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C367.55,-127.75 358.45,-168 298,-168"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C394.85,-127.86 358.78,-116.35 333.07,-106.03"/>
+<polygon fill="#000000" stroke="#000000" points="334.32,-102.77 323.75,-102.17 331.64,-109.23 334.32,-102.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.48,-129.17C491.95,-128.67 459.06,-128.12 430,-128"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_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="M390.74,-168C364.75,-168 329.26,-168 298,-168"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_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="M406.87,-155.94C399.32,-151.59 390.76,-146.61 383,-142 363.93,-130.66 342.63,-117.63 326.13,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="327.84,-104.4 317.5,-102.12 324.16,-110.35 327.84,-104.4"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_fraggle_util~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fraggle_util~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-180 0,-180 0,-156 87,-156 87,-180"/>
+<text text-anchor="middle" x="43.5" y="-165.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_fraggle_util~~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,-168C114.58,-168 105.86,-168 97.36,-168"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-164.5 87.13,-168 97.13,-171.5 97.13,-164.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.8,-117.82C644.44,-97.32 601.16,-55.8 575.63,-31.31"/>
+<polygon fill="#000000" stroke="#000000" points="577.95,-28.69 568.32,-24.29 573.11,-33.74 577.95,-28.69"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.82,-142.15C639.2,-155.56 605.83,-177.26 582.4,-192.5"/>
+<polygon fill="#000000" stroke="#000000" points="580.43,-189.61 573.95,-198 584.25,-195.48 580.43,-189.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.86,-130C625.87,-130 613.93,-130 602.66,-130"/>
+<polygon fill="#000000" stroke="#000000" points="602.56,-126.5 592.56,-130 602.56,-133.5 602.56,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C367.72,-85.46 354.56,-28.65 298,-50"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.97,-117.96C624.52,-114.68 610.78,-111.38 598,-109 524.12,-95.26 504.93,-95.64 430,-90"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C403,-88.12 375.23,-87.87 351.79,-88.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-84.69 341.69,-88.37 351.75,-91.69 351.63,-84.69"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.28,-102.02C255.01,-114.98 220.95,-135.73 196.71,-150.5"/>
+<polygon fill="#000000" stroke="#000000" points="194.67,-147.65 187.95,-155.84 198.31,-153.63 194.67,-147.65"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.5,-326C440.94,-341.03 404.04,-366.64 298,-326"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M663.8,-270.11C641.87,-287.2 598.54,-317.27 555.5,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fraggle_util~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C233.63,-302.1 193.53,-227.22 176.85,-189.77"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-188.08 172.77,-180.28 173.51,-190.84 179.94,-188.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-298.07C370.04,-312.35 317.13,-333.33 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_fraggle_utilUsesGraph = svgPanZoom('#modules_fraggle_utilUsesGraph', {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="#modfuncs-1">Module Functions</a></h3></div>
+  <div id="modfuncs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_vmag_to_vb">fraggle_util_vmag_to_vb</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+<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_fraggle_util.html#proc-fraggle_util_add_fragments_to_system">fraggle_util_add_fragments_to_system</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_ang_mtm">fraggle_util_ang_mtm</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_construct_temporary_system">fraggle_util_construct_temporary_system</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_get_energy_momentum">fraggle_util_get_energy_momentum</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_restructure">fraggle_util_restructure</a>
+      
+      <a class="list-group-item" href="../module/s_fraggle_util.html#proc-fraggle_util_shift_vector_to_origin">fraggle_util_shift_vector_to_origin</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+         
+        <section>
+        <h2>Module Functions</h2>
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_util_vmag_to_vb"></span><h3>
+module function <a href='../proc/fraggle_util_vmag_to_vb.html'>fraggle_util_vmag_to_vb</a>(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb)
+    
+    
+   <a href='../interface/fraggle_util_vmag_to_vb.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>Converts radial and tangential velocity magnitudes into barycentric velocity</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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>v_r_mag</strong></td><td><p>Unknown radial component of fragment velocity vector</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>v_r_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</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>v_t_mag</strong></td><td><p>Tangential component of velocity vector set previously by angular momentum constraint</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>v_t_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</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>Fragment masses</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>vcom</strong></td><td><p>Barycentric velocity of collisional system center of mass</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP),
+  dimension(:,:), allocatable</small></h4>
+  
+    
+
+  </div>
+  </div>
+
+        
+        </section>
+        <br>
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_util_add_fragments_to_system"></span><h3>
+module subroutine <a href='../proc/fraggle_util_add_fragments_to_system.html'>fraggle_util_add_fragments_to_system</a>(frag, colliders, system, param)
+    
+    
+   <a href='../interface/fraggle_util_add_fragments_to_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>Adds fragments to the temporary system pl 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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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 swiftest 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-fraggle_util_ang_mtm"></span><h3>
+module subroutine <a href='../proc/fraggle_util_ang_mtm.html'>fraggle_util_ang_mtm</a>(self)
+    
+    
+   <a href='../interface/fraggle_util_ang_mtm.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>Calcualtes the current angular momentum of the fragments</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_util_construct_temporary_system"></span><h3>
+module subroutine <a href='../proc/fraggle_util_construct_temporary_system.html'>fraggle_util_construct_temporary_system</a>(frag, system, param, tmpsys, tmpparam)
+    
+    
+   <a href='../interface/fraggle_util_construct_temporary_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>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.</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Original 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 swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpsys</strong></td><td><p>Output temporary 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(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpparam</strong></td><td><p>Output temporary configuration run parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_util_get_energy_momentum"></span><h3>
+module subroutine <a href='../proc/fraggle_util_get_energy_momentum.html'>fraggle_util_get_energy_momentum</a>(self, colliders, system, param, lbefore)
+    
+    
+   <a href='../interface/fraggle_util_get_energy_momentum.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>Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)
+ This subrourtine works by building a temporary internal massive body object 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 massive body object in a temporary system object called tmpsys to feed it into symba_energy</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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 swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbefore</strong></td><td><p>Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_util_restructure"></span><h3>
+module subroutine <a href='../proc/fraggle_util_restructure.html'>fraggle_util_restructure</a>(self, colliders, try, f_spin, r_max_start)
+    
+    
+   <a href='../interface/fraggle_util_restructure.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>Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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>try</strong></td><td><p>The current number of times Fraggle has tried to find a solution</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>f_spin</strong></td><td><p>Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>r_max_start</strong></td><td><p>The maximum radial distance that the position calculation starts with. This increases after a failed attempt</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-fraggle_util_shift_vector_to_origin"></span><h3>
+module subroutine <a href='../proc/fraggle_util_shift_vector_to_origin.html'>fraggle_util_shift_vector_to_origin</a>(m_frag, vec_frag)
+    
+    
+   <a href='../interface/fraggle_util_shift_vector_to_origin.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Adjusts the position or velocity of the fragments as needed to align them with the origin</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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>m_frag</strong></td><td><p>Fragment masses</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vec_frag</strong></td><td><p>Fragment positions or velocities in the center of mass frame</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_gr.html b/docs/module/s_gr.html
index c4e4bc489..cb76214b1 100644
--- a/docs/module/s_gr.html
+++ b/docs/module/s_gr.html
@@ -134,7 +134,7 @@ <h1>s_gr
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.2% of total for modules and submodules.">158 statements</a>
+    title=" 1.0% of total for modules and submodules.">158 statements</a>
      </li> 
      
      
@@ -257,258 +257,311 @@ <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="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)">
+<svg id="modules_grUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_gr~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_gr</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_gr~~UsesGraph_node3" class="node">
+<g id="module~~s_gr~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_gr~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_gr~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_gr~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_gr~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_gr~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_gr~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_gr~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_gr~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_gr~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_gr~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_gr~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_gr~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_gr~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_gr~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_gr~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_gr~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_gr~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_gr~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_gr~~UsesGraph_edge16" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_gr~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_gr~~UsesGraph_edge21" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_edge20" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_gr~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_gr~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_gr~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_gr~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_gr~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_gr~~UsesGraph_edge25" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_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="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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_drift.html b/docs/module/s_helio_drift.html
index d84b7791b..05af73105 100644
--- a/docs/module/s_helio_drift.html
+++ b/docs/module/s_helio_drift.html
@@ -134,7 +134,7 @@ <h1>s_helio_drift
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for modules and submodules.">97 statements</a>
+    title=" 0.6% of total for modules and submodules.">97 statements</a>
      </li> 
      
      
@@ -253,259 +253,314 @@ <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="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)">
+<svg id="modules_helio_driftUsesGraph" width="641pt" height="228pt"
+ viewBox="0.00 0.00 641.00 227.50" 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 322.17)">
 <title>module~~s_helio_drift~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 908,-265.48 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322.17 915,-322.17 915,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,-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>
+<polygon fill="none" stroke="black" points="911,-83 841,-83 841,-59 911,-59 911,-83"/>
+<text text-anchor="middle" x="876" y="-68.6" 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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-24 511.5,-24 511.5,0 587.5,0 587.5,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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.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"/>
+<path fill="none" stroke="#000000" d="M840.76,-63.46C808.42,-56.45 758.53,-45.92 715,-38 675.73,-30.85 630.97,-23.85 598.07,-18.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.23,-15.4 587.82,-17.39 597.2,-22.33 598.23,-15.4"/>
 </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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.11,-83.22C841.24,-91.75 822.55,-103.24 807.16,-112.7"/>
+<polygon fill="#000000" stroke="#000000" points="805.22,-109.77 798.54,-117.99 808.89,-115.74 805.22,-109.77"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-62 391,-62 391,-38 467,-38 467,-62"/>
+<text text-anchor="middle" x="429" y="-47.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge5" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-23.92C500.41,-27.42 488.32,-31.3 476.88,-34.97"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-31.74 467.04,-38.12 477.63,-38.4 475.49,-31.74"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-178 123,-178 123,-154 211,-154 211,-178"/>
+<text text-anchor="middle" x="167" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<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="M428,-10C370.53,-15.97 352.02,10.51 298,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.31,-9.09C487.91,-7.82 457.12,-7.18 430,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-10C234.03,-33.53 193.74,-107.5 176.94,-144.49"/>
+<polygon fill="#000000" stroke="#000000" points="173.63,-143.31 172.82,-153.87 180.04,-146.12 173.63,-143.31"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_node9" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node10" 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,-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>
+<g id="a_module~~s_helio_drift~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-82 252.5,-82 252.5,-58 341.5,-58 341.5,-82"/>
+<text text-anchor="middle" x="297" y="-67.6" 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_edge5" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge4" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-10C388.8,-14.07 348.3,-36.11 323.14,-52.3"/>
+<polygon fill="#000000" stroke="#000000" points="321,-49.52 314.59,-57.96 324.86,-55.35 321,-49.52"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_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,-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_node5" class="node">
-<title>module~lambda_function</title>
-<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M764.8,-117.94C746.18,-100.33 708.8,-67.93 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C645.47,-42.42 619.23,-33.35 597.36,-26.28"/>
+<polygon fill="#000000" stroke="#000000" points="598.24,-22.88 587.65,-23.18 596.11,-29.55 598.24,-22.88"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_drift~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node4" class="node">
 <title>module~swiftest_operators</title>
-<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>
+<g id="a_module~~s_helio_drift~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-218 247,-218 247,-194 347,-194 347,-218"/>
+<text text-anchor="middle" x="297" y="-203.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_helio_drift~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C607.71,-184 608.78,-223.76 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C499.29,-264.78 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C395.22,-243.53 359.65,-231.92 334.01,-221.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.28,-218.58 324.7,-218.07 332.66,-225.06 335.28,-218.58"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_helio_drift~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-142 511,-142 511,-118 588,-118 588,-142"/>
+<text text-anchor="middle" x="549.5" y="-127.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_helio_drift~~UsesGraph_edge13" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C635.93,-177.5 599.7,-161.38 576.08,-147.42"/>
+<polygon fill="#000000" stroke="#000000" points="577.73,-144.32 567.39,-142.03 574.04,-150.27 577.73,-144.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.91,-142.03C729.71,-151.26 698.79,-163.48 670.5,-170"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_node6" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-180 385.5,-180 385.5,-156 472.5,-156 472.5,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C617.39,-181.77 602.8,-166.11 550.5,-170"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge11" class="edge">
+<g id="module~~s_helio_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C525.14,-53.74 499.11,-53.53 477.42,-52.77"/>
+<polygon fill="#000000" stroke="#000000" points="477.28,-49.26 467.14,-52.36 477,-56.26 477.28,-49.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C620.08,-31.86 602.8,-48.12 550.5,-52"/>
 </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"/>
+<!-- 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="M428,-246C370.39,-241.66 351.07,-268.85 298,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-246C274.55,-236.76 267.34,-238.48 247,-227 225.86,-215.07 204.21,-197.94 188.93,-184.86"/>
+<polygon fill="#000000" stroke="#000000" points="190.98,-182.01 181.14,-178.08 186.38,-187.28 190.98,-182.01"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_node10" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_helio_drift~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-142 627,-142 627,-118 712,-118 712,-142"/>
+<text text-anchor="middle" x="669.5" y="-127.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_helio_drift~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-130C742.26,-130 732.26,-130 722.32,-130"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-126.5 712.05,-130 722.05,-133.5 722.05,-126.5"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C402.74,-89.51 375.04,-85.71 351.72,-81.55"/>
+<polygon fill="#000000" stroke="#000000" points="352.14,-78.07 341.67,-79.69 350.87,-84.95 352.14,-78.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C493.34,-56.1 485.3,-91.07 430,-90"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-280 624,-280 624,-256 715,-256 715,-280"/>
+<text text-anchor="middle" x="669.5" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.55,-142.25C749.19,-166.04 708.53,-218.72 686.11,-247.78"/>
+<polygon fill="#000000" stroke="#000000" points="683.12,-245.92 679.78,-255.98 688.66,-250.2 683.12,-245.92"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C525.45,-254.79 499.53,-263.66 477.81,-270.8"/>
+<polygon fill="#000000" stroke="#000000" points="476.58,-267.52 468.16,-273.96 478.75,-274.18 476.58,-267.52"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-194C244.68,-189.96 230.09,-185.4 216.5,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-177.77 206.82,-178.13 215.32,-184.45 217.41,-177.77"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<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="M533.08,-117.9C518.45,-106.61 495.68,-89.51 475,-76 470.58,-73.11 465.83,-70.19 461.13,-67.39"/>
+<polygon fill="#000000" stroke="#000000" points="462.67,-64.23 452.26,-62.22 459.14,-70.28 462.67,-64.23"/>
 </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.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-166C271.53,-165.81 244.42,-165.79 221.48,-165.82"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-162.32 211.25,-165.84 221.26,-169.32 221.25,-162.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.87,-132.6C477.22,-135.22 426.62,-139.91 383,-147 344.79,-153.21 336.71,-166.29 298,-166"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.26,-167.17C359.9,-166.73 327.12,-166.22 298,-166"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge20" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-155.98C389.64,-139.08 348.62,-108.16 322.36,-88.36"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-85.34 314.07,-82.12 319.95,-90.93 324.16,-85.34"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_edge19" class="edge">
+<g id="module~~s_helio_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="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.17,-37.95C370.06,-23.69 317.15,-2.73 298,-10"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge20" class="edge">
+<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-55.73C378.55,-57.61 364.75,-59.73 351.59,-61.76"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-58.3 341.69,-63.28 352.11,-65.22 351.04,-58.3"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_drift~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-178 0,-178 0,-154 87,-154 87,-178"/>
+<text text-anchor="middle" x="43.5" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_drift~~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,-166C114.58,-166 105.86,-166 97.36,-166"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-162.5 87.13,-166 97.13,-169.5 97.13,-162.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge25" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge26" 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~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.43,-117.83C645.34,-99.38 616.81,-63.73 588,-38 584.96,-35.29 581.63,-32.62 578.25,-30.08"/>
+<polygon fill="#000000" stroke="#000000" points="580.05,-27.06 569.87,-24.1 575.98,-32.76 580.05,-27.06"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge23" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge24" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-130C617.64,-130 607.75,-130 598.27,-130"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-126.5 588.18,-130 598.18,-133.5 598.18,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.4,-142.19C621.08,-153.01 584.37,-167.48 550.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-170C527,-171.6 503.24,-171.56 482.68,-170.94"/>
+<polygon fill="#000000" stroke="#000000" points="482.68,-167.44 472.56,-170.59 482.43,-174.44 482.68,-167.44"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.42,-142.13C639.15,-146.33 631.11,-151.19 624,-156 607.21,-167.36 607.02,-177 588,-184 502.47,-215.48 473.34,-201.01 383,-189 344.2,-183.84 337.13,-166.94 298,-166"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge24" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.96,-118.02C614.51,-114.74 600.77,-111.42 588,-109 518.51,-95.82 500.73,-89.79 430,-90"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.79,-82.16C257.67,-98.75 217.85,-128.61 192.19,-147.86"/>
+<polygon fill="#000000" stroke="#000000" points="189.98,-145.14 184.08,-153.94 194.18,-150.74 189.98,-145.14"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.81,-280.08C587.52,-300.34 473.72,-336.18 383,-307 338.73,-292.76 340.4,-265.09 298,-246"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.77,-275.06C357.3,-268.17 325.24,-258.26 298,-246"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_gr.html b/docs/module/s_helio_gr.html
index 5079c011c..4341165d9 100644
--- a/docs/module/s_helio_gr.html
+++ b/docs/module/s_helio_gr.html
@@ -251,259 +251,314 @@ <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="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)">
+<svg id="modules_helio_grUsesGraph" width="641pt" height="229pt"
+ viewBox="0.00 0.00 641.00 229.50" 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.7 0.7) rotate(0) translate(4 322.17)">
 <title>module~~s_helio_gr~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 900,-265.48 900,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322.17 907,-322.17 907,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,-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>
+<polygon fill="none" stroke="black" points="903,-83 841,-83 841,-59 903,-59 903,-83"/>
+<text text-anchor="middle" x="872" y="-68.6" 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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-24 511.5,-24 511.5,0 587.5,0 587.5,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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.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"/>
+<path fill="none" stroke="#000000" d="M840.89,-64.15C809.54,-57.13 758.96,-46.12 715,-38 675.62,-30.73 630.7,-23.71 597.76,-18.81"/>
+<polygon fill="#000000" stroke="#000000" points="597.91,-15.29 587.51,-17.29 596.89,-22.22 597.91,-15.29"/>
 </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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M851.94,-83.22C838.77,-91.67 821.07,-103.02 806.4,-112.43"/>
+<polygon fill="#000000" stroke="#000000" points="804.25,-109.65 797.72,-117.99 808.03,-115.54 804.25,-109.65"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-62 391,-62 391,-38 467,-38 467,-62"/>
+<text text-anchor="middle" x="429" y="-47.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge5" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-23.92C500.41,-27.42 488.32,-31.3 476.88,-34.97"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-31.74 467.04,-38.12 477.63,-38.4 475.49,-31.74"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-178 123,-178 123,-154 211,-154 211,-178"/>
+<text text-anchor="middle" x="167" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<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="M428,-10C370.53,-15.97 352.02,10.51 298,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.31,-9.09C487.91,-7.82 457.12,-7.18 430,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-10C234.03,-33.53 193.74,-107.5 176.94,-144.49"/>
+<polygon fill="#000000" stroke="#000000" points="173.63,-143.31 172.82,-153.87 180.04,-146.12 173.63,-143.31"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_node9" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node10" 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,-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>
+<g id="a_module~~s_helio_gr~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-82 252.5,-82 252.5,-58 341.5,-58 341.5,-82"/>
+<text text-anchor="middle" x="297" y="-67.6" 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_edge5" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge4" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-10C388.8,-14.07 348.3,-36.11 323.14,-52.3"/>
+<polygon fill="#000000" stroke="#000000" points="321,-49.52 314.59,-57.96 324.86,-55.35 321,-49.52"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_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,-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_node5" class="node">
-<title>module~lambda_function</title>
-<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M764.8,-117.94C746.18,-100.33 708.8,-67.93 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C645.47,-42.42 619.23,-33.35 597.36,-26.28"/>
+<polygon fill="#000000" stroke="#000000" points="598.24,-22.88 587.65,-23.18 596.11,-29.55 598.24,-22.88"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_gr~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node4" class="node">
 <title>module~swiftest_operators</title>
-<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>
+<g id="a_module~~s_helio_gr~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-218 247,-218 247,-194 347,-194 347,-218"/>
+<text text-anchor="middle" x="297" y="-203.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_helio_gr~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C607.71,-184 608.78,-223.76 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C499.29,-264.78 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C395.22,-243.53 359.65,-231.92 334.01,-221.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.28,-218.58 324.7,-218.07 332.66,-225.06 335.28,-218.58"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_helio_gr~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-142 511,-142 511,-118 588,-118 588,-142"/>
+<text text-anchor="middle" x="549.5" y="-127.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_helio_gr~~UsesGraph_edge13" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C635.93,-177.5 599.7,-161.38 576.08,-147.42"/>
+<polygon fill="#000000" stroke="#000000" points="577.73,-144.32 567.39,-142.03 574.04,-150.27 577.73,-144.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.91,-142.03C729.71,-151.26 698.79,-163.48 670.5,-170"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_node6" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-180 385.5,-180 385.5,-156 472.5,-156 472.5,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C617.39,-181.77 602.8,-166.11 550.5,-170"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge11" class="edge">
+<g id="module~~s_helio_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C525.14,-53.74 499.11,-53.53 477.42,-52.77"/>
+<polygon fill="#000000" stroke="#000000" points="477.28,-49.26 467.14,-52.36 477,-56.26 477.28,-49.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C620.08,-31.86 602.8,-48.12 550.5,-52"/>
 </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"/>
+<!-- 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="M428,-246C370.39,-241.66 351.07,-268.85 298,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-246C274.55,-236.76 267.34,-238.48 247,-227 225.86,-215.07 204.21,-197.94 188.93,-184.86"/>
+<polygon fill="#000000" stroke="#000000" points="190.98,-182.01 181.14,-178.08 186.38,-187.28 190.98,-182.01"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_node10" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_helio_gr~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-142 627,-142 627,-118 712,-118 712,-142"/>
+<text text-anchor="middle" x="669.5" y="-127.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_helio_gr~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-130C742.26,-130 732.26,-130 722.32,-130"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-126.5 712.05,-130 722.05,-133.5 722.05,-126.5"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C402.74,-89.51 375.04,-85.71 351.72,-81.55"/>
+<polygon fill="#000000" stroke="#000000" points="352.14,-78.07 341.67,-79.69 350.87,-84.95 352.14,-78.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C493.34,-56.1 485.3,-91.07 430,-90"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-280 624,-280 624,-256 715,-256 715,-280"/>
+<text text-anchor="middle" x="669.5" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.55,-142.25C749.19,-166.04 708.53,-218.72 686.11,-247.78"/>
+<polygon fill="#000000" stroke="#000000" points="683.12,-245.92 679.78,-255.98 688.66,-250.2 683.12,-245.92"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C525.45,-254.79 499.53,-263.66 477.81,-270.8"/>
+<polygon fill="#000000" stroke="#000000" points="476.58,-267.52 468.16,-273.96 478.75,-274.18 476.58,-267.52"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-194C244.68,-189.96 230.09,-185.4 216.5,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-177.77 206.82,-178.13 215.32,-184.45 217.41,-177.77"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<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="M533.08,-117.9C518.45,-106.61 495.68,-89.51 475,-76 470.58,-73.11 465.83,-70.19 461.13,-67.39"/>
+<polygon fill="#000000" stroke="#000000" points="462.67,-64.23 452.26,-62.22 459.14,-70.28 462.67,-64.23"/>
 </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.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-166C271.53,-165.81 244.42,-165.79 221.48,-165.82"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-162.32 211.25,-165.84 221.26,-169.32 221.25,-162.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.87,-132.6C477.22,-135.22 426.62,-139.91 383,-147 344.79,-153.21 336.71,-166.29 298,-166"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.26,-167.17C359.9,-166.73 327.12,-166.22 298,-166"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge20" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-155.98C389.64,-139.08 348.62,-108.16 322.36,-88.36"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-85.34 314.07,-82.12 319.95,-90.93 324.16,-85.34"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_edge19" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge21" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.17,-37.95C370.06,-23.69 317.15,-2.73 298,-10"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge20" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge22" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-55.73C378.55,-57.61 364.75,-59.73 351.59,-61.76"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-58.3 341.69,-63.28 352.11,-65.22 351.04,-58.3"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_gr~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-178 0,-178 0,-154 87,-154 87,-178"/>
+<text text-anchor="middle" x="43.5" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_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,-166C114.58,-166 105.86,-166 97.36,-166"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-162.5 87.13,-166 97.13,-169.5 97.13,-162.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge25" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge26" 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~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.43,-117.83C645.34,-99.38 616.81,-63.73 588,-38 584.96,-35.29 581.63,-32.62 578.25,-30.08"/>
+<polygon fill="#000000" stroke="#000000" points="580.05,-27.06 569.87,-24.1 575.98,-32.76 580.05,-27.06"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge23" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge24" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-130C617.64,-130 607.75,-130 598.27,-130"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-126.5 588.18,-130 598.18,-133.5 598.18,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.4,-142.19C621.08,-153.01 584.37,-167.48 550.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-170C527,-171.6 503.24,-171.56 482.68,-170.94"/>
+<polygon fill="#000000" stroke="#000000" points="482.68,-167.44 472.56,-170.59 482.43,-174.44 482.68,-167.44"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.42,-142.13C639.15,-146.33 631.11,-151.19 624,-156 607.21,-167.36 607.02,-177 588,-184 502.47,-215.48 473.34,-201.01 383,-189 344.2,-183.84 337.13,-166.94 298,-166"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge24" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.96,-118.02C614.51,-114.74 600.77,-111.42 588,-109 518.51,-95.82 500.73,-89.79 430,-90"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.79,-82.16C257.67,-98.75 217.85,-128.61 192.19,-147.86"/>
+<polygon fill="#000000" stroke="#000000" points="189.98,-145.14 184.08,-153.94 194.18,-150.74 189.98,-145.14"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.81,-280.08C587.52,-300.34 473.72,-336.18 383,-307 338.73,-292.76 340.4,-265.09 298,-246"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.77,-275.06C357.3,-268.17 325.24,-258.26 298,-246"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_kick.html b/docs/module/s_helio_kick.html
index 0c9386a92..3faf12a13 100644
--- a/docs/module/s_helio_kick.html
+++ b/docs/module/s_helio_kick.html
@@ -134,7 +134,7 @@ <h1>s_helio_kick
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for modules and submodules.">99 statements</a>
+    title=" 0.6% of total for modules and submodules.">99 statements</a>
      </li> 
      
      
@@ -251,259 +251,314 @@ <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="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)">
+<svg id="modules_helio_kickUsesGraph" width="641pt" height="228pt"
+ viewBox="0.00 0.00 641.00 227.50" 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 322.17)">
 <title>module~~s_helio_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 908,-265.48 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322.17 915,-322.17 915,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,-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>
+<polygon fill="none" stroke="black" points="911,-83 841,-83 841,-59 911,-59 911,-83"/>
+<text text-anchor="middle" x="876" y="-68.6" 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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-24 511.5,-24 511.5,0 587.5,0 587.5,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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.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"/>
+<path fill="none" stroke="#000000" d="M840.76,-63.46C808.42,-56.45 758.53,-45.92 715,-38 675.73,-30.85 630.97,-23.85 598.07,-18.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.23,-15.4 587.82,-17.39 597.2,-22.33 598.23,-15.4"/>
 </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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.11,-83.22C841.24,-91.75 822.55,-103.24 807.16,-112.7"/>
+<polygon fill="#000000" stroke="#000000" points="805.22,-109.77 798.54,-117.99 808.89,-115.74 805.22,-109.77"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-62 391,-62 391,-38 467,-38 467,-62"/>
+<text text-anchor="middle" x="429" y="-47.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge5" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-23.92C500.41,-27.42 488.32,-31.3 476.88,-34.97"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-31.74 467.04,-38.12 477.63,-38.4 475.49,-31.74"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-178 123,-178 123,-154 211,-154 211,-178"/>
+<text text-anchor="middle" x="167" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<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="M428,-10C370.53,-15.97 352.02,10.51 298,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.31,-9.09C487.91,-7.82 457.12,-7.18 430,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-10C234.03,-33.53 193.74,-107.5 176.94,-144.49"/>
+<polygon fill="#000000" stroke="#000000" points="173.63,-143.31 172.82,-153.87 180.04,-146.12 173.63,-143.31"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_node9" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node10" 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,-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>
+<g id="a_module~~s_helio_kick~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-82 252.5,-82 252.5,-58 341.5,-58 341.5,-82"/>
+<text text-anchor="middle" x="297" y="-67.6" 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_edge5" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge4" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-10C388.8,-14.07 348.3,-36.11 323.14,-52.3"/>
+<polygon fill="#000000" stroke="#000000" points="321,-49.52 314.59,-57.96 324.86,-55.35 321,-49.52"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_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,-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_node5" class="node">
-<title>module~lambda_function</title>
-<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M764.8,-117.94C746.18,-100.33 708.8,-67.93 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C645.47,-42.42 619.23,-33.35 597.36,-26.28"/>
+<polygon fill="#000000" stroke="#000000" points="598.24,-22.88 587.65,-23.18 596.11,-29.55 598.24,-22.88"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_kick~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node4" class="node">
 <title>module~swiftest_operators</title>
-<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>
+<g id="a_module~~s_helio_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-218 247,-218 247,-194 347,-194 347,-218"/>
+<text text-anchor="middle" x="297" y="-203.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_helio_kick~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C607.71,-184 608.78,-223.76 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C499.29,-264.78 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C395.22,-243.53 359.65,-231.92 334.01,-221.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.28,-218.58 324.7,-218.07 332.66,-225.06 335.28,-218.58"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_helio_kick~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-142 511,-142 511,-118 588,-118 588,-142"/>
+<text text-anchor="middle" x="549.5" y="-127.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_helio_kick~~UsesGraph_edge13" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C635.93,-177.5 599.7,-161.38 576.08,-147.42"/>
+<polygon fill="#000000" stroke="#000000" points="577.73,-144.32 567.39,-142.03 574.04,-150.27 577.73,-144.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.91,-142.03C729.71,-151.26 698.79,-163.48 670.5,-170"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_node6" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-180 385.5,-180 385.5,-156 472.5,-156 472.5,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C617.39,-181.77 602.8,-166.11 550.5,-170"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge11" class="edge">
+<g id="module~~s_helio_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C525.14,-53.74 499.11,-53.53 477.42,-52.77"/>
+<polygon fill="#000000" stroke="#000000" points="477.28,-49.26 467.14,-52.36 477,-56.26 477.28,-49.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C620.08,-31.86 602.8,-48.12 550.5,-52"/>
 </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"/>
+<!-- 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="M428,-246C370.39,-241.66 351.07,-268.85 298,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-246C274.55,-236.76 267.34,-238.48 247,-227 225.86,-215.07 204.21,-197.94 188.93,-184.86"/>
+<polygon fill="#000000" stroke="#000000" points="190.98,-182.01 181.14,-178.08 186.38,-187.28 190.98,-182.01"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_node10" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_helio_kick~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-142 627,-142 627,-118 712,-118 712,-142"/>
+<text text-anchor="middle" x="669.5" y="-127.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_helio_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-130C742.26,-130 732.26,-130 722.32,-130"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-126.5 712.05,-130 722.05,-133.5 722.05,-126.5"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C402.74,-89.51 375.04,-85.71 351.72,-81.55"/>
+<polygon fill="#000000" stroke="#000000" points="352.14,-78.07 341.67,-79.69 350.87,-84.95 352.14,-78.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C493.34,-56.1 485.3,-91.07 430,-90"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-280 624,-280 624,-256 715,-256 715,-280"/>
+<text text-anchor="middle" x="669.5" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.55,-142.25C749.19,-166.04 708.53,-218.72 686.11,-247.78"/>
+<polygon fill="#000000" stroke="#000000" points="683.12,-245.92 679.78,-255.98 688.66,-250.2 683.12,-245.92"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C525.45,-254.79 499.53,-263.66 477.81,-270.8"/>
+<polygon fill="#000000" stroke="#000000" points="476.58,-267.52 468.16,-273.96 478.75,-274.18 476.58,-267.52"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-194C244.68,-189.96 230.09,-185.4 216.5,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-177.77 206.82,-178.13 215.32,-184.45 217.41,-177.77"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<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="M533.08,-117.9C518.45,-106.61 495.68,-89.51 475,-76 470.58,-73.11 465.83,-70.19 461.13,-67.39"/>
+<polygon fill="#000000" stroke="#000000" points="462.67,-64.23 452.26,-62.22 459.14,-70.28 462.67,-64.23"/>
 </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.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-166C271.53,-165.81 244.42,-165.79 221.48,-165.82"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-162.32 211.25,-165.84 221.26,-169.32 221.25,-162.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.87,-132.6C477.22,-135.22 426.62,-139.91 383,-147 344.79,-153.21 336.71,-166.29 298,-166"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.26,-167.17C359.9,-166.73 327.12,-166.22 298,-166"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge20" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-155.98C389.64,-139.08 348.62,-108.16 322.36,-88.36"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-85.34 314.07,-82.12 319.95,-90.93 324.16,-85.34"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_edge19" class="edge">
+<g id="module~~s_helio_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="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.17,-37.95C370.06,-23.69 317.15,-2.73 298,-10"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge20" class="edge">
+<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-55.73C378.55,-57.61 364.75,-59.73 351.59,-61.76"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-58.3 341.69,-63.28 352.11,-65.22 351.04,-58.3"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_kick~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-178 0,-178 0,-154 87,-154 87,-178"/>
+<text text-anchor="middle" x="43.5" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_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,-166C114.58,-166 105.86,-166 97.36,-166"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-162.5 87.13,-166 97.13,-169.5 97.13,-162.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge25" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge26" 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~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.43,-117.83C645.34,-99.38 616.81,-63.73 588,-38 584.96,-35.29 581.63,-32.62 578.25,-30.08"/>
+<polygon fill="#000000" stroke="#000000" points="580.05,-27.06 569.87,-24.1 575.98,-32.76 580.05,-27.06"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge23" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge24" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-130C617.64,-130 607.75,-130 598.27,-130"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-126.5 588.18,-130 598.18,-133.5 598.18,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.4,-142.19C621.08,-153.01 584.37,-167.48 550.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-170C527,-171.6 503.24,-171.56 482.68,-170.94"/>
+<polygon fill="#000000" stroke="#000000" points="482.68,-167.44 472.56,-170.59 482.43,-174.44 482.68,-167.44"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.42,-142.13C639.15,-146.33 631.11,-151.19 624,-156 607.21,-167.36 607.02,-177 588,-184 502.47,-215.48 473.34,-201.01 383,-189 344.2,-183.84 337.13,-166.94 298,-166"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge24" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.96,-118.02C614.51,-114.74 600.77,-111.42 588,-109 518.51,-95.82 500.73,-89.79 430,-90"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.79,-82.16C257.67,-98.75 217.85,-128.61 192.19,-147.86"/>
+<polygon fill="#000000" stroke="#000000" points="189.98,-145.14 184.08,-153.94 194.18,-150.74 189.98,-145.14"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.81,-280.08C587.52,-300.34 473.72,-336.18 383,-307 338.73,-292.76 340.4,-265.09 298,-246"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.77,-275.06C357.3,-268.17 325.24,-258.26 298,-246"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_coord.html b/docs/module/s_helio_setup.html
similarity index 51%
rename from docs/module/s_helio_coord.html
rename to docs/module/s_helio_setup.html
index 95a24713e..7676acc3a 100644
--- a/docs/module/s_helio_coord.html
+++ b/docs/module/s_helio_setup.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>s_helio_coord &ndash; swiftest</title>
+    <title>s_helio_setup &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>s_helio_coord 
+    <h1>s_helio_setup 
     <small>Submodule</small>
     
     </h1>
@@ -134,22 +134,22 @@ <h1>s_helio_coord
      <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.">62 statements</a>
+    title=" 0.1% of total for modules and submodules.">15 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_coord.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/helio_setup.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></li>
+     <li><a href='../sourcefile/helio_setup.f90.html'>helio_setup.f90</a></li>
     
   
-     <li class="active">s_helio_coord</li>
+     <li class="active">s_helio_setup</li>
   </ol>
 </div>
 </div>
@@ -190,13 +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_helio_coord.html#proc-helio_coord_vb2vh_pl">helio_coord_vb2vh_pl</a>
-      
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vb2vh_tp">helio_coord_vb2vh_tp</a>
-      
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vh2vb_pl">helio_coord_vh2vb_pl</a>
-      
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vh2vb_tp">helio_coord_vh2vb_tp</a>
+      <a class="list-group-item" href="../module/s_helio_setup.html#proc-helio_setup_initialize_system">helio_setup_initialize_system</a>
       
     </div>
   </div>
@@ -250,264 +244,319 @@ <h3 class="panel-title">Uses</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- 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="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,-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,-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>
+<!-- Title: module~~s_helio_setup~~UsesGraph Pages: 1 -->
+<svg id="modules_helio_setupUsesGraph" width="641pt" height="225pt"
+ viewBox="0.00 0.00 641.00 225.30" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_helio_setup~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 322.17)">
+<title>module~~s_helio_setup~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322.17 924,-322.17 924,4 -4,4"/>
+<!-- module~s_helio_setup -->
+<g id="module~~s_helio_setup~~UsesGraph_node1" class="node">
+<title>module~s_helio_setup</title>
+<polygon fill="none" stroke="black" points="920,-83 841,-83 841,-59 920,-59 920,-83"/>
+<text text-anchor="middle" x="880.5" y="-68.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_setup</text>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node2" class="node">
+<g id="module~~s_helio_setup~~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,-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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node2"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-24 511.5,-24 511.5,0 587.5,0 587.5,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.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~~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.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"/>
+<!-- module~s_helio_setup&#45;&gt;module~helio_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge2" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M840.7,-62.75C807.42,-55.78 758.15,-45.73 715,-38 675.71,-30.96 630.95,-23.95 598.06,-18.99"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-15.47 587.81,-17.45 597.18,-22.39 598.22,-15.47"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_helio_coord~~UsesGraph_node3" class="node">
+<g id="module~~s_helio_setup~~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,-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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~s_helio_setup~~UsesGraph_edge1" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.68,-83.22C844.16,-91.75 824.59,-103.24 808.48,-112.7"/>
+<polygon fill="#000000" stroke="#000000" points="806.3,-109.91 799.45,-117.99 809.85,-115.95 806.3,-109.91"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node8" class="node">
+<g id="module~~s_helio_setup~~UsesGraph_node7" 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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-62 391,-62 391,-38 467,-38 467,-62"/>
+<text text-anchor="middle" x="429" y="-47.6" 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">
+<g id="module~~s_helio_setup~~UsesGraph_edge5" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-23.92C500.41,-27.42 488.32,-31.3 476.88,-34.97"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-31.74 467.04,-38.12 477.63,-38.4 475.49,-31.74"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_helio_setup~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-178 123,-178 123,-154 211,-154 211,-178"/>
+<text text-anchor="middle" x="167" y="-163.6" 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_setup~~UsesGraph_edge3" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-10C370.53,-15.97 352.02,10.51 298,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.31,-9.09C487.91,-7.82 457.12,-7.18 430,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-10C234.03,-33.53 193.74,-107.5 176.94,-144.49"/>
+<polygon fill="#000000" stroke="#000000" points="173.63,-143.31 172.82,-153.87 180.04,-146.12 173.63,-143.31"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node9" class="node">
+<g id="module~~s_helio_setup~~UsesGraph_node10" 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,-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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-82 252.5,-82 252.5,-58 341.5,-58 341.5,-82"/>
+<text text-anchor="middle" x="297" y="-67.6" 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_edge5" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge4" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-10C388.8,-14.07 348.3,-36.11 323.14,-52.3"/>
+<polygon fill="#000000" stroke="#000000" points="321,-49.52 314.59,-57.96 324.86,-55.35 321,-49.52"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_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,-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_node5" class="node">
-<title>module~lambda_function</title>
-<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M764.8,-117.94C746.18,-100.33 708.8,-67.93 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C645.47,-42.42 619.23,-33.35 597.36,-26.28"/>
+<polygon fill="#000000" stroke="#000000" points="598.24,-22.88 587.65,-23.18 596.11,-29.55 598.24,-22.88"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_coord~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_setup~~UsesGraph_node4" class="node">
 <title>module~swiftest_operators</title>
-<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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-218 247,-218 247,-194 347,-194 347,-218"/>
+<text text-anchor="middle" x="297" y="-203.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_helio_coord~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C607.71,-184 608.78,-223.76 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C499.29,-264.78 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C395.22,-243.53 359.65,-231.92 334.01,-221.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.28,-218.58 324.7,-218.07 332.66,-225.06 335.28,-218.58"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_setup~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-142 511,-142 511,-118 588,-118 588,-142"/>
+<text text-anchor="middle" x="549.5" y="-127.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_helio_coord~~UsesGraph_edge13" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C635.93,-177.5 599.7,-161.38 576.08,-147.42"/>
+<polygon fill="#000000" stroke="#000000" points="577.73,-144.32 567.39,-142.03 574.04,-150.27 577.73,-144.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.91,-142.03C729.71,-151.26 698.79,-163.48 670.5,-170"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_node6" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_helio_setup~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-180 385.5,-180 385.5,-156 472.5,-156 472.5,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C617.39,-181.77 602.8,-166.11 550.5,-170"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge11" class="edge">
+<g id="module~~s_helio_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C525.14,-53.74 499.11,-53.53 477.42,-52.77"/>
+<polygon fill="#000000" stroke="#000000" points="477.28,-49.26 467.14,-52.36 477,-56.26 477.28,-49.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C620.08,-31.86 602.8,-48.12 550.5,-52"/>
 </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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C370.39,-241.66 351.07,-268.85 298,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-246C274.55,-236.76 267.34,-238.48 247,-227 225.86,-215.07 204.21,-197.94 188.93,-184.86"/>
+<polygon fill="#000000" stroke="#000000" points="190.98,-182.01 181.14,-178.08 186.38,-187.28 190.98,-182.01"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node10" class="node">
+<g id="module~~s_helio_setup~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_helio_setup~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-142 627,-142 627,-118 712,-118 712,-142"/>
+<text text-anchor="middle" x="669.5" y="-127.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_helio_coord~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-130C742.26,-130 732.26,-130 722.32,-130"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-126.5 712.05,-130 722.05,-133.5 722.05,-126.5"/>
 </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,-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>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C402.74,-89.51 375.04,-85.71 351.72,-81.55"/>
+<polygon fill="#000000" stroke="#000000" points="352.14,-78.07 341.67,-79.69 350.87,-84.95 352.14,-78.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C493.34,-56.1 485.3,-91.07 430,-90"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_helio_setup~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_helio_setup~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-280 624,-280 624,-256 715,-256 715,-280"/>
+<text text-anchor="middle" x="669.5" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_helio_setup~~UsesGraph_edge14" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.55,-142.25C749.19,-166.04 708.53,-218.72 686.11,-247.78"/>
+<polygon fill="#000000" stroke="#000000" points="683.12,-245.92 679.78,-255.98 688.66,-250.2 683.12,-245.92"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_helio_setup~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<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="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&#45;&gt;module~walltime_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge15" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C525.45,-254.79 499.53,-263.66 477.81,-270.8"/>
+<polygon fill="#000000" stroke="#000000" points="476.58,-267.52 468.16,-273.96 478.75,-274.18 476.58,-267.52"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge16" class="edge">
+<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-194C244.68,-189.96 230.09,-185.4 216.5,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-177.77 206.82,-178.13 215.32,-184.45 217.41,-177.77"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge18" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M533.08,-117.9C518.45,-106.61 495.68,-89.51 475,-76 470.58,-73.11 465.83,-70.19 461.13,-67.39"/>
+<polygon fill="#000000" stroke="#000000" points="462.67,-64.23 452.26,-62.22 459.14,-70.28 462.67,-64.23"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge17" class="edge">
+<g id="module~~s_helio_setup~~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.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-166C271.53,-165.81 244.42,-165.79 221.48,-165.82"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-162.32 211.25,-165.84 221.26,-169.32 221.25,-162.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.87,-132.6C477.22,-135.22 426.62,-139.91 383,-147 344.79,-153.21 336.71,-166.29 298,-166"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.26,-167.17C359.9,-166.73 327.12,-166.22 298,-166"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge20" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-155.98C389.64,-139.08 348.62,-108.16 322.36,-88.36"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-85.34 314.07,-82.12 319.95,-90.93 324.16,-85.34"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge19" class="edge">
+<g id="module~~s_helio_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="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.17,-37.95C370.06,-23.69 317.15,-2.73 298,-10"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge20" class="edge">
+<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-55.73C378.55,-57.61 364.75,-59.73 351.59,-61.76"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-58.3 341.69,-63.28 352.11,-65.22 351.04,-58.3"/>
 </g>
-<!-- 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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_setup~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_setup~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-178 0,-178 0,-154 87,-154 87,-178"/>
+<text text-anchor="middle" x="43.5" y="-163.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_helio_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,-166C114.58,-166 105.86,-166 97.36,-166"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-162.5 87.13,-166 97.13,-169.5 97.13,-162.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge25" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge26" 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~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.43,-117.83C645.34,-99.38 616.81,-63.73 588,-38 584.96,-35.29 581.63,-32.62 578.25,-30.08"/>
+<polygon fill="#000000" stroke="#000000" points="580.05,-27.06 569.87,-24.1 575.98,-32.76 580.05,-27.06"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge23" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge24" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-130C617.64,-130 607.75,-130 598.27,-130"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-126.5 588.18,-130 598.18,-133.5 598.18,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.4,-142.19C621.08,-153.01 584.37,-167.48 550.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-170C527,-171.6 503.24,-171.56 482.68,-170.94"/>
+<polygon fill="#000000" stroke="#000000" points="482.68,-167.44 472.56,-170.59 482.43,-174.44 482.68,-167.44"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.42,-142.13C639.15,-146.33 631.11,-151.19 624,-156 607.21,-167.36 607.02,-177 588,-184 502.47,-215.48 473.34,-201.01 383,-189 344.2,-183.84 337.13,-166.94 298,-166"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge24" class="edge">
+<g id="module~~s_helio_setup~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.96,-118.02C614.51,-114.74 600.77,-111.42 588,-109 518.51,-95.82 500.73,-89.79 430,-90"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.79,-82.16C257.67,-98.75 217.85,-128.61 192.19,-147.86"/>
+<polygon fill="#000000" stroke="#000000" points="189.98,-145.14 184.08,-153.94 194.18,-150.74 189.98,-145.14"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.81,-280.08C587.52,-300.34 473.72,-336.18 383,-307 338.73,-292.76 340.4,-265.09 298,-246"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_setup~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.77,-275.06C357.3,-268.17 325.24,-258.26 298,-246"/>
 </g>
 </g>
 </svg>
-</div><script>var panmodules_helio_coordUsesGraph = svgPanZoom('#modules_helio_coordUsesGraph', {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><script>var panmodules_helio_setupUsesGraph = svgPanZoom('#modules_helio_setupUsesGraph', {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"
@@ -601,13 +650,7 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vb2vh_pl">helio_coord_vb2vh_pl</a>
-      
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vb2vh_tp">helio_coord_vb2vh_tp</a>
-      
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vh2vb_pl">helio_coord_vh2vb_pl</a>
-      
-      <a class="list-group-item" href="../module/s_helio_coord.html#proc-helio_coord_vh2vb_tp">helio_coord_vh2vb_tp</a>
+      <a class="list-group-item" href="../module/s_helio_setup.html#proc-helio_setup_initialize_system">helio_setup_initialize_system</a>
       
     </div>
   </div>
@@ -649,97 +692,11 @@ <h2>Module Subroutines</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-helio_coord_vb2vh_pl"></span><h3>
-module subroutine <a href='../proc/helio_coord_vb2vh_pl.html'>helio_coord_vb2vh_pl</a>(self, cb)
-    
-    
-   <a href='../interface/helio_coord_vb2vh_pl.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>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p><a href="../proc/helio_coord_vb2vh_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
-    
-    <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/helio_pl.html'>helio_pl</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio 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>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-helio_coord_vb2vh_tp"></span><h3>
-module subroutine <a href='../proc/helio_coord_vb2vh_tp.html'>helio_coord_vb2vh_tp</a>(self, vbcb)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-helio_setup_initialize_system"></span><h3>
+module subroutine <a href='../proc/helio_setup_initialize_system.html'>helio_setup_initialize_system</a>(self, param)
     
     
-   <a href='../interface/helio_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/helio_setup_initialize_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -763,7 +720,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p><a href="../proc/helio_coord_vb2vh_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Initialize a Helio nbody system from files, converting all heliocentric quantities to barycentric.</p>
     
     <h4>Arguments</h4>
     
@@ -784,12 +741,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Helio nbody system object</p></td>
   
 </tr>
 
@@ -799,184 +756,12 @@ <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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-helio_coord_vh2vb_pl"></span><h3>
-module subroutine <a href='../proc/helio_coord_vh2vb_pl.html'>helio_coord_vh2vb_pl</a>(self, cb)
-    
-    
-   <a href='../interface/helio_coord_vh2vb_pl.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>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p><a href="../proc/helio_coord_vh2vb_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
-    
-    <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/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" ></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio 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>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-helio_coord_vh2vb_tp"></span><h3>
-module subroutine <a href='../proc/helio_coord_vh2vb_tp.html'>helio_coord_vh2vb_tp</a>(self, vbcb)
-    
-    
-   <a href='../interface/helio_coord_vh2vb_tp.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>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p><a href="../proc/helio_coord_vh2vb_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
-    
-    <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/helio_tp.html'>helio_tp</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
diff --git a/docs/module/s_helio_step.html b/docs/module/s_helio_step.html
index 957be1910..99135d6d0 100644
--- a/docs/module/s_helio_step.html
+++ b/docs/module/s_helio_step.html
@@ -134,7 +134,7 @@ <h1>s_helio_step
      <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.">71 statements</a>
+    title=" 0.4% of total for modules and submodules.">71 statements</a>
      </li> 
      
      
@@ -249,259 +249,314 @@ <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="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)">
+<svg id="modules_helio_stepUsesGraph" width="641pt" height="227pt"
+ viewBox="0.00 0.00 641.00 226.76" 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 322.17)">
 <title>module~~s_helio_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 911,-265.48 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322.17 918,-322.17 918,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,-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>
+<polygon fill="none" stroke="black" points="914,-83 841,-83 841,-59 914,-59 914,-83"/>
+<text text-anchor="middle" x="877.5" y="-68.6" 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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-24 511.5,-24 511.5,0 587.5,0 587.5,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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.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"/>
+<path fill="none" stroke="#000000" d="M840.99,-63.27C808.32,-56.27 758.51,-45.88 715,-38 675.72,-30.89 630.97,-23.88 598.06,-18.94"/>
+<polygon fill="#000000" stroke="#000000" points="598.23,-15.43 587.82,-17.41 597.19,-22.35 598.23,-15.43"/>
 </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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M856.3,-83.22C842.22,-91.75 823.23,-103.24 807.6,-112.7"/>
+<polygon fill="#000000" stroke="#000000" points="805.59,-109.82 798.84,-117.99 809.21,-115.81 805.59,-109.82"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_step~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-62 391,-62 391,-38 467,-38 467,-62"/>
+<text text-anchor="middle" x="429" y="-47.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge5" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-23.92C500.41,-27.42 488.32,-31.3 476.88,-34.97"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-31.74 467.04,-38.12 477.63,-38.4 475.49,-31.74"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-178 123,-178 123,-154 211,-154 211,-178"/>
+<text text-anchor="middle" x="167" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<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="M428,-10C370.53,-15.97 352.02,10.51 298,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.31,-9.09C487.91,-7.82 457.12,-7.18 430,-10"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-10C234.03,-33.53 193.74,-107.5 176.94,-144.49"/>
+<polygon fill="#000000" stroke="#000000" points="173.63,-143.31 172.82,-153.87 180.04,-146.12 173.63,-143.31"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_helio_step~~UsesGraph_node9" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node10" 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,-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>
+<g id="a_module~~s_helio_step~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-82 252.5,-82 252.5,-58 341.5,-58 341.5,-82"/>
+<text text-anchor="middle" x="297" y="-67.6" 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_edge5" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge4" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-10C388.8,-14.07 348.3,-36.11 323.14,-52.3"/>
+<polygon fill="#000000" stroke="#000000" points="321,-49.52 314.59,-57.96 324.86,-55.35 321,-49.52"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_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,-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_node5" class="node">
-<title>module~lambda_function</title>
-<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M764.8,-117.94C746.18,-100.33 708.8,-67.93 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C645.47,-42.42 619.23,-33.35 597.36,-26.28"/>
+<polygon fill="#000000" stroke="#000000" points="598.24,-22.88 587.65,-23.18 596.11,-29.55 598.24,-22.88"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_step~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node4" class="node">
 <title>module~swiftest_operators</title>
-<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>
+<g id="a_module~~s_helio_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-218 247,-218 247,-194 347,-194 347,-218"/>
+<text text-anchor="middle" x="297" y="-203.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_helio_step~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C607.71,-184 608.78,-223.76 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C499.29,-264.78 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C395.22,-243.53 359.65,-231.92 334.01,-221.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.28,-218.58 324.7,-218.07 332.66,-225.06 335.28,-218.58"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_step~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_helio_step~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-142 511,-142 511,-118 588,-118 588,-142"/>
+<text text-anchor="middle" x="549.5" y="-127.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_helio_step~~UsesGraph_edge13" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C635.93,-177.5 599.7,-161.38 576.08,-147.42"/>
+<polygon fill="#000000" stroke="#000000" points="577.73,-144.32 567.39,-142.03 574.04,-150.27 577.73,-144.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.91,-142.03C729.71,-151.26 698.79,-163.48 670.5,-170"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_helio_step~~UsesGraph_node6" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-180 385.5,-180 385.5,-156 472.5,-156 472.5,-180"/>
+<text text-anchor="middle" x="429" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-170C617.39,-181.77 602.8,-166.11 550.5,-170"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge11" class="edge">
+<g id="module~~s_helio_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C525.14,-53.74 499.11,-53.53 477.42,-52.77"/>
+<polygon fill="#000000" stroke="#000000" points="477.28,-49.26 467.14,-52.36 477,-56.26 477.28,-49.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C620.08,-31.86 602.8,-48.12 550.5,-52"/>
 </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"/>
+<!-- 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="M428,-246C370.39,-241.66 351.07,-268.85 298,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-246C274.55,-236.76 267.34,-238.48 247,-227 225.86,-215.07 204.21,-197.94 188.93,-184.86"/>
+<polygon fill="#000000" stroke="#000000" points="190.98,-182.01 181.14,-178.08 186.38,-187.28 190.98,-182.01"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_step~~UsesGraph_node10" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_helio_step~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-142 627,-142 627,-118 712,-118 712,-142"/>
+<text text-anchor="middle" x="669.5" y="-127.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_helio_step~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-130C742.26,-130 732.26,-130 722.32,-130"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-126.5 712.05,-130 722.05,-133.5 722.05,-126.5"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C402.74,-89.51 375.04,-85.71 351.72,-81.55"/>
+<polygon fill="#000000" stroke="#000000" points="352.14,-78.07 341.67,-79.69 350.87,-84.95 352.14,-78.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-52C493.34,-56.1 485.3,-91.07 430,-90"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-280 624,-280 624,-256 715,-256 715,-280"/>
+<text text-anchor="middle" x="669.5" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.55,-142.25C749.19,-166.04 708.53,-218.72 686.11,-247.78"/>
+<polygon fill="#000000" stroke="#000000" points="683.12,-245.92 679.78,-255.98 688.66,-250.2 683.12,-245.92"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_helio_step~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C525.45,-254.79 499.53,-263.66 477.81,-270.8"/>
+<polygon fill="#000000" stroke="#000000" points="476.58,-267.52 468.16,-273.96 478.75,-274.18 476.58,-267.52"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-194C244.68,-189.96 230.09,-185.4 216.5,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-177.77 206.82,-178.13 215.32,-184.45 217.41,-177.77"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<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="M533.08,-117.9C518.45,-106.61 495.68,-89.51 475,-76 470.58,-73.11 465.83,-70.19 461.13,-67.39"/>
+<polygon fill="#000000" stroke="#000000" points="462.67,-64.23 452.26,-62.22 459.14,-70.28 462.67,-64.23"/>
 </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.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-166C271.53,-165.81 244.42,-165.79 221.48,-165.82"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-162.32 211.25,-165.84 221.26,-169.32 221.25,-162.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.87,-132.6C477.22,-135.22 426.62,-139.91 383,-147 344.79,-153.21 336.71,-166.29 298,-166"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.26,-167.17C359.9,-166.73 327.12,-166.22 298,-166"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge20" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-155.98C389.64,-139.08 348.62,-108.16 322.36,-88.36"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-85.34 314.07,-82.12 319.95,-90.93 324.16,-85.34"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_edge19" class="edge">
+<g id="module~~s_helio_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="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.17,-37.95C370.06,-23.69 317.15,-2.73 298,-10"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge20" class="edge">
+<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-55.73C378.55,-57.61 364.75,-59.73 351.59,-61.76"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-58.3 341.69,-63.28 352.11,-65.22 351.04,-58.3"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_step~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-178 0,-178 0,-154 87,-154 87,-178"/>
+<text text-anchor="middle" x="43.5" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_step~~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,-166C114.58,-166 105.86,-166 97.36,-166"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-162.5 87.13,-166 97.13,-169.5 97.13,-162.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge25" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge26" 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~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.43,-117.83C645.34,-99.38 616.81,-63.73 588,-38 584.96,-35.29 581.63,-32.62 578.25,-30.08"/>
+<polygon fill="#000000" stroke="#000000" points="580.05,-27.06 569.87,-24.1 575.98,-32.76 580.05,-27.06"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge23" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge24" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-130C617.64,-130 607.75,-130 598.27,-130"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-126.5 588.18,-130 598.18,-133.5 598.18,-126.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.4,-142.19C621.08,-153.01 584.37,-167.48 550.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-170C527,-171.6 503.24,-171.56 482.68,-170.94"/>
+<polygon fill="#000000" stroke="#000000" points="482.68,-167.44 472.56,-170.59 482.43,-174.44 482.68,-167.44"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.42,-142.13C639.15,-146.33 631.11,-151.19 624,-156 607.21,-167.36 607.02,-177 588,-184 502.47,-215.48 473.34,-201.01 383,-189 344.2,-183.84 337.13,-166.94 298,-166"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge24" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.96,-118.02C614.51,-114.74 600.77,-111.42 588,-109 518.51,-95.82 500.73,-89.79 430,-90"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.79,-82.16C257.67,-98.75 217.85,-128.61 192.19,-147.86"/>
+<polygon fill="#000000" stroke="#000000" points="189.98,-145.14 184.08,-153.94 194.18,-150.74 189.98,-145.14"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.81,-280.08C587.52,-300.34 473.72,-336.18 383,-307 338.73,-292.76 340.4,-265.09 298,-246"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.77,-275.06C357.3,-268.17 325.24,-258.26 298,-246"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_io.html b/docs/module/s_io.html
index 66886f160..b0196a68d 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.6% of total for modules and submodules.">1282 statements</a>
+    title="10.0% of total for modules and submodules.">1628 statements</a>
      </li> 
      
      
@@ -197,18 +197,6 @@ <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_io.html#proc-io_write_hdr">io_write_hdr</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>
@@ -217,8 +205,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_get_args">io_get_args</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_get_old_t_final_system">io_get_old_t_final_system</a>
+      
       <a class="list-group-item" href="../module/s_io.html#proc-io_get_token">io_get_token</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_body">io_read_frame_body</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_cb">io_read_frame_cb</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_system">io_read_frame_system</a>
+      
     </div>
   </div>
 </div>
@@ -234,7 +230,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_dump_param">io_dump_param</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_swiftest">io_dump_swiftest</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_particle_info">io_dump_particle_info</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_particle_info_base">io_dump_particle_info_base</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_base">io_dump_base</a>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_dump_system">io_dump_system</a>
       
@@ -242,17 +242,15 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_param_writer">io_param_writer</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_body_in">io_read_body_in</a>
-      
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_cb_in">io_read_cb_in</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_body">io_read_in_body</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_body">io_read_frame_body</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_cb">io_read_in_cb</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_cb">io_read_frame_cb</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_param">io_read_in_param</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_system">io_read_frame_system</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_particle_info">io_read_in_particle_info</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_param_in">io_read_param_in</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_particle_info_system">io_read_particle_info_system</a>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_toupper">io_toupper</a>
       
@@ -264,8 +262,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_write_frame_cb">io_write_frame_cb</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_write_frame_encounter">io_write_frame_encounter</a>
+      
       <a class="list-group-item" href="../module/s_io.html#proc-io_write_frame_system">io_write_frame_system</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_write_hdr_system">io_write_hdr_system</a>
+      
     </div>
   </div>
 </div>
@@ -319,258 +321,311 @@ <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="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)">
+<svg id="modules_ioUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_io~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_io</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_io~~UsesGraph_node3" class="node">
+<g id="module~~s_io~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_io~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_io~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_io~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_io~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_io~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_io~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_io~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_io~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_io~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_io~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_io~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_io~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_io~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_io~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_io~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_io~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_io~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_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="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_io~~UsesGraph_edge16" class="edge">
+<g id="module~~s_io~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_io~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_io~~UsesGraph_edge21" class="edge">
+<g id="module~~s_io~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_edge20" class="edge">
+<g id="module~~s_io~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_io~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_io~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_io~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_io~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_io~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_io~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_io~~UsesGraph_edge25" class="edge">
+<g id="module~~s_io~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_io~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -675,18 +730,6 @@ <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_io.html#proc-io_write_hdr">io_write_hdr</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>
@@ -695,8 +738,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_get_args">io_get_args</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_get_old_t_final_system">io_get_old_t_final_system</a>
+      
       <a class="list-group-item" href="../module/s_io.html#proc-io_get_token">io_get_token</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_body">io_read_frame_body</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_cb">io_read_frame_cb</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_system">io_read_frame_system</a>
+      
     </div>
   </div>
 </div>
@@ -712,7 +763,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_dump_param">io_dump_param</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_swiftest">io_dump_swiftest</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_particle_info">io_dump_particle_info</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_particle_info_base">io_dump_particle_info_base</a>
+      
+      <a class="list-group-item" href="../module/s_io.html#proc-io_dump_base">io_dump_base</a>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_dump_system">io_dump_system</a>
       
@@ -720,17 +775,15 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_param_writer">io_param_writer</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_body_in">io_read_body_in</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_body">io_read_in_body</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_cb_in">io_read_cb_in</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_cb">io_read_in_cb</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_body">io_read_frame_body</a>
-      
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_cb">io_read_frame_cb</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_param">io_read_in_param</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_frame_system">io_read_frame_system</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_in_particle_info">io_read_in_particle_info</a>
       
-      <a class="list-group-item" href="../module/s_io.html#proc-io_read_param_in">io_read_param_in</a>
+      <a class="list-group-item" href="../module/s_io.html#proc-io_read_particle_info_system">io_read_particle_info_system</a>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_toupper">io_toupper</a>
       
@@ -742,8 +795,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_io.html#proc-io_write_frame_cb">io_write_frame_cb</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_write_frame_encounter">io_write_frame_encounter</a>
+      
       <a class="list-group-item" href="../module/s_io.html#proc-io_write_frame_system">io_write_frame_system</a>
       
+      <a class="list-group-item" href="../module/s_io.html#proc-io_write_hdr_system">io_write_hdr_system</a>
+      
     </div>
   </div>
 </div>
@@ -777,7 +834,7 @@ <h2>Functions</h2>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_encounter"></span><h3>
-function <a href='../proc/io_read_encounter.html'>io_read_encounter</a>(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr)
+function <a href='../proc/io_read_encounter.html'>io_read_encounter</a>(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr)
     
     
    
@@ -846,7 +903,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name1</strong></td><td></td>
+  <td><strong>id1</strong></td><td></td>
   
 </tr>
 
@@ -861,7 +918,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name2</strong></td><td></td>
+  <td><strong>id2</strong></td><td></td>
   
 </tr>
 
@@ -876,7 +933,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass1</strong></td><td></td>
+  <td><strong>Gmass1</strong></td><td></td>
   
 </tr>
 
@@ -891,7 +948,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass2</strong></td><td></td>
+  <td><strong>Gmass2</strong></td><td></td>
   
 </tr>
 
@@ -1196,14 +1253,20 @@ <h4>Return Value <small>integer(kind=I4B)
     
 
     
-    <section>
-    <h2>Subroutines</h2>
     
     
+    
+         
+        <section>
+        <h2>Module Functions</h2>
+        
+        
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_hdr"></span><h3>
-subroutine <a href='../proc/io_write_hdr.html'>io_write_hdr</a>(iu, t, npl, ntp, out_form, out_type)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_get_args"></span><h3>
+module function <a href='../proc/io_get_args.html'>io_get_args</a>(integrator, param_file_name) result(ierr)
+    
     
+   <a href='../interface/io_get_args.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1217,7 +1280,7 @@ <h2>Subroutines</h2>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
+    <dt>Author</dt><dd>David A. Minton</dd>
     
     
     
@@ -1227,7 +1290,7 @@ <h2>Subroutines</h2>
 
 
 
-<p>Write frame header to output binary file</p><a href="../proc/io_write_hdr.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Reads in the name of the parameter file from command line arguments. </p>
     
     <h4>Arguments</h4>
     
@@ -1248,27 +1311,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B)</td>
   <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Output file unit number</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>t</strong></td><td><p>Current time of simulation</p></td>
+  <td><strong>integrator</strong></td><td><p>Symbolic code of the requested integrator  </p></td>
   
 </tr>
 
@@ -1278,88 +1326,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>character(len=:),</td>
   <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>npl</strong></td><td><p>Number of massive bodies</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>ntp</strong></td><td><p>Number of test particles</p></td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>param_file_name</strong></td><td><p>Name of the input parameters file</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
   
   
   
   
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>out_form</strong></td><td><p>Output format type ("EL" or  "XV")</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td><p>Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions)</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>I/O error code</p>
     
 
   </div>
   </div>
 
-    
-    </section>    
-    <br>
-    
-    
-    
-    
-         
-        <section>
-        <h2>Module Functions</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_get_args"></span><h3>
-module function <a href='../proc/io_get_args.html'>io_get_args</a>(integrator, param_file_name) result(ierr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_get_old_t_final_system"></span><h3>
+module function <a href='../proc/io_get_old_t_final_system.html'>io_get_old_t_final_system</a>(self, param) result(old_t_final)
     
     
-   <a href='../interface/io_get_args.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_get_old_t_final_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1383,7 +1385,7 @@ <h2>Module Functions</h2>
 
 
 
-<p>Reads in the name of the parameter file from command line arguments. </p>
+<p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p>
     
     <h4>Arguments</h4>
     
@@ -1404,12 +1406,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B)</td>
-  <td></td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>integrator</strong></td><td><p>Symbolic code of the requested integrator  </p></td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -1419,12 +1421,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=:),</td>
-  <td></td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>allocatable</td><td>::</td>
-  <td><strong>param_file_name</strong></td><td><p>Name of the input parameters file</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td></td>
   
 </tr>
 
@@ -1439,9 +1441,9 @@ <h4>Arguments</h4>
   
   
   
-     <h4>Return Value <small>integer(kind=I4B)
+     <h4>Return Value <small>real(kind=DP)
   </small></h4>
-  <p>I/O error code</p>
+  
     
 
   </div>
@@ -1574,21 +1576,13 @@ <h4>Return Value <small>character(len=:),
   </div>
 
         
-        </section>
-        <br>
-        
-
-        
-        <section>
-        <h2>Module Subroutines</h2>
-        
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_conservation_report"></span><h3>
-module subroutine <a href='../proc/io_conservation_report.html'>io_conservation_report</a>(self, param, lterminal)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_frame_body"></span><h3>
+module function <a href='../proc/io_read_frame_body.html'>io_read_frame_body</a>(self, iu, param) result(ierr)
     
     
-   <a href='../interface/io_conservation_report.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1602,7 +1596,7 @@ <h2>Module Subroutines</h2>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
+    <dt>Author</dt><dd>David A. Minton</dd>
     
     
     
@@ -1612,7 +1606,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Reports the current state of energy, mass, and angular momentum conservation in a run</p>
+<p>Reads a frame of output of either test particle or massive body data from a binary output file</p><a href="../proc/io_read_frame_body.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -1633,12 +1627,12 @@ <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_body.html'>swiftest_body</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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1648,12 +1642,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>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Input colleciton of user-defined parameters</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -1663,12 +1657,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
+  <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>lterminal</strong></td><td><p>Indicates whether to output information to the terminal screen</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1679,17 +1673,26 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
   </div>
   </div>
 
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_param"></span><h3>
-module subroutine <a href='../proc/io_dump_param.html'>io_dump_param</a>(self, param_file_name)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_frame_cb"></span><h3>
+module function <a href='../proc/io_read_frame_cb.html'>io_read_frame_cb</a>(self, iu, param) result(ierr)
     
     
-   <a href='../interface/io_dump_param.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1713,7 +1716,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Dump integration parameters to file</p><a href="../proc/io_dump_param.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Reads a frame of output of central body data to the binary output file</p><a href="../proc/io_read_frame_cb.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -1734,12 +1737,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/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Output collection of parameters</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1749,12 +1752,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></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>
 
@@ -1765,17 +1783,26 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
   </div>
   </div>
 
         
         
   <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)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_frame_system"></span><h3>
+module function <a href='../proc/io_read_frame_system.html'>io_read_frame_system</a>(self, iu, param) result(ierr)
     
     
-   <a href='../interface/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1789,7 +1816,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>David A. Minton</dd>
+    <dt>Author</dt><dd>The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
     
     
     
@@ -1799,7 +1826,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Dump massive body data to files</p><a href="../proc/io_dump_swiftest.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Read a frame (header plus records for each massive body and active test particle) from a output binary file</p>
     
     <h4>Arguments</h4>
     
@@ -1820,12 +1847,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</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>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system 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>
 
@@ -1851,17 +1893,34 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
   </div>
   </div>
 
         
+        </section>
+        <br>
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
+        
         
   <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)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_conservation_report"></span><h3>
+module subroutine <a href='../proc/io_conservation_report.html'>io_conservation_report</a>(self, param, lterminal)
     
     
-   <a href='../interface/io_dump_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_conservation_report.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1875,7 +1934,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>David A. Minton</dd>
+    <dt>Author</dt><dd>The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
     
     
     
@@ -1885,9 +1944,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p>
+<p>Reports the current state of energy, mass, and angular momentum conservation in a run</p>
     
     <h4>Arguments</h4>
     
@@ -1913,7 +1970,7 @@ <h4>Arguments</h4>
   <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 nbody system object</p></td>
   
 </tr>
 
@@ -1928,7 +1985,22 @@ <h4>Arguments</h4>
   <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>Input colleciton of user-defined parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lterminal</strong></td><td><p>Indicates whether to output information to the terminal screen</p></td>
   
 </tr>
 
@@ -1945,11 +2017,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_param_reader"></span><h3>
-module subroutine <a href='../proc/io_param_reader.html'>io_param_reader</a>(self, unit, iotype, v_list, iostat, iomsg)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_param"></span><h3>
+module subroutine <a href='../proc/io_dump_param.html'>io_dump_param</a>(self, param_file_name)
     
     
-   <a href='../interface/io_param_reader.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_dump_param.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1963,7 +2035,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
+    <dt>Author</dt><dd>David A. Minton</dd>
     
     
     
@@ -1973,10 +2045,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p><a href="../proc/io_param_reader.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Dump integration parameters to file</p><a href="../proc/io_dump_param.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -1998,26 +2067,11 @@ <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></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Collection of parameters</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer,</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>unit</strong></td><td><p>File unit number</p></td>
+  <td><strong>self</strong></td><td><p>Output collection of parameters</p></td>
   
 </tr>
 
@@ -2032,53 +2086,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iotype</strong></td><td><p>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.</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>v_list</strong>(:)</td><td><p>The first element passes the integrator code to the reader</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer,</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iostat</strong></td><td><p>IO status code</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
+  <td><strong>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></td>
   
 </tr>
 
@@ -2095,11 +2103,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_param_writer"></span><h3>
-module subroutine <a href='../proc/io_param_writer.html'>io_param_writer</a>(self, unit, iotype, v_list, iostat, iomsg)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_particle_info"></span><h3>
+module subroutine <a href='../proc/io_dump_particle_info.html'>io_dump_particle_info</a>(self, iu)
     
     
-   <a href='../interface/io_param_writer.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2123,7 +2131,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Dump integration parameters to file</p><a href="../proc/io_param_writer.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Reads in particle information object information from an open file unformatted file</p>
     
     <h4>Arguments</h4>
     
@@ -2144,12 +2152,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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Collection of parameters</p></td>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</p></td>
   
 </tr>
 
@@ -2159,30 +2167,71 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer,</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>unit</strong></td><td><p>File unit number</p></td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iotype</strong></td><td><p>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.</p></td>
-  
-</tr>
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_particle_info_base"></span><h3>
+module subroutine <a href='../proc/io_dump_particle_info_base.html'>io_dump_particle_info_base</a>(self, param, idx)
+    
+    
+   <a href='../interface/io_dump_particle_info_base.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>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>
+    
+      
+      
+<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>
 
   
   
@@ -2190,12 +2239,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer,</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>v_list</strong>(:)</td><td><p>Not used in this procedure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -2205,12 +2254,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer,</td>
-  <td>intent(out)</td>
+  <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>iostat</strong></td><td><p>IO status code</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -2220,12 +2269,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -2242,11 +2291,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_body_in"></span><h3>
-module subroutine <a href='../proc/io_read_body_in.html'>io_read_body_in</a>(self, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_base"></span><h3>
+module subroutine <a href='../proc/io_dump_base.html'>io_dump_base</a>(self, param)
     
     
-   <a href='../interface/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2260,7 +2309,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
+    <dt>Author</dt><dd>David A. Minton</dd>
     
     
     
@@ -2270,7 +2319,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Read in either test particle or massive body data </p><a href="../proc/io_read_body_in.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Dump massive body data to files</p><a href="../proc/io_dump_base.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2291,12 +2340,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -2311,7 +2360,7 @@ <h4>Arguments</h4>
   <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>
 
@@ -2328,11 +2377,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_cb_in"></span><h3>
-module subroutine <a href='../proc/io_read_cb_in.html'>io_read_cb_in</a>(self, param)
+  <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)
     
     
-   <a href='../interface/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_dump_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2356,7 +2405,9 @@ <h4>Arguments</h4>
 
 
 
-<p>Reads in central body data </p><a href="../proc/io_read_cb_in.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>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.</p>
     
     <h4>Arguments</h4>
     
@@ -2377,12 +2428,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</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>self</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -2397,7 +2448,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>
 
@@ -2414,11 +2465,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_frame_body"></span><h3>
-module subroutine <a href='../proc/io_read_frame_body.html'>io_read_frame_body</a>(self, iu, param, form, ierr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_param_reader"></span><h3>
+module subroutine <a href='../proc/io_param_reader.html'>io_param_reader</a>(self, unit, iotype, v_list, iostat, iomsg)
     
     
-   <a href='../interface/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_param_reader.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2432,7 +2483,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>David A. Minton</dd>
+    <dt>Author</dt><dd>The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
     
     
     
@@ -2442,7 +2493,10 @@ <h4>Arguments</h4>
 
 
 
-<p>Reads a frame of output of either test particle or massive body data from a binary output file</p><a href="../proc/io_read_frame_body.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>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.</p><a href="../proc/io_param_reader.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2463,12 +2517,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <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>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Collection of parameters</p></td>
   
 </tr>
 
@@ -2478,12 +2532,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer,</td>
+  <td>intent(in)</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>unit</strong></td><td><p>File unit number</p></td>
   
 </tr>
 
@@ -2493,12 +2547,13 @@ <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>character(len=*),</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>iotype</strong></td><td><p>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.</p></td>
   
 </tr>
 
@@ -2508,12 +2563,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>integer,</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>v_list</strong>(:)</td><td><p>The first element passes the integrator code to the reader</p></td>
   
 </tr>
 
@@ -2523,12 +2578,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>integer,</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>iostat</strong></td><td><p>IO status code</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
   
 </tr>
 
@@ -2545,11 +2615,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_frame_cb"></span><h3>
-module subroutine <a href='../proc/io_read_frame_cb.html'>io_read_frame_cb</a>(self, iu, param, form, ierr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_param_writer"></span><h3>
+module subroutine <a href='../proc/io_param_writer.html'>io_param_writer</a>(self, unit, iotype, v_list, iostat, iomsg)
     
     
-   <a href='../interface/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_param_writer.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2573,7 +2643,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Reads a frame of output of central body data to the binary output file</p><a href="../proc/io_read_frame_cb.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Dump integration parameters to file</p><a href="../proc/io_param_writer.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2594,12 +2664,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>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Collection of parameters</p></td>
   
 </tr>
 
@@ -2609,12 +2679,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer,</td>
+  <td>intent(in)</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>unit</strong></td><td><p>File unit number</p></td>
   
 </tr>
 
@@ -2624,12 +2694,13 @@ <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>character(len=*),</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>iotype</strong></td><td><p>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.</p></td>
   
 </tr>
 
@@ -2639,12 +2710,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>integer,</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>v_list</strong>(:)</td><td><p>Not used in this procedure</p></td>
   
 </tr>
 
@@ -2654,12 +2725,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>integer,</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error cod</p></td>
+  <td><strong>iostat</strong></td><td><p>IO status code</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
   
 </tr>
 
@@ -2676,11 +2762,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_frame_system"></span><h3>
-module subroutine <a href='../proc/io_read_frame_system.html'>io_read_frame_system</a>(self, iu, param, form, ierr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_in_body"></span><h3>
+module subroutine <a href='../proc/io_read_in_body.html'>io_read_in_body</a>(self, param)
     
     
-   <a href='../interface/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2704,7 +2790,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Read a frame (header plus records for each massive body and active test particle) from a output binary file</p>
+<p>Read in either test particle or massive body data </p><a href="../proc/io_read_in_body.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2725,12 +2811,12 @@ <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_body.html'>swiftest_body</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 particle object</p></td>
   
 </tr>
 
@@ -2740,12 +2826,83 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <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>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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_in_cb"></span><h3>
+module subroutine <a href='../proc/io_read_in_cb.html'>io_read_in_cb</a>(self, param)
+    
+    
+   <a href='../interface/io_read_in_cb.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>Reads in central body data </p><a href="../proc/io_read_in_cb.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -2760,7 +2917,78 @@ <h4>Arguments</h4>
   <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></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_in_param"></span><h3>
+module subroutine <a href='../proc/io_read_in_param.html'>io_read_in_param</a>(self, param_file_name)
+    
+    
+   <a href='../interface/io_read_in_param.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>Read in parameters for the integration</p><a href="../proc/io_read_in_param.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2775,7 +3003,78 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
+  <td><strong>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_in_particle_info"></span><h3>
+module subroutine <a href='../proc/io_read_in_particle_info.html'>io_read_in_particle_info</a>(self, iu)
+    
+    
+   <a href='../interface/io_read_in_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>Reads in particle information object information from an open file unformatted file</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_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</p></td>
   
 </tr>
 
@@ -2786,11 +3085,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</p></td>
   
 </tr>
 
@@ -2807,11 +3106,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_param_in"></span><h3>
-module subroutine <a href='../proc/io_read_param_in.html'>io_read_param_in</a>(self, param_file_name)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_read_particle_info_system"></span><h3>
+module subroutine <a href='../proc/io_read_particle_info_system.html'>io_read_particle_info_system</a>(self, param)
     
     
-   <a href='../interface/io_read_param_in.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2835,7 +3134,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Read in parameters for the integration</p><a href="../proc/io_read_param_in.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Reads an old particle information file for a restartd run</p>
     
     <h4>Arguments</h4>
     
@@ -2854,6 +3153,21 @@ <h4>Arguments</h4>
   
   
   
+<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>
@@ -2861,7 +3175,247 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Current run configuration parameters</p></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-io_toupper"></span><h3>
+module subroutine <a href='../proc/io_toupper.html'>io_toupper</a>(string)
+    
+    
+   <a href='../interface/io_toupper.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>Convert string to uppercase</p><a href="../proc/io_toupper.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>string</strong></td><td><p>String to make upper case</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_discard"></span><h3>
+module subroutine <a href='../proc/io_write_discard.html'>io_write_discard</a>(self, param)
+    
+    
+   <a href='../interface/io_write_discard.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>Write out information about discarded test particle</p><a href="../proc/io_write_discard.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
+
+  
+  
+  
+  
+<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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_encounter"></span><h3>
+module subroutine <a href='../proc/io_write_encounter.html'>io_write_encounter</a>(self, pl, encbody, param)
+    
+    
+   <a href='../interface/io_write_encounter.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/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </p></td>
   
 </tr>
 
@@ -2871,12 +3425,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -2893,11 +3447,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_toupper"></span><h3>
-module subroutine <a href='../proc/io_toupper.html'>io_toupper</a>(string)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_frame_body"></span><h3>
+module subroutine <a href='../proc/io_write_frame_body.html'>io_write_frame_body</a>(self, iu, param)
     
     
-   <a href='../interface/io_toupper.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2921,7 +3475,8 @@ <h4>Arguments</h4>
 
 
 
-<p>Convert string to uppercase</p><a href="../proc/io_toupper.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>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</p><a href="../proc/io_write_frame_body.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2942,12 +3497,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>string</strong></td><td><p>String to make upper case</p></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>
 
@@ -2964,11 +3549,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_discard"></span><h3>
-module subroutine <a href='../proc/io_write_discard.html'>io_write_discard</a>(self, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_frame_cb"></span><h3>
+module subroutine <a href='../proc/io_write_frame_cb.html'>io_write_frame_cb</a>(self, iu, param)
     
     
-   <a href='../interface/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_write_frame_cb.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2992,7 +3577,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Write out information about discarded test particle</p><a href="../proc/io_write_discard.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Write a frame of output of central body data to the binary output file</p><a href="../proc/io_write_frame_cb.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -3013,12 +3598,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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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>self</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -3050,11 +3650,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_encounter"></span><h3>
-module subroutine <a href='../proc/io_write_encounter.html'>io_write_encounter</a>(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_frame_encounter"></span><h3>
+module subroutine <a href='../proc/io_write_frame_encounter.html'>io_write_frame_encounter</a>(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
     
     
-   <a href='../interface/io_write_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_write_frame_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -3078,8 +3678,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Write close encounter data to output binary files
-  There is no direct file output from this subroutine</p><a href="../proc/io_write_encounter.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Write a single frame of close encounter data to output binary files</p><a href="../proc/io_write_frame_encounter.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -3100,12 +3699,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td></td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</p></td>
   
 </tr>
 
@@ -3115,12 +3714,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>name1</strong></td><td></td>
+  <td><strong>t</strong></td><td><p>Time of encounter</p></td>
   
 </tr>
 
@@ -3135,7 +3734,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name2</strong></td><td></td>
+  <td><strong>id1</strong></td><td><p>ids of the two encountering bodies</p></td>
   
 </tr>
 
@@ -3145,12 +3744,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass1</strong></td><td></td>
+  <td><strong>id2</strong></td><td><p>ids of the two encountering bodies</p></td>
   
 </tr>
 
@@ -3165,7 +3764,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass2</strong></td><td></td>
+  <td><strong>Gmass1</strong></td><td><p>G*mass of the two encountering bodies</p></td>
   
 </tr>
 
@@ -3180,7 +3779,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>radius1</strong></td><td></td>
+  <td><strong>Gmass2</strong></td><td><p>G*mass of the two encountering bodies</p></td>
   
 </tr>
 
@@ -3195,7 +3794,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>radius2</strong></td><td></td>
+  <td><strong>radius1</strong></td><td><p>Radii of the two encountering bodies</p></td>
   
 </tr>
 
@@ -3206,11 +3805,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh1</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>radius2</strong></td><td><p>Radii of the two encountering bodies</p></td>
   
 </tr>
 
@@ -3225,7 +3824,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>xh2</strong></td><td></td>
+  <td><strong>xh1</strong></td><td><p>Heliocentric position vectors of the two encountering bodies </p></td>
   
 </tr>
 
@@ -3240,7 +3839,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>vh1</strong></td><td></td>
+  <td><strong>xh2</strong></td><td><p>Heliocentric position vectors of the two encountering bodies </p></td>
   
 </tr>
 
@@ -3255,22 +3854,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>vh2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>enc_out</strong></td><td></td>
+  <td><strong>vh1</strong></td><td><p>Heliocentric velocity vectors of the two encountering bodies  </p></td>
   
 </tr>
 
@@ -3280,12 +3864,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh2</strong></td><td><p>Heliocentric velocity vectors of the two encountering bodies  </p></td>
   
 </tr>
 
@@ -3302,11 +3886,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_frame_body"></span><h3>
-module subroutine <a href='../proc/io_write_frame_body.html'>io_write_frame_body</a>(self, iu, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_frame_system"></span><h3>
+module subroutine <a href='../proc/io_write_frame_system.html'>io_write_frame_system</a>(self, param)
     
     
-   <a href='../interface/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -3320,7 +3904,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>David A. Minton</dd>
+    <dt>Author</dt><dd>The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</dd>
     
     
     
@@ -3330,8 +3914,8 @@ <h4>Arguments</h4>
 
 
 
-<p>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</p><a href="../proc/io_write_frame_body.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>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</p><a href="../proc/io_write_frame_system.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -3352,27 +3936,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>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 system object</p></td>
   
 </tr>
 
@@ -3383,110 +3952,9 @@ <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-io_write_frame_cb"></span><h3>
-module subroutine <a href='../proc/io_write_frame_cb.html'>io_write_frame_cb</a>(self, iu, param)
-    
-    
-   <a href='../interface/io_write_frame_cb.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>Write a frame of output of central body data to the binary output file</p><a href="../proc/io_write_frame_cb.html" class="pull-right"><emph>Read more&hellip;</emph></a>
-    
-    <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_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body 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>
   
@@ -3505,11 +3973,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_frame_system"></span><h3>
-module subroutine <a href='../proc/io_write_frame_system.html'>io_write_frame_system</a>(self, iu, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-io_write_hdr_system"></span><h3>
+module subroutine <a href='../proc/io_write_hdr_system.html'>io_write_hdr_system</a>(self, iu, param)
     
     
-   <a href='../interface/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_write_hdr_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -3533,8 +4001,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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</p><a href="../proc/io_write_frame_system.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Write frame header to output binary file</p><a href="../proc/io_write_hdr_system.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -3560,7 +4027,7 @@ <h4>Arguments</h4>
   <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 nbody system object</p></td>
   
 </tr>
 
@@ -3575,7 +4042,7 @@ <h4>Arguments</h4>
   <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>iu</strong></td><td><p>Output file unit number</p></td>
   
 </tr>
 
@@ -3590,7 +4057,7 @@ <h4>Arguments</h4>
   <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/module/s_kick.html b/docs/module/s_kick.html
index c7ea69085..290e71779 100644
--- a/docs/module/s_kick.html
+++ b/docs/module/s_kick.html
@@ -134,7 +134,7 @@ <h1>s_kick
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for modules and submodules.">48 statements</a>
+    title=" 0.6% of total for modules and submodules.">99 statements</a>
      </li> 
      
      
@@ -194,6 +194,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_tp">kick_getacch_int_tp</a>
       
+      <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_all_pl">kick_getacch_int_all_pl</a>
+      
+      <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_one_pl">kick_getacch_int_one_pl</a>
+      
+      <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_one_tp">kick_getacch_int_one_tp</a>
+      
     </div>
   </div>
 </div>
@@ -247,258 +253,311 @@ <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="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)">
+<svg id="modules_kickUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_kick</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_kick~~UsesGraph_node3" class="node">
+<g id="module~~s_kick~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_kick~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_kick~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_kick~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_kick~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_kick~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_kick~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_kick~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_kick~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_kick~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_kick~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_kick~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_kick~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_kick~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_kick~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_kick~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_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="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_kick~~UsesGraph_edge16" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_kick~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_kick~~UsesGraph_edge21" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_edge20" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_kick~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_kick~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_kick~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_kick~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_kick~~UsesGraph_edge25" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_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="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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -600,6 +659,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_tp">kick_getacch_int_tp</a>
       
+      <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_all_pl">kick_getacch_int_all_pl</a>
+      
+      <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_one_pl">kick_getacch_int_one_pl</a>
+      
+      <a class="list-group-item" href="../module/s_kick.html#proc-kick_getacch_int_one_tp">kick_getacch_int_one_tp</a>
+      
     </div>
   </div>
 </div>
@@ -641,7 +706,7 @@ <h2>Module Subroutines</h2>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-kick_getacch_int_pl"></span><h3>
-pure module subroutine <a href='../proc/kick_getacch_int_pl.html'>kick_getacch_int_pl</a>(self)
+module subroutine <a href='../proc/kick_getacch_int_pl.html'>kick_getacch_int_pl</a>(self)
     
     
    <a href='../interface/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -821,6 +886,579 @@ <h4>Arguments</h4>
     
     
 
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-kick_getacch_int_all_pl"></span><h3>
+module subroutine <a href='../proc/kick_getacch_int_all_pl.html'>kick_getacch_int_all_pl</a>(npl, nplpl, k_plpl, x, Gmass, radius, acc)
+    
+    
+   <a href='../interface/kick_getacch_int_all_pl.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>Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization</p><a href="../proc/kick_getacch_int_all_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>npl</strong></td><td><p>Number of massive bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I8B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nplpl</strong></td><td><p>Number of massive body interactions to compute</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>k_plpl</strong></td><td><p>Array of interaction pair indices (flattened upper triangular matrix)</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>x</strong></td><td><p>Position vector array</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>Gmass</strong></td><td><p>Array of massive body G*mass</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>radius</strong></td><td><p>Array of massive body radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>acc</strong></td><td><p>Acceleration vector array </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-kick_getacch_int_one_pl"></span><h3>
+pure module subroutine <a href='../proc/kick_getacch_int_one_pl.html'>kick_getacch_int_one_pl</a>(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
+    
+    
+   <a href='../interface/kick_getacch_int_one_pl.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>Compute direct cross (third) term heliocentric accelerations for a single pair of massive bodies</p><a href="../proc/kick_getacch_int_one_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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></td><td>::</td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the two bodies</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>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>Gmi</strong></td><td><p>G*mass of body i</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>Gmj</strong></td><td><p>G*mass of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>axi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ayi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>azi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>axj</strong></td><td><p>Acceleration vector components of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ayj</strong></td><td><p>Acceleration vector components of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>azj</strong></td><td><p>Acceleration vector components of body j</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-kick_getacch_int_one_tp"></span><h3>
+pure module subroutine <a href='../proc/kick_getacch_int_one_tp.html'>kick_getacch_int_one_tp</a>(rji2, xr, yr, zr, Gmpl, ax, ay, az)
+    
+    
+   <a href='../interface/kick_getacch_int_one_tp.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>Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair.</p><a href="../proc/kick_getacch_int_one_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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></td><td>::</td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the test particle and massive body</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>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>Gmpl</strong></td><td><p>G*mass of massive body</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ax</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ay</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>az</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
   </div>
   </div>
 
diff --git a/docs/module/s_netcdf.html b/docs/module/s_netcdf.html
new file mode 100644
index 000000000..876c823ad
--- /dev/null
+++ b/docs/module/s_netcdf.html
@@ -0,0 +1,1435 @@
+<!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_netcdf &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_netcdf 
+    <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=" 2.4% of total for modules and submodules.">391 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+  
+     <li class="active">s_netcdf</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="#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_netcdf.html#proc-check">check</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<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_netcdf.html#proc-netcdf_close">netcdf_close</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_initialize_output">netcdf_initialize_output</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_open">netcdf_open</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_write_frame_base">netcdf_write_frame_base</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_write_particle_info_base">netcdf_write_particle_info_base</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_write_hdr_system">netcdf_write_hdr_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>
+    
+    <li>netcdf</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_netcdf~~UsesGraph Pages: 1 -->
+<svg id="modules_netcdfUsesGraph" width="641pt" height="285pt"
+ viewBox="0.00 0.00 641.00 284.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_netcdf~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 396.94)">
+<title>module~~s_netcdf~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-396.94 899,-396.94 899,4 -4,4"/>
+<!-- module~s_netcdf -->
+<g id="module~~s_netcdf~~UsesGraph_node1" class="node">
+<title>module~s_netcdf</title>
+<polygon fill="none" stroke="black" points="895,-265.94 841,-265.94 841,-241.94 895,-241.94 895,-265.94"/>
+<text text-anchor="middle" x="868" y="-251.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_netcdf</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_netcdf~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-265.94 751,-265.94 751,-241.94 805,-241.94 805,-265.94"/>
+<text text-anchor="middle" x="778" y="-251.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~s_netcdf~~UsesGraph_edge1" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.6,-253.94C832.61,-253.94 823.69,-253.94 815.18,-253.94"/>
+<polygon fill="#000000" stroke="#000000" points="815.08,-250.44 805.08,-253.94 815.08,-257.44 815.08,-250.44"/>
+</g>
+<!-- netcdf -->
+<g id="module~~s_netcdf~~UsesGraph_node3" class="node">
+<title>netcdf</title>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-223.94 751,-223.94 751,-199.94 805,-199.94 805,-223.94"/>
+<text text-anchor="middle" x="778" y="-209.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf</text>
+</g>
+<!-- module~s_netcdf&#45;&gt;netcdf -->
+<g id="module~~s_netcdf~~UsesGraph_edge2" class="edge">
+<title>module~s_netcdf&#45;&gt;netcdf</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.55,-241.79C832.79,-237.61 822.83,-232.86 813.48,-228.39"/>
+<polygon fill="#000000" stroke="#000000" points="814.93,-225.21 804.4,-224.06 811.91,-231.52 814.93,-225.21"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node4" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node4"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-200.94 252.5,-200.94 252.5,-176.94 341.5,-176.94 341.5,-200.94"/>
+<text text-anchor="middle" x="297" y="-186.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge3" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M854.55,-266.07C830.2,-288.83 773.54,-337.26 715,-354.94 627.78,-381.27 596.67,-383.03 510,-354.94 424.01,-327.06 346.96,-246.58 314.42,-208.88"/>
+<polygon fill="#000000" stroke="#000000" points="316.95,-206.45 307.81,-201.1 311.61,-210.98 316.95,-206.45"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-233.94C631.86,-229.64 623.29,-243.26 587,-245.94 496.55,-252.6 469.8,-267.24 383,-240.94 360.09,-234 337.11,-219.37 320.83,-207.39"/>
+<polygon fill="#000000" stroke="#000000" points="322.6,-204.34 312.52,-201.07 318.37,-209.91 322.6,-204.34"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_netcdf~~UsesGraph_node5" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-41.94 247,-41.94 247,-17.94 347,-17.94 347,-41.94"/>
+<text text-anchor="middle" x="297" y="-27.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_netcdf~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.69,-241.89C756.54,-239.19 753.47,-236.16 751,-232.94 697.06,-162.73 741.02,-103.81 670,-50.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-50.94C635.64,-26.84 626.25,-19.3 587,-9.94 508.5,8.8 414.86,-3.81 355.91,-15.83"/>
+<polygon fill="#000000" stroke="#000000" points="355.1,-12.43 346.03,-17.91 356.54,-19.28 355.1,-12.43"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node6" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-42.94 510,-42.94 510,-18.94 587,-18.94 587,-42.94"/>
+<text text-anchor="middle" x="548.5" y="-28.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_netcdf~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-50.94C647.68,-36.39 620.43,-31.08 597.19,-29.54"/>
+<polygon fill="#000000" stroke="#000000" points="597.32,-26.05 587.17,-29.09 597,-33.04 597.32,-26.05"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node7" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node7"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472,-160.94 385,-160.94 385,-136.94 472,-136.94 472,-160.94"/>
+<text text-anchor="middle" x="428.5" y="-146.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-233.94C630.23,-227.08 623.12,-216.93 587,-203.94 549.13,-190.31 505.96,-175.27 474.41,-164.37"/>
+<polygon fill="#000000" stroke="#000000" points="475.19,-160.94 464.6,-160.98 472.91,-167.55 475.19,-160.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.77,-248.03C729.2,-243.41 697.77,-237.24 670,-233.94"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node8" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node8"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-236.94 510.5,-236.94 510.5,-212.94 586.5,-212.94 586.5,-236.94"/>
+<text text-anchor="middle" x="548.5" y="-222.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_netcdf~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-233.94C644.69,-229.7 618.45,-227.46 596.6,-226.27"/>
+<polygon fill="#000000" stroke="#000000" points="596.74,-222.77 586.58,-225.78 596.4,-229.76 596.74,-222.77"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-80.94 390.5,-80.94 390.5,-56.94 466.5,-56.94 466.5,-80.94"/>
+<text text-anchor="middle" x="428.5" y="-66.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_netcdf~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-50.94C660.34,-45.46 543.74,-56.79 476.46,-63.85"/>
+<polygon fill="#000000" stroke="#000000" points="476.09,-60.37 466.52,-64.9 476.83,-67.33 476.09,-60.37"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_node10" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node10"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-160.94 123,-160.94 123,-136.94 211,-136.94 211,-160.94"/>
+<text text-anchor="middle" x="167" y="-146.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.97,-266.1C757.05,-279.85 737.32,-301.76 715,-312.94 648.29,-346.33 624.1,-340.63 549.5,-340.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-340.94C492.52,-344.58 484.44,-307.15 429.5,-302.94"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node11" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node11"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="711.5,-196.94 626.5,-196.94 626.5,-172.94 711.5,-172.94 711.5,-196.94"/>
+<text text-anchor="middle" x="669" y="-182.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_netcdf~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M758.36,-241.92C741.51,-231.05 716.49,-214.92 697.37,-202.59"/>
+<polygon fill="#000000" stroke="#000000" points="699.08,-199.53 688.78,-197.05 695.29,-205.41 699.08,-199.53"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_netcdf~~UsesGraph_node12" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node12"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-392.94 383,-392.94 383,-368.94 474,-368.94 474,-392.94"/>
+<text text-anchor="middle" x="428.5" y="-378.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_netcdf~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-340.94C516.7,-341.07 483.66,-353.43 460.4,-364.37"/>
+<polygon fill="#000000" stroke="#000000" points="458.82,-361.25 451.37,-368.78 461.89,-367.54 458.82,-361.25"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_netcdf~~UsesGraph_node13" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node13"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-303.94 623,-303.94 623,-279.94 715,-279.94 715,-303.94"/>
+<text text-anchor="middle" x="669" y="-289.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.82,-263.23C739.58,-267.23 726.14,-272 713.48,-276.5"/>
+<polygon fill="#000000" stroke="#000000" points="712.25,-273.22 704,-279.86 714.59,-279.82 712.25,-273.22"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-176.94C244.68,-172.9 230.09,-168.34 216.5,-164.1"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.71 206.82,-161.07 215.32,-167.39 217.41,-160.71"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.22C260.44,-63 215.05,-105.2 188.53,-129.85"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.52 180.95,-136.9 190.66,-132.65 185.89,-127.52"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.16,-42.96C499.41,-46.43 487.53,-50.25 476.28,-53.87"/>
+<polygon fill="#000000" stroke="#000000" points="475.04,-50.6 466.59,-56.99 477.18,-57.26 475.04,-50.6"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-108.94C267.37,-115.48 235.89,-125.29 211.3,-133.55"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.33 201.56,-136.87 212.16,-136.96 209.9,-130.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.99,-29.41C475.8,-29.27 424.47,-32.2 383,-47.94 339.53,-64.44 343.33,-98.58 298,-108.94"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.65,-160.94C375.58,-164.98 360.82,-169.53 347.07,-173.78"/>
+<polygon fill="#000000" stroke="#000000" points="345.8,-170.51 337.27,-176.81 347.86,-177.2 345.8,-170.51"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.87,-136.7C383.92,-121.82 338.14,-99.76 298,-108.94"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge21" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-224.37C486.99,-224.31 456.46,-224.77 429.5,-226.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-226.94C393.33,-229.68 355.92,-216.88 330.13,-205.4"/>
+<polygon fill="#000000" stroke="#000000" points="331.39,-202.13 320.85,-201.1 328.45,-208.48 331.39,-202.13"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge22" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M538.24,-212.7C517.99,-185.93 469.6,-121.96 444.77,-89.13"/>
+<polygon fill="#000000" stroke="#000000" points="447.54,-86.99 438.72,-81.12 441.96,-91.21 447.54,-86.99"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-226.94C360.98,-232.28 358.45,-331.21 298,-302.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-302.94C236.99,-275.34 195.79,-205.64 177.94,-170.25"/>
+<polygon fill="#000000" stroke="#000000" points="181.07,-168.69 173.53,-161.24 174.78,-171.76 181.07,-168.69"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge24" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.13,-81.33C391.52,-102.28 345.6,-144.83 318.77,-169.69"/>
+<polygon fill="#000000" stroke="#000000" points="316.06,-167.43 311.11,-176.79 320.82,-172.56 316.06,-167.43"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge23" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.52,-80.96C367.62,-89.76 330.92,-101.41 298,-108.94"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_netcdf~~UsesGraph_node14" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_netcdf~~UsesGraph_node14"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-160.94 0,-160.94 0,-136.94 87,-136.94 87,-160.94"/>
+<text text-anchor="middle" x="43.5" y="-146.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_netcdf~~UsesGraph_edge25" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-148.94C114.58,-148.94 105.86,-148.94 97.36,-148.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.44 87.13,-148.94 97.13,-152.44 97.13,-145.44"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge30" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.28,-185.39C558.86,-186.12 426.03,-187.55 351.66,-188.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.53,-184.86 341.57,-188.47 351.61,-191.86 351.53,-184.86"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M658.7,-172.85C638.45,-146.54 590.19,-83.81 565.16,-51.28"/>
+<polygon fill="#000000" stroke="#000000" points="567.63,-48.76 558.76,-42.97 562.08,-53.03 567.63,-48.76"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-108.94C531.45,-105.7 493.12,-120.28 464.47,-132.74"/>
+<polygon fill="#000000" stroke="#000000" points="462.9,-129.61 455.17,-136.85 465.73,-136.01 462.9,-129.61"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_netcdf~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.45,-196.94C620.72,-200.9 607.51,-205.36 595.14,-209.53"/>
+<polygon fill="#000000" stroke="#000000" points="593.79,-206.29 585.44,-212.81 596.03,-212.92 593.79,-206.29"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge29" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-108.94C438.79,-87.04 406.35,-85.34 298,-108.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M655.54,-172.71C635.35,-153.95 593.29,-119.17 549.5,-108.94"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge31" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-368.86C399.15,-364.5 390.68,-359.53 383,-354.94 344.99,-332.21 338.12,-321.7 298,-302.94"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_netcdf~~UsesGraph_edge32" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-302.94C370.12,-298.42 350.14,-327.32 298,-302.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.67,-297.38C574.65,-302.36 496.65,-308.22 429.5,-302.94"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_netcdfUsesGraph = svgPanZoom('#modules_netcdfUsesGraph', {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="#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_netcdf.html#proc-check">check</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<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_netcdf.html#proc-netcdf_close">netcdf_close</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_initialize_output">netcdf_initialize_output</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_open">netcdf_open</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_write_frame_base">netcdf_write_frame_base</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_write_particle_info_base">netcdf_write_particle_info_base</a>
+      
+      <a class="list-group-item" href="../module/s_netcdf.html#proc-netcdf_write_hdr_system">netcdf_write_hdr_system</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+    
+    <section>
+    <h2>Subroutines</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-check"></span><h3>
+subroutine <a href='../proc/check.html'>check</a>(status)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>Carlisle A. Wishard, Dana Singh, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Checks the status of all NetCDF operations to catch errors</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>integer,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    </section>    
+    <br>
+    
+    
+    
+    
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-netcdf_close"></span><h3>
+module subroutine <a href='../proc/netcdf_close.html'>netcdf_close</a>(self, param)
+    
+    
+   <a href='../interface/netcdf_close.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>Carlisle A. Wishard, Dana Singh, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Closes a NetCDF file</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-netcdf_initialize_output"></span><h3>
+module subroutine <a href='../proc/netcdf_initialize_output.html'>netcdf_initialize_output</a>(self, param)
+    
+    
+   <a href='../interface/netcdf_initialize_output.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>Carlisle A. Wishard, Dana Singh, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Initialize a NetCDF file system and defines all variables.
+ Define the variables</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-netcdf_open"></span><h3>
+module subroutine <a href='../proc/netcdf_open.html'>netcdf_open</a>(self, param)
+    
+    
+   <a href='../interface/netcdf_open.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>Carlisle A. Wishard, Dana Singh, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Opens a NetCDF file and does the variable inquiries to activate variable ids</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-netcdf_write_frame_base"></span><h3>
+module subroutine <a href='../proc/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>(self, iu, param)
+    
+    
+   <a href='../interface/netcdf_write_frame_base.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>Carlisle A. Wishard, Dana Singh, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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</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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-netcdf_write_particle_info_base"></span><h3>
+module subroutine <a href='../proc/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>(self, iu)
+    
+    
+   <a href='../interface/netcdf_write_particle_info_base.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>Carlisle A. Wishard, Dana Singh, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Write all current particle to file</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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-netcdf_write_hdr_system"></span><h3>
+module subroutine <a href='../proc/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a>(self, iu, param)
+    
+    
+   <a href='../interface/netcdf_write_hdr_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>Writes header information (variables that change with time, but not particle id). 
+ This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that 
+ previously were handled as separate output files.</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(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+      
+    
+    
+
+  </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_obl.html b/docs/module/s_obl.html
index 5b3534525..af707a387 100644
--- a/docs/module/s_obl.html
+++ b/docs/module/s_obl.html
@@ -134,7 +134,7 @@ <h1>s_obl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for modules and submodules.">91 statements</a>
+    title=" 0.6% of total for modules and submodules.">102 statements</a>
      </li> 
      
      
@@ -182,6 +182,18 @@ <h3>Contents</h3>
 
 
 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#funcs-0">Functions</a></h3></div>
+  <div id="funcs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_obl.html#proc-obl_pot_one">obl_pot_one</a>
+      
+    </div>
+  </div>
+</div>
+
+
 
 
 
@@ -196,7 +208,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_obl.html#proc-obl_acc_tp">obl_acc_tp</a>
       
-      <a class="list-group-item" href="../module/s_obl.html#proc-obl_pot">obl_pot</a>
+      <a class="list-group-item" href="../module/s_obl.html#proc-obl_pot_system">obl_pot_system</a>
       
     </div>
   </div>
@@ -251,258 +263,311 @@ <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="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)">
+<svg id="modules_oblUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_obl~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_obl</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_obl~~UsesGraph_node3" class="node">
+<g id="module~~s_obl~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_obl~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_obl~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_obl~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_obl~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_obl~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_obl~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_obl~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_obl~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_obl~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_obl~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_obl~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_obl~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_obl~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_obl~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_obl~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_obl~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_obl~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_obl~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_obl~~UsesGraph_edge16" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_obl~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_obl~~UsesGraph_edge21" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_edge20" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_obl~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_obl~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_obl~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_obl~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_obl~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_obl~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_obl~~UsesGraph_edge25" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_obl~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -592,6 +657,18 @@ <h3>Contents</h3>
 
 
 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#funcs-1">Functions</a></h3></div>
+  <div id="funcs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_obl.html#proc-obl_pot_one">obl_pot_one</a>
+      
+    </div>
+  </div>
+</div>
+
+
 
 
 
@@ -606,7 +683,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_obl.html#proc-obl_acc_tp">obl_acc_tp</a>
       
-      <a class="list-group-item" href="../module/s_obl.html#proc-obl_pot">obl_pot</a>
+      <a class="list-group-item" href="../module/s_obl.html#proc-obl_pot_system">obl_pot_system</a>
       
     </div>
   </div>
@@ -634,6 +711,181 @@ <h3>Contents</h3>
     
     
     
+     
+    <section>
+    <h2>Functions</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-obl_pot_one"></span><h3>
+elemental function <a href='../proc/obl_pot_one.html'>obl_pot_one</a>(npl, GMcb, GMpl, j2rp2, j4rp4, zh, irh) result(oblpot)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive body
+    Returned value does not include monopole term or terms higher than J4</p><a href="../proc/obl_pot_one.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>npl</strong></td><td><p>Number of massive bodies</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>GMcb</strong></td><td><p>G*mass of the central body</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>GMpl</strong></td><td><p>G*mass of the massive body</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>j2rp2</strong></td><td><p>J_2 / R**2 of the central body</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>j4rp4</strong></td><td><p>J_2 / R**4 of the central body</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>zh</strong></td><td><p>z-component of the heliocentric distance vector of the massive body</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>irh</strong></td><td><p>Inverse of the heliocentric distance magnitude of the massive body</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  <p>Gravitational potential</p>
+    
+
+  </div>
+  </div>
+
+    
+    </section>
+    <br>
     
 
     
@@ -907,11 +1159,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-obl_pot"></span><h3>
-module subroutine <a href='../proc/obl_pot.html'>obl_pot</a>(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-obl_pot_system"></span><h3>
+module subroutine <a href='../proc/obl_pot_system.html'>obl_pot_system</a>(self)
     
     
-   <a href='../interface/obl_pot.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/obl_pot_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -936,7 +1188,7 @@ <h4>Arguments</h4>
 
 
 <p>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</p><a href="../proc/obl_pot.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    Returned value does not include monopole term or terms higher than J4</p><a href="../proc/obl_pot_system.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -957,117 +1209,12 @@ <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>npl</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Mcb</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>Mpl</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>j2rp2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>j4rp4</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>xh</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>irh</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</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>oblpot</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
diff --git a/docs/module/s_operator_cross.html b/docs/module/s_operator_cross.html
index e7faefc83..09362889e 100644
--- a/docs/module/s_operator_cross.html
+++ b/docs/module/s_operator_cross.html
@@ -136,7 +136,7 @@ <h1>s_operator_cross
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.3% of total for modules and submodules.">172 statements</a>
+    title=" 1.1% of total for modules and submodules.">172 statements</a>
      </li> 
      
      
@@ -275,258 +275,311 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_operator_cross~~UsesGraph Pages: 1 -->
-<svg id="modules_operator_crossUsesGraph" width="641pt" height="185pt"
- viewBox="0.00 0.00 641.00 185.11" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_operator_cross~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 268.03)">
+<svg id="modules_operator_crossUsesGraph" width="641pt" height="223pt"
+ viewBox="0.00 0.00 641.00 222.68" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_operator_cross~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 324.3)">
 <title>module~~s_operator_cross~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-268.03 938,-268.03 938,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-324.3 941,-324.3 941,4 -4,4"/>
 <!-- module~s_operator_cross -->
 <g id="module~~s_operator_cross~~UsesGraph_node1" class="node">
 <title>module~s_operator_cross</title>
-<polygon fill="none" stroke="black" points="934,-242 838,-242 838,-218 934,-218 934,-242"/>
-<text text-anchor="middle" x="886" y="-227.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_operator_cross</text>
+<polygon fill="none" stroke="black" points="937,-244 841,-244 841,-220 937,-220 937,-244"/>
+<text text-anchor="middle" x="889" y="-229.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_operator_cross</text>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_operator_cross~~UsesGraph_node2" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_operator_cross~~UsesGraph_node2"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="712,-262 612,-262 612,-238 712,-238 712,-262"/>
-<text text-anchor="middle" x="662" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-264 615,-264 615,-240 715,-240 715,-264"/>
+<text text-anchor="middle" x="665" y="-249.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~s_operator_cross&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_operator_cross~~UsesGraph_edge2" class="edge">
 <title>module~s_operator_cross&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" d="M837.92,-234.24C804.33,-237.27 758.88,-241.36 722.73,-244.62"/>
-<polygon fill="#000000" stroke="#000000" points="721.97,-241.17 712.32,-245.56 722.59,-248.15 721.97,-241.17"/>
+<path fill="none" stroke="#000000" d="M840.92,-236.24C807.33,-239.27 761.88,-243.36 725.73,-246.62"/>
+<polygon fill="#000000" stroke="#000000" points="724.97,-243.17 715.32,-247.56 725.59,-250.15 724.97,-243.17"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_operator_cross~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_operator_cross~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="802,-222 748,-222 748,-198 802,-198 802,-222"/>
-<text text-anchor="middle" x="775" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-224 751,-224 751,-200 805,-200 805,-224"/>
+<text text-anchor="middle" x="778" y="-209.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~~s_operator_cross~~UsesGraph_edge1" class="edge">
 <title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M837.82,-221.34C829.25,-219.77 820.43,-218.15 812.23,-216.65"/>
-<polygon fill="#000000" stroke="#000000" points="812.71,-213.18 802.24,-214.81 811.44,-220.06 812.71,-213.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.82,-223.34C832.25,-221.77 823.43,-220.15 815.23,-218.65"/>
+<polygon fill="#000000" stroke="#000000" points="815.71,-215.18 805.24,-216.81 814.44,-222.06 815.71,-215.18"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_node4" class="node">
+<g id="module~~s_operator_cross~~UsesGraph_node8" class="node">
 <title>module~swiftest_globals</title>
-<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>
+<g id="a_module~~s_operator_cross~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-224 123,-224 123,-200 211,-200 211,-224"/>
+<text text-anchor="middle" x="167" y="-209.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_operator_cross~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.94,-258.17C562.07,-264.6 483.18,-269.56 418.5,-250"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.42,-264.07C566.96,-292.54 380.87,-356.79 247,-292 219.24,-278.57 195.66,-251.25 181.67,-232.3"/>
+<polygon fill="#000000" stroke="#000000" points="184.42,-230.12 175.76,-224.01 178.72,-234.18 184.42,-230.12"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_operator_cross~~UsesGraph_edge7" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.98,-221.38C738.48,-225.88 723.18,-231.4 709.02,-236.5"/>
+<polygon fill="#000000" stroke="#000000" points="707.67,-233.26 699.44,-239.95 710.04,-239.85 707.67,-233.26"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_edge4" 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"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_node4" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node4"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="579,-24 502,-24 502,0 579,0 579,-24"/>
+<text text-anchor="middle" x="540.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.03,-199.74C762.03,-168.12 727.84,-84.03 666,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664,-52C640.36,-39.75 612.23,-30.25 588.89,-23.58"/>
+<polygon fill="#000000" stroke="#000000" points="589.78,-20.2 579.21,-20.9 587.91,-26.95 589.78,-20.2"/>
+</g>
+<!-- module~fraggle_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_node5" class="node">
-<title>module~lambda_function</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="463,-222 372,-222 372,-198 463,-198 463,-222"/>
-<text text-anchor="middle" x="417.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="463.5,-184 376.5,-184 376.5,-160 463.5,-160 463.5,-184"/>
+<text text-anchor="middle" x="420" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_operator_cross~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~lambda_function</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.5,-249C499.85,-251.95 499.58,-219.3 466,-198 461.33,-195.04 456.32,-192.01 451.4,-189.11"/>
+<polygon fill="#000000" stroke="#000000" points="453.14,-186.07 442.73,-184.07 449.62,-192.12 453.14,-186.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664,-212C607.13,-211.43 598.22,-244.77 541.5,-249"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="578.5,-104 502.5,-104 502.5,-80 578.5,-80 578.5,-104"/>
+<text text-anchor="middle" x="540.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">
+<g id="module~~s_operator_cross~~UsesGraph_edge7" 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_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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664,-52C648.2,-43.82 604.75,-61.24 574.1,-75.61"/>
+<polygon fill="#000000" stroke="#000000" points="572.56,-72.47 565.05,-79.94 575.58,-78.79 572.56,-72.47"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_node8" class="node">
+<g id="module~~s_operator_cross~~UsesGraph_node7" 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>
+<g id="a_module~~s_operator_cross~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="458,-66 382,-66 382,-42 458,-42 458,-66"/>
+<text text-anchor="middle" x="420" y="-51.6" 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_operator_cross~~UsesGraph_edge9" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge8" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664,-52C631.15,-34.99 529.29,-42.22 468.37,-48.46"/>
+<polygon fill="#000000" stroke="#000000" points="467.81,-45 458.23,-49.53 468.54,-51.97 467.81,-45"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<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="M539.5,-249C505.92,-250.89 499.12,-236.85 466,-231 390.05,-217.58 370.63,-212 293.5,-212"/>
+</g>
+<!-- module~symba_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-104 247,-104 247,-80 336,-80 336,-104"/>
-<text text-anchor="middle" x="291.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<title>module~symba_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="707.5,-144 622.5,-144 622.5,-120 707.5,-120 707.5,-144"/>
+<text text-anchor="middle" x="665" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M747.86,-210C704.41,-210 614.55,-210 538.5,-210"/>
-<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"/>
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.14,-199.85C741.7,-186.56 711.95,-165.12 690.84,-149.9"/>
+<polygon fill="#000000" stroke="#000000" points="692.81,-147.01 682.65,-144 688.72,-152.69 692.81,-147.01"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~swiftest_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_node10" class="node">
-<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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="337,-165 248,-165 248,-141 337,-141 337,-165"/>
+<text text-anchor="middle" x="292.5" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664,-212C607.15,-211.43 477.65,-127.21 421,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.98,-212.21C728.49,-212.34 695.1,-212.41 666,-212"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="338,-283 247,-283 247,-259 338,-259 338,-283"/>
+<text text-anchor="middle" x="292.5" y="-268.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.5,-249C505.23,-251.55 499.94,-267.6 466,-273 425.62,-279.43 414.89,-273.51 374,-273 365.66,-272.9 356.84,-272.73 348.21,-272.54"/>
+<polygon fill="#000000" stroke="#000000" points="348.28,-269.04 338.21,-272.31 348.12,-276.04 348.28,-269.04"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466,-264 374,-264 374,-240 466,-240 466,-264"/>
+<text text-anchor="middle" x="420" y="-249.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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~whm_classes -->
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge13" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.5,-249C518.88,-250.54 496.19,-251.33 476.23,-251.72"/>
+<polygon fill="#000000" stroke="#000000" points="476.01,-248.23 466.07,-251.9 476.13,-255.23 476.01,-248.23"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M505.54,-24.04C492.77,-28.56 478.08,-33.77 464.56,-38.56"/>
+<polygon fill="#000000" stroke="#000000" points="463.22,-35.32 454.96,-41.96 465.56,-41.92 463.22,-35.32"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge14" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-74C239.94,-101.78 199.23,-159.9 180.03,-191.11"/>
+<polygon fill="#000000" stroke="#000000" points="176.92,-189.5 174.77,-199.87 182.92,-193.1 176.92,-189.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.92,-13.09C467.86,-14.94 416.63,-19.88 374,-33 335.63,-44.81 328.85,-54.96 293.5,-74"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212C268.46,-212 242.99,-212 221.2,-212"/>
+<polygon fill="#000000" stroke="#000000" points="221.15,-208.5 211.15,-212 221.15,-215.5 221.15,-208.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.1,-184C371.46,-195.78 330.78,-212 293.5,-212"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <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.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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M376.16,-165.51C366.89,-164.11 356.96,-162.61 347.33,-161.15"/>
+<polygon fill="#000000" stroke="#000000" points="347.84,-157.69 337.43,-159.65 346.79,-164.61 347.84,-157.69"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M502.33,-80.08C491.41,-76.58 479.32,-72.7 467.88,-69.03"/>
+<polygon fill="#000000" stroke="#000000" points="468.63,-65.6 458.04,-65.88 466.49,-72.26 468.63,-65.6"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M502.45,-95.81C478.98,-97.44 448.05,-98.14 421,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419,-94C363.17,-85.45 343.22,-47.21 293.5,-74"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419,-132C395.23,-134.01 369.19,-138.06 347.02,-142.07"/>
+<polygon fill="#000000" stroke="#000000" points="346.32,-138.64 337.13,-143.9 347.6,-145.52 346.32,-138.64"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M515.28,-104.03C491.84,-114.73 454.97,-129.13 421,-132"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.8,-53.57C355.68,-54.74 320.69,-59.35 293.5,-74"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge20" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.61,-66.14C381.97,-83.21 342.36,-114.45 317.02,-134.45"/>
+<polygon fill="#000000" stroke="#000000" points="314.7,-131.82 309.01,-140.76 319.03,-137.32 314.7,-131.82"/>
 </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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_operator_cross~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-224 0,-224 0,-200 87,-200 87,-224"/>
+<text text-anchor="middle" x="43.5" y="-209.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_operator_cross~~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,-212C114.58,-212 105.86,-212 97.36,-212"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-208.5 87.13,-212 97.13,-215.5 97.13,-208.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge23" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M651.35,-119.61C629.97,-98.66 586.53,-56.11 561.15,-31.25"/>
+<polygon fill="#000000" stroke="#000000" points="563.49,-28.64 553.9,-24.14 558.59,-33.64 563.49,-28.64"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-138.84C608.66,-141.12 593.17,-143.67 579,-146 543.88,-151.78 504.37,-158.28 473.65,-163.34"/>
+<polygon fill="#000000" stroke="#000000" points="472.88,-159.92 463.58,-164.99 474.02,-166.82 472.88,-159.92"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M627.25,-120C615,-116 601.2,-111.49 588.3,-107.28"/>
+<polygon fill="#000000" stroke="#000000" points="589.24,-103.91 578.65,-104.13 587.07,-110.56 589.24,-103.91"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.5,-132C484.36,-127.68 475.67,-102.37 421,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.26,-133.61C598.55,-134.13 568.32,-134.1 541.5,-132"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge24" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge28" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.5,-132C486.99,-127.89 473.48,-127.56 421,-132"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.21,-165.08C247.81,-173.87 222.69,-185.87 202.45,-195.54"/>
+<polygon fill="#000000" stroke="#000000" points="200.77,-192.47 193.26,-199.93 203.79,-198.78 200.77,-192.47"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.21,-258.92C247.81,-250.13 222.69,-238.13 202.45,-228.46"/>
+<polygon fill="#000000" stroke="#000000" points="203.79,-225.22 193.26,-224.07 200.77,-231.53 203.79,-225.22"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.1,-240C371.46,-228.22 330.78,-212 293.5,-212"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_operator_mag.html b/docs/module/s_operator_mag.html
index f24369c0a..622452b8b 100644
--- a/docs/module/s_operator_mag.html
+++ b/docs/module/s_operator_mag.html
@@ -136,7 +136,7 @@ <h1>s_operator_mag
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for modules and submodules.">56 statements</a>
+    title=" 0.3% of total for modules and submodules.">56 statements</a>
      </li> 
      
      
diff --git a/docs/module/s_orbel.html b/docs/module/s_orbel.html
index 0f0018660..f2a408df4 100644
--- a/docs/module/s_orbel.html
+++ b/docs/module/s_orbel.html
@@ -134,7 +134,7 @@ <h1>s_orbel
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 4.5% of total for modules and submodules.">597 statements</a>
+    title=" 3.8% of total for modules and submodules.">611 statements</a>
      </li> 
      
      
@@ -218,8 +218,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_schget">orbel_schget</a>
       
-      <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_xv2el">orbel_xv2el</a>
-      
     </div>
   </div>
 </div>
@@ -242,6 +240,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_xv2el_vec">orbel_xv2el_vec</a>
       
+      <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_xv2el">orbel_xv2el</a>
+      
     </div>
   </div>
 </div>
@@ -519,258 +519,311 @@ <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="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)">
+<svg id="modules_orbelUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_orbel~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_orbel</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_orbel~~UsesGraph_node3" class="node">
+<g id="module~~s_orbel~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_orbel~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_orbel~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_orbel~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_orbel~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_orbel~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_orbel~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_orbel~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_orbel~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_orbel~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_orbel~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_orbel~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_orbel~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge16" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_orbel~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge21" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_edge20" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_orbel~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_orbel~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_orbel~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge25" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_orbel~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -896,8 +949,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_schget">orbel_schget</a>
       
-      <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_xv2el">orbel_xv2el</a>
-      
     </div>
   </div>
 </div>
@@ -920,6 +971,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_xv2el_vec">orbel_xv2el_vec</a>
       
+      <a class="list-group-item" href="../module/s_orbel.html#proc-orbel_xv2el">orbel_xv2el</a>
+      
     </div>
   </div>
 </div>
@@ -1815,11 +1868,25 @@ <h4>Arguments</h4>
   </div>
 
     
+    </section>    
+    <br>
+    
+    
     
+    
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
+        
+        
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2el"></span><h3>
-pure subroutine <a href='../proc/orbel_xv2el.html'>orbel_xv2el</a>(mu, x, v, a, e, inc, capom, omega, capm)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_el2xv_vec"></span><h3>
+module subroutine <a href='../proc/orbel_el2xv_vec.html'>orbel_el2xv_vec</a>(self, cb)
+    
     
+   <a href='../interface/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1843,9 +1910,8 @@ <h4>Arguments</h4>
 
 
 
-<p>Compute osculating orbital elements from relative Cartesian position and velocity
-  All angular measures are returned in radians
-      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</p><a href="../proc/orbel_xv2el.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>A wrapper method that converts all of the orbital element vectors into cartesian position and velocity vectors for a Swiftest body object.
+ This method deallocates all of the orbital elements after it is finished.</p>
     
     <h4>Arguments</h4>
     
@@ -1866,12 +1932,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mu</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -1881,15 +1947,72 @@ <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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>x</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body objec</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_scget"></span><h3>
+pure module subroutine <a href='../proc/orbel_scget.html'>orbel_scget</a>(angle, sx, cx)
+    
+    
+   <a href='../interface/orbel_scget.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>Efficiently compute the sine and cosine of an input angle
+      Input angle must be in radians</p><a href="../proc/orbel_scget.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
+
   
   
   
@@ -1897,71 +2020,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>v</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>a</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>e</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>inc</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>capom</strong></td><td></td>
+  <td><strong>angle</strong></td><td></td>
   
 </tr>
 
@@ -1976,7 +2039,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>omega</strong></td><td></td>
+  <td><strong>sx</strong></td><td></td>
   
 </tr>
 
@@ -1991,7 +2054,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>capm</strong></td><td></td>
+  <td><strong>cx</strong></td><td></td>
   
 </tr>
 
@@ -2005,26 +2068,14 @@ <h4>Arguments</h4>
   </div>
   </div>
 
-    
-    </section>    
-    <br>
-    
-    
-    
-    
-        
-
-        
-        <section>
-        <h2>Module Subroutines</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_el2xv_vec"></span><h3>
-module subroutine <a href='../proc/orbel_el2xv_vec.html'>orbel_el2xv_vec</a>(self, cb)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2aeq"></span><h3>
+pure module subroutine <a href='../proc/orbel_xv2aeq.html'>orbel_xv2aeq</a>(mu, x, v, a, e, q)
     
     
-   <a href='../interface/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/orbel_xv2aeq.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2048,7 +2099,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</p>
+<p>Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity</p><a href="../proc/orbel_xv2aeq.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2069,12 +2120,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>mu</strong></td><td></td>
   
 </tr>
 
@@ -2084,71 +2135,29 @@ <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></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body objec</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x</strong></td><td></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_scget"></span><h3>
-pure module subroutine <a href='../proc/orbel_scget.html'>orbel_scget</a>(angle, sx, cx)
-    
-    
-   <a href='../interface/orbel_scget.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>Efficiently compute the sine and cosine of an input angle
-      Input angle must be in radians</p><a href="../proc/orbel_scget.html" class="pull-right"><emph>Read more&hellip;</emph></a>
-    
-    <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>v</strong></td><td></td>
+  
+</tr>
 
   
   
@@ -2157,11 +2166,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>angle</strong></td><td></td>
+  <td><strong>a</strong></td><td></td>
   
 </tr>
 
@@ -2176,7 +2185,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>sx</strong></td><td></td>
+  <td><strong>e</strong></td><td></td>
   
 </tr>
 
@@ -2191,7 +2200,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cx</strong></td><td></td>
+  <td><strong>q</strong></td><td></td>
   
 </tr>
 
@@ -2208,11 +2217,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2aeq"></span><h3>
-pure module subroutine <a href='../proc/orbel_xv2aeq.html'>orbel_xv2aeq</a>(mu, x, v, a, e, q)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2aqt"></span><h3>
+pure module subroutine <a href='../proc/orbel_xv2aqt.html'>orbel_xv2aqt</a>(mu, x, v, a, q, capm, tperi)
     
     
-   <a href='../interface/orbel_xv2aeq.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/orbel_xv2aqt.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2236,7 +2245,10 @@ <h4>Arguments</h4>
 
 
 
-<p>Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity</p><a href="../proc/orbel_xv2aeq.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from
+ relative Cartesian position and velocity
+      tperi &gt; 0 means nearest pericenter passage is in the future
+      tperi &lt; 0 means nearest pericenter passage is in the past</p><a href="../proc/orbel_xv2aqt.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2262,7 +2274,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mu</strong></td><td></td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
   
 </tr>
 
@@ -2277,7 +2289,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>Position vector</p></td>
   
 </tr>
 
@@ -2292,7 +2304,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>Velocity vector</p></td>
   
 </tr>
 
@@ -2307,7 +2319,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>a</strong></td><td></td>
+  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
   
 </tr>
 
@@ -2322,7 +2334,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>e</strong></td><td></td>
+  <td><strong>q</strong></td><td><p>periapsis</p></td>
   
 </tr>
 
@@ -2337,7 +2349,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>q</strong></td><td></td>
+  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tperi</strong></td><td><p>time of pericenter passage</p></td>
   
 </tr>
 
@@ -2354,11 +2381,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2aqt"></span><h3>
-pure module subroutine <a href='../proc/orbel_xv2aqt.html'>orbel_xv2aqt</a>(mu, x, v, a, q, capm, tperi)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2el_vec"></span><h3>
+module subroutine <a href='../proc/orbel_xv2el_vec.html'>orbel_xv2el_vec</a>(self, cb)
     
     
-   <a href='../interface/orbel_xv2aqt.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2382,10 +2409,95 @@ <h4>Arguments</h4>
 
 
 
-<p>Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from
- relative Cartesian position and velocity
-      tperi &gt; 0 means nearest pericenter passage is in the future
-      tperi &lt; 0 means nearest pericenter passage is in the past</p><a href="../proc/orbel_xv2aqt.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2el"></span><h3>
+pure module subroutine <a href='../proc/orbel_xv2el.html'>orbel_xv2el</a>(mu, x, v, a, e, inc, capom, omega, capm)
+    
+    
+   <a href='../interface/orbel_xv2el.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>Compute osculating orbital elements from relative Cartesian position and velocity
+  All angular measures are returned in radians
+      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</p><a href="../proc/orbel_xv2el.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -2471,7 +2583,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>q</strong></td><td><p>periapsis</p></td>
+  <td><strong>e</strong></td><td><p>eccentricity</p></td>
   
 </tr>
 
@@ -2486,7 +2598,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
+  <td><strong>inc</strong></td><td><p>inclination</p></td>
   
 </tr>
 
@@ -2501,78 +2613,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>tperi</strong></td><td><p>time of pericenter passage</p></td>
+  <td><strong>capom</strong></td><td><p>longitude of ascending node</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-orbel_xv2el_vec"></span><h3>
-module subroutine <a href='../proc/orbel_xv2el_vec.html'>orbel_xv2el_vec</a>(self, cb)
-    
-    
-   <a href='../interface/orbel_xv2el_vec.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>A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>omega</strong></td><td><p>argument of periapsis</p></td>
   
 </tr>
 
@@ -2582,12 +2638,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>real(kind=DP),</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>capm</strong></td><td><p>mean anomaly</p></td>
   
 </tr>
 
diff --git a/docs/module/s_rmvs_chk.html b/docs/module/s_rmvs_chk.html
index 41825c390..87a44b205 100644
--- a/docs/module/s_rmvs_chk.html
+++ b/docs/module/s_rmvs_chk.html
@@ -134,7 +134,7 @@ <h1>s_rmvs_chk
      <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.">61 statements</a>
+    title=" 0.4% of total for modules and submodules.">62 statements</a>
      </li> 
      
      
@@ -247,261 +247,313 @@ <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="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)">
+<svg id="modules_rmvs_chkUsesGraph" width="641pt" height="243pt"
+ viewBox="0.00 0.00 641.00 243.38" 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 344.93)">
 <title>module~~s_rmvs_chk~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 908,-264.35 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 915,-344.93 915,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,-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>
+<polygon fill="none" stroke="black" points="911,-64 841,-64 841,-40 911,-40 911,-64"/>
+<text text-anchor="middle" x="876" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_chk</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.11,-64.22C841.24,-72.75 822.55,-84.24 807.16,-93.7"/>
+<polygon fill="#000000" stroke="#000000" points="805.22,-90.77 798.54,-98.99 808.89,-96.74 805.22,-90.77"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.89,-47.79C782.81,-40.64 664.6,-26.06 598.31,-17.89"/>
+<polygon fill="#000000" stroke="#000000" points="598.48,-14.39 588.13,-16.64 597.63,-21.34 598.48,-14.39"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge10" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<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,-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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node7" class="node">
+<g id="module~~s_rmvs_chk~~UsesGraph_node6" class="node">
 <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>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_chk~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_chk~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node8" class="node">
+<g id="module~~s_rmvs_chk~~UsesGraph_node7" 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>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_chk~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
 </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="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>
+<!-- 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,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node10" class="node">
+<g id="module~~s_rmvs_chk~~UsesGraph_node9" 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>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
 </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"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge12" class="edge">
-<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>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge19" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge19" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge20" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~s_rmvs_chk~~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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge25" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge26" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge24" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_discard.html b/docs/module/s_rmvs_discard.html
index 33f011d37..88d12f944 100644
--- a/docs/module/s_rmvs_discard.html
+++ b/docs/module/s_rmvs_discard.html
@@ -134,7 +134,7 @@ <h1>s_rmvs_discard
      <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.">27 statements</a>
+    title=" 0.2% of total for modules and submodules.">32 statements</a>
      </li> 
      
      
@@ -245,261 +245,313 @@ <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="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)">
+<svg id="modules_rmvs_discardUsesGraph" width="641pt" height="239pt"
+ viewBox="0.00 0.00 641.00 238.70" 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.68 0.68) rotate(0) translate(4 344.93)">
 <title>module~~s_rmvs_discard~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 926,-264.35 926,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 933,-344.93 933,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,-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>
+<polygon fill="none" stroke="black" points="929,-64 841,-64 841,-40 929,-40 929,-64"/>
+<text text-anchor="middle" x="885" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_discard</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M862.5,-64.08C847.21,-72.67 826.46,-84.33 809.47,-93.88"/>
+<polygon fill="#000000" stroke="#000000" points="807.48,-90.98 800.47,-98.93 810.91,-97.09 807.48,-90.98"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.74,-46.81C778.17,-39.31 662.83,-25.47 597.98,-17.7"/>
+<polygon fill="#000000" stroke="#000000" points="598.37,-14.22 588.02,-16.5 597.54,-21.17 598.37,-14.22"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge10" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<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,-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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node7" class="node">
+<g id="module~~s_rmvs_discard~~UsesGraph_node6" class="node">
 <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>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_discard~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_discard~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node8" class="node">
+<g id="module~~s_rmvs_discard~~UsesGraph_node7" 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>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_discard~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
 </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="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>
+<!-- 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,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node10" class="node">
+<g id="module~~s_rmvs_discard~~UsesGraph_node9" 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>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
 </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"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge12" class="edge">
-<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>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_rmvs_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="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge19" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge19" class="edge">
+<g id="module~~s_rmvs_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="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge20" class="edge">
+<g id="module~~s_rmvs_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~s_rmvs_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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge25" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge26" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge24" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_io.html b/docs/module/s_rmvs_io.html
new file mode 100644
index 000000000..398e4a024
--- /dev/null
+++ b/docs/module/s_rmvs_io.html
@@ -0,0 +1,990 @@
+<!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_rmvs_io &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_rmvs_io 
+    <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.2% of total for modules and submodules.">33 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/rmvs_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/rmvs_io.f90.html'>rmvs_io.f90</a></li>
+    
+  
+     <li class="active">s_rmvs_io</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_rmvs_io.html#proc-rmvs_io_write_encounter">rmvs_io_write_encounter</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/rmvs_classes.html'>rmvs_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_rmvs_io~~UsesGraph Pages: 1 -->
+<svg id="modules_rmvs_ioUsesGraph" width="641pt" height="246pt"
+ viewBox="0.00 0.00 641.00 245.78" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_io~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 344.93)">
+<title>module~~s_rmvs_io~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 906,-344.93 906,4 -4,4"/>
+<!-- module~s_rmvs_io -->
+<g id="module~~s_rmvs_io~~UsesGraph_node1" class="node">
+<title>module~s_rmvs_io</title>
+<polygon fill="none" stroke="black" points="902,-64 841,-64 841,-40 902,-40 902,-64"/>
+<text text-anchor="middle" x="871.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_io</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_rmvs_io~~UsesGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge1" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M851.54,-64.22C838.45,-72.67 820.84,-84.02 806.25,-93.43"/>
+<polygon fill="#000000" stroke="#000000" points="804.13,-90.63 797.62,-98.99 807.92,-96.51 804.13,-90.63"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_io&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M840.97,-48.31C785.53,-41.38 665.41,-26.36 598.31,-17.98"/>
+<polygon fill="#000000" stroke="#000000" points="598.37,-14.46 588.01,-16.69 597.5,-21.4 598.37,-14.46"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_rmvs_io~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.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_io~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node5" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_io~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node7" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_io~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_node8" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node9" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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_io~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.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_io~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_rmvs_io~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.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_io~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge14" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge16" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_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="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_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="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_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="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_io~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_io~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.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_rmvs_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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_io~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_rmvs_ioUsesGraph = svgPanZoom('#modules_rmvs_ioUsesGraph', {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_rmvs_io.html#proc-rmvs_io_write_encounter">rmvs_io_write_encounter</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-rmvs_io_write_encounter"></span><h3>
+module subroutine <a href='../proc/rmvs_io_write_encounter.html'>rmvs_io_write_encounter</a>(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out)
+    
+    
+   <a href='../interface/rmvs_io_write_encounter.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>Write close encounter data from RMVS to output binary files
+  There is no direct file output from this subroutine</p><a href="../proc/rmvs_io_write_encounter.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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></td><td>::</td>
+  <td><strong>t</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>id1</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>id2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>radius1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>radius2</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>xh1</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>xh2</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>vh1</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>vh2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>enc_out</strong></td><td></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_rmvs_kick.html b/docs/module/s_rmvs_kick.html
index 17c31e217..9b7bef6d1 100644
--- a/docs/module/s_rmvs_kick.html
+++ b/docs/module/s_rmvs_kick.html
@@ -134,7 +134,7 @@ <h1>s_rmvs_kick
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for modules and submodules.">59 statements</a>
+    title=" 0.4% of total for modules and submodules.">61 statements</a>
      </li> 
      
      
@@ -245,261 +245,313 @@ <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="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)">
+<svg id="modules_rmvs_kickUsesGraph" width="641pt" height="243pt"
+ viewBox="0.00 0.00 641.00 243.11" 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 344.93)">
 <title>module~~s_rmvs_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 909,-264.35 909,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 916,-344.93 916,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,-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>
+<polygon fill="none" stroke="black" points="912,-64 841,-64 841,-40 912,-40 912,-64"/>
+<text text-anchor="middle" x="876.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_kick</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.51,-64.22C841.57,-72.75 822.78,-84.24 807.3,-93.7"/>
+<polygon fill="#000000" stroke="#000000" points="805.35,-90.79 798.64,-98.99 809,-96.76 805.35,-90.79"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.72,-47.72C782.28,-40.53 664.29,-26 598.17,-17.87"/>
+<polygon fill="#000000" stroke="#000000" points="598.37,-14.37 588.02,-16.62 597.52,-21.31 598.37,-14.37"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge10" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<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,-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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node7" class="node">
+<g id="module~~s_rmvs_kick~~UsesGraph_node6" class="node">
 <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>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_kick~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_kick~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node8" class="node">
+<g id="module~~s_rmvs_kick~~UsesGraph_node7" 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>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
 </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="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>
+<!-- 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,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node10" class="node">
+<g id="module~~s_rmvs_kick~~UsesGraph_node9" 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>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
 </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"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge12" class="edge">
-<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>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_rmvs_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="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge19" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge19" class="edge">
+<g id="module~~s_rmvs_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="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge20" class="edge">
+<g id="module~~s_rmvs_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~s_rmvs_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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge25" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge26" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge24" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_setup.html b/docs/module/s_rmvs_setup.html
index e02d65b72..fd6d03268 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.8% of total for modules and submodules.">113 statements</a>
+    title=" 0.7% of total for modules and submodules.">118 statements</a>
      </li> 
      
      
@@ -249,261 +249,313 @@ <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="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)">
+<svg id="modules_rmvs_setupUsesGraph" width="641pt" height="241pt"
+ viewBox="0.00 0.00 641.00 241.02" 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.69 0.69) rotate(0) translate(4 344.93)">
 <title>module~~s_rmvs_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 917,-264.35 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 924,-344.93 924,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,-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>
+<polygon fill="none" stroke="black" points="920,-64 841,-64 841,-40 920,-40 920,-64"/>
+<text text-anchor="middle" x="880.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_setup</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.68,-64.22C844.16,-72.75 824.59,-84.24 808.48,-93.7"/>
+<polygon fill="#000000" stroke="#000000" points="806.3,-90.91 799.45,-98.99 809.85,-96.95 806.3,-90.91"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.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 -->
 <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"/>
+<path fill="none" stroke="#000000" d="M840.79,-47.29C780.33,-39.94 663.63,-25.75 598.11,-17.79"/>
+<polygon fill="#000000" stroke="#000000" points="598.4,-14.3 588.05,-16.57 597.55,-21.25 598.4,-14.3"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge10" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<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,-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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node7" class="node">
+<g id="module~~s_rmvs_setup~~UsesGraph_node6" class="node">
 <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>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_setup~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_setup~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node8" class="node">
+<g id="module~~s_rmvs_setup~~UsesGraph_node7" 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>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_setup~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
 </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="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>
+<!-- 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,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node10" class="node">
+<g id="module~~s_rmvs_setup~~UsesGraph_node9" 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>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
 </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"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge12" class="edge">
-<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>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_rmvs_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="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge19" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge19" class="edge">
+<g id="module~~s_rmvs_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="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge20" class="edge">
+<g id="module~~s_rmvs_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~s_rmvs_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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge25" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge26" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge24" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_step.html b/docs/module/s_rmvs_step.html
index e98d51abc..87470bb89 100644
--- a/docs/module/s_rmvs_step.html
+++ b/docs/module/s_rmvs_step.html
@@ -134,7 +134,7 @@ <h1>s_rmvs_step
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 3.8% of total for modules and submodules.">502 statements</a>
+    title=" 3.1% of total for modules and submodules.">509 statements</a>
      </li> 
      
      
@@ -269,261 +269,313 @@ <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="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)">
+<svg id="modules_rmvs_stepUsesGraph" width="641pt" height="243pt"
+ viewBox="0.00 0.00 641.00 242.59" 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 344.93)">
 <title>module~~s_rmvs_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 911,-264.35 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 918,-344.93 918,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,-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>
+<polygon fill="none" stroke="black" points="914,-64 841,-64 841,-40 914,-40 914,-64"/>
+<text text-anchor="middle" x="877.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_step</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_rmvs_step~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M856.3,-64.22C842.22,-72.75 823.23,-84.24 807.6,-93.7"/>
+<polygon fill="#000000" stroke="#000000" points="805.59,-90.82 798.84,-98.99 809.21,-96.81 805.59,-90.82"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.99,-47.64C782.17,-40.43 664.47,-25.98 598.37,-17.87"/>
+<polygon fill="#000000" stroke="#000000" points="598.57,-14.37 588.22,-16.63 597.72,-21.32 598.57,-14.37"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge10" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_step~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<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,-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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_node7" class="node">
+<g id="module~~s_rmvs_step~~UsesGraph_node6" class="node">
 <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>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_step~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_step~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_node8" class="node">
+<g id="module~~s_rmvs_step~~UsesGraph_node7" 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>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_step~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
 </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="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>
+<!-- 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,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_node10" class="node">
+<g id="module~~s_rmvs_step~~UsesGraph_node9" 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>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
 </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"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge12" class="edge">
-<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>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_rmvs_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="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge19" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge19" class="edge">
+<g id="module~~s_rmvs_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="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge20" class="edge">
+<g id="module~~s_rmvs_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_step~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~s_rmvs_step~~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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge25" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge26" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge24" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_util.html b/docs/module/s_rmvs_util.html
index 0ca4664c1..28d26093d 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.">236 statements</a>
+    title=" 1.4% of total for modules and submodules.">233 statements</a>
      </li> 
      
      
@@ -267,261 +267,313 @@ <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="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)">
+<svg id="modules_rmvs_utilUsesGraph" width="641pt" height="244pt"
+ viewBox="0.00 0.00 641.00 244.17" 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.7 0.7) rotate(0) translate(4 344.93)">
 <title>module~~s_rmvs_util~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 905,-264.35 905,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-344.93 912,-344.93 912,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,-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>
+<polygon fill="none" stroke="black" points="908,-64 841,-64 841,-40 908,-40 908,-64"/>
+<text text-anchor="middle" x="874.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_util</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_rmvs_util~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-123 751,-123 751,-99 805,-99 805,-123"/>
+<text text-anchor="middle" x="778" y="-108.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.92,-64.22C840.27,-72.75 821.87,-84.24 806.72,-93.7"/>
+<polygon fill="#000000" stroke="#000000" points="804.86,-90.73 798.23,-98.99 808.57,-96.67 804.86,-90.73"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-24 511,-24 511,0 588,0 588,-24"/>
+<text text-anchor="middle" x="549.5" y="-9.6" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.75,-47.94C783.43,-40.85 664.72,-26.14 598.24,-17.91"/>
+<polygon fill="#000000" stroke="#000000" points="598.39,-14.4 588.04,-16.65 597.53,-21.35 598.39,-14.4"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge10" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.16,-98.75C741.28,-84.24 705.53,-60.91 670.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C642.39,-45.36 613.75,-35.71 591.22,-27.55"/>
+<polygon fill="#000000" stroke="#000000" points="592.25,-24.2 581.65,-24.04 589.84,-30.77 592.25,-24.2"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_util~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-258 247,-258 247,-234 347,-234 347,-258"/>
+<text text-anchor="middle" x="297" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C404.98,-244.27 379.6,-243.92 357.42,-244.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.09,-240.63 347.14,-244.26 357.19,-247.63 357.09,-240.63"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-218 385.5,-218 385.5,-194 472.5,-194 472.5,-218"/>
+<text text-anchor="middle" x="429" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
-<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,-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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C617.03,-227.65 604.95,-237.58 550.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C532.35,-248.5 494.24,-234.23 465.57,-222.06"/>
+<polygon fill="#000000" stroke="#000000" points="466.82,-218.78 456.25,-218.03 464.04,-225.21 466.82,-218.78"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_node7" class="node">
+<g id="module~~s_rmvs_util~~UsesGraph_node6" class="node">
 <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>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-104 511.5,-104 511.5,-80 587.5,-80 587.5,-104"/>
+<text text-anchor="middle" x="549.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_rmvs_util~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_util~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C635.93,-43.72 599.43,-60.22 575.76,-74.48"/>
+<polygon fill="#000000" stroke="#000000" points="573.65,-71.68 567.06,-79.97 577.38,-77.6 573.65,-71.68"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_node8" class="node">
+<g id="module~~s_rmvs_util~~UsesGraph_node7" 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>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-100 391,-100 391,-76 467,-76 467,-100"/>
+<text text-anchor="middle" x="429" y="-85.6" 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_rmvs_util~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-52C599.73,-34.51 517.51,-55.95 469.77,-72.44"/>
+<polygon fill="#000000" stroke="#000000" points="468.38,-69.22 460.12,-75.87 470.72,-75.82 468.38,-69.22"/>
 </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="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>
+<!-- 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,-218 123,-218 123,-194 211,-194 211,-218"/>
+<text text-anchor="middle" x="167" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C496.45,-254.04 482.52,-249.96 430,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-246C367.72,-241.46 358.28,-210.54 298,-206"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_node10" class="node">
+<g id="module~~s_rmvs_util~~UsesGraph_node9" 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>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-123 627,-123 627,-99 712,-99 712,-123"/>
+<text text-anchor="middle" x="669.5" y="-108.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">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-111C742.26,-111 732.26,-111 722.32,-111"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-107.5 712.05,-111 722.05,-114.5 722.05,-107.5"/>
 </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"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_node10" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-178 252.5,-178 252.5,-154 341.5,-154 341.5,-178"/>
+<text text-anchor="middle" x="297" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge12" class="edge">
-<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>
-<!-- iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-208C567.95,-246.39 536.58,-150.97 430,-166"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.09,-123.22C751.61,-144.75 714.03,-188.95 670.5,-208"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-299 624,-299 624,-275 715,-275 715,-299"/>
+<text text-anchor="middle" x="669.5" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M770.65,-123.2C759.8,-143.86 736.75,-186.92 715,-222 705.61,-237.15 694.24,-253.73 685.35,-266.35"/>
+<polygon fill="#000000" stroke="#000000" points="682.31,-264.58 679.37,-274.76 688.02,-268.64 682.31,-264.58"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~walltime_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-298 383,-298 383,-274 475,-274 475,-298"/>
+<text text-anchor="middle" x="429" y="-283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-246C520.15,-250.38 489.5,-260.9 466.47,-270.04"/>
+<polygon fill="#000000" stroke="#000000" points="465.04,-266.85 457.1,-273.86 467.68,-273.33 465.04,-266.85"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531,-24.12C512.87,-36.64 485.72,-55.27 475,-62 470.32,-64.94 465.3,-67.96 460.38,-70.85"/>
+<polygon fill="#000000" stroke="#000000" points="458.6,-67.84 451.71,-75.89 462.11,-73.89 458.6,-67.84"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-107C251.77,-125.54 209.61,-163.37 186.43,-186.53"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-184.18 179.32,-193.77 188.82,-189.08 183.83,-184.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.91,-23.09C477.06,-33.41 426.15,-49.75 383,-67 344.23,-82.5 336.51,-90.86 298,-107"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-234C244.68,-229.96 230.09,-225.4 216.5,-221.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-217.77 206.82,-218.13 215.32,-224.45 217.41,-217.77"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.49,-207.61C360.07,-208.17 327.14,-208.2 298,-206"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-206C271.5,-204.15 244.29,-203.9 221.27,-204.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-200.72 211.02,-204.39 221.08,-207.72 220.96,-200.72"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-194C375.88,-189.96 361.06,-185.4 347.26,-181.16"/>
+<polygon fill="#000000" stroke="#000000" points="348.01,-177.73 337.43,-178.13 345.95,-184.42 348.01,-177.73"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge20" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-90.75C500.52,-90.38 488.57,-89.98 477.23,-89.59"/>
+<polygon fill="#000000" stroke="#000000" points="477.15,-86.09 467.04,-89.25 476.91,-93.09 477.15,-86.09"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_rmvs_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="M428,-128C369.48,-127.25 351.98,-84.38 298,-107"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.19,-104.18C500.68,-114.8 463.75,-128.43 430,-128"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge19" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-166C403.08,-169.51 375.21,-169.97 351.68,-169.36"/>
+<polygon fill="#000000" stroke="#000000" points="351.66,-165.86 341.55,-169.02 351.43,-172.85 351.66,-165.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.74,-104.23C510.82,-117.92 480.58,-138.63 475,-142 455.6,-153.72 452.44,-162.84 430,-166"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge19" class="edge">
+<g id="module~~s_rmvs_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="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.82,-88.53C364.09,-90.07 327.66,-94.57 298,-107"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge20" class="edge">
+<g id="module~~s_rmvs_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.97,-100.02C386.37,-112.98 351.78,-133.73 327.16,-148.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.04,-145.7 318.26,-153.84 328.64,-151.7 325.04,-145.7"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_util~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-218 0,-218 0,-194 87,-194 87,-218"/>
+<text text-anchor="middle" x="43.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~s_rmvs_util~~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,-206C114.58,-206 105.86,-206 97.36,-206"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-202.5 87.13,-206 97.13,-209.5 97.13,-202.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.03,-98.86C633.77,-81.86 596.77,-50.82 572.92,-30.81"/>
+<polygon fill="#000000" stroke="#000000" points="575,-27.98 565.09,-24.24 570.5,-33.35 575,-27.98"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.43,-123.15C625.88,-130.03 605.93,-138.7 588,-146 549.21,-161.79 504.56,-178.62 472.64,-190.43"/>
+<polygon fill="#000000" stroke="#000000" points="471.33,-187.18 463.16,-193.92 473.76,-193.75 471.33,-187.18"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge25" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge26" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-104.3C617.54,-102.79 607.54,-101.19 597.97,-99.64"/>
+<polygon fill="#000000" stroke="#000000" points="598.22,-96.14 587.8,-98.01 597.11,-103.05 598.22,-96.14"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.81,-119C604.27,-123.18 575.91,-128.2 550.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C496.38,-139.8 482.69,-128.68 430,-128"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge24" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-132C494.31,-140.11 484.26,-158.35 430,-166"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-178C244.68,-182.04 230.09,-186.6 216.5,-190.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-187.55 206.82,-193.87 217.41,-194.23 215.32,-187.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M635.45,-299.06C569.66,-321.21 418.27,-362.88 298,-326"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-326C243.22,-309.81 201.01,-256.4 180.87,-226.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-224.59 175.33,-218.15 177.89,-228.43 183.75,-224.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-298.02C369.43,-311.85 317.42,-331.95 298,-326"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_setup.html b/docs/module/s_setup.html
index fef20ab24..4c17a486e 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.">235 statements</a>
+    title=" 1.8% of total for modules and submodules.">289 statements</a>
      </li> 
      
      
@@ -194,6 +194,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_setup.html#proc-setup_encounter">setup_encounter</a>
       
+      <a class="list-group-item" href="../module/s_setup.html#proc-setup_initialize_particle_info_system">setup_initialize_particle_info_system</a>
+      
       <a class="list-group-item" href="../module/s_setup.html#proc-setup_initialize_system">setup_initialize_system</a>
       
       <a class="list-group-item" href="../module/s_setup.html#proc-setup_body">setup_body</a>
@@ -255,258 +257,311 @@ <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="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)">
+<svg id="modules_setupUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_setup</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_setup~~UsesGraph_node3" class="node">
+<g id="module~~s_setup~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_setup~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_setup~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_setup~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_setup~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_setup~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_setup~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_setup~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_setup~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_setup~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_setup~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_setup~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_setup~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_setup~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_setup~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_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="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_setup~~UsesGraph_edge16" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_setup~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_setup~~UsesGraph_edge21" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_edge20" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_setup~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_setup~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_setup~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_setup~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_setup~~UsesGraph_edge25" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_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="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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -608,6 +663,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_setup.html#proc-setup_encounter">setup_encounter</a>
       
+      <a class="list-group-item" href="../module/s_setup.html#proc-setup_initialize_particle_info_system">setup_initialize_particle_info_system</a>
+      
       <a class="list-group-item" href="../module/s_setup.html#proc-setup_initialize_system">setup_initialize_system</a>
       
       <a class="list-group-item" href="../module/s_setup.html#proc-setup_body">setup_body</a>
@@ -721,7 +778,7 @@ <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>
@@ -822,6 +879,92 @@ <h4>Arguments</h4>
     
     
 
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-setup_initialize_particle_info_system"></span><h3>
+module subroutine <a href='../proc/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_system</a>(self, param)
+    
+    
+   <a href='../interface/setup_initialize_particle_info_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>Setup up particle information metadata from initial conditions</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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
   </div>
   </div>
 
diff --git a/docs/module/s_symba_collision.html b/docs/module/s_symba_collision.html
index 86fbc61a8..4283d32f6 100644
--- a/docs/module/s_symba_collision.html
+++ b/docs/module/s_symba_collision.html
@@ -134,7 +134,7 @@ <h1>s_symba_collision
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.8% of total for modules and submodules.">375 statements</a>
+    title=" 4.7% of total for modules and submodules.">758 statements</a>
      </li> 
      
      
@@ -189,7 +189,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_check_one">symba_collision_check_one</a>
       
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_consolidate_familes">symba_collision_consolidate_familes</a>
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_consolidate_colliders">symba_collision_consolidate_colliders</a>
       
     </div>
   </div>
@@ -197,6 +197,38 @@ <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_collision.html#proc-symba_collision_collider_message">symba_collision_collider_message</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_mergeaddsub">symba_collision_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>
+  <div id="modfuncs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_casedisruption">symba_collision_casedisruption</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_casehitandrun">symba_collision_casehitandrun</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_casemerge">symba_collision_casemerge</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_check_encounter">symba_collision_check_encounter</a>
+      
+    </div>
+  </div>
+</div>
+
 
 
 <div class="panel panel-primary">
@@ -204,16 +236,18 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_check_pltpenc">symba_collision_check_pltpenc</a>
-      
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_encounter_scrub">symba_collision_encounter_scrub</a>
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_encounter_extract_collisions">symba_collision_encounter_extract_collisions</a>
       
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_make_family_pl">symba_collision_make_family_pl</a>
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_make_colliders_pl">symba_collision_make_colliders_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_fragmentations">symba_collision_resolve_fragmentations</a>
       
       <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_mergers">symba_collision_resolve_mergers</a>
       
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_plplenc">symba_collision_resolve_plplenc</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_pltpenc">symba_collision_resolve_pltpenc</a>
+      
     </div>
   </div>
 </div>
@@ -267,260 +301,311 @@ <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="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)">
+<svg id="modules_symba_collisionUsesGraph" width="641pt" height="225pt"
+ viewBox="0.00 0.00 641.00 224.58" 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 328.15)">
 <title>module~~s_symba_collision~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 937,-239.06 937,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 944,-328.15 944,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,-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>
+<polygon fill="none" stroke="black" points="940,-204.86 841,-204.86 841,-180.86 940,-180.86 940,-204.86"/>
+<text text-anchor="middle" x="890.5" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_collision</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_collision~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.71,-184.03C832.09,-182.47 823.26,-180.87 815.07,-179.39"/>
+<polygon fill="#000000" stroke="#000000" points="815.57,-175.92 805.11,-177.58 814.32,-182.81 815.57,-175.92"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.9,-197.3C805.8,-200.5 758.47,-204.83 722.59,-208.1"/>
+<polygon fill="#000000" stroke="#000000" points="721.97,-204.64 712.33,-209.04 722.61,-211.61 721.97,-204.64"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_collision~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_collision~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_collision~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_collision~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_collision~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_collision~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_collision~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_collision~~UsesGraph_edge19" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_collision~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -617,7 +702,22 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_check_one">symba_collision_check_one</a>
       
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_consolidate_familes">symba_collision_consolidate_familes</a>
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_consolidate_colliders">symba_collision_consolidate_colliders</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+<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_collision.html#proc-symba_collision_collider_message">symba_collision_collider_message</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_mergeaddsub">symba_collision_mergeaddsub</a>
       
     </div>
   </div>
@@ -625,6 +725,23 @@ <h3>Contents</h3>
 
 
 
+<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>
+  <div id="modfuncs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_casedisruption">symba_collision_casedisruption</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_casehitandrun">symba_collision_casehitandrun</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_casemerge">symba_collision_casemerge</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_check_encounter">symba_collision_check_encounter</a>
+      
+    </div>
+  </div>
+</div>
+
 
 
 <div class="panel panel-primary">
@@ -632,16 +749,18 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_check_pltpenc">symba_collision_check_pltpenc</a>
-      
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_encounter_scrub">symba_collision_encounter_scrub</a>
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_encounter_extract_collisions">symba_collision_encounter_extract_collisions</a>
       
-      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_make_family_pl">symba_collision_make_family_pl</a>
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_make_colliders_pl">symba_collision_make_colliders_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_fragmentations">symba_collision_resolve_fragmentations</a>
       
       <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_mergers">symba_collision_resolve_mergers</a>
       
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_plplenc">symba_collision_resolve_plplenc</a>
+      
+      <a class="list-group-item" href="../module/s_symba_collision.html#proc-symba_collision_resolve_pltpenc">symba_collision_resolve_pltpenc</a>
+      
     </div>
   </div>
 </div>
@@ -887,8 +1006,8 @@ <h4>Return Value <small>logical
     
     
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_consolidate_familes"></span><h3>
-function <a href='../proc/symba_collision_consolidate_familes.html'>symba_collision_consolidate_familes</a>(pl, param, idx_parent, family, x, v, mass, radius, L_spin, Ip) result(lflag)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_consolidate_colliders"></span><h3>
+function <a href='../proc/symba_collision_consolidate_colliders.html'>symba_collision_consolidate_colliders</a>(pl, cb, param, idx_parent, colliders) result(lflag)
     
     
    
@@ -913,7 +1032,7 @@ <h4>Return Value <small>logical
 
 
 
-<p>Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, 
+<p>Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx members, 
  and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome.</p>
     
     <h4>Arguments</h4>
@@ -950,12 +1069,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_cb.html'>symba_cb</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 additions</p></td>
+  <td><strong>cb</strong></td><td><p>SyMBA central body object</p></td>
   
 </tr>
 
@@ -965,12 +1084,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>dimension(2)</td><td>::</td>
-  <td><strong>idx_parent</strong></td><td><p>Index of the two bodies considered the "parents" of the collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA additions</p></td>
   
 </tr>
 
@@ -981,86 +1100,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</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>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(2)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(2)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>idx_parent</strong></td><td><p>Index of the two bodies considered the "parents" of the collision</p></td>
   
 </tr>
 
@@ -1070,12 +1114,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td></td>
   
 </tr>
 
@@ -1092,7 +1136,7 @@ <h4>Arguments</h4>
   
      <h4>Return Value <small>logical
   </small></h4>
-  <p>Logical flag indicating whether a family was successfully created or not</p>
+  <p>Logical flag indicating whether a colliders%idx was successfully created or not</p>
     
 
   </div>
@@ -1104,10 +1148,781 @@ <h4>Return Value <small>logical
     
 
     
+    <section>
+    <h2>Subroutines</h2>
     
     
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_collider_message"></span><h3>
+subroutine <a href='../proc/symba_collision_collider_message.html'>symba_collision_collider_message</a>(pl, collidx, collider_message)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Prints a nicely formatted message about which bodies collided, including their names and ids.
+ This subroutine appends the body names and ids to an input message.</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(swiftest_pl),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</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>collidx</strong></td><td><p>Index of collisional colliders%idx members</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>collider_message</strong></td><td><p>The message to print to the screen.</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_mergeaddsub"></span><h3>
+subroutine <a href='../proc/symba_collision_mergeaddsub.html'>symba_collision_mergeaddsub</a>(system, param, colliders, 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(inout)</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>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </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>
+    
+    
+    
+    
+         
+        <section>
+        <h2>Module Functions</h2>
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_casedisruption"></span><h3>
+module function <a href='../proc/symba_collision_casedisruption.html'>symba_collision_casedisruption</a>(system, param, colliders, frag) result(status)
+    
+    
+   <a href='../interface/symba_collision_casedisruption.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Create the fragments resulting from a non-catastrophic disruption collision</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 additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Status flag assigned to this outcome</p>
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_casehitandrun"></span><h3>
+module function <a href='../proc/symba_collision_casehitandrun.html'>symba_collision_casehitandrun</a>(system, param, colliders, frag) result(status)
+    
+    
+   <a href='../interface/symba_collision_casehitandrun.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Create the fragments resulting from a non-catastrophic hit-and-run collision</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 additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Status flag assigned to this outcom</p>
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_casemerge"></span><h3>
+module function <a href='../proc/symba_collision_casemerge.html'>symba_collision_casemerge</a>(system, param, colliders, frag) result(status)
+    
+    
+   <a href='../interface/symba_collision_casemerge.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Merge massive bodies.</p><a href="../proc/symba_collision_casemerge.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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 additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Status flag assigned to this outcome</p>
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_check_encounter"></span><h3>
+module function <a href='../proc/symba_collision_check_encounter.html'>symba_collision_check_encounter</a>(self, system, param, t, dt, irec) result(lany_collision)
+    
+    
+   <a href='../interface/symba_collision_check_encounter.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>Check for merger between massive bodies and test particles in SyMBA</p><a href="../proc/symba_collision_check_encounter.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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/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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>current 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>dt</strong></td><td><p>step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if cany pair of encounters resulted in a collision </p>
     
-        
+
+  </div>
+  </div>
+
+        
+        </section>
+        <br>
+        
 
         
         <section>
@@ -1115,11 +1930,11 @@ <h2>Module Subroutines</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_check_pltpenc"></span><h3>
-module subroutine <a href='../proc/symba_collision_check_pltpenc.html'>symba_collision_check_pltpenc</a>(self, system, param, t, dt, irec)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_encounter_extract_collisions"></span><h3>
+module subroutine <a href='../proc/symba_collision_encounter_extract_collisions.html'>symba_collision_encounter_extract_collisions</a>(self, system, param)
     
     
-   <a href='../interface/symba_collision_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_encounter_extract_collisions.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1143,7 +1958,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Check for merger between massive bodies and test particles in SyMBA</p><a href="../proc/symba_collision_check_pltpenc.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Processes the pl-pl encounter list remove only those encounters that led to a collision</p>
     
     <h4>Arguments</h4>
     
@@ -1164,12 +1979,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -1199,24 +2014,67 @@ <h4>Arguments</h4>
   <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>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>current time</p></td>
-  
-</tr>
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_make_colliders_pl"></span><h3>
+module subroutine <a href='../proc/symba_collision_make_colliders_pl.html'>symba_collision_make_colliders_pl</a>(self, idx)
+    
+    
+   <a href='../interface/symba_collision_make_colliders_pl.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>Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>When a single body is involved in more than one collision in a single step, it becomes part of a colliders%idx.
+ 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.</p><a href="../proc/symba_collision_make_colliders_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
 
   
   
@@ -1224,12 +2082,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/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -1240,11 +2098,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
+  <td>dimension(2)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array holding the indices of the two bodies involved in the collision</p></td>
   
 </tr>
 
@@ -1261,11 +2119,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_encounter_scrub"></span><h3>
-module subroutine <a href='../proc/symba_collision_encounter_scrub.html'>symba_collision_encounter_scrub</a>(self, system, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_resolve_fragmentations"></span><h3>
+module subroutine <a href='../proc/symba_collision_resolve_fragmentations.html'>symba_collision_resolve_fragmentations</a>(self, system, param)
     
     
-   <a href='../interface/symba_collision_encounter_scrub.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_resolve_fragmentations.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1289,7 +2147,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Processes the pl-pl encounter list remove only those encounters that led to a collision</p>
+<p>Process list of collisions, determine the collisional regime, and then create fragments.</p>
     
     <h4>Arguments</h4>
     
@@ -1340,12 +2198,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 additions</p></td>
   
 </tr>
 
@@ -1362,11 +2220,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_make_family_pl"></span><h3>
-module subroutine <a href='../proc/symba_collision_make_family_pl.html'>symba_collision_make_family_pl</a>(self, idx)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_resolve_mergers"></span><h3>
+module subroutine <a href='../proc/symba_collision_resolve_mergers.html'>symba_collision_resolve_mergers</a>(self, system, param)
     
     
-   <a href='../interface/symba_collision_make_family_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_resolve_mergers.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1380,7 +2238,7 @@ <h4>Arguments</h4>
 
   <dl class="dl-horizontal">
     
-    <dt>Author</dt><dd>Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton</dd>
+    <dt>Author</dt><dd>David A. Minton</dd>
     
     
     
@@ -1390,9 +2248,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p><a href="../proc/symba_collision_make_family_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Process list of collisions and merge colliding bodies together.</p>
     
     <h4>Arguments</h4>
     
@@ -1413,12 +2269,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -1428,12 +2284,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in),</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>dimension(2)</td><td>::</td>
-  <td><strong>idx</strong></td><td><p>Array holding the indices of the two bodies involved in the collision</p></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 additions</p></td>
   
 </tr>
 
@@ -1450,11 +2321,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_resolve_fragmentations"></span><h3>
-module subroutine <a href='../proc/symba_collision_resolve_fragmentations.html'>symba_collision_resolve_fragmentations</a>(self, system, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_resolve_plplenc"></span><h3>
+module subroutine <a href='../proc/symba_collision_resolve_plplenc.html'>symba_collision_resolve_plplenc</a>(self, system, param, t, dt, irec)
     
     
-   <a href='../interface/symba_collision_resolve_fragmentations.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_resolve_plplenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1478,7 +2349,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Process list of collisions, determine the collisional regime, and then create fragments.</p><a href="../proc/symba_collision_resolve_fragmentations.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the collision</p>
     
     <h4>Arguments</h4>
     
@@ -1529,8 +2400,8 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <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>
@@ -1538,6 +2409,51 @@ <h4>Arguments</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation 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>dt</strong></td><td><p>Current simulation step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -1551,11 +2467,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_resolve_mergers"></span><h3>
-module subroutine <a href='../proc/symba_collision_resolve_mergers.html'>symba_collision_resolve_mergers</a>(self, system, param)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_collision_resolve_pltpenc"></span><h3>
+module subroutine <a href='../proc/symba_collision_resolve_pltpenc.html'>symba_collision_resolve_pltpenc</a>(self, system, param, t, dt, irec)
     
     
-   <a href='../interface/symba_collision_resolve_mergers.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_resolve_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1579,7 +2495,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Process list of collisions and merge colliding bodies together.</p>
+<p>Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision</p>
     
     <h4>Arguments</h4>
     
@@ -1600,7 +2516,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1630,8 +2546,8 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <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>
@@ -1639,6 +2555,51 @@ <h4>Arguments</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation tim</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>dt</strong></td><td><p>Current simulation step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
diff --git a/docs/module/s_symba_discard.html b/docs/module/s_symba_discard.html
index dbb88838b..072ad5599 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.8% of total for modules and submodules.">239 statements</a>
+    title=" 1.7% of total for modules and submodules.">274 statements</a>
      </li> 
      
      
@@ -265,260 +265,311 @@ <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="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)">
+<svg id="modules_symba_discardUsesGraph" width="641pt" height="225pt"
+ viewBox="0.00 0.00 641.00 225.30" 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 328.15)">
 <title>module~~s_symba_discard~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 934,-239.06 934,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 941,-328.15 941,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,-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>
+<polygon fill="none" stroke="black" points="937,-204.86 841,-204.86 841,-180.86 937,-180.86 937,-204.86"/>
+<text text-anchor="middle" x="889" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_discard</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_discard~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.82,-184.2C832.25,-182.63 823.43,-181.01 815.23,-179.51"/>
+<polygon fill="#000000" stroke="#000000" points="815.71,-176.04 805.24,-177.67 814.44,-182.92 815.71,-176.04"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.81,-197.2C805.9,-200.41 758.37,-204.78 722.39,-208.09"/>
+<polygon fill="#000000" stroke="#000000" points="721.73,-204.63 712.1,-209.03 722.38,-211.6 721.73,-204.63"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_discard~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_discard~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_discard~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_discard~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_discard~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_discard~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_discard~~UsesGraph_edge19" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_discard~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -1241,8 +1292,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>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.</p>
+<p>Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colliding with the central body or escaping the system</p>
     
     <h4>Arguments</h4>
     
diff --git a/docs/module/s_symba_drift.html b/docs/module/s_symba_drift.html
index 94d9c68ca..3e4567998 100644
--- a/docs/module/s_symba_drift.html
+++ b/docs/module/s_symba_drift.html
@@ -134,7 +134,7 @@ <h1>s_symba_drift
      <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.">34 statements</a>
+    title=" 0.2% of total for modules and submodules.">38 statements</a>
      </li> 
      
      
@@ -247,260 +247,311 @@ <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="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)">
+<svg id="modules_symba_driftUsesGraph" width="641pt" height="229pt"
+ viewBox="0.00 0.00 641.00 229.42" 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.69 0.69) rotate(0) translate(4 328.15)">
 <title>module~~s_symba_drift~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 917,-239.06 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 924,-328.15 924,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,-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>
+<polygon fill="none" stroke="black" points="920,-204.86 841,-204.86 841,-180.86 920,-180.86 920,-204.86"/>
+<text text-anchor="middle" x="880.5" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_drift</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_drift~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.93,-185.18C832.43,-183.49 823.46,-181.71 815.06,-180.04"/>
+<polygon fill="#000000" stroke="#000000" points="815.67,-176.59 805.18,-178.07 814.3,-183.45 815.67,-176.59"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.68,-196.57C807.34,-199.76 758.99,-204.39 722.34,-207.9"/>
+<polygon fill="#000000" stroke="#000000" points="721.96,-204.42 712.34,-208.85 722.63,-211.39 721.96,-204.42"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_drift~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_drift~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_drift~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_drift~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_drift~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_drift~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_drift~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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"/>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge12" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge13" 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,-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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_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="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_drift~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_encounter_check.html b/docs/module/s_symba_encounter_check.html
index bfdef2cd7..dca4a4851 100644
--- a/docs/module/s_symba_encounter_check.html
+++ b/docs/module/s_symba_encounter_check.html
@@ -134,7 +134,7 @@ <h1>s_symba_encounter_check
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.3% of total for modules and submodules.">170 statements</a>
+    title=" 1.3% of total for modules and submodules.">215 statements</a>
      </li> 
      
      
@@ -183,6 +183,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_encounter_check.html#proc-symba_encounter_check_all">symba_encounter_check_all</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>
@@ -191,7 +203,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check_pl">symba_encounter_check_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check_pltpenc">symba_encounter_check_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check">symba_encounter_check</a>
       
       <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check_tp">symba_encounter_check_tp</a>
       
@@ -261,260 +273,311 @@ <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="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)">
+<svg id="modules_symba_encounter_checkUsesGraph" width="641pt" height="215pt"
+ viewBox="0.00 0.00 641.00 214.62" 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 328.15)">
 <title>module~~s_symba_encounter_check~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 981,-239.06 981,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 988,-328.15 988,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,-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>
+<polygon fill="none" stroke="black" points="984,-204.86 841,-204.86 841,-180.86 984,-180.86 984,-204.86"/>
+<text text-anchor="middle" x="912.5" y="-190.46" 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_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.98,-182.21C832.04,-180.87 823.21,-179.53 815.13,-178.31"/>
+<polygon fill="#000000" stroke="#000000" points="815.42,-174.82 805.01,-176.78 814.38,-181.74 815.42,-174.82"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.82,-198.72C802.93,-201.87 757.07,-205.67 722.49,-208.54"/>
+<polygon fill="#000000" stroke="#000000" points="721.81,-205.09 712.14,-209.4 722.39,-212.06 721.81,-205.09"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_encounter_check~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <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_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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_encounter_check~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_encounter_check~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <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_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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_edge19" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -605,6 +668,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_encounter_check.html#proc-symba_encounter_check_all">symba_encounter_check_all</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>
@@ -613,7 +688,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check_pl">symba_encounter_check_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check_pltpenc">symba_encounter_check_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check">symba_encounter_check</a>
       
       <a class="list-group-item" href="../module/s_symba_encounter_check.html#proc-symba_encounter_check_tp">symba_encounter_check_tp</a>
       
@@ -659,6 +734,201 @@ <h3>Contents</h3>
     
 
     
+    <section>
+    <h2>Subroutines</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_encounter_check_all"></span><h3>
+subroutine <a href='../proc/symba_encounter_check_all.html'>symba_encounter_check_all</a>(nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Check for encounters between massive bodies. Split off from the main subroutine for performance</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>integer(kind=I8B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nplplm</strong></td><td></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>k_plpl</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>x</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>v</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>rhill</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</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>irec</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lencounter</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>loc_lvdotr</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    </section>    
+    <br>
+    
     
     
     
@@ -793,11 +1063,11 @@ <h4>Return Value <small>logical
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_encounter_check_pltpenc"></span><h3>
-module function <a href='../proc/symba_encounter_check_pltpenc.html'>symba_encounter_check_pltpenc</a>(self, system, dt, irec) result(lany_encounter)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_encounter_check"></span><h3>
+module function <a href='../proc/symba_encounter_check.html'>symba_encounter_check</a>(self, system, dt, irec) result(lany_encounter)
     
     
-   <a href='../interface/symba_encounter_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_encounter_check.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -822,7 +1092,7 @@ <h4>Return Value <small>logical
 
 
 <p>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.</p><a href="../proc/symba_encounter_check_pltpenc.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+ Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types.</p><a href="../proc/symba_encounter_check.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -843,7 +1113,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/module/s_symba_fragmentation.html b/docs/module/s_symba_fragmentation.html
deleted file mode 100644
index eb55ad5b2..000000000
--- a/docs/module/s_symba_fragmentation.html
+++ /dev/null
@@ -1,1925 +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>s_symba_fragmentation &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_symba_fragmentation 
-    <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=" 2.6% of total for modules and submodules.">345 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 class="active">s_symba_fragmentation</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="#vars-0">Variables</a></h3></div>
-  <div id="vars-0" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#variable-nfrag_disrupt">NFRAG_DISRUPT</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#variable-nfrag_supercat">NFRAG_SUPERCAT</a>
-      
-    </div>
-  </div>
-</div>
-
-
-
-
-
-
-
-
-
-
-
-
-
-<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>
-  <div id="modfuncs-0" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casedisruption">symba_fragmentation_casedisruption</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casehitandrun">symba_fragmentation_casehitandrun</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casemerge">symba_fragmentation_casemerge</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casesupercatastrophic">symba_fragmentation_casesupercatastrophic</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/symba_classes.html'>symba_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_symba_fragmentation~~UsesGraph Pages: 1 -->
-<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,-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,-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_node2" class="node">
-<title>module~swiftest</title>
-<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,-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~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~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~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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge3" class="edge">
-<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="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_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~lambda_function</title>
-<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="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_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<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~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>
-</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,-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_node8" class="node">
-<title>module~whm_classes</title>
-<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_edge8" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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~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>
-</g>
-<!-- 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~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>
-</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,-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~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,-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_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,-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~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_edge21" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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_edge22" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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>
-</div><script>var panmodules_symba_fragmentationUsesGraph = svgPanZoom('#modules_symba_fragmentationUsesGraph', {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="#vars-1">Variables</a></h3></div>
-  <div id="vars-1" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#variable-nfrag_disrupt">NFRAG_DISRUPT</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#variable-nfrag_supercat">NFRAG_SUPERCAT</a>
-      
-    </div>
-  </div>
-</div>
-
-
-
-
-
-
-
-
-
-
-
-
-
-<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>
-  <div id="modfuncs-1" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casedisruption">symba_fragmentation_casedisruption</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casehitandrun">symba_fragmentation_casehitandrun</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casemerge">symba_fragmentation_casemerge</a>
-      
-      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_casesupercatastrophic">symba_fragmentation_casesupercatastrophic</a>
-      
-    </div>
-  </div>
-</div>
-
-
-
-
-
-
-
-
-
-    </section>
-    <br class="visible-xs visible-sm hidden-md">
-
-    
-
-    
-    <section>
-    <h2>Variables</h2>
-    
-<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-nfrag_disrupt"></span>integer(kind=I4B),</td>
-  
-  <td>private,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>NFRAG_DISRUPT</strong></td><td> =</td><td>12</td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-nfrag_supercat"></span>integer(kind=I4B),</td>
-  
-  <td>private,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>NFRAG_SUPERCAT</strong></td><td> =</td><td>20</td><td></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-    </section>
-    <br>
-    
-    
-    
-    
-    
-
-    
-    
-    
-    
-    
-
-    
-    <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>
-    
-    
-    
-    
-         
-        <section>
-        <h2>Module Functions</h2>
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_fragmentation_casedisruption"></span><h3>
-module function <a href='../proc/symba_fragmentation_casedisruption.html'>symba_fragmentation_casedisruption</a>(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
-    
-    
-   <a href='../interface/symba_fragmentation_casedisruption.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
-    
-    
-    
-    
-    
-  </dl>
-
-
-
-<p>Create the fragments resulting from a non-catastrophic disruption collision</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>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>integer(kind=I4B)
-  </small></h4>
-  <p>Status flag assigned to this outcome</p>
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_fragmentation_casehitandrun"></span><h3>
-module function <a href='../proc/symba_fragmentation_casehitandrun.html'>symba_fragmentation_casehitandrun</a>(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
-    
-    
-   <a href='../interface/symba_fragmentation_casehitandrun.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
-    
-    
-    
-    
-    
-  </dl>
-
-
-
-<p>Create the fragments resulting from a non-catastrophic hit-and-run collision</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>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>integer(kind=I4B)
-  </small></h4>
-  <p>Status flag assigned to this outcome</p>
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_fragmentation_casemerge"></span><h3>
-module function <a href='../proc/symba_fragmentation_casemerge.html'>symba_fragmentation_casemerge</a>(system, param, family, x, v, mass, radius, L_spin, Ip) result(status)
-    
-    
-   <a href='../interface/symba_fragmentation_casemerge.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
-    
-    
-    
-    
-    
-  </dl>
-
-
-
-<p>Merge planets.</p><a href="../proc/symba_fragmentation_casemerge.html" class="pull-right"><emph>Read more&hellip;</emph></a>
-    
-    <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>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>integer(kind=I4B)
-  </small></h4>
-  <p>Status flag assigned to this outcome</p>
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_fragmentation_casesupercatastrophic"></span><h3>
-module function <a href='../proc/symba_fragmentation_casesupercatastrophic.html'>symba_fragmentation_casesupercatastrophic</a>(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
-    
-    
-   <a href='../interface/symba_fragmentation_casesupercatastrophic.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>Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</dd>
-    
-    
-    
-    
-    
-  </dl>
-
-
-
-<p>Create the fragments resulting from a supercatastrophic collision</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>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>integer(kind=I4B)
-  </small></h4>
-  <p>Status flag assigned to this outcome</p>
-    
-
-  </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_symba_io.html b/docs/module/s_symba_io.html
index a97d06cc6..18e1936eb 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=" 2.5% of total for modules and submodules.">336 statements</a>
+    title=" 1.4% of total for modules and submodules.">230 statements</a>
      </li> 
      
      
@@ -190,14 +190,10 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <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_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_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>
       
     </div>
@@ -253,260 +249,311 @@ <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="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)">
+<svg id="modules_symba_ioUsesGraph" width="641pt" height="232pt"
+ viewBox="0.00 0.00 641.00 231.67" 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 328.15)">
 <title>module~~s_symba_io~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 908,-239.06 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 915,-328.15 915,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,-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>
+<polygon fill="none" stroke="black" points="911,-204.86 841,-204.86 841,-180.86 911,-180.86 911,-204.86"/>
+<text text-anchor="middle" x="876" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_io</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_io~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.88,-185.75C832.53,-184.01 823.56,-182.14 815.12,-180.38"/>
+<polygon fill="#000000" stroke="#000000" points="815.66,-176.92 805.16,-178.31 814.24,-183.77 815.66,-176.92"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.77,-196.21C808.45,-199.37 759.53,-204.15 722.41,-207.78"/>
+<polygon fill="#000000" stroke="#000000" points="721.88,-204.32 712.27,-208.77 722.57,-211.28 721.88,-204.32"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_io~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_io~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_io~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_io~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_io~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_io~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_io~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_io~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_io~~UsesGraph_edge19" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_io~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -604,14 +651,10 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <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_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_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>
       
     </div>
@@ -653,138 +696,6 @@ <h3>Contents</h3>
         <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>(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>
-    
-   
-</h3></div>
-  <div class="panel-body">
-       
-    
-
-
-
-
-
-  <dl class="dl-horizontal">
-    
-    <dt>Author</dt><dd>David A. Minton</dd>
-    
-    
-    
-    
-    
-  </dl>
-
-
-
-<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>
-    
-      
-      
-<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 extensions</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</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>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_io_param_reader"></span><h3>
 module subroutine <a href='../proc/symba_io_param_reader.html'>symba_io_param_reader</a>(self, unit, iotype, v_list, iostat, iomsg)
@@ -1074,92 +985,6 @@ <h4>Arguments</h4>
     
     
 
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <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_particle.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>Reads an old particle information file for a restartd 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_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 file</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>
 
@@ -1213,7 +1038,7 @@ <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>
diff --git a/docs/module/s_symba_kick.html b/docs/module/s_symba_kick.html
index abe0b62f6..df0f42263 100644
--- a/docs/module/s_symba_kick.html
+++ b/docs/module/s_symba_kick.html
@@ -134,7 +134,7 @@ <h1>s_symba_kick
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.2% of total for modules and submodules.">160 statements</a>
+    title=" 1.2% of total for modules and submodules.">193 statements</a>
      </li> 
      
      
@@ -190,11 +190,13 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_getacch_int_pl">symba_kick_getacch_int_pl</a>
+      
       <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_getacch_pl">symba_kick_getacch_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_getacch_tp">symba_kick_getacch_tp</a>
       
-      <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_pltpenc">symba_kick_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_encounter">symba_kick_encounter</a>
       
     </div>
   </div>
@@ -249,260 +251,311 @@ <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="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)">
+<svg id="modules_symba_kickUsesGraph" width="641pt" height="229pt"
+ viewBox="0.00 0.00 641.00 229.42" 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.69 0.69) rotate(0) translate(4 328.15)">
 <title>module~~s_symba_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 917,-239.06 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 924,-328.15 924,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,-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>
+<polygon fill="none" stroke="black" points="920,-204.86 841,-204.86 841,-180.86 920,-180.86 920,-204.86"/>
+<text text-anchor="middle" x="880.5" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_kick</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_kick~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.93,-185.18C832.43,-183.49 823.46,-181.71 815.06,-180.04"/>
+<polygon fill="#000000" stroke="#000000" points="815.67,-176.59 805.18,-178.07 814.3,-183.45 815.67,-176.59"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.68,-196.57C807.34,-199.76 758.99,-204.39 722.34,-207.9"/>
+<polygon fill="#000000" stroke="#000000" points="721.96,-204.42 712.34,-208.85 722.63,-211.39 721.96,-204.42"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_kick~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_kick~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_kick~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_kick~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_kick~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_kick~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_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="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_kick~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -600,11 +653,13 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_getacch_int_pl">symba_kick_getacch_int_pl</a>
+      
       <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_getacch_pl">symba_kick_getacch_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_getacch_tp">symba_kick_getacch_tp</a>
       
-      <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_pltpenc">symba_kick_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_kick.html#proc-symba_kick_encounter">symba_kick_encounter</a>
       
     </div>
   </div>
@@ -645,6 +700,77 @@ <h3>Contents</h3>
         <h2>Module Subroutines</h2>
         
         
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_kick_getacch_int_pl"></span><h3>
+module subroutine <a href='../proc/symba_kick_getacch_int_pl.html'>symba_kick_getacch_int_pl</a>(self)
+    
+    
+   <a href='../interface/symba_kick_getacch_int_pl.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>Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY</p><a href="../proc/symba_kick_getacch_int_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_kick_getacch_pl"></span><h3>
 module subroutine <a href='../proc/symba_kick_getacch_pl.html'>symba_kick_getacch_pl</a>(self, system, param, t, lbeg)
@@ -908,11 +1034,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_kick_pltpenc"></span><h3>
-module subroutine <a href='../proc/symba_kick_pltpenc.html'>symba_kick_pltpenc</a>(self, system, dt, irec, sgn)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_kick_encounter"></span><h3>
+module subroutine <a href='../proc/symba_kick_encounter.html'>symba_kick_encounter</a>(self, system, dt, irec, sgn)
     
     
-   <a href='../interface/symba_kick_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_kick_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -937,7 +1063,7 @@ <h4>Arguments</h4>
 
 
 <p>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</p><a href="../proc/symba_kick_pltpenc.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+ Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types</p><a href="../proc/symba_kick_encounter.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -958,7 +1084,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/module/s_symba_setup.html b/docs/module/s_symba_setup.html
index ba48649d5..b8209be98 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=" 1.2% of total for modules and submodules.">164 statements</a>
+    title=" 0.7% of total for modules and submodules.">108 statements</a>
      </li> 
      
      
@@ -190,15 +190,13 @@ <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>
       
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_pl">symba_setup_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_pltpenc">symba_setup_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_encounter">symba_setup_encounter</a>
       
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_tp">symba_setup_tp</a>
       
@@ -255,260 +253,311 @@ <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="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)">
+<svg id="modules_symba_setupUsesGraph" width="641pt" height="227pt"
+ viewBox="0.00 0.00 641.00 227.22" 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.68 0.68) rotate(0) translate(4 328.15)">
 <title>module~~s_symba_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 926,-239.06 926,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 933,-328.15 933,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,-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>
+<polygon fill="none" stroke="black" points="929,-204.86 841,-204.86 841,-180.86 929,-180.86 929,-204.86"/>
+<text text-anchor="middle" x="885" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_setup</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_setup~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.99,-184.67C832.47,-183.04 823.6,-181.35 815.33,-179.78"/>
+<polygon fill="#000000" stroke="#000000" points="815.72,-176.29 805.24,-177.86 814.41,-183.17 815.72,-176.29"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.8,-196.91C806.64,-200.11 758.83,-204.58 722.57,-207.98"/>
+<polygon fill="#000000" stroke="#000000" points="721.82,-204.54 712.19,-208.95 722.47,-211.51 721.82,-204.54"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_setup~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_setup~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_setup~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_setup~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_setup~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_setup~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_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="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_setup~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -606,15 +655,13 @@ <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>
       
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_pl">symba_setup_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_pltpenc">symba_setup_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_encounter">symba_setup_encounter</a>
       
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_tp">symba_setup_tp</a>
       
@@ -657,92 +704,6 @@ <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)
@@ -1033,11 +994,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_setup_pltpenc"></span><h3>
-module subroutine <a href='../proc/symba_setup_pltpenc.html'>symba_setup_pltpenc</a>(self, n)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_setup_encounter"></span><h3>
+module subroutine <a href='../proc/symba_setup_encounter.html'>symba_setup_encounter</a>(self, n)
     
     
-   <a href='../interface/symba_setup_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_setup_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1082,7 +1043,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/module/s_symba_step.html b/docs/module/s_symba_step.html
index 8ec03b216..afc84676c 100644
--- a/docs/module/s_symba_step.html
+++ b/docs/module/s_symba_step.html
@@ -134,7 +134,7 @@ <h1>s_symba_step
      <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.">197 statements</a>
+    title=" 1.2% of total for modules and submodules.">199 statements</a>
      </li> 
      
      
@@ -253,260 +253,311 @@ <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="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)">
+<svg id="modules_symba_stepUsesGraph" width="641pt" height="229pt"
+ viewBox="0.00 0.00 641.00 228.68" 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 328.15)">
 <title>module~~s_symba_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 920,-239.06 920,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 927,-328.15 927,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,-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>
+<polygon fill="none" stroke="black" points="923,-204.86 841,-204.86 841,-180.86 923,-180.86 923,-204.86"/>
+<text text-anchor="middle" x="882" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_step</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_step~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.98,-185.01C832.41,-183.33 823.4,-181.57 815,-179.92"/>
+<polygon fill="#000000" stroke="#000000" points="815.59,-176.47 805.11,-177.98 814.25,-183.34 815.59,-176.47"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.91,-196.67C807.22,-199.87 758.84,-204.47 722.23,-207.94"/>
+<polygon fill="#000000" stroke="#000000" points="721.86,-204.46 712.24,-208.89 722.53,-211.43 721.86,-204.46"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_step~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_step~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_step~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_step~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_step~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_step~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_step~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_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="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_step~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -1055,10 +1106,10 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>t</strong></td><td></td>
   
 </tr>
@@ -1070,10 +1121,10 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>ireci</strong></td><td><p>input recursion level</p></td>
   
 </tr>
@@ -1092,7 +1143,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_step_reset_system"></span><h3>
-module subroutine <a href='../proc/symba_step_reset_system.html'>symba_step_reset_system</a>(self)
+module subroutine <a href='../proc/symba_step_reset_system.html'>symba_step_reset_system</a>(self, param)
     
     
    <a href='../interface/symba_step_reset_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -1149,6 +1200,21 @@ <h4>Arguments</h4>
   
 </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>
+
 </tbody>
 </table>
 
diff --git a/docs/module/s_symba_util.html b/docs/module/s_symba_util.html
index 48725b8a6..03a8d06ba 100644
--- a/docs/module/s_symba_util.html
+++ b/docs/module/s_symba_util.html
@@ -134,7 +134,7 @@ <h1>s_symba_util
      <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.">582 statements</a>
+    title=" 4.2% of total for modules and submodules.">673 statements</a>
      </li> 
      
      
@@ -190,17 +190,17 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_arr_info">symba_util_append_arr_info</a>
-      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_arr_kin">symba_util_append_arr_kin</a>
       
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_encounter">symba_util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_pl">symba_util_append_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_merger">symba_util_append_merger</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_tp">symba_util_append_tp</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_fill_arr_info">symba_util_fill_arr_info</a>
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_copy_encounter">symba_util_copy_encounter</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_fill_arr_kin">symba_util_fill_arr_kin</a>
       
@@ -208,11 +208,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_fill_tp">symba_util_fill_tp</a>
       
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_index_eucl_plpl">symba_util_index_eucl_plpl</a>
+      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_peri_pl">symba_util_peri_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_rearray_pl">symba_util_rearray_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_resize_arr_info">symba_util_resize_arr_info</a>
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_reset_kinship">symba_util_reset_kinship</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_resize_arr_kin">symba_util_resize_arr_kin</a>
       
@@ -226,17 +228,17 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_tp">symba_util_sort_tp</a>
       
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_rearrange_arr_kin">symba_util_sort_rearrange_arr_kin</a>
+      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_rearrange_pl">symba_util_sort_rearrange_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_rearrange_tp">symba_util_sort_rearrange_tp</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_arr_info">symba_util_spill_arr_info</a>
-      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_arr_kin">symba_util_spill_arr_kin</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_pl">symba_util_spill_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_pltpenc">symba_util_spill_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_encounter">symba_util_spill_encounter</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_tp">symba_util_spill_tp</a>
       
@@ -293,260 +295,311 @@ <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="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)">
+<svg id="modules_symba_utilUsesGraph" width="641pt" height="230pt"
+ viewBox="0.00 0.00 641.00 230.42" 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.69 0.69) rotate(0) translate(4 328.15)">
 <title>module~~s_symba_util~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 913,-239.06 913,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-328.15 920,-328.15 920,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,-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>
+<polygon fill="none" stroke="black" points="916,-204.86 841,-204.86 841,-180.86 916,-180.86 916,-204.86"/>
+<text text-anchor="middle" x="878.5" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_util</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_symba_util~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-184.86 751,-184.86 751,-160.86 805,-160.86 805,-184.86"/>
+<text text-anchor="middle" x="778" y="-170.46" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.82,-185.41C832.42,-183.71 823.5,-181.89 815.12,-180.19"/>
+<polygon fill="#000000" stroke="#000000" points="815.75,-176.75 805.25,-178.19 814.35,-183.61 815.75,-176.75"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-224.86 627,-224.86 627,-200.86 712,-200.86 712,-224.86"/>
+<text text-anchor="middle" x="669.5" y="-210.46" 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,-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"/>
+<path fill="none" stroke="#000000" d="M840.97,-196.39C808.08,-199.57 759.38,-204.27 722.45,-207.84"/>
+<polygon fill="#000000" stroke="#000000" points="721.98,-204.37 712.36,-208.81 722.65,-211.34 721.98,-204.37"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge5" class="edge">
+<g id="module~~s_symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-182.64C739.37,-186.99 725.44,-192.22 712.45,-197.1"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-193.95 702.76,-200.74 713.35,-200.5 710.89,-193.95"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="module~~s_symba_util~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-64.86 247,-64.86 247,-40.86 347,-40.86 347,-64.86"/>
+<text text-anchor="middle" x="297" y="-50.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="module~~s_symba_util~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C405.26,-47.4 379.62,-46.36 357.17,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="356.94,-43.57 347.1,-47.49 357.24,-50.56 356.94,-43.57"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-224.86 511,-224.86 511,-200.86 588,-200.86 588,-224.86"/>
+<text text-anchor="middle" x="549.5" y="-210.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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,-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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C636.86,-170.24 602.71,-183.77 579.33,-195.8"/>
+<polygon fill="#000000" stroke="#000000" points="577.47,-192.82 570.32,-200.64 580.78,-198.99 577.47,-192.82"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-302.86 385.5,-302.86 385.5,-278.86 472.5,-278.86 472.5,-302.86"/>
+<text text-anchor="middle" x="429" y="-288.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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="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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M767.88,-185.09C756.87,-198.99 737.07,-221.35 715,-233.86 641.76,-275.38 542.93,-286.99 482.97,-290.04"/>
+<polygon fill="#000000" stroke="#000000" points="482.8,-286.55 472.97,-290.49 483.12,-293.54 482.8,-286.55"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-144.86 511.5,-144.86 511.5,-120.86 587.5,-120.86 587.5,-144.86"/>
+<text text-anchor="middle" x="549.5" y="-130.46" 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_symba_util~~UsesGraph_edge7" class="edge">
+<g id="module~~s_symba_util~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C638.89,-170.41 607.07,-159.07 583.95,-149.09"/>
+<polygon fill="#000000" stroke="#000000" points="585.17,-145.8 574.61,-144.92 582.32,-152.19 585.17,-145.8"/>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_symba_util~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-184.86 391,-184.86 391,-160.86 467,-160.86 467,-184.86"/>
+<text text-anchor="middle" x="429" y="-170.46" 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_edge8" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C505.41,-82.36 464.75,-125.48 444.11,-152.49"/>
+<polygon fill="#000000" stroke="#000000" points="441.25,-150.48 438.14,-160.61 446.89,-154.63 441.25,-150.48"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.86 123,-144.86 123,-120.86 211,-120.86 211,-144.86"/>
+<text text-anchor="middle" x="167" y="-130.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C623.73,-169.61 626.06,-135.65 588,-111.86 572.16,-101.95 568.65,-97.28 550.5,-92.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C494.49,-79.71 484.05,-65.83 430,-52.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.7,-173.92C729.12,-174.53 697.79,-174.84 670.5,-172.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-52.86C369.22,-38.76 355.49,5.83 298,-12.86"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_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>
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-204.86 252.5,-204.86 252.5,-180.86 341.5,-180.86 341.5,-204.86"/>
+<text text-anchor="middle" x="297" y="-190.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-172.86C598.23,-167.04 580.28,-178.76 511,-191.86 474.46,-198.77 467.17,-211.61 430,-212.86"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~lambda_function -->
+<g id="module~~s_symba_util~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-84.86 624,-84.86 624,-60.86 715,-60.86 715,-84.86"/>
+<text text-anchor="middle" x="669.5" y="-70.46" 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_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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-160.6C745.64,-143.41 712.19,-112 690.67,-91.8"/>
+<polygon fill="#000000" stroke="#000000" points="693.02,-89.2 683.33,-84.91 688.23,-94.31 693.02,-89.2"/>
 </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"/>
+<!-- module~walltime_classes -->
+<g id="module~~s_symba_util~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-104.86 383,-104.86 383,-80.86 475,-80.86 475,-104.86"/>
+<text text-anchor="middle" x="429" y="-90.46" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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 -->
+<!-- module~swiftest&#45;&gt;module~walltime_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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-92.86C528.24,-87.93 505.46,-86.9 485.32,-87.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.9,-83.97 475.05,-87.88 485.19,-90.96 484.9,-83.97"/>
 </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,-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>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-212.86C617.64,-212.86 607.75,-212.86 598.27,-212.86"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-209.36 588.18,-212.86 598.18,-216.36 598.18,-209.36"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C521.17,-257.18 491.54,-266.68 468.74,-275.11"/>
+<polygon fill="#000000" stroke="#000000" points="467.21,-271.94 459.09,-278.75 469.68,-278.49 467.21,-271.94"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <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,-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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-200.61C639.23,-196.41 631.18,-191.57 624,-186.86 606.9,-175.63 588.34,-161.98 574.15,-151.22"/>
+<polygon fill="#000000" stroke="#000000" points="576,-148.22 565.93,-144.93 571.75,-153.79 576,-148.22"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.78,-224.87C636.99,-236.58 611.67,-254.39 588,-266.86 473.58,-327.14 414.74,-346.52 298,-290.86"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.51,-224.95C618.02,-234.76 582.76,-247.76 550.5,-252.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-252.86C493.6,-261.53 485.55,-210.99 430,-212.86"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_operators&#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"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.56,-65.01C255.1,-78.42 220.38,-100.12 195.99,-115.36"/>
+<polygon fill="#000000" stroke="#000000" points="193.83,-112.59 187.2,-120.86 197.54,-118.52 193.83,-112.59"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- 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="M512.95,-200.86C501.22,-196.9 488.01,-192.44 475.64,-188.26"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-184.87 465.94,-184.99 474.29,-191.5 476.53,-184.87"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_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="M296,-290.86C235.89,-262.48 194.96,-190.37 177.51,-154.21"/>
+<polygon fill="#000000" stroke="#000000" points="180.62,-152.61 173.22,-145.03 174.28,-155.57 180.62,-152.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.06,-224.93C447.77,-247.98 308.03,-295.59 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge21" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.31,-299.77C358.92,-303.18 325.04,-303.63 298,-290.86"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge22" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.06,-278.84C389.64,-261.94 348.62,-231.01 322.36,-211.22"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-208.2 314.07,-204.97 319.95,-213.79 324.16,-208.2"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-144.86C501.22,-148.82 488.01,-153.28 475.64,-157.45"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-154.21 465.94,-160.73 476.53,-160.85 474.29,-154.21"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge23" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.15,-132.86C462.2,-132.86 373.67,-132.86 298,-132.86"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge20" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-212.86C402.75,-213.71 375.05,-210.09 351.73,-205.71"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-202.23 341.68,-203.72 350.81,-209.09 352.17,-202.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.75,-144.97C523.61,-149.16 516.87,-154.02 511,-158.86 477.6,-186.36 473.24,-211.4 430,-212.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge21" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge26" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-160.86C378.67,-149.08 336.49,-132.86 298,-132.86"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge27" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-178.59C378.55,-180.47 364.75,-182.59 351.59,-184.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-181.16 341.69,-186.14 352.11,-188.08 351.04,-181.16"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_symba_util~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.86 0,-144.86 0,-120.86 87,-120.86 87,-144.86"/>
+<text text-anchor="middle" x="43.5" y="-130.46" 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_edge28" 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.86C114.58,-132.86 105.86,-132.86 97.36,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-129.36 87.13,-132.86 97.13,-136.36 97.13,-129.36"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge23" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.1,-180.72C250.84,-171.69 224.35,-159.27 203.17,-149.35"/>
+<polygon fill="#000000" stroke="#000000" points="204.4,-146.06 193.86,-144.98 201.43,-152.4 204.4,-146.06"/>
 </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"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-12.86C273.67,-19.71 265.76,-17.94 247,-31.86 217.59,-53.68 193.36,-89.16 179.79,-111.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.67,-110.15 174.65,-120.55 182.71,-113.68 176.67,-110.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M642.8,-60.83C581.77,-33.94 423.84,25.73 298,-12.86"/>
 </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"/>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.23,-104.86C378.67,-116.64 336.49,-132.86 298,-132.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-132.86C271.53,-132.86 244.42,-132.86 221.48,-132.86"/>
+<polygon fill="#000000" stroke="#000000" points="221.25,-129.36 211.25,-132.86 221.25,-136.36 221.25,-129.36"/>
 </g>
 </g>
 </svg>
@@ -644,17 +697,17 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_arr_info">symba_util_append_arr_info</a>
-      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_arr_kin">symba_util_append_arr_kin</a>
       
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_encounter">symba_util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_pl">symba_util_append_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_merger">symba_util_append_merger</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_append_tp">symba_util_append_tp</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_fill_arr_info">symba_util_fill_arr_info</a>
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_copy_encounter">symba_util_copy_encounter</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_fill_arr_kin">symba_util_fill_arr_kin</a>
       
@@ -662,11 +715,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_fill_tp">symba_util_fill_tp</a>
       
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_index_eucl_plpl">symba_util_index_eucl_plpl</a>
+      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_peri_pl">symba_util_peri_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_rearray_pl">symba_util_rearray_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_resize_arr_info">symba_util_resize_arr_info</a>
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_reset_kinship">symba_util_reset_kinship</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_resize_arr_kin">symba_util_resize_arr_kin</a>
       
@@ -680,17 +735,17 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_tp">symba_util_sort_tp</a>
       
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_rearrange_arr_kin">symba_util_sort_rearrange_arr_kin</a>
+      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_rearrange_pl">symba_util_sort_rearrange_pl</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_sort_rearrange_tp">symba_util_sort_rearrange_tp</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_arr_info">symba_util_spill_arr_info</a>
-      
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_arr_kin">symba_util_spill_arr_kin</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_pl">symba_util_spill_pl</a>
       
-      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_pltpenc">symba_util_spill_pltpenc</a>
+      <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_encounter">symba_util_spill_encounter</a>
       
       <a class="list-group-item" href="../module/s_symba_util.html#proc-symba_util_spill_tp">symba_util_spill_tp</a>
       
@@ -734,8 +789,8 @@ <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, nold, nsrc, lsource_mask)
+  <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, nold, nsrc, lsource_mask)
     
     
    
@@ -760,7 +815,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>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.</p>
+<p>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.</p>
     
     <h4>Arguments</h4>
     
@@ -781,7 +836,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -796,7 +851,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -863,9 +918,11 @@ <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, nold, nsrc, lsource_mask)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_append_encounter"></span><h3>
+module subroutine <a href='../proc/symba_util_append_encounter.html'>symba_util_append_encounter</a>(self, source, lsource_mask)
+    
     
+   <a href='../interface/symba_util_append_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -889,7 +946,8 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p>
+<p>Append components from one encounter list (pl-pl or pl-tp) body object to another. 
+ This method will automatically resize the destination body if it is too small</p>
     
     <h4>Arguments</h4>
     
@@ -910,42 +968,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</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_kinship.html'>symba_kinship</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><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</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>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
   
 </tr>
 
@@ -955,12 +983,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</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>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -1300,9 +1328,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_fill_arr_info"></span><h3>
-subroutine <a href='../proc/symba_util_fill_arr_info.html'>symba_util_fill_arr_info</a>(keeps, inserts, lfill_list)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_copy_encounter"></span><h3>
+module subroutine <a href='../proc/symba_util_copy_encounter.html'>symba_util_copy_encounter</a>(self, source)
+    
     
+   <a href='../interface/symba_util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1326,8 +1356,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Performs a fill operation on a single array of particle origin information types
- This is the inverse of a spill operation</p>
+<p>Copies elements from the source encounter list into self.</p>
     
     <h4>Arguments</h4>
     
@@ -1348,27 +1377,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(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </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><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
   
 </tr>
 
@@ -1378,12 +1392,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
   
 </tr>
 
@@ -1698,6 +1712,94 @@ <h4>Arguments</h4>
     
     
 
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_index_eucl_plpl"></span><h3>
+module subroutine <a href='../proc/symba_util_index_eucl_plpl.html'>symba_util_index_eucl_plpl</a>(self, param)
+    
+    
+   <a href='../interface/symba_util_index_eucl_plpl.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>Jacob R. Elliott and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the
+ number of interactions that excludes semi-interacting bodies with each other (Gmass &lt; GMTINY).
+ This method will also sort the bodies in descending order by Mass</p><a href="../proc/symba_util_index_eucl_plpl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body 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>
+
+      
+    
+    
+
   </div>
   </div>
 
@@ -1885,7 +1987,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1906,10 +2008,12 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_resize_arr_info"></span><h3>
-subroutine <a href='../proc/symba_util_resize_arr_info.html'>symba_util_resize_arr_info</a>(arr, nnew)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_reset_kinship"></span><h3>
+module subroutine <a href='../proc/symba_util_reset_kinship.html'>symba_util_reset_kinship</a>(self, idx)
     
     
+   <a href='../interface/symba_util_reset_kinship.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
    
 </h3></div>
   <div class="panel-body">
@@ -1932,7 +2036,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+<p>Resets the kinship status of bodies.</p>
     
     <h4>Arguments</h4>
     
@@ -1953,12 +2057,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(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -1969,11 +2073,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Index array of bodies to reset</p></td>
   
 </tr>
 
@@ -2536,12 +2640,10 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_sort_rearrange_pl"></span><h3>
-module subroutine <a href='../proc/symba_util_sort_rearrange_pl.html'>symba_util_sort_rearrange_pl</a>(self, ind)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_sort_rearrange_arr_kin"></span><h3>
+subroutine <a href='../proc/symba_util_sort_rearrange_arr_kin.html'>symba_util_sort_rearrange_arr_kin</a>(arr, ind, n)
     
     
-   <a href='../interface/symba_util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
    
 </h3></div>
   <div class="panel-body">
@@ -2564,8 +2666,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p>
+<p>Rearrange a single array of particle kinship type in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -2586,12 +2687,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -2606,7 +2707,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -2623,11 +2739,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_sort_rearrange_tp"></span><h3>
-module subroutine <a href='../proc/symba_util_sort_rearrange_tp.html'>symba_util_sort_rearrange_tp</a>(self, ind)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_sort_rearrange_pl"></span><h3>
+module subroutine <a href='../proc/symba_util_sort_rearrange_pl.html'>symba_util_sort_rearrange_pl</a>(self, ind)
     
     
-   <a href='../interface/symba_util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -2651,7 +2767,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Rearrange SyMBA test particle object in-place from an index list.
+<p>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.</p>
     
     <h4>Arguments</h4>
@@ -2673,12 +2789,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA test particle object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -2710,10 +2826,12 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_spill_arr_info"></span><h3>
-subroutine <a href='../proc/symba_util_spill_arr_info.html'>symba_util_spill_arr_info</a>(keeps, discards, lspill_list, ldestructive)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_sort_rearrange_tp"></span><h3>
+module subroutine <a href='../proc/symba_util_sort_rearrange_tp.html'>symba_util_sort_rearrange_tp</a>(self, ind)
     
     
+   <a href='../interface/symba_util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
    
 </h3></div>
   <div class="panel-body">
@@ -2736,8 +2854,8 @@ <h4>Arguments</h4>
 
 
 
-<p>Performs a spill operation on a single array of particle origin information types
- This is the inverse of a spill operation</p>
+<p>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.</p>
     
     <h4>Arguments</h4>
     
@@ -2758,27 +2876,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(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA test particle object</p></td>
   
 </tr>
 
@@ -2788,27 +2891,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
@@ -3058,11 +3146,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_spill_pltpenc"></span><h3>
-module subroutine <a href='../proc/symba_util_spill_pltpenc.html'>symba_util_spill_pltpenc</a>(self, discards, lspill_list, ldestructive)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_spill_encounter"></span><h3>
+module subroutine <a href='../proc/symba_util_spill_encounter.html'>symba_util_spill_encounter</a>(self, discards, lspill_list, ldestructive)
     
     
-   <a href='../interface/symba_util_spill_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -3108,7 +3196,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/module/s_tides_kick_getacch.html b/docs/module/s_tides_kick_getacch.html
index 6e5c39261..01190ac80 100644
--- a/docs/module/s_tides_kick_getacch.html
+++ b/docs/module/s_tides_kick_getacch.html
@@ -134,7 +134,7 @@ <h1>s_tides_kick_getacch
      <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.">38 statements</a>
+    title=" 0.2% of total for modules and submodules.">38 statements</a>
      </li> 
      
      
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_tides_kick_getacchUsesGraph" width="641pt" height="260pt"
+ viewBox="0.00 0.00 641.00 260.29" 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 387.05)">
 <title>module~~s_tides_kick_getacch~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 952,-265.94 952,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 959,-387.05 959,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="955,-318.05 841,-318.05 841,-294.05 955,-294.05 955,-318.05"/>
+<text text-anchor="middle" x="898" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_tides_kick_getacch</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_node3" class="node">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M878.56,-294.01C859.19,-281.38 828.52,-261.36 806.33,-246.88"/>
+<polygon fill="#000000" stroke="#000000" points="807.98,-243.78 797.7,-241.25 804.16,-249.64 807.98,-243.78"/>
 </g>
-<!-- module~swiftest_globals -->
-<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_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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M876.56,-318.08C837.78,-339.73 750.24,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_tides_kick_getacch~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_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_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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <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_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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_tides_kick_getacch~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge16" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_kick_getacch~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge21" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge20" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_tides_kick_getacch~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge25" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_tides_kick_getacch~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_tides_step_spin.html b/docs/module/s_tides_step_spin.html
index 7e78e78b4..ceb70f13e 100644
--- a/docs/module/s_tides_step_spin.html
+++ b/docs/module/s_tides_step_spin.html
@@ -134,7 +134,7 @@ <h1>s_tides_step_spin
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for modules and submodules.">92 statements</a>
+    title=" 0.6% of total for modules and submodules.">92 statements</a>
      </li> 
      
      
@@ -297,258 +297,311 @@ <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="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)">
+<svg id="modules_tides_step_spinUsesGraph" width="641pt" height="265pt"
+ viewBox="0.00 0.00 641.00 264.69" 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 387.05)">
 <title>module~~s_tides_step_spin~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 936,-265.94 936,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 943,-387.05 943,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="939,-318.05 841,-318.05 841,-294.05 939,-294.05 939,-318.05"/>
+<text text-anchor="middle" x="890" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_tides_step_spin</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_tides_step_spin~~UsesGraph_node3" class="node">
+<g id="module~~s_tides_step_spin~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M871.81,-294.01C853.84,-281.43 825.41,-261.54 804.76,-247.08"/>
+<polygon fill="#000000" stroke="#000000" points="806.63,-244.11 796.43,-241.25 802.62,-249.85 806.63,-244.11"/>
 </g>
-<!-- module~swiftest_globals -->
-<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_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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M869.34,-318.08C832.02,-339.73 747.72,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_tides_step_spin~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_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_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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <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_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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_tides_step_spin~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge16" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_step_spin~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge21" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge20" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_tides_step_spin~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge25" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_tides_step_spin~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_user_kick_getacch.html b/docs/module/s_user_kick_getacch.html
index 93472376e..3a4d19c8d 100644
--- a/docs/module/s_user_kick_getacch.html
+++ b/docs/module/s_user_kick_getacch.html
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_user_kick_getacchUsesGraph" width="641pt" height="261pt"
+ viewBox="0.00 0.00 641.00 260.83" 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 387.05)">
 <title>module~~s_user_kick_getacch~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 950,-265.94 950,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 957,-387.05 957,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="953,-318.05 841,-318.05 841,-294.05 953,-294.05 953,-318.05"/>
+<text text-anchor="middle" x="897" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_user_kick_getacch</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_node3" class="node">
+<g id="module~~s_user_kick_getacch~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M877.72,-294.01C858.51,-281.38 828.1,-261.36 806.1,-246.88"/>
+<polygon fill="#000000" stroke="#000000" points="807.82,-243.82 797.54,-241.25 803.97,-249.67 807.82,-243.82"/>
 </g>
-<!-- module~swiftest_globals -->
-<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_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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M875.66,-318.08C837.06,-339.73 749.93,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_user_kick_getacch~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_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_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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <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_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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_user_kick_getacch~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge16" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_user_kick_getacch~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge21" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge20" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_user_kick_getacch~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge25" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_user_kick_getacch~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_append.html b/docs/module/s_util_append.html
index f29cf4975..bfe6dfc6f 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.2% of total for modules and submodules.">161 statements</a>
+    title=" 1.3% of total for modules and submodules.">215 statements</a>
      </li> 
      
      
@@ -198,10 +198,14 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_arr_i4b">util_append_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_arr_info">util_append_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_arr_logical">util_append_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_body">util_append_body</a>
       
+      <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_encounter">util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_pl">util_append_pl</a>
       
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_tp">util_append_tp</a>
@@ -259,258 +263,311 @@ <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="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)">
+<svg id="modules_util_appendUsesGraph" width="641pt" height="270pt"
+ viewBox="0.00 0.00 641.00 270.11" 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.69 0.69) rotate(0) translate(4 387.05)">
 <title>module~~s_util_append~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 917,-265.94 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 924,-387.05 924,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="920,-318.05 841,-318.05 841,-294.05 920,-294.05 920,-318.05"/>
+<text text-anchor="middle" x="880.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_append</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_append~~UsesGraph_node3" class="node">
+<g id="module~~s_util_append~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_append~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.8,-294.01C847.52,-281.54 821.87,-261.89 803.04,-247.46"/>
+<polygon fill="#000000" stroke="#000000" points="804.99,-244.55 794.92,-241.25 800.73,-250.11 804.99,-244.55"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_append~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M860.76,-318.08C825.18,-339.73 744.74,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_append~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_append~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_append~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_append~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_append~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_append~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_append~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_append~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_append~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_append~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_append~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_append~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_append~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_append~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_append~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -616,10 +673,14 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_arr_i4b">util_append_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_arr_info">util_append_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_arr_logical">util_append_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_body">util_append_body</a>
       
+      <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_encounter">util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_pl">util_append_pl</a>
       
       <a class="list-group-item" href="../module/s_util_append.html#proc-util_append_tp">util_append_tp</a>
@@ -1156,6 +1217,135 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_info"></span><h3>
+subroutine <a href='../proc/util_append_arr_info.html'>util_append_arr_info</a>(arr, source, nold, nsrc, lsource_mask)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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.</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_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/swiftest_particle_info.html'>swiftest_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></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>
@@ -1387,6 +1577,108 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_encounter"></span><h3>
+module subroutine <a href='../proc/util_append_encounter.html'>util_append_encounter</a>(self, source, lsource_mask)
+    
+    
+   <a href='../interface/util_append_encounter.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>Append components from one Swiftest body object to another. 
+ This method will automatically resize the destination body if it is too small</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_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
diff --git a/docs/module/s_util_coord.html b/docs/module/s_util_coord.html
index eb6602dd7..314d13f32 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.">74 statements</a>
+    title=" 1.0% of total for modules and submodules.">169 statements</a>
      </li> 
      
      
@@ -198,6 +198,18 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_b2h_tp">util_coord_b2h_tp</a>
       
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vb2vh_pl">util_coord_vb2vh_pl</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vb2vh_tp">util_coord_vb2vh_tp</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vh2vb_pl">util_coord_vh2vb_pl</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vh2vb_tp">util_coord_vh2vb_tp</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_xh2xb_pl">util_coord_xh2xb_pl</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_xh2xb_tp">util_coord_xh2xb_tp</a>
+      
     </div>
   </div>
 </div>
@@ -251,258 +263,311 @@ <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="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)">
+<svg id="modules_util_coordUsesGraph" width="641pt" height="273pt"
+ viewBox="0.00 0.00 641.00 272.75" 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 387.05)">
 <title>module~~s_util_coord~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 908,-265.94 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 915,-387.05 915,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="911,-318.05 841,-318.05 841,-294.05 911,-294.05 911,-318.05"/>
+<text text-anchor="middle" x="876" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_coord</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_coord~~UsesGraph_node3" class="node">
+<g id="module~~s_util_coord~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_coord~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M860,-294.01C844.59,-281.66 820.39,-262.24 802.45,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="804.2,-244.77 794.21,-241.25 799.82,-250.23 804.2,-244.77"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_coord~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M856.7,-318.08C821.95,-339.73 743.34,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_coord~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_coord~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_coord~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_coord~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_coord~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_coord~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_coord~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_coord~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_coord~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_coord~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_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="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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -608,6 +673,18 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_b2h_tp">util_coord_b2h_tp</a>
       
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vb2vh_pl">util_coord_vb2vh_pl</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vb2vh_tp">util_coord_vb2vh_tp</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vh2vb_pl">util_coord_vh2vb_pl</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_vh2vb_tp">util_coord_vh2vb_tp</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_xh2xb_pl">util_coord_xh2xb_pl</a>
+      
+      <a class="list-group-item" href="../module/s_util_coord.html#proc-util_coord_xh2xb_tp">util_coord_xh2xb_tp</a>
+      
     </div>
   </div>
 </div>
@@ -762,7 +839,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p><a href="../proc/util_coord_h2b_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p><a href="../proc/util_coord_h2b_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -968,6 +1045,522 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_coord_vb2vh_pl"></span><h3>
+module subroutine <a href='../proc/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a>(self, cb)
+    
+    
+   <a href='../interface/util_coord_vb2vh_pl.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>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p><a href="../proc/util_coord_vb2vh_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_coord_vb2vh_tp"></span><h3>
+module subroutine <a href='../proc/util_coord_vb2vh_tp.html'>util_coord_vb2vh_tp</a>(self, vbcb)
+    
+    
+   <a href='../interface/util_coord_vb2vh_tp.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>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p><a href="../proc/util_coord_vb2vh_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_coord_vh2vb_pl"></span><h3>
+module subroutine <a href='../proc/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a>(self, cb)
+    
+    
+   <a href='../interface/util_coord_vh2vb_pl.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>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p><a href="../proc/util_coord_vh2vb_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_coord_vh2vb_tp"></span><h3>
+module subroutine <a href='../proc/util_coord_vh2vb_tp.html'>util_coord_vh2vb_tp</a>(self, vbcb)
+    
+    
+   <a href='../interface/util_coord_vh2vb_tp.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>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p><a href="../proc/util_coord_vh2vb_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_coord_xh2xb_pl"></span><h3>
+module subroutine <a href='../proc/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a>(self, cb)
+    
+    
+   <a href='../interface/util_coord_xh2xb_pl.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>Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only)</p><a href="../proc/util_coord_xh2xb_pl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_coord_xh2xb_tp"></span><h3>
+module subroutine <a href='../proc/util_coord_xh2xb_tp.html'>util_coord_xh2xb_tp</a>(self, cb)
+    
+    
+   <a href='../interface/util_coord_xh2xb_tp.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>Convert test particles from heliocentric to barycentric coordinates (position only)</p><a href="../proc/util_coord_xh2xb_tp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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>
diff --git a/docs/module/s_util_copy.html b/docs/module/s_util_copy.html
index 9407d19d4..dfbaac14f 100644
--- a/docs/module/s_util_copy.html
+++ b/docs/module/s_util_copy.html
@@ -134,7 +134,7 @@ <h1>s_util_copy
      <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.">21 statements</a>
+    title=" 0.4% of total for modules and submodules.">60 statements</a>
      </li> 
      
      
@@ -192,6 +192,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_copy.html#proc-util_copy_encounter">util_copy_encounter</a>
       
+      <a class="list-group-item" href="../module/s_util_copy.html#proc-util_copy_particle_info">util_copy_particle_info</a>
+      
+      <a class="list-group-item" href="../module/s_util_copy.html#proc-util_copy_particle_info_arr">util_copy_particle_info_arr</a>
+      
     </div>
   </div>
 </div>
@@ -245,258 +249,311 @@ <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="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)">
+<svg id="modules_util_copyUsesGraph" width="641pt" height="274pt"
+ viewBox="0.00 0.00 641.00 273.95" 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.7 0.7) rotate(0) translate(4 387.05)">
 <title>module~~s_util_copy~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 904,-265.94 904,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 911,-387.05 911,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="907,-318.05 841,-318.05 841,-294.05 907,-294.05 907,-318.05"/>
+<text text-anchor="middle" x="874" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_copy</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_copy~~UsesGraph_node3" class="node">
+<g id="module~~s_util_copy~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_copy~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.31,-294.01C843.23,-281.66 819.53,-262.24 801.96,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.85,-244.88 793.89,-241.25 799.41,-250.29 803.85,-244.88"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_copy~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M854.9,-318.08C820.51,-339.73 742.72,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_copy~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_copy~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_copy~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_copy~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_copy~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_copy~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_copy~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_copy~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_copy~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_copy~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_copy~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_copy~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -596,6 +653,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_copy.html#proc-util_copy_encounter">util_copy_encounter</a>
       
+      <a class="list-group-item" href="../module/s_util_copy.html#proc-util_copy_particle_info">util_copy_particle_info</a>
+      
+      <a class="list-group-item" href="../module/s_util_copy.html#proc-util_copy_particle_info_arr">util_copy_particle_info_arr</a>
+      
     </div>
   </div>
 </div>
@@ -716,6 +777,193 @@ <h4>Arguments</h4>
     
     
 
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_copy_particle_info"></span><h3>
+module subroutine <a href='../proc/util_copy_particle_info.html'>util_copy_particle_info</a>(self, source)
+    
+    
+   <a href='../interface/util_copy_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>Copies one set of information object components into another, component-by-component</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_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_copy_particle_info_arr"></span><h3>
+module subroutine <a href='../proc/util_copy_particle_info_arr.html'>util_copy_particle_info_arr</a>(source, dest, idx)
+    
+    
+   <a href='../interface/util_copy_particle_info_arr.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>Copies contents from an array of one particle information objects to another.</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_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>dest</strong></td><td><p>Swiftest body object with particle metadata information object</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>idx</strong></td><td><p>Optional array of indices to draw the source object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
   </div>
   </div>
 
diff --git a/docs/module/s_util_exit.html b/docs/module/s_util_exit.html
index f0fc4d395..b5a01d189 100644
--- a/docs/module/s_util_exit.html
+++ b/docs/module/s_util_exit.html
@@ -134,7 +134,7 @@ <h1>s_util_exit
      <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.">23 statements</a>
+    title=" 0.1% of total for modules and submodules.">23 statements</a>
      </li> 
      
      
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_util_exitUsesGraph" width="641pt" height="276pt"
+ viewBox="0.00 0.00 641.00 275.75" 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 387.05)">
 <title>module~~s_util_exit~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 898,-265.94 898,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 905,-387.05 905,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="901,-318.05 841,-318.05 841,-294.05 901,-294.05 901,-318.05"/>
+<text text-anchor="middle" x="871" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_exit</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_exit~~UsesGraph_node3" class="node">
+<g id="module~~s_util_exit~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_exit~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.78,-294.01C841.18,-281.66 818.23,-262.24 801.23,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.31,-245.03 793.42,-241.25 798.79,-250.38 803.31,-245.03"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_exit~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M852.19,-318.08C818.36,-339.73 741.78,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_exit~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_exit~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_exit~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_exit~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_exit~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_exit~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_exit~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_exit~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_exit~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_exit~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_exit~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_exit~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_fill.html b/docs/module/s_util_fill.html
index c6a263c97..da44088cd 100644
--- a/docs/module/s_util_fill.html
+++ b/docs/module/s_util_fill.html
@@ -134,7 +134,7 @@ <h1>s_util_fill
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.0% of total for modules and submodules.">134 statements</a>
+    title=" 0.9% of total for modules and submodules.">150 statements</a>
      </li> 
      
      
@@ -198,6 +198,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_arr_i4b">util_fill_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_arr_info">util_fill_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_arr_logical">util_fill_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_body">util_fill_body</a>
@@ -259,258 +261,311 @@ <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="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)">
+<svg id="modules_util_fillUsesGraph" width="641pt" height="278pt"
+ viewBox="0.00 0.00 641.00 277.59" 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.71 0.71) rotate(0) translate(4 387.05)">
 <title>module~~s_util_fill~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 899,-387.05 899,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="895,-318.05 841,-318.05 841,-294.05 895,-294.05 895,-318.05"/>
+<text text-anchor="middle" x="868" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_fill</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_fill~~UsesGraph_node3" class="node">
+<g id="module~~s_util_fill~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_fill~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M853.25,-294.01C839.13,-281.66 816.94,-262.24 800.5,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="802.77,-245.2 792.94,-241.25 798.16,-250.47 802.77,-245.2"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_fill~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M849.49,-318.08C816.21,-339.73 740.85,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_fill~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_fill~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_fill~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_fill~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_fill~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_fill~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_fill~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_fill~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_fill~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_fill~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_fill~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_fill~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -616,6 +671,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_arr_i4b">util_fill_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_arr_info">util_fill_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_arr_logical">util_fill_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_fill.html#proc-util_fill_body">util_fill_body</a>
@@ -1040,6 +1097,106 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_fill_arr_info"></span><h3>
+subroutine <a href='../proc/util_fill_arr_info.html'>util_fill_arr_info</a>(keeps, inserts, lfill_list)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Performs a fill operation on a single array of particle origin information types
+ This is the inverse of a spill operation</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
diff --git a/docs/module/s_util_get_energy_momentum.html b/docs/module/s_util_get_energy_momentum.html
index 4277d8a5f..f23e513c3 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.8% of total for modules and submodules.">101 statements</a>
+    title=" 0.6% of total for modules and submodules.">100 statements</a>
      </li> 
      
      
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_util_get_energy_momentumUsesGraph" width="641pt" height="249pt"
+ viewBox="0.00 0.00 641.00 249.17" 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 387.05)">
 <title>module~~s_util_get_energy_momentum~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 995,-265.94 995,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 1002,-387.05 1002,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="998,-318.05 841,-318.05 841,-294.05 998,-294.05 998,-318.05"/>
+<text text-anchor="middle" x="919.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_get_energy_momentum</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_node3" class="node">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.7,-294.01C873.4,-281.15 836.25,-260.64 809.92,-246.11"/>
+<polygon fill="#000000" stroke="#000000" points="811.55,-243.02 801.1,-241.25 808.17,-249.14 811.55,-243.02"/>
 </g>
-<!-- module~swiftest_globals -->
-<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_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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M895.98,-318.08C853.28,-339.73 757.06,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- 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~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_get_energy_momentum~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_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_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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <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_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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_get_energy_momentum~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_get_energy_momentum~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_get_energy_momentum~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_get_energy_momentum~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_eucl.html b/docs/module/s_util_index.html
similarity index 50%
rename from docs/module/s_eucl.html
rename to docs/module/s_util_index.html
index 87589a9af..2d4e6ce96 100644
--- a/docs/module/s_eucl.html
+++ b/docs/module/s_util_index.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>s_eucl &ndash; swiftest</title>
+    <title>s_util_index &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>s_eucl 
+    <h1>s_util_index 
     <small>Submodule</small>
     
     </h1>
@@ -134,22 +134,22 @@ <h1>s_eucl
      <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.">24 statements</a>
+    title=" 0.3% of total for modules and submodules.">48 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/eucl.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_index.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/eucl.f90.html'>eucl.f90</a></li>
+     <li><a href='../sourcefile/util_index.f90.html'>util_index.f90</a></li>
     
   
-     <li class="active">s_eucl</li>
+     <li class="active">s_util_index</li>
   </ol>
 </div>
 </div>
@@ -190,7 +190,9 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_eucl.html#proc-eucl_dist_index_plpl">eucl_dist_index_plpl</a>
+      <a class="list-group-item" href="../module/s_util_index.html#proc-util_index_eucl_plpl">util_index_eucl_plpl</a>
+      
+      <a class="list-group-item" href="../module/s_util_index.html#proc-util_index_eucl_pltp">util_index_eucl_pltp</a>
       
     </div>
   </div>
@@ -244,263 +246,316 @@ <h3 class="panel-title">Uses</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: module~~s_eucl~~UsesGraph Pages: 1 -->
-<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,-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,-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="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.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"/>
+<!-- Title: module~~s_util_index~~UsesGraph Pages: 1 -->
+<svg id="modules_util_indexUsesGraph" width="641pt" height="273pt"
+ viewBox="0.00 0.00 641.00 273.05" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_index~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 387.05)">
+<title>module~~s_util_index~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 914,-387.05 914,4 -4,4"/>
+<!-- module~s_util_index -->
+<g id="module~~s_util_index~~UsesGraph_node1" class="node">
+<title>module~s_util_index</title>
+<polygon fill="none" stroke="black" points="910,-318.05 841,-318.05 841,-294.05 910,-294.05 910,-318.05"/>
+<text text-anchor="middle" x="875.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_index</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_eucl~~UsesGraph_node3" class="node">
+<g id="module~~s_util_index~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_index~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~s_util_index~~UsesGraph_edge1" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.58,-294.01C844.25,-281.66 820.17,-262.24 802.33,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="804.11,-244.8 794.13,-241.25 799.72,-250.25 804.11,-244.8"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_index~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_index~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge2" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M856.25,-318.08C821.59,-339.73 743.18,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge10" class="edge">
+<g id="module~~s_util_index~~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_eucl~~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_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="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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_eucl~~UsesGraph_node6" class="node">
+<g id="module~~s_util_index~~UsesGraph_node4" 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="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>
+<g id="a_module~~s_util_index~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" 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_edge7" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge3" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_eucl~~UsesGraph_node8" class="node">
+<g id="module~~s_util_index~~UsesGraph_node5" class="node">
 <title>module~rmvs_classes</title>
-<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>
+<g id="a_module~~s_util_index~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" 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_edge11" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
+</g>
+<!-- module~fraggle_classes -->
+<g id="module~~s_util_index~~UsesGraph_node6" class="node">
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_index~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_util_index~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_index~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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_index~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_eucl~~UsesGraph_node9" class="node">
+<g id="module~~s_util_index~~UsesGraph_node8" 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>
+<g id="a_module~~s_util_index~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" 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">
+<g id="module~~s_util_index~~UsesGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_node9" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_util_index~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_eucl~~UsesGraph_node10" class="node">
+<g id="module~~s_util_index~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_util_index~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_index~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </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,-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>
+<!-- module~lambda_function -->
+<g id="module~~s_util_index~~UsesGraph_node11" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_index~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_index~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_index~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_index~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </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&#45;&gt;module~walltime_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_index~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge15" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge17" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge20" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_eucl~~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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_index~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_index~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_index~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge24" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_index~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_index~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_eucl~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_index~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
-</div><script>var panmodules_euclUsesGraph = svgPanZoom('#modules_euclUsesGraph', {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><script>var panmodules_util_indexUsesGraph = svgPanZoom('#modules_util_indexUsesGraph', {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"
@@ -594,7 +649,9 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_eucl.html#proc-eucl_dist_index_plpl">eucl_dist_index_plpl</a>
+      <a class="list-group-item" href="../module/s_util_index.html#proc-util_index_eucl_plpl">util_index_eucl_plpl</a>
+      
+      <a class="list-group-item" href="../module/s_util_index.html#proc-util_index_eucl_pltp">util_index_eucl_pltp</a>
       
     </div>
   </div>
@@ -636,11 +693,11 @@ <h2>Module Subroutines</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-eucl_dist_index_plpl"></span><h3>
-module subroutine <a href='../proc/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a>(self)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_index_eucl_plpl"></span><h3>
+module subroutine <a href='../proc/util_index_eucl_plpl.html'>util_index_eucl_plpl</a>(self, param)
     
     
-   <a href='../interface/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_index_eucl_plpl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -664,7 +721,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Turns i,j indices into k index for use in the Euclidean distance matrix</p><a href="../proc/eucl_dist_index_plpl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+<p>Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions.</p><a href="../proc/util_index_eucl_plpl.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -690,7 +747,123 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body objec</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_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-util_index_eucl_pltp"></span><h3>
+module subroutine <a href='../proc/util_index_eucl_pltp.html'>util_index_eucl_pltp</a>(self, pl, param)
+    
+    
+   <a href='../interface/util_index_eucl_pltp.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>Jacob R. Elliott and David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions</p><a href="../proc/util_index_eucl_pltp.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+    
+    <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_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body 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>
 
diff --git a/docs/module/s_util_minimize_bfgs.html b/docs/module/s_util_minimize_bfgs.html
index 310dccb95..d33dab8db 100644
--- a/docs/module/s_util_minimize_bfgs.html
+++ b/docs/module/s_util_minimize_bfgs.html
@@ -134,7 +134,7 @@ <h1>s_util_minimize_bfgs
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 3.1% of total for modules and submodules.">415 statements</a>
+    title=" 2.6% of total for modules and submodules.">415 statements</a>
      </li> 
      
      
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_util_minimize_bfgsUsesGraph" width="641pt" height="261pt"
+ viewBox="0.00 0.00 641.00 260.83" 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 387.05)">
 <title>module~~s_util_minimize_bfgs~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 950,-265.94 950,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 957,-387.05 957,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="953,-318.05 841,-318.05 841,-294.05 953,-294.05 953,-318.05"/>
+<text text-anchor="middle" x="897" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_minimize_bfgs</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_node3" class="node">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M877.72,-294.01C858.51,-281.38 828.1,-261.36 806.1,-246.88"/>
+<polygon fill="#000000" stroke="#000000" points="807.82,-243.82 797.54,-241.25 803.97,-249.67 807.82,-243.82"/>
 </g>
-<!-- module~swiftest_globals -->
-<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_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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M875.66,-318.08C837.06,-339.73 749.93,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_minimize_bfgs~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_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_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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <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_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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_minimize_bfgs~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_minimize_bfgs~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_minimize_bfgs~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_minimize_bfgs~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -635,7 +688,7 @@ <h2>Module Functions</h2>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_minimize_bfgs"></span><h3>
-module function <a href='../proc/util_minimize_bfgs.html'>util_minimize_bfgs</a>(f, N, x0, eps, lerr) result(x1)
+module function <a href='../proc/util_minimize_bfgs.html'>util_minimize_bfgs</a>(f, N, x0, eps, maxloop, lerr) result(x1)
     
     
    <a href='../interface/util_minimize_bfgs.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -665,9 +718,10 @@ <h2>Module Functions</h2>
 <p>This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables.<br>
  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
+   N       : Number of variables of function f
+   x0      : Initial starting value of x
+   eps     : Accuracy of 1 - dimensional minimization at each step
+   maxloop : Maximum number of loops to attempt to find a solution
  The outputs include
    lerr :  Returns .true. if it could not find the minimum
  Returns
@@ -751,6 +805,21 @@ <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>maxloop</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
diff --git a/docs/module/s_util_peri.html b/docs/module/s_util_peri.html
index 32409b543..b568e560f 100644
--- a/docs/module/s_util_peri.html
+++ b/docs/module/s_util_peri.html
@@ -134,7 +134,7 @@ <h1>s_util_peri
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for modules and submodules.">50 statements</a>
+    title=" 0.3% of total for modules and submodules.">50 statements</a>
      </li> 
      
      
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_util_periUsesGraph" width="641pt" height="275pt"
+ viewBox="0.00 0.00 641.00 275.45" 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.7 0.7) rotate(0) translate(4 387.05)">
 <title>module~~s_util_peri~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 899,-265.94 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 906,-387.05 906,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="902,-318.05 841,-318.05 841,-294.05 902,-294.05 902,-318.05"/>
+<text text-anchor="middle" x="871.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_peri</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_peri~~UsesGraph_node3" class="node">
+<g id="module~~s_util_peri~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_peri~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M856.2,-294.01C841.52,-281.66 818.45,-262.24 801.35,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.4,-245.01 793.5,-241.25 798.9,-250.36 803.4,-245.01"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_peri~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M852.64,-318.08C818.72,-339.73 741.94,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_peri~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_peri~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_peri~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_peri~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_peri~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_peri~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_peri~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_peri~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_peri~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_peri~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_peri~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_peri~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_rescale.html b/docs/module/s_util_rescale.html
index a5b5ff320..594af24a6 100644
--- a/docs/module/s_util_rescale.html
+++ b/docs/module/s_util_rescale.html
@@ -134,7 +134,7 @@ <h1>s_util_rescale
      <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>
+    title=" 0.2% of total for modules and submodules.">37 statements</a>
      </li> 
      
      
@@ -245,258 +245,311 @@ <h3 class="panel-title">Uses</h3>
 <!-- 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)">
+<svg id="modules_util_rescaleUsesGraph" width="641pt" height="270pt"
+ viewBox="0.00 0.00 641.00 270.40" 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.69 0.69) rotate(0) translate(4 387.05)">
 <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"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 923,-387.05 923,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"/>
+<polygon fill="none" stroke="black" points="919,-318.05 841,-318.05 841,-294.05 919,-294.05 919,-318.05"/>
+<text text-anchor="middle" x="880" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_rescale</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_rescale~~UsesGraph_node3" class="node">
+<g id="module~~s_util_rescale~~UsesGraph_node2" 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>
+<g id="a_module~~s_util_rescale~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.38,-294.01C847.18,-281.54 821.66,-261.89 802.92,-247.46"/>
+<polygon fill="#000000" stroke="#000000" points="804.9,-244.57 794.85,-241.25 800.63,-250.12 804.9,-244.57"/>
 </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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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"/>
+<!-- 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="M860.31,-318.08C824.83,-339.73 744.59,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_rescale~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_rescale~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_rescale~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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">
+<g id="module~~s_util_rescale~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_rescale~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_rescale~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_rescale~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_rescale~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_rescale~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_rescale~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_rescale~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_rescale~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_rescale~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_rescale~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_resize.html b/docs/module/s_util_resize.html
index 997723cc8..797714d9a 100644
--- a/docs/module/s_util_resize.html
+++ b/docs/module/s_util_resize.html
@@ -134,7 +134,7 @@ <h1>s_util_resize
      <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.">199 statements</a>
+    title=" 1.7% of total for modules and submodules.">280 statements</a>
      </li> 
      
      
@@ -198,6 +198,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_arr_i4b">util_resize_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_arr_info">util_resize_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_arr_logical">util_resize_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_body">util_resize_body</a>
@@ -261,258 +263,311 @@ <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="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)">
+<svg id="modules_util_resizeUsesGraph" width="641pt" height="272pt"
+ viewBox="0.00 0.00 641.00 272.16" 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 387.05)">
 <title>module~~s_util_resize~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 910,-265.94 910,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 917,-387.05 917,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="913,-318.05 841,-318.05 841,-294.05 913,-294.05 913,-318.05"/>
+<text text-anchor="middle" x="877" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_resize</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_resize~~UsesGraph_node3" class="node">
+<g id="module~~s_util_resize~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_resize~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M860.84,-294.01C845.27,-281.66 820.82,-262.24 802.69,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="804.38,-244.72 794.37,-241.25 800.03,-250.21 804.38,-244.72"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_resize~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M857.61,-318.08C822.67,-339.73 743.65,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_resize~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_resize~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_resize~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_resize~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_resize~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_resize~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_resize~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_resize~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_resize~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_resize~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_resize~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_resize~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -618,6 +673,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_arr_i4b">util_resize_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_arr_info">util_resize_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_arr_logical">util_resize_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_resize.html#proc-util_resize_body">util_resize_body</a>
@@ -694,7 +751,7 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+<p>Resizes an array component of type character string. nnew = 0 will deallocate.</p>
     
     <h4>Arguments</h4>
     
@@ -778,7 +835,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+<p>Resizes an array component of double precision type. Passing nnew = 0 will deallocate.</p>
     
     <h4>Arguments</h4>
     
@@ -862,7 +919,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p>
+<p>Resizes an array component of double precision vectors of size (NDIM, n). Passing nnew = 0 will deallocate.</p>
     
     <h4>Arguments</h4>
     
@@ -946,7 +1003,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+<p>Resizes an array component of integer type. Passing nnew = 0 will deallocate.</p>
     
     <h4>Arguments</h4>
     
@@ -980,6 +1037,90 @@ <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>nnew</strong></td><td><p>New size</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_resize_arr_info"></span><h3>
+subroutine <a href='../proc/util_resize_arr_info.html'>util_resize_arr_info</a>(arr, nnew)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
@@ -1030,7 +1171,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+<p>Resizes an array component of logical type. Passing nnew = 0 will deallocate.</p>
     
     <h4>Arguments</h4>
     
@@ -1291,7 +1432,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p>
+<p>Checks the current size of a Swiftest massive body against the requested size and resizes it if it is too small.</p>
     
     <h4>Arguments</h4>
     
@@ -1377,7 +1518,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p>
+<p>Checks the current size of a Swiftest test particle against the requested size and resizes it if it is too small.</p>
     
     <h4>Arguments</h4>
     
@@ -1403,7 +1544,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
diff --git a/docs/module/s_util_set.html b/docs/module/s_util_set.html
index 903d339ba..2b7ed45f7 100644
--- a/docs/module/s_util_set.html
+++ b/docs/module/s_util_set.html
@@ -136,7 +136,7 @@ <h1>s_util_set
      <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.">77 statements</a>
+    title=" 0.8% of total for modules and submodules.">129 statements</a>
      </li> 
      
      
@@ -202,6 +202,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_mu_tp">util_set_mu_tp</a>
       
+      <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_particle_info">util_set_particle_info</a>
+      
       <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_rhill">util_set_rhill</a>
       
       <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_rhill_approximate">util_set_rhill_approximate</a>
@@ -259,258 +261,311 @@ <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="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)">
+<svg id="modules_util_setUsesGraph" width="641pt" height="276pt"
+ viewBox="0.00 0.00 641.00 276.36" 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 387.05)">
 <title>module~~s_util_set~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 896,-265.94 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 903,-387.05 903,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="899,-318.05 841,-318.05 841,-294.05 899,-294.05 899,-318.05"/>
+<text text-anchor="middle" x="870" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_set</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_set~~UsesGraph_node3" class="node">
+<g id="module~~s_util_set~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_set~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M854.94,-294.01C840.49,-281.66 817.8,-262.24 800.98,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.13,-245.09 793.26,-241.25 798.58,-250.41 803.13,-245.09"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_set~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M851.29,-318.08C817.64,-339.73 741.47,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_set~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_set~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_set~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_set~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_set~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_set~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_set~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_set~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_set~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_set~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_set~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_set~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_set~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_set~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_set~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -618,6 +673,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_mu_tp">util_set_mu_tp</a>
       
+      <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_particle_info">util_set_particle_info</a>
+      
       <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_rhill">util_set_rhill</a>
       
       <a class="list-group-item" href="../module/s_util_set.html#proc-util_set_rhill_approximate">util_set_rhill_approximate</a>
@@ -1086,6 +1143,242 @@ <h4>Arguments</h4>
     
     
 
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_set_particle_info"></span><h3>
+module subroutine <a href='../proc/util_set_particle_info.html'>util_set_particle_info</a>(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
+    
+    
+   <a href='../interface/util_set_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>Sets one or more values of the particle information metadata 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_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>name</strong></td><td><p>Non-unique name</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>particle_type</strong></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</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>status</strong></td><td><p>Particle status description: ACTIVE, MERGED, FRAGMENTED, etc.</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>origin_type</strong></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" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_time</strong></td><td><p>The time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_body_id</strong></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
   </div>
   </div>
 
diff --git a/docs/module/s_util_solve.html b/docs/module/s_util_solve.html
index dc238c18d..2932e45f4 100644
--- a/docs/module/s_util_solve.html
+++ b/docs/module/s_util_solve.html
@@ -134,7 +134,7 @@ <h1>s_util_solve
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.2% of total for modules and submodules.">162 statements</a>
+    title=" 1.0% of total for modules and submodules.">162 statements</a>
      </li> 
      
      
@@ -263,258 +263,311 @@ <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="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)">
+<svg id="modules_util_solveUsesGraph" width="641pt" height="273pt"
+ viewBox="0.00 0.00 641.00 273.35" 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 387.05)">
 <title>module~~s_util_solve~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 906,-265.94 906,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 913,-387.05 913,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="909,-318.05 841,-318.05 841,-294.05 909,-294.05 909,-318.05"/>
+<text text-anchor="middle" x="875" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_solve</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_solve~~UsesGraph_node3" class="node">
+<g id="module~~s_util_solve~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_solve~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.16,-294.01C843.91,-281.66 819.96,-262.24 802.21,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="804.03,-244.82 794.05,-241.25 799.62,-250.26 804.03,-244.82"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_solve~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M855.8,-318.08C821.23,-339.73 743.03,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_solve~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_solve~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_solve~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_solve~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_solve~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_solve~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_solve~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_solve~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_solve~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_solve~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_solve~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_solve~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_sort.html b/docs/module/s_util_sort.html
index d0fe68f72..925b27cbd 100644
--- a/docs/module/s_util_sort.html
+++ b/docs/module/s_util_sort.html
@@ -134,7 +134,7 @@ <h1>s_util_sort
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.1% of total for modules and submodules.">284 statements</a>
+    title=" 2.2% of total for modules and submodules.">354 statements</a>
      </li> 
      
      
@@ -192,27 +192,39 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_body">util_sort_body</a>
       
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_dp">util_sort_dp</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_dp">util_sort_index_dp</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_i4b">util_sort_i4b</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_i4b">util_sort_index_i4b</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_sp">util_sort_sp</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_sp">util_sort_index_sp</a>
+      
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_pl">util_sort_pl</a>
       
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_tp">util_sort_tp</a>
       
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_body">util_sort_rearrange_body</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_pl">util_sort_rearrange_pl</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_char_string">util_sort_rearrange_arr_char_string</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_tp">util_sort_rearrange_tp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_dp">util_sort_rearrange_arr_DP</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_dp">util_sort_dp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_dpvec">util_sort_rearrange_arr_DPvec</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_dp">util_sort_index_dp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_i4b">util_sort_rearrange_arr_I4B</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_i4b">util_sort_i4b</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_logical">util_sort_rearrange_arr_logical</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_i4b">util_sort_index_i4b</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_info">util_sort_rearrange_arr_info</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_sp">util_sort_sp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_pl">util_sort_rearrange_pl</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_sp">util_sort_index_sp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_tp">util_sort_rearrange_tp</a>
       
     </div>
   </div>
@@ -267,258 +279,311 @@ <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="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)">
+<svg id="modules_util_sortUsesGraph" width="641pt" height="275pt"
+ viewBox="0.00 0.00 641.00 275.45" 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.7 0.7) rotate(0) translate(4 387.05)">
 <title>module~~s_util_sort~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 899,-265.94 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 906,-387.05 906,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="902,-318.05 841,-318.05 841,-294.05 902,-294.05 902,-318.05"/>
+<text text-anchor="middle" x="871.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_sort</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_sort~~UsesGraph_node3" class="node">
+<g id="module~~s_util_sort~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_sort~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M856.2,-294.01C841.52,-281.66 818.45,-262.24 801.35,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.4,-245.01 793.5,-241.25 798.9,-250.36 803.4,-245.01"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_sort~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M852.64,-318.08C818.72,-339.73 741.94,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_sort~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_sort~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_sort~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_sort~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_sort~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_sort~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_sort~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_sort~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_sort~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_sort~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_sort~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_sort~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -618,27 +683,39 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_body">util_sort_body</a>
       
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_dp">util_sort_dp</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_dp">util_sort_index_dp</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_i4b">util_sort_i4b</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_i4b">util_sort_index_i4b</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_sp">util_sort_sp</a>
+      
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_sp">util_sort_index_sp</a>
+      
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_pl">util_sort_pl</a>
       
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_tp">util_sort_tp</a>
       
       <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_body">util_sort_rearrange_body</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_pl">util_sort_rearrange_pl</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_char_string">util_sort_rearrange_arr_char_string</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_tp">util_sort_rearrange_tp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_dp">util_sort_rearrange_arr_DP</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_dp">util_sort_dp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_dpvec">util_sort_rearrange_arr_DPvec</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_dp">util_sort_index_dp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_i4b">util_sort_rearrange_arr_I4B</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_i4b">util_sort_i4b</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_logical">util_sort_rearrange_arr_logical</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_i4b">util_sort_index_i4b</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_arr_info">util_sort_rearrange_arr_info</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_sp">util_sort_sp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_pl">util_sort_rearrange_pl</a>
       
-      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_index_sp">util_sort_index_sp</a>
+      <a class="list-group-item" href="../module/s_util_sort.html#proc-util_sort_rearrange_tp">util_sort_rearrange_tp</a>
       
     </div>
   </div>
@@ -684,7 +761,487 @@ <h2>Module Subroutines</h2>
 module subroutine <a href='../proc/util_sort_body.html'>util_sort_body</a>(self, sortby, ascending)
     
     
-   <a href='../interface/util_sort_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_sort_body.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>Sort a Swiftest body structure in-place. 
+ sortby is a string indicating which array component to sort.</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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>sortby</strong></td><td><p>Sorting attribute</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_dp"></span><h3>
+subroutine <a href='../proc/util_sort_dp.html'>util_sort_dp</a>(arr)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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)</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>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_index_dp"></span><h3>
+subroutine <a href='../proc/util_sort_index_dp.html'>util_sort_index_dp</a>(arr, ind)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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)</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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_i4b"></span><h3>
+subroutine <a href='../proc/util_sort_i4b.html'>util_sort_i4b</a>(arr)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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)</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>integer(kind=I4B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_index_i4b"></span><h3>
+subroutine <a href='../proc/util_sort_index_i4b.html'>util_sort_index_i4b</a>(arr, ind)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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)</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_sp"></span><h3>
+subroutine <a href='../proc/util_sort_sp.html'>util_sort_sp</a>(arr)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>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)</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>real(kind=SP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_index_sp"></span><h3>
+subroutine <a href='../proc/util_sort_index_sp.html'>util_sort_index_sp</a>(arr, ind)
+    
     
    
 </h3></div>
@@ -708,8 +1265,8 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Sort a Swiftest body structure in-place. 
- sortby is a string indicating which array component to sort.</p>
+<p>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)</p>
     
     <h4>Arguments</h4>
     
@@ -730,27 +1287,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>real(kind=SP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>sortby</strong></td><td><p>Sorting attribute</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
   
 </tr>
 
@@ -760,12 +1302,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(out),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td></td>
   
 </tr>
 
@@ -1073,11 +1615,9 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_pl"></span><h3>
-module subroutine <a href='../proc/util_sort_rearrange_pl.html'>util_sort_rearrange_pl</a>(self, ind)
-    
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_char_string"></span><h3>
+subroutine <a href='../proc/util_sort_rearrange_arr_char_string.html'>util_sort_rearrange_arr_char_string</a>(arr, ind, n)
     
-   <a href='../interface/util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1101,8 +1641,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p>
+<p>Rearrange a single array of character string in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -1123,12 +1662,12 @@ <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>character(len=STRMAX),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -1143,7 +1682,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -1160,11 +1714,9 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_tp"></span><h3>
-module subroutine <a href='../proc/util_sort_rearrange_tp.html'>util_sort_rearrange_tp</a>(self, ind)
-    
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_dp"></span><h3>
+subroutine <a href='../proc/util_sort_rearrange_arr_dp.html'>util_sort_rearrange_arr_DP</a>(arr, ind, n)
     
-   <a href='../interface/util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1188,8 +1740,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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.</p>
+<p>Rearrange a single array of DP type in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -1210,12 +1761,12 @@ <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(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -1230,7 +1781,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -1247,8 +1813,8 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_dp"></span><h3>
-subroutine <a href='../proc/util_sort_dp.html'>util_sort_dp</a>(arr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_dpvec"></span><h3>
+subroutine <a href='../proc/util_sort_rearrange_arr_dpvec.html'>util_sort_rearrange_arr_DPvec</a>(arr, ind, n)
     
     
    
@@ -1273,8 +1839,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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)</p>
+<p>Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -1299,8 +1864,38 @@ <h4>Arguments</h4>
   <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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
   <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -1317,8 +1912,8 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_index_dp"></span><h3>
-subroutine <a href='../proc/util_sort_index_dp.html'>util_sort_index_dp</a>(arr, ind)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_i4b"></span><h3>
+subroutine <a href='../proc/util_sort_rearrange_arr_i4b.html'>util_sort_rearrange_arr_I4B</a>(arr, ind, n)
     
     
    
@@ -1343,8 +1938,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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)</p>
+<p>Rearrange a single array of integers in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -1365,12 +1959,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</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>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -1381,11 +1990,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -1402,8 +2011,8 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_i4b"></span><h3>
-subroutine <a href='../proc/util_sort_i4b.html'>util_sort_i4b</a>(arr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_logical"></span><h3>
+subroutine <a href='../proc/util_sort_rearrange_arr_logical.html'>util_sort_rearrange_arr_logical</a>(arr, ind, n)
     
     
    
@@ -1428,8 +2037,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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)</p>
+<p>Rearrange a single array of logicals in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -1450,12 +2058,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
   <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -1472,8 +2110,8 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_index_i4b"></span><h3>
-subroutine <a href='../proc/util_sort_index_i4b.html'>util_sort_index_i4b</a>(arr, ind)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_arr_info"></span><h3>
+subroutine <a href='../proc/util_sort_rearrange_arr_info.html'>util_sort_rearrange_arr_info</a>(arr, ind, n)
     
     
    
@@ -1498,8 +2136,7 @@ <h4>Arguments</h4>
 
 
 
-<p>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)</p>
+<p>Rearrange a single array of particle information type in-place from an index list.</p>
     
     <h4>Arguments</h4>
     
@@ -1518,6 +2155,21 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_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>integer(kind=I4B),</td>
@@ -1525,7 +2177,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -1536,11 +2188,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -1557,9 +2209,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_sp"></span><h3>
-subroutine <a href='../proc/util_sort_sp.html'>util_sort_sp</a>(arr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_pl"></span><h3>
+module subroutine <a href='../proc/util_sort_rearrange_pl.html'>util_sort_rearrange_pl</a>(self, ind)
+    
     
+   <a href='../interface/util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1583,8 +2237,8 @@ <h4>Arguments</h4>
 
 
 
-<p>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)</p>
+<p>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.</p>
     
     <h4>Arguments</h4>
     
@@ -1605,12 +2259,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=SP),</td>
-  <td>intent(inout),</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 massive body object</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>arr</strong></td><td></td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
@@ -1627,10 +2296,12 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_index_sp"></span><h3>
-subroutine <a href='../proc/util_sort_index_sp.html'>util_sort_index_sp</a>(arr, ind)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_sort_rearrange_tp"></span><h3>
+module subroutine <a href='../proc/util_sort_rearrange_tp.html'>util_sort_rearrange_tp</a>(self, ind)
     
     
+   <a href='../interface/util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
    
 </h3></div>
   <div class="panel-body">
@@ -1653,8 +2324,8 @@ <h4>Arguments</h4>
 
 
 
-<p>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)</p>
+<p>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.</p>
     
     <h4>Arguments</h4>
     
@@ -1675,12 +2346,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=SP),</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>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -1691,11 +2362,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td></td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
diff --git a/docs/module/s_util_spill.html b/docs/module/s_util_spill.html
index 99090e2ad..3a29b58d9 100644
--- a/docs/module/s_util_spill.html
+++ b/docs/module/s_util_spill.html
@@ -134,7 +134,7 @@ <h1>s_util_spill
      <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.">201 statements</a>
+    title=" 2.0% of total for modules and submodules.">332 statements</a>
      </li> 
      
      
@@ -198,6 +198,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_i4b">util_spill_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_i8b">util_spill_arr_I8B</a>
+      
+      <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_info">util_spill_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_logical">util_spill_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_body">util_spill_body</a>
@@ -261,258 +265,311 @@ <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="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)">
+<svg id="modules_util_spillUsesGraph" width="641pt" height="275pt"
+ viewBox="0.00 0.00 641.00 275.45" 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.7 0.7) rotate(0) translate(4 387.05)">
 <title>module~~s_util_spill~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 899,-265.94 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 906,-387.05 906,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="902,-318.05 841,-318.05 841,-294.05 902,-294.05 902,-318.05"/>
+<text text-anchor="middle" x="871.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_spill</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_spill~~UsesGraph_node3" class="node">
+<g id="module~~s_util_spill~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_spill~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M856.2,-294.01C841.52,-281.66 818.45,-262.24 801.35,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.4,-245.01 793.5,-241.25 798.9,-250.36 803.4,-245.01"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_spill~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M852.64,-318.08C818.72,-339.73 741.94,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_spill~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_spill~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_spill~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_spill~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_spill~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_spill~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_spill~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_spill~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_spill~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_spill~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_spill~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_spill~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -618,6 +675,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_i4b">util_spill_arr_I4B</a>
       
+      <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_i8b">util_spill_arr_I8B</a>
+      
+      <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_info">util_spill_arr_info</a>
+      
       <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_arr_logical">util_spill_arr_logical</a>
       
       <a class="list-group-item" href="../module/s_util_spill.html#proc-util_spill_body">util_spill_body</a>
@@ -1104,6 +1165,236 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_spill_arr_i8b"></span><h3>
+subroutine <a href='../proc/util_spill_arr_i8b.html'>util_spill_arr_I8B</a>(keeps, discards, lspill_list, ldestructive)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Performs a spill operation on a single array of type I4B
+ This is the inverse of a spill operation</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>integer(kind=I8B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I8B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_spill_arr_info"></span><h3>
+subroutine <a href='../proc/util_spill_arr_info.html'>util_spill_arr_info</a>(keeps, discards, lspill_list, ldestructive)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Performs a spill operation on a single array of particle origin information types
+ This is the inverse of a spill operation</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
diff --git a/docs/module/s_util_valid.html b/docs/module/s_util_valid.html
index 8259dfcd5..794677712 100644
--- a/docs/module/s_util_valid.html
+++ b/docs/module/s_util_valid.html
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_util_validUsesGraph" width="641pt" height="274pt"
+ viewBox="0.00 0.00 641.00 274.25" 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.7 0.7) rotate(0) translate(4 387.05)">
 <title>module~~s_util_valid~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 903,-265.94 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 910,-387.05 910,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="906,-318.05 841,-318.05 841,-294.05 906,-294.05 906,-318.05"/>
+<text text-anchor="middle" x="873.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_valid</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_valid~~UsesGraph_node3" class="node">
+<g id="module~~s_util_valid~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_valid~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M857.89,-294.01C842.88,-281.66 819.31,-262.24 801.84,-247.85"/>
+<polygon fill="#000000" stroke="#000000" points="803.76,-244.9 793.82,-241.25 799.31,-250.31 803.76,-244.9"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_valid~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M854.45,-318.08C820.15,-339.73 742.56,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_valid~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_valid~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_valid~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_valid~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_valid~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_valid~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_valid~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_valid~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge21" 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_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.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_valid~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_valid~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_valid~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_valid~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
@@ -702,7 +755,7 @@ <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>
diff --git a/docs/module/s_util_version.html b/docs/module/s_util_version.html
index 3816a5596..3639e1f28 100644
--- a/docs/module/s_util_version.html
+++ b/docs/module/s_util_version.html
@@ -245,258 +245,311 @@ <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="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)">
+<svg id="modules_util_versionUsesGraph" width="641pt" height="270pt"
+ viewBox="0.00 0.00 641.00 270.40" 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.69 0.69) rotate(0) translate(4 387.05)">
 <title>module~~s_util_version~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 916,-265.94 916,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-387.05 923,-387.05 923,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="919,-318.05 841,-318.05 841,-294.05 919,-294.05 919,-318.05"/>
+<text text-anchor="middle" x="880" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_version</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_util_version~~UsesGraph_node3" class="node">
+<g id="module~~s_util_version~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_util_version~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-241.05 751,-241.05 751,-217.05 805,-217.05 805,-241.05"/>
+<text text-anchor="middle" x="778" y="-226.65" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.38,-294.01C847.18,-281.54 821.66,-261.89 802.92,-247.46"/>
+<polygon fill="#000000" stroke="#000000" points="804.9,-244.57 794.85,-241.25 800.63,-250.12 804.9,-244.57"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_version~~UsesGraph_node3" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-201.05 252.5,-201.05 252.5,-177.05 341.5,-177.05 341.5,-201.05"/>
+<text text-anchor="middle" x="297" y="-186.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</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="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"/>
+<!-- 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="M860.31,-318.08C824.83,-339.73 744.59,-383.05 670.5,-383.05 670.5,-383.05 670.5,-383.05 548.5,-383.05 470.7,-383.05 443.8,-374.57 383,-326.05 344.06,-294.96 318.17,-240.87 306.02,-210.79"/>
+<polygon fill="#000000" stroke="#000000" points="309.18,-209.28 302.29,-201.23 302.66,-211.82 309.18,-209.28"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C606.21,-232.5 610.41,-287.67 550.5,-305.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C529.56,-310.54 400.68,-249.78 383,-241.05 362.59,-230.96 340.69,-217.5 324.24,-206.8"/>
+<polygon fill="#000000" stroke="#000000" points="325.98,-203.75 315.7,-201.18 322.13,-209.6 325.98,-203.75"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_version~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_version~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-42.05 247,-42.05 247,-18.05 347,-18.05 347,-42.05"/>
+<text text-anchor="middle" x="297" y="-27.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_version~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C635.66,-27.94 627.04,-19.42 588,-10.05 509.14,8.88 415.01,-3.84 355.85,-15.93"/>
+<polygon fill="#000000" stroke="#000000" points="355.01,-12.53 345.95,-18.01 356.46,-19.38 355.01,-12.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.72,-217.03C764.1,-184.25 732.62,-92.9 670.5,-51.05"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-43.05 511,-43.05 511,-19.05 588,-19.05 588,-43.05"/>
+<text text-anchor="middle" x="549.5" y="-28.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C648.12,-37.28 621.36,-31.96 598.47,-30.23"/>
+<polygon fill="#000000" stroke="#000000" points="598.45,-26.73 588.27,-29.67 598.06,-33.71 598.45,-26.73"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-161.05 385.5,-161.05 385.5,-137.05 472.5,-137.05 472.5,-161.05"/>
+<text text-anchor="middle" x="429" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C648.5,-228.99 534.98,-188.05 472.04,-164.76"/>
+<polygon fill="#000000" stroke="#000000" points="472.99,-161.38 462.39,-161.19 470.55,-167.94 472.99,-161.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.72,-228.24C729.15,-227.77 697.82,-227.53 670.5,-229.05"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-241.05 511.5,-241.05 511.5,-217.05 587.5,-217.05 587.5,-241.05"/>
+<text text-anchor="middle" x="549.5" y="-226.65" 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">
+<g id="module~~s_util_version~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-229.05C645.26,-228.98 619.45,-228.97 597.9,-228.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.7,-225.49 587.7,-228.99 597.7,-232.49 597.7,-225.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="module~~s_util_version~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-81.05 391,-81.05 391,-57.05 467,-57.05 467,-81.05"/>
+<text text-anchor="middle" x="429" y="-66.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-51.05C660.71,-45.78 544.46,-56.99 477.19,-63.99"/>
+<polygon fill="#000000" stroke="#000000" points="476.82,-60.5 467.24,-65.03 477.55,-67.47 476.82,-60.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<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,-161.05 123,-161.05 123,-137.05 211,-137.05 211,-161.05"/>
+<text text-anchor="middle" x="167" y="-146.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C515.83,-314.37 508.35,-319.54 475,-326.05 397.34,-341.19 371.91,-373.27 298,-345.05"/>
 </g>
 <!-- module~symba_classes -->
 <g id="module~~s_util_version~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-201.05 627,-201.05 627,-177.05 712,-177.05 712,-201.05"/>
+<text text-anchor="middle" x="669.5" y="-186.65" 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_edge6" class="edge">
+<g id="module~~s_util_version~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-219.26C739.37,-214.91 725.44,-209.68 712.45,-204.8"/>
+<polygon fill="#000000" stroke="#000000" points="713.35,-201.4 702.76,-201.16 710.89,-207.95 713.35,-201.4"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_version~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-318.05 624,-318.05 624,-294.05 715,-294.05 715,-318.05"/>
+<text text-anchor="middle" x="669.5" y="-303.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_version~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.36,-241.08C743.03,-253.6 715.68,-273.38 695.7,-287.82"/>
+<polygon fill="#000000" stroke="#000000" points="693.43,-285.15 687.38,-293.85 697.53,-290.82 693.43,-285.15"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_util_version~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-317.05 383,-317.05 383,-293.05 475,-293.05 475,-317.05"/>
+<text text-anchor="middle" x="429" y="-302.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-305.05C528.3,-310.9 505.34,-312.08 485.04,-311.39"/>
+<polygon fill="#000000" stroke="#000000" points="485.17,-307.89 475,-310.89 484.82,-314.88 485.17,-307.89"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_classes&#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"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-177.04C244.68,-173.01 230.09,-168.45 216.5,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-160.82 206.82,-161.18 215.32,-167.5 217.41,-160.82"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.78,-42.33C260.44,-63.11 215.05,-105.31 188.53,-129.96"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-127.63 180.95,-137 190.66,-132.76 185.89,-127.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<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="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"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.01,-43.07C500.2,-46.53 488.28,-50.36 476.98,-53.98"/>
+<polygon fill="#000000" stroke="#000000" points="475.7,-50.71 467.25,-57.1 477.84,-57.38 475.7,-50.71"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <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="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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-109.05C267.37,-115.58 235.88,-125.39 211.3,-133.65"/>
+<polygon fill="#000000" stroke="#000000" points="209.9,-130.43 201.56,-136.97 212.16,-137.06 209.9,-130.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.76,-29.48C476.37,-29.31 424.73,-32.22 383,-48.05 339.52,-64.53 343.33,-98.7 298,-109.05"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389,-161.05C375.88,-165.08 361.06,-169.64 347.26,-173.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.95,-170.63 337.43,-176.92 348.01,-177.32 345.95,-170.63"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge17" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.29,-136.8C384.24,-121.92 338.29,-99.85 298,-109.05"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.49,-225.48C488.03,-223.95 457.1,-223.26 430,-227.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C392.95,-231.94 354.17,-217.95 328.17,-205.58"/>
+<polygon fill="#000000" stroke="#000000" points="329.72,-202.44 319.2,-201.13 326.61,-208.71 329.72,-202.44"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge16" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge21" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.76,-216.86C526.08,-197.81 498.71,-159.87 475,-128.05 465.31,-115.04 454.27,-100.56 445.54,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="448.26,-86.98 439.39,-81.19 442.71,-91.25 448.26,-86.98"/>
 </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.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 -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_version~~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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-345.05C223.01,-312.84 186.69,-214.77 173.73,-170.79"/>
+<polygon fill="#000000" stroke="#000000" points="177.07,-169.75 170.99,-161.08 170.33,-171.66 177.07,-169.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-227.05C350.72,-237.84 369.39,-376.55 298,-345.05"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.58,-81.44C391.88,-102.38 345.78,-144.94 318.85,-169.8"/>
+<polygon fill="#000000" stroke="#000000" points="316.13,-167.55 311.16,-176.9 320.88,-172.69 316.13,-167.55"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_edge20" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.89,-81.06C367.88,-89.85 331.04,-101.5 298,-109.05"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- iso_fortran_env -->
+<g id="module~~s_util_version~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_version~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-161.05 0,-161.05 0,-137.05 87,-137.05 87,-161.05"/>
+<text text-anchor="middle" x="43.5" y="-146.65" 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_version~~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,-149.05C114.58,-149.05 105.86,-149.05 97.36,-149.05"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-145.55 87.13,-149.05 97.13,-152.55 97.13,-145.55"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.72,-189.05C559.21,-189.05 426.2,-189.05 351.74,-189.05"/>
+<polygon fill="#000000" stroke="#000000" points="351.63,-185.55 341.63,-189.05 351.63,-192.55 351.63,-185.55"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.44,-176.91C639.32,-149.98 590.77,-84.97 565.84,-51.58"/>
+<polygon fill="#000000" stroke="#000000" points="568.55,-49.36 559.76,-43.44 562.94,-53.55 568.55,-49.36"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C532.38,-105.58 493.7,-120.3 464.89,-132.85"/>
+<polygon fill="#000000" stroke="#000000" points="463.26,-129.74 455.54,-136.99 466.1,-136.14 463.26,-129.74"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge25" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.1,-201.05C621.42,-205.01 608.26,-209.46 595.94,-213.64"/>
+<polygon fill="#000000" stroke="#000000" points="594.63,-210.39 586.29,-216.92 596.88,-217.02 594.63,-210.39"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_version~~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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge28" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-109.05C439.65,-85.65 406.79,-85.38 298,-109.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.88,-176.85C637.23,-157.32 595.19,-120.09 550.5,-109.05"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.54,-318.13C576.71,-343.82 416.64,-397.4 298,-345.05"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.59,-317.16C370.4,-331.76 316.85,-353.36 298,-345.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_coord.html b/docs/module/s_whm_coord.html
index 33b917bc0..071f9d921 100644
--- a/docs/module/s_whm_coord.html
+++ b/docs/module/s_whm_coord.html
@@ -134,7 +134,7 @@ <h1>s_whm_coord
      <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.">66 statements</a>
+    title=" 0.4% of total for modules and submodules.">66 statements</a>
      </li> 
      
      
@@ -249,258 +249,312 @@ <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="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)">
+<svg id="modules_whm_coordUsesGraph" width="641pt" height="280pt"
+ viewBox="0.00 0.00 641.00 279.96" 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.69 0.69) rotate(0) translate(4 401.31)">
 <title>module~~s_whm_coord~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.64 917,-293.64 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 924,-401.31 924,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="920,-251.35 841,-251.35 841,-227.35 920,-227.35 920,-251.35"/>
+<text text-anchor="middle" x="880.5" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_coord</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_whm_coord~~UsesGraph_node3" class="node">
+<g id="module~~s_whm_coord~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_whm_coord~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M867.18,-227.34C850.07,-210.66 818.95,-180.31 798.63,-160.5"/>
+<polygon fill="#000000" stroke="#000000" points="801.03,-157.95 791.42,-153.47 796.14,-162.96 801.03,-157.95"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M859.71,-251.49C802.83,-284.72 634.98,-370.96 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge10" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_whm_coord~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_whm_coord~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~s_whm_coord~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_whm_coord~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_coord~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_whm_coord~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~s_whm_coord~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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_whm_coord~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_whm_coord~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_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="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge16" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_coord~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_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.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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~s_whm_coord~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge24" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_gr.html b/docs/module/s_whm_gr.html
index 8544c9f2a..e326bd9fc 100644
--- a/docs/module/s_whm_gr.html
+++ b/docs/module/s_whm_gr.html
@@ -134,7 +134,7 @@ <h1>s_whm_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.">65 statements</a>
+    title=" 0.4% of total for modules and submodules.">65 statements</a>
      </li> 
      
      
@@ -251,258 +251,312 @@ <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="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)">
+<svg id="modules_whm_grUsesGraph" width="641pt" height="285pt"
+ viewBox="0.00 0.00 641.00 285.19" 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.7 0.7) rotate(0) translate(4 401.31)">
 <title>module~~s_whm_gr~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.2 900,-293.2 900,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 907,-401.31 907,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="903,-251.35 841,-251.35 841,-227.35 903,-227.35 903,-251.35"/>
+<text text-anchor="middle" x="872" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_gr</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_whm_gr~~UsesGraph_node3" class="node">
+<g id="module~~s_whm_gr~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_whm_gr~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.72,-227.34C844.13,-210.73 815.83,-180.58 797.22,-160.76"/>
+<polygon fill="#000000" stroke="#000000" points="799.77,-158.36 790.37,-153.47 794.67,-163.16 799.77,-158.36"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M852.31,-251.62C824,-269.38 767.93,-301.44 715,-313.35 626.55,-333.27 593.22,-351.56 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge10" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_whm_gr~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_whm_gr~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~s_whm_gr~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_whm_gr~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_gr~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_whm_gr~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~s_whm_gr~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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_whm_gr~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_whm_gr~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_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="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge16" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_gr~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_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.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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~s_whm_gr~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge24" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_kick.html b/docs/module/s_whm_kick.html
index 1905913d0..03f09479e 100644
--- a/docs/module/s_whm_kick.html
+++ b/docs/module/s_whm_kick.html
@@ -134,7 +134,7 @@ <h1>s_whm_kick
      <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.">190 statements</a>
+    title=" 1.1% of total for modules and submodules.">186 statements</a>
      </li> 
      
      
@@ -277,258 +277,312 @@ <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="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)">
+<svg id="modules_whm_kickUsesGraph" width="641pt" height="283pt"
+ viewBox="0.00 0.00 641.00 282.71" 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 401.31)">
 <title>module~~s_whm_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.4 908,-293.4 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 915,-401.31 915,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="911,-251.35 841,-251.35 841,-227.35 911,-227.35 911,-251.35"/>
+<text text-anchor="middle" x="876" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_kick</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_whm_kick~~UsesGraph_node3" class="node">
+<g id="module~~s_whm_kick~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_whm_kick~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.23,-227.34C846.96,-210.73 817.43,-180.58 798.01,-160.76"/>
+<polygon fill="#000000" stroke="#000000" points="800.37,-158.16 790.87,-153.47 795.37,-163.06 800.37,-158.16"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M855.46,-251.43C799.28,-284.48 633.52,-370.28 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge10" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_whm_kick~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_whm_kick~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~s_whm_kick~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_whm_kick~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_kick~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_whm_kick~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~s_whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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_whm_kick~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_whm_kick~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_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="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge16" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_kick~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_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.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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~s_whm_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge24" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_setup.html b/docs/module/s_whm_setup.html
index f87399d52..224855f9c 100644
--- a/docs/module/s_whm_setup.html
+++ b/docs/module/s_whm_setup.html
@@ -134,7 +134,7 @@ <h1>s_whm_setup
      <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.">61 statements</a>
+    title=" 0.4% of total for modules and submodules.">63 statements</a>
      </li> 
      
      
@@ -249,258 +249,312 @@ <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="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)">
+<svg id="modules_whm_setupUsesGraph" width="641pt" height="280pt"
+ viewBox="0.00 0.00 641.00 279.96" 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.69 0.69) rotate(0) translate(4 401.31)">
 <title>module~~s_whm_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.64 917,-293.64 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 924,-401.31 924,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="920,-251.35 841,-251.35 841,-227.35 920,-227.35 920,-251.35"/>
+<text text-anchor="middle" x="880.5" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_setup</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_whm_setup~~UsesGraph_node3" class="node">
+<g id="module~~s_whm_setup~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_whm_setup~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M867.18,-227.34C850.07,-210.66 818.95,-180.31 798.63,-160.5"/>
+<polygon fill="#000000" stroke="#000000" points="801.03,-157.95 791.42,-153.47 796.14,-162.96 801.03,-157.95"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M859.71,-251.49C802.83,-284.72 634.98,-370.96 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge10" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_whm_setup~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_whm_setup~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~s_whm_setup~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_whm_setup~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_setup~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_whm_setup~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~s_whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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_whm_setup~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_whm_setup~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_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="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge16" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_setup~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_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="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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~s_whm_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge24" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
@@ -885,7 +939,7 @@ <h4>Arguments</h4>
   <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>WHM nbody system object</p></td>
   
 </tr>
 
diff --git a/docs/module/s_whm_step.html b/docs/module/s_whm_step.html
index fb1bac56f..b419f3816 100644
--- a/docs/module/s_whm_step.html
+++ b/docs/module/s_whm_step.html
@@ -134,7 +134,7 @@ <h1>s_whm_step
      <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.">61 statements</a>
+    title=" 0.4% of total for modules and submodules.">61 statements</a>
      </li> 
      
      
@@ -249,258 +249,312 @@ <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="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)">
+<svg id="modules_whm_stepUsesGraph" width="641pt" height="282pt"
+ viewBox="0.00 0.00 641.00 281.79" 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 401.31)">
 <title>module~~s_whm_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.48 911,-293.48 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 918,-401.31 918,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,-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="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="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"/>
+<polygon fill="none" stroke="black" points="914,-251.35 841,-251.35 841,-227.35 914,-227.35 914,-251.35"/>
+<text text-anchor="middle" x="877.5" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_step</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_whm_step~~UsesGraph_node3" class="node">
+<g id="module~~s_whm_step~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_whm_step~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M864.54,-227.34C848.02,-210.73 818.03,-180.58 798.31,-160.76"/>
+<polygon fill="#000000" stroke="#000000" points="800.59,-158.09 791.05,-153.47 795.62,-163.03 800.59,-158.09"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_whm_step~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M856.88,-251.45C800.47,-284.56 634.01,-370.51 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge10" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_whm_step~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_whm_step~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~s_whm_step~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_whm_step~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_step~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_step~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_whm_step~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~s_whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~s_whm_step~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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_whm_step~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_whm_step~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_whm_step~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_step~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge16" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_step~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_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.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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_step~~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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~s_whm_step~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge24" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_util.html b/docs/module/s_whm_util.html
index f98857444..313d1cbed 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.">148 statements</a>
+    title=" 0.9% of total for modules and submodules.">146 statements</a>
      </li> 
      
      
@@ -257,258 +257,312 @@ <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="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)">
+<svg id="modules_whm_utilUsesGraph" width="641pt" height="284pt"
+ viewBox="0.00 0.00 641.00 283.94" 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.7 0.7) rotate(0) translate(4 401.31)">
 <title>module~~s_whm_util~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.3 904,-293.3 904,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 911,-401.31 911,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="907,-251.35 841,-251.35 841,-227.35 907,-227.35 907,-251.35"/>
+<text text-anchor="middle" x="874" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_util</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_whm_util~~UsesGraph_node3" class="node">
+<g id="module~~s_whm_util~~UsesGraph_node2" 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,-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>
+<g id="a_module~~s_whm_util~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M861.47,-227.34C845.55,-210.73 816.63,-180.58 797.61,-160.76"/>
+<polygon fill="#000000" stroke="#000000" points="800.07,-158.26 790.62,-153.47 795.02,-163.11 800.07,-158.26"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~s_whm_util~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M853.57,-251.4C797.71,-284.37 632.87,-369.98 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge10" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~s_whm_util~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_whm_util~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~s_whm_util~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_whm_util~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_util~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_util~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~s_whm_util~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~s_whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~s_whm_util~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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_whm_util~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_whm_util~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~s_whm_util~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_util~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge16" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_util~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_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="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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_util~~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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~s_whm_util~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge24" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/swiftest.html b/docs/module/swiftest.html
index 7955ee9ee..f73378c70 100644
--- a/docs/module/swiftest.html
+++ b/docs/module/swiftest.html
@@ -136,7 +136,7 @@ <h1>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 modules and submodules.">12 statements</a>
+    title=" 0.1% of total for modules and submodules.">14 statements</a>
      </li> 
      
      
@@ -227,8 +227,12 @@ <h3 class="panel-title">Uses</h3>
     
     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
+    <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
     <li><a href='../module/lambda_function.html'>lambda_function</a></li>
     
+    <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
   </ul>
       </li>
       
diff --git a/docs/module/swiftest_classes.html b/docs/module/swiftest_classes.html
index 714620ca7..8f41f480a 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.">1112 statements</a>
+    title=" 8.9% of total for modules and submodules.">1445 statements</a>
      </li> 
      
      
@@ -188,8 +188,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_get_args">io_get_args</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_get_old_t_final_system">io_get_old_t_final_system</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_get_token">io_get_token</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_body">io_read_frame_body</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_cb">io_read_frame_cb</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_system">io_read_frame_system</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-discard_pl">discard_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-discard_system">discard_system</a>
@@ -202,11 +210,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-drift_one">drift_one</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-eucl_dist_index_plpl">eucl_dist_index_plpl</a>
-      
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-fragmentation_initialize">fragmentation_initialize</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_index_eucl_plpl">util_index_eucl_plpl</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-fragmentation_regime">fragmentation_regime</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_index_eucl_pltp">util_index_eucl_pltp</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-gr_kick_getaccb_ns_body">gr_kick_getaccb_ns_body</a>
       
@@ -226,7 +232,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_param">io_dump_param</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_swiftest">io_dump_swiftest</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_particle_info_base">io_dump_particle_info_base</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_particle_info">io_dump_particle_info</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_base">io_dump_base</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_system">io_dump_system</a>
       
@@ -234,17 +244,15 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_param_writer">io_param_writer</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_body_in">io_read_body_in</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_body">io_read_in_body</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_cb_in">io_read_cb_in</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_cb">io_read_in_cb</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_param_in">io_read_param_in</a>
-      
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_body">io_read_frame_body</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_param">io_read_in_param</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_cb">io_read_frame_cb</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_particle_info">io_read_in_particle_info</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_system">io_read_frame_system</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_particle_info_system">io_read_particle_info_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_discard">io_write_discard</a>
       
@@ -256,19 +264,43 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_frame_cb">io_write_frame_cb</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_frame_encounter">io_write_frame_encounter</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_frame_system">io_write_frame_system</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_hdr_system">io_write_hdr_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_all_pl">kick_getacch_int_all_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_one_pl">kick_getacch_int_one_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_one_tp">kick_getacch_int_one_tp</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_pl">kick_getacch_int_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_tp">kick_getacch_int_tp</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_close">netcdf_close</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_initialize_output">netcdf_initialize_output</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_open">netcdf_open</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_frame_base">netcdf_write_frame_base</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_frame_system">netcdf_write_frame_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_hdr_system">netcdf_write_hdr_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_particle_info_base">netcdf_write_particle_info_base</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_acc_body">obl_acc_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_acc_pl">obl_acc_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_acc_tp">obl_acc_tp</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_pot">obl_pot</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_pot_system">obl_pot_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_el2xv_vec">orbel_el2xv_vec</a>
       
@@ -278,6 +310,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_xv2aqt">orbel_xv2aqt</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_xv2el">orbel_xv2el</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_xv2el_vec">orbel_xv2el_vec</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_body">setup_body</a>
@@ -286,6 +320,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_encounter">setup_encounter</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_initialize_particle_info_system">setup_initialize_particle_info_system</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_initialize_system">setup_initialize_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_pl">setup_pl</a>
@@ -302,6 +338,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_body">util_append_body</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_encounter">util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_pl">util_append_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_tp">util_append_tp</a>
@@ -314,8 +352,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_h2b_tp">util_coord_h2b_tp</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vb2vh_pl">util_coord_vb2vh_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vb2vh_tp">util_coord_vb2vh_tp</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vh2vb_pl">util_coord_vh2vb_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vh2vb_tp">util_coord_vh2vb_tp</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_xh2xb_pl">util_coord_xh2xb_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_xh2xb_tp">util_coord_xh2xb_tp</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_copy_encounter">util_copy_encounter</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_copy_particle_info">util_copy_particle_info</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_copy_particle_info_arr">util_copy_particle_info_arr</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_exit">util_exit</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_fill_body">util_fill_body</a>
@@ -354,6 +408,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_mu_tp">util_set_mu_tp</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_particle_info">util_set_particle_info</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_rhill">util_set_rhill</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_rhill_approximate">util_set_rhill_approximate</a>
@@ -364,6 +420,8 @@ <h3>Contents</h3>
       
       <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~2">util_sort_rearrange</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort_rearrange_body">util_sort_rearrange_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort_rearrange_pl">util_sort_rearrange_pl</a>
@@ -401,24 +459,20 @@ <h3>Contents</h3>
   <div id="absints-0" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_read_frame">abstract_read_frame</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_discard_body">abstract_discard_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_accel">abstract_accel</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_initialize">abstract_initialize</a>
-      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_kick_body">abstract_kick_body</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_read_frame">abstract_read_frame</a>
-      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_set_mu">abstract_set_mu</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_step_body">abstract_step_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_step_system">abstract_step_system</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_write_frame">abstract_write_frame</a>
-      
     </div>
   </div>
 </div>
@@ -430,8 +484,12 @@ <h3>Contents</h3>
   <div id="types-0" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#type-netcdf_parameters">netcdf_parameters</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_parameters">swiftest_parameters</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_particle_info">swiftest_particle_info</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_base">swiftest_base</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_cb">swiftest_cb</a>
@@ -470,6 +528,12 @@ <h3>Contents</h3>
  Adapted from David E. Kaufmann's Swifter routine: module_swifter.f90</p>
 <hr>
 <p>swiftest_parameters class definitions </p>
+<hr>
+<hr>
+<div class="codehilite"><pre><span></span><code><span class="err">                                swiftest_swiftest_particle_info class definitions and method interfaces</span>
+</code></pre></div>
+
+
 <hr>
 <hr>
 <p>swiftest_base class definitions and methods</p>
@@ -638,16 +702,14 @@ <h3 class="panel-title">Used by</h3>
       
       <li><a href='../module/s_discard.html'>s_discard</a></li>
       
-      <li><a href='../module/s_eucl.html'>s_eucl</a></li>
-      
-      <li><a href='../module/s_fragmentation.html'>s_fragmentation</a></li>
-      
       <li><a href='../module/s_gr.html'>s_gr</a></li>
       
       <li><a href='../module/s_io.html'>s_io</a></li>
       
       <li><a href='../module/s_kick.html'>s_kick</a></li>
       
+      <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+      
       <li><a href='../module/s_obl.html'>s_obl</a></li>
       
       <li><a href='../module/s_orbel.html'>s_orbel</a></li>
@@ -672,6 +734,8 @@ <h3 class="panel-title">Used by</h3>
       
       <li><a href='../module/s_util_get_energy_momentum.html'>s_util_get_energy_momentum</a></li>
       
+      <li><a href='../module/s_util_index.html'>s_util_index</a></li>
+      
       <li><a href='../module/s_util_minimize_bfgs.html'>s_util_minimize_bfgs</a></li>
       
       <li><a href='../module/s_util_peri.html'>s_util_peri</a></li>
@@ -703,1358 +767,1554 @@ <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="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)">
+<svg id="moduleswiftest_classesUsedByGraph" width="641pt" height="2515pt"
+ viewBox="0.00 0.00 641.00 2515.23" 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.87 0.87) rotate(0) translate(4 2884)">
 <title>module~~swiftest_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 722,-2548 722,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 732,-2884 732,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,-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>
+<polygon fill="none" stroke="black" points="89,-1514 0,-1514 0,-1490 89,-1490 89,-1514"/>
+<text text-anchor="middle" x="44.5" y="-1499.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_classes</text>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_util_exit -->
 <g id="module~~swiftest_classes~~UsedByGraph_node2" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679.5,-2880 619.5,-2880 619.5,-2856 679.5,-2856 679.5,-2880"/>
+<text text-anchor="middle" x="649.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge5" class="edge">
-<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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge7" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M619.34,-2860.16C554.98,-2842.87 406.26,-2803 403.5,-2803 403.5,-2803 403.5,-2803 279.5,-2803 143.99,-2803 59.34,-1695.53 47.05,-1524.16"/>
+<polygon fill="#000000" stroke="#000000" points="50.53,-1523.78 46.33,-1514.05 43.55,-1524.27 50.53,-1523.78"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_node12" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node28" class="node">
 <title>module~swiftest</title>
-<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>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node28"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="535,-1473 481,-1473 481,-1449 535,-1449 535,-1473"/>
+<text text-anchor="middle" x="508" y="-1458.6" 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~~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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.23,-2868.1C602.38,-2866.47 582.36,-2861.3 571,-2847 536.4,-2803.42 537.88,-1901.57 535,-1846 527.86,-1708.04 515.35,-1542.53 510.76,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.24,-1482.99 509.97,-1473.29 507.26,-1483.53 514.24,-1482.99"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_netcdf -->
 <g id="module~~swiftest_classes~~UsedByGraph_node3" class="node">
-<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>
+<title>module~s_netcdf</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-1158 622.5,-1158 622.5,-1134 676.5,-1134 676.5,-1158"/>
+<text text-anchor="middle" x="649.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge6" class="edge">
-<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"/>
+<!-- module~s_netcdf&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge8" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.29,-1146.01C605.11,-1144.53 583.57,-1139.57 571,-1125 494.26,-1036.05 604.79,-531.99 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge80" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.33,-1146.4C605.39,-1148.08 584.12,-1153.12 571,-1167 566.24,-1172.04 526.6,-1371.59 513.32,-1439.01"/>
+<polygon fill="#000000" stroke="#000000" points="509.85,-1438.5 511.36,-1448.98 516.72,-1439.85 509.85,-1438.5"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~fraggle_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_node4" class="node">
-<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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node4"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="324,-1435 237,-1435 237,-1411 324,-1411 324,-1435"/>
+<text text-anchor="middle" x="280.5" y="-1420.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge7" class="edge">
-<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_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"/>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge1" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.03,-1435.04C223.04,-1443.2 191.78,-1454.08 164,-1463"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_util_solve -->
 <g id="module~~swiftest_classes~~UsedByGraph_node5" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="683.5,-1116 615.5,-1116 615.5,-1092 683.5,-1092 683.5,-1116"/>
+<text text-anchor="middle" x="649.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge8" class="edge">
-<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"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge9" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M615.43,-1103.19C599.71,-1101.01 581.99,-1095.61 571,-1083 499.9,-1001.43 597.24,-537.35 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.29,-1105.09C599.73,-1107.36 582.2,-1112.76 571,-1125 509.16,-1192.61 551.79,-1237.92 535,-1328 527.72,-1367.06 518.73,-1412.46 513.45,-1438.84"/>
+<polygon fill="#000000" stroke="#000000" points="509.97,-1438.42 511.44,-1448.91 516.83,-1439.79 509.97,-1438.42"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_io -->
 <g id="module~~swiftest_classes~~UsedByGraph_node6" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-1074 622.5,-1074 622.5,-1050 676.5,-1050 676.5,-1074"/>
+<text text-anchor="middle" x="649.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge9" class="edge">
-<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"/>
+<!-- module~s_io&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.39,-1061.92C605.25,-1060.4 583.73,-1055.43 571,-1041 440.05,-892.58 670.39,-485.42 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.42,-1062.1C605.29,-1063.64 583.77,-1068.61 571,-1083 534.47,-1124.15 544.28,-1273.76 535,-1328 528.3,-1367.16 519.12,-1412.53 513.66,-1438.88"/>
+<polygon fill="#000000" stroke="#000000" points="510.17,-1438.43 511.56,-1448.93 517.03,-1439.86 510.17,-1438.43"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~helio_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_node7" class="node">
-<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>
+<title>module~helio_classes</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="318.5,-1553 242.5,-1553 242.5,-1529 318.5,-1529 318.5,-1553"/>
+<text text-anchor="middle" x="280.5" y="-1538.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_rescale&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge10" class="edge">
-<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"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge2" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259,-1528.85C251.96,-1524.58 244.07,-1519.67 237,-1515 203.77,-1493.04 201.93,-1450.82 164,-1463"/>
 </g>
-<!-- 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"/>
+<!-- module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_node16" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node16"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="201,-1553 125,-1553 125,-1529 201,-1529 201,-1553"/>
+<text text-anchor="middle" x="163" y="-1538.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~s_util_version -->
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge62" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M242.32,-1541C232.43,-1541 221.61,-1541 211.26,-1541"/>
+<polygon fill="#000000" stroke="#000000" points="211.11,-1537.5 201.11,-1541 211.11,-1544.5 211.11,-1537.5"/>
+</g>
+<!-- module~symba_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_node8" class="node">
-<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>
+<title>module~symba_classes</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="445,-1553 360,-1553 360,-1529 445,-1529 445,-1553"/>
+<text text-anchor="middle" x="402.5" y="-1538.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge11" class="edge">
-<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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge5" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.36,-1528.9C312.05,-1505.42 184.2,-1456.51 164,-1463"/>
 </g>
-<!-- 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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge37" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.52,-1528.95C372.95,-1524.91 365.92,-1520.11 360,-1515 334.78,-1493.23 310.66,-1463.1 295.97,-1443.33"/>
+<polygon fill="#000000" stroke="#000000" points="298.64,-1441.06 289.91,-1435.05 292.99,-1445.19 298.64,-1441.06"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge46" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M359.87,-1541C349.81,-1541 339,-1541 328.71,-1541"/>
+<polygon fill="#000000" stroke="#000000" points="328.65,-1537.5 318.65,-1541 328.65,-1544.5 328.65,-1537.5"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_node74" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node74"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="319,-1595 242,-1595 242,-1571 319,-1571 319,-1595"/>
+<text text-anchor="middle" x="280.5" y="-1580.6" 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~~swiftest_classes~~UsedByGraph_edge142" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.11,-1553.04C354.18,-1557.56 339.3,-1562.77 325.61,-1567.56"/>
+<polygon fill="#000000" stroke="#000000" points="324.17,-1564.36 315.89,-1570.96 326.49,-1570.96 324.17,-1564.36"/>
+</g>
+<!-- module~s_util_append -->
 <g id="module~~swiftest_classes~~UsedByGraph_node9" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-1032 610,-1032 610,-1008 689,-1008 689,-1032"/>
+<text text-anchor="middle" x="649.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge11" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M609.61,-1018.08C595.55,-1015.4 580.76,-1009.91 571,-999 451.3,-865.29 655.33,-496.11 509,-600"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge96" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.84,-1021.69C595.65,-1024.33 580.69,-1029.85 571,-1041 528.84,-1089.52 545.17,-1264.53 535,-1328 528.71,-1367.23 519.41,-1412.58 513.8,-1438.9"/>
+<polygon fill="#000000" stroke="#000000" points="510.32,-1438.43 511.64,-1448.95 517.16,-1439.9 510.32,-1438.43"/>
+</g>
+<!-- module~s_util_fill -->
 <g id="module~~swiftest_classes~~UsedByGraph_node10" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-990 622.5,-990 622.5,-966 676.5,-966 676.5,-990"/>
+<text text-anchor="middle" x="649.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_fill&#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"/>
+<title>module~s_util_fill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.17,-977.76C605.16,-976.14 583.86,-971.12 571,-957 462.52,-837.97 640.31,-506.77 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge98" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.25,-977.95C605.05,-979.42 583.5,-984.38 571,-999 523.19,-1054.89 546.07,-1255.29 535,-1328 529.02,-1367.28 519.62,-1412.61 513.91,-1438.92"/>
+<polygon fill="#000000" stroke="#000000" points="510.43,-1438.44 511.71,-1448.96 517.27,-1439.94 510.43,-1438.44"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~swiftest_classes~~UsedByGraph_node11" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="698.5,-948 600.5,-948 600.5,-924 698.5,-924 698.5,-948"/>
+<text text-anchor="middle" x="649.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest_classes -->
+<!-- module~s_tides_step_spin&#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"/>
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M600.16,-931.56C589.28,-928.4 578.7,-923.26 571,-915 473.71,-810.62 625.35,-517.4 509,-600"/>
 </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"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge103" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.39,-939.7C589.24,-942.85 578.47,-948.16 571,-957 517.55,-1020.28 546.96,-1246.04 535,-1328 529.26,-1367.32 519.78,-1412.64 513.99,-1438.93"/>
+<polygon fill="#000000" stroke="#000000" points="510.51,-1438.44 511.76,-1448.96 517.35,-1439.96 510.51,-1438.44"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge3" class="edge">
-<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"/>
+<!-- module~s_obl -->
+<g id="module~~swiftest_classes~~UsedByGraph_node12" class="node">
+<title>module~s_obl</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-906 622.5,-906 622.5,-882 676.5,-882 676.5,-906"/>
+<text text-anchor="middle" x="649.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+</a>
 </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_node24" class="node">
-<title>module~helio_classes</title>
-<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>
+<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.4,-893.54C605.49,-891.83 584.22,-886.78 571,-873 484.85,-783.22 610.45,-527.97 509,-600"/>
+</g>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge104" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.15,-893.87C604.9,-895.29 583.34,-900.24 571,-915 511.89,-985.67 547.86,-1236.78 535,-1328 529.46,-1367.34 519.91,-1412.66 514.06,-1438.94"/>
+<polygon fill="#000000" stroke="#000000" points="510.58,-1438.44 511.8,-1448.97 517.41,-1439.98 510.58,-1438.44"/>
+</g>
+<!-- module~s_discard -->
+<g id="module~~swiftest_classes~~UsedByGraph_node13" class="node">
+<title>module~s_discard</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678.5,-864 620.5,-864 620.5,-840 678.5,-840 678.5,-864"/>
+<text text-anchor="middle" x="649.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M620.34,-851.12C603.89,-849.12 583.9,-843.93 571,-831 495.92,-755.74 595.68,-538.46 509,-600"/>
+</g>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
 <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,-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"/>
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M620.22,-852C603.29,-853.62 582.84,-858.73 571,-873 538.62,-912.03 541.88,-1277.75 535,-1328 529.61,-1367.36 520.02,-1412.67 514.11,-1438.95"/>
+<polygon fill="#000000" stroke="#000000" points="510.64,-1438.45 511.83,-1448.97 517.46,-1440 510.64,-1438.45"/>
 </g>
-<!-- module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_node34" class="node">
-<title>module~symba_classes</title>
-<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_edge112" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<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_node67" class="node">
-<title>module~rmvs_classes</title>
-<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_edge123" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<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_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_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_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>
-<!-- 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>
+<!-- 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="685.5,-822 613.5,-822 613.5,-798 685.5,-798 685.5,-822"/>
+<text text-anchor="middle" x="649.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge15" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge16" 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"/>
+<path fill="none" stroke="#000000" d="M613.27,-807.74C598.57,-805.11 582.33,-799.75 571,-789 506.87,-728.15 581.08,-548.82 509,-600"/>
 </g>
 <!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge60" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge106" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.15,-810.83C597.87,-813.13 581.2,-818.63 571,-831 535.79,-873.73 542.32,-1273.12 535,-1328 529.74,-1367.38 520.11,-1412.68 514.16,-1438.96"/>
+<polygon fill="#000000" stroke="#000000" points="510.68,-1438.45 511.86,-1448.98 517.51,-1440.01 510.68,-1438.45"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~drift_implementation -->
 <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>
-</g>
-<!-- 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_node16" class="node">
-<title>module~s_orbel</title>
-<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>
+<title>module~drift_implementation</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node15"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="704,-780 595,-780 595,-756 704,-756 704,-780"/>
+<text text-anchor="middle" x="649.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
 <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.44,-683.09C595.77,-681.16 574.75,-676.05 561,-663 496.87,-602.15 587.16,-467.49 499,-474"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M594.85,-760.33C586.18,-757.25 577.82,-752.96 571,-747 517.61,-700.34 566.82,-558.95 509,-600"/>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge107" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.61,-773.34C585.54,-776.6 577.1,-781.56 571,-789 532.96,-835.43 542.77,-1268.48 535,-1328 529.85,-1367.4 520.18,-1412.69 514.2,-1438.96"/>
+<polygon fill="#000000" stroke="#000000" points="510.72,-1438.45 511.88,-1448.98 517.54,-1440.03 510.72,-1438.45"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~whm_classes&#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="M126.1,-1528.98C115.02,-1525.27 102.68,-1521.14 91.05,-1517.25"/>
+<polygon fill="#000000" stroke="#000000" points="92.08,-1513.9 81.49,-1514.05 89.86,-1520.54 92.08,-1513.9"/>
+</g>
+<!-- module~s_gr -->
 <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>
+<title>module~s_gr</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-738 622.5,-738 622.5,-714 676.5,-714 676.5,-738"/>
+<text text-anchor="middle" x="649.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
+<!-- module~s_gr&#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"/>
+<title>module~s_gr&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.23,-723.9C606.09,-721.46 585.75,-716.24 571,-705 527.89,-672.16 553.19,-568.63 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge114" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.41,-725.74C605.04,-727.08 583.24,-731.98 571,-747 530.13,-797.13 543.22,-1263.85 535,-1328 529.95,-1367.41 520.25,-1412.7 514.23,-1438.96"/>
+<polygon fill="#000000" stroke="#000000" points="510.76,-1438.45 511.9,-1448.98 517.57,-1440.04 510.76,-1438.45"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_user_kick_getacch -->
 <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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="705.5,-696 593.5,-696 593.5,-672 705.5,-672 705.5,-696"/>
+<text text-anchor="middle" x="649.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
+<!-- module~s_user_kick_getacch&#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"/>
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M593.25,-672.93C585.51,-670.28 577.86,-667.01 571,-663 537.08,-643.17 541.03,-577.26 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge115" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M593.38,-689.73C584.76,-693 576.8,-697.86 571,-705 527.3,-758.83 543.67,-1259.21 535,-1328 530.03,-1367.42 520.3,-1412.71 514.26,-1438.97"/>
+<polygon fill="#000000" stroke="#000000" points="510.78,-1438.45 511.92,-1448.99 517.6,-1440.04 510.78,-1438.45"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_util_rescale -->
 <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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="688.5,-654 610.5,-654 610.5,-630 688.5,-630 688.5,-654"/>
+<text text-anchor="middle" x="649.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_rescale&#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"/>
+<title>module~s_util_rescale&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M610.13,-632.11C597.61,-628.74 583.67,-624.86 571,-621 543.17,-612.52 532.72,-583.16 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge116" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.24,-643.2C595.74,-645.73 580.47,-651.29 571,-663 524.46,-720.53 544.12,-1254.57 535,-1328 530.1,-1367.43 520.35,-1412.71 514.28,-1438.97"/>
+<polygon fill="#000000" stroke="#000000" points="510.81,-1438.45 511.93,-1448.99 517.62,-1440.05 510.81,-1438.45"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_util_get_energy_momentum -->
 <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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="728,-612 571,-612 571,-588 728,-588 728,-612"/>
+<text text-anchor="middle" x="649.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_get_energy_momentum&#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"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M605.88,-587.97C576.06,-582.22 536.75,-580.3 509,-600"/>
 </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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge117" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.76,-612.12C577.11,-614.59 573.8,-617.53 571,-621 521.63,-682.23 544.57,-1249.93 535,-1328 530.17,-1367.44 520.4,-1412.72 514.3,-1438.97"/>
+<polygon fill="#000000" stroke="#000000" points="510.83,-1438.45 511.95,-1448.99 517.65,-1440.06 510.83,-1438.45"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_kick -->
 <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>
+<title>module~s_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-570 622.5,-570 622.5,-546 676.5,-546 676.5,-570"/>
+<text text-anchor="middle" x="649.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
+<!-- module~s_kick&#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"/>
+<title>module~s_kick&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.4,-560.79C592.6,-565.06 543.54,-575.47 509,-600"/>
 </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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge118" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.34,-557.69C604.95,-559 583.14,-563.9 571,-579 518.8,-643.94 545.02,-1245.29 535,-1328 530.22,-1367.44 520.43,-1412.72 514.32,-1438.98"/>
+<polygon fill="#000000" stroke="#000000" points="510.85,-1438.45 511.96,-1448.99 517.66,-1440.06 510.85,-1438.45"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_util_index -->
 <g id="module~~swiftest_classes~~UsedByGraph_node22" class="node">
-<title>module~s_util_fill</title>
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684,-528 615,-528 615,-504 684,-504 684,-528"/>
+<text text-anchor="middle" x="649.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_index&#45;&gt;module~swiftest_classes -->
 <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.2,-438.69C597.14,-442.63 577.94,-447.84 561,-453 533.17,-461.48 528.01,-471.86 499,-474"/>
+<title>module~s_util_index&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M614.93,-521.06C600.7,-524.21 584.36,-529.19 571,-537 537.08,-556.83 541.03,-577.26 509,-600"/>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge120" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.98,-516.43C599.15,-518.52 581.46,-523.95 571,-537 515.96,-605.64 545.47,-1240.65 535,-1328 530.27,-1367.45 520.47,-1412.73 514.34,-1438.98"/>
+<polygon fill="#000000" stroke="#000000" points="510.87,-1438.45 511.97,-1448.99 517.68,-1440.07 510.87,-1438.45"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_util_valid -->
 <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>
+<title>module~s_util_valid</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="682,-486 617,-486 617,-462 682,-462 682,-486"/>
+<text text-anchor="middle" x="649.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_valid&#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_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"/>
+<title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M616.63,-477.04C601.57,-479.79 584.08,-485.03 571,-495 527.89,-527.84 553.19,-568.63 509,-600"/>
 </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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge121" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M616.94,-474.18C600.62,-476.07 581.88,-481.39 571,-495 513.13,-567.34 545.92,-1236 535,-1328 530.32,-1367.45 520.5,-1412.73 514.36,-1438.98"/>
+<polygon fill="#000000" stroke="#000000" points="510.89,-1438.45 511.98,-1448.99 517.7,-1440.07 510.89,-1438.45"/>
 </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>
+<!-- module~s_util_coord -->
+<g id="module~~swiftest_classes~~UsedByGraph_node24" class="node">
+<title>module~s_util_coord</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-444 614.5,-444 614.5,-420 684.5,-420 684.5,-444"/>
+<text text-anchor="middle" x="649.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_coord&#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"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M614.46,-434.56C599.64,-437.24 582.97,-442.54 571,-453 517.61,-499.66 566.82,-558.95 509,-600"/>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge87" class="edge">
-<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"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge123" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.16,-432.52C598.53,-434.68 581.26,-440.14 571,-453 540.65,-491.02 540.68,-1279.68 535,-1328 530.36,-1367.46 520.53,-1412.74 514.37,-1438.98"/>
+<polygon fill="#000000" stroke="#000000" points="510.9,-1438.45 511.99,-1448.99 517.71,-1440.08 510.9,-1438.45"/>
 </g>
-<!-- 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>
+<!-- module~s_util_set -->
+<g id="module~~swiftest_classes~~UsedByGraph_node25" class="node">
+<title>module~s_util_set</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678.5,-402 620.5,-402 620.5,-378 678.5,-378 678.5,-402"/>
+<text text-anchor="middle" x="649.5" y="-387.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~~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"/>
+<title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M620.21,-391.19C603.93,-393.31 584.15,-398.53 571,-411 506.87,-471.85 581.08,-548.82 509,-600"/>
 </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"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge124" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M620.4,-389.81C603.33,-391.32 582.64,-396.39 571,-411 539.23,-450.88 540.91,-1277.36 535,-1328 530.4,-1367.46 520.55,-1412.74 514.38,-1438.98"/>
+<polygon fill="#000000" stroke="#000000" points="510.91,-1438.45 511.99,-1448.99 517.72,-1440.08 510.91,-1438.45"/>
 </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>
+<!-- module~s_util_peri -->
+<g id="module~~swiftest_classes~~UsedByGraph_node26" class="node">
+<title>module~s_util_peri</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680,-360 619,-360 619,-336 680,-336 680,-360"/>
+<text text-anchor="middle" x="649.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge27" class="edge">
-<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"/>
+<title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M618.82,-349.08C602.67,-351.2 583.5,-356.47 571,-369 495.92,-444.26 595.68,-538.46 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge125" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.86,-347.95C602.09,-349.62 582.28,-354.82 571,-369 537.81,-410.73 541.13,-1275.04 535,-1328 530.43,-1367.47 520.57,-1412.74 514.4,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.92,-1438.46 512,-1449 517.73,-1440.09 510.92,-1438.46"/>
 </g>
-<!-- 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>
+<!-- module~s_util_minimize_bfgs -->
+<g id="module~~swiftest_classes~~UsedByGraph_node27" class="node">
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="705.5,-318 593.5,-318 593.5,-294 705.5,-294 705.5,-318"/>
+<text text-anchor="middle" x="649.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge28" class="edge">
-<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"/>
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M593.14,-313.01C584.86,-316.17 577.08,-320.66 571,-327 484.85,-416.78 610.45,-527.97 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge126" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M593.25,-311.63C584.64,-314.91 576.72,-319.79 571,-327 536.4,-370.58 541.36,-1272.72 535,-1328 530.46,-1367.47 520.6,-1412.74 514.41,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.94,-1438.46 512.01,-1449 517.74,-1440.09 510.94,-1438.46"/>
 </g>
-<!-- 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>
+<!-- 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="M279.5,-1463C228.82,-1471.19 212.79,-1447.04 164,-1463"/>
 </g>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge36" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.86,-1459.4C459.81,-1458.62 429.56,-1458.63 403.5,-1463"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.5,-1463C368.61,-1468.51 332.52,-1453.41 308.6,-1440.21"/>
+<polygon fill="#000000" stroke="#000000" points="310.16,-1437.07 299.75,-1435.11 306.66,-1443.14 310.16,-1437.07"/>
 </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"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge45" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.5,-1463C360.69,-1469.84 322.19,-1500.79 300.27,-1521.59"/>
+<polygon fill="#000000" stroke="#000000" points="297.67,-1519.23 292.97,-1528.73 302.56,-1524.24 297.67,-1519.23"/>
 </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"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge52" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.28,-1473.15C474.24,-1486.32 446.84,-1507.5 427.19,-1522.69"/>
+<polygon fill="#000000" stroke="#000000" points="424.8,-1520.11 419.03,-1529 429.08,-1525.65 424.8,-1520.11"/>
 </g>
-<!-- module~s_user_kick_getacch -->
-<g id="module~~swiftest_classes~~UsedByGraph_node30" class="node">
-<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_user_kick_getacch</text>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge63" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.5,-1463C348.9,-1471.81 334.15,-1454.49 281.5,-1463"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.5,-1463C239.68,-1469.44 202.74,-1500.56 181.82,-1521.5"/>
+<polygon fill="#000000" stroke="#000000" points="179.05,-1519.33 174.61,-1528.95 184.08,-1524.2 179.05,-1519.33"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge141" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.5,-1463C346.39,-1472.24 367.35,-1526.74 324,-1562 322.47,-1563.25 320.85,-1564.44 319.17,-1565.59"/>
+<polygon fill="#000000" stroke="#000000" points="317.19,-1562.7 310.46,-1570.89 320.83,-1568.68 317.19,-1562.7"/>
+</g>
+<!-- module~s_util_spill -->
+<g id="module~~swiftest_classes~~UsedByGraph_node29" class="node">
+<title>module~s_util_spill</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680,-276 619,-276 619,-252 680,-252 680,-276"/>
+<text text-anchor="middle" x="649.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M618.87,-264.71C602.54,-266.7 583.17,-271.95 571,-285 473.71,-389.38 625.35,-517.4 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge130" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.84,-263.93C602.07,-265.61 582.26,-270.8 571,-285 534.98,-330.43 541.58,-1270.4 535,-1328 530.49,-1367.47 520.62,-1412.75 514.42,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.95,-1438.46 512.01,-1449 517.75,-1440.09 510.95,-1438.46"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- proc~xv2el -->
+<g id="module~~swiftest_classes~~UsedByGraph_node30" class="node">
+<title>proc~xv2el</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node30"><a xlink:href=".././proc/xv2el.html" xlink:title="xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="190,-1435 136,-1435 136,-1411 190,-1411 190,-1435"/>
+<text text-anchor="middle" x="163" y="-1420.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xv2el</text>
+</a>
+</g>
+</g>
+<!-- proc~xv2el&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge6" class="edge">
+<title>proc~xv2el&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.05,-1435.17C124.75,-1448.26 93.88,-1469.19 71.83,-1484.14"/>
+<polygon fill="#000000" stroke="#000000" points="69.59,-1481.44 63.28,-1489.95 73.52,-1487.23 69.59,-1481.44"/>
+</g>
+<!-- module~s_util_copy -->
 <g id="module~~swiftest_classes~~UsedByGraph_node31" class="node">
-<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>
+<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="682.5,-234 616.5,-234 616.5,-210 682.5,-210 682.5,-234"/>
+<text text-anchor="middle" x="649.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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="M616.44,-222.91C600.59,-225.07 582.46,-230.43 571,-243 462.52,-362.03 640.31,-506.77 509,-600"/>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge97" class="edge">
-<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"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge132" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M616.49,-222.18C600.25,-224.1 581.73,-229.45 571,-243 533.56,-290.29 541.81,-1268.07 535,-1328 530.52,-1367.48 520.63,-1412.75 514.43,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.95,-1438.46 512.02,-1449 517.76,-1440.09 510.95,-1438.46"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_orbel -->
 <g id="module~~swiftest_classes~~UsedByGraph_node32" class="node">
-<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>
+<title>module~s_orbel</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-192 622.5,-192 622.5,-168 676.5,-168 676.5,-192"/>
+<text text-anchor="middle" x="649.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.46,-180.14C605.35,-181.68 583.83,-186.67 571,-201 451.3,-334.71 655.33,-496.11 509,-600"/>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge100" class="edge">
-<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"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge133" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.26,-179.63C604.83,-180.92 583.02,-185.8 571,-201 532.15,-250.14 542.03,-1265.75 535,-1328 530.54,-1367.48 520.65,-1412.75 514.43,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.96,-1438.46 512.02,-1449 517.77,-1440.1 510.96,-1438.46"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~swiftest_classes~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="706.5,-150 592.5,-150 592.5,-126 706.5,-126 706.5,-150"/>
+<text text-anchor="middle" x="649.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M592.29,-144.74C584.21,-147.95 576.72,-152.52 571,-159 440.05,-307.42 670.39,-485.42 509,-600"/>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge103" class="edge">
-<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"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge134" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M592.44,-143.9C584.14,-147.19 576.53,-152 571,-159 530.73,-209.99 542.26,-1263.43 535,-1328 530.56,-1367.48 520.67,-1412.75 514.44,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.97,-1438.46 512.03,-1449 517.78,-1440.1 510.97,-1438.46"/>
 </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"/>
+<!-- module~s_setup -->
+<g id="module~~swiftest_classes~~UsedByGraph_node34" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676.5,-108 622.5,-108 622.5,-84 676.5,-84 676.5,-108"/>
+<text text-anchor="middle" x="649.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M622.34,-96.03C605.17,-97.53 583.64,-102.5 571,-117 499.9,-198.57 597.24,-537.35 509,-600"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge137" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.25,-95.62C604.82,-96.9 583,-101.79 571,-117 529.31,-169.84 542.48,-1261.11 535,-1328 530.58,-1367.49 520.68,-1412.75 514.45,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.98,-1438.46 512.03,-1449 517.78,-1440.1 510.98,-1438.46"/>
+</g>
+<!-- module~s_util_sort -->
 <g id="module~~swiftest_classes~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_util_sort</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680,-66 619,-66 619,-42 680,-42 680,-66"/>
+<text text-anchor="middle" x="649.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M618.88,-54.32C602.33,-56.16 582.75,-61.38 571,-75 494.26,-163.95 604.79,-531.99 509,-600"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge138" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.81,-53.91C602.03,-55.57 582.22,-60.77 571,-75 527.89,-129.7 542.71,-1258.79 535,-1328 530.6,-1367.49 520.69,-1412.75 514.46,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.99,-1438.46 512.04,-1449 517.79,-1440.1 510.99,-1438.46"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_util_version -->
 <g id="module~~swiftest_classes~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_util_version</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="688.5,-24 610.5,-24 610.5,0 688.5,0 688.5,-24"/>
+<text text-anchor="middle" x="649.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M610.15,-13.54C595.82,-16.14 580.69,-21.66 571,-33 488.62,-129.33 612.35,-526.62 509,-600"/>
+<path fill="none" stroke="#000000" d="M162,-1463C138.44,-1470.71 112.27,-1479.45 90.71,-1486.71"/>
+<polygon fill="#000000" stroke="#000000" points="89.51,-1483.42 81.15,-1489.92 91.74,-1490.05 89.51,-1483.42"/>
+<path fill="none" stroke="#000000" d="M507,-600C181.66,-830.99 464.73,-1144.58 201,-1444 188.78,-1457.87 181.57,-1457.25 164,-1463"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge139" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.48,-13.01C595.84,-15.48 580.4,-21.06 571,-33 526.48,-89.55 542.93,-1256.47 535,-1328 530.62,-1367.49 520.71,-1412.76 514.46,-1438.99"/>
+<polygon fill="#000000" stroke="#000000" points="510.99,-1438.46 512.04,-1449 517.8,-1440.1 510.99,-1438.46"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_symba_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_symba_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-2040 610,-2040 610,-2016 689,-2016 689,-2040"/>
+<text text-anchor="middle" x="649.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M609.73,-2024.5C596.19,-2021.59 581.71,-2016.36 571,-2007 517.61,-1960.34 566.47,-1901.53 509,-1860"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.77,-2026.37C595.57,-2023.74 580.63,-2018.21 571,-2007 536.32,-1966.62 514.99,-1581.73 510.09,-1483.65"/>
+<polygon fill="#000000" stroke="#000000" points="513.57,-1483.21 509.58,-1473.39 506.58,-1483.55 513.57,-1483.21"/>
 </g>
 <!-- module~s_symba_drift -->
 <g id="module~~swiftest_classes~~UsedByGraph_node38" class="node">
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-1998 610,-1998 610,-1974 689,-1974 689,-1998"/>
+<text text-anchor="middle" x="649.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- 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_drift&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge118" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge54" 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"/>
+<path fill="none" stroke="#000000" d="M609.99,-1981.61C596.63,-1978.6 582.2,-1973.53 571,-1965 527.89,-1932.16 552.93,-1891.74 509,-1860"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.83,-1984.32C595.63,-1981.68 580.68,-1976.16 571,-1965 538.95,-1928.04 515.87,-1576.24 510.3,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="513.79,-1483.16 509.7,-1473.38 506.8,-1483.57 513.79,-1483.16"/>
+</g>
+<!-- proc~ge_wpp -->
 <g id="module~~swiftest_classes~~UsedByGraph_node39" class="node">
-<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>
+<title>proc~ge_wpp</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node39"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="676.5,-1620 622.5,-1620 622.5,-1596 676.5,-1596 676.5,-1620"/>
+<text text-anchor="middle" x="649.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge74" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.2,-1606.91C605.63,-1604.9 584.83,-1599.76 571,-1587 536.27,-1554.98 560.31,-1526.88 535,-1487 533.62,-1484.83 532.04,-1482.7 530.34,-1480.65"/>
+<polygon fill="#000000" stroke="#000000" points="532.83,-1478.19 523.47,-1473.23 527.7,-1482.95 532.83,-1478.19"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_whm_util -->
 <g id="module~~swiftest_classes~~UsedByGraph_node40" class="node">
-<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>
+<title>module~s_whm_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="682.5,-2838 616.5,-2838 616.5,-2814 682.5,-2814 682.5,-2838"/>
+<text text-anchor="middle" x="649.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_whm_util&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M616.24,-2822.89C601.28,-2820.12 583.97,-2814.88 571,-2805 527.89,-2772.16 560.73,-2716.15 509,-2700"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M616.12,-2825.75C599.98,-2823.79 581.67,-2818.42 571,-2805 537.81,-2763.27 537.8,-1899.24 535,-1846 527.75,-1708.04 515.31,-1542.53 510.75,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.23,-1482.99 509.96,-1473.29 507.25,-1483.53 514.23,-1482.99"/>
+</g>
+<!-- module~s_helio_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node41" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-2250 610,-2250 610,-2226 689,-2226 689,-2250"/>
+<text text-anchor="middle" x="649.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_setup&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M609.85,-2231.75C596.92,-2228.59 582.79,-2223.89 571,-2217 537.08,-2197.17 541.47,-2176.11 509,-2154"/>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610,-2236.59C595.64,-2234.02 580.54,-2228.47 571,-2217 558.93,-2202.49 518.73,-1607.24 510.48,-1483.42"/>
+<polygon fill="#000000" stroke="#000000" points="513.96,-1482.98 509.81,-1473.23 506.98,-1483.44 513.96,-1482.98"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_whm_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node42" class="node">
-<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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-2796 610,-2796 610,-2772 689,-2772 689,-2796"/>
+<text text-anchor="middle" x="649.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M609.85,-2777.75C596.92,-2774.59 582.79,-2769.89 571,-2763 537.08,-2743.17 546.5,-2711.71 509,-2700"/>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.74,-2782.8C595.36,-2780.25 580.29,-2774.67 571,-2763 539.23,-2723.12 537.72,-1896.91 535,-1846 527.64,-1708.05 515.27,-1542.54 510.73,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.21,-1482.99 509.96,-1473.29 507.23,-1483.53 514.21,-1482.99"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_rmvs_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node43" class="node">
-<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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="686,-2544 613,-2544 613,-2520 686,-2520 686,-2544"/>
+<text text-anchor="middle" x="649.5" y="-2529.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 -->
-<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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge129" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.64,-2531.19C597.46,-2528.87 580.99,-2523.36 571,-2511 524.46,-2453.47 539.49,-1919.86 535,-1846 526.61,-1708.11 514.87,-1542.56 510.62,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="514.1,-1483.02 509.89,-1473.3 507.12,-1483.52 514.1,-1483.02"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge144" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M612.75,-2528.21C598.64,-2525.29 582.98,-2520.12 571,-2511 527.89,-2478.16 557.8,-2429.58 509,-2406"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~swiftest_classes~~UsedByGraph_node44" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="721,-1956 578,-1956 578,-1932 721,-1932 721,-1956"/>
+<text text-anchor="middle" x="649.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M590.4,-1931.92C583.64,-1929.46 577.02,-1926.52 571,-1923 537.08,-1903.17 540.84,-1883.01 509,-1860"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.43,-1931.83C577.57,-1929.38 574.03,-1926.46 571,-1923 512.6,-1856.39 508.74,-1565.8 508.85,-1483.06"/>
+<polygon fill="#000000" stroke="#000000" points="512.35,-1483.02 508.89,-1473.01 505.35,-1483 512.35,-1483.02"/>
+</g>
+<!-- module~s_helio_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node45" class="node">
-<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>
+<title>module~s_helio_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="686,-2208 613,-2208 613,-2184 686,-2184 686,-2208"/>
+<text text-anchor="middle" x="649.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M612.98,-2191.4C583.15,-2186.18 540.46,-2175.43 509,-2154"/>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.83,-2195.04C597.68,-2192.69 581.19,-2187.19 571,-2175 559.6,-2161.36 519.11,-1602.62 510.58,-1483.28"/>
+<polygon fill="#000000" stroke="#000000" points="514.06,-1482.86 509.86,-1473.14 507.08,-1483.36 514.06,-1482.86"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_symba_collision -->
 <g id="module~~swiftest_classes~~UsedByGraph_node46" class="node">
-<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>
+<title>module~s_symba_collision</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="699,-1914 600,-1914 600,-1890 699,-1890 699,-1914"/>
+<text text-anchor="middle" x="649.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M599.75,-1895.49C571.21,-1889.79 535.65,-1879.26 509,-1860"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge85" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.88,-1897.81C589.01,-1894.64 578.5,-1889.44 571,-1881 517.93,-1821.26 510.28,-1561.4 509.18,-1483.29"/>
+<polygon fill="#000000" stroke="#000000" points="512.68,-1483.09 509.06,-1473.13 505.68,-1483.17 512.68,-1483.09"/>
+</g>
+<!-- module~s_symba_util -->
 <g id="module~~swiftest_classes~~UsedByGraph_node47" class="node">
-<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>
+<title>module~s_symba_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="687,-1872 612,-1872 612,-1848 687,-1848 687,-1872"/>
+<text text-anchor="middle" x="649.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M611.7,-1870.94C581.28,-1877.62 538.45,-1881.28 509,-1860"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.66,-1858.41C597.03,-1855.86 581.28,-1850.38 571,-1839 523.2,-1786.05 511.97,-1556.41 509.59,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="513.08,-1482.95 509.28,-1473.06 506.08,-1483.16 513.08,-1482.95"/>
+</g>
+<!-- module~orbel -->
 <g id="module~~swiftest_classes~~UsedByGraph_node48" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node48"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="676.5,-1578 622.5,-1578 622.5,-1554 676.5,-1554 676.5,-1578"/>
+<text text-anchor="middle" x="649.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge83" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.32,-1563.78C606.21,-1561.31 585.87,-1556.07 571,-1545 546.66,-1526.88 553.85,-1510.77 535,-1487 533.33,-1484.9 531.52,-1482.79 529.64,-1480.73"/>
+<polygon fill="#000000" stroke="#000000" points="531.78,-1477.9 522.31,-1473.15 526.74,-1482.77 531.78,-1477.9"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~swiftest_classes~~UsedByGraph_node49" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-2502 614.5,-2502 614.5,-2478 684.5,-2478 684.5,-2502"/>
+<text text-anchor="middle" x="649.5" y="-2487.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~~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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge122" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.26,-2489.4C598.64,-2487.23 581.37,-2481.77 571,-2469 527.3,-2415.17 539.34,-1915.2 535,-1846 526.36,-1708.13 514.77,-1542.56 510.59,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="514.07,-1483.03 509.87,-1473.3 507.09,-1483.52 514.07,-1483.03"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge145" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M614.16,-2484.76C600.11,-2481.61 584.12,-2476.67 571,-2469 537.08,-2449.17 544.37,-2423.09 509,-2406"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_helio_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node50" class="node">
-<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>
+<title>module~s_helio_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-2166 614.5,-2166 614.5,-2142 684.5,-2142 684.5,-2166"/>
+<text text-anchor="middle" x="649.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge49" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M614.39,-2164C584.05,-2170.73 539.83,-2174.99 509,-2154"/>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge87" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.45,-2153.25C598.88,-2151.04 581.59,-2145.59 571,-2133 549.56,-2107.5 517.28,-1596.89 510.34,-1483.27"/>
+<polygon fill="#000000" stroke="#000000" points="513.82,-1482.78 509.72,-1473.01 506.83,-1483.2 513.82,-1482.78"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_symba_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node51" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="690.5,-1830 608.5,-1830 608.5,-1806 690.5,-1806 690.5,-1830"/>
+<text text-anchor="middle" x="649.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M608.14,-1828.43C596.14,-1831.66 583,-1835.35 571,-1839 543.17,-1847.48 532.58,-1877.04 509,-1860"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge88" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.16,-1815.62C594.61,-1812.81 580.54,-1807.36 571,-1797 528.45,-1750.81 513.87,-1551.15 510.1,-1483.51"/>
+<polygon fill="#000000" stroke="#000000" points="513.58,-1482.95 509.55,-1473.15 506.59,-1483.32 513.58,-1482.95"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_helio_gr -->
 <g id="module~~swiftest_classes~~UsedByGraph_node52" class="node">
-<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>
+<title>module~s_helio_gr</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680.5,-2124 618.5,-2124 618.5,-2100 680.5,-2100 680.5,-2124"/>
+<text text-anchor="middle" x="649.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M618.2,-2119.75C603.83,-2123.54 586.47,-2128.29 571,-2133 543.17,-2141.48 533.05,-2170.38 509,-2154"/>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge90" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.39,-2111.72C601.9,-2109.87 582.52,-2104.62 571,-2091 550.9,-2067.25 517.84,-1592.42 510.48,-1483.24"/>
+<polygon fill="#000000" stroke="#000000" points="513.96,-1482.81 509.8,-1473.06 506.98,-1483.28 513.96,-1482.81"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_symba_discard -->
 <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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="697.5,-1788 601.5,-1788 601.5,-1764 697.5,-1764 697.5,-1788"/>
+<text text-anchor="middle" x="649.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</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"/>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M601.41,-1784.5C590.97,-1787.52 580.27,-1791.58 571,-1797 537.08,-1816.83 540.84,-1883.01 509,-1860"/>
 </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"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge91" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.45,-1771.83C590.15,-1768.7 579.04,-1763.51 571,-1755 533.65,-1715.47 516.01,-1545.28 510.75,-1483.51"/>
+<polygon fill="#000000" stroke="#000000" points="514.22,-1482.97 509.91,-1473.29 507.24,-1483.54 514.22,-1482.97"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_whm_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node54" class="node">
-<title>module~s_symba_io</title>
-<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>
+<title>module~s_whm_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="686,-2754 613,-2754 613,-2730 686,-2730 686,-2754"/>
+<text text-anchor="middle" x="649.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M612.87,-2732.84C599.67,-2729.32 584.6,-2725.14 571,-2721 543.17,-2712.52 536.77,-2708.67 509,-2700"/>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<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.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"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge89" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.97,-2741.31C597.66,-2739.04 581,-2733.53 571,-2721 540.65,-2682.98 537.64,-1894.58 535,-1846 527.51,-1708.06 515.21,-1542.54 510.72,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.2,-1483 509.95,-1473.29 507.22,-1483.53 514.2,-1483"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~swiftest_classes~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="693.5,-2460 605.5,-2460 605.5,-2436 693.5,-2436 693.5,-2460"/>
+<text text-anchor="middle" x="649.5" y="-2445.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~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"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge92" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.43,-2445.8C592.47,-2442.92 579.46,-2437.37 571,-2427 530.13,-2376.87 539.18,-1910.54 535,-1846 526.07,-1708.14 514.66,-1542.57 510.56,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="514.04,-1483.03 509.86,-1473.3 507.06,-1483.52 514.04,-1483.03"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge146" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M605.38,-2438.75C577.13,-2431.8 539.86,-2420.91 509,-2406"/>
 </g>
 <!-- module~whm_drift -->
 <g id="module~~swiftest_classes~~UsedByGraph_node56" class="node">
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-2712 620,-2712 620,-2688 679,-2688 679,-2712"/>
+<text text-anchor="middle" x="649.5" y="-2697.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~~swiftest_classes~~UsedByGraph_edge37" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge70" 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"/>
+<path fill="none" stroke="#000000" d="M619.97,-2704.87C591.23,-2708.66 545.99,-2711.55 509,-2700"/>
 </g>
 <!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge85" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge93" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.66,-2700.11C602.74,-2698.5 582.49,-2693.37 571,-2679 542.07,-2642.83 537.56,-1892.25 535,-1846 527.36,-1708.07 515.16,-1542.54 510.7,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.18,-1483 509.94,-1473.29 507.2,-1483.53 514.18,-1483"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~s_rmvs_util -->
 <g id="module~~swiftest_classes~~UsedByGraph_node57" class="node">
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="683,-2418 616,-2418 616,-2394 683,-2394 683,-2418"/>
+<text text-anchor="middle" x="649.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge94" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.89,-2405.58C599.89,-2403.54 581.78,-2398.15 571,-2385 532.96,-2338.57 539.02,-1905.89 535,-1846 525.74,-1708.17 514.53,-1542.58 510.52,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="514,-1483.04 509.83,-1473.3 507.02,-1483.51 514,-1483.04"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge147" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M615.99,-2413.68C586.53,-2418.91 542.69,-2422.28 509,-2406"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_fraggle_io -->
 <g id="module~~swiftest_classes~~UsedByGraph_node58" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="685,-1662 614,-1662 614,-1638 685,-1638 685,-1662"/>
+<text text-anchor="middle" x="649.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M613.68,-1644.06C599.87,-1640.82 584.17,-1636.01 571,-1629 505.63,-1594.22 506.5,-1561.24 445,-1520 409.84,-1496.42 396.41,-1498.6 360,-1477 341.33,-1465.92 321.17,-1452.01 305.96,-1441.08"/>
+<polygon fill="#000000" stroke="#000000" points="307.77,-1438.07 297.62,-1435.04 303.66,-1443.74 307.77,-1438.07"/>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge95" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.71,-1648.24C598.73,-1645.73 582.15,-1640.33 571,-1629 525.34,-1582.59 567.17,-1543.6 535,-1487 533.73,-1484.77 532.22,-1482.59 530.57,-1480.51"/>
+<polygon fill="#000000" stroke="#000000" points="533.09,-1478.09 523.77,-1473.05 527.92,-1482.8 533.09,-1478.09"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_rmvs_io -->
 <g id="module~~swiftest_classes~~UsedByGraph_node59" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680,-2376 619,-2376 619,-2352 680,-2352 680,-2376"/>
+<text text-anchor="middle" x="649.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge99" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.64,-2363.88C602.01,-2362.11 582.42,-2356.89 571,-2343 569.23,-2340.85 519.86,-1619.87 510.52,-1483.21"/>
+<polygon fill="#000000" stroke="#000000" points="514,-1482.84 509.83,-1473.1 507.02,-1483.32 514,-1482.84"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge148" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M618.94,-2371.55C604.43,-2375.37 586.74,-2380.21 571,-2385 543.17,-2393.48 535.2,-2418.66 509,-2406"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node60" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="685,-2334 614,-2334 614,-2310 685,-2310 685,-2334"/>
+<text text-anchor="middle" x="649.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge97" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.95,-2321.28C598.46,-2319.05 581.38,-2313.58 571,-2301 564.28,-2292.86 519.2,-1615.36 510.46,-1483.21"/>
+<polygon fill="#000000" stroke="#000000" points="513.95,-1482.82 509.79,-1473.07 506.96,-1483.28 513.95,-1482.82"/>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge149" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M613.77,-2327.32C599.82,-2330.48 584,-2335.4 571,-2343 537.08,-2362.83 544.37,-2423.09 509,-2406"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_fraggle_placeholder -->
 <g id="module~~swiftest_classes~~UsedByGraph_node61" class="node">
-<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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="708.5,-1410 590.5,-1410 590.5,-1386 708.5,-1386 708.5,-1410"/>
+<text text-anchor="middle" x="649.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M590.4,-1385.92C583.64,-1383.46 577.02,-1380.52 571,-1377 537.08,-1357.17 548.18,-1311.11 509,-1314"/>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge100" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.73,-1410.08C586.62,-1412.61 578.48,-1415.57 571,-1419 557.25,-1425.31 543.19,-1434.55 531.95,-1442.77"/>
+<polygon fill="#000000" stroke="#000000" points="529.84,-1439.98 523.95,-1448.78 534.04,-1445.57 529.84,-1439.98"/>
 </g>
 <!-- module~s_rmvs_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node62" class="node">
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-2292 610,-2292 610,-2268 689,-2268 689,-2292"/>
+<text text-anchor="middle" x="649.5" y="-2277.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~~swiftest_classes~~UsedByGraph_edge98" class="edge">
+<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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.97,-2278.61C595.62,-2276.04 580.52,-2270.49 571,-2259 564.62,-2251.3 519.54,-1611.64 510.56,-1483.28"/>
+<polygon fill="#000000" stroke="#000000" points="514.03,-1482.82 509.84,-1473.09 507.05,-1483.31 514.03,-1482.82"/>
 </g>
 <!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge128" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge143" 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"/>
+<path fill="none" stroke="#000000" d="M507,-2406C336.06,-2406 290.06,-1737.2 282.66,-1605.4"/>
+<polygon fill="#000000" stroke="#000000" points="286.14,-1605.07 282.11,-1595.27 279.16,-1605.45 286.14,-1605.07"/>
+<path fill="none" stroke="#000000" d="M609.99,-2284.39C596.63,-2287.4 582.2,-2292.47 571,-2301 527.89,-2333.84 557.8,-2429.58 509,-2406"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_whm_gr -->
 <g id="module~~swiftest_classes~~UsedByGraph_node63" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680.5,-2670 618.5,-2670 618.5,-2646 680.5,-2646 680.5,-2670"/>
+<text text-anchor="middle" x="649.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M618.2,-2665.75C603.83,-2669.54 586.47,-2674.29 571,-2679 543.17,-2687.48 536.77,-2708.67 509,-2700"/>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge102" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.12,-2657.94C601.54,-2656.17 582.16,-2650.92 571,-2637 543.48,-2602.68 537.48,-1889.92 535,-1846 527.21,-1708.07 515.1,-1542.54 510.68,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.17,-1483 509.93,-1473.29 507.19,-1483.53 514.17,-1483"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~swiftest_classes~~UsedByGraph_node64" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="702.5,-1368 596.5,-1368 596.5,-1344 702.5,-1344 702.5,-1368"/>
+<text text-anchor="middle" x="649.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_generate&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M602.06,-1343.92C591.79,-1341.11 581,-1338.05 571,-1335 543.17,-1326.52 538.01,-1311.86 509,-1314"/>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge108" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M596.35,-1364.95C587.42,-1367.9 578.59,-1371.81 571,-1377 547.58,-1393.02 529.62,-1420.86 519.2,-1440.07"/>
+<polygon fill="#000000" stroke="#000000" points="516.08,-1438.48 514.57,-1448.97 522.29,-1441.71 516.08,-1438.48"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_symba_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node65" class="node">
-<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>
+<title>module~s_symba_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="693.5,-1746 605.5,-1746 605.5,-1722 693.5,-1722 693.5,-1746"/>
+<text text-anchor="middle" x="649.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M605.19,-1739.55C593.24,-1742.65 580.87,-1747.48 571,-1755 527.89,-1787.84 552.93,-1891.74 509,-1860"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge110" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.27,-1730.58C592.76,-1727.58 580.06,-1722.27 571,-1713 538.75,-1679.98 518.41,-1538.4 511.57,-1483.18"/>
+<polygon fill="#000000" stroke="#000000" points="515.02,-1482.57 510.35,-1473.06 508.07,-1483.41 515.02,-1482.57"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_operator_cross -->
 <g id="module~~swiftest_classes~~UsedByGraph_node66" class="node">
-<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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="697.5,-1536 601.5,-1536 601.5,-1512 697.5,-1512 697.5,-1536"/>
+<text text-anchor="middle" x="649.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge109" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.31,-1513.89C591.09,-1510.97 580.5,-1507.36 571,-1503 557.25,-1496.69 543.19,-1487.45 531.95,-1479.23"/>
+<polygon fill="#000000" stroke="#000000" points="534.04,-1476.43 523.95,-1473.22 529.84,-1482.02 534.04,-1476.43"/>
 </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.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"/>
+<!-- proc~solve_wbs -->
+<g id="module~~swiftest_classes~~UsedByGraph_node67" class="node">
+<title>proc~solve_wbs</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node67"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="680.5,-1494 618.5,-1494 618.5,-1470 680.5,-1470 680.5,-1494"/>
+<text text-anchor="middle" x="649.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+</a>
 </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>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge111" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.23,-1477.44C596.83,-1474.22 568.03,-1469.89 545.38,-1466.48"/>
+<polygon fill="#000000" stroke="#000000" points="545.86,-1463.01 535.45,-1464.98 544.82,-1469.93 545.86,-1463.01"/>
+</g>
+<!-- module~s_fraggle_setup -->
+<g id="module~~swiftest_classes~~UsedByGraph_node68" class="node">
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="694,-1326 605,-1326 605,-1302 694,-1302 694,-1326"/>
+<text text-anchor="middle" x="649.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
+</a>
 </g>
-</svg>
-</div><script>var panmoduleswiftest_classesUsedByGraph = svgPanZoom('#moduleswiftest_classesUsedByGraph', {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 -->
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M604.77,-1312.35C577.25,-1311.72 541,-1311.64 509,-1314"/>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge112" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.81,-1319.08C592.86,-1322.17 580.58,-1327.11 571,-1335 538.13,-1362.08 521.25,-1410.87 513.84,-1439.13"/>
+<polygon fill="#000000" stroke="#000000" points="510.44,-1438.33 511.45,-1448.87 517.24,-1439.99 510.44,-1438.33"/>
+</g>
+<!-- program~swiftest_driver -->
+<g id="module~~swiftest_classes~~UsedByGraph_node69" class="node">
+<title>program~swiftest_driver</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node69"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="690,-1452 609,-1452 609,-1428 690,-1428 690,-1452"/>
+<text text-anchor="middle" x="649.5" y="-1437.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~~swiftest_classes~~UsedByGraph_edge113" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.9,-1445.96C588.82,-1448.98 564.62,-1452.63 545.07,-1455.57"/>
+<polygon fill="#000000" stroke="#000000" points="544.4,-1452.13 535.03,-1457.08 545.44,-1459.05 544.4,-1452.13"/>
+</g>
+<!-- module~s_whm_coord -->
+<g id="module~~swiftest_classes~~UsedByGraph_node70" class="node">
+<title>module~s_whm_coord</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-2628 610,-2628 610,-2604 689,-2604 689,-2628"/>
+<text text-anchor="middle" x="649.5" y="-2613.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~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M609.85,-2622.25C596.92,-2625.41 582.79,-2630.11 571,-2637 537.08,-2656.83 546.5,-2711.71 509,-2700"/>
+</g>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge119" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.8,-2614.75C595.42,-2612.2 580.35,-2606.63 571,-2595 544.9,-2562.53 537.4,-1887.59 535,-1846 527.03,-1708.08 515.03,-1542.55 510.66,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.15,-1483.01 509.92,-1473.29 507.17,-1483.53 514.15,-1483.01"/>
+</g>
+<!-- module~s_helio_drift -->
+<g id="module~~swiftest_classes~~UsedByGraph_node71" class="node">
+<title>module~s_helio_drift</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-2082 614.5,-2082 614.5,-2058 684.5,-2058 684.5,-2082"/>
+<text text-anchor="middle" x="649.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M507,-2154C231.6,-2154 502.64,-1771.6 324,-1562 323.16,-1561.01 322.26,-1560.07 321.32,-1559.16"/>
+<polygon fill="#000000" stroke="#000000" points="323.37,-1556.33 313.31,-1553 319.1,-1561.88 323.37,-1556.33"/>
+<path fill="none" stroke="#000000" d="M614.16,-2075.24C600.11,-2078.39 584.12,-2083.33 571,-2091 537.08,-2110.83 541.47,-2176.11 509,-2154"/>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge127" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.12,-2069.13C598.67,-2066.87 581.58,-2061.42 571,-2049 552.23,-2026.97 518.41,-1587.39 510.63,-1483.07"/>
+<polygon fill="#000000" stroke="#000000" points="514.11,-1482.75 509.88,-1473.04 507.13,-1483.27 514.11,-1482.75"/>
+</g>
+<!-- module~s_whm_kick -->
+<g id="module~~swiftest_classes~~UsedByGraph_node72" class="node">
+<title>module~s_whm_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node72"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-2586 614.5,-2586 614.5,-2562 684.5,-2562 684.5,-2586"/>
+<text text-anchor="middle" x="649.5" y="-2571.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~~swiftest_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M507,-2700C260.58,-2700 177.61,-1724.49 165.59,-1563.4"/>
+<polygon fill="#000000" stroke="#000000" points="169.07,-1562.95 164.84,-1553.23 162.08,-1563.46 169.07,-1562.95"/>
+<path fill="none" stroke="#000000" d="M614.31,-2577.48C599.81,-2580.34 583.42,-2585.54 571,-2595 527.89,-2627.84 560.73,-2716.15 509,-2700"/>
+</g>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge131" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.22,-2573.44C598.6,-2571.27 581.32,-2565.81 571,-2553 521.63,-2491.77 539.65,-1924.52 535,-1846 526.83,-1708.1 514.95,-1542.55 510.64,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="514.12,-1483.01 509.9,-1473.3 507.14,-1483.52 514.12,-1483.01"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~swiftest_classes~~UsedByGraph_node73" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node73"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-1704 614.5,-1704 614.5,-1680 684.5,-1680 684.5,-1704"/>
+<text text-anchor="middle" x="649.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~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M614.46,-1694.56C599.64,-1697.24 582.97,-1702.54 571,-1713 517.61,-1759.66 566.47,-1901.53 509,-1860"/>
+<path fill="none" stroke="#000000" d="M507,-1860C409.02,-1789.2 401.89,-1623.42 402.69,-1563.29"/>
+<polygon fill="#000000" stroke="#000000" points="406.2,-1563.11 402.93,-1553.03 399.2,-1562.95 406.2,-1563.11"/>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge135" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.3,-1690.11C599.27,-1687.58 582.46,-1682.21 571,-1671 518.48,-1619.65 509.92,-1526.17 508.88,-1483.42"/>
+<polygon fill="#000000" stroke="#000000" points="512.38,-1483.2 508.76,-1473.24 505.38,-1483.28 512.38,-1483.2"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge64" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.4,-1570.96C234.08,-1566.48 219.91,-1561.33 206.84,-1556.58"/>
+<polygon fill="#000000" stroke="#000000" points="207.7,-1553.17 197.1,-1553.04 205.3,-1559.74 207.7,-1553.17"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~swiftest_classes~~UsedByGraph_node75" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node75"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="697.5,-1284 601.5,-1284 601.5,-1260 697.5,-1260 697.5,-1284"/>
+<text text-anchor="middle" x="649.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M602.06,-1284.08C591.79,-1286.89 581,-1289.95 571,-1293 543.17,-1301.48 538.01,-1311.86 509,-1314"/>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge136" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.45,-1277.22C590.42,-1280.36 579.43,-1285.28 571,-1293 528.38,-1331.99 514.97,-1402.86 510.82,-1438.81"/>
+<polygon fill="#000000" stroke="#000000" points="507.33,-1438.47 509.8,-1448.78 514.3,-1439.18 507.33,-1438.47"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~swiftest_classes~~UsedByGraph_node76" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node76"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="688,-1242 611,-1242 611,-1218 688,-1218 688,-1242"/>
+<text text-anchor="middle" x="649.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M610.64,-1236.05C597.49,-1239.22 583.03,-1243.96 571,-1251 537.08,-1270.83 548.18,-1311.11 509,-1314"/>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge128" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.74,-1232.54C596.67,-1235.29 581.57,-1240.67 571,-1251 543.89,-1277.5 521.39,-1390.19 512.77,-1438.67"/>
+<polygon fill="#000000" stroke="#000000" points="509.28,-1438.31 511.01,-1448.76 516.18,-1439.51 509.28,-1438.31"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~swiftest_classes~~UsedByGraph_node77" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node77"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="687.5,-1200 611.5,-1200 611.5,-1176 687.5,-1176 687.5,-1200"/>
+<text text-anchor="middle" x="649.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~fraggle_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" d="M507,-1314C425.96,-1319.98 343.08,-1375.31 304.22,-1404.75"/>
+<polygon fill="#000000" stroke="#000000" points="301.96,-1402.08 296.18,-1410.96 306.24,-1407.62 301.96,-1402.08"/>
+<path fill="none" stroke="#000000" d="M611.18,-1192.13C597.49,-1195.1 582.53,-1200.21 571,-1209 527.89,-1241.84 561.83,-1301.9 509,-1314"/>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge140" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.29,-1190.14C596.96,-1192.81 581.52,-1198.23 571,-1209 554.7,-1225.69 524.18,-1380.37 513.13,-1438.8"/>
+<polygon fill="#000000" stroke="#000000" points="509.65,-1438.36 511.24,-1448.83 516.53,-1439.65 509.65,-1438.36"/>
+</g>
+</g>
+</svg>
+</div><script>var panmoduleswiftest_classesUsedByGraph = svgPanZoom('#moduleswiftest_classesUsedByGraph', {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)">
@@ -2134,8 +2394,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_get_args">io_get_args</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_get_old_t_final_system">io_get_old_t_final_system</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_get_token">io_get_token</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_body">io_read_frame_body</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_cb">io_read_frame_cb</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_system">io_read_frame_system</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-discard_pl">discard_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-discard_system">discard_system</a>
@@ -2148,11 +2416,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-drift_one">drift_one</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-eucl_dist_index_plpl">eucl_dist_index_plpl</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_index_eucl_plpl">util_index_eucl_plpl</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-fragmentation_initialize">fragmentation_initialize</a>
-      
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-fragmentation_regime">fragmentation_regime</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_index_eucl_pltp">util_index_eucl_pltp</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-gr_kick_getaccb_ns_body">gr_kick_getaccb_ns_body</a>
       
@@ -2172,7 +2438,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_param">io_dump_param</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_swiftest">io_dump_swiftest</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_particle_info_base">io_dump_particle_info_base</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_particle_info">io_dump_particle_info</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_base">io_dump_base</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_dump_system">io_dump_system</a>
       
@@ -2180,17 +2450,15 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_param_writer">io_param_writer</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_body_in">io_read_body_in</a>
-      
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_cb_in">io_read_cb_in</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_body">io_read_in_body</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_param_in">io_read_param_in</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_cb">io_read_in_cb</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_body">io_read_frame_body</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_param">io_read_in_param</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_cb">io_read_frame_cb</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_in_particle_info">io_read_in_particle_info</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_frame_system">io_read_frame_system</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_read_particle_info_system">io_read_particle_info_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_discard">io_write_discard</a>
       
@@ -2202,19 +2470,43 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_frame_cb">io_write_frame_cb</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_frame_encounter">io_write_frame_encounter</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_frame_system">io_write_frame_system</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-io_write_hdr_system">io_write_hdr_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_all_pl">kick_getacch_int_all_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_one_pl">kick_getacch_int_one_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_one_tp">kick_getacch_int_one_tp</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_pl">kick_getacch_int_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-kick_getacch_int_tp">kick_getacch_int_tp</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_close">netcdf_close</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_initialize_output">netcdf_initialize_output</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_open">netcdf_open</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_frame_base">netcdf_write_frame_base</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_frame_system">netcdf_write_frame_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_hdr_system">netcdf_write_hdr_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-netcdf_write_particle_info_base">netcdf_write_particle_info_base</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_acc_body">obl_acc_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_acc_pl">obl_acc_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_acc_tp">obl_acc_tp</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_pot">obl_pot</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-obl_pot_system">obl_pot_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_el2xv_vec">orbel_el2xv_vec</a>
       
@@ -2224,6 +2516,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_xv2aqt">orbel_xv2aqt</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_xv2el">orbel_xv2el</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-orbel_xv2el_vec">orbel_xv2el_vec</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_body">setup_body</a>
@@ -2232,6 +2526,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_encounter">setup_encounter</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_initialize_particle_info_system">setup_initialize_particle_info_system</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_initialize_system">setup_initialize_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-setup_pl">setup_pl</a>
@@ -2248,6 +2544,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_body">util_append_body</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_encounter">util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_pl">util_append_pl</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_append_tp">util_append_tp</a>
@@ -2260,8 +2558,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_h2b_tp">util_coord_h2b_tp</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vb2vh_pl">util_coord_vb2vh_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vb2vh_tp">util_coord_vb2vh_tp</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vh2vb_pl">util_coord_vh2vb_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_vh2vb_tp">util_coord_vh2vb_tp</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_xh2xb_pl">util_coord_xh2xb_pl</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_coord_xh2xb_tp">util_coord_xh2xb_tp</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_copy_encounter">util_copy_encounter</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_copy_particle_info">util_copy_particle_info</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_copy_particle_info_arr">util_copy_particle_info_arr</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_exit">util_exit</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_fill_body">util_fill_body</a>
@@ -2300,6 +2614,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_mu_tp">util_set_mu_tp</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_particle_info">util_set_particle_info</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_rhill">util_set_rhill</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_rhill_approximate">util_set_rhill_approximate</a>
@@ -2310,6 +2626,8 @@ <h3>Contents</h3>
       
       <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~2">util_sort_rearrange</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort_rearrange_body">util_sort_rearrange_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort_rearrange_pl">util_sort_rearrange_pl</a>
@@ -2347,24 +2665,20 @@ <h3>Contents</h3>
   <div id="absints-1" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_read_frame">abstract_read_frame</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_discard_body">abstract_discard_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_accel">abstract_accel</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_initialize">abstract_initialize</a>
-      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_kick_body">abstract_kick_body</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_read_frame">abstract_read_frame</a>
-      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_set_mu">abstract_set_mu</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_step_body">abstract_step_body</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_step_system">abstract_step_system</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-abstract_write_frame">abstract_write_frame</a>
-      
     </div>
   </div>
 </div>
@@ -2376,8 +2690,12 @@ <h3>Contents</h3>
   <div id="types-1" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#type-netcdf_parameters">netcdf_parameters</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_parameters">swiftest_parameters</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_particle_info">swiftest_particle_info</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_base">swiftest_base</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#type-swiftest_cb">swiftest_cb</a>
@@ -2452,7 +2770,4469 @@ <h4>Arguments</h4>
 
 
 
-<tbody>
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B)</td>
+  <td></td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>integrator</strong></td><td><p>Symbolic code of the requested integrator  </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=:),</td>
+  <td></td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>param_file_name</strong></td><td><p>Name of the input parameters file</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>I/O error code </p>
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_get_old_t_final_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function io_get_old_t_final_system(self, param) result(old_t_final)
+    
+    
+   
+   <a href='../proc/io_get_old_t_final_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(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_get_token"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function io_get_token(buffer, ifirst, ilast, ierr) result(token)
+    
+    
+   
+   <a href='../proc/io_get_token.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>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>buffer</strong></td><td><p>Input string buffer</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>ifirst</strong></td><td><p>Index of the buffer at which to start the search for a token</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>ilast</strong></td><td><p>Index of the buffer at the end of the returned token</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>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>character(len=:),
+  allocatable</small></h4>
+  <p>Returned token string</p>
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_frame_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function io_read_frame_body(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_frame_cb"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function io_read_frame_cb(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_frame_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function io_read_frame_system(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_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 system 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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-discard_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine discard_pl(self, system, param)
+    
+    
+   
+   <a href='../proc/discard_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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</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 parameter</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-discard_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine discard_system(self, param)
+    
+    
+   
+   <a href='../proc/discard_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-discard_tp"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine discard_tp(self, system, param)
+    
+    
+   
+   <a href='../proc/discard_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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-drift_all"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag)
+    
+    
+   
+   <a href='../proc/drift_all.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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>mu</strong></td><td><p>Vector of gravitational constants</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position and velocity vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>v</strong></td><td><p>Position and velocity 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>n</strong></td><td><p>number of bodies</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>mask</strong></td><td><p>Logical mask of size self%nbody that determines which bodies to drift.</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>iflag</strong></td><td><p>Vector of error flags. 0 means no problem</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-drift_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine drift_body(self, system, param, dt)
+    
+    
+   
+   <a href='../proc/drift_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-drift_one"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag)
+    
+    
+   
+   <a href='../proc/drift_one.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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mu</strong></td><td><p>G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>px</strong></td><td><p>Position and velocity of body to drift</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>py</strong></td><td><p>Position and velocity of body to drift</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pz</strong></td><td><p>Position and velocity of body to drift</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vx</strong></td><td><p>Position and velocity of body to drift</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vy</strong></td><td><p>Position and velocity of body to drift</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vz</strong></td><td><p>Position and velocity of body to drift</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>dt</strong></td><td><p>Step size</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>iflag</strong></td><td><p>iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_index_eucl_plpl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/util_index_eucl_plpl.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_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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_index_eucl_pltp"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_index_eucl_pltp(self, pl, param)
+    
+    
+   
+   <a href='../proc/util_index_eucl_pltp.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_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_kick_getaccb_ns_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine gr_kick_getaccb_ns_body(self, system, param)
+    
+    
+   
+   <a href='../proc/gr_kick_getaccb_ns_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_kick_getacch"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr)
+    
+    
+   
+   <a href='../proc/gr_kick_getacch.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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</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>x</strong></td><td><p>Position vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lmask</strong></td><td><p>Logical mask indicating which bodies to compute</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>n</strong></td><td><p>Total number of bodies</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>inv_c2</strong></td><td><p>Inverse speed of light squared: 1 / c**2</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>agr</strong></td><td><p>Accelerations</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_p4_pos_kick"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine gr_p4_pos_kick(param, x, v, dt)
+    
+    
+   
+   <a href='../proc/gr_p4_pos_kick.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_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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector</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>v</strong></td><td><p>Velocity vector</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>dt</strong></td><td><p>Step size</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_pseudovel2vel"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh)
+    
+    
+   
+   <a href='../proc/gr_pseudovel2vel.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_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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mu</strong></td><td><p>G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</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>xh</strong></td><td><p>Swiftestcentric position vector </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>pv</strong></td><td><p>Pseudovelocity velocity vector - see Saha &amp; Tremain (1994), eq. (32)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh</strong></td><td><p>Swiftestcentric velocity vector </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_pv2vh_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine gr_pv2vh_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_pv2vh_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_vel2pseudovel"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv)
+    
+    
+   
+   <a href='../proc/gr_vel2pseudovel.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_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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mu</strong></td><td><p>G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</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>xh</strong></td><td><p>Swiftestcentric position vector </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>vh</strong></td><td><p>Swiftestcentric velocity vector </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>pv</strong></td><td><p>Pseudovelocity vector - see Saha &amp; Tremain (1994), eq. (32)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_vh2pv_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine gr_vh2pv_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_vh2pv_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_conservation_report"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_conservation_report(self, param, lterminal)
+    
+    
+   
+   <a href='../proc/io_conservation_report.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>Input colleciton of user-defined parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lterminal</strong></td><td><p>Indicates whether to output information to the terminal screen</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_param"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_dump_param(self, param_file_name)
+    
+    
+   
+   <a href='../proc/io_dump_param.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_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Output collection of 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>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_particle_info_base"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_dump_particle_info_base(self, param, idx)
+    
+    
+   
+   <a href='../proc/io_dump_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_particle_info"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_dump_particle_info(self, iu)
+    
+    
+   
+   <a href='../proc/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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle info metadata object</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>iu</strong></td><td><p>Open unformatted file unit number</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_base"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_dump_base(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_base.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_base.html'>swiftest_base</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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_dump_system(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_param_reader"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
+    
+    
+   
+   <a href='../proc/io_param_reader.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_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Collection of parameters</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>unit</strong></td><td><p>File unit number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iotype</strong></td><td><p>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.</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>v_list</strong>(:)</td><td><p>The first element passes the integrator code to the reader</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>iostat</strong></td><td><p>IO status code</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_param_writer"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
+    
+    
+   
+   <a href='../proc/io_param_writer.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_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Collection of parameters</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>unit</strong></td><td><p>File unit number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iotype</strong></td><td><p>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.</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>v_list</strong>(:)</td><td><p>Not used in this procedure</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>iostat</strong></td><td><p>IO status code</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_in_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_read_in_body(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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-io_read_in_cb"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_read_in_cb(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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-io_read_in_param"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_read_in_param(self, param_file_name)
+    
+    
+   
+   <a href='../proc/io_read_in_param.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_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</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>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_in_particle_info"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_read_in_particle_info(self, iu)
+    
+    
+   
+   <a href='../proc/io_read_in_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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</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>iu</strong></td><td><p>Open file unit number</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_particle_info_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_read_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/io_read_particle_info_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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_discard"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_discard(self, param)
+    
+    
+   
+   <a href='../proc/io_write_discard.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>
+
+  
+  
+  
+  
+<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-io_toupper"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_toupper(string)
+    
+    
+   
+   <a href='../proc/io_toupper.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>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>string</strong></td><td><p>String to make upper case</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_encounter"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_encounter(self, pl, encbody, param)
+    
+    
+   
+   <a href='../proc/io_write_encounter.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_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_body"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_frame_body(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_cb"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_frame_cb(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_encounter"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
+    
+    
+   
+   <a href='../proc/io_write_frame_encounter.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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</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>t</strong></td><td><p>Time of encounter</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>id1</strong></td><td><p>ids of the two encountering bodies</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>id2</strong></td><td><p>ids of the two encountering bodies</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>Gmass1</strong></td><td><p>G*mass of the two encountering bodies</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>Gmass2</strong></td><td><p>G*mass of the two encountering bodies</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>radius1</strong></td><td><p>Radii of the two encountering bodies</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>radius2</strong></td><td><p>Radii of the two encountering bodies</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>xh1</strong></td><td><p>Swiftestcentric position vectors of the two encountering bodies </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>xh2</strong></td><td><p>Swiftestcentric position vectors of the two encountering bodies </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>vh1</strong></td><td><p>Swiftestcentric velocity vectors of the two encountering bodies </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>vh2</strong></td><td><p>Swiftestcentric velocity vectors of the two encountering bodies </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_frame_system(self, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_hdr_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine io_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_hdr_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(in)</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>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_all_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_all_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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>npl</strong></td><td><p>Number of massive bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I8B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nplpl</strong></td><td><p>Number of massive body interactions to compute</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>k_plpl</strong></td><td><p>Array of interaction pair indices (flattened upper triangular matrix)</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>x</strong></td><td><p>Position vector array</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>Gmass</strong></td><td><p>Array of massive body G*mass</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>radius</strong></td><td><p>Array of massive body radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>acc</strong></td><td><p>Acceleration vector array </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_one_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_one_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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the two bodies</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>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>Gmi</strong></td><td><p>G*mass of body i</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>Gmj</strong></td><td><p>G*mass of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>axi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ayi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
 
   
   
@@ -2460,12 +7240,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>azi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>integrator</strong></td><td><p>Symbolic code of the requested integrator  </p></td>
+  <td><strong>axj</strong></td><td><p>Acceleration vector components of body j</p></td>
   
 </tr>
 
@@ -2475,12 +7270,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=:),</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ayj</strong></td><td><p>Acceleration vector components of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>allocatable</td><td>::</td>
-  <td><strong>param_file_name</strong></td><td><p>Name of the input parameters file</p></td>
+  <td></td><td>::</td>
+  <td><strong>azj</strong></td><td><p>Acceleration vector components of body j</p></td>
   
 </tr>
 
@@ -2491,15 +7301,6 @@ <h4>Arguments</h4>
     
     
 
-  
-  
-  
-  
-     <h4>Return Value <small>integer(kind=I4B)
-  </small></h4>
-  <p>I/O error code </p>
-    
-
     </li>
   
   </ul>
@@ -2508,7 +7309,7 @@ <h4>Return Value <small>integer(kind=I4B)
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_get_token"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_one_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -2518,11 +7319,11 @@ <h4>Return Value <small>integer(kind=I4B)
     
     
     <h3>
-public module function io_get_token(buffer, ifirst, ilast, ierr) result(token)
+public pure module subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az)
     
     
    
-   <a href='../proc/io_get_token.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_one_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2546,12 +7347,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>buffer</strong></td><td><p>Input string buffer</p></td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the test particle and massive body</p></td>
   
 </tr>
 
@@ -2561,12 +7362,72 @@ <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>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</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>Gmpl</strong></td><td><p>G*mass of massive body</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ifirst</strong></td><td><p>Index of the buffer at which to start the search for a token</p></td>
+  <td><strong>ax</strong></td><td><p>Acceleration vector components of test particle</p></td>
   
 </tr>
 
@@ -2576,12 +7437,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ilast</strong></td><td><p>Index of the buffer at the end of the returned token</p></td>
+  <td><strong>ay</strong></td><td><p>Acceleration vector components of test particle</p></td>
   
 </tr>
 
@@ -2591,12 +7452,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>az</strong></td><td><p>Acceleration vector components of test particle</p></td>
   
 </tr>
 
@@ -2607,13 +7468,66 @@ <h4>Arguments</h4>
     
     
 
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine kick_getacch_int_pl(self)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_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>
+
   
   
   
   
-     <h4>Return Value <small>character(len=:),
-  allocatable</small></h4>
-  <p>Returned token string</p>
+<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>
+
+</tbody>
+</table>
+
+      
+    
     
 
     </li>
@@ -2624,7 +7538,7 @@ <h4>Return Value <small>character(len=:),
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-discard_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -2634,11 +7548,11 @@ <h4>Return Value <small>character(len=:),
     
     
     <h3>
-public module subroutine discard_pl(self, system, param)
+public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
     
     
    
-   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2662,12 +7576,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(<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 massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle</p></td>
   
 </tr>
 
@@ -2677,12 +7591,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</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>GMpl</strong></td><td><p>Massive body masses</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>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xhp</strong></td><td><p>Massive body position vectors</p></td>
   
 </tr>
 
@@ -2692,12 +7621,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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameter</p></td>
+  <td><strong>npl</strong></td><td><p>Number of active massive bodies</p></td>
   
 </tr>
 
@@ -2716,7 +7645,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-discard_system"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_close"></span><h3>interface 
     
   </h3></div>
   
@@ -2726,11 +7655,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine discard_system(self, param)
+public module subroutine netcdf_close(self, param)
     
     
    
-   <a href='../proc/discard_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_close.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2754,12 +7683,12 @@ <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/netcdf_parameters.html'>netcdf_parameters</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>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -2770,11 +7699,11 @@ <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>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>
 
@@ -2793,7 +7722,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-discard_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_initialize_output"></span><h3>interface 
     
   </h3></div>
   
@@ -2803,11 +7732,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine discard_tp(self, system, param)
+public module subroutine netcdf_initialize_output(self, param)
     
     
    
-   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_initialize_output.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2831,27 +7760,12 @@ <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>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <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>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -2862,11 +7776,11 @@ <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>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>
 
@@ -2885,7 +7799,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-drift_all"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_open"></span><h3>interface 
     
   </h3></div>
   
@@ -2895,11 +7809,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag)
+public module subroutine netcdf_open(self, param)
     
     
    
-   <a href='../proc/drift_all.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_open.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2923,57 +7837,12 @@ <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>mu</strong></td><td><p>Vector of gravitational constants</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Position and velocity vectors</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Position and velocity vectors</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>n</strong></td><td><p>number of bodies</p></td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -2992,51 +7861,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mask</strong></td><td><p>Logical mask of size self%nbody that determines which bodies to drift.</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>iflag</strong></td><td><p>Vector of error flags. 0 means no problem</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -3052,7 +7876,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-drift_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_write_frame_base"></span><h3>interface 
     
   </h3></div>
   
@@ -3062,11 +7886,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine drift_body(self, system, param, dt)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3090,12 +7914,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -3105,12 +7929,12 @@ <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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -3125,22 +7949,7 @@ <h4>Arguments</h4>
   <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>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -3159,7 +7968,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-drift_one"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_write_frame_system"></span><h3>interface 
     
   </h3></div>
   
@@ -3169,12 +7978,10 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag)
+public subroutine netcdf_write_frame_system(self, iu, param)
     
     
    
-   <a href='../proc/drift_one.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -3197,12 +8004,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mu</strong></td><td><p>G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -3212,12 +8019,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>px</strong></td><td><p>Position and velocity of body to drift</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -3227,59 +8034,61 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</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>py</strong></td><td><p>Position and velocity of body to drift</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>pz</strong></td><td><p>Position and velocity of body to drift</p></td>
-  
-</tr>
+</tbody>
+</table>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>vx</strong></td><td><p>Position and velocity of body to drift</p></td>
-  
-</tr>
+      
+    
+    
 
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_write_hdr_system"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>vy</strong></td><td><p>Position and velocity of body to drift</p></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine netcdf_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_hdr_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>
 
   
   
@@ -3287,12 +8096,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>vz</strong></td><td><p>Position and velocity of body to drift</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -3302,12 +8111,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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Step size</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -3317,12 +8126,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</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>iflag</strong></td><td><p>iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -3341,7 +8150,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-eucl_dist_index_plpl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-netcdf_write_particle_info_base"></span><h3>interface 
     
   </h3></div>
   
@@ -3351,11 +8160,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3379,12 +8188,27 @@ <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(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</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>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -3403,7 +8227,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-fragmentation_initialize"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_acc_body"></span><h3>interface 
     
   </h3></div>
   
@@ -3413,11 +8237,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-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)
+public module subroutine obl_acc_body(self, system)
     
     
    
-   <a href='../proc/fragmentation_initialize.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3441,12 +8265,12 @@ <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_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <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 body object </p></td>
   
 </tr>
 
@@ -3456,119 +8280,61 @@ <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/swiftest_nbody_system.html'>swiftest_nbody_system</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>system</strong></td><td><p>Swiftest nbody system object</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>Index of bodies involved in the collision</p></td>
-  
-</tr>
+</tbody>
+</table>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
+      
+    
+    
 
+    </li>
   
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
+  </ul>
+</div>
 
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_acc_pl"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine obl_acc_pl(self, system)
+    
+    
+   
+   <a href='../proc/obl_acc_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>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</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>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</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>
+<tbody>
 
   
   
@@ -3576,12 +8342,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -3591,44 +8357,61 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
-  
-</tr>
+</tbody>
+</table>
 
+      
+    
+    
+
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_acc_tp"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine obl_acc_tp(self, system)
+    
+    
+   
+   <a href='../proc/obl_acc_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>
 
   
   
@@ -3636,12 +8419,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -3651,42 +8434,136 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody 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-obl_pot_system"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_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>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody 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-orbel_el2xv_vec"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -3696,12 +8573,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(out)</td>
+  <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>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3720,7 +8597,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-fragmentation_regime"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_scget"></span><h3>interface 
     
   </h3></div>
   
@@ -3730,11 +8607,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss)
+public pure module subroutine orbel_scget(angle, sx, cx)
     
     
    
-   <a href='../proc/fragmentation_regime.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_scget.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3763,7 +8640,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mcb</strong></td><td></td>
+  <td><strong>angle</strong></td><td></td>
   
 </tr>
 
@@ -3774,11 +8651,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>m1</strong></td><td></td>
+  <td><strong>sx</strong></td><td></td>
   
 </tr>
 
@@ -3789,14 +8666,61 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>m2</strong></td><td></td>
+  <td><strong>cx</strong></td><td></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2aeq"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q)
+    
+    
+   
+   <a href='../proc/orbel_xv2aeq.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>
+
   
   
   
@@ -3808,7 +8732,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>rad1</strong></td><td></td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
   
 </tr>
 
@@ -3819,11 +8743,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>rad2</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector</p></td>
   
 </tr>
 
@@ -3838,7 +8762,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>xh1</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Velocity vector</p></td>
   
 </tr>
 
@@ -3849,11 +8773,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh2</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
   
 </tr>
 
@@ -3864,11 +8788,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vb1</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>e</strong></td><td><p>eccentricity</p></td>
   
 </tr>
 
@@ -3879,14 +8803,61 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vb2</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>q</strong></td><td><p>periapsis</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2aqt"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi)
+    
+    
+   
+   <a href='../proc/orbel_xv2aqt.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>
+
   
   
   
@@ -3898,7 +8869,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>den1</strong></td><td></td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
   
 </tr>
 
@@ -3909,11 +8880,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>den2</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector</p></td>
   
 </tr>
 
@@ -3923,12 +8894,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>regime</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>v</strong></td><td><p>Velocity vector</p></td>
   
 </tr>
 
@@ -3943,7 +8914,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mlr</strong></td><td></td>
+  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
   
 </tr>
 
@@ -3958,7 +8929,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mslr</strong></td><td></td>
+  <td><strong>q</strong></td><td><p>periapsis</p></td>
   
 </tr>
 
@@ -3969,11 +8940,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mtiny</strong></td><td></td>
+  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
   
 </tr>
 
@@ -3988,7 +8959,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
+  <td><strong>tperi</strong></td><td><p>time of pericenter passage</p></td>
   
 </tr>
 
@@ -4007,7 +8978,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_kick_getaccb_ns_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2el"></span><h3>interface 
     
   </h3></div>
   
@@ -4017,11 +8988,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine gr_kick_getaccb_ns_body(self, system, param)
+public pure module subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
     
     
    
-   <a href='../proc/gr_kick_getaccb_ns_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4045,12 +9016,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
   
 </tr>
 
@@ -4060,12 +9031,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector</p></td>
   
 </tr>
 
@@ -4075,62 +9046,15 @@ <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>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>dimension(:)</td><td>::</td>
+  <td><strong>v</strong></td><td><p>Velocity vector</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_kick_getacch"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr)
-    
-    
-   
-   <a href='../proc/gr_kick_getacch.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>
-
   
   
   
@@ -4138,11 +9062,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
+  <td></td><td>::</td>
+  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
   
 </tr>
 
@@ -4153,11 +9077,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Position vectors</p></td>
+  <td></td><td>::</td>
+  <td><strong>e</strong></td><td><p>eccentricity</p></td>
   
 </tr>
 
@@ -4167,12 +9091,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lmask</strong></td><td><p>Logical mask indicating which bodies to compute</p></td>
+  <td></td><td>::</td>
+  <td><strong>inc</strong></td><td><p>inclination</p></td>
   
 </tr>
 
@@ -4182,12 +9106,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>n</strong></td><td><p>Total number of bodies</p></td>
+  <td><strong>capom</strong></td><td><p>longitude of ascending node</p></td>
   
 </tr>
 
@@ -4198,11 +9122,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>inv_c2</strong></td><td><p>Inverse speed of light squared: 1 / c**2</p></td>
+  <td><strong>omega</strong></td><td><p>argument of periapsis</p></td>
   
 </tr>
 
@@ -4213,11 +9137,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>agr</strong></td><td><p>Accelerations</p></td>
+  <td></td><td>::</td>
+  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
   
 </tr>
 
@@ -4236,7 +9160,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_p4_pos_kick"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2el_vec"></span><h3>interface 
     
   </h3></div>
   
@@ -4246,11 +9170,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine gr_p4_pos_kick(param, x, v, dt)
+public module subroutine orbel_xv2el_vec(self, cb)
     
     
    
-   <a href='../proc/gr_p4_pos_kick.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4274,42 +9198,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/swiftest_body.html'>swiftest_body</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>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Position vector</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>v</strong></td><td><p>Velocity vector</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -4319,12 +9213,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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Step size</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -4343,7 +9237,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_pseudovel2vel"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_body"></span><h3>interface 
     
   </h3></div>
   
@@ -4353,11 +9247,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh)
+public module subroutine setup_body(self, n, param)
     
     
    
-   <a href='../proc/gr_pseudovel2vel.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4381,12 +9275,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/swiftest_body.html'>swiftest_body</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>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -4396,42 +9290,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mu</strong></td><td><p>G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</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>xh</strong></td><td><p>Heliocentric position vector </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>pv</strong></td><td><p>Pseudovelocity velocity vector - see Saha &amp; Tremain (1994), eq. (32)</p></td>
+  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
   
 </tr>
 
@@ -4441,12 +9305,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh</strong></td><td><p>Heliocentric velocity vector </p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -4465,7 +9329,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_pv2vh_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_construct_system"></span><h3>interface 
     
   </h3></div>
   
@@ -4475,11 +9339,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine setup_construct_system(system, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_construct_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4503,12 +9367,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</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>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -4519,11 +9383,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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -4542,7 +9406,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_vel2pseudovel"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -4552,11 +9416,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv)
+public module subroutine setup_encounter(self, n)
     
     
    
-   <a href='../proc/gr_vel2pseudovel.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4580,12 +9444,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/swiftest_encounter.html'>swiftest_encounter</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>self</strong></td><td><p>Swiftest encounter structure</p></td>
   
 </tr>
 
@@ -4595,29 +9459,61 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mu</strong></td><td><p>G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</p></td>
+  <td><strong>n</strong></td><td><p>Number of encounters to allocate space for</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_initialize_particle_info_system"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh</strong></td><td><p>Heliocentric position vector </p></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine setup_initialize_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/setup_initialize_particle_info_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>
 
   
   
@@ -4625,12 +9521,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>dimension(:)</td><td>::</td>
-  <td><strong>vh</strong></td><td><p>Heliocentric velocity vector </p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -4640,12 +9536,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>pv</strong></td><td><p>Pseudovelocity vector - see Saha &amp; Tremain (1994), eq. (32)</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -4664,7 +9560,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-gr_vh2pv_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_initialize_system"></span><h3>interface 
     
   </h3></div>
   
@@ -4674,11 +9570,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine setup_initialize_system(self, param)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_initialize_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4702,12 +9598,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -4718,11 +9614,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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -4741,7 +9637,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_conservation_report"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -4751,11 +9647,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_conservation_report(self, param, lterminal)
+public module subroutine setup_pl(self, n, param)
     
     
    
-   <a href='../proc/io_conservation_report.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4779,12 +9675,12 @@ <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 nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -4794,12 +9690,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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Input colleciton of user-defined parameters</p></td>
+  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
   
 </tr>
 
@@ -4809,12 +9705,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</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>lterminal</strong></td><td><p>Indicates whether to output information to the terminal screen</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -4833,7 +9729,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_param"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -4843,11 +9739,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_dump_param(self, param_file_name)
+public module subroutine setup_tp(self, n, param)
     
     
    
-   <a href='../proc/io_dump_param.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4871,12 +9767,27 @@ <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/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>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Output collection of parameters</p></td>
+  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
   
 </tr>
 
@@ -4886,12 +9797,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parametersr</p></td>
   
 </tr>
 
@@ -4910,7 +9821,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_swiftest"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-tides_kick_getacch_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -4920,11 +9831,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine tides_kick_getacch_pl(self, system)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4948,12 +9859,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</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 base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -4963,12 +9874,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/swiftest_nbody_system.html'>swiftest_nbody_system</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>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -4987,7 +9898,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_dump_system"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-tides_step_spin_system"></span><h3>interface 
     
   </h3></div>
   
@@ -4997,11 +9908,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_dump_system(self, param)
+public module subroutine tides_step_spin_system(self, param, t, dt)
     
     
    
-   <a href='../proc/io_dump_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/tides_step_spin_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5030,7 +9941,7 @@ <h4>Arguments</h4>
   <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 nbody system object</p></td>
   
 </tr>
 
@@ -5041,7 +9952,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -5049,6 +9960,36 @@ <h4>Arguments</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Simulation 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>dt</strong></td><td><p>Current stepsize</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -5064,7 +10005,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_param_reader"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-user_kick_getacch_body"></span><h3>interface 
     
   </h3></div>
   
@@ -5074,11 +10015,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/io_param_reader.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5102,12 +10043,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/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Collection of parameters</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
   
 </tr>
 
@@ -5117,12 +10058,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>unit</strong></td><td><p>File unit number</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
   
 </tr>
 
@@ -5132,13 +10073,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>iotype</strong></td><td><p>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.</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -5148,27 +10088,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>v_list</strong>(:)</td><td><p>The first element passes the integrator code to the reader</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>iostat</strong></td><td><p>IO status code</p></td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -5178,12 +10103,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -5202,22 +10127,21 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_param_writer"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append~2"></span><h3>public interface <a href='../interface/util_append~2.html'>util_append</a>
     
   </h3></div>
   
   <ul class="list-group">
   
+  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
+public subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
     
     
    
-   <a href='../proc/io_param_writer.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -5240,27 +10164,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></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Collection of parameters</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>character(len=STRMAX),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>unit</strong></td><td><p>File unit number</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -5270,13 +10179,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>character(len=STRMAX),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>iotype</strong></td><td><p>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.</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
   
 </tr>
 
@@ -5291,7 +10199,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>v_list</strong>(:)</td><td><p>Not used in this procedure</p></td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5302,11 +10210,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iostat</strong></td><td><p>IO status code</p></td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5316,12 +10224,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>iomsg</strong></td><td><p>Message to pass if iostat /= 0</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -5334,28 +10242,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_body_in"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -5378,12 +10272,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -5393,61 +10287,29 @@ <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>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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_cb_in"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine io_read_cb_in(self, param)
-    
-    
-   
-   <a href='../proc/io_read_cb_in.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>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>
 
   
   
@@ -5455,12 +10317,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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5470,12 +10332,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>logical,</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>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -5488,28 +10350,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_param_in"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine io_read_param_in(self, param_file_name)
+public subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
     
     
    
-   <a href='../proc/io_read_param_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -5532,12 +10380,42 @@ <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>real(kind=DP),</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>real(kind=DP),</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></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Current run configuration parameters</p></td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5547,12 +10425,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param_file_name</strong></td><td><p>Parameter input file name (i.e. param.in)</p></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></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -5565,28 +10458,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_frame_body"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -5609,12 +10488,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -5625,11 +10504,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td>intent(in),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
   
 </tr>
 
@@ -5639,12 +10518,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>integer(kind=I4B),</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>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5654,12 +10533,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</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>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5669,12 +10548,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -5687,28 +10566,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_frame_cb"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public subroutine util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
     
     
    
-   <a href='../proc/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -5731,12 +10596,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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -5746,12 +10611,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
   
 </tr>
 
@@ -5761,12 +10626,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>integer(kind=I4B),</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>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5776,12 +10641,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</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>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5791,12 +10656,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -5809,28 +10674,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_read_frame_system"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
     
     
    
-   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -5853,12 +10704,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -5868,12 +10719,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
   
 </tr>
 
@@ -5883,12 +10734,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>integer(kind=I4B),</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>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5898,12 +10749,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</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>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -5913,12 +10764,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -5931,13 +10782,15 @@ <h4>Arguments</h4>
 
     </li>
   
+  
+  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_discard"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_body"></span><h3>interface 
     
   </h3></div>
   
@@ -5947,11 +10800,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_write_discard(self, param)
+public module subroutine util_append_body(self, source, lsource_mask)
     
     
    
-   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5975,12 +10828,12 @@ <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_body.html'>swiftest_body</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 body object</p></td>
   
 </tr>
 
@@ -5990,12 +10843,27 @@ <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/swiftest_body.html'>swiftest_body</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>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
   
 </tr>
 
@@ -6014,7 +10882,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_toupper"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -6024,11 +10892,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_toupper(string)
+public module subroutine util_append_encounter(self, source, lsource_mask)
     
     
    
-   <a href='../proc/io_toupper.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6052,12 +10920,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>string</strong></td><td><p>String to make upper case</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
   
 </tr>
 
@@ -6076,7 +10974,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_encounter"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -6086,11 +10984,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type)
+public module subroutine util_append_pl(self, source, lsource_mask)
     
     
    
-   <a href='../proc/io_write_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6114,12 +11012,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_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -6129,12 +11027,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name1</strong></td><td></td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -6144,29 +11042,61 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>name2</strong></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>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_tp"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>mass1</strong></td><td></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_append_tp(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/util_append_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>
 
   
   
@@ -6174,12 +11104,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>mass2</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -6189,12 +11119,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>radius1</strong></td><td></td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -6204,29 +11134,61 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>radius2</strong></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>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_b2h_pl"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh1</strong></td><td></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_coord_b2h_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_b2h_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>
 
   
   
@@ -6234,12 +11196,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_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh2</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -6249,29 +11211,61 @@ <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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh1</strong></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_coord_b2h_tp"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh2</strong></td><td></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_coord_b2h_tp(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_b2h_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>
 
   
   
@@ -6279,12 +11273,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>enc_out</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -6294,12 +11288,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -6318,7 +11312,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_h2b_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -6328,11 +11322,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public module subroutine util_coord_h2b_pl(self, cb)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6356,27 +11350,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>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 massive body object</p></td>
   
 </tr>
 
@@ -6386,12 +11365,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -6410,7 +11389,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_cb"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_h2b_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -6420,11 +11399,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_write_frame_cb(self, iu, param)
+public module subroutine util_coord_h2b_tp(self, cb)
     
     
    
-   <a href='../proc/io_write_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6448,27 +11427,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>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 test particle object</p></td>
   
 </tr>
 
@@ -6478,12 +11442,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -6502,7 +11466,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-io_write_frame_system"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_vb2vh_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -6512,11 +11476,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine util_coord_vb2vh_pl(self, cb)
     
     
    
-   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6540,27 +11504,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>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 massive body object</p></td>
   
 </tr>
 
@@ -6570,12 +11519,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -6594,7 +11543,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_vb2vh_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -6604,11 +11553,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6632,12 +11581,27 @@ <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(<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></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -6656,7 +11620,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-kick_getacch_int_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_vh2vb_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -6666,11 +11630,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6694,12 +11658,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_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -6709,28 +11673,75 @@ <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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>GMpl</strong></td><td><p>Massive body masses</p></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_coord_vh2vb_tp"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_coord_vh2vb_tp(self, vbcb)
+    
+    
+   
+   <a href='../proc/util_coord_vh2vb_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>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>dimension(:,:)</td><td>::</td>
-  <td><strong>xhp</strong></td><td><p>Massive body position vectors</p></td>
-  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  
 </tr>
 
   
@@ -6739,12 +11750,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>npl</strong></td><td><p>Number of active massive bodies</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -6763,7 +11774,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_acc_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_xh2xb_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -6773,11 +11784,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine obl_acc_body(self, system)
+public module subroutine util_coord_xh2xb_pl(self, cb)
     
     
    
-   <a href='../proc/obl_acc_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6801,12 +11812,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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 body object </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -6816,12 +11827,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -6840,7 +11851,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_acc_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_xh2xb_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -6850,11 +11861,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine obl_acc_pl(self, system)
+public module subroutine util_coord_xh2xb_tp(self, cb)
     
     
    
-   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6878,12 +11889,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(<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 massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -6893,12 +11904,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -6917,7 +11928,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_acc_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_copy_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -6927,11 +11938,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine obl_acc_tp(self, system)
+public module subroutine util_copy_encounter(self, source)
     
     
    
-   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -6955,12 +11966,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_encounter.html'>swiftest_encounter</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>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
   
 </tr>
 
@@ -6970,12 +11981,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
   
 </tr>
 
@@ -6994,7 +12005,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-obl_pot"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_copy_particle_info"></span><h3>interface 
     
   </h3></div>
   
@@ -7004,11 +12015,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot)
+public module subroutine util_copy_particle_info(self, source)
     
     
    
-   <a href='../proc/obl_pot.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_copy_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -7032,12 +12043,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>npl</strong></td><td></td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -7047,59 +12058,61 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mcb</strong></td><td></td>
+  <td><strong>source</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>Mpl</strong></td><td></td>
-  
-</tr>
+</tbody>
+</table>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>j2rp2</strong></td><td></td>
-  
-</tr>
+      
+    
+    
 
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_copy_particle_info_arr"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>j4rp4</strong></td><td></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_copy_particle_info_arr(source, dest, idx)
+    
+    
+   
+   <a href='../proc/util_copy_particle_info_arr.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>
 
   
   
@@ -7107,12 +12120,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:, :)</td><td>::</td>
-  <td><strong>xh</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
   
 </tr>
 
@@ -7122,12 +12135,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_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>irh</strong></td><td></td>
+  <td><strong>dest</strong></td><td><p>Swiftest body object with particle metadata information object</p></td>
   
 </tr>
 
@@ -7137,12 +12150,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</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>oblpot</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Optional array of indices to draw the source object</p></td>
   
 </tr>
 
@@ -7161,7 +12174,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_el2xv_vec"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_exit"></span><h3>interface 
     
   </h3></div>
   
@@ -7171,11 +12184,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine util_exit(code)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_exit.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -7199,27 +12212,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest 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><span class="anchor" ></span>integer(kind=I4B),</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>code</strong></td><td><p>Failure exit code</p></td>
   
 </tr>
 
@@ -7238,7 +12236,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_scget"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill_body"></span><h3>interface 
     
   </h3></div>
   
@@ -7248,11 +12246,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine orbel_scget(angle, sx, cx)
+public module subroutine util_fill_body(self, inserts, lfill_list)
     
     
    
-   <a href='../proc/orbel_scget.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_fill_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -7276,12 +12274,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>angle</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -7291,12 +12289,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>sx</strong></td><td></td>
+  <td><strong>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
   
 </tr>
 
@@ -7306,12 +12304,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>cx</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7330,7 +12328,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2aeq"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -7340,11 +12338,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q)
+public module subroutine util_fill_pl(self, inserts, lfill_list)
     
     
    
-   <a href='../proc/orbel_xv2aeq.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_fill_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -7368,57 +12366,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>mu</strong></td><td><p>Gravitational constant</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>x</strong></td><td><p>Position vector</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>v</strong></td><td><p>Velocity vector</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</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>a</strong></td><td><p>semimajor axis</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -7428,12 +12381,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>e</strong></td><td><p>eccentricity</p></td>
+  <td><strong>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
   
 </tr>
 
@@ -7443,12 +12396,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>q</strong></td><td><p>periapsis</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7467,7 +12420,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2aqt"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -7477,11 +12430,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi)
+public module subroutine util_fill_tp(self, inserts, lfill_list)
     
     
    
-   <a href='../proc/orbel_xv2aqt.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_fill_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -7505,12 +12458,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>mu</strong></td><td><p>Gravitational constant</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -7520,12 +12473,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Position vector</p></td>
+  <td></td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
   
 </tr>
 
@@ -7535,72 +12488,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Velocity vector</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>q</strong></td><td><p>periapsis</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>tperi</strong></td><td><p>time of pericenter passage</p></td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7619,22 +12512,21 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-orbel_xv2el_vec"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill~2"></span><h3>public interface <a href='../interface/util_fill~2.html'>util_fill</a>
     
   </h3></div>
   
   <ul class="list-group">
   
+  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public subroutine util_fill_arr_char_string(keeps, inserts, lfill_list)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -7657,12 +12549,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>character(len=STRMAX),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -7672,12 +12564,27 @@ <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>character(len=STRMAX),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7690,28 +12597,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_body"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine setup_body(self, n, param)
+public subroutine util_fill_arr_DP(keeps, inserts, lfill_list)
     
     
    
-   <a href='../proc/setup_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -7734,12 +12627,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -7749,12 +12642,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</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><p>Number of particles to allocate space for</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
   
 </tr>
 
@@ -7764,12 +12657,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>logical,</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>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7782,28 +12675,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_construct_system"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine setup_construct_system(system, param)
+public subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list)
     
     
    
-   <a href='../proc/setup_construct_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -7826,12 +12705,12 @@ <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>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
-  <td>allocatable</td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest system object</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -7841,12 +12720,27 @@ <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>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>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7859,28 +12753,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_encounter"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine setup_encounter(self, n)
+public subroutine util_fill_arr_I4B(keeps, inserts, lfill_list)
     
     
    
-   <a href='../proc/setup_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -7903,12 +12783,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest encounter structure</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -7919,11 +12799,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>n</strong></td><td><p>Number of encounters to allocate space for</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -7936,28 +12831,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_initialize_system"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine setup_initialize_system(self, param)
+public subroutine util_fill_arr_info(keeps, inserts, lfill_list)
     
     
    
-   <a href='../proc/setup_initialize_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -7980,12 +12861,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -7995,12 +12876,27 @@ <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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -8013,28 +12909,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_pl"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine setup_pl(self, n, param)
+public subroutine util_fill_arr_logical(keeps, inserts, lfill_list)
     
     
    
-   <a href='../proc/setup_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -8057,12 +12939,12 @@ <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>logical,</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -8072,12 +12954,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
   
 </tr>
 
@@ -8087,12 +12969,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>logical,</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>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
   
 </tr>
 
@@ -8105,13 +12987,15 @@ <h4>Arguments</h4>
 
     </li>
   
+  
+  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-setup_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_minimize_bfgs"></span><h3>interface 
     
   </h3></div>
   
@@ -8121,11 +13005,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine setup_tp(self, n, param)
+public module function util_minimize_bfgs(f, N, x0, eps, maxloop, lerr) result(x1)
     
     
    
-   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_minimize_bfgs.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -8149,12 +13033,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(lambda_obj),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  <td><strong>f</strong></td><td></td>
   
 </tr>
 
@@ -8169,7 +13053,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
+  <td><strong>N</strong></td><td></td>
   
 </tr>
 
@@ -8179,61 +13063,29 @@ <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>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parametersr</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>x0</strong></td><td></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-tides_kick_getacch_pl"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine tides_kick_getacch_pl(self, system)
-    
-    
-   
-   <a href='../proc/tides_kick_getacch_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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>eps</strong></td><td></td>
+  
+</tr>
 
   
   
@@ -8241,12 +13093,12 @@ <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>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>maxloop</strong></td><td></td>
   
 </tr>
 
@@ -8256,12 +13108,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</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>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>lerr</strong></td><td></td>
   
 </tr>
 
@@ -8272,6 +13124,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP),
+  dimension(:), allocatable</small></h4>
+  
+    
+
     </li>
   
   </ul>
@@ -8280,7 +13141,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-tides_step_spin_system"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_rescale_system"></span><h3>interface 
     
   </h3></div>
   
@@ -8290,11 +13151,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine tides_step_spin_system(self, param, t, dt)
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
     
     
    
-   <a href='../proc/tides_step_spin_system.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>
     
@@ -8334,11 +13195,26 @@ <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></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>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>
 
@@ -8353,7 +13229,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Simulation time</p></td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -8368,7 +13244,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -8387,7 +13263,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-user_kick_getacch_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_peri_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -8397,11 +13273,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine util_peri_tp(self, system, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.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>
     
@@ -8425,42 +13301,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</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>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -8469,13 +13315,13 @@ <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>t</strong></td><td><p>Current time</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -8485,12 +13331,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -8509,7 +13355,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append~2"></span><h3>public interface <a href='../interface/util_append~2.html'>util_append</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize~2"></span><h3>public interface <a href='../interface/util_resize~2.html'>util_resize</a>
     
   </h3></div>
   
@@ -8520,7 +13366,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
+public subroutine util_resize_arr_char_string(arr, nnew)
     
     
    
@@ -8551,22 +13397,7 @@ <h4>Arguments</h4>
   <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>character(len=STRMAX),</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><strong>arr</strong></td><td><p>Array to resize</p></td>
   
 </tr>
 
@@ -8581,22 +13412,55 @@ <h4>Arguments</h4>
   <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>
+  <td><strong>nnew</strong></td><td><p>New size</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_resize_arr_DP(arr, nnew)
+    
+    
+   
+</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>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout),</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>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
   
 </tr>
 
@@ -8606,12 +13470,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(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
+  <td></td><td>::</td>
+  <td><strong>nnew</strong></td><td><p>New size</p></td>
   
 </tr>
 
@@ -8628,7 +13492,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
+public subroutine util_resize_arr_DPvec(arr, nnew)
     
     
    
@@ -8658,8 +13522,8 @@ <h4>Arguments</h4>
   <td>intent(inout),</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Destination array </p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
   
 </tr>
 
@@ -8669,15 +13533,48 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</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>nnew</strong></td><td><p>New size</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_resize_arr_I4B(arr, nnew)
+    
+    
+   
+</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>
+
   
   
   
@@ -8685,11 +13582,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(inout),</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>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
   
 </tr>
 
@@ -8704,7 +13601,55 @@ <h4>Arguments</h4>
   <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>
+  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_resize_arr_info(arr, nnew)
+    
+    
+   
+</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>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
   
 </tr>
 
@@ -8714,12 +13659,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(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
+  <td></td><td>::</td>
+  <td><strong>nnew</strong></td><td><p>New size</p></td>
   
 </tr>
 
@@ -8736,7 +13681,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
+public subroutine util_resize_arr_logical(arr, nnew)
     
     
    
@@ -8762,12 +13707,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</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>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
   
 </tr>
 
@@ -8777,29 +13722,63 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</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>nnew</strong></td><td><p>New size</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
   
   
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_body"></span><h3>interface 
+    
+  </h3></div>
   
-<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>
+  <ul class="list-group">
   
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_resize_body(self, nnew)
+    
+    
+   
+   <a href='../proc/util_resize_body.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>
 
   
   
@@ -8807,12 +13786,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</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>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -8822,12 +13801,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(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
+  <td></td><td>::</td>
+  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
   
 </tr>
 
@@ -8840,14 +13819,28 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_encounter"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
+public module subroutine util_resize_encounter(self, nnew)
     
     
    
+   <a href='../proc/util_resize_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -8870,42 +13863,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>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>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</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>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
   
 </tr>
 
@@ -8920,22 +13883,7 @@ <h4>Arguments</h4>
   <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></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
+  <td><strong>nnew</strong></td><td><p>New size of list needed</p></td>
   
 </tr>
 
@@ -8948,14 +13896,28 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
+public module subroutine util_resize_pl(self, nnew)
     
     
    
+   <a href='../proc/util_resize_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -8978,42 +13940,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <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><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>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -9028,22 +13960,7 @@ <h4>Arguments</h4>
   <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></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
+  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
   
 </tr>
 
@@ -9056,15 +13973,13 @@ <h4>Arguments</h4>
 
     </li>
   
-  
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -9074,11 +13989,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_append_body(self, source, lsource_mask)
+public module subroutine util_resize_tp(self, nnew)
     
     
    
-   <a href='../proc/util_append_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_resize_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9102,12 +14017,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -9117,27 +14032,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</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>
+  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
   
 </tr>
 
@@ -9156,7 +14056,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_get_energy_momentum_system"></span><h3>interface 
     
   </h3></div>
   
@@ -9166,11 +14066,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_append_pl(self, source, lsource_mask)
+public module subroutine util_get_energy_momentum_system(self, param)
     
     
    
-   <a href='../proc/util_append_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_get_energy_momentum_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9194,12 +14094,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(<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 massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -9209,27 +14109,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -9248,7 +14133,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_append_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_beg_end_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -9258,11 +14143,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_append_tp(self, source, lsource_mask)
+public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
     
     
    
-   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_beg_end_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9286,12 +14171,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_pl.html'>swiftest_pl</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>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -9301,12 +14186,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></td>
   
 </tr>
 
@@ -9316,12 +14201,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</td>
-  <td></td>
+  <td>optional</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
   
 </tr>
 
@@ -9340,7 +14240,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_b2h_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_ir3h"></span><h3>interface 
     
   </h3></div>
   
@@ -9350,11 +14250,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_coord_b2h_pl(self, cb)
+public module subroutine util_set_ir3h(self)
     
     
    
-   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9378,27 +14278,12 @@ <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></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><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -9417,7 +14302,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_b2h_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_msys"></span><h3>interface 
     
   </h3></div>
   
@@ -9427,11 +14312,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_coord_b2h_tp(self, cb)
+public module subroutine util_set_msys(self)
     
     
    
-   <a href='../proc/util_coord_b2h_tp.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>
     
@@ -9455,27 +14340,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_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 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(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -9494,7 +14364,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_h2b_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_mu_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -9504,11 +14374,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_coord_h2b_pl(self, cb)
+public module subroutine util_set_mu_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_mu_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9571,7 +14441,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_coord_h2b_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_mu_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -9581,11 +14451,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_coord_h2b_tp(self, cb)
+public module subroutine util_set_mu_tp(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_mu_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9625,7 +14495,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -9648,7 +14518,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_copy_encounter"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_particle_info"></span><h3>interface 
     
   </h3></div>
   
@@ -9658,11 +14528,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_copy_encounter(self, source)
+public module subroutine util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
     
     
    
-   <a href='../proc/util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -9686,12 +14556,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -9701,61 +14571,29 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  <td><strong>name</strong></td><td><p>Non-unique name</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_exit"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_exit(code)
-    
-    
-   
-   <a href='../proc/util_exit.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>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>particle_type</strong></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</p></td>
+  
+</tr>
 
   
   
@@ -9763,61 +14601,29 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>code</strong></td><td><p>Failure exit code</p></td>
+  <td><strong>status</strong></td><td><p>Particle status description: Active, Merged, Fragmented, etc.</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill_body"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_fill_body(self, inserts, lfill_list)
-    
-    
-   
-   <a href='../proc/util_fill_body.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>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_type</strong></td><td><p>String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)</p></td>
+  
+</tr>
 
   
   
@@ -9825,12 +14631,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>origin_time</strong></td><td><p>The time of the particle's formation</p></td>
   
 </tr>
 
@@ -9840,12 +14646,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td></td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's formation</p></td>
   
 </tr>
 
@@ -9855,61 +14661,29 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</td>
-  <td></td>
+  <td>optional</td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td><strong>origin_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill_pl"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_fill_pl(self, inserts, lfill_list)
-    
-    
-   
-   <a href='../proc/util_fill_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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
 
   
   
@@ -9917,12 +14691,12 @@ <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></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
   
 </tr>
 
@@ -9932,12 +14706,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td></td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
   
 </tr>
 
@@ -9947,12 +14721,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
-  <td></td>
+  <td>optional</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>discard_body_id</strong></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</p></td>
   
 </tr>
 
@@ -9971,7 +14745,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_rhill"></span><h3>interface 
     
   </h3></div>
   
@@ -9981,11 +14755,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_fill_tp(self, inserts, lfill_list)
+public module subroutine util_set_rhill(self, cb)
     
     
    
-   <a href='../proc/util_fill_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -10009,12 +14783,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_pl.html'>swiftest_pl</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>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -10024,27 +14798,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
+  <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>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -10063,21 +14822,22 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill~2"></span><h3>public interface <a href='../interface/util_fill~2.html'>util_fill</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_rhill_approximate"></span><h3>interface 
     
   </h3></div>
   
   <ul class="list-group">
   
-  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_fill_arr_char_string(keeps, inserts, lfill_list)
+public module subroutine util_set_rhill_approximate(self, cb)
     
     
    
+   <a href='../proc/util_set_rhill_approximate.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -10100,27 +14860,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=STRMAX),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=STRMAX),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -10130,12 +14875,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -10148,89 +14893,24 @@ <h4>Arguments</h4>
 
     </li>
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine util_fill_arr_DP(keeps, inserts, lfill_list)
-    
-    
-   
-</h3>
-    
+  </ul>
+</div>
+
     
-    <h4>Arguments</h4>
+     
+<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>
     
-      
-      
-<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(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  </h3></div>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <ul class="list-group">
   
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list)
+public function util_solve_linear_system_d(A, b, n, lerr) result(x)
     
     
    
@@ -10254,29 +14934,14 @@ <h4>Arguments</h4>
   
   
   
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>A</strong></td><td></td>
   
 </tr>
 
@@ -10286,60 +14951,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine util_fill_arr_I4B(keeps, inserts, lfill_list)
-    
-    
-   
-</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>integer(kind=I4B),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td><strong>b</strong></td><td></td>
   
 </tr>
 
@@ -10350,11 +14967,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td></td>
   
 </tr>
 
@@ -10365,11 +14982,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>lerr</strong></td><td></td>
   
 </tr>
 
@@ -10380,13 +14997,22 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP),
+  dimension(n)</small></h4>
+  
+    
+
     </li>
   
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_fill_arr_logical(keeps, inserts, lfill_list)
+public function util_solve_linear_system_q(A, b, n, lerr) result(x)
     
     
    
@@ -10412,12 +15038,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>real(kind=QP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>A</strong></td><td></td>
   
 </tr>
 
@@ -10427,12 +15053,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=QP),</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></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>
 
@@ -10443,11 +15084,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>lerr</strong></td><td></td>
   
 </tr>
 
@@ -10458,6 +15099,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=QP),
+  dimension(n)</small></h4>
+  
+    
+
     </li>
   
   
@@ -10468,7 +15118,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_minimize_bfgs"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_solve_rkf45"></span><h3>interface 
     
   </h3></div>
   
@@ -10478,11 +15128,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
+public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1)
     
     
    
-   <a href='../proc/util_minimize_bfgs.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>
     
@@ -10511,7 +15161,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>f</strong></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>
 
@@ -10521,12 +15171,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</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>dimension(:)</td><td>::</td>
+  <td><strong>y0in</strong></td><td><p>Initial value at t=0</p></td>
   
 </tr>
 
@@ -10537,11 +15187,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>x0</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>t1</strong></td><td><p>Final time</p></td>
   
 </tr>
 
@@ -10556,7 +15206,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>eps</strong></td><td></td>
+  <td><strong>dt0</strong></td><td><p>Initial step size guess</p></td>
   
 </tr>
 
@@ -10566,12 +15216,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>tol</strong></td><td><p>Tolerance on solution</p></td>
   
 </tr>
 
@@ -10588,7 +15238,7 @@ <h4>Arguments</h4>
   
      <h4>Return Value <small>real(kind=DP),
   dimension(:), allocatable</small></h4>
-  
+  <p>Final result</p>
     
 
     </li>
@@ -10599,22 +15249,69 @@ <h4>Return Value <small>real(kind=DP),
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_rescale_system"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort"></span><h3>public interface <a href='../interface/util_sort.html'>util_sort</a>
     
   </h3></div>
   
   <ul class="list-group">
   
+  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+public subroutine util_sort_i4b(arr)
     
     
    
-   <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>integer(kind=I4B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_sort_index_i4b(arr, ind)
     
+    
+   
 </h3>
     
     
@@ -10637,27 +15334,123 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <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 nbody system object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_sort_sp(arr)
+    
+    
+   
+</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=SP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_sort_index_sp(arr, ind)
+    
+    
+   
+</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_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=SP),</td>
+  <td>intent(in),</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>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
   
 </tr>
 
@@ -10667,29 +15460,47 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(out),</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>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
   
-  
-  
-  
-<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>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine util_sort_dp(arr)
+    
+    
+   
+</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>
 
   
   
@@ -10698,11 +15509,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(inout),</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>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
   
 </tr>
 
@@ -10715,28 +15526,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_peri_tp"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_peri_tp(self, system, param)
+public subroutine util_sort_index_dp(arr, ind)
     
     
    
-   <a href='../proc/util_peri_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -10759,27 +15556,12 @@ <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>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>arr</strong></td><td></td>
   
 </tr>
 
@@ -10789,12 +15571,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>integer(kind=I4B),</td>
+  <td>intent(out),</td>
   <td></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>ind</strong></td><td></td>
   
 </tr>
 
@@ -10807,13 +15589,15 @@ <h4>Arguments</h4>
 
     </li>
   
+  
+  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize~2"></span><h3>public interface <a href='../interface/util_resize~2.html'>util_resize</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange~2"></span><h3>public interface <a href='../interface/util_sort_rearrange~2.html'>util_sort_rearrange</a>
     
   </h3></div>
   
@@ -10824,7 +15608,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_resize_arr_char_string(arr, nnew)
+public subroutine util_sort_rearrange_arr_char_string(arr, ind, n)
     
     
    
@@ -10855,7 +15639,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td><strong>arr</strong></td><td><p>Destination array </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>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -10870,7 +15669,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -10887,7 +15686,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_resize_arr_DP(arr, nnew)
+public subroutine util_sort_rearrange_arr_DP(arr, ind, n)
     
     
    
@@ -10918,7 +15717,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td><strong>arr</strong></td><td><p>Destination array </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>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -10933,7 +15747,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -10950,7 +15764,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_resize_arr_DPvec(arr, nnew)
+public subroutine util_sort_rearrange_arr_DPvec(arr, ind, n)
     
     
    
@@ -10981,7 +15795,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td><strong>arr</strong></td><td><p>Destination array </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>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -10996,7 +15825,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -11013,7 +15842,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_resize_arr_I4B(arr, nnew)
+public subroutine util_sort_rearrange_arr_I4B(arr, ind, n)
     
     
    
@@ -11044,7 +15873,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td><strong>arr</strong></td><td><p>Destination array </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>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -11059,7 +15903,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -11076,7 +15920,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_resize_arr_logical(arr, nnew)
+public subroutine util_sort_rearrange_arr_info(arr, ind, n)
     
     
    
@@ -11102,12 +15946,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td><strong>arr</strong></td><td><p>Destination array </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>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -11122,7 +15981,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -11135,30 +15994,14 @@ <h4>Arguments</h4>
 
     </li>
   
-  
-  
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_body"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_resize_body(self, nnew)
+public subroutine util_sort_rearrange_arr_logical(arr, ind, n)
     
     
    
-   <a href='../proc/util_resize_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -11181,12 +16024,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -11201,7 +16059,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -11214,13 +16072,15 @@ <h4>Arguments</h4>
 
     </li>
   
+  
+  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_encounter"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange_body"></span><h3>interface 
     
   </h3></div>
   
@@ -11230,11 +16090,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_resize_encounter(self, nnew)
+public module subroutine util_sort_rearrange_body(self, ind)
     
     
    
-   <a href='../proc/util_resize_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_sort_rearrange_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11258,12 +16118,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -11274,11 +16134,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size of list needed</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
@@ -11297,7 +16157,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -11307,11 +16167,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_resize_pl(self, nnew)
+public module subroutine util_sort_rearrange_pl(self, ind)
     
     
    
-   <a href='../proc/util_resize_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11351,11 +16211,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
@@ -11374,7 +16234,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -11384,11 +16244,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_resize_tp(self, nnew)
+public module subroutine util_sort_rearrange_tp(self, ind)
     
     
    
-   <a href='../proc/util_resize_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11428,11 +16288,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
@@ -11451,7 +16311,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_get_energy_momentum_system"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_body"></span><h3>interface 
     
   </h3></div>
   
@@ -11461,11 +16321,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_get_energy_momentum_system(self, param)
+public module subroutine util_sort_body(self, sortby, ascending)
     
     
    
-   <a href='../proc/util_get_energy_momentum_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_sort_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11489,12 +16349,12 @@ <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_body.html'>swiftest_body</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>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -11504,12 +16364,27 @@ <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>character(len=*),</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>sortby</strong></td><td><p>Sorting attribute</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
   
 </tr>
 
@@ -11528,7 +16403,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_beg_end_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -11538,11 +16413,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
+public module subroutine util_sort_pl(self, sortby, ascending)
     
     
    
-   <a href='../proc/util_set_beg_end_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_sort_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11571,22 +16446,7 @@ <h4>Arguments</h4>
   <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>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -11596,12 +16456,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  <td></td><td>::</td>
+  <td><strong>sortby</strong></td><td><p>Sorting attribute</p></td>
   
 </tr>
 
@@ -11611,12 +16471,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
+  <td></td><td>::</td>
+  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
   
 </tr>
 
@@ -11635,7 +16495,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_ir3h"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -11645,11 +16505,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine util_sort_tp(self, sortby, ascending)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_sort_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11673,7 +16533,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -11682,6 +16542,36 @@ <h4>Arguments</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>sortby</strong></td><td><p>Sorting attribute</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -11697,22 +16587,21 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_msys"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill~2"></span><h3>public interface <a href='../interface/util_spill~2.html'>util_spill</a>
     
   </h3></div>
   
   <ul class="list-group">
   
+  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_set_msys(self)
+public subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/util_set_msys.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -11735,12 +16624,57 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>character(len=STRMAX),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=STRMAX),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -11753,28 +16687,14 @@ <h4>Arguments</h4>
 
     </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)
+public subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/util_set_mu_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -11797,12 +16717,12 @@ <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=DP),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -11812,12 +16732,42 @@ <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(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</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>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -11830,28 +16780,14 @@ <h4>Arguments</h4>
 
     </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)
+public subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/util_set_mu_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -11874,12 +16810,12 @@ <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(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -11889,74 +16825,27 @@ <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(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array discards</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>
-    
-    
-    <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><span class="anchor" ></span>logical,</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>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
   
 </tr>
 
@@ -11966,12 +16855,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(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -11984,28 +16873,14 @@ <h4>Arguments</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 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_set_rhill_approximate(self, cb)
+public subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/util_set_rhill_approximate.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -12028,12 +16903,12 @@ <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>integer(kind=I4B),</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>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -12043,12 +16918,42 @@ <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>integer(kind=I4B),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</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>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -12061,24 +16966,11 @@ <h4>Arguments</h4>
 
     </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)
+public subroutine util_spill_arr_I8B(keeps, discards, lspill_list, ldestructive)
     
     
    
@@ -12104,12 +16996,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>integer(kind=I8B),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>A</strong></td><td></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -12119,12 +17011,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>integer(kind=I8B),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>b</strong></td><td></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
   
 </tr>
 
@@ -12134,12 +17026,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>n</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
   
 </tr>
 
@@ -12150,11 +17042,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
-  <td>intent(out)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lerr</strong></td><td></td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -12165,22 +17057,13 @@ <h4>Arguments</h4>
     
     
 
-  
-  
-  
-  
-     <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)
+public subroutine util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
     
     
    
@@ -12206,12 +17089,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=QP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>A</strong></td><td></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -12221,12 +17104,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=QP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>b</strong></td><td></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
   
 </tr>
 
@@ -12236,12 +17119,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>n</strong></td><td></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
   
 </tr>
 
@@ -12252,56 +17135,31 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
-  <td>intent(out)</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>lerr</strong></td><td></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>real(kind=QP),
-  dimension(n)</small></h4>
-  
-    
-
-    </li>
-  
-  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
-  </ul>
-</div>
+</tr>
+
+</tbody>
+</table>
 
+      
     
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_solve_rkf45"></span><h3>interface 
     
-  </h3></div>
-  
-  <ul class="list-group">
+
+    </li>
   
     <li class="list-group-item">
     
     
     <h3>
-public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1)
+public subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/util_solve_rkf45.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -12324,27 +17182,12 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" ></span>logical,</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>y0in</strong></td><td><p>Initial value at t=0</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
   
 </tr>
 
@@ -12354,12 +17197,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>t1</strong></td><td><p>Final time</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
   
 </tr>
 
@@ -12369,12 +17212,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>dt0</strong></td><td><p>Initial step size guess</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
   
 </tr>
 
@@ -12384,12 +17227,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>logical,</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>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -12400,38 +17243,32 @@ <h4>Arguments</h4>
     
     
 
+    </li>
   
   
   
-  
-     <h4>Return Value <small>real(kind=DP),
-  dimension(:), allocatable</small></h4>
-  <p>Final result</p>
-    
-
-    </li>
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort"></span><h3>public interface <a href='../interface/util_sort.html'>util_sort</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_body"></span><h3>interface 
     
   </h3></div>
   
   <ul class="list-group">
   
-  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_sort_i4b(arr)
+public module subroutine util_spill_body(self, discards, lspill_list, ldestructive)
     
     
    
+   <a href='../proc/util_spill_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -12454,47 +17291,29 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine util_sort_index_i4b(arr, ind)
-    
-    
-   
-</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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  
+</tr>
 
   
   
@@ -12502,12 +17321,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
   
 </tr>
 
@@ -12517,12 +17336,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -12535,14 +17354,28 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_encounter"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_sort_sp(arr)
+public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive)
     
     
    
+   <a href='../proc/util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -12565,60 +17398,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=SP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine util_sort_index_sp(arr, ind)
-    
-    
-   
-</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=SP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
   
 </tr>
 
@@ -12628,60 +17428,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td></td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine util_sort_dp(arr)
-    
-    
-   
-</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(inout),</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter body by removing the discard list</p></td>
   
 </tr>
 
@@ -12694,14 +17461,28 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_sort_index_dp(arr, ind)
+public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive)
     
     
    
+   <a href='../proc/util_spill_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -12724,12 +17505,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</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 massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>arr</strong></td><td></td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
   
 </tr>
 
@@ -12739,12 +17550,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -12757,15 +17568,13 @@ <h4>Arguments</h4>
 
     </li>
   
-  
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -12775,11 +17584,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_sort_rearrange_body(self, ind)
+public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/util_sort_rearrange_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_spill_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -12801,6 +17610,21 @@ <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_body.html'>swiftest_body</a>),</td>
@@ -12808,7 +17632,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
   
 </tr>
 
@@ -12818,12 +17642,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
   
 </tr>
 
@@ -12842,7 +17681,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_valid_id_system"></span><h3>interface 
     
   </h3></div>
   
@@ -12852,11 +17691,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_sort_rearrange_pl(self, ind)
+public module subroutine util_valid_id_system(self, param)
     
     
    
-   <a href='../proc/util_sort_rearrange_pl.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>
     
@@ -12880,12 +17719,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(<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 massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -12895,12 +17734,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -12919,7 +17758,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_version"></span><h3>interface 
     
   </h3></div>
   
@@ -12929,12 +17768,50 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_sort_rearrange_tp(self, ind)
+public module subroutine util_version()
     
     
    
-   <a href='../proc/util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_version.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+    </section>
+  <br>
+    
+
+    
+    <section>
+     <h2>Abstract Interfaces</h2>
+   
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_read_frame"></span><h3>abstract interface
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    <li class="list-group-item">
+    
+    
+    <h3>
+public function abstract_read_frame(self, iu, param) result(ierr)
+    
+    
+   
 </h3>
     
     
@@ -12957,12 +17834,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_base.html'>swiftest_base</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>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -12973,11 +17850,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></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>
 
@@ -12988,30 +17880,35 @@ <h4>Arguments</h4>
     
     
 
-    </li>
   
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+    </li>
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_body"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_discard_body"></span><h3>abstract interface
     
   </h3></div>
   
   <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_sort_body(self, sortby, ascending)
+public subroutine abstract_discard_body(self, system, param)
     
     
    
-   <a href='../proc/util_sort_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -13049,12 +17946,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>sortby</strong></td><td><p>Sorting attribute</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -13064,12 +17961,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
+  <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>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -13081,29 +17978,25 @@ <h4>Arguments</h4>
     
 
     </li>
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_accel"></span><h3>abstract interface
     
   </h3></div>
   
   <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_sort_pl(self, sortby, ascending)
+public subroutine abstract_accel(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/util_sort_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -13126,12 +18019,42 @@ <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(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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 body object</p></td>
+  <td><strong>system</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>
 
@@ -13141,12 +18064,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>sortby</strong></td><td><p>Sorting attribute</p></td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
   
 </tr>
 
@@ -13161,7 +18084,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -13173,29 +18096,25 @@ <h4>Arguments</h4>
     
 
     </li>
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_kick_body"></span><h3>abstract interface
     
   </h3></div>
   
   <ul class="list-group">
-  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_sort_tp(self, sortby, ascending)
+public subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
     
     
    
-   <a href='../proc/util_sort_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -13218,12 +18137,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_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
   
 </tr>
 
@@ -13233,12 +18152,57 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</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>system</strong></td><td><p>Swiftest nbody system objec</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>sortby</strong></td><td><p>Sorting attribute</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>t</strong></td><td><p>Current 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>dt</strong></td><td><p>Stepsize</p></td>
   
 </tr>
 
@@ -13253,7 +18217,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
   
 </tr>
 
@@ -13265,25 +18229,22 @@ <h4>Arguments</h4>
     
 
     </li>
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill~2"></span><h3>public interface <a href='../interface/util_spill~2.html'>util_spill</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_set_mu"></span><h3>abstract interface
     
   </h3></div>
   
   <ul class="list-group">
-  
-  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive)
+public subroutine abstract_set_mu(self, cb)
     
     
    
@@ -13309,42 +18270,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=STRMAX),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=STRMAX),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -13354,12 +18285,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
+  <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>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -13371,12 +18302,22 @@ <h4>Arguments</h4>
     
 
     </li>
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_step_body"></span><h3>abstract interface
+    
+  </h3></div>
   
+  <ul class="list-group">
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive)
+public subroutine abstract_step_body(self, system, param, t, dt)
     
     
    
@@ -13402,12 +18343,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -13417,12 +18358,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -13432,12 +18373,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -13447,12 +18388,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>t</strong></td><td><p>Simulation 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>dt</strong></td><td><p>Current stepsize</p></td>
   
 </tr>
 
@@ -13464,12 +18420,22 @@ <h4>Arguments</h4>
     
 
     </li>
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_step_system"></span><h3>abstract interface
+    
+  </h3></div>
   
+  <ul class="list-group">
     <li class="list-group-item">
     
     
     <h3>
-public subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive)
+public subroutine abstract_step_system(self, param, t, dt)
     
     
    
@@ -13495,12 +18461,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -13510,12 +18476,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array discards</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -13525,12 +18491,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Simulation time</p></td>
   
 </tr>
 
@@ -13540,12 +18506,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
   
 </tr>
 
@@ -13557,26 +18523,32 @@ <h4>Arguments</h4>
     
 
     </li>
-  
-    <li class="list-group-item">
+  </ul>
+</div>
+
     
+    </section>
+  <br>
     
-    <h3>
-public subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive)
     
     
+    <section>
+     <h2>Derived Types</h2>
    
-</h3>
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-netcdf_parameters"></span><h3>type, public :: <a href='../type/netcdf_parameters.html'>netcdf_parameters</a>
     
+  </h3></div>
+  <div class="panel-body">
     
-    <h4>Arguments</h4>
+     
+     <h4>Components</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>
+<thead><tr><th>Type</th><th>Visibility</th>
+
+<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
 
 
 
@@ -13588,12 +18560,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-out_type~2"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>out_type</strong></td><td></td><td></td><td><p>NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter)</p></td>
   
 </tr>
 
@@ -13603,12 +18574,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-ncid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ncid</strong></td><td></td><td></td><td><p>NetCDF ID for the output file</p></td>
   
 </tr>
 
@@ -13618,12 +18588,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-dimids"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>dimids</strong>(3)</td><td></td><td></td><td><p>Dimensions of the NetCDF file</p></td>
   
 </tr>
 
@@ -13633,60 +18602,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-time_dimid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>time_dimid</strong></td><td></td><td></td><td><p>NetCDF ID for the time dimension </p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive)
-    
-    
-   
-</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>logical,</td>
-  <td>intent(inout),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-id_dimid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>id_dimid</strong></td><td></td><td></td><td><p>NetCDF ID for the particle id dimension</p></td>
   
 </tr>
 
@@ -13696,12 +18630,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(inout),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-str_dimid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>str_dimid</strong></td><td></td><td></td><td><p>NetCDF ID for the character string dimension</p></td>
   
 </tr>
 
@@ -13711,12 +18644,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-time_varid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>time_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the time variable</p></td>
   
 </tr>
 
@@ -13726,63 +18658,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-id_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>id_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the particle name variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
   
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_body"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
+<tr>
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_spill_body(self, discards, lspill_list, ldestructive)
-    
-    
-   
-   <a href='../proc/util_spill_body.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>
+  <td><span class="anchor" id="variable-name_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>name_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the namevariable </p></td>
+  
+</tr>
 
   
   
@@ -13790,12 +18686,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-ptype_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>ptype_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the particle type variable</p></td>
   
 </tr>
 
@@ -13805,12 +18700,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-npl_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  <td><strong>npl_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the number of active massive bodies variable</p></td>
   
 </tr>
 
@@ -13820,12 +18714,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-ntp_varid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ntp_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the number of active test particles variable</p></td>
   
 </tr>
 
@@ -13835,74 +18728,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-a_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>a_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the semimajor axis variable </p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_encounter"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive)
-    
-    
-   
-   <a href='../proc/util_spill_encounter.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_encounter.html'>swiftest_encounter</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-e_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
+  <td><strong>e_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the eccentricity variable </p></td>
   
 </tr>
 
@@ -13912,12 +18756,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-inc_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  <td><strong>inc_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the inclination variable </p></td>
   
 </tr>
 
@@ -13927,12 +18770,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-capom_varid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>capom_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the long. asc. node variable </p></td>
   
 </tr>
 
@@ -13942,61 +18784,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-omega_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter body by removing the discard list</p></td>
+  <td><strong>omega_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the arg. periapsis variable </p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_pl"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive)
-    
-    
-   
-   <a href='../proc/util_spill_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" id="variable-capm_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>capm_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the mean anomaly variable </p></td>
+  
+</tr>
 
   
   
@@ -14004,12 +18812,11 @@ <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></td>
+  <td><span class="anchor" id="variable-xhx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  <td><strong>xhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position x variable </p></td>
   
 </tr>
 
@@ -14019,12 +18826,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-xhy_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  <td><strong>xhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position y variable </p></td>
   
 </tr>
 
@@ -14034,12 +18840,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-xhz_varid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>xhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position z variable </p></td>
   
 </tr>
 
@@ -14049,61 +18854,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-vhx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>vhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity x variable </p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill_tp"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive)
-    
-    
-   
-   <a href='../proc/util_spill_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" id="variable-vhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>vhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity y variable </p></td>
+  
+</tr>
 
   
   
@@ -14111,12 +18882,11 @@ <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><span class="anchor" id="variable-vhz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  <td><strong>vhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity z variable </p></td>
   
 </tr>
 
@@ -14126,12 +18896,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-gmass_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  <td><strong>Gmass_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the mass variable</p></td>
   
 </tr>
 
@@ -14141,12 +18910,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-rhill_varid"></span>integer(kind=I4B),</td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>rhill_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the hill radius variable</p></td>
   
 </tr>
 
@@ -14156,61 +18924,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-radius_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>radius_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the radius variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_valid_id_system"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <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" id="variable-ip1_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Ip1_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the axis 1 principal moment of inertia variable</p></td>
+  
+</tr>
 
   
   
@@ -14218,12 +18952,11 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" id="variable-ip2_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>Ip2_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the axis 2 principal moment of inertia variable</p></td>
   
 </tr>
 
@@ -14233,99 +18966,41 @@ <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><span class="anchor" id="variable-ip3_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
+  <td><strong>Ip3_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the axis 3 principal moment of inertia variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_version"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
   
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine util_version()
-    
-    
-   
-   <a href='../proc/util_version.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      <em>None</em>
-    
-    
-
-    </li>
   
-  </ul>
-</div>
-
-    
-    </section>
-  <br>
-    
-
-    
-    <section>
-     <h2>Abstract Interfaces</h2>
-   
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_discard_body"></span><h3>abstract interface
-    
-  </h3></div>
+<tr>
   
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_discard_body(self, system, param)
-    
-    
-   
-</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>
-
-
+  <td><span class="anchor" id="variable-rotx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>rotx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the rotation x variable</p></td>
+  
+</tr>
 
-<tbody>
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-roty_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>roty_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the rotation y variable</p></td>
+  
+</tr>
 
   
   
@@ -14333,12 +19008,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-rotz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>rotz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the rotation z variable</p></td>
   
 </tr>
 
@@ -14348,12 +19022,11 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" id="variable-k2_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>k2_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the Love number variable</p></td>
   
 </tr>
 
@@ -14363,70 +19036,25 @@ <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" id="variable-q_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>Q_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the energy dissipation variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_accel"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_accel(self, system, param, t, lbeg)
-    
-    
-   
-</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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-ke_orb_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body data structure</p></td>
+  <td><strong>KE_orb_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital kinetic energy variable</p></td>
   
 </tr>
 
@@ -14436,12 +19064,11 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" id="variable-ke_spin_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>KE_spin_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin kinetic energy variable</p></td>
   
 </tr>
 
@@ -14451,12 +19078,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></td>
+  <td><span class="anchor" id="variable-pe_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>PE_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system potential energy variable</p></td>
   
 </tr>
 
@@ -14466,12 +19092,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-l_orbx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  <td><strong>L_orbx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital angular momentum x variable</p></td>
   
 </tr>
 
@@ -14481,70 +19106,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-l_orby_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>L_orby_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital angular momentum y variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_initialize"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_initialize(self, param)
-    
-    
-   
-</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_base.html'>swiftest_base</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-l_orbz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>L_orbz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital angular momentum z variable</p></td>
   
 </tr>
 
@@ -14554,70 +19134,25 @@ <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" id="variable-l_spinx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>L_spinx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin angular momentum x variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_kick_body"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
-    
-    
-   
-</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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-l_spiny_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
+  <td><strong>L_spiny_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin angular momentum y variable</p></td>
   
 </tr>
 
@@ -14627,12 +19162,11 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" id="variable-l_spinz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system objec</p></td>
+  <td><strong>L_spinz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin angular momentum z variable</p></td>
   
 </tr>
 
@@ -14642,12 +19176,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></td>
+  <td><span class="anchor" id="variable-l_escapex_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>L_escapex_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the escaped angular momentum x variable</p></td>
   
 </tr>
 
@@ -14657,12 +19190,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-l_escapey_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td><strong>L_escapey_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the escaped angular momentum x variable</p></td>
   
 </tr>
 
@@ -14672,12 +19204,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-l_escapez_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  <td><strong>L_escapez_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the escaped angular momentum x variable</p></td>
   
 </tr>
 
@@ -14687,70 +19218,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-ecollisions_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
+  <td><strong>Ecollisions_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the energy lost in collisions variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_read_frame"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_read_frame(self, iu, param, form, ierr)
-    
-    
-   
-</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_base.html'>swiftest_base</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
+  <td><span class="anchor" id="variable-euntracked_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>Euntracked_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)</p></td>
   
 </tr>
 
@@ -14760,12 +19246,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-gmescape_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</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>GMescape_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the G*Mass of bodies that escape the system</p></td>
   
 </tr>
 
@@ -14775,12 +19260,11 @@ <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" id="variable-status_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>status_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the status variable</p></td>
   
 </tr>
 
@@ -14790,12 +19274,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-origin_type_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
+  <td><strong>origin_type_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin type</p></td>
   
 </tr>
 
@@ -14805,70 +19288,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-origin_time_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>origin_time_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin time</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_set_mu"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_set_mu(self, cb)
-    
-    
-   
-</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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-origin_xhx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>origin_xhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh x component</p></td>
   
 </tr>
 
@@ -14878,70 +19316,25 @@ <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></td>
+  <td><span class="anchor" id="variable-origin_xhy_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>origin_xhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh y component</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_step_body"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_step_body(self, system, param, t, dt)
-    
-    
-   
-</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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-origin_xhz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>origin_xhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh z component</p></td>
   
 </tr>
 
@@ -14951,12 +19344,11 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" id="variable-origin_vhx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>origin_vhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh x component</p></td>
   
 </tr>
 
@@ -14966,12 +19358,11 @@ <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" id="variable-origin_vhy_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>origin_vhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh y component</p></td>
   
 </tr>
 
@@ -14981,12 +19372,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-origin_vhz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Simulation time</p></td>
+  <td><strong>origin_vhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh z component</p></td>
   
 </tr>
 
@@ -14996,70 +19386,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-discard_time_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
+  <td><strong>discard_time_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the time of discard variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_step_system"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_step_system(self, param, t, dt)
-    
-    
-   
-</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><span class="anchor" id="variable-discard_xhx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>discard_xhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position of the body at the time of discard x variable</p></td>
   
 </tr>
 
@@ -15069,12 +19414,11 @@ <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" id="variable-discard_xhy_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>discard_xhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position of the body at the time of discard y variable</p></td>
   
 </tr>
 
@@ -15084,12 +19428,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-discard_xhz_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Simulation time</p></td>
+  <td><strong>discard_xhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position of the body at the time of discard z variable</p></td>
   
 </tr>
 
@@ -15099,70 +19442,25 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-discard_vhx_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
+  <td><strong>discard_vhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity of the body at the time of discard x variable</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-abstract_write_frame"></span><h3>abstract interface
-    
-  </h3></div>
-  
-  <ul class="list-group">
-    <li class="list-group-item">
-    
-    
-    <h3>
-public subroutine abstract_write_frame(self, iu, param)
-    
-    
-   
-</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_base.html'>swiftest_base</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-discard_vhy_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>discard_vhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity of the body at the time of discard y variable</p></td>
   
 </tr>
 
@@ -15172,12 +19470,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
+  <td><span class="anchor" id="variable-discard_vhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</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>discard_vhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity of the body at the time of discard z variable</p></td>
   
 </tr>
 
@@ -15187,35 +19484,41 @@ <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><span class="anchor" id="variable-discard_body_id_varid"></span>integer(kind=I4B),</td>
   
+  <td>public</td>
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>discard_body_id_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the id of the other body involved in the discard</p></td>
   
 </tr>
 
 </tbody>
 </table>
 
+     
+     
+          
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
       
-    
-    
-
-    </li>
-  </ul>
+       <tr><td>procedure, public :: <strong><a href='../type/netcdf_parameters.html#boundprocedure-close'>close</a></strong>  => netcdf_close </td>
+       <td><p>Closes an open NetCDF file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/netcdf_parameters.html#boundprocedure-initialize~5'>initialize</a></strong>  => netcdf_initialize_output </td>
+       <td><p>Initialize a set of parameters used to identify a NetCDF output object</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/netcdf_parameters.html#boundprocedure-open'>open</a></strong>  => netcdf_open </td>
+       <td><p>Opens a NetCDF file</p></td></tr>
+      
+       </tbody>
+       </table>
+     
+  </div>
 </div>
 
-    
-    </section>
-  <br>
-    
-    
-    
-    <section>
-     <h2>Derived Types</h2>
-   
+     
      
 <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="type-swiftest_parameters"></span><h3>type, public :: <a href='../type/swiftest_parameters.html'>swiftest_parameters</a>
@@ -15259,11 +19562,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nplmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of massive bodies</p></td>
+  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
   
 </tr>
 
@@ -15273,11 +19576,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ntpmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ntpmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of test particles</p></td>
+  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
   
 </tr>
 
@@ -15287,11 +19590,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
+  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
   
 </tr>
 
@@ -15301,11 +19604,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
+  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
   
 </tr>
 
@@ -15315,11 +19618,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
+  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
   
 </tr>
 
@@ -15329,11 +19632,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ioutput"></span>integer(kind=I8B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
+  <td><strong>ioutput</strong></td><td> =</td><td>0_I8B</td><td><p>Output counter</p></td>
   
 </tr>
 
@@ -15389,7 +19692,21 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Format of input data files</p></td>
+  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Data representation type of input data files</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-in_form"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>in_form</strong></td><td> =</td><td>XV</td><td><p>Format of input data files (EL or XV)</p></td>
   
 </tr>
 
@@ -15417,7 +19734,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>outfile</strong></td><td> =</td><td>BIN_OUTFILE</td><td><p>Name of output binary file</p></td>
+  <td><strong>outfile</strong></td><td> =</td><td>NETCDF_OUTFILE</td><td><p>Name of output binary file</p></td>
   
 </tr>
 
@@ -15431,7 +19748,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td> =</td><td>REAL8_TYPE</td><td><p>Binary format of output file</p></td>
+  <td><strong>out_type</strong></td><td> =</td><td>NETCDF_DOUBLE_TYPE</td><td><p>Binary format of output file</p></td>
   
 </tr>
 
@@ -15445,7 +19762,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_form</strong></td><td> =</td><td>XV</td><td><p>Data to write to output file</p></td>
+  <td><strong>out_form</strong></td><td> =</td><td>XVEL</td><td><p>Data to write to output file</p></td>
   
 </tr>
 
@@ -15467,6 +19784,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-istep_dump"></span>integer(kind=I4B),</td>
@@ -15819,25 +20150,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtot_orig"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lmag_orig"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtot_orig"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Lmag_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial total angular momentum magnitude</p></td>
+  <td><strong>GMtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
   
 </tr>
 
@@ -15889,21 +20206,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
@@ -15917,11 +20220,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmescape"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
+  <td><strong>GMescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
   
 </tr>
 
@@ -15931,7 +20234,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ecollisions~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -15945,7 +20248,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -16037,6 +20340,20 @@ <h4>Components</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nciu"></span>type(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nciu</strong></td><td></td><td></td><td><p>Object containing NetCDF parameters</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -16057,7 +20374,7 @@ <h4>Type-Bound Procedures</h4>
        <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_parameters.html#boundprocedure-read_in~3'>read_in</a></strong>  => io_read_in_param </td>
        <td></td></tr>
       
        </tbody>
@@ -16069,14 +20386,14 @@ <h4>Type-Bound Procedures</h4>
      
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-swiftest_base"></span><h3>type, public, abstract :: <a href='../type/swiftest_base.html'>swiftest_base</a>
+  <div class="panel-heading codesum"><span class="anchor" id="type-swiftest_particle_info"></span><h3>type, public :: <a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>
     
   </h3></div>
   <div class="panel-body">
     
     
-    <p>An superclass for a generic Swiftest object
- The minimal methods that all systems must have</p>
+    <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>
@@ -16096,11 +20413,151 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lintegrate"></span>logical,</td>
+  <td><span class="anchor" id="variable-name"></span>character(len=NAMELEN),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_type"></span>character(len=NAMELEN),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>particle_type</strong></td><td></td><td></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_type"></span>character(len=NAMELEN),</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_time"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td></td><td></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~3"></span>character(len=NAMELEN),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>Particle status description: Active, Merged, Fragmented, etc.</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td></td><td></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td></td><td></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_body_id"></span>integer(kind=I4B),</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>
+  <td><strong>discard_body_id</strong></td><td></td><td></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</p></td>
   
 </tr>
 
@@ -16115,16 +20572,60 @@ <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_particle_info.html#boundprocedure-dump~4'>dump</a></strong>  => io_dump_particle_info </td>
+       <td><p>Dumps contents of particle information to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_particle_info.html#boundprocedure-read_in~4'>read_in</a></strong>  => io_read_in_particle_info </td>
+       <td><p>Read in a particle information object from an open file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_particle_info.html#boundprocedure-copy~2'>copy</a></strong>  => util_copy_particle_info </td>
+       <td><p>Copies one set of information object components into another, component-by-component</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_particle_info.html#boundprocedure-set_value'>set_value</a></strong>  => util_set_particle_info </td>
+       <td><p>Sets one or more values of the particle information metadata object</p></td></tr>
+      
+       </tbody>
+       </table>
+     
+  </div>
+</div>
+
+     
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-swiftest_base"></span><h3>type, public, abstract :: <a href='../type/swiftest_base.html'>swiftest_base</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>An abstract superclass for a generic Swiftest object
+ The minimal methods that all systems must have</p>
+    
+     
+     
+          
+     
+     <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_base </td>
+       <td><p>Dump contents to file</p></td></tr>
       
-       <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, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
       
-       <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, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
       
-       <tr><td>procedure(abstract_write_frame), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame~4'>write_frame</a></strong>  </td>
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame~16'>write_frame</a></strong>  => write_frame_netcdf </td>
+       <td><p>Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info~15'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        </tbody>
@@ -16162,25 +20663,11 @@ <h4>Components</h4>
   
 <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -16517,18 +21004,33 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_particle_info~16'>write_particle_info</a></strong>  => write_particle_info_netcdf </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_in'>read_in</a></strong>  => io_read_in_cb </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</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>
       
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame~17'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Write a frame (either binary or NetCDF, using generic procedures)</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -16563,20 +21065,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -16607,11 +21095,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -16695,7 +21183,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -16709,7 +21197,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -16908,22 +21396,34 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_particle_info~17'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure(abstract_discard_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-discard~6'>discard</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_kick_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-kick~6'>kick</a></strong>  </td>
+       <tr><td>procedure(abstract_kick_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-kick~7'>kick</a></strong>  </td>
        <td></td></tr>
       
        <tr><td>procedure(abstract_set_mu), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_mu~4'>set_mu</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_step_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-step~9'>step</a></strong>  </td>
+       <tr><td>procedure(abstract_step_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-step~10'>step</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_accel), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel~8'>accel</a></strong>  </td>
+       <tr><td>procedure(abstract_accel), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel~9'>accel</a></strong>  </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-drift'>drift</a></strong>  => drift_body </td>
@@ -16935,13 +21435,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_obl~3'>accel_obl</a></strong>  => obl_acc_body </td>
@@ -16953,13 +21453,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-xv2el'>xv2el</a></strong>  => orbel_xv2el_vec </td>
        <td><p>Convert position and velocity vectors to orbital  elements </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-setup~10'>setup</a></strong>  => setup_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-setup~11'>setup</a></strong>  => setup_body </td>
        <td><p>A constructor that sets the number of bodies and allocates all allocatable arrays</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_user'>accel_user</a></strong>  => user_kick_getacch_body </td>
        <td><p>Add user-supplied heliocentric accelerations to planets</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-append~9'>append</a></strong>  => util_append_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-append~10'>append</a></strong>  => util_append_body </td>
        <td><p>Appends elements from one structure to another</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-fill~8'>fill</a></strong>  => util_fill_body </td>
@@ -16980,6 +21480,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-spill~9'>spill</a></strong>  => util_spill_body </td>
        <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~18'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -17014,20 +21517,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -17058,11 +21547,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -17146,7 +21635,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -17160,7 +21649,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -17571,16 +22060,28 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-write_particle_info~18'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_kick_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-kick~6'>kick</a></strong>  </td>
+       <tr><td>procedure(abstract_kick_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-kick~7'>kick</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_step_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-step~9'>step</a></strong>  </td>
+       <tr><td>procedure(abstract_step_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-step~10'>step</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_accel), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel~8'>accel</a></strong>  </td>
+       <tr><td>procedure(abstract_accel), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel~9'>accel</a></strong>  </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-drift'>drift</a></strong>  => drift_body </td>
@@ -17592,13 +22093,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -17613,10 +22114,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-write_frame~19'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-discard~3'>discard</a></strong>  => discard_pl </td>
        <td><p>Placeholder method for discarding massive bodies </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-eucl_index'>eucl_index</a></strong>  => eucl_dist_index_plpl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-index~2'>index</a></strong>  => util_index_eucl_plpl </td>
        <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
@@ -17640,6 +22144,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
        <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-fill~3'>fill</a></strong>  => util_fill_pl </td>
        <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
       
@@ -17698,20 +22211,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -17742,11 +22241,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -17830,7 +22329,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -17844,7 +22343,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -18070,7 +22569,35 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -18087,16 +22614,28 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-write_particle_info~19'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_kick_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-kick~6'>kick</a></strong>  </td>
+       <tr><td>procedure(abstract_kick_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-kick~7'>kick</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_step_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-step~9'>step</a></strong>  </td>
+       <tr><td>procedure(abstract_step_body), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-step~10'>step</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_accel), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel~8'>accel</a></strong>  </td>
+       <tr><td>procedure(abstract_accel), public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel~9'>accel</a></strong>  </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-drift'>drift</a></strong>  => drift_body </td>
@@ -18108,13 +22647,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -18129,6 +22668,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-write_frame~20'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-discard~4'>discard</a></strong>  => discard_tp </td>
        <td><p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p></td></tr>
       
@@ -18150,6 +22692,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-b2h'>b2h</a></strong>  => util_coord_b2h_tp </td>
        <td><p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => util_coord_vb2vh_tp </td>
+       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => util_coord_vh2vb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-xh2xb'>xh2xb</a></strong>  => util_coord_xh2xb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-fill~4'>fill</a></strong>  => util_fill_tp </td>
        <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
       
@@ -18180,7 +22731,7 @@ <h4>Type-Bound Procedures</h4>
      
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-swiftest_nbody_system"></span><h3>type, public, abstract, extends(<a href='../type/swiftest_base.html'>swiftest_base</a>) :: <a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>
+  <div class="panel-heading codesum"><span class="anchor" id="type-swiftest_nbody_system"></span><h3>type, public, abstract :: <a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>
     
   </h3></div>
   <div class="panel-body">
@@ -18205,20 +22756,6 @@ <h4>Components</h4>
   
   
   
-<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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -18295,7 +22832,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -18361,11 +22898,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -18375,11 +22912,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -18389,39 +22926,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -18431,11 +22940,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -18455,20 +22964,6 @@ <h4>Components</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -18480,7 +22975,7 @@ <h4>Type-Bound Procedures</h4>
       <table class="table table-striped varlist">
       <tbody>
       
-       <tr><td>procedure(abstract_step_system), public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-step~10'>step</a></strong>  </td>
+       <tr><td>procedure(abstract_step_system), public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-step~11'>step</a></strong>  </td>
        <td><p>Each integrator will have its own version of the step</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-discard'>discard</a></strong>  => discard_system </td>
@@ -18492,16 +22987,34 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-dump'>dump</a></strong>  => io_dump_system </td>
        <td><p>Dump the state of the system to a file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final'>get_old_t_final</a></strong>  => io_get_old_t_final_system </td>
+       <td><p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_frame'>read_frame</a></strong>  => io_read_frame_system </td>
        <td><p>Read in a frame of input data from file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_particle_info'>read_particle_info</a></strong>  => io_read_particle_info_system </td>
+       <td><p>Read in particle metadata from file</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_discard'>write_discard</a></strong>  => io_write_discard </td>
        <td><p>Write out information about discarded test particles</p></td></tr>
       
        <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~7'>initialize</a></strong>  => setup_initialize_system </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin'>write_hdr_bin</a></strong>  => io_write_hdr_system </td>
+       <td><p>Write a header for an output frame in Fortran binary format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a></strong>  => netcdf_write_hdr_system </td>
+       <td><p>Write a header for an output frame in NetCDF format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-obl_pot'>obl_pot</a></strong>  => obl_pot_system </td>
+       <td><p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-initialize~6'>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-init_particle_info'>init_particle_info</a></strong>  => setup_initialize_particle_info_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>
@@ -18519,6 +23032,9 @@ <h4>Type-Bound Procedures</h4>
        <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>generic, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr~5'>write_hdr</a></strong>  => write_hdr_bin, write_hdr_netcdf </td>
+       <td><p>Generic method call for writing headers</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -18591,6 +23107,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
@@ -18619,6 +23149,34 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
@@ -18671,6 +23229,20 @@ <h4>Components</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -18682,10 +23254,13 @@ <h4>Type-Bound Procedures</h4>
       <table class="table table-striped varlist">
       <tbody>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-setup~11'>setup</a></strong>  => setup_encounter </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-setup~12'>setup</a></strong>  => setup_encounter </td>
        <td><p>A constructor that sets the number of encounters and allocates and initializes all arrays  </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-copy'>copy</a></strong>  => util_copy_encounter </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-append~11'>append</a></strong>  => util_append_encounter </td>
+       <td><p>Appends elements from one structure to another</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-copy~3'>copy</a></strong>  => util_copy_encounter </td>
        <td><p>Copies elements from the source encounter list into self.</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-spill~10'>spill</a></strong>  => util_spill_encounter </td>
@@ -18694,6 +23269,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-resize~9'>resize</a></strong>  => util_resize_encounter </td>
        <td><p>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.</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-write'>write</a></strong>  => io_write_encounter </td>
+       <td><p>Write close encounter data to output binary file</p></td></tr>
+      
        </tbody>
        </table>
      
diff --git a/docs/module/swiftest_globals.html b/docs/module/swiftest_globals.html
index e2645f605..5b3f73ed8 100644
--- a/docs/module/swiftest_globals.html
+++ b/docs/module/swiftest_globals.html
@@ -136,7 +136,7 @@ <h1>swiftest_globals
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for modules and submodules.">92 statements</a>
+    title=" 1.0% of total for modules and submodules.">164 statements</a>
      </li> 
      
      
@@ -203,7 +203,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-third">THIRD</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-degrad">DEGRAD</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-deg2rad">DEG2RAD</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rad2deg">RAD2DEG</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gc">GC</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-einsteinc">einsteinC</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-lowercase_begin">LOWERCASE_BEGIN</a>
       
@@ -233,20 +239,32 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-strmax">STRMAX</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-namelen">NAMELEN</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-ascii_type">ASCII_TYPE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-real4_type">REAL4_TYPE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-real8_type">REAL8_TYPE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-swifter_real4_type">SWIFTER_REAL4_TYPE</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-netcdf_float_type">NETCDF_FLOAT_TYPE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-swifter_real8_type">SWIFTER_REAL8_TYPE</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-netcdf_double_type">NETCDF_DOUBLE_TYPE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-el">EL</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-xv">XV</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xvel">XVEL</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-cb_type_name">CB_TYPE_NAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-pl_type_name">PL_TYPE_NAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-tp_type_name">TP_TYPE_NAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-pl_tiny_type_name">PL_TINY_TYPE_NAME</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-nthreads">nthreads</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-nthershold">NTHERSHOLD</a>
@@ -299,10 +317,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-graze_and_merge">GRAZE_AND_MERGE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-hit_and_run">HIT_AND_RUN</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-hit_and_run_disrupt">HIT_AND_RUN_DISRUPT</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-hit_and_run_pure">HIT_AND_RUN_PURE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-collision">COLLISION</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-new_particle">NEW_PARTICLE</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-old_particle">OLD_PARTICLE</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-collresolve_regime_merge">COLLRESOLVE_REGIME_MERGE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-collresolve_regime_disruption">COLLRESOLVE_REGIME_DISRUPTION</a>
@@ -327,12 +351,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-dump_param_file">DUMP_PARAM_FILE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-enc_outfile">ENC_OUTFILE</a>
-      
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_file">DISCARD_FILE</a>
-      
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-energy_file">ENERGY_FILE</a>
-      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-cb_infile">CB_INFILE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-pl_infile">PL_INFILE</a>
@@ -343,15 +361,141 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-binunit">BINUNIT</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-particle_outfile">PARTICLE_OUTFILE</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-particleunit">PARTICLEUNIT</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-ndim">NDIM</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-ndim2">NDIM2</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-vsmall">VSMALL</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gc">GC</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-netcdf_outfile">NETCDF_OUTFILE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-einsteinc">einsteinC</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-time_dimname">TIME_DIMNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-id_dimname">ID_DIMNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-str_dimname">STR_DIMNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ptype_varname">PTYPE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-name_varname">NAME_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-npl_varname">NPL_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ntp_varname">NTP_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-a_varname">A_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-e_varname">E_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-inc_varname">INC_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-capom_varname">CAPOM_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-omega_varname">OMEGA_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-capm_varname">CAPM_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xhx_varname">XHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xhy_varname">XHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xhz_varname">XHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-vhx_varname">VHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-vhy_varname">VHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-vhz_varname">VHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gmass_varname">GMASS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rhill_varname">RHILL_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-radius_varname">RADIUS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ip1_varname">IP1_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ip2_varname">IP2_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ip3_varname">IP3_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rotx_varname">ROTX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-roty_varname">ROTY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rotz_varname">ROTZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-k2_varname">K2_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-q_varname">Q_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ke_orb_varname">KE_ORB_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ke_spin_varname">KE_SPIN_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-pe_varname">PE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_orbx_varname">L_ORBX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_orby_varname">L_ORBY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_orbz_varname">L_ORBZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_spinx_varname">L_SPINX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_spiny_varname">L_SPINY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_spinz_varname">L_SPINZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_escapex_varname">L_ESCAPEX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_escapey_varname">L_ESCAPEY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_escapez_varname">L_ESCAPEZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ecollisions_varname">ECOLLISIONS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-euntracked_varname">EUNTRACKED_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gmescape_varname">GMESCAPE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-status_varname">STATUS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_type_varname">ORIGIN_TYPE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_time_varname">ORIGIN_TIME_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_xhx_varname">ORIGIN_XHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_xhy_varname">ORIGIN_XHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_xhz_varname">ORIGIN_XHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_vhx_varname">ORIGIN_VHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_vhy_varname">ORIGIN_VHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_vhz_varname">ORIGIN_VHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_time_varname">DISCARD_TIME_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_xhx_varname">DISCARD_XHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_xhy_varname">DISCARD_XHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_xhz_varname">DISCARD_XHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_vhx_varname">DISCARD_VHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_vhy_varname">DISCARD_VHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_vhz_varname">DISCARD_VHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_body_id_varname">DISCARD_BODY_ID_VARNAME</a>
       
     </div>
   </div>
@@ -448,7 +592,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-third">THIRD</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-degrad">DEGRAD</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-deg2rad">DEG2RAD</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rad2deg">RAD2DEG</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gc">GC</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-einsteinc">einsteinC</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-lowercase_begin">LOWERCASE_BEGIN</a>
       
@@ -478,20 +628,32 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-strmax">STRMAX</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-namelen">NAMELEN</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-ascii_type">ASCII_TYPE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-real4_type">REAL4_TYPE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-real8_type">REAL8_TYPE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-swifter_real4_type">SWIFTER_REAL4_TYPE</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-netcdf_float_type">NETCDF_FLOAT_TYPE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-swifter_real8_type">SWIFTER_REAL8_TYPE</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-netcdf_double_type">NETCDF_DOUBLE_TYPE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-el">EL</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-xv">XV</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xvel">XVEL</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-cb_type_name">CB_TYPE_NAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-pl_type_name">PL_TYPE_NAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-tp_type_name">TP_TYPE_NAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-pl_tiny_type_name">PL_TINY_TYPE_NAME</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-nthreads">nthreads</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-nthershold">NTHERSHOLD</a>
@@ -544,10 +706,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-graze_and_merge">GRAZE_AND_MERGE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-hit_and_run">HIT_AND_RUN</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-hit_and_run_disrupt">HIT_AND_RUN_DISRUPT</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-hit_and_run_pure">HIT_AND_RUN_PURE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-collision">COLLISION</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-new_particle">NEW_PARTICLE</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-old_particle">OLD_PARTICLE</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-collresolve_regime_merge">COLLRESOLVE_REGIME_MERGE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-collresolve_regime_disruption">COLLRESOLVE_REGIME_DISRUPTION</a>
@@ -572,12 +740,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-dump_param_file">DUMP_PARAM_FILE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-enc_outfile">ENC_OUTFILE</a>
-      
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_file">DISCARD_FILE</a>
-      
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-energy_file">ENERGY_FILE</a>
-      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-cb_infile">CB_INFILE</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-pl_infile">PL_INFILE</a>
@@ -588,15 +750,141 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-binunit">BINUNIT</a>
       
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-particle_outfile">PARTICLE_OUTFILE</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-particleunit">PARTICLEUNIT</a>
+      
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-ndim">NDIM</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-ndim2">NDIM2</a>
       
       <a class="list-group-item" href="../module/swiftest_globals.html#variable-vsmall">VSMALL</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gc">GC</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-netcdf_outfile">NETCDF_OUTFILE</a>
       
-      <a class="list-group-item" href="../module/swiftest_globals.html#variable-einsteinc">einsteinC</a>
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-time_dimname">TIME_DIMNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-id_dimname">ID_DIMNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-str_dimname">STR_DIMNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ptype_varname">PTYPE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-name_varname">NAME_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-npl_varname">NPL_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ntp_varname">NTP_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-a_varname">A_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-e_varname">E_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-inc_varname">INC_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-capom_varname">CAPOM_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-omega_varname">OMEGA_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-capm_varname">CAPM_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xhx_varname">XHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xhy_varname">XHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-xhz_varname">XHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-vhx_varname">VHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-vhy_varname">VHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-vhz_varname">VHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gmass_varname">GMASS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rhill_varname">RHILL_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-radius_varname">RADIUS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ip1_varname">IP1_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ip2_varname">IP2_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ip3_varname">IP3_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rotx_varname">ROTX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-roty_varname">ROTY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-rotz_varname">ROTZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-k2_varname">K2_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-q_varname">Q_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ke_orb_varname">KE_ORB_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ke_spin_varname">KE_SPIN_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-pe_varname">PE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_orbx_varname">L_ORBX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_orby_varname">L_ORBY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_orbz_varname">L_ORBZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_spinx_varname">L_SPINX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_spiny_varname">L_SPINY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_spinz_varname">L_SPINZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_escapex_varname">L_ESCAPEX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_escapey_varname">L_ESCAPEY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-l_escapez_varname">L_ESCAPEZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-ecollisions_varname">ECOLLISIONS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-euntracked_varname">EUNTRACKED_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-gmescape_varname">GMESCAPE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-status_varname">STATUS_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_type_varname">ORIGIN_TYPE_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_time_varname">ORIGIN_TIME_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_xhx_varname">ORIGIN_XHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_xhy_varname">ORIGIN_XHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_xhz_varname">ORIGIN_XHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_vhx_varname">ORIGIN_VHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_vhy_varname">ORIGIN_VHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-origin_vhz_varname">ORIGIN_VHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_time_varname">DISCARD_TIME_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_xhx_varname">DISCARD_XHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_xhy_varname">DISCARD_XHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_xhz_varname">DISCARD_XHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_vhx_varname">DISCARD_VHX_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_vhy_varname">DISCARD_VHY_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_vhz_varname">DISCARD_VHZ_VARNAME</a>
+      
+      <a class="list-group-item" href="../module/swiftest_globals.html#variable-discard_body_id_varname">DISCARD_BODY_ID_VARNAME</a>
       
     </div>
   </div>
@@ -646,11 +934,977 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-i8b"></span>integer,</td>
+  <td><span class="anchor" id="variable-i8b"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>I8B</strong></td><td> =</td><td>int64</td><td><p>Symbolic name for kind types of 8-byte integers</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-i4b"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>I4B</strong></td><td> =</td><td>int32</td><td><p>Symbolic name for kind types of 4-byte integers</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-i2b"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>I2B</strong></td><td> =</td><td>int16</td><td><p>Symbolic name for kind types of 2-byte integers</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-i1b"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>I1B</strong></td><td> =</td><td>int8</td><td><p>Symbolic name for kind types of 1-byte integers</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-sp"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>SP</strong></td><td> =</td><td>real32</td><td><p>Symbolic name for kind types of single-precision reals</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dp"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DP</strong></td><td> =</td><td>real64</td><td><p>Symbolic name for kind types of double-precision reals</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-qp"></span>integer,</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>QP</strong></td><td> =</td><td>real128</td><td><p>Symbolic name for kind types of quad-precision reals</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-piby2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>PIBY2</strong></td><td> =</td><td>1.570796326794896619231321691639751442099_DP</td><td><p>Definition of /(\pi / 2)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pi"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>PI</strong></td><td> =</td><td>3.141592653589793238462643383279502884197_DP</td><td><p>Definition of /(\pi)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pi3by2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>PI3BY2</strong></td><td> =</td><td>4.712388980384689857693965074919254326296_DP</td><td><p>Definition of /(3 \pi / 2)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-twopi"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>TWOPI</strong></td><td> =</td><td>6.283185307179586476925286766559005768394_DP</td><td><p>Definition of 2 \pi</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-third"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>THIRD</strong></td><td> =</td><td>0.333333333333333333333333333333333333333_DP</td><td><p>Definition of 1 / 3</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-deg2rad"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DEG2RAD</strong></td><td> =</td><td>PI/180.0_DP</td><td><p>Definition of conversion factor from degrees to radians</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rad2deg"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>RAD2DEG</strong></td><td> =</td><td>180.0_DP/PI</td><td><p>Definition of conversion factor from degrees to radians</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gc"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>GC</strong></td><td> =</td><td>6.6743E-11_DP</td><td><p>Universal gravitational constant in SI units</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-einsteinc"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>einsteinC</strong></td><td> =</td><td>299792458.0_DP</td><td><p>Speed of light in SI units</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lowercase_begin"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>LOWERCASE_BEGIN</strong></td><td> =</td><td>iachar('a')</td><td><p>ASCII character set parameter for lower to upper conversion - start of lowercase</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lowercase_end"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>LOWERCASE_END</strong></td><td> =</td><td>iachar('z')</td><td><p>ASCII character set parameter for lower to upper conversion - end of lowercase</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-uppercase_offset"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>UPPERCASE_OFFSET</strong></td><td> =</td><td>iachar('A')-iachar('a')</td><td><p>ASCII character set parameter for lower to upper conversion - offset between upper and lower</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-version_number"></span>real(kind=SP),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>VERSION_NUMBER</strong></td><td> =</td><td>0.1_SP</td><td><p>swiftest version</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-unknown_integrator"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>UNKNOWN_INTEGRATOR</strong></td><td> =</td><td>1</td><td><p>Symbolic name for integrator types</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-bs"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>BS</strong></td><td> =</td><td>2</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-helio"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>HELIO</strong></td><td> =</td><td>3</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ra15"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>RA15</strong></td><td> =</td><td>4</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tu4"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>TU4</strong></td><td> =</td><td>5</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-whm"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>WHM</strong></td><td> =</td><td>6</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rmvs"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>RMVS</strong></td><td> =</td><td>7</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-symba"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>SYMBA</strong></td><td> =</td><td>8</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ringmoons"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>RINGMOONS</strong></td><td> =</td><td>9</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-strmax"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>STRMAX</strong></td><td> =</td><td>512</td><td><p>Maximum size of character strings</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-namelen"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NAMELEN</strong></td><td> =</td><td>32</td><td><p>Maximum size of name strings</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ascii_type"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>ASCII_TYPE</strong></td><td> =</td><td>'ASCII'</td><td><p>Symbolic name for ASCII file type</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-real4_type"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>REAL4_TYPE</strong></td><td> =</td><td>'REAL4'</td><td><p>Symbolic name for binary file type REAL4</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-real8_type"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>REAL8_TYPE</strong></td><td> =</td><td>'REAL8'</td><td><p>Symbolic name for binary file type REAL8</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-netcdf_float_type"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NETCDF_FLOAT_TYPE</strong></td><td> =</td><td>'NETCDF_FLOAT'</td><td><p>Symbolic name for binary file type REAL8</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-netcdf_double_type"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NETCDF_DOUBLE_TYPE</strong></td><td> =</td><td>'NETCDF_DOUBLE'</td><td><p>Symbolic name for binary file type REAL8</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-el"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>EL</strong></td><td> =</td><td>'EL'</td><td><p>Symbolic name for binary output file contents for orbital elements</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xv"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>XV</strong></td><td> =</td><td>'XV'</td><td><p>Symbolic name for binary output file contents for cartesian position and velocity vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xvel"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>XVEL</strong></td><td> =</td><td>'XVEL'</td><td><p>Symbolic name for binary output file contents for both cartesian position and velocity and orbital elements</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-cb_type_name"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>CB_TYPE_NAME</strong></td><td> =</td><td>"Central Body"</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_type_name"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>PL_TYPE_NAME</strong></td><td> =</td><td>"Massive Body"</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tp_type_name"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>TP_TYPE_NAME</strong></td><td> =</td><td>"Test Particle"</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_tiny_type_name"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>PL_TINY_TYPE_NAME</strong></td><td> =</td><td>"Semi-Interacting Massive Body"</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nthreads"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nthreads</strong></td><td> =</td><td>1</td><td><p>Number of OpenMP threads</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nthershold"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NTHERSHOLD</strong></td><td> =</td><td>1000</td><td><p>Threshold value for OpenMP loop parallelization</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-success"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>SUCCESS</strong></td><td> =</td><td>0</td><td><p>Symbolic name for function return/flag code for success</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-failure"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FAILURE</strong></td><td> =</td><td>-1</td><td><p>Symbolic name for function return/flag code for failure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-usage"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>USAGE</strong></td><td> =</td><td>-2</td><td><p>Symbolic name for function return/flag code for printing the usage message</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-help"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>HELP</strong></td><td> =</td><td>-3</td><td><p>Symbolic name for function return/flag code for printing the usage message</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-success_msg"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>SUCCESS_MSG</strong></td><td> =</td><td>'(/, "Normal termination of Swiftest (version ", f3.1, ")")'</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-fail_msg"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>FAIL_MSG</strong></td><td> =</td><td>'(/, "Terminating Swiftest (version ", f3.1, ") due to error!!")'</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-usage_msg"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>USAGE_MSG</strong></td><td> =</td><td>'("Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] <paramfile>")'</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-help_msg"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>HELP_MSG</strong></td><td> =</td><td>USAGE_MSG</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ellipse"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>ELLIPSE</strong></td><td> =</td><td>-1</td><td><p>Symbolic names for orbit types - ellipse</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-parabola"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>PARABOLA</strong></td><td> =</td><td>0</td><td><p>Symbolic names for orbit types - parabola</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-hyperbola"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>HYPERBOLA</strong></td><td> =</td><td>1</td><td><p>Symbolic names for orbit types - hyperbola</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-active"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>ACTIVE</strong></td><td> =</td><td>0</td><td><p>Symbolic names for body/particle status codes:</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inactive"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>INACTIVE</strong></td><td> =</td><td>1</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_rmax"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_RMAX</strong></td><td> =</td><td>-1</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_rmin"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_RMIN</strong></td><td> =</td><td>-2</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_rmaxu"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_RMAXU</strong></td><td> =</td><td>-3</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_peri"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_PERI</strong></td><td> =</td><td>-4</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_plr"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_PLR</strong></td><td> =</td><td>-5</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_plq"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_PLQ</strong></td><td> =</td><td>-6</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discarded_drifterr"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISCARDED_DRIFTERR</strong></td><td> =</td><td>-7</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-merged"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>MERGED</strong></td><td> =</td><td>-8</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-disruption"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>DISRUPTION</strong></td><td> =</td><td>-9</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-supercatastrophic"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>SUPERCATASTROPHIC</strong></td><td> =</td><td>-10</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-graze_and_merge"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>GRAZE_AND_MERGE</strong></td><td> =</td><td>-11</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-hit_and_run_disrupt"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>I8B</strong></td><td> =</td><td>int64</td><td><p>Symbolic name for kind types of 8-byte integers</p></td>
+  <td><strong>HIT_AND_RUN_DISRUPT</strong></td><td> =</td><td>-12</td><td></td>
   
 </tr>
 
@@ -660,11 +1914,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-i4b"></span>integer,</td>
+  <td><span class="anchor" id="variable-hit_and_run_pure"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>I4B</strong></td><td> =</td><td>int32</td><td><p>Symbolic name for kind types of 4-byte integers</p></td>
+  <td><strong>HIT_AND_RUN_PURE</strong></td><td> =</td><td>-13</td><td></td>
   
 </tr>
 
@@ -674,11 +1928,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-i2b"></span>integer,</td>
+  <td><span class="anchor" id="variable-collision"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>I2B</strong></td><td> =</td><td>int16</td><td><p>Symbolic name for kind types of 2-byte integers</p></td>
+  <td><strong>COLLISION</strong></td><td> =</td><td>-14</td><td></td>
   
 </tr>
 
@@ -688,11 +1942,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-i1b"></span>integer,</td>
+  <td><span class="anchor" id="variable-new_particle"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>I1B</strong></td><td> =</td><td>int8</td><td><p>Symbolic name for kind types of 1-byte integers</p></td>
+  <td><strong>NEW_PARTICLE</strong></td><td> =</td><td>-15</td><td></td>
   
 </tr>
 
@@ -702,11 +1956,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-sp"></span>integer,</td>
+  <td><span class="anchor" id="variable-old_particle"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SP</strong></td><td> =</td><td>real32</td><td><p>Symbolic name for kind types of single-precision reals</p></td>
+  <td><strong>OLD_PARTICLE</strong></td><td> =</td><td>-16</td><td></td>
   
 </tr>
 
@@ -716,11 +1970,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dp"></span>integer,</td>
+  <td><span class="anchor" id="variable-collresolve_regime_merge"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DP</strong></td><td> =</td><td>real64</td><td><p>Symbolic name for kind types of double-precision reals</p></td>
+  <td><strong>COLLRESOLVE_REGIME_MERGE</strong></td><td> =</td><td>1</td><td><p>Symbolic names for collisional outcomes from collresolve_resolve:</p></td>
   
 </tr>
 
@@ -730,11 +1984,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qp"></span>integer,</td>
+  <td><span class="anchor" id="variable-collresolve_regime_disruption"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>QP</strong></td><td> =</td><td>real128</td><td><p>Symbolic name for kind types of quad-precision reals</p></td>
+  <td><strong>COLLRESOLVE_REGIME_DISRUPTION</strong></td><td> =</td><td>2</td><td></td>
   
 </tr>
 
@@ -744,11 +1998,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-piby2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-collresolve_regime_supercatastrophic"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>PIBY2</strong></td><td> =</td><td>1.570796326794896619231321691639751442099_DP</td><td><p>Definition of /(\pi / 2)</p></td>
+  <td><strong>COLLRESOLVE_REGIME_SUPERCATASTROPHIC</strong></td><td> =</td><td>3</td><td></td>
   
 </tr>
 
@@ -758,11 +2012,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pi"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-collresolve_regime_graze_and_merge"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>PI</strong></td><td> =</td><td>3.141592653589793238462643383279502884197_DP</td><td><p>Definition of /(\pi)</p></td>
+  <td><strong>COLLRESOLVE_REGIME_GRAZE_AND_MERGE</strong></td><td> =</td><td>4</td><td></td>
   
 </tr>
 
@@ -772,11 +2026,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pi3by2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-collresolve_regime_hit_and_run"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>PI3BY2</strong></td><td> =</td><td>4.712388980384689857693965074919254326296_DP</td><td><p>Definition of /(3 \pi / 2)</p></td>
+  <td><strong>COLLRESOLVE_REGIME_HIT_AND_RUN</strong></td><td> =</td><td>5</td><td></td>
   
 </tr>
 
@@ -786,11 +2040,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-twopi"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-add"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>TWOPI</strong></td><td> =</td><td>6.283185307179586476925286766559005768394_DP</td><td><p>Definition of 2 \pi</p></td>
+  <td><strong>ADD</strong></td><td> =</td><td>'+1'</td><td><p>String labels for body/particle addition/subtraction in discard file</p></td>
   
 </tr>
 
@@ -800,11 +2054,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-third"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-sub"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>THIRD</strong></td><td> =</td><td>0.333333333333333333333333333333333333333_DP</td><td><p>Definition of 1 / 3</p></td>
+  <td><strong>SUB</strong></td><td> =</td><td>'-1'</td><td></td>
   
 </tr>
 
@@ -814,11 +2068,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-degrad"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ndumpfiles"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DEGRAD</strong></td><td> =</td><td>180.0_DP/PI</td><td><p>Definition of conversion factor from degrees to radians</p></td>
+  <td><strong>NDUMPFILES</strong></td><td> =</td><td>2</td><td><p>Standard file names</p></td>
   
 </tr>
 
@@ -828,11 +2082,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lowercase_begin"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-dump_cb_file"></span>character(len=*),</td>
   
   <td>public,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>LOWERCASE_BEGIN</strong></td><td> =</td><td>iachar('a')</td><td><p>ASCII character set parameter for lower to upper conversion - start of lowercase</p></td>
+  <td>parameter, dimension(2)</td><td>::</td>
+  <td><strong>DUMP_CB_FILE</strong></td><td> =</td><td>['dump_cb1.bin', 'dump_cb2.bin']</td><td></td>
   
 </tr>
 
@@ -842,11 +2096,53 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lowercase_end"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-dump_pl_file"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter, dimension(2)</td><td>::</td>
+  <td><strong>DUMP_PL_FILE</strong></td><td> =</td><td>['dump_pl1.bin', 'dump_pl2.bin']</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dump_tp_file"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter, dimension(2)</td><td>::</td>
+  <td><strong>DUMP_TP_FILE</strong></td><td> =</td><td>['dump_tp1.bin', 'dump_tp2.bin']</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dump_param_file"></span>character(len=*),</td>
+  
+  <td>public,</td>
+  <td>parameter, dimension(2)</td><td>::</td>
+  <td><strong>DUMP_PARAM_FILE</strong></td><td> =</td><td>['dump_param1.in', 'dump_param2.in']</td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-cb_infile"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>LOWERCASE_END</strong></td><td> =</td><td>iachar('z')</td><td><p>ASCII character set parameter for lower to upper conversion - end of lowercase</p></td>
+  <td><strong>CB_INFILE</strong></td><td> =</td><td>'cb.in'</td><td><p>Default file names that can be changed by the user in the parameters file</p></td>
   
 </tr>
 
@@ -856,11 +2152,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-uppercase_offset"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-pl_infile"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>UPPERCASE_OFFSET</strong></td><td> =</td><td>iachar('A')-iachar('a')</td><td><p>ASCII character set parameter for lower to upper conversion - offset between upper and lower</p></td>
+  <td><strong>PL_INFILE</strong></td><td> =</td><td>'pl.in'</td><td></td>
   
 </tr>
 
@@ -870,11 +2166,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-version_number"></span>real(kind=SP),</td>
+  <td><span class="anchor" id="variable-tp_infile"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>VERSION_NUMBER</strong></td><td> =</td><td>0.1_SP</td><td><p>swiftest version</p></td>
+  <td><strong>TP_INFILE</strong></td><td> =</td><td>'tp.in'</td><td></td>
   
 </tr>
 
@@ -884,11 +2180,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-unknown_integrator"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-bin_outfile"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>UNKNOWN_INTEGRATOR</strong></td><td> =</td><td>1</td><td><p>Symbolic name for integrator types</p></td>
+  <td><strong>BIN_OUTFILE</strong></td><td> =</td><td>'bin.dat'</td><td></td>
   
 </tr>
 
@@ -898,11 +2194,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-bs"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-binunit"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>BS</strong></td><td> =</td><td>2</td><td></td>
+  <td><strong>BINUNIT</strong></td><td> =</td><td>20</td><td><p>File unit number for the binary output file</p></td>
   
 </tr>
 
@@ -912,11 +2208,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-helio"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-particle_outfile"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>HELIO</strong></td><td> =</td><td>3</td><td></td>
+  <td><strong>PARTICLE_OUTFILE</strong></td><td> =</td><td>'particle.dat'</td><td></td>
   
 </tr>
 
@@ -926,11 +2222,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ra15"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-particleunit"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>RA15</strong></td><td> =</td><td>4</td><td></td>
+  <td><strong>PARTICLEUNIT</strong></td><td> =</td><td>44</td><td><p>File unit number for the binary particle info output file</p></td>
   
 </tr>
 
@@ -940,11 +2236,12 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tu4"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ndim"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>TU4</strong></td><td> =</td><td>5</td><td></td>
+  <td><strong>NDIM</strong></td><td> =</td><td>3</td><td><p>Miscellaneous constants:
+ Number of dimensions in our reality</p></td>
   
 </tr>
 
@@ -954,11 +2251,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-whm"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ndim2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>WHM</strong></td><td> =</td><td>6</td><td></td>
+  <td><strong>NDIM2</strong></td><td> =</td><td>2*NDIM</td><td><p>2x the number of dimensions</p></td>
   
 </tr>
 
@@ -968,11 +2265,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rmvs"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-vsmall"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>RMVS</strong></td><td> =</td><td>7</td><td></td>
+  <td><strong>VSMALL</strong></td><td> =</td><td>2*epsilon(1._DP)</td><td><p>Very small number used to prevent floating underflow</p></td>
   
 </tr>
 
@@ -982,11 +2279,12 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-symba"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-netcdf_outfile"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SYMBA</strong></td><td> =</td><td>8</td><td></td>
+  <td><strong>NETCDF_OUTFILE</strong></td><td> =</td><td>'bin.nc'</td><td><p>NetCDF variable names and constants
+ Default output file name</p></td>
   
 </tr>
 
@@ -996,11 +2294,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ringmoons"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-time_dimname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>RINGMOONS</strong></td><td> =</td><td>9</td><td></td>
+  <td><strong>TIME_DIMNAME</strong></td><td> =</td><td>"time"</td><td><p>NetCDF name of the time dimension </p></td>
   
 </tr>
 
@@ -1010,11 +2308,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-strmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-id_dimname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>STRMAX</strong></td><td> =</td><td>128</td><td><p>Maximum size of character strings</p></td>
+  <td><strong>ID_DIMNAME</strong></td><td> =</td><td>"id"</td><td><p>NetCDF name of the particle id dimension</p></td>
   
 </tr>
 
@@ -1024,11 +2322,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ascii_type"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-str_dimname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>ASCII_TYPE</strong></td><td> =</td><td>'ASCII'</td><td><p>Symbolic name for ASCII file type</p></td>
+  <td><strong>STR_DIMNAME</strong></td><td> =</td><td>"str"</td><td><p>NetCDF name of the particle id dimension</p></td>
   
 </tr>
 
@@ -1038,11 +2336,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-real4_type"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-ptype_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>REAL4_TYPE</strong></td><td> =</td><td>'REAL4'</td><td><p>Symbolic name for binary file type REAL4</p></td>
+  <td><strong>PTYPE_VARNAME</strong></td><td> =</td><td>"particle_type"</td><td><p>NetCDF name of the particle type variable</p></td>
   
 </tr>
 
@@ -1052,11 +2350,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-real8_type"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-name_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>REAL8_TYPE</strong></td><td> =</td><td>'REAL8'</td><td><p>Symbolic name for binary file type REAL8</p></td>
+  <td><strong>NAME_VARNAME</strong></td><td> =</td><td>"name"</td><td><p>NetCDF name of the particle name variable</p></td>
   
 </tr>
 
@@ -1066,11 +2364,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-swifter_real4_type"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-npl_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SWIFTER_REAL4_TYPE</strong></td><td> =</td><td>'SWIFTER4'</td><td><p>Symbolic name for binary file type for the old style Swifter REAL4</p></td>
+  <td><strong>NPL_VARNAME</strong></td><td> =</td><td>"npl"</td><td><p>NetCDF name of the number of active massive bodies variable</p></td>
   
 </tr>
 
@@ -1080,11 +2378,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-swifter_real8_type"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-ntp_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SWIFTER_REAL8_TYPE</strong></td><td> =</td><td>'SWIFTER8'</td><td><p>Symbolic name for binary file type for the old style Swifter REAL8</p></td>
+  <td><strong>NTP_VARNAME</strong></td><td> =</td><td>"ntp"</td><td><p>NetCDF name of the number of active test particles variable</p></td>
   
 </tr>
 
@@ -1094,11 +2392,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-el"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-a_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>EL</strong></td><td> =</td><td>'EL'</td><td><p>Symbolic name for binary output file contents for orbital element type</p></td>
+  <td><strong>A_VARNAME</strong></td><td> =</td><td>"a"</td><td><p>NetCDF name of the semimajor axis variable </p></td>
   
 </tr>
 
@@ -1108,11 +2406,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xv"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-e_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>XV</strong></td><td> =</td><td>'XV'</td><td><p>Symbolic name for binary output file contents for cartesian position and velocity type</p></td>
+  <td><strong>E_VARNAME</strong></td><td> =</td><td>"e"</td><td><p>NetCDF name of the eccentricity variable </p></td>
   
 </tr>
 
@@ -1122,11 +2420,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nthreads"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-inc_varname"></span>character(len=*),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>nthreads</strong></td><td> =</td><td>1</td><td><p>Number of OpenMP threads</p></td>
+  <td>public,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>INC_VARNAME</strong></td><td> =</td><td>"inc"</td><td><p>NetCDF name of the inclination variable </p></td>
   
 </tr>
 
@@ -1136,11 +2434,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nthershold"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-capom_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>NTHERSHOLD</strong></td><td> =</td><td>1000</td><td><p>Threshold value for OpenMP loop parallelization</p></td>
+  <td><strong>CAPOM_VARNAME</strong></td><td> =</td><td>"capom"</td><td><p>NetCDF name of the long. asc. node variable </p></td>
   
 </tr>
 
@@ -1150,11 +2448,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-success"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-omega_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SUCCESS</strong></td><td> =</td><td>0</td><td><p>Symbolic name for function return/flag code for success</p></td>
+  <td><strong>OMEGA_VARNAME</strong></td><td> =</td><td>"omega"</td><td><p>NetCDF name of the arg. periapsis variable </p></td>
   
 </tr>
 
@@ -1164,11 +2462,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-failure"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-capm_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>FAILURE</strong></td><td> =</td><td>-1</td><td><p>Symbolic name for function return/flag code for failure</p></td>
+  <td><strong>CAPM_VARNAME</strong></td><td> =</td><td>"capm"</td><td><p>NetCDF name of the mean anomaly variable </p></td>
   
 </tr>
 
@@ -1178,11 +2476,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-usage"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-xhx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>USAGE</strong></td><td> =</td><td>-2</td><td><p>Symbolic name for function return/flag code for printing the usage message</p></td>
+  <td><strong>XHX_VARNAME</strong></td><td> =</td><td>"xhx"</td><td><p>NetCDF name of the heliocentric position x variable </p></td>
   
 </tr>
 
@@ -1192,11 +2490,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-help"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-xhy_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>HELP</strong></td><td> =</td><td>-3</td><td><p>Symbolic name for function return/flag code for printing the usage message</p></td>
+  <td><strong>XHY_VARNAME</strong></td><td> =</td><td>"xhy"</td><td><p>NetCDF name of the heliocentric position y variable </p></td>
   
 </tr>
 
@@ -1206,11 +2504,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-success_msg"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-xhz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SUCCESS_MSG</strong></td><td> =</td><td>'(/, "Normal termination of Swiftest (version ", f3.1, ")")'</td><td></td>
+  <td><strong>XHZ_VARNAME</strong></td><td> =</td><td>"xhz"</td><td><p>NetCDF name of the heliocentric position z variable </p></td>
   
 </tr>
 
@@ -1220,11 +2518,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-fail_msg"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-vhx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>FAIL_MSG</strong></td><td> =</td><td>'(/, "Terminating Swiftest (version ", f3.1, ") due to error!!")'</td><td></td>
+  <td><strong>VHX_VARNAME</strong></td><td> =</td><td>"vhx"</td><td><p>NetCDF name of the heliocentric velocity x variable </p></td>
   
 </tr>
 
@@ -1234,11 +2532,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-usage_msg"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-vhy_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>USAGE_MSG</strong></td><td> =</td><td>'("Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] <paramfile>")'</td><td></td>
+  <td><strong>VHY_VARNAME</strong></td><td> =</td><td>"vhy"</td><td><p>NetCDF name of the heliocentric velocity y variable </p></td>
   
 </tr>
 
@@ -1248,11 +2546,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-help_msg"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-vhz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>HELP_MSG</strong></td><td> =</td><td>USAGE_MSG</td><td></td>
+  <td><strong>VHZ_VARNAME</strong></td><td> =</td><td>"vhz"</td><td><p>NetCDF name of the heliocentric velocity z variable </p></td>
   
 </tr>
 
@@ -1262,11 +2560,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ellipse"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-gmass_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>ELLIPSE</strong></td><td> =</td><td>-1</td><td><p>Symbolic names for orbit types - ellipse</p></td>
+  <td><strong>GMASS_VARNAME</strong></td><td> =</td><td>"Gmass"</td><td><p>NetCDF name of the mass variable</p></td>
   
 </tr>
 
@@ -1276,11 +2574,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-parabola"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-rhill_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>PARABOLA</strong></td><td> =</td><td>0</td><td><p>Symbolic names for orbit types - parabola</p></td>
+  <td><strong>RHILL_VARNAME</strong></td><td> =</td><td>"rhill"</td><td><p>NetCDF name of the hill radius variable</p></td>
   
 </tr>
 
@@ -1290,11 +2588,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-hyperbola"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-radius_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>HYPERBOLA</strong></td><td> =</td><td>1</td><td><p>Symbolic names for orbit types - hyperbola</p></td>
+  <td><strong>RADIUS_VARNAME</strong></td><td> =</td><td>"radius"</td><td><p>NetCDF name of the radius variable</p></td>
   
 </tr>
 
@@ -1304,11 +2602,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-active"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ip1_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>ACTIVE</strong></td><td> =</td><td>0</td><td><p>Symbolic names for body/particle status codes:</p></td>
+  <td><strong>IP1_VARNAME</strong></td><td> =</td><td>"Ip1"</td><td><p>NetCDF name of the axis 1 principal moment of inertial variable</p></td>
   
 </tr>
 
@@ -1318,11 +2616,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inactive"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ip2_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>INACTIVE</strong></td><td> =</td><td>1</td><td></td>
+  <td><strong>IP2_VARNAME</strong></td><td> =</td><td>"Ip2"</td><td><p>NetCDF name of the axis 2 principal moment of inertial variable</p></td>
   
 </tr>
 
@@ -1332,11 +2630,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_rmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ip3_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_RMAX</strong></td><td> =</td><td>-1</td><td></td>
+  <td><strong>IP3_VARNAME</strong></td><td> =</td><td>"Ip3"</td><td><p>NetCDF name of the axis 3 principal moment of inertial variable</p></td>
   
 </tr>
 
@@ -1346,11 +2644,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_rmin"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-rotx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_RMIN</strong></td><td> =</td><td>-2</td><td></td>
+  <td><strong>ROTX_VARNAME</strong></td><td> =</td><td>"rotx"</td><td><p>NetCDF name of the rotation x variable</p></td>
   
 </tr>
 
@@ -1360,11 +2658,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_rmaxu"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-roty_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_RMAXU</strong></td><td> =</td><td>-3</td><td></td>
+  <td><strong>ROTY_VARNAME</strong></td><td> =</td><td>"roty"</td><td><p>NetCDF name of the rotation y variable</p></td>
   
 </tr>
 
@@ -1374,11 +2672,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_peri"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-rotz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_PERI</strong></td><td> =</td><td>-4</td><td></td>
+  <td><strong>ROTZ_VARNAME</strong></td><td> =</td><td>"rotz"</td><td><p>NetCDF name of the rotation z variable</p></td>
   
 </tr>
 
@@ -1388,11 +2686,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_plr"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-k2_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_PLR</strong></td><td> =</td><td>-5</td><td></td>
+  <td><strong>K2_VARNAME</strong></td><td> =</td><td>"k2"</td><td><p>NetCDF name of the Love number variable</p></td>
   
 </tr>
 
@@ -1402,11 +2700,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_plq"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-q_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_PLQ</strong></td><td> =</td><td>-6</td><td></td>
+  <td><strong>Q_VARNAME</strong></td><td> =</td><td>"Q"</td><td><p>NetCDF name of the energy dissipation variable</p></td>
   
 </tr>
 
@@ -1416,11 +2714,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discarded_drifterr"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ke_orb_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARDED_DRIFTERR</strong></td><td> =</td><td>-7</td><td></td>
+  <td><strong>KE_ORB_VARNAME</strong></td><td> =</td><td>"KE_orb"</td><td><p>NetCDF name of the system orbital kinetic energy variable</p></td>
   
 </tr>
 
@@ -1430,11 +2728,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-merged"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ke_spin_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>MERGED</strong></td><td> =</td><td>-8</td><td></td>
+  <td><strong>KE_SPIN_VARNAME</strong></td><td> =</td><td>"KE_spin"</td><td><p>NetCDF name of the system spin kinetic energy variable</p></td>
   
 </tr>
 
@@ -1444,11 +2742,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-disruption"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-pe_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISRUPTION</strong></td><td> =</td><td>-9</td><td></td>
+  <td><strong>PE_VARNAME</strong></td><td> =</td><td>"PE"</td><td><p>NetCDF name of the system potential energy variable</p></td>
   
 </tr>
 
@@ -1458,11 +2756,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-supercatastrophic"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_orbx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SUPERCATASTROPHIC</strong></td><td> =</td><td>-10</td><td></td>
+  <td><strong>L_ORBX_VARNAME</strong></td><td> =</td><td>"L_orbx"</td><td><p>NetCDF name of the orbital angular momentum x variable</p></td>
   
 </tr>
 
@@ -1472,11 +2770,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-graze_and_merge"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_orby_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>GRAZE_AND_MERGE</strong></td><td> =</td><td>-11</td><td></td>
+  <td><strong>L_ORBY_VARNAME</strong></td><td> =</td><td>"L_orby"</td><td><p>NetCDF name of the orbital angular momentum y variable</p></td>
   
 </tr>
 
@@ -1486,11 +2784,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-hit_and_run"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_orbz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>HIT_AND_RUN</strong></td><td> =</td><td>-12</td><td></td>
+  <td><strong>L_ORBZ_VARNAME</strong></td><td> =</td><td>"L_orbz"</td><td><p>NetCDF name of the orbital angular momentum z variable</p></td>
   
 </tr>
 
@@ -1500,11 +2798,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-collision"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_spinx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>COLLISION</strong></td><td> =</td><td>-13</td><td></td>
+  <td><strong>L_SPINX_VARNAME</strong></td><td> =</td><td>"L_spinx"</td><td><p>NetCDF name of the spin angular momentum x variable</p></td>
   
 </tr>
 
@@ -1514,11 +2812,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-collresolve_regime_merge"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_spiny_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>COLLRESOLVE_REGIME_MERGE</strong></td><td> =</td><td>1</td><td><p>Symbolic names for collisional outcomes from collresolve_resolve:</p></td>
+  <td><strong>L_SPINY_VARNAME</strong></td><td> =</td><td>"L_spiny"</td><td><p>NetCDF name of the spin angular momentum y variable</p></td>
   
 </tr>
 
@@ -1528,11 +2826,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-collresolve_regime_disruption"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_spinz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>COLLRESOLVE_REGIME_DISRUPTION</strong></td><td> =</td><td>2</td><td></td>
+  <td><strong>L_SPINZ_VARNAME</strong></td><td> =</td><td>"L_spinz"</td><td><p>NetCDF name of the spin angular momentum z variable</p></td>
   
 </tr>
 
@@ -1542,11 +2840,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-collresolve_regime_supercatastrophic"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_escapex_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>COLLRESOLVE_REGIME_SUPERCATASTROPHIC</strong></td><td> =</td><td>3</td><td></td>
+  <td><strong>L_ESCAPEX_VARNAME</strong></td><td> =</td><td>"L_escapex"</td><td><p>NetCDF name of the escaped angular momentum x variable</p></td>
   
 </tr>
 
@@ -1556,11 +2854,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-collresolve_regime_graze_and_merge"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_escapey_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>COLLRESOLVE_REGIME_GRAZE_AND_MERGE</strong></td><td> =</td><td>4</td><td></td>
+  <td><strong>L_ESCAPEY_VARNAME</strong></td><td> =</td><td>"L_escapey"</td><td><p>NetCDF name of the escaped angular momentum y variable</p></td>
   
 </tr>
 
@@ -1570,11 +2868,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-collresolve_regime_hit_and_run"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-l_escapez_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>COLLRESOLVE_REGIME_HIT_AND_RUN</strong></td><td> =</td><td>5</td><td></td>
+  <td><strong>L_ESCAPEZ_VARNAME</strong></td><td> =</td><td>"L_escapez"</td><td><p>NetCDF name of the escaped angular momentum z variable                          </p></td>
   
 </tr>
 
@@ -1584,11 +2882,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-add"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-ecollisions_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>ADD</strong></td><td> =</td><td>'+1'</td><td><p>String labels for body/particle addition/subtraction in discard file</p></td>
+  <td><strong>ECOLLISIONS_VARNAME</strong></td><td> =</td><td>"Ecollisions"</td><td><p>NetCDF name of the escaped angular momentum y variable                             </p></td>
   
 </tr>
 
@@ -1598,11 +2896,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-sub"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-euntracked_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>SUB</strong></td><td> =</td><td>'-1'</td><td></td>
+  <td><strong>EUNTRACKED_VARNAME</strong></td><td> =</td><td>"Euntracked"</td><td><p>NetCDF name of the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)</p></td>
   
 </tr>
 
@@ -1612,11 +2910,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ndumpfiles"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-gmescape_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>NDUMPFILES</strong></td><td> =</td><td>2</td><td><p>Standard file names</p></td>
+  <td><strong>GMESCAPE_VARNAME</strong></td><td> =</td><td>"GMescape"</td><td><p>NetCDF name of the G*Mass of bodies that escape the system</p></td>
   
 </tr>
 
@@ -1626,11 +2924,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dump_cb_file"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-status_varname"></span>character(len=*),</td>
   
   <td>public,</td>
-  <td>parameter, dimension(2)</td><td>::</td>
-  <td><strong>DUMP_CB_FILE</strong></td><td> =</td><td>['dump_cb1.bin', 'dump_cb2.bin']</td><td></td>
+  <td>parameter</td><td>::</td>
+  <td><strong>STATUS_VARNAME</strong></td><td> =</td><td>"status"</td><td><p>NetCDF name of the current status of the body variable (includes discard type)</p></td>
   
 </tr>
 
@@ -1640,11 +2938,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dump_pl_file"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_type_varname"></span>character(len=*),</td>
   
   <td>public,</td>
-  <td>parameter, dimension(2)</td><td>::</td>
-  <td><strong>DUMP_PL_FILE</strong></td><td> =</td><td>['dump_pl1.bin', 'dump_pl2.bin']</td><td></td>
+  <td>parameter</td><td>::</td>
+  <td><strong>ORIGIN_TYPE_VARNAME</strong></td><td> =</td><td>"origin_type"</td><td><p>NetCDF name of the origin type variable (Initial Conditions, Disruption, etc.)</p></td>
   
 </tr>
 
@@ -1654,11 +2952,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dump_tp_file"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_time_varname"></span>character(len=*),</td>
   
   <td>public,</td>
-  <td>parameter, dimension(2)</td><td>::</td>
-  <td><strong>DUMP_TP_FILE</strong></td><td> =</td><td>['dump_tp1.bin', 'dump_tp2.bin']</td><td></td>
+  <td>parameter</td><td>::</td>
+  <td><strong>ORIGIN_TIME_VARNAME</strong></td><td> =</td><td>"origin_time"</td><td><p>NetCDF name of the time of origin variable</p></td>
   
 </tr>
 
@@ -1668,11 +2966,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dump_param_file"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_xhx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
-  <td>parameter, dimension(2)</td><td>::</td>
-  <td><strong>DUMP_PARAM_FILE</strong></td><td> =</td><td>['dump_param1.dat', 'dump_param2.dat']</td><td></td>
+  <td>parameter</td><td>::</td>
+  <td><strong>ORIGIN_XHX_VARNAME</strong></td><td> =</td><td>"origin_xhx"</td><td><p>NetCDF name of the heliocentric position of the body at the time of origin x variable</p></td>
   
 </tr>
 
@@ -1682,11 +2980,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-enc_outfile"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_xhy_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>ENC_OUTFILE</strong></td><td> =</td><td>'encounter.out'</td><td><p>Default file names that can be changed by the user in the parameters file</p></td>
+  <td><strong>ORIGIN_XHY_VARNAME</strong></td><td> =</td><td>"origin_xhy"</td><td><p>NetCDF name of the heliocentric position of the body at the time of origin y variable</p></td>
   
 </tr>
 
@@ -1696,11 +2994,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discard_file"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_xhz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>DISCARD_FILE</strong></td><td> =</td><td>'discard.out'</td><td></td>
+  <td><strong>ORIGIN_XHZ_VARNAME</strong></td><td> =</td><td>"origin_xhz"</td><td><p>NetCDF name of the heliocentric position of the body at the time of origin z variable</p></td>
   
 </tr>
 
@@ -1710,11 +3008,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-energy_file"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_vhx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>ENERGY_FILE</strong></td><td> =</td><td>'energy.out'</td><td></td>
+  <td><strong>ORIGIN_VHX_VARNAME</strong></td><td> =</td><td>"origin_vhx"</td><td><p>NetCDF name of the heliocentric velocity of the body at the time of origin x variable</p></td>
   
 </tr>
 
@@ -1724,11 +3022,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb_infile"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_vhy_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>CB_INFILE</strong></td><td> =</td><td>'cb.in'</td><td></td>
+  <td><strong>ORIGIN_VHY_VARNAME</strong></td><td> =</td><td>"origin_vhy"</td><td><p>NetCDF name of the heliocentric velocity of the body at the time of origin y variable</p></td>
   
 </tr>
 
@@ -1738,11 +3036,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl_infile"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-origin_vhz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>PL_INFILE</strong></td><td> =</td><td>'pl.in'</td><td></td>
+  <td><strong>ORIGIN_VHZ_VARNAME</strong></td><td> =</td><td>"origin_vhz"</td><td><p>NetCDF name of the heliocentric velocity of the body at the time of origin z variable</p></td>
   
 </tr>
 
@@ -1752,11 +3050,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp_infile"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-discard_time_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>TP_INFILE</strong></td><td> =</td><td>'tp.in'</td><td></td>
+  <td><strong>DISCARD_TIME_VARNAME</strong></td><td> =</td><td>"discard_time"</td><td><p>NetCDF name of the time of discard variable</p></td>
   
 </tr>
 
@@ -1766,11 +3064,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-bin_outfile"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-discard_xhx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>BIN_OUTFILE</strong></td><td> =</td><td>'bin.dat'</td><td></td>
+  <td><strong>DISCARD_XHX_VARNAME</strong></td><td> =</td><td>"discard_xhx"</td><td><p>NetCDF name of the heliocentric position of the body at the time of discard x variable</p></td>
   
 </tr>
 
@@ -1780,11 +3078,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-binunit"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-discard_xhy_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>BINUNIT</strong></td><td> =</td><td>20</td><td><p>File unit number for the binary output file</p></td>
+  <td><strong>DISCARD_XHY_VARNAME</strong></td><td> =</td><td>"discard_xhy"</td><td><p>NetCDF name of the heliocentric position of the body at the time of discard y variable</p></td>
   
 </tr>
 
@@ -1794,12 +3092,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ndim"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-discard_xhz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>NDIM</strong></td><td> =</td><td>3</td><td><p>Miscellaneous constants:
- Number of dimensions in our reality</p></td>
+  <td><strong>DISCARD_XHZ_VARNAME</strong></td><td> =</td><td>"discard_xhz"</td><td><p>NetCDF name of the heliocentric position of the body at the time of discard z variable</p></td>
   
 </tr>
 
@@ -1809,11 +3106,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ndim2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-discard_vhx_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>NDIM2</strong></td><td> =</td><td>2*NDIM</td><td><p>2x the number of dimensions</p></td>
+  <td><strong>DISCARD_VHX_VARNAME</strong></td><td> =</td><td>"discard_vhx"</td><td><p>NetCDF name of the heliocentric velocity of the body at the time of discard x variable</p></td>
   
 </tr>
 
@@ -1823,11 +3120,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vsmall"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-discard_vhy_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>VSMALL</strong></td><td> =</td><td>2*epsilon(1._DP)</td><td><p>Very small number used to prevent floating underflow</p></td>
+  <td><strong>DISCARD_VHY_VARNAME</strong></td><td> =</td><td>"discard_vhy"</td><td><p>NetCDF name of the heliocentric velocity of the body at the time of discard y variable</p></td>
   
 </tr>
 
@@ -1837,11 +3134,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-gc"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-discard_vhz_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>GC</strong></td><td> =</td><td>6.6743E-11_DP</td><td><p>Universal gravitational constant in SI units</p></td>
+  <td><strong>DISCARD_VHZ_VARNAME</strong></td><td> =</td><td>"discard_vhz"</td><td><p>NetCDF name of the heliocentric velocity of the body at the time of discard z variable</p></td>
   
 </tr>
 
@@ -1851,11 +3148,11 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-einsteinc"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-discard_body_id_varname"></span>character(len=*),</td>
   
   <td>public,</td>
   <td>parameter</td><td>::</td>
-  <td><strong>einsteinC</strong></td><td> =</td><td>299792458.0_DP</td><td><p>Speed of light in SI units</p></td>
+  <td><strong>DISCARD_BODY_ID_VARNAME</strong></td><td> =</td><td>"discard_body_id"</td><td><p>NetCDF name of the id of the other body involved in the discard</p></td>
   
 </tr>
 
diff --git a/docs/module/swiftest_operators.html b/docs/module/swiftest_operators.html
index f2f60621a..6a457aece 100644
--- a/docs/module/swiftest_operators.html
+++ b/docs/module/swiftest_operators.html
@@ -136,7 +136,7 @@ <h1>swiftest_operators
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for modules and submodules.">109 statements</a>
+    title=" 0.7% of total for modules and submodules.">109 statements</a>
      </li> 
      
      
@@ -381,967 +381,1087 @@ <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="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)">
+<svg id="moduleswiftest_operatorsUsedByGraph" width="428pt" height="2888pt"
+ viewBox="0.00 0.00 428.00 2888.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 2884)">
 <title>module~~swiftest_operators~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 424,-2548 424,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 424,-2884 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,-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>
+<polygon fill="none" stroke="black" points="100,-1473 0,-1473 0,-1449 100,-1449 100,-1473"/>
+<text text-anchor="middle" x="50" y="-1458.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,-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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-2880 293.5,-2880 293.5,-2856 389.5,-2856 389.5,-2880"/>
+<text text-anchor="middle" x="341.5" y="-2865.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.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"/>
+<path fill="none" stroke="#000000" d="M293.12,-2864.13C281.83,-2861 270.8,-2855.73 263,-2847 72.59,-2633.79 53.12,-1645.22 51.2,-1483.42"/>
+<polygon fill="#000000" stroke="#000000" points="54.7,-1483.19 51.09,-1473.23 47.7,-1483.26 54.7,-1483.19"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_node3" class="node">
 <title>module~swiftest</title>
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="208.5,-1473 154.5,-1473 154.5,-1449 208.5,-1449 208.5,-1473"/>
+<text text-anchor="middle" x="181.5" y="-1458.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_edge27" class="edge">
+<g id="module~~swiftest_operators~~UsedByGraph_edge41" class="edge">
 <title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.33,-2864.85C281.75,-2861.75 270.54,-2856.32 263,-2847 215.65,-2788.41 231.36,-2245.2 227,-2170 211.31,-1899.29 189.75,-1570.61 183.97,-1483.21"/>
+<polygon fill="#000000" stroke="#000000" points="187.46,-1482.88 183.31,-1473.14 180.47,-1483.34 187.46,-1482.88"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.29,-1461C141.56,-1461 125.7,-1461 110.27,-1461"/>
+<polygon fill="#000000" stroke="#000000" points="110.22,-1457.5 100.22,-1461 110.22,-1464.5 110.22,-1457.5"/>
 </g>
 <!-- module~s_operator_mag -->
 <g id="module~~swiftest_operators~~UsedByGraph_node4" class="node">
 <title>module~s_operator_mag</title>
 <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>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="227,-1431 136,-1431 136,-1407 227,-1407 227,-1431"/>
+<text text-anchor="middle" x="181.5" y="-1416.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,-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"/>
+<path fill="none" stroke="#000000" d="M143.39,-1431.04C129.17,-1435.65 112.75,-1440.97 97.74,-1445.84"/>
+<polygon fill="#000000" stroke="#000000" points="96.55,-1442.55 88.11,-1448.96 98.71,-1449.21 96.55,-1442.55"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_symba_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node5" class="node">
-<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>
+<title>module~s_symba_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node5"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2838 302,-2838 302,-2814 381,-2814 381,-2838"/>
+<text text-anchor="middle" x="341.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge4" class="edge">
-<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"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.85,-2824.71C287.48,-2822.15 272.4,-2816.58 263,-2805 218.49,-2750.11 231.21,-2240.54 227,-2170 210.83,-1899.32 189.61,-1570.62 183.94,-1483.21"/>
+<polygon fill="#000000" stroke="#000000" points="187.43,-1482.89 183.29,-1473.14 180.44,-1483.34 187.43,-1482.89"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_symba_drift -->
 <g id="module~~swiftest_operators~~UsedByGraph_node6" class="node">
-<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>
+<title>module~s_symba_drift</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node6"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2796 302,-2796 302,-2772 381,-2772 381,-2796"/>
+<text text-anchor="middle" x="341.5" y="-2781.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~~swiftest_operators~~UsedByGraph_edge5" class="edge">
-<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"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge7" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.87,-2782.69C287.5,-2780.13 272.42,-2774.57 263,-2763 221.32,-2711.81 231.07,-2235.88 227,-2170 210.29,-1899.35 189.46,-1570.63 183.91,-1483.22"/>
+<polygon fill="#000000" stroke="#000000" points="187.4,-1482.9 183.27,-1473.14 180.41,-1483.34 187.4,-1482.9"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_util_exit -->
 <g id="module~~swiftest_operators~~UsedByGraph_node7" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node7"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="371.5,-2754 311.5,-2754 311.5,-2730 371.5,-2730 371.5,-2754"/>
+<text text-anchor="middle" x="341.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge5" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.38,-2741.98C294.58,-2740.31 274.55,-2735.14 263,-2721 261.72,-2719.44 194.48,-1651.47 183.9,-1483.2"/>
+<polygon fill="#000000" stroke="#000000" points="187.38,-1482.81 183.26,-1473.05 180.39,-1483.25 187.38,-1482.81"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- proc~ge_wpp -->
 <g id="module~~swiftest_operators~~UsedByGraph_node8" class="node">
-<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>
+<title>proc~ge_wpp</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node8"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="368.5,-2712 314.5,-2712 314.5,-2688 368.5,-2688 368.5,-2712"/>
+<text text-anchor="middle" x="341.5" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- proc~ge_wpp&#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"/>
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.43,-2700.24C297.07,-2698.9 275.28,-2693.99 263,-2679 258.06,-2672.97 194.17,-1648.66 183.89,-1483.39"/>
+<polygon fill="#000000" stroke="#000000" points="187.38,-1483.15 183.27,-1473.39 180.4,-1483.58 187.38,-1483.15"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_whm_util -->
 <g id="module~~swiftest_operators~~UsedByGraph_node9" class="node">
-<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>
+<title>module~s_whm_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node9"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-2670 308.5,-2670 308.5,-2646 374.5,-2646 374.5,-2670"/>
+<text text-anchor="middle" x="341.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge8" class="edge">
-<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"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.29,-2657.62C292.19,-2655.62 273.88,-2650.25 263,-2637 253.47,-2625.39 193.67,-1645.26 183.86,-1483.49"/>
+<polygon fill="#000000" stroke="#000000" points="187.34,-1483.05 183.24,-1473.28 180.35,-1483.47 187.34,-1483.05"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_helio_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node10" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node10"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2628 302,-2628 302,-2604 381,-2604 381,-2628"/>
+<text text-anchor="middle" x="341.5" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge9" class="edge">
-<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"/>
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.93,-2614.64C287.57,-2612.08 272.48,-2606.52 263,-2595 253.81,-2583.84 193.97,-1642.53 183.93,-1483.65"/>
+<polygon fill="#000000" stroke="#000000" points="187.39,-1482.98 183.27,-1473.22 180.41,-1483.42 187.39,-1482.98"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_util_solve -->
 <g id="module~~swiftest_operators~~UsedByGraph_node11" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node11"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="375.5,-2586 307.5,-2586 307.5,-2562 375.5,-2562 375.5,-2586"/>
+<text text-anchor="middle" x="341.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge10" class="edge">
-<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"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.14,-2573.44C291.34,-2571.32 273.65,-2565.9 263,-2553 245.29,-2531.54 192.64,-1635.86 183.77,-1483.06"/>
+<polygon fill="#000000" stroke="#000000" points="187.26,-1482.79 183.19,-1473.01 180.28,-1483.19 187.26,-1482.79"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_whm_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node12" class="node">
-<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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node12"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2544 302,-2544 302,-2520 381,-2520 381,-2544"/>
+<text text-anchor="middle" x="341.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<!-- module~s_whm_setup&#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"/>
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.96,-2530.62C287.61,-2528.04 272.51,-2522.49 263,-2511 245.99,-2490.45 193.08,-1634.44 183.87,-1483.59"/>
+<polygon fill="#000000" stroke="#000000" points="187.34,-1483.03 183.24,-1473.26 180.36,-1483.46 187.34,-1483.03"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_netcdf -->
 <g id="module~~swiftest_operators~~UsedByGraph_node13" class="node">
-<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>
+<title>module~s_netcdf</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node13"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<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_netcdf</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<!-- module~s_netcdf&#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"/>
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.49,-2490.19C297.16,-2488.82 275.38,-2483.91 263,-2469 246.66,-2449.32 193.3,-1629.22 183.92,-1483.14"/>
+<polygon fill="#000000" stroke="#000000" points="187.41,-1482.88 183.27,-1473.12 180.42,-1483.33 187.41,-1482.88"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_io -->
 <g id="module~~swiftest_operators~~UsedByGraph_node14" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node14"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<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_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<!-- module~s_io&#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"/>
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.13,-2448.15C296.87,-2446.73 275.31,-2441.78 263,-2427 231.7,-2389.43 190.87,-1623.61 183.62,-1483.06"/>
+<polygon fill="#000000" stroke="#000000" points="187.12,-1482.85 183.11,-1473.04 180.13,-1483.21 187.12,-1482.85"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_helio_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node15" class="node">
-<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>
+<title>module~s_helio_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node15"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-2418 305,-2418 305,-2394 378,-2394 378,-2418"/>
+<text text-anchor="middle" x="341.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<!-- module~s_helio_step&#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"/>
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.83,-2405.04C289.68,-2402.69 273.2,-2397.19 263,-2385 233.07,-2349.22 191.36,-1621.08 183.73,-1483.37"/>
+<polygon fill="#000000" stroke="#000000" points="187.21,-1482.97 183.16,-1473.18 180.22,-1483.36 187.21,-1482.97"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~orbel -->
 <g id="module~~swiftest_operators~~UsedByGraph_node16" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node16"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="368.5,-2376 314.5,-2376 314.5,-2352 368.5,-2352 368.5,-2376"/>
+<text text-anchor="middle" x="341.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<!-- module~orbel&#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"/>
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.17,-2364.12C296.93,-2362.68 275.37,-2357.73 263,-2343 234.44,-2309 191.87,-1618.11 183.83,-1483.59"/>
+<polygon fill="#000000" stroke="#000000" points="187.31,-1483.05 183.22,-1473.27 180.32,-1483.46 187.31,-1483.05"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_symba_util -->
 <g id="module~~swiftest_operators~~UsedByGraph_node17" class="node">
-<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>
+<title>module~s_symba_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node17"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="379,-2334 304,-2334 304,-2310 379,-2310 379,-2334"/>
+<text text-anchor="middle" x="341.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge16" class="edge">
-<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"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.68,-2320.8C288.87,-2318.34 272.98,-2312.83 263,-2301 208.66,-2236.6 186.98,-1609.57 183.14,-1483.15"/>
+<polygon fill="#000000" stroke="#000000" points="186.64,-1482.99 182.84,-1473.1 179.64,-1483.2 186.64,-1482.99"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_symba_collision -->
 <g id="module~~swiftest_operators~~UsedByGraph_node18" class="node">
-<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>
+<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,-2292 292,-2292 292,-2268 391,-2268 391,-2292"/>
+<text text-anchor="middle" x="341.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<!-- module~s_symba_collision&#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"/>
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.6,-2276.05C280.74,-2272.88 270.3,-2267.61 263,-2259 211.36,-2198.11 187.64,-1605.87 183.26,-1483.18"/>
+<polygon fill="#000000" stroke="#000000" points="186.75,-1482.96 182.9,-1473.09 179.76,-1483.21 186.75,-1482.96"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~swiftest_operators~~UsedByGraph_node19" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node19"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="413,-2250 270,-2250 270,-2226 413,-2226 413,-2250"/>
+<text text-anchor="middle" x="341.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge18" class="edge">
-<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"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.33,-2225.92C269.49,-2223.45 265.99,-2220.5 263,-2217 214.05,-2159.6 188.33,-1601.76 183.39,-1483.12"/>
+<polygon fill="#000000" stroke="#000000" points="186.88,-1482.88 182.97,-1473.04 179.88,-1483.17 186.88,-1482.88"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_helio_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node20" class="node">
-<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>
+<title>module~s_helio_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node20"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-2208 306.5,-2208 306.5,-2184 376.5,-2184 376.5,-2208"/>
+<text text-anchor="middle" x="341.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge19" class="edge">
-<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"/>
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.16,-2195.1C290.72,-2192.83 273.62,-2187.38 263,-2175 216.76,-2121.12 189.1,-1598.37 183.54,-1483.32"/>
+<polygon fill="#000000" stroke="#000000" points="187.03,-1483.04 183.06,-1473.21 180.04,-1483.37 187.03,-1483.04"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_symba_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node21" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node21"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="382.5,-2166 300.5,-2166 300.5,-2142 382.5,-2142 382.5,-2166"/>
+<text text-anchor="middle" x="341.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge20" class="edge">
-<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"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.2,-2152.02C286.49,-2149.28 272.3,-2143.76 263,-2133 219.41,-2082.56 189.84,-1593.39 183.69,-1483.04"/>
+<polygon fill="#000000" stroke="#000000" points="187.18,-1482.84 183.14,-1473.04 180.19,-1483.22 187.18,-1482.84"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_whm_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node22" class="node">
-<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>
+<title>module~s_whm_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node22"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_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_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge21" class="edge">
-<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"/>
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.66,-2110.78C289.66,-2108.36 273.35,-2102.88 263,-2091 181.84,-1997.83 181.09,-1584.96 182.16,-1483.55"/>
+<polygon fill="#000000" stroke="#000000" points="185.66,-1483.29 182.29,-1473.25 178.66,-1483.21 185.66,-1483.29"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_helio_gr -->
 <g id="module~~swiftest_operators~~UsedByGraph_node23" class="node">
-<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>
+<title>module~s_helio_gr</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node23"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-2082 310.5,-2082 310.5,-2058 372.5,-2058 372.5,-2082"/>
+<text text-anchor="middle" x="341.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge22" class="edge">
-<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"/>
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.2,-2069.51C293.85,-2067.57 274.69,-2062.3 263,-2049 187.09,-1962.65 182.35,-1580.02 182.39,-1483.28"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-1483.18 182.41,-1473.17 178.89,-1483.16 185.89,-1483.18"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_symba_discard -->
 <g id="module~~swiftest_operators~~UsedByGraph_node24" class="node">
-<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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-2040 293.5,-2040 293.5,-2016 389.5,-2016 389.5,-2040"/>
+<text text-anchor="middle" x="341.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge23" class="edge">
-<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"/>
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.49,-2024.27C282.06,-2021.15 270.87,-2015.86 263,-2007 192.45,-1927.57 183.72,-1576.07 182.65,-1483.44"/>
+<polygon fill="#000000" stroke="#000000" points="186.15,-1483.2 182.55,-1473.24 179.15,-1483.27 186.15,-1483.2"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~swiftest_operators~~UsedByGraph_node25" class="node">
-<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>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node25"><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>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge24" class="edge">
-<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"/>
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.2,-1983.12C284.54,-1980.16 271.76,-1974.74 263,-1965 197.73,-1892.4 185.18,-1571.4 182.95,-1483.39"/>
+<polygon fill="#000000" stroke="#000000" points="186.45,-1483.11 182.71,-1473.2 179.45,-1483.27 186.45,-1483.11"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~whm_drift -->
 <g id="module~~swiftest_operators~~UsedByGraph_node26" class="node">
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node26"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="371,-1956 312,-1956 312,-1932 371,-1932 371,-1956"/>
+<text text-anchor="middle" x="341.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge25" class="edge">
-<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"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.91,-1943.52C295.31,-1941.68 275.3,-1936.49 263,-1923 202.95,-1857.14 186.73,-1566.02 183.3,-1483.11"/>
+<polygon fill="#000000" stroke="#000000" points="186.79,-1482.89 182.9,-1473.03 179.8,-1483.16 186.79,-1482.89"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_rmvs_util -->
 <g id="module~~swiftest_operators~~UsedByGraph_node27" class="node">
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node27"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="375,-1914 308,-1914 308,-1890 375,-1890 375,-1914"/>
+<text text-anchor="middle" x="341.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge26" class="edge">
-<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"/>
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.75,-1900.9C292.12,-1898.65 274.38,-1893.27 263,-1881 208.26,-1821.98 188.5,-1561.62 183.73,-1483.34"/>
+<polygon fill="#000000" stroke="#000000" points="187.21,-1482.93 183.14,-1473.16 180.23,-1483.34 187.21,-1482.93"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_fraggle_io -->
 <g id="module~~swiftest_operators~~UsedByGraph_node28" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node28"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377,-1872 306,-1872 306,-1848 377,-1848 377,-1872"/>
+<text text-anchor="middle" x="341.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge27" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.9,-1858.5C290.78,-1856.06 274.02,-1850.64 263,-1839 213.52,-1786.74 190.44,-1556.63 184.26,-1483.44"/>
+<polygon fill="#000000" stroke="#000000" points="187.72,-1482.77 183.41,-1473.09 180.74,-1483.34 187.72,-1482.77"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_util_append -->
 <g id="module~~swiftest_operators~~UsedByGraph_node29" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node29"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-1830 302,-1830 302,-1806 381,-1806 381,-1830"/>
+<text text-anchor="middle" x="341.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge28" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.66,-1815.58C287.78,-1812.82 273.1,-1807.4 263,-1797 218.67,-1751.34 192.52,-1550.54 184.87,-1483.14"/>
+<polygon fill="#000000" stroke="#000000" points="188.35,-1482.73 183.77,-1473.18 181.39,-1483.5 188.35,-1482.73"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node30" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node30"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377,-1788 306,-1788 306,-1764 377,-1764 377,-1788"/>
+<text text-anchor="middle" x="341.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge30" class="edge">
-<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"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge29" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.8,-1774.14C290.85,-1771.61 274.25,-1766.22 263,-1755 186.74,-1678.94 180.86,-1538 181.65,-1483.41"/>
+<polygon fill="#000000" stroke="#000000" points="185.15,-1483.21 181.9,-1473.13 178.16,-1483.04 185.15,-1483.21"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_util_fill -->
 <g id="module~~swiftest_operators~~UsedByGraph_node31" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node31"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1746 314.5,-1746 314.5,-1722 368.5,-1722 368.5,-1746"/>
+<text text-anchor="middle" x="341.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge31" class="edge">
-<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"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge30" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.41,-1733.12C297.72,-1731.21 276.7,-1726.1 263,-1713 196.79,-1649.68 184.89,-1532.05 182.86,-1483.18"/>
+<polygon fill="#000000" stroke="#000000" points="186.35,-1482.96 182.54,-1473.07 179.36,-1483.17 186.35,-1482.96"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_rmvs_io -->
 <g id="module~~swiftest_operators~~UsedByGraph_node32" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node32"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<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_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge32" class="edge">
-<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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge31" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.92,-1690.36C295.01,-1688.05 276.03,-1682.77 263,-1671 206.88,-1620.3 189.6,-1526.11 184.51,-1483.26"/>
+<polygon fill="#000000" stroke="#000000" points="187.97,-1482.64 183.42,-1473.07 181.01,-1483.38 187.97,-1482.64"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_fraggle_placeholder -->
 <g id="module~~swiftest_operators~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node33"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="400.5,-1662 282.5,-1662 282.5,-1638 400.5,-1638 400.5,-1662"/>
+<text text-anchor="middle" x="341.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge32" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.3,-1640.25C275.33,-1637.4 268.68,-1633.73 263,-1629 216.82,-1590.56 195.27,-1519.43 186.92,-1483.31"/>
+<polygon fill="#000000" stroke="#000000" points="190.29,-1482.32 184.74,-1473.3 183.45,-1483.81 190.29,-1482.32"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node34" class="node">
-<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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-1620 302,-1620 302,-1596 381,-1596 381,-1620"/>
+<text text-anchor="middle" x="341.5" y="-1605.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 -->
-<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"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge33" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.75,-1603.3C288.52,-1600.26 274.24,-1595.25 263,-1587 226.29,-1560.04 202.09,-1510.85 190.49,-1482.56"/>
+<polygon fill="#000000" stroke="#000000" points="193.71,-1481.19 186.79,-1473.17 187.2,-1483.76 193.71,-1481.19"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_whm_gr -->
 <g id="module~~swiftest_operators~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node35"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-1578 310.5,-1578 310.5,-1554 372.5,-1554 372.5,-1578"/>
+<text text-anchor="middle" x="341.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge35" class="edge">
-<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"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge34" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.3,-1561.75C295.31,-1558.69 277.39,-1553.54 263,-1545 235.59,-1528.73 211.38,-1500.59 196.84,-1481.41"/>
+<polygon fill="#000000" stroke="#000000" points="199.61,-1479.27 190.87,-1473.3 193.98,-1483.42 199.61,-1479.27"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~swiftest_operators~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node36"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="390.5,-1536 292.5,-1536 292.5,-1512 390.5,-1512 390.5,-1536"/>
+<text text-anchor="middle" x="341.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge36" class="edge">
-<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"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge35" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.43,-1512.71C282.57,-1509.92 272.35,-1506.66 263,-1503 245.37,-1496.11 226.57,-1486.44 211.57,-1478.12"/>
+<polygon fill="#000000" stroke="#000000" points="213.2,-1475.02 202.77,-1473.15 209.76,-1481.11 213.2,-1475.02"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_obl -->
 <g id="module~~swiftest_operators~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node37"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1494 314.5,-1494 314.5,-1470 368.5,-1470 368.5,-1494"/>
+<text text-anchor="middle" x="341.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge37" class="edge">
-<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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge36" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.41,-1478.53C288.34,-1475.07 248.03,-1469.71 218.84,-1465.83"/>
+<polygon fill="#000000" stroke="#000000" points="219,-1462.32 208.63,-1464.47 218.08,-1469.26 219,-1462.32"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_discard -->
 <g id="module~~swiftest_operators~~UsedByGraph_node38" class="node">
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node38"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="370.5,-1452 312.5,-1452 312.5,-1428 370.5,-1428 370.5,-1452"/>
+<text text-anchor="middle" x="341.5" y="-1437.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 -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge38" class="edge">
-<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"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge37" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.25,-1443.75C286.09,-1447.23 247.04,-1452.42 218.61,-1456.2"/>
+<polygon fill="#000000" stroke="#000000" points="218.12,-1452.74 208.67,-1457.52 219.04,-1459.67 218.12,-1452.74"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_util_resize -->
 <g id="module~~swiftest_operators~~UsedByGraph_node39" class="node">
-<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>
+<title>module~s_util_resize</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node39"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377.5,-1410 305.5,-1410 305.5,-1386 377.5,-1386 377.5,-1410"/>
+<text text-anchor="middle" x="341.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge39" class="edge">
-<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"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge38" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.12,-1405.5C291.67,-1408.89 276.37,-1413.4 263,-1419 245.91,-1426.15 243.39,-1431.37 227,-1440 224.05,-1441.55 220.97,-1443.12 217.86,-1444.66"/>
+<polygon fill="#000000" stroke="#000000" points="216.04,-1441.65 208.57,-1449.16 219.1,-1447.95 216.04,-1441.65"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~drift_implementation -->
 <g id="module~~swiftest_operators~~UsedByGraph_node40" class="node">
-<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>
+<title>module~drift_implementation</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node40"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="396,-1368 287,-1368 287,-1344 396,-1344 396,-1368"/>
+<text text-anchor="middle" x="341.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge40" class="edge">
-<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"/>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge39" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.62,-1364.65C278.17,-1367.63 269.95,-1371.63 263,-1377 237.49,-1396.72 250.68,-1418.11 227,-1440 224.2,-1442.59 221.03,-1444.91 217.69,-1446.99"/>
+<polygon fill="#000000" stroke="#000000" points="215.76,-1444.05 208.64,-1451.9 219.09,-1450.21 215.76,-1444.05"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~swiftest_operators~~UsedByGraph_node41" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node41"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="394.5,-1326 288.5,-1326 288.5,-1302 394.5,-1302 394.5,-1326"/>
+<text text-anchor="middle" x="341.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge41" class="edge">
-<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"/>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge40" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.49,-1320.59C279.14,-1323.74 270.12,-1328.33 263,-1335 226.99,-1368.72 259.9,-1403.24 227,-1440 224.32,-1442.99 221.12,-1445.6 217.69,-1447.85"/>
+<polygon fill="#000000" stroke="#000000" points="215.88,-1444.85 208.83,-1452.76 219.27,-1450.98 215.88,-1444.85"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_symba_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node42" class="node">
-<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>
+<title>module~s_symba_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node42"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="385.5,-1284 297.5,-1284 297.5,-1260 385.5,-1260 385.5,-1284"/>
+<text text-anchor="middle" x="341.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge42" class="edge">
-<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"/>
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.26,-1275.41C284.76,-1278.41 272.05,-1283.72 263,-1293 216.02,-1341.14 269.56,-1387.91 227,-1440 224.4,-1443.18 221.2,-1445.91 217.73,-1448.25"/>
+<polygon fill="#000000" stroke="#000000" points="215.74,-1445.35 208.7,-1453.26 219.14,-1451.47 215.74,-1445.35"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- proc~solve_wbs -->
 <g id="module~~swiftest_operators~~UsedByGraph_node43" class="node">
-<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>
+<title>proc~solve_wbs</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node43"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" 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">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge43" class="edge">
-<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"/>
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.46,-1230.73C294.2,-1232.74 275.03,-1238.01 263,-1251 204.89,-1313.73 279.36,-1372.4 227,-1440 224.48,-1443.25 221.34,-1446.02 217.89,-1448.38"/>
+<polygon fill="#000000" stroke="#000000" points="215.91,-1445.48 208.89,-1453.42 219.33,-1451.58 215.91,-1445.48"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_fraggle_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node44" class="node">
-<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>
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node44"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="386,-1200 297,-1200 297,-1176 386,-1176 386,-1200"/>
+<text text-anchor="middle" x="341.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge44" class="edge">
-<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"/>
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.77,-1190.95C284.24,-1193.93 271.65,-1199.34 263,-1209 193.68,-1286.4 289.24,-1356.8 227,-1440 224.41,-1443.46 221.1,-1446.38 217.47,-1448.83"/>
+<polygon fill="#000000" stroke="#000000" points="215.63,-1445.84 208.56,-1453.73 219.01,-1451.97 215.63,-1445.84"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_util_sort -->
 <g id="module~~swiftest_operators~~UsedByGraph_node45" class="node">
-<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>
+<title>module~s_util_sort</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node45"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-1158 311,-1158 311,-1134 372,-1134 372,-1158"/>
+<text text-anchor="middle" x="341.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge45" class="edge">
-<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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge70" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.95,-1146.38C294.43,-1148.24 274.84,-1153.46 263,-1167 182.43,-1259.12 299.15,-1341.15 227,-1440 224.45,-1443.49 221.17,-1446.43 217.54,-1448.88"/>
+<polygon fill="#000000" stroke="#000000" points="215.71,-1445.9 208.65,-1453.8 219.1,-1452.03 215.71,-1445.9"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- program~swiftest_driver -->
 <g id="module~~swiftest_operators~~UsedByGraph_node46" class="node">
-<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>
+<title>program~swiftest_driver</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node46"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-1116 301,-1116 301,-1092 382,-1092 382,-1116"/>
+<text text-anchor="middle" x="341.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge46" class="edge">
-<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"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge45" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.97,-1105.79C287.01,-1108.48 272.45,-1114.01 263,-1125 171.15,-1231.86 309.08,-1325.47 227,-1440 224.48,-1443.52 221.22,-1446.46 217.6,-1448.93"/>
+<polygon fill="#000000" stroke="#000000" points="215.77,-1445.94 208.72,-1453.84 219.16,-1452.06 215.77,-1445.94"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_gr -->
 <g id="module~~swiftest_operators~~UsedByGraph_node47" class="node">
-<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>
+<title>module~s_gr</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node47"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<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_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge47" class="edge">
-<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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge46" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.21,-1061.92C296.99,-1063.37 275.44,-1068.33 263,-1083 211.43,-1143.81 273.02,-1374.88 227,-1440 224.5,-1443.53 221.26,-1446.49 217.65,-1448.96"/>
+<polygon fill="#000000" stroke="#000000" points="215.82,-1445.97 208.77,-1453.88 219.21,-1452.09 215.82,-1445.97"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~swiftest_operators~~UsedByGraph_node48" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node48"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="397.5,-1032 285.5,-1032 285.5,-1008 397.5,-1008 397.5,-1032"/>
+<text text-anchor="middle" x="341.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge48" class="edge">
-<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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge47" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.18,-1026.03C276.69,-1029.29 268.82,-1034.06 263,-1041 205.78,-1109.2 278,-1367.03 227,-1440 224.52,-1443.54 221.29,-1446.51 217.68,-1448.98"/>
+<polygon fill="#000000" stroke="#000000" points="215.85,-1446 208.81,-1453.91 219.25,-1452.12 215.85,-1446"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_util_rescale -->
 <g id="module~~swiftest_operators~~UsedByGraph_node49" class="node">
-<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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node49"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="380.5,-990 302.5,-990 302.5,-966 380.5,-966 380.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_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge49" class="edge">
-<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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge48" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.4,-979.34C287.93,-981.88 272.63,-987.43 263,-999 200.12,-1074.59 282.98,-1359.16 227,-1440 224.54,-1443.56 221.31,-1446.53 217.71,-1449"/>
+<polygon fill="#000000" stroke="#000000" points="215.88,-1446.02 208.85,-1453.93 219.29,-1452.13 215.88,-1446.02"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~swiftest_operators~~UsedByGraph_node50" class="node">
-<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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node50"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="420,-948 263,-948 263,-924 420,-924 420,-948"/>
+<text text-anchor="middle" x="341.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge50" class="edge">
-<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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~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="M272.85,-948.2C269.18,-950.65 265.84,-953.56 263,-957 194.46,-1039.99 287.96,-1351.3 227,-1440 224.55,-1443.56 221.33,-1446.54 217.74,-1449.02"/>
+<polygon fill="#000000" stroke="#000000" points="215.91,-1446.03 208.87,-1453.95 219.31,-1452.15 215.91,-1446.03"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node51" class="node">
-<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>
+<title>module~s_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node51"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-906 314.5,-906 314.5,-882 368.5,-882 368.5,-906"/>
+<text text-anchor="middle" x="341.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge51" class="edge">
-<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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge50" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.44,-893.76C297.09,-895.12 275.29,-900.02 263,-915 188.8,-1005.39 292.95,-1343.43 227,-1440 224.56,-1443.57 221.35,-1446.55 217.76,-1449.03"/>
+<polygon fill="#000000" stroke="#000000" points="215.93,-1446.05 208.9,-1453.97 219.34,-1452.16 215.93,-1446.05"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_whm_coord -->
 <g id="module~~swiftest_operators~~UsedByGraph_node52" class="node">
-<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>
+<title>module~s_whm_coord</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node52"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-864 302,-864 302,-840 381,-840 381,-864"/>
+<text text-anchor="middle" x="341.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge52" class="edge">
-<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"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge51" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.89,-853.32C287.52,-855.88 272.43,-861.45 263,-873 183.14,-970.79 297.94,-1335.56 227,-1440 224.57,-1443.58 221.36,-1446.56 217.78,-1449.05"/>
+<polygon fill="#000000" stroke="#000000" points="215.95,-1446.06 208.92,-1453.98 219.36,-1452.17 215.95,-1446.06"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_util_index -->
 <g id="module~~swiftest_operators~~UsedByGraph_node53" class="node">
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node53"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376,-822 307,-822 307,-798 376,-798 376,-822"/>
+<text text-anchor="middle" x="341.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge53" class="edge">
-<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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge52" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.66,-810.55C290.95,-812.69 273.46,-818.13 263,-831 177.48,-936.19 302.93,-1327.69 227,-1440 224.58,-1443.58 221.37,-1446.57 217.79,-1449.06"/>
+<polygon fill="#000000" stroke="#000000" points="215.96,-1446.07 208.94,-1454 219.37,-1452.18 215.96,-1446.07"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_util_valid -->
 <g id="module~~swiftest_operators~~UsedByGraph_node54" class="node">
-<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>
+<title>module~s_util_valid</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node54"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374,-780 309,-780 309,-756 374,-756 374,-780"/>
+<text text-anchor="middle" x="341.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge54" class="edge">
-<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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge53" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.61,-768.28C292.4,-770.22 273.88,-775.57 263,-789 171.82,-901.6 307.92,-1319.81 227,-1440 224.58,-1443.59 221.38,-1446.58 217.8,-1449.07"/>
+<polygon fill="#000000" stroke="#000000" points="215.98,-1446.08 208.95,-1454.01 219.39,-1452.19 215.98,-1446.08"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~swiftest_operators~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node55"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-738 306.5,-738 306.5,-714 376.5,-714 376.5,-738"/>
+<text text-anchor="middle" x="341.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge55" class="edge">
-<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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge54" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.22,-726.57C290.6,-728.74 273.33,-734.2 263,-747 166.15,-867 312.91,-1311.94 227,-1440 224.59,-1443.59 221.39,-1446.58 217.82,-1449.07"/>
+<polygon fill="#000000" stroke="#000000" points="215.99,-1446.08 208.96,-1454.02 219.4,-1452.2 215.99,-1446.08"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_coord -->
 <g id="module~~swiftest_operators~~UsedByGraph_node56" class="node">
-<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>
+<title>module~s_util_coord</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node56"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<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_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge56" class="edge">
-<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"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.21,-684.56C290.58,-686.72 273.31,-692.18 263,-705 211.74,-768.7 272.45,-1372.03 227,-1440 224.54,-1443.67 221.26,-1446.72 217.59,-1449.25"/>
+<polygon fill="#000000" stroke="#000000" points="215.59,-1446.35 208.51,-1454.23 218.96,-1452.48 215.59,-1446.35"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_set -->
 <g id="module~~swiftest_operators~~UsedByGraph_node57" class="node">
-<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>
+<title>module~s_util_set</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node57"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="370.5,-654 312.5,-654 312.5,-630 370.5,-630 370.5,-654"/>
+<text text-anchor="middle" x="341.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge56" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.44,-641.84C295.38,-643.36 274.69,-648.43 263,-663 208.91,-730.41 274.95,-1368.09 227,-1440 224.55,-1443.68 221.27,-1446.73 217.6,-1449.25"/>
+<polygon fill="#000000" stroke="#000000" points="215.6,-1446.35 208.52,-1454.24 218.97,-1452.49 215.6,-1446.35"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_util_peri -->
 <g id="module~~swiftest_operators~~UsedByGraph_node58" class="node">
-<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>
+<title>module~s_util_peri</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node58"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-612 311,-612 311,-588 372,-588 372,-612"/>
+<text text-anchor="middle" x="341.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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.89,-599.97C294.13,-601.66 274.33,-606.85 263,-621 206.08,-692.11 277.44,-1364.15 227,-1440 224.55,-1443.68 221.27,-1446.73 217.6,-1449.26"/>
+<polygon fill="#000000" stroke="#000000" points="215.61,-1446.36 208.53,-1454.24 218.98,-1452.5 215.61,-1446.36"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~swiftest_operators~~UsedByGraph_node59" class="node">
-<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>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node59"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="397.5,-570 285.5,-570 285.5,-546 397.5,-546 397.5,-570"/>
+<text text-anchor="middle" x="341.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge58" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.29,-563.65C276.67,-566.93 268.74,-571.81 263,-579 203.24,-653.81 279.94,-1360.22 227,-1440 224.56,-1443.68 221.28,-1446.74 217.61,-1449.26"/>
+<polygon fill="#000000" stroke="#000000" points="215.62,-1446.37 208.54,-1454.25 218.99,-1452.5 215.62,-1446.37"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_helio_drift -->
 <g id="module~~swiftest_operators~~UsedByGraph_node60" class="node">
-<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>
+<title>module~s_helio_drift</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node60"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-528 306.5,-528 306.5,-504 376.5,-504 376.5,-528"/>
+<text text-anchor="middle" x="341.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge59" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.16,-516.51C290.52,-518.67 273.25,-524.14 263,-537 200.41,-615.52 282.44,-1356.28 227,-1440 224.56,-1443.69 221.29,-1446.74 217.62,-1449.27"/>
+<polygon fill="#000000" stroke="#000000" points="215.62,-1446.37 208.55,-1454.26 219,-1452.5 215.62,-1446.37"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_rmvs_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node61" class="node">
-<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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node61"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-486 305,-486 305,-462 378,-462 378,-486"/>
+<text text-anchor="middle" x="341.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge61" class="edge">
-<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"/>
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.95,-474.68C289.63,-476.94 272.98,-482.46 263,-495 197.57,-577.22 284.93,-1352.34 227,-1440 224.56,-1443.69 221.29,-1446.74 217.63,-1449.27"/>
+<polygon fill="#000000" stroke="#000000" points="215.63,-1446.37 208.55,-1454.26 219,-1452.51 215.63,-1446.37"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_spill -->
 <g id="module~~swiftest_operators~~UsedByGraph_node62" class="node">
-<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>
+<title>module~s_util_spill</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node62"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-444 311,-444 311,-420 372,-420 372,-444"/>
+<text text-anchor="middle" x="341.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge62" class="edge">
-<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"/>
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.85,-431.94C294.08,-433.62 274.27,-438.81 263,-453 194.74,-538.93 287.43,-1348.4 227,-1440 224.57,-1443.69 221.3,-1446.75 217.63,-1449.27"/>
+<polygon fill="#000000" stroke="#000000" points="215.64,-1446.38 208.56,-1454.26 219.01,-1452.51 215.64,-1446.38"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_whm_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node63" class="node">
-<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>
+<title>module~s_whm_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-402 306.5,-402 306.5,-378 376.5,-378 376.5,-402"/>
+<text text-anchor="middle" x="341.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge63" class="edge">
-<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"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.13,-390.49C290.49,-392.64 273.22,-398.11 263,-411 191.91,-500.63 289.93,-1344.46 227,-1440 224.57,-1443.69 221.3,-1446.75 217.64,-1449.28"/>
+<polygon fill="#000000" stroke="#000000" points="215.64,-1446.38 208.57,-1454.27 219.02,-1452.51 215.64,-1446.38"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_copy -->
 <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>
+<title>module~s_util_copy</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node64"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-360 308.5,-360 308.5,-336 374.5,-336 374.5,-360"/>
+<text text-anchor="middle" x="341.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<!-- module~s_util_copy&#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"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.49,-348.18C292.25,-350.1 273.73,-355.45 263,-369 189.07,-462.34 292.42,-1340.52 227,-1440 224.57,-1443.69 221.31,-1446.75 217.64,-1449.28"/>
+<polygon fill="#000000" stroke="#000000" points="215.65,-1446.38 208.57,-1454.27 219.02,-1452.52 215.65,-1446.38"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~swiftest_operators~~UsedByGraph_node65" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node65"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-318 314.5,-318 314.5,-294 368.5,-294 368.5,-318"/>
+<text text-anchor="middle" x="341.5" y="-303.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 -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge65" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.27,-305.63C296.84,-306.92 275.02,-311.8 263,-327 186.24,-424.04 294.92,-1336.58 227,-1440 224.57,-1443.7 221.31,-1446.75 217.65,-1449.28"/>
+<polygon fill="#000000" stroke="#000000" points="215.65,-1446.39 208.58,-1454.28 219.03,-1452.52 215.65,-1446.39"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~swiftest_operators~~UsedByGraph_node66" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node66"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="398.5,-276 284.5,-276 284.5,-252 398.5,-252 398.5,-276"/>
+<text text-anchor="middle" x="341.5" y="-261.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 -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge66" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.44,-269.91C276.14,-273.19 268.53,-278 263,-285 183.4,-385.75 297.42,-1332.64 227,-1440 224.58,-1443.7 221.31,-1446.76 217.65,-1449.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.65,-1446.39 208.58,-1454.28 219.03,-1452.52 215.65,-1446.39"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~swiftest_operators~~UsedByGraph_node67" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node67"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-234 306.5,-234 306.5,-210 376.5,-210 376.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_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge67" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.5,-222.42C290.75,-224.52 273.28,-229.98 263,-243 180.57,-347.45 299.92,-1328.7 227,-1440 224.58,-1443.7 221.32,-1446.76 217.65,-1449.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.66,-1446.39 208.59,-1454.28 219.03,-1452.52 215.66,-1446.39"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~swiftest_operators~~UsedByGraph_node68" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node68"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-192 293.5,-192 293.5,-168 389.5,-168 389.5,-192"/>
+<text text-anchor="middle" x="341.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge68" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.18,-183.03C281.6,-186.13 270.42,-191.59 263,-201 177.73,-309.16 302.41,-1324.76 227,-1440 224.58,-1443.7 221.32,-1446.76 217.66,-1449.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.66,-1446.39 208.59,-1454.28 219.04,-1452.53 215.66,-1446.39"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~swiftest_operators~~UsedByGraph_node69" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node69"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-150 314.5,-150 314.5,-126 368.5,-126 368.5,-150"/>
+<text text-anchor="middle" x="341.5" y="-135.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 -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge69" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.25,-137.61C296.81,-138.89 274.99,-143.78 263,-159 174.9,-270.86 304.91,-1320.82 227,-1440 224.58,-1443.7 221.32,-1446.76 217.66,-1449.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.67,-1446.4 208.59,-1454.29 219.04,-1452.53 215.67,-1446.4"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~swiftest_operators~~UsedByGraph_node70" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node70"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="380,-108 303,-108 303,-84 380,-84 380,-108"/>
+<text text-anchor="middle" x="341.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge60" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.88,-96.94C288.12,-99.38 272.48,-104.95 263,-117 172.06,-232.57 307.41,-1316.88 227,-1440 224.58,-1443.7 221.32,-1446.76 217.66,-1449.3"/>
+<polygon fill="#000000" stroke="#000000" points="215.67,-1446.4 208.6,-1454.29 219.05,-1452.53 215.67,-1446.4"/>
+</g>
+<!-- module~s_util_version -->
+<g id="module~~swiftest_operators~~UsedByGraph_node71" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node71"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="380.5,-66 302.5,-66 302.5,-42 380.5,-42 380.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_version</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge71" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.48,-55C287.84,-57.47 272.39,-63.06 263,-75 169.23,-194.27 309.91,-1312.94 227,-1440 224.58,-1443.7 221.33,-1446.77 217.67,-1449.3"/>
+<polygon fill="#000000" stroke="#000000" points="215.67,-1446.4 208.6,-1454.29 219.05,-1452.53 215.67,-1446.4"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~swiftest_operators~~UsedByGraph_node72" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node72"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="379.5,-24 303.5,-24 303.5,0 379.5,0 379.5,-24"/>
+<text text-anchor="middle" x="341.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge72" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.28,-12.87C288.4,-15.27 272.56,-20.83 263,-33 166.39,-155.98 312.4,-1309 227,-1440 224.59,-1443.7 221.33,-1446.77 217.67,-1449.3"/>
+<polygon fill="#000000" stroke="#000000" points="215.67,-1446.4 208.6,-1454.29 219.05,-1452.53 215.67,-1446.4"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/symba_classes.html b/docs/module/symba_classes.html
index 66a26108f..89063e73f 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.2% of total for modules and submodules.">566 statements</a>
+    title=" 3.5% of total for modules and submodules.">566 statements</a>
      </li> 
      
      
@@ -187,10 +187,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#variable-rshell">RSHELL</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#variable-particle_outfile">PARTICLE_OUTFILE</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#variable-particleunit">PARTICLEUNIT</a>
-      
     </div>
   </div>
 </div>
@@ -208,30 +204,32 @@ <h3>Contents</h3>
   <div id="inters-0" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_check_encounter">symba_collision_check_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_pl">symba_encounter_check_pl</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_pltpenc">symba_encounter_check_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check">symba_encounter_check</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_tp">symba_encounter_check_tp</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casedisruption">symba_fragmentation_casedisruption</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casehitandrun">symba_fragmentation_casehitandrun</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_casedisruption">symba_collision_casedisruption</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casemerge">symba_fragmentation_casemerge</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_casehitandrun">symba_collision_casehitandrun</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casesupercatastrophic">symba_fragmentation_casesupercatastrophic</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_casemerge">symba_collision_casemerge</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_check_pltpenc">symba_collision_check_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_encounter_extract_collisions">symba_collision_encounter_extract_collisions</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_encounter_scrub">symba_collision_encounter_scrub</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_make_family_pl">symba_collision_make_family_pl</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_make_colliders_pl">symba_collision_make_colliders_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_fragmentations">symba_collision_resolve_fragmentations</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_mergers">symba_collision_resolve_mergers</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_plplenc">symba_collision_resolve_plplenc</a>
+      
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_pltpenc">symba_collision_resolve_pltpenc</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_discard_pl">symba_discard_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_drift_pl">symba_drift_pl</a>
@@ -240,23 +238,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_one">symba_encounter_check_one</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_write_discard">symba_io_write_discard</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_dump_particle_info">symba_io_dump_particle_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_index_eucl_plpl">symba_util_index_eucl_plpl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_param_reader">symba_io_param_reader</a>
       
       <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_read_particle">symba_io_read_particle</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_write_discard">symba_io_write_discard</a>
+      
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_int_pl">symba_kick_getacch_int_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_pl">symba_kick_getacch_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_tp">symba_kick_getacch_tp</a>
       
-      <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_setup_initialize_particle_info">symba_setup_initialize_particle_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_encounter">symba_kick_encounter</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_initialize_system">symba_setup_initialize_system</a>
       
@@ -264,7 +260,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_pl">symba_setup_pl</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_pltpenc">symba_setup_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_encounter">symba_setup_encounter</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_tp">symba_setup_tp</a>
       
@@ -280,12 +276,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-util_append">util_append</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_encounter">symba_util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_merger">symba_util_append_merger</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_pl">symba_util_append_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_tp">symba_util_append_tp</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_copy_encounter">symba_util_copy_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-util_fill">util_fill</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_fill_pl">symba_util_fill_pl</a>
@@ -296,6 +296,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_rearray_pl">symba_util_rearray_pl</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_reset_kinship">symba_util_reset_kinship</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-util_resize">util_resize</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_resize_merger">symba_util_resize_merger</a>
@@ -308,6 +310,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_sort_tp">symba_util_sort_tp</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-util_sort_rearrange">util_sort_rearrange</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_sort_rearrange_pl">symba_util_sort_rearrange_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_sort_rearrange_tp">symba_util_sort_rearrange_tp</a>
@@ -316,7 +320,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_pl">symba_util_spill_pl</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_pltpenc">symba_util_spill_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_encounter">symba_util_spill_encounter</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_tp">symba_util_spill_tp</a>
       
@@ -334,8 +338,6 @@ <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_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>
@@ -346,6 +348,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_tp">symba_tp</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#type-symba_encounter">symba_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_pltpenc">symba_pltpenc</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_plplenc">symba_plplenc</a>
@@ -372,14 +376,8 @@ <h3>Contents</h3>
     </div>
     
     <div class="col-md-9" id='text'>
-    <p>Definition of classes and methods specific to the Democratic SyMBAcentric Method
- Adapted from David E. Kaufmann's Swifter routine: helio.f90</p>
-<hr>
-<div class="codehilite"><pre><span></span><code><span class="err">                                symba_particle_info class definitions and method interfaces</span>
-</code></pre></div>
-
-
-<hr>
+    <p>Definition of classes and methods specific to the SyMBA integrator
+ Adapted from David E. Kaufmann's Swifter routine: module_symba.f90</p>
 <hr>
 <div class="codehilite"><pre><span></span><code><span class="err">                                symba_kinship class definitions and method interfaces</span>
 </code></pre></div>
@@ -400,6 +398,12 @@ <h3>Contents</h3>
 </code></pre></div>
 
 
+<hr>
+<hr>
+<div class="codehilite"><pre><span></span><code><span class="err">                                symba_encounter class definitions and method interfaces</span>
+</code></pre></div>
+
+
 <hr>
 <hr>
 <div class="codehilite"><pre><span></span><code><span class="err">                                symba_pltpenc class definitions and method interfaces</span>
@@ -436,6 +440,8 @@ <h3 class="panel-title">Uses</h3>
     
     <li><a href='../module/rmvs_classes.html'>rmvs_classes</a></li>
     
+    <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
   </ul>
       </li>
       
@@ -448,149 +454,175 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~symba_classes~~UsesGraph Pages: 1 -->
-<svg id="modulesymba_classesUsesGraph" width="641pt" height="106pt"
- viewBox="0.00 0.00 641.00 105.60" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~symba_classes~~UsesGraph" class="graph" transform="scale(0.93 0.93) rotate(0) translate(4 109.68)">
+<svg id="modulesymba_classesUsesGraph" width="641pt" height="145pt"
+ viewBox="0.00 0.00 641.00 145.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~symba_classes~~UsesGraph" class="graph" transform="scale(0.91 0.91) rotate(0) translate(4 155.06)">
 <title>module~~symba_classes~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-109.68 686,-109.68 686,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-155.06 697,-155.06 697,4 -4,4"/>
 <!-- module~symba_classes -->
 <g id="module~~symba_classes~~UsesGraph_node1" class="node">
 <title>module~symba_classes</title>
-<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>
+<polygon fill="none" stroke="black" points="693,-97.33 608,-97.33 608,-73.33 693,-73.33 693,-97.33"/>
+<text text-anchor="middle" x="650.5" y="-82.93" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes</text>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~rmvs_classes -->
 <g id="module~~symba_classes~~UsesGraph_node2" class="node">
-<title>module~swiftest_globals</title>
-<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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="572,-118.33 495,-118.33 495,-94.33 572,-94.33 572,-118.33"/>
+<text text-anchor="middle" x="533.5" y="-103.93" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.98,-92.92C599.57,-94.45 590.65,-96.08 582.05,-97.65"/>
+<polygon fill="#000000" stroke="#000000" points="581.34,-94.22 572.14,-99.46 582.6,-101.11 581.34,-94.22"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~fraggle_classes -->
 <g id="module~~symba_classes~~UsesGraph_node3" class="node">
-<title>module~helio_classes</title>
-<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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node3"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="459,-118.33 372,-118.33 372,-94.33 459,-94.33 459,-118.33"/>
+<text text-anchor="middle" x="415.5" y="-103.93" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<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"/>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="module~~symba_classes~~UsesGraph_edge2" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M634.69,-97.4C613.86,-113.33 574.01,-140.11 534.5,-146.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.5,-146.33C500.87,-151.32 466.4,-136.66 443.32,-123.71"/>
+<polygon fill="#000000" stroke="#000000" points="444.87,-120.56 434.47,-118.51 441.32,-126.59 444.87,-120.56"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~helio_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>
+<title>module~helio_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="571.5,-76.33 495.5,-76.33 495.5,-52.33 571.5,-52.33 571.5,-76.33"/>
+<text text-anchor="middle" x="533.5" y="-61.93" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~helio_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"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.98,-77.75C599.47,-76.2 590.46,-74.55 581.76,-72.97"/>
+<polygon fill="#000000" stroke="#000000" points="582.22,-69.49 571.76,-71.14 580.97,-76.38 582.22,-69.49"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~symba_classes~~UsesGraph_node5"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-76.33 123,-76.33 123,-52.33 211,-52.33 211,-76.33"/>
+<text text-anchor="middle" x="167" y="-61.93" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge4" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.5,-146.33C481.57,-154.36 467.87,-142.01 416.5,-146.33"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~symba_classes~~UsesGraph_node7" class="node">
-<title>iso_fortran_env</title>
-<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>
+<!-- module~swiftest_classes -->
+<g id="module~~symba_classes~~UsesGraph_node6" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node6"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="336,-76.33 247,-76.33 247,-52.33 336,-52.33 336,-76.33"/>
+<text text-anchor="middle" x="291.5" y="-61.93" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.89,-73.29C616.72,-63.54 593.87,-50.32 572,-43.33 505.67,-22.15 485.94,-19.32 416.5,-24.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.5,-24.33C383.4,-26.01 349.9,-37.77 325.88,-48.11"/>
+<polygon fill="#000000" stroke="#000000" points="324.24,-45.01 316.53,-52.28 327.09,-51.41 324.24,-45.01"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~rmvs_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_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"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M508.83,-118.4C485.91,-129.12 449.83,-143.53 416.5,-146.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.5,-146.33C360.47,-150.88 346.25,-153.51 292.5,-146.33"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~symba_classes~~UsesGraph_node6" class="node">
+<g id="module~~symba_classes~~UsesGraph_node7" 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>
+<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="453.5,-76.33 377.5,-76.33 377.5,-52.33 453.5,-52.33 453.5,-76.33"/>
+<text text-anchor="middle" x="415.5" y="-61.93" 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 -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M499.26,-94.3C486.88,-89.82 472.65,-84.67 459.52,-79.91"/>
+<polygon fill="#000000" stroke="#000000" points="460.34,-76.49 449.75,-76.37 457.96,-83.07 460.34,-76.49"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge8" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.16,-118.54C371.53,-132.07 330.06,-151.35 292.5,-146.33"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.54,-94.3C366.27,-89.73 350.97,-84.46 336.94,-79.63"/>
+<polygon fill="#000000" stroke="#000000" points="338.06,-76.32 327.47,-76.37 335.78,-82.94 338.06,-76.32"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.9,-52.04C507.47,-38.8 483.98,-18.52 459,-10.33 368.03,19.49 255.34,-22.7 200.73,-47.88"/>
+<polygon fill="#000000" stroke="#000000" points="199.09,-44.78 191.54,-52.21 202.07,-51.11 199.09,-44.78"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.05,-52.26C490.54,-39.58 451.98,-21.77 416.5,-24.33"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
 <g id="module~~symba_classes~~UsesGraph_edge12" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M495.48,-64.33C485.43,-64.33 474.42,-64.33 463.89,-64.33"/>
+<polygon fill="#000000" stroke="#000000" points="463.57,-60.83 453.57,-64.33 463.57,-67.83 463.57,-60.83"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~symba_classes~~UsesGraph_node8" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~symba_classes~~UsesGraph_node8"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-76.33 0,-76.33 0,-52.33 87,-52.33 87,-76.33"/>
+<text text-anchor="middle" x="43.5" y="-61.93" 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_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,-64.33C114.58,-64.33 105.86,-64.33 97.36,-64.33"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-60.83 87.13,-64.33 97.13,-67.83 97.13,-60.83"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge14" 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.33C238.75,-64.33 230.07,-64.33 221.59,-64.33"/>
+<polygon fill="#000000" stroke="#000000" points="221.39,-60.83 211.39,-64.33 221.39,-67.83 221.39,-60.83"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge15" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M387.99,-76.43C382.59,-79.17 377.03,-82.2 372,-85.33 334.19,-108.87 336.64,-152.23 292.5,-146.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-146.33C247.39,-140.58 207.52,-106.32 185.6,-83.94"/>
+<polygon fill="#000000" stroke="#000000" points="188.04,-81.43 178.62,-76.59 182.97,-86.25 188.04,-81.43"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge13" class="edge">
+<g id="module~~symba_classes~~UsesGraph_edge16" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.23,-64.33C367.56,-64.33 356.95,-64.33 346.6,-64.33"/>
+<polygon fill="#000000" stroke="#000000" points="346.39,-60.83 336.39,-64.33 346.39,-67.83 346.39,-60.83"/>
 </g>
 </g>
 </svg>
@@ -678,8 +710,6 @@ <h3 class="panel-title">Used by</h3>
       
       <li><a href='../module/s_symba_encounter_check.html'>s_symba_encounter_check</a></li>
       
-      <li><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></li>
-      
       <li><a href='../module/s_symba_io.html'>s_symba_io</a></li>
       
       <li><a href='../module/s_symba_kick.html'>s_symba_kick</a></li>
@@ -701,998 +731,1113 @@ <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="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)">
+<svg id="modulesymba_classesUsedByGraph" width="376pt" height="2888pt"
+ viewBox="0.00 0.00 376.00 2888.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 2884)">
 <title>module~~symba_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 372,-2548 372,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 372,-2884 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,-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>
+<polygon fill="none" stroke="black" points="85,-2082 0,-2082 0,-2058 85,-2058 85,-2082"/>
+<text text-anchor="middle" x="42.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes</text>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_symba_kick -->
 <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,-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>
+<title>module~s_symba_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2880 250,-2880 250,-2856 329,-2856 329,-2880"/>
+<text text-anchor="middle" x="289.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_kick&#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,-2529.69C239.38,-2527.06 222.73,-2521.73 211,-2511 152.28,-2457.28 210.38,-2393.66 149,-2343"/>
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M249.73,-2864.5C236.19,-2861.59 221.71,-2856.36 211,-2847 157.61,-2800.34 203.12,-2745.81 149,-2700"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_node12" class="node">
+<g id="module~~symba_classes~~UsedByGraph_node11" class="node">
 <title>module~swiftest</title>
-<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_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,-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_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>
+<g id="a_module~~symba_classes~~UsedByGraph_node11"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="175,-1473 121,-1473 121,-1449 175,-1449 175,-1473"/>
+<text text-anchor="middle" x="148" y="-1458.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge3" class="edge">
-<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_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge29" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge11" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.78,-2866.77C235.4,-2864.22 220.33,-2858.64 211,-2847 166.51,-2791.47 151.33,-1657.45 149.25,-1483.35"/>
+<polygon fill="#000000" stroke="#000000" points="152.75,-1483.25 149.14,-1473.29 145.75,-1483.33 152.75,-1483.25"/>
 </g>
-<!-- module~s_symba_encounter_check -->
-<g id="module~~symba_classes~~UsedByGraph_node4" class="node">
-<title>module~s_symba_encounter_check</title>
-<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>
+<!-- module~s_symba_drift -->
+<g id="module~~symba_classes~~UsedByGraph_node3" class="node">
+<title>module~s_symba_drift</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2838 250,-2838 250,-2814 329,-2814 329,-2838"/>
+<text text-anchor="middle" x="289.5" y="-2823.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 -->
-<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,-2435.93C221.93,-2433.49 216.18,-2430.54 211,-2427 172.7,-2400.81 184.79,-2372.53 149,-2343"/>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~symba_classes~~UsedByGraph_edge3" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M249.99,-2821.61C236.63,-2818.6 222.2,-2813.53 211,-2805 167.89,-2772.16 190.37,-2735.01 149,-2700"/>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
 <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,-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"/>
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.79,-2824.76C235.4,-2822.21 220.33,-2816.63 211,-2805 167.89,-2751.26 151.58,-1654.87 149.29,-1483.45"/>
+<polygon fill="#000000" stroke="#000000" points="152.79,-1483.28 149.15,-1473.32 145.79,-1483.37 152.79,-1483.28"/>
 </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>
+<!-- module~s_symba_io -->
+<g id="module~~symba_classes~~UsedByGraph_node4" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-2796 254.5,-2796 254.5,-2772 324.5,-2772 324.5,-2796"/>
+<text text-anchor="middle" x="289.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_io&#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"/>
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M254.16,-2778.76C240.11,-2775.61 224.12,-2770.67 211,-2763 177.08,-2743.17 178.99,-2725.38 149,-2700"/>
 </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"/>
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.2,-2783.45C238.57,-2781.29 221.3,-2775.82 211,-2763 169.26,-2711.05 151.84,-1652.08 149.32,-1483.52"/>
+<polygon fill="#000000" stroke="#000000" points="152.82,-1483.29 149.17,-1473.34 145.82,-1483.39 152.82,-1483.29"/>
 </g>
-<!-- module~s_symba_setup -->
-<g id="module~~symba_classes~~UsedByGraph_node6" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="333.5,-2376 245.5,-2376 245.5,-2352 333.5,-2352 333.5,-2376"/>
-<text text-anchor="middle" x="289.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<!-- module~s_symba_encounter_check -->
+<g id="module~~symba_classes~~UsedByGraph_node5" 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,-2754 218,-2754 218,-2730 361,-2730 361,-2754"/>
+<text text-anchor="middle" x="289.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<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.46,-2368.4C215.25,-2369.12 175.63,-2364.98 149,-2343"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<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="M217.73,-2732.42C193.81,-2726.32 168.31,-2716.34 149,-2700"/>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M220.75,-2729.88C217.11,-2727.41 213.8,-2724.48 211,-2721 170.64,-2670.86 152.12,-1650.08 149.37,-1483.8"/>
+<polygon fill="#000000" stroke="#000000" points="152.86,-1483.28 149.19,-1473.33 145.86,-1483.39 152.86,-1483.28"/>
 </g>
 <!-- module~s_symba_collision -->
-<g id="module~~symba_classes~~UsedByGraph_node7" class="node">
+<g id="module~~symba_classes~~UsedByGraph_node6" class="node">
 <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>
+<g id="a_module~~symba_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="339,-2712 240,-2712 240,-2688 339,-2688 339,-2712"/>
+<text text-anchor="middle" x="289.5" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge9" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge6" 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"/>
+<path fill="none" stroke="#000000" d="M250.82,-2712.07C219.86,-2719.44 176.73,-2723.47 149,-2700"/>
 </g>
 <!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge46" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.7,-2696.42C228.7,-2693.25 218.17,-2687.9 211,-2679 171.99,-2630.61 152.37,-1645.83 149.4,-1483.55"/>
+<polygon fill="#000000" stroke="#000000" points="152.9,-1483.24 149.21,-1473.31 145.9,-1483.37 152.9,-1483.24"/>
 </g>
-<!-- module~s_symba_drift -->
-<g id="module~~symba_classes~~UsedByGraph_node8" class="node">
-<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_drift</text>
+<!-- module~s_symba_util -->
+<g id="module~~symba_classes~~UsedByGraph_node7" class="node">
+<title>module~s_symba_util</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327,-2670 252,-2670 252,-2646 327,-2646 327,-2670"/>
+<text text-anchor="middle" x="289.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_edge7" class="edge">
-<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"/>
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M251.7,-2667.47C238.78,-2670.93 224.2,-2674.98 211,-2679 183.17,-2687.48 171.21,-2718.8 149,-2700"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.83,-2657.07C236.87,-2654.68 220.81,-2649.15 211,-2637 173.32,-2590.36 152.63,-1641.44 149.44,-1483.26"/>
+<polygon fill="#000000" stroke="#000000" points="152.94,-1483.19 149.24,-1473.26 145.94,-1483.33 152.94,-1483.19"/>
 </g>
-<!-- module~s_symba_discard -->
-<g id="module~~symba_classes~~UsedByGraph_node9" class="node">
-<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>
+<!-- module~s_symba_setup -->
+<g id="module~~symba_classes~~UsedByGraph_node8" class="node">
+<title>module~s_symba_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333.5,-2628 245.5,-2628 245.5,-2604 333.5,-2604 333.5,-2628"/>
+<text text-anchor="middle" x="289.5" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_edge8" class="edge">
-<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"/>
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M245.46,-2623.37C233.77,-2626.49 221.47,-2630.88 211,-2637 177.08,-2656.83 178.99,-2725.38 149,-2700"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge49" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.39,-2613.83C232.42,-2610.96 219.42,-2605.4 211,-2595 174.7,-2550.14 152.94,-1638.73 149.48,-1483.41"/>
+<polygon fill="#000000" stroke="#000000" points="152.98,-1483.12 149.26,-1473.2 145.98,-1483.27 152.98,-1483.12"/>
 </g>
 <!-- module~s_symba_step -->
-<g id="module~~symba_classes~~UsedByGraph_node10" class="node">
+<g id="module~~symba_classes~~UsedByGraph_node9" class="node">
 <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>
+<g id="a_module~~symba_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2586 248.5,-2586 248.5,-2562 330.5,-2562 330.5,-2586"/>
+<text text-anchor="middle" x="289.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge10" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge9" 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"/>
+<path fill="none" stroke="#000000" d="M248.4,-2578.76C235.49,-2581.81 221.76,-2586.81 211,-2595 167.89,-2627.84 190.37,-2735.01 149,-2700"/>
 </g>
 <!-- module~s_symba_step&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge69" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge27" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.23,-2572.41C234.36,-2569.73 220.04,-2564.15 211,-2553 176.06,-2509.92 153.25,-1635.73 149.54,-1483.51"/>
+<polygon fill="#000000" stroke="#000000" points="153.03,-1483.02 149.28,-1473.11 146.03,-1483.19 153.03,-1483.02"/>
 </g>
-<!-- module~s_symba_util -->
-<g id="module~~symba_classes~~UsedByGraph_node11" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="327,-2166 252,-2166 252,-2142 327,-2142 327,-2166"/>
-<text text-anchor="middle" x="289.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<!-- module~s_symba_discard -->
+<g id="module~~symba_classes~~UsedByGraph_node10" class="node">
+<title>module~s_symba_discard</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-2544 241.5,-2544 241.5,-2520 337.5,-2520 337.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_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<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="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"/>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~symba_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M147,-2700C51.9,-2619.5 44.01,-2194.5 43.5,-2092.18"/>
+<polygon fill="#000000" stroke="#000000" points="47,-2092.05 43.47,-2082.06 40,-2092.07 47,-2092.05"/>
+<path fill="none" stroke="#000000" d="M241.29,-2537.61C230.38,-2540.74 219.5,-2545.57 211,-2553 157.61,-2599.66 203.12,-2745.81 149,-2700"/>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.37,-2528.82C229.79,-2525.72 218.56,-2520.3 211,-2511 143.99,-2428.57 147.57,-1628.44 148.78,-1483.47"/>
+<polygon fill="#000000" stroke="#000000" points="152.28,-1483.19 148.87,-1473.16 145.28,-1483.12 152.28,-1483.19"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.93,-1473.17C132.18,-1548.23 64.16,-1948.44 47.29,-2047.71"/>
+<polygon fill="#000000" stroke="#000000" points="43.8,-2047.36 45.57,-2057.81 50.7,-2048.53 43.8,-2047.36"/>
 </g>
-<!-- module~s_setup -->
-<g id="module~~symba_classes~~UsedByGraph_node13" class="node">
-<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>
+<!-- module~s_util_exit -->
+<g id="module~~symba_classes~~UsedByGraph_node12" class="node">
+<title>module~s_util_exit</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="319.5,-1368 259.5,-1368 259.5,-1344 319.5,-1344 319.5,-1368"/>
+<text text-anchor="middle" x="289.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge12" class="edge">
-<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"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.31,-1359.21C243.9,-1362.01 225.27,-1367.24 211,-1377 187.58,-1393.02 169.62,-1420.86 159.2,-1440.07"/>
+<polygon fill="#000000" stroke="#000000" points="156.08,-1438.48 154.57,-1448.97 162.29,-1441.71 156.08,-1438.48"/>
 </g>
-<!-- module~drift_implementation -->
-<g id="module~~symba_classes~~UsedByGraph_node14" class="node">
-<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>
+<!-- proc~ge_wpp -->
+<g id="module~~symba_classes~~UsedByGraph_node13" class="node">
+<title>proc~ge_wpp</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node13"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="316.5,-1326 262.5,-1326 262.5,-1302 316.5,-1302 316.5,-1326"/>
+<text text-anchor="middle" x="289.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge13" class="edge">
-<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"/>
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.3,-1315.67C245.98,-1317.93 225.42,-1323.12 211,-1335 178.13,-1362.08 161.25,-1410.87 153.84,-1439.13"/>
+<polygon fill="#000000" stroke="#000000" points="150.44,-1438.33 151.45,-1448.87 157.24,-1439.99 150.44,-1438.33"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_netcdf -->
+<g id="module~~symba_classes~~UsedByGraph_node14" class="node">
+<title>module~s_netcdf</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1284 262.5,-1284 262.5,-1260 316.5,-1260 316.5,-1284"/>
+<text text-anchor="middle" x="289.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
+</a>
+</g>
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.23,-1273.13C245.68,-1275.15 224.89,-1280.3 211,-1293 168.38,-1331.99 154.97,-1402.86 150.82,-1438.81"/>
+<polygon fill="#000000" stroke="#000000" points="147.33,-1438.47 149.8,-1448.78 154.3,-1439.18 147.33,-1438.47"/>
+</g>
+<!-- module~s_whm_util -->
 <g id="module~~symba_classes~~UsedByGraph_node15" class="node">
-<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>
+<title>module~s_whm_util</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node15"><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>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<!-- module~s_whm_util&#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"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.25,-1231.58C240.74,-1233.96 222.96,-1239.31 211,-1251 158.48,-1302.35 149.92,-1395.83 148.88,-1438.58"/>
+<polygon fill="#000000" stroke="#000000" points="145.38,-1438.72 148.76,-1448.76 152.38,-1438.8 145.38,-1438.72"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_helio_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node16" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<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_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_helio_setup&#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"/>
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.69,-1190.45C235.82,-1193.22 221.13,-1198.63 211,-1209 178.75,-1242.02 158.41,-1383.6 151.57,-1438.82"/>
+<polygon fill="#000000" stroke="#000000" points="148.07,-1438.59 150.35,-1448.94 155.02,-1439.43 148.07,-1438.59"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_util_solve -->
 <g id="module~~symba_classes~~UsedByGraph_node17" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-1158 255.5,-1158 255.5,-1134 323.5,-1134 323.5,-1158"/>
+<text text-anchor="middle" x="289.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#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"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.46,-1147.25C239.94,-1149.56 222.39,-1154.94 211,-1167 173.65,-1206.53 156.01,-1376.72 150.75,-1438.49"/>
+<polygon fill="#000000" stroke="#000000" points="147.24,-1438.46 149.91,-1448.71 154.22,-1439.03 147.24,-1438.46"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_whm_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node18" class="node">
-<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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<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_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_whm_setup&#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"/>
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.77,-1106.06C235.74,-1108.77 220.92,-1114.23 211,-1125 168.45,-1171.19 153.87,-1370.85 150.1,-1438.49"/>
+<polygon fill="#000000" stroke="#000000" points="146.59,-1438.68 149.55,-1448.85 153.58,-1439.05 146.59,-1438.68"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_rmvs_step -->
 <g id="module~~symba_classes~~UsedByGraph_node19" class="node">
-<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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1074 253,-1074 253,-1050 326,-1050 326,-1074"/>
+<text text-anchor="middle" x="289.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.85,-1063.39C237.89,-1065.85 221.56,-1071.31 211,-1083 163.2,-1135.95 151.97,-1365.59 149.59,-1438.62"/>
+<polygon fill="#000000" stroke="#000000" points="146.08,-1438.84 149.28,-1448.94 153.08,-1439.05 146.08,-1438.84"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_io -->
 <g id="module~~symba_classes~~UsedByGraph_node20" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1032 262.5,-1032 262.5,-1008 316.5,-1008 316.5,-1032"/>
+<text text-anchor="middle" x="289.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.43,-1020.11C245.3,-1021.64 223.78,-1026.62 211,-1041 157.93,-1100.74 150.28,-1360.6 149.18,-1438.71"/>
+<polygon fill="#000000" stroke="#000000" points="145.68,-1438.83 149.06,-1448.87 152.68,-1438.91 145.68,-1438.83"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_helio_step -->
 <g id="module~~symba_classes~~UsedByGraph_node21" class="node">
-<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>
+<title>module~s_helio_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node21"><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_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"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge21" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.69,-979.25C237.7,-981.68 221.38,-987.16 211,-999 152.6,-1065.61 148.74,-1356.2 148.85,-1438.94"/>
+<polygon fill="#000000" stroke="#000000" points="145.35,-1439 148.89,-1448.99 152.35,-1438.98 145.35,-1439"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~orbel -->
 <g id="module~~symba_classes~~UsedByGraph_node22" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node22"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" 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">orbel</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge22" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.31,-936.01C245.14,-937.5 223.6,-942.47 211,-957 147.37,-1030.38 147.34,-1350.82 148.57,-1438.66"/>
+<polygon fill="#000000" stroke="#000000" points="145.07,-1438.89 148.73,-1448.83 152.07,-1438.78 145.07,-1438.89"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~symba_classes~~UsedByGraph_node23" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-906 254.5,-906 254.5,-882 324.5,-882 324.5,-906"/>
+<text text-anchor="middle" x="289.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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.17,-894.91C238.73,-897.18 221.63,-902.63 211,-915 176.32,-955.38 154.99,-1340.27 150.09,-1438.35"/>
+<polygon fill="#000000" stroke="#000000" points="146.58,-1438.45 149.58,-1448.61 153.57,-1438.79 146.58,-1438.45"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_helio_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node24" class="node">
-<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>
+<title>module~s_helio_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-864 254.5,-864 254.5,-840 324.5,-840 324.5,-864"/>
+<text text-anchor="middle" x="289.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.12,-852.87C238.67,-855.13 221.58,-860.58 211,-873 173.58,-916.92 154.07,-1337.2 149.87,-1438.91"/>
+<polygon fill="#000000" stroke="#000000" points="146.37,-1438.84 149.46,-1448.97 153.36,-1439.12 146.37,-1438.84"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_whm_step -->
 <g id="module~~symba_classes~~UsedByGraph_node25" class="node">
-<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>
+<title>module~s_whm_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-822 253,-822 253,-798 326,-798 326,-822"/>
+<text text-anchor="middle" x="289.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.89,-811.02C237.75,-813.38 221.26,-818.87 211,-831 170.94,-878.36 153.32,-1332.2 149.71,-1438.71"/>
+<polygon fill="#000000" stroke="#000000" points="146.21,-1438.82 149.37,-1448.93 153.2,-1439.05 146.21,-1438.82"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_helio_gr -->
 <g id="module~~symba_classes~~UsedByGraph_node26" class="node">
-<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>
+<title>module~s_helio_gr</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320.5,-780 258.5,-780 258.5,-756 320.5,-756 320.5,-780"/>
+<text text-anchor="middle" x="289.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.36,-768.26C241.86,-770.09 222.48,-775.34 211,-789 168.26,-839.83 152.59,-1327.73 149.57,-1438.64"/>
+<polygon fill="#000000" stroke="#000000" points="146.06,-1438.88 149.3,-1448.97 153.06,-1439.06 146.06,-1438.88"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~symba_classes~~UsedByGraph_node27" class="node">
-<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>
+<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,-738 245.5,-738 245.5,-714 333.5,-714 333.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_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.18,-728.42C232.36,-731.33 219.49,-736.84 211,-747 165.57,-801.33 151.91,-1323.73 149.44,-1438.7"/>
+<polygon fill="#000000" stroke="#000000" points="145.94,-1438.72 149.23,-1448.79 152.94,-1438.87 145.94,-1438.72"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~whm_drift -->
 <g id="module~~symba_classes~~UsedByGraph_node28" class="node">
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node28"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="319,-696 260,-696 260,-672 319,-672 319,-696"/>
+<text text-anchor="middle" x="289.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge32" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.85,-684.05C243.01,-685.71 222.77,-690.86 211,-705 162.86,-762.86 151.25,-1320.34 149.32,-1438.9"/>
+<polygon fill="#000000" stroke="#000000" points="145.82,-1438.92 149.17,-1448.97 152.82,-1439.03 145.82,-1438.92"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_rmvs_util -->
 <g id="module~~symba_classes~~UsedByGraph_node29" class="node">
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323,-654 256,-654 256,-630 323,-630 323,-654"/>
+<text text-anchor="middle" x="289.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.95,-642.47C239.96,-644.52 221.85,-649.9 211,-663 160.17,-724.35 150.65,-1316.23 149.22,-1438.84"/>
+<polygon fill="#000000" stroke="#000000" points="145.72,-1438.88 149.11,-1448.92 152.72,-1438.96 145.72,-1438.88"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_fraggle_io -->
 <g id="module~~symba_classes~~UsedByGraph_node30" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-612 254,-612 254,-588 325,-588 325,-612"/>
+<text text-anchor="middle" x="289.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.95,-600.72C238.46,-602.95 221.38,-608.42 211,-621 157.47,-685.87 150.08,-1312.52 149.13,-1438.87"/>
+<polygon fill="#000000" stroke="#000000" points="145.63,-1438.89 149.06,-1448.91 152.63,-1438.93 145.63,-1438.89"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_util_append -->
 <g id="module~~symba_classes~~UsedByGraph_node31" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-570 250,-570 250,-546 329,-546 329,-570"/>
+<text text-anchor="middle" x="289.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.93,-559.35C235.57,-561.92 220.47,-567.48 211,-579 154.81,-647.34 149.54,-1307.89 149.05,-1438.59"/>
+<polygon fill="#000000" stroke="#000000" points="145.55,-1438.94 149.02,-1448.95 152.55,-1438.96 145.55,-1438.94"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node32" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-528 254,-528 254,-504 325,-504 325,-528"/>
+<text text-anchor="middle" x="289.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.91,-516.69C238.42,-518.92 221.34,-524.39 211,-537 152.14,-608.82 149.02,-1303.47 148.97,-1438.37"/>
+<polygon fill="#000000" stroke="#000000" points="145.47,-1438.71 148.98,-1448.71 152.47,-1438.71 145.47,-1438.71"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_util_fill -->
 <g id="module~~symba_classes~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-486 262.5,-486 262.5,-462 316.5,-462 316.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_fill</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.42,-473.75C245.06,-475.09 223.26,-480 211,-495 149.39,-570.39 148.52,-1300.85 148.9,-1438.64"/>
+<polygon fill="#000000" stroke="#000000" points="145.41,-1438.84 148.94,-1448.83 152.41,-1438.82 145.41,-1438.84"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_rmvs_io -->
 <g id="module~~symba_classes~~UsedByGraph_node34" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-444 259,-444 259,-420 320,-420 320,-444"/>
+<text text-anchor="middle" x="289.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.98,-432.04C242.25,-433.76 222.45,-438.95 211,-453 146.69,-531.9 148.04,-1297.1 148.84,-1438.57"/>
+<polygon fill="#000000" stroke="#000000" points="145.34,-1439.01 148.91,-1448.99 152.34,-1438.97 145.34,-1439.01"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_fraggle_placeholder -->
 <g id="module~~symba_classes~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="348.5,-402 230.5,-402 230.5,-378 348.5,-378 348.5,-402"/>
+<text text-anchor="middle" x="289.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M230.28,-397C222.87,-400.22 216.1,-404.73 211,-411 143.99,-493.43 147.57,-1293.56 148.78,-1438.53"/>
+<polygon fill="#000000" stroke="#000000" points="145.28,-1438.88 148.87,-1448.84 152.28,-1438.81 145.28,-1438.88"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-360 250,-360 250,-336 329,-336 329,-360"/>
+<text text-anchor="middle" x="289.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.85,-349.29C235.48,-351.85 220.4,-357.42 211,-369 176.06,-412.08 153.25,-1286.27 149.54,-1438.49"/>
+<polygon fill="#000000" stroke="#000000" points="146.03,-1438.81 149.28,-1448.89 153.03,-1438.98 146.03,-1438.81"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_whm_gr -->
 <g id="module~~symba_classes~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320.5,-318 258.5,-318 258.5,-294 320.5,-294 320.5,-318"/>
+<text text-anchor="middle" x="289.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.17,-306.1C241.6,-307.88 222.23,-313.13 211,-327 174.7,-371.86 152.94,-1283.27 149.48,-1438.59"/>
+<polygon fill="#000000" stroke="#000000" points="145.98,-1438.73 149.26,-1448.8 152.98,-1438.88 145.98,-1438.73"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~symba_classes~~UsedByGraph_node38" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="338.5,-276 240.5,-276 240.5,-252 338.5,-252 338.5,-276"/>
+<text text-anchor="middle" x="289.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.12,-267.48C228.97,-270.63 218.27,-276 211,-285 173.32,-331.64 152.63,-1280.56 149.44,-1438.74"/>
+<polygon fill="#000000" stroke="#000000" points="145.94,-1438.67 149.24,-1448.74 152.94,-1438.81 145.94,-1438.67"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_obl -->
 <g id="module~~symba_classes~~UsedByGraph_node39" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-234 262.5,-234 262.5,-210 316.5,-210 316.5,-234"/>
+<text text-anchor="middle" x="289.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.35,-221.7C244.96,-223.02 223.16,-227.92 211,-243 171.99,-291.39 152.37,-1276.17 149.4,-1438.45"/>
+<polygon fill="#000000" stroke="#000000" points="145.9,-1438.63 149.21,-1448.69 152.9,-1438.76 145.9,-1438.63"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_discard -->
 <g id="module~~symba_classes~~UsedByGraph_node40" class="node">
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="318.5,-192 260.5,-192 260.5,-168 318.5,-168 318.5,-192"/>
+<text text-anchor="middle" x="289.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge43" class="edge">
-<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"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.45,-179.85C243.4,-181.38 222.71,-186.45 211,-201 170.64,-251.14 152.12,-1271.92 149.37,-1438.2"/>
+<polygon fill="#000000" stroke="#000000" points="145.86,-1438.61 149.19,-1448.67 152.86,-1438.72 145.86,-1438.61"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_util_resize -->
 <g id="module~~symba_classes~~UsedByGraph_node41" class="node">
-<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>
+<title>module~s_util_resize</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-150 253.5,-150 253.5,-126 325.5,-126 325.5,-150"/>
+<text text-anchor="middle" x="289.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge45" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.4,-138.66C237.99,-140.9 221.13,-146.39 211,-159 169.26,-210.95 151.84,-1269.92 149.32,-1438.48"/>
+<polygon fill="#000000" stroke="#000000" points="145.82,-1438.61 149.17,-1448.66 152.82,-1438.71 145.82,-1438.61"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~drift_implementation -->
 <g id="module~~symba_classes~~UsedByGraph_node42" class="node">
-<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>
+<title>module~drift_implementation</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node42"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344,-108 235,-108 235,-84 344,-84 344,-108"/>
+<text text-anchor="middle" x="289.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge45" class="edge">
-<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"/>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge46" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M234.89,-101.09C225.67,-104.37 217.11,-109.39 211,-117 167.89,-170.74 151.58,-1267.13 149.29,-1438.55"/>
+<polygon fill="#000000" stroke="#000000" points="145.79,-1438.63 149.15,-1448.68 152.79,-1438.72 145.79,-1438.63"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~symba_classes~~UsedByGraph_node43" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="342.5,-66 236.5,-66 236.5,-42 342.5,-42 342.5,-66"/>
+<text text-anchor="middle" x="289.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.46,-58.54C226.65,-61.8 217.45,-66.95 211,-75 166.51,-130.53 151.33,-1264.55 149.25,-1438.65"/>
+<polygon fill="#000000" stroke="#000000" points="145.75,-1438.67 149.14,-1448.71 152.75,-1438.75 145.75,-1438.67"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_operator_cross -->
 <g id="module~~symba_classes~~UsedByGraph_node44" class="node">
-<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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node44"><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>
-<!-- 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"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.27,-15.1C229.69,-18.2 218.49,-23.64 211,-33 165.16,-90.3 151.1,-1261.02 149.23,-1438.53"/>
+<polygon fill="#000000" stroke="#000000" points="145.72,-1438.73 149.12,-1448.76 152.72,-1438.8 145.72,-1438.73"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- proc~solve_wbs -->
 <g id="module~~symba_classes~~UsedByGraph_node45" class="node">
-<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>
+<title>proc~solve_wbs</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node45"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="320.5,-2502 258.5,-2502 258.5,-2478 320.5,-2478 320.5,-2502"/>
+<text text-anchor="middle" x="289.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge50" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.2,-2489.87C241.65,-2488.08 222.27,-2482.83 211,-2469 146.69,-2390.1 148.04,-1624.9 148.84,-1483.43"/>
+<polygon fill="#000000" stroke="#000000" points="152.34,-1483.03 148.91,-1473.01 145.34,-1482.99 152.34,-1483.03"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_fraggle_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node46" class="node">
-<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>
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334,-2460 245,-2460 245,-2436 334,-2436 334,-2460"/>
+<text text-anchor="middle" x="289.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M244.63,-2445.6C231.94,-2442.67 219.29,-2437.15 211,-2427 149.39,-2351.61 148.52,-1621.15 148.9,-1483.36"/>
+<polygon fill="#000000" stroke="#000000" points="152.41,-1483.18 148.94,-1473.17 145.41,-1483.16 152.41,-1483.18"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~s_util_sort -->
 <g id="module~~symba_classes~~UsedByGraph_node47" class="node">
-<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>
+<title>module~s_util_sort</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-2418 259,-2418 259,-2394 320,-2394 320,-2418"/>
+<text text-anchor="middle" x="289.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.62,-2405.89C241.99,-2404.13 222.4,-2398.91 211,-2385 152.14,-2313.18 149.02,-1618.53 148.97,-1483.63"/>
+<polygon fill="#000000" stroke="#000000" points="152.47,-1483.29 148.98,-1473.29 145.47,-1483.29 152.47,-1483.29"/>
 </g>
-<!-- module~s_io -->
+<!-- program~swiftest_driver -->
 <g id="module~~symba_classes~~UsedByGraph_node48" class="node">
-<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>
+<title>program~swiftest_driver</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node48"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="330,-2376 249,-2376 249,-2352 330,-2352 330,-2376"/>
+<text text-anchor="middle" x="289.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge52" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.72,-2362.42C234.72,-2359.76 220.21,-2354.2 211,-2343 154.81,-2274.66 149.54,-1614.11 149.05,-1483.41"/>
+<polygon fill="#000000" stroke="#000000" points="152.55,-1483.04 149.02,-1473.05 145.55,-1483.06 152.55,-1483.04"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_gr -->
 <g id="module~~symba_classes~~UsedByGraph_node49" class="node">
-<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>
+<title>module~s_gr</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-2334 262.5,-2334 262.5,-2310 316.5,-2310 316.5,-2334"/>
+<text text-anchor="middle" x="289.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.46,-2322.22C245.12,-2320.85 223.33,-2315.95 211,-2301 157.47,-2236.13 150.08,-1609.48 149.13,-1483.13"/>
+<polygon fill="#000000" stroke="#000000" points="152.63,-1483.07 149.06,-1473.09 145.63,-1483.11 152.63,-1483.07"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~symba_classes~~UsedByGraph_node50" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-2292 233.5,-2292 233.5,-2268 345.5,-2268 345.5,-2292"/>
+<text text-anchor="middle" x="289.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.5,-2274.18C224.86,-2270.91 216.87,-2266.08 211,-2259 160.17,-2197.65 150.65,-1605.77 149.22,-1483.16"/>
+<polygon fill="#000000" stroke="#000000" points="152.72,-1483.04 149.11,-1473.08 145.72,-1483.12 152.72,-1483.04"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_rescale -->
 <g id="module~~symba_classes~~UsedByGraph_node51" class="node">
-<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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-2250 250.5,-2250 250.5,-2226 328.5,-2226 328.5,-2250"/>
+<text text-anchor="middle" x="289.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.4,-2236.66C235.93,-2234.12 220.63,-2228.57 211,-2217 162.86,-2159.14 151.25,-1601.66 149.32,-1483.1"/>
+<polygon fill="#000000" stroke="#000000" points="152.82,-1482.97 149.17,-1473.03 145.82,-1483.08 152.82,-1482.97"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~symba_classes~~UsedByGraph_node52" class="node">
-<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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368,-2208 211,-2208 211,-2184 368,-2184 368,-2208"/>
+<text text-anchor="middle" x="289.5" y="-2193.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_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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge56" 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.25,-2183.99C217.43,-2181.5 213.95,-2178.53 211,-2175 165.57,-2120.67 151.91,-1598.27 149.44,-1483.3"/>
+<polygon fill="#000000" stroke="#000000" points="152.94,-1483.13 149.23,-1473.21 145.94,-1483.28 152.94,-1483.13"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node53" class="node">
-<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>
+<title>module~s_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-2166 262.5,-2166 262.5,-2142 316.5,-2142 316.5,-2166"/>
+<text text-anchor="middle" x="289.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.17,-2154.11C244.93,-2152.68 223.38,-2147.72 211,-2133 168.26,-2082.17 152.59,-1594.27 149.57,-1483.36"/>
+<polygon fill="#000000" stroke="#000000" points="153.06,-1482.94 149.3,-1473.03 146.06,-1483.12 153.06,-1482.94"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_whm_coord -->
 <g id="module~~symba_classes~~UsedByGraph_node54" class="node">
-<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>
+<title>module~s_whm_coord</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2124 250,-2124 250,-2100 329,-2100 329,-2124"/>
+<text text-anchor="middle" x="289.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.69,-2110.44C235.47,-2107.82 220.54,-2102.28 211,-2091 170.94,-2043.64 153.32,-1589.8 149.71,-1483.29"/>
+<polygon fill="#000000" stroke="#000000" points="153.2,-1482.95 149.37,-1473.07 146.21,-1483.18 153.2,-1482.95"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_util_index -->
 <g id="module~~symba_classes~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324,-2082 255,-2082 255,-2058 324,-2058 324,-2082"/>
+<text text-anchor="middle" x="289.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.91,-2069.24C239.26,-2067.05 221.76,-2061.63 211,-2049 173.58,-2005.08 154.07,-1584.8 149.87,-1483.09"/>
+<polygon fill="#000000" stroke="#000000" points="153.36,-1482.88 149.46,-1473.03 146.37,-1483.16 153.36,-1482.88"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_valid -->
 <g id="module~~symba_classes~~UsedByGraph_node56" class="node">
-<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>
+<title>module~s_util_valid</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node56"><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_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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.92,-2027.47C240.8,-2025.45 222.26,-2020.11 211,-2007 176.32,-1966.62 154.99,-1581.73 150.09,-1483.65"/>
+<polygon fill="#000000" stroke="#000000" points="153.57,-1483.21 149.58,-1473.39 146.58,-1483.55 153.57,-1483.21"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_coord -->
 <g id="module~~symba_classes~~UsedByGraph_node57" class="node">
+<title>module~s_util_coord</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1998 254.5,-1998 254.5,-1974 324.5,-1974 324.5,-1998"/>
+<text text-anchor="middle" x="289.5" y="-1983.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 -->
+<g id="module~~symba_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.22,-1985.05C238.79,-1982.77 221.68,-1977.32 211,-1965 147.37,-1891.62 147.34,-1571.18 148.57,-1483.34"/>
+<polygon fill="#000000" stroke="#000000" points="152.07,-1483.22 148.73,-1473.17 145.07,-1483.11 152.07,-1483.22"/>
+</g>
+<!-- module~s_util_set -->
+<g id="module~~symba_classes~~UsedByGraph_node58" class="node">
+<title>module~s_util_set</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="318.5,-1956 260.5,-1956 260.5,-1932 318.5,-1932 318.5,-1956"/>
+<text text-anchor="middle" x="289.5" y="-1941.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 -->
+<g id="module~~symba_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.48,-1943.77C243.66,-1942.06 223.22,-1936.94 211,-1923 152.6,-1856.39 148.74,-1565.8 148.85,-1483.06"/>
+<polygon fill="#000000" stroke="#000000" points="152.35,-1483.02 148.89,-1473.01 145.35,-1483 152.35,-1483.02"/>
+</g>
+<!-- module~s_util_peri -->
+<g id="module~~symba_classes~~UsedByGraph_node59" class="node">
 <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>
+<g id="a_module~~symba_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-1914 259,-1914 259,-1890 320,-1890 320,-1914"/>
+<text text-anchor="middle" x="289.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_peri&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge65" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge64" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.64,-1901.5C242.23,-1899.59 222.85,-1894.34 211,-1881 157.93,-1821.26 150.28,-1561.4 149.18,-1483.29"/>
+<polygon fill="#000000" stroke="#000000" points="152.68,-1483.09 149.06,-1473.13 145.68,-1483.17 152.68,-1483.09"/>
 </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,-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>
+<!-- module~s_util_minimize_bfgs -->
+<g id="module~~symba_classes~~UsedByGraph_node60" class="node">
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-1872 233.5,-1872 233.5,-1848 345.5,-1848 345.5,-1872"/>
+<text text-anchor="middle" x="289.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_rmvs_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.2,-1853.46C224.81,-1850.25 216.98,-1845.62 211,-1839 163.2,-1786.05 151.97,-1556.41 149.59,-1483.38"/>
+<polygon fill="#000000" stroke="#000000" points="153.08,-1482.95 149.28,-1473.06 146.08,-1483.16 153.08,-1482.95"/>
+</g>
+<!-- module~s_helio_drift -->
+<g id="module~~symba_classes~~UsedByGraph_node61" class="node">
+<title>module~s_helio_drift</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1830 254.5,-1830 254.5,-1806 324.5,-1806 324.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_drift</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
 <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.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"/>
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.15,-1816.7C238.89,-1814.32 221.96,-1808.89 211,-1797 168.45,-1750.81 153.87,-1551.15 150.1,-1483.51"/>
+<polygon fill="#000000" stroke="#000000" points="153.58,-1482.95 149.55,-1473.15 146.59,-1483.32 153.58,-1482.95"/>
 </g>
-<!-- module~s_whm_setup -->
-<g id="module~~symba_classes~~UsedByGraph_node59" class="node">
-<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>
+<!-- module~s_util_spill -->
+<g id="module~~symba_classes~~UsedByGraph_node62" class="node">
+<title>module~s_util_spill</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-1788 259,-1788 259,-1764 320,-1764 320,-1788"/>
+<text text-anchor="middle" x="289.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.94,-1775.23C242.63,-1773.22 223.25,-1767.97 211,-1755 173.65,-1715.47 156.01,-1545.28 150.75,-1483.51"/>
+<polygon fill="#000000" stroke="#000000" points="154.22,-1482.97 149.91,-1473.29 147.24,-1483.54 154.22,-1482.97"/>
 </g>
-<!-- module~s_discard -->
-<g id="module~~symba_classes~~UsedByGraph_node60" class="node">
-<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>
+<!-- module~s_whm_kick -->
+<g id="module~~symba_classes~~UsedByGraph_node63" class="node">
+<title>module~s_whm_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1746 254.5,-1746 254.5,-1722 324.5,-1722 324.5,-1746"/>
+<text text-anchor="middle" x="289.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge70" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.46,-1732.41C239.27,-1729.96 222.3,-1724.57 211,-1713 178.75,-1679.98 158.41,-1538.4 151.57,-1483.18"/>
+<polygon fill="#000000" stroke="#000000" points="155.02,-1482.57 150.35,-1473.06 148.07,-1483.41 155.02,-1482.57"/>
+</g>
+<!-- module~s_util_copy -->
+<g id="module~~symba_classes~~UsedByGraph_node64" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1704 256.5,-1704 256.5,-1680 322.5,-1680 322.5,-1704"/>
+<text text-anchor="middle" x="289.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.25,-1690.42C240.74,-1688.04 222.96,-1682.69 211,-1671 158.48,-1619.65 149.92,-1526.17 148.88,-1483.42"/>
+<polygon fill="#000000" stroke="#000000" points="152.38,-1483.2 148.76,-1473.24 145.38,-1483.28 152.38,-1483.2"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~symba_classes~~UsedByGraph_node65" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<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_orbel</text>
+</a>
+</g>
+</g>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.23,-1648.87C245.68,-1646.85 224.89,-1641.7 211,-1629 168.38,-1590.01 154.97,-1519.14 150.82,-1483.19"/>
+<polygon fill="#000000" stroke="#000000" points="154.3,-1482.82 149.8,-1473.22 147.33,-1483.53 154.3,-1482.82"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~symba_classes~~UsedByGraph_node66" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="346.5,-1620 232.5,-1620 232.5,-1596 346.5,-1596 346.5,-1620"/>
+<text text-anchor="middle" x="289.5" y="-1605.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 -->
+<g id="module~~symba_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232.33,-1598.97C224.63,-1596.03 217.24,-1592.14 211,-1587 178.13,-1559.92 161.25,-1511.13 153.84,-1482.87"/>
+<polygon fill="#000000" stroke="#000000" points="157.24,-1482.01 151.45,-1473.13 150.44,-1483.67 157.24,-1482.01"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~symba_classes~~UsedByGraph_node67" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node67"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-1578 241.5,-1578 241.5,-1554 337.5,-1554 337.5,-1578"/>
+<text text-anchor="middle" x="289.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.22,-1558.56C230.68,-1555.48 219.98,-1551.14 211,-1545 187.58,-1528.98 169.62,-1501.14 159.2,-1481.93"/>
+<polygon fill="#000000" stroke="#000000" points="162.29,-1480.29 154.57,-1473.03 156.08,-1483.52 162.29,-1480.29"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~symba_classes~~UsedByGraph_node68" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<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_setup</text>
+</a>
+</g>
 </g>
-<!-- module~s_helio_step -->
-<g id="module~~symba_classes~~UsedByGraph_node61" class="node">
-<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>
+<!-- module~s_setup&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.27,-1519.16C246.9,-1515.77 227.35,-1510.5 211,-1503 197.25,-1496.69 183.19,-1487.45 171.95,-1479.23"/>
+<polygon fill="#000000" stroke="#000000" points="174.04,-1476.43 163.95,-1473.22 169.84,-1482.02 174.04,-1476.43"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~symba_classes~~UsedByGraph_node69" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node69"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328,-1494 251,-1494 251,-1470 328,-1470 328,-1494"/>
+<text text-anchor="middle" x="289.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.75,-1476.32C230.41,-1473.26 205.44,-1469.5 185.32,-1466.47"/>
+<polygon fill="#000000" stroke="#000000" points="185.7,-1462.99 175.3,-1464.96 184.66,-1469.91 185.7,-1462.99"/>
 </g>
-<!-- module~s_util_exit -->
-<g id="module~~symba_classes~~UsedByGraph_node62" class="node">
-<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>
+<!-- module~s_util_version -->
+<g id="module~~symba_classes~~UsedByGraph_node70" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-1452 250.5,-1452 250.5,-1428 328.5,-1428 328.5,-1452"/>
+<text text-anchor="middle" x="289.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.38,-1445.74C230.05,-1448.8 205.16,-1452.55 185.14,-1455.56"/>
+<polygon fill="#000000" stroke="#000000" points="184.52,-1452.11 175.16,-1457.06 185.57,-1459.03 184.52,-1452.11"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~symba_classes~~UsedByGraph_node71" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327.5,-1410 251.5,-1410 251.5,-1386 327.5,-1386 327.5,-1410"/>
+<text text-anchor="middle" x="289.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</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"/>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.35,-1405.42C238.27,-1408.71 223.67,-1413.19 211,-1419 197.25,-1425.31 183.19,-1434.55 171.95,-1442.77"/>
+<polygon fill="#000000" stroke="#000000" points="169.84,-1439.98 163.95,-1448.78 174.04,-1445.57 169.84,-1439.98"/>
 </g>
 </g>
 </svg>
@@ -1782,10 +1927,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#variable-rshell">RSHELL</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#variable-particle_outfile">PARTICLE_OUTFILE</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#variable-particleunit">PARTICLEUNIT</a>
-      
     </div>
   </div>
 </div>
@@ -1803,30 +1944,32 @@ <h3>Contents</h3>
   <div id="inters-1" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_check_encounter">symba_collision_check_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_pl">symba_encounter_check_pl</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_pltpenc">symba_encounter_check_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check">symba_encounter_check</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_tp">symba_encounter_check_tp</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casedisruption">symba_fragmentation_casedisruption</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casehitandrun">symba_fragmentation_casehitandrun</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_casedisruption">symba_collision_casedisruption</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casemerge">symba_fragmentation_casemerge</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_casehitandrun">symba_collision_casehitandrun</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_fragmentation_casesupercatastrophic">symba_fragmentation_casesupercatastrophic</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_casemerge">symba_collision_casemerge</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_check_pltpenc">symba_collision_check_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_encounter_extract_collisions">symba_collision_encounter_extract_collisions</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_encounter_scrub">symba_collision_encounter_scrub</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_make_family_pl">symba_collision_make_family_pl</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_make_colliders_pl">symba_collision_make_colliders_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_fragmentations">symba_collision_resolve_fragmentations</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_mergers">symba_collision_resolve_mergers</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_plplenc">symba_collision_resolve_plplenc</a>
+      
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_collision_resolve_pltpenc">symba_collision_resolve_pltpenc</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_discard_pl">symba_discard_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_drift_pl">symba_drift_pl</a>
@@ -1835,23 +1978,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_encounter_check_one">symba_encounter_check_one</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_write_discard">symba_io_write_discard</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_dump_particle_info">symba_io_dump_particle_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_index_eucl_plpl">symba_util_index_eucl_plpl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_param_reader">symba_io_param_reader</a>
       
       <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_read_particle">symba_io_read_particle</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_write_discard">symba_io_write_discard</a>
+      
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_int_pl">symba_kick_getacch_int_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_pl">symba_kick_getacch_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_tp">symba_kick_getacch_tp</a>
       
-      <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_setup_initialize_particle_info">symba_setup_initialize_particle_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_encounter">symba_kick_encounter</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_initialize_system">symba_setup_initialize_system</a>
       
@@ -1859,7 +2000,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_pl">symba_setup_pl</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_pltpenc">symba_setup_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_encounter">symba_setup_encounter</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_tp">symba_setup_tp</a>
       
@@ -1875,12 +2016,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-util_append">util_append</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_encounter">symba_util_append_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_merger">symba_util_append_merger</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_pl">symba_util_append_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_append_tp">symba_util_append_tp</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_copy_encounter">symba_util_copy_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-util_fill">util_fill</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_fill_pl">symba_util_fill_pl</a>
@@ -1891,6 +2036,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_rearray_pl">symba_util_rearray_pl</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_reset_kinship">symba_util_reset_kinship</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-util_resize">util_resize</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_resize_merger">symba_util_resize_merger</a>
@@ -1903,6 +2050,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_sort_tp">symba_util_sort_tp</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#interface-util_sort_rearrange">util_sort_rearrange</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_sort_rearrange_pl">symba_util_sort_rearrange_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_sort_rearrange_tp">symba_util_sort_rearrange_tp</a>
@@ -1911,7 +2060,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_pl">symba_util_spill_pl</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_pltpenc">symba_util_spill_pltpenc</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_encounter">symba_util_spill_encounter</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_util_spill_tp">symba_util_spill_tp</a>
       
@@ -1929,8 +2078,6 @@ <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_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>
@@ -1941,6 +2088,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_tp">symba_tp</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#type-symba_encounter">symba_encounter</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_pltpenc">symba_pltpenc</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_plplenc">symba_plplenc</a>
@@ -1962,266 +2111,19 @@ <h3>Contents</h3>
 
 
 
-    </section>
-    <br class="visible-xs visible-sm hidden-md">
-
-    
-
-    
-    <section>
-    <h2>Variables</h2>
-    
-<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-nenmax"></span>integer(kind=I4B),</td>
-  
-  <td>private,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>NENMAX</strong></td><td> =</td><td>32767</td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ntenc~2"></span>integer(kind=I4B),</td>
-  
-  <td>private,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>NTENC</strong></td><td> =</td><td>3</td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-rhscale~2"></span>real(kind=DP),</td>
-  
-  <td>private,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>RHSCALE</strong></td><td> =</td><td>6.5_DP</td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-rshell"></span>real(kind=DP),</td>
-  
-  <td>private,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>RSHELL</strong></td><td> =</td><td>0.48075_DP</td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-particle_outfile"></span>character(len=*),</td>
-  
-  <td>public,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>PARTICLE_OUTFILE</strong></td><td> =</td><td>'particle.dat'</td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-particleunit"></span>integer(kind=I4B),</td>
-  
-  <td>public,</td>
-  <td>parameter</td><td>::</td>
-  <td><strong>PARTICLEUNIT</strong></td><td> =</td><td>44</td><td><p>File unit number for the binary particle info output file</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-    </section>
-    <br>
-    
-    
-    
-    
-    
-    <section>
-   <h2>Interfaces</h2>
-   
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_encounter_check_pl"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter)
-    
-    
-   
-   <a href='../proc/symba_encounter_check_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/symba_pl.html'>symba_pl</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA test particle object  </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</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>irec</strong></td><td><p>Current recursion level </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>logical
-  </small></h4>
-  <p>Returns true if there is at least one close encounter      </p>
-    
-
-    </li>
-  
-  </ul>
-</div>
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
 
     
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_encounter_check_pltpenc"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter)
-    
-    
-   
-   <a href='../proc/symba_encounter_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
+
     
-    <h4>Arguments</h4>
+    <section>
+    <h2>Variables</h2>
     
-      
-      
 <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>
+<thead><tr><th>Type</th><th>Visibility</th>
+
+<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
 
 
 
@@ -2233,12 +2135,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-nenmax"></span>integer(kind=I4B),</td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NENMAX</strong></td><td> =</td><td>32767</td><td></td>
   
 </tr>
 
@@ -2248,12 +2149,11 @@ <h4>Arguments</h4>
   
 <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><span class="anchor" id="variable-ntenc~2"></span>integer(kind=I4B),</td>
   
-  <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>NTENC</strong></td><td> =</td><td>3</td><td></td>
   
 </tr>
 
@@ -2263,12 +2163,11 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-rhscale~2"></span>real(kind=DP),</td>
   
-  <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>RHSCALE</strong></td><td> =</td><td>6.5_DP</td><td></td>
   
 </tr>
 
@@ -2278,40 +2177,30 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
+  <td><span class="anchor" id="variable-rshell"></span>real(kind=DP),</td>
   
-  <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
+  <td>private,</td>
+  <td>parameter</td><td>::</td>
+  <td><strong>RSHELL</strong></td><td> =</td><td>0.48075_DP</td><td></td>
   
 </tr>
 
 </tbody>
 </table>
 
-      
+    </section>
+    <br>
+    
     
     
-
-  
-  
-  
-  
-     <h4>Return Value <small>logical
-  </small></h4>
-  <p>Returns true if there is at least one close encounter      </p>
     
-
-    </li>
-  
-  </ul>
-</div>
-
     
+    <section>
+   <h2>Interfaces</h2>
+   
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_encounter_check_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_check_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -2321,11 +2210,11 @@ <h4>Return Value <small>logical
     
     
     <h3>
-public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter)
+public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
     
     
    
-   <a href='../proc/symba_encounter_check_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_check_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2349,12 +2238,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA test particle object  </p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
   
 </tr>
 
@@ -2377,6 +2266,36 @@ <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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
@@ -2399,7 +2318,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
   
 </tr>
 
@@ -2416,7 +2335,7 @@ <h4>Arguments</h4>
   
      <h4>Return Value <small>logical
   </small></h4>
-  <p>Returns true if there is at least one close encounter      </p>
+  <p>Returns true if cany pair of encounters resulted in a collision n</p>
     
 
     </li>
@@ -2427,7 +2346,7 @@ <h4>Return Value <small>logical
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_fragmentation_casedisruption"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_encounter_check_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -2437,11 +2356,11 @@ <h4>Return Value <small>logical
     
     
     <h3>
-public module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter)
     
     
    
-   <a href='../proc/symba_fragmentation_casedisruption.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_encounter_check_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2465,12 +2384,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</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>
+  <td><strong>self</strong></td><td><p>SyMBA test particle object  </p></td>
   
 </tr>
 
@@ -2480,117 +2399,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</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>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>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -2601,11 +2415,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
   
 </tr>
 
@@ -2615,12 +2429,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collisionn</p></td>
+  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
   
 </tr>
 
@@ -2635,9 +2449,9 @@ <h4>Arguments</h4>
   
   
   
-     <h4>Return Value <small>integer(kind=I4B)
+     <h4>Return Value <small>logical
   </small></h4>
-  <p>Status flag assigned to this outcome</p>
+  <p>Returns true if there is at least one close encounter      </p>
     
 
     </li>
@@ -2648,7 +2462,7 @@ <h4>Return Value <small>integer(kind=I4B)
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_fragmentation_casehitandrun"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_encounter_check"></span><h3>interface 
     
   </h3></div>
   
@@ -2658,11 +2472,11 @@ <h4>Return Value <small>integer(kind=I4B)
     
     
     <h3>
-public module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
     
     
    
-   <a href='../proc/symba_fragmentation_casehitandrun.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_encounter_check.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2686,12 +2500,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</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>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
   
 </tr>
 
@@ -2701,27 +2515,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</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>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>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -2732,11 +2531,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
   
 </tr>
 
@@ -2746,44 +2545,70 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
+</tbody>
+</table>
+
+      
+    
+    
 
   
   
   
   
-<tr>
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if there is at least one close encounter      </p>
+    
+
+    </li>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_encounter_check_tp"></span><h3>interface 
+    
+  </h3></div>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <ul class="list-group">
   
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter)
+    
+    
+   
+   <a href='../proc/symba_encounter_check_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>
 
   
   
@@ -2791,12 +2616,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA test particle object  </p></td>
   
 </tr>
 
@@ -2806,12 +2631,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -2822,11 +2647,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
   
 </tr>
 
@@ -2836,12 +2661,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
   
 </tr>
 
@@ -2856,9 +2681,9 @@ <h4>Arguments</h4>
   
   
   
-     <h4>Return Value <small>integer(kind=I4B)
+     <h4>Return Value <small>logical
   </small></h4>
-  <p>Status flag assigned to this outcome</p>
+  <p>Returns true if there is at least one close encounter      </p>
     
 
     </li>
@@ -2869,7 +2694,7 @@ <h4>Return Value <small>integer(kind=I4B)
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_fragmentation_casemerge"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_casedisruption"></span><h3>interface 
     
   </h3></div>
   
@@ -2879,11 +2704,11 @@ <h4>Return Value <small>integer(kind=I4B)
     
     
     <h3>
-public module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status)
+public module function symba_collision_casedisruption(system, param, colliders, frag) result(status)
     
     
    
-   <a href='../proc/symba_fragmentation_casemerge.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_casedisruption.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2923,7 +2748,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -2937,87 +2762,12 @@ <h4>Arguments</h4>
   
 <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>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</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>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collisio</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>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collisio</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -3027,12 +2777,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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object</p></td>
   
 </tr>
 
@@ -3060,7 +2810,7 @@ <h4>Return Value <small>integer(kind=I4B)
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_fragmentation_casesupercatastrophic"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_casehitandrun"></span><h3>interface 
     
   </h3></div>
   
@@ -3070,11 +2820,11 @@ <h4>Return Value <small>integer(kind=I4B)
     
     
     <h3>
-public module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+public module function symba_collision_casehitandrun(system, param, colliders, frag) result(status)
     
     
    
-   <a href='../proc/symba_fragmentation_casesupercatastrophic.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_casehitandrun.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3114,7 +2864,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -3128,12 +2878,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</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>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -3143,59 +2893,70 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object</p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
+</tbody>
+</table>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
+      
+    
+    
 
   
   
   
   
-<tr>
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Status flag assigned to this outcome</p>
+    
+
+    </li>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_casemerge"></span><h3>interface 
+    
+  </h3></div>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <ul class="list-group">
   
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module function symba_collision_casemerge(system, param, colliders, frag) result(status)
+    
+    
+   
+   <a href='../proc/symba_collision_casemerge.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>
 
   
   
@@ -3203,12 +2964,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</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>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -3218,12 +2979,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA additions</p></td>
   
 </tr>
 
@@ -3233,12 +2994,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -3248,12 +3009,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
   
 </tr>
 
@@ -3281,7 +3042,7 @@ <h4>Return Value <small>integer(kind=I4B)
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_check_pltpenc"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_encounter_extract_collisions"></span><h3>interface 
     
   </h3></div>
   
@@ -3291,11 +3052,11 @@ <h4>Return Value <small>integer(kind=I4B)
     
     
     <h3>
-public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec)
+public module subroutine symba_collision_encounter_extract_collisions(self, system, param)
     
     
    
-   <a href='../proc/symba_collision_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_encounter_extract_collisions.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3319,12 +3080,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -3354,24 +3115,56 @@ <h4>Arguments</h4>
   <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>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_make_colliders_pl"></span><h3>interface 
+    
+  </h3></div>
   
+  <ul class="list-group">
   
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>current time</p></td>
-  
-</tr>
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine symba_collision_make_colliders_pl(self, idx)
+    
+    
+   
+   <a href='../proc/symba_collision_make_colliders_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>
 
   
   
@@ -3379,12 +3172,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/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -3395,11 +3188,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
+  <td>dimension(2)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array holding the indices of the two bodies involved in the collision</p></td>
   
 </tr>
 
@@ -3418,7 +3211,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_encounter_scrub"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_resolve_fragmentations"></span><h3>interface 
     
   </h3></div>
   
@@ -3428,11 +3221,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_collision_encounter_scrub(self, system, param)
+public module subroutine symba_collision_resolve_fragmentations(self, system, param)
     
     
    
-   <a href='../proc/symba_collision_encounter_scrub.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_resolve_fragmentations.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3486,12 +3279,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 parameterss</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA additions</p></td>
   
 </tr>
 
@@ -3510,7 +3303,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_make_family_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_resolve_mergers"></span><h3>interface 
     
   </h3></div>
   
@@ -3520,11 +3313,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_collision_make_family_pl(self, idx)
+public module subroutine symba_collision_resolve_mergers(self, system, param)
     
     
    
-   <a href='../proc/symba_collision_make_family_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_resolve_mergers.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3548,12 +3341,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -3563,12 +3356,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in),</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>dimension(2)</td><td>::</td>
-  <td><strong>idx</strong></td><td><p>Array holding the indices of the two bodies involved in the collision</p></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 additions</p></td>
   
 </tr>
 
@@ -3587,7 +3395,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_resolve_fragmentations"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_resolve_plplenc"></span><h3>interface 
     
   </h3></div>
   
@@ -3597,11 +3405,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_collision_resolve_fragmentations(self, system, param)
+public module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec)
     
     
    
-   <a href='../proc/symba_collision_resolve_fragmentations.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_resolve_plplenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3655,8 +3463,8 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <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>
@@ -3664,6 +3472,51 @@ <h4>Arguments</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation 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>dt</strong></td><td><p>Current simulation step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -3679,7 +3532,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_resolve_mergers"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_collision_resolve_pltpenc"></span><h3>interface 
     
   </h3></div>
   
@@ -3689,11 +3542,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_collision_resolve_mergers(self, system, param)
+public module subroutine symba_collision_resolve_pltpenc(self, system, param, t, dt, irec)
     
     
    
-   <a href='../proc/symba_collision_resolve_mergers.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_resolve_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3717,12 +3570,57 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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/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 with SyMBA additions</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>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
   
 </tr>
 
@@ -3732,12 +3630,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  <td><strong>dt</strong></td><td><p>Current simulation step size</p></td>
   
 </tr>
 
@@ -3747,12 +3645,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</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>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
   
 </tr>
 
@@ -4304,7 +4202,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_write_discard"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_index_eucl_plpl"></span><h3>interface 
     
   </h3></div>
   
@@ -4314,11 +4212,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_io_write_discard(self, param)
+public module subroutine symba_util_index_eucl_plpl(self, param)
     
     
    
-   <a href='../proc/symba_io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_util_index_eucl_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4342,12 +4240,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -4362,129 +4260,7 @@ <h4>Arguments</h4>
   <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_dump_particle_info"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx)
-    
-    
-   
-   <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_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 extensions</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -4779,7 +4555,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_read_particle"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_write_discard"></span><h3>interface 
     
   </h3></div>
   
@@ -4789,11 +4565,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_io_read_particle(system, param)
+public module subroutine symba_io_write_discard(self, param)
     
     
    
-   <a href='../proc/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4822,7 +4598,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>SyMBA nbody system file</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -4832,12 +4608,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <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 with SyMBA extensions</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -4856,7 +4632,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_getacch_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_getacch_int_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -4866,11 +4642,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
+public module subroutine symba_kick_getacch_int_pl(self)
     
     
    
-   <a href='../proc/symba_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4899,67 +4675,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA massive body particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(swiftest_nbody_system),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>system</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Logical flag that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -4978,7 +4694,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_getacch_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_getacch_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -4988,11 +4704,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
+public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/symba_kick_getacch_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5016,12 +4732,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA test particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body particle data structure</p></td>
   
 </tr>
 
@@ -5066,7 +4782,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
   
 </tr>
 
@@ -5100,7 +4816,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_pltpenc"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_getacch_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -5110,11 +4826,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
+public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/symba_kick_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_kick_getacch_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5138,12 +4854,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA test particle data structure</p></td>
   
 </tr>
 
@@ -5153,12 +4869,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" ></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -5168,12 +4884,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>dt</strong></td><td><p>step size</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -5183,12 +4899,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>irec</strong></td><td><p>Current recursion level</p></td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -5198,12 +4914,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>sgn</strong></td><td><p>sign to be applied to acceleration</p></td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -5222,7 +4938,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_setup_initialize_particle_info"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_kick_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -5232,11 +4948,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_setup_initialize_particle_info(system, param)
+public module subroutine symba_kick_encounter(self, system, dt, irec, sgn)
     
     
    
-   <a href='../proc/symba_setup_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_kick_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5258,6 +4974,21 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
@@ -5275,12 +5006,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</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>irec</strong></td><td><p>Current recursion level</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>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
+  <td><strong>sgn</strong></td><td><p>sign to be applied to acceleration</p></td>
   
 </tr>
 
@@ -5560,7 +5321,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_setup_pltpenc"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_setup_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -5570,11 +5331,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_setup_pltpenc(self, n)
+public module subroutine symba_setup_encounter(self, n)
     
     
    
-   <a href='../proc/symba_setup_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_setup_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5598,7 +5359,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -6089,10 +5850,10 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>t</strong></td><td></td>
   
 </tr>
@@ -6104,10 +5865,10 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>ireci</strong></td><td><p>input recursion level</p></td>
   
 </tr>
@@ -6137,7 +5898,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_step_reset_system(self)
+public module subroutine symba_step_reset_system(self, param)
     
     
    
@@ -6174,6 +5935,21 @@ <h4>Arguments</h4>
   
 </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>
+
 </tbody>
 </table>
 
@@ -6200,7 +5976,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
+public subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -6226,7 +6002,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -6241,7 +6017,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -6304,14 +6080,30 @@ <h4>Arguments</h4>
 
     </li>
   
+  
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_append_encounter"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
+public module subroutine symba_util_append_encounter(self, source, lsource_mask)
     
     
    
+   <a href='../proc/symba_util_append_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -6334,42 +6126,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</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_kinship.html'>symba_kinship</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><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</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>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
   
 </tr>
 
@@ -6379,12 +6141,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</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>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -6412,8 +6174,6 @@ <h4>Arguments</h4>
 
     </li>
   
-  
-  
   </ul>
 </div>
 
@@ -6696,21 +6456,22 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill"></span><h3>public interface <a href='../interface/util_fill.html'>util_fill</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_copy_encounter"></span><h3>interface 
     
   </h3></div>
   
   <ul class="list-group">
   
-  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list)
+public module subroutine symba_util_copy_encounter(self, source)
     
     
    
+   <a href='../proc/symba_util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -6733,27 +6494,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(inout),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </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><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
   
 </tr>
 
@@ -6763,12 +6509,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
   
 </tr>
 
@@ -6781,6 +6527,19 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_fill"></span><h3>public interface <a href='../interface/util_fill.html'>util_fill</a>
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+  
     <li class="list-group-item">
     
     
@@ -7212,7 +6971,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -7235,21 +6994,22 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize"></span><h3>public interface <a href='../interface/util_resize.html'>util_resize</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_reset_kinship"></span><h3>interface 
     
   </h3></div>
   
   <ul class="list-group">
   
-  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine symba_util_resize_arr_info(arr, nnew)
+public module subroutine symba_util_reset_kinship(self, idx)
     
     
    
+   <a href='../proc/symba_util_reset_kinship.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -7272,12 +7032,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(inout),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Array to resize</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -7288,11 +7048,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Index array of bodies to reset</p></td>
   
 </tr>
 
@@ -7305,6 +7065,19 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_resize"></span><h3>public interface <a href='../interface/util_resize.html'>util_resize</a>
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+  
     <li class="list-group-item">
     
     
@@ -7791,22 +7564,21 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_sort_rearrange_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_sort_rearrange"></span><h3>public interface <a href='../interface/util_sort_rearrange.html'>util_sort_rearrange</a>
     
   </h3></div>
   
   <ul class="list-group">
   
+  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine symba_util_sort_rearrange_pl(self, ind)
+public subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n)
     
     
    
-   <a href='../proc/symba_util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -7829,12 +7601,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td>intent(inout),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -7849,7 +7621,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</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>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
@@ -7862,13 +7649,15 @@ <h4>Arguments</h4>
 
     </li>
   
+  
+  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_sort_rearrange_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_sort_rearrange_pl"></span><h3>interface 
     
   </h3></div>
   
@@ -7878,11 +7667,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_util_sort_rearrange_tp(self, ind)
+public module subroutine symba_util_sort_rearrange_pl(self, ind)
     
     
    
-   <a href='../proc/symba_util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_util_sort_rearrange_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -7906,7 +7695,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -7945,21 +7734,22 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill"></span><h3>public interface <a href='../interface/util_spill.html'>util_spill</a>
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_sort_rearrange_tp"></span><h3>interface 
     
   </h3></div>
   
   <ul class="list-group">
   
-  
     <li class="list-group-item">
     
     
     <h3>
-public subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
+public module subroutine symba_util_sort_rearrange_tp(self, ind)
     
     
    
+   <a href='../proc/symba_util_sort_rearrange_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
 </h3>
     
     
@@ -7974,35 +7764,20 @@ <h4>Arguments</h4>
 
 
 
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <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>keeps</strong></td><td><p>Array of values to keep </p></td>
-  
-</tr>
-
+<tbody>
+
   
   
   
   
 <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>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
   
 </tr>
 
@@ -8012,27 +7787,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
   
 </tr>
 
@@ -8045,6 +7805,19 @@ <h4>Arguments</h4>
 
     </li>
   
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_spill"></span><h3>public interface <a href='../interface/util_spill.html'>util_spill</a>
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+  
     <li class="list-group-item">
     
     
@@ -8253,7 +8026,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_spill_pltpenc"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_util_spill_encounter"></span><h3>interface 
     
   </h3></div>
   
@@ -8263,11 +8036,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+public module subroutine symba_util_spill_encounter(self, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/symba_util_spill_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -8291,7 +8064,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -8514,11 +8287,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nplmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of massive bodies</p></td>
+  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
   
 </tr>
 
@@ -8528,11 +8301,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ntpmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ntpmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of test particles</p></td>
+  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
   
 </tr>
 
@@ -8542,11 +8315,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
+  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
   
 </tr>
 
@@ -8556,11 +8329,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
+  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
   
 </tr>
 
@@ -8570,11 +8343,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
+  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
   
 </tr>
 
@@ -8584,11 +8357,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ioutput"></span>integer(kind=I8B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
+  <td><strong>ioutput</strong></td><td> =</td><td>0_I8B</td><td><p>Output counter</p></td>
   
 </tr>
 
@@ -8644,7 +8417,21 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Format of input data files</p></td>
+  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Data representation type of input data files</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-in_form"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>in_form</strong></td><td> =</td><td>XV</td><td><p>Format of input data files (EL or XV)</p></td>
   
 </tr>
 
@@ -8672,7 +8459,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>outfile</strong></td><td> =</td><td>BIN_OUTFILE</td><td><p>Name of output binary file</p></td>
+  <td><strong>outfile</strong></td><td> =</td><td>NETCDF_OUTFILE</td><td><p>Name of output binary file</p></td>
   
 </tr>
 
@@ -8686,7 +8473,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td> =</td><td>REAL8_TYPE</td><td><p>Binary format of output file</p></td>
+  <td><strong>out_type</strong></td><td> =</td><td>NETCDF_DOUBLE_TYPE</td><td><p>Binary format of output file</p></td>
   
 </tr>
 
@@ -8700,7 +8487,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_form</strong></td><td> =</td><td>XV</td><td><p>Data to write to output file</p></td>
+  <td><strong>out_form</strong></td><td> =</td><td>XVEL</td><td><p>Data to write to output file</p></td>
   
 </tr>
 
@@ -8722,6 +8509,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-istep_dump"></span>integer(kind=I4B),</td>
@@ -9074,25 +8875,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtot_orig"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lmag_orig"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtot_orig"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Lmag_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial total angular momentum magnitude</p></td>
+  <td><strong>GMtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
   
 </tr>
 
@@ -9144,21 +8931,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
@@ -9172,11 +8945,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmescape"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
+  <td><strong>GMescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
   
 </tr>
 
@@ -9186,7 +8959,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ecollisions~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -9200,7 +8973,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -9298,11 +9071,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-nciu"></span>type(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  <td><strong>nciu</strong></td><td></td><td></td><td><p>Object containing NetCDF parameters</p></td>
   
 </tr>
 
@@ -9316,7 +9089,21 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>GMTINY</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 G*mass that is fully gravitating</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-min_gmfrag"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>min_GMfrag</strong></td><td> =</td><td>-1.0_DP</td><td><p>Smallest G*mass that can be produced in a fragmentation event</p></td>
   
 </tr>
 
@@ -9362,7 +9149,7 @@ <h4>Type-Bound Procedures</h4>
        <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_parameters.html#boundprocedure-read_in~3'>read_in</a></strong>  => io_read_in_param </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>
@@ -9379,96 +9166,6 @@ <h4>Type-Bound Procedures</h4>
 
      
      
-<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>
     
@@ -9571,25 +9268,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lintegrate"></span>logical,</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</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-name"></span>character(len=STRMAX),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -9949,11 +9632,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m0"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gm0"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>M0</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial mass of the central body</p></td>
+  <td><strong>GM0</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial G*mass of the central body</p></td>
   
 </tr>
 
@@ -9963,11 +9646,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dm"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dgm"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dM</strong></td><td> =</td><td>0.0_DP</td><td><p>Change in mass of the central body</p></td>
+  <td><strong>dGM</strong></td><td> =</td><td>0.0_DP</td><td><p>Change in G*mass of the central body</p></td>
   
 </tr>
 
@@ -9999,20 +9682,6 @@ <h4>Components</h4>
   
 </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>
 
@@ -10024,18 +9693,33 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/symba_cb.html#boundprocedure-write_particle_info~11'>write_particle_info</a></strong>  => write_particle_info_netcdf </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_in'>read_in</a></strong>  => io_read_in_cb </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</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>
       
+       <tr><td>generic, public :: <strong><a href='../type/symba_cb.html#boundprocedure-write_frame~12'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Write a frame (either binary or NetCDF, using generic procedures)</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -10057,27 +9741,13 @@ <h4>Type-Bound Procedures</h4>
      <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>
+<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>
 
   
   
@@ -10113,11 +9783,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -10201,7 +9871,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -10215,7 +9885,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -10797,20 +10467,6 @@ <h4>Components</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <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>
-  <td><strong>info</strong></td><td></td><td></td><td></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -10822,7 +10478,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/symba_pl.html#boundprocedure-write_particle_info~12'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
@@ -10831,13 +10499,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -10852,11 +10520,8 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-eucl_index'>eucl_index</a></strong>  => eucl_dist_index_plpl </td>
-       <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
-       <td><p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/symba_pl.html#boundprocedure-write_frame~13'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_obl~2'>accel_obl</a></strong>  => obl_acc_pl </td>
        <td><p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p></td></tr>
@@ -10870,6 +10535,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
        <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_beg_end'>set_beg_end</a></strong>  => util_set_beg_end_pl </td>
        <td><p>Sets the beginning and ending positions and velocities of planets.</p></td></tr>
       
@@ -10879,12 +10553,6 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_rhill'>set_rhill</a></strong>  => util_set_rhill </td>
        <td><p>Calculates the Hill's radii for each body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => helio_coord_vh2vb_pl </td>
-       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => helio_coord_vb2vh_pl </td>
-       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
-      
        <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-lindrift'>lindrift</a></strong>  => helio_drift_linear_pl </td>
        <td><p>Method for linear drift of massive bodies due to barycentric momentum of Sun</p></td></tr>
       
@@ -10900,9 +10568,12 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-step~5'>step</a></strong>  => helio_step_pl </td>
        <td><p>Steps the body forward one stepsize</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-make_family'>make_family</a></strong>  => symba_collision_make_family_pl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-make_colliders'>make_colliders</a></strong>  => symba_collision_make_colliders_pl </td>
        <td><p>When a single body is involved in more than one collision in a single step, it becomes part of a family</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-index~3'>index</a></strong>  => symba_util_index_eucl_plpl </td>
+       <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-discard~5'>discard</a></strong>  => symba_discard_pl </td>
        <td><p>Process massive body discards</p></td></tr>
       
@@ -10912,10 +10583,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-encounter_check~2'>encounter_check</a></strong>  => symba_encounter_check_pl </td>
        <td><p>Checks if massive bodies are going through close encounters with each other</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-accel~6'>accel</a></strong>  => symba_kick_getacch_pl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-accel_int~3'>accel_int</a></strong>  => symba_kick_getacch_int_pl </td>
+       <td><p>Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-accel~7'>accel</a></strong>  => symba_kick_getacch_pl </td>
        <td><p>Compute heliocentric accelerations of massive bodies</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-setup~6'>setup</a></strong>  => symba_setup_pl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-setup~7'>setup</a></strong>  => symba_setup_pl </td>
        <td><p>Constructor method - Allocates space for the input number of bodies</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-append~6'>append</a></strong>  => symba_util_append_pl </td>
@@ -10930,6 +10604,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-rearray'>rearray</a></strong>  => symba_util_rearray_pl </td>
        <td><p>Clean up the massive body structures to remove discarded bodies and add new bodies</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-reset_kinship'>reset_kinship</a></strong>  => symba_util_reset_kinship </td>
+       <td><p>Resets the kinship status of bodies</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-resize~6'>resize</a></strong>  => symba_util_resize_pl </td>
        <td><p>Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small.</p></td></tr>
       
@@ -10972,20 +10649,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -11016,11 +10679,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -11104,7 +10767,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -11118,7 +10781,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -11704,20 +11367,6 @@ <h4>Components</h4>
   
   
   
-<tr>
-  
-  <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>
-  <td><strong>info</strong></td><td></td><td></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" id="variable-ncomp"></span>integer(kind=I4B),</td>
@@ -11739,7 +11388,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/symba_merger.html#boundprocedure-write_particle_info~13'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
@@ -11748,13 +11409,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -11769,11 +11430,8 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-eucl_index'>eucl_index</a></strong>  => eucl_dist_index_plpl </td>
-       <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
-       <td><p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p></td></tr>
+       <tr><td>generic, public :: <strong><a href='../type/symba_merger.html#boundprocedure-write_frame~14'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_obl~2'>accel_obl</a></strong>  => obl_acc_pl </td>
        <td><p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p></td></tr>
@@ -11787,6 +11445,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
        <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_beg_end'>set_beg_end</a></strong>  => util_set_beg_end_pl </td>
        <td><p>Sets the beginning and ending positions and velocities of planets.</p></td></tr>
       
@@ -11796,12 +11463,6 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_rhill'>set_rhill</a></strong>  => util_set_rhill </td>
        <td><p>Calculates the Hill's radii for each body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => helio_coord_vh2vb_pl </td>
-       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => helio_coord_vb2vh_pl </td>
-       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
-      
        <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-lindrift'>lindrift</a></strong>  => helio_drift_linear_pl </td>
        <td><p>Method for linear drift of massive bodies due to barycentric momentum of Sun</p></td></tr>
       
@@ -11817,9 +11478,12 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/helio_pl.html#boundprocedure-step~5'>step</a></strong>  => helio_step_pl </td>
        <td><p>Steps the body forward one stepsize</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-make_family'>make_family</a></strong>  => symba_collision_make_family_pl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-make_colliders'>make_colliders</a></strong>  => symba_collision_make_colliders_pl </td>
        <td><p>When a single body is involved in more than one collision in a single step, it becomes part of a family</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-index~3'>index</a></strong>  => symba_util_index_eucl_plpl </td>
+       <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-discard~5'>discard</a></strong>  => symba_discard_pl </td>
        <td><p>Process massive body discards</p></td></tr>
       
@@ -11829,7 +11493,10 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-encounter_check~2'>encounter_check</a></strong>  => symba_encounter_check_pl </td>
        <td><p>Checks if massive bodies are going through close encounters with each other</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-accel~6'>accel</a></strong>  => symba_kick_getacch_pl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-accel_int~3'>accel_int</a></strong>  => symba_kick_getacch_int_pl </td>
+       <td><p>Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-accel~7'>accel</a></strong>  => symba_kick_getacch_pl </td>
        <td><p>Compute heliocentric accelerations of massive bodies</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-fill~6'>fill</a></strong>  => symba_util_fill_pl </td>
@@ -11841,6 +11508,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-rearray'>rearray</a></strong>  => symba_util_rearray_pl </td>
        <td><p>Clean up the massive body structures to remove discarded bodies and add new bodies</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-reset_kinship'>reset_kinship</a></strong>  => symba_util_reset_kinship </td>
+       <td><p>Resets the kinship status of bodies</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/symba_pl.html#boundprocedure-sort~6'>sort</a></strong>  => symba_util_sort_pl </td>
        <td><p>Sorts body arrays by a sortable componen</p></td></tr>
       
@@ -11856,7 +11526,7 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_merger.html#boundprocedure-resize~7'>resize</a></strong>  => symba_util_resize_merger </td>
        <td><p>Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small.</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_merger.html#boundprocedure-setup~7'>setup</a></strong>  => symba_setup_merger </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_merger.html#boundprocedure-setup~8'>setup</a></strong>  => symba_setup_merger </td>
        <td><p>Constructor method - Allocates space for the input number of bodies</p></td></tr>
       
        </tbody>
@@ -11865,28 +11535,266 @@ <h4>Type-Bound Procedures</h4>
   </div>
 </div>
 
-     
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-symba_tp"></span><h3>type, public, extends(<a href='../type/helio_tp.html'>helio_tp</a>) :: <a href='../type/symba_tp.html'>symba_tp</a>
-    
-  </h3></div>
-  <div class="panel-body">
-    
-    
-    <p>SyMBA test particle class</p>
-    
-     
-     <h4>Components</h4>
-    
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th><th>Visibility</th>
+     
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-symba_tp"></span><h3>type, public, extends(<a href='../type/helio_tp.html'>helio_tp</a>) :: <a href='../type/symba_tp.html'>symba_tp</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>SyMBA test particle class</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-lfirst"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lfirst</strong></td><td> =</td><td>.true.</td><td><p>Run the current step as a first</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nbody"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nbody</strong></td><td> =</td><td>0</td><td><p>Number of bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id~2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id</strong></td><td></td><td></td><td><p>External identifier (unique)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>An integrator-specific status indicator </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ldiscard"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>ldiscard</strong></td><td></td><td></td><td><p>Body should be discarded</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lmask"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>lmask</strong></td><td></td><td></td><td><p>Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mu"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>mu</strong></td><td></td><td></td><td><p>G * (Mcb + [m])</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xb~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xb</strong></td><td></td><td></td><td><p>Barycentric position</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vb~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vb</strong></td><td></td><td></td><td><p>Barycentric velocity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ah"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>ah</strong></td><td></td><td></td><td><p>Total heliocentric acceleration</p></td>
+  
+</tr>
 
-<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-aobl~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>aobl</strong></td><td></td><td></td><td><p>Barycentric accelerations of bodies due to central body oblatenes</p></td>
+  
+</tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-atide~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>atide</strong></td><td></td><td></td><td><p>Tanngential component of acceleration of bodies due to tides</p></td>
+  
+</tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-agr~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>agr</strong></td><td></td><td></td><td><p>Acceleration due to post-Newtonian correction</p></td>
+  
+</tr>
 
-<tbody>
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ir3h"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>ir3h</strong></td><td></td><td></td><td><p>Inverse heliocentric radius term (1/rh**3)</p></td>
+  
+</tr>
 
   
   
@@ -11894,11 +11802,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lintegrate"></span>logical,</td>
+  <td><span class="anchor" id="variable-a"></span>real(kind=DP),</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>
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>a</strong></td><td></td><td></td><td><p>Semimajor axis (pericentric distance for a parabolic orbit)</p></td>
   
 </tr>
 
@@ -11908,11 +11816,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfirst"></span>logical,</td>
+  <td><span class="anchor" id="variable-e"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>lfirst</strong></td><td> =</td><td>.true.</td><td><p>Run the current step as a first</p></td>
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>e</strong></td><td></td><td></td><td><p>Eccentricity</p></td>
   
 </tr>
 
@@ -11922,11 +11830,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nbody"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-inc"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>nbody</strong></td><td> =</td><td>0</td><td><p>Number of bodies</p></td>
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inc</strong></td><td></td><td></td><td><p>Inclination</p></td>
   
 </tr>
 
@@ -11936,11 +11844,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-capom"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>capom</strong></td><td></td><td></td><td><p>Longitude of ascending node</p></td>
   
 </tr>
 
@@ -11950,11 +11858,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-id~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-omega"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>id</strong></td><td></td><td></td><td><p>External identifier (unique)</p></td>
+  <td><strong>omega</strong></td><td></td><td></td><td><p>Argument of pericenter</p></td>
   
 </tr>
 
@@ -11964,11 +11872,13 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-status"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-capm"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>status</strong></td><td></td><td></td><td><p>An integrator-specific status indicator </p></td>
+  <td><strong>capm</strong></td><td></td><td></td><td><p>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</p></td>
   
 </tr>
 
@@ -11978,11 +11888,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldiscard"></span>logical,</td>
+  <td><span class="anchor" id="variable-isperi"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>ldiscard</strong></td><td></td><td></td><td><p>Body should be discarded</p></td>
+  <td><strong>isperi</strong></td><td></td><td></td><td><p>Perihelion passage flag</p></td>
   
 </tr>
 
@@ -11992,11 +11902,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lmask"></span>logical,</td>
+  <td><span class="anchor" id="variable-peri"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>lmask</strong></td><td></td><td></td><td><p>Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.)</p></td>
+  <td><strong>peri</strong></td><td></td><td></td><td><p>Perihelion distance</p></td>
   
 </tr>
 
@@ -12006,11 +11916,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-atp"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>mu</strong></td><td></td><td></td><td><p>G * (Mcb + [m])</p></td>
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
   
 </tr>
 
@@ -12020,11 +11930,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
   
 </tr>
 
@@ -12034,11 +11944,27 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vh"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nplenc~2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>nplenc</strong></td><td></td><td></td><td><p>number of encounters with planets this time step</p></td>
   
 </tr>
 
@@ -12048,83 +11974,187 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xb~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-levelg~2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb</strong></td><td></td><td></td><td><p>Barycentric position</p></td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>levelg</strong></td><td></td><td></td><td><p>level at which this particle should be moved</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-levelm~2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>levelm</strong></td><td></td><td></td><td><p>deepest encounter level achieved this time step</p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vb~2"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb</strong></td><td></td><td></td><td><p>Barycentric velocity</p></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_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/symba_tp.html#boundprocedure-write_particle_info~14'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
+       <td></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
+       <td><p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
+       <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
+       <td><p>Read in body initial conditions from a file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
+       <td><p>Convert orbital elements to position and velocity vectors</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-xv2el'>xv2el</a></strong>  => orbel_xv2el_vec </td>
+       <td><p>Convert position and velocity vectors to orbital  elements </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_user'>accel_user</a></strong>  => user_kick_getacch_body </td>
+       <td><p>Add user-supplied heliocentric accelerations to planets</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
+       <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/symba_tp.html#boundprocedure-write_frame~15'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-discard~4'>discard</a></strong>  => discard_tp </td>
+       <td><p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-accel_int'>accel_int</a></strong>  => kick_getacch_int_tp </td>
+       <td><p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-accel_obl'>accel_obl</a></strong>  => obl_acc_tp </td>
+       <td><p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-h2b'>h2b</a></strong>  => util_coord_h2b_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-b2h'>b2h</a></strong>  => util_coord_b2h_tp </td>
+       <td><p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => util_coord_vb2vh_tp </td>
+       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => util_coord_vh2vb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-xh2xb'>xh2xb</a></strong>  => util_coord_xh2xb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-get_peri'>get_peri</a></strong>  => util_peri_tp </td>
+       <td><p>Determine system pericenter passages for test particles </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-set_mu'>set_mu</a></strong>  => util_set_mu_tp </td>
+       <td><p>Method used to construct the vectorized form of the central body mass</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-lindrift~2'>lindrift</a></strong>  => helio_drift_linear_tp </td>
+       <td><p>Method for linear drift of massive bodies due to barycentric momentum of Sun</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-accel_gr~4'>accel_gr</a></strong>  => helio_gr_kick_getacch_tp </td>
+       <td><p>Acceleration term arising from the post-Newtonian correction</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-gr_pos_kick~4'>gr_pos_kick</a></strong>  => helio_gr_p4_tp </td>
+       <td><p>Position kick due to p**4 term in the post-Newtonian correction</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-kick~4'>kick</a></strong>  => helio_kick_vb_tp </td>
+       <td><p>Kicks the barycentric velocities</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-step~6'>step</a></strong>  => helio_step_tp </td>
+       <td><p>Steps the body forward one stepsize</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-drift~6'>drift</a></strong>  => symba_drift_tp </td>
+       <td><p>Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-encounter_check~3'>encounter_check</a></strong>  => symba_encounter_check_tp </td>
+       <td><p>Checks if any test particles are undergoing a close encounter with a massive body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-accel~8'>accel</a></strong>  => symba_kick_getacch_tp </td>
+       <td><p>Compute heliocentric accelerations of test particles</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-setup~9'>setup</a></strong>  => symba_setup_tp </td>
+       <td><p>Constructor method - Allocates space for the input number of bodies</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-append~8'>append</a></strong>  => symba_util_append_tp </td>
+       <td><p>Appends elements from one structure to another</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-fill~7'>fill</a></strong>  => symba_util_fill_tp </td>
+       <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-resize~8'>resize</a></strong>  => symba_util_resize_tp </td>
+       <td><p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-sort~7'>sort</a></strong>  => symba_util_sort_tp </td>
+       <td><p>Sorts body arrays by a sortable componen</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-rearrange~7'>rearrange</a></strong>  => symba_util_sort_rearrange_tp </td>
+       <td><p>Rearranges the order of array elements of body based on an input index array. Used in sorting methods</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-spill~7'>spill</a></strong>  => symba_util_spill_tp </td>
+       <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
+      
+       </tbody>
+       </table>
+     
+  </div>
+</div>
+
+     
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-symba_encounter"></span><h3>type, public, extends(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>) :: <a href='../type/symba_encounter.html'>symba_encounter</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>SyMBA class for tracking close encounters in a step</p>
+    
+     
+     <h4>Components</h4>
+    
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ah"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>ah</strong></td><td></td><td></td><td><p>Total heliocentric acceleration</p></td>
-  
-</tr>
+<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-aobl~3"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>aobl</strong></td><td></td><td></td><td><p>Barycentric accelerations of bodies due to central body oblatenes</p></td>
-  
-</tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-atide~3"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>atide</strong></td><td></td><td></td><td><p>Tanngential component of acceleration of bodies due to tides</p></td>
-  
-</tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-agr~2"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>agr</strong></td><td></td><td></td><td><p>Acceleration due to post-Newtonian correction</p></td>
-  
-</tr>
+<tbody>
 
   
   
@@ -12132,11 +12162,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ir3h"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-nenc~2"></span>integer(kind=I4B),</td>
   
-  <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>ir3h</strong></td><td></td><td></td><td><p>Inverse heliocentric radius term (1/rh**3)</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nenc</strong></td><td></td><td></td><td><p>Total number of encounters</p></td>
   
 </tr>
 
@@ -12146,11 +12176,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-a"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lvdotr"></span>logical,</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>a</strong></td><td></td><td></td><td><p>Semimajor axis (pericentric distance for a parabolic orbit)</p></td>
+  <td><strong>lvdotr</strong></td><td></td><td></td><td><p>relative vdotr flag</p></td>
   
 </tr>
 
@@ -12160,11 +12190,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-e"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-status~2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>e</strong></td><td></td><td></td><td><p>Eccentricity</p></td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>status of the interaction</p></td>
   
 </tr>
 
@@ -12174,11 +12204,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inc"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inc</strong></td><td></td><td></td><td><p>Inclination</p></td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
   
 </tr>
 
@@ -12188,11 +12218,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-capom"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>capom</strong></td><td></td><td></td><td><p>Longitude of ascending node</p></td>
+  <td><strong>index1</strong></td><td></td><td></td><td><p>position of the first body in the encounter</p></td>
   
 </tr>
 
@@ -12202,11 +12232,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-omega"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-index2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>omega</strong></td><td></td><td></td><td><p>Argument of pericenter</p></td>
+  <td><strong>index2</strong></td><td></td><td></td><td><p>position of the second body in the encounter</p></td>
   
 </tr>
 
@@ -12216,13 +12246,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-capm"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>capm</strong></td><td></td><td></td><td><p>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</p></td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
   
 </tr>
 
@@ -12232,11 +12260,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-isperi"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>isperi</strong></td><td></td><td></td><td><p>Perihelion passage flag</p></td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
   
 </tr>
 
@@ -12246,11 +12274,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-peri"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
   
   <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>peri</strong></td><td></td><td></td><td><p>Perihelion distance</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>x1</strong></td><td></td><td></td><td><p>the position of body 1 in the encounter</p></td>
   
 </tr>
 
@@ -12260,13 +12288,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-atp"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x2"></span>real(kind=DP),</td>
   
   <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>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</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>x2</strong></td><td></td><td></td><td><p>the position of body 2 in the encounter</p></td>
   
 </tr>
 
@@ -12276,11 +12302,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nplenc~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-v1"></span>real(kind=DP),</td>
   
   <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>nplenc</strong></td><td></td><td></td><td><p>number of encounters with planets this time step</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v1</strong></td><td></td><td></td><td><p>the velocity of body 1 in the encounter</p></td>
   
 </tr>
 
@@ -12290,11 +12316,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-levelg~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-v2"></span>real(kind=DP),</td>
   
   <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>levelg</strong></td><td></td><td></td><td><p>level at which this particle should be moved</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v2</strong></td><td></td><td></td><td><p>the velocity of body 2 in the encounter</p></td>
   
 </tr>
 
@@ -12304,141 +12330,66 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-levelm~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>levelm</strong></td><td></td><td></td><td><p>deepest encounter level achieved this time step</p></td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
   
 </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>
-
-     
-     
-          
-     
-     <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_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
-       <td><p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
-       <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
-       <td><p>Read in body initial conditions from a file</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
-       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
-       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
-       <td><p>Convert orbital elements to position and velocity vectors</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-xv2el'>xv2el</a></strong>  => orbel_xv2el_vec </td>
-       <td><p>Convert position and velocity vectors to orbital  elements </p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_user'>accel_user</a></strong>  => user_kick_getacch_body </td>
-       <td><p>Add user-supplied heliocentric accelerations to planets</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
-       <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-discard~4'>discard</a></strong>  => discard_tp </td>
-       <td><p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-accel_int'>accel_int</a></strong>  => kick_getacch_int_tp </td>
-       <td><p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-accel_obl'>accel_obl</a></strong>  => obl_acc_tp </td>
-       <td><p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-h2b'>h2b</a></strong>  => util_coord_h2b_tp </td>
-       <td><p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-b2h'>b2h</a></strong>  => util_coord_b2h_tp </td>
-       <td><p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-get_peri'>get_peri</a></strong>  => util_peri_tp </td>
-       <td><p>Determine system pericenter passages for test particles </p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-set_mu'>set_mu</a></strong>  => util_set_mu_tp </td>
-       <td><p>Method used to construct the vectorized form of the central body mass</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => helio_coord_vh2vb_tp </td>
-       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => helio_coord_vb2vh_tp </td>
-       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-lindrift~2'>lindrift</a></strong>  => helio_drift_linear_tp </td>
-       <td><p>Method for linear drift of massive bodies due to barycentric momentum of Sun</p></td></tr>
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-level"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>level</strong></td><td></td><td></td><td><p>encounter recursion level</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+     
+     
+          
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-accel_gr~4'>accel_gr</a></strong>  => helio_gr_kick_getacch_tp </td>
-       <td><p>Acceleration term arising from the post-Newtonian correction</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-resize~9'>resize</a></strong>  => util_resize_encounter </td>
+       <td><p>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.</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-gr_pos_kick~4'>gr_pos_kick</a></strong>  => helio_gr_p4_tp </td>
-       <td><p>Position kick due to p**4 term in the post-Newtonian correction</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-write'>write</a></strong>  => io_write_encounter </td>
+       <td><p>Write close encounter data to output binary file</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-kick~4'>kick</a></strong>  => helio_kick_vb_tp </td>
-       <td><p>Kicks the barycentric velocities</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-collision_check'>collision_check</a></strong>  => symba_collision_check_encounter </td>
+       <td><p>Checks if a test particle is going to collide with a massive body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/helio_tp.html#boundprocedure-step~6'>step</a></strong>  => helio_step_tp </td>
-       <td><p>Steps the body forward one stepsize</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-encounter_check~4'>encounter_check</a></strong>  => symba_encounter_check </td>
+       <td><p>Checks if massive bodies are going through close encounters with each other</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-drift~6'>drift</a></strong>  => symba_drift_tp </td>
-       <td><p>Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-kick~6'>kick</a></strong>  => symba_kick_encounter </td>
+       <td><p>Kick barycentric velocities of active test particles within SyMBA recursion</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-encounter_check~3'>encounter_check</a></strong>  => symba_encounter_check_tp </td>
-       <td><p>Checks if any test particles are undergoing a close encounter with a massive body</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-setup~10'>setup</a></strong>  => symba_setup_encounter </td>
+       <td><p>A constructor that sets the number of encounters and allocates and initializes all arrays  </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-accel~7'>accel</a></strong>  => symba_kick_getacch_tp </td>
-       <td><p>Compute heliocentric accelerations of test particles</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-copy'>copy</a></strong>  => symba_util_copy_encounter </td>
+       <td><p>Copies elements from the source encounter list into self.</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-setup~8'>setup</a></strong>  => symba_setup_tp </td>
-       <td><p>Constructor method - Allocates space for the input number of bodies</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-spill~8'>spill</a></strong>  => symba_util_spill_encounter </td>
+       <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-append~8'>append</a></strong>  => symba_util_append_tp </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-append~9'>append</a></strong>  => symba_util_append_encounter </td>
        <td><p>Appends elements from one structure to another</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-fill~7'>fill</a></strong>  => symba_util_fill_tp </td>
-       <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-resize~8'>resize</a></strong>  => symba_util_resize_tp </td>
-       <td><p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-sort~7'>sort</a></strong>  => symba_util_sort_tp </td>
-       <td><p>Sorts body arrays by a sortable componen</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-rearrange~7'>rearrange</a></strong>  => symba_util_sort_rearrange_tp </td>
-       <td><p>Rearranges the order of array elements of body based on an input index array. Used in sorting methods</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/symba_tp.html#boundprocedure-spill~7'>spill</a></strong>  => symba_util_spill_tp </td>
-       <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
-      
        </tbody>
        </table>
      
@@ -12448,7 +12399,7 @@ <h4>Type-Bound Procedures</h4>
      
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-symba_pltpenc"></span><h3>type, public, extends(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>) :: <a href='../type/symba_pltpenc.html'>symba_pltpenc</a>
+  <div class="panel-heading codesum"><span class="anchor" id="type-symba_pltpenc"></span><h3>type, public, extends(<a href='../type/symba_encounter.html'>symba_encounter</a>) :: <a href='../type/symba_pltpenc.html'>symba_pltpenc</a>
     
   </h3></div>
   <div class="panel-body">
@@ -12514,6 +12465,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
@@ -12542,6 +12507,34 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
@@ -12598,6 +12591,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-level"></span>integer(kind=I4B),</td>
@@ -12619,27 +12626,36 @@ <h4>Type-Bound Procedures</h4>
       <table class="table table-striped varlist">
       <tbody>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-copy'>copy</a></strong>  => util_copy_encounter </td>
-       <td><p>Copies elements from the source encounter list into self.</p></td></tr>
-      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-resize~9'>resize</a></strong>  => util_resize_encounter </td>
        <td><p>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.</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-collision_check'>collision_check</a></strong>  => symba_collision_check_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-write'>write</a></strong>  => io_write_encounter </td>
+       <td><p>Write close encounter data to output binary file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-collision_check'>collision_check</a></strong>  => symba_collision_check_encounter </td>
        <td><p>Checks if a test particle is going to collide with a massive body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-encounter_check~4'>encounter_check</a></strong>  => symba_encounter_check_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-encounter_check~4'>encounter_check</a></strong>  => symba_encounter_check </td>
        <td><p>Checks if massive bodies are going through close encounters with each other</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-kick~5'>kick</a></strong>  => symba_kick_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-kick~6'>kick</a></strong>  => symba_kick_encounter </td>
        <td><p>Kick barycentric velocities of active test particles within SyMBA recursion</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-setup~9'>setup</a></strong>  => symba_setup_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-setup~10'>setup</a></strong>  => symba_setup_encounter </td>
        <td><p>A constructor that sets the number of encounters and allocates and initializes all arrays  </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-spill~8'>spill</a></strong>  => symba_util_spill_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-copy'>copy</a></strong>  => symba_util_copy_encounter </td>
+       <td><p>Copies elements from the source encounter list into self.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-spill~8'>spill</a></strong>  => symba_util_spill_encounter </td>
        <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-append~9'>append</a></strong>  => symba_util_append_encounter </td>
+       <td><p>Appends elements from one structure to another</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-resolve_collision'>resolve_collision</a></strong>  => symba_collision_resolve_pltpenc </td>
+       <td><p>Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -12649,7 +12665,7 @@ <h4>Type-Bound Procedures</h4>
      
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-symba_plplenc"></span><h3>type, public, extends(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>) :: <a href='../type/symba_plplenc.html'>symba_plplenc</a>
+  <div class="panel-heading codesum"><span class="anchor" id="type-symba_plplenc"></span><h3>type, public, extends(<a href='../type/symba_encounter.html'>symba_encounter</a>) :: <a href='../type/symba_plplenc.html'>symba_plplenc</a>
     
   </h3></div>
   <div class="panel-body">
@@ -12715,6 +12731,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
@@ -12743,6 +12773,34 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
@@ -12799,6 +12857,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-level"></span>integer(kind=I4B),</td>
@@ -12820,28 +12892,34 @@ <h4>Type-Bound Procedures</h4>
       <table class="table table-striped varlist">
       <tbody>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-copy'>copy</a></strong>  => util_copy_encounter </td>
-       <td><p>Copies elements from the source encounter list into self.</p></td></tr>
-      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-resize~9'>resize</a></strong>  => util_resize_encounter </td>
        <td><p>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.</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-collision_check'>collision_check</a></strong>  => symba_collision_check_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_encounter.html#boundprocedure-write'>write</a></strong>  => io_write_encounter </td>
+       <td><p>Write close encounter data to output binary file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-collision_check'>collision_check</a></strong>  => symba_collision_check_encounter </td>
        <td><p>Checks if a test particle is going to collide with a massive body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-encounter_check~4'>encounter_check</a></strong>  => symba_encounter_check_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-encounter_check~4'>encounter_check</a></strong>  => symba_encounter_check </td>
        <td><p>Checks if massive bodies are going through close encounters with each other</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-kick~5'>kick</a></strong>  => symba_kick_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-kick~6'>kick</a></strong>  => symba_kick_encounter </td>
        <td><p>Kick barycentric velocities of active test particles within SyMBA recursion</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-setup~9'>setup</a></strong>  => symba_setup_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-setup~10'>setup</a></strong>  => symba_setup_encounter </td>
        <td><p>A constructor that sets the number of encounters and allocates and initializes all arrays  </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_pltpenc.html#boundprocedure-spill~8'>spill</a></strong>  => symba_util_spill_pltpenc </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-copy'>copy</a></strong>  => symba_util_copy_encounter </td>
+       <td><p>Copies elements from the source encounter list into self.</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-spill~8'>spill</a></strong>  => symba_util_spill_encounter </td>
        <td><p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_plplenc.html#boundprocedure-scrub_non_collision'>scrub_non_collision</a></strong>  => symba_collision_encounter_scrub </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_encounter.html#boundprocedure-append~9'>append</a></strong>  => symba_util_append_encounter </td>
+       <td><p>Appends elements from one structure to another</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_plplenc.html#boundprocedure-extract_collisions'>extract_collisions</a></strong>  => symba_collision_encounter_extract_collisions </td>
        <td><p>Processes the pl-pl encounter list remove only those encounters that led to a collision</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/symba_plplenc.html#boundprocedure-resolve_fragmentations'>resolve_fragmentations</a></strong>  => symba_collision_resolve_fragmentations </td>
@@ -12850,6 +12928,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_plplenc.html#boundprocedure-resolve_mergers'>resolve_mergers</a></strong>  => symba_collision_resolve_mergers </td>
        <td><p>Process list of collisions and merge colliding bodies together</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/symba_plplenc.html#boundprocedure-resolve_collision~2'>resolve_collision</a></strong>  => symba_collision_resolve_plplenc </td>
+       <td><p>Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -12880,20 +12961,6 @@ <h4>Components</h4>
   
   
   
-<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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -12970,7 +13037,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -13036,11 +13103,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -13050,11 +13117,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -13064,39 +13131,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -13106,11 +13145,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -13136,11 +13175,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</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></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_adds</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
   
 </tr>
 
@@ -13150,11 +13189,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl_adds"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-pltpenc_list"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>pl_adds</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
+  <td><strong>pltpenc_list</strong></td><td></td><td></td><td><p>List of massive body-test particle encounters in a single step </p></td>
   
 </tr>
 
@@ -13164,11 +13203,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pltpenc_list"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-plplenc_list"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>pltpenc_list</strong></td><td></td><td></td><td><p>List of massive body-test particle encounters in a single step </p></td>
+  <td><strong>plplenc_list</strong></td><td></td><td></td><td><p>List of massive body-massive body encounters in a single step</p></td>
   
 </tr>
 
@@ -13178,11 +13217,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-plplenc_list"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-plplcollision_list"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>plplenc_list</strong></td><td></td><td></td><td><p>List of massive body-massive body encounters in a single step</p></td>
+  <td><strong>plplcollision_list</strong></td><td></td><td></td><td><p>List of massive body-massive body collisions in a single step</p></td>
   
 </tr>
 
@@ -13220,12 +13259,30 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-dump'>dump</a></strong>  => io_dump_system </td>
        <td><p>Dump the state of the system to a file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final'>get_old_t_final</a></strong>  => io_get_old_t_final_system </td>
+       <td><p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_frame'>read_frame</a></strong>  => io_read_frame_system </td>
        <td><p>Read in a frame of input data from file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_particle_info'>read_particle_info</a></strong>  => io_read_particle_info_system </td>
+       <td><p>Read in particle metadata from file</p></td></tr>
+      
        <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-write_hdr_bin'>write_hdr_bin</a></strong>  => io_write_hdr_system </td>
+       <td><p>Write a header for an output frame in Fortran binary format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a></strong>  => netcdf_write_hdr_system </td>
+       <td><p>Write a header for an output frame in NetCDF format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-obl_pot'>obl_pot</a></strong>  => obl_pot_system </td>
+       <td><p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-init_particle_info'>init_particle_info</a></strong>  => setup_initialize_particle_info_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>
        <td><p>Steps the spins of the massive &amp; central bodies due to tides.</p></td></tr>
       
@@ -13241,13 +13298,16 @@ <h4>Type-Bound Procedures</h4>
        <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>generic, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-write_hdr~4'>write_hdr</a></strong>  => write_hdr_bin, write_hdr_netcdf </td>
+       <td><p>Generic method call for writing headers</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~5'>initialize</a></strong>  => symba_setup_initialize_system </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-initialize~4'>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>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-step~9'>step</a></strong>  => symba_step_system </td>
        <td><p>Advance the SyMBA nbody system forward in time by one step</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-interp'>interp</a></strong>  => symba_step_interp_system </td>
@@ -13259,7 +13319,7 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-recursive_step'>recursive_step</a></strong>  => symba_step_recur_system </td>
        <td><p>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</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-reset'>reset</a></strong>  => symba_step_reset_system </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-reset~3'>reset</a></strong>  => symba_step_reset_system </td>
        <td><p>Resets pl, tp,and encounter structures at the start of a new step </p></td></tr>
       
        </tbody>
diff --git a/docs/module/walltime_classes.html b/docs/module/walltime_classes.html
new file mode 100644
index 000000000..2fcf7eb11
--- /dev/null
+++ b/docs/module/walltime_classes.html
@@ -0,0 +1,2263 @@
+<!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>walltime_classes &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>walltime_classes 
+    <small>Module</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.5% of total for modules and submodules.">81 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+  
+     <li class="active">walltime_classes</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="#inters-0">Interfaces</a></h3></div>
+  <div id="inters-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#interface-walltime_finish">walltime_finish</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#interface-walltime_reset">walltime_reset</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#interface-walltime_start">walltime_start</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-0">Derived Types</a></h3></div>
+  <div id="types-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#type-walltimer">walltimer</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<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/walltime_classes.html#proc-walltime_finish">walltime_finish</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#proc-walltime_reset">walltime_reset</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#proc-walltime_start">walltime_start</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <p>Classes and methods used to compute elasped wall time</p>
+      <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_globals.html'>swiftest_globals</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~~walltime_classes~~UsesGraph Pages: 1 -->
+<svg id="modulewalltime_classesUsesGraph" width="347pt" height="32pt"
+ viewBox="0.00 0.00 347.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~walltime_classes~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>module~~walltime_classes~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 343,-28 343,4 -4,4"/>
+<!-- module~walltime_classes -->
+<g id="module~~walltime_classes~~UsesGraph_node1" class="node">
+<title>module~walltime_classes</title>
+<polygon fill="none" stroke="black" points="339,-24 247,-24 247,0 339,0 339,-24"/>
+<text text-anchor="middle" x="293" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_classes</text>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~walltime_classes~~UsesGraph_node2" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~walltime_classes~~UsesGraph_node2"><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>
+</a>
+</g>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~walltime_classes~~UsesGraph_edge1" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.88,-12C238.61,-12 229.91,-12 221.42,-12"/>
+<polygon fill="#000000" stroke="#000000" points="221.22,-8.5 211.22,-12 221.22,-15.5 221.22,-8.5"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~walltime_classes~~UsesGraph_node3" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~walltime_classes~~UsesGraph_node3"><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>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~walltime_classes~~UsesGraph_edge2" 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"/>
+</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="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>
+    
+
+    
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Used by</h3>
+      </div>
+      <ul class="list-group">
+  
+  
+  <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~~walltime_classes~~UsedByGraph Pages: 1 -->
+<svg id="modulewalltime_classesUsedByGraph" width="383pt" height="2888pt"
+ viewBox="0.00 0.00 383.00 2888.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~walltime_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2884)">
+<title>module~~walltime_classes~~UsedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 379,-2884 379,4 -4,4"/>
+<!-- module~walltime_classes -->
+<g id="module~~walltime_classes~~UsedByGraph_node1" class="node">
+<title>module~walltime_classes</title>
+<polygon fill="none" stroke="black" points="92,-1452 0,-1452 0,-1428 92,-1428 92,-1452"/>
+<text text-anchor="middle" x="46" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_classes</text>
+</g>
+<!-- module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_node2" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="182,-1452 128,-1452 128,-1428 182,-1428 182,-1452"/>
+<text text-anchor="middle" x="155" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~walltime_classes~~UsedByGraph_edge1" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.82,-1440C120,-1440 111.12,-1440 102.17,-1440"/>
+<polygon fill="#000000" stroke="#000000" points="102.09,-1436.5 92.09,-1440 102.09,-1443.5 102.09,-1436.5"/>
+</g>
+<!-- module~s_symba_kick -->
+<g id="module~~walltime_classes~~UsedByGraph_node3" class="node">
+<title>module~s_symba_kick</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-2880 257,-2880 257,-2856 336,-2856 336,-2880"/>
+<text text-anchor="middle" x="296.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge2" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.77,-2866.77C242.39,-2864.22 227.32,-2858.64 218,-2847 172.81,-2790.56 158.2,-1637.04 156.24,-1462.14"/>
+<polygon fill="#000000" stroke="#000000" points="159.74,-1462.02 156.13,-1452.06 152.74,-1462.1 159.74,-1462.02"/>
+</g>
+<!-- module~s_symba_drift -->
+<g id="module~~walltime_classes~~UsedByGraph_node4" class="node">
+<title>module~s_symba_drift</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-2838 257,-2838 257,-2814 336,-2814 336,-2838"/>
+<text text-anchor="middle" x="296.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge5" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.78,-2824.77C242.4,-2822.22 227.33,-2816.64 218,-2805 174.19,-2750.36 158.44,-1634.59 156.27,-1462.27"/>
+<polygon fill="#000000" stroke="#000000" points="159.77,-1462.06 156.14,-1452.1 152.77,-1462.15 159.77,-1462.06"/>
+</g>
+<!-- module~s_util_exit -->
+<g id="module~~walltime_classes~~UsedByGraph_node5" class="node">
+<title>module~s_util_exit</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-2796 266.5,-2796 266.5,-2772 326.5,-2772 326.5,-2796"/>
+<text text-anchor="middle" x="296.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge3" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.29,-2784.05C249.46,-2782.4 229.43,-2777.24 218,-2763 175.56,-2710.14 158.7,-1631.92 156.3,-1462.36"/>
+<polygon fill="#000000" stroke="#000000" points="159.8,-1462.08 156.16,-1452.13 152.8,-1462.18 159.8,-1462.08"/>
+</g>
+<!-- proc~ge_wpp -->
+<g id="module~~walltime_classes~~UsedByGraph_node6" class="node">
+<title>proc~ge_wpp</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node6"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="323.5,-2754 269.5,-2754 269.5,-2730 323.5,-2730 323.5,-2754"/>
+<text text-anchor="middle" x="296.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+</a>
+</g>
+</g>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge4" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.34,-2742.31C251.95,-2740.99 230.14,-2736.1 218,-2721 176.91,-2669.9 158.94,-1628 156.34,-1462.16"/>
+<polygon fill="#000000" stroke="#000000" points="159.84,-1462.08 156.18,-1452.14 152.84,-1462.19 159.84,-1462.08"/>
+</g>
+<!-- module~s_whm_util -->
+<g id="module~~walltime_classes~~UsedByGraph_node7" class="node">
+<title>module~s_whm_util</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329.5,-2712 263.5,-2712 263.5,-2688 329.5,-2688 329.5,-2712"/>
+<text text-anchor="middle" x="296.5" y="-2697.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge6" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.19,-2699.7C247.07,-2697.72 228.76,-2692.35 218,-2679 178.29,-2629.71 159.23,-1625.94 156.38,-1462.43"/>
+<polygon fill="#000000" stroke="#000000" points="159.87,-1462.07 156.2,-1452.13 152.87,-1462.19 159.87,-1462.07"/>
+</g>
+<!-- module~s_helio_setup -->
+<g id="module~~walltime_classes~~UsedByGraph_node8" class="node">
+<title>module~s_helio_setup</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-2670 257,-2670 257,-2646 336,-2646 336,-2670"/>
+<text text-anchor="middle" x="296.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge7" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.82,-2656.74C242.44,-2654.18 227.37,-2648.61 218,-2637 179.64,-2589.46 159.48,-1621.65 156.41,-1462.16"/>
+<polygon fill="#000000" stroke="#000000" points="159.91,-1462.03 156.22,-1452.1 152.91,-1462.16 159.91,-1462.03"/>
+</g>
+<!-- module~s_util_solve -->
+<g id="module~~walltime_classes~~UsedByGraph_node9" class="node">
+<title>module~s_util_solve</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2628 262.5,-2628 262.5,-2604 330.5,-2604 330.5,-2628"/>
+<text text-anchor="middle" x="296.5" y="-2613.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge8" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.42,-2615.58C246.5,-2613.53 228.6,-2608.12 218,-2595 181.01,-2549.25 159.78,-1619.09 156.46,-1462.33"/>
+<polygon fill="#000000" stroke="#000000" points="159.95,-1461.97 156.24,-1452.05 152.96,-1462.12 159.95,-1461.97"/>
+</g>
+<!-- module~s_whm_setup -->
+<g id="module~~walltime_classes~~UsedByGraph_node10" class="node">
+<title>module~s_whm_setup</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-2586 257,-2586 257,-2562 336,-2562 336,-2586"/>
+<text text-anchor="middle" x="296.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge9" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.84,-2572.72C242.47,-2570.16 227.39,-2564.59 218,-2553 182.38,-2509.04 160.09,-1616.31 156.51,-1462.48"/>
+<polygon fill="#000000" stroke="#000000" points="160.01,-1462.26 156.28,-1452.34 153.01,-1462.42 160.01,-1462.26"/>
+</g>
+<!-- module~s_netcdf -->
+<g id="module~~walltime_classes~~UsedByGraph_node11" class="node">
+<title>module~s_netcdf</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-2544 269.5,-2544 269.5,-2520 323.5,-2520 323.5,-2544"/>
+<text text-anchor="middle" x="296.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
+</a>
+</g>
+</g>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.39,-2532.28C252.01,-2530.94 230.21,-2526.04 218,-2511 149.63,-2426.8 154.35,-1609.08 155.75,-1462.45"/>
+<polygon fill="#000000" stroke="#000000" points="159.26,-1462.08 155.86,-1452.04 152.26,-1462.01 159.26,-1462.08"/>
+</g>
+<!-- module~s_io -->
+<g id="module~~walltime_classes~~UsedByGraph_node12" class="node">
+<title>module~s_io</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-2502 269.5,-2502 269.5,-2478 323.5,-2478 323.5,-2502"/>
+<text text-anchor="middle" x="296.5" y="-2487.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~~walltime_classes~~UsedByGraph_edge11" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.4,-2490.27C252.03,-2488.93 230.23,-2484.03 218,-2469 152.34,-2388.34 154.8,-1605.74 155.81,-1462.47"/>
+<polygon fill="#000000" stroke="#000000" points="159.31,-1462.28 155.89,-1452.26 152.31,-1462.23 159.31,-1462.28"/>
+</g>
+<!-- module~s_helio_step -->
+<g id="module~~walltime_classes~~UsedByGraph_node13" class="node">
+<title>module~s_helio_step</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333,-2460 260,-2460 260,-2436 333,-2436 333,-2460"/>
+<text text-anchor="middle" x="296.5" y="-2445.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge12" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.69,-2447.15C244.52,-2444.82 228.05,-2439.31 218,-2427 155.05,-2349.86 155.27,-1602.06 155.87,-1462.4"/>
+<polygon fill="#000000" stroke="#000000" points="159.37,-1462.11 155.92,-1452.09 152.37,-1462.08 159.37,-1462.11"/>
+</g>
+<!-- module~orbel -->
+<g id="module~~walltime_classes~~UsedByGraph_node14" class="node">
+<title>module~orbel</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node14"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="323.5,-2418 269.5,-2418 269.5,-2394 323.5,-2394 323.5,-2418"/>
+<text text-anchor="middle" x="296.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
+</a>
+</g>
+</g>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge13" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.42,-2406.25C252.07,-2404.9 230.27,-2400 218,-2385 157.74,-2311.36 155.76,-1598.18 155.94,-1462.3"/>
+<polygon fill="#000000" stroke="#000000" points="159.44,-1462.24 155.96,-1452.24 152.44,-1462.23 159.44,-1462.24"/>
+</g>
+<!-- module~s_symba_util -->
+<g id="module~~walltime_classes~~UsedByGraph_node15" class="node">
+<title>module~s_symba_util</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334,-2376 259,-2376 259,-2352 334,-2352 334,-2376"/>
+<text text-anchor="middle" x="296.5" y="-2361.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.93,-2363C243.98,-2360.6 227.91,-2355.07 218,-2343 160.42,-2272.85 156.27,-1593.96 156.01,-1462.12"/>
+<polygon fill="#000000" stroke="#000000" points="159.51,-1462.01 156,-1452.01 152.51,-1462.02 159.51,-1462.01"/>
+</g>
+<!-- module~s_symba_collision -->
+<g id="module~~walltime_classes~~UsedByGraph_node16" class="node">
+<title>module~s_symba_collision</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="346,-2334 247,-2334 247,-2310 346,-2310 346,-2334"/>
+<text text-anchor="middle" x="296.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_collision&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.83,-2318.31C235.83,-2315.15 225.27,-2309.82 218,-2301 163.14,-2234.4 156.81,-1590.83 156.09,-1462.28"/>
+<polygon fill="#000000" stroke="#000000" points="159.59,-1462.06 156.04,-1452.08 152.59,-1462.09 159.59,-1462.06"/>
+</g>
+<!-- module~s_symba_encounter_check -->
+<g id="module~~walltime_classes~~UsedByGraph_node17" class="node">
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368,-2292 225,-2292 225,-2268 368,-2268 368,-2292"/>
+<text text-anchor="middle" x="296.5" y="-2277.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M227.86,-2267.8C224.19,-2265.34 220.84,-2262.44 218,-2259 165.85,-2195.92 157.37,-1587.29 156.18,-1462.35"/>
+<polygon fill="#000000" stroke="#000000" points="159.68,-1462.06 156.09,-1452.09 152.68,-1462.12 159.68,-1462.06"/>
+</g>
+<!-- module~s_helio_kick -->
+<g id="module~~walltime_classes~~UsedByGraph_node18" class="node">
+<title>module~s_helio_kick</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-2250 261.5,-2250 261.5,-2226 331.5,-2226 331.5,-2250"/>
+<text text-anchor="middle" x="296.5" y="-2235.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.38,-2237.31C245.79,-2235.11 228.51,-2229.66 218,-2217 168.54,-2157.43 157.96,-1583.35 156.27,-1462.33"/>
+<polygon fill="#000000" stroke="#000000" points="159.77,-1462.01 156.14,-1452.06 152.77,-1462.11 159.77,-1462.01"/>
+</g>
+<!-- module~s_symba_step -->
+<g id="module~~walltime_classes~~UsedByGraph_node19" class="node">
+<title>module~s_symba_step</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-2208 255.5,-2208 255.5,-2184 337.5,-2184 337.5,-2208"/>
+<text text-anchor="middle" x="296.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_step&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.4,-2194.28C241.54,-2191.58 227.2,-2186.03 218,-2175 171.27,-2118.97 158.6,-1580.15 156.39,-1462.58"/>
+<polygon fill="#000000" stroke="#000000" points="159.88,-1462.21 156.2,-1452.27 152.88,-1462.33 159.88,-1462.21"/>
+</g>
+<!-- module~s_whm_step -->
+<g id="module~~walltime_classes~~UsedByGraph_node20" class="node">
+<title>module~s_whm_step</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333,-2166 260,-2166 260,-2142 333,-2142 333,-2166"/>
+<text text-anchor="middle" x="296.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.84,-2153.03C244.69,-2150.67 228.21,-2145.18 218,-2133 173.92,-2080.42 159.25,-1575.34 156.5,-1462.35"/>
+<polygon fill="#000000" stroke="#000000" points="160,-1462.04 156.26,-1452.13 153,-1462.21 160,-1462.04"/>
+</g>
+<!-- module~s_helio_gr -->
+<g id="module~~walltime_classes~~UsedByGraph_node21" class="node">
+<title>module~s_helio_gr</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327.5,-2124 265.5,-2124 265.5,-2100 327.5,-2100 327.5,-2124"/>
+<text text-anchor="middle" x="296.5" y="-2109.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.38,-2111.73C248.88,-2109.89 229.5,-2104.64 218,-2091 176.6,-2041.91 159.95,-1571.13 156.64,-1462.35"/>
+<polygon fill="#000000" stroke="#000000" points="160.13,-1462.09 156.34,-1452.2 153.14,-1462.3 160.13,-1462.09"/>
+</g>
+<!-- module~s_symba_discard -->
+<g id="module~~walltime_classes~~UsedByGraph_node22" class="node">
+<title>module~s_symba_discard</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344.5,-2082 248.5,-2082 248.5,-2058 344.5,-2058 344.5,-2082"/>
+<text text-anchor="middle" x="296.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~walltime_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="M248.22,-2066.5C236.79,-2063.38 225.67,-2058.03 218,-2049 179.26,-2003.37 160.69,-1566.4 156.79,-1462.22"/>
+<polygon fill="#000000" stroke="#000000" points="160.29,-1462.06 156.42,-1452.19 153.29,-1462.31 160.29,-1462.06"/>
+</g>
+<!-- module~s_rmvs_discard -->
+<g id="module~~walltime_classes~~UsedByGraph_node23" class="node">
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="340.5,-2040 252.5,-2040 252.5,-2016 340.5,-2016 340.5,-2040"/>
+<text text-anchor="middle" x="296.5" y="-2025.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-2025.47C239.5,-2022.55 226.61,-2017.06 218,-2007 181.94,-1964.84 161.5,-1561.95 156.97,-1462.24"/>
+<polygon fill="#000000" stroke="#000000" points="160.46,-1461.93 156.51,-1452.1 153.46,-1462.24 160.46,-1461.93"/>
+</g>
+<!-- module~whm_drift -->
+<g id="module~~walltime_classes~~UsedByGraph_node24" class="node">
+<title>module~whm_drift</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node24"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1998 267,-1998 267,-1974 326,-1974 326,-1998"/>
+<text text-anchor="middle" x="296.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+</a>
+</g>
+</g>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge23" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.64,-1985.76C249.94,-1984 229.93,-1978.83 218,-1965 184.62,-1926.31 162.4,-1557.69 157.18,-1462.4"/>
+<polygon fill="#000000" stroke="#000000" points="160.68,-1462.2 156.64,-1452.4 153.69,-1462.57 160.68,-1462.2"/>
+</g>
+<!-- module~s_rmvs_util -->
+<g id="module~~walltime_classes~~UsedByGraph_node25" class="node">
+<title>module~s_rmvs_util</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330,-1956 263,-1956 263,-1932 330,-1932 330,-1956"/>
+<text text-anchor="middle" x="296.5" y="-1941.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~~walltime_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.82,-1943.25C247,-1941.1 229.08,-1935.72 218,-1923 157,-1853.01 155.03,-1547.58 155.7,-1462.23"/>
+<polygon fill="#000000" stroke="#000000" points="159.21,-1462.14 155.81,-1452.1 152.21,-1462.07 159.21,-1462.14"/>
+</g>
+<!-- module~s_fraggle_io -->
+<g id="module~~walltime_classes~~UsedByGraph_node26" class="node">
+<title>module~s_fraggle_io</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-1914 261,-1914 261,-1890 332,-1890 332,-1914"/>
+<text text-anchor="middle" x="296.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.92,-1900.91C245.61,-1898.57 228.7,-1893.13 218,-1881 162.31,-1817.88 156.5,-1543.06 156.01,-1462.36"/>
+<polygon fill="#000000" stroke="#000000" points="159.51,-1462.29 155.97,-1452.3 152.51,-1462.31 159.51,-1462.29"/>
+</g>
+<!-- module~s_util_append -->
+<g id="module~~walltime_classes~~UsedByGraph_node27" class="node">
+<title>module~s_util_append</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-1872 257,-1872 257,-1848 336,-1848 336,-1872"/>
+<text text-anchor="middle" x="296.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.61,-1858.08C242.55,-1855.4 227.76,-1849.91 218,-1839 167.63,-1782.74 158.13,-1538.59 156.38,-1462.64"/>
+<polygon fill="#000000" stroke="#000000" points="159.88,-1462.24 156.17,-1452.32 152.88,-1462.39 159.88,-1462.24"/>
+</g>
+<!-- module~s_rmvs_kick -->
+<g id="module~~walltime_classes~~UsedByGraph_node28" class="node">
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-1830 261,-1830 261,-1806 332,-1806 332,-1830"/>
+<text text-anchor="middle" x="296.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.69,-1816.69C245.53,-1814.29 228.8,-1808.85 218,-1797 172.84,-1747.45 159.9,-1532.95 156.83,-1462.51"/>
+<polygon fill="#000000" stroke="#000000" points="160.32,-1461.98 156.41,-1452.14 153.32,-1462.27 160.32,-1461.98"/>
+</g>
+<!-- module~s_util_fill -->
+<g id="module~~walltime_classes~~UsedByGraph_node29" class="node">
+<title>module~s_util_fill</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-1788 269.5,-1788 269.5,-1764 323.5,-1764 323.5,-1788"/>
+<text text-anchor="middle" x="296.5" y="-1773.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~~walltime_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.27,-1775.66C252.3,-1774 231.02,-1768.97 218,-1755 178.03,-1712.11 161.88,-1527 157.4,-1462.37"/>
+<polygon fill="#000000" stroke="#000000" points="160.87,-1461.83 156.71,-1452.09 153.88,-1462.3 160.87,-1461.83"/>
+</g>
+<!-- module~s_rmvs_io -->
+<g id="module~~walltime_classes~~UsedByGraph_node30" class="node">
+<title>module~s_rmvs_io</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327,-1746 266,-1746 266,-1722 327,-1722 327,-1746"/>
+<text text-anchor="middle" x="296.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.63,-1733.11C249.43,-1731.04 230.26,-1725.77 218,-1713 183.15,-1676.68 164.1,-1520.39 158.1,-1462.06"/>
+<polygon fill="#000000" stroke="#000000" points="161.58,-1461.67 157.11,-1452.06 154.62,-1462.36 161.58,-1461.67"/>
+</g>
+<!-- module~s_fraggle_placeholder -->
+<g id="module~~walltime_classes~~UsedByGraph_node31" class="node">
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="355.5,-1704 237.5,-1704 237.5,-1680 355.5,-1680 355.5,-1704"/>
+<text text-anchor="middle" x="296.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M237.21,-1683.53C230.08,-1680.49 223.41,-1676.43 218,-1671 160.29,-1613.15 154.67,-1507.75 155.15,-1462.08"/>
+<polygon fill="#000000" stroke="#000000" points="158.65,-1462.14 155.37,-1452.06 151.66,-1461.98 158.65,-1462.14"/>
+</g>
+<!-- module~s_rmvs_setup -->
+<g id="module~~walltime_classes~~UsedByGraph_node32" class="node">
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-1662 257,-1662 257,-1638 336,-1638 336,-1662"/>
+<text text-anchor="middle" x="296.5" y="-1647.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~~walltime_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.7,-1647.05C243,-1644.21 228.42,-1638.88 218,-1629 170.48,-1583.9 159.34,-1501.85 156.76,-1462.38"/>
+<polygon fill="#000000" stroke="#000000" points="160.25,-1462.03 156.23,-1452.23 153.26,-1462.4 160.25,-1462.03"/>
+</g>
+<!-- module~s_whm_gr -->
+<g id="module~~walltime_classes~~UsedByGraph_node33" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327.5,-1620 265.5,-1620 265.5,-1596 327.5,-1596 327.5,-1620"/>
+<text text-anchor="middle" x="296.5" y="-1605.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~~walltime_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.32,-1606.08C249.61,-1603.66 231.02,-1598.37 218,-1587 180.5,-1554.23 165.09,-1494.98 159.24,-1462.61"/>
+<polygon fill="#000000" stroke="#000000" points="162.63,-1461.66 157.55,-1452.37 155.73,-1462.8 162.63,-1461.66"/>
+</g>
+<!-- module~s_tides_step_spin -->
+<g id="module~~walltime_classes~~UsedByGraph_node34" class="node">
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-1578 247.5,-1578 247.5,-1554 345.5,-1554 345.5,-1578"/>
+<text text-anchor="middle" x="296.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+</a>
+</g>
+</g>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.34,-1559.1C236.95,-1556 226.54,-1551.5 218,-1545 189.98,-1523.66 172.19,-1485.7 163.17,-1461.75"/>
+<polygon fill="#000000" stroke="#000000" points="166.4,-1460.37 159.74,-1452.13 159.81,-1462.73 166.4,-1460.37"/>
+</g>
+<!-- module~s_obl -->
+<g id="module~~walltime_classes~~UsedByGraph_node35" class="node">
+<title>module~s_obl</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-1536 269.5,-1536 269.5,-1512 323.5,-1512 323.5,-1536"/>
+<text text-anchor="middle" x="296.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+</a>
+</g>
+</g>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.39,-1520.46C253.69,-1517.5 233.77,-1512.22 218,-1503 199.35,-1492.1 182.46,-1474.13 171.04,-1460.17"/>
+<polygon fill="#000000" stroke="#000000" points="173.61,-1457.78 164.66,-1452.1 168.11,-1462.11 173.61,-1457.78"/>
+</g>
+<!-- module~s_discard -->
+<g id="module~~walltime_classes~~UsedByGraph_node36" class="node">
+<title>module~s_discard</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-1494 267.5,-1494 267.5,-1470 325.5,-1470 325.5,-1494"/>
+<text text-anchor="middle" x="296.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+</a>
+</g>
+</g>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M267.4,-1474.83C252.63,-1470.96 234.27,-1465.95 218,-1461 209.48,-1458.41 200.37,-1455.43 191.83,-1452.56"/>
+<polygon fill="#000000" stroke="#000000" points="192.72,-1449.16 182.13,-1449.25 190.47,-1455.79 192.72,-1449.16"/>
+</g>
+<!-- module~s_util_resize -->
+<g id="module~~walltime_classes~~UsedByGraph_node37" class="node">
+<title>module~s_util_resize</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332.5,-1452 260.5,-1452 260.5,-1428 332.5,-1428 332.5,-1452"/>
+<text text-anchor="middle" x="296.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.3,-1440C239.58,-1440 213.43,-1440 192.5,-1440"/>
+<polygon fill="#000000" stroke="#000000" points="192.38,-1436.5 182.38,-1440 192.38,-1443.5 192.38,-1436.5"/>
+</g>
+<!-- module~drift_implementation -->
+<g id="module~~walltime_classes~~UsedByGraph_node38" class="node">
+<title>module~drift_implementation</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node38"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="351,-1410 242,-1410 242,-1386 351,-1386 351,-1410"/>
+<text text-anchor="middle" x="296.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+</a>
+</g>
+</g>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge37" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.06,-1410.08C238.79,-1412.89 228,-1415.95 218,-1419 209.48,-1421.59 200.37,-1424.57 191.83,-1427.44"/>
+<polygon fill="#000000" stroke="#000000" points="190.47,-1424.21 182.13,-1430.75 192.72,-1430.84 190.47,-1424.21"/>
+</g>
+<!-- module~s_fraggle_generate -->
+<g id="module~~walltime_classes~~UsedByGraph_node39" class="node">
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="349.5,-1368 243.5,-1368 243.5,-1344 349.5,-1344 349.5,-1368"/>
+<text text-anchor="middle" x="296.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M243.11,-1366.12C234.4,-1368.93 225.7,-1372.5 218,-1377 199.35,-1387.9 182.46,-1405.87 171.04,-1419.83"/>
+<polygon fill="#000000" stroke="#000000" points="168.11,-1417.89 164.66,-1427.9 173.61,-1422.22 168.11,-1417.89"/>
+</g>
+<!-- module~s_operator_cross -->
+<g id="module~~walltime_classes~~UsedByGraph_node40" class="node">
+<title>module~s_operator_cross</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344.5,-1326 248.5,-1326 248.5,-1302 344.5,-1302 344.5,-1326"/>
+<text text-anchor="middle" x="296.5" y="-1311.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.15,-1320.66C237.49,-1323.77 226.76,-1328.33 218,-1335 189.98,-1356.34 172.19,-1394.3 163.17,-1418.25"/>
+<polygon fill="#000000" stroke="#000000" points="159.81,-1417.27 159.74,-1427.87 166.4,-1419.63 159.81,-1417.27"/>
+</g>
+<!-- module~s_symba_setup -->
+<g id="module~~walltime_classes~~UsedByGraph_node41" class="node">
+<title>module~s_symba_setup</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="340.5,-1284 252.5,-1284 252.5,-1260 340.5,-1260 340.5,-1284"/>
+<text text-anchor="middle" x="296.5" y="-1269.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.32,-1276.52C240.11,-1279.59 227.55,-1284.65 218,-1293 180.5,-1325.77 165.09,-1385.02 159.24,-1417.39"/>
+<polygon fill="#000000" stroke="#000000" points="155.73,-1417.2 157.55,-1427.63 162.63,-1418.34 155.73,-1417.2"/>
+</g>
+<!-- proc~solve_wbs -->
+<g id="module~~walltime_classes~~UsedByGraph_node42" class="node">
+<title>proc~solve_wbs</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node42"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="327.5,-1242 265.5,-1242 265.5,-1218 327.5,-1218 327.5,-1242"/>
+<text text-anchor="middle" x="296.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+</a>
+</g>
+</g>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge41" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.32,-1231.45C249.41,-1233.72 230.64,-1239.01 218,-1251 170.48,-1296.1 159.34,-1378.15 156.76,-1417.62"/>
+<polygon fill="#000000" stroke="#000000" points="153.26,-1417.6 156.23,-1427.77 160.25,-1417.97 153.26,-1417.6"/>
+</g>
+<!-- module~s_fraggle_setup -->
+<g id="module~~walltime_classes~~UsedByGraph_node43" class="node">
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="341,-1200 252,-1200 252,-1176 341,-1176 341,-1200"/>
+<text text-anchor="middle" x="296.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.99,-1191.63C239.61,-1194.65 227.06,-1199.92 218,-1209 160.29,-1266.85 154.67,-1372.25 155.15,-1417.92"/>
+<polygon fill="#000000" stroke="#000000" points="151.66,-1418.02 155.37,-1427.94 158.65,-1417.86 151.66,-1418.02"/>
+</g>
+<!-- module~s_util_sort -->
+<g id="module~~walltime_classes~~UsedByGraph_node44" class="node">
+<title>module~s_util_sort</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327,-1158 266,-1158 266,-1134 327,-1134 327,-1158"/>
+<text text-anchor="middle" x="296.5" y="-1143.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.63,-1146.89C249.43,-1148.96 230.26,-1154.23 218,-1167 183.15,-1203.32 164.1,-1359.61 158.1,-1417.94"/>
+<polygon fill="#000000" stroke="#000000" points="154.62,-1417.64 157.11,-1427.94 161.58,-1418.33 154.62,-1417.64"/>
+</g>
+<!-- program~swiftest_driver -->
+<g id="module~~walltime_classes~~UsedByGraph_node45" class="node">
+<title>program~swiftest_driver</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node45"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="337,-1116 256,-1116 256,-1092 337,-1092 337,-1116"/>
+<text text-anchor="middle" x="296.5" y="-1101.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~~walltime_classes~~UsedByGraph_edge43" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.63,-1106.36C241.97,-1109.15 227.69,-1114.6 218,-1125 178.03,-1167.89 161.88,-1353 157.4,-1417.63"/>
+<polygon fill="#000000" stroke="#000000" points="153.88,-1417.7 156.71,-1427.91 160.87,-1418.17 153.88,-1417.7"/>
+</g>
+<!-- module~s_gr -->
+<g id="module~~walltime_classes~~UsedByGraph_node46" class="node">
+<title>module~s_gr</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-1074 269.5,-1074 269.5,-1050 323.5,-1050 323.5,-1074"/>
+<text text-anchor="middle" x="296.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.17,-1062.24C252.16,-1063.86 230.86,-1068.88 218,-1083 172.84,-1132.55 159.9,-1347.05 156.83,-1417.49"/>
+<polygon fill="#000000" stroke="#000000" points="153.32,-1417.73 156.41,-1427.86 160.32,-1418.02 153.32,-1417.73"/>
+</g>
+<!-- module~s_user_kick_getacch -->
+<g id="module~~walltime_classes~~UsedByGraph_node47" class="node">
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="352.5,-1032 240.5,-1032 240.5,-1008 352.5,-1008 352.5,-1032"/>
+<text text-anchor="middle" x="296.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+</a>
+</g>
+</g>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge45" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.15,-1026.5C231.77,-1029.72 223.95,-1034.35 218,-1041 167.63,-1097.26 158.13,-1341.41 156.38,-1417.36"/>
+<polygon fill="#000000" stroke="#000000" points="152.88,-1417.61 156.17,-1427.68 159.88,-1417.76 152.88,-1417.61"/>
+</g>
+<!-- module~s_util_rescale -->
+<g id="module~~walltime_classes~~UsedByGraph_node48" class="node">
+<title>module~s_util_rescale</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335.5,-990 257.5,-990 257.5,-966 335.5,-966 335.5,-990"/>
+<text text-anchor="middle" x="296.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.33,-979.69C243.03,-982.31 227.87,-987.82 218,-999 162.31,-1062.12 156.5,-1336.94 156.01,-1417.64"/>
+<polygon fill="#000000" stroke="#000000" points="152.51,-1417.69 155.97,-1427.7 159.51,-1417.71 152.51,-1417.69"/>
+</g>
+<!-- module~s_util_get_energy_momentum -->
+<g id="module~~walltime_classes~~UsedByGraph_node49" class="node">
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="375,-948 218,-948 218,-924 375,-924 375,-948"/>
+<text text-anchor="middle" x="296.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M228.41,-948.15C224.55,-950.61 221.02,-953.53 218,-957 157,-1026.99 155.03,-1332.42 155.7,-1417.77"/>
+<polygon fill="#000000" stroke="#000000" points="152.21,-1417.93 155.81,-1427.9 159.21,-1417.86 152.21,-1417.93"/>
+</g>
+<!-- module~s_kick -->
+<g id="module~~walltime_classes~~UsedByGraph_node50" class="node">
+<title>module~s_kick</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-906 269.5,-906 269.5,-882 323.5,-882 323.5,-906"/>
+<text text-anchor="middle" x="296.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.29,-893.99C252.11,-895.47 230.57,-900.43 218,-915 184.62,-953.69 162.4,-1322.31 157.18,-1417.6"/>
+<polygon fill="#000000" stroke="#000000" points="153.69,-1417.43 156.64,-1427.6 160.68,-1417.8 153.69,-1417.43"/>
+</g>
+<!-- module~s_whm_coord -->
+<g id="module~~walltime_classes~~UsedByGraph_node51" class="node">
+<title>module~s_whm_coord</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336,-864 257,-864 257,-840 336,-840 336,-864"/>
+<text text-anchor="middle" x="296.5" y="-849.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~~walltime_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="M256.75,-853.61C242.54,-856.24 227.6,-861.77 218,-873 181.94,-915.16 161.5,-1318.05 156.97,-1417.76"/>
+<polygon fill="#000000" stroke="#000000" points="153.46,-1417.76 156.51,-1427.9 160.46,-1418.07 153.46,-1417.76"/>
+</g>
+<!-- module~s_util_index -->
+<g id="module~~walltime_classes~~UsedByGraph_node52" class="node">
+<title>module~s_util_index</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331,-822 262,-822 262,-798 331,-798 331,-822"/>
+<text text-anchor="middle" x="296.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.89,-810.74C246.24,-812.93 228.74,-818.35 218,-831 179.26,-876.63 160.69,-1313.6 156.79,-1417.78"/>
+<polygon fill="#000000" stroke="#000000" points="153.29,-1417.69 156.42,-1427.81 160.29,-1417.94 153.29,-1417.69"/>
+</g>
+<!-- module~s_util_valid -->
+<g id="module~~walltime_classes~~UsedByGraph_node53" class="node">
+<title>module~s_util_valid</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-780 264,-780 264,-756 329,-756 329,-780"/>
+<text text-anchor="middle" x="296.5" y="-765.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.82,-768.45C247.67,-770.45 229.14,-775.79 218,-789 176.6,-838.09 159.95,-1308.87 156.64,-1417.65"/>
+<polygon fill="#000000" stroke="#000000" points="153.14,-1417.7 156.34,-1427.8 160.13,-1417.91 153.14,-1417.7"/>
+</g>
+<!-- module~s_rmvs_chk -->
+<g id="module~~walltime_classes~~UsedByGraph_node54" class="node">
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-738 261.5,-738 261.5,-714 331.5,-714 331.5,-738"/>
+<text text-anchor="middle" x="296.5" y="-723.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.43,-726.74C245.86,-728.95 228.57,-734.39 218,-747 173.92,-799.58 159.25,-1304.66 156.5,-1417.65"/>
+<polygon fill="#000000" stroke="#000000" points="153,-1417.79 156.26,-1427.87 160,-1417.96 153,-1417.79"/>
+</g>
+<!-- module~s_util_coord -->
+<g id="module~~walltime_classes~~UsedByGraph_node55" class="node">
+<title>module~s_util_coord</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-696 261.5,-696 261.5,-672 331.5,-672 331.5,-696"/>
+<text text-anchor="middle" x="296.5" y="-681.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.4,-684.72C245.83,-686.92 228.54,-692.37 218,-705 171.27,-761.03 158.6,-1299.85 156.39,-1417.42"/>
+<polygon fill="#000000" stroke="#000000" points="152.88,-1417.67 156.2,-1427.73 159.88,-1417.79 152.88,-1417.67"/>
+</g>
+<!-- module~s_util_set -->
+<g id="module~~walltime_classes~~UsedByGraph_node56" class="node">
+<title>module~s_util_set</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-654 267.5,-654 267.5,-630 325.5,-630 325.5,-654"/>
+<text text-anchor="middle" x="296.5" y="-639.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M267.22,-642.01C250.3,-643.62 229.84,-648.74 218,-663 168.54,-722.57 157.96,-1296.65 156.27,-1417.67"/>
+<polygon fill="#000000" stroke="#000000" points="152.77,-1417.89 156.14,-1427.94 159.77,-1417.99 152.77,-1417.89"/>
+</g>
+<!-- module~s_util_peri -->
+<g id="module~~walltime_classes~~UsedByGraph_node57" class="node">
+<title>module~s_util_peri</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327,-612 266,-612 266,-588 327,-588 327,-612"/>
+<text text-anchor="middle" x="296.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~walltime_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="M265.66,-600.14C249.05,-601.92 229.46,-607.14 218,-621 165.85,-684.08 157.37,-1292.71 156.18,-1417.65"/>
+<polygon fill="#000000" stroke="#000000" points="152.68,-1417.88 156.09,-1427.91 159.68,-1417.94 152.68,-1417.88"/>
+</g>
+<!-- module~s_util_minimize_bfgs -->
+<g id="module~~walltime_classes~~UsedByGraph_node58" class="node">
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="352.5,-570 240.5,-570 240.5,-546 352.5,-546 352.5,-570"/>
+<text text-anchor="middle" x="296.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.46,-563.8C231.83,-567.06 223.85,-571.9 218,-579 163.14,-645.6 156.81,-1289.17 156.09,-1417.72"/>
+<polygon fill="#000000" stroke="#000000" points="152.59,-1417.91 156.04,-1427.92 159.59,-1417.94 152.59,-1417.91"/>
+</g>
+<!-- module~s_helio_drift -->
+<g id="module~~walltime_classes~~UsedByGraph_node59" class="node">
+<title>module~s_helio_drift</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-528 261.5,-528 261.5,-504 331.5,-504 331.5,-528"/>
+<text text-anchor="middle" x="296.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.32,-516.64C245.72,-518.83 228.44,-524.29 218,-537 160.42,-607.15 156.27,-1286.04 156.01,-1417.88"/>
+<polygon fill="#000000" stroke="#000000" points="152.51,-1417.98 156,-1427.99 159.51,-1417.99 152.51,-1417.98"/>
+</g>
+<!-- module~s_rmvs_step -->
+<g id="module~~walltime_classes~~UsedByGraph_node60" class="node">
+<title>module~s_rmvs_step</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333,-486 260,-486 260,-462 333,-462 333,-486"/>
+<text text-anchor="middle" x="296.5" y="-471.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~~walltime_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.71,-474.86C244.53,-477.19 228.06,-482.7 218,-495 157.74,-568.64 155.76,-1281.82 155.94,-1417.7"/>
+<polygon fill="#000000" stroke="#000000" points="152.44,-1417.77 155.96,-1427.76 159.44,-1417.76 152.44,-1417.77"/>
+</g>
+<!-- module~s_util_spill -->
+<g id="module~~walltime_classes~~UsedByGraph_node61" class="node">
+<title>module~s_util_spill</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="327,-444 266,-444 266,-420 327,-420 327,-444"/>
+<text text-anchor="middle" x="296.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.98,-432.05C249.26,-433.76 229.46,-438.96 218,-453 155.05,-530.14 155.27,-1277.94 155.87,-1417.6"/>
+<polygon fill="#000000" stroke="#000000" points="152.37,-1417.92 155.92,-1427.91 159.37,-1417.89 152.37,-1417.92"/>
+</g>
+<!-- module~s_whm_kick -->
+<g id="module~~walltime_classes~~UsedByGraph_node62" class="node">
+<title>module~s_whm_kick</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-402 261.5,-402 261.5,-378 331.5,-378 331.5,-402"/>
+<text text-anchor="middle" x="296.5" y="-387.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~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.27,-390.61C245.66,-392.78 228.38,-398.24 218,-411 152.34,-491.66 154.8,-1274.26 155.81,-1417.53"/>
+<polygon fill="#000000" stroke="#000000" points="152.31,-1417.77 155.89,-1427.74 159.31,-1417.72 152.31,-1417.77"/>
+</g>
+<!-- module~s_util_copy -->
+<g id="module~~walltime_classes~~UsedByGraph_node63" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329.5,-360 263.5,-360 263.5,-336 329.5,-336 329.5,-360"/>
+<text text-anchor="middle" x="296.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.23,-348.34C247.12,-350.32 228.81,-355.69 218,-369 149.63,-453.2 154.35,-1270.92 155.75,-1417.55"/>
+<polygon fill="#000000" stroke="#000000" points="152.26,-1417.99 155.86,-1427.96 159.26,-1417.92 152.26,-1417.99"/>
+</g>
+<!-- module~s_orbel -->
+<g id="module~~walltime_classes~~UsedByGraph_node64" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-318 269.5,-318 269.5,-294 323.5,-294 323.5,-318"/>
+<text text-anchor="middle" x="296.5" y="-303.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.38,-305.72C252,-307.05 230.2,-311.94 218,-327 182.38,-370.96 160.09,-1263.69 156.51,-1417.52"/>
+<polygon fill="#000000" stroke="#000000" points="153.01,-1417.58 156.28,-1427.66 160.01,-1417.74 153.01,-1417.58"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~walltime_classes~~UsedByGraph_node65" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="353.5,-276 239.5,-276 239.5,-252 353.5,-252 353.5,-276"/>
+<text text-anchor="middle" x="296.5" y="-261.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.19,-270.17C231.02,-273.43 223.52,-278.17 218,-285 181.01,-330.75 159.78,-1260.91 156.46,-1417.67"/>
+<polygon fill="#000000" stroke="#000000" points="152.96,-1417.88 156.24,-1427.95 159.95,-1418.03 152.96,-1417.88"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~walltime_classes~~UsedByGraph_node66" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-234 261.5,-234 261.5,-210 331.5,-210 331.5,-234"/>
+<text text-anchor="middle" x="296.5" y="-219.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~~walltime_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.22,-222.57C245.6,-224.74 228.33,-230.2 218,-243 179.64,-290.54 159.48,-1258.35 156.41,-1417.84"/>
+<polygon fill="#000000" stroke="#000000" points="152.91,-1417.84 156.22,-1427.9 159.91,-1417.97 152.91,-1417.84"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~walltime_classes~~UsedByGraph_node67" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node67"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344.5,-192 248.5,-192 248.5,-168 344.5,-168 344.5,-192"/>
+<text text-anchor="middle" x="296.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.31,-183.13C236.73,-186.23 225.52,-191.66 218,-201 178.29,-250.29 159.23,-1254.06 156.38,-1417.57"/>
+<polygon fill="#000000" stroke="#000000" points="152.87,-1417.81 156.2,-1427.87 159.87,-1417.93 152.87,-1417.81"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~walltime_classes~~UsedByGraph_node68" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-150 269.5,-150 269.5,-126 323.5,-126 323.5,-150"/>
+<text text-anchor="middle" x="296.5" y="-135.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 -->
+<g id="module~~walltime_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.34,-137.69C251.95,-139.01 230.14,-143.9 218,-159 176.91,-210.1 158.94,-1252 156.34,-1417.84"/>
+<polygon fill="#000000" stroke="#000000" points="152.84,-1417.81 156.18,-1427.86 159.84,-1417.92 152.84,-1417.81"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~walltime_classes~~UsedByGraph_node69" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node69"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-108 258,-108 258,-84 335,-84 335,-108"/>
+<text text-anchor="middle" x="296.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258,-97.03C243.26,-99.48 227.6,-105.04 218,-117 175.56,-169.86 158.7,-1248.08 156.3,-1417.64"/>
+<polygon fill="#000000" stroke="#000000" points="152.8,-1417.82 156.16,-1427.87 159.8,-1417.92 152.8,-1417.82"/>
+</g>
+<!-- module~s_util_version -->
+<g id="module~~walltime_classes~~UsedByGraph_node70" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335.5,-66 257.5,-66 257.5,-42 335.5,-42 335.5,-66"/>
+<text text-anchor="middle" x="296.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.18,-55.16C242.68,-57.68 227.42,-63.25 218,-75 174.19,-129.64 158.44,-1245.41 156.27,-1417.73"/>
+<polygon fill="#000000" stroke="#000000" points="152.77,-1417.85 156.14,-1427.9 159.77,-1417.94 152.77,-1417.85"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~walltime_classes~~UsedByGraph_node71" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~walltime_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-24 258.5,-24 258.5,0 334.5,0 334.5,-24"/>
+<text text-anchor="middle" x="296.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~walltime_classes~~UsedByGraph_edge70" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.38,-12.95C243.53,-15.37 227.67,-20.92 218,-33 172.81,-89.44 158.2,-1242.96 156.24,-1417.86"/>
+<polygon fill="#000000" stroke="#000000" points="152.74,-1417.9 156.13,-1427.94 159.74,-1417.98 152.74,-1417.9"/>
+</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="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="#inters-1">Interfaces</a></h3></div>
+  <div id="inters-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#interface-walltime_finish">walltime_finish</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#interface-walltime_reset">walltime_reset</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#interface-walltime_start">walltime_start</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#types-1">Derived Types</a></h3></div>
+  <div id="types-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#type-walltimer">walltimer</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+<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/walltime_classes.html#proc-walltime_finish">walltime_finish</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#proc-walltime_reset">walltime_reset</a>
+      
+      <a class="list-group-item" href="../module/walltime_classes.html#proc-walltime_start">walltime_start</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+    <section>
+   <h2>Interfaces</h2>
+   
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-walltime_finish"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine walltime_finish(self, nsubsteps, message)
+    
+    
+   
+</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</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>nsubsteps</strong></td><td><p>Number of substeps used to compute the time per step </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td><p>Message to prepend to the wall time terminal output</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-walltime_reset"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine walltime_reset(self)
+    
+    
+   
+</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-walltime_start"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine walltime_start(self)
+    
+    
+   
+</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+    </section>
+  <br>
+    
+
+    
+    
+    
+    <section>
+     <h2>Derived Types</h2>
+   
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-walltimer"></span><h3>type, public :: <a href='../type/walltimer.html'>walltimer</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+     
+     <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-count_rate"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_rate</strong></td><td></td><td></td><td><p>Rate at wich the clock ticks</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_max"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_max</strong></td><td></td><td></td><td><p>Maximum value of the clock ticker</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_start_main"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_start_main</strong></td><td></td><td></td><td><p>Value of the clock ticker at when the timer is first called</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_start_step"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_start_step</strong></td><td></td><td></td><td><p>Value of the clock ticker at the start of a timed step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_finish_step"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_finish_step</strong></td><td></td><td></td><td><p>Value of the clock ticker at the end of a timed step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lmain_is_started"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lmain_is_started</strong></td><td> =</td><td>.false.</td><td><p>Logical flag indicating whether or not the main timer has been reset or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+     
+     
+          
+     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/walltimer.html#boundprocedure-reset'>reset</a></strong>  => walltime_reset </td>
+       <td><p>Resets the clock ticker, settting main_start to the current ticker value</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/walltimer.html#boundprocedure-start'>start</a></strong>  => walltime_start </td>
+       <td><p>Starts the timer, setting step_start to the current ticker value</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/walltimer.html#boundprocedure-finish'>finish</a></strong>  => walltime_finish </td>
+       <td><p>Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</p></td></tr>
+      
+       </tbody>
+       </table>
+     
+  </div>
+</div>
+
+     
+    </section>
+  <br>
+    
+    
+    
+
+    
+    <section>
+    <h2>Subroutines</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-walltime_finish"></span><h3>
+public subroutine <a href='../proc/walltime_finish.html'>walltime_finish</a>(self, nsubsteps, message)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</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>nsubsteps</strong></td><td><p>Number of substeps used to compute the time per step </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td><p>Message to prepend to the wall time terminal output</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-walltime_reset"></span><h3>
+public subroutine <a href='../proc/walltime_reset.html'>walltime_reset</a>(self)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Resets the clock ticker, settting main_start to the current ticker value</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-walltime_start"></span><h3>
+public subroutine <a href='../proc/walltime_start.html'>walltime_start</a>(self)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Starts the timer, setting step_start to the current ticker value</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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/whm_classes.html b/docs/module/whm_classes.html
index 9d84cb49c..9bb554e83 100644
--- a/docs/module/whm_classes.html
+++ b/docs/module/whm_classes.html
@@ -136,7 +136,7 @@ <h1>whm_classes
      <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.">227 statements</a>
+    title=" 1.4% of total for modules and submodules.">233 statements</a>
      </li> 
      
      
@@ -194,6 +194,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/whm_classes.html#interface-whm_drift_pl">whm_drift_pl</a>
       
+      <a class="list-group-item" href="../module/whm_classes.html#interface-whm_util_index_eucl_plpl">whm_util_index_eucl_plpl</a>
+      
       <a class="list-group-item" href="../module/whm_classes.html#interface-whm_kick_getacch_pl">whm_kick_getacch_pl</a>
       
       <a class="list-group-item" href="../module/whm_classes.html#interface-whm_kick_getacch_tp">whm_kick_getacch_tp</a>
@@ -487,1165 +489,1286 @@ <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="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)">
+<svg id="modulewhm_classesUsedByGraph" width="601pt" height="2888pt"
+ viewBox="0.00 0.00 601.00 2888.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 2884)">
 <title>module~~whm_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 597,-2548 597,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2884 597,-2884 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,-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>
+<polygon fill="none" stroke="black" points="76,-2254 0,-2254 0,-2230 76,-2230 76,-2254"/>
+<text text-anchor="middle" x="38" y="-2239.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes</text>
 </g>
-<!-- module~whm_drift -->
+<!-- module~rmvs_classes -->
 <g id="module~~whm_classes~~UsedByGraph_node2" class="node">
-<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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="189,-2214 112,-2214 112,-2190 189,-2190 189,-2214"/>
+<text text-anchor="middle" x="150.5" y="-2199.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge4" class="edge">
-<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"/>
+<!-- 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,-2214C105.63,-2217.88 93.58,-2222.24 82.24,-2226.35"/>
+<polygon fill="#000000" stroke="#000000" points="80.72,-2223.17 72.51,-2229.87 83.11,-2229.76 80.72,-2223.17"/>
 </g>
-<!-- module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_node10" class="node">
-<title>module~swiftest</title>
-<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>
+<!-- module~s_whm_util -->
+<g id="module~~whm_classes~~UsedByGraph_node3" class="node">
+<title>module~s_whm_util</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="547.5,-2292 481.5,-2292 481.5,-2268 547.5,-2268 547.5,-2292"/>
+<text text-anchor="middle" x="514.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge59" class="edge">
-<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"/>
+<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge5" class="edge">
+<title>module~s_whm_util&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M481.36,-2279.86C453.09,-2279.77 410.81,-2279.72 374,-2280"/>
 </g>
-<!-- module~s_whm_coord -->
-<g id="module~~whm_classes~~UsedByGraph_node3" class="node">
-<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>
+<!-- module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_node10" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node10"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="400,-1494 346,-1494 346,-1470 400,-1470 400,-1494"/>
+<text text-anchor="middle" x="373" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.35,-2279.57C465.27,-2277.56 446.95,-2272.19 436,-2259 386.54,-2199.43 375.96,-1625.35 374.27,-1504.33"/>
+<polygon fill="#000000" stroke="#000000" points="377.77,-1504.01 374.14,-1494.06 370.77,-1504.11 377.77,-1504.01"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_whm_gr -->
 <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>
+<title>module~s_whm_gr</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545.5,-2250 483.5,-2250 483.5,-2226 545.5,-2226 545.5,-2250"/>
+<text text-anchor="middle" x="514.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge4" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M372,-2280C305.98,-2284.87 290.19,-2267.53 225,-2256 192.25,-2250.21 179.01,-2223.31 151.5,-2242"/>
+<path fill="none" stroke="#000000" d="M483.2,-2245.75C468.83,-2249.54 451.47,-2254.29 436,-2259 408.17,-2267.48 403.09,-2279.78 374,-2280"/>
 </g>
-<!-- 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"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.32,-2237.78C466.8,-2235.95 447.43,-2230.7 436,-2217 389.27,-2160.97 376.6,-1622.15 374.39,-1504.58"/>
+<polygon fill="#000000" stroke="#000000" points="377.88,-1504.21 374.2,-1494.27 370.88,-1504.33 377.88,-1504.21"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~s_whm_setup -->
 <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>
+<title>module~s_whm_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-486 475,-486 475,-462 554,-462 554,-486"/>
+<text text-anchor="middle" x="514.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge1" class="edge">
-<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"/>
+<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge6" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M474.73,-464C462.31,-460.66 448.54,-456.82 436,-453 408.17,-444.52 392.75,-409.76 374,-432"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.88,-475.32C460.52,-477.88 445.43,-483.44 436,-495 373.05,-572.14 373.27,-1319.94 373.87,-1459.6"/>
+<polygon fill="#000000" stroke="#000000" points="370.37,-1459.92 373.92,-1469.91 377.37,-1459.89 370.37,-1459.92"/>
+</g>
+<!-- module~s_whm_coord -->
 <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,-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>
+<title>module~s_whm_coord</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-444 475,-444 475,-420 554,-420 554,-444"/>
+<text text-anchor="middle" x="514.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
+<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
 <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.31,-136.66C453.01,-135.8 410.71,-135.29 374,-138"/>
+<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M481.42,-419.96C448.74,-410.02 399.37,-401.91 374,-432"/>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge36" class="edge">
-<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"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.87,-433.3C460.5,-435.87 445.42,-441.43 436,-453 370.34,-533.66 372.8,-1316.26 373.81,-1459.53"/>
+<polygon fill="#000000" stroke="#000000" points="370.31,-1459.77 373.89,-1469.74 377.31,-1459.72 370.31,-1459.77"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~helio_classes -->
 <g id="module~~whm_classes~~UsedByGraph_node7" class="node">
-<title>module~s_whm_setup</title>
-<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>
+<title>module~helio_classes</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="188.5,-2312 112.5,-2312 112.5,-2288 188.5,-2288 188.5,-2312"/>
+<text text-anchor="middle" x="150.5" y="-2297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge8" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
-<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_edge73" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<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"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge1" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M126.6,-2287.98C110.45,-2279.51 88.61,-2268.04 70.78,-2258.68"/>
+<polygon fill="#000000" stroke="#000000" points="72.35,-2255.55 61.87,-2254 69.09,-2261.75 72.35,-2255.55"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_whm_step -->
 <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>
+<title>module~s_whm_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_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_whm_step</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"/>
+<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge8" class="edge">
+<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M477.91,-390.41C445.67,-392.83 399.43,-401.83 374,-432"/>
 </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"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.66,-390.83C462.48,-393.15 446.02,-398.66 436,-411 367.63,-495.2 372.35,-1312.92 373.75,-1459.55"/>
+<polygon fill="#000000" stroke="#000000" points="370.26,-1459.99 373.86,-1469.96 377.26,-1459.92 370.26,-1459.99"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~whm_drift -->
 <g id="module~~whm_classes~~UsedByGraph_node9" class="node">
-<title>module~s_whm_gr</title>
-<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>
+<title>module~whm_drift</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node9"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="544,-360 485,-360 485,-336 544,-336 544,-360"/>
+<text text-anchor="middle" x="514.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- module~whm_drift&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge9" class="edge">
+<title>module~whm_drift&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M484.84,-352.03C469.57,-355.08 450.92,-360.28 436,-369 402.08,-388.83 399.32,-401.96 374,-432"/>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<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.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"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge48" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.72,-347.94C467.83,-349.57 447.58,-354.7 436,-369 400.38,-412.96 378.09,-1305.69 374.51,-1459.52"/>
+<polygon fill="#000000" stroke="#000000" points="371.01,-1459.58 374.28,-1469.66 378.01,-1459.74 371.01,-1459.58"/>
 </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,-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~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-2242C228.83,-2276.54 193.78,-2213.28 151.5,-2242"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge79" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-2242C253.92,-2253.54 211.43,-2234.59 181.79,-2219.04"/>
+<polygon fill="#000000" stroke="#000000" points="183.14,-2215.79 172.67,-2214.15 179.83,-2221.96 183.14,-2215.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.26,-1494.22C365.51,-1587.82 326.41,-2188.91 268.5,-2242"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge20" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-2242C246.38,-2260.45 219.3,-2274.49 196.48,-2284.13"/>
+<polygon fill="#000000" stroke="#000000" points="194.93,-2280.98 186.99,-2287.99 197.57,-2287.47 194.93,-2280.98"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_node66" class="node">
+<g id="module~~whm_classes~~UsedByGraph_node32" 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>
+<g id="a_module~~whm_classes~~UsedByGraph_node32"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="310,-2370 225,-2370 225,-2346 310,-2346 310,-2370"/>
+<text text-anchor="middle" x="267.5" y="-2355.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~~whm_classes~~UsedByGraph_edge87" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge96" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.53,-1494.21C368.16,-1580.72 346.52,-2102.22 310,-2256 303.12,-2284.96 289.26,-2316.42 279.45,-2336.63"/>
+<polygon fill="#000000" stroke="#000000" points="276.19,-2335.33 274.88,-2345.84 282.46,-2338.44 276.19,-2335.33"/>
 </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"/>
+<!-- module~s_whm_kick -->
+<g id="module~~whm_classes~~UsedByGraph_node11" class="node">
+<title>module~s_whm_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-318 479.5,-318 479.5,-294 549.5,-294 549.5,-318"/>
+<text text-anchor="middle" x="514.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+</a>
 </g>
-<!-- module~s_setup -->
+</g>
+<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M372,-432C114.15,-737.89 415.5,-1893.22 189,-2223 178.42,-2238.4 166.93,-2231.46 151.5,-2242"/>
+<path fill="none" stroke="#000000" d="M149.5,-2242C131.25,-2254.3 107.16,-2255.57 86.14,-2253.23"/>
+<polygon fill="#000000" stroke="#000000" points="86.49,-2249.75 76.1,-2251.83 85.52,-2256.68 86.49,-2249.75"/>
+<path fill="none" stroke="#000000" d="M479.31,-309.48C464.81,-312.34 448.42,-317.54 436,-327 392.89,-359.84 408.84,-390.49 374,-432"/>
+</g>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.23,-306.58C463.62,-308.75 446.34,-314.21 436,-327 399.01,-372.75 377.78,-1302.91 374.46,-1459.67"/>
+<polygon fill="#000000" stroke="#000000" points="370.96,-1459.88 374.24,-1469.95 377.95,-1460.03 370.96,-1459.88"/>
+</g>
+<!-- module~s_symba_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node12" class="node">
-<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_setup</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2712 475,-2712 475,-2688 554,-2688 554,-2712"/>
+<text text-anchor="middle" x="514.5" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge18" class="edge">
-<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"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.82,-2698.74C460.44,-2696.18 445.37,-2690.61 436,-2679 416.82,-2655.23 380.65,-1667.58 374.81,-1504.65"/>
+<polygon fill="#000000" stroke="#000000" points="378.29,-1504.23 374.44,-1494.37 371.3,-1504.48 378.29,-1504.23"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge97" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M474.73,-2696.5C461.19,-2693.59 446.71,-2688.36 436,-2679 382.61,-2632.34 435.78,-2566.79 374,-2532"/>
+</g>
+<!-- module~s_util_exit -->
 <g id="module~~whm_classes~~UsedByGraph_node13" class="node">
-<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>
+<title>module~s_util_exit</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="544.5,-2208 484.5,-2208 484.5,-2184 544.5,-2184 544.5,-2208"/>
+<text text-anchor="middle" x="514.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge19" class="edge">
-<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"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.12,-2195.84C467.45,-2194.09 447.64,-2188.89 436,-2175 391.92,-2122.42 377.25,-1617.34 374.5,-1504.35"/>
+<polygon fill="#000000" stroke="#000000" points="378,-1504.04 374.26,-1494.13 371,-1504.21 378,-1504.04"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- proc~ge_wpp -->
 <g id="module~~whm_classes~~UsedByGraph_node14" class="node">
-<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>
+<title>proc~ge_wpp</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node14"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="541.5,-2166 487.5,-2166 487.5,-2142 541.5,-2142 541.5,-2166"/>
+<text text-anchor="middle" x="514.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge20" class="edge">
-<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_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"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge29" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.19,-2154.1C469.95,-2152.66 448.4,-2147.71 436,-2133 394.6,-2083.91 377.95,-1613.13 374.64,-1504.35"/>
+<polygon fill="#000000" stroke="#000000" points="378.13,-1504.09 374.34,-1494.2 371.14,-1504.3 378.13,-1504.09"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_symba_drift -->
 <g id="module~~whm_classes~~UsedByGraph_node15" class="node">
-<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>
+<title>module~s_symba_drift</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2670 475,-2670 475,-2646 554,-2646 554,-2670"/>
+<text text-anchor="middle" x="514.5" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge21" class="edge">
-<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"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.83,-2656.73C460.46,-2654.17 445.38,-2648.6 436,-2637 417.49,-2614.1 380.83,-1663.05 374.84,-1504.34"/>
+<polygon fill="#000000" stroke="#000000" points="378.33,-1504.17 374.46,-1494.31 371.34,-1504.44 378.33,-1504.17"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge98" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M474.99,-2653.61C461.63,-2650.6 447.2,-2645.53 436,-2637 392.89,-2604.16 421.22,-2558.59 374,-2532"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_netcdf -->
 <g id="module~~whm_classes~~UsedByGraph_node16" class="node">
-<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>
+<title>module~s_netcdf</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_netcdf.html" xlink:title="s_netcdf">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-2124 487.5,-2124 487.5,-2100 541.5,-2100 541.5,-2124"/>
+<text text-anchor="middle" x="514.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_netcdf</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge22" class="edge">
-<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_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"/>
+<!-- module~s_netcdf&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_netcdf&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.22,-2112.08C470,-2110.62 448.45,-2105.67 436,-2091 397.26,-2045.37 378.69,-1608.4 374.79,-1504.22"/>
+<polygon fill="#000000" stroke="#000000" points="378.29,-1504.06 374.42,-1494.19 371.29,-1504.31 378.29,-1504.06"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_helio_setup -->
 <g id="module~~whm_classes~~UsedByGraph_node17" class="node">
-<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>
+<title>module~s_helio_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_helio_setup.html" xlink:title="s_helio_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2880 475,-2880 475,-2856 554,-2856 554,-2880"/>
+<text text-anchor="middle" x="514.5" y="-2865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge23" 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.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"/>
+<!-- module~s_helio_setup&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M474.73,-2858C462.31,-2854.66 448.54,-2850.82 436,-2847 408.17,-2838.52 401.18,-2836.39 374,-2826"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_helio_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_helio_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.78,-2866.77C460.4,-2864.22 445.33,-2858.64 436,-2847 414.08,-2819.66 379.8,-1679.68 374.65,-1504.49"/>
+<polygon fill="#000000" stroke="#000000" points="378.15,-1504.27 374.36,-1494.37 371.15,-1504.47 378.15,-1504.27"/>
+</g>
+<!-- module~s_util_solve -->
 <g id="module~~whm_classes~~UsedByGraph_node18" class="node">
-<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>
+<title>module~s_util_solve</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="548.5,-2082 480.5,-2082 480.5,-2058 548.5,-2058 548.5,-2082"/>
+<text text-anchor="middle" x="514.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
-<g id="module~~whm_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="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"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.33,-2069.28C464.58,-2067.12 446.87,-2061.71 436,-2049 399.94,-2006.84 379.5,-1603.95 374.97,-1504.24"/>
+<polygon fill="#000000" stroke="#000000" points="378.46,-1503.93 374.51,-1494.1 371.46,-1504.24 378.46,-1503.93"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_rmvs_step -->
 <g id="module~~whm_classes~~UsedByGraph_node19" class="node">
-<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>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-276 478,-276 478,-252 551,-252 551,-276"/>
+<text text-anchor="middle" x="514.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge25" class="edge">
-<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"/>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M477.81,-259.5C463.87,-256.47 448.31,-251.42 436,-243 397.7,-216.81 420.28,-155.58 374,-159"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.63,-264.8C462.44,-267.12 445.98,-272.63 436,-285 397.64,-332.54 377.48,-1300.35 374.41,-1459.84"/>
+<polygon fill="#000000" stroke="#000000" points="370.91,-1459.84 374.22,-1469.9 377.91,-1459.97 370.91,-1459.84"/>
+</g>
+<!-- module~s_io -->
 <g id="module~~whm_classes~~UsedByGraph_node20" class="node">
-<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>
+<title>module~s_io</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-2040 487.5,-2040 487.5,-2016 541.5,-2016 541.5,-2040"/>
+<text text-anchor="middle" x="514.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge26" class="edge">
-<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_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"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.29,-2028.01C470.11,-2026.53 448.57,-2021.57 436,-2007 402.62,-1968.31 380.4,-1599.69 375.18,-1504.4"/>
+<polygon fill="#000000" stroke="#000000" points="378.68,-1504.2 374.64,-1494.4 371.69,-1504.57 378.68,-1504.2"/>
 </g>
-<!-- module~s_util_rescale -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~whm_classes~~UsedByGraph_node21" class="node">
-<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>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-234 479.5,-234 479.5,-210 549.5,-210 549.5,-234"/>
+<text text-anchor="middle" x="514.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge27" class="edge">
-<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"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M479.46,-215.35C465.62,-211.99 449.68,-207.28 436,-201 405.75,-187.12 407.19,-156.55 374,-159"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.21,-222.56C463.59,-224.73 446.32,-230.19 436,-243 396.29,-292.29 377.23,-1296.06 374.38,-1459.57"/>
+<polygon fill="#000000" stroke="#000000" points="370.87,-1459.81 374.2,-1469.87 377.87,-1459.93 370.87,-1459.81"/>
+</g>
+<!-- module~s_helio_step -->
 <g id="module~~whm_classes~~UsedByGraph_node22" class="node">
-<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>
+<title>module~s_helio_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-2838 478,-2838 478,-2814 551,-2814 551,-2838"/>
+<text text-anchor="middle" x="514.5" y="-2823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge28" class="edge">
-<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"/>
+<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M477.84,-2832.83C448.87,-2836.8 407.48,-2838.8 374,-2826"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.6,-2825.22C462.41,-2822.91 445.95,-2817.39 436,-2805 414.77,-2778.56 380.01,-1676.99 374.69,-1504.59"/>
+<polygon fill="#000000" stroke="#000000" points="378.18,-1504.29 374.38,-1494.4 371.19,-1504.5 378.18,-1504.29"/>
+</g>
+<!-- module~orbel -->
 <g id="module~~whm_classes~~UsedByGraph_node23" class="node">
-<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>
+<title>module~orbel</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node23"><a xlink:href=".././module/orbel.html" xlink:title="orbel">
+<polygon fill="#337ab7" stroke="#337ab7" points="541.5,-1998 487.5,-1998 487.5,-1974 541.5,-1974 541.5,-1998"/>
+<text text-anchor="middle" x="514.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge29" class="edge">
-<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"/>
+<!-- module~orbel&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge38" class="edge">
+<title>module~orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.34,-1985.97C470.17,-1984.47 448.64,-1979.5 436,-1965 375,-1895.01 373.03,-1589.58 373.7,-1504.23"/>
+<polygon fill="#000000" stroke="#000000" points="377.21,-1504.14 373.81,-1494.1 370.21,-1504.07 377.21,-1504.14"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_symba_util -->
 <g id="module~~whm_classes~~UsedByGraph_node24" class="node">
-<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>
+<title>module~s_symba_util</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="552,-2628 477,-2628 477,-2604 552,-2604 552,-2628"/>
+<text text-anchor="middle" x="514.5" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge30" class="edge">
-<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"/>
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.85,-2615.06C461.89,-2612.67 445.83,-2607.13 436,-2595 400.38,-2551.04 378.09,-1658.31 374.51,-1504.48"/>
+<polygon fill="#000000" stroke="#000000" points="378.01,-1504.26 374.28,-1494.34 371.01,-1504.42 378.01,-1504.26"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge102" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M476.82,-2610.23C463.36,-2607.06 448.4,-2602.25 436,-2595 402.08,-2575.17 408.23,-2551.28 374,-2532"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_symba_collision -->
 <g id="module~~whm_classes~~UsedByGraph_node25" class="node">
-<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>
+<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,-2586 465,-2586 465,-2562 564,-2562 564,-2586"/>
+<text text-anchor="middle" x="514.5" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.75,-2570.38C453.75,-2567.22 443.21,-2561.87 436,-2553 401.75,-2510.81 378.41,-1655.16 374.56,-1504.54"/>
+<polygon fill="#000000" stroke="#000000" points="378.05,-1504.14 374.3,-1494.23 371.06,-1504.32 378.05,-1504.14"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge101" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M464.91,-2564.91C437.08,-2558.39 402.21,-2547.89 374,-2532"/>
+</g>
+<!-- module~s_helio_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node26" class="node">
-<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_gr</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2796 479.5,-2796 479.5,-2772 549.5,-2772 549.5,-2796"/>
+<text text-anchor="middle" x="514.5" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge32" class="edge">
-<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"/>
+<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M479.42,-2792.75C465.85,-2796.36 450.14,-2800.7 436,-2805 408.17,-2813.48 401.18,-2836.39 374,-2826"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_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="M479.2,-2783.45C463.58,-2781.28 446.31,-2775.82 436,-2763 415.43,-2737.43 380.14,-1671.86 374.71,-1504.12"/>
+<polygon fill="#000000" stroke="#000000" points="378.21,-1503.89 374.38,-1494.01 371.21,-1504.11 378.21,-1503.89"/>
+</g>
+<!-- module~s_symba_encounter_check -->
 <g id="module~~whm_classes~~UsedByGraph_node27" class="node">
-<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>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="586,-2544 443,-2544 443,-2520 586,-2520 586,-2544"/>
+<text text-anchor="middle" x="514.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge33" class="edge">
-<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"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.8,-2519.85C442.14,-2517.38 438.82,-2514.46 436,-2511 403.07,-2470.54 378.69,-1650.1 374.61,-1504.12"/>
+<polygon fill="#000000" stroke="#000000" points="378.1,-1504.01 374.33,-1494.11 371.11,-1504.2 378.1,-1504.01"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge100" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M459,-2544.04C431.83,-2547.16 399.43,-2546.32 374,-2532"/>
+</g>
+<!-- module~s_helio_gr -->
 <g id="module~~whm_classes~~UsedByGraph_node28" class="node">
-<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>
+<title>module~s_helio_gr</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545.5,-2754 483.5,-2754 483.5,-2730 545.5,-2730 545.5,-2754"/>
+<text text-anchor="middle" x="514.5" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge34" class="edge">
-<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"/>
+<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M483.35,-2746.34C468.37,-2749.42 450.44,-2754.56 436,-2763 402.08,-2782.83 413.18,-2823.11 374,-2826"/>
+<path fill="none" stroke="#000000" d="M372,-2826C261.11,-2834.18 175.08,-2423.2 155.64,-2322.19"/>
+<polygon fill="#000000" stroke="#000000" points="159.04,-2321.35 153.73,-2312.18 152.16,-2322.66 159.04,-2321.35"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge45" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.14,-2741.92C466.57,-2740.15 447.19,-2734.9 436,-2721 416.13,-2696.33 380.39,-1669.83 374.76,-1504.4"/>
+<polygon fill="#000000" stroke="#000000" points="378.24,-1503.88 374.4,-1494 371.25,-1504.12 378.24,-1503.88"/>
+</g>
+<!-- module~s_symba_step -->
 <g id="module~~whm_classes~~UsedByGraph_node29" class="node">
-<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>
+<title>module~s_symba_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="555.5,-2502 473.5,-2502 473.5,-2478 555.5,-2478 555.5,-2502"/>
+<text text-anchor="middle" x="514.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge35" class="edge">
-<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"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.27,-2488.38C459.4,-2485.7 445.08,-2480.12 436,-2469 404.46,-2430.35 379.08,-1648.1 374.68,-1504.53"/>
+<polygon fill="#000000" stroke="#000000" points="378.17,-1504.19 374.37,-1494.3 371.17,-1504.4 378.17,-1504.19"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge104" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M473.14,-2500.43C461.14,-2503.66 448,-2507.35 436,-2511 408.17,-2519.48 399.35,-2546.28 374,-2532"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_symba_discard -->
 <g id="module~~whm_classes~~UsedByGraph_node30" class="node">
-<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>
+<title>module~s_symba_discard</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="562.5,-2460 466.5,-2460 466.5,-2436 562.5,-2436 562.5,-2460"/>
+<text text-anchor="middle" x="514.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.41,-2444.79C454.83,-2441.69 443.59,-2436.28 436,-2427 375.74,-2353.36 373.76,-1640.18 373.94,-1504.3"/>
+<polygon fill="#000000" stroke="#000000" points="377.44,-1504.24 373.96,-1494.24 370.44,-1504.23 377.44,-1504.24"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge105" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M466.41,-2456.5C455.97,-2459.52 445.27,-2463.58 436,-2469 402.08,-2488.83 408.23,-2551.28 374,-2532"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~whm_classes~~UsedByGraph_node31" class="node">
-<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>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="558.5,-192 470.5,-192 470.5,-168 558.5,-168 558.5,-192"/>
+<text text-anchor="middle" x="514.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M470.33,-168.45C442.87,-162.36 406.49,-156.6 374,-159"/>
 </g>
-<!-- proc~ge_wpp -->
-<g id="module~~whm_classes~~UsedByGraph_node32" class="node">
-<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>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.35,-182.13C457.38,-185.01 444.39,-190.57 436,-201 394.91,-252.1 376.94,-1294 374.34,-1459.84"/>
+<polygon fill="#000000" stroke="#000000" points="370.84,-1459.81 374.18,-1469.86 377.84,-1459.92 370.84,-1459.81"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.35,-2345.75C250.63,-2321.28 223.97,-2265.45 189,-2228 186.42,-2225.23 183.49,-2222.59 180.44,-2220.12"/>
+<polygon fill="#000000" stroke="#000000" points="182.34,-2217.18 172.22,-2214.04 178.17,-2222.81 182.34,-2217.18"/>
 </g>
-<!-- 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"/>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge21" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M242.67,-2345.98C225.79,-2337.47 202.92,-2325.93 184.31,-2316.55"/>
+<polygon fill="#000000" stroke="#000000" points="185.8,-2313.38 175.3,-2312 182.65,-2319.63 185.8,-2313.38"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_rmvs_util -->
 <g id="module~~whm_classes~~UsedByGraph_node33" class="node">
-<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>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="548,-150 481,-150 481,-126 548,-126 548,-150"/>
+<text text-anchor="middle" x="514.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M480.96,-144.33C452.79,-149.46 410.88,-156.28 374,-159"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~whm_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="M480.78,-138.34C464.75,-140.35 446.65,-145.74 436,-159 393.56,-211.86 376.7,-1290.08 374.3,-1459.64"/>
+<polygon fill="#000000" stroke="#000000" points="370.8,-1459.82 374.16,-1469.87 377.8,-1459.92 370.8,-1459.82"/>
+</g>
+<!-- module~s_rmvs_io -->
 <g id="module~~whm_classes~~UsedByGraph_node34" class="node">
-<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>
+<title>module~s_rmvs_io</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_io.html" xlink:title="s_rmvs_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-108 484,-108 484,-84 545,-84 545,-108"/>
+<text text-anchor="middle" x="514.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge41" class="edge">
-<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"/>
+<!-- module~s_rmvs_io&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M484,-101.58C469.18,-104.98 451.21,-110.03 436,-117 405.75,-130.88 407.19,-156.55 374,-159"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_rmvs_io&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_rmvs_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.9,-95.98C467.14,-97.67 447.34,-102.86 436,-117 392.19,-171.64 376.44,-1287.41 374.27,-1459.73"/>
+<polygon fill="#000000" stroke="#000000" points="370.77,-1459.85 374.14,-1469.9 377.77,-1459.94 370.77,-1459.85"/>
+</g>
+<!-- module~s_fraggle_io -->
 <g id="module~~whm_classes~~UsedByGraph_node35" class="node">
-<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>
+<title>module~s_fraggle_io</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_fraggle_io.html" xlink:title="s_fraggle_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="550,-1956 479,-1956 479,-1932 550,-1932 550,-1956"/>
+<text text-anchor="middle" x="514.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_io</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_fraggle_io&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_fraggle_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.92,-1942.91C463.61,-1940.57 446.7,-1935.13 436,-1923 380.31,-1859.88 374.5,-1585.06 374.01,-1504.36"/>
+<polygon fill="#000000" stroke="#000000" points="377.51,-1504.29 373.97,-1494.3 370.51,-1504.31 377.51,-1504.29"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node36" class="node">
-<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>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="550,-66 479,-66 479,-42 550,-42 550,-66"/>
+<text text-anchor="middle" x="514.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M478.98,-58.25C464.75,-61.25 448.66,-66.34 436,-75 397.7,-101.19 420.28,-155.58 374,-159"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.78,-54.59C463.26,-56.79 446.19,-62.27 436,-75 413.4,-103.23 379.59,-1281.85 374.62,-1459.64"/>
+<polygon fill="#000000" stroke="#000000" points="371.12,-1459.58 374.34,-1469.67 378.12,-1459.78 371.12,-1459.58"/>
+</g>
+<!-- module~s_util_append -->
 <g id="module~~whm_classes~~UsedByGraph_node37" class="node">
-<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>
+<title>module~s_util_append</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-1914 475,-1914 475,-1890 554,-1890 554,-1914"/>
+<text text-anchor="middle" x="514.5" y="-1899.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 -->
-<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"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.61,-1900.08C460.55,-1897.4 445.76,-1891.91 436,-1881 385.63,-1824.74 376.13,-1580.59 374.38,-1504.64"/>
+<polygon fill="#000000" stroke="#000000" points="377.88,-1504.24 374.17,-1494.32 370.88,-1504.39 377.88,-1504.24"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_util_fill -->
 <g id="module~~whm_classes~~UsedByGraph_node38" class="node">
-<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>
+<title>module~s_util_fill</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1872 487.5,-1872 487.5,-1848 541.5,-1848 541.5,-1872"/>
+<text text-anchor="middle" x="514.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.17,-1859.76C470.16,-1858.14 448.86,-1853.12 436,-1839 390.84,-1789.45 377.9,-1574.95 374.83,-1504.51"/>
+<polygon fill="#000000" stroke="#000000" points="378.32,-1503.98 374.41,-1494.14 371.32,-1504.27 378.32,-1503.98"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_fraggle_placeholder -->
 <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>
+<title>module~s_fraggle_placeholder</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_fraggle_placeholder.html" xlink:title="s_fraggle_placeholder">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="573.5,-1830 455.5,-1830 455.5,-1806 573.5,-1806 573.5,-1830"/>
+<text text-anchor="middle" x="514.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_placeholder</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_placeholder&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_fraggle_placeholder&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.25,-1810.03C448.03,-1806.93 441.32,-1802.71 436,-1797 396.03,-1754.11 379.88,-1569 375.4,-1504.37"/>
+<polygon fill="#000000" stroke="#000000" points="378.87,-1503.83 374.71,-1494.09 371.88,-1504.3 378.87,-1503.83"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~whm_classes~~UsedByGraph_node40" class="node">
-<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>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-24 475,-24 475,0 554,0 554,-24"/>
+<text text-anchor="middle" x="514.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M474.62,-15.93C461.22,-18.89 446.87,-24.05 436,-33 387.83,-72.68 436.24,-154.41 374,-159"/>
+<path fill="none" stroke="#000000" d="M372,-159C158.36,-174.77 151.51,-1959.53 151.47,-2179.79"/>
+<polygon fill="#000000" stroke="#000000" points="147.97,-2179.84 151.48,-2189.84 154.97,-2179.84 147.97,-2179.84"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.77,-13.22C460.38,-15.77 445.31,-21.35 436,-33 412.72,-62.12 379.43,-1278.39 374.59,-1459.54"/>
+<polygon fill="#000000" stroke="#000000" points="371.09,-1459.65 374.32,-1469.74 378.09,-1459.84 371.09,-1459.65"/>
+</g>
+<!-- module~s_tides_step_spin -->
 <g id="module~~whm_classes~~UsedByGraph_node41" class="node">
-<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>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="563.5,-1788 465.5,-1788 465.5,-1764 563.5,-1764 563.5,-1788"/>
+<text text-anchor="middle" x="514.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.33,-1771.4C454.45,-1768.24 443.82,-1763.15 436,-1755 401.15,-1718.68 382.1,-1562.39 376.1,-1504.06"/>
+<polygon fill="#000000" stroke="#000000" points="379.58,-1503.67 375.11,-1494.06 372.62,-1504.36 379.58,-1503.67"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_obl -->
 <g id="module~~whm_classes~~UsedByGraph_node42" class="node">
-<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>
+<title>module~s_obl</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1746 487.5,-1746 487.5,-1722 541.5,-1722 541.5,-1746"/>
+<text text-anchor="middle" x="514.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.2,-1733.33C470.43,-1731.51 449.39,-1726.42 436,-1713 378.29,-1655.15 372.67,-1549.75 373.15,-1504.08"/>
+<polygon fill="#000000" stroke="#000000" points="376.65,-1504.14 373.37,-1494.06 369.66,-1503.98 376.65,-1504.14"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_discard -->
 <g id="module~~whm_classes~~UsedByGraph_node43" class="node">
-<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>
+<title>module~s_discard</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="543.5,-1704 485.5,-1704 485.5,-1680 543.5,-1680 543.5,-1704"/>
+<text text-anchor="middle" x="514.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.21,-1690.81C468.93,-1688.69 449.15,-1683.47 436,-1671 388.48,-1625.9 377.34,-1543.85 374.76,-1504.38"/>
+<polygon fill="#000000" stroke="#000000" points="378.25,-1504.03 374.23,-1494.23 371.26,-1504.4 378.25,-1504.03"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_util_resize -->
 <g id="module~~whm_classes~~UsedByGraph_node44" class="node">
-<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>
+<title>module~s_util_resize</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="550.5,-1662 478.5,-1662 478.5,-1638 550.5,-1638 550.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_resize</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.29,-1647.22C463.77,-1644.48 447.65,-1639.18 436,-1629 398.5,-1596.23 383.09,-1536.98 377.24,-1504.61"/>
+<polygon fill="#000000" stroke="#000000" points="380.63,-1503.66 375.55,-1494.37 373.73,-1504.8 380.63,-1503.66"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~drift_implementation -->
 <g id="module~~whm_classes~~UsedByGraph_node45" class="node">
-<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>
+<title>module~drift_implementation</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node45"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="569,-1620 460,-1620 460,-1596 569,-1596 569,-1620"/>
+<text text-anchor="middle" x="514.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge53" class="edge">
-<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_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"/>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge62" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.68,-1599.26C451.23,-1596.3 442.99,-1592.32 436,-1587 407.98,-1565.66 390.19,-1527.7 381.17,-1503.75"/>
+<polygon fill="#000000" stroke="#000000" points="384.4,-1502.37 377.74,-1494.13 377.81,-1504.73 384.4,-1502.37"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_fraggle_generate -->
 <g id="module~~whm_classes~~UsedByGraph_node46" class="node">
-<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>
+<title>module~s_fraggle_generate</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_fraggle_generate.html" xlink:title="s_fraggle_generate">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="567.5,-1578 461.5,-1578 461.5,-1554 567.5,-1554 567.5,-1578"/>
+<text text-anchor="middle" x="514.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_generate</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge54" class="edge">
-<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_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"/>
+<!-- module~s_fraggle_generate&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_fraggle_generate&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.11,-1555.88C452.4,-1553.07 443.7,-1549.5 436,-1545 417.35,-1534.1 400.46,-1516.13 389.04,-1502.17"/>
+<polygon fill="#000000" stroke="#000000" points="391.61,-1499.78 382.66,-1494.1 386.11,-1504.11 391.61,-1499.78"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~s_operator_cross -->
 <g id="module~~whm_classes~~UsedByGraph_node47" class="node">
-<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>
+<title>module~s_operator_cross</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="562.5,-1536 466.5,-1536 466.5,-1512 562.5,-1512 562.5,-1536"/>
+<text text-anchor="middle" x="514.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge55" class="edge">
-<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"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.06,-1511.92C456.79,-1509.11 446,-1506.05 436,-1503 427.48,-1500.41 418.37,-1497.43 409.83,-1494.56"/>
+<polygon fill="#000000" stroke="#000000" points="410.72,-1491.16 400.13,-1491.25 408.47,-1497.79 410.72,-1491.16"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_symba_setup -->
 <g id="module~~whm_classes~~UsedByGraph_node48" class="node">
-<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>
+<title>module~s_symba_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="558.5,-2418 470.5,-2418 470.5,-2394 558.5,-2394 558.5,-2418"/>
+<text text-anchor="middle" x="514.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </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"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.47,-2403.77C457.51,-2400.88 444.49,-2395.34 436,-2385 378.42,-2314.85 374.27,-1635.96 374.01,-1504.12"/>
+<polygon fill="#000000" stroke="#000000" points="377.51,-1504.01 374,-1494.01 370.51,-1504.02 377.51,-1504.01"/>
 </g>
-<!-- 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"/>
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge103" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M470.19,-2411.55C458.24,-2414.65 445.87,-2419.48 436,-2427 392.89,-2459.84 421.22,-2558.59 374,-2532"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- proc~solve_wbs -->
 <g id="module~~whm_classes~~UsedByGraph_node49" class="node">
-<title>module~s_symba_io</title>
-<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>
+<title>proc~solve_wbs</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node49"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="545.5,-1494 483.5,-1494 483.5,-1470 545.5,-1470 545.5,-1494"/>
+<text text-anchor="middle" x="514.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<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.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_edge88" class="edge">
-<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<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"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge66" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.23,-1482C461.92,-1482 433.29,-1482 410.68,-1482"/>
+<polygon fill="#000000" stroke="#000000" points="410.45,-1478.5 400.45,-1482 410.45,-1485.5 410.45,-1478.5"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_fraggle_setup -->
 <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>
+<title>module~s_fraggle_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_fraggle_setup.html" xlink:title="s_fraggle_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="559,-1452 470,-1452 470,-1428 559,-1428 559,-1452"/>
+<text text-anchor="middle" x="514.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_setup</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"/>
+<!-- module~s_fraggle_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_fraggle_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M469.92,-1451.3C458.82,-1454.32 446.94,-1457.67 436,-1461 427.48,-1463.59 418.37,-1466.57 409.83,-1469.44"/>
+<polygon fill="#000000" stroke="#000000" points="408.47,-1466.21 400.13,-1472.75 410.72,-1472.84 408.47,-1466.21"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_util_sort -->
 <g id="module~~whm_classes~~UsedByGraph_node51" class="node">
-<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>
+<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,-1410 484,-1410 484,-1386 545,-1386 545,-1410"/>
+<text text-anchor="middle" x="514.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge93" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.72,-1402.26C468.67,-1405.33 450.56,-1410.49 436,-1419 417.35,-1429.9 400.46,-1447.87 389.04,-1461.83"/>
+<polygon fill="#000000" stroke="#000000" points="386.11,-1459.89 382.66,-1469.9 391.61,-1464.22 386.11,-1459.89"/>
 </g>
-<!-- module~s_obl -->
+<!-- program~swiftest_driver -->
 <g id="module~~whm_classes~~UsedByGraph_node52" class="node">
-<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>
+<title>program~swiftest_driver</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node52"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="555,-1368 474,-1368 474,-1344 555,-1344 555,-1368"/>
+<text text-anchor="middle" x="514.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge68" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.79,-1360.66C460.77,-1363.7 446.87,-1368.72 436,-1377 407.98,-1398.34 390.19,-1436.3 381.17,-1460.25"/>
+<polygon fill="#000000" stroke="#000000" points="377.81,-1459.27 377.74,-1469.87 384.4,-1461.63 377.81,-1459.27"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_gr -->
 <g id="module~~whm_classes~~UsedByGraph_node53" class="node">
-<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>
+<title>module~s_gr</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<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_gr</text>
 </a>
 </g>
 </g>
-<!-- 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>
-<!-- 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"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.42,-1315.34C470.95,-1317.45 450.17,-1322.62 436,-1335 398.5,-1367.77 383.09,-1427.02 377.24,-1459.39"/>
+<polygon fill="#000000" stroke="#000000" points="373.73,-1459.2 375.55,-1469.63 380.63,-1460.34 373.73,-1459.2"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~whm_classes~~UsedByGraph_node54" class="node">
-<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>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="570.5,-1284 458.5,-1284 458.5,-1260 570.5,-1260 570.5,-1284"/>
+<text text-anchor="middle" x="514.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_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"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge70" 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,-1279.65C450.05,-1282.75 442.27,-1287.05 436,-1293 388.48,-1338.1 377.34,-1420.15 374.76,-1459.62"/>
+<polygon fill="#000000" stroke="#000000" points="371.26,-1459.6 374.23,-1469.77 378.25,-1459.97 371.26,-1459.6"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_rescale -->
 <g id="module~~whm_classes~~UsedByGraph_node55" class="node">
-<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>
+<title>module~s_util_rescale</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="553.5,-1242 475.5,-1242 475.5,-1218 553.5,-1218 553.5,-1242"/>
+<text text-anchor="middle" x="514.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.21,-1232.48C461.23,-1235.24 446.34,-1240.64 436,-1251 378.29,-1308.85 372.67,-1414.25 373.15,-1459.92"/>
+<polygon fill="#000000" stroke="#000000" points="369.66,-1460.02 373.37,-1469.94 376.65,-1459.86 369.66,-1460.02"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~whm_classes~~UsedByGraph_node56" class="node">
-<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>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="593,-1200 436,-1200 436,-1176 593,-1176 593,-1200"/>
+<text text-anchor="middle" x="514.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.5,-1200.06C443.28,-1202.53 439.38,-1205.48 436,-1209 401.15,-1245.32 382.1,-1401.61 376.1,-1459.94"/>
+<polygon fill="#000000" stroke="#000000" points="372.62,-1459.64 375.11,-1469.94 379.58,-1460.33 372.62,-1459.64"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node57" class="node">
-<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>
+<title>module~s_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1158 487.5,-1158 487.5,-1134 541.5,-1134 541.5,-1158"/>
+<text text-anchor="middle" x="514.5" y="-1143.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~~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"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.27,-1146.34C470.3,-1148 449.02,-1153.03 436,-1167 396.03,-1209.89 379.88,-1395 375.4,-1459.63"/>
+<polygon fill="#000000" stroke="#000000" points="371.88,-1459.7 374.71,-1469.91 378.87,-1460.17 371.88,-1459.7"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_util_index -->
 <g id="module~~whm_classes~~UsedByGraph_node58" class="node">
-<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>
+<title>module~s_util_index</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_index.html" xlink:title="s_util_index">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549,-1116 480,-1116 480,-1092 549,-1092 549,-1116"/>
+<text text-anchor="middle" x="514.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_index</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- module~s_util_index&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_util_index&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.88,-1105.13C464.41,-1107.43 447.08,-1112.84 436,-1125 390.84,-1174.55 377.9,-1389.05 374.83,-1459.49"/>
+<polygon fill="#000000" stroke="#000000" points="371.32,-1459.73 374.41,-1469.86 378.32,-1460.02 371.32,-1459.73"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_valid -->
 <g id="module~~whm_classes~~UsedByGraph_node59" class="node">
-<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>
+<title>module~s_util_valid</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="547,-1074 482,-1074 482,-1050 547,-1050 547,-1074"/>
+<text text-anchor="middle" x="514.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.74,-1062.77C465.77,-1064.88 447.44,-1070.22 436,-1083 385.63,-1139.26 376.13,-1383.41 374.38,-1459.36"/>
+<polygon fill="#000000" stroke="#000000" points="370.88,-1459.61 374.17,-1469.68 377.88,-1459.76 370.88,-1459.61"/>
+</g>
+<!-- module~s_util_coord -->
+<g id="module~~whm_classes~~UsedByGraph_node60" class="node">
+<title>module~s_util_coord</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-1032 479.5,-1032 479.5,-1008 549.5,-1008 549.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_coord</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.31,-1021.03C463.91,-1023.33 446.79,-1028.77 436,-1041 380.31,-1104.12 374.5,-1378.94 374.01,-1459.64"/>
+<polygon fill="#000000" stroke="#000000" points="370.51,-1459.69 373.97,-1469.7 377.51,-1459.71 370.51,-1459.69"/>
+</g>
+<!-- module~s_helio_drift -->
+<g id="module~~whm_classes~~UsedByGraph_node61" class="node">
+<title>module~s_helio_drift</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<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_drift</text>
+</a>
 </g>
-<!-- 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_helio_drift&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M479.44,-2319.93C414.47,-2315.98 272.72,-2307.37 198.67,-2302.87"/>
+<polygon fill="#000000" stroke="#000000" points="198.88,-2299.37 188.69,-2302.26 198.46,-2306.36 198.88,-2299.37"/>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.36,-2321.32C463.77,-2319.13 446.48,-2313.68 436,-2301 383.85,-2237.92 375.37,-1629.29 374.18,-1504.35"/>
+<polygon fill="#000000" stroke="#000000" points="377.68,-1504.06 374.09,-1494.09 370.68,-1504.12 377.68,-1504.06"/>
+</g>
+<!-- module~s_util_set -->
+<g id="module~~whm_classes~~UsedByGraph_node62" class="node">
+<title>module~s_util_set</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="543.5,-990 485.5,-990 485.5,-966 543.5,-966 543.5,-990"/>
+<text text-anchor="middle" x="514.5" y="-975.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 -->
+<g id="module~~whm_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.46,-978.21C468.62,-979.9 448.18,-985.02 436,-999 375,-1068.99 373.03,-1374.42 373.7,-1459.77"/>
+<polygon fill="#000000" stroke="#000000" points="370.21,-1459.93 373.81,-1469.9 377.21,-1459.86 370.21,-1459.93"/>
 </g>
 <!-- module~s_util_peri -->
-<g id="module~~whm_classes~~UsedByGraph_node60" class="node">
+<g id="module~~whm_classes~~UsedByGraph_node63" class="node">
 <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>
+<g id="a_module~~whm_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-948 484,-948 484,-924 545,-924 545,-948"/>
+<text text-anchor="middle" x="514.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_peri&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge71" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge80" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.88,-936.32C467.33,-938.16 447.75,-943.38 436,-957 402.62,-995.69 380.4,-1364.31 375.18,-1459.6"/>
+<polygon fill="#000000" stroke="#000000" points="371.69,-1459.43 374.64,-1469.6 378.68,-1459.8 371.69,-1459.43"/>
 </g>
-<!-- module~s_rmvs_setup -->
-<g id="module~~whm_classes~~UsedByGraph_node61" class="node">
-<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>
+<!-- module~s_util_minimize_bfgs -->
+<g id="module~~whm_classes~~UsedByGraph_node64" class="node">
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="570.5,-906 458.5,-906 458.5,-882 570.5,-882 570.5,-906"/>
+<text text-anchor="middle" x="514.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_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"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.29,-900.13C449.78,-903.37 441.89,-908.11 436,-915 399.94,-957.16 379.5,-1360.05 374.97,-1459.76"/>
+<polygon fill="#000000" stroke="#000000" points="371.46,-1459.76 374.51,-1469.9 378.46,-1460.07 371.46,-1459.76"/>
 </g>
-<!-- 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"/>
+<!-- module~s_util_spill -->
+<g id="module~~whm_classes~~UsedByGraph_node65" class="node">
+<title>module~s_util_spill</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-864 484,-864 484,-840 545,-840 545,-864"/>
+<text text-anchor="middle" x="514.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+</a>
 </g>
-<!-- module~s_discard -->
-<g id="module~~whm_classes~~UsedByGraph_node62" class="node">
-<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>
+</g>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge85" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.8,-852.25C467.23,-854.07 447.64,-859.29 436,-873 397.26,-918.63 378.69,-1355.6 374.79,-1459.78"/>
+<polygon fill="#000000" stroke="#000000" points="371.29,-1459.69 374.42,-1469.81 378.29,-1459.94 371.29,-1459.69"/>
+</g>
+<!-- module~s_util_copy -->
+<g id="module~~whm_classes~~UsedByGraph_node66" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="547.5,-822 481.5,-822 481.5,-798 547.5,-798 547.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_copy</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge87" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.43,-810.5C465.38,-812.53 447.05,-817.89 436,-831 394.6,-880.09 377.95,-1350.87 374.64,-1459.65"/>
+<polygon fill="#000000" stroke="#000000" points="371.14,-1459.7 374.34,-1469.8 378.13,-1459.91 371.14,-1459.7"/>
 </g>
-<!-- module~s_symba_step -->
-<g id="module~~whm_classes~~UsedByGraph_node63" class="node">
-<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>
+<!-- module~s_orbel -->
+<g id="module~~whm_classes~~UsedByGraph_node67" class="node">
+<title>module~s_orbel</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node67"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-780 487.5,-780 487.5,-756 541.5,-756 541.5,-780"/>
+<text text-anchor="middle" x="514.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge75" class="edge">
-<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"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge88" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.16,-767.88C469.91,-769.31 448.36,-774.26 436,-789 391.92,-841.58 377.25,-1346.66 374.5,-1459.65"/>
+<polygon fill="#000000" stroke="#000000" points="371,-1459.79 374.26,-1469.87 378,-1459.96 371,-1459.79"/>
 </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.43,-1948.2C460.37,-1951.2 446.54,-1956.31 436,-1965 387.83,-2004.68 421.08,-2131.98 374,-2091"/>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~whm_classes~~UsedByGraph_node68" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node68"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="571.5,-738 457.5,-738 457.5,-714 571.5,-714 571.5,-738"/>
+<text text-anchor="middle" x="514.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+</a>
 </g>
-<!-- module~s_helio_step -->
-<g id="module~~whm_classes~~UsedByGraph_node64" class="node">
-<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>
+</g>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge89" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.36,-732.31C449.18,-735.56 441.63,-740.26 436,-747 389.27,-803.03 376.6,-1341.85 374.39,-1459.42"/>
+<polygon fill="#000000" stroke="#000000" points="370.88,-1459.67 374.2,-1469.73 377.88,-1459.79 370.88,-1459.67"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~whm_classes~~UsedByGraph_node69" class="node">
+<title>module~s_symba_io</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node69"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<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_symba_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge90" class="edge">
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.34,-2363.34C463.74,-2361.15 446.46,-2355.7 436,-2343 381.14,-2276.4 374.81,-1632.83 374.09,-1504.28"/>
+<polygon fill="#000000" stroke="#000000" points="377.59,-1504.06 374.04,-1494.08 370.59,-1504.09 377.59,-1504.06"/>
+</g>
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge99" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M372,-2532C313.77,-2499.21 284.95,-2419.15 273.97,-2380.12"/>
+<polygon fill="#000000" stroke="#000000" points="277.3,-2379.03 271.33,-2370.27 270.54,-2380.84 277.3,-2379.03"/>
+<path fill="none" stroke="#000000" d="M479.46,-2366.56C464.64,-2369.24 447.97,-2374.54 436,-2385 382.61,-2431.66 435.78,-2566.79 374,-2532"/>
+</g>
+<!-- module~s_fraggle_regime -->
+<g id="module~~whm_classes~~UsedByGraph_node70" class="node">
+<title>module~s_fraggle_regime</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node70"><a xlink:href=".././module/s_fraggle_regime.html" xlink:title="s_fraggle_regime">
+<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_fraggle_regime</text>
+</a>
+</g>
+</g>
+<!-- module~s_fraggle_regime&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge91" class="edge">
+<title>module~s_fraggle_regime&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.49,-687.28C454.92,-690.38 443.66,-695.78 436,-705 386.54,-764.57 375.96,-1338.65 374.27,-1459.67"/>
+<polygon fill="#000000" stroke="#000000" points="370.77,-1459.89 374.14,-1469.94 377.77,-1459.99 370.77,-1459.89"/>
+</g>
+<!-- module~s_setup -->
+<g id="module~~whm_classes~~UsedByGraph_node71" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node71"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-654 487.5,-654 487.5,-630 541.5,-630 541.5,-654"/>
+<text text-anchor="middle" x="514.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~s_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge92" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.47,-641.79C470.13,-643.16 448.35,-648.07 436,-663 383.85,-726.08 375.37,-1334.71 374.18,-1459.65"/>
+<polygon fill="#000000" stroke="#000000" points="370.68,-1459.88 374.09,-1469.91 377.68,-1459.94 370.68,-1459.88"/>
+</g>
+<!-- module~s_fraggle_set -->
+<g id="module~~whm_classes~~UsedByGraph_node72" class="node">
+<title>module~s_fraggle_set</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node72"><a xlink:href=".././module/s_fraggle_set.html" xlink:title="s_fraggle_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="553,-612 476,-612 476,-588 553,-588 553,-612"/>
+<text text-anchor="middle" x="514.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_set</text>
+</a>
+</g>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_set&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge83" class="edge">
+<title>module~s_fraggle_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.74,-601.22C461.14,-603.72 445.66,-609.27 436,-621 381.14,-687.6 374.81,-1331.17 374.09,-1459.72"/>
+<polygon fill="#000000" stroke="#000000" points="370.59,-1459.91 374.04,-1469.92 377.59,-1459.94 370.59,-1459.91"/>
 </g>
-<!-- module~s_util_exit -->
-<g id="module~~whm_classes~~UsedByGraph_node65" class="node">
-<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>
+<!-- module~s_util_version -->
+<g id="module~~whm_classes~~UsedByGraph_node73" class="node">
+<title>module~s_util_version</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node73"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="553.5,-570 475.5,-570 475.5,-546 553.5,-546 553.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_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge77" class="edge">
-<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"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge94" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.32,-559.27C460.84,-561.81 445.55,-567.36 436,-579 378.42,-649.15 374.27,-1328.04 374.01,-1459.88"/>
+<polygon fill="#000000" stroke="#000000" points="370.51,-1459.98 374,-1469.99 377.51,-1459.99 370.51,-1459.98"/>
+</g>
+<!-- module~s_fraggle_util -->
+<g id="module~~whm_classes~~UsedByGraph_node74" class="node">
+<title>module~s_fraggle_util</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node74"><a xlink:href=".././module/s_fraggle_util.html" xlink:title="s_fraggle_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="552.5,-528 476.5,-528 476.5,-504 552.5,-504 552.5,-528"/>
+<text text-anchor="middle" x="514.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fraggle_util</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- module~s_fraggle_util&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge95" class="edge">
+<title>module~s_fraggle_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.11,-517.12C461.39,-519.59 445.71,-525.13 436,-537 375.74,-610.64 373.76,-1323.82 373.94,-1459.7"/>
+<polygon fill="#000000" stroke="#000000" points="370.44,-1459.77 373.96,-1469.76 377.44,-1459.76 370.44,-1459.77"/>
 </g>
 </g>
 </svg>
@@ -1742,6 +1865,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/whm_classes.html#interface-whm_drift_pl">whm_drift_pl</a>
       
+      <a class="list-group-item" href="../module/whm_classes.html#interface-whm_util_index_eucl_plpl">whm_util_index_eucl_plpl</a>
+      
       <a class="list-group-item" href="../module/whm_classes.html#interface-whm_kick_getacch_pl">whm_kick_getacch_pl</a>
       
       <a class="list-group-item" href="../module/whm_classes.html#interface-whm_kick_getacch_tp">whm_kick_getacch_tp</a>
@@ -2164,6 +2289,81 @@ <h4>Arguments</h4>
     
     
 
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-whm_util_index_eucl_plpl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public subroutine whm_util_index_eucl_plpl(self, param)
+    
+    
+   
+</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/whm_pl.html'>whm_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>WHM massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(swiftest_parameters),</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>
@@ -4272,25 +4472,11 @@ <h4>Components</h4>
   
 <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -4627,18 +4813,33 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/whm_cb.html#boundprocedure-write_particle_info~7'>write_particle_info</a></strong>  => write_particle_info_netcdf </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_in'>read_in</a></strong>  => io_read_in_cb </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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</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>
       
+       <tr><td>generic, public :: <strong><a href='../type/whm_cb.html#boundprocedure-write_frame~8'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Write a frame (either binary or NetCDF, using generic procedures)</p></td></tr>
+      
        </tbody>
        </table>
      
@@ -4672,20 +4873,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -4716,11 +4903,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -4804,7 +4991,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -4818,7 +5005,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -5301,7 +5488,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/whm_pl.html#boundprocedure-write_particle_info~8'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-v2pv'>v2pv</a></strong>  => gr_vh2pv_body </td>
@@ -5310,13 +5509,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -5328,10 +5527,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-accel_user'>accel_user</a></strong>  => user_kick_getacch_body </td>
        <td><p>Add user-supplied heliocentric accelerations to planets</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/whm_pl.html#boundprocedure-write_frame~9'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-discard~3'>discard</a></strong>  => discard_pl </td>
        <td><p>Placeholder method for discarding massive bodies </p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-eucl_index'>eucl_index</a></strong>  => eucl_dist_index_plpl </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-index~2'>index</a></strong>  => util_index_eucl_plpl </td>
        <td><p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-accel_int~2'>accel_int</a></strong>  => kick_getacch_int_pl </td>
@@ -5349,6 +5551,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-b2h~2'>b2h</a></strong>  => util_coord_b2h_pl </td>
        <td><p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vh2vb~2'>vh2vb</a></strong>  => util_coord_vh2vb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-vb2vh~2'>vb2vh</a></strong>  => util_coord_vb2vh_pl </td>
+       <td><p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-xh2xb~2'>xh2xb</a></strong>  => util_coord_xh2xb_pl </td>
+       <td><p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_pl.html#boundprocedure-set_beg_end'>set_beg_end</a></strong>  => util_set_beg_end_pl </td>
        <td><p>Sets the beginning and ending positions and velocities of planets.</p></td></tr>
       
@@ -5443,20 +5654,6 @@ <h4>Components</h4>
   
   
   
-<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-lfirst"></span>logical,</td>
@@ -5487,11 +5684,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -5575,7 +5772,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -5589,7 +5786,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -5815,7 +6012,35 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -5832,7 +6057,19 @@ <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>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_base </td>
+       <td><p>Dump contents to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump_particle_info'>dump_particle_info</a></strong>  => io_dump_particle_info_base </td>
+       <td><p>Dump contents of particle information metadata to file</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a></strong>  => netcdf_write_frame_base </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a></strong>  => netcdf_write_particle_info_base </td>
+       <td><p>Writes out the particle information metadata to NetCDF file</p></td></tr>
+      
+       <tr><td>generic, public :: <strong><a href='../type/whm_tp.html#boundprocedure-write_particle_info~9'>write_particle_info</a></strong>  => write_particle_info_netcdf </td>
        <td></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-drift'>drift</a></strong>  => drift_body </td>
@@ -5844,13 +6081,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-pv2v'>pv2v</a></strong>  => gr_pv2vh_body </td>
        <td><p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-initialize~3'>initialize</a></strong>  => io_read_body_in </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_in~2'>read_in</a></strong>  => io_read_in_body </td>
        <td><p>Read in body initial conditions from a file</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-read_frame~3'>read_frame</a></strong>  => io_read_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame~3'>write_frame</a></strong>  => io_write_frame_body </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a></strong>  => io_write_frame_body </td>
        <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-el2xv'>el2xv</a></strong>  => orbel_el2xv_vec </td>
@@ -5865,6 +6102,9 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_body.html#boundprocedure-set_ir3'>set_ir3</a></strong>  => util_set_ir3h </td>
        <td><p>Sets the inverse heliocentric radius term (1/rh**3)</p></td></tr>
       
+       <tr><td>generic, public :: <strong><a href='../type/whm_tp.html#boundprocedure-write_frame~10'>write_frame</a></strong>  => write_frame_netcdf, write_frame_bin </td>
+       <td><p>Add the generic write frame for Fortran binary files</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-discard~4'>discard</a></strong>  => discard_tp </td>
        <td><p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p></td></tr>
       
@@ -5886,6 +6126,15 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-b2h'>b2h</a></strong>  => util_coord_b2h_tp </td>
        <td><p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vb2vh'>vb2vh</a></strong>  => util_coord_vb2vh_tp </td>
+       <td><p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-vh2vb'>vh2vb</a></strong>  => util_coord_vh2vb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-xh2xb'>xh2xb</a></strong>  => util_coord_xh2xb_tp </td>
+       <td><p>Convert test particles from heliocentric to barycentric coordinates (position only)</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_tp.html#boundprocedure-fill~4'>fill</a></strong>  => util_fill_tp </td>
        <td><p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p></td></tr>
       
@@ -5955,20 +6204,6 @@ <h4>Components</h4>
   
   
   
-<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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -6045,7 +6280,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -6111,11 +6346,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -6125,11 +6360,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -6139,39 +6374,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -6181,11 +6388,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -6205,20 +6412,6 @@ <h4>Components</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -6239,15 +6432,33 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-dump'>dump</a></strong>  => io_dump_system </td>
        <td><p>Dump the state of the system to a file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final'>get_old_t_final</a></strong>  => io_get_old_t_final_system </td>
+       <td><p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_frame'>read_frame</a></strong>  => io_read_frame_system </td>
        <td><p>Read in a frame of input data from file</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-read_particle_info'>read_particle_info</a></strong>  => io_read_particle_info_system </td>
+       <td><p>Read in particle metadata from file</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_discard'>write_discard</a></strong>  => io_write_discard </td>
        <td><p>Write out information about discarded test particles</p></td></tr>
       
        <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-write_hdr_bin'>write_hdr_bin</a></strong>  => io_write_hdr_system </td>
+       <td><p>Write a header for an output frame in Fortran binary format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a></strong>  => netcdf_write_hdr_system </td>
+       <td><p>Write a header for an output frame in NetCDF format</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-obl_pot'>obl_pot</a></strong>  => obl_pot_system </td>
+       <td><p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-init_particle_info'>init_particle_info</a></strong>  => setup_initialize_particle_info_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>
        <td><p>Steps the spins of the massive &amp; central bodies due to tides.</p></td></tr>
       
@@ -6263,9 +6474,11 @@ <h4>Type-Bound Procedures</h4>
        <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>
+       <tr><td>generic, public :: <strong><a href='../type/whm_nbody_system.html#boundprocedure-write_hdr~3'>write_hdr</a></strong>  => write_hdr_bin, write_hdr_netcdf </td>
+       <td><p>Generic method call for writing headers</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/whm_nbody_system.html#boundprocedure-initialize~3'>initialize</a></strong>  => whm_setup_initialize_system </td>
+       <td><p>Replace the abstract procedures with concrete ones</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/whm_nbody_system.html#boundprocedure-step~7'>step</a></strong>  => whm_step_system </td>
        <td><p>Advance the WHM nbody system forward in time by one step</p></td></tr>
diff --git a/docs/module/whm_drift.html b/docs/module/whm_drift.html
index 8ac505087..2606eeb90 100644
--- a/docs/module/whm_drift.html
+++ b/docs/module/whm_drift.html
@@ -134,7 +134,7 @@ <h1>whm_drift
      <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.">36 statements</a>
+    title=" 0.2% of total for modules and submodules.">36 statements</a>
      </li> 
      
      
@@ -245,258 +245,312 @@ <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="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)">
+<svg id="modulewhm_driftUsesGraph" width="641pt" height="286pt"
+ viewBox="0.00 0.00 641.00 286.13" 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 401.31)">
 <title>module~~whm_drift~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.12 897,-293.12 897,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-401.31 904,-401.31 904,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,-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="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.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"/>
+<polygon fill="none" stroke="black" points="900,-251.35 841,-251.35 841,-227.35 900,-227.35 900,-251.35"/>
+<text text-anchor="middle" x="870.5" y="-236.95" font-family="Helvetica,sans-Serif" font-size="10.50">whm_drift</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~whm_drift~~UsesGraph_node3" class="node">
+<g id="module~~whm_drift~~UsesGraph_node2" 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,-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>
+<g id="a_module~~whm_drift~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-153.35 751,-153.35 751,-129.35 805,-129.35 805,-153.35"/>
+<text text-anchor="middle" x="778" y="-138.95" 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,-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_node4" class="node">
-<title>module~swiftest_globals</title>
-<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_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.4,-227.34C843.14,-210.81 815.47,-180.85 797.16,-161.02"/>
+<polygon fill="#000000" stroke="#000000" points="799.54,-158.44 790.19,-153.47 794.4,-163.19 799.54,-158.44"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<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>
+<!-- module~whm_classes -->
+<g id="module~~whm_drift~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~whm_drift~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-229.35 391,-229.35 391,-205.35 467,-205.35 467,-229.35"/>
+<text text-anchor="middle" x="429" y="-214.95" 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~~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="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"/>
+<!-- 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="M851,-251.62C822.99,-269.38 767.49,-301.43 715,-313.35 626.59,-333.44 593.22,-351.56 511,-313.35 477.95,-298 453.53,-261.78 440.56,-238.48"/>
+<polygon fill="#000000" stroke="#000000" points="443.5,-236.56 435.71,-229.38 437.33,-239.85 443.5,-236.56"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge10" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C626.35,-314.79 629.51,-255.43 588,-238.35 552.67,-223.82 509.49,-218.85 477.21,-217.36"/>
+<polygon fill="#000000" stroke="#000000" points="477.26,-213.86 467.14,-216.99 477,-220.86 477.26,-213.86"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge5" class="edge">
-<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"/>
+<!-- module~swiftest_operators -->
+<g id="module~~whm_drift~~UsesGraph_node4" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~whm_drift~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-288.35 247,-288.35 247,-264.35 347,-264.35 347,-288.35"/>
+<text text-anchor="middle" x="297" y="-273.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
 </g>
-<!-- module~lambda_function -->
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~whm_drift~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C619.4,-317.78 602.83,-295.9 550.5,-299.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C483.07,-303.68 408.21,-295.02 357.5,-287.12"/>
+<polygon fill="#000000" stroke="#000000" points="357.8,-283.62 347.37,-285.5 356.69,-290.53 357.8,-283.62"/>
+</g>
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_module~~whm_drift~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-271.35 511,-271.35 511,-247.35 588,-247.35 588,-271.35"/>
+<text text-anchor="middle" x="549.5" y="-256.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</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,-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"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C652.76,-305.12 612.83,-289.24 583.77,-275.82"/>
+<polygon fill="#000000" stroke="#000000" points="584.92,-272.49 574.38,-271.39 581.93,-278.82 584.92,-272.49"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_module~~whm_drift~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-77.35 385.5,-77.35 385.5,-53.35 472.5,-53.35 472.5,-77.35"/>
+<text text-anchor="middle" x="429" y="-62.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.8,-129.76C729.54,-120.78 698.59,-108.68 670.5,-101.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-63.35C527.36,-58.7 503.57,-58.21 482.89,-59.24"/>
+<polygon fill="#000000" stroke="#000000" points="482.47,-55.76 472.71,-59.89 482.91,-62.75 482.47,-55.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C615.19,-87.45 604.31,-75.21 550.5,-63.35"/>
 </g>
 <!-- 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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-191.35 511.5,-191.35 511.5,-167.35 587.5,-167.35 587.5,-191.35"/>
+<text text-anchor="middle" x="549.5" y="-176.95" 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">
+<g id="module~~whm_drift~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C616.85,-318.27 628.82,-242.22 588,-205.35 584.98,-202.63 581.66,-199.94 578.28,-197.4"/>
+<polygon fill="#000000" stroke="#000000" points="580.08,-194.38 569.9,-191.42 576.01,-200.08 580.08,-194.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.99,-153.44C765.03,-186.18 735.11,-275.69 670.5,-299.35"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~whm_drift~~UsesGraph_node8" class="node">
-<title>module~rmvs_classes</title>
-<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>
+<title>module~swiftest_globals</title>
+<g id="a_module~~whm_drift~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-229.35 123,-229.35 123,-205.35 211,-205.35 211,-229.35"/>
+<text text-anchor="middle" x="167" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-299.35C511.12,-358.4 454.96,-435.51 298,-375.35"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~whm_drift~~UsesGraph_node10" class="node">
+<g id="module~~whm_drift~~UsesGraph_node9" class="node">
 <title>module~symba_classes</title>
-<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>
+<g id="a_module~~whm_drift~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-153.35 627,-153.35 627,-129.35 712,-129.35 712,-153.35"/>
+<text text-anchor="middle" x="669.5" y="-138.95" 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_edge7" class="edge">
+<g id="module~~whm_drift~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-141.35C742.26,-141.35 732.26,-141.35 722.32,-141.35"/>
+<polygon fill="#000000" stroke="#000000" points="722.05,-137.85 712.05,-141.35 722.05,-144.85 722.05,-137.85"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~swiftest_classes -->
+<g id="module~~whm_drift~~UsesGraph_node10" 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="341.5,-170.35 252.5,-170.35 252.5,-146.35 341.5,-146.35 341.5,-170.35"/>
+<text text-anchor="middle" x="297" y="-155.95" 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~~whm_drift~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-139.35C402.83,-141.09 375.13,-144.87 351.8,-148.61"/>
+<polygon fill="#000000" stroke="#000000" points="351.05,-145.18 341.75,-150.26 352.18,-152.09 351.05,-145.18"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-101.35C564.64,-74.27 537.08,-131.98 430,-139.35"/>
+</g>
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_module~~whm_drift~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-55.35 624,-55.35 624,-31.35 715,-31.35 715,-55.35"/>
+<text text-anchor="middle" x="669.5" y="-40.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~whm_drift~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763.94,-129.34C745.82,-112.66 712.84,-82.31 691.3,-62.5"/>
+<polygon fill="#000000" stroke="#000000" points="693.39,-59.67 683.67,-55.47 688.65,-64.82 693.39,-59.67"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="module~~whm_drift~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_module~~whm_drift~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-347.35 383,-347.35 383,-323.35 475,-323.35 475,-347.35"/>
+<text text-anchor="middle" x="429" y="-332.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-299.35C520.15,-301.23 489.5,-310.76 466.47,-319.54"/>
+<polygon fill="#000000" stroke="#000000" points="465.12,-316.31 457.1,-323.23 467.69,-322.82 465.12,-316.31"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.74,-217.35C364.75,-217.35 329.26,-217.35 298,-217.35"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <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"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.38,-205.27C381.92,-196.44 355.32,-184.37 333.98,-174.68"/>
+<polygon fill="#000000" stroke="#000000" points="335.14,-171.37 324.59,-170.42 332.25,-177.74 335.14,-171.37"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-264.27C250.63,-255.44 224.44,-243.37 203.43,-233.68"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-230.43 194.18,-229.42 201.79,-236.78 204.72,-230.43"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~whm_drift~~UsesGraph_edge17" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.54,-247.32C501.77,-242.79 487.08,-237.58 473.56,-232.79"/>
+<polygon fill="#000000" stroke="#000000" points="474.56,-229.43 463.96,-229.39 472.22,-236.03 474.56,-229.43"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge16" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.84,-255.83C477.17,-252.39 426.56,-246.47 383,-238.35 344.74,-231.23 336.91,-217.35 298,-217.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge18" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.6,-53.26C370.42,-38.68 316.87,-17.09 298,-25.35"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge19" class="edge">
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-77.51C388.62,-93.53 349.08,-121.82 323.2,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="321.1,-137.53 315,-146.19 325.17,-143.22 321.1,-137.53"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge22" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.33,-191.27C500.41,-194.78 488.32,-198.65 476.88,-202.32"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-199.09 467.04,-205.48 477.63,-205.76 475.49,-199.09"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge16" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge20" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.48,-174.28C487.87,-172.13 456.8,-171.33 430,-177.35"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge18" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge21" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.61,-167.31C505.58,-154.65 466.18,-136.86 430,-139.35"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="module~~whm_drift~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~whm_drift~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-229.35 0,-229.35 0,-205.35 87,-205.35 87,-229.35"/>
+<text text-anchor="middle" x="43.5" y="-214.95" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </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="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_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.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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~whm_drift~~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,-217.35C114.58,-217.35 105.86,-217.35 97.36,-217.35"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-213.85 87.13,-217.35 97.13,-220.85 97.13,-213.85"/>
 </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="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"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.32,-153.54C635.91,-173.94 594.66,-215.19 570.13,-239.73"/>
+<polygon fill="#000000" stroke="#000000" points="567.39,-237.51 562.79,-247.06 572.34,-242.46 567.39,-237.51"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
 <g id="module~~whm_drift~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M647,-129.29C639.62,-125.03 631.37,-120.1 624,-115.35 590.36,-93.68 589.58,-71.96 550.5,-63.35"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge26" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.16,-153.38C620.41,-156.84 608.53,-160.67 597.28,-164.29"/>
+<polygon fill="#000000" stroke="#000000" points="596.04,-161.01 587.59,-167.41 598.18,-167.68 596.04,-161.01"/>
 </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"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C493.33,-143.22 483.96,-165.22 430,-177.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-177.35C369.02,-190.62 358.44,-216.44 298,-217.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-217.35C271.53,-217.73 244.42,-217.78 221.48,-217.72"/>
+<polygon fill="#000000" stroke="#000000" points="221.27,-214.21 211.25,-217.68 221.24,-221.21 221.27,-214.21"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge24" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.95,-138.89C604.32,-137.99 575.84,-137.58 550.5,-139.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-139.35C495.96,-143.03 482.54,-135.74 430,-139.35"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.79,-170.44C250.63,-179.27 224.44,-191.34 203.43,-201.03"/>
+<polygon fill="#000000" stroke="#000000" points="201.79,-197.92 194.18,-205.29 204.72,-204.28 201.79,-197.92"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632.12,-31.33C563.44,-10.78 411.42,24.29 298,-25.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-25.35C226.09,-59.78 188.52,-152.74 174.51,-195.41"/>
+<polygon fill="#000000" stroke="#000000" points="171.12,-194.51 171.45,-205.1 177.79,-196.62 171.12,-194.51"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-347.42C370.04,-361.71 317.13,-382.69 298,-375.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-375.35C233.63,-351.45 193.53,-276.57 176.85,-239.13"/>
+<polygon fill="#000000" stroke="#000000" points="179.94,-237.43 172.77,-229.63 173.51,-240.2 179.94,-237.43"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/check.html b/docs/proc/check.html
new file mode 100644
index 000000000..0634774e9
--- /dev/null
+++ b/docs/proc/check.html
@@ -0,0 +1,490 @@
+<!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>check &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>check
+      <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> Carlisle A. Wishard, Dana Singh, and David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <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>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+    
+  
+     <li class="active">check</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 check(status)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Checks the status of all NetCDF operations to catch errors</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-status~5"></span>integer,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td></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~~check~~CallsGraph Pages: 1 -->
+<svg id="proccheckCallsGraph" width="263pt" height="74pt"
+ viewBox="0.00 0.00 263.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~check~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~check~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 259,-70 259,4 -4,4"/>
+<!-- proc~check -->
+<g id="proc~~check~~CallsGraph_node1" class="node">
+<title>proc~check</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">check</text>
+</g>
+<!-- nf90_strerror -->
+<g id="proc~~check~~CallsGraph_node2" class="node">
+<title>nf90_strerror</title>
+<polygon fill="#777777" stroke="#777777" points="165,-66 90,-66 90,-42 165,-42 165,-66"/>
+<text text-anchor="middle" x="127.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_strerror</text>
+</g>
+<!-- proc~check&#45;&gt;nf90_strerror -->
+<g id="proc~~check~~CallsGraph_edge1" class="edge">
+<title>proc~check&#45;&gt;nf90_strerror</title>
+<path fill="none" stroke="#000000" d="M54.14,-38.57C62.09,-40.27 71.08,-42.18 79.95,-44.08"/>
+<polygon fill="#000000" stroke="#000000" points="79.35,-47.53 89.86,-46.19 80.81,-40.68 79.35,-47.53"/>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~check~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~check~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="154.5,-24 100.5,-24 100.5,0 154.5,0 154.5,-24"/>
+<text text-anchor="middle" x="127.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~check&#45;&gt;interface~util_exit -->
+<g id="proc~~check~~CallsGraph_edge2" class="edge">
+<title>proc~check&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M54.14,-27.43C65.16,-25.08 78.18,-22.3 90.11,-19.76"/>
+<polygon fill="#000000" stroke="#000000" points="91.19,-23.11 100.24,-17.6 89.73,-16.26 91.19,-23.11"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~check~~CallsGraph_node4" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~check~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="255,-24 201,-24 201,0 255,0 255,-24"/>
+<text text-anchor="middle" x="228" y="-9.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~~check~~CallsGraph_edge3" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.64,-12C165.66,-12 178.68,-12 190.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="190.74,-15.5 200.74,-12 190.74,-8.5 190.74,-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/discard_cb_tp.html b/docs/proc/discard_cb_tp.html
index 3b05ac083..3239ef812 100644
--- a/docs/proc/discard_cb_tp.html
+++ b/docs/proc/discard_cb_tp.html
@@ -136,7 +136,7 @@ <h1>discard_cb_tp
      <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.">40 statements</a>
+    title=" 0.1% of total for procedures.">50 statements</a>
      </li> 
      
      
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~9"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~7"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/discard_peri_tp.html b/docs/proc/discard_peri_tp.html
index 7b9e5553f..9f0731adb 100644
--- a/docs/proc/discard_peri_tp.html
+++ b/docs/proc/discard_peri_tp.html
@@ -136,7 +136,7 @@ <h1>discard_peri_tp
      <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.">33 statements</a>
+    title=" 0.1% of total for procedures.">37 statements</a>
      </li> 
      
      
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~10"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~8"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/discard_pl.html b/docs/proc/discard_pl.html
index d48e5b512..d7740985a 100644
--- a/docs/proc/discard_pl.html
+++ b/docs/proc/discard_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~272"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~334"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,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~87"></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~145"></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(inout)</td>
   <td></td>
   
diff --git a/docs/proc/discard_pl_close.html b/docs/proc/discard_pl_close.html
index f75242394..3fb4a1b5d 100644
--- a/docs/proc/discard_pl_close.html
+++ b/docs/proc/discard_pl_close.html
@@ -136,7 +136,7 @@ <h1>discard_pl_close
      <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.0% of total for procedures.">32 statements</a>
      </li> 
      
      
diff --git a/docs/proc/discard_pl_tp.html b/docs/proc/discard_pl_tp.html
index cb61a1548..e02b1160f 100644
--- a/docs/proc/discard_pl_tp.html
+++ b/docs/proc/discard_pl_tp.html
@@ -136,7 +136,7 @@ <h1>discard_pl_tp
      <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.">35 statements</a>
      </li> 
      
      
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~11"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~9"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/discard_system.html b/docs/proc/discard_system.html
index 2b30cc50b..d0c93dd95 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.1% of total for procedures.">25 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~271"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~333"></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~144"></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(inout)</td>
   <td></td>
   
diff --git a/docs/proc/discard_tp.html b/docs/proc/discard_tp.html
index b8d07f965..76aa6fd50 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.">22 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~273"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~335"></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~83"></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~146"></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(inout)</td>
   <td></td>
   
diff --git a/docs/proc/drift_all.html b/docs/proc/drift_all.html
index c9310df88..3407b57d0 100644
--- a/docs/proc/drift_all.html
+++ b/docs/proc/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.1% of total for procedures.">29 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~24"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~26"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~32"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~30"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~17"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~13"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~24"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~31"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,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~214"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~82"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~87"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_body.html b/docs/proc/drift_body.html
index e436b051f..a0ab48580 100644
--- a/docs/proc/drift_body.html
+++ b/docs/proc/drift_body.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~317"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~383"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~95"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~100"></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~179"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~213"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~81"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~86"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_dan.html b/docs/proc/drift_dan.html
index 7d6cb0183..69f4bde40 100644
--- a/docs/proc/drift_dan.html
+++ b/docs/proc/drift_dan.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~5"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~4"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -381,36 +381,36 @@ <h3 class="panel-title">Calls</h3>
 <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_fchk -->
-<g id="proc~~drift_dan~~CallsGraph_node5" class="node">
-<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_fchk -->
-<g id="proc~~drift_dan~~CallsGraph_edge4" class="edge">
-<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_guess -->
-<g id="proc~~drift_dan~~CallsGraph_node6" class="node">
+<g id="proc~~drift_dan~~CallsGraph_node5" class="node">
 <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">
+<g id="a_proc~~drift_dan~~CallsGraph_node5"><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_guess -->
-<g id="proc~~drift_dan~~CallsGraph_edge5" class="edge">
+<g id="proc~~drift_dan~~CallsGraph_edge4" class="edge">
 <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_fchk -->
+<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,-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_fchk -->
+<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,-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_lag -->
 <g id="proc~~drift_dan~~CallsGraph_node7" class="node">
 <title>proc~drift_kepu_lag</title>
@@ -427,9 +427,9 @@ <h3 class="panel-title">Calls</h3>
 <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_stumpff -->
-<g id="proc~~drift_dan~~CallsGraph_node9" class="node">
+<g id="proc~~drift_dan~~CallsGraph_node10" class="node">
 <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">
+<g id="a_proc~~drift_dan~~CallsGraph_node10"><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>
@@ -441,12 +441,6 @@ <h3 class="panel-title">Calls</h3>
 <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_node8" class="node">
 <title>interface~orbel_scget</title>
@@ -457,26 +451,32 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
-<g id="proc~~drift_dan~~CallsGraph_edge9" class="edge">
+<g id="proc~~drift_dan~~CallsGraph_edge8" class="edge">
 <title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
 <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_p3solve -->
-<g id="proc~~drift_dan~~CallsGraph_node10" class="node">
+<g id="proc~~drift_dan~~CallsGraph_node9" 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">
+<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,-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_guess&#45;&gt;proc~drift_kepu_p3solve -->
-<g id="proc~~drift_dan~~CallsGraph_edge10" class="edge">
+<g id="proc~~drift_dan~~CallsGraph_edge9" class="edge">
 <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_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<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,-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>
 <!-- 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>
diff --git a/docs/proc/drift_kepmd.html b/docs/proc/drift_kepmd.html
index d6e7d0b47..a868ae9dd 100644
--- a/docs/proc/drift_kepmd.html
+++ b/docs/proc/drift_kepmd.html
@@ -136,7 +136,7 @@ <h1>drift_kepmd
      <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.">26 statements</a>
      </li> 
      
      
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~10"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~9"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/drift_kepu.html b/docs/proc/drift_kepu.html
index 6337eca86..d8ccde0fa 100644
--- a/docs/proc/drift_kepu.html
+++ b/docs/proc/drift_kepu.html
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~6"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~5"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -426,36 +426,36 @@ <h3 class="panel-title">Calls</h3>
 <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_fchk -->
-<g id="proc~~drift_kepu~~CallsGraph_node3" class="node">
-<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_fchk -->
-<g id="proc~~drift_kepu~~CallsGraph_edge2" class="edge">
-<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_guess -->
-<g id="proc~~drift_kepu~~CallsGraph_node4" class="node">
+<g id="proc~~drift_kepu~~CallsGraph_node3" class="node">
 <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">
+<g id="a_proc~~drift_kepu~~CallsGraph_node3"><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_guess -->
-<g id="proc~~drift_kepu~~CallsGraph_edge3" class="edge">
+<g id="proc~~drift_kepu~~CallsGraph_edge2" class="edge">
 <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_fchk -->
+<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,-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_fchk -->
+<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,-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_lag -->
 <g id="proc~~drift_kepu~~CallsGraph_node5" class="node">
 <title>proc~drift_kepu_lag</title>
@@ -472,9 +472,9 @@ <h3 class="panel-title">Calls</h3>
 <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_stumpff -->
-<g id="proc~~drift_kepu~~CallsGraph_node7" class="node">
+<g id="proc~~drift_kepu~~CallsGraph_node8" class="node">
 <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">
+<g id="a_proc~~drift_kepu~~CallsGraph_node8"><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>
@@ -486,12 +486,6 @@ <h3 class="panel-title">Calls</h3>
 <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_node6" class="node">
 <title>interface~orbel_scget</title>
@@ -502,26 +496,32 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
-<g id="proc~~drift_kepu~~CallsGraph_edge7" class="edge">
+<g id="proc~~drift_kepu~~CallsGraph_edge6" class="edge">
 <title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
 <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_p3solve -->
-<g id="proc~~drift_kepu~~CallsGraph_node8" class="node">
+<g id="proc~~drift_kepu~~CallsGraph_node7" 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">
+<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,-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_guess&#45;&gt;proc~drift_kepu_p3solve -->
-<g id="proc~~drift_kepu~~CallsGraph_edge8" class="edge">
+<g id="proc~~drift_kepu~~CallsGraph_edge7" class="edge">
 <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_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<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,-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>
 <!-- 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>
diff --git a/docs/proc/drift_kepu_fchk.html b/docs/proc/drift_kepu_fchk.html
index 210ccab8e..2036dd00b 100644
--- a/docs/proc/drift_kepu_fchk.html
+++ b/docs/proc/drift_kepu_fchk.html
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~7"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~6"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_kepu_guess.html b/docs/proc/drift_kepu_guess.html
index f73a75841..dd94170b2 100644
--- a/docs/proc/drift_kepu_guess.html
+++ b/docs/proc/drift_kepu_guess.html
@@ -136,7 +136,7 @@ <h1>drift_kepu_guess
      <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.">28 statements</a>
      </li> 
      
      
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~8"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~7"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_kepu_lag.html b/docs/proc/drift_kepu_lag.html
index a09117959..76500912a 100644
--- a/docs/proc/drift_kepu_lag.html
+++ b/docs/proc/drift_kepu_lag.html
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~9"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~8"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_kepu_new.html b/docs/proc/drift_kepu_new.html
index a7a2bff2c..4f68ce04b 100644
--- a/docs/proc/drift_kepu_new.html
+++ b/docs/proc/drift_kepu_new.html
@@ -136,7 +136,7 @@ <h1>drift_kepu_new
      <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.">31 statements</a>
+    title=" 0.0% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~10"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~9"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_kepu_p3solve.html b/docs/proc/drift_kepu_p3solve.html
index cf92ec9a8..0b25ebc0e 100644
--- a/docs/proc/drift_kepu_p3solve.html
+++ b/docs/proc/drift_kepu_p3solve.html
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~11"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~10"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_kepu_stumpff.html b/docs/proc/drift_kepu_stumpff.html
index e2cff5f36..fddc7260c 100644
--- a/docs/proc/drift_kepu_stumpff.html
+++ b/docs/proc/drift_kepu_stumpff.html
@@ -136,7 +136,7 @@ <h1>drift_kepu_stumpff
      <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.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~11"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~10"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/drift_one.html b/docs/proc/drift_one.html
index 6bc87450a..0d9d8246d 100644
--- a/docs/proc/drift_one.html
+++ b/docs/proc/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.1% of total for procedures.">27 statements</a>
+    title=" 0.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~25"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~27"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-px~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-px~3"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-py~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-py~3"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pz~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-pz~3"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vx~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vx~3"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vy~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vy~3"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -328,7 +328,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vz~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vz~3"></span>real(kind=DP),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -343,7 +343,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~83"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~88"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/fraggle_generate_fragments.html b/docs/proc/fraggle_generate_fragments.html
new file mode 100644
index 000000000..392361869
--- /dev/null
+++ b/docs/proc/fraggle_generate_fragments.html
@@ -0,0 +1,971 @@
+<!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>fraggle_generate_fragments &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>fraggle_generate_fragments
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and 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.">103 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></li>
+    
+  
+     <li class="active">fraggle_generate_fragments</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 fraggle_generate_fragments(self, colliders, system, param, lfailure)
+    
+    
+   <a href='../interface/fraggle_generate_fragments.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+    <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="http://fortranwiki.org/fortran/show/IEEE+arithmetic">ieee_exceptions</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: proc~~fraggle_generate_fragments~~UsesGraph Pages: 1 -->
+<svg id="procfraggle_generate_fragmentsUsesGraph" 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="proc~~fraggle_generate_fragments~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_fragments~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 278,-28 278,4 -4,4"/>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_fragments~~UsesGraph_node1" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<polygon fill="none" stroke="black" points="274,-24 126,-24 126,0 274,0 274,-24"/>
+<text text-anchor="middle" x="200" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_fragments</text>
+</g>
+<!-- ieee_exceptions -->
+<g id="proc~~fraggle_generate_fragments~~UsesGraph_node2" class="node">
+<title>ieee_exceptions</title>
+<g id="a_proc~~fraggle_generate_fragments~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
+<polygon fill="#337ab7" stroke="#337ab7" points="90,-24 0,-24 0,0 90,0 90,-24"/>
+<text text-anchor="middle" x="45" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;ieee_exceptions -->
+<g id="proc~~fraggle_generate_fragments~~UsesGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.64,-12C117.12,-12 108.54,-12 100.34,-12"/>
+<polygon fill="#000000" stroke="#000000" points="100.19,-8.5 90.19,-12 100.19,-15.5 100.19,-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="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>
+    
+
+
+    
+    <p>Generates a system of fragments in barycentric coordinates that conserves energy and momentum.</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-self~444"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle system object the outputs will be the fragmentation </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~27"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object containing the two-body equivalent values of the colliding bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~124"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~251"></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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lfailure~5"></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</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~~fraggle_generate_fragments~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_generate_fragmentsCallsGraph" width="641pt" height="138pt"
+ viewBox="0.00 0.00 641.00 138.18" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_fragments~~CallsGraph" class="graph" transform="scale(0.57 0.57) rotate(0) translate(4 238.72)">
+<title>proc~~fraggle_generate_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-238.72 1122,-238.72 1122,4 -4,4"/>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node1" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<polygon fill="none" stroke="black" points="148,-147 0,-147 0,-123 148,-123 148,-147"/>
+<text text-anchor="middle" x="74" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_fragments</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node2" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node2"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="319.5,-168 184.5,-168 184.5,-144 319.5,-144 319.5,-168"/>
+<text text-anchor="middle" x="252" y="-153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M148.11,-143.72C156.73,-144.75 165.55,-145.8 174.22,-146.84"/>
+<polygon fill="#000000" stroke="#000000" points="173.96,-150.33 184.31,-148.04 174.79,-143.38 173.96,-150.33"/>
+</g>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node3" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_generate_pos_vec.html" xlink:title="fraggle_generate_pos_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="693,-74 553,-74 553,-50 693,-50 693,-74"/>
+<text text-anchor="middle" x="623" y="-59.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_pos_vec</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec</title>
+<path fill="none" stroke="#000000" d="M101.29,-122.81C123.02,-113.24 154.9,-100.35 184,-93 306.46,-62.06 453.88,-58.18 542.65,-59.3"/>
+<polygon fill="#000000" stroke="#000000" points="542.86,-62.8 552.92,-59.45 542.97,-55.8 542.86,-62.8"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node4" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node4"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="320,-126 184,-126 184,-102 320,-102 320,-126"/>
+<text text-anchor="middle" x="252" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge3" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M148.11,-126.28C156.6,-125.26 165.27,-124.23 173.81,-123.21"/>
+<polygon fill="#000000" stroke="#000000" points="174.23,-126.68 183.75,-122.02 173.4,-119.73 174.23,-126.68"/>
+</g>
+<!-- proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node5" class="node">
+<title>proc~fraggle_generate_spins</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node5"><a xlink:href=".././proc/fraggle_generate_spins.html" xlink:title="fraggle_generate_spins">
+<polygon fill="#d9534f" stroke="#d9534f" points="314.5,-210 189.5,-210 189.5,-186 314.5,-186 314.5,-210"/>
+<text text-anchor="middle" x="252" y="-195.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_spins</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge4" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins</title>
+<path fill="none" stroke="#000000" d="M104.88,-147.11C126.68,-155.79 157,-167.58 184,-177 189.6,-178.96 195.5,-180.93 201.37,-182.84"/>
+<polygon fill="#000000" stroke="#000000" points="200.59,-186.26 211.18,-185.98 202.73,-179.6 200.59,-186.26"/>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node6" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node6"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="510,-230 356,-230 356,-206 510,-206 510,-230"/>
+<text text-anchor="middle" x="433" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge5" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M85.56,-147.19C103.46,-166.82 141.94,-204.67 184,-219 238.53,-237.57 303.79,-236.46 353.68,-231.17"/>
+<polygon fill="#000000" stroke="#000000" points="354.22,-234.63 363.76,-230.02 353.43,-227.67 354.22,-234.63"/>
+</g>
+<!-- interface~fraggle_io_log_generate -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node7" class="node">
+<title>interface~fraggle_io_log_generate</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node7"><a xlink:href=".././interface/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#a7506f" stroke="#a7506f" points="316.5,-24 187.5,-24 187.5,0 316.5,0 316.5,-24"/>
+<text text-anchor="middle" x="252" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge6" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" d="M85.98,-122.72C104.47,-102.65 143.8,-62.57 184,-38 190.15,-34.24 196.93,-30.86 203.75,-27.87"/>
+<polygon fill="#000000" stroke="#000000" points="205.11,-31.09 213.02,-24.04 202.44,-24.62 205.11,-31.09"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge9" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M296.01,-168.05C304.08,-170.72 312.38,-173.73 320,-177 336.82,-184.22 339.06,-190.07 356,-197 361.07,-199.07 366.41,-201.01 371.81,-202.81"/>
+<polygon fill="#000000" stroke="#000000" points="370.97,-206.21 381.56,-205.88 373.07,-199.53 370.97,-206.21"/>
+</g>
+<!-- util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node10" class="node">
+<title>util_minimize_bfgs</title>
+<polygon fill="#777777" stroke="#777777" points="483,-104 383,-104 383,-80 483,-80 483,-104"/>
+<text text-anchor="middle" x="433" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge7" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M296.83,-143.96C304.67,-141.33 312.67,-138.33 320,-135 337.07,-127.25 338.8,-120.46 356,-113 361.39,-110.66 367.11,-108.52 372.9,-106.57"/>
+<polygon fill="#000000" stroke="#000000" points="374.18,-109.83 382.65,-103.47 372.06,-103.16 374.18,-109.83"/>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node11" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node11"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="498,-146 368,-146 368,-122 498,-122 498,-146"/>
+<text text-anchor="middle" x="433" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge8" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M319.65,-147.81C332.12,-146.28 345.23,-144.66 357.91,-143.11"/>
+<polygon fill="#000000" stroke="#000000" points="358.47,-146.56 367.97,-141.87 357.61,-139.62 358.47,-146.56"/>
+</g>
+<!-- lambda_obj -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node13" class="node">
+<title>lambda_obj</title>
+<polygon fill="#777777" stroke="#777777" points="467,-188 399,-188 399,-164 467,-164 467,-188"/>
+<text text-anchor="middle" x="433" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge10" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M319.65,-163.45C342.78,-166.03 368.09,-168.86 388.82,-171.18"/>
+<polygon fill="#000000" stroke="#000000" points="388.58,-174.67 398.91,-172.3 389.36,-167.71 388.58,-174.67"/>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node8" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node8"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="909,-95 736,-95 736,-71 909,-71 909,-95"/>
+<text text-anchor="middle" x="822.5" y="-80.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge11" class="edge">
+<title>proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M693.08,-69.34C703.64,-70.47 714.7,-71.64 725.71,-72.81"/>
+<polygon fill="#000000" stroke="#000000" points="725.48,-76.31 735.79,-73.89 726.22,-69.35 725.48,-76.31"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge14" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M305.44,-126.14C310.65,-128.58 315.62,-131.5 320,-135 344.89,-154.89 330.77,-177.54 356,-197 357.85,-198.43 359.79,-199.76 361.8,-201"/>
+<polygon fill="#000000" stroke="#000000" points="360.53,-204.29 371.01,-205.87 363.81,-198.1 360.53,-204.29"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge12" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M320.16,-105.75C337.41,-103.63 355.85,-101.36 372.67,-99.29"/>
+<polygon fill="#000000" stroke="#000000" points="373.42,-102.73 382.92,-98.03 372.56,-95.78 373.42,-102.73"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge13" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M320.16,-121.5C332.33,-122.86 345.09,-124.29 357.45,-125.67"/>
+<polygon fill="#000000" stroke="#000000" points="357.4,-129.19 367.72,-126.82 358.17,-122.23 357.4,-129.19"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge15" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M296.01,-126.05C304.08,-128.72 312.38,-131.73 320,-135 336.82,-142.22 339.06,-148.07 356,-155 366.48,-159.29 378.11,-162.99 389.07,-166.05"/>
+<polygon fill="#000000" stroke="#000000" points="388.32,-169.47 398.89,-168.67 390.13,-162.71 388.32,-169.47"/>
+</g>
+<!-- proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge16" class="edge">
+<title>proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M314.6,-204.88C324.64,-206 335.2,-207.18 345.7,-208.36"/>
+<polygon fill="#000000" stroke="#000000" points="345.41,-211.85 355.73,-209.48 346.18,-204.89 345.41,-211.85"/>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node9" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node9"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="700,-230 546,-230 546,-206 700,-206 700,-230"/>
+<text text-anchor="middle" x="623" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge17" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.2,-218C518.52,-218 527.03,-218 535.47,-218"/>
+<polygon fill="#000000" stroke="#000000" points="535.7,-221.5 545.7,-218 535.7,-214.5 535.7,-221.5"/>
+</g>
+<!-- proc~fraggle_io_log_generate -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node12" class="node">
+<title>proc~fraggle_io_log_generate</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node12"><a xlink:href=".././proc/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#d9534f" stroke="#d9534f" points="497.5,-24 368.5,-24 368.5,0 497.5,0 497.5,-24"/>
+<text text-anchor="middle" x="433" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge18" class="edge">
+<title>interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.61,-12C329.99,-12 344.2,-12 357.92,-12"/>
+<polygon fill="#000000" stroke="#000000" points="358.29,-15.5 368.29,-12 358.29,-8.5 358.29,-15.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node14" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node14"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="1118,-95 945,-95 945,-71 1118,-71 1118,-95"/>
+<text text-anchor="middle" x="1031.5" y="-80.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge19" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.19,-83C917.66,-83 926.3,-83 934.87,-83"/>
+<polygon fill="#000000" stroke="#000000" points="934.88,-86.5 944.88,-83 934.88,-79.5 934.88,-86.5"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_node15" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_generate_fragments~~CallsGraph_node15"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="688,-126 558,-126 558,-102 688,-102 688,-126"/>
+<text text-anchor="middle" x="623" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge20" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M498.17,-127.17C514.12,-125.48 531.34,-123.64 547.72,-121.9"/>
+<polygon fill="#000000" stroke="#000000" points="548.22,-125.37 557.8,-120.83 547.48,-118.41 548.22,-125.37"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_fragments~~CallsGraph_edge21" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M688.12,-103.94C703,-101.6 719.07,-99.08 734.74,-96.62"/>
+<polygon fill="#000000" stroke="#000000" points="735.63,-100.02 744.96,-95.01 734.54,-93.11 735.63,-100.02"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_generate_fragmentsCallsGraph = svgPanZoom('#procfraggle_generate_fragmentsCallsGraph', {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~~fraggle_generate_fragments~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_generate_fragmentsCalledByGraph" width="340pt" height="32pt"
+ viewBox="0.00 0.00 340.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_fragments~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_fragments~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 336,-28 336,4 -4,4"/>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_fragments~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<polygon fill="none" stroke="black" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_fragments</text>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_fragments~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_fragments~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_fragments~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-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/fraggle_generate_pos_vec.html b/docs/proc/fraggle_generate_pos_vec.html
new file mode 100644
index 000000000..dd3b52cfb
--- /dev/null
+++ b/docs/proc/fraggle_generate_pos_vec.html
@@ -0,0 +1,626 @@
+<!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>fraggle_generate_pos_vec &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>fraggle_generate_pos_vec
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and 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.">45 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></li>
+    
+  
+     <li class="active">fraggle_generate_pos_vec</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 fraggle_generate_pos_vec(frag, colliders, r_max_start)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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.</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-frag~10"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~16"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-r_max_start~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>r_max_start</strong></td><td><p>Initial guess for the starting maximum radial distance of fragments</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~~fraggle_generate_pos_vec~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_generate_pos_vecCallsGraph" width="566pt" height="32pt"
+ viewBox="0.00 0.00 566.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_pos_vec~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_pos_vec~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 562,-28 562,4 -4,4"/>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_generate_pos_vec~~CallsGraph_node1" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<polygon fill="none" stroke="black" points="140,-24 0,-24 0,0 140,0 140,-24"/>
+<text text-anchor="middle" x="70" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_pos_vec</text>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_pos_vec~~CallsGraph_node2" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_pos_vec~~CallsGraph_node2"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="349,-24 176,-24 176,0 349,0 349,-24"/>
+<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_pos_vec~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M140.04,-12C148.39,-12 157.02,-12 165.66,-12"/>
+<polygon fill="#000000" stroke="#000000" points="165.79,-15.5 175.79,-12 165.79,-8.5 165.79,-15.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_pos_vec~~CallsGraph_node3" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_pos_vec~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="558,-24 385,-24 385,0 558,0 558,-24"/>
+<text text-anchor="middle" x="471.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_pos_vec~~CallsGraph_edge2" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.19,-12C357.66,-12 366.3,-12 374.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="374.88,-15.5 384.88,-12 374.88,-8.5 374.88,-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">
+  <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~~fraggle_generate_pos_vec~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_generate_pos_vecCalledByGraph" width="516pt" height="32pt"
+ viewBox="0.00 0.00 516.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_pos_vec~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_pos_vec~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 512,-28 512,4 -4,4"/>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_generate_pos_vec~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<polygon fill="none" stroke="black" points="508,-24 368,-24 368,0 508,0 508,-24"/>
+<text text-anchor="middle" x="438" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_pos_vec</text>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_pos_vec~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_pos_vec~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_generate_pos_vec~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec</title>
+<path fill="none" stroke="#000000" d="M332.17,-12C340.55,-12 349.13,-12 357.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="357.84,-15.5 367.84,-12 357.84,-8.5 357.84,-15.5"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_pos_vec~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_pos_vec~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_pos_vec~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-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/fraggle_generate_rad_vel.html b/docs/proc/fraggle_generate_rad_vel.html
new file mode 100644
index 000000000..115baec2f
--- /dev/null
+++ b/docs/proc/fraggle_generate_rad_vel.html
@@ -0,0 +1,708 @@
+<!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>fraggle_generate_rad_vel &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>fraggle_generate_rad_vel
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and 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.">77 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></li>
+    
+  
+     <li class="active">fraggle_generate_rad_vel</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 fraggle_generate_rad_vel(frag, colliders, lfailure)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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</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-frag~13"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~19"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lfailure~4"></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Logical flag indicating whether this step fails or succeeds! </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~~fraggle_generate_rad_vel~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_generate_rad_velCallsGraph" width="641pt" height="108pt"
+ viewBox="0.00 0.00 641.00 107.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 154)">
+<title>proc~~fraggle_generate_rad_vel~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 938,-154 938,4 -4,4"/>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node1" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<polygon fill="none" stroke="black" points="136,-87 0,-87 0,-63 136,-63 136,-87"/>
+<text text-anchor="middle" x="68" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_rad_vel</text>
+</g>
+<!-- util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node2" class="node">
+<title>util_minimize_bfgs</title>
+<polygon fill="#777777" stroke="#777777" points="299,-150 199,-150 199,-126 299,-126 299,-150"/>
+<text text-anchor="middle" x="249" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M96.21,-87.12C116.78,-96.03 145.86,-108.09 172,-117 178.27,-119.14 184.88,-121.21 191.48,-123.18"/>
+<polygon fill="#000000" stroke="#000000" points="190.53,-126.55 201.11,-125.98 192.48,-119.83 190.53,-126.55"/>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node3" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CallsGraph_node3"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="314,-108 184,-108 184,-84 314,-84 314,-108"/>
+<text text-anchor="middle" x="249" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M136.16,-82.88C148.33,-84.31 161.09,-85.8 173.45,-87.25"/>
+<polygon fill="#000000" stroke="#000000" points="173.38,-90.77 183.72,-88.46 174.2,-83.82 173.38,-90.77"/>
+</g>
+<!-- lambda_obj -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node4" class="node">
+<title>lambda_obj</title>
+<polygon fill="#777777" stroke="#777777" points="283,-66 215,-66 215,-42 283,-42 283,-66"/>
+<text text-anchor="middle" x="249" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge4" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M136.16,-67.12C159.08,-64.43 184.08,-61.5 204.62,-59.09"/>
+<polygon fill="#000000" stroke="#000000" points="205.09,-62.56 214.62,-57.92 204.28,-55.61 205.09,-62.56"/>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node5" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CallsGraph_node5"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="326,-24 172,-24 172,0 326,0 326,-24"/>
+<text text-anchor="middle" x="249" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge3" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M96.21,-62.88C116.78,-53.97 145.86,-41.91 172,-33 178.27,-30.86 184.88,-28.79 191.48,-26.82"/>
+<polygon fill="#000000" stroke="#000000" points="192.48,-30.17 201.11,-24.02 190.53,-23.45 192.48,-30.17"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node7" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CallsGraph_node7"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="504,-108 374,-108 374,-84 504,-84 504,-108"/>
+<text text-anchor="middle" x="439" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge5" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.17,-96C330.12,-96 347.34,-96 363.72,-96"/>
+<polygon fill="#000000" stroke="#000000" points="363.8,-99.5 373.8,-96 363.8,-92.5 363.8,-99.5"/>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node6" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CallsGraph_node6"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="516,-24 362,-24 362,0 516,0 516,-24"/>
+<text text-anchor="middle" x="439" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge6" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.2,-12C334.52,-12 343.03,-12 351.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="351.7,-15.5 361.7,-12 351.7,-8.5 351.7,-15.5"/>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node8" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CallsGraph_node8"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="725,-108 552,-108 552,-84 725,-84 725,-108"/>
+<text text-anchor="middle" x="638.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge7" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M504.12,-96C516.12,-96 528.9,-96 541.62,-96"/>
+<polygon fill="#000000" stroke="#000000" points="541.78,-99.5 551.78,-96 541.78,-92.5 541.78,-99.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_node9" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CallsGraph_node9"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="934,-108 761,-108 761,-84 934,-84 934,-108"/>
+<text text-anchor="middle" x="847.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_rad_vel~~CallsGraph_edge8" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.19,-96C733.66,-96 742.3,-96 750.87,-96"/>
+<polygon fill="#000000" stroke="#000000" points="750.88,-99.5 760.88,-96 750.88,-92.5 750.88,-99.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_generate_rad_velCallsGraph = svgPanZoom('#procfraggle_generate_rad_velCallsGraph', {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~~fraggle_generate_rad_vel~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_generate_rad_velCalledByGraph" width="512pt" height="32pt"
+ viewBox="0.00 0.00 512.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_rad_vel~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_rad_vel~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 508,-28 508,4 -4,4"/>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_generate_rad_vel~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<polygon fill="none" stroke="black" points="504,-24 368,-24 368,0 504,0 504,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_rad_vel</text>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_rad_vel~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_generate_rad_vel~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-12C340.5,-12 349.08,-12 357.53,-12"/>
+<polygon fill="#000000" stroke="#000000" points="357.75,-15.5 367.75,-12 357.75,-8.5 357.75,-15.5"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_rad_vel~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_rad_vel~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_rad_vel~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-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/fraggle_generate_spins.html b/docs/proc/fraggle_generate_spins.html
new file mode 100644
index 000000000..6421e4038
--- /dev/null
+++ b/docs/proc/fraggle_generate_spins.html
@@ -0,0 +1,640 @@
+<!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>fraggle_generate_spins &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>fraggle_generate_spins
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and 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.">41 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></li>
+    
+  
+     <li class="active">fraggle_generate_spins</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 fraggle_generate_spins(frag, colliders, f_spin, lfailure)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.</p>
+<p>A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.</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-frag~11"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~17"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-f_spin~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>f_spin</strong></td><td><p>Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lfailure~2"></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Logical flag indicating whether this step fails or succeeds! </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~~fraggle_generate_spins~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_generate_spinsCallsGraph" width="513pt" height="32pt"
+ viewBox="0.00 0.00 513.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_spins~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_spins~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 509,-28 509,4 -4,4"/>
+<!-- proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_generate_spins~~CallsGraph_node1" class="node">
+<title>proc~fraggle_generate_spins</title>
+<polygon fill="none" stroke="black" points="125,-24 0,-24 0,0 125,0 125,-24"/>
+<text text-anchor="middle" x="62.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_spins</text>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_spins~~CallsGraph_node2" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_spins~~CallsGraph_node2"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="315,-24 161,-24 161,0 315,0 315,-24"/>
+<text text-anchor="middle" x="238" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_spins~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M125.16,-12C133.49,-12 142.16,-12 150.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="150.96,-15.5 160.96,-12 150.96,-8.5 150.96,-15.5"/>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_spins~~CallsGraph_node3" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_spins~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="505,-24 351,-24 351,0 505,0 505,-24"/>
+<text text-anchor="middle" x="428" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_spins~~CallsGraph_edge2" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.2,-12C323.52,-12 332.03,-12 340.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="340.7,-15.5 350.7,-12 340.7,-8.5 340.7,-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">
+  <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~~fraggle_generate_spins~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_generate_spinsCalledByGraph" width="501pt" height="32pt"
+ viewBox="0.00 0.00 501.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_spins~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_spins~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 497,-28 497,4 -4,4"/>
+<!-- proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_generate_spins~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_generate_spins</title>
+<polygon fill="none" stroke="black" points="493,-24 368,-24 368,0 493,0 493,-24"/>
+<text text-anchor="middle" x="430.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_spins</text>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_spins~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_spins~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_generate_spins~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins</title>
+<path fill="none" stroke="#000000" d="M332.3,-12C340.7,-12 349.27,-12 357.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="357.77,-15.5 367.77,-12 357.77,-8.5 357.77,-15.5"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_spins~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_spins~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_spins~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-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/fraggle_generate_tan_vel.html b/docs/proc/fraggle_generate_tan_vel.html
new file mode 100644
index 000000000..ddd4fb210
--- /dev/null
+++ b/docs/proc/fraggle_generate_tan_vel.html
@@ -0,0 +1,715 @@
+<!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>fraggle_generate_tan_vel &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>fraggle_generate_tan_vel
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and 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.">126 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_generate.f90.html'>fraggle_generate.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_generate.html'>s_fraggle_generate</a></li>
+    
+  
+     <li class="active">fraggle_generate_tan_vel</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 fraggle_generate_tan_vel(frag, colliders, lfailure)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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 (frag%ke_budget) that we can put into the radial velocity distribution.</p>
+<p>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. </p>
+<p>A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.</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-frag~12"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~18"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lfailure~3"></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Logical flag indicating whether this step fails or succeeds</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~~fraggle_generate_tan_vel~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_generate_tan_velCallsGraph" width="641pt" height="108pt"
+ viewBox="0.00 0.00 641.00 107.63" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 154)">
+<title>proc~~fraggle_generate_tan_vel~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 937,-154 937,4 -4,4"/>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node1" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<polygon fill="none" stroke="black" points="135,-87 0,-87 0,-63 135,-63 135,-87"/>
+<text text-anchor="middle" x="67.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_tan_vel</text>
+</g>
+<!-- util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node2" class="node">
+<title>util_minimize_bfgs</title>
+<polygon fill="#777777" stroke="#777777" points="298,-150 198,-150 198,-126 298,-126 298,-150"/>
+<text text-anchor="middle" x="248" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" d="M95.57,-87.13C116.04,-96.05 144.98,-108.11 171,-117 177.27,-119.14 183.88,-121.22 190.48,-123.19"/>
+<polygon fill="#000000" stroke="#000000" points="189.53,-126.56 200.11,-125.99 191.48,-119.84 189.53,-126.56"/>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node3" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CallsGraph_node3"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="313,-108 183,-108 183,-84 313,-84 313,-108"/>
+<text text-anchor="middle" x="248" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M135.22,-82.85C147.37,-84.28 160.11,-85.78 172.46,-87.23"/>
+<polygon fill="#000000" stroke="#000000" points="172.39,-90.75 182.73,-88.44 173.21,-83.79 172.39,-90.75"/>
+</g>
+<!-- lambda_obj -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node4" class="node">
+<title>lambda_obj</title>
+<polygon fill="#777777" stroke="#777777" points="282,-66 214,-66 214,-42 282,-42 282,-66"/>
+<text text-anchor="middle" x="248" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge4" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;lambda_obj</title>
+<path fill="none" stroke="#000000" d="M135.22,-67.15C158.09,-64.46 183.08,-61.52 203.61,-59.1"/>
+<polygon fill="#000000" stroke="#000000" points="204.09,-62.57 213.61,-57.93 203.27,-55.62 204.09,-62.57"/>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node5" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CallsGraph_node5"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="325,-24 171,-24 171,0 325,0 325,-24"/>
+<text text-anchor="middle" x="248" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge3" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M95.57,-62.87C116.04,-53.95 144.98,-41.89 171,-33 177.27,-30.86 183.88,-28.78 190.48,-26.81"/>
+<polygon fill="#000000" stroke="#000000" points="191.48,-30.16 200.11,-24.01 189.53,-23.44 191.48,-30.16"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node7" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CallsGraph_node7"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="503,-108 373,-108 373,-84 503,-84 503,-108"/>
+<text text-anchor="middle" x="438" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge5" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.17,-96C329.12,-96 346.34,-96 362.72,-96"/>
+<polygon fill="#000000" stroke="#000000" points="362.8,-99.5 372.8,-96 362.8,-92.5 362.8,-99.5"/>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node6" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CallsGraph_node6"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="515,-24 361,-24 361,0 515,0 515,-24"/>
+<text text-anchor="middle" x="438" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge6" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M325.2,-12C333.52,-12 342.03,-12 350.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="350.7,-15.5 360.7,-12 350.7,-8.5 350.7,-15.5"/>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node8" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CallsGraph_node8"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="724,-108 551,-108 551,-84 724,-84 724,-108"/>
+<text text-anchor="middle" x="637.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge7" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M503.12,-96C515.12,-96 527.9,-96 540.62,-96"/>
+<polygon fill="#000000" stroke="#000000" points="540.78,-99.5 550.78,-96 540.78,-92.5 540.78,-99.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_node9" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CallsGraph_node9"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="933,-108 760,-108 760,-84 933,-84 933,-108"/>
+<text text-anchor="middle" x="846.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_generate_tan_vel~~CallsGraph_edge8" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M724.19,-96C732.66,-96 741.3,-96 749.87,-96"/>
+<polygon fill="#000000" stroke="#000000" points="749.88,-99.5 759.88,-96 749.88,-92.5 749.88,-99.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_generate_tan_velCallsGraph = svgPanZoom('#procfraggle_generate_tan_velCallsGraph', {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~~fraggle_generate_tan_vel~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_generate_tan_velCalledByGraph" width="511pt" height="32pt"
+ viewBox="0.00 0.00 511.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_generate_tan_vel~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_generate_tan_vel~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 507,-28 507,4 -4,4"/>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_generate_tan_vel~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<polygon fill="none" stroke="black" points="503,-24 368,-24 368,0 503,0 503,-24"/>
+<text text-anchor="middle" x="435.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate_tan_vel</text>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_tan_vel~~CalledByGraph_node2" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CalledByGraph_node2"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_generate_tan_vel~~CalledByGraph_edge1" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M332.16,-12C340.58,-12 349.19,-12 357.66,-12"/>
+<polygon fill="#000000" stroke="#000000" points="357.91,-15.5 367.91,-12 357.91,-8.5 357.91,-15.5"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_tan_vel~~CalledByGraph_node3" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_generate_tan_vel~~CalledByGraph_node3"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_generate_tan_vel~~CalledByGraph_edge2" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-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/fraggle_io_log_generate.html b/docs/proc/fraggle_io_log_generate.html
new file mode 100644
index 000000000..f536c104c
--- /dev/null
+++ b/docs/proc/fraggle_io_log_generate.html
@@ -0,0 +1,495 @@
+<!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>fraggle_io_log_generate &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>fraggle_io_log_generate
+      <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.">48 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_io.html'>s_fraggle_io</a></li>
+    
+  
+     <li class="active">fraggle_io_log_generate</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 fraggle_io_log_generate(frag)
+    
+    
+   <a href='../interface/fraggle_io_log_generate.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Writes a log of the results of the fragment generation</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-frag~19"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td></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~~fraggle_io_log_generate~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_io_log_generateCalledByGraph" width="641pt" height="31pt"
+ viewBox="0.00 0.00 641.00 30.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph" class="graph" transform="scale(0.96 0.96) rotate(0) translate(4 28)">
+<title>proc~~fraggle_io_log_generate~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 666,-28 666,4 -4,4"/>
+<!-- proc~fraggle_io_log_generate -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_io_log_generate</title>
+<polygon fill="none" stroke="black" points="662,-24 533,-24 533,0 662,0 662,-24"/>
+<text text-anchor="middle" x="597.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_generate</text>
+</g>
+<!-- interface~fraggle_io_log_generate -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_io_log_generate</title>
+<g id="a_proc~~fraggle_io_log_generate~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_io_log_generate.html" xlink:title="fraggle_io_log_generate">
+<polygon fill="#a7506f" stroke="#a7506f" points="497,-24 368,-24 368,0 497,0 497,-24"/>
+<text text-anchor="middle" x="432.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_generate</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_generate&#45;&gt;proc~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M497.45,-12C505.76,-12 514.32,-12 522.77,-12"/>
+<polygon fill="#000000" stroke="#000000" points="523,-15.5 533,-12 523,-8.5 523,-15.5"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_io_log_generate~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 184,-24 184,0 332,0 332,-24"/>
+<text text-anchor="middle" x="258" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_generate</title>
+<path fill="none" stroke="#000000" d="M332.16,-12C340.58,-12 349.17,-12 357.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="357.78,-15.5 367.78,-12 357.78,-8.5 357.78,-15.5"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_node4" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_io_log_generate~~CalledByGraph_node4"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-24 0,-24 0,0 148,0 148,-24"/>
+<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_io_log_generate~~CalledByGraph_edge3" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-12C156.6,-12 165.16,-12 173.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-15.5 183.91,-12 173.91,-8.5 173.91,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_io_log_generateCalledByGraph = svgPanZoom('#procfraggle_io_log_generateCalledByGraph', {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/fraggle_io_log_one_message.html b/docs/proc/fraggle_io_log_one_message.html
new file mode 100644
index 000000000..5030b09d0
--- /dev/null
+++ b/docs/proc/fraggle_io_log_one_message.html
@@ -0,0 +1,573 @@
+<!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>fraggle_io_log_one_message &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>fraggle_io_log_one_message
+      <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.0% of total for procedures.">11 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_io.html'>s_fraggle_io</a></li>
+    
+  
+     <li class="active">fraggle_io_log_one_message</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 fraggle_io_log_one_message(message)
+    
+    
+   <a href='../interface/fraggle_io_log_one_message.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Writes a single message to the fraggle log file</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-message~4"></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td></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~~fraggle_io_log_one_message~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_io_log_one_messageCalledByGraph" width="641pt" height="127pt"
+ viewBox="0.00 0.00 641.00 126.86" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 173.53)">
+<title>proc~~fraggle_io_log_one_message~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-173.53 893,-173.53 893,4 -4,4"/>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<polygon fill="none" stroke="black" points="889,-108 735,-108 735,-84 889,-84 889,-108"/>
+<text text-anchor="middle" x="812" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_one_message</text>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="699,-108 545,-108 545,-84 699,-84 699,-108"/>
+<text text-anchor="middle" x="622" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.2,-96C707.52,-96 716.03,-96 724.47,-96"/>
+<polygon fill="#000000" stroke="#000000" points="724.7,-99.5 734.7,-96 724.7,-92.5 724.7,-99.5"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="506,-150 371,-150 371,-126 506,-126 506,-150"/>
+<text text-anchor="middle" x="438.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M491.51,-125.96C512.59,-121.09 537.09,-115.42 559.08,-110.33"/>
+<polygon fill="#000000" stroke="#000000" points="560.03,-113.7 568.98,-108.04 558.45,-106.88 560.03,-113.7"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node4" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node4"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="506.5,-108 370.5,-108 370.5,-84 506.5,-84 506.5,-108"/>
+<text text-anchor="middle" x="438.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge3" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M506.57,-96C515.69,-96 525.15,-96 534.56,-96"/>
+<polygon fill="#000000" stroke="#000000" points="534.72,-99.5 544.72,-96 534.72,-92.5 534.72,-99.5"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node5" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node5"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-129 184,-129 184,-105 332,-105 332,-129"/>
+<text text-anchor="middle" x="258" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge4" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M282.92,-129.17C304.52,-139.43 337.5,-153.33 368,-159 429.61,-170.46 448.38,-174.88 509,-159 542,-150.35 575.55,-129.56 597.2,-114.21"/>
+<polygon fill="#000000" stroke="#000000" points="599.41,-116.93 605.45,-108.22 595.3,-111.27 599.41,-116.93"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge7" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M332.12,-125.6C341.52,-126.71 351.17,-127.84 360.63,-128.96"/>
+<polygon fill="#000000" stroke="#000000" points="360.47,-132.46 370.81,-130.15 361.28,-125.51 360.47,-132.46"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge8" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.12,-108.4C341.38,-107.31 350.88,-106.19 360.21,-105.09"/>
+<polygon fill="#000000" stroke="#000000" points="360.71,-108.56 370.24,-103.91 359.9,-101.61 360.71,-108.56"/>
+</g>
+<!-- proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node6" class="node">
+<title>proc~fraggle_generate_spins</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node6"><a xlink:href=".././proc/fraggle_generate_spins.html" xlink:title="fraggle_generate_spins">
+<polygon fill="#d9534f" stroke="#d9534f" points="501,-66 376,-66 376,-42 501,-42 501,-66"/>
+<text text-anchor="middle" x="438.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_spins</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge10" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_spins</title>
+<path fill="none" stroke="#000000" d="M288.39,-104.99C310.2,-96.25 340.76,-84.35 368,-75 373.87,-72.99 380.05,-70.97 386.2,-69.03"/>
+<polygon fill="#000000" stroke="#000000" points="387.3,-72.35 395.81,-66.05 385.22,-65.67 387.3,-72.35"/>
+</g>
+<!-- proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge5" class="edge">
+<title>proc~fraggle_generate_spins&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M491.51,-66.04C512.59,-70.91 537.09,-76.58 559.08,-81.67"/>
+<polygon fill="#000000" stroke="#000000" points="558.45,-85.12 568.98,-83.96 560.03,-78.3 558.45,-85.12"/>
+</g>
+<!-- proc~fraggle_regime_collresolve -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node7" class="node">
+<title>proc~fraggle_regime_collresolve</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node7"><a xlink:href=".././proc/fraggle_regime_collresolve.html" xlink:title="fraggle_regime_collresolve">
+<polygon fill="#d9534f" stroke="#d9534f" points="509,-24 368,-24 368,0 509,0 509,-24"/>
+<text text-anchor="middle" x="438.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_collresolve</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge6" class="edge">
+<title>proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M484.51,-24.02C492.77,-26.67 501.23,-29.69 509,-33 539.3,-45.92 571.91,-64.89 594.08,-78.64"/>
+<polygon fill="#000000" stroke="#000000" points="592.29,-81.65 602.62,-83.99 596.01,-75.72 592.29,-81.65"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_node8" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_io_log_one_message~~CalledByGraph_node8"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-129 0,-129 0,-105 148,-105 148,-129"/>
+<text text-anchor="middle" x="74" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_io_log_one_message~~CalledByGraph_edge9" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-117C156.6,-117 165.16,-117 173.64,-117"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-120.5 183.91,-117 173.91,-113.5 173.91,-120.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_io_log_one_messageCalledByGraph = svgPanZoom('#procfraggle_io_log_one_messageCalledByGraph', {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/fraggle_io_log_pl.html b/docs/proc/fraggle_io_log_pl.html
new file mode 100644
index 000000000..887b22811
--- /dev/null
+++ b/docs/proc/fraggle_io_log_pl.html
@@ -0,0 +1,480 @@
+<!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>fraggle_io_log_pl &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>fraggle_io_log_pl
+      <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.">68 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_io.html'>s_fraggle_io</a></li>
+    
+  
+     <li class="active">fraggle_io_log_pl</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 fraggle_io_log_pl(pl, param)
+    
+    
+   <a href='../interface/fraggle_io_log_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Writes a single message to the fraggle log file</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-pl~23"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object (only the new bodies generated in a collision)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~249"></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 swiftest 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~~fraggle_io_log_pl~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_io_log_plCalledByGraph" width="232pt" height="32pt"
+ viewBox="0.00 0.00 232.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_io_log_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_io_log_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 228,-28 228,4 -4,4"/>
+<!-- proc~fraggle_io_log_pl -->
+<g id="proc~~fraggle_io_log_pl~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_io_log_pl</title>
+<polygon fill="none" stroke="black" 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">fraggle_io_log_pl</text>
+</g>
+<!-- interface~fraggle_io_log_pl -->
+<g id="proc~~fraggle_io_log_pl~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_io_log_pl</title>
+<g id="a_proc~~fraggle_io_log_pl~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_io_log_pl.html" xlink:title="fraggle_io_log_pl">
+<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">fraggle_io_log_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_pl&#45;&gt;proc~fraggle_io_log_pl -->
+<g id="proc~~fraggle_io_log_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_pl&#45;&gt;proc~fraggle_io_log_pl</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"/>
+</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/fraggle_io_log_regime.html b/docs/proc/fraggle_io_log_regime.html
new file mode 100644
index 000000000..217369bc7
--- /dev/null
+++ b/docs/proc/fraggle_io_log_regime.html
@@ -0,0 +1,510 @@
+<!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>fraggle_io_log_regime &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>fraggle_io_log_regime
+      <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.">57 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_io.html'>s_fraggle_io</a></li>
+    
+  
+     <li class="active">fraggle_io_log_regime</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 fraggle_io_log_regime(colliders, frag)
+    
+    
+   <a href='../interface/fraggle_io_log_regime.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Writes a log of the results of the collisional regime determination</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-colliders~26"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-frag~20"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment object</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~~fraggle_io_log_regime~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_io_log_regimeCalledByGraph" width="614pt" height="32pt"
+ viewBox="0.00 0.00 614.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_io_log_regime~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 610,-28 610,4 -4,4"/>
+<!-- proc~fraggle_io_log_regime -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_io_log_regime</title>
+<polygon fill="none" stroke="black" points="606,-24 487,-24 487,0 606,0 606,-24"/>
+<text text-anchor="middle" x="546.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_regime</text>
+</g>
+<!-- interface~fraggle_io_log_regime -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_io_log_regime</title>
+<g id="a_proc~~fraggle_io_log_regime~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#a7506f" stroke="#a7506f" points="451,-24 332,-24 332,0 451,0 451,-24"/>
+<text text-anchor="middle" x="391.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.22,-12C459.54,-12 468.17,-12 476.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="476.94,-15.5 486.94,-12 476.94,-8.5 476.94,-15.5"/>
+</g>
+<!-- proc~fraggle_regime_colliders -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_regime_colliders</title>
+<g id="a_proc~~fraggle_io_log_regime~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" d="M296.01,-12C304.44,-12 313.11,-12 321.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="321.88,-15.5 331.88,-12 321.88,-8.5 321.88,-15.5"/>
+</g>
+<!-- interface~fraggle_regime_colliders -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_node4" class="node">
+<title>interface~fraggle_regime_colliders</title>
+<g id="a_proc~~fraggle_io_log_regime~~CalledByGraph_node4"><a xlink:href=".././interface/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#a7506f" stroke="#a7506f" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders -->
+<g id="proc~~fraggle_io_log_regime~~CalledByGraph_edge3" class="edge">
+<title>interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-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/fraggle_io_log_start.html b/docs/proc/fraggle_io_log_start.html
new file mode 100644
index 000000000..b5e4f04aa
--- /dev/null
+++ b/docs/proc/fraggle_io_log_start.html
@@ -0,0 +1,465 @@
+<!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>fraggle_io_log_start &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>fraggle_io_log_start
+      <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.0% of total for procedures.">15 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_io.f90.html'>fraggle_io.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_io.html'>s_fraggle_io</a></li>
+    
+  
+     <li class="active">fraggle_io_log_start</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 fraggle_io_log_start(param)
+    
+    
+   <a href='../interface/fraggle_io_log_start.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run</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-param~250"></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>
+  
+</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~~fraggle_io_log_start~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_io_log_startCalledByGraph" width="258pt" height="32pt"
+ viewBox="0.00 0.00 258.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_io_log_start~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_io_log_start~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 254,-28 254,4 -4,4"/>
+<!-- proc~fraggle_io_log_start -->
+<g id="proc~~fraggle_io_log_start~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_io_log_start</title>
+<polygon fill="none" stroke="black" points="250,-24 143,-24 143,0 250,0 250,-24"/>
+<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io_log_start</text>
+</g>
+<!-- interface~fraggle_io_log_start -->
+<g id="proc~~fraggle_io_log_start~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_io_log_start</title>
+<g id="a_proc~~fraggle_io_log_start~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_io_log_start.html" xlink:title="fraggle_io_log_start">
+<polygon fill="#a7506f" stroke="#a7506f" points="107,-24 0,-24 0,0 107,0 107,-24"/>
+<text text-anchor="middle" x="53.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_start&#45;&gt;proc~fraggle_io_log_start -->
+<g id="proc~~fraggle_io_log_start~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_io_log_start&#45;&gt;proc~fraggle_io_log_start</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M107,-12C115.44,-12 124.26,-12 132.9,-12"/>
+<polygon fill="#000000" stroke="#000000" points="132.95,-15.5 142.95,-12 132.95,-8.5 132.95,-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/fraggle_placeholder_accel.html b/docs/proc/fraggle_placeholder_accel.html
new file mode 100644
index 000000000..3982c4d0e
--- /dev/null
+++ b/docs/proc/fraggle_placeholder_accel.html
@@ -0,0 +1,523 @@
+<!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>fraggle_placeholder_accel &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>fraggle_placeholder_accel
+      <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.">10 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_placeholder.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_placeholder.html'>s_fraggle_placeholder</a></li>
+    
+  
+     <li class="active">fraggle_placeholder_accel</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 fraggle_placeholder_accel(self, system, param, t, lbeg)
+    
+    
+   <a href='../interface/fraggle_placeholder_accel.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</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-self~446"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~126"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~253"></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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~73"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lbeg~33"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</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~~fraggle_placeholder_accel~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_placeholder_accelCalledByGraph" width="320pt" height="32pt"
+ viewBox="0.00 0.00 320.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_placeholder_accel~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_placeholder_accel~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 316,-28 316,4 -4,4"/>
+<!-- proc~fraggle_placeholder_accel -->
+<g id="proc~~fraggle_placeholder_accel~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_placeholder_accel</title>
+<polygon fill="none" stroke="black" points="312,-24 174,-24 174,0 312,0 312,-24"/>
+<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder_accel</text>
+</g>
+<!-- interface~fraggle_placeholder_accel -->
+<g id="proc~~fraggle_placeholder_accel~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_placeholder_accel</title>
+<g id="a_proc~~fraggle_placeholder_accel~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_placeholder_accel.html" xlink:title="fraggle_placeholder_accel">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-24 0,-24 0,0 138,0 138,-24"/>
+<text text-anchor="middle" x="69" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_accel</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_placeholder_accel&#45;&gt;proc~fraggle_placeholder_accel -->
+<g id="proc~~fraggle_placeholder_accel~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_placeholder_accel&#45;&gt;proc~fraggle_placeholder_accel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.47,-12C146.73,-12 155.22,-12 163.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="163.76,-15.5 173.76,-12 163.76,-8.5 163.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>
+     
+    <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/fraggle_placeholder_kick.html b/docs/proc/fraggle_placeholder_kick.html
new file mode 100644
index 000000000..9b44424ac
--- /dev/null
+++ b/docs/proc/fraggle_placeholder_kick.html
@@ -0,0 +1,536 @@
+<!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>fraggle_placeholder_kick &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>fraggle_placeholder_kick
+      <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.">11 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_placeholder.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_placeholder.html'>s_fraggle_placeholder</a></li>
+    
+  
+     <li class="active">fraggle_placeholder_kick</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 fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
+    
+    
+   <a href='../interface/fraggle_placeholder_kick.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~447"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~127"></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><p>Swiftest nbody system objec</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~254"></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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~74"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~101"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lbeg~34"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </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~~fraggle_placeholder_kick~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_placeholder_kickCalledByGraph" width="306pt" height="32pt"
+ viewBox="0.00 0.00 306.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_placeholder_kick~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_placeholder_kick~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 302,-28 302,4 -4,4"/>
+<!-- proc~fraggle_placeholder_kick -->
+<g id="proc~~fraggle_placeholder_kick~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_placeholder_kick</title>
+<polygon fill="none" stroke="black" points="298,-24 167,-24 167,0 298,0 298,-24"/>
+<text text-anchor="middle" x="232.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder_kick</text>
+</g>
+<!-- interface~fraggle_placeholder_kick -->
+<g id="proc~~fraggle_placeholder_kick~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_placeholder_kick</title>
+<g id="a_proc~~fraggle_placeholder_kick~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_placeholder_kick.html" xlink:title="fraggle_placeholder_kick">
+<polygon fill="#a7506f" stroke="#a7506f" points="131,-24 0,-24 0,0 131,0 131,-24"/>
+<text text-anchor="middle" x="65.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_kick</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_placeholder_kick&#45;&gt;proc~fraggle_placeholder_kick -->
+<g id="proc~~fraggle_placeholder_kick~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_placeholder_kick&#45;&gt;proc~fraggle_placeholder_kick</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.24,-12C139.58,-12 148.18,-12 156.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="156.95,-15.5 166.95,-12 156.95,-8.5 156.95,-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/fraggle_placeholder_step.html b/docs/proc/fraggle_placeholder_step.html
new file mode 100644
index 000000000..7c1e663ff
--- /dev/null
+++ b/docs/proc/fraggle_placeholder_step.html
@@ -0,0 +1,521 @@
+<!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>fraggle_placeholder_step &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>fraggle_placeholder_step
+      <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.">10 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_placeholder.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_placeholder.f90.html'>fraggle_placeholder.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_placeholder.html'>s_fraggle_placeholder</a></li>
+    
+  
+     <li class="active">fraggle_placeholder_step</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 fraggle_placeholder_step(self, system, param, t, dt)
+    
+    
+   <a href='../interface/fraggle_placeholder_step.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~448"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~128"></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><p>Swiftest system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~255"></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" id="variable-t~75"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~102"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Current stepsize</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~~fraggle_placeholder_step~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_placeholder_stepCalledByGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_placeholder_step~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_placeholder_step~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<!-- proc~fraggle_placeholder_step -->
+<g id="proc~~fraggle_placeholder_step~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_placeholder_step</title>
+<polygon fill="none" stroke="black" points="302,-24 169,-24 169,0 302,0 302,-24"/>
+<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder_step</text>
+</g>
+<!-- interface~fraggle_placeholder_step -->
+<g id="proc~~fraggle_placeholder_step~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_placeholder_step</title>
+<g id="a_proc~~fraggle_placeholder_step~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_placeholder_step.html" xlink:title="fraggle_placeholder_step">
+<polygon fill="#a7506f" stroke="#a7506f" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder_step</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_placeholder_step&#45;&gt;proc~fraggle_placeholder_step -->
+<g id="proc~~fraggle_placeholder_step~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_placeholder_step&#45;&gt;proc~fraggle_placeholder_step</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-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/fraggle_regime_colliders.html b/docs/proc/fraggle_regime_colliders.html
new file mode 100644
index 000000000..6aecc0207
--- /dev/null
+++ b/docs/proc/fraggle_regime_colliders.html
@@ -0,0 +1,637 @@
+<!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>fraggle_regime_colliders &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>fraggle_regime_colliders
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and 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.">49 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_regime.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_regime.f90.html'>fraggle_regime.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_regime.html'>s_fraggle_regime</a></li>
+    
+  
+     <li class="active">fraggle_regime_colliders</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 fraggle_regime_colliders(self, frag, system, param)
+    
+    
+   <a href='../interface/fraggle_regime_colliders.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine.
+ It converts to SI units prior to calling
+ The two-body equivalent masses of the collider system
+ The two-body equivalent radii of the collider system
+ The two-body equivalent density of the collider system
+ The first body of the two-body equivalent position vector the collider system
+ The first body of the two-body equivalent velocity vector the collider system
+ The second body of the two-body equivalent position vector the collider system
+ The second body of the two-body equivalent velocity vector the collider system
+ The central body mass of the system
+ The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead
+ Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime</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-self~445"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle colliders object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-frag~21"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~125"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~252"></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 Swiftest run configuration parameters</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~~fraggle_regime_colliders~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_regime_collidersCallsGraph" width="448pt" height="32pt"
+ viewBox="0.00 0.00 448.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_regime_colliders~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_regime_colliders~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 444,-28 444,4 -4,4"/>
+<!-- proc~fraggle_regime_colliders -->
+<g id="proc~~fraggle_regime_colliders~~CallsGraph_node1" class="node">
+<title>proc~fraggle_regime_colliders</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_regime_colliders</text>
+</g>
+<!-- interface~fraggle_io_log_regime -->
+<g id="proc~~fraggle_regime_colliders~~CallsGraph_node2" class="node">
+<title>interface~fraggle_io_log_regime</title>
+<g id="a_proc~~fraggle_regime_colliders~~CallsGraph_node2"><a xlink:href=".././interface/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#a7506f" stroke="#a7506f" points="285,-24 166,-24 166,0 285,0 285,-24"/>
+<text text-anchor="middle" x="225.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime -->
+<g id="proc~~fraggle_regime_colliders~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_regime_colliders&#45;&gt;interface~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" d="M130.01,-12C138.44,-12 147.11,-12 155.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.88,-15.5 165.88,-12 155.88,-8.5 155.88,-15.5"/>
+</g>
+<!-- proc~fraggle_io_log_regime -->
+<g id="proc~~fraggle_regime_colliders~~CallsGraph_node3" class="node">
+<title>proc~fraggle_io_log_regime</title>
+<g id="a_proc~~fraggle_regime_colliders~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_io_log_regime.html" xlink:title="fraggle_io_log_regime">
+<polygon fill="#d9534f" stroke="#d9534f" points="440,-24 321,-24 321,0 440,0 440,-24"/>
+<text text-anchor="middle" x="380.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_regime</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime -->
+<g id="proc~~fraggle_regime_colliders~~CallsGraph_edge2" class="edge">
+<title>interface~fraggle_io_log_regime&#45;&gt;proc~fraggle_io_log_regime</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.22,-12C293.54,-12 302.17,-12 310.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="310.94,-15.5 320.94,-12 310.94,-8.5 310.94,-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">
+  <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~~fraggle_regime_colliders~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_regime_collidersCalledByGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_regime_colliders~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_regime_colliders~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
+<!-- proc~fraggle_regime_colliders -->
+<g id="proc~~fraggle_regime_colliders~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_regime_colliders</title>
+<polygon fill="none" stroke="black" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_regime_colliders</text>
+</g>
+<!-- interface~fraggle_regime_colliders -->
+<g id="proc~~fraggle_regime_colliders~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_regime_colliders</title>
+<g id="a_proc~~fraggle_regime_colliders~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_regime_colliders.html" xlink:title="fraggle_regime_colliders">
+<polygon fill="#a7506f" stroke="#a7506f" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime_colliders</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders -->
+<g id="proc~~fraggle_regime_colliders~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_regime_colliders&#45;&gt;proc~fraggle_regime_colliders</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-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/fragmentation_regime.html b/docs/proc/fraggle_regime_collresolve.html
similarity index 76%
rename from docs/proc/fragmentation_regime.html
rename to docs/proc/fraggle_regime_collresolve.html
index 2a1ecca5b..d7c10c2ae 100644
--- a/docs/proc/fragmentation_regime.html
+++ b/docs/proc/fraggle_regime_collresolve.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>fragmentation_regime &ndash; swiftest</title>
+    <title>fraggle_regime_collresolve &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,8 +116,8 @@
     
   
   <div class="row">
-    <h1>fragmentation_regime
-      <small>Module Subroutine</small>
+    <h1>fraggle_regime_collresolve
+      <small>Subroutine</small>
     
     </h1>
     
@@ -136,24 +136,24 @@ <h1>fragmentation_regime
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for procedures.">187 statements</a>
+    title=" 0.3% of total for procedures.">193 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/fragmentation.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_regime.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/fragmentation.f90.html'>fragmentation.f90</a></li>
+     <li><a href='../sourcefile/fraggle_regime.f90.html'>fraggle_regime.f90</a></li>
     
-     <li><a href='../module/s_fragmentation.html'>s_fragmentation</a></li>
+     <li><a href='../module/s_fraggle_regime.html'>s_fraggle_regime</a></li>
     
   
-     <li class="active">fragmentation_regime</li>
+     <li class="active">fraggle_regime_collresolve</li>
   </ol>
 </div>
 </div>
@@ -203,11 +203,9 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss)
+subroutine fraggle_regime_collresolve(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, min_mfrag, regime, Mlr, Mslr, Qloss)
     
     
-   <a href='../interface/fragmentation_regime.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
    
 </h2>
     
@@ -248,7 +246,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mcb~4"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mcb"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -263,7 +261,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m1~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-m1"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -278,7 +276,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m2~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-m2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -293,7 +291,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad1~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rad1"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -308,7 +306,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad2~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rad2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -323,7 +321,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh1~5"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xh1~4"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -338,7 +336,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh2~5"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xh2~4"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -353,7 +351,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vb1~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vb1"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -368,7 +366,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vb2~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vb2"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -383,7 +381,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-den1~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-den1"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -398,7 +396,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-den2~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-den2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -413,12 +411,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-regime~2"></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-min_mfrag"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>regime</strong></td><td></td>
+  <td><strong>min_mfrag</strong></td><td></td>
   
 </tr>
 
@@ -428,12 +426,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mlr~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-regime~3"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mlr</strong></td><td></td>
+  <td><strong>regime</strong></td><td></td>
   
 </tr>
 
@@ -443,12 +441,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mslr~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mlr"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mslr</strong></td><td></td>
+  <td><strong>Mlr</strong></td><td></td>
   
 </tr>
 
@@ -458,12 +456,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtiny~2"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-mslr"></span>real(kind=DP),</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mtiny</strong></td><td></td>
+  <td><strong>Mslr</strong></td><td></td>
   
 </tr>
 
@@ -473,7 +471,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~10"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-qloss~2"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
@@ -491,10 +489,9 @@ <h3>Arguments</h3>
     <br>
     
     
-     
     <div class="panel panel-default">
       <div class="panel-heading">
-  <h3 class="panel-title">Called by</h3>
+  <h3 class="panel-title">Calls</h3>
       </div>
       <div class="panel-body">
   <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
@@ -502,32 +499,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: proc~~fragmentation_regime~~CalledByGraph Pages: 1 -->
-<svg id="procfragmentation_regimeCalledByGraph" 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="proc~~fragmentation_regime~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~fragmentation_regime~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- proc~fragmentation_regime -->
-<g id="proc~~fragmentation_regime~~CalledByGraph_node1" class="node">
-<title>proc~fragmentation_regime</title>
-<polygon fill="none" stroke="black" points="272,-24 154,-24 154,0 272,0 272,-24"/>
-<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fragmentation_regime</text>
+<!-- Title: proc~~fraggle_regime_collresolve~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_regime_collresolveCallsGraph" width="529pt" height="32pt"
+ viewBox="0.00 0.00 529.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_regime_collresolve~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_regime_collresolve~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 525,-28 525,4 -4,4"/>
+<!-- proc~fraggle_regime_collresolve -->
+<g id="proc~~fraggle_regime_collresolve~~CallsGraph_node1" class="node">
+<title>proc~fraggle_regime_collresolve</title>
+<polygon fill="none" stroke="black" 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">fraggle_regime_collresolve</text>
+</g>
+<!-- interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_regime_collresolve~~CallsGraph_node2" class="node">
+<title>interface~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_regime_collresolve~~CallsGraph_node2"><a xlink:href=".././interface/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#a7506f" stroke="#a7506f" points="331,-24 177,-24 177,0 331,0 331,-24"/>
+<text text-anchor="middle" x="254" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</a>
+</g>
 </g>
-<!-- interface~fragmentation_regime -->
-<g id="proc~~fragmentation_regime~~CalledByGraph_node2" class="node">
-<title>interface~fragmentation_regime</title>
-<g id="a_proc~~fragmentation_regime~~CalledByGraph_node2"><a xlink:href=".././interface/fragmentation_regime.html" xlink:title="fragmentation_regime">
-<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">fragmentation_regime</text>
+<!-- proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_regime_collresolve~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_regime_collresolve&#45;&gt;interface~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M141.15,-12C149.56,-12 158.22,-12 166.83,-12"/>
+<polygon fill="#000000" stroke="#000000" points="166.89,-15.5 176.89,-12 166.89,-8.5 166.89,-15.5"/>
+</g>
+<!-- proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_regime_collresolve~~CallsGraph_node3" class="node">
+<title>proc~fraggle_io_log_one_message</title>
+<g id="a_proc~~fraggle_regime_collresolve~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_io_log_one_message.html" xlink:title="fraggle_io_log_one_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="521,-24 367,-24 367,0 521,0 521,-24"/>
+<text text-anchor="middle" x="444" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </a>
 </g>
 </g>
-<!-- interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime -->
-<g id="proc~~fragmentation_regime~~CalledByGraph_edge1" class="edge">
-<title>interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime</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"/>
+<!-- interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message -->
+<g id="proc~~fraggle_regime_collresolve~~CallsGraph_edge2" class="edge">
+<title>interface~fraggle_io_log_one_message&#45;&gt;proc~fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.2,-12C339.52,-12 348.03,-12 356.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="356.7,-15.5 366.7,-12 356.7,-8.5 356.7,-15.5"/>
 </g>
 </g>
 </svg>
@@ -593,6 +605,7 @@ <h3 class="panel-title">Called by</h3>
       </div>
     </div>
      
+     
     <br>
 
     <section class="visible-xs visible-sm hidden-md">
diff --git a/docs/proc/fraggle_set_budgets_fragments.html b/docs/proc/fraggle_set_budgets_fragments.html
new file mode 100644
index 000000000..17d4ced5c
--- /dev/null
+++ b/docs/proc/fraggle_set_budgets_fragments.html
@@ -0,0 +1,480 @@
+<!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>fraggle_set_budgets_fragments &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>fraggle_set_budgets_fragments
+      <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.0% of total for procedures.">14 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_set.html'>s_fraggle_set</a></li>
+    
+  
+     <li class="active">fraggle_set_budgets_fragments</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 fraggle_set_budgets_fragments(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_budgets_fragments.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum</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-self~451"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~28"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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~~fraggle_set_budgets_fragments~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_set_budgets_fragmentsCalledByGraph" width="372pt" height="32pt"
+ viewBox="0.00 0.00 372.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_set_budgets_fragments~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_set_budgets_fragments~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 368,-28 368,4 -4,4"/>
+<!-- proc~fraggle_set_budgets_fragments -->
+<g id="proc~~fraggle_set_budgets_fragments~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_set_budgets_fragments</title>
+<polygon fill="none" stroke="black" points="364,-24 200,-24 200,0 364,0 364,-24"/>
+<text text-anchor="middle" x="282" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_budgets_fragments</text>
+</g>
+<!-- interface~fraggle_set_budgets_fragments -->
+<g id="proc~~fraggle_set_budgets_fragments~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_set_budgets_fragments</title>
+<g id="a_proc~~fraggle_set_budgets_fragments~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_set_budgets_fragments.html" xlink:title="fraggle_set_budgets_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="164,-24 0,-24 0,0 164,0 164,-24"/>
+<text text-anchor="middle" x="82" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_budgets_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_budgets_fragments&#45;&gt;proc~fraggle_set_budgets_fragments -->
+<g id="proc~~fraggle_set_budgets_fragments~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_set_budgets_fragments&#45;&gt;proc~fraggle_set_budgets_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.11,-12C172.46,-12 180.99,-12 189.44,-12"/>
+<polygon fill="#000000" stroke="#000000" points="189.7,-15.5 199.7,-12 189.7,-8.5 189.7,-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/fraggle_set_coordinate_system.html b/docs/proc/fraggle_set_coordinate_system.html
new file mode 100644
index 000000000..c4c0f14df
--- /dev/null
+++ b/docs/proc/fraggle_set_coordinate_system.html
@@ -0,0 +1,480 @@
+<!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>fraggle_set_coordinate_system &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>fraggle_set_coordinate_system
+      <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.0% of total for procedures.">30 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_set.html'>s_fraggle_set</a></li>
+    
+  
+     <li class="active">fraggle_set_coordinate_system</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 fraggle_set_coordinate_system(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_coordinate_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.</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-self~453"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~30"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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~~fraggle_set_coordinate_system~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_set_coordinate_systemCalledByGraph" width="368pt" height="32pt"
+ viewBox="0.00 0.00 368.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_set_coordinate_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_set_coordinate_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 364,-28 364,4 -4,4"/>
+<!-- proc~fraggle_set_coordinate_system -->
+<g id="proc~~fraggle_set_coordinate_system~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_set_coordinate_system</title>
+<polygon fill="none" stroke="black" points="360,-24 198,-24 198,0 360,0 360,-24"/>
+<text text-anchor="middle" x="279" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_coordinate_system</text>
+</g>
+<!-- interface~fraggle_set_coordinate_system -->
+<g id="proc~~fraggle_set_coordinate_system~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_set_coordinate_system</title>
+<g id="a_proc~~fraggle_set_coordinate_system~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_set_coordinate_system.html" xlink:title="fraggle_set_coordinate_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-24 0,-24 0,0 162,0 162,-24"/>
+<text text-anchor="middle" x="81" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_coordinate_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_coordinate_system&#45;&gt;proc~fraggle_set_coordinate_system -->
+<g id="proc~~fraggle_set_coordinate_system~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_set_coordinate_system&#45;&gt;proc~fraggle_set_coordinate_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162,-12C170.52,-12 179.23,-12 187.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="187.93,-15.5 197.93,-12 187.93,-8.5 187.93,-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/fraggle_set_mass_dist_fragments.html b/docs/proc/fraggle_set_mass_dist_fragments.html
new file mode 100644
index 000000000..2514f8a6f
--- /dev/null
+++ b/docs/proc/fraggle_set_mass_dist_fragments.html
@@ -0,0 +1,496 @@
+<!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>fraggle_set_mass_dist_fragments &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>fraggle_set_mass_dist_fragments
+      <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.">91 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_set.html'>s_fraggle_set</a></li>
+    
+  
+     <li class="active">fraggle_set_mass_dist_fragments</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 fraggle_set_mass_dist_fragments(self, colliders, param)
+    
+    
+   <a href='../interface/fraggle_set_mass_dist_fragments.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Sets the mass of fragments based on the mass distribution returned by the regime calculation.
+ This subroutine must be run after the the setup rourtine has been run on the fragments</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-self~452"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~29"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~257"></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 Swiftest 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~~fraggle_set_mass_dist_fragments~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_set_mass_dist_fragmentsCalledByGraph" width="392pt" height="32pt"
+ viewBox="0.00 0.00 392.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_set_mass_dist_fragments~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_set_mass_dist_fragments~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 388,-28 388,4 -4,4"/>
+<!-- proc~fraggle_set_mass_dist_fragments -->
+<g id="proc~~fraggle_set_mass_dist_fragments~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_set_mass_dist_fragments</title>
+<polygon fill="none" stroke="black" points="384,-24 210,-24 210,0 384,0 384,-24"/>
+<text text-anchor="middle" x="297" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_mass_dist_fragments</text>
+</g>
+<!-- interface~fraggle_set_mass_dist_fragments -->
+<g id="proc~~fraggle_set_mass_dist_fragments~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_set_mass_dist_fragments</title>
+<g id="a_proc~~fraggle_set_mass_dist_fragments~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_set_mass_dist_fragments.html" xlink:title="fraggle_set_mass_dist_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="174,-24 0,-24 0,0 174,0 174,-24"/>
+<text text-anchor="middle" x="87" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_mass_dist_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_mass_dist_fragments&#45;&gt;proc~fraggle_set_mass_dist_fragments -->
+<g id="proc~~fraggle_set_mass_dist_fragments~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_set_mass_dist_fragments&#45;&gt;proc~fraggle_set_mass_dist_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.1,-12C182.62,-12 191.3,-12 199.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="199.96,-15.5 209.96,-12 199.96,-8.5 199.96,-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/fraggle_set_natural_scale_factors.html b/docs/proc/fraggle_set_natural_scale_factors.html
new file mode 100644
index 000000000..7405b5d7c
--- /dev/null
+++ b/docs/proc/fraggle_set_natural_scale_factors.html
@@ -0,0 +1,481 @@
+<!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>fraggle_set_natural_scale_factors &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>fraggle_set_natural_scale_factors
+      <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.0% of total for procedures.">29 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_set.html'>s_fraggle_set</a></li>
+    
+  
+     <li class="active">fraggle_set_natural_scale_factors</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 fraggle_set_natural_scale_factors(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_natural_scale_factors.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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</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-self~454"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~31"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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~~fraggle_set_natural_scale_factors~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_set_natural_scale_factorsCalledByGraph" width="392pt" height="32pt"
+ viewBox="0.00 0.00 392.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_set_natural_scale_factors~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_set_natural_scale_factors~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 388,-28 388,4 -4,4"/>
+<!-- proc~fraggle_set_natural_scale_factors -->
+<g id="proc~~fraggle_set_natural_scale_factors~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_set_natural_scale_factors</title>
+<polygon fill="none" stroke="black" points="384,-24 210,-24 210,0 384,0 384,-24"/>
+<text text-anchor="middle" x="297" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_natural_scale_factors</text>
+</g>
+<!-- interface~fraggle_set_natural_scale_factors -->
+<g id="proc~~fraggle_set_natural_scale_factors~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_set_natural_scale_factors</title>
+<g id="a_proc~~fraggle_set_natural_scale_factors~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_set_natural_scale_factors.html" xlink:title="fraggle_set_natural_scale_factors">
+<polygon fill="#a7506f" stroke="#a7506f" points="174,-24 0,-24 0,0 174,0 174,-24"/>
+<text text-anchor="middle" x="87" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set_natural_scale_factors</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_natural_scale_factors&#45;&gt;proc~fraggle_set_natural_scale_factors -->
+<g id="proc~~fraggle_set_natural_scale_factors~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_set_natural_scale_factors&#45;&gt;proc~fraggle_set_natural_scale_factors</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.1,-12C182.62,-12 191.3,-12 199.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="199.96,-15.5 209.96,-12 199.96,-8.5 199.96,-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/fraggle_set_original_scale_factors.html b/docs/proc/fraggle_set_original_scale_factors.html
new file mode 100644
index 000000000..5e63f2eef
--- /dev/null
+++ b/docs/proc/fraggle_set_original_scale_factors.html
@@ -0,0 +1,594 @@
+<!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>fraggle_set_original_scale_factors &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>fraggle_set_original_scale_factors
+      <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.">41 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_set.f90.html'>fraggle_set.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_set.html'>s_fraggle_set</a></li>
+    
+  
+     <li class="active">fraggle_set_original_scale_factors</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 fraggle_set_original_scale_factors(self, colliders)
+    
+    
+   <a href='../interface/fraggle_set_original_scale_factors.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+    <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="http://fortranwiki.org/fortran/show/IEEE+arithmetic">ieee_exceptions</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: proc~~fraggle_set_original_scale_factors~~UsesGraph Pages: 1 -->
+<svg id="procfraggle_set_original_scale_factorsUsesGraph" width="309pt" height="32pt"
+ viewBox="0.00 0.00 309.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_set_original_scale_factors~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_set_original_scale_factors~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 305,-28 305,4 -4,4"/>
+<!-- proc~fraggle_set_original_scale_factors -->
+<g id="proc~~fraggle_set_original_scale_factors~~UsesGraph_node1" class="node">
+<title>proc~fraggle_set_original_scale_factors</title>
+<polygon fill="none" stroke="black" points="301,-24 126,-24 126,0 301,0 301,-24"/>
+<text text-anchor="middle" x="213.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_original_scale_factors</text>
+</g>
+<!-- ieee_exceptions -->
+<g id="proc~~fraggle_set_original_scale_factors~~UsesGraph_node2" class="node">
+<title>ieee_exceptions</title>
+<g id="a_proc~~fraggle_set_original_scale_factors~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
+<polygon fill="#337ab7" stroke="#337ab7" points="90,-24 0,-24 0,0 90,0 90,-24"/>
+<text text-anchor="middle" x="45" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_set_original_scale_factors&#45;&gt;ieee_exceptions -->
+<g id="proc~~fraggle_set_original_scale_factors~~UsesGraph_edge1" class="edge">
+<title>proc~fraggle_set_original_scale_factors&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.84,-12C117.17,-12 108.55,-12 100.36,-12"/>
+<polygon fill="#000000" stroke="#000000" points="100.24,-8.5 90.24,-12 100.24,-15.5 100.24,-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="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>
+    
+
+
+    
+    <p>Restores dimenional quantities back to the system units</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-self~455"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~32"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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~~fraggle_set_original_scale_factors~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_set_original_scale_factorsCalledByGraph" 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">
+<g id="proc~~fraggle_set_original_scale_factors~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_set_original_scale_factors~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 390,-28 390,4 -4,4"/>
+<!-- proc~fraggle_set_original_scale_factors -->
+<g id="proc~~fraggle_set_original_scale_factors~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_set_original_scale_factors</title>
+<polygon fill="none" stroke="black" points="386,-24 211,-24 211,0 386,0 386,-24"/>
+<text text-anchor="middle" x="298.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set_original_scale_factors</text>
+</g>
+<!-- interface~fraggle_set_original_scale_factors -->
+<g id="proc~~fraggle_set_original_scale_factors~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_set_original_scale_factors</title>
+<g id="a_proc~~fraggle_set_original_scale_factors~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_set_original_scale_factors.html" xlink:title="fraggle_set_original_scale_factors">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">fraggle_set_original_scale_factors</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_set_original_scale_factors&#45;&gt;proc~fraggle_set_original_scale_factors -->
+<g id="proc~~fraggle_set_original_scale_factors~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_set_original_scale_factors&#45;&gt;proc~fraggle_set_original_scale_factors</title>
+<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>
+</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/fraggle_setup_fragments.html b/docs/proc/fraggle_setup_fragments.html
new file mode 100644
index 000000000..e9ecc82c7
--- /dev/null
+++ b/docs/proc/fraggle_setup_fragments.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>fraggle_setup_fragments &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>fraggle_setup_fragments
+      <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.0% of total for procedures.">29 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_setup.f90.html'>fraggle_setup.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_setup.html'>s_fraggle_setup</a></li>
+    
+  
+     <li class="active">fraggle_setup_fragments</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 fraggle_setup_fragments(self, n, param)
+    
+    
+   <a href='../interface/fraggle_setup_fragments.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.</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-self~450"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~37"></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" id="variable-param~256"></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>
+  
+</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~~fraggle_setup_fragments~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_setup_fragmentsCallsGraph" width="230pt" height="32pt"
+ viewBox="0.00 0.00 230.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_setup_fragments~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_setup_fragments~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 226,-28 226,4 -4,4"/>
+<!-- proc~fraggle_setup_fragments -->
+<g id="proc~~fraggle_setup_fragments~~CallsGraph_node1" class="node">
+<title>proc~fraggle_setup_fragments</title>
+<polygon fill="none" stroke="black" points="132,-24 0,-24 0,0 132,0 132,-24"/>
+<text text-anchor="middle" x="66" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_setup_fragments</text>
+</g>
+<!-- setup_pl -->
+<g id="proc~~fraggle_setup_fragments~~CallsGraph_node2" class="node">
+<title>setup_pl</title>
+<polygon fill="#777777" stroke="#777777" points="222,-24 168,-24 168,0 222,0 222,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+</g>
+<!-- proc~fraggle_setup_fragments&#45;&gt;setup_pl -->
+<g id="proc~~fraggle_setup_fragments~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_setup_fragments&#45;&gt;setup_pl</title>
+<path fill="none" stroke="#000000" d="M132.36,-12C141.15,-12 149.89,-12 157.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.98,-15.5 167.98,-12 157.98,-8.5 157.98,-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">
+  <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~~fraggle_setup_fragments~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_setup_fragmentsCalledByGraph" width="308pt" height="32pt"
+ viewBox="0.00 0.00 308.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_setup_fragments~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_setup_fragments~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 304,-28 304,4 -4,4"/>
+<!-- proc~fraggle_setup_fragments -->
+<g id="proc~~fraggle_setup_fragments~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_setup_fragments</title>
+<polygon fill="none" stroke="black" points="300,-24 168,-24 168,0 300,0 300,-24"/>
+<text text-anchor="middle" x="234" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_setup_fragments</text>
+</g>
+<!-- interface~fraggle_setup_fragments -->
+<g id="proc~~fraggle_setup_fragments~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_setup_fragments</title>
+<g id="a_proc~~fraggle_setup_fragments~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_setup_fragments.html" xlink:title="fraggle_setup_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="132,-24 0,-24 0,0 132,0 132,-24"/>
+<text text-anchor="middle" x="66" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_setup_fragments&#45;&gt;proc~fraggle_setup_fragments -->
+<g id="proc~~fraggle_setup_fragments~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_setup_fragments&#45;&gt;proc~fraggle_setup_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-12C140.46,-12 149.04,-12 157.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.78,-15.5 167.78,-12 157.78,-8.5 157.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>
+
+    <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/fraggle_setup_reset_fragments.html b/docs/proc/fraggle_setup_reset_fragments.html
new file mode 100644
index 000000000..fdc91e07f
--- /dev/null
+++ b/docs/proc/fraggle_setup_reset_fragments.html
@@ -0,0 +1,465 @@
+<!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>fraggle_setup_reset_fragments &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>fraggle_setup_reset_fragments
+      <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.0% of total for procedures.">21 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_setup.f90.html'>fraggle_setup.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_setup.html'>s_fraggle_setup</a></li>
+    
+  
+     <li class="active">fraggle_setup_reset_fragments</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 fraggle_setup_reset_fragments(self)
+    
+    
+   <a href='../interface/fraggle_setup_reset_fragments.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)</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-self~449"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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~~fraggle_setup_reset_fragments~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_setup_reset_fragmentsCalledByGraph" width="368pt" height="32pt"
+ viewBox="0.00 0.00 368.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_setup_reset_fragments~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_setup_reset_fragments~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 364,-28 364,4 -4,4"/>
+<!-- proc~fraggle_setup_reset_fragments -->
+<g id="proc~~fraggle_setup_reset_fragments~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_setup_reset_fragments</title>
+<polygon fill="none" stroke="black" points="360,-24 198,-24 198,0 360,0 360,-24"/>
+<text text-anchor="middle" x="279" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_setup_reset_fragments</text>
+</g>
+<!-- interface~fraggle_setup_reset_fragments -->
+<g id="proc~~fraggle_setup_reset_fragments~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_setup_reset_fragments</title>
+<g id="a_proc~~fraggle_setup_reset_fragments~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_setup_reset_fragments.html" xlink:title="fraggle_setup_reset_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-24 0,-24 0,0 162,0 162,-24"/>
+<text text-anchor="middle" x="81" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup_reset_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_setup_reset_fragments&#45;&gt;proc~fraggle_setup_reset_fragments -->
+<g id="proc~~fraggle_setup_reset_fragments~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_setup_reset_fragments&#45;&gt;proc~fraggle_setup_reset_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162,-12C170.52,-12 179.23,-12 187.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="187.93,-15.5 197.93,-12 187.93,-8.5 187.93,-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/fraggle_util_add_fragments_to_system.html b/docs/proc/fraggle_util_add_fragments_to_system.html
new file mode 100644
index 000000000..8f0b57e75
--- /dev/null
+++ b/docs/proc/fraggle_util_add_fragments_to_system.html
@@ -0,0 +1,540 @@
+<!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>fraggle_util_add_fragments_to_system &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>fraggle_util_add_fragments_to_system
+      <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.">36 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
+    
+  
+     <li class="active">fraggle_util_add_fragments_to_system</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 fraggle_util_add_fragments_to_system(frag, colliders, system, param)
+    
+    
+   <a href='../interface/fraggle_util_add_fragments_to_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Adds fragments to the temporary system pl object</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-frag~17"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~23"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~121"></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><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~246"></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 swiftest 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~~fraggle_util_add_fragments_to_system~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_add_fragments_to_systemCalledByGraph" width="641pt" height="23pt"
+ viewBox="0.00 0.00 641.00 23.26" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_add_fragments_to_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 878,-28 878,4 -4,4"/>
+<!-- proc~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_add_fragments_to_system</title>
+<polygon fill="none" stroke="black" points="874,-24 676,-24 676,0 874,0 874,-24"/>
+<text text-anchor="middle" x="775" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_add_fragments_to_system</text>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_add_fragments_to_system</title>
+<g id="a_proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="640,-24 442,-24 442,0 640,0 640,-24"/>
+<text text-anchor="middle" x="541" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.05,-12C648.59,-12 657.25,-12 665.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="665.93,-15.5 675.93,-12 665.93,-8.5 665.93,-15.5"/>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<g id="a_proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#d9534f" stroke="#d9534f" points="406,-24 221,-24 221,0 406,0 406,-24"/>
+<text text-anchor="middle" x="313.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" d="M406.22,-12C414.54,-12 423.02,-12 431.47,-12"/>
+<polygon fill="#000000" stroke="#000000" points="431.75,-15.5 441.75,-12 431.75,-8.5 431.75,-15.5"/>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node4" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<g id="a_proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_node4"><a xlink:href=".././interface/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#a7506f" stroke="#a7506f" points="185,-24 0,-24 0,0 185,0 185,-24"/>
+<text text-anchor="middle" x="92.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_add_fragments_to_system~~CalledByGraph_edge3" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.11,-12C193.62,-12 202.27,-12 210.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="210.91,-15.5 220.91,-12 210.91,-8.5 210.91,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_util_add_fragments_to_systemCalledByGraph = svgPanZoom('#procfraggle_util_add_fragments_to_systemCalledByGraph', {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/fraggle_util_ang_mtm.html b/docs/proc/fraggle_util_ang_mtm.html
new file mode 100644
index 000000000..1c5415f97
--- /dev/null
+++ b/docs/proc/fraggle_util_ang_mtm.html
@@ -0,0 +1,465 @@
+<!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>fraggle_util_ang_mtm &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>fraggle_util_ang_mtm
+      <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.0% of total for procedures.">14 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
+    
+  
+     <li class="active">fraggle_util_ang_mtm</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 fraggle_util_ang_mtm(self)
+    
+    
+   <a href='../interface/fraggle_util_ang_mtm.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Calcualtes the current angular momentum of the fragments</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-self~441"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</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~~fraggle_util_ang_mtm~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_ang_mtmCalledByGraph" width="276pt" height="32pt"
+ viewBox="0.00 0.00 276.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_ang_mtm~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_ang_mtm~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 272,-28 272,4 -4,4"/>
+<!-- proc~fraggle_util_ang_mtm -->
+<g id="proc~~fraggle_util_ang_mtm~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_ang_mtm</title>
+<polygon fill="none" stroke="black" points="268,-24 152,-24 152,0 268,0 268,-24"/>
+<text text-anchor="middle" x="210" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_ang_mtm</text>
+</g>
+<!-- interface~fraggle_util_ang_mtm -->
+<g id="proc~~fraggle_util_ang_mtm~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_ang_mtm</title>
+<g id="a_proc~~fraggle_util_ang_mtm~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_ang_mtm.html" xlink:title="fraggle_util_ang_mtm">
+<polygon fill="#a7506f" stroke="#a7506f" points="116,-24 0,-24 0,0 116,0 116,-24"/>
+<text text-anchor="middle" x="58" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_ang_mtm</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_ang_mtm&#45;&gt;proc~fraggle_util_ang_mtm -->
+<g id="proc~~fraggle_util_ang_mtm~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_ang_mtm&#45;&gt;proc~fraggle_util_ang_mtm</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.14,-12C124.38,-12 132.92,-12 141.34,-12"/>
+<polygon fill="#000000" stroke="#000000" points="141.53,-15.5 151.53,-12 141.53,-8.5 141.53,-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/fraggle_util_construct_temporary_system.html b/docs/proc/fraggle_util_construct_temporary_system.html
new file mode 100644
index 000000000..f15367d75
--- /dev/null
+++ b/docs/proc/fraggle_util_construct_temporary_system.html
@@ -0,0 +1,654 @@
+<!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>fraggle_util_construct_temporary_system &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>fraggle_util_construct_temporary_system
+      <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.0% of total for procedures.">27 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
+    
+  
+     <li class="active">fraggle_util_construct_temporary_system</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 fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam)
+    
+    
+   <a href='../interface/fraggle_util_construct_temporary_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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.</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-frag~18"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~122"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Original swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~247"></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 swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tmpsys~2"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpsys</strong></td><td><p>Output temporary swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tmpparam~2"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>allocatable</td><td>::</td>
+  <td><strong>tmpparam</strong></td><td><p>Output temporary configuration run parameters</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~~fraggle_util_construct_temporary_system~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_util_construct_temporary_systemCallsGraph" width="381pt" height="32pt"
+ viewBox="0.00 0.00 381.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_construct_temporary_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_construct_temporary_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 377,-28 377,4 -4,4"/>
+<!-- proc~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CallsGraph_node1" class="node">
+<title>proc~fraggle_util_construct_temporary_system</title>
+<polygon fill="none" stroke="black" points="209,-24 0,-24 0,0 209,0 209,-24"/>
+<text text-anchor="middle" x="104.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_construct_temporary_system</text>
+</g>
+<!-- setup_construct_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CallsGraph_node2" class="node">
+<title>setup_construct_system</title>
+<polygon fill="#777777" stroke="#777777" points="373,-24 245,-24 245,0 373,0 373,-24"/>
+<text text-anchor="middle" x="309" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system</title>
+<path fill="none" stroke="#000000" d="M209.12,-12C217.77,-12 226.39,-12 234.74,-12"/>
+<polygon fill="#000000" stroke="#000000" points="234.77,-15.5 244.77,-12 234.77,-8.5 234.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">
+  <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~~fraggle_util_construct_temporary_system~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_construct_temporary_systemCalledByGraph" width="641pt" height="23pt"
+ viewBox="0.00 0.00 641.00 22.69" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_construct_temporary_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 900,-28 900,4 -4,4"/>
+<!-- proc~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_construct_temporary_system</title>
+<polygon fill="none" stroke="black" points="896,-24 687,-24 687,0 896,0 896,-24"/>
+<text text-anchor="middle" x="791.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_construct_temporary_system</text>
+</g>
+<!-- interface~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_construct_temporary_system</title>
+<g id="a_proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="651,-24 442,-24 442,0 651,0 651,-24"/>
+<text text-anchor="middle" x="546.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M651.26,-12C659.6,-12 668.06,-12 676.48,-12"/>
+<polygon fill="#000000" stroke="#000000" points="676.7,-15.5 686.7,-12 676.7,-8.5 676.7,-15.5"/>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<g id="a_proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#d9534f" stroke="#d9534f" points="406,-24 221,-24 221,0 406,0 406,-24"/>
+<text text-anchor="middle" x="313.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" d="M406.13,-12C414.55,-12 423.15,-12 431.73,-12"/>
+<polygon fill="#000000" stroke="#000000" points="431.79,-15.5 441.79,-12 431.79,-8.5 431.79,-15.5"/>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node4" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<g id="a_proc~~fraggle_util_construct_temporary_system~~CalledByGraph_node4"><a xlink:href=".././interface/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#a7506f" stroke="#a7506f" points="185,-24 0,-24 0,0 185,0 185,-24"/>
+<text text-anchor="middle" x="92.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_construct_temporary_system~~CalledByGraph_edge3" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.11,-12C193.62,-12 202.27,-12 210.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="210.91,-15.5 220.91,-12 210.91,-8.5 210.91,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_util_construct_temporary_systemCalledByGraph = svgPanZoom('#procfraggle_util_construct_temporary_systemCalledByGraph', {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/fraggle_util_get_energy_momentum.html
similarity index 55%
rename from docs/proc/symba_io_dump_particle_info.html
rename to docs/proc/fraggle_util_get_energy_momentum.html
index df764d4f8..234efae02 100644
--- a/docs/proc/symba_io_dump_particle_info.html
+++ b/docs/proc/fraggle_util_get_energy_momentum.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_dump_particle_info &ndash; swiftest</title>
+    <title>fraggle_util_get_energy_momentum &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_dump_particle_info
+    <h1>fraggle_util_get_energy_momentum
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,24 +136,24 @@ <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.2% of total for procedures.">69 statements</a>
+    title=" 0.1% of total for procedures.">53 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/fraggle_util.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/fraggle_util.f90.html'>fraggle_util.f90</a></li>
     
-     <li><a href='../module/s_symba_io.html'>s_symba_io</a></li>
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
     
   
-     <li class="active">symba_io_dump_particle_info</li>
+     <li class="active">fraggle_util_get_energy_momentum</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx)
+module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore)
     
     
-   <a href='../interface/symba_io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/fraggle_util_get_energy_momentum.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,8 +215,10 @@ <h2>
 
 
     
-    <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>
+    <p>Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)
+ This subrourtine works by building a temporary internal massive body object 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 massive body object in a temporary system object called tmpsys to feed it into symba_energy</p>
     
 
     <h3>Arguments</h3>
@@ -237,12 +239,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~113"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~442"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</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>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
   
 </tr>
 
@@ -252,12 +254,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-colliders~24"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</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>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
   
 </tr>
 
@@ -267,12 +269,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lincludecb~2"></span>logical,</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" id="variable-system~123"></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>lincludecb</strong></td><td><p>Set to true to include the central body (default is false)</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -282,12 +284,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tpidx~2"></span>integer(kind=I4B),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" id="variable-param~248"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></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>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current swiftest run configuration parameters</p></td>
   
 </tr>
 
@@ -297,12 +299,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-plidx~2"></span>integer(kind=I4B),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" id="variable-lbefore~2"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></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>
+  <td></td><td>::</td>
+  <td><strong>lbefore</strong></td><td><p>Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa</p></td>
   
 </tr>
 
@@ -325,33 +327,105 @@ <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~~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>
+<!-- Title: proc~~fraggle_util_get_energy_momentum~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_util_get_energy_momentumCallsGraph" width="641pt" height="88pt"
+ viewBox="0.00 0.00 641.00 87.79" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph" class="graph" transform="scale(0.76 0.76) rotate(0) translate(4 112)">
+<title>proc~~fraggle_util_get_energy_momentum~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 843,-112 843,4 -4,4"/>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node1" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<polygon fill="none" stroke="black" points="185,-66 0,-66 0,-42 185,-42 185,-66"/>
+<text text-anchor="middle" x="92.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_get_energy_momentum</text>
+</g>
+<!-- interface~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node2" class="node">
+<title>interface~fraggle_util_construct_temporary_system</title>
+<g id="a_proc~~fraggle_util_get_energy_momentum~~CallsGraph_node2"><a xlink:href=".././interface/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="430,-108 221,-108 221,-84 430,-84 430,-108"/>
+<text text-anchor="middle" x="325.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_edge3" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" d="M159.7,-66.04C187.36,-71.07 219.68,-76.94 248.33,-82.15"/>
+<polygon fill="#000000" stroke="#000000" points="247.83,-85.62 258.3,-83.96 249.08,-78.73 247.83,-85.62"/>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node3" class="node">
+<title>interface~fraggle_util_add_fragments_to_system</title>
+<g id="a_proc~~fraggle_util_get_energy_momentum~~CallsGraph_node3"><a xlink:href=".././interface/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="424.5,-66 226.5,-66 226.5,-42 424.5,-42 424.5,-66"/>
+<text text-anchor="middle" x="325.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;interface~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" d="M185.13,-54C195.24,-54 205.6,-54 215.89,-54"/>
+<polygon fill="#000000" stroke="#000000" points="216.15,-57.5 226.15,-54 216.15,-50.5 216.15,-57.5"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_io_dump_particle_info~~CallsGraph_node2" class="node">
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node4" 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>
+<polygon fill="#777777" stroke="#777777" points="352.5,-24 298.5,-24 298.5,0 352.5,0 352.5,-24"/>
+<text text-anchor="middle" x="325.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~fraggle_util_get_energy_momentum&#45;&gt;util_exit -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_edge2" class="edge">
+<title>proc~fraggle_util_get_energy_momentum&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M159.7,-41.96C201.5,-34.36 253.91,-24.83 288.26,-18.59"/>
+<polygon fill="#000000" stroke="#000000" points="289.1,-21.99 298.31,-16.76 287.84,-15.11 289.1,-21.99"/>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node6" class="node">
+<title>proc~fraggle_util_construct_temporary_system</title>
+<g id="a_proc~~fraggle_util_get_energy_momentum~~CallsGraph_node6"><a xlink:href=".././proc/fraggle_util_construct_temporary_system.html" xlink:title="fraggle_util_construct_temporary_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="675,-108 466,-108 466,-84 675,-84 675,-108"/>
+<text text-anchor="middle" x="570.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_construct_temporary_system</text>
+</a>
+</g>
 </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"/>
+<!-- interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_edge4" class="edge">
+<title>interface~fraggle_util_construct_temporary_system&#45;&gt;proc~fraggle_util_construct_temporary_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.26,-96C438.6,-96 447.06,-96 455.48,-96"/>
+<polygon fill="#000000" stroke="#000000" points="455.7,-99.5 465.7,-96 455.7,-92.5 455.7,-99.5"/>
+</g>
+<!-- proc~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node5" class="node">
+<title>proc~fraggle_util_add_fragments_to_system</title>
+<g id="a_proc~~fraggle_util_get_energy_momentum~~CallsGraph_node5"><a xlink:href=".././proc/fraggle_util_add_fragments_to_system.html" xlink:title="fraggle_util_add_fragments_to_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="669.5,-66 471.5,-66 471.5,-42 669.5,-42 669.5,-66"/>
+<text text-anchor="middle" x="570.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_add_fragments_to_system</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_edge5" class="edge">
+<title>interface~fraggle_util_add_fragments_to_system&#45;&gt;proc~fraggle_util_add_fragments_to_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.64,-54C436.68,-54 449.04,-54 461.21,-54"/>
+<polygon fill="#000000" stroke="#000000" points="461.39,-57.5 471.39,-54 461.39,-50.5 461.39,-57.5"/>
+</g>
+<!-- setup_construct_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_node7" class="node">
+<title>setup_construct_system</title>
+<polygon fill="#777777" stroke="#777777" points="839,-108 711,-108 711,-84 839,-84 839,-108"/>
+<text text-anchor="middle" x="775" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</g>
+<!-- proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CallsGraph_edge6" class="edge">
+<title>proc~fraggle_util_construct_temporary_system&#45;&gt;setup_construct_system</title>
+<path fill="none" stroke="#000000" d="M675.12,-96C683.77,-96 692.39,-96 700.74,-96"/>
+<polygon fill="#000000" stroke="#000000" points="700.77,-99.5 710.77,-96 700.77,-92.5 700.77,-99.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 panprocfraggle_util_get_energy_momentumCallsGraph = svgPanZoom('#procfraggle_util_get_energy_momentumCallsGraph', {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"
@@ -424,126 +498,36 @@ <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_dump_particle_info~~CalledByGraph Pages: 1 -->
-<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,-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="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="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>
+<!-- Title: proc~~fraggle_util_get_energy_momentum~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_get_energy_momentumCalledByGraph" width="414pt" height="32pt"
+ viewBox="0.00 0.00 414.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_get_energy_momentum~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_get_energy_momentum~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 410,-28 410,4 -4,4"/>
+<!-- proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_get_energy_momentum</title>
+<polygon fill="none" stroke="black" points="406,-24 221,-24 221,0 406,0 406,-24"/>
+<text text-anchor="middle" x="313.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_get_energy_momentum</text>
+</g>
+<!-- interface~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_get_energy_momentum</title>
+<g id="a_proc~~fraggle_util_get_energy_momentum~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_get_energy_momentum.html" xlink:title="fraggle_util_get_energy_momentum">
+<polygon fill="#a7506f" stroke="#a7506f" points="185,-24 0,-24 0,0 185,0 185,-24"/>
+<text text-anchor="middle" x="92.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_get_energy_momentum</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="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"/>
+<!-- interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum -->
+<g id="proc~~fraggle_util_get_energy_momentum~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_get_energy_momentum&#45;&gt;proc~fraggle_util_get_energy_momentum</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.11,-12C193.62,-12 202.27,-12 210.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="210.91,-15.5 220.91,-12 210.91,-8.5 210.91,-15.5"/>
 </g>
 </g>
 </svg>
-</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">
+</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/fraggle_util_restructure.html b/docs/proc/fraggle_util_restructure.html
new file mode 100644
index 000000000..3c0477452
--- /dev/null
+++ b/docs/proc/fraggle_util_restructure.html
@@ -0,0 +1,525 @@
+<!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>fraggle_util_restructure &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>fraggle_util_restructure
+      <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.">37 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
+    
+  
+     <li class="active">fraggle_util_restructure</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 fraggle_util_restructure(self, colliders, try, f_spin, r_max_start)
+    
+    
+   <a href='../interface/fraggle_util_restructure.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints</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-self~443"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~25"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-try~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>try</strong></td><td><p>The current number of times Fraggle has tried to find a solution</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-f_spin~3"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>f_spin</strong></td><td><p>Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-r_max_start~3"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>r_max_start</strong></td><td><p>The maximum radial distance that the position calculation starts with. This increases after a failed attempt</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~~fraggle_util_restructure~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_restructureCalledByGraph" width="290pt" height="32pt"
+ viewBox="0.00 0.00 290.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_restructure~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_restructure~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 286,-28 286,4 -4,4"/>
+<!-- proc~fraggle_util_restructure -->
+<g id="proc~~fraggle_util_restructure~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_restructure</title>
+<polygon fill="none" stroke="black" points="282,-24 159,-24 159,0 282,0 282,-24"/>
+<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_restructure</text>
+</g>
+<!-- interface~fraggle_util_restructure -->
+<g id="proc~~fraggle_util_restructure~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_restructure</title>
+<g id="a_proc~~fraggle_util_restructure~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_restructure.html" xlink:title="fraggle_util_restructure">
+<polygon fill="#a7506f" stroke="#a7506f" points="123,-24 0,-24 0,0 123,0 123,-24"/>
+<text text-anchor="middle" x="61.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_restructure</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_restructure&#45;&gt;proc~fraggle_util_restructure -->
+<g id="proc~~fraggle_util_restructure~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_restructure&#45;&gt;proc~fraggle_util_restructure</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.2,-12C131.64,-12 140.36,-12 148.95,-12"/>
+<polygon fill="#000000" stroke="#000000" points="148.96,-15.5 158.96,-12 148.96,-8.5 148.96,-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/fraggle_util_shift_vector_to_origin.html b/docs/proc/fraggle_util_shift_vector_to_origin.html
new file mode 100644
index 000000000..4aa1ce462
--- /dev/null
+++ b/docs/proc/fraggle_util_shift_vector_to_origin.html
@@ -0,0 +1,597 @@
+<!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>fraggle_util_shift_vector_to_origin &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>fraggle_util_shift_vector_to_origin
+      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <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>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
+    
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
+    
+  
+     <li class="active">fraggle_util_shift_vector_to_origin</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 fraggle_util_shift_vector_to_origin(m_frag, vec_frag)
+    
+    
+   <a href='../interface/fraggle_util_shift_vector_to_origin.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Adjusts the position or velocity of the fragments as needed to align them with the origin</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-m_frag~4"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>m_frag</strong></td><td><p>Fragment masses</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vec_frag~2"></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vec_frag</strong></td><td><p>Fragment positions or velocities in the center of mass frame</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~~fraggle_util_shift_vector_to_origin~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_shift_vector_to_originCalledByGraph" width="641pt" height="57pt"
+ viewBox="0.00 0.00 641.00 57.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph" class="graph" transform="scale(0.5 0.5) rotate(0) translate(4 110)">
+<title>proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-110 1268,-110 1268,4 -4,4"/>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<polygon fill="none" stroke="black" points="1264,-85 1091,-85 1091,-61 1264,-61 1264,-85"/>
+<text text-anchor="middle" x="1177.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_shift_vector_to_origin</text>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="1055,-85 882,-85 882,-61 1055,-61 1055,-85"/>
+<text text-anchor="middle" x="968.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1055.19,-73C1063.66,-73 1072.3,-73 1080.87,-73"/>
+<polygon fill="#000000" stroke="#000000" points="1080.88,-76.5 1090.88,-73 1080.88,-69.5 1080.88,-76.5"/>
+</g>
+<!-- proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_generate_pos_vec</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_generate_pos_vec.html" xlink:title="fraggle_generate_pos_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="680,-106 540,-106 540,-82 680,-82 680,-106"/>
+<text text-anchor="middle" x="610" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_pos_vec</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_generate_pos_vec&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M680.16,-89.93C734.62,-86.72 811.14,-82.21 871.53,-78.65"/>
+<polygon fill="#000000" stroke="#000000" points="872.07,-82.13 881.84,-78.05 871.65,-75.14 872.07,-82.13"/>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node4" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node4"><a xlink:href=".././proc/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="846,-65 716,-65 716,-41 846,-41 846,-65"/>
+<text text-anchor="middle" x="781" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge3" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M846.1,-59.91C854.38,-60.8 863,-61.73 871.65,-62.67"/>
+<polygon fill="#000000" stroke="#000000" points="871.49,-66.17 881.81,-63.76 872.24,-59.21 871.49,-66.17"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node5" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node5"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-66 184,-66 184,-42 332,-42 332,-66"/>
+<text text-anchor="middle" x="258" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge4" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_pos_vec</title>
+<path fill="none" stroke="#000000" d="M315.09,-66.05C332.03,-69.35 350.72,-72.66 368,-75 421.76,-82.28 482.68,-87.05 529.82,-89.99"/>
+<polygon fill="#000000" stroke="#000000" points="529.77,-93.49 539.96,-90.61 530.19,-86.51 529.77,-93.49"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node7" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node7"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="504,-66 368,-66 368,-42 504,-42 504,-66"/>
+<text text-anchor="middle" x="436" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge9" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-54C340.5,-54 349.08,-54 357.53,-54"/>
+<polygon fill="#000000" stroke="#000000" points="357.75,-57.5 367.75,-54 357.75,-50.5 357.75,-57.5"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node8" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node8"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="503.5,-24 368.5,-24 368.5,0 503.5,0 503.5,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge10" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M309.43,-41.96C329.78,-37.11 353.42,-31.47 374.67,-26.4"/>
+<polygon fill="#000000" stroke="#000000" points="375.64,-29.76 384.56,-24.04 374.02,-22.95 375.64,-29.76"/>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node6" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node6"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="675,-64 545,-64 545,-40 675,-40 675,-64"/>
+<text text-anchor="middle" x="610" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge5" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.37,-52.38C685.31,-52.44 695.64,-52.5 705.77,-52.56"/>
+<polygon fill="#000000" stroke="#000000" points="705.78,-56.06 715.81,-52.62 705.83,-49.06 705.78,-56.06"/>
+</g>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge7" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M504.49,-53.22C514.33,-53.1 524.52,-52.98 534.5,-52.87"/>
+<polygon fill="#000000" stroke="#000000" points="534.84,-56.36 544.8,-52.75 534.76,-49.36 534.84,-56.36"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge8" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M488.61,-24C507.06,-28.29 528.04,-33.17 547.27,-37.64"/>
+<polygon fill="#000000" stroke="#000000" points="546.6,-41.08 557.13,-39.94 548.19,-34.26 546.6,-41.08"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node9" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_node9"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-66 0,-66 0,-42 148,-42 148,-66"/>
+<text text-anchor="middle" x="74" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph_edge6" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-54C156.6,-54 165.16,-54 173.64,-54"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-57.5 183.91,-54 173.91,-50.5 173.91,-57.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocfraggle_util_shift_vector_to_originCalledByGraph = svgPanZoom('#procfraggle_util_shift_vector_to_originCalledByGraph', {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_fragmentation_casesupercatastrophic.html b/docs/proc/fraggle_util_vmag_to_vb.html
similarity index 55%
rename from docs/proc/symba_fragmentation_casesupercatastrophic.html
rename to docs/proc/fraggle_util_vmag_to_vb.html
index 9b7c366ed..779ebf980 100644
--- a/docs/proc/symba_fragmentation_casesupercatastrophic.html
+++ b/docs/proc/fraggle_util_vmag_to_vb.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_fragmentation_casesupercatastrophic &ndash; swiftest</title>
+    <title>fraggle_util_vmag_to_vb &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_fragmentation_casesupercatastrophic
+    <h1>fraggle_util_vmag_to_vb
       <small>Module Function</small>
     
     </h1>
@@ -126,7 +126,7 @@ <h1>symba_fragmentation_casesupercatastrophic
 <div class="well well-sm">
   <ul class="list-inline" style="margin-bottom:0px;display:inline">
      
-     <li><i class="fa fa-pencil"></i> Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</li>
+     <li><i class="fa fa-pencil"></i> David A. Minton</li>
      
      
      
@@ -136,24 +136,24 @@ <h1>symba_fragmentation_casesupercatastrophic
      <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.">59 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_fragmentation.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.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='../sourcefile/fraggle_util.f90.html'>fraggle_util.f90</a></li>
     
-     <li><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></li>
+     <li><a href='../module/s_fraggle_util.html'>s_fraggle_util</a></li>
     
   
-     <li class="active">symba_fragmentation_casesupercatastrophic</li>
+     <li class="active">fraggle_util_vmag_to_vb</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+module function fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb)
     
     
-   <a href='../interface/symba_fragmentation_casesupercatastrophic.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/fraggle_util_vmag_to_vb.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>Create the fragments resulting from a supercatastrophic collision</p>
+    <p>Converts radial and tangential velocity magnitudes into barycentric velocity</p>
     
 
     <h3>Arguments</h3>
@@ -236,42 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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>
-  
-  <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~197"></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~11"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-v_r_mag~3"></span>real(kind=DP),</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>
+  <td><strong>v_r_mag</strong></td><td><p>Unknown radial component of fragment velocity vector</p></td>
   
 </tr>
 
@@ -281,42 +251,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~36"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~21"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-v_r_unit~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~12"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>v_r_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</p></td>
   
 </tr>
 
@@ -326,27 +266,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-radius~12"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-v_t_mag~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~10"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>v_t_mag</strong></td><td><p>Tangential component of velocity vector set previously by angular momentum constraint</p></td>
   
 </tr>
 
@@ -356,12 +281,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip~12"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-v_t_unit~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>v_t_unit</strong></td><td><p>Radial and tangential unit vectors for each fragment</p></td>
   
 </tr>
 
@@ -371,12 +296,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mass_res~6"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-m_frag~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td><strong>m_frag</strong></td><td><p>Fragment masses</p></td>
   
 </tr>
 
@@ -386,12 +311,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~8"></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-vcom~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vcom</strong></td><td><p>Barycentric velocity of collisional system center of mass</p></td>
   
 </tr>
 
@@ -405,9 +330,9 @@ <h3>Arguments</h3>
     
     
     
-   <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>
+   <h3>Return Value <small><span class="anchor" id="variable-vb~5"></span>real(kind=DP),
+  dimension(:,:),allocatable</small></h3>
+    
     
     
     <br>
@@ -423,44 +348,47 @@ <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~~symba_fragmentation_casesupercatastrophic~~CallsGraph Pages: 1 -->
-<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,-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,-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="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.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>
+<!-- Title: proc~~fraggle_util_vmag_to_vb~~CallsGraph Pages: 1 -->
+<svg id="procfraggle_util_vmag_to_vbCallsGraph" width="556pt" height="32pt"
+ viewBox="0.00 0.00 556.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_vmag_to_vb~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~fraggle_util_vmag_to_vb~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 552,-28 552,4 -4,4"/>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CallsGraph_node1" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_vmag_to_vb</text>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CallsGraph_node2" class="node">
+<title>interface~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CallsGraph_node2"><a xlink:href=".././interface/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#a7506f" stroke="#a7506f" points="339,-24 166,-24 166,0 339,0 339,-24"/>
+<text text-anchor="middle" x="252.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</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"/>
+<!-- proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CallsGraph_edge1" class="edge">
+<title>proc~fraggle_util_vmag_to_vb&#45;&gt;interface~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" d="M130.1,-12C138.38,-12 147,-12 155.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.81,-15.5 165.81,-12 155.81,-8.5 155.81,-15.5"/>
+</g>
+<!-- proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CallsGraph_node3" class="node">
+<title>proc~fraggle_util_shift_vector_to_origin</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CallsGraph_node3"><a xlink:href=".././proc/fraggle_util_shift_vector_to_origin.html" xlink:title="fraggle_util_shift_vector_to_origin">
+<polygon fill="#d9534f" stroke="#d9534f" points="548,-24 375,-24 375,0 548,0 548,-24"/>
+<text text-anchor="middle" x="461.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_shift_vector_to_origin</text>
+</a>
+</g>
+</g>
+<!-- interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CallsGraph_edge2" class="edge">
+<title>interface~fraggle_util_shift_vector_to_origin&#45;&gt;proc~fraggle_util_shift_vector_to_origin</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.19,-12C347.66,-12 356.3,-12 364.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="364.88,-15.5 374.88,-12 364.88,-8.5 364.88,-15.5"/>
 </g>
 </g>
 </svg>
@@ -537,66 +465,102 @@ <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_fragmentation_casesupercatastrophic~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casesupercatastrophicCalledByGraph" width="641pt" height="21pt"
- viewBox="0.00 0.00 641.00 20.85" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph" class="graph" transform="scale(0.65 0.65) rotate(0) translate(4 28)">
-<title>proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 980,-28 980,4 -4,4"/>
-<!-- proc~symba_fragmentation_casesupercatastrophic -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node1" class="node">
-<title>proc~symba_fragmentation_casesupercatastrophic</title>
-<polygon fill="none" stroke="black" points="976,-24 747,-24 747,0 976,0 976,-24"/>
-<text text-anchor="middle" x="861.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casesupercatastrophic</text>
-</g>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node2" class="node">
-<title>interface~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node2"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#a7506f" stroke="#a7506f" points="711,-24 482,-24 482,0 711,0 711,-24"/>
-<text text-anchor="middle" x="596.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<!-- Title: proc~~fraggle_util_vmag_to_vb~~CalledByGraph Pages: 1 -->
+<svg id="procfraggle_util_vmag_to_vbCalledByGraph" width="641pt" height="56pt"
+ viewBox="0.00 0.00 641.00 56.20" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph" class="graph" transform="scale(0.76 0.76) rotate(0) translate(4 70)">
+<title>proc~~fraggle_util_vmag_to_vb~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 840,-70 840,4 -4,4"/>
+<!-- proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node1" class="node">
+<title>proc~fraggle_util_vmag_to_vb</title>
+<polygon fill="none" stroke="black" points="836,-45 706,-45 706,-21 836,-21 836,-45"/>
+<text text-anchor="middle" x="771" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util_vmag_to_vb</text>
+</g>
+<!-- interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node2" class="node">
+<title>interface~fraggle_util_vmag_to_vb</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node2"><a xlink:href=".././interface/fraggle_util_vmag_to_vb.html" xlink:title="fraggle_util_vmag_to_vb">
+<polygon fill="#a7506f" stroke="#a7506f" points="670,-45 540,-45 540,-21 670,-21 670,-45"/>
+<text text-anchor="middle" x="605" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util_vmag_to_vb</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_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="M711.33,-12C719.72,-12 728.2,-12 736.65,-12"/>
-<polygon fill="#000000" stroke="#000000" points="736.92,-15.5 746.92,-12 736.92,-8.5 736.92,-15.5"/>
+<!-- interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_edge1" class="edge">
+<title>interface~fraggle_util_vmag_to_vb&#45;&gt;proc~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M670.35,-33C678.64,-33 687.19,-33 695.62,-33"/>
+<polygon fill="#000000" stroke="#000000" points="695.84,-36.5 705.84,-33 695.84,-29.5 695.84,-36.5"/>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node3" class="node">
-<title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
-<text text-anchor="middle" x="343.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node3" class="node">
+<title>proc~fraggle_generate_rad_vel</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node3"><a xlink:href=".././proc/fraggle_generate_rad_vel.html" xlink:title="fraggle_generate_rad_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="504,-66 368,-66 368,-42 504,-42 504,-66"/>
+<text text-anchor="middle" x="436" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_rad_vel</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" d="M446.23,-12C454.63,-12 463.18,-12 471.71,-12"/>
-<polygon fill="#000000" stroke="#000000" points="471.72,-15.5 481.72,-12 471.72,-8.5 471.72,-15.5"/>
+<!-- proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_edge2" class="edge">
+<title>proc~fraggle_generate_rad_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M504.44,-45.52C512.75,-44.48 521.27,-43.4 529.67,-42.35"/>
+<polygon fill="#000000" stroke="#000000" points="530.34,-45.79 539.82,-41.07 529.46,-38.85 530.34,-45.79"/>
+</g>
+<!-- proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node4" class="node">
+<title>proc~fraggle_generate_tan_vel</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node4"><a xlink:href=".././proc/fraggle_generate_tan_vel.html" xlink:title="fraggle_generate_tan_vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="503.5,-24 368.5,-24 368.5,0 503.5,0 503.5,-24"/>
+<text text-anchor="middle" x="436" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_tan_vel</text>
+</a>
+</g>
+</g>
+<!-- proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_edge3" class="edge">
+<title>proc~fraggle_generate_tan_vel&#45;&gt;interface~fraggle_util_vmag_to_vb</title>
+<path fill="none" stroke="#000000" d="M503.96,-20.42C512.44,-21.49 521.16,-22.58 529.74,-23.66"/>
+<polygon fill="#000000" stroke="#000000" points="529.38,-27.14 539.74,-24.92 530.25,-20.2 529.38,-27.14"/>
+</g>
+<!-- proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node5" class="node">
+<title>proc~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node5"><a xlink:href=".././proc/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-45 184,-45 184,-21 332,-21 332,-45"/>
+<text text-anchor="middle" x="258" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
+</a>
+</g>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node4" class="node">
-<title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
-<text text-anchor="middle" x="102.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_edge4" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_rad_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-41.72C340.6,-42.74 349.27,-43.77 357.81,-44.79"/>
+<polygon fill="#000000" stroke="#000000" points="357.4,-48.27 367.75,-45.98 358.23,-41.32 357.4,-48.27"/>
+</g>
+<!-- proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_edge5" class="edge">
+<title>proc~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_tan_vel</title>
+<path fill="none" stroke="#000000" d="M332.11,-24.28C340.73,-23.25 349.55,-22.2 358.22,-21.16"/>
+<polygon fill="#000000" stroke="#000000" points="358.79,-24.62 368.31,-19.96 357.96,-17.67 358.79,-24.62"/>
+</g>
+<!-- interface~fraggle_generate_fragments -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node6" class="node">
+<title>interface~fraggle_generate_fragments</title>
+<g id="a_proc~~fraggle_util_vmag_to_vb~~CalledByGraph_node6"><a xlink:href=".././interface/fraggle_generate_fragments.html" xlink:title="fraggle_generate_fragments">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-45 0,-45 0,-21 148,-21 148,-45"/>
+<text text-anchor="middle" x="74" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate_fragments</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph_edge3" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
-<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
+<!-- interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments -->
+<g id="proc~~fraggle_util_vmag_to_vb~~CalledByGraph_edge6" class="edge">
+<title>interface~fraggle_generate_fragments&#45;&gt;proc~fraggle_generate_fragments</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.24,-33C156.6,-33 165.16,-33 173.64,-33"/>
+<polygon fill="#000000" stroke="#000000" points="173.91,-36.5 183.91,-33 173.91,-29.5 173.91,-36.5"/>
 </g>
 </g>
 </svg>
-</div><script>var panprocsymba_fragmentation_casesupercatastrophicCalledByGraph = svgPanZoom('#procsymba_fragmentation_casesupercatastrophicCalledByGraph', {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><script>var panprocfraggle_util_vmag_to_vbCalledByGraph = svgPanZoom('#procfraggle_util_vmag_to_vbCalledByGraph', {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/fragmentation_initialize.html b/docs/proc/fragmentation_initialize.html
deleted file mode 100644
index cf3575725..000000000
--- a/docs/proc/fragmentation_initialize.html
+++ /dev/null
@@ -1,834 +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>fragmentation_initialize &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>fragmentation_initialize
-      <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> Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</li>
-     
-     
-     
-     
-    
-    
-     <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.">593 statements</a>
-     </li> 
-     
-     
-     
-    <li><i class="fa fa-code"></i><a href="../src/fragmentation.f90"> Source File</a></li>
-     
-     
-  </ul>
-  <ol class="breadcrumb in-well text-right">
-  
-    
-     <li><a href='../sourcefile/fragmentation.f90.html'>fragmentation.f90</a></li>
-    
-     <li><a href='../module/s_fragmentation.html'>s_fragmentation</a></li>
-    
-  
-     <li class="active">fragmentation_initialize</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 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)
-    
-    
-   <a href='../interface/fragmentation_initialize.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
-   
-</h2>
-    
-  
-    <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="http://fortranwiki.org/fortran/show/IEEE+arithmetic">ieee_exceptions</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: proc~~fragmentation_initialize~~UsesGraph Pages: 1 -->
-<svg id="procfragmentation_initializeUsesGraph" 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~~fragmentation_initialize~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~fragmentation_initialize~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
-<!-- proc~fragmentation_initialize -->
-<g id="proc~~fragmentation_initialize~~UsesGraph_node1" class="node">
-<title>proc~fragmentation_initialize</title>
-<polygon fill="none" stroke="black" points="248,-24 126,-24 126,0 248,0 248,-24"/>
-<text text-anchor="middle" x="187" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fragmentation_initialize</text>
-</g>
-<!-- ieee_exceptions -->
-<g id="proc~~fragmentation_initialize~~UsesGraph_node2" class="node">
-<title>ieee_exceptions</title>
-<g id="a_proc~~fragmentation_initialize~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
-<polygon fill="#337ab7" stroke="#337ab7" points="90,-24 0,-24 0,0 90,0 90,-24"/>
-<text text-anchor="middle" x="45" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
-</a>
-</g>
-</g>
-<!-- proc~fragmentation_initialize&#45;&gt;ieee_exceptions -->
-<g id="proc~~fragmentation_initialize~~UsesGraph_edge1" class="edge">
-<title>proc~fragmentation_initialize&#45;&gt;ieee_exceptions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.81,-12C117.28,-12 108.55,-12 100.13,-12"/>
-<polygon fill="#000000" stroke="#000000" points="100.07,-8.5 90.07,-12 100.07,-15.5 100.07,-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="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>
-    
-
-
-    
-    <p>Initialize the position and velocity of fragments to conserve energy and momentum.</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~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><p>Swiftest nbody system object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Index of bodies involved in the collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-x~37"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~22"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~11"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~13"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~13"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~13"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-nfrag~2"></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Fragment rotational inertia vectors</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Distribution of fragment mass and radii</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Distribution of fragment mass and radii</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-qloss~9"></span>real(kind=DP),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lfailure~2"></span>logical,</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</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~~fragmentation_initialize~~CalledByGraph Pages: 1 -->
-<svg id="procfragmentation_initializeCalledByGraph" 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="proc~~fragmentation_initialize~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~fragmentation_initialize~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
-<!-- proc~fragmentation_initialize -->
-<g id="proc~~fragmentation_initialize~~CalledByGraph_node1" class="node">
-<title>proc~fragmentation_initialize</title>
-<polygon fill="none" stroke="black" 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">fragmentation_initialize</text>
-</g>
-<!-- interface~fragmentation_initialize -->
-<g id="proc~~fragmentation_initialize~~CalledByGraph_node2" class="node">
-<title>interface~fragmentation_initialize</title>
-<g id="a_proc~~fragmentation_initialize~~CalledByGraph_node2"><a xlink:href=".././interface/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
-<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">fragmentation_initialize</text>
-</a>
-</g>
-</g>
-<!-- interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize -->
-<g id="proc~~fragmentation_initialize~~CalledByGraph_edge1" class="edge">
-<title>interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize</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"/>
-</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/ge_wpp.html b/docs/proc/ge_wpp.html
index e6785c7d1..71c6a43f5 100644
--- a/docs/proc/ge_wpp.html
+++ b/docs/proc/ge_wpp.html
@@ -134,7 +134,7 @@ <h1>ge_wpp
      <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.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -233,267 +233,322 @@ <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="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)">
+<svg id="procge_wppUsesGraph" width="641pt" height="195pt"
+ viewBox="0.00 0.00 641.00 195.42" 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.68 0.68) rotate(0) translate(4 282.27)">
 <title>proc~~ge_wpp~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.51 928,-274.51 928,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.27 935,-282.27 935,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,-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>
+<polygon fill="none" stroke="black" points="931,-125.79 877,-125.79 877,-101.79 931,-101.79 931,-125.79"/>
+<text text-anchor="middle" x="904" y="-111.39" font-family="Helvetica,sans-Serif" font-size="10.50">ge_wpp</text>
 </g>
-<!-- ieee_exceptions -->
+<!-- module~swiftest -->
 <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,-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>
+<title>module~swiftest</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="823,-146.79 769,-146.79 769,-122.79 823,-122.79 823,-146.79"/>
+<text text-anchor="middle" x="796" y="-132.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;ieee_exceptions -->
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
 <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,-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"/>
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.8,-118.98C863.67,-121.58 847.58,-124.77 833.29,-127.6"/>
+<polygon fill="#000000" stroke="#000000" points="832.4,-124.21 823.27,-129.59 833.76,-131.08 832.4,-124.21"/>
 </g>
-<!-- module~swiftest -->
+<!-- ieee_exceptions -->
 <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,-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>
+<title>ieee_exceptions</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
+<polygon fill="#337ab7" stroke="#337ab7" points="841,-104.79 751,-104.79 751,-80.79 841,-80.79 841,-104.79"/>
+<text text-anchor="middle" x="796" y="-90.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<!-- proc~ge_wpp&#45;&gt;ieee_exceptions -->
 <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,-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"/>
+<title>proc~ge_wpp&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.8,-108.6C868.96,-107.05 860.06,-105.28 851.11,-103.51"/>
+<polygon fill="#000000" stroke="#000000" points="851.54,-100.03 841.05,-101.52 850.18,-106.9 851.54,-100.03"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="proc~~ge_wpp~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-244.79 247,-244.79 247,-220.79 347,-220.79 347,-244.79"/>
+<text text-anchor="middle" x="297" y="-230.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="proc~~ge_wpp~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-272.79C397.63,-266.97 364.89,-256.82 339.8,-248.2"/>
+<polygon fill="#000000" stroke="#000000" points="340.83,-244.85 330.24,-244.86 338.53,-251.46 340.83,-244.85"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-166.79 510,-166.79 510,-142.79 587,-142.79 587,-166.79"/>
+<text text-anchor="middle" x="548.5" y="-152.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C635.45,-109.53 599.83,-124.58 576.22,-137.7"/>
+<polygon fill="#000000" stroke="#000000" points="574.38,-134.72 567.49,-142.77 577.9,-140.78 574.38,-134.72"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472,-244.79 385,-244.79 385,-220.79 472,-220.79 472,-244.79"/>
+<text text-anchor="middle" x="428.5" y="-230.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M784.44,-146.87C752.42,-182.03 652.31,-281.3 549.5,-272.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-272.79C515.82,-274.9 481.68,-261.44 458.31,-249.57"/>
+<polygon fill="#000000" stroke="#000000" points="459.78,-246.39 449.3,-244.8 456.5,-252.57 459.78,-246.39"/>
 </g>
 <!-- module~helio_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node7" class="node">
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-86.79 510.5,-86.79 510.5,-62.79 586.5,-62.79 586.5,-86.79"/>
+<text text-anchor="middle" x="548.5" y="-72.39" 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="proc~~ge_wpp~~UsesGraph_edge7" class="edge">
+<g id="proc~~ge_wpp~~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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C639.68,-110.21 609.03,-99.7 585.99,-90.61"/>
+<polygon fill="#000000" stroke="#000000" points="587.2,-87.32 576.62,-86.82 584.58,-93.81 587.2,-87.32"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node8" class="node">
-<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>
+<title>module~whm_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-126.79 390.5,-126.79 390.5,-102.79 466.5,-102.79 466.5,-126.79"/>
+<text text-anchor="middle" x="428.5" y="-112.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C602.31,-104.17 525.11,-106.88 476.73,-110.38"/>
+<polygon fill="#000000" stroke="#000000" points="476.27,-106.9 466.56,-111.15 476.8,-113.88 476.27,-106.9"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <g id="proc~~ge_wpp~~UsesGraph_node9" class="node">
-<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>
+<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,-204.79 123,-204.79 123,-180.79 211,-180.79 211,-204.79"/>
+<text text-anchor="middle" x="167" y="-190.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="proc~~ge_wpp~~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,-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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-272.79C348.33,-257.35 321.88,-283.8 247,-253.79 223.79,-244.49 201.65,-226.3 186.75,-212.19"/>
+<polygon fill="#000000" stroke="#000000" points="188.84,-209.35 179.25,-204.85 183.95,-214.35 188.84,-209.35"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~symba_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="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>
+<title>module~symba_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="711.5,-166.79 626.5,-166.79 626.5,-142.79 711.5,-142.79 711.5,-166.79"/>
+<text text-anchor="middle" x="669" y="-152.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~symba_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="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"/>
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.8,-138.98C755.16,-141.17 738,-143.91 721.82,-146.5"/>
+<polygon fill="#000000" stroke="#000000" points="721.23,-143.05 711.91,-148.09 722.34,-149.96 721.23,-143.05"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~swiftest_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node11" class="node">
-<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>
+<title>module~swiftest_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node11"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.79 252.5,-164.79 252.5,-140.79 341.5,-140.79 341.5,-164.79"/>
+<text text-anchor="middle" x="297" y="-150.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-272.79C406.39,-268.67 398.54,-268.66 383,-253.79 356.29,-228.23 372.61,-205.46 347,-178.79 344,-175.67 340.54,-172.84 336.87,-170.29"/>
+<polygon fill="#000000" stroke="#000000" points="338.42,-167.14 328.07,-164.88 334.75,-173.1 338.42,-167.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-272.79C495.17,-276.27 480.97,-282.83 429.5,-272.79"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node12"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-46.79 383,-46.79 383,-22.79 474,-22.79 474,-46.79"/>
+<text text-anchor="middle" x="428.5" y="-32.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.64,-130.73C743.32,-126.79 704.02,-120.57 670,-114.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C623.57,-107.24 628.81,-70.62 587,-53.79 554.52,-40.71 515.46,-35.94 484.36,-34.45"/>
+<polygon fill="#000000" stroke="#000000" points="484.27,-30.94 474.14,-34.06 484,-37.94 484.27,-30.94"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_node13" class="node">
+<title>module~walltime_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node13"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-46.79 623,-46.79 623,-22.79 715,-22.79 715,-46.79"/>
+<text text-anchor="middle" x="669" y="-32.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.62,-123.93C762.61,-120.99 756.41,-117.57 751,-113.79 726.49,-96.7 702.51,-72.03 687.08,-54.82"/>
+<polygon fill="#000000" stroke="#000000" points="689.47,-52.23 680.23,-47.04 684.21,-56.85 689.47,-52.23"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="M402.44,-213.71C377.32,-200.39 333.26,-181.3 293.5,-185.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-220.79C244.68,-216.75 230.09,-212.2 216.5,-207.95"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-204.57 206.82,-204.92 215.32,-211.25 217.41,-204.57"/>
 </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 -->
+<!-- module~rmvs_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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-142.79C500.42,-138.83 487.26,-134.37 474.94,-130.2"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-126.82 465.29,-126.92 473.63,-133.45 475.88,-126.82"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge14" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-155.75C475.77,-155.41 424.43,-151.8 383,-135.79 339.63,-119.03 341.38,-58.04 298,-74.79"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.91,-220.72C375.2,-209.99 334.84,-195.58 298,-192.79"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <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="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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.42,-220.66C398.15,-216.47 390.11,-211.61 383,-206.79 366.21,-195.43 364.02,-189.81 347,-178.79 342.2,-175.68 336.99,-172.62 331.82,-169.75"/>
+<polygon fill="#000000" stroke="#000000" points="333.12,-166.47 322.65,-164.81 329.8,-172.63 333.12,-166.47"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-86.79C500.42,-90.75 487.26,-95.21 474.94,-99.39"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-96.14 465.29,-102.66 475.88,-102.77 473.63,-96.14"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <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.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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-74.79C370.54,-83.06 351.53,-53.65 298,-74.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.37,-72.07C487.03,-71.03 456.36,-70.89 429.5,-74.79"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-74.79C383.82,-81.13 341.64,-112.8 317.84,-133.79"/>
+<polygon fill="#000000" stroke="#000000" points="315.27,-131.39 310.22,-140.71 319.98,-136.58 315.27,-131.39"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge21" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-102.72C369.76,-88.43 317.04,-67.44 298,-74.79"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge20" class="edge">
+<g id="proc~~ge_wpp~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-125.68C377.52,-129.46 362.86,-133.76 349.06,-137.81"/>
+<polygon fill="#000000" stroke="#000000" points="347.82,-134.53 339.21,-140.7 349.79,-141.24 347.82,-134.53"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="proc~~ge_wpp~~UsesGraph_node14" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node14"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-204.79 0,-204.79 0,-180.79 87,-180.79 87,-204.79"/>
+<text text-anchor="middle" x="43.5" y="-190.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~ge_wpp~~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,-192.79C114.58,-192.79 105.86,-192.79 97.36,-192.79"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-189.29 87.13,-192.79 97.13,-196.29 97.13,-189.29"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge23" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.22,-154.79C616.92,-154.79 607,-154.79 597.47,-154.79"/>
+<polygon fill="#000000" stroke="#000000" points="597.34,-151.29 587.34,-154.79 597.34,-158.29 597.34,-151.29"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-194.79C521.97,-200.9 493.99,-209.81 471.68,-217.47"/>
+<polygon fill="#000000" stroke="#000000" points="470.47,-214.18 462.18,-220.77 472.77,-220.79 470.47,-214.18"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.74,-142.57C638.39,-138.37 630.25,-133.53 623,-128.79 605.88,-117.6 587.32,-103.95 573.13,-93.18"/>
+<polygon fill="#000000" stroke="#000000" points="574.99,-90.19 564.92,-86.89 570.73,-95.75 574.99,-90.19"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-192.79C370.15,-187.97 355.39,-197.13 298,-192.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-192.79C271.5,-190.94 244.29,-190.69 221.27,-191"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-187.5 211.02,-191.18 221.08,-194.5 220.96,-187.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge24" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-192.79C395.21,-190.08 360.18,-178.71 334.71,-168.78"/>
+<polygon fill="#000000" stroke="#000000" points="335.68,-165.4 325.1,-164.93 333.08,-171.9 335.68,-165.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-194.79C496.49,-206.99 481.77,-197.18 429.5,-192.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.26,-166.89C613.6,-175.77 579.91,-187.52 549.5,-194.79"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-164.79C244.68,-168.83 230.09,-173.39 216.5,-177.63"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-174.34 206.82,-180.66 217.41,-181.02 215.32,-174.34"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-46.83C357.97,-54.1 325.88,-64.03 298,-74.79"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.63,-22.73C572.61,-7.58 467.3,13.33 383,-13.79 338.73,-28.03 341.25,-57.71 298,-74.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-74.79C245.6,-94.17 203.2,-143.97 182.19,-172.3"/>
+<polygon fill="#000000" stroke="#000000" points="179.15,-170.52 176.13,-180.67 184.83,-174.62 179.15,-170.52"/>
 </g>
 </g>
 </svg>
@@ -652,33 +707,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_d -->
+<!-- proc~util_solve_linear_system_q -->
 <g id="proc~~ge_wpp~~CalledByGraph_node2" class="node">
-<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">
+<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">
 <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_d</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_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_edge1" 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,-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_q -->
+<!-- proc~util_solve_linear_system_d -->
 <g id="proc~~ge_wpp~~CalledByGraph_node3" class="node">
-<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">
+<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">
 <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_q</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_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_edge2" 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,-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 a1c30a8ea..37e521590 100644
--- a/docs/proc/gr_kick_getaccb_ns_body.html
+++ b/docs/proc/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.1% of total for procedures.">24 statements</a>
+    title=" 0.0% of total for procedures.">24 statements</a>
      </li> 
      
      
@@ -241,7 +241,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~268"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~330"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -256,7 +256,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~86"></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~138"></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(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_kick_getacch.html b/docs/proc/gr_kick_getacch.html
index 1cd24d37c..f68c8c94e 100644
--- a/docs/proc/gr_kick_getacch.html
+++ b/docs/proc/gr_kick_getacch.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~21"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~23"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~30"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~28"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~19"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~26"></span>integer(kind=I4B),</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 ac3e1d37c..a10e276e6 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~139"></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(in)</td>
   <td></td>
   
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~31"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~29"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -271,7 +271,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~16"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~12"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -286,7 +286,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~68"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~73"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_pseudovel2vel.html b/docs/proc/gr_pseudovel2vel.html
index c937f997b..ae07ab16b 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~140"></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(in)</td>
   <td></td>
   
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~22"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~24"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -271,7 +271,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh~6"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xh~4"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/gr_pv2vh_body.html b/docs/proc/gr_pv2vh_body.html
index 9cec4f2e0..475060c23 100644
--- a/docs/proc/gr_pv2vh_body.html
+++ b/docs/proc/gr_pv2vh_body.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~269"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~331"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,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~168"></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 95acae1a3..4c82f97ce 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~142"></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>
   
@@ -257,7 +257,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~23"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~25"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -272,7 +272,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh~7"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xh~5"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/gr_vh2pv_body.html b/docs/proc/gr_vh2pv_body.html
index d710e1540..55d030300 100644
--- a/docs/proc/gr_vh2pv_body.html
+++ b/docs/proc/gr_vh2pv_body.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~270"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~332"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~143"></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/helio_drift_body.html b/docs/proc/helio_drift_body.html
index b6698e281..ddba61934 100644
--- a/docs/proc/helio_drift_body.html
+++ b/docs/proc/helio_drift_body.html
@@ -136,7 +136,7 @@ <h1>helio_drift_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.">26 statements</a>
+    title=" 0.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~289"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-self~348"></span>class(swiftest_body),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~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~158"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~186"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~76"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~81"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -467,25 +467,10 @@ <h3 class="panel-title">Called by</h3>
 <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_pl -->
-<g id="proc~~helio_drift_body~~CalledByGraph_node5" class="node">
-<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_pl&#45;&gt;proc~helio_drift_pl -->
-<g id="proc~~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,-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_tp -->
-<g id="proc~~helio_drift_body~~CalledByGraph_node6" class="node">
+<g id="proc~~helio_drift_body~~CalledByGraph_node5" class="node">
 <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">
+<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,-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>
@@ -497,6 +482,21 @@ <h3 class="panel-title">Called by</h3>
 <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>
+<!-- interface~helio_drift_pl -->
+<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,-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_pl&#45;&gt;proc~helio_drift_pl -->
+<g id="proc~~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,-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>
 </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/helio_drift_linear_pl.html b/docs/proc/helio_drift_linear_pl.html
index c0ccbe85e..b8d5309f9 100644
--- a/docs/proc/helio_drift_linear_pl.html
+++ b/docs/proc/helio_drift_linear_pl.html
@@ -136,7 +136,7 @@ <h1>helio_drift_linear_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.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~292"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~351"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~44"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~49"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~79"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~84"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~26"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~28"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_drift_linear_tp.html b/docs/proc/helio_drift_linear_tp.html
index 8f1cfff34..1e56254ac 100644
--- a/docs/proc/helio_drift_linear_tp.html
+++ b/docs/proc/helio_drift_linear_tp.html
@@ -136,7 +136,7 @@ <h1>helio_drift_linear_tp
      <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.">23 statements</a>
+    title=" 0.0% of total for procedures.">23 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~293"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~352"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~45"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~50"></span>class(<a href='../type/helio_cb.html'>helio_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~80"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~85"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -284,7 +284,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~27"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~29"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_drift_pl.html b/docs/proc/helio_drift_pl.html
index b886615b2..134d6115f 100644
--- a/docs/proc/helio_drift_pl.html
+++ b/docs/proc/helio_drift_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~290"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~349"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,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~96"></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~159"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~187"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~77"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~82"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_drift_tp.html b/docs/proc/helio_drift_tp.html
index dc11d4a18..930630ef9 100644
--- a/docs/proc/helio_drift_tp.html
+++ b/docs/proc/helio_drift_tp.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~291"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~350"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~92"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~97"></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~160"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~188"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~78"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~83"></span>real(kind=DP),</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 2a5707cc0..b5cd030f7 100644
--- a/docs/proc/helio_gr_kick_getacch_pl.html
+++ b/docs/proc/helio_gr_kick_getacch_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~277"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~340"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~178"></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 c1d9d2ab9..84e7f3651 100644
--- a/docs/proc/helio_gr_kick_getacch_tp.html
+++ b/docs/proc/helio_gr_kick_getacch_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~278"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~341"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~179"></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 548825c67..11fea06cc 100644
--- a/docs/proc/helio_gr_p4_pl.html
+++ b/docs/proc/helio_gr_p4_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~279"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~342"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~180"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~72"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~77"></span>real(kind=DP),</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 a553e1ce9..f738c7d23 100644
--- a/docs/proc/helio_gr_p4_tp.html
+++ b/docs/proc/helio_gr_p4_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~280"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~343"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~181"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~73"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~78"></span>real(kind=DP),</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 fd2f5823a..3115fefc6 100644
--- a/docs/proc/helio_kick_getacch_pl.html
+++ b/docs/proc/helio_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>helio_kick_getacch_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.">31 statements</a>
+    title=" 0.0% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~281"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~344"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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~91"></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~182"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~53"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~59"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~22"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~24"></span>logical,</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 8266d69ad..60f6c45a9 100644
--- a/docs/proc/helio_kick_getacch_tp.html
+++ b/docs/proc/helio_kick_getacch_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~282"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~345"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~92"></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~155"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~183"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~54"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~60"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~23"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~25"></span>logical,</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 5ce66d1f2..20e359d23 100644
--- a/docs/proc/helio_kick_vb_pl.html
+++ b/docs/proc/helio_kick_vb_pl.html
@@ -136,7 +136,7 @@ <h1>helio_kick_vb_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.">24 statements</a>
+    title=" 0.0% of total for procedures.">24 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~283"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~346"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~93"></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~156"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~184"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~55"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~61"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~74"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~79"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~24"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~26"></span>logical,</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 105908136..908e482e8 100644
--- a/docs/proc/helio_kick_vb_tp.html
+++ b/docs/proc/helio_kick_vb_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~284"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~347"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~94"></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~157"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~185"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~56"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~62"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~75"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~80"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~25"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~27"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_setup_initialize_system.html b/docs/proc/helio_setup_initialize_system.html
new file mode 100644
index 000000000..ed8ebf4b8
--- /dev/null
+++ b/docs/proc/helio_setup_initialize_system.html
@@ -0,0 +1,578 @@
+<!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>helio_setup_initialize_system &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>helio_setup_initialize_system
+      <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.0% of total for procedures.">11 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/helio_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/helio_setup.f90.html'>helio_setup.f90</a></li>
+    
+     <li><a href='../module/s_helio_setup.html'>s_helio_setup</a></li>
+    
+  
+     <li class="active">helio_setup_initialize_system</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 helio_setup_initialize_system(self, param)
+    
+    
+   <a href='../interface/helio_setup_initialize_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Initialize a Helio nbody system from files, converting all heliocentric quantities to barycentric.</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-self~339"></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Helio nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~177"></span>class(swiftest_parameters),</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 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~~helio_setup_initialize_system~~CallsGraph Pages: 1 -->
+<svg id="prochelio_setup_initialize_systemCallsGraph" width="346pt" height="32pt"
+ viewBox="0.00 0.00 346.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~helio_setup_initialize_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~helio_setup_initialize_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 342,-28 342,4 -4,4"/>
+<!-- proc~helio_setup_initialize_system -->
+<g id="proc~~helio_setup_initialize_system~~CallsGraph_node1" class="node">
+<title>proc~helio_setup_initialize_system</title>
+<polygon fill="none" stroke="black" points="151,-24 0,-24 0,0 151,0 151,-24"/>
+<text text-anchor="middle" x="75.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_setup_initialize_system</text>
+</g>
+<!-- whm_setup_initialize_system -->
+<g id="proc~~helio_setup_initialize_system~~CallsGraph_node2" class="node">
+<title>whm_setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="338,-24 187,-24 187,0 338,0 338,-24"/>
+<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+</g>
+<!-- proc~helio_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<g id="proc~~helio_setup_initialize_system~~CallsGraph_edge1" class="edge">
+<title>proc~helio_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M151.21,-12C159.55,-12 168.1,-12 176.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="176.81,-15.5 186.81,-12 176.81,-8.5 176.81,-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">
+  <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~~helio_setup_initialize_system~~CalledByGraph Pages: 1 -->
+<svg id="prochelio_setup_initialize_systemCalledByGraph" width="346pt" height="32pt"
+ viewBox="0.00 0.00 346.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~helio_setup_initialize_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~helio_setup_initialize_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 342,-28 342,4 -4,4"/>
+<!-- proc~helio_setup_initialize_system -->
+<g id="proc~~helio_setup_initialize_system~~CalledByGraph_node1" class="node">
+<title>proc~helio_setup_initialize_system</title>
+<polygon fill="none" stroke="black" points="338,-24 187,-24 187,0 338,0 338,-24"/>
+<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_setup_initialize_system</text>
+</g>
+<!-- interface~helio_setup_initialize_system -->
+<g id="proc~~helio_setup_initialize_system~~CalledByGraph_node2" class="node">
+<title>interface~helio_setup_initialize_system</title>
+<g id="a_proc~~helio_setup_initialize_system~~CalledByGraph_node2"><a xlink:href=".././interface/helio_setup_initialize_system.html" xlink:title="helio_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="151,-24 0,-24 0,0 151,0 151,-24"/>
+<text text-anchor="middle" x="75.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~helio_setup_initialize_system&#45;&gt;proc~helio_setup_initialize_system -->
+<g id="proc~~helio_setup_initialize_system~~CalledByGraph_edge1" class="edge">
+<title>interface~helio_setup_initialize_system&#45;&gt;proc~helio_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.21,-12C159.55,-12 168.1,-12 176.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="176.81,-15.5 186.81,-12 176.81,-8.5 176.81,-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/helio_step_pl.html b/docs/proc/helio_step_pl.html
index 133aedc96..3530bf6da 100644
--- a/docs/proc/helio_step_pl.html
+++ b/docs/proc/helio_step_pl.html
@@ -136,7 +136,7 @@ <h1>helio_step_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.">29 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~275"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~337"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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~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~148"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~175"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~51"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~57"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~70"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~75"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_step_system.html b/docs/proc/helio_step_system.html
index a72104158..d1ece82e8 100644
--- a/docs/proc/helio_step_system.html
+++ b/docs/proc/helio_step_system.html
@@ -240,7 +240,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~274"></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~336"></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -255,7 +255,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~174"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~50"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~56"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -285,7 +285,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~69"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~74"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_step_tp.html b/docs/proc/helio_step_tp.html
index a26ecb3c9..8e1d9ea1f 100644
--- a/docs/proc/helio_step_tp.html
+++ b/docs/proc/helio_step_tp.html
@@ -136,7 +136,7 @@ <h1>helio_step_tp
      <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.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~276"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~338"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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~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~149"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~176"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~52"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~58"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~71"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~76"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_conservation_report.html b/docs/proc/io_conservation_report.html
index 8acbd2b59..94c8ee38e 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.">74 statements</a>
+    title=" 0.1% of total for procedures.">71 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~294"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~357"></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~161"></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(inout)</td>
   <td></td>
   
@@ -295,64 +295,46 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~io_conservation_report~~CallsGraph Pages: 1 -->
-<svg id="procio_conservation_reportCallsGraph" width="226pt" height="158pt"
- viewBox="0.00 0.00 226.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_conservation_report~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<svg id="procio_conservation_reportCallsGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_conservation_report~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~io_conservation_report~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 222,-154 222,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
 <!-- proc~io_conservation_report -->
 <g id="proc~~io_conservation_report~~CallsGraph_node1" class="node">
 <title>proc~io_conservation_report</title>
-<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>
+<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">io_conservation_report</text>
 </g>
-<!-- lescape -->
+<!-- interface~util_exit -->
 <g id="proc~~io_conservation_report~~CallsGraph_node2" class="node">
-<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>
+<title>interface~util_exit</title>
+<g id="a_proc~~io_conservation_report~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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">util_exit</text>
+</a>
+</g>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lescape -->
+<!-- proc~io_conservation_report&#45;&gt;interface~util_exit -->
 <g id="proc~~io_conservation_report~~CallsGraph_edge1" class="edge">
-<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"/>
+<title>proc~io_conservation_report&#45;&gt;interface~util_exit</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>
-<!-- lspin_orig -->
+<!-- proc~util_exit -->
 <g id="proc~~io_conservation_report~~CallsGraph_node3" class="node">
-<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;lspin_orig -->
-<g id="proc~~io_conservation_report~~CallsGraph_edge2" class="edge">
-<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">
-<title>lorbit_orig</title>
-<polygon fill="#777777" stroke="#777777" points="218,-66 158,-66 158,-42 218,-42 218,-66"/>
-<text text-anchor="middle" x="188" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lorbit_orig</text>
-</g>
-<!-- proc~io_conservation_report&#45;&gt;lorbit_orig -->
-<g id="proc~~io_conservation_report~~CallsGraph_edge3" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lorbit_orig</title>
-<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"/>
+<title>proc~util_exit</title>
+<g id="a_proc~~io_conservation_report~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="302,-24 248,-24 248,0 302,0 302,-24"/>
+<text text-anchor="middle" x="275" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
 </g>
-<!-- ltot_orig -->
-<g id="proc~~io_conservation_report~~CallsGraph_node5" class="node">
-<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">ltot_orig</text>
 </g>
-<!-- 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;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"/>
+<!-- interface~util_exit&#45;&gt;proc~util_exit -->
+<g id="proc~~io_conservation_report~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M212.4,-12C220.39,-12 229.31,-12 237.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="237.92,-15.5 247.92,-12 237.92,-8.5 237.92,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_dump_base.html b/docs/proc/io_dump_base.html
new file mode 100644
index 000000000..aa899c9c9
--- /dev/null
+++ b/docs/proc/io_dump_base.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>io_dump_base &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>io_dump_base
+      <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.0% of total for procedures.">31 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/io.f90.html'>io.f90</a></li>
+    
+     <li><a href='../module/s_io.html'>s_io</a></li>
+    
+  
+     <li class="active">io_dump_base</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 io_dump_base(self, param)
+    
+    
+   <a href='../interface/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Dump massive body data to files</p>
+<p>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</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-self~361"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</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" id="variable-param~195"></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 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~~io_dump_base~~CallsGraph Pages: 1 -->
+<svg id="procio_dump_baseCallsGraph" width="567pt" height="96pt"
+ viewBox="0.00 0.00 567.00 96.04" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_dump_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 92.04)">
+<title>proc~~io_dump_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-92.04 563,-92.04 563,4 -4,4"/>
+<!-- proc~io_dump_base -->
+<g id="proc~~io_dump_base~~CallsGraph_node1" class="node">
+<title>proc~io_dump_base</title>
+<polygon fill="none" stroke="black" points="83,-46.04 0,-46.04 0,-22.04 83,-22.04 83,-46.04"/>
+<text text-anchor="middle" x="41.5" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_base</text>
+</g>
+<!-- interface~io_write_frame_cb -->
+<g id="proc~~io_dump_base~~CallsGraph_node2" class="node">
+<title>interface~io_write_frame_cb</title>
+<g id="a_proc~~io_dump_base~~CallsGraph_node2"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="225,-88.04 125,-88.04 125,-64.04 225,-64.04 225,-88.04"/>
+<text text-anchor="middle" x="175" y="-73.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
+<g id="proc~~io_dump_base~~CallsGraph_edge1" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M80.18,-46.08C94.63,-50.69 111.29,-56.01 126.54,-60.88"/>
+<polygon fill="#000000" stroke="#000000" points="125.72,-64.3 136.31,-64 127.85,-57.63 125.72,-64.3"/>
+</g>
+<!-- interface~io_write_frame_body -->
+<g id="proc~~io_dump_base~~CallsGraph_node3" class="node">
+<title>interface~io_write_frame_body</title>
+<g id="a_proc~~io_dump_base~~CallsGraph_node3"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="231,-46.04 119,-46.04 119,-22.04 231,-22.04 231,-46.04"/>
+<text text-anchor="middle" x="175" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="proc~~io_dump_base~~CallsGraph_edge2" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M83.03,-34.04C91.16,-34.04 99.91,-34.04 108.64,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="108.85,-37.54 118.85,-34.04 108.85,-30.54 108.85,-37.54"/>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_dump_base~~CallsGraph_node4" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_dump_base~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="469,-46.04 415,-46.04 415,-22.04 469,-22.04 469,-46.04"/>
+<text text-anchor="middle" x="442" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~util_exit -->
+<g id="proc~~io_dump_base~~CallsGraph_edge3" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M78.67,-21.98C91.28,-18.34 105.62,-14.84 119,-13.04 233.52,2.39 264.98,5.74 379,-13.04 387.7,-14.48 396.83,-16.97 405.32,-19.75"/>
+<polygon fill="#000000" stroke="#000000" points="404.34,-23.12 414.94,-23.1 406.64,-16.51 404.34,-23.12"/>
+</g>
+<!-- proc~io_write_frame_cb -->
+<g id="proc~~io_dump_base~~CallsGraph_node6" class="node">
+<title>proc~io_write_frame_cb</title>
+<g id="a_proc~~io_dump_base~~CallsGraph_node6"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="373,-88.04 273,-88.04 273,-64.04 373,-64.04 373,-88.04"/>
+<text text-anchor="middle" x="323" y="-73.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
+<g id="proc~~io_dump_base~~CallsGraph_edge4" 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="M225.02,-76.04C237.06,-76.04 250.08,-76.04 262.55,-76.04"/>
+<polygon fill="#000000" stroke="#000000" points="262.86,-79.54 272.86,-76.04 262.86,-72.54 262.86,-79.54"/>
+</g>
+<!-- proc~io_write_frame_body -->
+<g id="proc~~io_dump_base~~CallsGraph_node7" class="node">
+<title>proc~io_write_frame_body</title>
+<g id="a_proc~~io_dump_base~~CallsGraph_node7"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="379,-46.04 267,-46.04 267,-22.04 379,-22.04 379,-46.04"/>
+<text text-anchor="middle" x="323" y="-31.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
+<g id="proc~~io_dump_base~~CallsGraph_edge5" 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="M231.2,-34.04C239.46,-34.04 248.05,-34.04 256.51,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="256.73,-37.54 266.73,-34.04 256.73,-30.54 256.73,-37.54"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~io_dump_base~~CallsGraph_node5" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_dump_base~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="559,-46.04 505,-46.04 505,-22.04 559,-22.04 559,-46.04"/>
+<text text-anchor="middle" x="532" y="-31.64" 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~~io_dump_base~~CallsGraph_edge6" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M469.4,-34.04C477.39,-34.04 486.31,-34.04 494.82,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="494.92,-37.54 504.92,-34.04 494.92,-30.54 494.92,-37.54"/>
+</g>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="proc~~io_dump_base~~CallsGraph_edge7" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M357.53,-64.01C372.48,-58.64 390.12,-52.31 405.32,-46.85"/>
+<polygon fill="#000000" stroke="#000000" points="406.67,-50.08 414.9,-43.41 404.31,-43.49 406.67,-50.08"/>
+</g>
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
+<g id="proc~~io_dump_base~~CallsGraph_edge8" class="edge">
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M379.07,-34.04C387.73,-34.04 396.48,-34.04 404.58,-34.04"/>
+<polygon fill="#000000" stroke="#000000" points="404.77,-37.54 414.77,-34.04 404.77,-30.54 404.77,-37.54"/>
+</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">
+  <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~~io_dump_base~~CalledByGraph Pages: 1 -->
+<svg id="procio_dump_baseCalledByGraph" width="210pt" height="32pt"
+ viewBox="0.00 0.00 210.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_dump_base~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_dump_base~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 206,-28 206,4 -4,4"/>
+<!-- proc~io_dump_base -->
+<g id="proc~~io_dump_base~~CalledByGraph_node1" class="node">
+<title>proc~io_dump_base</title>
+<polygon fill="none" stroke="black" points="202,-24 119,-24 119,0 202,0 202,-24"/>
+<text text-anchor="middle" x="160.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_base</text>
+</g>
+<!-- interface~io_dump_base -->
+<g id="proc~~io_dump_base~~CalledByGraph_node2" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_proc~~io_dump_base~~CalledByGraph_node2"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-24 0,-24 0,0 83,0 83,-24"/>
+<text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="proc~~io_dump_base~~CalledByGraph_edge1" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<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>
+</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/io_dump_param.html b/docs/proc/io_dump_param.html
index a6338bfa3..8a1986768 100644
--- a/docs/proc/io_dump_param.html
+++ b/docs/proc/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.0% of total for procedures.">21 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -240,7 +240,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~295"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~358"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_dump_swiftest.html b/docs/proc/io_dump_particle_info.html
similarity index 77%
rename from docs/proc/io_dump_swiftest.html
rename to docs/proc/io_dump_particle_info.html
index 7b2c377a1..fb112f834 100644
--- a/docs/proc/io_dump_swiftest.html
+++ b/docs/proc/io_dump_particle_info.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>io_dump_swiftest &ndash; swiftest</title>
+    <title>io_dump_particle_info &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>io_dump_swiftest
+    <h1>io_dump_particle_info
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.">26 statements</a>
+    title=" 0.0% of total for procedures.">16 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_dump_swiftest
      <li><a href='../module/s_io.html'>s_io</a></li>
     
   
-     <li class="active">io_dump_swiftest</li>
+     <li class="active">io_dump_particle_info</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_dump_swiftest(self, param)
+module subroutine io_dump_particle_info(self, iu)
     
     
-   <a href='../interface/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,9 +215,7 @@ <h2>
 
 
     
-    <p>Dump massive body data to files</p>
-<p>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</p>
+    <p>Reads in particle information object information from an open file unformatted file</p>
     
 
     <h3>Arguments</h3>
@@ -238,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~296"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-self~359"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</p></td>
   
 </tr>
 
@@ -253,12 +251,12 @@ <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>intent(inout)</td>
+  <td><span class="anchor" id="variable-iu~19"></span>integer(kind=I4B),</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>iu</strong></td><td><p>Open file unit number</p></td>
   
 </tr>
 
@@ -281,47 +279,47 @@ <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~~io_dump_swiftest~~CallsGraph Pages: 1 -->
-<svg id="procio_dump_swiftestCallsGraph" width="283pt" height="32pt"
- viewBox="0.00 0.00 283.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_dump_swiftest~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_dump_swiftest~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 279,-28 279,4 -4,4"/>
-<!-- proc~io_dump_swiftest -->
-<g id="proc~~io_dump_swiftest~~CallsGraph_node1" class="node">
-<title>proc~io_dump_swiftest</title>
-<polygon fill="none" stroke="black" 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">io_dump_swiftest</text>
+<!-- Title: proc~~io_dump_particle_info~~CallsGraph Pages: 1 -->
+<svg id="procio_dump_particle_infoCallsGraph" width="306pt" height="32pt"
+ viewBox="0.00 0.00 306.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_dump_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_dump_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 302,-28 302,4 -4,4"/>
+<!-- proc~io_dump_particle_info -->
+<g id="proc~~io_dump_particle_info~~CallsGraph_node1" class="node">
+<title>proc~io_dump_particle_info</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">io_dump_particle_info</text>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~io_dump_swiftest~~CallsGraph_node2" class="node">
+<g id="proc~~io_dump_particle_info~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_dump_swiftest~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<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_exit</text>
+<g id="a_proc~~io_dump_particle_info~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
-<g id="proc~~io_dump_swiftest~~CallsGraph_edge1" class="edge">
-<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M95.14,-12C103.61,-12 112.33,-12 120.45,-12"/>
-<polygon fill="#000000" stroke="#000000" points="120.72,-15.5 130.72,-12 120.72,-8.5 120.72,-15.5"/>
+<!-- proc~io_dump_particle_info&#45;&gt;interface~util_exit -->
+<g id="proc~~io_dump_particle_info~~CallsGraph_edge1" class="edge">
+<title>proc~io_dump_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M118.24,-12C126.96,-12 135.73,-12 143.81,-12"/>
+<polygon fill="#000000" stroke="#000000" points="143.98,-15.5 153.98,-12 143.98,-8.5 143.98,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_dump_swiftest~~CallsGraph_node3" class="node">
+<g id="proc~~io_dump_particle_info~~CallsGraph_node3" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_dump_swiftest~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="275,-24 221,-24 221,0 275,0 275,-24"/>
-<text text-anchor="middle" x="248" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_dump_particle_info~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="298,-24 244,-24 244,0 298,0 298,-24"/>
+<text text-anchor="middle" x="271" y="-9.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~~io_dump_swiftest~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_dump_particle_info~~CallsGraph_edge2" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M185.4,-12C193.39,-12 202.31,-12 210.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="210.92,-15.5 220.92,-12 210.92,-8.5 210.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M208.4,-12C216.39,-12 225.31,-12 233.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="233.92,-15.5 243.92,-12 233.92,-8.5 233.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -398,32 +396,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~~io_dump_swiftest~~CalledByGraph Pages: 1 -->
-<svg id="procio_dump_swiftestCalledByGraph" width="234pt" height="32pt"
- viewBox="0.00 0.00 234.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_dump_swiftest~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_dump_swiftest~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 230,-28 230,4 -4,4"/>
-<!-- proc~io_dump_swiftest -->
-<g id="proc~~io_dump_swiftest~~CalledByGraph_node1" class="node">
-<title>proc~io_dump_swiftest</title>
-<polygon fill="none" stroke="black" points="226,-24 131,-24 131,0 226,0 226,-24"/>
-<text text-anchor="middle" x="178.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_swiftest</text>
+<!-- Title: proc~~io_dump_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="procio_dump_particle_infoCalledByGraph" 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="proc~~io_dump_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_dump_particle_info~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
+<!-- proc~io_dump_particle_info -->
+<g id="proc~~io_dump_particle_info~~CalledByGraph_node1" class="node">
+<title>proc~io_dump_particle_info</title>
+<polygon fill="none" stroke="black" points="272,-24 154,-24 154,0 272,0 272,-24"/>
+<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_particle_info</text>
 </g>
-<!-- interface~io_dump_swiftest -->
-<g id="proc~~io_dump_swiftest~~CalledByGraph_node2" class="node">
-<title>interface~io_dump_swiftest</title>
-<g id="a_proc~~io_dump_swiftest~~CalledByGraph_node2"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<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_dump_swiftest</text>
+<!-- interface~io_dump_particle_info -->
+<g id="proc~~io_dump_particle_info~~CalledByGraph_node2" class="node">
+<title>interface~io_dump_particle_info</title>
+<g id="a_proc~~io_dump_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<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">io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
-<g id="proc~~io_dump_swiftest~~CalledByGraph_edge1" class="edge">
-<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
-<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"/>
+<!-- interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info -->
+<g id="proc~~io_dump_particle_info~~CalledByGraph_edge1" class="edge">
+<title>interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info</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>
diff --git a/docs/proc/io_dump_particle_info_base.html b/docs/proc/io_dump_particle_info_base.html
new file mode 100644
index 000000000..d8da42070
--- /dev/null
+++ b/docs/proc/io_dump_particle_info_base.html
@@ -0,0 +1,612 @@
+<!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>io_dump_particle_info_base &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>io_dump_particle_info_base
+      <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.">51 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/io.f90.html'>io.f90</a></li>
+    
+     <li><a href='../module/s_io.html'>s_io</a></li>
+    
+  
+     <li class="active">io_dump_particle_info_base</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 io_dump_particle_info_base(self, param, idx)
+    
+    
+   <a href='../interface/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <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>
+    
+      
+<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~360"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~194"></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" id="variable-idx~7"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</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~~io_dump_particle_info_base~~CallsGraph Pages: 1 -->
+<svg id="procio_dump_particle_info_baseCallsGraph" width="335pt" height="32pt"
+ viewBox="0.00 0.00 335.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_dump_particle_info_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_dump_particle_info_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 331,-28 331,4 -4,4"/>
+<!-- proc~io_dump_particle_info_base -->
+<g id="proc~~io_dump_particle_info_base~~CallsGraph_node1" class="node">
+<title>proc~io_dump_particle_info_base</title>
+<polygon fill="none" stroke="black" points="147,-24 0,-24 0,0 147,0 147,-24"/>
+<text text-anchor="middle" x="73.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_particle_info_base</text>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_dump_particle_info_base~~CallsGraph_node2" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_dump_particle_info_base~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="237,-24 183,-24 183,0 237,0 237,-24"/>
+<text text-anchor="middle" x="210" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_particle_info_base&#45;&gt;interface~util_exit -->
+<g id="proc~~io_dump_particle_info_base~~CallsGraph_edge1" class="edge">
+<title>proc~io_dump_particle_info_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M147.26,-12C156.13,-12 164.86,-12 172.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="172.87,-15.5 182.87,-12 172.87,-8.5 172.87,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~io_dump_particle_info_base~~CallsGraph_node3" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_dump_particle_info_base~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="327,-24 273,-24 273,0 327,0 327,-24"/>
+<text text-anchor="middle" x="300" y="-9.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~~io_dump_particle_info_base~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M237.4,-12C245.39,-12 254.31,-12 262.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="262.92,-15.5 272.92,-12 262.92,-8.5 262.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">
+    <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~~io_dump_particle_info_base~~CalledByGraph Pages: 1 -->
+<svg id="procio_dump_particle_info_baseCalledByGraph" width="338pt" height="32pt"
+ viewBox="0.00 0.00 338.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_dump_particle_info_base~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_dump_particle_info_base~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 334,-28 334,4 -4,4"/>
+<!-- proc~io_dump_particle_info_base -->
+<g id="proc~~io_dump_particle_info_base~~CalledByGraph_node1" class="node">
+<title>proc~io_dump_particle_info_base</title>
+<polygon fill="none" stroke="black" points="330,-24 183,-24 183,0 330,0 330,-24"/>
+<text text-anchor="middle" x="256.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_particle_info_base</text>
+</g>
+<!-- interface~io_dump_particle_info_base -->
+<g id="proc~~io_dump_particle_info_base~~CalledByGraph_node2" class="node">
+<title>interface~io_dump_particle_info_base</title>
+<g id="a_proc~~io_dump_particle_info_base~~CalledByGraph_node2"><a xlink:href=".././interface/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="147,-24 0,-24 0,0 147,0 147,-24"/>
+<text text-anchor="middle" x="73.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base -->
+<g id="proc~~io_dump_particle_info_base~~CalledByGraph_edge1" class="edge">
+<title>interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.08,-12C155.56,-12 164.26,-12 172.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="172.91,-15.5 182.91,-12 172.91,-8.5 172.91,-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/io_dump_system.html b/docs/proc/io_dump_system.html
index 1087f2322..45383bfd8 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.">44 statements</a>
+    title=" 0.1% of total for procedures.">41 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~297"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~362"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_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~163"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~196"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -293,51 +293,51 @@ <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_tp_file -->
+<!-- dump_cb_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node2" class="node">
-<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>
+<title>dump_cb_file</title>
+<polygon fill="#777777" stroke="#777777" points="216,-150 140,-150 140,-126 216,-126 216,-150"/>
+<text text-anchor="middle" x="178" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
 <g id="proc~~io_dump_system~~CallsGraph_edge1" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
+<title>proc~io_dump_system&#45;&gt;dump_cb_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>
-<!-- dump_pl_file -->
+<!-- dump_param_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node3" class="node">
-<title>dump_pl_file</title>
-<polygon fill="#777777" stroke="#777777" points="214.5,-108 141.5,-108 141.5,-84 214.5,-84 214.5,-108"/>
-<text text-anchor="middle" x="178" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
+<title>dump_param_file</title>
+<polygon fill="#777777" stroke="#777777" points="226,-108 130,-108 130,-84 226,-84 226,-108"/>
+<text text-anchor="middle" x="178" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
 <g id="proc~~io_dump_system~~CallsGraph_edge2" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
-<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"/>
+<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<path fill="none" stroke="#000000" d="M94.21,-82.52C102.52,-83.88 111.28,-85.3 119.86,-86.7"/>
+<polygon fill="#000000" stroke="#000000" points="119.38,-90.17 129.81,-88.32 120.5,-83.26 119.38,-90.17"/>
 </g>
-<!-- dump_param_file -->
+<!-- dump_pl_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node4" class="node">
-<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>
+<title>dump_pl_file</title>
+<polygon fill="#777777" stroke="#777777" points="214.5,-66 141.5,-66 141.5,-42 214.5,-42 214.5,-66"/>
+<text text-anchor="middle" x="178" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
 <g id="proc~~io_dump_system~~CallsGraph_edge3" class="edge">
-<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"/>
+<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
+<path fill="none" stroke="#000000" d="M94.21,-67.48C106.17,-65.53 119.06,-63.43 131.01,-61.49"/>
+<polygon fill="#000000" stroke="#000000" points="131.92,-64.88 141.23,-59.82 130.8,-57.98 131.92,-64.88"/>
 </g>
-<!-- dump_cb_file -->
+<!-- dump_tp_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node5" class="node">
-<title>dump_cb_file</title>
-<polygon fill="#777777" stroke="#777777" points="216,-24 140,-24 140,0 216,0 216,-24"/>
-<text text-anchor="middle" x="178" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
+<title>dump_tp_file</title>
+<polygon fill="#777777" stroke="#777777" points="215,-24 141,-24 141,0 215,0 215,-24"/>
+<text text-anchor="middle" x="178" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
 <g id="proc~~io_dump_system~~CallsGraph_edge4" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_cb_file</title>
+<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
 <path fill="none" stroke="#000000" d="M70.81,-62.9C87.17,-54.33 109.81,-42.68 130,-33 133.16,-31.49 136.45,-29.94 139.76,-28.42"/>
 <polygon fill="#000000" stroke="#000000" points="141.4,-31.52 149.05,-24.19 138.5,-25.15 141.4,-31.52"/>
 </g>
diff --git a/docs/proc/io_get_args.html b/docs/proc/io_get_args.html
index 3bb3dc400..5cdb5b63b 100644
--- a/docs/proc/io_get_args.html
+++ b/docs/proc/io_get_args.html
@@ -346,9 +346,9 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="100.35,-31.08 108.27,-24.04 97.69,-24.61 100.35,-31.08"/>
 </g>
 <!-- proc~io_toupper -->
-<g id="proc~~io_get_args~~CallsGraph_node5" class="node">
+<g id="proc~~io_get_args~~CallsGraph_node7" 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">
+<g id="a_proc~~io_get_args~~CallsGraph_node7"><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>
@@ -361,9 +361,9 @@ <h3 class="panel-title">Calls</h3>
 <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">
+<g id="proc~~io_get_args~~CallsGraph_node5" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_get_args~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<g id="a_proc~~io_get_args~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
 <polygon fill="#d9534f" stroke="#d9534f" points="268.5,-66 214.5,-66 214.5,-42 268.5,-42 268.5,-66"/>
 <text text-anchor="middle" x="241.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
@@ -376,9 +376,9 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="204.23,-57.5 214.23,-54 204.23,-50.5 204.23,-57.5"/>
 </g>
 <!-- proc~util_version -->
-<g id="proc~~io_get_args~~CallsGraph_node7" class="node">
+<g id="proc~~io_get_args~~CallsGraph_node6" 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">
+<g id="a_proc~~io_get_args~~CallsGraph_node6"><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>
diff --git a/docs/proc/io_get_old_t_final_system.html b/docs/proc/io_get_old_t_final_system.html
new file mode 100644
index 000000000..751efbfd2
--- /dev/null
+++ b/docs/proc/io_get_old_t_final_system.html
@@ -0,0 +1,605 @@
+<!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>io_get_old_t_final_system &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>io_get_old_t_final_system
+      <small>Module Function</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.0% of total for procedures.">27 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/io.f90.html'>io.f90</a></li>
+    
+     <li><a href='../module/s_io.html'>s_io</a></li>
+    
+  
+     <li class="active">io_get_old_t_final_system</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 function io_get_old_t_final_system(self, param) result(old_t_final)
+    
+    
+   <a href='../interface/io_get_old_t_final_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</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-self~353"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-old_t_final~2"></span>real(kind=DP)
+  </small></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~~io_get_old_t_final_system~~CallsGraph Pages: 1 -->
+<svg id="procio_get_old_t_final_systemCallsGraph" width="324pt" height="32pt"
+ viewBox="0.00 0.00 324.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_get_old_t_final_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_get_old_t_final_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 320,-28 320,4 -4,4"/>
+<!-- proc~io_get_old_t_final_system -->
+<g id="proc~~io_get_old_t_final_system~~CallsGraph_node1" class="node">
+<title>proc~io_get_old_t_final_system</title>
+<polygon fill="none" stroke="black" points="136,-24 0,-24 0,0 136,0 136,-24"/>
+<text text-anchor="middle" x="68" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_get_old_t_final_system</text>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_get_old_t_final_system~~CallsGraph_node2" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_get_old_t_final_system~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="226,-24 172,-24 172,0 226,0 226,-24"/>
+<text text-anchor="middle" x="199" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_get_old_t_final_system&#45;&gt;interface~util_exit -->
+<g id="proc~~io_get_old_t_final_system~~CallsGraph_edge1" class="edge">
+<title>proc~io_get_old_t_final_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M136.14,-12C145,-12 153.79,-12 161.84,-12"/>
+<polygon fill="#000000" stroke="#000000" points="161.94,-15.5 171.94,-12 161.94,-8.5 161.94,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~io_get_old_t_final_system~~CallsGraph_node3" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_get_old_t_final_system~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="316,-24 262,-24 262,0 316,0 316,-24"/>
+<text text-anchor="middle" x="289" y="-9.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~~io_get_old_t_final_system~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M226.4,-12C234.39,-12 243.31,-12 251.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="251.92,-15.5 261.92,-12 251.92,-8.5 251.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">
+    <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~~io_get_old_t_final_system~~CalledByGraph Pages: 1 -->
+<svg id="procio_get_old_t_final_systemCalledByGraph" width="316pt" height="32pt"
+ viewBox="0.00 0.00 316.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_get_old_t_final_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_get_old_t_final_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 312,-28 312,4 -4,4"/>
+<!-- proc~io_get_old_t_final_system -->
+<g id="proc~~io_get_old_t_final_system~~CalledByGraph_node1" class="node">
+<title>proc~io_get_old_t_final_system</title>
+<polygon fill="none" stroke="black" points="308,-24 172,-24 172,0 308,0 308,-24"/>
+<text text-anchor="middle" x="240" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_get_old_t_final_system</text>
+</g>
+<!-- interface~io_get_old_t_final_system -->
+<g id="proc~~io_get_old_t_final_system~~CalledByGraph_node2" class="node">
+<title>interface~io_get_old_t_final_system</title>
+<g id="a_proc~~io_get_old_t_final_system~~CalledByGraph_node2"><a xlink:href=".././interface/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="136,-24 0,-24 0,0 136,0 136,-24"/>
+<text text-anchor="middle" x="68" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system -->
+<g id="proc~~io_get_old_t_final_system~~CalledByGraph_edge1" class="edge">
+<title>interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.19,-12C144.5,-12 153.05,-12 161.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="161.74,-15.5 171.74,-12 161.74,-8.5 161.74,-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/io_param_reader.html b/docs/proc/io_param_reader.html
index 9620798b7..19f47f433 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.">301 statements</a>
+    title=" 0.5% of total for procedures.">320 statements</a>
      </li> 
      
      
@@ -242,7 +242,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~298"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~363"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -389,9 +389,9 @@ <h3 class="panel-title">Calls</h3>
 <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">
+<g id="proc~~io_param_reader~~CallsGraph_node5" 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">
+<g id="a_proc~~io_param_reader~~CallsGraph_node5"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
 <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>
@@ -404,9 +404,9 @@ <h3 class="panel-title">Calls</h3>
 <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">
+<g id="proc~~io_param_reader~~CallsGraph_node4" 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">
+<g id="a_proc~~io_param_reader~~CallsGraph_node4"><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>
diff --git a/docs/proc/io_param_writer.html b/docs/proc/io_param_writer.html
index 96b2e7dc7..7b4e2799c 100644
--- a/docs/proc/io_param_writer.html
+++ b/docs/proc/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.3% of total for procedures.">150 statements</a>
+    title=" 0.3% of total for procedures.">190 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~299"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~364"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_read_encounter.html b/docs/proc/io_read_encounter.html
index 013ae0818..3da8c623f 100644
--- a/docs/proc/io_read_encounter.html
+++ b/docs/proc/io_read_encounter.html
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr)
+function io_read_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr)
     
     
    
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~10"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~11"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
@@ -252,12 +252,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name1"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-id1~2"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name1</strong></td><td></td>
+  <td><strong>id1</strong></td><td></td>
   
 </tr>
 
@@ -267,12 +267,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-id2~2"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>name2</strong></td><td></td>
+  <td><strong>id2</strong></td><td></td>
   
 </tr>
 
@@ -282,12 +282,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mass1"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmass1"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass1</strong></td><td></td>
+  <td><strong>Gmass1</strong></td><td></td>
   
 </tr>
 
@@ -297,12 +297,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mass2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmass2"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass2</strong></td><td></td>
+  <td><strong>Gmass2</strong></td><td></td>
   
 </tr>
 
@@ -417,7 +417,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-out_type~2"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-out_type~3"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_read_frame_body.html b/docs/proc/io_read_frame_body.html
index 1dd99774b..377662e0c 100644
--- a/docs/proc/io_read_frame_body.html
+++ b/docs/proc/io_read_frame_body.html
@@ -117,7 +117,7 @@
   
   <div class="row">
     <h1>io_read_frame_body
-      <small>Module Subroutine</small>
+      <small>Module Function</small>
     
     </h1>
     
@@ -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.1% of total for procedures.">57 statements</a>
+    title=" 0.2% of total for procedures.">126 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_read_frame_body(self, iu, param, form, ierr)
+module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    <a href='../interface/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~302"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~354"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~16"></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~166"></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(inout)</td>
   <td></td>
   
@@ -277,42 +277,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form~5"></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" id="variable-ierr~11"></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>
 
     
     
     
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-ierr~11"></span>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
     
     
diff --git a/docs/proc/io_read_frame_cb.html b/docs/proc/io_read_frame_cb.html
index a8522404b..d1509b38d 100644
--- a/docs/proc/io_read_frame_cb.html
+++ b/docs/proc/io_read_frame_cb.html
@@ -117,7 +117,7 @@
   
   <div class="row">
     <h1>io_read_frame_cb
-      <small>Module Subroutine</small>
+      <small>Module Function</small>
     
     </h1>
     
@@ -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.1% of total for procedures.">27 statements</a>
+    title=" 0.1% of total for procedures.">34 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+module function io_read_frame_cb(self, iu, param) result(ierr)
     
     
    <a href='../interface/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~303"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~355"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,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~17"></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~191"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -277,42 +277,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form~6"></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" id="variable-ierr~12"></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error cod</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
     
     
     
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-ierr~12"></span>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
     
     
diff --git a/docs/proc/io_read_frame_system.html b/docs/proc/io_read_frame_system.html
index 105286247..8572b720e 100644
--- a/docs/proc/io_read_frame_system.html
+++ b/docs/proc/io_read_frame_system.html
@@ -117,7 +117,7 @@
   
   <div class="row">
     <h1>io_read_frame_system
-      <small>Module Subroutine</small>
+      <small>Module Function</small>
     
     </h1>
     
@@ -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.1% of total for procedures.">31 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_read_frame_system(self, iu, param, form, ierr)
+module function io_read_frame_system(self, iu, param) result(ierr)
     
     
    <a href='../interface/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~304"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~356"></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-iu~13"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~18"></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~168"></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(inout)</td>
   <td></td>
   
@@ -275,42 +275,21 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-form~7"></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" id="variable-ierr~13"></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>
 
     
     
     
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-ierr~13"></span>integer(kind=I4B)
+  </small></h3>
+    <p>Error code: returns 0 if the read is successful</p>
+    
+    
     <br>
     
     
diff --git a/docs/proc/io_read_hdr.html b/docs/proc/io_read_hdr.html
index ee50b9319..f93d38a6d 100644
--- a/docs/proc/io_read_hdr.html
+++ b/docs/proc/io_read_hdr.html
@@ -136,7 +136,7 @@ <h1>io_read_hdr
      <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.0% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~3"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~2"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~11"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~12"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-npl"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-npl~2"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
@@ -312,7 +312,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-out_type~3"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-out_type~4"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -366,7 +366,7 @@ <h3 class="panel-title">Called by</h3>
 <g id="proc~~io_read_hdr~~CalledByGraph_node2" class="node">
 <title>proc~io_read_frame_system</title>
 <g id="a_proc~~io_read_hdr~~CalledByGraph_node2"><a xlink:href=".././proc/io_read_frame_system.html" xlink:title="io_read_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 158,-24 158,0 280,0 280,-24"/>
+<polygon fill="#d94e8f" stroke="#d94e8f" 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">io_read_frame_system</text>
 </a>
 </g>
diff --git a/docs/proc/io_read_in_body.html b/docs/proc/io_read_in_body.html
new file mode 100644
index 000000000..bd07b67d0
--- /dev/null
+++ b/docs/proc/io_read_in_body.html
@@ -0,0 +1,482 @@
+<!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>io_read_in_body &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>io_read_in_body
+      <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> The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</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.">48 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/io.f90.html'>io.f90</a></li>
+    
+     <li><a href='../module/s_io.html'>s_io</a></li>
+    
+  
+     <li class="active">io_read_in_body</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 io_read_in_body(self, param)
+    
+    
+   <a href='../interface/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Read in either test particle or massive body data </p>
+<p>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</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-self~365"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</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(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 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~~io_read_in_body~~CalledByGraph Pages: 1 -->
+<svg id="procio_read_in_bodyCalledByGraph" width="228pt" height="32pt"
+ viewBox="0.00 0.00 228.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_read_in_body~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_body~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 224,-28 224,4 -4,4"/>
+<!-- proc~io_read_in_body -->
+<g id="proc~~io_read_in_body~~CalledByGraph_node1" class="node">
+<title>proc~io_read_in_body</title>
+<polygon fill="none" stroke="black" points="220,-24 128,-24 128,0 220,0 220,-24"/>
+<text text-anchor="middle" x="174" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_body</text>
+</g>
+<!-- interface~io_read_in_body -->
+<g id="proc~~io_read_in_body~~CalledByGraph_node2" class="node">
+<title>interface~io_read_in_body</title>
+<g id="a_proc~~io_read_in_body~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_in_body.html" xlink:title="io_read_in_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="92,-24 0,-24 0,0 92,0 92,-24"/>
+<text text-anchor="middle" x="46" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_body</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_body&#45;&gt;proc~io_read_in_body -->
+<g id="proc~~io_read_in_body~~CalledByGraph_edge1" class="edge">
+<title>interface~io_read_in_body&#45;&gt;proc~io_read_in_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M92.13,-12C100.37,-12 109.04,-12 117.53,-12"/>
+<polygon fill="#000000" stroke="#000000" points="117.76,-15.5 127.76,-12 117.76,-8.5 117.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>
+     
+    <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/io_read_cb_in.html b/docs/proc/io_read_in_cb.html
similarity index 89%
rename from docs/proc/io_read_cb_in.html
rename to docs/proc/io_read_in_cb.html
index 184ae2aa0..e8481b921 100644
--- a/docs/proc/io_read_cb_in.html
+++ b/docs/proc/io_read_in_cb.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>io_read_cb_in &ndash; swiftest</title>
+    <title>io_read_in_cb &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>io_read_cb_in
+    <h1>io_read_in_cb
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.">37 statements</a>
+    title=" 0.1% of total for procedures.">46 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_read_cb_in
      <li><a href='../module/s_io.html'>s_io</a></li>
     
   
-     <li class="active">io_read_cb_in</li>
+     <li class="active">io_read_in_cb</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_read_cb_in(self, param)
+module subroutine io_read_in_cb(self, param)
     
     
-   <a href='../interface/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_in_cb.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~301"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~366"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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~198"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,44 +281,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: proc~~io_read_cb_in~~CallsGraph Pages: 1 -->
-<svg id="procio_read_cb_inCallsGraph" width="268pt" height="32pt"
+<!-- Title: proc~~io_read_in_cb~~CallsGraph Pages: 1 -->
+<svg id="procio_read_in_cbCallsGraph" width="268pt" height="32pt"
  viewBox="0.00 0.00 268.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_read_cb_in~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_read_cb_in~~CallsGraph</title>
+<g id="proc~~io_read_in_cb~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_cb~~CallsGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 264,-28 264,4 -4,4"/>
-<!-- proc~io_read_cb_in -->
-<g id="proc~~io_read_cb_in~~CallsGraph_node1" class="node">
-<title>proc~io_read_cb_in</title>
+<!-- proc~io_read_in_cb -->
+<g id="proc~~io_read_in_cb~~CallsGraph_node1" class="node">
+<title>proc~io_read_in_cb</title>
 <polygon fill="none" stroke="black" points="80,-24 0,-24 0,0 80,0 80,-24"/>
-<text text-anchor="middle" x="40" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_cb_in</text>
+<text text-anchor="middle" x="40" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_cb</text>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~io_read_cb_in~~CallsGraph_node2" class="node">
+<g id="proc~~io_read_in_cb~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_read_cb_in~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<g id="a_proc~~io_read_in_cb~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
 <polygon fill="#a7506f" stroke="#a7506f" points="170,-24 116,-24 116,0 170,0 170,-24"/>
 <text text-anchor="middle" x="143" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
-<g id="proc~~io_read_cb_in~~CallsGraph_edge1" class="edge">
-<title>proc~io_read_cb_in&#45;&gt;interface~util_exit</title>
+<!-- proc~io_read_in_cb&#45;&gt;interface~util_exit -->
+<g id="proc~~io_read_in_cb~~CallsGraph_edge1" class="edge">
+<title>proc~io_read_in_cb&#45;&gt;interface~util_exit</title>
 <path fill="none" stroke="#000000" d="M80.05,-12C88.48,-12 97.36,-12 105.68,-12"/>
 <polygon fill="#000000" stroke="#000000" points="105.85,-15.5 115.85,-12 105.85,-8.5 105.85,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_read_cb_in~~CallsGraph_node3" class="node">
+<g id="proc~~io_read_in_cb~~CallsGraph_node3" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_read_cb_in~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<g id="a_proc~~io_read_in_cb~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
 <polygon fill="#d9534f" stroke="#d9534f" points="260,-24 206,-24 206,0 260,0 260,-24"/>
 <text text-anchor="middle" x="233" y="-9.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~~io_read_cb_in~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_read_in_cb~~CallsGraph_edge2" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.4,-12C178.39,-12 187.31,-12 195.82,-12"/>
 <polygon fill="#000000" stroke="#000000" points="195.92,-15.5 205.92,-12 195.92,-8.5 195.92,-15.5"/>
@@ -398,30 +398,30 @@ <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~~io_read_cb_in~~CalledByGraph Pages: 1 -->
-<svg id="procio_read_cb_inCalledByGraph" width="204pt" height="32pt"
+<!-- Title: proc~~io_read_in_cb~~CalledByGraph Pages: 1 -->
+<svg id="procio_read_in_cbCalledByGraph" width="204pt" height="32pt"
  viewBox="0.00 0.00 204.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_read_cb_in~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_read_cb_in~~CalledByGraph</title>
+<g id="proc~~io_read_in_cb~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_cb~~CalledByGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 200,-28 200,4 -4,4"/>
-<!-- proc~io_read_cb_in -->
-<g id="proc~~io_read_cb_in~~CalledByGraph_node1" class="node">
-<title>proc~io_read_cb_in</title>
+<!-- proc~io_read_in_cb -->
+<g id="proc~~io_read_in_cb~~CalledByGraph_node1" class="node">
+<title>proc~io_read_in_cb</title>
 <polygon fill="none" stroke="black" points="196,-24 116,-24 116,0 196,0 196,-24"/>
-<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_cb_in</text>
+<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_cb</text>
 </g>
-<!-- interface~io_read_cb_in -->
-<g id="proc~~io_read_cb_in~~CalledByGraph_node2" class="node">
-<title>interface~io_read_cb_in</title>
-<g id="a_proc~~io_read_cb_in~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<!-- interface~io_read_in_cb -->
+<g id="proc~~io_read_in_cb~~CalledByGraph_node2" class="node">
+<title>interface~io_read_in_cb</title>
+<g id="a_proc~~io_read_in_cb~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_in_cb.html" xlink:title="io_read_in_cb">
 <polygon fill="#a7506f" stroke="#a7506f" points="80,-24 0,-24 0,0 80,0 80,-24"/>
-<text text-anchor="middle" x="40" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<text text-anchor="middle" x="40" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
-<g id="proc~~io_read_cb_in~~CalledByGraph_edge1" class="edge">
-<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
+<!-- interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb -->
+<g id="proc~~io_read_in_cb~~CalledByGraph_edge1" class="edge">
+<title>interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M80.23,-12C88.38,-12 97.07,-12 105.54,-12"/>
 <polygon fill="#000000" stroke="#000000" points="105.7,-15.5 115.7,-12 105.7,-8.5 105.7,-15.5"/>
 </g>
diff --git a/docs/proc/io_read_param_in.html b/docs/proc/io_read_in_param.html
similarity index 89%
rename from docs/proc/io_read_param_in.html
rename to docs/proc/io_read_in_param.html
index ff439e727..b5a3d76e8 100644
--- a/docs/proc/io_read_param_in.html
+++ b/docs/proc/io_read_in_param.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>io_read_param_in &ndash; swiftest</title>
+    <title>io_read_in_param &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>io_read_param_in
+    <h1>io_read_in_param
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.1% of total for procedures.">24 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_read_param_in
      <li><a href='../module/s_io.html'>s_io</a></li>
     
   
-     <li class="active">io_read_param_in</li>
+     <li class="active">io_read_in_param</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_read_param_in(self, param_file_name)
+module subroutine io_read_in_param(self, param_file_name)
     
     
-   <a href='../interface/io_read_param_in.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_read_in_param.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -240,7 +240,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~305"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~367"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,44 +283,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: proc~~io_read_param_in~~CallsGraph Pages: 1 -->
-<svg id="procio_read_param_inCallsGraph" width="288pt" height="32pt"
+<!-- Title: proc~~io_read_in_param~~CallsGraph Pages: 1 -->
+<svg id="procio_read_in_paramCallsGraph" 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="proc~~io_read_param_in~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_read_param_in~~CallsGraph</title>
+<g id="proc~~io_read_in_param~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_param~~CallsGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
-<!-- proc~io_read_param_in -->
-<g id="proc~~io_read_param_in~~CallsGraph_node1" class="node">
-<title>proc~io_read_param_in</title>
+<!-- proc~io_read_in_param -->
+<g id="proc~~io_read_in_param~~CallsGraph_node1" class="node">
+<title>proc~io_read_in_param</title>
 <polygon fill="none" stroke="black" points="100,-24 0,-24 0,0 100,0 100,-24"/>
-<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_param_in</text>
+<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_param</text>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~io_read_param_in~~CallsGraph_node2" class="node">
+<g id="proc~~io_read_in_param~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_read_param_in~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<g id="a_proc~~io_read_in_param~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
 <polygon fill="#a7506f" stroke="#a7506f" points="190,-24 136,-24 136,0 190,0 190,-24"/>
 <text text-anchor="middle" x="163" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
-<g id="proc~~io_read_param_in~~CallsGraph_edge1" class="edge">
-<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
+<!-- proc~io_read_in_param&#45;&gt;interface~util_exit -->
+<g id="proc~~io_read_in_param~~CallsGraph_edge1" class="edge">
+<title>proc~io_read_in_param&#45;&gt;interface~util_exit</title>
 <path fill="none" stroke="#000000" d="M100.01,-12C108.67,-12 117.54,-12 125.76,-12"/>
 <polygon fill="#000000" stroke="#000000" points="125.77,-15.5 135.77,-12 125.77,-8.5 125.77,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_read_param_in~~CallsGraph_node3" class="node">
+<g id="proc~~io_read_in_param~~CallsGraph_node3" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_read_param_in~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<g id="a_proc~~io_read_in_param~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
 <polygon fill="#d9534f" stroke="#d9534f" points="280,-24 226,-24 226,0 280,0 280,-24"/>
 <text text-anchor="middle" x="253" y="-9.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~~io_read_param_in~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_read_in_param~~CallsGraph_edge2" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.4,-12C198.39,-12 207.31,-12 215.82,-12"/>
 <polygon fill="#000000" stroke="#000000" points="215.92,-15.5 225.92,-12 215.92,-8.5 215.92,-15.5"/>
@@ -400,30 +400,30 @@ <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~~io_read_param_in~~CalledByGraph Pages: 1 -->
-<svg id="procio_read_param_inCalledByGraph" width="244pt" height="32pt"
+<!-- Title: proc~~io_read_in_param~~CalledByGraph Pages: 1 -->
+<svg id="procio_read_in_paramCalledByGraph" width="244pt" height="32pt"
  viewBox="0.00 0.00 244.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_read_param_in~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_read_param_in~~CalledByGraph</title>
+<g id="proc~~io_read_in_param~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_param~~CalledByGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 240,-28 240,4 -4,4"/>
-<!-- proc~io_read_param_in -->
-<g id="proc~~io_read_param_in~~CalledByGraph_node1" class="node">
-<title>proc~io_read_param_in</title>
+<!-- proc~io_read_in_param -->
+<g id="proc~~io_read_in_param~~CalledByGraph_node1" class="node">
+<title>proc~io_read_in_param</title>
 <polygon fill="none" stroke="black" points="236,-24 136,-24 136,0 236,0 236,-24"/>
-<text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_param_in</text>
+<text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_in_param</text>
 </g>
-<!-- interface~io_read_param_in -->
-<g id="proc~~io_read_param_in~~CalledByGraph_node2" class="node">
-<title>interface~io_read_param_in</title>
-<g id="a_proc~~io_read_param_in~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
+<!-- interface~io_read_in_param -->
+<g id="proc~~io_read_in_param~~CalledByGraph_node2" class="node">
+<title>interface~io_read_in_param</title>
+<g id="a_proc~~io_read_in_param~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_in_param.html" xlink:title="io_read_in_param">
 <polygon fill="#a7506f" stroke="#a7506f" points="100,-24 0,-24 0,0 100,0 100,-24"/>
-<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
+<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
-<g id="proc~~io_read_param_in~~CalledByGraph_edge1" class="edge">
-<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
+<!-- interface~io_read_in_param&#45;&gt;proc~io_read_in_param -->
+<g id="proc~~io_read_in_param~~CalledByGraph_edge1" class="edge">
+<title>interface~io_read_in_param&#45;&gt;proc~io_read_in_param</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M100.14,-12C108.42,-12 117.1,-12 125.61,-12"/>
 <polygon fill="#000000" stroke="#000000" points="125.87,-15.5 135.87,-12 125.87,-8.5 125.87,-15.5"/>
 </g>
diff --git a/docs/proc/io_read_in_particle_info.html b/docs/proc/io_read_in_particle_info.html
new file mode 100644
index 000000000..5751da4b7
--- /dev/null
+++ b/docs/proc/io_read_in_particle_info.html
@@ -0,0 +1,596 @@
+<!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>io_read_in_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>io_read_in_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.0% of total for procedures.">16 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/io.f90.html'>io.f90</a></li>
+    
+     <li><a href='../module/s_io.html'>s_io</a></li>
+    
+  
+     <li class="active">io_read_in_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 io_read_in_particle_info(self, iu)
+    
+    
+   <a href='../interface/io_read_in_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Reads in particle information object information from an open file unformatted file</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-self~368"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-iu~20"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</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~~io_read_in_particle_info~~CallsGraph Pages: 1 -->
+<svg id="procio_read_in_particle_infoCallsGraph" width="315pt" height="32pt"
+ viewBox="0.00 0.00 315.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_read_in_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 311,-28 311,4 -4,4"/>
+<!-- proc~io_read_in_particle_info -->
+<g id="proc~~io_read_in_particle_info~~CallsGraph_node1" class="node">
+<title>proc~io_read_in_particle_info</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">io_read_in_particle_info</text>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_read_in_particle_info~~CallsGraph_node2" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_read_in_particle_info~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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>
+</a>
+</g>
+</g>
+<!-- proc~io_read_in_particle_info&#45;&gt;interface~util_exit -->
+<g id="proc~~io_read_in_particle_info~~CallsGraph_edge1" class="edge">
+<title>proc~io_read_in_particle_info&#45;&gt;interface~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>
+<!-- proc~util_exit -->
+<g id="proc~~io_read_in_particle_info~~CallsGraph_node3" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_read_in_particle_info~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="307,-24 253,-24 253,0 307,0 307,-24"/>
+<text text-anchor="middle" x="280" y="-9.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~~io_read_in_particle_info~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M217.4,-12C225.39,-12 234.31,-12 242.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="242.92,-15.5 252.92,-12 242.92,-8.5 242.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">
+    <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~~io_read_in_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="procio_read_in_particle_infoCalledByGraph" width="298pt" height="32pt"
+ viewBox="0.00 0.00 298.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_read_in_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_in_particle_info~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 294,-28 294,4 -4,4"/>
+<!-- proc~io_read_in_particle_info -->
+<g id="proc~~io_read_in_particle_info~~CalledByGraph_node1" class="node">
+<title>proc~io_read_in_particle_info</title>
+<polygon fill="none" stroke="black" 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">io_read_in_particle_info</text>
+</g>
+<!-- interface~io_read_in_particle_info -->
+<g id="proc~~io_read_in_particle_info~~CalledByGraph_node2" class="node">
+<title>interface~io_read_in_particle_info</title>
+<g id="a_proc~~io_read_in_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">io_read_in_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info -->
+<g id="proc~~io_read_in_particle_info~~CalledByGraph_edge1" class="edge">
+<title>interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info</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>
+</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/io_read_particle_info_system.html b/docs/proc/io_read_particle_info_system.html
new file mode 100644
index 000000000..b0492605e
--- /dev/null
+++ b/docs/proc/io_read_particle_info_system.html
@@ -0,0 +1,596 @@
+<!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>io_read_particle_info_system &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>io_read_particle_info_system
+      <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.">55 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/io.f90.html'>io.f90</a></li>
+    
+     <li><a href='../module/s_io.html'>s_io</a></li>
+    
+  
+     <li class="active">io_read_particle_info_system</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 io_read_particle_info_system(self, param)
+    
+    
+   <a href='../interface/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Reads an old particle information file for a restartd run</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-self~369"></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" id="variable-param~199"></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 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~~io_read_particle_info_system~~CallsGraph Pages: 1 -->
+<svg id="procio_read_particle_info_systemCallsGraph" width="340pt" height="32pt"
+ viewBox="0.00 0.00 340.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_read_particle_info_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_particle_info_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 336,-28 336,4 -4,4"/>
+<!-- proc~io_read_particle_info_system -->
+<g id="proc~~io_read_particle_info_system~~CallsGraph_node1" class="node">
+<title>proc~io_read_particle_info_system</title>
+<polygon fill="none" stroke="black" points="152,-24 0,-24 0,0 152,0 152,-24"/>
+<text text-anchor="middle" x="76" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_particle_info_system</text>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_read_particle_info_system~~CallsGraph_node2" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_read_particle_info_system~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="242,-24 188,-24 188,0 242,0 242,-24"/>
+<text text-anchor="middle" x="215" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_read_particle_info_system&#45;&gt;interface~util_exit -->
+<g id="proc~~io_read_particle_info_system~~CallsGraph_edge1" class="edge">
+<title>proc~io_read_particle_info_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M152.31,-12C161.22,-12 169.97,-12 177.96,-12"/>
+<polygon fill="#000000" stroke="#000000" points="177.96,-15.5 187.96,-12 177.96,-8.5 177.96,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~io_read_particle_info_system~~CallsGraph_node3" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_read_particle_info_system~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="332,-24 278,-24 278,0 332,0 332,-24"/>
+<text text-anchor="middle" x="305" y="-9.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~~io_read_particle_info_system~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M242.4,-12C250.39,-12 259.31,-12 267.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="267.92,-15.5 277.92,-12 267.92,-8.5 267.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">
+    <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~~io_read_particle_info_system~~CalledByGraph Pages: 1 -->
+<svg id="procio_read_particle_info_systemCalledByGraph" width="348pt" height="32pt"
+ viewBox="0.00 0.00 348.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_read_particle_info_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_read_particle_info_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 344,-28 344,4 -4,4"/>
+<!-- proc~io_read_particle_info_system -->
+<g id="proc~~io_read_particle_info_system~~CalledByGraph_node1" class="node">
+<title>proc~io_read_particle_info_system</title>
+<polygon fill="none" stroke="black" points="340,-24 188,-24 188,0 340,0 340,-24"/>
+<text text-anchor="middle" x="264" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_particle_info_system</text>
+</g>
+<!-- interface~io_read_particle_info_system -->
+<g id="proc~~io_read_particle_info_system~~CalledByGraph_node2" class="node">
+<title>interface~io_read_particle_info_system</title>
+<g id="a_proc~~io_read_particle_info_system~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="152,-24 0,-24 0,0 152,0 152,-24"/>
+<text text-anchor="middle" x="76" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system -->
+<g id="proc~~io_read_particle_info_system~~CalledByGraph_edge1" class="edge">
+<title>interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.12,-12C160.6,-12 169.28,-12 177.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="177.9,-15.5 187.9,-12 177.9,-8.5 177.9,-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/io_toupper.html b/docs/proc/io_toupper.html
index da4c23bee..9aef91fc1 100644
--- a/docs/proc/io_toupper.html
+++ b/docs/proc/io_toupper.html
@@ -293,65 +293,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.01,-33C334.14,-33 343.04,-33 351.62,-33"/>
 <polygon fill="#000000" stroke="#000000" points="351.86,-36.5 361.86,-33 351.86,-29.5 351.86,-36.5"/>
 </g>
-<!-- proc~io_get_args -->
+<!-- proc~io_param_reader -->
 <g id="proc~~io_toupper~~CalledByGraph_node3" class="node">
-<title>proc~io_get_args</title>
-<g id="a_proc~~io_toupper~~CalledByGraph_node3"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="213,-66 144,-66 144,-42 213,-42 213,-66"/>
-<text text-anchor="middle" x="178.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<title>proc~io_param_reader</title>
+<g id="a_proc~~io_toupper~~CalledByGraph_node3"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
+<polygon fill="#d9534f" stroke="#d9534f" points="226,-66 131,-66 131,-42 226,-42 226,-66"/>
+<text text-anchor="middle" x="178.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
+<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
 <g id="proc~~io_toupper~~CalledByGraph_edge2" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
-<path fill="none" stroke="#000000" d="M213.25,-47.76C225.41,-45.5 239.28,-42.94 252,-40.59"/>
-<polygon fill="#000000" stroke="#000000" points="252.71,-44.01 261.9,-38.75 251.43,-37.13 252.71,-44.01"/>
+<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M226.32,-45.34C234.83,-43.76 243.65,-42.13 251.97,-40.59"/>
+<polygon fill="#000000" stroke="#000000" points="252.63,-44.03 261.83,-38.77 251.36,-37.14 252.63,-44.03"/>
 </g>
-<!-- proc~io_param_reader -->
+<!-- proc~io_get_args -->
 <g id="proc~~io_toupper~~CalledByGraph_node4" class="node">
-<title>proc~io_param_reader</title>
-<g id="a_proc~~io_toupper~~CalledByGraph_node4"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
-<polygon fill="#d9534f" stroke="#d9534f" points="226,-24 131,-24 131,0 226,0 226,-24"/>
-<text text-anchor="middle" x="178.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<title>proc~io_get_args</title>
+<g id="a_proc~~io_toupper~~CalledByGraph_node4"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="213,-24 144,-24 144,0 213,0 213,-24"/>
+<text text-anchor="middle" x="178.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
+<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
 <g id="proc~~io_toupper~~CalledByGraph_edge3" class="edge">
-<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
-<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"/>
+<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M213.25,-18.24C225.41,-20.5 239.28,-23.06 252,-25.41"/>
+<polygon fill="#000000" stroke="#000000" points="251.43,-28.87 261.9,-27.25 252.71,-21.99 251.43,-28.87"/>
 </g>
-<!-- interface~io_param_reader -->
+<!-- interface~io_get_args -->
 <g id="proc~~io_toupper~~CalledByGraph_node5" class="node">
-<title>interface~io_param_reader</title>
-<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>
+<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,-24 13,-24 13,0 82,0 82,-24"/>
+<text text-anchor="middle" x="47.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
 <g id="proc~~io_toupper~~CalledByGraph_edge5" class="edge">
-<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
-<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"/>
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.06,-12C97.76,-12 116.67,-12 133.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="133.66,-15.5 143.66,-12 133.66,-8.5 133.66,-15.5"/>
 </g>
-<!-- interface~io_get_args -->
+<!-- interface~io_param_reader -->
 <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>
+<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">
+<polygon fill="#a7506f" stroke="#a7506f" points="95,-66 0,-66 0,-42 95,-42 95,-66"/>
+<text text-anchor="middle" x="47.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
 <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"/>
+<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M95.07,-54C103.48,-54 112.32,-54 120.97,-54"/>
+<polygon fill="#000000" stroke="#000000" points="121,-57.5 131,-54 121,-50.5 121,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_write_discard.html b/docs/proc/io_write_discard.html
index 4e0c4c9b7..5f38937ec 100644
--- a/docs/proc/io_write_discard.html
+++ b/docs/proc/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.1% of total for procedures.">54 statements</a>
+    title=" 0.1% of total for procedures.">69 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~306"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~370"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,8 +253,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-param~200"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/proc/io_write_encounter.html b/docs/proc/io_write_encounter.html
index 1a4b13f54..d4322a08e 100644
--- a/docs/proc/io_write_encounter.html
+++ b/docs/proc/io_write_encounter.html
@@ -126,8 +126,6 @@ <h1>io_write_encounter
 <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>
-     
      
      
      
@@ -136,7 +134,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.1% of total for procedures.">36 statements</a>
+    title=" 0.1% of total for procedures.">38 statements</a>
      </li> 
      
      
@@ -203,7 +201,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type)
+module subroutine io_write_encounter(self, pl, encbody, param)
     
     
    <a href='../interface/io_write_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -215,11 +213,6 @@ <h2>
 
 
     
-    <p>Write close encounter data to output binary files
-  There is no direct file output from this subroutine</p>
-<p>Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90
- Adapted from Hal Levison's Swift routine io_write_encounter.f</p>
-    
 
     <h3>Arguments</h3>
     
@@ -239,57 +232,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~57"></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-name1~3"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>name1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-name2~3"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>name2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass1~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-self~371"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass1</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
   
 </tr>
 
@@ -299,12 +247,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mass2~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-pl~22"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mass2</strong></td><td></td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -314,12 +262,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-radius1~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-encbody~2"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>radius1</strong></td><td></td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </p></td>
   
 </tr>
 
@@ -329,102 +277,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-radius2~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-param~201"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>radius2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-xh1~4"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-xh2~4"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>xh2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vh1~3"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh1</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-vh2~3"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vh2</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-enc_out~4"></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>enc_out</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-out_type~6"></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -448,46 +306,70 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~io_write_encounter~~CallsGraph Pages: 1 -->
-<svg id="procio_write_encounterCallsGraph" width="291pt" height="32pt"
- viewBox="0.00 0.00 291.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_write_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procio_write_encounterCallsGraph" width="291pt" height="116pt"
+ viewBox="0.00 0.00 291.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>proc~~io_write_encounter~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 287,-28 287,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 287,-112 287,4 -4,4"/>
 <!-- proc~io_write_encounter -->
 <g id="proc~~io_write_encounter~~CallsGraph_node1" class="node">
 <title>proc~io_write_encounter</title>
-<polygon fill="none" stroke="black" points="103,-24 0,-24 0,0 103,0 103,-24"/>
-<text text-anchor="middle" x="51.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_encounter</text>
+<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">io_write_encounter</text>
 </g>
-<!-- interface~util_exit -->
+<!-- ind1 -->
 <g id="proc~~io_write_encounter~~CallsGraph_node2" class="node">
+<title>ind1</title>
+<polygon fill="#777777" stroke="#777777" points="193,-108 139,-108 139,-84 193,-84 193,-108"/>
+<text text-anchor="middle" x="166" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;ind1 -->
+<g id="proc~~io_write_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~io_write_encounter&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M84.74,-66.04C98.67,-71.24 115.01,-77.34 129.3,-82.67"/>
+<polygon fill="#000000" stroke="#000000" points="128.22,-86.01 138.81,-86.22 130.67,-79.45 128.22,-86.01"/>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_write_encounter~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_write_encounter~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="193,-24 139,-24 139,0 193,0 193,-24"/>
-<text text-anchor="middle" x="166" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_write_encounter~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" 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">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
-<g id="proc~~io_write_encounter~~CallsGraph_edge1" class="edge">
+<g id="proc~~io_write_encounter~~CallsGraph_edge2" class="edge">
 <title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M103.16,-12C111.75,-12 120.53,-12 128.66,-12"/>
-<polygon fill="#000000" stroke="#000000" points="128.92,-15.5 138.92,-12 128.92,-8.5 128.92,-15.5"/>
+<path fill="none" stroke="#000000" d="M103.16,-54C111.75,-54 120.53,-54 128.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="128.92,-57.5 138.92,-54 128.92,-50.5 128.92,-57.5"/>
+</g>
+<!-- ind2 -->
+<g id="proc~~io_write_encounter~~CallsGraph_node4" class="node">
+<title>ind2</title>
+<polygon fill="#777777" stroke="#777777" points="193,-24 139,-24 139,0 193,0 193,-24"/>
+<text text-anchor="middle" x="166" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+</g>
+<!-- proc~io_write_encounter&#45;&gt;ind2 -->
+<g id="proc~~io_write_encounter~~CallsGraph_edge3" class="edge">
+<title>proc~io_write_encounter&#45;&gt;ind2</title>
+<path fill="none" stroke="#000000" d="M84.74,-41.96C98.67,-36.76 115.01,-30.66 129.3,-25.33"/>
+<polygon fill="#000000" stroke="#000000" points="130.67,-28.55 138.81,-21.78 128.22,-21.99 130.67,-28.55"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_write_encounter~~CallsGraph_node3" class="node">
+<g id="proc~~io_write_encounter~~CallsGraph_node5" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_write_encounter~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="283,-24 229,-24 229,0 283,0 283,-24"/>
-<text text-anchor="middle" x="256" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_write_encounter~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="283,-66 229,-66 229,-42 283,-42 283,-66"/>
+<text text-anchor="middle" x="256" 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~~io_write_encounter~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_write_encounter~~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.4,-12C201.39,-12 210.31,-12 218.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="218.92,-15.5 228.92,-12 218.92,-8.5 218.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M193.4,-54C201.39,-54 210.31,-54 218.82,-54"/>
+<polygon fill="#000000" stroke="#000000" points="218.92,-57.5 228.92,-54 218.92,-50.5 218.92,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_write_frame_body.html b/docs/proc/io_write_frame_body.html
index 0c4ffad43..6427a3cc8 100644
--- a/docs/proc/io_write_frame_body.html
+++ b/docs/proc/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.1% of total for procedures.">45 statements</a>
+    title=" 0.1% of total for procedures.">50 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~307"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~372"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -254,7 +254,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~21"></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~170"></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(in)</td>
   <td></td>
   
@@ -287,6 +287,122 @@ <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~~io_write_frame_body~~CallsGraph Pages: 1 -->
+<svg id="procio_write_frame_bodyCallsGraph" width="300pt" height="32pt"
+ viewBox="0.00 0.00 300.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_frame_body~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_write_frame_body~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 296,-28 296,4 -4,4"/>
+<!-- proc~io_write_frame_body -->
+<g id="proc~~io_write_frame_body~~CallsGraph_node1" class="node">
+<title>proc~io_write_frame_body</title>
+<polygon fill="none" stroke="black" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_body</text>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_write_frame_body~~CallsGraph_node2" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_write_frame_body~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="202,-24 148,-24 148,0 202,0 202,-24"/>
+<text text-anchor="middle" x="175" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
+<g id="proc~~io_write_frame_body~~CallsGraph_edge1" class="edge">
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M112.07,-12C120.73,-12 129.48,-12 137.58,-12"/>
+<polygon fill="#000000" stroke="#000000" points="137.77,-15.5 147.77,-12 137.77,-8.5 137.77,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~io_write_frame_body~~CallsGraph_node3" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_write_frame_body~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="292,-24 238,-24 238,0 292,0 292,-24"/>
+<text text-anchor="middle" x="265" y="-9.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~~io_write_frame_body~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M202.4,-12C210.39,-12 219.31,-12 227.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="227.92,-15.5 237.92,-12 227.92,-8.5 227.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">
+    <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">
@@ -299,31 +415,61 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~io_write_frame_body~~CalledByGraph Pages: 1 -->
-<svg id="procio_write_frame_bodyCalledByGraph" width="268pt" height="32pt"
- viewBox="0.00 0.00 268.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="procio_write_frame_bodyCalledByGraph" width="506pt" height="32pt"
+ viewBox="0.00 0.00 506.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="proc~~io_write_frame_body~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~io_write_frame_body~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 264,-28 264,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 502,-28 502,4 -4,4"/>
 <!-- proc~io_write_frame_body -->
 <g id="proc~~io_write_frame_body~~CalledByGraph_node1" class="node">
 <title>proc~io_write_frame_body</title>
-<polygon fill="none" stroke="black" points="260,-24 148,-24 148,0 260,0 260,-24"/>
-<text text-anchor="middle" x="204" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_body</text>
+<polygon fill="none" stroke="black" points="498,-24 386,-24 386,0 498,0 498,-24"/>
+<text text-anchor="middle" x="442" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_body</text>
 </g>
 <!-- interface~io_write_frame_body -->
 <g id="proc~~io_write_frame_body~~CalledByGraph_node2" class="node">
 <title>interface~io_write_frame_body</title>
 <g id="a_proc~~io_write_frame_body~~CalledByGraph_node2"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="112,-24 0,-24 0,0 112,0 112,-24"/>
-<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="350,-24 238,-24 238,0 350,0 350,-24"/>
+<text text-anchor="middle" x="294" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
 </a>
 </g>
 </g>
 <!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
 <g id="proc~~io_write_frame_body~~CalledByGraph_edge1" 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="M112.2,-12C120.46,-12 129.05,-12 137.51,-12"/>
-<polygon fill="#000000" stroke="#000000" points="137.73,-15.5 147.73,-12 137.73,-8.5 137.73,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M350.2,-12C358.46,-12 367.05,-12 375.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="375.73,-15.5 385.73,-12 375.73,-8.5 375.73,-15.5"/>
+</g>
+<!-- proc~io_dump_base -->
+<g id="proc~~io_write_frame_body~~CalledByGraph_node3" class="node">
+<title>proc~io_dump_base</title>
+<g id="a_proc~~io_write_frame_body~~CalledByGraph_node3"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-24 119,-24 119,0 202,0 202,-24"/>
+<text text-anchor="middle" x="160.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="proc~~io_write_frame_body~~CalledByGraph_edge2" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M202.03,-12C210.16,-12 218.91,-12 227.64,-12"/>
+<polygon fill="#000000" stroke="#000000" points="227.85,-15.5 237.85,-12 227.85,-8.5 227.85,-15.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="proc~~io_write_frame_body~~CalledByGraph_node4" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_proc~~io_write_frame_body~~CalledByGraph_node4"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-24 0,-24 0,0 83,0 83,-24"/>
+<text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="proc~~io_write_frame_body~~CalledByGraph_edge3" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<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>
 </g>
 </svg>
diff --git a/docs/proc/io_write_frame_cb.html b/docs/proc/io_write_frame_cb.html
index 74c20b352..8b3cf62a6 100644
--- a/docs/proc/io_write_frame_cb.html
+++ b/docs/proc/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.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~308"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~373"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -253,7 +253,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~22"></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~171"></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(in)</td>
   <td></td>
   
@@ -286,6 +286,122 @@ <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~~io_write_frame_cb~~CallsGraph Pages: 1 -->
+<svg id="procio_write_frame_cbCallsGraph" 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="proc~~io_write_frame_cb~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_write_frame_cb~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
+<!-- proc~io_write_frame_cb -->
+<g id="proc~~io_write_frame_cb~~CallsGraph_node1" class="node">
+<title>proc~io_write_frame_cb</title>
+<polygon fill="none" stroke="black" points="100,-24 0,-24 0,0 100,0 100,-24"/>
+<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_cb</text>
+</g>
+<!-- interface~util_exit -->
+<g id="proc~~io_write_frame_cb~~CallsGraph_node2" class="node">
+<title>interface~util_exit</title>
+<g id="a_proc~~io_write_frame_cb~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="190,-24 136,-24 136,0 190,0 190,-24"/>
+<text text-anchor="middle" x="163" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="proc~~io_write_frame_cb~~CallsGraph_edge1" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M100.01,-12C108.67,-12 117.54,-12 125.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="125.77,-15.5 135.77,-12 125.77,-8.5 125.77,-15.5"/>
+</g>
+<!-- proc~util_exit -->
+<g id="proc~~io_write_frame_cb~~CallsGraph_node3" class="node">
+<title>proc~util_exit</title>
+<g id="a_proc~~io_write_frame_cb~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 226,-24 226,0 280,0 280,-24"/>
+<text text-anchor="middle" x="253" y="-9.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~~io_write_frame_cb~~CallsGraph_edge2" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.4,-12C198.39,-12 207.31,-12 215.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="215.92,-15.5 225.92,-12 215.92,-8.5 215.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">
+    <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">
@@ -298,31 +414,61 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~io_write_frame_cb~~CalledByGraph Pages: 1 -->
-<svg id="procio_write_frame_cbCalledByGraph" width="244pt" height="32pt"
- viewBox="0.00 0.00 244.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="procio_write_frame_cbCalledByGraph" 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="proc~~io_write_frame_cb~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~io_write_frame_cb~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 240,-28 240,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 478,-28 478,4 -4,4"/>
 <!-- proc~io_write_frame_cb -->
 <g id="proc~~io_write_frame_cb~~CalledByGraph_node1" class="node">
 <title>proc~io_write_frame_cb</title>
-<polygon fill="none" stroke="black" points="236,-24 136,-24 136,0 236,0 236,-24"/>
-<text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_cb</text>
+<polygon fill="none" stroke="black" 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">io_write_frame_cb</text>
 </g>
 <!-- interface~io_write_frame_cb -->
 <g id="proc~~io_write_frame_cb~~CalledByGraph_node2" class="node">
 <title>interface~io_write_frame_cb</title>
 <g id="a_proc~~io_write_frame_cb~~CalledByGraph_node2"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
-<polygon fill="#a7506f" stroke="#a7506f" points="100,-24 0,-24 0,0 100,0 100,-24"/>
-<text text-anchor="middle" x="50" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="338,-24 238,-24 238,0 338,0 338,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
 </a>
 </g>
 </g>
 <!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
 <g id="proc~~io_write_frame_cb~~CalledByGraph_edge1" 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="M100.14,-12C108.42,-12 117.1,-12 125.61,-12"/>
-<polygon fill="#000000" stroke="#000000" points="125.87,-15.5 135.87,-12 125.87,-8.5 125.87,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.14,-12C346.42,-12 355.1,-12 363.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="363.87,-15.5 373.87,-12 363.87,-8.5 363.87,-15.5"/>
+</g>
+<!-- proc~io_dump_base -->
+<g id="proc~~io_write_frame_cb~~CalledByGraph_node3" class="node">
+<title>proc~io_dump_base</title>
+<g id="a_proc~~io_write_frame_cb~~CalledByGraph_node3"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-24 119,-24 119,0 202,0 202,-24"/>
+<text text-anchor="middle" x="160.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
+<g id="proc~~io_write_frame_cb~~CalledByGraph_edge2" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M202.25,-12C210.37,-12 219.07,-12 227.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="227.7,-15.5 237.7,-12 227.7,-8.5 227.7,-15.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="proc~~io_write_frame_cb~~CalledByGraph_node4" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_proc~~io_write_frame_cb~~CalledByGraph_node4"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-24 0,-24 0,0 83,0 83,-24"/>
+<text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="proc~~io_write_frame_cb~~CalledByGraph_edge3" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<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>
 </g>
 </svg>
diff --git a/docs/proc/io_write_hdr.html b/docs/proc/io_write_frame_encounter.html
similarity index 69%
rename from docs/proc/io_write_hdr.html
rename to docs/proc/io_write_frame_encounter.html
index c5468d1ef..2d311afd2 100644
--- a/docs/proc/io_write_hdr.html
+++ b/docs/proc/io_write_frame_encounter.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>io_write_hdr &ndash; swiftest</title>
+    <title>io_write_frame_encounter &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,8 +116,8 @@
     
   
   <div class="row">
-    <h1>io_write_hdr
-      <small>Subroutine</small>
+    <h1>io_write_frame_encounter
+      <small>Module Subroutine</small>
     
     </h1>
     
@@ -126,7 +126,7 @@ <h1>io_write_hdr
 <div class="well well-sm">
   <ul class="list-inline" style="margin-bottom:0px;display:inline">
      
-     <li><i class="fa fa-pencil"></i> The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</li>
+     <li><i class="fa fa-pencil"></i> David A. Minton</li>
      
      
      
@@ -136,7 +136,7 @@ <h1>io_write_hdr
      <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.0% of total for procedures.">18 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_write_hdr
      <li><a href='../module/s_io.html'>s_io</a></li>
     
   
-     <li class="active">io_write_hdr</li>
+     <li class="active">io_write_frame_encounter</li>
   </ol>
 </div>
 </div>
@@ -203,9 +203,11 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine io_write_hdr(iu, t, npl, ntp, out_form, out_type)
+module subroutine io_write_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
     
     
+   <a href='../interface/io_write_frame_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
    
 </h2>
     
@@ -213,9 +215,9 @@ <h2>
 
 
     
-    <p>Write frame header to output binary file</p>
-<p>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</p>
+    <p>Write a single frame of close encounter data to output binary files</p>
+<p>Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90
+ Adapted from Hal Levison's Swift routine io_write_encounter.f</p>
     
 
     <h3>Arguments</h3>
@@ -236,12 +238,42 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~4"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~23"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Open file unit number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~63"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id1~5"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Output file unit number</p></td>
+  <td><strong>id1</strong></td><td><p>ids of the two encountering bodies</p></td>
   
 </tr>
 
@@ -251,12 +283,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~12"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-id2~5"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time of simulation</p></td>
+  <td><strong>id2</strong></td><td><p>ids of the two encountering bodies</p></td>
   
 </tr>
 
@@ -266,12 +298,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-npl~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-gmass1~4"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>npl</strong></td><td><p>Number of massive bodies</p></td>
+  <td><strong>Gmass1</strong></td><td><p>G*mass of the two encountering bodies</p></td>
   
 </tr>
 
@@ -281,12 +313,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ntp~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-gmass2~4"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ntp</strong></td><td><p>Number of test particles</p></td>
+  <td><strong>Gmass2</strong></td><td><p>G*mass of the two encountering bodies</p></td>
   
 </tr>
 
@@ -296,12 +328,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-out_form~3"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-radius1~4"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>out_form</strong></td><td><p>Output format type ("EL" or  "XV")</p></td>
+  <td><strong>radius1</strong></td><td><p>Radii of the two encountering bodies</p></td>
   
 </tr>
 
@@ -311,12 +343,72 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-out_type~4"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-radius2~4"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td><p>Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions)</p></td>
+  <td><strong>radius2</strong></td><td><p>Radii of the two encountering bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh1~5"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh1</strong></td><td><p>Heliocentric position vectors of the two encountering bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh2~5"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh2</strong></td><td><p>Heliocentric position vectors of the two encountering bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh1~4"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh1</strong></td><td><p>Heliocentric velocity vectors of the two encountering bodies  </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh2~4"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh2</strong></td><td><p>Heliocentric velocity vectors of the two encountering bodies  </p></td>
   
 </tr>
 
@@ -339,47 +431,47 @@ <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~~io_write_hdr~~CallsGraph Pages: 1 -->
-<svg id="procio_write_hdrCallsGraph" width="259pt" height="32pt"
- viewBox="0.00 0.00 259.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_write_hdr~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_write_hdr~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 255,-28 255,4 -4,4"/>
-<!-- proc~io_write_hdr -->
-<g id="proc~~io_write_hdr~~CallsGraph_node1" class="node">
-<title>proc~io_write_hdr</title>
-<polygon fill="none" stroke="black" points="71,-24 0,-24 0,0 71,0 71,-24"/>
-<text text-anchor="middle" x="35.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_hdr</text>
+<!-- Title: proc~~io_write_frame_encounter~~CallsGraph Pages: 1 -->
+<svg id="procio_write_frame_encounterCallsGraph" width="325pt" height="32pt"
+ viewBox="0.00 0.00 325.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_frame_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_write_frame_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 321,-28 321,4 -4,4"/>
+<!-- proc~io_write_frame_encounter -->
+<g id="proc~~io_write_frame_encounter~~CallsGraph_node1" class="node">
+<title>proc~io_write_frame_encounter</title>
+<polygon fill="none" stroke="black" points="137,-24 0,-24 0,0 137,0 137,-24"/>
+<text text-anchor="middle" x="68.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_encounter</text>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~io_write_hdr~~CallsGraph_node2" class="node">
+<g id="proc~~io_write_frame_encounter~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_write_hdr~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="161,-24 107,-24 107,0 161,0 161,-24"/>
-<text text-anchor="middle" x="134" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_write_frame_encounter~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="227,-24 173,-24 173,0 227,0 227,-24"/>
+<text text-anchor="middle" x="200" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
-<g id="proc~~io_write_hdr~~CallsGraph_edge1" class="edge">
-<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M71.07,-12C79.36,-12 88.23,-12 96.6,-12"/>
-<polygon fill="#000000" stroke="#000000" points="96.85,-15.5 106.85,-12 96.85,-8.5 96.85,-15.5"/>
+<!-- proc~io_write_frame_encounter&#45;&gt;interface~util_exit -->
+<g id="proc~~io_write_frame_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~io_write_frame_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M137.28,-12C146.05,-12 154.74,-12 162.71,-12"/>
+<polygon fill="#000000" stroke="#000000" points="162.73,-15.5 172.73,-12 162.73,-8.5 162.73,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_write_hdr~~CallsGraph_node3" class="node">
+<g id="proc~~io_write_frame_encounter~~CallsGraph_node3" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_write_hdr~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="251,-24 197,-24 197,0 251,0 251,-24"/>
-<text text-anchor="middle" x="224" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_write_frame_encounter~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" 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_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="proc~~io_write_hdr~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_write_frame_encounter~~CallsGraph_edge2" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.4,-12C169.39,-12 178.31,-12 186.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="186.92,-15.5 196.92,-12 186.92,-8.5 186.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M227.4,-12C235.39,-12 244.31,-12 252.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="252.92,-15.5 262.92,-12 252.92,-8.5 252.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -456,47 +548,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~~io_write_hdr~~CalledByGraph Pages: 1 -->
-<svg id="procio_write_hdrCalledByGraph" width="397pt" height="32pt"
- viewBox="0.00 0.00 397.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_write_hdr~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_write_hdr~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 393,-28 393,4 -4,4"/>
-<!-- proc~io_write_hdr -->
-<g id="proc~~io_write_hdr~~CalledByGraph_node1" class="node">
-<title>proc~io_write_hdr</title>
-<polygon fill="none" stroke="black" points="389,-24 318,-24 318,0 389,0 389,-24"/>
-<text text-anchor="middle" x="353.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_hdr</text>
-</g>
-<!-- proc~io_write_frame_system -->
-<g id="proc~~io_write_hdr~~CalledByGraph_node2" class="node">
-<title>proc~io_write_frame_system</title>
-<g id="a_proc~~io_write_hdr~~CalledByGraph_node2"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="282,-24 159,-24 159,0 282,0 282,-24"/>
-<text text-anchor="middle" x="220.5" y="-9.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;proc~io_write_hdr -->
-<g id="proc~~io_write_hdr~~CalledByGraph_edge1" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<path fill="none" stroke="#000000" d="M282.02,-12C290.69,-12 299.48,-12 307.77,-12"/>
-<polygon fill="#000000" stroke="#000000" points="307.97,-15.5 317.97,-12 307.97,-8.5 307.97,-15.5"/>
+<!-- Title: proc~~io_write_frame_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procio_write_frame_encounterCalledByGraph" width="318pt" height="32pt"
+ viewBox="0.00 0.00 318.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_frame_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_write_frame_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 314,-28 314,4 -4,4"/>
+<!-- proc~io_write_frame_encounter -->
+<g id="proc~~io_write_frame_encounter~~CalledByGraph_node1" class="node">
+<title>proc~io_write_frame_encounter</title>
+<polygon fill="none" stroke="black" points="310,-24 173,-24 173,0 310,0 310,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_encounter</text>
 </g>
-<!-- interface~io_write_frame_system -->
-<g id="proc~~io_write_hdr~~CalledByGraph_node3" class="node">
-<title>interface~io_write_frame_system</title>
-<g id="a_proc~~io_write_hdr~~CalledByGraph_node3"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="123,-24 0,-24 0,0 123,0 123,-24"/>
-<text text-anchor="middle" x="61.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+<!-- interface~io_write_frame_encounter -->
+<g id="proc~~io_write_frame_encounter~~CalledByGraph_node2" class="node">
+<title>interface~io_write_frame_encounter</title>
+<g id="a_proc~~io_write_frame_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="137,-24 0,-24 0,0 137,0 137,-24"/>
+<text text-anchor="middle" x="68.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
-<g id="proc~~io_write_hdr~~CalledByGraph_edge2" 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="M123.2,-12C131.64,-12 140.36,-12 148.95,-12"/>
-<polygon fill="#000000" stroke="#000000" points="148.96,-15.5 158.96,-12 148.96,-8.5 148.96,-15.5"/>
+<!-- interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter -->
+<g id="proc~~io_write_frame_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.08,-12C145.54,-12 154.24,-12 162.83,-12"/>
+<polygon fill="#000000" stroke="#000000" points="162.85,-15.5 172.85,-12 162.85,-8.5 162.85,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_write_frame_system.html b/docs/proc/io_write_frame_system.html
index 7f978a8c2..1b1533f96 100644
--- a/docs/proc/io_write_frame_system.html
+++ b/docs/proc/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.1% of total for procedures.">55 statements</a>
+    title=" 0.1% of total for procedures.">90 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_write_frame_system(self, iu, param)
+module subroutine io_write_frame_system(self, param)
     
     
    <a href='../interface/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -239,8 +239,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~309"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-self~374"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -254,25 +254,10 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~16"></span>integer(kind=I4B),</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>
   
-  <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~172"></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>
   
@@ -298,67 +283,46 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~io_write_frame_system~~CallsGraph Pages: 1 -->
-<svg id="procio_write_frame_systemCallsGraph" width="418pt" height="52pt"
- viewBox="0.00 0.00 418.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_write_frame_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<svg id="procio_write_frame_systemCallsGraph" width="311pt" height="32pt"
+ viewBox="0.00 0.00 311.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_frame_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~io_write_frame_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 414,-48 414,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 307,-28 307,4 -4,4"/>
 <!-- proc~io_write_frame_system -->
 <g id="proc~~io_write_frame_system~~CallsGraph_node1" class="node">
 <title>proc~io_write_frame_system</title>
 <polygon fill="none" stroke="black" points="123,-24 0,-24 0,0 123,0 123,-24"/>
 <text text-anchor="middle" x="61.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_frame_system</text>
 </g>
-<!-- proc~io_write_hdr -->
-<g id="proc~~io_write_frame_system~~CallsGraph_node2" class="node">
-<title>proc~io_write_hdr</title>
-<g id="a_proc~~io_write_frame_system~~CallsGraph_node2"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
-<polygon fill="#d9534f" stroke="#d9534f" points="230,-44 159,-44 159,-20 230,-20 230,-44"/>
-<text text-anchor="middle" x="194.5" y="-29.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="proc~~io_write_frame_system~~CallsGraph_edge1" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<path fill="none" stroke="#000000" d="M123.02,-21.24C131.78,-22.58 140.67,-23.93 149.05,-25.21"/>
-<polygon fill="#000000" stroke="#000000" points="148.56,-28.68 158.97,-26.73 149.61,-21.76 148.56,-28.68"/>
-</g>
 <!-- interface~util_exit -->
-<g id="proc~~io_write_frame_system~~CallsGraph_node3" class="node">
+<g id="proc~~io_write_frame_system~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_write_frame_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" 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">util_exit</text>
+<g id="a_proc~~io_write_frame_system~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="213,-24 159,-24 159,0 213,0 213,-24"/>
+<text text-anchor="middle" x="186" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
-<g id="proc~~io_write_frame_system~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_write_frame_system~~CallsGraph_edge1" class="edge">
 <title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M123.37,-11.23C155.14,-10.93 194.67,-10.72 230,-11 238.25,-11.07 247.12,-11.18 255.49,-11.31"/>
-<polygon fill="#000000" stroke="#000000" points="255.7,-14.82 265.76,-11.48 255.81,-7.82 255.7,-14.82"/>
-</g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
-<g id="proc~~io_write_frame_system~~CallsGraph_edge3" class="edge">
-<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M230.07,-24.84C238.45,-23.1 247.43,-21.24 255.88,-19.49"/>
-<polygon fill="#000000" stroke="#000000" points="256.77,-22.88 265.85,-17.42 255.35,-16.02 256.77,-22.88"/>
+<path fill="none" stroke="#000000" d="M123.03,-12C131.83,-12 140.66,-12 148.77,-12"/>
+<polygon fill="#000000" stroke="#000000" points="148.97,-15.5 158.97,-12 148.97,-8.5 148.97,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_write_frame_system~~CallsGraph_node4" class="node">
+<g id="proc~~io_write_frame_system~~CallsGraph_node3" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_write_frame_system~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="410,-24 356,-24 356,0 410,0 410,-24"/>
-<text text-anchor="middle" x="383" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_write_frame_system~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="303,-24 249,-24 249,0 303,0 303,-24"/>
+<text text-anchor="middle" x="276" y="-9.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~~io_write_frame_system~~CallsGraph_edge4" class="edge">
+<g id="proc~~io_write_frame_system~~CallsGraph_edge2" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.4,-12C328.39,-12 337.31,-12 345.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="345.92,-15.5 355.92,-12 345.92,-8.5 345.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M213.4,-12C221.39,-12 230.31,-12 238.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="238.92,-15.5 248.92,-12 238.92,-8.5 238.92,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_read_body_in.html b/docs/proc/io_write_hdr_system.html
similarity index 77%
rename from docs/proc/io_read_body_in.html
rename to docs/proc/io_write_hdr_system.html
index ee56aa742..05202724a 100644
--- a/docs/proc/io_read_body_in.html
+++ b/docs/proc/io_write_hdr_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>io_read_body_in &ndash; swiftest</title>
+    <title>io_write_hdr_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>io_read_body_in
+    <h1>io_write_hdr_system
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.">78 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>io_read_body_in
      <li><a href='../module/s_io.html'>s_io</a></li>
     
   
-     <li class="active">io_read_body_in</li>
+     <li class="active">io_write_hdr_system</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_read_body_in(self, param)
+module subroutine io_write_hdr_system(self, iu, param)
     
     
-   <a href='../interface/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/io_write_hdr_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,9 +215,9 @@ <h2>
 
 
     
-    <p>Read in either test particle or massive body data </p>
-<p>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</p>
+    <p>Write frame header to output binary file</p>
+<p>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</p>
     
 
     <h3>Arguments</h3>
@@ -238,12 +238,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~300"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-self~375"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -253,10 +253,25 @@ <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-iu~24"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
   <td></td><td>::</td>
   <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
@@ -281,47 +296,47 @@ <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~~io_read_body_in~~CallsGraph Pages: 1 -->
-<svg id="procio_read_body_inCallsGraph" 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="proc~~io_read_body_in~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_read_body_in~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- proc~io_read_body_in -->
-<g id="proc~~io_read_body_in~~CallsGraph_node1" class="node">
-<title>proc~io_read_body_in</title>
-<polygon fill="none" stroke="black" points="92,-24 0,-24 0,0 92,0 92,-24"/>
-<text text-anchor="middle" x="46" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_body_in</text>
+<!-- Title: proc~~io_write_hdr_system~~CallsGraph Pages: 1 -->
+<svg id="procio_write_hdr_systemCallsGraph" width="299pt" height="32pt"
+ viewBox="0.00 0.00 299.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_hdr_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_write_hdr_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 295,-28 295,4 -4,4"/>
+<!-- proc~io_write_hdr_system -->
+<g id="proc~~io_write_hdr_system~~CallsGraph_node1" class="node">
+<title>proc~io_write_hdr_system</title>
+<polygon fill="none" stroke="black" points="111,-24 0,-24 0,0 111,0 111,-24"/>
+<text text-anchor="middle" x="55.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_hdr_system</text>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~io_read_body_in~~CallsGraph_node2" class="node">
+<g id="proc~~io_write_hdr_system~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~io_read_body_in~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="182,-24 128,-24 128,0 182,0 182,-24"/>
-<text text-anchor="middle" x="155" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~io_write_hdr_system~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="201,-24 147,-24 147,0 201,0 201,-24"/>
+<text text-anchor="middle" x="174" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
-<g id="proc~~io_read_body_in~~CallsGraph_edge1" class="edge">
-<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M92.07,-12C100.66,-12 109.55,-12 117.83,-12"/>
-<polygon fill="#000000" stroke="#000000" points="117.9,-15.5 127.9,-12 117.9,-8.5 117.9,-15.5"/>
+<!-- proc~io_write_hdr_system&#45;&gt;interface~util_exit -->
+<g id="proc~~io_write_hdr_system~~CallsGraph_edge1" class="edge">
+<title>proc~io_write_hdr_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M111.34,-12C119.96,-12 128.67,-12 136.73,-12"/>
+<polygon fill="#000000" stroke="#000000" points="136.88,-15.5 146.88,-12 136.88,-8.5 136.88,-15.5"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~io_read_body_in~~CallsGraph_node3" class="node">
+<g id="proc~~io_write_hdr_system~~CallsGraph_node3" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~io_read_body_in~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" 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">util_exit</text>
+<g id="a_proc~~io_write_hdr_system~~CallsGraph_node3"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="291,-24 237,-24 237,0 291,0 291,-24"/>
+<text text-anchor="middle" x="264" y="-9.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~~io_read_body_in~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_write_hdr_system~~CallsGraph_edge2" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M182.4,-12C190.39,-12 199.31,-12 207.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="207.92,-15.5 217.92,-12 207.92,-8.5 207.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M201.4,-12C209.39,-12 218.31,-12 226.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="226.92,-15.5 236.92,-12 226.92,-8.5 226.92,-15.5"/>
 </g>
 </g>
 </svg>
@@ -398,32 +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~~io_read_body_in~~CalledByGraph Pages: 1 -->
-<svg id="procio_read_body_inCalledByGraph" width="228pt" height="32pt"
- viewBox="0.00 0.00 228.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~io_read_body_in~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~io_read_body_in~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 224,-28 224,4 -4,4"/>
-<!-- proc~io_read_body_in -->
-<g id="proc~~io_read_body_in~~CalledByGraph_node1" class="node">
-<title>proc~io_read_body_in</title>
-<polygon fill="none" stroke="black" points="220,-24 128,-24 128,0 220,0 220,-24"/>
-<text text-anchor="middle" x="174" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_read_body_in</text>
+<!-- Title: proc~~io_write_hdr_system~~CalledByGraph Pages: 1 -->
+<svg id="procio_write_hdr_systemCalledByGraph" width="266pt" height="32pt"
+ viewBox="0.00 0.00 266.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~io_write_hdr_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~io_write_hdr_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 262,-28 262,4 -4,4"/>
+<!-- proc~io_write_hdr_system -->
+<g id="proc~~io_write_hdr_system~~CalledByGraph_node1" class="node">
+<title>proc~io_write_hdr_system</title>
+<polygon fill="none" stroke="black" points="258,-24 147,-24 147,0 258,0 258,-24"/>
+<text text-anchor="middle" x="202.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_write_hdr_system</text>
 </g>
-<!-- interface~io_read_body_in -->
-<g id="proc~~io_read_body_in~~CalledByGraph_node2" class="node">
-<title>interface~io_read_body_in</title>
-<g id="a_proc~~io_read_body_in~~CalledByGraph_node2"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="92,-24 0,-24 0,0 92,0 92,-24"/>
-<text text-anchor="middle" x="46" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<!-- interface~io_write_hdr_system -->
+<g id="proc~~io_write_hdr_system~~CalledByGraph_node2" class="node">
+<title>interface~io_write_hdr_system</title>
+<g id="a_proc~~io_write_hdr_system~~CalledByGraph_node2"><a xlink:href=".././interface/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="111,-24 0,-24 0,0 111,0 111,-24"/>
+<text text-anchor="middle" x="55.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
-<g id="proc~~io_read_body_in~~CalledByGraph_edge1" 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="M92.13,-12C100.37,-12 109.04,-12 117.53,-12"/>
-<polygon fill="#000000" stroke="#000000" points="117.76,-15.5 127.76,-12 117.76,-8.5 117.76,-15.5"/>
+<!-- interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system -->
+<g id="proc~~io_write_hdr_system~~CalledByGraph_edge1" class="edge">
+<title>interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.32,-12C119.53,-12 128.06,-12 136.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="136.6,-15.5 146.6,-12 136.6,-8.5 136.6,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/kick_getacch_int_all_pl.html b/docs/proc/kick_getacch_int_all_pl.html
new file mode 100644
index 000000000..c493c50c0
--- /dev/null
+++ b/docs/proc/kick_getacch_int_all_pl.html
@@ -0,0 +1,587 @@
+<!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>kick_getacch_int_all_pl &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>kick_getacch_int_all_pl
+      <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.0% of total for procedures.">29 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/kick.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/kick.f90.html'>kick.f90</a></li>
+    
+     <li><a href='../module/s_kick.html'>s_kick</a></li>
+    
+  
+     <li class="active">kick_getacch_int_all_pl</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 kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc)
+    
+    
+   <a href='../interface/kick_getacch_int_all_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization</p>
+<p>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.f9</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-npl~6"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>npl</strong></td><td><p>Number of massive bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nplpl~3"></span>integer(kind=I8B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nplpl</strong></td><td><p>Number of massive body interactions to compute</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_plpl~4"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>k_plpl</strong></td><td><p>Array of interaction pair indices (flattened upper triangular matrix)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x~22"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>x</strong></td><td><p>Position vector array</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass~4"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>Gmass</strong></td><td><p>Array of massive body G*mass</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius~5"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>radius</strong></td><td><p>Array of massive body radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-acc~2"></span>real(kind=DP),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>acc</strong></td><td><p>Acceleration vector array </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~~kick_getacch_int_all_pl~~CalledByGraph Pages: 1 -->
+<svg id="prockick_getacch_int_all_plCalledByGraph" width="572pt" height="32pt"
+ viewBox="0.00 0.00 572.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~kick_getacch_int_all_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 568,-28 568,4 -4,4"/>
+<!-- proc~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_node1" class="node">
+<title>proc~kick_getacch_int_all_pl</title>
+<polygon fill="none" stroke="black" points="564,-24 442,-24 442,0 564,0 564,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick_getacch_int_all_pl</text>
+</g>
+<!-- interface~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_node2" class="node">
+<title>interface~kick_getacch_int_all_pl</title>
+<g id="a_proc~~kick_getacch_int_all_pl~~CalledByGraph_node2"><a xlink:href=".././interface/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="406,-24 284,-24 284,0 406,0 406,-24"/>
+<text text-anchor="middle" x="345" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.31,-12C414.6,-12 423.17,-12 431.63,-12"/>
+<polygon fill="#000000" stroke="#000000" points="431.85,-15.5 441.85,-12 431.85,-8.5 431.85,-15.5"/>
+</g>
+<!-- proc~kick_getacch_int_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_node3" class="node">
+<title>proc~kick_getacch_int_pl</title>
+<g id="a_proc~~kick_getacch_int_all_pl~~CalledByGraph_node3"><a xlink:href=".././proc/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<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">kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_edge2" class="edge">
+<title>proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M248.18,-12C256.49,-12 265.21,-12 273.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="273.95,-15.5 283.95,-12 273.95,-8.5 273.95,-15.5"/>
+</g>
+<!-- interface~kick_getacch_int_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_node4" class="node">
+<title>interface~kick_getacch_int_pl</title>
+<g id="a_proc~~kick_getacch_int_all_pl~~CalledByGraph_node4"><a xlink:href=".././interface/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<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">kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl -->
+<g id="proc~~kick_getacch_int_all_pl~~CalledByGraph_edge3" 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="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>
+</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/kick_getacch_int_one_pl.html b/docs/proc/kick_getacch_int_one_pl.html
new file mode 100644
index 000000000..386fb6ff1
--- /dev/null
+++ b/docs/proc/kick_getacch_int_one_pl.html
@@ -0,0 +1,632 @@
+<!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>kick_getacch_int_one_pl &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>kick_getacch_int_one_pl
+      <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.0% of total for procedures.">20 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/kick.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/kick.f90.html'>kick.f90</a></li>
+    
+     <li><a href='../module/s_kick.html'>s_kick</a></li>
+    
+  
+     <li class="active">kick_getacch_int_one_pl</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>
+pure module subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
+    
+    
+   <a href='../interface/kick_getacch_int_one_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Compute direct cross (third) term heliocentric accelerations for a single pair of massive bodies</p>
+<p>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.f9</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-rji2~3"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the two bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xr~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-yr~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-zr~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmi~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmi</strong></td><td><p>G*mass of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmj~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmj</strong></td><td><p>G*mass of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-axi~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>axi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ayi~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ayi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-azi~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>azi</strong></td><td><p>Acceleration vector components of body i</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-axj~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>axj</strong></td><td><p>Acceleration vector components of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ayj~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ayj</strong></td><td><p>Acceleration vector components of body j</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-azj~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>azj</strong></td><td><p>Acceleration vector components of body j</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~~kick_getacch_int_one_pl~~CalledByGraph Pages: 1 -->
+<svg id="prockick_getacch_int_one_plCalledByGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~kick_getacch_int_one_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~kick_getacch_int_one_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
+<!-- proc~kick_getacch_int_one_pl -->
+<g id="proc~~kick_getacch_int_one_pl~~CalledByGraph_node1" class="node">
+<title>proc~kick_getacch_int_one_pl</title>
+<polygon fill="none" stroke="black" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick_getacch_int_one_pl</text>
+</g>
+<!-- interface~kick_getacch_int_one_pl -->
+<g id="proc~~kick_getacch_int_one_pl~~CalledByGraph_node2" class="node">
+<title>interface~kick_getacch_int_one_pl</title>
+<g id="a_proc~~kick_getacch_int_one_pl~~CalledByGraph_node2"><a xlink:href=".././interface/kick_getacch_int_one_pl.html" xlink:title="kick_getacch_int_one_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_one_pl&#45;&gt;proc~kick_getacch_int_one_pl -->
+<g id="proc~~kick_getacch_int_one_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~kick_getacch_int_one_pl&#45;&gt;proc~kick_getacch_int_one_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-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/kick_getacch_int_one_tp.html b/docs/proc/kick_getacch_int_one_tp.html
new file mode 100644
index 000000000..cff293b15
--- /dev/null
+++ b/docs/proc/kick_getacch_int_one_tp.html
@@ -0,0 +1,572 @@
+<!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>kick_getacch_int_one_tp &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>kick_getacch_int_one_tp
+      <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.0% of total for procedures.">13 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/kick.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/kick.f90.html'>kick.f90</a></li>
+    
+     <li><a href='../module/s_kick.html'>s_kick</a></li>
+    
+  
+     <li class="active">kick_getacch_int_one_tp</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>
+pure module subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az)
+    
+    
+   <a href='../interface/kick_getacch_int_one_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair.</p>
+<p>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</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-rji2~4"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>rji2</strong></td><td><p>Square of distance between the test particle and massive body</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xr~6"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>xr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-yr~6"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>yr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-zr~6"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>zr</strong></td><td><p>Distances between the two bodies in x, y, and z directions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmpl~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmpl</strong></td><td><p>G*mass of massive body</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ax~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ax</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ay~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ay</strong></td><td><p>Acceleration vector components of test particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-az~2"></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>az</strong></td><td><p>Acceleration vector components of test particle</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~~kick_getacch_int_one_tp~~CalledByGraph Pages: 1 -->
+<svg id="prockick_getacch_int_one_tpCalledByGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~kick_getacch_int_one_tp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~kick_getacch_int_one_tp~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
+<!-- proc~kick_getacch_int_one_tp -->
+<g id="proc~~kick_getacch_int_one_tp~~CalledByGraph_node1" class="node">
+<title>proc~kick_getacch_int_one_tp</title>
+<polygon fill="none" stroke="black" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick_getacch_int_one_tp</text>
+</g>
+<!-- interface~kick_getacch_int_one_tp -->
+<g id="proc~~kick_getacch_int_one_tp~~CalledByGraph_node2" class="node">
+<title>interface~kick_getacch_int_one_tp</title>
+<g id="a_proc~~kick_getacch_int_one_tp~~CalledByGraph_node2"><a xlink:href=".././interface/kick_getacch_int_one_tp.html" xlink:title="kick_getacch_int_one_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_one_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_one_tp&#45;&gt;proc~kick_getacch_int_one_tp -->
+<g id="proc~~kick_getacch_int_one_tp~~CalledByGraph_edge1" class="edge">
+<title>interface~kick_getacch_int_one_tp&#45;&gt;proc~kick_getacch_int_one_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-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/kick_getacch_int_pl.html b/docs/proc/kick_getacch_int_pl.html
index 8bb4e8e68..dde294416 100644
--- a/docs/proc/kick_getacch_int_pl.html
+++ b/docs/proc/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.1% of total for procedures.">23 statements</a>
+    title=" 0.0% of total for procedures.">6 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-pure module subroutine kick_getacch_int_pl(self)
+module subroutine kick_getacch_int_pl(self)
     
     
    <a href='../interface/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~198"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~248"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -256,6 +256,122 @@ <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~~kick_getacch_int_pl~~CallsGraph Pages: 1 -->
+<svg id="prockick_getacch_int_plCallsGraph" width="430pt" height="32pt"
+ viewBox="0.00 0.00 430.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~kick_getacch_int_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~kick_getacch_int_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 426,-28 426,4 -4,4"/>
+<!-- proc~kick_getacch_int_pl -->
+<g id="proc~~kick_getacch_int_pl~~CallsGraph_node1" class="node">
+<title>proc~kick_getacch_int_pl</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">kick_getacch_int_pl</text>
+</g>
+<!-- interface~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_pl~~CallsGraph_node2" class="node">
+<title>interface~kick_getacch_int_all_pl</title>
+<g id="a_proc~~kick_getacch_int_pl~~CallsGraph_node2"><a xlink:href=".././interface/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="264,-24 142,-24 142,0 264,0 264,-24"/>
+<text text-anchor="middle" x="203" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_pl~~CallsGraph_edge1" class="edge">
+<title>proc~kick_getacch_int_pl&#45;&gt;interface~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M106.18,-12C114.49,-12 123.21,-12 131.86,-12"/>
+<polygon fill="#000000" stroke="#000000" points="131.95,-15.5 141.95,-12 131.95,-8.5 131.95,-15.5"/>
+</g>
+<!-- proc~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_pl~~CallsGraph_node3" class="node">
+<title>proc~kick_getacch_int_all_pl</title>
+<g id="a_proc~~kick_getacch_int_pl~~CallsGraph_node3"><a xlink:href=".././proc/kick_getacch_int_all_pl.html" xlink:title="kick_getacch_int_all_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="422,-24 300,-24 300,0 422,0 422,-24"/>
+<text text-anchor="middle" x="361" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl -->
+<g id="proc~~kick_getacch_int_pl~~CallsGraph_edge2" class="edge">
+<title>interface~kick_getacch_int_all_pl&#45;&gt;proc~kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.31,-12C272.6,-12 281.17,-12 289.63,-12"/>
+<polygon fill="#000000" stroke="#000000" points="289.85,-15.5 299.85,-12 289.85,-8.5 289.85,-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/kick_getacch_int_tp.html b/docs/proc/kick_getacch_int_tp.html
index 5a7439638..3e5d61d15 100644
--- a/docs/proc/kick_getacch_int_tp.html
+++ b/docs/proc/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.0% of total for procedures.">21 statements</a>
+    title=" 0.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~199"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~249"></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-gmpl~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmpl~3"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/lambda_destroy.html b/docs/proc/lambda_destroy.html
index 85334ebd5..e2f2d6cfa 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~197"></span>type(<a href='../type/lambda_obj.html'>lambda_obj</a>)</td>
+  <td><span class="anchor" id="variable-self~247"></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 3c2127801..2cf55792d 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~194"></span>class(<a href='../type/lambda_obj.html'>lambda_obj</a>),</td>
+  <td><span class="anchor" id="variable-self~244"></span>class(<a href='../type/lambda_obj.html'>lambda_obj</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -245,7 +245,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~23"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~19"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/lambda_eval_0_err.html b/docs/proc/lambda_eval_0_err.html
index b1eab143e..e9ede3149 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~195"></span>class(<a href='../type/lambda_obj_err.html'>lambda_obj_err</a>),</td>
+  <td><span class="anchor" id="variable-self~245"></span>class(<a href='../type/lambda_obj_err.html'>lambda_obj_err</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -245,7 +245,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~24"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~20"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/lambda_eval_tvar.html b/docs/proc/lambda_eval_tvar.html
index 8532ece39..d5f168389 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~196"></span>class(<a href='../type/lambda_obj_tvar.html'>lambda_obj_tvar</a>),</td>
+  <td><span class="anchor" id="variable-self~246"></span>class(<a href='../type/lambda_obj_tvar.html'>lambda_obj_tvar</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -245,7 +245,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~25"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~21"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -260,7 +260,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~39"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~45"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/lambda_init_tvar.html b/docs/proc/lambda_init_tvar.html
index 31a216230..777a5b80f 100644
--- a/docs/proc/lambda_init_tvar.html
+++ b/docs/proc/lambda_init_tvar.html
@@ -245,7 +245,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~38"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~44"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/netcdf_close.html b/docs/proc/netcdf_close.html
new file mode 100644
index 000000000..513f61fe7
--- /dev/null
+++ b/docs/proc/netcdf_close.html
@@ -0,0 +1,578 @@
+<!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>netcdf_close &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>netcdf_close
+      <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> Carlisle A. Wishard, Dana Singh, and David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <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.">7 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+    
+  
+     <li class="active">netcdf_close</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 netcdf_close(self, param)
+    
+    
+   <a href='../interface/netcdf_close.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Closes a NetCDF file</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-self~435"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~241"></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">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~~netcdf_close~~CallsGraph Pages: 1 -->
+<svg id="procnetcdf_closeCallsGraph" width="181pt" height="32pt"
+ viewBox="0.00 0.00 181.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_close~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_close~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 177,-28 177,4 -4,4"/>
+<!-- proc~netcdf_close -->
+<g id="proc~~netcdf_close~~CallsGraph_node1" class="node">
+<title>proc~netcdf_close</title>
+<polygon fill="none" stroke="black" points="73,-24 0,-24 0,0 73,0 73,-24"/>
+<text text-anchor="middle" x="36.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_close</text>
+</g>
+<!-- nf90_close -->
+<g id="proc~~netcdf_close~~CallsGraph_node2" class="node">
+<title>nf90_close</title>
+<polygon fill="#777777" stroke="#777777" points="173,-24 109,-24 109,0 173,0 173,-24"/>
+<text text-anchor="middle" x="141" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_close</text>
+</g>
+<!-- proc~netcdf_close&#45;&gt;nf90_close -->
+<g id="proc~~netcdf_close~~CallsGraph_edge1" class="edge">
+<title>proc~netcdf_close&#45;&gt;nf90_close</title>
+<path fill="none" stroke="#000000" d="M73.06,-12C81.37,-12 90.28,-12 98.8,-12"/>
+<polygon fill="#000000" stroke="#000000" points="98.94,-15.5 108.94,-12 98.94,-8.5 98.94,-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">
+  <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~~netcdf_close~~CalledByGraph Pages: 1 -->
+<svg id="procnetcdf_closeCalledByGraph" 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="proc~~netcdf_close~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_close~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 186,-28 186,4 -4,4"/>
+<!-- proc~netcdf_close -->
+<g id="proc~~netcdf_close~~CalledByGraph_node1" class="node">
+<title>proc~netcdf_close</title>
+<polygon fill="none" stroke="black" points="182,-24 109,-24 109,0 182,0 182,-24"/>
+<text text-anchor="middle" x="145.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_close</text>
+</g>
+<!-- interface~netcdf_close -->
+<g id="proc~~netcdf_close~~CalledByGraph_node2" class="node">
+<title>interface~netcdf_close</title>
+<g id="a_proc~~netcdf_close~~CalledByGraph_node2"><a xlink:href=".././interface/netcdf_close.html" xlink:title="netcdf_close">
+<polygon fill="#a7506f" stroke="#a7506f" points="73,-24 0,-24 0,0 73,0 73,-24"/>
+<text text-anchor="middle" x="36.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_close</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_close&#45;&gt;proc~netcdf_close -->
+<g id="proc~~netcdf_close~~CalledByGraph_edge1" class="edge">
+<title>interface~netcdf_close&#45;&gt;proc~netcdf_close</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M73.13,-12C81.25,-12 90,-12 98.49,-12"/>
+<polygon fill="#000000" stroke="#000000" points="98.66,-15.5 108.66,-12 98.66,-8.5 98.66,-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/netcdf_initialize_output.html b/docs/proc/netcdf_initialize_output.html
new file mode 100644
index 000000000..b45db12df
--- /dev/null
+++ b/docs/proc/netcdf_initialize_output.html
@@ -0,0 +1,615 @@
+<!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>netcdf_initialize_output &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>netcdf_initialize_output
+      <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> Carlisle A. Wishard, Dana Singh, and 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.">90 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+    
+  
+     <li class="active">netcdf_initialize_output</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 netcdf_initialize_output(self, param)
+    
+    
+   <a href='../interface/netcdf_initialize_output.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Initialize a NetCDF file system and defines all variables.
+ Define the variables</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-self~436"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~242"></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">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~~netcdf_initialize_output~~CallsGraph Pages: 1 -->
+<svg id="procnetcdf_initialize_outputCallsGraph" width="243pt" height="158pt"
+ viewBox="0.00 0.00 243.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_initialize_output~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<title>proc~~netcdf_initialize_output~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 239,-154 239,4 -4,4"/>
+<!-- proc~netcdf_initialize_output -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_node1" class="node">
+<title>proc~netcdf_initialize_output</title>
+<polygon fill="none" stroke="black" points="121,-87 0,-87 0,-63 121,-63 121,-87"/>
+<text text-anchor="middle" x="60.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_initialize_output</text>
+</g>
+<!-- nf90_create -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_node2" class="node">
+<title>nf90_create</title>
+<polygon fill="#777777" stroke="#777777" points="231,-150 161,-150 161,-126 231,-126 231,-150"/>
+<text text-anchor="middle" x="196" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_create</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_create -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_edge1" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_create</title>
+<path fill="none" stroke="#000000" d="M87.24,-87.15C107.92,-96.91 137.19,-110.72 160,-121.48"/>
+<polygon fill="#000000" stroke="#000000" points="158.8,-124.79 169.34,-125.89 161.79,-118.46 158.8,-124.79"/>
+</g>
+<!-- nf90_def_dim -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_node3" class="node">
+<title>nf90_def_dim</title>
+<polygon fill="#777777" stroke="#777777" points="235,-108 157,-108 157,-84 235,-84 235,-108"/>
+<text text-anchor="middle" x="196" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_def_dim</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_def_dim -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_def_dim</title>
+<path fill="none" stroke="#000000" d="M121.22,-84.39C129.81,-85.75 138.55,-87.12 146.88,-88.43"/>
+<polygon fill="#000000" stroke="#000000" points="146.36,-91.89 156.79,-89.99 147.45,-84.98 146.36,-91.89"/>
+</g>
+<!-- nf90_set_fill -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_node4" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="231,-66 161,-66 161,-42 231,-42 231,-66"/>
+<text text-anchor="middle" x="196" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_set_fill -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M121.22,-65.61C131.21,-64.03 141.42,-62.43 150.93,-60.93"/>
+<polygon fill="#000000" stroke="#000000" points="151.59,-64.37 160.93,-59.36 150.51,-57.46 151.59,-64.37"/>
+</g>
+<!-- nf90_def_var -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_node5" class="node">
+<title>nf90_def_var</title>
+<polygon fill="#777777" stroke="#777777" points="234,-24 158,-24 158,0 234,0 234,-24"/>
+<text text-anchor="middle" x="196" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_def_var</text>
+</g>
+<!-- proc~netcdf_initialize_output&#45;&gt;nf90_def_var -->
+<g id="proc~~netcdf_initialize_output~~CallsGraph_edge4" class="edge">
+<title>proc~netcdf_initialize_output&#45;&gt;nf90_def_var</title>
+<path fill="none" stroke="#000000" d="M87.24,-62.85C107.92,-53.09 137.19,-39.28 160,-28.52"/>
+<polygon fill="#000000" stroke="#000000" points="161.79,-31.54 169.34,-24.11 158.8,-25.21 161.79,-31.54"/>
+</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">
+  <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~~netcdf_initialize_output~~CalledByGraph Pages: 1 -->
+<svg id="procnetcdf_initialize_outputCalledByGraph" width="286pt" height="32pt"
+ viewBox="0.00 0.00 286.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_initialize_output~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_initialize_output~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 282,-28 282,4 -4,4"/>
+<!-- proc~netcdf_initialize_output -->
+<g id="proc~~netcdf_initialize_output~~CalledByGraph_node1" class="node">
+<title>proc~netcdf_initialize_output</title>
+<polygon fill="none" stroke="black" points="278,-24 157,-24 157,0 278,0 278,-24"/>
+<text text-anchor="middle" x="217.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_initialize_output</text>
+</g>
+<!-- interface~netcdf_initialize_output -->
+<g id="proc~~netcdf_initialize_output~~CalledByGraph_node2" class="node">
+<title>interface~netcdf_initialize_output</title>
+<g id="a_proc~~netcdf_initialize_output~~CalledByGraph_node2"><a xlink:href=".././interface/netcdf_initialize_output.html" xlink:title="netcdf_initialize_output">
+<polygon fill="#a7506f" stroke="#a7506f" points="121,-24 0,-24 0,0 121,0 121,-24"/>
+<text text-anchor="middle" x="60.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_initialize_output</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_initialize_output&#45;&gt;proc~netcdf_initialize_output -->
+<g id="proc~~netcdf_initialize_output~~CalledByGraph_edge1" class="edge">
+<title>interface~netcdf_initialize_output&#45;&gt;proc~netcdf_initialize_output</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M121.43,-12C129.72,-12 138.31,-12 146.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="146.99,-15.5 156.99,-12 146.99,-8.5 146.99,-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/netcdf_open.html b/docs/proc/netcdf_open.html
new file mode 100644
index 000000000..3b0890ce2
--- /dev/null
+++ b/docs/proc/netcdf_open.html
@@ -0,0 +1,602 @@
+<!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>netcdf_open &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>netcdf_open
+      <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> Carlisle A. Wishard, Dana Singh, and 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.">80 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+    
+  
+     <li class="active">netcdf_open</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 netcdf_open(self, param)
+    
+    
+   <a href='../interface/netcdf_open.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Opens a NetCDF file and does the variable inquiries to activate variable ids</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-self~437"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~243"></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">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~~netcdf_open~~CallsGraph Pages: 1 -->
+<svg id="procnetcdf_openCallsGraph" width="199pt" height="116pt"
+ viewBox="0.00 0.00 199.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_open~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~netcdf_open~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 195,-112 195,4 -4,4"/>
+<!-- proc~netcdf_open -->
+<g id="proc~~netcdf_open~~CallsGraph_node1" class="node">
+<title>proc~netcdf_open</title>
+<polygon fill="none" stroke="black" points="72,-66 0,-66 0,-42 72,-42 72,-66"/>
+<text text-anchor="middle" x="36" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_open</text>
+</g>
+<!-- nf90_inq_varid -->
+<g id="proc~~netcdf_open~~CallsGraph_node2" class="node">
+<title>nf90_inq_varid</title>
+<polygon fill="#777777" stroke="#777777" points="191,-108 108,-108 108,-84 191,-84 191,-108"/>
+<text text-anchor="middle" x="149.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_inq_varid</text>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_inq_varid -->
+<g id="proc~~netcdf_open~~CallsGraph_edge1" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_inq_varid</title>
+<path fill="none" stroke="#000000" d="M68.95,-66.04C80.85,-70.52 94.53,-75.67 107.15,-80.42"/>
+<polygon fill="#000000" stroke="#000000" points="105.95,-83.71 116.54,-83.96 108.42,-77.16 105.95,-83.71"/>
+</g>
+<!-- nf90_set_fill -->
+<g id="proc~~netcdf_open~~CallsGraph_node3" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="184.5,-66 114.5,-66 114.5,-42 184.5,-42 184.5,-66"/>
+<text text-anchor="middle" x="149.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_set_fill -->
+<g id="proc~~netcdf_open~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M72.28,-54C82.33,-54 93.41,-54 103.93,-54"/>
+<polygon fill="#000000" stroke="#000000" points="104.21,-57.5 114.21,-54 104.21,-50.5 104.21,-57.5"/>
+</g>
+<!-- nf90_open -->
+<g id="proc~~netcdf_open~~CallsGraph_node4" class="node">
+<title>nf90_open</title>
+<polygon fill="#777777" stroke="#777777" points="181.5,-24 117.5,-24 117.5,0 181.5,0 181.5,-24"/>
+<text text-anchor="middle" x="149.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_open</text>
+</g>
+<!-- proc~netcdf_open&#45;&gt;nf90_open -->
+<g id="proc~~netcdf_open~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_open&#45;&gt;nf90_open</title>
+<path fill="none" stroke="#000000" d="M68.95,-41.96C81.05,-37.41 95,-32.15 107.8,-27.33"/>
+<polygon fill="#000000" stroke="#000000" points="109.19,-30.55 117.31,-23.75 106.72,-24 109.19,-30.55"/>
+</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">
+  <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~~netcdf_open~~CalledByGraph Pages: 1 -->
+<svg id="procnetcdf_openCalledByGraph" width="188pt" height="32pt"
+ viewBox="0.00 0.00 188.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_open~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_open~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 184,-28 184,4 -4,4"/>
+<!-- proc~netcdf_open -->
+<g id="proc~~netcdf_open~~CalledByGraph_node1" class="node">
+<title>proc~netcdf_open</title>
+<polygon fill="none" stroke="black" points="180,-24 108,-24 108,0 180,0 180,-24"/>
+<text text-anchor="middle" x="144" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_open</text>
+</g>
+<!-- interface~netcdf_open -->
+<g id="proc~~netcdf_open~~CalledByGraph_node2" class="node">
+<title>interface~netcdf_open</title>
+<g id="a_proc~~netcdf_open~~CalledByGraph_node2"><a xlink:href=".././interface/netcdf_open.html" xlink:title="netcdf_open">
+<polygon fill="#a7506f" stroke="#a7506f" points="72,-24 0,-24 0,0 72,0 72,-24"/>
+<text text-anchor="middle" x="36" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_open</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_open&#45;&gt;proc~netcdf_open -->
+<g id="proc~~netcdf_open~~CalledByGraph_edge1" class="edge">
+<title>interface~netcdf_open&#45;&gt;proc~netcdf_open</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M72,-12C80.15,-12 88.94,-12 97.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="97.67,-15.5 107.67,-12 97.67,-8.5 97.67,-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_pltpenc.html b/docs/proc/netcdf_write_frame_base.html
similarity index 72%
rename from docs/proc/symba_kick_pltpenc.html
rename to docs/proc/netcdf_write_frame_base.html
index 8af2ad246..9f2985eac 100644
--- a/docs/proc/symba_kick_pltpenc.html
+++ b/docs/proc/netcdf_write_frame_base.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_kick_pltpenc &ndash; swiftest</title>
+    <title>netcdf_write_frame_base &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_kick_pltpenc
+    <h1>netcdf_write_frame_base
       <small>Module Subroutine</small>
     
     </h1>
@@ -126,7 +126,7 @@ <h1>symba_kick_pltpenc
 <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-pencil"></i> Carlisle A. Wishard, Dana Singh, and David A. Minton</li>
      
      
      
@@ -136,24 +136,24 @@ <h1>symba_kick_pltpenc
      <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.">79 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_kick.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_kick.f90.html'>symba_kick.f90</a></li>
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
     
-     <li><a href='../module/s_symba_kick.html'>s_symba_kick</a></li>
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
     
   
-     <li class="active">symba_kick_pltpenc</li>
+     <li class="active">netcdf_write_frame_base</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
+module subroutine netcdf_write_frame_base(self, iu, param)
     
     
-   <a href='../interface/symba_kick_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,10 +215,8 @@ <h2>
 
 
     
-    <p>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</p>
-<p>Adapted from David E. Kaufmann's Swifter routine: symba_kick.f90
- Adapted from Hal Levison's Swift routine symba5_kick.f</p>
+    <p>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</p>
     
 
     <h3>Arguments</h3>
@@ -239,12 +237,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~347"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~438"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -254,12 +252,12 @@ <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-iu~25"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</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>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -269,42 +267,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~85"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-param~244"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-irec~9"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-sgn~2"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>sgn</strong></td><td><p>sign to be applied to acceleration</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -327,41 +295,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: proc~~symba_kick_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="procsymba_kick_pltpencCallsGraph" width="207pt" height="74pt"
- viewBox="0.00 0.00 207.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_kick_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>proc~~symba_kick_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 203,-70 203,4 -4,4"/>
-<!-- proc~symba_kick_pltpenc -->
-<g id="proc~~symba_kick_pltpenc~~CallsGraph_node1" class="node">
-<title>proc~symba_kick_pltpenc</title>
-<polygon fill="none" stroke="black" points="109,-45 0,-45 0,-21 109,-21 109,-45"/>
-<text text-anchor="middle" x="54.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_pltpenc</text>
+<!-- Title: proc~~netcdf_write_frame_base~~CallsGraph Pages: 1 -->
+<svg id="procnetcdf_write_frame_baseCallsGraph" width="253pt" height="74pt"
+ viewBox="0.00 0.00 253.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_write_frame_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~netcdf_write_frame_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 249,-70 249,4 -4,4"/>
+<!-- proc~netcdf_write_frame_base -->
+<g id="proc~~netcdf_write_frame_base~~CallsGraph_node1" class="node">
+<title>proc~netcdf_write_frame_base</title>
+<polygon fill="none" stroke="black" points="133,-45 0,-45 0,-21 133,-21 133,-45"/>
+<text text-anchor="middle" x="66.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_frame_base</text>
+</g>
+<!-- interface~util_sort -->
+<g id="proc~~netcdf_write_frame_base~~CallsGraph_node2" class="node">
+<title>interface~util_sort</title>
+<g id="a_proc~~netcdf_write_frame_base~~CallsGraph_node2"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<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_sort</text>
+</a>
 </g>
-<!-- ind2 -->
-<g id="proc~~symba_kick_pltpenc~~CallsGraph_node2" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="199,-66 145,-66 145,-42 199,-42 199,-66"/>
-<text text-anchor="middle" x="172" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
 </g>
-<!-- proc~symba_kick_pltpenc&#45;&gt;ind2 -->
-<g id="proc~~symba_kick_pltpenc~~CallsGraph_edge1" class="edge">
-<title>proc~symba_kick_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M109.19,-42.76C117.89,-44.34 126.71,-45.95 134.86,-47.43"/>
-<polygon fill="#000000" stroke="#000000" points="134.3,-50.89 144.77,-49.23 135.56,-44 134.3,-50.89"/>
+<!-- proc~netcdf_write_frame_base&#45;&gt;interface~util_sort -->
+<g id="proc~~netcdf_write_frame_base~~CallsGraph_edge1" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M133.1,-42.95C145.6,-44.84 158.27,-46.76 169.45,-48.46"/>
+<polygon fill="#000000" stroke="#000000" points="169.26,-51.97 179.67,-50.01 170.31,-45.05 169.26,-51.97"/>
 </g>
-<!-- ind1 -->
-<g id="proc~~symba_kick_pltpenc~~CallsGraph_node3" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="199,-24 145,-24 145,0 199,0 199,-24"/>
-<text text-anchor="middle" x="172" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+<!-- nf90_put_var -->
+<g id="proc~~netcdf_write_frame_base~~CallsGraph_node3" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="245,-24 169,-24 169,0 245,0 245,-24"/>
+<text text-anchor="middle" x="207" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
 </g>
-<!-- proc~symba_kick_pltpenc&#45;&gt;ind1 -->
-<g id="proc~~symba_kick_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_kick_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M109.19,-23.24C117.89,-21.66 126.71,-20.05 134.86,-18.57"/>
-<polygon fill="#000000" stroke="#000000" points="135.56,-22 144.77,-16.77 134.3,-15.11 135.56,-22"/>
+<!-- proc~netcdf_write_frame_base&#45;&gt;nf90_put_var -->
+<g id="proc~~netcdf_write_frame_base~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_write_frame_base&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M133.1,-23.05C141.85,-21.73 150.67,-20.39 159.02,-19.12"/>
+<polygon fill="#000000" stroke="#000000" points="159.56,-22.58 168.92,-17.62 158.51,-15.66 159.56,-22.58"/>
 </g>
 </g>
 </svg>
@@ -438,32 +409,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_kick_pltpenc~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_kick_pltpencCalledByGraph" width="262pt" height="32pt"
- viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_kick_pltpenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_kick_pltpenc~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
-<!-- proc~symba_kick_pltpenc -->
-<g id="proc~~symba_kick_pltpenc~~CalledByGraph_node1" class="node">
-<title>proc~symba_kick_pltpenc</title>
-<polygon fill="none" stroke="black" points="254,-24 145,-24 145,0 254,0 254,-24"/>
-<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_pltpenc</text>
+<!-- Title: proc~~netcdf_write_frame_base~~CalledByGraph Pages: 1 -->
+<svg id="procnetcdf_write_frame_baseCalledByGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_write_frame_base~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_write_frame_base~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<!-- proc~netcdf_write_frame_base -->
+<g id="proc~~netcdf_write_frame_base~~CalledByGraph_node1" class="node">
+<title>proc~netcdf_write_frame_base</title>
+<polygon fill="none" stroke="black" points="302,-24 169,-24 169,0 302,0 302,-24"/>
+<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_frame_base</text>
 </g>
-<!-- interface~symba_kick_pltpenc -->
-<g id="proc~~symba_kick_pltpenc~~CalledByGraph_node2" class="node">
-<title>interface~symba_kick_pltpenc</title>
-<g id="a_proc~~symba_kick_pltpenc~~CalledByGraph_node2"><a xlink:href=".././interface/symba_kick_pltpenc.html" xlink:title="symba_kick_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="109,-24 0,-24 0,0 109,0 109,-24"/>
-<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_pltpenc</text>
+<!-- interface~netcdf_write_frame_base -->
+<g id="proc~~netcdf_write_frame_base~~CalledByGraph_node2" class="node">
+<title>interface~netcdf_write_frame_base</title>
+<g id="a_proc~~netcdf_write_frame_base~~CalledByGraph_node2"><a xlink:href=".././interface/netcdf_write_frame_base.html" xlink:title="netcdf_write_frame_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_frame_base</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc -->
-<g id="proc~~symba_kick_pltpenc~~CalledByGraph_edge1" class="edge">
-<title>interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
-<polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-15.5"/>
+<!-- interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base -->
+<g id="proc~~netcdf_write_frame_base~~CalledByGraph_edge1" class="edge">
+<title>interface~netcdf_write_frame_base&#45;&gt;proc~netcdf_write_frame_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/netcdf_write_hdr_system.html b/docs/proc/netcdf_write_hdr_system.html
new file mode 100644
index 000000000..5f5cfe899
--- /dev/null
+++ b/docs/proc/netcdf_write_hdr_system.html
@@ -0,0 +1,619 @@
+<!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>netcdf_write_hdr_system &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>netcdf_write_hdr_system
+      <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.0% of total for procedures.">31 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+    
+  
+     <li class="active">netcdf_write_hdr_system</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 netcdf_write_hdr_system(self, iu, param)
+    
+    
+   <a href='../interface/netcdf_write_hdr_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Writes header information (variables that change with time, but not particle id). 
+ This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that 
+ previously were handled as separate output files.</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-self~440"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</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" id="variable-iu~27"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~245"></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">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~~netcdf_write_hdr_system~~CallsGraph Pages: 1 -->
+<svg id="procnetcdf_write_hdr_systemCallsGraph" width="252pt" height="116pt"
+ viewBox="0.00 0.00 252.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~netcdf_write_hdr_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 248,-112 248,4 -4,4"/>
+<!-- proc~netcdf_write_hdr_system -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_node1" class="node">
+<title>proc~netcdf_write_hdr_system</title>
+<polygon fill="none" stroke="black" points="132,-66 0,-66 0,-42 132,-42 132,-66"/>
+<text text-anchor="middle" x="66" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_hdr_system</text>
+</g>
+<!-- nf90_set_fill -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_node2" class="node">
+<title>nf90_set_fill</title>
+<polygon fill="#777777" stroke="#777777" points="241,-108 171,-108 171,-84 241,-84 241,-108"/>
+<text text-anchor="middle" x="206" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_set_fill</text>
+</g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_set_fill -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_set_fill</title>
+<path fill="none" stroke="#000000" d="M106.55,-66.04C123.46,-71.18 143.27,-77.21 160.68,-82.51"/>
+<polygon fill="#000000" stroke="#000000" points="160.02,-85.97 170.61,-85.53 162.06,-79.27 160.02,-85.97"/>
+</g>
+<!-- nf90_put_var -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_node3" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="244,-66 168,-66 168,-42 244,-42 244,-66"/>
+<text text-anchor="middle" x="206" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
+</g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_put_var -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_edge1" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M132.36,-54C140.89,-54 149.48,-54 157.63,-54"/>
+<polygon fill="#000000" stroke="#000000" points="157.68,-57.5 167.68,-54 157.68,-50.5 157.68,-57.5"/>
+</g>
+<!-- nf90_open -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_node4" class="node">
+<title>nf90_open</title>
+<polygon fill="#777777" stroke="#777777" points="238,-24 174,-24 174,0 238,0 238,-24"/>
+<text text-anchor="middle" x="206" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_open</text>
+</g>
+<!-- proc~netcdf_write_hdr_system&#45;&gt;nf90_open -->
+<g id="proc~~netcdf_write_hdr_system~~CallsGraph_edge3" class="edge">
+<title>proc~netcdf_write_hdr_system&#45;&gt;nf90_open</title>
+<path fill="none" stroke="#000000" d="M106.55,-41.96C124.56,-36.48 145.86,-30 164.04,-24.47"/>
+<polygon fill="#000000" stroke="#000000" points="165.23,-27.76 173.77,-21.5 163.19,-21.07 165.23,-27.76"/>
+</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">
+  <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~~netcdf_write_hdr_system~~CalledByGraph Pages: 1 -->
+<svg id="procnetcdf_write_hdr_systemCalledByGraph" width="308pt" height="32pt"
+ viewBox="0.00 0.00 308.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_write_hdr_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_write_hdr_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 304,-28 304,4 -4,4"/>
+<!-- proc~netcdf_write_hdr_system -->
+<g id="proc~~netcdf_write_hdr_system~~CalledByGraph_node1" class="node">
+<title>proc~netcdf_write_hdr_system</title>
+<polygon fill="none" stroke="black" points="300,-24 168,-24 168,0 300,0 300,-24"/>
+<text text-anchor="middle" x="234" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_hdr_system</text>
+</g>
+<!-- interface~netcdf_write_hdr_system -->
+<g id="proc~~netcdf_write_hdr_system~~CalledByGraph_node2" class="node">
+<title>interface~netcdf_write_hdr_system</title>
+<g id="a_proc~~netcdf_write_hdr_system~~CalledByGraph_node2"><a xlink:href=".././interface/netcdf_write_hdr_system.html" xlink:title="netcdf_write_hdr_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="132,-24 0,-24 0,0 132,0 132,-24"/>
+<text text-anchor="middle" x="66" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_hdr_system&#45;&gt;proc~netcdf_write_hdr_system -->
+<g id="proc~~netcdf_write_hdr_system~~CalledByGraph_edge1" class="edge">
+<title>interface~netcdf_write_hdr_system&#45;&gt;proc~netcdf_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-12C140.46,-12 149.04,-12 157.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.78,-15.5 167.78,-12 157.78,-8.5 157.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>
+
+    <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/netcdf_write_particle_info_base.html b/docs/proc/netcdf_write_particle_info_base.html
new file mode 100644
index 000000000..357737dba
--- /dev/null
+++ b/docs/proc/netcdf_write_particle_info_base.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>netcdf_write_particle_info_base &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>netcdf_write_particle_info_base
+      <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> Carlisle A. Wishard, Dana Singh, and 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.">90 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/netcdf.f90.html'>netcdf.f90</a></li>
+    
+     <li><a href='../module/s_netcdf.html'>s_netcdf</a></li>
+    
+  
+     <li class="active">netcdf_write_particle_info_base</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 netcdf_write_particle_info_base(self, iu)
+    
+    
+   <a href='../interface/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Write all current particle to file</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-self~439"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-iu~26"></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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~~netcdf_write_particle_info_base~~CallsGraph Pages: 1 -->
+<svg id="procnetcdf_write_particle_info_baseCallsGraph" width="283pt" height="74pt"
+ viewBox="0.00 0.00 283.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_write_particle_info_base~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~netcdf_write_particle_info_base~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 279,-70 279,4 -4,4"/>
+<!-- proc~netcdf_write_particle_info_base -->
+<g id="proc~~netcdf_write_particle_info_base~~CallsGraph_node1" class="node">
+<title>proc~netcdf_write_particle_info_base</title>
+<polygon fill="none" stroke="black" points="163,-45 0,-45 0,-21 163,-21 163,-45"/>
+<text text-anchor="middle" x="81.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_particle_info_base</text>
+</g>
+<!-- interface~util_sort -->
+<g id="proc~~netcdf_write_particle_info_base~~CallsGraph_node2" class="node">
+<title>interface~util_sort</title>
+<g id="a_proc~~netcdf_write_particle_info_base~~CallsGraph_node2"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" 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">util_sort</text>
+</a>
+</g>
+</g>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort -->
+<g id="proc~~netcdf_write_particle_info_base~~CallsGraph_edge1" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M163.3,-44.05C176.1,-45.81 188.76,-47.54 199.84,-49.05"/>
+<polygon fill="#000000" stroke="#000000" points="199.54,-52.54 209.92,-50.43 200.49,-45.61 199.54,-52.54"/>
+</g>
+<!-- nf90_put_var -->
+<g id="proc~~netcdf_write_particle_info_base~~CallsGraph_node3" class="node">
+<title>nf90_put_var</title>
+<polygon fill="#777777" stroke="#777777" points="275,-24 199,-24 199,0 275,0 275,-24"/>
+<text text-anchor="middle" x="237" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">nf90_put_var</text>
+</g>
+<!-- proc~netcdf_write_particle_info_base&#45;&gt;nf90_put_var -->
+<g id="proc~~netcdf_write_particle_info_base~~CallsGraph_edge2" class="edge">
+<title>proc~netcdf_write_particle_info_base&#45;&gt;nf90_put_var</title>
+<path fill="none" stroke="#000000" d="M163.3,-21.95C172.03,-20.75 180.7,-19.57 188.84,-18.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.4,-21.91 198.83,-17.08 188.45,-14.97 189.4,-21.91"/>
+</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">
+  <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~~netcdf_write_particle_info_base~~CalledByGraph Pages: 1 -->
+<svg id="procnetcdf_write_particle_info_baseCalledByGraph" width="370pt" height="32pt"
+ viewBox="0.00 0.00 370.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~netcdf_write_particle_info_base~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~netcdf_write_particle_info_base~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 366,-28 366,4 -4,4"/>
+<!-- proc~netcdf_write_particle_info_base -->
+<g id="proc~~netcdf_write_particle_info_base~~CalledByGraph_node1" class="node">
+<title>proc~netcdf_write_particle_info_base</title>
+<polygon fill="none" stroke="black" points="362,-24 199,-24 199,0 362,0 362,-24"/>
+<text text-anchor="middle" x="280.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_write_particle_info_base</text>
+</g>
+<!-- interface~netcdf_write_particle_info_base -->
+<g id="proc~~netcdf_write_particle_info_base~~CalledByGraph_node2" class="node">
+<title>interface~netcdf_write_particle_info_base</title>
+<g id="a_proc~~netcdf_write_particle_info_base~~CalledByGraph_node2"><a xlink:href=".././interface/netcdf_write_particle_info_base.html" xlink:title="netcdf_write_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="163,-24 0,-24 0,0 163,0 163,-24"/>
+<text text-anchor="middle" x="81.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_write_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base -->
+<g id="proc~~netcdf_write_particle_info_base~~CalledByGraph_edge1" class="edge">
+<title>interface~netcdf_write_particle_info_base&#45;&gt;proc~netcdf_write_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.2,-12C171.67,-12 180.33,-12 188.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="188.93,-15.5 198.93,-12 188.93,-8.5 188.93,-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/obl_acc_body.html b/docs/proc/obl_acc_body.html
index 4183f39bd..9308738c1 100644
--- a/docs/proc/obl_acc_body.html
+++ b/docs/proc/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.1% of total for procedures.">25 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~202"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~252"></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~70"></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>
   
@@ -310,33 +310,33 @@ <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_pl -->
+<!-- proc~obl_acc_tp -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node3" class="node">
-<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">
+<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">
 <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_pl</text>
+<text text-anchor="middle" x="132" y="-51.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_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,-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_tp -->
+<!-- proc~obl_acc_pl -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node4" class="node">
-<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">
+<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">
 <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_tp</text>
+<text text-anchor="middle" x="132" y="-9.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_edge3" 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,-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>
@@ -344,31 +344,31 @@ <h3 class="panel-title">Called by</h3>
 <g id="proc~~obl_acc_body~~CalledByGraph_node5" class="node">
 <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_tp</text>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
-<g id="proc~~obl_acc_body~~CalledByGraph_edge5" class="edge">
+<g id="proc~~obl_acc_body~~CalledByGraph_edge4" class="edge">
 <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"/>
+<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>
 <!-- interface~obl_acc_pl -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node6" class="node">
 <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_pl</text>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
-<g id="proc~~obl_acc_body~~CalledByGraph_edge4" class="edge">
+<g id="proc~~obl_acc_body~~CalledByGraph_edge5" class="edge">
 <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"/>
+<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>
 </g>
 </svg>
diff --git a/docs/proc/obl_acc_pl.html b/docs/proc/obl_acc_pl.html
index a4115167a..8de9e254e 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~203"></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>
   
@@ -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~76"></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 04d11ea76..8cb65e259 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~204"></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>
   
@@ -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~77"></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_pot.html b/docs/proc/obl_pot_one.html
similarity index 72%
rename from docs/proc/obl_pot.html
rename to docs/proc/obl_pot_one.html
index 6c08f48c4..9f893fb46 100644
--- a/docs/proc/obl_pot.html
+++ b/docs/proc/obl_pot_one.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>obl_pot &ndash; swiftest</title>
+    <title>obl_pot_one &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,8 +116,8 @@
     
   
   <div class="row">
-    <h1>obl_pot
-      <small>Module Subroutine</small>
+    <h1>obl_pot_one
+      <small>Function</small>
     
     </h1>
     
@@ -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.1% of total for procedures.">25 statements</a>
+    title=" 0.0% of total for procedures.">22 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>obl_pot
      <li><a href='../module/s_obl.html'>s_obl</a></li>
     
   
-     <li class="active">obl_pot</li>
+     <li class="active">obl_pot_one</li>
   </ol>
 </div>
 </div>
@@ -203,11 +203,9 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot)
+elemental function obl_pot_one(npl, GMcb, GMpl, j2rp2, j4rp4, zh, irh) result(oblpot)
     
     
-   <a href='../interface/obl_pot.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
    
 </h2>
     
@@ -215,7 +213,7 @@ <h2>
 
 
     
-    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body
+    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive body
     Returned value does not include monopole term or terms higher than J4</p>
 <div class="codehilite"><pre><span></span><code><span class="n">Reference</span><span class="o">:</span> <span class="n">MacMillan</span><span class="o">,</span> <span class="n">W</span><span class="o">.</span> <span class="n">D</span><span class="o">.</span> <span class="mi">1958</span><span class="o">.</span> <span class="n">The</span> <span class="n">Theory</span> <span class="n">of</span> <span class="n">the</span> <span class="n">Potential</span><span class="o">,</span> <span class="o">(</span><span class="n">Dover</span> <span class="n">Publications</span><span class="o">),</span> <span class="mi">363</span><span class="o">.</span>
 </code></pre></div>
@@ -243,12 +241,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-npl~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-npl"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>npl</strong></td><td></td>
+  <td><strong>npl</strong></td><td><p>Number of massive bodies</p></td>
   
 </tr>
 
@@ -258,27 +256,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mcb~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmcb"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Mcb</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mpl~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>Mpl</strong></td><td></td>
+  <td><strong>GMcb</strong></td><td><p>G*mass of the central body</p></td>
   
 </tr>
 
@@ -288,12 +271,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-j2rp2~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmpl"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>j2rp2</strong></td><td></td>
+  <td><strong>GMpl</strong></td><td><p>G*mass of the massive body</p></td>
   
 </tr>
 
@@ -303,12 +286,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-j4rp4~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-j2rp2~2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>j4rp4</strong></td><td></td>
+  <td><strong>j2rp2</strong></td><td><p>J_2 / R**2 of the central body</p></td>
   
 </tr>
 
@@ -318,12 +301,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xh~5"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-j4rp4~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:, :)</td><td>::</td>
-  <td><strong>xh</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>j4rp4</strong></td><td><p>J_2 / R**4 of the central body</p></td>
   
 </tr>
 
@@ -333,12 +316,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irh~2"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-zh"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>irh</strong></td><td></td>
+  <td></td><td>::</td>
+  <td><strong>zh</strong></td><td><p>z-component of the heliocentric distance vector of the massive body</p></td>
   
 </tr>
 
@@ -348,12 +331,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-oblpot~2"></span>real(kind=DP),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-irh"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>oblpot</strong></td><td></td>
+  <td><strong>irh</strong></td><td><p>Inverse of the heliocentric distance magnitude of the massive body</p></td>
   
 </tr>
 
@@ -363,6 +346,15 @@ <h3>Arguments</h3>
     
     
     
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-oblpot~2"></span>real(kind=DP)
+  </small></h3>
+    <p>Gravitational potential</p>
+    
+    
     <br>
     
     
@@ -377,62 +369,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: proc~~obl_pot~~CalledByGraph Pages: 1 -->
-<svg id="procobl_potCalledByGraph" 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="proc~~obl_pot~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~obl_pot~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592,-28 592,4 -4,4"/>
-<!-- proc~obl_pot -->
-<g id="proc~~obl_pot~~CalledByGraph_node1" class="node">
-<title>proc~obl_pot</title>
-<polygon fill="none" stroke="black" 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">obl_pot</text>
-</g>
-<!-- interface~obl_pot -->
-<g id="proc~~obl_pot~~CalledByGraph_node2" class="node">
-<title>interface~obl_pot</title>
-<g id="a_proc~~obl_pot~~CalledByGraph_node2"><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>
-<!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
-<g id="proc~~obl_pot~~CalledByGraph_edge1" 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"/>
+<!-- Title: proc~~obl_pot_one~~CalledByGraph Pages: 1 -->
+<svg id="procobl_pot_oneCalledByGraph" width="328pt" height="32pt"
+ viewBox="0.00 0.00 328.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~obl_pot_one~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~obl_pot_one~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 324,-28 324,4 -4,4"/>
+<!-- proc~obl_pot_one -->
+<g id="proc~~obl_pot_one~~CalledByGraph_node1" class="node">
+<title>proc~obl_pot_one</title>
+<polygon fill="none" stroke="black" points="320,-24 248,-24 248,0 320,0 320,-24"/>
+<text text-anchor="middle" x="284" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl_pot_one</text>
 </g>
-<!-- proc~util_get_energy_momentum_system -->
-<g id="proc~~obl_pot~~CalledByGraph_node3" class="node">
-<title>proc~util_get_energy_momentum_system</title>
-<g id="a_proc~~obl_pot~~CalledByGraph_node3"><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>
+<!-- proc~obl_pot_system -->
+<g id="proc~~obl_pot_one~~CalledByGraph_node2" class="node">
+<title>proc~obl_pot_system</title>
+<g id="a_proc~~obl_pot_one~~CalledByGraph_node2"><a xlink:href=".././proc/obl_pot_system.html" xlink:title="obl_pot_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="212,-24 124,-24 124,0 212,0 212,-24"/>
+<text text-anchor="middle" x="168" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_system</text>
 </a>
 </g>
 </g>
-<!-- proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot -->
-<g id="proc~~obl_pot~~CalledByGraph_edge2" 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"/>
+<!-- proc~obl_pot_system&#45;&gt;proc~obl_pot_one -->
+<g id="proc~~obl_pot_one~~CalledByGraph_edge1" class="edge">
+<title>proc~obl_pot_system&#45;&gt;proc~obl_pot_one</title>
+<path fill="none" stroke="#000000" d="M212.1,-12C220.53,-12 229.38,-12 237.88,-12"/>
+<polygon fill="#000000" stroke="#000000" points="238,-15.5 248,-12 238,-8.5 238,-15.5"/>
 </g>
-<!-- interface~util_get_energy_momentum_system -->
-<g id="proc~~obl_pot~~CalledByGraph_node4" class="node">
-<title>interface~util_get_energy_momentum_system</title>
-<g id="a_proc~~obl_pot~~CalledByGraph_node4"><a xlink:href=".././interface/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
-<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_get_energy_momentum_system</text>
+<!-- interface~obl_pot_system -->
+<g id="proc~~obl_pot_one~~CalledByGraph_node3" class="node">
+<title>interface~obl_pot_system</title>
+<g id="a_proc~~obl_pot_one~~CalledByGraph_node3"><a xlink:href=".././interface/obl_pot_system.html" xlink:title="obl_pot_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="88,-24 0,-24 0,0 88,0 88,-24"/>
+<text text-anchor="middle" x="44" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system -->
-<g id="proc~~obl_pot~~CalledByGraph_edge3" 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"/>
+<!-- interface~obl_pot_system&#45;&gt;proc~obl_pot_system -->
+<g id="proc~~obl_pot_one~~CalledByGraph_edge2" class="edge">
+<title>interface~obl_pot_system&#45;&gt;proc~obl_pot_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M88.01,-12C96.4,-12 105.28,-12 113.94,-12"/>
+<polygon fill="#000000" stroke="#000000" points="113.96,-15.5 123.96,-12 113.96,-8.5 113.96,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/obl_pot_system.html b/docs/proc/obl_pot_system.html
new file mode 100644
index 000000000..d0b71b93f
--- /dev/null
+++ b/docs/proc/obl_pot_system.html
@@ -0,0 +1,573 @@
+<!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>obl_pot_system &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>obl_pot_system
+      <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.0% of total for procedures.">14 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/obl.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/obl.f90.html'>obl.f90</a></li>
+    
+     <li><a href='../module/s_obl.html'>s_obl</a></li>
+    
+  
+     <li class="active">obl_pot_system</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 obl_pot_system(self)
+    
+    
+   <a href='../interface/obl_pot_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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</p>
+<div class="codehilite"><pre><span></span><code><span class="n">Reference</span><span class="o">:</span> <span class="n">MacMillan</span><span class="o">,</span> <span class="n">W</span><span class="o">.</span> <span class="n">D</span><span class="o">.</span> <span class="mi">1958</span><span class="o">.</span> <span class="n">The</span> <span class="n">Theory</span> <span class="n">of</span> <span class="n">the</span> <span class="n">Potential</span><span class="o">,</span> <span class="o">(</span><span class="n">Dover</span> <span class="n">Publications</span><span class="o">),</span> <span class="mi">363</span><span class="o">.</span>
+</code></pre></div>
+
+
+<p>Adapted from David E. Kaufmann's Swifter routine: obl_pot.f90 
+ Adapted from Hal Levison's Swift routine obl_pot.f </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-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>self</strong></td><td><p>Swiftest nbody system object</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~~obl_pot_system~~CallsGraph Pages: 1 -->
+<svg id="procobl_pot_systemCallsGraph" width="204pt" height="32pt"
+ viewBox="0.00 0.00 204.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~obl_pot_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~obl_pot_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 200,-28 200,4 -4,4"/>
+<!-- proc~obl_pot_system -->
+<g id="proc~~obl_pot_system~~CallsGraph_node1" class="node">
+<title>proc~obl_pot_system</title>
+<polygon fill="none" stroke="black" points="88,-24 0,-24 0,0 88,0 88,-24"/>
+<text text-anchor="middle" x="44" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl_pot_system</text>
+</g>
+<!-- proc~obl_pot_one -->
+<g id="proc~~obl_pot_system~~CallsGraph_node2" class="node">
+<title>proc~obl_pot_one</title>
+<g id="a_proc~~obl_pot_system~~CallsGraph_node2"><a xlink:href=".././proc/obl_pot_one.html" xlink:title="obl_pot_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="196,-24 124,-24 124,0 196,0 196,-24"/>
+<text text-anchor="middle" x="160" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_one</text>
+</a>
+</g>
+</g>
+<!-- proc~obl_pot_system&#45;&gt;proc~obl_pot_one -->
+<g id="proc~~obl_pot_system~~CallsGraph_edge1" class="edge">
+<title>proc~obl_pot_system&#45;&gt;proc~obl_pot_one</title>
+<path fill="none" stroke="#000000" d="M88.1,-12C96.53,-12 105.38,-12 113.88,-12"/>
+<polygon fill="#000000" stroke="#000000" points="114,-15.5 124,-12 114,-8.5 114,-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">
+  <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~~obl_pot_system~~CalledByGraph Pages: 1 -->
+<svg id="procobl_pot_systemCalledByGraph" 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~~obl_pot_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~obl_pot_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 216,-28 216,4 -4,4"/>
+<!-- proc~obl_pot_system -->
+<g id="proc~~obl_pot_system~~CalledByGraph_node1" class="node">
+<title>proc~obl_pot_system</title>
+<polygon fill="none" stroke="black" points="212,-24 124,-24 124,0 212,0 212,-24"/>
+<text text-anchor="middle" x="168" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl_pot_system</text>
+</g>
+<!-- interface~obl_pot_system -->
+<g id="proc~~obl_pot_system~~CalledByGraph_node2" class="node">
+<title>interface~obl_pot_system</title>
+<g id="a_proc~~obl_pot_system~~CalledByGraph_node2"><a xlink:href=".././interface/obl_pot_system.html" xlink:title="obl_pot_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="88,-24 0,-24 0,0 88,0 88,-24"/>
+<text text-anchor="middle" x="44" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot_system</text>
+</a>
+</g>
+</g>
+<!-- interface~obl_pot_system&#45;&gt;proc~obl_pot_system -->
+<g id="proc~~obl_pot_system~~CalledByGraph_edge1" class="edge">
+<title>interface~obl_pot_system&#45;&gt;proc~obl_pot_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M88.01,-12C96.4,-12 105.28,-12 113.94,-12"/>
+<polygon fill="#000000" stroke="#000000" points="113.96,-15.5 123.96,-12 113.96,-8.5 113.96,-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/orbel_eget.html b/docs/proc/orbel_eget.html
index 9ff9a6932..b8b9d66ea 100644
--- a/docs/proc/orbel_eget.html
+++ b/docs/proc/orbel_eget.html
@@ -134,7 +134,7 @@ <h1>orbel_eget
      <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.0% of total for procedures.">32 statements</a>
      </li> 
      
      
diff --git a/docs/proc/orbel_ehybrid.html b/docs/proc/orbel_ehybrid.html
index 0541fde42..975faba33 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_esolmd -->
+<!-- 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">
 <title>proc~orbel_esolmd</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_edge1" class="edge">
+<g id="proc~~orbel_ehybrid~~CallsGraph_edge2" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<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"/>
+<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"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_node3" class="node">
+<g id="proc~~orbel_ehybrid~~CallsGraph_node4" class="node">
 <title>proc~orbel_eget</title>
-<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>
+<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>
 </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="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"/>
+<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"/>
 </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_esolmd&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge4" class="edge">
-<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<title>proc~orbel_ehie&#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_eget&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge5" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge6" class="edge">
-<title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
+<title>proc~orbel_eget&#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 12b22b1a6..afbbdf364 100644
--- a/docs/proc/orbel_el2xv.html
+++ b/docs/proc/orbel_el2xv.html
@@ -136,7 +136,7 @@ <h1>orbel_el2xv
      <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.">73 statements</a>
+    title=" 0.1% of total for procedures.">73 statements</a>
      </li> 
      
      
@@ -395,217 +395,217 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~orbel_el2xv~~CallsGraph Pages: 1 -->
-<svg id="procorbel_el2xvCallsGraph" width="516pt" height="276pt"
- viewBox="0.00 0.00 516.00 276.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~orbel_el2xv~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 272)">
+<svg id="procorbel_el2xvCallsGraph" width="516pt" height="243pt"
+ viewBox="0.00 0.00 516.00 243.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~orbel_el2xv~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 239.22)">
 <title>proc~~orbel_el2xv~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272 512,-272 512,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.22 512,-239.22 512,4 -4,4"/>
 <!-- proc~orbel_el2xv -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node1" class="node">
 <title>proc~orbel_el2xv</title>
-<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>
+<polygon fill="none" stroke="black" points="67,-93.62 0,-93.62 0,-69.62 67,-69.62 67,-93.62"/>
+<text text-anchor="middle" x="33.5" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv</text>
 </g>
-<!-- proc~orbel_fhybrid -->
+<!-- interface~orbel_scget -->
 <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,-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>
+<title>interface~orbel_scget</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node2"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="401,-198.62 333,-198.62 333,-174.62 401,-174.62 401,-198.62"/>
+<text text-anchor="middle" x="367" y="-184.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
 <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="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"/>
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M42.15,-93.69C53.7,-111.2 77,-143.91 103,-165.62 147.43,-202.73 160.95,-214.16 217,-228.62 250.14,-237.17 260.96,-237.55 294,-228.62 311.53,-223.88 329.18,-213.69 342.62,-204.54"/>
+<polygon fill="#000000" stroke="#000000" points="344.66,-207.38 350.79,-198.74 340.61,-201.67 344.66,-207.38"/>
 </g>
 <!-- proc~orbel_ehybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node3" class="node">
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="181,-156.62 103,-156.62 103,-132.62 181,-132.62 181,-156.62"/>
+<text text-anchor="middle" x="142" y="-142.22" 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_el2xv~~CallsGraph_edge2" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M55.03,-93.77C71.09,-103.27 93.63,-116.6 111.61,-127.23"/>
+<polygon fill="#000000" stroke="#000000" points="110.14,-130.43 120.53,-132.51 113.7,-124.41 110.14,-130.43"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node4" class="node">
-<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>
+<title>proc~orbel_fhybrid</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node4"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="179.5,-93.62 104.5,-93.62 104.5,-69.62 179.5,-69.62 179.5,-93.62"/>
+<text text-anchor="middle" x="142" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge3" class="edge">
-<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"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
+<path fill="none" stroke="#000000" d="M67.03,-81.62C75.57,-81.62 84.94,-81.62 94.06,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="94.2,-85.12 104.2,-81.62 94.2,-78.12 94.2,-85.12"/>
 </g>
 <!-- proc~orbel_zget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node5" class="node">
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="173.5,-51.62 110.5,-51.62 110.5,-27.62 173.5,-27.62 173.5,-51.62"/>
+<text text-anchor="middle" x="142" y="-37.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge4" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M65.02,-69.59C76.27,-65.15 89.19,-60.05 101.15,-55.34"/>
+<polygon fill="#000000" stroke="#000000" points="102.46,-58.58 110.48,-51.66 99.89,-52.07 102.46,-58.58"/>
 </g>
 <!-- proc~orbel_schget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node6" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="404,-31.62 330,-31.62 330,-7.62 404,-7.62 404,-31.62"/>
+<text text-anchor="middle" x="367" y="-17.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
 <!-- 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_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"/>
+<path fill="none" stroke="#000000" d="M43.02,-69.51C54.57,-54.27 76.81,-28.83 103,-18.62 174.54,9.27 265.57,0.09 319.63,-9.5"/>
+<polygon fill="#000000" stroke="#000000" points="319.13,-12.96 329.6,-11.35 320.41,-6.08 319.13,-12.96"/>
 </g>
-<!-- proc~orbel_flon -->
-<g id="proc~~orbel_el2xv~~CallsGraph_node8" class="node">
-<title>proc~orbel_flon</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node8"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="285.5,-268 225.5,-268 225.5,-244 285.5,-244 285.5,-268"/>
-<text text-anchor="middle" x="255.5" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
+<!-- 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,-198.62 440,-198.62 440,-174.62 508,-174.62 508,-198.62"/>
+<text text-anchor="middle" x="474" y="-184.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <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="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_node10" class="node">
-<title>proc~orbel_fget</title>
-<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_edge7" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<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"/>
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.22,-186.62C410.31,-186.62 420.3,-186.62 429.85,-186.62"/>
+<polygon fill="#000000" stroke="#000000" points="429.99,-190.12 439.99,-186.62 429.99,-183.12 429.99,-190.12"/>
 </g>
 <!-- proc~orbel_esolmd -->
-<g id="proc~~orbel_el2xv~~CallsGraph_node7" class="node">
+<g id="proc~~orbel_el2xv~~CallsGraph_node8" class="node">
 <title>proc~orbel_esolmd</title>
-<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>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node8"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="294,-219.62 217,-219.62 217,-195.62 294,-195.62 294,-219.62"/>
+<text text-anchor="middle" x="255.5" y="-205.22" 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_edge8" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M164.35,-156.78C179.13,-165.19 199.24,-176.61 217,-186.62 219.22,-187.87 221.51,-189.16 223.82,-190.46"/>
+<polygon fill="#000000" stroke="#000000" points="222.24,-193.59 232.68,-195.43 225.67,-187.48 222.24,-193.59"/>
 </g>
 <!-- proc~orbel_eget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node9" class="node">
 <title>proc~orbel_eget</title>
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="287.5,-177.62 223.5,-177.62 223.5,-153.62 287.5,-153.62 287.5,-177.62"/>
+<text text-anchor="middle" x="255.5" y="-163.22" 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_edge10" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge9" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M181.06,-151.79C191.48,-153.75 202.82,-155.89 213.41,-157.88"/>
+<polygon fill="#000000" stroke="#000000" points="212.79,-161.33 223.27,-159.74 214.09,-154.45 212.79,-161.33"/>
 </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,-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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="287,-135.62 224,-135.62 224,-111.62 287,-111.62 287,-135.62"/>
+<text text-anchor="middle" x="255.5" y="-121.22" 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">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge7" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M181.06,-137.45C191.67,-135.45 203.24,-133.28 213.99,-131.25"/>
+<polygon fill="#000000" stroke="#000000" points="214.81,-134.66 223.99,-129.37 213.51,-127.78 214.81,-134.66"/>
 </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>
+<!-- proc~orbel_flon -->
+<g id="proc~~orbel_el2xv~~CallsGraph_node7" class="node">
+<title>proc~orbel_flon</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node7"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="285.5,-93.62 225.5,-93.62 225.5,-69.62 285.5,-69.62 285.5,-93.62"/>
+<text text-anchor="middle" x="255.5" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</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"/>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<g id="proc~~orbel_el2xv~~CallsGraph_edge10" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
+<path fill="none" stroke="#000000" d="M179.51,-81.62C190.89,-81.62 203.49,-81.62 215.06,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="215.33,-85.12 225.33,-81.62 215.33,-78.12 215.33,-85.12"/>
 </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"/>
+<!-- proc~orbel_fget -->
+<g id="proc~~orbel_el2xv~~CallsGraph_node10" class="node">
+<title>proc~orbel_fget</title>
+<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,-51.62 225,-51.62 225,-27.62 286,-27.62 286,-51.62"/>
+<text text-anchor="middle" x="255.5" y="-37.22" 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_edge11" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M174.95,-69.59C187.46,-64.87 201.95,-59.42 215.1,-54.46"/>
+<polygon fill="#000000" stroke="#000000" points="216.71,-57.6 224.84,-50.79 214.25,-51.04 216.71,-57.6"/>
 </g>
 <!-- 3 -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node13" class="node">
 <title>3</title>
-<polygon fill="#777777" stroke="#777777" points="394,-268 340,-268 340,-244 394,-244 394,-268"/>
-<text text-anchor="middle" x="367" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
+<polygon fill="#777777" stroke="#777777" points="394,-93.62 340,-93.62 340,-69.62 394,-69.62 394,-93.62"/>
+<text text-anchor="middle" x="367" y="-79.22" 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_edge13" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge12" 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"/>
+<path fill="none" stroke="#000000" d="M285.56,-81.62C299.12,-81.62 315.4,-81.62 329.76,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="329.81,-85.12 339.81,-81.62 329.81,-78.12 329.81,-85.12"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_el2xv~~CallsGraph_edge13" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M294.18,-200.39C303.36,-198.63 313.25,-196.74 322.67,-194.93"/>
+<polygon fill="#000000" stroke="#000000" points="323.48,-198.34 332.64,-193.02 322.16,-191.46 323.48,-198.34"/>
 </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"/>
+<path fill="none" stroke="#000000" d="M287.59,-171.58C298.54,-173.68 311.06,-176.08 322.83,-178.34"/>
+<polygon fill="#000000" stroke="#000000" points="322.44,-181.83 332.92,-180.28 323.76,-174.96 322.44,-181.83"/>
 </g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
 <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"/>
+<path fill="none" stroke="#000000" d="M286.13,-34.21C296.52,-32.31 308.44,-30.13 319.86,-28.05"/>
+<polygon fill="#000000" stroke="#000000" points="320.49,-31.49 329.7,-26.25 319.24,-24.6 320.49,-31.49"/>
 </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="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"/>
+<path fill="none" stroke="#000000" d="M278.35,-135.77C283.49,-138.66 288.95,-141.73 294,-144.62 308.05,-152.65 323.57,-161.69 336.59,-169.31"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-172.54 345.57,-174.58 338.72,-166.5 335.18,-172.54"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/orbel_el2xv_vec.html b/docs/proc/orbel_el2xv_vec.html
index 3b2690ff1..f045687f5 100644
--- a/docs/proc/orbel_el2xv_vec.html
+++ b/docs/proc/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.0% of total for procedures.">11 statements</a>
+    title=" 0.0% of total for procedures.">13 statements</a>
      </li> 
      
      
@@ -215,7 +215,8 @@ <h2>
 
 
     
-    <p>A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</p>
+    <p>A wrapper method that converts all of the orbital element vectors into cartesian position and velocity vectors for a Swiftest body object.
+ This method deallocates all of the orbital elements after it is finished.</p>
     
 
     <h3>Arguments</h3>
@@ -236,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~205"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~256"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~28"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~31"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -280,232 +281,232 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~orbel_el2xv_vec~~CallsGraph Pages: 1 -->
-<svg id="procorbel_el2xv_vecCallsGraph" width="641pt" height="276pt"
- viewBox="0.00 0.00 641.00 275.57" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~orbel_el2xv_vec~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 272)">
+<svg id="procorbel_el2xv_vecCallsGraph" width="641pt" height="243pt"
+ viewBox="0.00 0.00 641.00 242.84" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 239.22)">
 <title>proc~~orbel_el2xv_vec~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272 638,-272 638,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.22 638,-239.22 638,4 -4,4"/>
 <!-- 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,-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>
+<polygon fill="none" stroke="black" points="90,-93.62 0,-93.62 0,-69.62 90,-69.62 90,-93.62"/>
+<text text-anchor="middle" x="45" y="-79.22" 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,-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>
+<polygon fill="#d9534f" stroke="#d9534f" points="193,-93.62 126,-93.62 126,-69.62 193,-69.62 193,-93.62"/>
+<text text-anchor="middle" x="159.5" y="-79.22" 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,-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"/>
+<path fill="none" stroke="#000000" d="M90.14,-81.62C98.63,-81.62 107.51,-81.62 115.95,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="115.97,-85.12 125.97,-81.62 115.97,-78.12 115.97,-85.12"/>
 </g>
-<!-- proc~orbel_fhybrid -->
+<!-- interface~orbel_scget -->
 <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,-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>
+<title>interface~orbel_scget</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node3"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="527,-198.62 459,-198.62 459,-174.62 527,-174.62 527,-198.62"/>
+<text text-anchor="middle" x="493" y="-184.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
 <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="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"/>
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M168.15,-93.69C179.7,-111.2 203,-143.91 229,-165.62 273.43,-202.73 286.95,-214.16 343,-228.62 376.14,-237.17 386.96,-237.55 420,-228.62 437.53,-223.88 455.18,-213.69 468.62,-204.54"/>
+<polygon fill="#000000" stroke="#000000" points="470.66,-207.38 476.79,-198.74 466.61,-201.67 470.66,-207.38"/>
 </g>
 <!-- proc~orbel_ehybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node4" class="node">
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="307,-156.62 229,-156.62 229,-132.62 307,-132.62 307,-156.62"/>
+<text text-anchor="middle" x="268" y="-142.22" 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_el2xv_vec~~CallsGraph_edge3" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M181.03,-93.77C197.09,-103.27 219.63,-116.6 237.61,-127.23"/>
+<polygon fill="#000000" stroke="#000000" points="236.14,-130.43 246.53,-132.51 239.7,-124.41 236.14,-130.43"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node5" class="node">
-<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>
+<title>proc~orbel_fhybrid</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node5"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="305.5,-93.62 230.5,-93.62 230.5,-69.62 305.5,-69.62 305.5,-93.62"/>
+<text text-anchor="middle" x="268" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge4" class="edge">
-<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"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
+<path fill="none" stroke="#000000" d="M193.03,-81.62C201.57,-81.62 210.94,-81.62 220.06,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="220.2,-85.12 230.2,-81.62 220.2,-78.12 220.2,-85.12"/>
 </g>
 <!-- proc~orbel_zget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node6" class="node">
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="299.5,-51.62 236.5,-51.62 236.5,-27.62 299.5,-27.62 299.5,-51.62"/>
+<text text-anchor="middle" x="268" y="-37.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge5" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M191.02,-69.59C202.27,-65.15 215.19,-60.05 227.15,-55.34"/>
+<polygon fill="#000000" stroke="#000000" points="228.46,-58.58 236.48,-51.66 225.89,-52.07 228.46,-58.58"/>
 </g>
 <!-- proc~orbel_schget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node7" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="530,-31.62 456,-31.62 456,-7.62 530,-7.62 530,-31.62"/>
+<text text-anchor="middle" x="493" y="-17.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
 <!-- 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_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"/>
+<path fill="none" stroke="#000000" d="M169.02,-69.51C180.57,-54.27 202.81,-28.83 229,-18.62 300.54,9.27 391.57,0.09 445.63,-9.5"/>
+<polygon fill="#000000" stroke="#000000" points="445.13,-12.96 455.6,-11.35 446.41,-6.08 445.13,-12.96"/>
 </g>
-<!-- proc~orbel_flon -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
-<title>proc~orbel_flon</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node9"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="411.5,-268 351.5,-268 351.5,-244 411.5,-244 411.5,-268"/>
-<text text-anchor="middle" x="381.5" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
+<!-- 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,-198.62 566,-198.62 566,-174.62 634,-174.62 634,-198.62"/>
+<text text-anchor="middle" x="600" y="-184.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <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="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_node11" class="node">
-<title>proc~orbel_fget</title>
-<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_edge8" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<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"/>
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.22,-186.62C536.31,-186.62 546.3,-186.62 555.85,-186.62"/>
+<polygon fill="#000000" stroke="#000000" points="555.99,-190.12 565.99,-186.62 555.99,-183.12 555.99,-190.12"/>
 </g>
 <!-- proc~orbel_esolmd -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_node8" class="node">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
 <title>proc~orbel_esolmd</title>
-<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>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node9"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="420,-219.62 343,-219.62 343,-195.62 420,-195.62 420,-219.62"/>
+<text text-anchor="middle" x="381.5" y="-205.22" 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_edge9" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M290.35,-156.78C305.13,-165.19 325.24,-176.61 343,-186.62 345.22,-187.87 347.51,-189.16 349.82,-190.46"/>
+<polygon fill="#000000" stroke="#000000" points="348.24,-193.59 358.68,-195.43 351.67,-187.48 348.24,-193.59"/>
 </g>
 <!-- proc~orbel_eget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node10" class="node">
 <title>proc~orbel_eget</title>
 <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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="413.5,-177.62 349.5,-177.62 349.5,-153.62 413.5,-153.62 413.5,-177.62"/>
+<text text-anchor="middle" x="381.5" y="-163.22" 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_edge11" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge10" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M307.06,-151.79C317.48,-153.75 328.82,-155.89 339.41,-157.88"/>
+<polygon fill="#000000" stroke="#000000" points="338.79,-161.33 349.27,-159.74 340.09,-154.45 338.79,-161.33"/>
 </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,-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>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="413,-135.62 350,-135.62 350,-111.62 413,-111.62 413,-135.62"/>
+<text text-anchor="middle" x="381.5" y="-121.22" 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">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge8" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M307.06,-137.45C317.67,-135.45 329.24,-133.28 339.99,-131.25"/>
+<polygon fill="#000000" stroke="#000000" points="340.81,-134.66 349.99,-129.37 339.51,-127.78 340.81,-134.66"/>
 </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>
+<!-- proc~orbel_flon -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node8" class="node">
+<title>proc~orbel_flon</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node8"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="411.5,-93.62 351.5,-93.62 351.5,-69.62 411.5,-69.62 411.5,-93.62"/>
+<text text-anchor="middle" x="381.5" y="-79.22" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</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"/>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge11" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
+<path fill="none" stroke="#000000" d="M305.51,-81.62C316.89,-81.62 329.49,-81.62 341.06,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="341.33,-85.12 351.33,-81.62 341.33,-78.12 341.33,-85.12"/>
 </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"/>
+<!-- proc~orbel_fget -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node11" class="node">
+<title>proc~orbel_fget</title>
+<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,-51.62 351,-51.62 351,-27.62 412,-27.62 412,-51.62"/>
+<text text-anchor="middle" x="381.5" y="-37.22" 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_edge12" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M300.95,-69.59C313.46,-64.87 327.95,-59.42 341.1,-54.46"/>
+<polygon fill="#000000" stroke="#000000" points="342.71,-57.6 350.84,-50.79 340.25,-51.04 342.71,-57.6"/>
 </g>
 <!-- 3 -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node14" class="node">
 <title>3</title>
-<polygon fill="#777777" stroke="#777777" points="520,-268 466,-268 466,-244 520,-244 520,-268"/>
-<text text-anchor="middle" x="493" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
+<polygon fill="#777777" stroke="#777777" points="520,-93.62 466,-93.62 466,-69.62 520,-69.62 520,-93.62"/>
+<text text-anchor="middle" x="493" y="-79.22" 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_edge14" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge13" 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"/>
+<path fill="none" stroke="#000000" d="M411.56,-81.62C425.12,-81.62 441.4,-81.62 455.76,-81.62"/>
+<polygon fill="#000000" stroke="#000000" points="455.81,-85.12 465.81,-81.62 455.81,-78.12 455.81,-85.12"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge14" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M420.18,-200.39C429.36,-198.63 439.25,-196.74 448.67,-194.93"/>
+<polygon fill="#000000" stroke="#000000" points="449.48,-198.34 458.64,-193.02 448.16,-191.46 449.48,-198.34"/>
 </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"/>
+<path fill="none" stroke="#000000" d="M413.59,-171.58C424.54,-173.68 437.06,-176.08 448.83,-178.34"/>
+<polygon fill="#000000" stroke="#000000" points="448.44,-181.83 458.92,-180.28 449.76,-174.96 448.44,-181.83"/>
 </g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
 <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"/>
+<path fill="none" stroke="#000000" d="M412.13,-34.21C422.52,-32.31 434.44,-30.13 445.86,-28.05"/>
+<polygon fill="#000000" stroke="#000000" points="446.49,-31.49 455.7,-26.25 445.24,-24.6 446.49,-31.49"/>
 </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="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"/>
+<path fill="none" stroke="#000000" d="M404.35,-135.77C409.49,-138.66 414.95,-141.73 420,-144.62 434.05,-152.65 449.57,-161.69 462.59,-169.31"/>
+<polygon fill="#000000" stroke="#000000" points="461.18,-172.54 471.57,-174.58 464.72,-166.5 461.18,-172.54"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/orbel_fget.html b/docs/proc/orbel_fget.html
index 4514df716..fabf2a8bf 100644
--- a/docs/proc/orbel_fget.html
+++ b/docs/proc/orbel_fget.html
@@ -134,7 +134,7 @@ <h1>orbel_fget
      <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.0% of total for procedures.">32 statements</a>
      </li> 
      
      
diff --git a/docs/proc/orbel_scget.html b/docs/proc/orbel_scget.html
index 851042e90..3ec5aa2e4 100644
--- a/docs/proc/orbel_scget.html
+++ b/docs/proc/orbel_scget.html
@@ -355,51 +355,51 @@ <h3 class="panel-title">Called by</h3>
 <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_node5" class="node">
-<title>proc~drift_kepu_guess</title>
-<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_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">
+<g id="proc~~orbel_scget~~CalledByGraph_node5" 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">
+<g id="a_proc~~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="proc~~orbel_scget~~CalledByGraph_edge5" class="edge">
+<g id="proc~~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="proc~~orbel_scget~~CalledByGraph_node10" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node8" 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">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node8"><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">
+<g id="proc~~orbel_scget~~CalledByGraph_edge12" 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~drift_kepu_guess -->
+<g id="proc~~orbel_scget~~CalledByGraph_node6" 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">
+<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">
+<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_ehie -->
 <g id="proc~~orbel_scget~~CalledByGraph_node7" class="node">
 <title>proc~orbel_ehie</title>
@@ -415,84 +415,84 @@ <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_ehybrid&#45;&gt;proc~orbel_esolmd -->
+<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_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"/>
+</g>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
+<g id="proc~~orbel_scget~~CalledByGraph_edge11" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
+<path fill="none" stroke="#000000" d="M415.15,-104.92C429.89,-96.25 450.45,-84.47 469,-75 472.06,-73.44 475.27,-71.86 478.5,-70.31"/>
+<polygon fill="#000000" stroke="#000000" points="480.01,-73.47 487.57,-66.05 477.03,-67.13 480.01,-73.47"/>
+</g>
 <!-- proc~drift_kepu -->
-<g id="proc~~orbel_scget~~CalledByGraph_node8" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node9" class="node">
 <title>proc~drift_kepu</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node8"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node9"><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_edge9" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge10" 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">
+<g id="proc~~orbel_scget~~CalledByGraph_node10" 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">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node10"><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">
+<g id="proc~~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="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"/>
+<!-- proc~drift_dan -->
+<g id="proc~~orbel_scget~~CalledByGraph_node11" class="node">
+<title>proc~drift_dan</title>
+<g id="a_proc~~orbel_scget~~CalledByGraph_node11"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
+<polygon fill="#d9534f" stroke="#d9534f" points="313,-24 258,-24 258,0 313,0 313,-24"/>
+<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
+</a>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<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"/>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge11" class="edge">
-<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M415.15,-104.92C429.89,-96.25 450.45,-84.47 469,-75 472.06,-73.44 475.27,-71.86 478.5,-70.31"/>
-<polygon fill="#000000" stroke="#000000" points="480.01,-73.47 487.57,-66.05 477.03,-67.13 480.01,-73.47"/>
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
+<g id="proc~~orbel_scget~~CalledByGraph_edge13" 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"/>
 </g>
 <!-- interface~orbel_el2xv_vec -->
-<g id="proc~~orbel_scget~~CalledByGraph_node11" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node12" class="node">
 <title>interface~orbel_el2xv_vec</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node11"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node12"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
 <polygon fill="#a7506f" stroke="#a7506f" points="90,-149 0,-149 0,-125 90,-125 90,-149"/>
 <text text-anchor="middle" x="45" y="-134.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="proc~~orbel_scget~~CalledByGraph_edge13" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge14" 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"/>
 </g>
-<!-- proc~drift_dan -->
-<g id="proc~~orbel_scget~~CalledByGraph_node12" class="node">
-<title>proc~drift_dan</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node12"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
-<polygon fill="#d9534f" stroke="#d9534f" points="313,-24 258,-24 258,0 313,0 313,-24"/>
-<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
-</a>
-</g>
-</g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
-<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"/>
-</g>
 </g>
 </svg>
 </div><script>var panprocorbel_scgetCalledByGraph = svgPanZoom('#procorbel_scgetCalledByGraph', {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/proc/orbel_schget.html b/docs/proc/orbel_schget.html
index ce569d35a..4980bc4fd 100644
--- a/docs/proc/orbel_schget.html
+++ b/docs/proc/orbel_schget.html
@@ -317,16 +317,16 @@ <h3 class="panel-title">Called by</h3>
 <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_node5" class="node">
+<g id="proc~~orbel_schget~~CalledByGraph_node4" class="node">
 <title>proc~orbel_fhybrid</title>
-<g id="a_proc~~orbel_schget~~CalledByGraph_node5"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<g id="a_proc~~orbel_schget~~CalledByGraph_node4"><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_edge6" class="edge">
+<g id="proc~~orbel_schget~~CalledByGraph_edge5" 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"/>
@@ -346,10 +346,16 @@ <h3 class="panel-title">Called by</h3>
 <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_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>
 <!-- proc~orbel_el2xv_vec -->
-<g id="proc~~orbel_schget~~CalledByGraph_node4" class="node">
+<g id="proc~~orbel_schget~~CalledByGraph_node5" class="node">
 <title>proc~orbel_el2xv_vec</title>
-<g id="a_proc~~orbel_schget~~CalledByGraph_node4"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<g id="a_proc~~orbel_schget~~CalledByGraph_node5"><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>
@@ -361,12 +367,6 @@ <h3 class="panel-title">Called by</h3>
 <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_edge5" class="edge">
+<g id="proc~~orbel_schget~~CalledByGraph_edge6" 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_xv2aeq.html b/docs/proc/orbel_xv2aeq.html
index 2a005792d..f37702c7e 100644
--- a/docs/proc/orbel_xv2aeq.html
+++ b/docs/proc/orbel_xv2aeq.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~19"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~20"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~26"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~23"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~14"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~9"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -284,7 +284,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-a~6"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-a~7"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
@@ -299,7 +299,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-e~11"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-e~12"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/orbel_xv2aqt.html b/docs/proc/orbel_xv2aqt.html
index 24cb18a50..c0fd16aa7 100644
--- a/docs/proc/orbel_xv2aqt.html
+++ b/docs/proc/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.2% of total for procedures.">92 statements</a>
+    title=" 0.1% of total for procedures.">92 statements</a>
      </li> 
      
      
@@ -240,7 +240,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~20"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~21"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -255,7 +255,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~27"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~24"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~15"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~10"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -285,7 +285,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-a~7"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-a~8"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
@@ -315,7 +315,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-capm~5"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-capm~6"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/orbel_xv2el.html b/docs/proc/orbel_xv2el.html
index c45c140c9..b8e3d60e5 100644
--- a/docs/proc/orbel_xv2el.html
+++ b/docs/proc/orbel_xv2el.html
@@ -117,7 +117,7 @@
   
   <div class="row">
     <h1>orbel_xv2el
-      <small>Subroutine</small>
+      <small>Module Subroutine</small>
     
     </h1>
     
@@ -136,7 +136,7 @@ <h1>orbel_xv2el
      <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.">105 statements</a>
+    title=" 0.2% of total for procedures.">111 statements</a>
      </li> 
      
      
@@ -203,9 +203,11 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
+pure module subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
     
     
+   <a href='../interface/orbel_xv2el.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
    
 </h2>
     
@@ -246,12 +248,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~22"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>mu</strong></td><td></td>
+  <td><strong>mu</strong></td><td><p>Gravitational constant</p></td>
   
 </tr>
 
@@ -261,12 +263,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-x~8"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-x~25"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>x</strong></td><td></td>
+  <td><strong>x</strong></td><td><p>Position vector</p></td>
   
 </tr>
 
@@ -276,12 +278,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-v~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-v~11"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>v</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Velocity vector</p></td>
   
 </tr>
 
@@ -291,12 +293,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-a~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-a~9"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>a</strong></td><td></td>
+  <td><strong>a</strong></td><td><p>semimajor axis</p></td>
   
 </tr>
 
@@ -306,12 +308,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-e~9"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-e~13"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>e</strong></td><td></td>
+  <td><strong>e</strong></td><td><p>eccentricity</p></td>
   
 </tr>
 
@@ -321,12 +323,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inc~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-inc~5"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>inc</strong></td><td></td>
+  <td><strong>inc</strong></td><td><p>inclination</p></td>
   
 </tr>
 
@@ -336,12 +338,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-capom~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-capom~5"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>capom</strong></td><td></td>
+  <td><strong>capom</strong></td><td><p>longitude of ascending node</p></td>
   
 </tr>
 
@@ -351,12 +353,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-omega~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-omega~5"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>omega</strong></td><td></td>
+  <td><strong>omega</strong></td><td><p>argument of periapsis</p></td>
   
 </tr>
 
@@ -366,12 +368,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-capm~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-capm~7"></span>real(kind=DP),</td>
   <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>capm</strong></td><td></td>
+  <td><strong>capm</strong></td><td><p>mean anomaly</p></td>
   
 </tr>
 
@@ -396,43 +398,58 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~orbel_xv2el~~CalledByGraph Pages: 1 -->
-<svg id="procorbel_xv2elCalledByGraph" width="327pt" height="32pt"
- viewBox="0.00 0.00 327.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="procorbel_xv2elCalledByGraph" width="430pt" height="32pt"
+ viewBox="0.00 0.00 430.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="proc~~orbel_xv2el~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~orbel_xv2el~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 323,-28 323,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 426,-28 426,4 -4,4"/>
 <!-- proc~orbel_xv2el -->
 <g id="proc~~orbel_xv2el~~CalledByGraph_node1" class="node">
 <title>proc~orbel_xv2el</title>
-<polygon fill="none" stroke="black" points="319,-24 252,-24 252,0 319,0 319,-24"/>
-<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_xv2el</text>
+<polygon fill="none" stroke="black" points="422,-24 355,-24 355,0 422,0 422,-24"/>
+<text text-anchor="middle" x="388.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_xv2el</text>
 </g>
-<!-- proc~orbel_xv2el_vec -->
+<!-- interface~orbel_xv2el -->
 <g id="proc~~orbel_xv2el~~CalledByGraph_node2" class="node">
+<title>interface~orbel_xv2el</title>
+<g id="a_proc~~orbel_xv2el~~CalledByGraph_node2"><a xlink:href=".././interface/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#a7506f" stroke="#a7506f" points="319,-24 252,-24 252,0 319,0 319,-24"/>
+<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el -->
+<g id="proc~~orbel_xv2el~~CalledByGraph_edge1" class="edge">
+<title>interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.01,-12C327.13,-12 335.96,-12 344.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="344.7,-15.5 354.7,-12 344.7,-8.5 344.7,-15.5"/>
+</g>
+<!-- proc~orbel_xv2el_vec -->
+<g id="proc~~orbel_xv2el~~CalledByGraph_node3" class="node">
 <title>proc~orbel_xv2el_vec</title>
-<g id="a_proc~~orbel_xv2el~~CalledByGraph_node2"><a xlink:href=".././proc/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<g id="a_proc~~orbel_xv2el~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
 <polygon fill="#d9534f" stroke="#d9534f" points="216,-24 126,-24 126,0 216,0 216,-24"/>
 <text text-anchor="middle" x="171" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el -->
-<g id="proc~~orbel_xv2el~~CalledByGraph_edge1" class="edge">
-<title>proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el</title>
+<!-- proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el -->
+<g id="proc~~orbel_xv2el~~CalledByGraph_edge2" class="edge">
+<title>proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el</title>
 <path fill="none" stroke="#000000" d="M216.14,-12C224.63,-12 233.51,-12 241.95,-12"/>
 <polygon fill="#000000" stroke="#000000" points="241.97,-15.5 251.97,-12 241.97,-8.5 241.97,-15.5"/>
 </g>
 <!-- interface~orbel_xv2el_vec -->
-<g id="proc~~orbel_xv2el~~CalledByGraph_node3" class="node">
+<g id="proc~~orbel_xv2el~~CalledByGraph_node4" class="node">
 <title>interface~orbel_xv2el_vec</title>
-<g id="a_proc~~orbel_xv2el~~CalledByGraph_node3"><a xlink:href=".././interface/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<g id="a_proc~~orbel_xv2el~~CalledByGraph_node4"><a xlink:href=".././interface/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
 <polygon fill="#a7506f" stroke="#a7506f" points="90,-24 0,-24 0,0 90,0 90,-24"/>
 <text text-anchor="middle" x="45" y="-9.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="proc~~orbel_xv2el~~CalledByGraph_edge2" class="edge">
+<g id="proc~~orbel_xv2el~~CalledByGraph_edge3" class="edge">
 <title>interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-12C98.28,-12 106.96,-12 115.44,-12"/>
 <polygon fill="#000000" stroke="#000000" points="115.66,-15.5 125.66,-12 115.66,-8.5 115.66,-15.5"/>
diff --git a/docs/proc/orbel_xv2el_vec.html b/docs/proc/orbel_xv2el_vec.html
index 648a0305c..e002a82c9 100644
--- a/docs/proc/orbel_xv2el_vec.html
+++ b/docs/proc/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.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">23 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~206"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~257"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~29"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~32"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -280,32 +280,47 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~orbel_xv2el_vec~~CallsGraph Pages: 1 -->
-<svg id="procorbel_xv2el_vecCallsGraph" width="201pt" height="32pt"
- viewBox="0.00 0.00 201.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="procorbel_xv2el_vecCallsGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="proc~~orbel_xv2el_vec~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~orbel_xv2el_vec~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 197,-28 197,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
 <!-- proc~orbel_xv2el_vec -->
 <g id="proc~~orbel_xv2el_vec~~CallsGraph_node1" class="node">
 <title>proc~orbel_xv2el_vec</title>
 <polygon fill="none" stroke="black" points="90,-24 0,-24 0,0 90,0 90,-24"/>
 <text text-anchor="middle" x="45" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_xv2el_vec</text>
 </g>
-<!-- proc~orbel_xv2el -->
+<!-- interface~orbel_xv2el -->
 <g id="proc~~orbel_xv2el_vec~~CallsGraph_node2" class="node">
-<title>proc~orbel_xv2el</title>
-<g id="a_proc~~orbel_xv2el_vec~~CallsGraph_node2"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
-<polygon fill="#d9534f" stroke="#d9534f" points="193,-24 126,-24 126,0 193,0 193,-24"/>
+<title>interface~orbel_xv2el</title>
+<g id="a_proc~~orbel_xv2el_vec~~CallsGraph_node2"><a xlink:href=".././interface/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#a7506f" stroke="#a7506f" points="193,-24 126,-24 126,0 193,0 193,-24"/>
 <text text-anchor="middle" x="159.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el -->
+<!-- proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el -->
 <g id="proc~~orbel_xv2el_vec~~CallsGraph_edge1" class="edge">
-<title>proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el</title>
+<title>proc~orbel_xv2el_vec&#45;&gt;interface~orbel_xv2el</title>
 <path fill="none" stroke="#000000" d="M90.14,-12C98.63,-12 107.51,-12 115.95,-12"/>
 <polygon fill="#000000" stroke="#000000" points="115.97,-15.5 125.97,-12 115.97,-8.5 115.97,-15.5"/>
 </g>
+<!-- proc~orbel_xv2el -->
+<g id="proc~~orbel_xv2el_vec~~CallsGraph_node3" class="node">
+<title>proc~orbel_xv2el</title>
+<g id="a_proc~~orbel_xv2el_vec~~CallsGraph_node3"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="296,-24 229,-24 229,0 296,0 296,-24"/>
+<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el -->
+<g id="proc~~orbel_xv2el_vec~~CallsGraph_edge2" class="edge">
+<title>interface~orbel_xv2el&#45;&gt;proc~orbel_xv2el</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M193.01,-12C201.13,-12 209.96,-12 218.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="218.7,-15.5 228.7,-12 218.7,-8.5 218.7,-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/orbel_zget.html b/docs/proc/orbel_zget.html
index 987e3e305..9769b2d82 100644
--- a/docs/proc/orbel_zget.html
+++ b/docs/proc/orbel_zget.html
@@ -134,7 +134,7 @@ <h1>orbel_zget
      <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.0% of total for procedures.">25 statements</a>
      </li> 
      
      
diff --git a/docs/proc/rmvs_chk_ind.html b/docs/proc/rmvs_chk_ind.html
index bc6e11815..9f9237e94 100644
--- a/docs/proc/rmvs_chk_ind.html
+++ b/docs/proc/rmvs_chk_ind.html
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~96"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~105"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -393,25 +393,10 @@ <h3 class="panel-title">Called by</h3>
 <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,-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_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,-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">
+<g id="proc~~rmvs_chk_ind~~CalledByGraph_node5" 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">
+<g id="a_proc~~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,-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>
@@ -423,6 +408,21 @@ <h3 class="panel-title">Called by</h3>
 <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>
+<!-- interface~rmvs_encounter_check_tp -->
+<g id="proc~~rmvs_chk_ind~~CalledByGraph_node6" class="node">
+<title>interface~rmvs_encounter_check_tp</title>
+<g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node6"><a xlink:href=".././interface/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<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_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,-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>
 </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/rmvs_discard_tp.html b/docs/proc/rmvs_discard_tp.html
index 742cba17c..6ef043b40 100644
--- a/docs/proc/rmvs_discard_tp.html
+++ b/docs/proc/rmvs_discard_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_discard_tp
      <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.">23 statements</a>
+    title=" 0.0% of total for procedures.">28 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~362"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~456"></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~119"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~129"></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~208"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~258"></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 c72c688b4..3ec67f82b 100644
--- a/docs/proc/rmvs_encounter_check_tp.html
+++ b/docs/proc/rmvs_encounter_check_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_encounter_check_tp
      <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.">35 statements</a>
+    title=" 0.1% of total for procedures.">36 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~380"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~474"></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~121"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~131"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~95"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~104"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -287,7 +287,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-lencounter~5"></span>logical
+   <h3>Return Value <small><span class="anchor" id="variable-lencounter~6"></span>logical
   </small></h3>
     <p>Returns true if there is at least one close encounter</p>
     
diff --git a/docs/proc/rmvs_end_planetocentric.html b/docs/proc/rmvs_end_planetocentric.html
index c111f4ade..3eea1ff20 100644
--- a/docs/proc/rmvs_end_planetocentric.html
+++ b/docs/proc/rmvs_end_planetocentric.html
@@ -136,7 +136,7 @@ <h1>rmvs_end_planetocentric
      <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.">45 statements</a>
+    title=" 0.1% of total for procedures.">47 statements</a>
      </li> 
      
      
@@ -234,7 +234,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~20"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</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 fc145a256..a654030b6 100644
--- a/docs/proc/rmvs_interp_in.html
+++ b/docs/proc/rmvs_interp_in.html
@@ -136,7 +136,7 @@ <h1>rmvs_interp_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.">100 statements</a>
+    title=" 0.2% of total for procedures.">102 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~25"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~28"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,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~16"></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~68"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~73"></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~115"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~140"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -296,7 +296,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~57"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~62"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_interp_out.html b/docs/proc/rmvs_interp_out.html
index 60bd62276..150b891c8 100644
--- a/docs/proc/rmvs_interp_out.html
+++ b/docs/proc/rmvs_interp_out.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~23"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~26"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~10"></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>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~55"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~60"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_io_write_encounter.html b/docs/proc/rmvs_io_write_encounter.html
new file mode 100644
index 000000000..f72bd2e89
--- /dev/null
+++ b/docs/proc/rmvs_io_write_encounter.html
@@ -0,0 +1,743 @@
+<!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>rmvs_io_write_encounter &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>rmvs_io_write_encounter
+      <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.0% of total for procedures.">29 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/rmvs_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/rmvs_io.f90.html'>rmvs_io.f90</a></li>
+    
+     <li><a href='../module/s_rmvs_io.html'>s_rmvs_io</a></li>
+    
+  
+     <li class="active">rmvs_io_write_encounter</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 rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out)
+    
+    
+   <a href='../interface/rmvs_io_write_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Write close encounter data from RMVS to output binary files
+  There is no direct file output from this subroutine</p>
+<p>Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90
+ Adapted from Hal Levison's Swift routine io_write_encounter.f</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-t~77"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id1~6"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>id1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2~6"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>id2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass1~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass2~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>Gmass2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius1~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>radius1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius2~5"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>radius2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh1~6"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh2~6"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>xh2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh1~5"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh1</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh2~5"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vh2</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-enc_out~4"></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>enc_out</strong></td><td></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~~rmvs_io_write_encounter~~CallsGraph Pages: 1 -->
+<svg id="procrmvs_io_write_encounterCallsGraph" width="314pt" height="74pt"
+ viewBox="0.00 0.00 314.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rmvs_io_write_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~rmvs_io_write_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 310,-70 310,4 -4,4"/>
+<!-- proc~rmvs_io_write_encounter -->
+<g id="proc~~rmvs_io_write_encounter~~CallsGraph_node1" class="node">
+<title>proc~rmvs_io_write_encounter</title>
+<polygon fill="none" stroke="black" points="133,-45 0,-45 0,-21 133,-21 133,-45"/>
+<text text-anchor="middle" x="66.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_io_write_encounter</text>
+</g>
+<!-- util_exit -->
+<g id="proc~~rmvs_io_write_encounter~~CallsGraph_node2" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="264.5,-66 210.5,-66 210.5,-42 264.5,-42 264.5,-66"/>
+<text text-anchor="middle" x="237.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~rmvs_io_write_encounter&#45;&gt;util_exit -->
+<g id="proc~~rmvs_io_write_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~rmvs_io_write_encounter&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M133.32,-41.18C156.11,-44.01 180.8,-47.08 200.31,-49.5"/>
+<polygon fill="#000000" stroke="#000000" points="199.93,-52.98 210.29,-50.74 200.8,-46.04 199.93,-52.98"/>
+</g>
+<!-- io_write_frame_encounter -->
+<g id="proc~~rmvs_io_write_encounter~~CallsGraph_node3" class="node">
+<title>io_write_frame_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="306,-24 169,-24 169,0 306,0 306,-24"/>
+<text text-anchor="middle" x="237.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
+</g>
+<!-- proc~rmvs_io_write_encounter&#45;&gt;io_write_frame_encounter -->
+<g id="proc~~rmvs_io_write_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~rmvs_io_write_encounter&#45;&gt;io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" d="M133.32,-24.82C141.72,-23.78 150.37,-22.7 158.93,-21.64"/>
+<polygon fill="#000000" stroke="#000000" points="159.41,-25.11 168.91,-20.4 158.55,-18.16 159.41,-25.11"/>
+</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">
+  <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~~rmvs_io_write_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procrmvs_io_write_encounterCalledByGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rmvs_io_write_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~rmvs_io_write_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<!-- proc~rmvs_io_write_encounter -->
+<g id="proc~~rmvs_io_write_encounter~~CalledByGraph_node1" class="node">
+<title>proc~rmvs_io_write_encounter</title>
+<polygon fill="none" stroke="black" points="302,-24 169,-24 169,0 302,0 302,-24"/>
+<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_io_write_encounter</text>
+</g>
+<!-- interface~rmvs_io_write_encounter -->
+<g id="proc~~rmvs_io_write_encounter~~CalledByGraph_node2" class="node">
+<title>interface~rmvs_io_write_encounter</title>
+<g id="a_proc~~rmvs_io_write_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/rmvs_io_write_encounter.html" xlink:title="rmvs_io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io_write_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~rmvs_io_write_encounter&#45;&gt;proc~rmvs_io_write_encounter -->
+<g id="proc~~rmvs_io_write_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~rmvs_io_write_encounter&#45;&gt;proc~rmvs_io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-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/rmvs_kick_getacch_tp.html b/docs/proc/rmvs_kick_getacch_tp.html
index cc1d2b91e..a84fb0e70 100644
--- a/docs/proc/rmvs_kick_getacch_tp.html
+++ b/docs/proc/rmvs_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_kick_getacch_tp
      <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.">55 statements</a>
+    title=" 0.1% of total for procedures.">57 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~375"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~469"></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~120"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~130"></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~209"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~259"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~65"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~76"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~31"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~35"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_make_planetocentric.html b/docs/proc/rmvs_make_planetocentric.html
index 377efb096..6f704c7af 100644
--- a/docs/proc/rmvs_make_planetocentric.html
+++ b/docs/proc/rmvs_make_planetocentric.html
@@ -136,7 +136,7 @@ <h1>rmvs_make_planetocentric
      <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.">69 statements</a>
+    title=" 0.1% of total for procedures.">71 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~117"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~142"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~27"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~30"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,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~18"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</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 21bb0bd47..e2cf37d7f 100644
--- a/docs/proc/rmvs_peri_tp.html
+++ b/docs/proc/rmvs_peri_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_peri_tp
      <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.1% of total for procedures.">71 statements</a>
      </li> 
      
      
@@ -251,7 +251,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~19"></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-t~41"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~47"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~58"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~63"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -341,7 +341,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~143"></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>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_peri_tp~~CallsGraph_node2" class="node">
-<title>vpc</title>
+<title>xpc</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">vpc</text>
+<text text-anchor="middle" x="138" y="-51.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_edge1" 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,-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>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_peri_tp~~CallsGraph_node3" class="node">
-<title>xpc</title>
+<title>vpc</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">xpc</text>
+<text text-anchor="middle" x="138" y="-9.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_edge2" 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,-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 fcad7914d..c86b99ddb 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~377"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~471"></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~211"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~261"></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 f952ede09..28fb494cd 100644
--- a/docs/proc/rmvs_setup_pl.html
+++ b/docs/proc/rmvs_setup_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_setup_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.">42 statements</a>
+    title=" 0.1% of total for procedures.">46 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~376"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~470"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~29"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~38"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,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~260"></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 24000d217..e729df5cc 100644
--- a/docs/proc/rmvs_setup_tp.html
+++ b/docs/proc/rmvs_setup_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_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.">20 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~378"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~472"></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-n~30"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~39"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~212"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~262"></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 6c69b843b..005bae66b 100644
--- a/docs/proc/rmvs_step_in.html
+++ b/docs/proc/rmvs_step_in.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~26"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~29"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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~17"></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-param~116"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~141"></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,-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>
+<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>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node2" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
 <!-- proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node3" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="249,-66 116,-66 116,-42 249,-42 249,-66"/>
+<text text-anchor="middle" x="182.5" y="-51.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_end_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge2" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M76.07,-54C85.22,-54 95.36,-54 105.63,-54"/>
+<polygon fill="#000000" stroke="#000000" points="105.91,-57.5 115.91,-54 105.91,-50.5 105.91,-57.5"/>
 </g>
-<!-- proc~rmvs_peri_tp -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node4" class="node">
-<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>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_proc~~rmvs_step_in~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="253,-24 112,-24 112,0 253,0 253,-24"/>
+<text text-anchor="middle" x="182.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_peri_tp -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge3" class="edge">
-<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"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_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"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node5" class="node">
-<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>
+<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>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge4" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node6" class="node">
-<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>
+<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>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge5" class="edge">
-<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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_step_out.html b/docs/proc/rmvs_step_out.html
index 967208cdf..3313f2ee5 100644
--- a/docs/proc/rmvs_step_out.html
+++ b/docs/proc/rmvs_step_out.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~24"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~27"></span>class(<a href='../type/rmvs_cb.html'>rmvs_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,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~15"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~67"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~72"></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~114"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~139"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -312,7 +312,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~40"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~46"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -327,7 +327,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~56"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~61"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -356,58 +356,61 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~rmvs_step_out~~CallsGraph Pages: 1 -->
-<svg id="procrmvs_step_outCallsGraph" width="477pt" height="158pt"
- viewBox="0.00 0.00 477.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~rmvs_step_out~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<svg id="procrmvs_step_outCallsGraph" width="477pt" height="179pt"
+ viewBox="0.00 0.00 477.00 179.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rmvs_step_out~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 175)">
 <title>proc~~rmvs_step_out~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 473,-154 473,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-175 473,-175 473,4 -4,4"/>
 <!-- proc~rmvs_step_out -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node1" class="node">
 <title>proc~rmvs_step_out</title>
-<polygon fill="none" stroke="black" points="83,-108 0,-108 0,-84 83,-84 83,-108"/>
-<text text-anchor="middle" x="41.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_out</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">rmvs_step_out</text>
 </g>
-<!-- proc~rmvs_interp_in -->
+<!-- proc~rmvs_step_in -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node2" class="node">
-<title>proc~rmvs_interp_in</title>
-<g id="a_proc~~rmvs_step_out~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-139 119,-139 119,-115 202,-115 202,-139"/>
-<text text-anchor="middle" x="160.5" y="-124.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
+<title>proc~rmvs_step_in</title>
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="198.5,-97 122.5,-97 122.5,-73 198.5,-73 198.5,-97"/>
+<text text-anchor="middle" x="160.5" y="-82.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_interp_in -->
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
 <g id="proc~~rmvs_step_out~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
-<path fill="none" stroke="#000000" d="M83.09,-106.76C91.53,-108.99 100.52,-111.37 109.26,-113.69"/>
-<polygon fill="#000000" stroke="#000000" points="108.42,-117.09 118.98,-116.26 110.21,-110.32 108.42,-117.09"/>
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
+<path fill="none" stroke="#000000" d="M83.09,-64.76C92.5,-67.25 102.59,-69.92 112.25,-72.48"/>
+<polygon fill="#000000" stroke="#000000" points="111.56,-75.92 122.12,-75.1 113.35,-69.15 111.56,-75.92"/>
 </g>
-<!-- proc~rmvs_step_in -->
+<!-- proc~rmvs_interp_in -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node3" class="node">
-<title>proc~rmvs_step_in</title>
-<g id="a_proc~~rmvs_step_out~~CallsGraph_node3"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="198.5,-87 122.5,-87 122.5,-63 198.5,-63 198.5,-87"/>
-<text text-anchor="middle" x="160.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
+<title>proc~rmvs_interp_in</title>
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node3"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-45 119,-45 119,-21 202,-21 202,-45"/>
+<text text-anchor="middle" x="160.5" y="-30.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_step_in -->
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
 <g id="proc~~rmvs_step_out~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
-<path fill="none" stroke="#000000" d="M83.09,-88.71C92.5,-87.03 102.59,-85.22 112.25,-83.48"/>
-<polygon fill="#000000" stroke="#000000" points="112.89,-86.92 122.12,-81.71 111.66,-80.03 112.89,-86.92"/>
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
+<path fill="none" stroke="#000000" d="M83.09,-46.71C91.44,-45.22 100.33,-43.62 108.98,-42.07"/>
+<polygon fill="#000000" stroke="#000000" points="109.75,-45.48 118.98,-40.27 108.52,-38.59 109.75,-45.48"/>
 </g>
-<!-- util_exit -->
+<!-- proc~rmvs_peri_tp -->
 <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>
+<title>proc~rmvs_peri_tp</title>
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="346,-150 271,-150 271,-126 346,-126 346,-150"/>
+<text text-anchor="middle" x="308.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
+</a>
 </g>
-<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
+</g>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_out~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
-<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"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M188.5,-97.09C203.02,-103.39 221.33,-111.01 238,-117 245.42,-119.67 253.37,-122.28 261.14,-124.72"/>
+<polygon fill="#000000" stroke="#000000" points="260.25,-128.11 270.84,-127.69 262.3,-121.41 260.25,-128.11"/>
 </g>
 <!-- proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node5" class="node">
@@ -419,64 +422,61 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
-<g id="proc~~rmvs_step_out~~CallsGraph_edge5" class="edge">
+<g id="proc~~rmvs_step_out~~CallsGraph_edge4" class="edge">
 <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_node6" class="node">
-<title>proc~rmvs_peri_tp</title>
-<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_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"/>
+<path fill="none" stroke="#000000" d="M198.72,-87.8C208.91,-88.57 220.34,-89.43 231.86,-90.3"/>
+<polygon fill="#000000" stroke="#000000" points="231.74,-93.8 241.98,-91.06 232.27,-86.82 231.74,-93.8"/>
 </g>
 <!-- proc~rmvs_make_planetocentric -->
-<g id="proc~~rmvs_step_out~~CallsGraph_node7" class="node">
+<g id="proc~~rmvs_step_out~~CallsGraph_node6" class="node">
 <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>
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node6"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="379,-66 238,-66 238,-42 379,-42 379,-66"/>
+<text text-anchor="middle" x="308.5" y="-51.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_make_planetocentric -->
-<g id="proc~~rmvs_step_out~~CallsGraph_edge4" class="edge">
+<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="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"/>
+<path fill="none" stroke="#000000" d="M198.72,-77.1C211.56,-74.37 226.35,-71.23 240.82,-68.16"/>
+<polygon fill="#000000" stroke="#000000" points="241.69,-71.55 250.75,-66.05 240.24,-64.7 241.69,-71.55"/>
 </g>
-<!-- vpc -->
-<g id="proc~~rmvs_step_out~~CallsGraph_node8" class="node">
-<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">vpc</text>
+<!-- util_exit -->
+<g id="proc~~rmvs_step_out~~CallsGraph_node7" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="335.5,-24 281.5,-24 281.5,0 335.5,0 335.5,-24"/>
+<text text-anchor="middle" x="308.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
-<g id="proc~~rmvs_step_out~~CallsGraph_edge7" class="edge">
-<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"/>
+<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
+<g id="proc~~rmvs_step_out~~CallsGraph_edge6" class="edge">
+<title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M202.17,-27.15C223.82,-24.04 250.23,-20.24 271.19,-17.22"/>
+<polygon fill="#000000" stroke="#000000" points="271.9,-20.66 281.3,-15.77 270.9,-13.73 271.9,-20.66"/>
 </g>
 <!-- xpc -->
-<g id="proc~~rmvs_step_out~~CallsGraph_node9" class="node">
+<g id="proc~~rmvs_step_out~~CallsGraph_node8" class="node">
 <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">xpc</text>
+<polygon fill="#777777" stroke="#777777" points="469,-171 415,-171 415,-147 469,-147 469,-171"/>
+<text text-anchor="middle" x="442" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
 <!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
-<g id="proc~~rmvs_step_out~~CallsGraph_edge8" class="edge">
+<g id="proc~~rmvs_step_out~~CallsGraph_edge7" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M346.13,-143.85C364.51,-146.79 386.7,-150.33 404.99,-153.25"/>
+<polygon fill="#000000" stroke="#000000" points="404.55,-156.72 414.98,-154.84 405.66,-149.81 404.55,-156.72"/>
+</g>
+<!-- vpc -->
+<g id="proc~~rmvs_step_out~~CallsGraph_node9" class="node">
+<title>vpc</title>
+<polygon fill="#777777" stroke="#777777" points="469,-129 415,-129 415,-105 469,-105 469,-129"/>
+<text text-anchor="middle" x="442" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+</g>
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<g id="proc~~rmvs_step_out~~CallsGraph_edge8" class="edge">
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M346.13,-132.15C364.51,-129.21 386.7,-125.67 404.99,-122.75"/>
+<polygon fill="#000000" stroke="#000000" points="405.66,-126.19 414.98,-121.16 404.55,-119.28 405.66,-126.19"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_step_system.html b/docs/proc/rmvs_step_system.html
index 5de6d78fb..052ffe9f4 100644
--- a/docs/proc/rmvs_step_system.html
+++ b/docs/proc/rmvs_step_system.html
@@ -136,7 +136,7 @@ <h1>rmvs_step_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.">48 statements</a>
+    title=" 0.1% of total for procedures.">49 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~379"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~473"></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~213"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~263"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~66"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~78"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~94"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~103"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -320,167 +320,167 @@ <h3 class="panel-title">Calls</h3>
 <!-- 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,-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>
+<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>
 </g>
-<!-- whm_step_system -->
+<!-- proc~rmvs_step_out -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node2" class="node">
-<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>
+<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>
-<!-- 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_edge1" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
-<!-- proc~rmvs_step_out -->
+<!-- whm_step_system -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node4" class="node">
-<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>
+<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>
 </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_edge3" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- util_exit -->
+<!-- proc~rmvs_step_in -->
 <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>
+<title>proc~rmvs_step_in</title>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node5"><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>
+</a>
 </g>
-<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
+</g>
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
 <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"/>
+<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>
 <!-- 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_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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
 <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,-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"/>
+<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"/>
 </g>
-<!-- proc~rmvs_step_in -->
+<!-- util_exit -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node7" class="node">
-<title>proc~rmvs_step_in</title>
-<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>
+<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_step_out&#45;&gt;proc~rmvs_step_in -->
+<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
 <g id="proc~~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="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,-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"/>
+<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"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node8" class="node">
-<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>
+<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,-189 434,-189 434,-165 509,-165 509,-189"/>
+<text text-anchor="middle" x="471.5" y="-174.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_make_planetocentric -->
-<g id="proc~~rmvs_step_system~~CallsGraph_edge8" class="edge">
-<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"/>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<g id="proc~~rmvs_step_system~~CallsGraph_edge7" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M358.34,-145.49C378.27,-151.09 402.99,-158.03 424.15,-163.98"/>
+<polygon fill="#000000" stroke="#000000" points="423.32,-167.38 433.89,-166.72 425.21,-160.64 423.32,-167.38"/>
 </g>
 <!-- proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node9" class="node">
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="538,-147 405,-147 405,-123 538,-123 538,-147"/>
+<text text-anchor="middle" x="471.5" y="-132.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_end_planetocentric -->
-<g id="proc~~rmvs_step_system~~CallsGraph_edge9" class="edge">
+<g id="proc~~rmvs_step_system~~CallsGraph_edge8" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M358.34,-135C369.46,-135 382.08,-135 394.73,-135"/>
+<polygon fill="#000000" stroke="#000000" points="394.85,-138.5 404.85,-135 394.85,-131.5 394.85,-138.5"/>
 </g>
-<!-- proc~rmvs_peri_tp -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node10" class="node">
-<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>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node10"><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>
 </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_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"/>
+</g>
+<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge10" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node11" class="node">
-<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>
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="632,-210 578,-210 578,-186 632,-186 632,-210"/>
+<text text-anchor="middle" x="605" y="-195.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_edge11" class="edge">
-<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"/>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M509.13,-182.85C527.51,-185.79 549.7,-189.33 567.99,-192.25"/>
+<polygon fill="#000000" stroke="#000000" points="567.55,-195.72 577.98,-193.84 568.66,-188.81 567.55,-195.72"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node12" class="node">
-<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>
+<title>vpc</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">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge12" class="edge">
-<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"/>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M509.13,-171.15C527.51,-168.21 549.7,-164.67 567.99,-161.75"/>
+<polygon fill="#000000" stroke="#000000" points="568.66,-165.19 577.98,-160.16 567.55,-158.28 568.66,-165.19"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_append_pl.html b/docs/proc/rmvs_util_append_pl.html
index e40f1370c..54ccc2b09 100644
--- a/docs/proc/rmvs_util_append_pl.html
+++ b/docs/proc/rmvs_util_append_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~363"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~457"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~26"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~36"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~24"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~28"></span>logical,</td>
   <td>intent(in),</td>
   <td></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_pl</text>
 </g>
-<!-- util_exit -->
-<g id="proc~~rmvs_util_append_pl~~CallsGraph_node2" class="node">
-<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_exit -->
-<g id="proc~~rmvs_util_append_pl~~CallsGraph_edge1" class="edge">
-<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_append -->
-<g id="proc~~rmvs_util_append_pl~~CallsGraph_node3" class="node">
+<g id="proc~~rmvs_util_append_pl~~CallsGraph_node2" class="node">
 <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>
+<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>
 </g>
 <!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
-<g id="proc~~rmvs_util_append_pl~~CallsGraph_edge2" class="edge">
+<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="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"/>
+<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"/>
 </g>
 <!-- whm_util_append_pl -->
-<g id="proc~~rmvs_util_append_pl~~CallsGraph_node4" class="node">
+<g id="proc~~rmvs_util_append_pl~~CallsGraph_node3" class="node">
 <title>whm_util_append_pl</title>
-<polygon fill="#777777" stroke="#777777" points="259,-24 148,-24 148,0 259,0 259,-24"/>
-<text text-anchor="middle" x="203.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
+<polygon fill="#777777" stroke="#777777" points="259,-66 148,-66 148,-42 259,-42 259,-66"/>
+<text text-anchor="middle" x="203.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </g>
 <!-- proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl -->
-<g id="proc~~rmvs_util_append_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~rmvs_util_append_pl~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl</title>
-<path fill="none" stroke="#000000" d="M98.69,-41.96C114.98,-37.26 133.82,-31.82 150.95,-26.88"/>
-<polygon fill="#000000" stroke="#000000" points="152.16,-30.17 160.8,-24.04 150.22,-23.45 152.16,-30.17"/>
+<path fill="none" stroke="#000000" d="M112.01,-54C120.45,-54 129.24,-54 137.87,-54"/>
+<polygon fill="#000000" stroke="#000000" points="137.9,-57.5 147.9,-54 137.9,-50.5 137.9,-57.5"/>
+</g>
+<!-- util_exit -->
+<g id="proc~~rmvs_util_append_pl~~CallsGraph_node4" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="230.5,-24 176.5,-24 176.5,0 230.5,0 230.5,-24"/>
+<text text-anchor="middle" x="203.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
+<g id="proc~~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="M98.69,-41.96C120.2,-35.76 146.16,-28.26 166.74,-22.32"/>
+<polygon fill="#000000" stroke="#000000" points="167.73,-25.68 176.37,-19.54 165.79,-18.95 167.73,-25.68"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_append_tp.html b/docs/proc/rmvs_util_append_tp.html
index 22cc3e96e..d2b8614fa 100644
--- a/docs/proc/rmvs_util_append_tp.html
+++ b/docs/proc/rmvs_util_append_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~364"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~458"></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-source~27"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~37"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~25"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~29"></span>logical,</td>
   <td>intent(in),</td>
   <td></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_exit -->
-<g id="proc~~rmvs_util_append_tp~~CallsGraph_node2" class="node">
-<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_exit -->
-<g id="proc~~rmvs_util_append_tp~~CallsGraph_edge1" class="edge">
-<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 -->
-<g id="proc~~rmvs_util_append_tp~~CallsGraph_node3" class="node">
+<g id="proc~~rmvs_util_append_tp~~CallsGraph_node2" class="node">
 <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>
+<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>
 </g>
 <!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
-<g id="proc~~rmvs_util_append_tp~~CallsGraph_edge2" class="edge">
+<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="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"/>
+<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"/>
 </g>
 <!-- util_append_tp -->
-<g id="proc~~rmvs_util_append_tp~~CallsGraph_node4" class="node">
+<g id="proc~~rmvs_util_append_tp~~CallsGraph_node3" class="node">
 <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>
+<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>
 </g>
 <!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
-<g id="proc~~rmvs_util_append_tp~~CallsGraph_edge3" class="edge">
+<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="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"/>
+<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"/>
+</g>
+<!-- util_exit -->
+<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>
+</g>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_fill_pl.html b/docs/proc/rmvs_util_fill_pl.html
index bcb6ed860..4ae7d4593 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~365"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~459"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -307,39 +307,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">rmvs_util_fill_pl</text>
 </g>
-<!-- util_exit -->
+<!-- whm_util_fill_pl -->
 <g id="proc~~rmvs_util_fill_pl~~CallsGraph_node2" class="node">
-<title>util_exit</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_exit</text>
+<title>whm_util_fill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="206,-108 121,-108 121,-84 206,-84 206,-108"/>
+<text text-anchor="middle" x="163.5" y="-93.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;util_exit -->
+<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
 <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="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"/>
+<title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M77.6,-66.04C90.42,-70.56 105.18,-75.77 118.76,-80.56"/>
+<polygon fill="#000000" stroke="#000000" points="117.8,-83.93 128.39,-83.96 120.13,-77.33 117.8,-83.93"/>
 </g>
-<!-- whm_util_fill_pl -->
+<!-- util_fill -->
 <g id="proc~~rmvs_util_fill_pl~~CallsGraph_node3" class="node">
-<title>whm_util_fill_pl</title>
-<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>
+<title>util_fill</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_fill</text>
 </g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
+<!-- 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;whm_util_fill_pl</title>
-<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"/>
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</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"/>
 </g>
-<!-- util_fill -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_fill_pl~~CallsGraph_node4" class="node">
-<title>util_fill</title>
+<title>util_exit</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>
+<text text-anchor="middle" x="163.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</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>
diff --git a/docs/proc/rmvs_util_fill_tp.html b/docs/proc/rmvs_util_fill_tp.html
index 34313cc7f..a4939680d 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~366"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~460"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -307,39 +307,39 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="86,-66 0,-66 0,-42 86,-42 86,-66"/>
 <text text-anchor="middle" x="43" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_fill_tp</text>
 </g>
-<!-- util_fill_tp -->
+<!-- util_fill -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_node2" class="node">
-<title>util_fill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="179,-108 122,-108 122,-84 179,-84 179,-108"/>
-<text text-anchor="middle" x="150.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="177.5,-108 123.5,-108 123.5,-84 177.5,-84 177.5,-108"/>
+<text text-anchor="middle" x="150.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
-<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"/>
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M74.23,-66.04C86.56,-70.94 100.9,-76.65 113.74,-81.76"/>
+<polygon fill="#000000" stroke="#000000" points="112.62,-85.09 123.21,-85.53 115.21,-78.58 112.62,-85.09"/>
 </g>
-<!-- util_exit -->
+<!-- util_fill_tp -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_node3" class="node">
-<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_exit</text>
+<title>util_fill_tp</title>
+<polygon fill="#777777" stroke="#777777" points="179,-66 122,-66 122,-42 179,-42 179,-66"/>
+<text text-anchor="middle" x="150.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
 <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"/>
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
+<path fill="none" stroke="#000000" d="M86.3,-54C94.69,-54 103.44,-54 111.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="111.73,-57.5 121.73,-54 111.73,-50.5 111.73,-57.5"/>
 </g>
-<!-- util_fill -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_node4" class="node">
-<title>util_fill</title>
+<title>util_exit</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_fill</text>
+<text text-anchor="middle" x="150.5" y="-9.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 -->
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</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 79fd336ee..69586e072 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~367"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~461"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -291,29 +291,29 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="104,-45 0,-45 0,-21 104,-21 104,-45"/>
 <text text-anchor="middle" x="52" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_resize_pl</text>
 </g>
-<!-- whm_util_resize_pl -->
+<!-- util_resize -->
 <g id="proc~~rmvs_util_resize_pl~~CallsGraph_node2" class="node">
-<title>whm_util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="243,-66 140,-66 140,-42 243,-42 243,-66"/>
-<text text-anchor="middle" x="191.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="222,-66 161,-66 161,-42 222,-42 222,-66"/>
+<text text-anchor="middle" x="191.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
+<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
 <g id="proc~~rmvs_util_resize_pl~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M104.2,-40.82C112.54,-42.09 121.25,-43.42 129.8,-44.73"/>
-<polygon fill="#000000" stroke="#000000" points="129.3,-48.19 139.72,-46.24 130.36,-41.27 129.3,-48.19"/>
+<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M104.2,-40.82C119.56,-43.17 136.17,-45.7 150.68,-47.92"/>
+<polygon fill="#000000" stroke="#000000" points="150.41,-51.42 160.83,-49.47 151.47,-44.5 150.41,-51.42"/>
 </g>
-<!-- util_resize -->
+<!-- whm_util_resize_pl -->
 <g id="proc~~rmvs_util_resize_pl~~CallsGraph_node3" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="222,-24 161,-24 161,0 222,0 222,-24"/>
-<text text-anchor="middle" x="191.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>whm_util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="243,-24 140,-24 140,0 243,0 243,-24"/>
+<text text-anchor="middle" x="191.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </g>
-<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
+<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
 <g id="proc~~rmvs_util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M104.2,-25.18C119.56,-22.83 136.17,-20.3 150.68,-18.08"/>
-<polygon fill="#000000" stroke="#000000" points="151.47,-21.5 160.83,-16.53 150.41,-14.58 151.47,-21.5"/>
+<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M104.2,-25.18C112.54,-23.91 121.25,-22.58 129.8,-21.27"/>
+<polygon fill="#000000" stroke="#000000" points="130.36,-24.73 139.72,-19.76 129.3,-17.81 130.36,-24.73"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_resize_tp.html b/docs/proc/rmvs_util_resize_tp.html
index 4440d7627..7dae40298 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~368"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~462"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -291,29 +291,29 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="105,-45 0,-45 0,-21 105,-21 105,-45"/>
 <text text-anchor="middle" x="52.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_resize_tp</text>
 </g>
-<!-- util_resize_tp -->
+<!-- util_resize -->
 <g id="proc~~rmvs_util_resize_tp~~CallsGraph_node2" class="node">
-<title>util_resize_tp</title>
-<polygon fill="#777777" stroke="#777777" points="217,-66 141,-66 141,-42 217,-42 217,-66"/>
-<text text-anchor="middle" x="179" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="209.5,-66 148.5,-66 148.5,-42 209.5,-42 209.5,-66"/>
+<text text-anchor="middle" x="179" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
 <g id="proc~~rmvs_util_resize_tp~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
-<path fill="none" stroke="#000000" d="M105.22,-41.72C113.67,-43.15 122.39,-44.62 130.73,-46.03"/>
-<polygon fill="#000000" stroke="#000000" points="130.23,-49.49 140.67,-47.7 131.4,-42.59 130.23,-49.49"/>
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M105.22,-41.72C116.24,-43.58 127.72,-45.52 138.21,-47.29"/>
+<polygon fill="#000000" stroke="#000000" points="137.88,-50.78 148.32,-48.99 139.05,-43.88 137.88,-50.78"/>
 </g>
-<!-- util_resize -->
+<!-- util_resize_tp -->
 <g id="proc~~rmvs_util_resize_tp~~CallsGraph_node3" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="209.5,-24 148.5,-24 148.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="179" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>util_resize_tp</title>
+<polygon fill="#777777" stroke="#777777" points="217,-24 141,-24 141,0 217,0 217,-24"/>
+<text text-anchor="middle" x="179" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </g>
-<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
 <g id="proc~~rmvs_util_resize_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M105.22,-24.28C116.24,-22.42 127.72,-20.48 138.21,-18.71"/>
-<polygon fill="#000000" stroke="#000000" points="139.05,-22.12 148.32,-17.01 137.88,-15.22 139.05,-22.12"/>
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M105.22,-24.28C113.67,-22.85 122.39,-21.38 130.73,-19.97"/>
+<polygon fill="#000000" stroke="#000000" points="131.4,-23.41 140.67,-18.3 130.23,-16.51 131.4,-23.41"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_sort_pl.html b/docs/proc/rmvs_util_sort_pl.html
index ef293950f..5070a65fe 100644
--- a/docs/proc/rmvs_util_sort_pl.html
+++ b/docs/proc/rmvs_util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_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.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -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~463"></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 99d6f7fbc..05821d073 100644
--- a/docs/proc/rmvs_util_sort_rearrange_pl.html
+++ b/docs/proc/rmvs_util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_rearrange_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.">13 statements</a>
      </li> 
      
      
@@ -237,7 +237,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~465"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~18"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~25"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,28 +281,40 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~rmvs_util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="procrmvs_util_sort_rearrange_plCallsGraph" width="309pt" height="32pt"
- viewBox="0.00 0.00 309.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procrmvs_util_sort_rearrange_plCallsGraph" width="309pt" height="74pt"
+ viewBox="0.00 0.00 309.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~rmvs_util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 305,-28 305,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 305,-70 305,4 -4,4"/>
 <!-- proc~rmvs_util_sort_rearrange_pl -->
 <g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>proc~rmvs_util_sort_rearrange_pl</title>
-<polygon fill="none" stroke="black" points="147,-24 0,-24 0,0 147,0 147,-24"/>
-<text text-anchor="middle" x="73.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_pl</text>
+<polygon fill="none" stroke="black" points="147,-45 0,-45 0,-21 147,-21 147,-45"/>
+<text text-anchor="middle" x="73.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_pl</text>
 </g>
 <!-- util_sort_rearrange_pl -->
 <g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph_node2" class="node">
 <title>util_sort_rearrange_pl</title>
-<polygon fill="#777777" stroke="#777777" points="301,-24 183,-24 183,0 301,0 301,-24"/>
-<text text-anchor="middle" x="242" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<polygon fill="#777777" stroke="#777777" points="301,-66 183,-66 183,-42 301,-42 301,-66"/>
+<text text-anchor="middle" x="242" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
 <!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
 <g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph_edge1" class="edge">
 <title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M147.04,-12C155.58,-12 164.27,-12 172.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="172.95,-15.5 182.95,-12 172.95,-8.5 172.95,-15.5"/>
+<path fill="none" stroke="#000000" d="M147.04,-42.15C155.67,-43.24 164.46,-44.35 173.02,-45.43"/>
+<polygon fill="#000000" stroke="#000000" points="172.59,-48.9 182.95,-46.68 173.46,-41.95 172.59,-48.9"/>
+</g>
+<!-- util_sort_rearrange -->
+<g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph_node3" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="293.5,-24 190.5,-24 190.5,0 293.5,0 293.5,-24"/>
+<text text-anchor="middle" x="242" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</g>
+<!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange -->
+<g id="proc~~rmvs_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
+<title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M147.04,-23.85C158.07,-22.46 169.35,-21.04 180.09,-19.68"/>
+<polygon fill="#000000" stroke="#000000" points="180.72,-23.13 190.2,-18.41 179.84,-16.19 180.72,-23.13"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_sort_rearrange_tp.html b/docs/proc/rmvs_util_sort_rearrange_tp.html
index 71e9b9447..5e6fc9b5e 100644
--- a/docs/proc/rmvs_util_sort_rearrange_tp.html
+++ b/docs/proc/rmvs_util_sort_rearrange_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_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.">17 statements</a>
+    title=" 0.0% of total for procedures.">14 statements</a>
      </li> 
      
      
@@ -237,7 +237,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~466"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~19"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~26"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,28 +281,40 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~rmvs_util_sort_rearrange_tp~~CallsGraph Pages: 1 -->
-<svg id="procrmvs_util_sort_rearrange_tpCallsGraph" width="310pt" height="32pt"
- viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procrmvs_util_sort_rearrange_tpCallsGraph" width="310pt" height="74pt"
+ viewBox="0.00 0.00 310.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~rmvs_util_sort_rearrange_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 306,-70 306,4 -4,4"/>
 <!-- proc~rmvs_util_sort_rearrange_tp -->
 <g id="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph_node1" class="node">
 <title>proc~rmvs_util_sort_rearrange_tp</title>
-<polygon fill="none" stroke="black" points="148,-24 0,-24 0,0 148,0 148,-24"/>
-<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_tp</text>
+<polygon fill="none" stroke="black" points="148,-45 0,-45 0,-21 148,-21 148,-45"/>
+<text text-anchor="middle" x="74" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_sort_rearrange_tp</text>
 </g>
 <!-- util_sort_rearrange_tp -->
 <g id="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph_node2" class="node">
 <title>util_sort_rearrange_tp</title>
-<polygon fill="#777777" stroke="#777777" points="302,-24 184,-24 184,0 302,0 302,-24"/>
-<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+<polygon fill="#777777" stroke="#777777" points="302,-66 184,-66 184,-42 302,-42 302,-66"/>
+<text text-anchor="middle" x="243" y="-51.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="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph_edge1" class="edge">
 <title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" d="M148.25,-12C156.72,-12 165.34,-12 173.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="173.86,-15.5 183.86,-12 173.86,-8.5 173.86,-15.5"/>
+<path fill="none" stroke="#000000" d="M148.25,-42.21C156.72,-43.28 165.34,-44.36 173.74,-45.42"/>
+<polygon fill="#000000" stroke="#000000" points="173.5,-48.91 183.86,-46.69 174.38,-41.97 173.5,-48.91"/>
+</g>
+<!-- util_sort_rearrange -->
+<g id="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph_node3" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="294.5,-24 191.5,-24 191.5,0 294.5,0 294.5,-24"/>
+<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</g>
+<!-- proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange -->
+<g id="proc~~rmvs_util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
+<title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M148.25,-23.79C159.27,-22.4 170.54,-20.99 181.26,-19.64"/>
+<polygon fill="#000000" stroke="#000000" points="181.87,-23.09 191.35,-18.37 181,-16.14 181.87,-23.09"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_sort_tp.html b/docs/proc/rmvs_util_sort_tp.html
index 38348d564..f696de79c 100644
--- a/docs/proc/rmvs_util_sort_tp.html
+++ b/docs/proc/rmvs_util_sort_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_sort_tp
      <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.">30 statements</a>
      </li> 
      
      
@@ -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~464"></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 67cfef800..bde3ced64 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~373"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~467"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~26"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-discards~27"></span>class(swiftest_body),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~26"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~27"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~26"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~27"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -322,41 +322,41 @@ <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>
-<!-- util_exit -->
+<!-- util_spill -->
 <g id="proc~~rmvs_util_spill_pl~~CallsGraph_node2" class="node">
-<title>util_exit</title>
+<title>util_spill</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>
+<text text-anchor="middle" x="176.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_spill -->
 <g id="proc~~rmvs_util_spill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</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">
-<title>util_spill</title>
-<polygon fill="#777777" stroke="#777777" points="203.5,-66 149.5,-66 149.5,-42 203.5,-42 203.5,-66"/>
-<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_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>
 <!-- whm_util_spill_pl -->
-<g id="proc~~rmvs_util_spill_pl~~CallsGraph_node4" class="node">
+<g id="proc~~rmvs_util_spill_pl~~CallsGraph_node3" class="node">
 <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>
+<polygon fill="#777777" stroke="#777777" points="223,-66 130,-66 130,-42 223,-42 223,-66"/>
+<text text-anchor="middle" x="176.5" y="-51.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;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"/>
+<path fill="none" stroke="#000000" d="M94.03,-54C102.44,-54 111.29,-54 119.94,-54"/>
+<polygon fill="#000000" stroke="#000000" points="119.96,-57.5 129.96,-54 119.96,-50.5 119.96,-57.5"/>
+</g>
+<!-- util_exit -->
+<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>
+</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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_spill_tp.html b/docs/proc/rmvs_util_spill_tp.html
index 119890b90..3be56aae9 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~374"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~468"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~27"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-discards~28"></span>class(swiftest_body),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~27"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~28"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~27"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~28"></span>logical,</td>
   <td>intent(in)</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_tp -->
+<!-- util_spill -->
 <g id="proc~~rmvs_util_spill_tp~~CallsGraph_node2" class="node">
-<title>util_spill_tp</title>
-<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>
+<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_tp -->
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
 <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="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"/>
+<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_exit -->
+<!-- util_spill_tp -->
 <g id="proc~~rmvs_util_spill_tp~~CallsGraph_node3" class="node">
-<title>util_exit</title>
-<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>
+<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>
 </g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp -->
 <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"/>
+<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"/>
 </g>
-<!-- util_spill -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_spill_tp~~CallsGraph_node4" class="node">
-<title>util_spill</title>
+<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_spill</text>
+<text text-anchor="middle" x="162.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_spill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</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 885090211..10ec32cd6 100644
--- a/docs/proc/setup_body.html
+++ b/docs/proc/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.1% of total for procedures.">61 statements</a>
+    title=" 0.1% of total for procedures.">72 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~312"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~379"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~21"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~28"></span>integer(kind=I4B),</td>
   <td>intent(in)</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~209"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -324,63 +324,63 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.12,-33C256.22,-33 265.02,-33 273.53,-33"/>
 <polygon fill="#000000" stroke="#000000" points="273.7,-36.5 283.7,-33 273.7,-29.5 273.7,-36.5"/>
 </g>
-<!-- proc~setup_tp -->
+<!-- proc~setup_pl -->
 <g id="proc~~setup_body~~CalledByGraph_node3" class="node">
-<title>proc~setup_tp</title>
-<g id="a_proc~~setup_body~~CalledByGraph_node3"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
+<title>proc~setup_pl</title>
+<g id="a_proc~~setup_body~~CalledByGraph_node3"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
 <polygon fill="#d9534f" stroke="#d9534f" 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">setup_tp</text>
+<text text-anchor="middle" x="117" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
+<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
 <g id="proc~~setup_body~~CalledByGraph_edge2" class="edge">
-<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
+<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
 <path fill="none" stroke="#000000" d="M144.21,-48.21C152.19,-46.44 161.18,-44.45 169.97,-42.51"/>
 <polygon fill="#000000" stroke="#000000" points="170.73,-45.93 179.74,-40.35 169.22,-39.09 170.73,-45.93"/>
 </g>
-<!-- proc~setup_pl -->
+<!-- proc~setup_tp -->
 <g id="proc~~setup_body~~CalledByGraph_node4" class="node">
-<title>proc~setup_pl</title>
-<g id="a_proc~~setup_body~~CalledByGraph_node4"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
+<title>proc~setup_tp</title>
+<g id="a_proc~~setup_body~~CalledByGraph_node4"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="144,-24 90,-24 90,0 144,0 144,-24"/>
-<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+<text text-anchor="middle" x="117" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
+<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
 <g id="proc~~setup_body~~CalledByGraph_edge3" class="edge">
-<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
+<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
 <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_tp -->
+<!-- interface~setup_pl -->
 <g id="proc~~setup_body~~CalledByGraph_node5" class="node">
-<title>interface~setup_tp</title>
-<g id="a_proc~~setup_body~~CalledByGraph_node5"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
+<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,-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>
+<text text-anchor="middle" x="27" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
+<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
 <g id="proc~~setup_body~~CalledByGraph_edge4" class="edge">
-<title>interface~setup_tp&#45;&gt;proc~setup_tp</title>
+<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
 <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 -->
+<!-- interface~setup_tp -->
 <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">
+<title>interface~setup_tp</title>
+<g id="a_proc~~setup_body~~CalledByGraph_node6"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
 <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>
+<text text-anchor="middle" x="27" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
+<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
 <g id="proc~~setup_body~~CalledByGraph_edge5" class="edge">
-<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
+<title>interface~setup_tp&#45;&gt;proc~setup_tp</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>
diff --git a/docs/proc/setup_construct_system.html b/docs/proc/setup_construct_system.html
index 64f129a38..4b7073f43 100644
--- a/docs/proc/setup_construct_system.html
+++ b/docs/proc/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.1% of total for procedures.">59 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~93"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~98"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -251,8 +251,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-param~206"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/proc/setup_encounter.html b/docs/proc/setup_encounter.html
index 3c06d158f..aed7e7304 100644
--- a/docs/proc/setup_encounter.html
+++ b/docs/proc/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.1% of total for procedures.">32 statements</a>
+    title=" 0.1% of total for procedures.">45 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~310"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~376"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~20"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~27"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/setup_initialize_particle_info_system.html b/docs/proc/setup_initialize_particle_info_system.html
new file mode 100644
index 000000000..742fa9dea
--- /dev/null
+++ b/docs/proc/setup_initialize_particle_info_system.html
@@ -0,0 +1,480 @@
+<!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>setup_initialize_particle_info_system &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>setup_initialize_particle_info_system
+      <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.0% of total for procedures.">16 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/setup.f90.html'>setup.f90</a></li>
+    
+     <li><a href='../module/s_setup.html'>s_setup</a></li>
+    
+  
+     <li class="active">setup_initialize_particle_info_system</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 setup_initialize_particle_info_system(self, param)
+    
+    
+   <a href='../interface/setup_initialize_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Setup up particle information metadata from initial conditions</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-self~377"></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" id="variable-param~207"></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 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~~setup_initialize_particle_info_system~~CalledByGraph Pages: 1 -->
+<svg id="procsetup_initialize_particle_info_systemCalledByGraph" width="416pt" height="32pt"
+ viewBox="0.00 0.00 416.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~setup_initialize_particle_info_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~setup_initialize_particle_info_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 412,-28 412,4 -4,4"/>
+<!-- proc~setup_initialize_particle_info_system -->
+<g id="proc~~setup_initialize_particle_info_system~~CalledByGraph_node1" class="node">
+<title>proc~setup_initialize_particle_info_system</title>
+<polygon fill="none" stroke="black" 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">setup_initialize_particle_info_system</text>
+</g>
+<!-- interface~setup_initialize_particle_info_system -->
+<g id="proc~~setup_initialize_particle_info_system~~CalledByGraph_node2" class="node">
+<title>interface~setup_initialize_particle_info_system</title>
+<g id="a_proc~~setup_initialize_particle_info_system~~CalledByGraph_node2"><a xlink:href=".././interface/setup_initialize_particle_info_system.html" xlink:title="setup_initialize_particle_info_system">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">setup_initialize_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_initialize_particle_info_system&#45;&gt;proc~setup_initialize_particle_info_system -->
+<g id="proc~~setup_initialize_particle_info_system~~CalledByGraph_edge1" class="edge">
+<title>interface~setup_initialize_particle_info_system&#45;&gt;proc~setup_initialize_particle_info_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"/>
+</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/setup_initialize_system.html b/docs/proc/setup_initialize_system.html
index 67e6ec241..0a6d28671 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.">15 statements</a>
+    title=" 0.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~311"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~378"></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~174"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~208"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/setup_pl.html b/docs/proc/setup_pl.html
index 72852e6de..ad4866790 100644
--- a/docs/proc/setup_pl.html
+++ b/docs/proc/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.1% of total for procedures.">46 statements</a>
+    title=" 0.1% of total for procedures.">47 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~313"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~380"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~22"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~29"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -269,7 +269,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~210"></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 7558a69a3..3a69f3396 100644
--- a/docs/proc/setup_tp.html
+++ b/docs/proc/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.0% of total for procedures.">18 statements</a>
+    title=" 0.0% of total for procedures.">19 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~314"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~381"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~23"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~30"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -269,7 +269,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~211"></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 3364cb924..0b6cfd769 100644
--- a/docs/proc/solve_wbs.html
+++ b/docs/proc/solve_wbs.html
@@ -233,267 +233,322 @@ <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="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)">
+<svg id="procsolve_wbsUsesGraph" width="641pt" height="194pt"
+ viewBox="0.00 0.00 641.00 193.77" 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 282.27)">
 <title>proc~~solve_wbs~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.51 936,-274.51 936,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.27 943,-282.27 943,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,-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>
+<polygon fill="none" stroke="black" points="939,-125.79 877,-125.79 877,-101.79 939,-101.79 939,-125.79"/>
+<text text-anchor="middle" x="908" y="-111.39" font-family="Helvetica,sans-Serif" font-size="10.50">solve_wbs</text>
 </g>
-<!-- ieee_exceptions -->
+<!-- module~swiftest -->
 <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,-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>
+<title>module~swiftest</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="823,-146.79 769,-146.79 769,-122.79 823,-122.79 823,-146.79"/>
+<text text-anchor="middle" x="796" y="-132.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;ieee_exceptions -->
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
 <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,-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"/>
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.94,-119.53C863.43,-122.11 847.37,-125.18 833.2,-127.88"/>
+<polygon fill="#000000" stroke="#000000" points="832.44,-124.46 823.28,-129.78 833.76,-131.34 832.44,-124.46"/>
 </g>
-<!-- module~swiftest -->
+<!-- ieee_exceptions -->
 <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,-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>
+<title>ieee_exceptions</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node3"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
+<polygon fill="#337ab7" stroke="#337ab7" points="841,-104.79 751,-104.79 751,-80.79 841,-80.79 841,-104.79"/>
+<text text-anchor="middle" x="796" y="-90.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<!-- proc~solve_wbs&#45;&gt;ieee_exceptions -->
 <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,-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"/>
+<title>proc~solve_wbs&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.94,-108.05C868.9,-106.52 859.96,-104.81 851.04,-103.11"/>
+<polygon fill="#000000" stroke="#000000" points="851.53,-99.64 841.05,-101.2 850.21,-106.51 851.53,-99.64"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="proc~~solve_wbs~~UsesGraph_node4" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node4"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-244.79 247,-244.79 247,-220.79 347,-220.79 347,-244.79"/>
+<text text-anchor="middle" x="297" y="-230.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="proc~~solve_wbs~~UsesGraph_edge3" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-272.79C397.63,-266.97 364.89,-256.82 339.8,-248.2"/>
+<polygon fill="#000000" stroke="#000000" points="340.83,-244.85 330.24,-244.86 338.53,-251.46 340.83,-244.85"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-166.79 510,-166.79 510,-142.79 587,-142.79 587,-166.79"/>
+<text text-anchor="middle" x="548.5" y="-152.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C635.45,-109.53 599.83,-124.58 576.22,-137.7"/>
+<polygon fill="#000000" stroke="#000000" points="574.38,-134.72 567.49,-142.77 577.9,-140.78 574.38,-134.72"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node6"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472,-244.79 385,-244.79 385,-220.79 472,-220.79 472,-244.79"/>
+<text text-anchor="middle" x="428.5" y="-230.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M784.44,-146.87C752.42,-182.03 652.31,-281.3 549.5,-272.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-272.79C515.82,-274.9 481.68,-261.44 458.31,-249.57"/>
+<polygon fill="#000000" stroke="#000000" points="459.78,-246.39 449.3,-244.8 456.5,-252.57 459.78,-246.39"/>
 </g>
 <!-- module~helio_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node7" class="node">
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-86.79 510.5,-86.79 510.5,-62.79 586.5,-62.79 586.5,-86.79"/>
+<text text-anchor="middle" x="548.5" y="-72.39" 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="proc~~solve_wbs~~UsesGraph_edge7" class="edge">
+<g id="proc~~solve_wbs~~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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C639.68,-110.21 609.03,-99.7 585.99,-90.61"/>
+<polygon fill="#000000" stroke="#000000" points="587.2,-87.32 576.62,-86.82 584.58,-93.81 587.2,-87.32"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node8" class="node">
-<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>
+<title>module~whm_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-126.79 390.5,-126.79 390.5,-102.79 466.5,-102.79 466.5,-126.79"/>
+<text text-anchor="middle" x="428.5" y="-112.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C602.31,-104.17 525.11,-106.88 476.73,-110.38"/>
+<polygon fill="#000000" stroke="#000000" points="476.27,-106.9 466.56,-111.15 476.8,-113.88 476.27,-106.9"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <g id="proc~~solve_wbs~~UsesGraph_node9" class="node">
-<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>
+<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,-204.79 123,-204.79 123,-180.79 211,-180.79 211,-204.79"/>
+<text text-anchor="middle" x="167" y="-190.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="proc~~solve_wbs~~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,-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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-272.79C348.33,-257.35 321.88,-283.8 247,-253.79 223.79,-244.49 201.65,-226.3 186.75,-212.19"/>
+<polygon fill="#000000" stroke="#000000" points="188.84,-209.35 179.25,-204.85 183.95,-214.35 188.84,-209.35"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~symba_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="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>
+<title>module~symba_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="711.5,-166.79 626.5,-166.79 626.5,-142.79 711.5,-142.79 711.5,-166.79"/>
+<text text-anchor="middle" x="669" y="-152.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~symba_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="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"/>
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.8,-138.98C755.16,-141.17 738,-143.91 721.82,-146.5"/>
+<polygon fill="#000000" stroke="#000000" points="721.23,-143.05 711.91,-148.09 722.34,-149.96 721.23,-143.05"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~swiftest_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node11" class="node">
-<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>
+<title>module~swiftest_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node11"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.79 252.5,-164.79 252.5,-140.79 341.5,-140.79 341.5,-164.79"/>
+<text text-anchor="middle" x="297" y="-150.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-272.79C406.39,-268.67 398.54,-268.66 383,-253.79 356.29,-228.23 372.61,-205.46 347,-178.79 344,-175.67 340.54,-172.84 336.87,-170.29"/>
+<polygon fill="#000000" stroke="#000000" points="338.42,-167.14 328.07,-164.88 334.75,-173.1 338.42,-167.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-272.79C495.17,-276.27 480.97,-282.83 429.5,-272.79"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node12"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-46.79 383,-46.79 383,-22.79 474,-22.79 474,-46.79"/>
+<text text-anchor="middle" x="428.5" y="-32.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.64,-130.73C743.32,-126.79 704.02,-120.57 670,-114.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668,-114.79C623.57,-107.24 628.81,-70.62 587,-53.79 554.52,-40.71 515.46,-35.94 484.36,-34.45"/>
+<polygon fill="#000000" stroke="#000000" points="484.27,-30.94 474.14,-34.06 484,-37.94 484.27,-30.94"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_node13" class="node">
+<title>module~walltime_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node13"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-46.79 623,-46.79 623,-22.79 715,-22.79 715,-46.79"/>
+<text text-anchor="middle" x="669" y="-32.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.62,-123.93C762.61,-120.99 756.41,-117.57 751,-113.79 726.49,-96.7 702.51,-72.03 687.08,-54.82"/>
+<polygon fill="#000000" stroke="#000000" points="689.47,-52.23 680.23,-47.04 684.21,-56.85 689.47,-52.23"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="M402.44,-213.71C377.32,-200.39 333.26,-181.3 293.5,-185.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-220.79C244.68,-216.75 230.09,-212.2 216.5,-207.95"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-204.57 206.82,-204.92 215.32,-211.25 217.41,-204.57"/>
 </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 -->
+<!-- module~rmvs_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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-142.79C500.42,-138.83 487.26,-134.37 474.94,-130.2"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-126.82 465.29,-126.92 473.63,-133.45 475.88,-126.82"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge14" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-155.75C475.77,-155.41 424.43,-151.8 383,-135.79 339.63,-119.03 341.38,-58.04 298,-74.79"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.91,-220.72C375.2,-209.99 334.84,-195.58 298,-192.79"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <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="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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.42,-220.66C398.15,-216.47 390.11,-211.61 383,-206.79 366.21,-195.43 364.02,-189.81 347,-178.79 342.2,-175.68 336.99,-172.62 331.82,-169.75"/>
+<polygon fill="#000000" stroke="#000000" points="333.12,-166.47 322.65,-164.81 329.8,-172.63 333.12,-166.47"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-86.79C500.42,-90.75 487.26,-95.21 474.94,-99.39"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-96.14 465.29,-102.66 475.88,-102.77 473.63,-96.14"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <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.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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-74.79C370.54,-83.06 351.53,-53.65 298,-74.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.37,-72.07C487.03,-71.03 456.36,-70.89 429.5,-74.79"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-74.79C383.82,-81.13 341.64,-112.8 317.84,-133.79"/>
+<polygon fill="#000000" stroke="#000000" points="315.27,-131.39 310.22,-140.71 319.98,-136.58 315.27,-131.39"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge21" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-102.72C369.76,-88.43 317.04,-67.44 298,-74.79"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge20" class="edge">
+<g id="proc~~solve_wbs~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-125.68C377.52,-129.46 362.86,-133.76 349.06,-137.81"/>
+<polygon fill="#000000" stroke="#000000" points="347.82,-134.53 339.21,-140.7 349.79,-141.24 347.82,-134.53"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="proc~~solve_wbs~~UsesGraph_node14" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node14"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-204.79 0,-204.79 0,-180.79 87,-180.79 87,-204.79"/>
+<text text-anchor="middle" x="43.5" y="-190.39" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~solve_wbs~~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,-192.79C114.58,-192.79 105.86,-192.79 97.36,-192.79"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-189.29 87.13,-192.79 97.13,-196.29 97.13,-189.29"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge23" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.22,-154.79C616.92,-154.79 607,-154.79 597.47,-154.79"/>
+<polygon fill="#000000" stroke="#000000" points="597.34,-151.29 587.34,-154.79 597.34,-158.29 597.34,-151.29"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-194.79C521.97,-200.9 493.99,-209.81 471.68,-217.47"/>
+<polygon fill="#000000" stroke="#000000" points="470.47,-214.18 462.18,-220.77 472.77,-220.79 470.47,-214.18"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.74,-142.57C638.39,-138.37 630.25,-133.53 623,-128.79 605.88,-117.6 587.32,-103.95 573.13,-93.18"/>
+<polygon fill="#000000" stroke="#000000" points="574.99,-90.19 564.92,-86.89 570.73,-95.75 574.99,-90.19"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge27" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-192.79C370.15,-187.97 355.39,-197.13 298,-192.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-192.79C271.5,-190.94 244.29,-190.69 221.27,-191"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-187.5 211.02,-191.18 221.08,-194.5 220.96,-187.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge24" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge28" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-192.79C395.21,-190.08 360.18,-178.71 334.71,-168.78"/>
+<polygon fill="#000000" stroke="#000000" points="335.68,-165.4 325.1,-164.93 333.08,-171.9 335.68,-165.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-194.79C496.49,-206.99 481.77,-197.18 429.5,-192.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.26,-166.89C613.6,-175.77 579.91,-187.52 549.5,-194.79"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge29" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-164.79C244.68,-168.83 230.09,-173.39 216.5,-177.63"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-174.34 206.82,-180.66 217.41,-181.02 215.32,-174.34"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge30" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-46.83C357.97,-54.1 325.88,-64.03 298,-74.79"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge31" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.63,-22.73C572.61,-7.58 467.3,13.33 383,-13.79 338.73,-28.03 341.25,-57.71 298,-74.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-74.79C245.6,-94.17 203.2,-143.97 182.19,-172.3"/>
+<polygon fill="#000000" stroke="#000000" points="179.15,-170.52 176.13,-180.67 184.83,-174.62 179.15,-170.52"/>
 </g>
 </g>
 </svg>
@@ -603,7 +658,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-x~9"></span>real(kind=QP),
+   <h3>Return Value <small><span class="anchor" id="variable-x~8"></span>real(kind=QP),
   dimension(:),allocatable</small></h3>
     
     
@@ -634,33 +689,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_d -->
+<!-- proc~util_solve_linear_system_q -->
 <g id="proc~~solve_wbs~~CalledByGraph_node2" class="node">
-<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">
+<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">
 <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_d</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_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_edge1" 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,-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_q -->
+<!-- proc~util_solve_linear_system_d -->
 <g id="proc~~solve_wbs~~CalledByGraph_node3" class="node">
-<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">
+<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">
 <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_q</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_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_edge2" 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,-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_fragmentation_casehitandrun.html b/docs/proc/symba_collision_casedisruption.html
similarity index 62%
rename from docs/proc/symba_fragmentation_casehitandrun.html
rename to docs/proc/symba_collision_casedisruption.html
index c28512008..822129483 100644
--- a/docs/proc/symba_fragmentation_casehitandrun.html
+++ b/docs/proc/symba_collision_casedisruption.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_fragmentation_casehitandrun &ndash; swiftest</title>
+    <title>symba_collision_casedisruption &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_fragmentation_casehitandrun
+    <h1>symba_collision_casedisruption
       <small>Module Function</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_fragmentation_casehitandrun
      <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.">76 statements</a>
+    title=" 0.1% of total for procedures.">46 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_fragmentation.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.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='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
     
-     <li><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></li>
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_fragmentation_casehitandrun</li>
+     <li class="active">symba_collision_casedisruption</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+module function symba_collision_casedisruption(system, param, colliders, frag) result(status)
     
     
-   <a href='../interface/symba_fragmentation_casehitandrun.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_casedisruption.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>Create the fragments resulting from a non-catastrophic hit-and-run collision</p>
+    <p>Create the fragments resulting from a non-catastrophic disruption collision</p>
     
 
     <h3>Arguments</h3>
@@ -236,7 +236,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~103"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,8 +251,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~218"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -266,117 +266,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~9"></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-x~34"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~19"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~10"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~10"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~8"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~10"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass_res~5"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-colliders~20"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -386,12 +281,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~7"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-frag~14"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
   
 </tr>
 
@@ -405,7 +300,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~11"></span>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
@@ -423,44 +318,71 @@ <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~~symba_fragmentation_casehitandrun~~CallsGraph Pages: 1 -->
-<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,-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,-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="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.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>
+<!-- Title: proc~~symba_collision_casedisruption~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_casedisruptionCallsGraph" width="514pt" height="116pt"
+ viewBox="0.00 0.00 514.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_casedisruption~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~symba_collision_casedisruption~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 510,-112 510,4 -4,4"/>
+<!-- proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<polygon fill="none" stroke="black" points="163,-66 0,-66 0,-42 163,-42 163,-66"/>
+<text text-anchor="middle" x="81.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casedisruption</text>
+</g>
+<!-- proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_proc~~symba_collision_casedisruption~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="376,-108 199,-108 199,-84 376,-84 376,-108"/>
+<text text-anchor="middle" x="287.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</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"/>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M140.96,-66.04C165.07,-71 193.18,-76.79 218.24,-81.95"/>
+<polygon fill="#000000" stroke="#000000" points="217.53,-85.37 228.03,-83.96 218.94,-78.52 217.53,-85.37"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_node3" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_proc~~symba_collision_casedisruption~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="367.5,-66 207.5,-66 207.5,-42 367.5,-42 367.5,-66"/>
+<text text-anchor="middle" x="287.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M163.13,-54C174.3,-54 185.82,-54 197.14,-54"/>
+<polygon fill="#000000" stroke="#000000" points="197.46,-57.5 207.46,-54 197.46,-50.5 197.46,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_node4" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="364.5,-24 210.5,-24 210.5,0 364.5,0 364.5,-24"/>
+<text text-anchor="middle" x="287.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M140.96,-41.96C165.07,-37 193.18,-31.21 218.24,-26.05"/>
+<polygon fill="#000000" stroke="#000000" points="218.94,-29.48 228.03,-24.04 217.53,-22.63 218.94,-29.48"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="506,-66 412,-66 412,-42 506,-42 506,-66"/>
+<text text-anchor="middle" x="459" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="proc~~symba_collision_casedisruption~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M367.79,-54C379.15,-54 390.64,-54 401.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="401.57,-57.5 411.57,-54 401.57,-50.5 401.57,-57.5"/>
 </g>
 </g>
 </svg>
@@ -537,66 +459,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_fragmentation_casehitandrun~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casehitandrunCalledByGraph" width="641pt" height="23pt"
- viewBox="0.00 0.00 641.00 22.64" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 28)">
-<title>proc~~symba_fragmentation_casehitandrun~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 902,-28 902,4 -4,4"/>
-<!-- proc~symba_fragmentation_casehitandrun -->
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node1" class="node">
-<title>proc~symba_fragmentation_casehitandrun</title>
-<polygon fill="none" stroke="black" points="898,-24 708,-24 708,0 898,0 898,-24"/>
-<text text-anchor="middle" x="803" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casehitandrun</text>
-</g>
-<!-- interface~symba_fragmentation_casehitandrun -->
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node2" class="node">
-<title>interface~symba_fragmentation_casehitandrun</title>
-<g id="a_proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node2"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
-<polygon fill="#a7506f" stroke="#a7506f" points="672,-24 482,-24 482,0 672,0 672,-24"/>
-<text text-anchor="middle" x="577" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+<!-- Title: proc~~symba_collision_casedisruption~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_casedisruptionCalledByGraph" width="641pt" height="24pt"
+ viewBox="0.00 0.00 641.00 24.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph" class="graph" transform="scale(0.75 0.75) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_casedisruption~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 848,-28 848,4 -4,4"/>
+<!-- proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<polygon fill="none" stroke="black" points="844,-24 681,-24 681,0 844,0 844,-24"/>
+<text text-anchor="middle" x="762.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casedisruption</text>
+</g>
+<!-- interface~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_casedisruption~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="645,-24 482,-24 482,0 645,0 645,-24"/>
+<text text-anchor="middle" x="563.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph_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="M672.02,-12C680.54,-12 689.2,-12 697.8,-12"/>
-<polygon fill="#000000" stroke="#000000" points="697.86,-15.5 707.86,-12 697.86,-8.5 697.86,-15.5"/>
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.2,-12C653.67,-12 662.33,-12 670.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="670.93,-15.5 680.93,-12 670.93,-8.5 670.93,-15.5"/>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node3" class="node">
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_node3" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<g id="a_proc~~symba_collision_casedisruption~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
 <polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
 <text text-anchor="middle" x="343.5" y="-9.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_casehitandrun -->
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" d="M446.04,-12C454.6,-12 463.26,-12 471.84,-12"/>
-<polygon fill="#000000" stroke="#000000" points="471.85,-15.5 481.85,-12 471.85,-8.5 471.85,-15.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M446.16,-12C454.68,-12 463.27,-12 471.7,-12"/>
+<polygon fill="#000000" stroke="#000000" points="471.9,-15.5 481.9,-12 471.9,-8.5 471.9,-15.5"/>
 </g>
 <!-- interface~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node4" class="node">
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_node4" class="node">
 <title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casehitandrun~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<g id="a_proc~~symba_collision_casedisruption~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
 <polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
 <text text-anchor="middle" x="102.5" y="-9.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_casehitandrun~~CalledByGraph_edge3" class="edge">
+<g id="proc~~symba_collision_casedisruption~~CalledByGraph_edge3" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
 <polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var panprocsymba_fragmentation_casehitandrunCalledByGraph = svgPanZoom('#procsymba_fragmentation_casehitandrunCalledByGraph', {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><script>var panprocsymba_collision_casedisruptionCalledByGraph = svgPanZoom('#procsymba_collision_casedisruptionCalledByGraph', {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_fragmentation_casemerge.html b/docs/proc/symba_collision_casehitandrun.html
similarity index 63%
rename from docs/proc/symba_fragmentation_casemerge.html
rename to docs/proc/symba_collision_casehitandrun.html
index 3c39d786a..14c0e2887 100644
--- a/docs/proc/symba_fragmentation_casemerge.html
+++ b/docs/proc/symba_collision_casehitandrun.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_fragmentation_casemerge &ndash; swiftest</title>
+    <title>symba_collision_casehitandrun &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_fragmentation_casemerge
+    <h1>symba_collision_casehitandrun
       <small>Module Function</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_fragmentation_casemerge
      <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.">58 statements</a>
+    title=" 0.1% of total for procedures.">56 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_fragmentation.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.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='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
     
-     <li><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></li>
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_fragmentation_casemerge</li>
+     <li class="active">symba_collision_casehitandrun</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status)
+module function symba_collision_casehitandrun(system, param, colliders, frag) result(status)
     
     
-   <a href='../interface/symba_fragmentation_casemerge.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_casehitandrun.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,9 +215,7 @@ <h2>
 
 
     
-    <p>Merge planets.</p>
-<p>Adapted from David E. Kaufmann's Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90</p>
-<p>Adapted from Hal Levison's Swift routines symba5_merge.f and discard_mass_merge.f</p>
+    <p>Create the fragments resulting from a non-catastrophic hit-and-run collision</p>
     
 
     <h3>Arguments</h3>
@@ -238,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~108"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~104"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,8 +251,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~219"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -268,87 +266,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~10"></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-x~35"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~20"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~11"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~11"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~9"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-colliders~21"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -358,12 +281,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip~11"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-frag~15"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
   
 </tr>
 
@@ -377,9 +300,9 @@ <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~12"></span>integer(kind=I4B)
   </small></h3>
-    <p>Status flag assigned to this outcome</p>
+    <p>Status flag assigned to this outcom</p>
     
     
     <br>
@@ -395,32 +318,71 @@ <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~~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>
+<!-- Title: proc~~symba_collision_casehitandrun~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_casehitandrunCallsGraph" width="512pt" height="116pt"
+ viewBox="0.00 0.00 512.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~symba_collision_casehitandrun~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 508,-112 508,4 -4,4"/>
+<!-- proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_casehitandrun</title>
+<polygon fill="none" stroke="black" points="161,-66 0,-66 0,-42 161,-42 161,-66"/>
+<text text-anchor="middle" x="80.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casehitandrun</text>
+</g>
+<!-- proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_proc~~symba_collision_casehitandrun~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-108 197,-108 197,-84 374,-84 374,-108"/>
+<text text-anchor="middle" x="285.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</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"/>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M139.67,-66.04C163.56,-70.98 191.39,-76.74 216.24,-81.88"/>
+<polygon fill="#000000" stroke="#000000" points="215.82,-85.36 226.32,-83.96 217.24,-78.51 215.82,-85.36"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_node3" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_proc~~symba_collision_casehitandrun~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="365.5,-66 205.5,-66 205.5,-42 365.5,-42 365.5,-66"/>
+<text text-anchor="middle" x="285.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M161.15,-54C172.29,-54 183.8,-54 195.1,-54"/>
+<polygon fill="#000000" stroke="#000000" points="195.41,-57.5 205.41,-54 195.41,-50.5 195.41,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_node4" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="362.5,-24 208.5,-24 208.5,0 362.5,0 362.5,-24"/>
+<text text-anchor="middle" x="285.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M139.67,-41.96C163.56,-37.02 191.39,-31.26 216.24,-26.12"/>
+<polygon fill="#000000" stroke="#000000" points="217.24,-29.49 226.32,-24.04 215.82,-22.64 217.24,-29.49"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="504,-66 410,-66 410,-42 504,-42 504,-66"/>
+<text text-anchor="middle" x="457" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="proc~~symba_collision_casehitandrun~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M365.79,-54C377.15,-54 388.64,-54 399.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="399.57,-57.5 409.57,-54 399.57,-50.5 399.57,-57.5"/>
 </g>
 </g>
 </svg>
@@ -497,96 +459,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_fragmentation_casemerge~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casemergeCalledByGraph" width="641pt" height="54pt"
- viewBox="0.00 0.00 641.00 54.15" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 70)">
-<title>proc~~symba_fragmentation_casemerge~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 872,-70 872,4 -4,4"/>
-<!-- proc~symba_fragmentation_casemerge -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_node1" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<polygon fill="none" stroke="black" points="868,-45 693,-45 693,-21 868,-21 868,-45"/>
-<text text-anchor="middle" x="780.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casemerge</text>
-</g>
-<!-- interface~symba_fragmentation_casemerge -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_node2" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<g id="a_proc~~symba_fragmentation_casemerge~~CalledByGraph_node2"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#a7506f" stroke="#a7506f" points="657,-45 482,-45 482,-21 657,-21 657,-45"/>
-<text text-anchor="middle" x="569.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- Title: proc~~symba_collision_casehitandrun~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_casehitandrunCalledByGraph" width="641pt" height="24pt"
+ viewBox="0.00 0.00 641.00 24.19" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph" class="graph" transform="scale(0.76 0.76) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_casehitandrun~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 844,-28 844,4 -4,4"/>
+<!-- proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_casehitandrun</title>
+<polygon fill="none" stroke="black" points="840,-24 679,-24 679,0 840,0 840,-24"/>
+<text text-anchor="middle" x="759.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casehitandrun</text>
+</g>
+<!-- interface~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_casehitandrun~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="643,-24 482,-24 482,0 643,0 643,-24"/>
+<text text-anchor="middle" x="562.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_edge1" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M657.02,-33C665.49,-33 674.13,-33 682.7,-33"/>
-<polygon fill="#000000" stroke="#000000" points="682.71,-36.5 692.71,-33 682.71,-29.5 682.71,-36.5"/>
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M643.1,-12C651.57,-12 660.24,-12 668.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="668.84,-15.5 678.84,-12 668.84,-8.5 668.84,-15.5"/>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_node3" class="node">
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_node3" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casemerge~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-66 241,-66 241,-42 446,-42 446,-66"/>
-<text text-anchor="middle" x="343.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<g id="a_proc~~symba_collision_casehitandrun~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
+<text text-anchor="middle" x="343.5" y="-9.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_casemerge -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M446.01,-44.48C454.49,-43.69 463.05,-42.89 471.49,-42.09"/>
-<polygon fill="#000000" stroke="#000000" points="472.09,-45.55 481.72,-41.14 471.43,-38.58 472.09,-45.55"/>
-</g>
-<!-- proc~symba_collision_resolve_mergers -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_node4" class="node">
-<title>proc~symba_collision_resolve_mergers</title>
-<g id="a_proc~~symba_fragmentation_casemerge~~CalledByGraph_node4"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-24 256.5,-24 256.5,0 430.5,0 430.5,-24"/>
-<text text-anchor="middle" x="343.5" y="-9.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_casemerge~~CalledByGraph_edge3" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M430.78,-20.09C444.14,-21.34 458.01,-22.64 471.58,-23.91"/>
-<polygon fill="#000000" stroke="#000000" points="471.61,-27.43 481.89,-24.88 472.26,-20.46 471.61,-27.43"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M446.01,-12C454.56,-12 463.16,-12 471.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="471.83,-15.5 481.83,-12 471.83,-8.5 471.83,-15.5"/>
 </g>
 <!-- interface~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_node5" class="node">
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_node4" class="node">
 <title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casemerge~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-66 0,-66 0,-42 205,-42 205,-66"/>
-<text text-anchor="middle" x="102.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<g id="a_proc~~symba_collision_casehitandrun~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
+<text text-anchor="middle" x="102.5" y="-9.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_casemerge~~CalledByGraph_edge4" class="edge">
+<g id="proc~~symba_collision_casehitandrun~~CalledByGraph_edge3" 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,-54C213.7,-54 222.31,-54 230.87,-54"/>
-<polygon fill="#000000" stroke="#000000" points="230.89,-57.5 240.89,-54 230.89,-50.5 230.89,-57.5"/>
-</g>
-<!-- interface~symba_collision_resolve_mergers -->
-<g id="proc~~symba_fragmentation_casemerge~~CalledByGraph_node6" class="node">
-<title>interface~symba_collision_resolve_mergers</title>
-<g id="a_proc~~symba_fragmentation_casemerge~~CalledByGraph_node6"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-24 15.5,-24 15.5,0 189.5,0 189.5,-24"/>
-<text text-anchor="middle" x="102.5" y="-9.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_casemerge~~CalledByGraph_edge5" 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,-12C208.06,-12 227.46,-12 246.09,-12"/>
-<polygon fill="#000000" stroke="#000000" points="246.34,-15.5 256.34,-12 246.34,-8.5 246.34,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.2,-12C213.7,-12 222.31,-12 230.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var panprocsymba_fragmentation_casemergeCalledByGraph = svgPanZoom('#procsymba_fragmentation_casemergeCalledByGraph', {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><script>var panprocsymba_collision_casehitandrunCalledByGraph = svgPanZoom('#procsymba_collision_casehitandrunCalledByGraph', {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_fragmentation_casedisruption.html b/docs/proc/symba_collision_casemerge.html
similarity index 59%
rename from docs/proc/symba_fragmentation_casedisruption.html
rename to docs/proc/symba_collision_casemerge.html
index 71504e264..304bb83fa 100644
--- a/docs/proc/symba_fragmentation_casedisruption.html
+++ b/docs/proc/symba_collision_casemerge.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_fragmentation_casedisruption &ndash; swiftest</title>
+    <title>symba_collision_casemerge &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_fragmentation_casedisruption
+    <h1>symba_collision_casemerge
       <small>Module Function</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_fragmentation_casedisruption
      <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.">60 statements</a>
+    title=" 0.1% of total for procedures.">57 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_fragmentation.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.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='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
     
-     <li><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></li>
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_fragmentation_casedisruption</li>
+     <li class="active">symba_collision_casemerge</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status)
+module function symba_collision_casemerge(system, param, colliders, frag) result(status)
     
     
-   <a href='../interface/symba_fragmentation_casedisruption.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_casemerge.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,7 +215,9 @@ <h2>
 
 
     
-    <p>Create the fragments resulting from a non-catastrophic disruption collision</p>
+    <p>Merge massive bodies.</p>
+<p>Adapted from David E. Kaufmann's Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90</p>
+<p>Adapted from Hal Levison's Swift routines symba5_merge.f and discard_mass_merge.f</p>
     
 
     <h3>Arguments</h3>
@@ -236,7 +238,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~105"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,8 +253,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~220"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -266,117 +268,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~8"></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-x~33"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~18"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass~9"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-radius~9"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin~7"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ip~9"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Input values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mass_res~4"></span>real(kind=DP),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" id="variable-colliders~22"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>mass_res</strong></td><td><p>The distribution of fragment mass obtained by the regime calculation </p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
   
 </tr>
 
@@ -386,12 +283,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-qloss~6"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-frag~16"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>Energy lost during collision</p></td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
   
 </tr>
 
@@ -405,7 +302,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~13"></span>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
@@ -423,44 +320,71 @@ <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~~symba_fragmentation_casedisruption~~CallsGraph Pages: 1 -->
-<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,-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,-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="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.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>
+<!-- Title: proc~~symba_collision_casemerge~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_casemergeCallsGraph" width="498pt" height="116pt"
+ viewBox="0.00 0.00 498.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_casemerge~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~symba_collision_casemerge~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 494,-112 494,4 -4,4"/>
+<!-- proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_casemerge</title>
+<polygon fill="none" stroke="black" points="147,-66 0,-66 0,-42 147,-42 147,-66"/>
+<text text-anchor="middle" x="73.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casemerge</text>
+</g>
+<!-- proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_node2" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_proc~~symba_collision_casemerge~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="360,-108 183,-108 183,-84 360,-84 360,-108"/>
+<text text-anchor="middle" x="271.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M130.67,-66.04C153.63,-70.96 180.37,-76.69 204.27,-81.81"/>
+<polygon fill="#000000" stroke="#000000" points="203.81,-85.29 214.33,-83.96 205.28,-78.45 203.81,-85.29"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_node3" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_proc~~symba_collision_casemerge~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="351.5,-66 191.5,-66 191.5,-42 351.5,-42 351.5,-66"/>
+<text text-anchor="middle" x="271.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_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"/>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M147.2,-54C158.21,-54 169.68,-54 181,-54"/>
+<polygon fill="#000000" stroke="#000000" points="181.33,-57.5 191.33,-54 181.33,-50.5 181.33,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_node4" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="348.5,-24 194.5,-24 194.5,0 348.5,0 348.5,-24"/>
+<text text-anchor="middle" x="271.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M130.67,-41.96C153.63,-37.04 180.37,-31.31 204.27,-26.19"/>
+<polygon fill="#000000" stroke="#000000" points="205.28,-29.55 214.33,-24.04 203.81,-22.71 205.28,-29.55"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="490,-66 396,-66 396,-42 490,-42 490,-66"/>
+<text text-anchor="middle" x="443" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="proc~~symba_collision_casemerge~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M351.79,-54C363.15,-54 374.64,-54 385.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="385.57,-57.5 395.57,-54 385.57,-50.5 385.57,-57.5"/>
 </g>
 </g>
 </svg>
@@ -537,66 +461,96 @@ <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_fragmentation_casedisruption~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casedisruptionCalledByGraph" width="641pt" height="23pt"
- viewBox="0.00 0.00 641.00 22.59" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_fragmentation_casedisruption~~CalledByGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 28)">
-<title>proc~~symba_fragmentation_casedisruption~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 904,-28 904,4 -4,4"/>
-<!-- proc~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_fragmentation_casedisruption~~CalledByGraph_node1" class="node">
-<title>proc~symba_fragmentation_casedisruption</title>
-<polygon fill="none" stroke="black" points="900,-24 709,-24 709,0 900,0 900,-24"/>
-<text text-anchor="middle" x="804.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casedisruption</text>
-</g>
-<!-- interface~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_fragmentation_casedisruption~~CalledByGraph_node2" class="node">
-<title>interface~symba_fragmentation_casedisruption</title>
-<g id="a_proc~~symba_fragmentation_casedisruption~~CalledByGraph_node2"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
-<polygon fill="#a7506f" stroke="#a7506f" points="673,-24 482,-24 482,0 673,0 673,-24"/>
-<text text-anchor="middle" x="577.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+<!-- Title: proc~~symba_collision_casemerge~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_casemergeCalledByGraph" width="641pt" height="58pt"
+ viewBox="0.00 0.00 641.00 57.85" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_casemerge~~CalledByGraph" class="graph" transform="scale(0.78 0.78) rotate(0) translate(4 70)">
+<title>proc~~symba_collision_casemerge~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 816,-70 816,4 -4,4"/>
+<!-- proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_casemerge</title>
+<polygon fill="none" stroke="black" points="812,-45 665,-45 665,-21 812,-21 812,-45"/>
+<text text-anchor="middle" x="738.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_casemerge</text>
+</g>
+<!-- interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_casemerge~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="629,-45 482,-45 482,-21 629,-21 629,-45"/>
+<text text-anchor="middle" x="555.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.08,-33C637.56,-33 646.26,-33 654.87,-33"/>
+<polygon fill="#000000" stroke="#000000" points="654.91,-36.5 664.91,-33 654.91,-29.5 654.91,-36.5"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_node3" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_collision_casemerge~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-66 256.5,-66 256.5,-42 430.5,-42 430.5,-66"/>
+<text text-anchor="middle" x="343.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_fragmentation_casedisruption~~CalledByGraph_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="M673.27,-12C681.64,-12 690.14,-12 698.58,-12"/>
-<polygon fill="#000000" stroke="#000000" points="698.84,-15.5 708.84,-12 698.84,-8.5 698.84,-15.5"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M430.52,-45.4C444.06,-44.04 458.04,-42.65 471.5,-41.3"/>
+<polygon fill="#000000" stroke="#000000" points="472.09,-44.76 481.69,-40.28 471.39,-37.79 472.09,-44.76"/>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casedisruption~~CalledByGraph_node3" class="node">
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_node4" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casedisruption~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<g id="a_proc~~symba_collision_casemerge~~CalledByGraph_node4"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
 <polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
 <text text-anchor="middle" x="343.5" y="-9.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_casedisruption~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" d="M446.26,-12C454.65,-12 463.15,-12 471.57,-12"/>
-<polygon fill="#000000" stroke="#000000" points="471.79,-15.5 481.79,-12 471.79,-8.5 471.79,-15.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_edge3" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M446.12,-22.16C454.68,-23.02 463.27,-23.88 471.66,-24.72"/>
+<polygon fill="#000000" stroke="#000000" points="471.48,-28.22 481.78,-25.73 472.18,-21.25 471.48,-28.22"/>
+</g>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_node5" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_collision_casemerge~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-66 15.5,-66 15.5,-42 189.5,-42 189.5,-66"/>
+<text text-anchor="middle" x="102.5" y="-51.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_collision_casemerge~~CalledByGraph_edge4" 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,-54C208.06,-54 227.46,-54 246.09,-54"/>
+<polygon fill="#000000" stroke="#000000" points="246.34,-57.5 256.34,-54 246.34,-50.5 246.34,-57.5"/>
 </g>
 <!-- interface~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_fragmentation_casedisruption~~CalledByGraph_node4" class="node">
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_node6" class="node">
 <title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_fragmentation_casedisruption~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<g id="a_proc~~symba_collision_casemerge~~CalledByGraph_node6"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
 <polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
 <text text-anchor="middle" x="102.5" y="-9.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_casedisruption~~CalledByGraph_edge3" class="edge">
+<g id="proc~~symba_collision_casemerge~~CalledByGraph_edge5" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
 <polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var panprocsymba_fragmentation_casedisruptionCalledByGraph = svgPanZoom('#procsymba_fragmentation_casedisruptionCalledByGraph', {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><script>var panprocsymba_collision_casemergeCalledByGraph = svgPanZoom('#procsymba_collision_casemergeCalledByGraph', {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_collision_check_pltpenc.html b/docs/proc/symba_collision_check_encounter.html
similarity index 72%
rename from docs/proc/symba_collision_check_pltpenc.html
rename to docs/proc/symba_collision_check_encounter.html
index ec8620d04..614e0f88f 100644
--- a/docs/proc/symba_collision_check_pltpenc.html
+++ b/docs/proc/symba_collision_check_encounter.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_collision_check_pltpenc &ndash; swiftest</title>
+    <title>symba_collision_check_encounter &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,8 +116,8 @@
     
   
   <div class="row">
-    <h1>symba_collision_check_pltpenc
-      <small>Module Subroutine</small>
+    <h1>symba_collision_check_encounter
+      <small>Module Function</small>
     
     </h1>
     
@@ -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.2% of total for procedures.">77 statements</a>
+    title=" 0.2% of total for procedures.">102 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_check_pltpenc
      <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_collision_check_pltpenc</li>
+     <li class="active">symba_collision_check_encounter</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec)
+module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
     
     
-   <a href='../interface/symba_collision_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_check_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~335"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~405"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~98"></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>
   
@@ -268,7 +268,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~221"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~59"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~65"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~84"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~89"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~8"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~11"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -328,6 +328,15 @@ <h3>Arguments</h3>
     
     
     
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-lany_collision~2"></span>logical
+  </small></h3>
+    <p>Returns true if cany pair of encounters resulted in a collision </p>
+    
+    
     <br>
     
     
@@ -341,68 +350,56 @@ <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~~symba_collision_check_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="procsymba_collision_check_pltpencCallsGraph" width="464pt" height="116pt"
- viewBox="0.00 0.00 464.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
-<title>proc~~symba_collision_check_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 460,-112 460,4 -4,4"/>
-<!-- proc~symba_collision_check_pltpenc -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node1" class="node">
-<title>proc~symba_collision_check_pltpenc</title>
-<polygon fill="none" stroke="black" points="162,-66 0,-66 0,-42 162,-42 162,-66"/>
-<text text-anchor="middle" x="81" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_pltpenc</text>
-</g>
-<!-- ind2 -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node2" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="297.5,-108 243.5,-108 243.5,-84 297.5,-84 297.5,-108"/>
-<text text-anchor="middle" x="270.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
-</g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind2 -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_edge1" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;ind2</title>
-<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"/>
+<!-- Title: proc~~symba_collision_check_encounter~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_check_encounterCallsGraph" width="486pt" height="74pt"
+ viewBox="0.00 0.00 486.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_check_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~symba_collision_check_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 482,-70 482,4 -4,4"/>
+<!-- proc~symba_collision_check_encounter -->
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_check_encounter</title>
+<polygon fill="none" stroke="black" points="175,-45 0,-45 0,-21 175,-21 175,-45"/>
+<text text-anchor="middle" x="87.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_encounter</text>
 </g>
-<!-- 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>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_node2" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="365,-66 211,-66 211,-42 365,-42 365,-66"/>
+<text text-anchor="middle" x="288" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</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"/>
+<!-- proc~symba_collision_check_encounter&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_check_encounter&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M175.28,-42.18C183.82,-43.08 192.5,-44 201.04,-44.91"/>
+<polygon fill="#000000" stroke="#000000" points="200.67,-48.39 210.99,-45.96 201.41,-41.43 200.67,-48.39"/>
 </g>
 <!-- proc~symba_collision_check_one -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node4" class="node">
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_node3" class="node">
 <title>proc~symba_collision_check_one</title>
-<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>
+<g id="a_proc~~symba_collision_check_encounter~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="360.5,-24 215.5,-24 215.5,0 360.5,0 360.5,-24"/>
+<text text-anchor="middle" x="288" 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="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"/>
+<!-- proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one -->
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one</title>
+<path fill="none" stroke="#000000" d="M175.28,-23.82C185.19,-22.77 195.27,-21.7 205.11,-20.66"/>
+<polygon fill="#000000" stroke="#000000" points="205.69,-24.12 215.27,-19.59 204.95,-17.16 205.69,-24.12"/>
 </g>
 <!-- orbel_xv2aeq -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node5" class="node">
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_node4" class="node">
 <title>orbel_xv2aeq</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="478,-24 401,-24 401,0 478,0 478,-24"/>
+<text text-anchor="middle" x="439.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">
+<g id="proc~~symba_collision_check_encounter~~CallsGraph_edge3" class="edge">
 <title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M360.68,-12C370.92,-12 381.23,-12 390.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="390.98,-15.5 400.98,-12 390.98,-8.5 390.98,-15.5"/>
 </g>
 </g>
 </svg>
@@ -479,32 +476,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_collision_check_pltpenc~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_collision_check_pltpencCalledByGraph" width="368pt" height="32pt"
- viewBox="0.00 0.00 368.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_check_pltpenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_collision_check_pltpenc~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 364,-28 364,4 -4,4"/>
-<!-- proc~symba_collision_check_pltpenc -->
-<g id="proc~~symba_collision_check_pltpenc~~CalledByGraph_node1" class="node">
-<title>proc~symba_collision_check_pltpenc</title>
-<polygon fill="none" stroke="black" points="360,-24 198,-24 198,0 360,0 360,-24"/>
-<text text-anchor="middle" x="279" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_pltpenc</text>
+<!-- Title: proc~~symba_collision_check_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_check_encounterCalledByGraph" 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">
+<g id="proc~~symba_collision_check_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_check_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 390,-28 390,4 -4,4"/>
+<!-- proc~symba_collision_check_encounter -->
+<g id="proc~~symba_collision_check_encounter~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_check_encounter</title>
+<polygon fill="none" stroke="black" points="386,-24 211,-24 211,0 386,0 386,-24"/>
+<text text-anchor="middle" x="298.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_encounter</text>
 </g>
-<!-- interface~symba_collision_check_pltpenc -->
-<g id="proc~~symba_collision_check_pltpenc~~CalledByGraph_node2" class="node">
-<title>interface~symba_collision_check_pltpenc</title>
-<g id="a_proc~~symba_collision_check_pltpenc~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="162,-24 0,-24 0,0 162,0 162,-24"/>
-<text text-anchor="middle" x="81" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
+<!-- interface~symba_collision_check_encounter -->
+<g id="proc~~symba_collision_check_encounter~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_check_encounter</title>
+<g id="a_proc~~symba_collision_check_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_check_encounter.html" xlink:title="symba_collision_check_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">symba_collision_check_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc -->
-<g id="proc~~symba_collision_check_pltpenc~~CalledByGraph_edge1" 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="M162,-12C170.52,-12 179.23,-12 187.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="187.93,-15.5 197.93,-12 187.93,-8.5 187.93,-15.5"/>
+<!-- interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter -->
+<g id="proc~~symba_collision_check_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter</title>
+<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>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_check_one.html b/docs/proc/symba_collision_check_one.html
index 3854c7457..139fb2fd7 100644
--- a/docs/proc/symba_collision_check_one.html
+++ b/docs/proc/symba_collision_check_one.html
@@ -136,7 +136,7 @@ <h1>symba_collision_check_one
      <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.">28 statements</a>
      </li> 
      
      
@@ -326,7 +326,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-gmtot~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -508,46 +508,46 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_collision_check_one~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_collision_check_oneCalledByGraph" width="549pt" height="32pt"
- viewBox="0.00 0.00 549.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="procsymba_collision_check_oneCalledByGraph" width="575pt" height="32pt"
+ viewBox="0.00 0.00 575.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="proc~~symba_collision_check_one~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~symba_collision_check_one~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 545,-28 545,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 571,-28 571,4 -4,4"/>
 <!-- proc~symba_collision_check_one -->
 <g id="proc~~symba_collision_check_one~~CalledByGraph_node1" class="node">
 <title>proc~symba_collision_check_one</title>
-<polygon fill="none" stroke="black" 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">symba_collision_check_one</text>
+<polygon fill="none" stroke="black" points="567,-24 422,-24 422,0 567,0 567,-24"/>
+<text text-anchor="middle" x="494.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_check_one</text>
 </g>
-<!-- proc~symba_collision_check_pltpenc -->
+<!-- proc~symba_collision_check_encounter -->
 <g id="proc~~symba_collision_check_one~~CalledByGraph_node2" class="node">
-<title>proc~symba_collision_check_pltpenc</title>
-<g id="a_proc~~symba_collision_check_one~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="360,-24 198,-24 198,0 360,0 360,-24"/>
-<text text-anchor="middle" x="279" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
+<title>proc~symba_collision_check_encounter</title>
+<g id="a_proc~~symba_collision_check_one~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_check_encounter.html" xlink:title="symba_collision_check_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="386,-24 211,-24 211,0 386,0 386,-24"/>
+<text text-anchor="middle" x="298.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one -->
+<!-- proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one -->
 <g id="proc~~symba_collision_check_one~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one</title>
-<path fill="none" stroke="#000000" d="M360.06,-12C368.48,-12 377.05,-12 385.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="385.71,-15.5 395.71,-12 385.71,-8.5 385.71,-15.5"/>
+<title>proc~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_one</title>
+<path fill="none" stroke="#000000" d="M386,-12C394.55,-12 403.21,-12 411.71,-12"/>
+<polygon fill="#000000" stroke="#000000" points="411.98,-15.5 421.98,-12 411.98,-8.5 411.98,-15.5"/>
 </g>
-<!-- interface~symba_collision_check_pltpenc -->
+<!-- interface~symba_collision_check_encounter -->
 <g id="proc~~symba_collision_check_one~~CalledByGraph_node3" class="node">
-<title>interface~symba_collision_check_pltpenc</title>
-<g id="a_proc~~symba_collision_check_one~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="162,-24 0,-24 0,0 162,0 162,-24"/>
-<text text-anchor="middle" x="81" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
+<title>interface~symba_collision_check_encounter</title>
+<g id="a_proc~~symba_collision_check_one~~CalledByGraph_node3"><a xlink:href=".././interface/symba_collision_check_encounter.html" xlink:title="symba_collision_check_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">symba_collision_check_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc -->
+<!-- interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter -->
 <g id="proc~~symba_collision_check_one~~CalledByGraph_edge2" 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="M162,-12C170.52,-12 179.23,-12 187.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="187.93,-15.5 197.93,-12 187.93,-8.5 187.93,-15.5"/>
+<title>interface~symba_collision_check_encounter&#45;&gt;proc~symba_collision_check_encounter</title>
+<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>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_collider_message.html b/docs/proc/symba_collision_collider_message.html
new file mode 100644
index 000000000..3eee113d1
--- /dev/null
+++ b/docs/proc/symba_collision_collider_message.html
@@ -0,0 +1,641 @@
+<!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_collision_collider_message &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_collision_collider_message
+      <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.0% of total for procedures.">17 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
+    
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
+    
+  
+     <li class="active">symba_collision_collider_message</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_collision_collider_message(pl, collidx, collider_message)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Prints a nicely formatted message about which bodies collided, including their names and ids.
+ This subroutine appends the body names and ids to an input message.</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-pl~5"></span>class(swiftest_pl),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-collidx"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>collidx</strong></td><td><p>Index of collisional colliders%idx members</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-collider_message"></span>character(len=*),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>collider_message</strong></td><td><p>The message to print to the screen.</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_collision_collider_message~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_collider_messageCalledByGraph" width="641pt" height="70pt"
+ viewBox="0.00 0.00 641.00 69.82" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_collider_message~~CalledByGraph" class="graph" transform="scale(0.6 0.6) rotate(0) translate(4 112)">
+<title>proc~~symba_collision_collider_message~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1061,-112 1061,4 -4,4"/>
+<!-- proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_collider_message</title>
+<polygon fill="none" stroke="black" points="1057,-66 880,-66 880,-42 1057,-42 1057,-66"/>
+<text text-anchor="middle" x="968.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_collider_message</text>
+</g>
+<!-- proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node2" class="node">
+<title>proc~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="843,-24 682,-24 682,0 843,0 843,-24"/>
+<text text-anchor="middle" x="762.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M821.96,-24.04C846.07,-29 874.18,-34.79 899.24,-39.95"/>
+<polygon fill="#000000" stroke="#000000" points="898.53,-43.37 909.03,-41.96 899.94,-36.52 898.53,-43.37"/>
+</g>
+<!-- proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node3" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="844,-66 681,-66 681,-42 844,-42 844,-66"/>
+<text text-anchor="middle" x="762.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M844.13,-54C852.53,-54 861.14,-54 869.71,-54"/>
+<polygon fill="#000000" stroke="#000000" points="869.73,-57.5 879.73,-54 869.73,-50.5 869.73,-57.5"/>
+</g>
+<!-- proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node4" class="node">
+<title>proc~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node4"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="836,-108 689,-108 689,-84 836,-84 836,-108"/>
+<text text-anchor="middle" x="762.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge3" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M821.96,-83.96C846.07,-79 874.18,-73.21 899.24,-68.05"/>
+<polygon fill="#000000" stroke="#000000" points="899.94,-71.48 909.03,-66.04 898.53,-64.63 899.94,-71.48"/>
+</g>
+<!-- interface~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node5" class="node">
+<title>interface~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="645,-66 482,-66 482,-42 645,-42 645,-66"/>
+<text text-anchor="middle" x="563.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.2,-54C653.67,-54 662.33,-54 670.91,-54"/>
+<polygon fill="#000000" stroke="#000000" points="670.93,-57.5 680.93,-54 670.93,-50.5 670.93,-57.5"/>
+</g>
+<!-- interface~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node6" class="node">
+<title>interface~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node6"><a xlink:href=".././interface/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="644,-24 483,-24 483,0 644,0 644,-24"/>
+<text text-anchor="middle" x="563.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge4" class="edge">
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.06,-12C653.23,-12 662.64,-12 671.93,-12"/>
+<polygon fill="#000000" stroke="#000000" points="671.96,-15.5 681.96,-12 671.96,-8.5 671.96,-15.5"/>
+</g>
+<!-- interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node7" class="node">
+<title>interface~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node7"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="637,-108 490,-108 490,-84 637,-84 637,-108"/>
+<text text-anchor="middle" x="563.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge6" class="edge">
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.02,-96C650.61,-96 664.92,-96 678.8,-96"/>
+<polygon fill="#000000" stroke="#000000" points="678.81,-99.5 688.81,-96 678.81,-92.5 678.81,-99.5"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node8" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node8"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-108 256.5,-108 256.5,-84 430.5,-84 430.5,-108"/>
+<text text-anchor="middle" x="343.5" y="-93.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_collision_casemerge -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge9" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M430.66,-96C446.77,-96 463.57,-96 479.58,-96"/>
+<polygon fill="#000000" stroke="#000000" points="479.97,-99.5 489.97,-96 479.97,-92.5 479.97,-99.5"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node9" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node9"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-66 241,-66 241,-42 446,-42 446,-66"/>
+<text text-anchor="middle" x="343.5" y="-51.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_collision_casedisruption -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge7" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M446.16,-54C454.68,-54 463.27,-54 471.7,-54"/>
+<polygon fill="#000000" stroke="#000000" points="471.9,-57.5 481.9,-54 471.9,-50.5 471.9,-57.5"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge8" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M406.97,-41.96C432.85,-36.98 463.05,-31.16 489.91,-25.99"/>
+<polygon fill="#000000" stroke="#000000" points="490.86,-29.37 500.02,-24.04 489.54,-22.49 490.86,-29.37"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_edge10" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M406.97,-66.04C432.85,-71.02 463.05,-76.84 489.91,-82.01"/>
+<polygon fill="#000000" stroke="#000000" points="489.54,-85.51 500.02,-83.96 490.86,-78.63 489.54,-85.51"/>
+</g>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node10" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node10"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-108 15.5,-108 15.5,-84 189.5,-84 189.5,-108"/>
+<text text-anchor="middle" x="102.5" y="-93.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_collision_collider_message~~CalledByGraph_edge11" 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,-96C208.06,-96 227.46,-96 246.09,-96"/>
+<polygon fill="#000000" stroke="#000000" points="246.34,-99.5 256.34,-96 246.34,-92.5 246.34,-99.5"/>
+</g>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_collision_collider_message~~CalledByGraph_node11" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_collision_collider_message~~CalledByGraph_node11"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-66 0,-66 0,-42 205,-42 205,-66"/>
+<text text-anchor="middle" x="102.5" y="-51.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_collision_collider_message~~CalledByGraph_edge12" 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,-54C213.7,-54 222.31,-54 230.87,-54"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-57.5 240.89,-54 230.89,-50.5 230.89,-57.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocsymba_collision_collider_messageCalledByGraph = svgPanZoom('#procsymba_collision_collider_messageCalledByGraph', {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_collision_consolidate_familes.html b/docs/proc/symba_collision_consolidate_colliders.html
similarity index 66%
rename from docs/proc/symba_collision_consolidate_familes.html
rename to docs/proc/symba_collision_consolidate_colliders.html
index e51c3e898..c59b1b4f5 100644
--- a/docs/proc/symba_collision_consolidate_familes.html
+++ b/docs/proc/symba_collision_consolidate_colliders.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_collision_consolidate_familes &ndash; swiftest</title>
+    <title>symba_collision_consolidate_colliders &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_collision_consolidate_familes
+    <h1>symba_collision_consolidate_colliders
       <small>Function</small>
     
     </h1>
@@ -136,7 +136,7 @@ <h1>symba_collision_consolidate_familes
      <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.">92 statements</a>
+    title=" 0.2% of total for procedures.">101 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_consolidate_familes
      <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_collision_consolidate_familes</li>
+     <li class="active">symba_collision_consolidate_colliders</li>
   </ol>
 </div>
 </div>
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v, mass, radius, L_spin, Ip) result(lflag)
+function symba_collision_consolidate_colliders(pl, cb, param, idx_parent, colliders) result(lflag)
     
     
    
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, 
+    <p>Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx members, 
  and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome.</p>
     
 
@@ -250,72 +250,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~12"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-cb~5"></span>class(<a href='../type/symba_cb.html'>symba_cb</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 additions</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-idx_parent"></span>integer(kind=I4B),</td>
-  <td>intent(inout),</td>
-  <td></td>
-  
-  <td>dimension(2)</td><td>::</td>
-  <td><strong>idx_parent</strong></td><td><p>Index of the two bodies considered the "parents" of the collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-family"></span>integer(kind=I4B),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(:), allocatable</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-x~12"></span>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>x</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-v~4"></span>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>v</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>cb</strong></td><td><p>SyMBA central body object</p></td>
   
 </tr>
 
@@ -325,12 +265,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mass~3"></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" id="variable-param~10"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(2)</td><td>::</td>
-  <td><strong>mass</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA additions</p></td>
   
 </tr>
 
@@ -340,27 +280,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-radius~3"></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" id="variable-idx_parent"></span>integer(kind=I4B),</td>
+  <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(2)</td><td>::</td>
-  <td><strong>radius</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-l_spin"></span>real(kind=DP),</td>
-  <td>intent(out),</td>
-  <td></td>
-  
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td><strong>idx_parent</strong></td><td><p>Index of the two bodies considered the "parents" of the collision</p></td>
   
 </tr>
 
@@ -370,12 +295,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip~3"></span>real(kind=DP),</td>
-  <td>intent(out),</td>
+  <td><span class="anchor" id="variable-colliders"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(out)</td>
   <td></td>
   
-  <td>dimension(NDIM,2)</td><td>::</td>
-  <td><strong>Ip</strong></td><td><p>Output values that represent a 2-body equivalent of a possibly 2+ body collision</p></td>
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td></td>
   
 </tr>
 
@@ -391,7 +316,7 @@ <h3>Arguments</h3>
     
    <h3>Return Value <small><span class="anchor" id="variable-lflag"></span>logical
   </small></h3>
-    <p>Logical flag indicating whether a family was successfully created or not</p>
+    <p>Logical flag indicating whether a colliders%idx was successfully created or not</p>
     
     
     <br>
@@ -407,41 +332,41 @@ <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~~symba_collision_consolidate_familes~~CallsGraph Pages: 1 -->
-<svg id="procsymba_collision_consolidate_familesCallsGraph" width="285pt" height="74pt"
- viewBox="0.00 0.00 285.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_consolidate_familes~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>proc~~symba_collision_consolidate_familes~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 281,-70 281,4 -4,4"/>
-<!-- proc~symba_collision_consolidate_familes -->
-<g id="proc~~symba_collision_consolidate_familes~~CallsGraph_node1" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<polygon fill="none" stroke="black" points="187,-45 0,-45 0,-21 187,-21 187,-45"/>
-<text text-anchor="middle" x="93.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_consolidate_familes</text>
-</g>
-<!-- idx_arr -->
-<g id="proc~~symba_collision_consolidate_familes~~CallsGraph_node2" class="node">
-<title>idx_arr</title>
-<polygon fill="#777777" stroke="#777777" points="277,-66 223,-66 223,-42 277,-42 277,-66"/>
-<text text-anchor="middle" x="250" 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_consolidate_familes~~CallsGraph_edge1" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
-<path fill="none" stroke="#000000" d="M183.03,-45.03C193.5,-46.46 203.68,-47.84 212.79,-49.08"/>
-<polygon fill="#000000" stroke="#000000" points="212.57,-52.58 222.95,-50.46 213.51,-45.64 212.57,-52.58"/>
+<!-- Title: proc~~symba_collision_consolidate_colliders~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_consolidate_collidersCallsGraph" width="291pt" height="74pt"
+ viewBox="0.00 0.00 291.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_consolidate_colliders~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~symba_collision_consolidate_colliders~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 287,-70 287,4 -4,4"/>
+<!-- proc~symba_collision_consolidate_colliders -->
+<g id="proc~~symba_collision_consolidate_colliders~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_consolidate_colliders</title>
+<polygon fill="none" stroke="black" points="193,-45 0,-45 0,-21 193,-21 193,-45"/>
+<text text-anchor="middle" x="96.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_consolidate_colliders</text>
 </g>
 <!-- id_arr -->
-<g id="proc~~symba_collision_consolidate_familes~~CallsGraph_node3" class="node">
+<g id="proc~~symba_collision_consolidate_colliders~~CallsGraph_node2" class="node">
 <title>id_arr</title>
-<polygon fill="#777777" stroke="#777777" points="277,-24 223,-24 223,0 277,0 277,-24"/>
-<text text-anchor="middle" x="250" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
+<polygon fill="#777777" stroke="#777777" points="283,-66 229,-66 229,-42 283,-42 283,-66"/>
+<text text-anchor="middle" x="256" 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_consolidate_familes~~CallsGraph_edge2" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
-<path fill="none" stroke="#000000" d="M183.03,-20.97C193.5,-19.54 203.68,-18.16 212.79,-16.92"/>
-<polygon fill="#000000" stroke="#000000" points="213.51,-20.36 222.95,-15.54 212.57,-13.42 213.51,-20.36"/>
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;id_arr -->
+<g id="proc~~symba_collision_consolidate_colliders~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M187.75,-45.03C198.64,-46.48 209.22,-47.9 218.65,-49.15"/>
+<polygon fill="#000000" stroke="#000000" points="218.39,-52.65 228.76,-50.5 219.31,-45.71 218.39,-52.65"/>
+</g>
+<!-- idx_arr -->
+<g id="proc~~symba_collision_consolidate_colliders~~CallsGraph_node3" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="283,-24 229,-24 229,0 283,0 283,-24"/>
+<text text-anchor="middle" x="256" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
+</g>
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr -->
+<g id="proc~~symba_collision_consolidate_colliders~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M187.75,-20.97C198.64,-19.52 209.22,-18.1 218.65,-16.85"/>
+<polygon fill="#000000" stroke="#000000" points="219.31,-20.29 228.76,-15.5 218.39,-13.35 219.31,-20.29"/>
 </g>
 </g>
 </svg>
@@ -518,81 +443,81 @@ <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_collision_consolidate_familes~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_collision_consolidate_familesCalledByGraph" width="641pt" height="70pt"
- viewBox="0.00 0.00 641.00 70.06" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph" class="graph" transform="scale(0.95 0.95) rotate(0) translate(4 70)">
-<title>proc~~symba_collision_consolidate_familes~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 673,-70 673,4 -4,4"/>
-<!-- proc~symba_collision_consolidate_familes -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_node1" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<polygon fill="none" stroke="black" points="669,-45 482,-45 482,-21 669,-21 669,-45"/>
-<text text-anchor="middle" x="575.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_consolidate_familes</text>
-</g>
-<!-- proc~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_node2" class="node">
-<title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_collision_consolidate_familes~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="446,-66 241,-66 241,-42 446,-42 446,-66"/>
-<text text-anchor="middle" x="343.5" y="-51.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;proc~symba_collision_consolidate_familes -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
-<path fill="none" stroke="#000000" d="M446.05,-44.73C454.61,-43.95 463.28,-43.16 471.85,-42.37"/>
-<polygon fill="#000000" stroke="#000000" points="472.22,-45.85 481.86,-41.46 471.58,-38.88 472.22,-45.85"/>
+<!-- Title: proc~~symba_collision_consolidate_colliders~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_consolidate_collidersCalledByGraph" width="641pt" height="69pt"
+ viewBox="0.00 0.00 641.00 69.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph" class="graph" transform="scale(0.94 0.94) rotate(0) translate(4 70)">
+<title>proc~~symba_collision_consolidate_colliders~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 679,-70 679,4 -4,4"/>
+<!-- proc~symba_collision_consolidate_colliders -->
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_consolidate_colliders</title>
+<polygon fill="none" stroke="black" points="675,-45 482,-45 482,-21 675,-21 675,-45"/>
+<text text-anchor="middle" x="578.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_consolidate_colliders</text>
 </g>
 <!-- proc~symba_collision_resolve_mergers -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_node3" class="node">
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_node2" class="node">
 <title>proc~symba_collision_resolve_mergers</title>
-<g id="a_proc~~symba_collision_consolidate_familes~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-24 256.5,-24 256.5,0 430.5,0 430.5,-24"/>
-<text text-anchor="middle" x="343.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+<g id="a_proc~~symba_collision_consolidate_colliders~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-66 256.5,-66 256.5,-42 430.5,-42 430.5,-66"/>
+<text text-anchor="middle" x="343.5" y="-51.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;proc~symba_collision_consolidate_familes -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes</title>
-<path fill="none" stroke="#000000" d="M430.8,-19.88C444.23,-21.11 458.23,-22.38 471.98,-23.64"/>
-<polygon fill="#000000" stroke="#000000" points="471.67,-27.13 481.95,-24.55 472.31,-20.15 471.67,-27.13"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders -->
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M430.6,-46.24C444.06,-45.03 458.09,-43.76 471.93,-42.52"/>
+<polygon fill="#000000" stroke="#000000" points="472.3,-46 481.95,-41.61 471.67,-39.02 472.3,-46"/>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_node4" class="node">
-<title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_proc~~symba_collision_consolidate_familes~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-66 0,-66 0,-42 205,-42 205,-66"/>
-<text text-anchor="middle" x="102.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_node3" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_collision_consolidate_colliders~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-24 241,-24 241,0 446,0 446,-24"/>
+<text text-anchor="middle" x="343.5" y="-9.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_collision_consolidate_familes~~CalledByGraph_edge3" 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,-54C213.7,-54 222.31,-54 230.87,-54"/>
-<polygon fill="#000000" stroke="#000000" points="230.89,-57.5 240.89,-54 230.89,-50.5 230.89,-57.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders -->
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M446.02,-21.15C454.57,-21.92 463.23,-22.7 471.81,-23.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.56,-26.97 481.83,-24.38 472.19,-19.99 471.56,-26.97"/>
 </g>
 <!-- interface~symba_collision_resolve_mergers -->
-<g id="proc~~symba_collision_consolidate_familes~~CalledByGraph_node5" class="node">
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_node4" class="node">
 <title>interface~symba_collision_resolve_mergers</title>
-<g id="a_proc~~symba_collision_consolidate_familes~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-24 15.5,-24 15.5,0 189.5,0 189.5,-24"/>
-<text text-anchor="middle" x="102.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+<g id="a_proc~~symba_collision_consolidate_colliders~~CalledByGraph_node4"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-66 15.5,-66 15.5,-42 189.5,-42 189.5,-66"/>
+<text text-anchor="middle" x="102.5" y="-51.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_collision_consolidate_familes~~CalledByGraph_edge4" class="edge">
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_edge3" 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,-12C208.06,-12 227.46,-12 246.09,-12"/>
-<polygon fill="#000000" stroke="#000000" points="246.34,-15.5 256.34,-12 246.34,-8.5 246.34,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M189.78,-54C208.06,-54 227.46,-54 246.09,-54"/>
+<polygon fill="#000000" stroke="#000000" points="246.34,-57.5 256.34,-54 246.34,-50.5 246.34,-57.5"/>
+</g>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_collision_consolidate_colliders~~CalledByGraph_node5" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_collision_consolidate_colliders~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 0,-24 0,0 205,0 205,-24"/>
+<text text-anchor="middle" x="102.5" y="-9.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_collision_consolidate_colliders~~CalledByGraph_edge4" 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,-12C213.7,-12 222.31,-12 230.87,-12"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-15.5 240.89,-12 230.89,-8.5 230.89,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var panprocsymba_collision_consolidate_familesCalledByGraph = svgPanZoom('#procsymba_collision_consolidate_familesCalledByGraph', {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><script>var panprocsymba_collision_consolidate_collidersCalledByGraph = svgPanZoom('#procsymba_collision_consolidate_collidersCalledByGraph', {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_encounter_check_pltpenc.html b/docs/proc/symba_collision_encounter_extract_collisions.html
similarity index 72%
rename from docs/proc/symba_encounter_check_pltpenc.html
rename to docs/proc/symba_collision_encounter_extract_collisions.html
index 92ae312fe..68ced20d3 100644
--- a/docs/proc/symba_encounter_check_pltpenc.html
+++ b/docs/proc/symba_collision_encounter_extract_collisions.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_encounter_check_pltpenc &ndash; swiftest</title>
+    <title>symba_collision_encounter_extract_collisions &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,8 +116,8 @@
     
   
   <div class="row">
-    <h1>symba_encounter_check_pltpenc
-      <small>Module Function</small>
+    <h1>symba_collision_encounter_extract_collisions
+      <small>Module Subroutine</small>
     
     </h1>
     
@@ -136,24 +136,24 @@ <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.1% of total for procedures.">65 statements</a>
+    title=" 0.1% of total for procedures.">40 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_encounter_check.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_encounter_check.f90.html'>symba_encounter_check.f90</a></li>
+     <li><a href='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
     
-     <li><a href='../module/s_symba_encounter_check.html'>s_symba_encounter_check</a></li>
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_encounter_check_pltpenc</li>
+     <li class="active">symba_collision_encounter_extract_collisions</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter)
+module subroutine symba_collision_encounter_extract_collisions(self, system, param)
     
     
-   <a href='../interface/symba_encounter_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_encounter_extract_collisions.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,9 +215,7 @@ <h2>
 
 
     
-    <p>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.</p>
-<p>Adapted from portions of David E. Kaufmann's Swifter routine: symba_step_recur.f90</p>
+    <p>Processes the pl-pl encounter list remove only those encounters that led to a collision</p>
     
 
     <h3>Arguments</h3>
@@ -238,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~349"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~406"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
   
 </tr>
 
@@ -253,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~111"></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>
   
@@ -268,27 +266,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~87"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-param~222"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>step size</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-irec~11"></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -298,15 +281,6 @@ <h3>Arguments</h3>
     
     
     
-    
-    
-    
-    
-   <h3>Return Value <small><span class="anchor" id="variable-lany_encounter~5"></span>logical
-  </small></h3>
-    <p>Returns true if there is at least one close encounter  </p>
-    
-    
     <br>
     
     
@@ -320,41 +294,41 @@ <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~~symba_encounter_check_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="procsymba_encounter_check_pltpencCallsGraph" width="270pt" height="74pt"
- viewBox="0.00 0.00 270.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_encounter_check_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>proc~~symba_encounter_check_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 266,-70 266,4 -4,4"/>
-<!-- proc~symba_encounter_check_pltpenc -->
-<g id="proc~~symba_encounter_check_pltpenc~~CallsGraph_node1" class="node">
-<title>proc~symba_encounter_check_pltpenc</title>
-<polygon fill="none" stroke="black" points="172,-45 0,-45 0,-21 172,-21 172,-45"/>
-<text text-anchor="middle" x="86" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check_pltpenc</text>
+<!-- Title: proc~~symba_collision_encounter_extract_collisions~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_encounter_extract_collisionsCallsGraph" width="327pt" height="74pt"
+ viewBox="0.00 0.00 327.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_encounter_extract_collisions~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~symba_collision_encounter_extract_collisions~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 323,-70 323,4 -4,4"/>
+<!-- proc~symba_collision_encounter_extract_collisions -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_encounter_extract_collisions</title>
+<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_collision_encounter_extract_collisions</text>
 </g>
-<!-- ind2 -->
-<g id="proc~~symba_encounter_check_pltpenc~~CallsGraph_node2" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="262,-66 208,-66 208,-42 262,-42 262,-66"/>
-<text text-anchor="middle" x="235" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+<!-- idx2 -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CallsGraph_node2" class="node">
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="319,-66 265,-66 265,-42 319,-42 319,-66"/>
+<text text-anchor="middle" x="292" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind2 -->
-<g id="proc~~symba_encounter_check_pltpenc~~CallsGraph_edge1" class="edge">
-<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M171.23,-45.03C180.52,-46.36 189.58,-47.65 197.79,-48.83"/>
-<polygon fill="#000000" stroke="#000000" points="197.3,-52.29 207.7,-50.24 198.29,-45.36 197.3,-52.29"/>
+<!-- proc~symba_collision_encounter_extract_collisions&#45;&gt;idx2 -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_encounter_extract_collisions&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M215.81,-45C229.68,-46.66 243.13,-48.27 254.72,-49.66"/>
+<polygon fill="#000000" stroke="#000000" points="254.46,-53.15 264.8,-50.87 255.29,-46.2 254.46,-53.15"/>
 </g>
-<!-- ind1 -->
-<g id="proc~~symba_encounter_check_pltpenc~~CallsGraph_node3" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="262,-24 208,-24 208,0 262,0 262,-24"/>
-<text text-anchor="middle" x="235" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+<!-- idx1 -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CallsGraph_node3" class="node">
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="319,-24 265,-24 265,0 319,0 319,-24"/>
+<text text-anchor="middle" x="292" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind1 -->
-<g id="proc~~symba_encounter_check_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M171.23,-20.97C180.52,-19.64 189.58,-18.35 197.79,-17.17"/>
-<polygon fill="#000000" stroke="#000000" points="198.29,-20.64 207.7,-15.76 197.3,-13.71 198.29,-20.64"/>
+<!-- proc~symba_collision_encounter_extract_collisions&#45;&gt;idx1 -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_encounter_extract_collisions&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M215.81,-21C229.68,-19.34 243.13,-17.73 254.72,-16.34"/>
+<polygon fill="#000000" stroke="#000000" points="255.29,-19.8 264.8,-15.13 254.46,-12.85 255.29,-19.8"/>
 </g>
 </g>
 </svg>
@@ -431,32 +405,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_encounter_check_pltpenc~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_encounter_check_pltpencCalledByGraph" 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="proc~~symba_encounter_check_pltpenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_encounter_check_pltpenc~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 384,-28 384,4 -4,4"/>
-<!-- proc~symba_encounter_check_pltpenc -->
-<g id="proc~~symba_encounter_check_pltpenc~~CalledByGraph_node1" class="node">
-<title>proc~symba_encounter_check_pltpenc</title>
-<polygon fill="none" stroke="black" points="380,-24 208,-24 208,0 380,0 380,-24"/>
-<text text-anchor="middle" x="294" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check_pltpenc</text>
+<!-- Title: proc~~symba_collision_encounter_extract_collisions~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_encounter_extract_collisionsCalledByGraph" width="502pt" height="32pt"
+ viewBox="0.00 0.00 502.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_encounter_extract_collisions~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_encounter_extract_collisions~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 498,-28 498,4 -4,4"/>
+<!-- proc~symba_collision_encounter_extract_collisions -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_encounter_extract_collisions</title>
+<polygon fill="none" stroke="black" 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">symba_collision_encounter_extract_collisions</text>
 </g>
-<!-- interface~symba_encounter_check_pltpenc -->
-<g id="proc~~symba_encounter_check_pltpenc~~CalledByGraph_node2" class="node">
-<title>interface~symba_encounter_check_pltpenc</title>
-<g id="a_proc~~symba_encounter_check_pltpenc~~CalledByGraph_node2"><a xlink:href=".././interface/symba_encounter_check_pltpenc.html" xlink:title="symba_encounter_check_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="172,-24 0,-24 0,0 172,0 172,-24"/>
-<text text-anchor="middle" x="86" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pltpenc</text>
+<!-- interface~symba_collision_encounter_extract_collisions -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_encounter_extract_collisions</title>
+<g id="a_proc~~symba_collision_encounter_extract_collisions~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_encounter_extract_collisions.html" xlink:title="symba_collision_encounter_extract_collisions">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">symba_collision_encounter_extract_collisions</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_pltpenc&#45;&gt;proc~symba_encounter_check_pltpenc -->
-<g id="proc~~symba_encounter_check_pltpenc~~CalledByGraph_edge1" 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="M172.28,-12C180.62,-12 189.12,-12 197.55,-12"/>
-<polygon fill="#000000" stroke="#000000" points="197.79,-15.5 207.79,-12 197.79,-8.5 197.79,-15.5"/>
+<!-- interface~symba_collision_encounter_extract_collisions&#45;&gt;proc~symba_collision_encounter_extract_collisions -->
+<g id="proc~~symba_collision_encounter_extract_collisions~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_encounter_extract_collisions&#45;&gt;proc~symba_collision_encounter_extract_collisions</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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_make_family_pl.html b/docs/proc/symba_collision_make_colliders_pl.html
similarity index 83%
rename from docs/proc/symba_collision_make_family_pl.html
rename to docs/proc/symba_collision_make_colliders_pl.html
index 268187c0e..7ff9d59d6 100644
--- a/docs/proc/symba_collision_make_family_pl.html
+++ b/docs/proc/symba_collision_make_colliders_pl.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_collision_make_family_pl &ndash; swiftest</title>
+    <title>symba_collision_make_colliders_pl &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_collision_make_family_pl
+    <h1>symba_collision_make_colliders_pl
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.1% of total for procedures.">39 statements</a>
+    title=" 0.1% of total for procedures.">38 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_make_family_pl
      <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_collision_make_family_pl</li>
+     <li class="active">symba_collision_make_colliders_pl</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_collision_make_family_pl(self, idx)
+module subroutine symba_collision_make_colliders_pl(self, idx)
     
     
-   <a href='../interface/symba_collision_make_family_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_make_colliders_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>When a single body is involved in more than one collision in a single step, it becomes part of a family.
+    <p>When a single body is involved in more than one collision in a single step, it becomes part of a colliders%idx.
  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.</p>
 <p>Adapted from David E. Kaufmann's Swifter routine symba_merge_pl.f90</p>
@@ -240,7 +240,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~337"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~407"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -255,7 +255,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-idx~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-idx~9"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -284,32 +284,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_collision_make_family_pl~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_collision_make_family_plCalledByGraph" width="380pt" height="32pt"
- viewBox="0.00 0.00 380.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_make_family_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_collision_make_family_pl~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 376,-28 376,4 -4,4"/>
-<!-- proc~symba_collision_make_family_pl -->
-<g id="proc~~symba_collision_make_family_pl~~CalledByGraph_node1" class="node">
-<title>proc~symba_collision_make_family_pl</title>
-<polygon fill="none" stroke="black" points="372,-24 204,-24 204,0 372,0 372,-24"/>
-<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_make_family_pl</text>
+<!-- Title: proc~~symba_collision_make_colliders_pl~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_make_colliders_plCalledByGraph" width="402pt" height="32pt"
+ viewBox="0.00 0.00 402.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_make_colliders_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_make_colliders_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 398,-28 398,4 -4,4"/>
+<!-- proc~symba_collision_make_colliders_pl -->
+<g id="proc~~symba_collision_make_colliders_pl~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_make_colliders_pl</title>
+<polygon fill="none" stroke="black" points="394,-24 215,-24 215,0 394,0 394,-24"/>
+<text text-anchor="middle" x="304.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_make_colliders_pl</text>
 </g>
-<!-- interface~symba_collision_make_family_pl -->
-<g id="proc~~symba_collision_make_family_pl~~CalledByGraph_node2" class="node">
-<title>interface~symba_collision_make_family_pl</title>
-<g id="a_proc~~symba_collision_make_family_pl~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_make_family_pl.html" xlink:title="symba_collision_make_family_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="168,-24 0,-24 0,0 168,0 168,-24"/>
-<text text-anchor="middle" x="84" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_family_pl</text>
+<!-- interface~symba_collision_make_colliders_pl -->
+<g id="proc~~symba_collision_make_colliders_pl~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_make_colliders_pl</title>
+<g id="a_proc~~symba_collision_make_colliders_pl~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_make_colliders_pl.html" xlink:title="symba_collision_make_colliders_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="179,-24 0,-24 0,0 179,0 179,-24"/>
+<text text-anchor="middle" x="89.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_colliders_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_make_family_pl&#45;&gt;proc~symba_collision_make_family_pl -->
-<g id="proc~~symba_collision_make_family_pl~~CalledByGraph_edge1" 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="M168.04,-12C176.56,-12 185.26,-12 193.89,-12"/>
-<polygon fill="#000000" stroke="#000000" points="193.96,-15.5 203.96,-12 193.96,-8.5 193.96,-15.5"/>
+<!-- interface~symba_collision_make_colliders_pl&#45;&gt;proc~symba_collision_make_colliders_pl -->
+<g id="proc~~symba_collision_make_colliders_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_make_colliders_pl&#45;&gt;proc~symba_collision_make_colliders_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M179.29,-12C187.65,-12 196.16,-12 204.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="204.86,-15.5 214.86,-12 204.85,-8.5 204.86,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_mergeaddsub.html b/docs/proc/symba_collision_mergeaddsub.html
new file mode 100644
index 000000000..3955706e5
--- /dev/null
+++ b/docs/proc/symba_collision_mergeaddsub.html
@@ -0,0 +1,768 @@
+<!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_collision_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_collision_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.">126 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
+    
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
+    
+  
+     <li class="active">symba_collision_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_collision_mergeaddsub(system, param, colliders, 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~11"></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 additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-colliders~2"></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object        </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-frag"></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragmentation system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~4"></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">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_collision_mergeaddsub~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_mergeaddsubCallsGraph" width="298pt" height="32pt"
+ viewBox="0.00 0.00 298.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_mergeaddsub~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_mergeaddsub~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 294,-28 294,4 -4,4"/>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_mergeaddsub~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_mergeaddsub</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_collision_mergeaddsub</text>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="proc~~symba_collision_mergeaddsub~~CallsGraph_node2" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="290,-24 196,-24 196,0 290,0 290,-24"/>
+<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="proc~~symba_collision_mergeaddsub~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M160.09,-12C168.7,-12 177.33,-12 185.59,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.82,-15.5 195.82,-12 185.82,-8.5 185.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">
+    <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_collision_mergeaddsub~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_mergeaddsubCalledByGraph" width="641pt" height="71pt"
+ viewBox="0.00 0.00 641.00 70.95" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph" class="graph" transform="scale(0.61 0.61) rotate(0) translate(4 112)">
+<title>proc~~symba_collision_mergeaddsub~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1044,-112 1044,4 -4,4"/>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<polygon fill="none" stroke="black" points="1040,-66 880,-66 880,-42 1040,-42 1040,-66"/>
+<text text-anchor="middle" x="960" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_mergeaddsub</text>
+</g>
+<!-- proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node2" class="node">
+<title>proc~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node2"><a xlink:href=".././proc/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="843,-24 682,-24 682,0 843,0 843,-24"/>
+<text text-anchor="middle" x="762.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M819.52,-24.04C842.43,-28.96 869.1,-34.69 892.94,-39.81"/>
+<polygon fill="#000000" stroke="#000000" points="892.46,-43.28 902.97,-41.96 893.93,-36.44 892.46,-43.28"/>
+</g>
+<!-- proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node3" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node3"><a xlink:href=".././proc/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="844,-66 681,-66 681,-42 844,-42 844,-66"/>
+<text text-anchor="middle" x="762.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M844.15,-54C852.52,-54 861.07,-54 869.53,-54"/>
+<polygon fill="#000000" stroke="#000000" points="869.8,-57.5 879.8,-54 869.8,-50.5 869.8,-57.5"/>
+</g>
+<!-- proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node4" class="node">
+<title>proc~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node4"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="836,-108 689,-108 689,-84 836,-84 836,-108"/>
+<text text-anchor="middle" x="762.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge3" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M819.52,-83.96C842.43,-79.04 869.1,-73.31 892.94,-68.19"/>
+<polygon fill="#000000" stroke="#000000" points="893.93,-71.56 902.97,-66.04 892.46,-64.72 893.93,-71.56"/>
+</g>
+<!-- interface~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node5" class="node">
+<title>interface~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node5"><a xlink:href=".././interface/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="645,-66 482,-66 482,-42 645,-42 645,-66"/>
+<text text-anchor="middle" x="563.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.2,-54C653.67,-54 662.33,-54 670.91,-54"/>
+<polygon fill="#000000" stroke="#000000" points="670.93,-57.5 680.93,-54 670.93,-50.5 670.93,-57.5"/>
+</g>
+<!-- interface~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node6" class="node">
+<title>interface~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node6"><a xlink:href=".././interface/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="644,-24 483,-24 483,0 644,0 644,-24"/>
+<text text-anchor="middle" x="563.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge4" class="edge">
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.06,-12C653.23,-12 662.64,-12 671.93,-12"/>
+<polygon fill="#000000" stroke="#000000" points="671.96,-15.5 681.96,-12 671.96,-8.5 671.96,-15.5"/>
+</g>
+<!-- interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node7" class="node">
+<title>interface~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node7"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="637,-108 490,-108 490,-84 637,-84 637,-108"/>
+<text text-anchor="middle" x="563.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge6" class="edge">
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.02,-96C650.61,-96 664.92,-96 678.8,-96"/>
+<polygon fill="#000000" stroke="#000000" points="678.81,-99.5 688.81,-96 678.81,-92.5 678.81,-99.5"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node8" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node8"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-108 256.5,-108 256.5,-84 430.5,-84 430.5,-108"/>
+<text text-anchor="middle" x="343.5" y="-93.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_collision_casemerge -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge9" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M430.66,-96C446.77,-96 463.57,-96 479.58,-96"/>
+<polygon fill="#000000" stroke="#000000" points="479.97,-99.5 489.97,-96 479.97,-92.5 479.97,-99.5"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node9" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node9"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-66 241,-66 241,-42 446,-42 446,-66"/>
+<text text-anchor="middle" x="343.5" y="-51.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_collision_casedisruption -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge7" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M446.16,-54C454.68,-54 463.27,-54 471.7,-54"/>
+<polygon fill="#000000" stroke="#000000" points="471.9,-57.5 481.9,-54 471.9,-50.5 471.9,-57.5"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge8" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M406.97,-41.96C432.85,-36.98 463.05,-31.16 489.91,-25.99"/>
+<polygon fill="#000000" stroke="#000000" points="490.86,-29.37 500.02,-24.04 489.54,-22.49 490.86,-29.37"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_edge10" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M406.97,-66.04C432.85,-71.02 463.05,-76.84 489.91,-82.01"/>
+<polygon fill="#000000" stroke="#000000" points="489.54,-85.51 500.02,-83.96 490.86,-78.63 489.54,-85.51"/>
+</g>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node10" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node10"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-108 15.5,-108 15.5,-84 189.5,-84 189.5,-108"/>
+<text text-anchor="middle" x="102.5" y="-93.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_collision_mergeaddsub~~CalledByGraph_edge11" 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,-96C208.06,-96 227.46,-96 246.09,-96"/>
+<polygon fill="#000000" stroke="#000000" points="246.34,-99.5 256.34,-96 246.34,-92.5 246.34,-99.5"/>
+</g>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_collision_mergeaddsub~~CalledByGraph_node11" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_collision_mergeaddsub~~CalledByGraph_node11"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-66 0,-66 0,-42 205,-42 205,-66"/>
+<text text-anchor="middle" x="102.5" y="-51.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_collision_mergeaddsub~~CalledByGraph_edge12" 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,-54C213.7,-54 222.31,-54 230.87,-54"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-57.5 240.89,-54 230.89,-50.5 230.89,-57.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocsymba_collision_mergeaddsubCalledByGraph = svgPanZoom('#procsymba_collision_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_collision_resolve_fragmentations.html b/docs/proc/symba_collision_resolve_fragmentations.html
index ad70491ea..e1f5f388d 100644
--- a/docs/proc/symba_collision_resolve_fragmentations.html
+++ b/docs/proc/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.2% of total for procedures.">69 statements</a>
+    title=" 0.1% of total for procedures.">40 statements</a>
      </li> 
      
      
@@ -216,14 +216,6 @@ <h2>
 
     
     <p>Process list of collisions, determine the collisional regime, and then create fragments.</p>
-<p>The collective mass of the parent and its children
- The collective radius of the parent and its children
- The position of the parent from inside the step (at collision)
- The velocity of the parent from inside the step (at collision)
- The position of the parent from inside the step (at collision)
- The velocity of the parent from inside the step (at collision)
- The collective density of the parent and its children
- Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime</p>
     
 
     <h3>Arguments</h3>
@@ -244,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~338"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-self~408"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -259,7 +251,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~108"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -274,8 +266,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~223"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -303,268 +295,271 @@ <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="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)">
+<svg id="procsymba_collision_resolve_fragmentationsCallsGraph" width="641pt" height="199pt"
+ viewBox="0.00 0.00 641.00 198.68" 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.65 0.65) rotate(0) translate(4 301)">
 <title>proc~~symba_collision_resolve_fragmentations~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-322 963,-322 963,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301 980,-301 980,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>
+<polygon fill="none" stroke="black" points="205,-150 0,-150 0,-126 205,-126 205,-150"/>
+<text text-anchor="middle" x="102.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_fragmentations</text>
 </g>
-<!-- idx2 -->
+<!-- proc~symba_collision_consolidate_colliders -->
 <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>
+<title>proc~symba_collision_consolidate_colliders</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_consolidate_colliders.html" xlink:title="symba_collision_consolidate_colliders">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="434,-276 241,-276 241,-252 434,-252 434,-276"/>
+<text text-anchor="middle" x="337.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_colliders</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders -->
 <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"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M115.53,-150.2C138.03,-172.29 188.96,-218.86 241,-243 245.65,-245.15 250.52,-247.09 255.51,-248.84"/>
+<polygon fill="#000000" stroke="#000000" points="254.62,-252.23 265.21,-251.95 256.76,-245.56 254.62,-252.23"/>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<!-- idx2 -->
 <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_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>
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="364.5,-234 310.5,-234 310.5,-210 364.5,-210 364.5,-234"/>
+<text text-anchor="middle" x="337.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
-<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="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"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M125.77,-150C152.48,-163.97 198.92,-186.91 241,-201 260.2,-207.43 282.23,-212.42 300.3,-215.93"/>
+<polygon fill="#000000" stroke="#000000" points="299.68,-219.37 310.15,-217.77 300.96,-212.49 299.68,-219.37"/>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
+<!-- idx1 -->
 <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>
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="364.5,-192 310.5,-192 310.5,-168 364.5,-168 364.5,-192"/>
+<text text-anchor="middle" x="337.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- 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;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"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M170.27,-150.04C212.56,-157.66 265.61,-167.22 300.25,-173.47"/>
+<polygon fill="#000000" stroke="#000000" points="299.91,-176.96 310.37,-175.29 301.15,-170.07 299.91,-176.96"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_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>
+<title>interface~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node5"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="411,-66 264,-66 264,-42 411,-42 411,-66"/>
+<text text-anchor="middle" x="337.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_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"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M125.77,-126C152.48,-112.03 198.92,-89.09 241,-75 248.05,-72.64 255.49,-70.47 262.97,-68.5"/>
+<polygon fill="#000000" stroke="#000000" points="263.96,-71.86 272.8,-66.02 262.24,-65.07 263.96,-71.86"/>
 </g>
-<!-- idx1 -->
+<!-- interface~symba_collision_casedisruption -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node6" class="node">
-<title>idx1</title>
-<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>
+<title>interface~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node6"><a xlink:href=".././interface/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="419,-108 256,-108 256,-84 419,-84 419,-108"/>
+<text text-anchor="middle" x="337.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge5" class="edge">
-<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"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" d="M170.27,-125.96C198.18,-120.93 230.77,-115.06 259.67,-109.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.5,-113.26 269.72,-108.04 259.26,-106.37 260.5,-113.26"/>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun -->
+<!-- interface~symba_collision_casehitandrun -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node7" class="node">
-<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>
+<title>interface~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node7"><a xlink:href=".././interface/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="418,-150 257,-150 257,-126 418,-126 418,-150"/>
+<text text-anchor="middle" x="337.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_collision_casehitandrun -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge6" 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;interface~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M205.02,-138C218.8,-138 232.86,-138 246.42,-138"/>
+<polygon fill="#000000" stroke="#000000" points="246.68,-141.5 256.68,-138 246.68,-134.5 246.68,-141.5"/>
 </g>
 <!-- util_exit -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node8" 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>
+<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>
 </g>
 <!-- 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;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"/>
+<path fill="none" stroke="#000000" d="M115.53,-125.8C138.03,-103.71 188.96,-57.14 241,-33 259.62,-24.36 281.96,-19.2 300.35,-16.15"/>
+<polygon fill="#000000" stroke="#000000" points="301.03,-19.59 310.39,-14.63 299.98,-12.67 301.03,-19.59"/>
 </g>
-<!-- interface~symba_fragmentation_casedisruption -->
+<!-- id_arr -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node9" class="node">
-<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>
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="578.5,-255 524.5,-255 524.5,-231 578.5,-231 578.5,-255"/>
+<text text-anchor="middle" x="551.5" y="-240.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;id_arr -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge8" 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"/>
-</g>
-<!-- proc~symba_fragmentation_casesupercatastrophic -->
-<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_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>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M434.27,-254.51C462.56,-251.71 491.83,-248.81 513.92,-246.62"/>
+<polygon fill="#000000" stroke="#000000" points="514.54,-250.08 524.15,-245.61 513.85,-243.11 514.54,-250.08"/>
 </g>
+<!-- idx_arr -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node12" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="578.5,-297 524.5,-297 524.5,-273 578.5,-273 578.5,-297"/>
+<text text-anchor="middle" x="551.5" y="-282.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr -->
 <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,-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"/>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M434.27,-273.49C462.56,-276.29 491.83,-279.19 513.92,-281.38"/>
+<polygon fill="#000000" stroke="#000000" points="513.85,-284.89 524.15,-282.39 514.54,-277.92 513.85,-284.89"/>
 </g>
-<!-- id_arr -->
+<!-- proc~symba_collision_casemerge -->
 <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"/>
+<title>proc~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node13"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="625,-66 478,-66 478,-42 625,-42 625,-66"/>
+<text text-anchor="middle" x="551.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
+</a>
 </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 -->
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
 <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"/>
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.16,-54C429.37,-54 449.03,-54 467.69,-54"/>
+<polygon fill="#000000" stroke="#000000" points="467.93,-57.5 477.93,-54 467.93,-50.5 467.93,-57.5"/>
+</g>
+<!-- proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node11" class="node">
+<title>proc~symba_collision_casedisruption</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node11"><a xlink:href=".././proc/symba_collision_casedisruption.html" xlink:title="symba_collision_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="633,-108 470,-108 470,-84 633,-84 633,-108"/>
+<text text-anchor="middle" x="551.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge11" class="edge">
+<title>interface~symba_collision_casedisruption&#45;&gt;proc~symba_collision_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.25,-96C432.49,-96 446.29,-96 459.76,-96"/>
+<polygon fill="#000000" stroke="#000000" points="459.97,-99.5 469.97,-96 459.97,-92.5 459.97,-99.5"/>
 </g>
-<!-- proc~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_casehitandrun -->
 <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>
+<title>proc~symba_collision_casehitandrun</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node10"><a xlink:href=".././proc/symba_collision_casehitandrun.html" xlink:title="symba_collision_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="632,-150 471,-150 471,-126 632,-126 632,-150"/>
+<text text-anchor="middle" x="551.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun -->
 <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"/>
+<title>interface~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.04,-138C431.94,-138 446.49,-138 460.64,-138"/>
+<polygon fill="#000000" stroke="#000000" points="460.86,-141.5 470.86,-138 460.86,-134.5 460.86,-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_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>
+<!-- proc~symba_collision_collider_message -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node14" class="node">
+<title>proc~symba_collision_collider_message</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node14"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="846,-150 669,-150 669,-126 846,-126 846,-150"/>
+<text text-anchor="middle" x="757.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message -->
 <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"/>
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M632.25,-138C640.84,-138 649.66,-138 658.44,-138"/>
+<polygon fill="#000000" stroke="#000000" points="658.71,-141.5 668.71,-138 658.71,-134.5 658.71,-141.5"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption -->
-<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_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>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node15" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node15"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="837.5,-108 677.5,-108 677.5,-84 837.5,-84 837.5,-108"/>
+<text text-anchor="middle" x="757.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
+<!-- proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub -->
 <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>
-<!-- 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>
+<title>proc~symba_collision_casehitandrun&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M610.96,-125.96C635.07,-121 663.18,-115.21 688.24,-110.05"/>
+<polygon fill="#000000" stroke="#000000" points="688.94,-113.48 698.03,-108.04 687.53,-106.63 688.94,-113.48"/>
 </g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node16" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="834.5,-66 680.5,-66 680.5,-42 834.5,-42 834.5,-66"/>
+<text text-anchor="middle" x="757.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </g>
-<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message -->
 <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"/>
+<title>proc~symba_collision_casehitandrun&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M614.76,-125.9C621.16,-123.46 627.37,-120.52 633,-117 653.85,-103.97 648.03,-87.83 669,-75 671.96,-73.19 675.05,-71.54 678.25,-70.03"/>
+<polygon fill="#000000" stroke="#000000" points="679.62,-73.25 687.48,-66.14 676.9,-66.8 679.62,-73.25"/>
 </g>
-<!-- fragmentation_initialize -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node16" class="node">
-<title>fragmentation_initialize</title>
-<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 -->
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message -->
 <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="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"/>
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M610.96,-108.04C635.07,-113 663.18,-118.79 688.24,-123.95"/>
+<polygon fill="#000000" stroke="#000000" points="687.53,-127.37 698.03,-125.96 688.94,-120.52 687.53,-127.37"/>
 </g>
-<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_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"/>
+<title>proc~symba_collision_casedisruption&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M633.13,-96C644.3,-96 655.82,-96 667.14,-96"/>
+<polygon fill="#000000" stroke="#000000" points="667.46,-99.5 677.46,-96 667.46,-92.5 667.46,-99.5"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
+<!-- proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message -->
 <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="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"/>
+<title>proc~symba_collision_casedisruption&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M610.96,-83.96C635.07,-79 663.18,-73.21 688.24,-68.05"/>
+<polygon fill="#000000" stroke="#000000" points="688.94,-71.48 698.03,-66.04 687.53,-64.63 688.94,-71.48"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M614.76,-66.1C621.16,-68.54 627.37,-71.48 633,-75 653.85,-88.03 648.03,-104.17 669,-117 671.96,-118.81 675.05,-120.46 678.25,-121.97"/>
+<polygon fill="#000000" stroke="#000000" points="676.9,-125.2 687.48,-125.86 679.62,-118.75 676.9,-125.2"/>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M610.96,-66.04C635.07,-71 663.18,-76.79 688.24,-81.95"/>
+<polygon fill="#000000" stroke="#000000" points="687.53,-85.37 698.03,-83.96 688.94,-78.52 687.53,-85.37"/>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M625.28,-54C639.79,-54 655.15,-54 670.06,-54"/>
+<polygon fill="#000000" stroke="#000000" points="670.3,-57.5 680.3,-54 670.3,-50.5 670.3,-57.5"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node17" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="976,-108 882,-108 882,-84 976,-84 976,-108"/>
+<text text-anchor="middle" x="929" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge22" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M837.79,-96C849.15,-96 860.64,-96 871.45,-96"/>
+<polygon fill="#000000" stroke="#000000" points="871.57,-99.5 881.57,-96 871.57,-92.5 871.57,-99.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_resolve_mergers.html b/docs/proc/symba_collision_resolve_mergers.html
index 056e80560..5abac636f 100644
--- a/docs/proc/symba_collision_resolve_mergers.html
+++ b/docs/proc/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.1% of total for procedures.">26 statements</a>
+    title=" 0.1% of total for procedures.">34 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~339"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-self~409"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,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~109"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,8 +266,8 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <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><span class="anchor" id="variable-param~224"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -295,124 +295,163 @@ <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="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)">
+<svg id="procsymba_collision_resolve_mergersCallsGraph" width="641pt" height="151pt"
+ viewBox="0.00 0.00 641.00 151.19" 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.68 0.68) rotate(0) translate(4 217)">
 <title>proc~~symba_collision_resolve_mergers~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 836,-154 836,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-217 933,-217 933,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>
-<polygon fill="none" stroke="black" points="174,-87 0,-87 0,-63 174,-63 174,-87"/>
-<text text-anchor="middle" x="87" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_mergers</text>
+<polygon fill="none" stroke="black" points="174,-129 0,-129 0,-105 174,-105 174,-129"/>
+<text text-anchor="middle" x="87" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_mergers</text>
 </g>
-<!-- idx1 -->
+<!-- proc~symba_collision_consolidate_colliders -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node2" class="node">
-<title>idx1</title>
-<polygon fill="#777777" stroke="#777777" points="330.5,-150 276.5,-150 276.5,-126 330.5,-126 330.5,-150"/>
-<text text-anchor="middle" x="303.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<title>proc~symba_collision_consolidate_colliders</title>
+<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node2"><a xlink:href=".././proc/symba_collision_consolidate_colliders.html" xlink:title="symba_collision_consolidate_colliders">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="403,-192 210,-192 210,-168 403,-168 403,-192"/>
+<text text-anchor="middle" x="306.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_colliders</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
-<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"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_colliders</title>
+<path fill="none" stroke="#000000" d="M119.79,-129.07C144.23,-138.07 178.95,-150.27 210,-159 218.31,-161.34 227.09,-163.57 235.82,-165.66"/>
+<polygon fill="#000000" stroke="#000000" points="235.1,-169.08 245.63,-167.94 236.69,-162.27 235.1,-169.08"/>
 </g>
 <!-- idx2 -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node3" class="node">
 <title>idx2</title>
-<polygon fill="#777777" stroke="#777777" points="330.5,-108 276.5,-108 276.5,-84 330.5,-84 330.5,-108"/>
-<text text-anchor="middle" x="303.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<polygon fill="#777777" stroke="#777777" points="333.5,-150 279.5,-150 279.5,-126 333.5,-126 333.5,-150"/>
+<text text-anchor="middle" x="306.5" y="-135.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="proc~~symba_collision_resolve_mergers~~CallsGraph_edge2" class="edge">
 <title>proc~symba_collision_resolve_mergers&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M174.01,-83.42C206.03,-86.56 240.69,-89.95 265.93,-92.42"/>
-<polygon fill="#000000" stroke="#000000" points="265.84,-95.93 276.13,-93.42 266.52,-88.96 265.84,-95.93"/>
+<path fill="none" stroke="#000000" d="M174.27,-125.33C207.21,-128.51 243.03,-131.97 268.91,-134.47"/>
+<polygon fill="#000000" stroke="#000000" points="268.72,-137.96 279.01,-135.44 269.39,-131 268.72,-137.96"/>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
+<!-- idx1 -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node4" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="397,-66 210,-66 210,-42 397,-42 397,-66"/>
-<text text-anchor="middle" x="303.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
-</a>
-</g>
+<title>idx1</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">idx1</text>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes -->
-<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"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
+<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="M174.27,-108.67C207.21,-105.49 243.03,-102.03 268.91,-99.53"/>
+<polygon fill="#000000" stroke="#000000" points="269.39,-103 279.01,-98.56 268.72,-96.04 269.39,-103"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casemerge -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node5" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node5"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#a7506f" stroke="#a7506f" points="391,-24 216,-24 216,0 391,0 391,-24"/>
-<text text-anchor="middle" x="303.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<title>interface~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node5"><a xlink:href=".././interface/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="380,-66 233,-66 233,-42 380,-42 380,-66"/>
+<text text-anchor="middle" x="306.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge4" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M119.81,-62.99C144.25,-54.02 178.98,-41.83 210,-33 218.08,-30.7 226.62,-28.48 235.11,-26.4"/>
-<polygon fill="#000000" stroke="#000000" points="236.1,-29.76 245.02,-24.03 234.48,-22.96 236.1,-29.76"/>
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" d="M119.79,-104.93C144.23,-95.93 178.95,-83.73 210,-75 218.31,-72.66 227.09,-70.43 235.82,-68.34"/>
+<polygon fill="#000000" stroke="#000000" points="236.69,-71.73 245.63,-66.06 235.1,-64.92 236.69,-71.73"/>
 </g>
-<!-- idx_arr -->
-<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node7" class="node">
-<title>idx_arr</title>
-<polygon fill="#777777" stroke="#777777" points="547.5,-108 493.5,-108 493.5,-84 547.5,-84 547.5,-108"/>
-<text text-anchor="middle" x="520.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
+<!-- id_arr -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node6" class="node">
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="539.5,-213 485.5,-213 485.5,-189 539.5,-189 539.5,-213"/>
+<text text-anchor="middle" x="512.5" y="-198.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;id_arr -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge5" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
-<path fill="none" stroke="#000000" d="M366.11,-66.04C404.01,-73.44 451.29,-82.68 483.26,-88.92"/>
-<polygon fill="#000000" stroke="#000000" points="483,-92.44 493.48,-90.92 484.34,-85.57 483,-92.44"/>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M403.23,-189.85C428.97,-192.5 455.24,-195.21 475.46,-197.29"/>
+<polygon fill="#000000" stroke="#000000" points="475.15,-200.78 485.45,-198.32 475.86,-193.81 475.15,-200.78"/>
 </g>
-<!-- id_arr -->
-<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node8" class="node">
-<title>id_arr</title>
-<polygon fill="#777777" stroke="#777777" points="547.5,-66 493.5,-66 493.5,-42 547.5,-42 547.5,-66"/>
-<text text-anchor="middle" x="520.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
+<!-- idx_arr -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node7" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="539.5,-171 485.5,-171 485.5,-147 539.5,-147 539.5,-171"/>
+<text text-anchor="middle" x="512.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+<!-- proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge6" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
-<path fill="none" stroke="#000000" d="M397.24,-54C427.59,-54 459.55,-54 483.18,-54"/>
-<polygon fill="#000000" stroke="#000000" points="483.41,-57.5 493.41,-54 483.41,-50.5 483.41,-57.5"/>
+<title>proc~symba_collision_consolidate_colliders&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M403.23,-170.15C428.97,-167.5 455.24,-164.79 475.46,-162.71"/>
+<polygon fill="#000000" stroke="#000000" points="475.86,-166.19 485.45,-161.68 475.15,-159.22 475.86,-166.19"/>
 </g>
-<!-- proc~symba_fragmentation_casemerge -->
-<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node6" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node6"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="608,-24 433,-24 433,0 608,0 608,-24"/>
-<text text-anchor="middle" x="520.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- proc~symba_collision_casemerge -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node8" class="node">
+<title>proc~symba_collision_casemerge</title>
+<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node8"><a xlink:href=".././proc/symba_collision_casemerge.html" xlink:title="symba_collision_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="586,-66 439,-66 439,-42 586,-42 586,-66"/>
+<text text-anchor="middle" x="512.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_casemerge</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<!-- interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge7" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<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"/>
+<title>interface~symba_collision_casemerge&#45;&gt;proc~symba_collision_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M380.28,-54C395.87,-54 412.44,-54 428.38,-54"/>
+<polygon fill="#000000" stroke="#000000" points="428.74,-57.5 438.74,-54 428.74,-50.5 428.74,-57.5"/>
 </g>
-<!-- proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_collider_message -->
 <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>
+<title>proc~symba_collision_collider_message</title>
+<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node9"><a xlink:href=".././proc/symba_collision_collider_message.html" xlink:title="symba_collision_collider_message">
+<polygon fill="#d9534f" stroke="#d9534f" points="799,-108 622,-108 622,-84 799,-84 799,-108"/>
+<text text-anchor="middle" x="710.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_collider_message</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message -->
 <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"/>
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_collider_message</title>
+<path fill="none" stroke="#000000" d="M569.67,-66.04C592.63,-70.96 619.37,-76.69 643.27,-81.81"/>
+<polygon fill="#000000" stroke="#000000" points="642.81,-85.29 653.33,-83.96 644.28,-78.45 642.81,-85.29"/>
+</g>
+<!-- proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node10" class="node">
+<title>proc~symba_collision_mergeaddsub</title>
+<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node10"><a xlink:href=".././proc/symba_collision_mergeaddsub.html" xlink:title="symba_collision_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="790.5,-66 630.5,-66 630.5,-42 790.5,-42 790.5,-66"/>
+<text text-anchor="middle" x="710.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge9" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;proc~symba_collision_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M586.2,-54C597.21,-54 608.68,-54 620,-54"/>
+<polygon fill="#000000" stroke="#000000" points="620.33,-57.5 630.33,-54 620.33,-50.5 620.33,-57.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node11" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="787.5,-24 633.5,-24 633.5,0 787.5,0 787.5,-24"/>
+<text text-anchor="middle" x="710.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge10" class="edge">
+<title>proc~symba_collision_casemerge&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M569.67,-41.96C592.63,-37.04 619.37,-31.31 643.27,-26.19"/>
+<polygon fill="#000000" stroke="#000000" points="644.28,-29.55 653.33,-24.04 642.81,-22.71 644.28,-29.55"/>
+</g>
+<!-- fraggle_io_log_pl -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node12" class="node">
+<title>fraggle_io_log_pl</title>
+<polygon fill="#777777" stroke="#777777" points="929,-66 835,-66 835,-42 929,-42 929,-66"/>
+<text text-anchor="middle" x="882" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_pl</text>
+</g>
+<!-- proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge11" class="edge">
+<title>proc~symba_collision_mergeaddsub&#45;&gt;fraggle_io_log_pl</title>
+<path fill="none" stroke="#000000" d="M790.79,-54C802.15,-54 813.64,-54 824.45,-54"/>
+<polygon fill="#000000" stroke="#000000" points="824.57,-57.5 834.57,-54 824.57,-50.5 824.57,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_encounter_scrub.html b/docs/proc/symba_collision_resolve_plplenc.html
similarity index 77%
rename from docs/proc/symba_collision_encounter_scrub.html
rename to docs/proc/symba_collision_resolve_plplenc.html
index 75b9605d3..f922e6195 100644
--- a/docs/proc/symba_collision_encounter_scrub.html
+++ b/docs/proc/symba_collision_resolve_plplenc.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_collision_encounter_scrub &ndash; swiftest</title>
+    <title>symba_collision_resolve_plplenc &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_collision_encounter_scrub
+    <h1>symba_collision_resolve_plplenc
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.1% of total for procedures.">40 statements</a>
+    title=" 0.1% of total for procedures.">57 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_collision_encounter_scrub
      <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
     
   
-     <li class="active">symba_collision_encounter_scrub</li>
+     <li class="active">symba_collision_resolve_plplenc</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_collision_encounter_scrub(self, system, param)
+module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec)
     
     
-   <a href='../interface/symba_collision_encounter_scrub.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_collision_resolve_plplenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>Processes the pl-pl encounter list remove only those encounters that led to a collision</p>
+    <p>Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the collision</p>
     
 
     <h3>Arguments</h3>
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~336"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-self~410"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~99"></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>
   
@@ -266,12 +266,57 @@ <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~225"></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 with SyMBA additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~66"></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>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~90"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Current simulation step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~12"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
   
 </tr>
 
@@ -294,41 +339,29 @@ <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~~symba_collision_encounter_scrub~~CallsGraph Pages: 1 -->
-<svg id="procsymba_collision_encounter_scrubCallsGraph" width="272pt" height="74pt"
- viewBox="0.00 0.00 272.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_encounter_scrub~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>proc~~symba_collision_encounter_scrub~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 268,-70 268,4 -4,4"/>
-<!-- proc~symba_collision_encounter_scrub -->
-<g id="proc~~symba_collision_encounter_scrub~~CallsGraph_node1" class="node">
-<title>proc~symba_collision_encounter_scrub</title>
-<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>
-<!-- idx2 -->
-<g id="proc~~symba_collision_encounter_scrub~~CallsGraph_node2" class="node">
-<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">idx2</text>
-</g>
-<!-- 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;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"/>
+<!-- Title: proc~~symba_collision_resolve_plplenc~~CallsGraph Pages: 1 -->
+<svg id="procsymba_collision_resolve_plplencCallsGraph" width="366pt" height="32pt"
+ viewBox="0.00 0.00 366.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_resolve_plplenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_resolve_plplenc~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 362,-28 362,4 -4,4"/>
+<!-- proc~symba_collision_resolve_plplenc -->
+<g id="proc~~symba_collision_resolve_plplenc~~CallsGraph_node1" class="node">
+<title>proc~symba_collision_resolve_plplenc</title>
+<polygon fill="none" stroke="black" points="168,-24 0,-24 0,0 168,0 168,-24"/>
+<text text-anchor="middle" x="84" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_plplenc</text>
 </g>
-<!-- idx1 -->
-<g id="proc~~symba_collision_encounter_scrub~~CallsGraph_node3" class="node">
-<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">idx1</text>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_resolve_plplenc~~CallsGraph_node2" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="358,-24 204,-24 204,0 358,0 358,-24"/>
+<text text-anchor="middle" x="281" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
 </g>
-<!-- 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;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"/>
+<!-- proc~symba_collision_resolve_plplenc&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_collision_resolve_plplenc~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_plplenc&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M168.26,-12C176.65,-12 185.19,-12 193.61,-12"/>
+<polygon fill="#000000" stroke="#000000" points="193.81,-15.5 203.81,-12 193.81,-8.5 193.81,-15.5"/>
 </g>
 </g>
 </svg>
@@ -405,32 +438,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_collision_encounter_scrub~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_collision_encounter_scrubCalledByGraph" width="392pt" height="32pt"
- viewBox="0.00 0.00 392.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_encounter_scrub~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_collision_encounter_scrub~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 388,-28 388,4 -4,4"/>
-<!-- proc~symba_collision_encounter_scrub -->
-<g id="proc~~symba_collision_encounter_scrub~~CalledByGraph_node1" class="node">
-<title>proc~symba_collision_encounter_scrub</title>
-<polygon fill="none" stroke="black" points="384,-24 210,-24 210,0 384,0 384,-24"/>
-<text text-anchor="middle" x="297" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_encounter_scrub</text>
+<!-- Title: proc~~symba_collision_resolve_plplenc~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_resolve_plplencCalledByGraph" width="380pt" height="32pt"
+ viewBox="0.00 0.00 380.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_resolve_plplenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_resolve_plplenc~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 376,-28 376,4 -4,4"/>
+<!-- proc~symba_collision_resolve_plplenc -->
+<g id="proc~~symba_collision_resolve_plplenc~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_resolve_plplenc</title>
+<polygon fill="none" stroke="black" points="372,-24 204,-24 204,0 372,0 372,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_plplenc</text>
 </g>
-<!-- interface~symba_collision_encounter_scrub -->
-<g id="proc~~symba_collision_encounter_scrub~~CalledByGraph_node2" class="node">
-<title>interface~symba_collision_encounter_scrub</title>
-<g id="a_proc~~symba_collision_encounter_scrub~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_encounter_scrub.html" xlink:title="symba_collision_encounter_scrub">
-<polygon fill="#a7506f" stroke="#a7506f" points="174,-24 0,-24 0,0 174,0 174,-24"/>
-<text text-anchor="middle" x="87" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_scrub</text>
+<!-- interface~symba_collision_resolve_plplenc -->
+<g id="proc~~symba_collision_resolve_plplenc~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_resolve_plplenc</title>
+<g id="a_proc~~symba_collision_resolve_plplenc~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_resolve_plplenc.html" xlink:title="symba_collision_resolve_plplenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="168,-24 0,-24 0,0 168,0 168,-24"/>
+<text text-anchor="middle" x="84" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_plplenc</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_encounter_scrub&#45;&gt;proc~symba_collision_encounter_scrub -->
-<g id="proc~~symba_collision_encounter_scrub~~CalledByGraph_edge1" 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="M174.1,-12C182.62,-12 191.3,-12 199.91,-12"/>
-<polygon fill="#000000" stroke="#000000" points="199.96,-15.5 209.96,-12 199.96,-8.5 199.96,-15.5"/>
+<!-- interface~symba_collision_resolve_plplenc&#45;&gt;proc~symba_collision_resolve_plplenc -->
+<g id="proc~~symba_collision_resolve_plplenc~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_resolve_plplenc&#45;&gt;proc~symba_collision_resolve_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.04,-12C176.56,-12 185.26,-12 193.89,-12"/>
+<polygon fill="#000000" stroke="#000000" points="193.96,-15.5 203.96,-12 193.96,-8.5 193.96,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_resolve_pltpenc.html b/docs/proc/symba_collision_resolve_pltpenc.html
new file mode 100644
index 000000000..05f27d41f
--- /dev/null
+++ b/docs/proc/symba_collision_resolve_pltpenc.html
@@ -0,0 +1,540 @@
+<!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_collision_resolve_pltpenc &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_collision_resolve_pltpenc
+      <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.0% of total for procedures.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_collision.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_collision.f90.html'>symba_collision.f90</a></li>
+    
+     <li><a href='../module/s_symba_collision.html'>s_symba_collision</a></li>
+    
+  
+     <li class="active">symba_collision_resolve_pltpenc</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_collision_resolve_pltpenc(self, system, param, t, dt, irec)
+    
+    
+   <a href='../interface/symba_collision_resolve_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision</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-self~411"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>
+  
+  <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~226"></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 with SyMBA additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~67"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation tim</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~91"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Current simulation step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~13"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</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_collision_resolve_pltpenc~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_collision_resolve_pltpencCalledByGraph" width="382pt" height="32pt"
+ viewBox="0.00 0.00 382.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_resolve_pltpenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_collision_resolve_pltpenc~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 378,-28 378,4 -4,4"/>
+<!-- proc~symba_collision_resolve_pltpenc -->
+<g id="proc~~symba_collision_resolve_pltpenc~~CalledByGraph_node1" class="node">
+<title>proc~symba_collision_resolve_pltpenc</title>
+<polygon fill="none" stroke="black" points="374,-24 205,-24 205,0 374,0 374,-24"/>
+<text text-anchor="middle" x="289.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_pltpenc</text>
+</g>
+<!-- interface~symba_collision_resolve_pltpenc -->
+<g id="proc~~symba_collision_resolve_pltpenc~~CalledByGraph_node2" class="node">
+<title>interface~symba_collision_resolve_pltpenc</title>
+<g id="a_proc~~symba_collision_resolve_pltpenc~~CalledByGraph_node2"><a xlink:href=".././interface/symba_collision_resolve_pltpenc.html" xlink:title="symba_collision_resolve_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="169,-24 0,-24 0,0 169,0 169,-24"/>
+<text text-anchor="middle" x="84.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_pltpenc</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_resolve_pltpenc&#45;&gt;proc~symba_collision_resolve_pltpenc -->
+<g id="proc~~symba_collision_resolve_pltpenc~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_collision_resolve_pltpenc&#45;&gt;proc~symba_collision_resolve_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.24,-12C177.72,-12 186.37,-12 194.94,-12"/>
+<polygon fill="#000000" stroke="#000000" points="194.95,-15.5 204.95,-12 194.95,-8.5 194.95,-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_discard_cb_pl.html b/docs/proc/symba_discard_cb_pl.html
index 553393e6f..4cad09239 100644
--- a/docs/proc/symba_discard_cb_pl.html
+++ b/docs/proc/symba_discard_cb_pl.html
@@ -136,7 +136,7 @@ <h1>symba_discard_cb_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.">41 statements</a>
+    title=" 0.1% of total for procedures.">66 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~5"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~6"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~14"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~12"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -287,6 +287,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_discard_cb_pl~~CallsGraph Pages: 1 -->
+<svg id="procsymba_discard_cb_plCallsGraph" width="314pt" height="32pt"
+ viewBox="0.00 0.00 314.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_discard_cb_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_discard_cb_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 310,-28 310,4 -4,4"/>
+<!-- proc~symba_discard_cb_pl -->
+<g id="proc~~symba_discard_cb_pl~~CallsGraph_node1" class="node">
+<title>proc~symba_discard_cb_pl</title>
+<polygon fill="none" stroke="black" points="116,-24 0,-24 0,0 116,0 116,-24"/>
+<text text-anchor="middle" x="58" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_discard_cb_pl</text>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_discard_cb_pl~~CallsGraph_node2" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="306,-24 152,-24 152,0 306,0 306,-24"/>
+<text text-anchor="middle" x="229" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_discard_cb_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M116.22,-12C124.47,-12 133.12,-12 141.8,-12"/>
+<polygon fill="#000000" stroke="#000000" points="141.97,-15.5 151.97,-12 141.97,-8.5 141.97,-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_discard_conserve_mtm.html b/docs/proc/symba_discard_conserve_mtm.html
index e8ff69ed6..c5c1faf0b 100644
--- a/docs/proc/symba_discard_conserve_mtm.html
+++ b/docs/proc/symba_discard_conserve_mtm.html
@@ -136,7 +136,7 @@ <h1>symba_discard_conserve_mtm
      <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.">78 statements</a>
+    title=" 0.1% of total for procedures.">78 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~6"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~7"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -264,7 +264,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~15"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~13"></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 e31acc2bf..426c1c471 100644
--- a/docs/proc/symba_discard_nonplpl.html
+++ b/docs/proc/symba_discard_nonplpl.html
@@ -136,7 +136,7 @@ <h1>symba_discard_nonplpl
      <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.">30 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~7"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~8"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~16"></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>
   
@@ -295,11 +295,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_discard_nonplpl~~CallsGraph Pages: 1 -->
-<svg id="procsymba_discard_nonplplCallsGraph" width="285pt" height="32pt"
- viewBox="0.00 0.00 285.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="procsymba_discard_nonplplCallsGraph" width="475pt" height="32pt"
+ viewBox="0.00 0.00 475.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="proc~~symba_discard_nonplpl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>proc~~symba_discard_nonplpl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 281,-28 281,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 471,-28 471,4 -4,4"/>
 <!-- proc~symba_discard_nonplpl -->
 <g id="proc~~symba_discard_nonplpl~~CallsGraph_node1" class="node">
 <title>proc~symba_discard_nonplpl</title>
@@ -321,6 +321,18 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M125.01,-12C133.38,-12 142.02,-12 150.49,-12"/>
 <polygon fill="#000000" stroke="#000000" points="150.72,-15.5 160.72,-12 150.72,-8.5 150.72,-15.5"/>
 </g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_discard_nonplpl~~CallsGraph_node3" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="467,-24 313,-24 313,0 467,0 467,-24"/>
+<text text-anchor="middle" x="390" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_discard_nonplpl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M277.22,-12C285.47,-12 294.12,-12 302.8,-12"/>
+<polygon fill="#000000" stroke="#000000" points="302.97,-15.5 312.97,-12 302.97,-8.5 302.97,-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/symba_discard_nonplpl_conservation.html b/docs/proc/symba_discard_nonplpl_conservation.html
index 4c94867b6..72e4cec65 100644
--- a/docs/proc/symba_discard_nonplpl_conservation.html
+++ b/docs/proc/symba_discard_nonplpl_conservation.html
@@ -136,7 +136,7 @@ <h1>symba_discard_nonplpl_conservation
      <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.">28 statements</a>
      </li> 
      
      
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~8"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~9"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -265,7 +265,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~17"></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_peri_pl.html b/docs/proc/symba_discard_peri_pl.html
index 08c5b97cf..24c16ec0c 100644
--- a/docs/proc/symba_discard_peri_pl.html
+++ b/docs/proc/symba_discard_peri_pl.html
@@ -136,7 +136,7 @@ <h1>symba_discard_peri_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.">31 statements</a>
+    title=" 0.1% of total for procedures.">35 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~9"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~10"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~18"></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_pl.html b/docs/proc/symba_discard_pl.html
index 29bb2de80..6b8c927b1 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.">40 statements</a>
+    title=" 0.1% of total for procedures.">33 statements</a>
      </li> 
      
      
@@ -215,8 +215,7 @@ <h2>
 
 
     
-    <p>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.</p>
+    <p>Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colliding with the central body or escaping the system</p>
     
 
     <h3>Arguments</h3>
@@ -237,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~354"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~427"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~115"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~118"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +266,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~234"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -296,65 +295,77 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_discard_pl~~CallsGraph Pages: 1 -->
-<svg id="procsymba_discard_plCallsGraph" width="487pt" height="74pt"
- viewBox="0.00 0.00 487.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_discard_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="procsymba_discard_plCallsGraph" width="641pt" height="70pt"
+ viewBox="0.00 0.00 641.00 70.06" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_discard_pl~~CallsGraph" class="graph" transform="scale(0.95 0.95) rotate(0) translate(4 70)">
 <title>proc~~symba_discard_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 483,-70 483,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 673,-70 673,4 -4,4"/>
 <!-- proc~symba_discard_pl -->
 <g id="proc~~symba_discard_pl~~CallsGraph_node1" class="node">
 <title>proc~symba_discard_pl</title>
 <polygon fill="none" stroke="black" points="99,-45 0,-45 0,-21 99,-21 99,-45"/>
 <text text-anchor="middle" x="49.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_discard_pl</text>
 </g>
-<!-- proc~symba_discard_nonplpl -->
+<!-- proc~symba_discard_nonplpl_conservation -->
 <g id="proc~~symba_discard_pl~~CallsGraph_node2" class="node">
-<title>proc~symba_discard_nonplpl</title>
-<g id="a_proc~~symba_discard_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
-<polygon fill="#d9534f" stroke="#d9534f" points="293.5,-66 168.5,-66 168.5,-42 293.5,-42 293.5,-66"/>
-<text text-anchor="middle" x="231" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
+<title>proc~symba_discard_nonplpl_conservation</title>
+<g id="a_proc~~symba_discard_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
+<polygon fill="#d9534f" stroke="#d9534f" points="327,-66 135,-66 135,-42 327,-42 327,-66"/>
+<text text-anchor="middle" x="231" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
 <g id="proc~~symba_discard_pl~~CallsGraph_edge1" class="edge">
-<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
-<path fill="none" stroke="#000000" d="M99.08,-38.68C117.28,-40.81 138.38,-43.28 158.25,-45.61"/>
-<polygon fill="#000000" stroke="#000000" points="157.85,-49.08 168.19,-46.77 158.67,-42.13 157.85,-49.08"/>
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
+<path fill="none" stroke="#000000" d="M99.08,-38.68C107.15,-39.63 115.79,-40.64 124.63,-41.67"/>
+<polygon fill="#000000" stroke="#000000" points="124.35,-45.16 134.69,-42.85 125.17,-38.21 124.35,-45.16"/>
 </g>
-<!-- proc~symba_discard_nonplpl_conservation -->
+<!-- proc~symba_discard_nonplpl -->
 <g id="proc~~symba_discard_pl~~CallsGraph_node3" class="node">
-<title>proc~symba_discard_nonplpl_conservation</title>
-<g id="a_proc~~symba_discard_pl~~CallsGraph_node3"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
-<polygon fill="#d9534f" stroke="#d9534f" points="327,-24 135,-24 135,0 327,0 327,-24"/>
-<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
+<title>proc~symba_discard_nonplpl</title>
+<g id="a_proc~~symba_discard_pl~~CallsGraph_node3"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="293.5,-24 168.5,-24 168.5,0 293.5,0 293.5,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
 <g id="proc~~symba_discard_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
-<path fill="none" stroke="#000000" d="M99.08,-27.32C107.15,-26.37 115.79,-25.36 124.63,-24.33"/>
-<polygon fill="#000000" stroke="#000000" points="125.17,-27.79 134.69,-23.15 124.35,-20.84 125.17,-27.79"/>
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
+<path fill="none" stroke="#000000" d="M99.08,-27.32C117.28,-25.19 138.38,-22.72 158.25,-20.39"/>
+<polygon fill="#000000" stroke="#000000" points="158.67,-23.87 168.19,-19.23 157.85,-16.92 158.67,-23.87"/>
 </g>
 <!-- proc~symba_discard_cb_pl -->
 <g id="proc~~symba_discard_pl~~CallsGraph_node4" class="node">
 <title>proc~symba_discard_cb_pl</title>
 <g id="a_proc~~symba_discard_pl~~CallsGraph_node4"><a xlink:href=".././proc/symba_discard_cb_pl.html" xlink:title="symba_discard_cb_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="479,-66 363,-66 363,-42 479,-42 479,-66"/>
-<text text-anchor="middle" x="421" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="479,-24 363,-24 363,0 479,0 479,-24"/>
+<text text-anchor="middle" x="421" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl -->
 <g id="proc~~symba_discard_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl</title>
-<path fill="none" stroke="#000000" d="M293.56,-54C312.44,-54 333.31,-54 352.56,-54"/>
-<polygon fill="#000000" stroke="#000000" points="352.76,-57.5 362.76,-54 352.76,-50.5 352.76,-57.5"/>
+<path fill="none" stroke="#000000" d="M293.56,-12C312.44,-12 333.31,-12 352.56,-12"/>
+<polygon fill="#000000" stroke="#000000" points="352.76,-15.5 362.76,-12 352.76,-8.5 352.76,-15.5"/>
+</g>
+<!-- fraggle_io_log_one_message -->
+<g id="proc~~symba_discard_pl~~CallsGraph_node5" class="node">
+<title>fraggle_io_log_one_message</title>
+<polygon fill="#777777" stroke="#777777" points="669,-24 515,-24 515,0 669,0 669,-24"/>
+<text text-anchor="middle" x="592" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_one_message</text>
+</g>
+<!-- proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message -->
+<g id="proc~~symba_discard_pl~~CallsGraph_edge4" class="edge">
+<title>proc~symba_discard_cb_pl&#45;&gt;fraggle_io_log_one_message</title>
+<path fill="none" stroke="#000000" d="M479.22,-12C487.47,-12 496.12,-12 504.8,-12"/>
+<polygon fill="#000000" stroke="#000000" points="504.97,-15.5 514.97,-12 504.97,-8.5 504.97,-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_discard_plCallsGraph = svgPanZoom('#procsymba_discard_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"
diff --git a/docs/proc/symba_drift_pl.html b/docs/proc/symba_drift_pl.html
index 940db3181..b67b2bf76 100644
--- a/docs/proc/symba_drift_pl.html
+++ b/docs/proc/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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~360"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~433"></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~116"></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>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~205"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~239"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~92"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~99"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_drift_tp.html b/docs/proc/symba_drift_tp.html
index 481a86f2e..1cf903a76 100644
--- a/docs/proc/symba_drift_tp.html
+++ b/docs/proc/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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~361"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~434"></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~117"></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>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~206"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~240"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~93"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~100"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_encounter_check.html b/docs/proc/symba_encounter_check.html
new file mode 100644
index 000000000..259f261e9
--- /dev/null
+++ b/docs/proc/symba_encounter_check.html
@@ -0,0 +1,521 @@
+<!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_encounter_check &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_encounter_check
+      <small>Module Function</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.">65 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_encounter_check.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_encounter_check.f90.html'>symba_encounter_check.f90</a></li>
+    
+     <li><a href='../module/s_symba_encounter_check.html'>s_symba_encounter_check</a></li>
+    
+  
+     <li class="active">symba_encounter_check</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 function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
+    
+    
+   <a href='../interface/symba_encounter_check.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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.</p>
+<p>Adapted from portions of David E. Kaufmann's Swifter routine: symba_step_recur.f90</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-self~422"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~116"></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-dt~94"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~16"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+    
+    
+    
+   <h3>Return Value <small><span class="anchor" id="variable-lany_encounter~5"></span>logical
+  </small></h3>
+    <p>Returns true if there is at least one close encounter  </p>
+    
+    
+    <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_encounter_check~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_encounter_checkCalledByGraph" width="308pt" height="32pt"
+ viewBox="0.00 0.00 308.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_encounter_check~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_encounter_check~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 304,-28 304,4 -4,4"/>
+<!-- proc~symba_encounter_check -->
+<g id="proc~~symba_encounter_check~~CalledByGraph_node1" class="node">
+<title>proc~symba_encounter_check</title>
+<polygon fill="none" stroke="black" points="300,-24 168,-24 168,0 300,0 300,-24"/>
+<text text-anchor="middle" x="234" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check</text>
+</g>
+<!-- interface~symba_encounter_check -->
+<g id="proc~~symba_encounter_check~~CalledByGraph_node2" class="node">
+<title>interface~symba_encounter_check</title>
+<g id="a_proc~~symba_encounter_check~~CalledByGraph_node2"><a xlink:href=".././interface/symba_encounter_check.html" xlink:title="symba_encounter_check">
+<polygon fill="#a7506f" stroke="#a7506f" points="132,-24 0,-24 0,0 132,0 132,-24"/>
+<text text-anchor="middle" x="66" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_encounter_check&#45;&gt;proc~symba_encounter_check -->
+<g id="proc~~symba_encounter_check~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_encounter_check&#45;&gt;proc~symba_encounter_check</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-12C140.46,-12 149.04,-12 157.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="157.78,-15.5 167.78,-12 157.78,-8.5 157.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>
+
+    <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_encounter_check_all.html b/docs/proc/symba_encounter_check_all.html
new file mode 100644
index 000000000..768d7bd88
--- /dev/null
+++ b/docs/proc/symba_encounter_check_all.html
@@ -0,0 +1,598 @@
+<!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_encounter_check_all &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_encounter_check_all
+      <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.0% of total for procedures.">29 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_encounter_check.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_encounter_check.f90.html'>symba_encounter_check.f90</a></li>
+    
+     <li><a href='../module/s_symba_encounter_check.html'>s_symba_encounter_check</a></li>
+    
+  
+     <li class="active">symba_encounter_check_all</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_encounter_check_all(nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Check for encounters between massive bodies. Split off from the main subroutine for performance</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-nplplm~2"></span>integer(kind=I8B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nplplm</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_plpl~2"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>k_plpl</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x~11"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>x</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>v</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rhill~2"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>rhill</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~17"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lencounter~2"></span>logical,</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lencounter</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-loc_lvdotr"></span>logical,</td>
+  <td>intent(out),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>loc_lvdotr</strong></td><td></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_encounter_check_all~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_encounter_check_allCalledByGraph" width="520pt" height="32pt"
+ viewBox="0.00 0.00 520.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_encounter_check_all~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_encounter_check_all~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 516,-28 516,4 -4,4"/>
+<!-- proc~symba_encounter_check_all -->
+<g id="proc~~symba_encounter_check_all~~CalledByGraph_node1" class="node">
+<title>proc~symba_encounter_check_all</title>
+<polygon fill="none" stroke="black" points="512,-24 364,-24 364,0 512,0 512,-24"/>
+<text text-anchor="middle" x="438" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check_all</text>
+</g>
+<!-- proc~symba_encounter_check_pl -->
+<g id="proc~~symba_encounter_check_all~~CalledByGraph_node2" class="node">
+<title>proc~symba_encounter_check_pl</title>
+<g id="a_proc~~symba_encounter_check_all~~CalledByGraph_node2"><a xlink:href=".././proc/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="328,-24 182,-24 182,0 328,0 328,-24"/>
+<text text-anchor="middle" x="255" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all -->
+<g id="proc~~symba_encounter_check_all~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all</title>
+<path fill="none" stroke="#000000" d="M328.06,-12C336.49,-12 345.14,-12 353.71,-12"/>
+<polygon fill="#000000" stroke="#000000" points="353.71,-15.5 363.71,-12 353.71,-8.5 353.71,-15.5"/>
+</g>
+<!-- interface~symba_encounter_check_pl -->
+<g id="proc~~symba_encounter_check_all~~CalledByGraph_node3" class="node">
+<title>interface~symba_encounter_check_pl</title>
+<g id="a_proc~~symba_encounter_check_all~~CalledByGraph_node3"><a xlink:href=".././interface/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.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 -->
+<g id="proc~~symba_encounter_check_all~~CalledByGraph_edge2" 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="M146.18,-12C154.52,-12 163.08,-12 171.54,-12"/>
+<polygon fill="#000000" stroke="#000000" points="171.81,-15.5 181.81,-12 171.81,-8.5 171.81,-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_encounter_check_one.html b/docs/proc/symba_encounter_check_one.html
index acd5f5650..b48505c92 100644
--- a/docs/proc/symba_encounter_check_one.html
+++ b/docs/proc/symba_encounter_check_one.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xr~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xr~7"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-yr~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-yr~7"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-zr~3"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-zr~7"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~89"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~96"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~13"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~18"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lencounter~4"></span>logical,</td>
+  <td><span class="anchor" id="variable-lencounter~5"></span>logical,</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/symba_encounter_check_pl.html b/docs/proc/symba_encounter_check_pl.html
index 85ad7732e..bbf3495b6 100644
--- a/docs/proc/symba_encounter_check_pl.html
+++ b/docs/proc/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.1% of total for procedures.">41 statements</a>
+    title=" 0.1% of total for procedures.">47 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~348"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~421"></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~110"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~115"></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-dt~86"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~93"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~15"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -308,6 +308,107 @@ <h3>Return Value <small><span class="anchor" id="variable-lany_encounter~4"></sp
     <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_encounter_check_pl~~CallsGraph Pages: 1 -->
+<svg id="procsymba_encounter_check_plCallsGraph" width="338pt" height="32pt"
+ viewBox="0.00 0.00 338.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_encounter_check_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_encounter_check_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 334,-28 334,4 -4,4"/>
+<!-- proc~symba_encounter_check_pl -->
+<g id="proc~~symba_encounter_check_pl~~CallsGraph_node1" class="node">
+<title>proc~symba_encounter_check_pl</title>
+<polygon fill="none" stroke="black" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check_pl</text>
+</g>
+<!-- proc~symba_encounter_check_all -->
+<g id="proc~~symba_encounter_check_pl~~CallsGraph_node2" class="node">
+<title>proc~symba_encounter_check_all</title>
+<g id="a_proc~~symba_encounter_check_pl~~CallsGraph_node2"><a xlink:href=".././proc/symba_encounter_check_all.html" xlink:title="symba_encounter_check_all">
+<polygon fill="#d9534f" stroke="#d9534f" points="330,-24 182,-24 182,0 330,0 330,-24"/>
+<text text-anchor="middle" x="256" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_all</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all -->
+<g id="proc~~symba_encounter_check_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_all</title>
+<path fill="none" stroke="#000000" d="M146.06,-12C154.49,-12 163.14,-12 171.71,-12"/>
+<polygon fill="#000000" stroke="#000000" points="171.71,-15.5 181.71,-12 171.71,-8.5 171.71,-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_encounter_check_tp.html b/docs/proc/symba_encounter_check_tp.html
index 4afafe4b1..e4c926077 100644
--- a/docs/proc/symba_encounter_check_tp.html
+++ b/docs/proc/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.1% of total for procedures.">44 statements</a>
+    title=" 0.1% of total for procedures.">54 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~350"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~423"></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~112"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~117"></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-dt~88"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~95"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-irec~12"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-irec~17"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_fragmentation_mergeaddsub.html b/docs/proc/symba_fragmentation_mergeaddsub.html
deleted file mode 100644
index 42ca554e2..000000000
--- a/docs/proc/symba_fragmentation_mergeaddsub.html
+++ /dev/null
@@ -1,796 +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_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_param_reader.html b/docs/proc/symba_io_param_reader.html
index 36ab41f5d..278a1dd10 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.">88 statements</a>
+    title=" 0.1% of total for procedures.">92 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~351"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~424"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -343,52 +343,64 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_io_param_reader~~CallsGraph Pages: 1 -->
-<svg id="procsymba_io_param_readerCallsGraph" width="272pt" height="116pt"
- viewBox="0.00 0.00 272.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_io_param_reader~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<svg id="procsymba_io_param_readerCallsGraph" width="284pt" height="158pt"
+ viewBox="0.00 0.00 284.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_io_param_reader~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
 <title>proc~~symba_io_param_reader~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 268,-112 268,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 280,-154 280,4 -4,4"/>
 <!-- proc~symba_io_param_reader -->
 <g id="proc~~symba_io_param_reader~~CallsGraph_node1" class="node">
 <title>proc~symba_io_param_reader</title>
-<polygon fill="none" stroke="black" points="133,-66 0,-66 0,-42 133,-42 133,-66"/>
-<text text-anchor="middle" x="66.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_param_reader</text>
+<polygon fill="none" stroke="black" points="133,-87 0,-87 0,-63 133,-63 133,-87"/>
+<text text-anchor="middle" x="66.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_param_reader</text>
 </g>
-<!-- io_toupper -->
+<!-- fraggle_io_log_start -->
 <g id="proc~~symba_io_param_reader~~CallsGraph_node2" class="node">
-<title>io_toupper</title>
-<polygon fill="#777777" stroke="#777777" points="248.5,-108 184.5,-108 184.5,-84 248.5,-84 248.5,-108"/>
-<text text-anchor="middle" x="216.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<title>fraggle_io_log_start</title>
+<polygon fill="#777777" stroke="#777777" points="276,-150 169,-150 169,-126 276,-126 276,-150"/>
+<text text-anchor="middle" x="222.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io_log_start</text>
 </g>
-<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+<!-- proc~symba_io_param_reader&#45;&gt;fraggle_io_log_start -->
 <g id="proc~~symba_io_param_reader~~CallsGraph_edge1" class="edge">
-<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
-<path fill="none" stroke="#000000" d="M109.91,-66.04C130.22,-71.8 154.45,-78.67 174.57,-84.38"/>
-<polygon fill="#000000" stroke="#000000" points="173.8,-87.8 184.37,-87.17 175.71,-81.07 173.8,-87.8"/>
+<title>proc~symba_io_param_reader&#45;&gt;fraggle_io_log_start</title>
+<path fill="none" stroke="#000000" d="M96.34,-87.04C116.63,-95.49 144.45,-107.01 169,-117 173.15,-118.69 177.49,-120.44 181.83,-122.19"/>
+<polygon fill="#000000" stroke="#000000" points="180.63,-125.48 191.21,-125.96 183.24,-118.98 180.63,-125.48"/>
 </g>
 <!-- io_param_reader -->
 <g id="proc~~symba_io_param_reader~~CallsGraph_node3" class="node">
 <title>io_param_reader</title>
-<polygon fill="#777777" stroke="#777777" points="264,-66 169,-66 169,-42 264,-42 264,-66"/>
-<text text-anchor="middle" x="216.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<polygon fill="#777777" stroke="#777777" points="270,-108 175,-108 175,-84 270,-84 270,-108"/>
+<text text-anchor="middle" x="222.5" y="-93.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="proc~~symba_io_param_reader~~CallsGraph_edge2" class="edge">
 <title>proc~symba_io_param_reader&#45;&gt;io_param_reader</title>
-<path fill="none" stroke="#000000" d="M133.28,-54C141.84,-54 150.55,-54 158.94,-54"/>
-<polygon fill="#000000" stroke="#000000" points="158.99,-57.5 168.99,-54 158.99,-50.5 158.99,-57.5"/>
+<path fill="none" stroke="#000000" d="M133.26,-83.97C143.68,-85.39 154.38,-86.85 164.58,-88.24"/>
+<polygon fill="#000000" stroke="#000000" points="164.2,-91.72 174.58,-89.6 165.15,-84.78 164.2,-91.72"/>
 </g>
-<!-- io_get_token -->
+<!-- io_toupper -->
 <g id="proc~~symba_io_param_reader~~CallsGraph_node4" class="node">
+<title>io_toupper</title>
+<polygon fill="#777777" stroke="#777777" points="254.5,-66 190.5,-66 190.5,-42 254.5,-42 254.5,-66"/>
+<text text-anchor="middle" x="222.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+</g>
+<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+<g id="proc~~symba_io_param_reader~~CallsGraph_edge3" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
+<path fill="none" stroke="#000000" d="M133.26,-66.03C149.18,-63.86 165.75,-61.6 180.18,-59.63"/>
+<polygon fill="#000000" stroke="#000000" points="180.83,-63.08 190.27,-58.26 179.89,-56.14 180.83,-63.08"/>
+</g>
+<!-- io_get_token -->
+<g id="proc~~symba_io_param_reader~~CallsGraph_node5" class="node">
 <title>io_get_token</title>
-<polygon fill="#777777" stroke="#777777" points="253.5,-24 179.5,-24 179.5,0 253.5,0 253.5,-24"/>
-<text text-anchor="middle" x="216.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<polygon fill="#777777" stroke="#777777" points="259.5,-24 185.5,-24 185.5,0 259.5,0 259.5,-24"/>
+<text text-anchor="middle" x="222.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </g>
 <!-- proc~symba_io_param_reader&#45;&gt;io_get_token -->
-<g id="proc~~symba_io_param_reader~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_io_param_reader~~CallsGraph_edge4" class="edge">
 <title>proc~symba_io_param_reader&#45;&gt;io_get_token</title>
-<path fill="none" stroke="#000000" d="M109.91,-41.96C128.53,-36.68 150.44,-30.46 169.46,-25.07"/>
-<polygon fill="#000000" stroke="#000000" points="170.44,-28.43 179.11,-22.33 168.53,-21.69 170.44,-28.43"/>
+<path fill="none" stroke="#000000" d="M96.34,-62.96C116.63,-54.51 144.45,-42.99 169,-33 173.15,-31.31 177.49,-29.56 181.83,-27.81"/>
+<polygon fill="#000000" stroke="#000000" points="183.24,-31.02 191.21,-24.04 180.63,-24.52 183.24,-31.02"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_io_param_writer.html b/docs/proc/symba_io_param_writer.html
index f670be1d6..6012da0d2 100644
--- a/docs/proc/symba_io_param_writer.html
+++ b/docs/proc/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.1% of total for procedures.">51 statements</a>
+    title=" 0.1% of total for procedures.">54 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~352"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~425"></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_read_particle.html b/docs/proc/symba_io_read_particle.html
deleted file mode 100644
index fc08d6f16..000000000
--- a/docs/proc/symba_io_read_particle.html
+++ /dev/null
@@ -1,608 +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_read_particle &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_read_particle
-      <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.">59 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_read_particle</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_read_particle(system, param)
-    
-    
-   <a href='../interface/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
-   
-</h2>
-    
-  
-
-
-    
-    <p>Reads an old particle information file for a restartd run</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~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>system</strong></td><td><p>SyMBA nbody system file</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <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 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_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">
-  <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_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>
-<!-- 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>
-<!-- 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><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"
- "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_write_discard.html b/docs/proc/symba_io_write_discard.html
index 46ba77396..2bf1282a3 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.">65 statements</a>
+    title=" 0.1% of total for procedures.">80 statements</a>
      </li> 
      
      
@@ -232,7 +232,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~353"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~426"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -247,8 +247,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-param~233"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
diff --git a/docs/proc/symba_kick_encounter.html b/docs/proc/symba_kick_encounter.html
new file mode 100644
index 000000000..8886c4df0
--- /dev/null
+++ b/docs/proc/symba_kick_encounter.html
@@ -0,0 +1,528 @@
+<!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_kick_encounter &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_kick_encounter
+      <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.2% of total for procedures.">123 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_kick.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_kick.f90.html'>symba_kick.f90</a></li>
+    
+     <li><a href='../module/s_symba_kick.html'>s_symba_kick</a></li>
+    
+  
+     <li class="active">symba_kick_encounter</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_kick_encounter(self, system, dt, irec, sgn)
+    
+    
+   <a href='../interface/symba_kick_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>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</p>
+<p>Adapted from David E. Kaufmann's Swifter routine: symba_kick.f90
+ Adapted from Hal Levison's Swift routine symba5_kick.f</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-self~420"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <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>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dt~92"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-irec~14"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-sgn~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>sgn</strong></td><td><p>sign to be applied to acceleration</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_kick_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_kick_encounterCalledByGraph" 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="proc~~symba_kick_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_kick_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
+<!-- proc~symba_kick_encounter -->
+<g id="proc~~symba_kick_encounter~~CalledByGraph_node1" class="node">
+<title>proc~symba_kick_encounter</title>
+<polygon fill="none" stroke="black" 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">symba_kick_encounter</text>
+</g>
+<!-- interface~symba_kick_encounter -->
+<g id="proc~~symba_kick_encounter~~CalledByGraph_node2" class="node">
+<title>interface~symba_kick_encounter</title>
+<g id="a_proc~~symba_kick_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/symba_kick_encounter.html" xlink:title="symba_kick_encounter">
+<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">symba_kick_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_kick_encounter&#45;&gt;proc~symba_kick_encounter -->
+<g id="proc~~symba_kick_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_kick_encounter&#45;&gt;proc~symba_kick_encounter</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"/>
+</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_int_pl.html b/docs/proc/symba_kick_getacch_int_pl.html
new file mode 100644
index 000000000..af1cb502f
--- /dev/null
+++ b/docs/proc/symba_kick_getacch_int_pl.html
@@ -0,0 +1,565 @@
+<!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_kick_getacch_int_pl &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_kick_getacch_int_pl
+      <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.0% of total for procedures.">6 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_kick.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_kick.f90.html'>symba_kick.f90</a></li>
+    
+     <li><a href='../module/s_symba_kick.html'>s_symba_kick</a></li>
+    
+  
+     <li class="active">symba_kick_getacch_int_pl</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_kick_getacch_int_pl(self)
+    
+    
+   <a href='../interface/symba_kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY</p>
+<p>Adapted from Hal Levison's Swift routine symba5_helio_getacch.f
+ Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_int.f90</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-self~417"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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_kick_getacch_int_pl~~CallsGraph Pages: 1 -->
+<svg id="procsymba_kick_getacch_int_plCallsGraph" width="309pt" height="32pt"
+ viewBox="0.00 0.00 309.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_kick_getacch_int_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_kick_getacch_int_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 305,-28 305,4 -4,4"/>
+<!-- proc~symba_kick_getacch_int_pl -->
+<g id="proc~~symba_kick_getacch_int_pl~~CallsGraph_node1" class="node">
+<title>proc~symba_kick_getacch_int_pl</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_kick_getacch_int_pl</text>
+</g>
+<!-- kick_getacch_int_all_pl -->
+<g id="proc~~symba_kick_getacch_int_pl~~CallsGraph_node2" class="node">
+<title>kick_getacch_int_all_pl</title>
+<polygon fill="#777777" stroke="#777777" points="301,-24 179,-24 179,0 301,0 301,-24"/>
+<text text-anchor="middle" x="240" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</g>
+<!-- proc~symba_kick_getacch_int_pl&#45;&gt;kick_getacch_int_all_pl -->
+<g id="proc~~symba_kick_getacch_int_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_kick_getacch_int_pl&#45;&gt;kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M143.11,-12C151.55,-12 160.18,-12 168.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="168.8,-15.5 178.8,-12 168.8,-8.5 168.8,-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">
+  <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_kick_getacch_int_pl~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_kick_getacch_int_plCalledByGraph" 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_kick_getacch_int_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_kick_getacch_int_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
+<!-- proc~symba_kick_getacch_int_pl -->
+<g id="proc~~symba_kick_getacch_int_pl~~CalledByGraph_node1" class="node">
+<title>proc~symba_kick_getacch_int_pl</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_kick_getacch_int_pl</text>
+</g>
+<!-- interface~symba_kick_getacch_int_pl -->
+<g id="proc~~symba_kick_getacch_int_pl~~CalledByGraph_node2" class="node">
+<title>interface~symba_kick_getacch_int_pl</title>
+<g id="a_proc~~symba_kick_getacch_int_pl~~CalledByGraph_node2"><a xlink:href=".././interface/symba_kick_getacch_int_pl.html" xlink:title="symba_kick_getacch_int_pl">
+<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_kick_getacch_int_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_kick_getacch_int_pl&#45;&gt;proc~symba_kick_getacch_int_pl -->
+<g id="proc~~symba_kick_getacch_int_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_kick_getacch_int_pl&#45;&gt;proc~symba_kick_getacch_int_pl</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"/>
+</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 e4f13438b..a5d8c2aec 100644
--- a/docs/proc/symba_kick_getacch_pl.html
+++ b/docs/proc/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.1% of total for procedures.">30 statements</a>
+    title=" 0.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~345"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~418"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~103"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~112"></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~192"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~231"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~60"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~68"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~29"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~31"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -327,28 +327,40 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_kick_getacch_pl~~CallsGraph Pages: 1 -->
-<svg id="procsymba_kick_getacch_plCallsGraph" width="287pt" height="32pt"
- viewBox="0.00 0.00 287.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_kick_getacch_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_kick_getacch_plCallsGraph" width="292pt" height="74pt"
+ viewBox="0.00 0.00 292.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_kick_getacch_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~symba_kick_getacch_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 283,-28 283,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 288,-70 288,4 -4,4"/>
 <!-- proc~symba_kick_getacch_pl -->
 <g id="proc~~symba_kick_getacch_pl~~CallsGraph_node1" class="node">
 <title>proc~symba_kick_getacch_pl</title>
-<polygon fill="none" stroke="black" points="126,-24 0,-24 0,0 126,0 126,-24"/>
-<text text-anchor="middle" x="63" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_getacch_pl</text>
+<polygon fill="none" stroke="black" points="126,-45 0,-45 0,-21 126,-21 126,-45"/>
+<text text-anchor="middle" x="63" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick_getacch_pl</text>
 </g>
-<!-- helio_kick_getacch_pl -->
+<!-- kick_getacch_int_all_pl -->
 <g id="proc~~symba_kick_getacch_pl~~CallsGraph_node2" class="node">
+<title>kick_getacch_int_all_pl</title>
+<polygon fill="#777777" stroke="#777777" points="284,-66 162,-66 162,-42 284,-42 284,-66"/>
+<text text-anchor="middle" x="223" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_all_pl</text>
+</g>
+<!-- proc~symba_kick_getacch_pl&#45;&gt;kick_getacch_int_all_pl -->
+<g id="proc~~symba_kick_getacch_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_kick_getacch_pl&#45;&gt;kick_getacch_int_all_pl</title>
+<path fill="none" stroke="#000000" d="M126.45,-41.3C134.72,-42.4 143.26,-43.53 151.66,-44.65"/>
+<polygon fill="#000000" stroke="#000000" points="151.44,-48.15 161.81,-46 152.36,-41.21 151.44,-48.15"/>
+</g>
+<!-- helio_kick_getacch_pl -->
+<g id="proc~~symba_kick_getacch_pl~~CallsGraph_node3" class="node">
 <title>helio_kick_getacch_pl</title>
-<polygon fill="#777777" stroke="#777777" points="279,-24 162,-24 162,0 279,0 279,-24"/>
-<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
+<polygon fill="#777777" stroke="#777777" points="281.5,-24 164.5,-24 164.5,0 281.5,0 281.5,-24"/>
+<text text-anchor="middle" x="223" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
 </g>
 <!-- proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl -->
-<g id="proc~~symba_kick_getacch_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_kick_getacch_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" d="M126.35,-12C134.7,-12 143.3,-12 151.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="151.92,-15.5 161.92,-12 151.92,-8.5 151.92,-15.5"/>
+<path fill="none" stroke="#000000" d="M126.45,-24.7C135.63,-23.48 145.13,-22.22 154.41,-20.98"/>
+<polygon fill="#000000" stroke="#000000" points="154.92,-24.45 164.38,-19.66 154,-17.51 154.92,-24.45"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_kick_getacch_tp.html b/docs/proc/symba_kick_getacch_tp.html
index 444f8ac05..bed8a3855 100644
--- a/docs/proc/symba_kick_getacch_tp.html
+++ b/docs/proc/symba_kick_getacch_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~346"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~419"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~104"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~113"></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~193"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~232"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~61"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~69"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~30"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~32"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_setup_pltpenc.html b/docs/proc/symba_setup_encounter.html
similarity index 81%
rename from docs/proc/symba_setup_pltpenc.html
rename to docs/proc/symba_setup_encounter.html
index f3354bc7e..b3717c0f2 100644
--- a/docs/proc/symba_setup_pltpenc.html
+++ b/docs/proc/symba_setup_encounter.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_setup_pltpenc &ndash; swiftest</title>
+    <title>symba_setup_encounter &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_setup_pltpenc
+    <h1>symba_setup_encounter
       <small>Module Subroutine</small>
     
     </h1>
@@ -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.0% of total for procedures.">11 statements</a>
+    title=" 0.0% of total for procedures.">12 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_setup_pltpenc
      <li><a href='../module/s_symba_setup.html'>s_symba_setup</a></li>
     
   
-     <li class="active">symba_setup_pltpenc</li>
+     <li class="active">symba_setup_encounter</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_setup_pltpenc(self, n)
+module subroutine symba_setup_encounter(self, n)
     
     
-   <a href='../interface/symba_setup_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_setup_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~343"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~415"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~27"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~35"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -279,29 +279,29 @@ <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~~symba_setup_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="procsymba_setup_pltpencCallsGraph" width="254pt" height="32pt"
- viewBox="0.00 0.00 254.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_setup_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_setup_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 250,-28 250,4 -4,4"/>
-<!-- proc~symba_setup_pltpenc -->
-<g id="proc~~symba_setup_pltpenc~~CallsGraph_node1" class="node">
-<title>proc~symba_setup_pltpenc</title>
-<polygon fill="none" stroke="black" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_pltpenc</text>
+<!-- Title: proc~~symba_setup_encounter~~CallsGraph Pages: 1 -->
+<svg id="procsymba_setup_encounterCallsGraph" width="267pt" height="32pt"
+ viewBox="0.00 0.00 267.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_setup_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_setup_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 263,-28 263,4 -4,4"/>
+<!-- proc~symba_setup_encounter -->
+<g id="proc~~symba_setup_encounter~~CallsGraph_node1" class="node">
+<title>proc~symba_setup_encounter</title>
+<polygon fill="none" stroke="black" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_encounter</text>
 </g>
 <!-- setup_encounter -->
-<g id="proc~~symba_setup_pltpenc~~CallsGraph_node2" class="node">
+<g id="proc~~symba_setup_encounter~~CallsGraph_node2" class="node">
 <title>setup_encounter</title>
-<polygon fill="#777777" stroke="#777777" points="246,-24 153,-24 153,0 246,0 246,-24"/>
-<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
+<polygon fill="#777777" stroke="#777777" points="259,-24 166,-24 166,0 259,0 259,-24"/>
+<text text-anchor="middle" x="212.5" y="-9.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="proc~~symba_setup_pltpenc~~CallsGraph_edge1" class="edge">
-<title>proc~symba_setup_pltpenc&#45;&gt;setup_encounter</title>
-<path fill="none" stroke="#000000" d="M117.24,-12C125.62,-12 134.23,-12 142.57,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.58,-15.5 152.58,-12 142.58,-8.5 142.58,-15.5"/>
+<!-- proc~symba_setup_encounter&#45;&gt;setup_encounter -->
+<g id="proc~~symba_setup_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~symba_setup_encounter&#45;&gt;setup_encounter</title>
+<path fill="none" stroke="#000000" d="M130.24,-12C138.79,-12 147.5,-12 155.89,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.93,-15.5 165.93,-12 155.93,-8.5 155.93,-15.5"/>
 </g>
 </g>
 </svg>
@@ -378,32 +378,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_setup_pltpenc~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_setup_pltpencCalledByGraph" width="278pt" height="32pt"
- viewBox="0.00 0.00 278.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_setup_pltpenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_setup_pltpenc~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 274,-28 274,4 -4,4"/>
-<!-- proc~symba_setup_pltpenc -->
-<g id="proc~~symba_setup_pltpenc~~CalledByGraph_node1" class="node">
-<title>proc~symba_setup_pltpenc</title>
-<polygon fill="none" stroke="black" points="270,-24 153,-24 153,0 270,0 270,-24"/>
-<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_pltpenc</text>
+<!-- Title: proc~~symba_setup_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_setup_encounterCalledByGraph" width="304pt" height="32pt"
+ viewBox="0.00 0.00 304.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_setup_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_setup_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 300,-28 300,4 -4,4"/>
+<!-- proc~symba_setup_encounter -->
+<g id="proc~~symba_setup_encounter~~CalledByGraph_node1" class="node">
+<title>proc~symba_setup_encounter</title>
+<polygon fill="none" stroke="black" points="296,-24 166,-24 166,0 296,0 296,-24"/>
+<text text-anchor="middle" x="231" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_encounter</text>
 </g>
-<!-- interface~symba_setup_pltpenc -->
-<g id="proc~~symba_setup_pltpenc~~CalledByGraph_node2" class="node">
-<title>interface~symba_setup_pltpenc</title>
-<g id="a_proc~~symba_setup_pltpenc~~CalledByGraph_node2"><a xlink:href=".././interface/symba_setup_pltpenc.html" xlink:title="symba_setup_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pltpenc</text>
+<!-- interface~symba_setup_encounter -->
+<g id="proc~~symba_setup_encounter~~CalledByGraph_node2" class="node">
+<title>interface~symba_setup_encounter</title>
+<g id="a_proc~~symba_setup_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/symba_setup_encounter.html" xlink:title="symba_setup_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="130,-24 0,-24 0,0 130,0 130,-24"/>
+<text text-anchor="middle" x="65" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc -->
-<g id="proc~~symba_setup_pltpenc~~CalledByGraph_edge1" class="edge">
-<title>interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M117.02,-12C125.46,-12 134.23,-12 142.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.89,-15.5 152.89,-12 142.89,-8.5 142.89,-15.5"/>
+<!-- interface~symba_setup_encounter&#45;&gt;proc~symba_setup_encounter -->
+<g id="proc~~symba_setup_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_setup_encounter&#45;&gt;proc~symba_setup_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.35,-12C138.64,-12 147.19,-12 155.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="155.84,-15.5 165.84,-12 155.84,-8.5 155.84,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_setup_initialize_particle_info.html b/docs/proc/symba_setup_initialize_particle_info.html
deleted file mode 100644
index 4e4532bcb..000000000
--- a/docs/proc/symba_setup_initialize_particle_info.html
+++ /dev/null
@@ -1,638 +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_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 ebfefc7d7..a85e5f135 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.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">13 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~340"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~412"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,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~227"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,140 +281,32 @@ <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="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)">
+<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)">
 <title>proc~~symba_setup_initialize_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1076,-112 1076,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 351,-28 351,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,-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>
+<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>
 </g>
-<!-- whm_setup_initialize_system -->
+<!-- helio_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="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>
+<title>helio_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">helio_setup_initialize_system</text>
 </g>
-<!-- proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<!-- proc~symba_setup_initialize_system&#45;&gt;helio_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="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"/>
+<title>proc~symba_setup_initialize_system&#45;&gt;helio_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"/>
 </g>
 </g>
 </svg>
-</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">
+</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/symba_setup_merger.html b/docs/proc/symba_setup_merger.html
index 8b08879ec..d86b2fdca 100644
--- a/docs/proc/symba_setup_merger.html
+++ b/docs/proc/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.0% of total for procedures.">13 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~341"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~413"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~25"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~33"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~189"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~228"></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 3f4561344..fa79a107c 100644
--- a/docs/proc/symba_setup_pl.html
+++ b/docs/proc/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.1% of total for procedures.">46 statements</a>
+    title=" 0.1% of total for procedures.">44 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~342"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~414"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~26"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~34"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~190"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~229"></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 e5fa78507..460b97852 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.">20 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~344"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~416"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~28"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~36"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~191"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~230"></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 8bcb88eb1..dc432a126 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~356"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~429"></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~203"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~236"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~63"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~71"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -284,7 +284,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~91"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~98"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_step_recur_system.html b/docs/proc/symba_step_recur_system.html
index f2b324498..d9f62c8a2 100644
--- a/docs/proc/symba_step_recur_system.html
+++ b/docs/proc/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.1% of total for procedures.">59 statements</a>
+    title=" 0.1% of total for procedures.">61 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~358"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~431"></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~204"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~237"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,11 +269,11 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~64"></span>real(kind=DP),</td>
-  <td></td>
+  <td><span class="anchor" id="variable-t~72"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>t</strong></td><td></td>
   
 </tr>
@@ -285,10 +285,10 @@ <h3>Arguments</h3>
 <tr>
   
   <td><span class="anchor" id="variable-ireci~4"></span>integer(kind=I4B),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>ireci</strong></td><td><p>input recursion level</p></td>
   
 </tr>
diff --git a/docs/proc/symba_step_reset_system.html b/docs/proc/symba_step_reset_system.html
index 359467967..10767ba9a 100644
--- a/docs/proc/symba_step_reset_system.html
+++ b/docs/proc/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.1% of total for procedures.">37 statements</a>
+    title=" 0.1% of total for procedures.">49 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_step_reset_system(self)
+module subroutine symba_step_reset_system(self, param)
     
     
    <a href='../interface/symba_step_reset_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -238,7 +238,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~432"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -247,6 +247,21 @@ <h3>Arguments</h3>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~238"></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>
+
 </tbody>
 </table>
 
diff --git a/docs/proc/symba_step_set_recur_levels_system.html b/docs/proc/symba_step_set_recur_levels_system.html
index 09087f6c0..59ed2aa11 100644
--- a/docs/proc/symba_step_set_recur_levels_system.html
+++ b/docs/proc/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.1% of total for procedures.">35 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~357"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~430"></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 0c935d185..dc69bc693 100644
--- a/docs/proc/symba_step_system.html
+++ b/docs/proc/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.1% of total for procedures.">25 statements</a>
+    title=" 0.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~355"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~428"></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~202"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~235"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~62"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~70"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -284,7 +284,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~90"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~97"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_append_arr_kin.html b/docs/proc/symba_util_append_arr_kin.html
index c4399b795..78c15dd45 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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~18"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td><span class="anchor" id="variable-arr~25"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~22"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td><span class="anchor" id="variable-source~30"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~20"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~23"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/interface/symba_io_read_particle.html b/docs/proc/symba_util_append_encounter.html
similarity index 72%
rename from docs/interface/symba_io_read_particle.html
rename to docs/proc/symba_util_append_encounter.html
index fbad60268..84b919902 100644
--- a/docs/interface/symba_io_read_particle.html
+++ b/docs/proc/symba_util_append_encounter.html
@@ -1,4 +1,3 @@
-
 <!DOCTYPE html>
 <html lang="en">
   <head>
@@ -11,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_particle &ndash; swiftest</title>
+    <title>symba_util_append_encounter &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -117,17 +116,18 @@
     
   
   <div class="row">
-    <h1>symba_io_read_particle
-   <small>Interface</small>
+    <h1>symba_util_append_encounter
+      <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>
+     
      
      
      
@@ -136,24 +136,24 @@ <h1>symba_io_read_particle
      <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>
+    title=" 0.0% of total for procedures.">14 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/symba_util.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/symba_util.f90.html'>symba_util.f90</a></li>
     
-     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
+     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
     
   
-     <li class="active">symba_io_read_particle</li>
+     <li class="active">symba_util_append_encounter</li>
   </ol>
 </div>
 </div>
@@ -164,7 +164,6 @@ <h1>symba_io_read_particle
   })
 </script>
 
-    
   </div>
   
   <div class="row">
@@ -203,11 +202,88 @@ <h3>Contents</h3>
     </div>
     
     <div class="col-md-9" id='text'>
+    <h2>
+module subroutine symba_util_append_encounter(self, source, lsource_mask)
+    
+    
+   <a href='../interface/symba_util_append_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
     
+    <p>Append components from one encounter list (pl-pl or pl-tp) body object to another. 
+ This method will automatically resize the destination body if it is too small</p>
+    
+
+    <h3>Arguments</h3>
     
-      <h2>interface</h2>
       
-      <br>
+<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~384"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-source~31"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lsource_mask~24"></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    <br>
+    
     
     <div class="panel panel-default">
       <div class="panel-heading">
@@ -219,44 +295,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~~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>
+<!-- Title: proc~~symba_util_append_encounter~~CallsGraph Pages: 1 -->
+<svg id="procsymba_util_append_encounterCallsGraph" width="326pt" height="74pt"
+ viewBox="0.00 0.00 326.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_append_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~symba_util_append_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 322,-70 322,4 -4,4"/>
+<!-- proc~symba_util_append_encounter -->
+<g id="proc~~symba_util_append_encounter~~CallsGraph_node1" class="node">
+<title>proc~symba_util_append_encounter</title>
+<polygon fill="none" stroke="black" points="160,-45 0,-45 0,-21 160,-21 160,-45"/>
+<text text-anchor="middle" x="80" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_append_encounter</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>
+<!-- interface~util_append -->
+<g id="proc~~symba_util_append_encounter~~CallsGraph_node2" class="node">
+<title>interface~util_append</title>
+<g id="a_proc~~symba_util_append_encounter~~CallsGraph_node2"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="291,-66 223,-66 223,-42 291,-42 291,-66"/>
+<text text-anchor="middle" x="257" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_encounter&#45;&gt;interface~util_append -->
+<g id="proc~~symba_util_append_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_append_encounter&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M160.05,-42.49C178.18,-44.66 196.8,-46.9 212.75,-48.81"/>
+<polygon fill="#000000" stroke="#000000" points="212.48,-52.3 222.82,-50.02 213.31,-45.35 212.48,-52.3"/>
 </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>
+<!-- util_append_encounter -->
+<g id="proc~~symba_util_append_encounter~~CallsGraph_node3" class="node">
+<title>util_append_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="318,-24 196,-24 196,0 318,0 318,-24"/>
+<text text-anchor="middle" x="257" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_encounter</text>
 </g>
-<!-- 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"/>
+<!-- proc~symba_util_append_encounter&#45;&gt;util_append_encounter -->
+<g id="proc~~symba_util_append_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_append_encounter&#45;&gt;util_append_encounter</title>
+<path fill="none" stroke="#000000" d="M160.05,-23.51C168.62,-22.49 177.29,-21.45 185.74,-20.43"/>
+<polygon fill="#000000" stroke="#000000" points="186.4,-23.88 195.92,-19.21 185.57,-16.93 186.4,-23.88"/>
 </g>
 </g>
 </svg>
@@ -333,45 +409,30 @@ <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~~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~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"/>
+<!-- Title: proc~~symba_util_append_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_util_append_encounterCalledByGraph" width="364pt" height="32pt"
+ viewBox="0.00 0.00 364.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_append_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_append_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 360,-28 360,4 -4,4"/>
+<!-- proc~symba_util_append_encounter -->
+<g id="proc~~symba_util_append_encounter~~CalledByGraph_node1" class="node">
+<title>proc~symba_util_append_encounter</title>
+<polygon fill="none" stroke="black" 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">symba_util_append_encounter</text>
 </g>
-<!-- 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">
+<!-- interface~symba_util_append_encounter -->
+<g id="proc~~symba_util_append_encounter~~CalledByGraph_node2" class="node">
+<title>interface~symba_util_append_encounter</title>
+<g id="a_proc~~symba_util_append_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/symba_util_append_encounter.html" xlink:title="symba_util_append_encounter">
 <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>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_encounter</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter -->
+<g id="proc~~symba_util_append_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_util_append_encounter&#45;&gt;proc~symba_util_append_encounter</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>
@@ -439,75 +500,60 @@ <h3 class="panel-title">Called by</h3>
       </div>
     </div>
      
-    
     <br>
-    
-      <h2>
-public module subroutine symba_io_read_particle(system, param)
-    
-    
-   
-   <a href='../proc/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h2>
-    
 
-    
-  
+    <section class="visible-xs visible-sm hidden-md">
+      
+<h3>Contents</h3>
+ 
 
 
-    <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~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>system</strong></td><td><p>SyMBA nbody system file</p></td>
-  
-</tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <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>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
-  
-</tr>
 
-</tbody>
-</table>
+
+
+
+
+
+
+
+
+
+
+
+
+
+<em>None</em>
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
 
     
+
+    
+    
+    
     
     
-    <br>
 
- </div>
-</div>
+    
+    
+    
+    
+    
+
+
+    
+    
+    
+    
+    </div>
+  </div>
 
 
     <hr>    
diff --git a/docs/proc/symba_util_append_merger.html b/docs/proc/symba_util_append_merger.html
index 793491f59..d6dda012e 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.1% of total for procedures.">25 statements</a>
+    title=" 0.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~319"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~386"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~24"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~33"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~22"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~26"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -307,17 +307,20 @@ <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>
-<!-- util_exit -->
+<!-- interface~util_append -->
 <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>
+<title>interface~util_append</title>
+<g id="a_proc~~symba_util_append_merger~~CallsGraph_node2"><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>
+</a>
 </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>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
+<g id="proc~~symba_util_append_merger~~CallsGraph_edge1" 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>
 <!-- interface~symba_util_append_pl -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_node3" class="node">
@@ -329,25 +332,22 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl -->
-<g id="proc~~symba_util_append_merger~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_util_append_merger~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
 <path fill="none" stroke="#000000" d="M146.28,-54C154.74,-54 163.35,-54 171.77,-54"/>
 <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 -->
+<!-- util_exit -->
 <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_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>
+<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;interface~util_append -->
+<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
 <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,-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"/>
+<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"/>
 </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 -->
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <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"/>
+<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;interface~util_append -->
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
 <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,-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"/>
+<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"/>
 </g>
 <!-- util_append_pl -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_node6" class="node">
diff --git a/docs/proc/symba_util_append_pl.html b/docs/proc/symba_util_append_pl.html
index afc2d4209..f8c5548c2 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.">28 statements</a>
+    title=" 0.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~318"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~385"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~23"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~32"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~21"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~25"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -308,17 +308,20 @@ <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_exit -->
+<!-- interface~util_append -->
 <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>
+<title>interface~util_append</title>
+<g id="a_proc~~symba_util_append_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="231,-108 163,-108 163,-84 231,-84 231,-108"/>
+<text text-anchor="middle" x="197" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+</a>
 </g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+</g>
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <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"/>
+<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M99.69,-66.04C116.36,-71.22 135.92,-77.31 153.04,-82.64"/>
+<polygon fill="#000000" stroke="#000000" points="152.21,-86.04 162.8,-85.67 154.29,-79.36 152.21,-86.04"/>
 </g>
 <!-- util_append_pl -->
 <g id="proc~~symba_util_append_pl~~CallsGraph_node3" class="node">
@@ -332,20 +335,17 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- util_exit -->
 <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_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>
+<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;interface~util_append -->
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
 <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="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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_append_tp.html b/docs/proc/symba_util_append_tp.html
index 9d4150374..16c277fa7 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.">20 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~320"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~387"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~25"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~34"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~23"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~27"></span>logical,</td>
   <td>intent(in),</td>
   <td></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>
-<!-- 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">
+<g id="proc~~symba_util_append_tp~~CallsGraph_node2" class="node">
 <title>interface~util_append</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_append_tp~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_append_tp&#45;&gt;interface~util_append</title>
-<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"/>
+<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"/>
 </g>
 <!-- util_append_tp -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_node4" class="node">
+<g id="proc~~symba_util_append_tp~~CallsGraph_node3" class="node">
 <title>util_append_tp</title>
-<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>
+<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>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
-<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;util_append_tp</title>
-<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"/>
+<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_edge3" 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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_copy_encounter.html b/docs/proc/symba_util_copy_encounter.html
new file mode 100644
index 000000000..5ded177e1
--- /dev/null
+++ b/docs/proc/symba_util_copy_encounter.html
@@ -0,0 +1,578 @@
+<!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_util_copy_encounter &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_util_copy_encounter
+      <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.0% of total for procedures.">13 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_util.f90.html'>symba_util.f90</a></li>
+    
+     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
+    
+  
+     <li class="active">symba_util_copy_encounter</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_util_copy_encounter(self, source)
+    
+    
+   <a href='../interface/symba_util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Copies elements from the source encounter list into self.</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-self~388"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-source~35"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</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_util_copy_encounter~~CallsGraph Pages: 1 -->
+<svg id="procsymba_util_copy_encounterCallsGraph" width="299pt" height="32pt"
+ viewBox="0.00 0.00 299.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_copy_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_copy_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 295,-28 295,4 -4,4"/>
+<!-- proc~symba_util_copy_encounter -->
+<g id="proc~~symba_util_copy_encounter~~CallsGraph_node1" class="node">
+<title>proc~symba_util_copy_encounter</title>
+<polygon fill="none" stroke="black" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_copy_encounter</text>
+</g>
+<!-- util_copy_encounter -->
+<g id="proc~~symba_util_copy_encounter~~CallsGraph_node2" class="node">
+<title>util_copy_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="291,-24 182,-24 182,0 291,0 291,-24"/>
+<text text-anchor="middle" x="236.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
+</g>
+<!-- proc~symba_util_copy_encounter&#45;&gt;util_copy_encounter -->
+<g id="proc~~symba_util_copy_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_copy_encounter&#45;&gt;util_copy_encounter</title>
+<path fill="none" stroke="#000000" d="M146.25,-12C154.73,-12 163.33,-12 171.68,-12"/>
+<polygon fill="#000000" stroke="#000000" points="171.72,-15.5 181.72,-12 171.72,-8.5 171.72,-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">
+  <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_util_copy_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_util_copy_encounterCalledByGraph" width="336pt" height="32pt"
+ viewBox="0.00 0.00 336.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_copy_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_copy_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 332,-28 332,4 -4,4"/>
+<!-- proc~symba_util_copy_encounter -->
+<g id="proc~~symba_util_copy_encounter~~CalledByGraph_node1" class="node">
+<title>proc~symba_util_copy_encounter</title>
+<polygon fill="none" stroke="black" points="328,-24 182,-24 182,0 328,0 328,-24"/>
+<text text-anchor="middle" x="255" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_copy_encounter</text>
+</g>
+<!-- interface~symba_util_copy_encounter -->
+<g id="proc~~symba_util_copy_encounter~~CalledByGraph_node2" class="node">
+<title>interface~symba_util_copy_encounter</title>
+<g id="a_proc~~symba_util_copy_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/symba_util_copy_encounter.html" xlink:title="symba_util_copy_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_copy_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_copy_encounter&#45;&gt;proc~symba_util_copy_encounter -->
+<g id="proc~~symba_util_copy_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_util_copy_encounter&#45;&gt;proc~symba_util_copy_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.18,-12C154.52,-12 163.08,-12 171.54,-12"/>
+<polygon fill="#000000" stroke="#000000" points="171.81,-15.5 181.81,-12 171.81,-8.5 171.81,-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_util_fill_arr_kin.html b/docs/proc/symba_util_fill_arr_kin.html
index f2748e1c5..e0168bf06 100644
--- a/docs/proc/symba_util_fill_arr_kin.html
+++ b/docs/proc/symba_util_fill_arr_kin.html
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~12"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td><span class="anchor" id="variable-keeps~14"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_fill_pl.html b/docs/proc/symba_util_fill_pl.html
index 1ac66568b..194777aad 100644
--- a/docs/proc/symba_util_fill_pl.html
+++ b/docs/proc/symba_util_fill_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_fill_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.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~321"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~389"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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>
-<!-- util_fill_pl -->
+<!-- interface~util_fill -->
 <g id="proc~~symba_util_fill_pl~~CallsGraph_node2" class="node">
-<title>util_fill_pl</title>
-<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>
+<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>
-<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
+</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;util_fill_pl</title>
-<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"/>
+<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_exit -->
+<!-- util_fill_pl -->
 <g id="proc~~symba_util_fill_pl~~CallsGraph_node3" class="node">
-<title>util_exit</title>
-<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>
+<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>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
+<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
 <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"/>
+<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"/>
 </g>
-<!-- interface~util_fill -->
+<!-- util_exit -->
 <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>
+<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>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
 <g id="proc~~symba_util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
+<title>proc~symba_util_fill_pl&#45;&gt;util_exit</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 064adf4e8..b4d2df73c 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.">20 statements</a>
+    title=" 0.0% of total for procedures.">19 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~322"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~390"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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>
-<!-- util_fill_tp -->
+<!-- interface~util_fill -->
 <g id="proc~~symba_util_fill_tp~~CallsGraph_node2" class="node">
-<title>util_fill_tp</title>
-<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>
+<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>
-<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
+</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;util_fill_tp</title>
-<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"/>
+<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_exit -->
+<!-- util_fill_tp -->
 <g id="proc~~symba_util_fill_tp~~CallsGraph_node3" class="node">
-<title>util_exit</title>
-<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>
+<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>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
+<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
 <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"/>
+<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"/>
 </g>
-<!-- interface~util_fill -->
+<!-- util_exit -->
 <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>
+<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>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
 <g id="proc~~symba_util_fill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
+<title>proc~symba_util_fill_tp&#45;&gt;util_exit</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_index_eucl_plpl.html b/docs/proc/symba_util_index_eucl_plpl.html
new file mode 100644
index 000000000..afd79bbe9
--- /dev/null
+++ b/docs/proc/symba_util_index_eucl_plpl.html
@@ -0,0 +1,486 @@
+<!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_util_index_eucl_plpl &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_util_index_eucl_plpl
+      <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> Jacob R. Elliott and David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <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.">24 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_util.f90.html'>symba_util.f90</a></li>
+    
+     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
+    
+  
+     <li class="active">symba_util_index_eucl_plpl</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_util_index_eucl_plpl(self, param)
+    
+    
+   <a href='../interface/symba_util_index_eucl_plpl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the
+ number of interactions that excludes semi-interacting bodies with each other (Gmass &lt; GMTINY).
+ This method will also sort the bodies in descending order by Mass</p>
+<p>Reference:</p>
+<div class="codehilite"><pre><span></span><code><span class="err">Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
+<span class="err">   2019. hal-0204751</span>
+</code></pre></div>
+    
+
+    <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~391"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~215"></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_util_index_eucl_plpl~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_util_index_eucl_plplCalledByGraph" 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_util_index_eucl_plpl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_index_eucl_plpl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
+<!-- proc~symba_util_index_eucl_plpl -->
+<g id="proc~~symba_util_index_eucl_plpl~~CalledByGraph_node1" class="node">
+<title>proc~symba_util_index_eucl_plpl</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_util_index_eucl_plpl</text>
+</g>
+<!-- interface~symba_util_index_eucl_plpl -->
+<g id="proc~~symba_util_index_eucl_plpl~~CalledByGraph_node2" class="node">
+<title>interface~symba_util_index_eucl_plpl</title>
+<g id="a_proc~~symba_util_index_eucl_plpl~~CalledByGraph_node2"><a xlink:href=".././interface/symba_util_index_eucl_plpl.html" xlink:title="symba_util_index_eucl_plpl">
+<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_util_index_eucl_plpl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_index_eucl_plpl&#45;&gt;proc~symba_util_index_eucl_plpl -->
+<g id="proc~~symba_util_index_eucl_plpl~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_util_index_eucl_plpl&#45;&gt;proc~symba_util_index_eucl_plpl</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"/>
+</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_util_peri_pl.html b/docs/proc/symba_util_peri_pl.html
index 516393b0f..172c327c4 100644
--- a/docs/proc/symba_util_peri_pl.html
+++ b/docs/proc/symba_util_peri_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_peri_pl
      <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.">74 statements</a>
+    title=" 0.1% of total for procedures.">74 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~323"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~392"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~96"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~101"></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~181"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~216"></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 c9c771a83..299ca67c0 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.1% of total for procedures.">30 statements</a>
+    title=" 0.2% of total for procedures.">113 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~324"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~393"></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~97"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <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>
   
@@ -266,8 +266,8 @@ <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>intent(in)</td>
+  <td><span class="anchor" id="variable-param~217"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -284,134 +284,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~~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_reset_kinship.html b/docs/proc/symba_util_reset_kinship.html
new file mode 100644
index 000000000..87bb237e3
--- /dev/null
+++ b/docs/proc/symba_util_reset_kinship.html
@@ -0,0 +1,480 @@
+<!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_util_reset_kinship &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_util_reset_kinship
+      <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.0% of total for procedures.">13 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_util.f90.html'>symba_util.f90</a></li>
+    
+     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
+    
+  
+     <li class="active">symba_util_reset_kinship</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_util_reset_kinship(self, idx)
+    
+    
+   <a href='../interface/symba_util_reset_kinship.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Resets the kinship status of 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-self~394"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-idx~8"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Index array of bodies to reset</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_util_reset_kinship~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_util_reset_kinshipCalledByGraph" width="310pt" height="32pt"
+ viewBox="0.00 0.00 310.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_reset_kinship~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_reset_kinship~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 306,-28 306,4 -4,4"/>
+<!-- proc~symba_util_reset_kinship -->
+<g id="proc~~symba_util_reset_kinship~~CalledByGraph_node1" class="node">
+<title>proc~symba_util_reset_kinship</title>
+<polygon fill="none" stroke="black" points="302,-24 169,-24 169,0 302,0 302,-24"/>
+<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_reset_kinship</text>
+</g>
+<!-- interface~symba_util_reset_kinship -->
+<g id="proc~~symba_util_reset_kinship~~CalledByGraph_node2" class="node">
+<title>interface~symba_util_reset_kinship</title>
+<g id="a_proc~~symba_util_reset_kinship~~CalledByGraph_node2"><a xlink:href=".././interface/symba_util_reset_kinship.html" xlink:title="symba_util_reset_kinship">
+<polygon fill="#a7506f" stroke="#a7506f" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_reset_kinship</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_reset_kinship&#45;&gt;proc~symba_util_reset_kinship -->
+<g id="proc~~symba_util_reset_kinship~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_util_reset_kinship&#45;&gt;proc~symba_util_reset_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.02,-12C141.5,-12 150.23,-12 158.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.89,-15.5 168.89,-12 158.89,-8.5 158.89,-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_util_resize_arr_kin.html b/docs/proc/symba_util_resize_arr_kin.html
index c4d704aff..1b171738b 100644
--- a/docs/proc/symba_util_resize_arr_kin.html
+++ b/docs/proc/symba_util_resize_arr_kin.html
@@ -136,7 +136,7 @@ <h1>symba_util_resize_arr_kin
      <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.">22 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~20"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td><span class="anchor" id="variable-arr~26"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_resize_merger.html b/docs/proc/symba_util_resize_merger.html
index 45579704e..cc8da8244 100644
--- a/docs/proc/symba_util_resize_merger.html
+++ b/docs/proc/symba_util_resize_merger.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~325"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~395"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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,-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>
+<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>
 </g>
-<!-- interface~util_resize -->
+<!-- interface~symba_util_resize_pl -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node2" class="node">
-<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>
+<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>
 </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_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- interface~symba_util_resize_pl -->
+<!-- interface~util_resize -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<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;interface~util_resize</title>
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<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;util_resize_pl</title>
-<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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_resize_pl.html b/docs/proc/symba_util_resize_pl.html
index 2abe19bf0..90d421c61 100644
--- a/docs/proc/symba_util_resize_pl.html
+++ b/docs/proc/symba_util_resize_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_resize_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.">18 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~326"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~396"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -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>
-<!-- interface~util_resize -->
+<!-- util_resize_pl -->
 <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_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>
+<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;interface~util_resize -->
+<!-- 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;interface~util_resize</title>
-<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"/>
+<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>
-<!-- util_resize_pl -->
+<!-- interface~util_resize -->
 <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>
+<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>
+</a>
 </g>
-<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
+</g>
+<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
 <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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_resize_tp.html b/docs/proc/symba_util_resize_tp.html
index e27da80ad..2b8d72404 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.">11 statements</a>
+    title=" 0.0% of total for procedures.">10 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~327"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~397"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_sort_pl.html b/docs/proc/symba_util_sort_pl.html
index 219fb8f51..829565791 100644
--- a/docs/proc/symba_util_sort_pl.html
+++ b/docs/proc/symba_util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_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.">37 statements</a>
+    title=" 0.1% of total for procedures.">38 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~328"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~398"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_fill_arr_info.html b/docs/proc/symba_util_sort_rearrange_arr_kin.html
similarity index 88%
rename from docs/proc/symba_util_fill_arr_info.html
rename to docs/proc/symba_util_sort_rearrange_arr_kin.html
index 4b9c9d1dd..7f01d6b4f 100644
--- a/docs/proc/symba_util_fill_arr_info.html
+++ b/docs/proc/symba_util_sort_rearrange_arr_kin.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_util_fill_arr_info &ndash; swiftest</title>
+    <title>symba_util_sort_rearrange_arr_kin &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_util_fill_arr_info
+    <h1>symba_util_sort_rearrange_arr_kin
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,7 +136,7 @@ <h1>symba_util_fill_arr_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.">10 statements</a>
+    title=" 0.0% of total for procedures.">18 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_util_fill_arr_info
      <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
     
   
-     <li class="active">symba_util_fill_arr_info</li>
+     <li class="active">symba_util_sort_rearrange_arr_kin</li>
   </ol>
 </div>
 </div>
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list)
+subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n)
     
     
    
@@ -213,8 +213,7 @@ <h2>
 
 
     
-    <p>Performs a fill operation on a single array of particle origin information types
- This is the inverse of a spill operation</p>
+    <p>Rearrange a single array of particle kinship type in-place from an index list.</p>
     
 
     <h3>Arguments</h3>
@@ -235,12 +234,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~11"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-arr~27"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
   
 </tr>
 
@@ -250,12 +249,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inserts~18"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-ind~22"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
   
 </tr>
 
@@ -265,12 +264,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfill_list~18"></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-n~32"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
   
 </tr>
 
diff --git a/docs/proc/symba_util_sort_rearrange_pl.html b/docs/proc/symba_util_sort_rearrange_pl.html
index 6b0310d19..a462ed51c 100644
--- a/docs/proc/symba_util_sort_rearrange_pl.html
+++ b/docs/proc/symba_util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_rearrange_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.">32 statements</a>
+    title=" 0.0% of total for procedures.">21 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~330"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~400"></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-ind~16"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~23"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,28 +281,43 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="procsymba_util_sort_rearrange_plCallsGraph" width="317pt" height="32pt"
- viewBox="0.00 0.00 317.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_util_sort_rearrange_plCallsGraph" width="317pt" height="74pt"
+ viewBox="0.00 0.00 317.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~symba_util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 313,-28 313,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 313,-70 313,4 -4,4"/>
 <!-- proc~symba_util_sort_rearrange_pl -->
 <g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>proc~symba_util_sort_rearrange_pl</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_util_sort_rearrange_pl</text>
+<polygon fill="none" stroke="black" points="155,-45 0,-45 0,-21 155,-21 155,-45"/>
+<text text-anchor="middle" x="77.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_sort_rearrange_pl</text>
 </g>
-<!-- util_sort_rearrange_pl -->
+<!-- interface~util_sort_rearrange -->
 <g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph_node2" class="node">
+<title>interface~util_sort_rearrange</title>
+<g id="a_proc~~symba_util_sort_rearrange_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_sort_rearrange.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="301.5,-66 198.5,-66 198.5,-42 301.5,-42 301.5,-66"/>
+<text text-anchor="middle" x="250" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange -->
+<g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M155.27,-42.46C166.26,-43.81 177.43,-45.19 188.06,-46.49"/>
+<polygon fill="#000000" stroke="#000000" points="187.7,-49.98 198.05,-47.72 188.55,-43.03 187.7,-49.98"/>
+</g>
+<!-- util_sort_rearrange_pl -->
+<g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph_node3" class="node">
 <title>util_sort_rearrange_pl</title>
 <polygon fill="#777777" stroke="#777777" points="309,-24 191,-24 191,0 309,0 309,-24"/>
 <text text-anchor="middle" x="250" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
 <!-- proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
-<g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M155.27,-12C163.75,-12 172.35,-12 180.72,-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" d="M155.27,-23.54C163.75,-22.5 172.35,-21.44 180.72,-20.41"/>
+<polygon fill="#000000" stroke="#000000" points="181.29,-23.87 190.79,-19.17 180.44,-16.92 181.29,-23.87"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_sort_rearrange_tp.html b/docs/proc/symba_util_sort_rearrange_tp.html
index 7a75ce0ad..c584a0ea3 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.">16 statements</a>
+    title=" 0.0% of total for procedures.">12 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~331"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~401"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~17"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~24"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,28 +281,43 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_util_sort_rearrange_tp~~CallsGraph Pages: 1 -->
-<svg id="procsymba_util_sort_rearrange_tpCallsGraph" width="318pt" height="32pt"
- viewBox="0.00 0.00 318.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_util_sort_rearrange_tpCallsGraph" width="318pt" height="74pt"
+ viewBox="0.00 0.00 318.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~symba_util_sort_rearrange_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 314,-28 314,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 314,-70 314,4 -4,4"/>
 <!-- proc~symba_util_sort_rearrange_tp -->
 <g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph_node1" class="node">
 <title>proc~symba_util_sort_rearrange_tp</title>
-<polygon fill="none" stroke="black" 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">symba_util_sort_rearrange_tp</text>
+<polygon fill="none" stroke="black" points="156,-45 0,-45 0,-21 156,-21 156,-45"/>
+<text text-anchor="middle" x="78" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_sort_rearrange_tp</text>
 </g>
-<!-- util_sort_rearrange_tp -->
+<!-- interface~util_sort_rearrange -->
 <g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph_node2" class="node">
+<title>interface~util_sort_rearrange</title>
+<g id="a_proc~~symba_util_sort_rearrange_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_sort_rearrange.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="302.5,-66 199.5,-66 199.5,-42 302.5,-42 302.5,-66"/>
+<text text-anchor="middle" x="251" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange -->
+<g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M156.49,-42.52C167.48,-43.87 178.64,-45.24 189.24,-46.54"/>
+<polygon fill="#000000" stroke="#000000" points="188.86,-50.02 199.22,-47.76 189.72,-43.07 188.86,-50.02"/>
+</g>
+<!-- util_sort_rearrange_tp -->
+<g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph_node3" class="node">
 <title>util_sort_rearrange_tp</title>
 <polygon fill="#777777" stroke="#777777" points="310,-24 192,-24 192,0 310,0 310,-24"/>
 <text text-anchor="middle" x="251" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </g>
 <!-- proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
-<g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" d="M156.49,-12C164.98,-12 173.56,-12 181.92,-12"/>
-<polygon fill="#000000" stroke="#000000" points="181.97,-15.5 191.97,-12 181.97,-8.5 181.97,-15.5"/>
+<path fill="none" stroke="#000000" d="M156.49,-23.48C164.98,-22.44 173.56,-21.39 181.92,-20.36"/>
+<polygon fill="#000000" stroke="#000000" points="182.47,-23.82 191.97,-19.13 181.62,-16.87 182.47,-23.82"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_sort_tp.html b/docs/proc/symba_util_sort_tp.html
index c31e5e434..8d00440e1 100644
--- a/docs/proc/symba_util_sort_tp.html
+++ b/docs/proc/symba_util_sort_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_tp
      <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.0% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~329"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~399"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_spill_arr_kin.html b/docs/proc/symba_util_spill_arr_kin.html
index ec37e6c55..7a2c1b392 100644
--- a/docs/proc/symba_util_spill_arr_kin.html
+++ b/docs/proc/symba_util_spill_arr_kin.html
@@ -136,7 +136,7 @@ <h1>symba_util_spill_arr_kin
      <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.">27 statements</a>
      </li> 
      
      
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~14"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td><span class="anchor" id="variable-keeps~15"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~22"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
+  <td><span class="anchor" id="variable-discards~23"></span>type(<a href='../type/symba_kinship.html'>symba_kinship</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -265,7 +265,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~22"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~23"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -280,7 +280,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~22"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~23"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_spill_pltpenc.html b/docs/proc/symba_util_spill_encounter.html
similarity index 75%
rename from docs/proc/symba_util_spill_pltpenc.html
rename to docs/proc/symba_util_spill_encounter.html
index 3165727ac..f6ce10337 100644
--- a/docs/proc/symba_util_spill_pltpenc.html
+++ b/docs/proc/symba_util_spill_encounter.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_util_spill_pltpenc &ndash; swiftest</title>
+    <title>symba_util_spill_encounter &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_util_spill_pltpenc
+    <h1>symba_util_spill_encounter
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,7 +136,7 @@ <h1>symba_util_spill_pltpenc
      <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.">18 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_util_spill_pltpenc
      <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
     
   
-     <li class="active">symba_util_spill_pltpenc</li>
+     <li class="active">symba_util_spill_encounter</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+module subroutine symba_util_spill_encounter(self, discards, lspill_list, ldestructive)
     
     
-   <a href='../interface/symba_util_spill_pltpenc.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~333"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~403"></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~24"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-discards~25"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~24"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~25"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~24"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~25"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -310,56 +310,56 @@ <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~~symba_util_spill_pltpenc~~CallsGraph Pages: 1 -->
-<svg id="procsymba_util_spill_pltpencCallsGraph" width="276pt" height="116pt"
- viewBox="0.00 0.00 276.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
-<title>proc~~symba_util_spill_pltpenc~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 272,-112 272,4 -4,4"/>
-<!-- proc~symba_util_spill_pltpenc -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node1" class="node">
-<title>proc~symba_util_spill_pltpenc</title>
-<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>
+<!-- Title: proc~~symba_util_spill_encounter~~CallsGraph Pages: 1 -->
+<svg id="procsymba_util_spill_encounterCallsGraph" width="290pt" height="116pt"
+ viewBox="0.00 0.00 290.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_spill_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~symba_util_spill_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 286,-112 286,4 -4,4"/>
+<!-- proc~symba_util_spill_encounter -->
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_node1" class="node">
+<title>proc~symba_util_spill_encounter</title>
+<polygon fill="none" stroke="black" points="142,-66 0,-66 0,-42 142,-42 142,-66"/>
+<text text-anchor="middle" x="71" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_encounter</text>
+</g>
+<!-- interface~util_spill -->
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_node2" class="node">
+<title>interface~util_spill</title>
+<g id="a_proc~~symba_util_spill_encounter~~CallsGraph_node2"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="257,-108 203,-108 203,-84 257,-84 257,-108"/>
+<text text-anchor="middle" x="230" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_spill_encounter&#45;&gt;interface~util_spill -->
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M116.99,-66.04C141.03,-72.47 170.24,-80.28 192.8,-86.32"/>
+<polygon fill="#000000" stroke="#000000" points="192.09,-89.75 202.66,-88.95 193.9,-82.99 192.09,-89.75"/>
 </g>
 <!-- util_spill_encounter -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node2" class="node">
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_node3" class="node">
 <title>util_spill_encounter</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="282,-66 178,-66 178,-42 282,-42 282,-66"/>
+<text text-anchor="middle" x="230" y="-51.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_edge1" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter</title>
-<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"/>
+<!-- proc~symba_util_spill_encounter&#45;&gt;util_spill_encounter -->
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;util_spill_encounter</title>
+<path fill="none" stroke="#000000" d="M142.23,-54C150.71,-54 159.31,-54 167.65,-54"/>
+<polygon fill="#000000" stroke="#000000" points="167.65,-57.5 177.65,-54 167.65,-50.5 167.65,-57.5"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<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>
+<polygon fill="#777777" stroke="#777777" points="257,-24 203,-24 203,0 257,0 257,-24"/>
+<text text-anchor="middle" x="230" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </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"/>
+<!-- proc~symba_util_spill_encounter&#45;&gt;util_exit -->
+<g id="proc~~symba_util_spill_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_spill_encounter&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M116.99,-41.96C141.03,-35.53 170.24,-27.72 192.8,-21.68"/>
+<polygon fill="#000000" stroke="#000000" points="193.9,-25.01 202.66,-19.05 192.09,-18.25 193.9,-25.01"/>
 </g>
 </g>
 </svg>
@@ -436,32 +436,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_util_spill_pltpenc~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_util_spill_pltpencCalledByGraph" width="300pt" height="32pt"
- viewBox="0.00 0.00 300.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_util_spill_pltpenc~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_util_spill_pltpenc~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 296,-28 296,4 -4,4"/>
-<!-- proc~symba_util_spill_pltpenc -->
-<g id="proc~~symba_util_spill_pltpenc~~CalledByGraph_node1" class="node">
-<title>proc~symba_util_spill_pltpenc</title>
-<polygon fill="none" stroke="black" points="292,-24 164,-24 164,0 292,0 292,-24"/>
-<text text-anchor="middle" x="228" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_pltpenc</text>
+<!-- Title: proc~~symba_util_spill_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_util_spill_encounterCalledByGraph" width="328pt" height="32pt"
+ viewBox="0.00 0.00 328.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_spill_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_spill_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 324,-28 324,4 -4,4"/>
+<!-- proc~symba_util_spill_encounter -->
+<g id="proc~~symba_util_spill_encounter~~CalledByGraph_node1" class="node">
+<title>proc~symba_util_spill_encounter</title>
+<polygon fill="none" stroke="black" points="320,-24 178,-24 178,0 320,0 320,-24"/>
+<text text-anchor="middle" x="249" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_encounter</text>
 </g>
-<!-- interface~symba_util_spill_pltpenc -->
-<g id="proc~~symba_util_spill_pltpenc~~CalledByGraph_node2" class="node">
-<title>interface~symba_util_spill_pltpenc</title>
-<g id="a_proc~~symba_util_spill_pltpenc~~CalledByGraph_node2"><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>
+<!-- interface~symba_util_spill_encounter -->
+<g id="proc~~symba_util_spill_encounter~~CalledByGraph_node2" class="node">
+<title>interface~symba_util_spill_encounter</title>
+<g id="a_proc~~symba_util_spill_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/symba_util_spill_encounter.html" xlink:title="symba_util_spill_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-24 0,-24 0,0 142,0 142,-24"/>
+<text text-anchor="middle" x="71" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc -->
-<g id="proc~~symba_util_spill_pltpenc~~CalledByGraph_edge1" 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="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"/>
+<!-- interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter -->
+<g id="proc~~symba_util_spill_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_util_spill_encounter&#45;&gt;proc~symba_util_spill_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.07,-12C150.54,-12 159.25,-12 167.85,-12"/>
+<polygon fill="#000000" stroke="#000000" points="167.89,-15.5 177.89,-12 167.89,-8.5 167.89,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_spill_pl.html b/docs/proc/symba_util_spill_pl.html
index 6e7f6951c..9930f17a3 100644
--- a/docs/proc/symba_util_spill_pl.html
+++ b/docs/proc/symba_util_spill_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_spill_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.0% of total for procedures.">28 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~332"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~402"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~23"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-discards~24"></span>class(swiftest_body),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~23"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~24"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~23"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~24"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -323,15 +323,18 @@ <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>
-<!-- util_exit -->
+<!-- interface~util_spill -->
 <g id="proc~~symba_util_spill_pl~~CallsGraph_node2" class="node">
-<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>
+<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>
-<!-- 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;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,-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>
@@ -347,18 +350,15 @@ <h3 class="panel-title">Calls</h3>
 <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>
-<!-- interface~util_spill -->
+<!-- util_exit -->
 <g id="proc~~symba_util_spill_pl~~CallsGraph_node4" class="node">
-<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>
+<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>
 </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>
+<!-- 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;util_exit</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_tp.html b/docs/proc/symba_util_spill_tp.html
index 2f23af8a7..bf3524517 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.">22 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~334"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~404"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~25"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-discards~26"></span>class(swiftest_body),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~25"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~26"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~25"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~26"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -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>
-<!-- util_spill_tp -->
+<!-- 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_edge3" 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">
 <title>util_spill_tp</title>
-<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>
+<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>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_edge1" class="edge">
+<g id="proc~~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="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"/>
+<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"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_spill_tp~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<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>
+<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>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
-<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_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_derivs_eval.html b/docs/proc/tides_derivs_eval.html
index e80b81211..9a548afc7 100644
--- a/docs/proc/tides_derivs_eval.html
+++ b/docs/proc/tides_derivs_eval.html
@@ -230,7 +230,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~10"></span>class(<a href='../type/tides_derivs_func.html'>tides_derivs_func</a>),</td>
+  <td><span class="anchor" id="variable-self~8"></span>class(<a href='../type/tides_derivs_func.html'>tides_derivs_func</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -260,7 +260,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~9"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~10"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/tides_kick_getacch_pl.html b/docs/proc/tides_kick_getacch_pl.html
index 45ef97db4..9e54a3069 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~200"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~250"></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~69"></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>
   
diff --git a/docs/proc/tides_spin_derivs.html b/docs/proc/tides_spin_derivs.html
index 3074c3ce8..8d9c720cd 100644
--- a/docs/proc/tides_spin_derivs.html
+++ b/docs/proc/tides_spin_derivs.html
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~8"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~9"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/tides_step_spin_system.html b/docs/proc/tides_step_spin_system.html
index 3c7e467dc..46f847948 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~201"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~251"></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~119"></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(in)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~42"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~48"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~59"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~64"></span>real(kind=DP),</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 9e90ab702..20331674c 100644
--- a/docs/proc/user_kick_getacch_body.html
+++ b/docs/proc/user_kick_getacch_body.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~316"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~382"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~94"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~99"></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~178"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~212"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~58"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~64"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -297,7 +297,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~28"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~30"></span>logical,</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 6ad7abe34..e2ac249fd 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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~12"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-arr~19"></span>character(len=STRMAX),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~13"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-source~20"></span>character(len=STRMAX),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~11"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~13"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/util_append_arr_dp.html b/docs/proc/util_append_arr_dp.html
index c6c098cd0..58cf60cf3 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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~13"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-arr~20"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~14"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-source~21"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~12"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~14"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/util_append_arr_dpvec.html b/docs/proc/util_append_arr_dpvec.html
index 823785a6c..8787ab29b 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.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">19 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~14"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-arr~21"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~15"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-source~22"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~13"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~15"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/util_append_arr_i4b.html b/docs/proc/util_append_arr_i4b.html
index a0d9c2db7..354309d4e 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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~15"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-arr~22"></span>integer(kind=I4B),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~16"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-source~23"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~14"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~16"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_append_arr_info.html b/docs/proc/util_append_arr_info.html
similarity index 83%
rename from docs/proc/symba_util_append_arr_info.html
rename to docs/proc/util_append_arr_info.html
index 30d4126ea..0aff21b8c 100644
--- a/docs/proc/symba_util_append_arr_info.html
+++ b/docs/proc/util_append_arr_info.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_util_append_arr_info &ndash; swiftest</title>
+    <title>util_append_arr_info &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_util_append_arr_info
+    <h1>util_append_arr_info
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,24 +136,24 @@ <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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_util.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_append.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_util.f90.html'>symba_util.f90</a></li>
+     <li><a href='../sourcefile/util_append.f90.html'>util_append.f90</a></li>
     
-     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
+     <li><a href='../module/s_util_append.html'>s_util_append</a></li>
     
   
-     <li class="active">symba_util_append_arr_info</li>
+     <li class="active">util_append_arr_info</li>
   </ol>
 </div>
 </div>
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
+subroutine util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~17"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-arr~23"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~21"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-source~24"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -264,7 +264,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nold~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nold~5"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -279,7 +279,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nsrc~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nsrc~5"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~19"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~17"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -322,32 +322,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: proc~~symba_util_append_arr_info~~CallsGraph Pages: 1 -->
-<svg id="procsymba_util_append_arr_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_util_append_arr_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_util_append_arr_info~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 249,-28 249,4 -4,4"/>
-<!-- proc~symba_util_append_arr_info -->
-<g id="proc~~symba_util_append_arr_info~~CallsGraph_node1" class="node">
-<title>proc~symba_util_append_arr_info</title>
-<polygon fill="none" stroke="black" points="148,-24 0,-24 0,0 148,0 148,-24"/>
-<text text-anchor="middle" x="74" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_append_arr_info</text>
+<!-- Title: proc~~util_append_arr_info~~CallsGraph Pages: 1 -->
+<svg id="procutil_append_arr_infoCallsGraph" width="216pt" height="32pt"
+ viewBox="0.00 0.00 216.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_append_arr_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_append_arr_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 212,-28 212,4 -4,4"/>
+<!-- proc~util_append_arr_info -->
+<g id="proc~~util_append_arr_info~~CallsGraph_node1" class="node">
+<title>proc~util_append_arr_info</title>
+<polygon fill="none" stroke="black" points="111,-24 0,-24 0,0 111,0 111,-24"/>
+<text text-anchor="middle" x="55.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_arr_info</text>
 </g>
-<!-- interface~util_resize -->
-<g id="proc~~symba_util_append_arr_info~~CallsGraph_node2" class="node">
-<title>interface~util_resize</title>
-<g id="a_proc~~symba_util_append_arr_info~~CallsGraph_node2"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="245,-24 184,-24 184,0 245,0 245,-24"/>
-<text text-anchor="middle" x="214.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<!-- interface~util_resize~2 -->
+<g id="proc~~util_append_arr_info~~CallsGraph_node2" class="node">
+<title>interface~util_resize~2</title>
+<g id="a_proc~~util_append_arr_info~~CallsGraph_node2"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="208,-24 147,-24 147,0 208,0 208,-24"/>
+<text text-anchor="middle" x="177.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_arr_info&#45;&gt;interface~util_resize -->
-<g id="proc~~symba_util_append_arr_info~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_append_arr_info&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M148.31,-12C157.06,-12 165.72,-12 173.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="173.86,-15.5 183.86,-12 173.86,-8.5 173.86,-15.5"/>
+<!-- proc~util_append_arr_info&#45;&gt;interface~util_resize~2 -->
+<g id="proc~~util_append_arr_info~~CallsGraph_edge1" class="edge">
+<title>proc~util_append_arr_info&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M111.23,-12C119.84,-12 128.59,-12 136.77,-12"/>
+<polygon fill="#000000" stroke="#000000" points="136.78,-15.5 146.78,-12 136.78,-8.5 136.78,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_append_arr_logical.html b/docs/proc/util_append_arr_logical.html
index b28df549b..1e0fb20aa 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.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-arr~24"></span>logical,</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~17"></span>logical,</td>
+  <td><span class="anchor" id="variable-source~25"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -264,7 +264,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nold~5"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nold~6"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -279,7 +279,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nsrc~5"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nsrc~6"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -294,7 +294,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~15"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~18"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/util_append_body.html b/docs/proc/util_append_body.html
index 31025bd0b..25fadcaf1 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.">31 statements</a>
+    title=" 0.1% of total for procedures.">33 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~264"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~325"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~18"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-source~26"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~19"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -454,25 +454,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M201.76,-18.82C209.99,-20.21 218.81,-21.71 227.53,-23.18"/>
 <polygon fill="#000000" stroke="#000000" points="227.22,-26.68 237.67,-24.9 228.39,-19.78 227.22,-26.68"/>
 </g>
-<!-- interface~util_append_tp -->
-<g id="proc~~util_append_body~~CalledByGraph_node5" class="node">
-<title>interface~util_append_tp</title>
-<g id="a_proc~~util_append_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_append_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<g id="proc~~util_append_body~~CalledByGraph_edge4" 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,-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_pl -->
-<g id="proc~~util_append_body~~CalledByGraph_node6" class="node">
+<g id="proc~~util_append_body~~CalledByGraph_node5" class="node">
 <title>interface~util_append_pl</title>
-<g id="a_proc~~util_append_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<g id="a_proc~~util_append_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="82.5,-24 0.5,-24 0.5,0 82.5,0 82.5,-24"/>
 <text text-anchor="middle" x="41.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
@@ -484,6 +469,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.76,-12C91.22,-12 100.24,-12 109.02,-12"/>
 <polygon fill="#000000" stroke="#000000" points="109.16,-15.5 119.16,-12 109.16,-8.5 109.16,-15.5"/>
 </g>
+<!-- interface~util_append_tp -->
+<g id="proc~~util_append_body~~CalledByGraph_node6" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_proc~~util_append_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_append_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
+<g id="proc~~util_append_body~~CalledByGraph_edge4" 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,-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>
 </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_append_encounter.html b/docs/proc/util_append_encounter.html
new file mode 100644
index 000000000..f8de6ace8
--- /dev/null
+++ b/docs/proc/util_append_encounter.html
@@ -0,0 +1,597 @@
+<!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_append_encounter &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_append_encounter
+      <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.0% of total for procedures.">22 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_append.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_append.f90.html'>util_append.f90</a></li>
+    
+     <li><a href='../module/s_util_append.html'>s_util_append</a></li>
+    
+  
+     <li class="active">util_append_encounter</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 util_append_encounter(self, source, lsource_mask)
+    
+    
+   <a href='../interface/util_append_encounter.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Append components from one Swiftest body object to another. 
+ This method will automatically resize the destination body if it is too small</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-self~326"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-source~27"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lsource_mask~20"></span>logical,</td>
+  <td>intent(in),</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>
+  
+</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~~util_append_encounter~~CallsGraph Pages: 1 -->
+<svg id="procutil_append_encounterCallsGraph" width="234pt" height="32pt"
+ viewBox="0.00 0.00 234.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_append_encounter~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_append_encounter~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 230,-28 230,4 -4,4"/>
+<!-- proc~util_append_encounter -->
+<g id="proc~~util_append_encounter~~CallsGraph_node1" class="node">
+<title>proc~util_append_encounter</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">util_append_encounter</text>
+</g>
+<!-- interface~util_append~2 -->
+<g id="proc~~util_append_encounter~~CallsGraph_node2" class="node">
+<title>interface~util_append~2</title>
+<g id="a_proc~~util_append_encounter~~CallsGraph_node2"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="226,-24 158,-24 158,0 226,0 226,-24"/>
+<text text-anchor="middle" x="192" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_encounter&#45;&gt;interface~util_append~2 -->
+<g id="proc~~util_append_encounter~~CallsGraph_edge1" class="edge">
+<title>proc~util_append_encounter&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M122.35,-12C130.92,-12 139.6,-12 147.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="147.78,-15.5 157.78,-12 147.78,-8.5 147.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">
+  <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~~util_append_encounter~~CalledByGraph Pages: 1 -->
+<svg id="procutil_append_encounterCalledByGraph" 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="proc~~util_append_encounter~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_append_encounter~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
+<!-- proc~util_append_encounter -->
+<g id="proc~~util_append_encounter~~CalledByGraph_node1" class="node">
+<title>proc~util_append_encounter</title>
+<polygon fill="none" stroke="black" 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">util_append_encounter</text>
+</g>
+<!-- interface~util_append_encounter -->
+<g id="proc~~util_append_encounter~~CalledByGraph_node2" class="node">
+<title>interface~util_append_encounter</title>
+<g id="a_proc~~util_append_encounter~~CalledByGraph_node2"><a xlink:href=".././interface/util_append_encounter.html" xlink:title="util_append_encounter">
+<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">util_append_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_encounter&#45;&gt;proc~util_append_encounter -->
+<g id="proc~~util_append_encounter~~CalledByGraph_edge1" class="edge">
+<title>interface~util_append_encounter&#45;&gt;proc~util_append_encounter</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"/>
+</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/util_append_pl.html b/docs/proc/util_append_pl.html
index 51f4116c5..66cb6631c 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.">30 statements</a>
+    title=" 0.0% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~265"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~327"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~19"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-source~28"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~17"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~21"></span>logical,</td>
   <td>intent(in),</td>
   <td></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="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)">
+<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)">
 <title>proc~~util_append_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.17 456,-90.17 456,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 456,-108 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,-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>
+<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~2 -->
+<!-- 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"/>
+</g>
+<!-- interface~util_append~2 -->
+<g id="proc~~util_append_pl~~CallsGraph_node3" class="node">
 <title>interface~util_append~2</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
-<g id="proc~~util_append_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~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="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"/>
+<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"/>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~util_append_pl~~CallsGraph_node3" class="node">
+<g id="proc~~util_append_pl~~CallsGraph_node4" class="node">
 <title>interface~util_exit</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="proc~~util_append_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<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"/>
+<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"/>
 </g>
-<!-- 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>
+<!-- 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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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"/>
 </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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<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,-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"/>
+<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"/>
 </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="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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_append_tp.html b/docs/proc/util_append_tp.html
index b19842010..3aed5b757 100644
--- a/docs/proc/util_append_tp.html
+++ b/docs/proc/util_append_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~266"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~328"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~20"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-source~29"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~18"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~22"></span>logical,</td>
   <td>intent(in),</td>
   <td></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="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)">
+<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)">
 <title>proc~~util_append_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.14 457,-90.14 457,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 457,-108 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,-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>
+<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~2 -->
+<!-- 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"/>
+</g>
+<!-- interface~util_append~2 -->
+<g id="proc~~util_append_tp~~CallsGraph_node3" class="node">
 <title>interface~util_append~2</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
-<g id="proc~~util_append_tp~~CallsGraph_edge1" class="edge">
+<g id="proc~~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="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"/>
+<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"/>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~util_append_tp~~CallsGraph_node3" class="node">
+<g id="proc~~util_append_tp~~CallsGraph_node4" class="node">
 <title>interface~util_exit</title>
-<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>
+<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>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
-<g id="proc~~util_append_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_append_tp~~CallsGraph_edge3" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<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"/>
+<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"/>
 </g>
-<!-- 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>
+<!-- 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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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"/>
 </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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<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,-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"/>
+<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"/>
 </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="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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_coord_b2h_pl.html b/docs/proc/util_coord_b2h_pl.html
index eecf7a39b..29ff30dc1 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~242"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~294"></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-cb~40"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~43"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_coord_b2h_tp.html b/docs/proc/util_coord_b2h_tp.html
index bf938f8ad..6078ceb46 100644
--- a/docs/proc/util_coord_b2h_tp.html
+++ b/docs/proc/util_coord_b2h_tp.html
@@ -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~295"></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-cb~41"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~44"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_coord_h2b_pl.html b/docs/proc/util_coord_h2b_pl.html
index def2aa320..151bb87ec 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.">28 statements</a>
+    title=" 0.0% of total for procedures.">28 statements</a>
      </li> 
      
      
@@ -238,7 +238,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~292"></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-cb~38"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~41"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 632cc1411..362281e88 100644
--- a/docs/proc/util_coord_h2b_tp.html
+++ b/docs/proc/util_coord_h2b_tp.html
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
 <p>Adapted from David E. Kaufmann's Swifter routine coord_h2b_tp.f90 
  Adapted from Hal Levison's Swift routine coord_h2b_tp.f </p>
     
@@ -238,7 +238,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~293"></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-cb~39"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~42"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_coord_vb2vh_pl.html b/docs/proc/util_coord_vb2vh_pl.html
similarity index 82%
rename from docs/proc/helio_coord_vb2vh_pl.html
rename to docs/proc/util_coord_vb2vh_pl.html
index 895f11280..ca384a6a5 100644
--- a/docs/proc/helio_coord_vb2vh_pl.html
+++ b/docs/proc/util_coord_vb2vh_pl.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>helio_coord_vb2vh_pl &ndash; swiftest</title>
+    <title>util_coord_vb2vh_pl &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>helio_coord_vb2vh_pl
+    <h1>util_coord_vb2vh_pl
       <small>Module Subroutine</small>
     
     </h1>
@@ -141,19 +141,19 @@ <h1>helio_coord_vb2vh_pl
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_coord.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_coord.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></li>
+     <li><a href='../sourcefile/util_coord.f90.html'>util_coord.f90</a></li>
     
-     <li><a href='../module/s_helio_coord.html'>s_helio_coord</a></li>
+     <li><a href='../module/s_util_coord.html'>s_util_coord</a></li>
     
   
-     <li class="active">helio_coord_vb2vh_pl</li>
+     <li class="active">util_coord_vb2vh_pl</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine helio_coord_vb2vh_pl(self, cb)
+module subroutine util_coord_vb2vh_pl(self, cb)
     
     
-   <a href='../interface/helio_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_coord_vb2vh_pl.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-self~285"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~296"></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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~42"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~45"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -282,32 +282,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~~helio_coord_vb2vh_pl~~CalledByGraph Pages: 1 -->
-<svg id="prochelio_coord_vb2vh_plCalledByGraph" width="278pt" height="32pt"
- viewBox="0.00 0.00 278.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~helio_coord_vb2vh_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~helio_coord_vb2vh_pl~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 274,-28 274,4 -4,4"/>
-<!-- proc~helio_coord_vb2vh_pl -->
-<g id="proc~~helio_coord_vb2vh_pl~~CalledByGraph_node1" class="node">
-<title>proc~helio_coord_vb2vh_pl</title>
-<polygon fill="none" stroke="black" points="270,-24 153,-24 153,0 270,0 270,-24"/>
-<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord_vb2vh_pl</text>
+<!-- Title: proc~~util_coord_vb2vh_pl~~CalledByGraph Pages: 1 -->
+<svg id="procutil_coord_vb2vh_plCalledByGraph" 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_coord_vb2vh_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_coord_vb2vh_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- proc~util_coord_vb2vh_pl -->
+<g id="proc~~util_coord_vb2vh_pl~~CalledByGraph_node1" class="node">
+<title>proc~util_coord_vb2vh_pl</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_coord_vb2vh_pl</text>
 </g>
-<!-- interface~helio_coord_vb2vh_pl -->
-<g id="proc~~helio_coord_vb2vh_pl~~CalledByGraph_node2" class="node">
-<title>interface~helio_coord_vb2vh_pl</title>
-<g id="a_proc~~helio_coord_vb2vh_pl~~CalledByGraph_node2"><a xlink:href=".././interface/helio_coord_vb2vh_pl.html" xlink:title="helio_coord_vb2vh_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_pl</text>
+<!-- interface~util_coord_vb2vh_pl -->
+<g id="proc~~util_coord_vb2vh_pl~~CalledByGraph_node2" class="node">
+<title>interface~util_coord_vb2vh_pl</title>
+<g id="a_proc~~util_coord_vb2vh_pl~~CalledByGraph_node2"><a xlink:href=".././interface/util_coord_vb2vh_pl.html" xlink:title="util_coord_vb2vh_pl">
+<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_coord_vb2vh_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vb2vh_pl&#45;&gt;proc~helio_coord_vb2vh_pl -->
-<g id="proc~~helio_coord_vb2vh_pl~~CalledByGraph_edge1" 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="M117.02,-12C125.46,-12 134.23,-12 142.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.89,-15.5 152.89,-12 142.89,-8.5 142.89,-15.5"/>
+<!-- interface~util_coord_vb2vh_pl&#45;&gt;proc~util_coord_vb2vh_pl -->
+<g id="proc~~util_coord_vb2vh_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~util_coord_vb2vh_pl&#45;&gt;proc~util_coord_vb2vh_pl</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/helio_coord_vb2vh_tp.html b/docs/proc/util_coord_vb2vh_tp.html
similarity index 83%
rename from docs/proc/helio_coord_vb2vh_tp.html
rename to docs/proc/util_coord_vb2vh_tp.html
index 9216b7f48..f232f677e 100644
--- a/docs/proc/helio_coord_vb2vh_tp.html
+++ b/docs/proc/util_coord_vb2vh_tp.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>helio_coord_vb2vh_tp &ndash; swiftest</title>
+    <title>util_coord_vb2vh_tp &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>helio_coord_vb2vh_tp
+    <h1>util_coord_vb2vh_tp
       <small>Module Subroutine</small>
     
     </h1>
@@ -141,19 +141,19 @@ <h1>helio_coord_vb2vh_tp
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_coord.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_coord.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></li>
+     <li><a href='../sourcefile/util_coord.f90.html'>util_coord.f90</a></li>
     
-     <li><a href='../module/s_helio_coord.html'>s_helio_coord</a></li>
+     <li><a href='../module/s_util_coord.html'>s_util_coord</a></li>
     
   
-     <li class="active">helio_coord_vb2vh_tp</li>
+     <li class="active">util_coord_vb2vh_tp</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine helio_coord_vb2vh_tp(self, vbcb)
+module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
-   <a href='../interface/helio_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_coord_vb2vh_tp.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-self~286"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~297"></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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -282,32 +282,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~~helio_coord_vb2vh_tp~~CalledByGraph Pages: 1 -->
-<svg id="prochelio_coord_vb2vh_tpCalledByGraph" 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="proc~~helio_coord_vb2vh_tp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~helio_coord_vb2vh_tp~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- proc~helio_coord_vb2vh_tp -->
-<g id="proc~~helio_coord_vb2vh_tp~~CalledByGraph_node1" class="node">
-<title>proc~helio_coord_vb2vh_tp</title>
-<polygon fill="none" stroke="black" points="272,-24 154,-24 154,0 272,0 272,-24"/>
-<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord_vb2vh_tp</text>
+<!-- Title: proc~~util_coord_vb2vh_tp~~CalledByGraph Pages: 1 -->
+<svg id="procutil_coord_vb2vh_tpCalledByGraph" width="262pt" height="32pt"
+ viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_coord_vb2vh_tp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_coord_vb2vh_tp~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
+<!-- proc~util_coord_vb2vh_tp -->
+<g id="proc~~util_coord_vb2vh_tp~~CalledByGraph_node1" class="node">
+<title>proc~util_coord_vb2vh_tp</title>
+<polygon fill="none" stroke="black" points="254,-24 145,-24 145,0 254,0 254,-24"/>
+<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_vb2vh_tp</text>
 </g>
-<!-- interface~helio_coord_vb2vh_tp -->
-<g id="proc~~helio_coord_vb2vh_tp~~CalledByGraph_node2" class="node">
-<title>interface~helio_coord_vb2vh_tp</title>
-<g id="a_proc~~helio_coord_vb2vh_tp~~CalledByGraph_node2"><a xlink:href=".././interface/helio_coord_vb2vh_tp.html" xlink:title="helio_coord_vb2vh_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">helio_coord_vb2vh_tp</text>
+<!-- interface~util_coord_vb2vh_tp -->
+<g id="proc~~util_coord_vb2vh_tp~~CalledByGraph_node2" class="node">
+<title>interface~util_coord_vb2vh_tp</title>
+<g id="a_proc~~util_coord_vb2vh_tp~~CalledByGraph_node2"><a xlink:href=".././interface/util_coord_vb2vh_tp.html" xlink:title="util_coord_vb2vh_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="109,-24 0,-24 0,0 109,0 109,-24"/>
+<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vb2vh_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vb2vh_tp&#45;&gt;proc~helio_coord_vb2vh_tp -->
-<g id="proc~~helio_coord_vb2vh_tp~~CalledByGraph_edge1" 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="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"/>
+<!-- interface~util_coord_vb2vh_tp&#45;&gt;proc~util_coord_vb2vh_tp -->
+<g id="proc~~util_coord_vb2vh_tp~~CalledByGraph_edge1" class="edge">
+<title>interface~util_coord_vb2vh_tp&#45;&gt;proc~util_coord_vb2vh_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
+<polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/helio_coord_vh2vb_pl.html b/docs/proc/util_coord_vh2vb_pl.html
similarity index 82%
rename from docs/proc/helio_coord_vh2vb_pl.html
rename to docs/proc/util_coord_vh2vb_pl.html
index bf2a7ad19..e33545ac7 100644
--- a/docs/proc/helio_coord_vh2vb_pl.html
+++ b/docs/proc/util_coord_vh2vb_pl.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>helio_coord_vh2vb_pl &ndash; swiftest</title>
+    <title>util_coord_vh2vb_pl &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>helio_coord_vh2vb_pl
+    <h1>util_coord_vh2vb_pl
       <small>Module Subroutine</small>
     
     </h1>
@@ -141,19 +141,19 @@ <h1>helio_coord_vh2vb_pl
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_coord.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_coord.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></li>
+     <li><a href='../sourcefile/util_coord.f90.html'>util_coord.f90</a></li>
     
-     <li><a href='../module/s_helio_coord.html'>s_helio_coord</a></li>
+     <li><a href='../module/s_util_coord.html'>s_util_coord</a></li>
     
   
-     <li class="active">helio_coord_vh2vb_pl</li>
+     <li class="active">util_coord_vh2vb_pl</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine helio_coord_vh2vb_pl(self, cb)
+module subroutine util_coord_vh2vb_pl(self, cb)
     
     
-   <a href='../interface/helio_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_coord_vh2vb_pl.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-self~287"></span>class(<a href='../type/helio_pl.html'>helio_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~298"></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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~43"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~46"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -282,32 +282,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~~helio_coord_vh2vb_pl~~CalledByGraph Pages: 1 -->
-<svg id="prochelio_coord_vh2vb_plCalledByGraph" width="278pt" height="32pt"
- viewBox="0.00 0.00 278.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~helio_coord_vh2vb_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~helio_coord_vh2vb_pl~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 274,-28 274,4 -4,4"/>
-<!-- proc~helio_coord_vh2vb_pl -->
-<g id="proc~~helio_coord_vh2vb_pl~~CalledByGraph_node1" class="node">
-<title>proc~helio_coord_vh2vb_pl</title>
-<polygon fill="none" stroke="black" points="270,-24 153,-24 153,0 270,0 270,-24"/>
-<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord_vh2vb_pl</text>
+<!-- Title: proc~~util_coord_vh2vb_pl~~CalledByGraph Pages: 1 -->
+<svg id="procutil_coord_vh2vb_plCalledByGraph" 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_coord_vh2vb_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_coord_vh2vb_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- proc~util_coord_vh2vb_pl -->
+<g id="proc~~util_coord_vh2vb_pl~~CalledByGraph_node1" class="node">
+<title>proc~util_coord_vh2vb_pl</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_coord_vh2vb_pl</text>
 </g>
-<!-- interface~helio_coord_vh2vb_pl -->
-<g id="proc~~helio_coord_vh2vb_pl~~CalledByGraph_node2" class="node">
-<title>interface~helio_coord_vh2vb_pl</title>
-<g id="a_proc~~helio_coord_vh2vb_pl~~CalledByGraph_node2"><a xlink:href=".././interface/helio_coord_vh2vb_pl.html" xlink:title="helio_coord_vh2vb_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="117,-24 0,-24 0,0 117,0 117,-24"/>
-<text text-anchor="middle" x="58.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_pl</text>
+<!-- interface~util_coord_vh2vb_pl -->
+<g id="proc~~util_coord_vh2vb_pl~~CalledByGraph_node2" class="node">
+<title>interface~util_coord_vh2vb_pl</title>
+<g id="a_proc~~util_coord_vh2vb_pl~~CalledByGraph_node2"><a xlink:href=".././interface/util_coord_vh2vb_pl.html" xlink:title="util_coord_vh2vb_pl">
+<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_coord_vh2vb_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vh2vb_pl&#45;&gt;proc~helio_coord_vh2vb_pl -->
-<g id="proc~~helio_coord_vh2vb_pl~~CalledByGraph_edge1" 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="M117.02,-12C125.46,-12 134.23,-12 142.86,-12"/>
-<polygon fill="#000000" stroke="#000000" points="142.89,-15.5 152.89,-12 142.89,-8.5 142.89,-15.5"/>
+<!-- interface~util_coord_vh2vb_pl&#45;&gt;proc~util_coord_vh2vb_pl -->
+<g id="proc~~util_coord_vh2vb_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~util_coord_vh2vb_pl&#45;&gt;proc~util_coord_vh2vb_pl</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/eucl_dist_index_plpl.html b/docs/proc/util_coord_vh2vb_tp.html
similarity index 83%
rename from docs/proc/eucl_dist_index_plpl.html
rename to docs/proc/util_coord_vh2vb_tp.html
index fd565444b..0369eb965 100644
--- a/docs/proc/eucl_dist_index_plpl.html
+++ b/docs/proc/util_coord_vh2vb_tp.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>eucl_dist_index_plpl &ndash; swiftest</title>
+    <title>util_coord_vh2vb_tp &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>eucl_dist_index_plpl
+    <h1>util_coord_vh2vb_tp
       <small>Module Subroutine</small>
     
     </h1>
@@ -126,7 +126,7 @@ <h1>eucl_dist_index_plpl
 <div class="well well-sm">
   <ul class="list-inline" style="margin-bottom:0px;display:inline">
      
-     <li><i class="fa fa-pencil"></i> Jacob R. Elliott and David A. Minton</li>
+     <li><i class="fa fa-pencil"></i> David A. Minton</li>
      
      
      
@@ -136,24 +136,24 @@ <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.0% of total for procedures.">20 statements</a>
+    title=" 0.0% of total for procedures.">14 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/eucl.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_coord.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/eucl.f90.html'>eucl.f90</a></li>
+     <li><a href='../sourcefile/util_coord.f90.html'>util_coord.f90</a></li>
     
-     <li><a href='../module/s_eucl.html'>s_eucl</a></li>
+     <li><a href='../module/s_util_coord.html'>s_util_coord</a></li>
     
   
-     <li class="active">eucl_dist_index_plpl</li>
+     <li class="active">util_coord_vh2vb_tp</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine eucl_dist_index_plpl(self)
+module subroutine util_coord_vh2vb_tp(self, vbcb)
     
     
-   <a href='../interface/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_coord_vh2vb_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,11 +215,9 @@ <h2>
 
 
     
-    <p>Turns i,j indices into k index for use in the Euclidean distance matrix</p>
-<p>Reference:</p>
-<div class="codehilite"><pre><span></span><code><span class="err">Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
-<span class="err">   2019. hal-0204751</span>
-</code></pre></div>
+    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
+<p>Adapted from David E. Kaufmann's Swifter routine coord_vh2vb_tp.f90
+ Adapted from Hal Levison's Swift routine coord_vh2b_tp.f </p>
     
 
     <h3>Arguments</h3>
@@ -240,12 +238,27 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~315"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~299"></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 massive body objec</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vbcb~4"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -269,30 +282,30 @@ <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~~eucl_dist_index_plpl~~CalledByGraph Pages: 1 -->
-<svg id="proceucl_dist_index_plplCalledByGraph" width="262pt" height="32pt"
+<!-- Title: proc~~util_coord_vh2vb_tp~~CalledByGraph Pages: 1 -->
+<svg id="procutil_coord_vh2vb_tpCalledByGraph" width="262pt" height="32pt"
  viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~eucl_dist_index_plpl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~eucl_dist_index_plpl~~CalledByGraph</title>
+<g id="proc~~util_coord_vh2vb_tp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_coord_vh2vb_tp~~CalledByGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
-<!-- proc~eucl_dist_index_plpl -->
-<g id="proc~~eucl_dist_index_plpl~~CalledByGraph_node1" class="node">
-<title>proc~eucl_dist_index_plpl</title>
+<!-- proc~util_coord_vh2vb_tp -->
+<g id="proc~~util_coord_vh2vb_tp~~CalledByGraph_node1" class="node">
+<title>proc~util_coord_vh2vb_tp</title>
 <polygon fill="none" stroke="black" points="254,-24 145,-24 145,0 254,0 254,-24"/>
-<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">eucl_dist_index_plpl</text>
+<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_vh2vb_tp</text>
 </g>
-<!-- interface~eucl_dist_index_plpl -->
-<g id="proc~~eucl_dist_index_plpl~~CalledByGraph_node2" class="node">
-<title>interface~eucl_dist_index_plpl</title>
-<g id="a_proc~~eucl_dist_index_plpl~~CalledByGraph_node2"><a xlink:href=".././interface/eucl_dist_index_plpl.html" xlink:title="eucl_dist_index_plpl">
+<!-- interface~util_coord_vh2vb_tp -->
+<g id="proc~~util_coord_vh2vb_tp~~CalledByGraph_node2" class="node">
+<title>interface~util_coord_vh2vb_tp</title>
+<g id="a_proc~~util_coord_vh2vb_tp~~CalledByGraph_node2"><a xlink:href=".././interface/util_coord_vh2vb_tp.html" xlink:title="util_coord_vh2vb_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="109,-24 0,-24 0,0 109,0 109,-24"/>
-<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl_dist_index_plpl</text>
+<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_vh2vb_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl -->
-<g id="proc~~eucl_dist_index_plpl~~CalledByGraph_edge1" class="edge">
-<title>interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl</title>
+<!-- interface~util_coord_vh2vb_tp&#45;&gt;proc~util_coord_vh2vb_tp -->
+<g id="proc~~util_coord_vh2vb_tp~~CalledByGraph_edge1" class="edge">
+<title>interface~util_coord_vh2vb_tp&#45;&gt;proc~util_coord_vh2vb_tp</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
 <polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-15.5"/>
 </g>
diff --git a/docs/proc/util_coord_xh2xb_pl.html b/docs/proc/util_coord_xh2xb_pl.html
new file mode 100644
index 000000000..1dd5dc689
--- /dev/null
+++ b/docs/proc/util_coord_xh2xb_pl.html
@@ -0,0 +1,482 @@
+<!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_coord_xh2xb_pl &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_coord_xh2xb_pl
+      <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.0% of total for procedures.">24 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_coord.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_coord.f90.html'>util_coord.f90</a></li>
+    
+     <li><a href='../module/s_util_coord.html'>s_util_coord</a></li>
+    
+  
+     <li class="active">util_coord_xh2xb_pl</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 util_coord_xh2xb_pl(self, cb)
+    
+    
+   <a href='../interface/util_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only)</p>
+<p>Adapted from David E. Kaufmann's Swifter routine coord_h2b.f90 
+ Adapted from Hal Levison's Swift routine coord_h2b.f </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-self~300"></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" id="variable-cb~47"></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>
+
+    
+    
+    
+    <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~~util_coord_xh2xb_pl~~CalledByGraph Pages: 1 -->
+<svg id="procutil_coord_xh2xb_plCalledByGraph" 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_coord_xh2xb_pl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_coord_xh2xb_pl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- proc~util_coord_xh2xb_pl -->
+<g id="proc~~util_coord_xh2xb_pl~~CalledByGraph_node1" class="node">
+<title>proc~util_coord_xh2xb_pl</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_coord_xh2xb_pl</text>
+</g>
+<!-- interface~util_coord_xh2xb_pl -->
+<g id="proc~~util_coord_xh2xb_pl~~CalledByGraph_node2" class="node">
+<title>interface~util_coord_xh2xb_pl</title>
+<g id="a_proc~~util_coord_xh2xb_pl~~CalledByGraph_node2"><a xlink:href=".././interface/util_coord_xh2xb_pl.html" xlink:title="util_coord_xh2xb_pl">
+<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_coord_xh2xb_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_xh2xb_pl&#45;&gt;proc~util_coord_xh2xb_pl -->
+<g id="proc~~util_coord_xh2xb_pl~~CalledByGraph_edge1" class="edge">
+<title>interface~util_coord_xh2xb_pl&#45;&gt;proc~util_coord_xh2xb_pl</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>
+</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/util_coord_xh2xb_tp.html b/docs/proc/util_coord_xh2xb_tp.html
new file mode 100644
index 000000000..abad7d082
--- /dev/null
+++ b/docs/proc/util_coord_xh2xb_tp.html
@@ -0,0 +1,482 @@
+<!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_coord_xh2xb_tp &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_coord_xh2xb_tp
+      <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.0% of total for procedures.">13 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_coord.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_coord.f90.html'>util_coord.f90</a></li>
+    
+     <li><a href='../module/s_util_coord.html'>s_util_coord</a></li>
+    
+  
+     <li class="active">util_coord_xh2xb_tp</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 util_coord_xh2xb_tp(self, cb)
+    
+    
+   <a href='../interface/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Convert test particles from heliocentric to barycentric coordinates (position only)</p>
+<p>Adapted from David E. Kaufmann's Swifter routine coord_h2b_tp.f90 
+ Adapted from Hal Levison's Swift routine coord_h2b_tp.f </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-self~301"></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" id="variable-cb~48"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</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~~util_coord_xh2xb_tp~~CalledByGraph Pages: 1 -->
+<svg id="procutil_coord_xh2xb_tpCalledByGraph" width="262pt" height="32pt"
+ viewBox="0.00 0.00 262.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_coord_xh2xb_tp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_coord_xh2xb_tp~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 258,-28 258,4 -4,4"/>
+<!-- proc~util_coord_xh2xb_tp -->
+<g id="proc~~util_coord_xh2xb_tp~~CalledByGraph_node1" class="node">
+<title>proc~util_coord_xh2xb_tp</title>
+<polygon fill="none" stroke="black" points="254,-24 145,-24 145,0 254,0 254,-24"/>
+<text text-anchor="middle" x="199.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_xh2xb_tp</text>
+</g>
+<!-- interface~util_coord_xh2xb_tp -->
+<g id="proc~~util_coord_xh2xb_tp~~CalledByGraph_node2" class="node">
+<title>interface~util_coord_xh2xb_tp</title>
+<g id="a_proc~~util_coord_xh2xb_tp~~CalledByGraph_node2"><a xlink:href=".././interface/util_coord_xh2xb_tp.html" xlink:title="util_coord_xh2xb_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="109,-24 0,-24 0,0 109,0 109,-24"/>
+<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_xh2xb_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_xh2xb_tp&#45;&gt;proc~util_coord_xh2xb_tp -->
+<g id="proc~~util_coord_xh2xb_tp~~CalledByGraph_edge1" class="edge">
+<title>interface~util_coord_xh2xb_tp&#45;&gt;proc~util_coord_xh2xb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M109.15,-12C117.38,-12 125.94,-12 134.37,-12"/>
+<polygon fill="#000000" stroke="#000000" points="134.54,-15.5 144.54,-12 134.54,-8.5 134.54,-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/util_copy_encounter.html b/docs/proc/util_copy_encounter.html
index 275fffdad..eda63a2c7 100644
--- a/docs/proc/util_copy_encounter.html
+++ b/docs/proc/util_copy_encounter.html
@@ -136,7 +136,7 @@ <h1>util_copy_encounter
      <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.">21 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~263"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~323"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-source~12"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-source~17"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_coord_vh2vb_tp.html b/docs/proc/util_copy_particle_info.html
similarity index 83%
rename from docs/proc/helio_coord_vh2vb_tp.html
rename to docs/proc/util_copy_particle_info.html
index cca2f9697..0db4941d5 100644
--- a/docs/proc/helio_coord_vh2vb_tp.html
+++ b/docs/proc/util_copy_particle_info.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>helio_coord_vh2vb_tp &ndash; swiftest</title>
+    <title>util_copy_particle_info &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>helio_coord_vh2vb_tp
+    <h1>util_copy_particle_info
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>helio_coord_vh2vb_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.">14 statements</a>
+    title=" 0.0% of total for procedures.">7 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/helio_coord.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_copy.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/helio_coord.f90.html'>helio_coord.f90</a></li>
+     <li><a href='../sourcefile/util_copy.f90.html'>util_copy.f90</a></li>
     
-     <li><a href='../module/s_helio_coord.html'>s_helio_coord</a></li>
+     <li><a href='../module/s_util_copy.html'>s_util_copy</a></li>
     
   
-     <li class="active">helio_coord_vh2vb_tp</li>
+     <li class="active">util_copy_particle_info</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine helio_coord_vh2vb_tp(self, vbcb)
+module subroutine util_copy_particle_info(self, source)
     
     
-   <a href='../interface/helio_coord_vh2vb_tp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_copy_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,9 +215,7 @@ <h2>
 
 
     
-    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
-<p>Adapted from David E. Kaufmann's Swifter routine coord_vh2vb_tp.f90
- Adapted from Hal Levison's Swift routine coord_vh2b_tp.f </p>
+    <p>Copies one set of information object components into another, component-by-component</p>
     
 
     <h3>Arguments</h3>
@@ -238,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~288"></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~324"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td></td>
   
 </tr>
 
@@ -253,12 +251,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vbcb~4"></span>real(kind=DP),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" id="variable-source~18"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td></td>
   
 </tr>
 
@@ -282,30 +280,30 @@ <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~~helio_coord_vh2vb_tp~~CalledByGraph Pages: 1 -->
-<svg id="prochelio_coord_vh2vb_tpCalledByGraph" width="280pt" height="32pt"
+<!-- Title: proc~~util_copy_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="procutil_copy_particle_infoCalledByGraph" 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="proc~~helio_coord_vh2vb_tp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~helio_coord_vh2vb_tp~~CalledByGraph</title>
+<g id="proc~~util_copy_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_copy_particle_info~~CalledByGraph</title>
 <polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
-<!-- proc~helio_coord_vh2vb_tp -->
-<g id="proc~~helio_coord_vh2vb_tp~~CalledByGraph_node1" class="node">
-<title>proc~helio_coord_vh2vb_tp</title>
+<!-- proc~util_copy_particle_info -->
+<g id="proc~~util_copy_particle_info~~CalledByGraph_node1" class="node">
+<title>proc~util_copy_particle_info</title>
 <polygon fill="none" stroke="black" points="272,-24 154,-24 154,0 272,0 272,-24"/>
-<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord_vh2vb_tp</text>
+<text text-anchor="middle" x="213" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy_particle_info</text>
 </g>
-<!-- interface~helio_coord_vh2vb_tp -->
-<g id="proc~~helio_coord_vh2vb_tp~~CalledByGraph_node2" class="node">
-<title>interface~helio_coord_vh2vb_tp</title>
-<g id="a_proc~~helio_coord_vh2vb_tp~~CalledByGraph_node2"><a xlink:href=".././interface/helio_coord_vh2vb_tp.html" xlink:title="helio_coord_vh2vb_tp">
+<!-- interface~util_copy_particle_info -->
+<g id="proc~~util_copy_particle_info~~CalledByGraph_node2" class="node">
+<title>interface~util_copy_particle_info</title>
+<g id="a_proc~~util_copy_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/util_copy_particle_info.html" xlink:title="util_copy_particle_info">
 <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">helio_coord_vh2vb_tp</text>
+<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp -->
-<g id="proc~~helio_coord_vh2vb_tp~~CalledByGraph_edge1" class="edge">
-<title>interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp</title>
+<!-- interface~util_copy_particle_info&#45;&gt;proc~util_copy_particle_info -->
+<g id="proc~~util_copy_particle_info~~CalledByGraph_edge1" class="edge">
+<title>interface~util_copy_particle_info&#45;&gt;proc~util_copy_particle_info</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>
diff --git a/docs/proc/util_copy_particle_info_arr.html b/docs/proc/util_copy_particle_info_arr.html
new file mode 100644
index 000000000..4245b2c62
--- /dev/null
+++ b/docs/proc/util_copy_particle_info_arr.html
@@ -0,0 +1,540 @@
+<!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_copy_particle_info_arr &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_copy_particle_info_arr
+      <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.0% of total for procedures.">28 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_copy.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_copy.f90.html'>util_copy.f90</a></li>
+    
+     <li><a href='../module/s_util_copy.html'>s_util_copy</a></li>
+    
+  
+     <li class="active">util_copy_particle_info_arr</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 util_copy_particle_info_arr(source, dest, idx)
+    
+    
+   <a href='../interface/util_copy_particle_info_arr.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Copies contents from an array of one particle information objects to another.</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-source~19"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dest~2"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>dest</strong></td><td><p>Swiftest body object with particle metadata information object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-idx~6"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Optional array of indices to draw the source object</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~~util_copy_particle_info_arr~~CalledByGraph Pages: 1 -->
+<svg id="procutil_copy_particle_info_arrCalledByGraph" width="502pt" height="116pt"
+ viewBox="0.00 0.00 502.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>proc~~util_copy_particle_info_arr~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 498,-112 498,4 -4,4"/>
+<!-- proc~util_copy_particle_info_arr -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_node1" class="node">
+<title>proc~util_copy_particle_info_arr</title>
+<polygon fill="none" stroke="black" points="494,-66 356,-66 356,-42 494,-42 494,-66"/>
+<text text-anchor="middle" x="425" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy_particle_info_arr</text>
+</g>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_node2" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_copy_particle_info_arr~~CalledByGraph_node2"><a xlink:href=".././interface/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#a7506f" stroke="#a7506f" points="320,-66 182,-66 182,-42 320,-42 320,-66"/>
+<text text-anchor="middle" x="251" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_edge1" class="edge">
+<title>interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.47,-54C328.73,-54 337.22,-54 345.6,-54"/>
+<polygon fill="#000000" stroke="#000000" points="345.76,-57.5 355.76,-54 345.76,-50.5 345.76,-57.5"/>
+</g>
+<!-- proc~util_fill_arr_info -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_node3" class="node">
+<title>proc~util_fill_arr_info</title>
+<g id="a_proc~~util_copy_particle_info_arr~~CalledByGraph_node3"><a xlink:href=".././proc/util_fill_arr_info.html" xlink:title="util_fill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="115.5,-108 30.5,-108 30.5,-84 115.5,-84 115.5,-108"/>
+<text text-anchor="middle" x="73" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_edge2" class="edge">
+<title>proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M115.71,-86.05C137.78,-80.78 165.27,-74.22 189.63,-68.41"/>
+<polygon fill="#000000" stroke="#000000" points="190.58,-71.78 199.49,-66.05 188.95,-64.97 190.58,-71.78"/>
+</g>
+<!-- proc~util_spill_arr_info -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_node4" class="node">
+<title>proc~util_spill_arr_info</title>
+<g id="a_proc~~util_copy_particle_info_arr~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_arr_info.html" xlink:title="util_spill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="119.5,-66 26.5,-66 26.5,-42 119.5,-42 119.5,-66"/>
+<text text-anchor="middle" x="73" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_edge3" class="edge">
+<title>proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M119.78,-54C135.62,-54 153.85,-54 171.55,-54"/>
+<polygon fill="#000000" stroke="#000000" points="171.89,-57.5 181.89,-54 171.89,-50.5 171.89,-57.5"/>
+</g>
+<!-- proc~util_sort_rearrange_arr_info -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_node5" class="node">
+<title>proc~util_sort_rearrange_arr_info</title>
+<g id="a_proc~~util_copy_particle_info_arr~~CalledByGraph_node5"><a xlink:href=".././proc/util_sort_rearrange_arr_info.html" xlink:title="util_sort_rearrange_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_arr_info</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="proc~~util_copy_particle_info_arr~~CalledByGraph_edge4" class="edge">
+<title>proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M124.43,-24.04C144.78,-28.89 168.42,-34.53 189.67,-39.6"/>
+<polygon fill="#000000" stroke="#000000" points="189.02,-43.05 199.56,-41.96 190.64,-36.24 189.02,-43.05"/>
+</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/util_exit.html b/docs/proc/util_exit.html
index c03f15bbb..3377a89e3 100644
--- a/docs/proc/util_exit.html
+++ b/docs/proc/util_exit.html
@@ -268,551 +268,827 @@ <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="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)">
+<svg id="procutil_exitCalledByGraph" width="641pt" height="937pt"
+ viewBox="0.00 0.00 641.00 937.23" 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.84 0.84) rotate(0) translate(4 1116)">
 <title>proc~~util_exit~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-738 635,-738 635,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-1116 762,-1116 762,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="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>
+<polygon fill="none" stroke="black" points="758,-570 704,-570 704,-546 758,-546 758,-570"/>
+<text text-anchor="middle" x="731" y="-555.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="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>
+<polygon fill="#a7506f" stroke="#a7506f" points="668,-570 614,-570 614,-546 668,-546 668,-570"/>
+<text text-anchor="middle" x="641" y="-555.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.4,-558C676.39,-558 685.31,-558 693.82,-558"/>
+<polygon fill="#000000" stroke="#000000" points="693.92,-561.5 703.92,-558 693.92,-554.5 693.92,-561.5"/>
 </g>
-<!-- proc~io_get_args -->
+<!-- proc~io_write_hdr_system -->
 <g id="proc~~util_exit~~CalledByGraph_node3" class="node">
-<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>
+<title>proc~io_write_hdr_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node3"><a xlink:href=".././proc/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="557.5,-1112 446.5,-1112 446.5,-1088 557.5,-1088 557.5,-1112"/>
+<text text-anchor="middle" x="502" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_hdr_system&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge2" class="edge">
-<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"/>
+<title>proc~io_write_hdr_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M557.7,-1089.3C565.47,-1085.61 572.64,-1080.65 578,-1074 640.44,-996.52 641.31,-669.51 640.35,-580.47"/>
+<polygon fill="#000000" stroke="#000000" points="643.85,-580.34 640.23,-570.39 636.85,-580.43 643.85,-580.34"/>
 </g>
-<!-- proc~io_read_param_in -->
+<!-- proc~io_dump_base -->
 <g id="proc~~util_exit~~CalledByGraph_node4" class="node">
-<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>
+<title>proc~io_dump_base</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node4"><a xlink:href=".././proc/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-1032 119,-1032 119,-1008 202,-1008 202,-1032"/>
+<text text-anchor="middle" x="160.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_base&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge3" class="edge">
-<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"/>
+<title>proc~io_dump_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M197.67,-1032.06C210.28,-1035.7 224.62,-1039.2 238,-1041 312.88,-1051.09 521.27,-1090.91 578,-1041 613.11,-1010.11 633.85,-671.78 638.83,-580.55"/>
+<polygon fill="#000000" stroke="#000000" points="642.33,-580.64 639.37,-570.46 635.34,-580.26 642.33,-580.64"/>
 </g>
-<!-- proc~util_append_tp -->
+<!-- interface~io_write_frame_body -->
+<g id="proc~~util_exit~~CalledByGraph_node35" class="node">
+<title>interface~io_write_frame_body</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node35"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="370,-1032 258,-1032 258,-1008 370,-1008 370,-1032"/>
+<text text-anchor="middle" x="314" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_body -->
+<g id="proc~~util_exit~~CalledByGraph_edge54" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_body</title>
+<path fill="none" stroke="#000000" d="M202.1,-1020C216.12,-1020 232.2,-1020 247.69,-1020"/>
+<polygon fill="#000000" stroke="#000000" points="247.76,-1023.5 257.76,-1020 247.76,-1016.5 247.76,-1023.5"/>
+</g>
+<!-- interface~io_write_frame_cb -->
+<g id="proc~~util_exit~~CalledByGraph_node42" class="node">
+<title>interface~io_write_frame_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node42"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-990 264,-990 264,-966 364,-966 364,-990"/>
+<text text-anchor="middle" x="314" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+</a>
+</g>
+</g>
+<!-- proc~io_dump_base&#45;&gt;interface~io_write_frame_cb -->
+<g id="proc~~util_exit~~CalledByGraph_edge55" class="edge">
+<title>proc~io_dump_base&#45;&gt;interface~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" d="M202.1,-1008.74C219.86,-1003.82 240.94,-997.98 259.93,-992.71"/>
+<polygon fill="#000000" stroke="#000000" points="260.93,-996.07 269.63,-990.02 259.06,-989.32 260.93,-996.07"/>
+</g>
+<!-- proc~io_get_args -->
 <g id="proc~~util_exit~~CalledByGraph_node5" class="node">
-<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>
+<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="536.5,-948 467.5,-948 467.5,-924 536.5,-924 536.5,-948"/>
+<text text-anchor="middle" x="502" y="-933.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_edge4" class="edge">
-<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"/>
+<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M536.7,-934.41C551.38,-931.95 567.57,-926.54 578,-915 622.95,-865.26 636.03,-650.89 639.15,-580.49"/>
+<polygon fill="#000000" stroke="#000000" points="642.66,-580.26 639.58,-570.13 635.67,-579.97 642.66,-580.26"/>
 </g>
-<!-- proc~io_dump_param -->
+<!-- proc~io_write_frame_system -->
 <g id="proc~~util_exit~~CalledByGraph_node6" class="node">
-<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>
+<title>proc~io_write_frame_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node6"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="563.5,-906 440.5,-906 440.5,-882 563.5,-882 563.5,-906"/>
+<text text-anchor="middle" x="502" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge5" class="edge">
-<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"/>
+<title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M563.81,-883.64C569.1,-880.86 573.96,-877.37 578,-873 617.79,-829.95 634.05,-644.94 638.59,-580.35"/>
+<polygon fill="#000000" stroke="#000000" points="642.1,-580.29 639.28,-570.08 635.11,-579.82 642.1,-580.29"/>
 </g>
-<!-- proc~io_dump_swiftest -->
+<!-- proc~io_dump_particle_info_base -->
 <g id="proc~~util_exit~~CalledByGraph_node7" class="node">
-<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>
+<title>proc~io_dump_particle_info_base</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node7"><a xlink:href=".././proc/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#d9534f" stroke="#d9534f" points="575.5,-864 428.5,-864 428.5,-840 575.5,-840 575.5,-864"/>
+<text text-anchor="middle" x="502" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_particle_info_base&#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"/>
+<title>proc~io_dump_particle_info_base&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M566.53,-839.94C570.75,-837.48 574.64,-834.53 578,-831 612.7,-794.53 631.84,-638.33 637.88,-580.04"/>
+<polygon fill="#000000" stroke="#000000" points="641.37,-580.35 638.88,-570.05 634.4,-579.65 641.37,-580.35"/>
 </g>
-<!-- proc~io_read_cb_in -->
+<!-- proc~io_write_frame_body -->
 <g id="proc~~util_exit~~CalledByGraph_node8" class="node">
-<title>proc~io_read_cb_in</title>
-<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>
+<title>proc~io_write_frame_body</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node8"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="558,-1032 446,-1032 446,-1008 558,-1008 558,-1032"/>
+<text text-anchor="middle" x="502" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_frame_body&#45;&gt;interface~util_exit -->
 <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="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"/>
+<title>proc~io_write_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M558.18,-1012.66C565.7,-1009.5 572.66,-1005.11 578,-999 633.43,-935.64 639.42,-660.99 639.97,-580.34"/>
+<polygon fill="#000000" stroke="#000000" points="643.47,-580.31 640.02,-570.29 636.47,-580.28 643.47,-580.31"/>
 </g>
-<!-- proc~io_read_frame_body -->
+<!-- proc~io_write_encounter -->
 <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>
+<title>proc~io_write_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node9"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="553.5,-822 450.5,-822 450.5,-798 553.5,-798 553.5,-822"/>
+<text text-anchor="middle" x="502" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_encounter&#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"/>
+<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M553.7,-803.51C562.72,-800.35 571.34,-795.73 578,-789 635.46,-730.91 641.22,-625.64 640.81,-580.04"/>
+<polygon fill="#000000" stroke="#000000" points="644.31,-579.97 640.6,-570.04 637.31,-580.11 644.31,-579.97"/>
 </g>
-<!-- proc~io_write_hdr -->
+<!-- proc~io_write_frame_encounter -->
 <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>
+<title>proc~io_write_frame_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node10"><a xlink:href=".././proc/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="570.5,-780 433.5,-780 433.5,-756 570.5,-756 570.5,-780"/>
+<text text-anchor="middle" x="502" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_frame_encounter&#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"/>
+<title>proc~io_write_frame_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M565.46,-755.98C570.03,-753.51 574.29,-750.55 578,-747 625.33,-701.7 636.56,-619.74 639.2,-580.34"/>
+<polygon fill="#000000" stroke="#000000" points="642.71,-580.38 639.75,-570.2 635.72,-580 642.71,-580.38"/>
 </g>
-<!-- proc~io_read_encounter -->
+<!-- proc~io_dump_particle_info -->
 <g id="proc~~util_exit~~CalledByGraph_node11" class="node">
-<title>proc~io_read_encounter</title>
-<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>
+<title>proc~io_dump_particle_info</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node11"><a xlink:href=".././proc/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="561,-738 443,-738 443,-714 561,-714 561,-738"/>
+<text text-anchor="middle" x="502" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_particle_info&#45;&gt;interface~util_exit -->
 <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="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"/>
+<title>proc~io_dump_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M561.06,-715.61C567.21,-712.85 573.03,-709.38 578,-705 615.36,-672.07 630.83,-612.89 636.72,-580.57"/>
+<polygon fill="#000000" stroke="#000000" points="640.23,-580.78 638.43,-570.34 633.33,-579.63 640.23,-580.78"/>
 </g>
-<!-- proc~io_read_frame_cb -->
+<!-- proc~util_append_tp -->
 <g id="proc~~util_exit~~CalledByGraph_node12" class="node">
-<title>proc~io_read_frame_cb</title>
-<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>
+<title>proc~util_append_tp</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node12"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="543.5,-696 460.5,-696 460.5,-672 543.5,-672 543.5,-696"/>
+<text text-anchor="middle" x="502" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
+<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
 <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="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"/>
+<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M543.76,-678.52C555.68,-675.42 568.14,-670.58 578,-663 605.93,-641.54 623.74,-603.62 632.79,-579.7"/>
+<polygon fill="#000000" stroke="#000000" points="636.15,-580.7 636.24,-570.11 629.57,-578.33 636.15,-580.7"/>
 </g>
-<!-- proc~io_write_encounter -->
+<!-- proc~util_valid_id_system -->
 <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>
+<title>proc~util_valid_id_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node13"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="556,-654 448,-654 448,-630 556,-630 556,-654"/>
+<text text-anchor="middle" x="502" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<!-- proc~util_valid_id_system&#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"/>
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M556.07,-630.9C563.7,-628.24 571.25,-624.99 578,-621 596.6,-610.02 613.5,-592.06 624.93,-578.12"/>
+<polygon fill="#000000" stroke="#000000" points="627.85,-580.08 631.32,-570.06 622.36,-575.73 627.85,-580.08"/>
 </g>
-<!-- proc~io_write_frame_system -->
+<!-- proc~util_solve_rkf45 -->
 <g id="proc~~util_exit~~CalledByGraph_node14" class="node">
-<title>proc~io_write_frame_system</title>
-<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>
+<title>proc~util_solve_rkf45</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node14"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="545.5,-612 458.5,-612 458.5,-588 545.5,-588 545.5,-612"/>
+<text text-anchor="middle" x="502" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
+<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
 <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="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_edge27" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<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"/>
+<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M545.56,-588.51C556.19,-585.52 567.54,-582.23 578,-579 586.51,-576.37 595.61,-573.38 604.16,-570.5"/>
+<polygon fill="#000000" stroke="#000000" points="605.52,-573.74 613.86,-567.2 603.26,-567.11 605.52,-573.74"/>
 </g>
-<!-- proc~util_valid_id_system -->
+<!-- proc~io_read_particle_info_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>
+<title>proc~io_read_particle_info_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node15"><a xlink:href=".././proc/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="578,-570 426,-570 426,-546 578,-546 578,-570"/>
+<text text-anchor="middle" x="502" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_particle_info_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"/>
+<title>proc~io_read_particle_info_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M578.31,-558C587.22,-558 595.97,-558 603.96,-558"/>
+<polygon fill="#000000" stroke="#000000" points="603.96,-561.5 613.96,-558 603.96,-554.5 603.96,-561.5"/>
 </g>
-<!-- proc~setup_construct_system -->
+<!-- proc~io_read_in_cb -->
 <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>
+<title>proc~io_read_in_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node16"><a xlink:href=".././proc/io_read_in_cb.html" xlink:title="io_read_in_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="542,-528 462,-528 462,-504 542,-504 542,-528"/>
+<text text-anchor="middle" x="502" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_in_cb&#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"/>
+<title>proc~io_read_in_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M542.04,-526.5C553.65,-529.74 566.37,-533.41 578,-537 586.51,-539.63 595.61,-542.62 604.16,-545.5"/>
+<polygon fill="#000000" stroke="#000000" points="603.26,-548.89 613.86,-548.8 605.52,-542.26 603.26,-548.89"/>
 </g>
-<!-- proc~io_read_body_in -->
+<!-- proc~io_read_frame_body -->
 <g id="proc~~util_exit~~CalledByGraph_node17" class="node">
-<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>
+<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="#d94e8f" stroke="#d94e8f" points="558,-486 446,-486 446,-462 558,-462 558,-486"/>
+<text text-anchor="middle" x="502" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_frame_body&#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"/>
+<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M558.04,-485.8C565,-488.32 571.83,-491.36 578,-495 596.6,-505.98 613.5,-523.94 624.93,-537.88"/>
+<polygon fill="#000000" stroke="#000000" points="622.36,-540.27 631.32,-545.94 627.85,-535.92 622.36,-540.27"/>
 </g>
-<!-- proc~io_write_discard -->
+<!-- proc~io_read_in_particle_info -->
 <g id="proc~~util_exit~~CalledByGraph_node18" class="node">
-<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>
+<title>proc~io_read_in_particle_info</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node18"><a xlink:href=".././proc/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="565.5,-444 438.5,-444 438.5,-420 565.5,-420 565.5,-444"/>
+<text text-anchor="middle" x="502" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_particle_info</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_in_particle_info&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge17" class="edge">
-<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"/>
+<title>proc~io_read_in_particle_info&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M562.79,-444.06C568.21,-446.51 573.39,-449.46 578,-453 605.93,-474.46 623.74,-512.38 632.79,-536.3"/>
+<polygon fill="#000000" stroke="#000000" points="629.57,-537.67 636.24,-545.89 636.15,-535.3 629.57,-537.67"/>
 </g>
-<!-- proc~util_append_pl -->
+<!-- proc~io_write_discard -->
 <g id="proc~~util_exit~~CalledByGraph_node19" class="node">
-<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>
+<title>proc~io_write_discard</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node19"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="547,-402 457,-402 457,-378 547,-378 547,-402"/>
+<text text-anchor="middle" x="502" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_discard&#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"/>
+<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M547.14,-395.42C558.21,-398.53 569.38,-403.4 578,-411 615.36,-443.93 630.83,-503.11 636.72,-535.43"/>
+<polygon fill="#000000" stroke="#000000" points="633.33,-536.37 638.43,-545.66 640.23,-535.22 633.33,-536.37"/>
 </g>
-<!-- proc~util_solve_rkf45 -->
+<!-- proc~io_read_encounter -->
 <g id="proc~~util_exit~~CalledByGraph_node20" class="node">
-<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>
+<title>proc~io_read_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node20"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="553.5,-360 450.5,-360 450.5,-336 553.5,-336 553.5,-360"/>
+<text text-anchor="middle" x="502" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_encounter&#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"/>
+<title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M553.8,-354.92C562.7,-358.05 571.26,-362.55 578,-369 625.33,-414.3 636.56,-496.26 639.2,-535.66"/>
+<polygon fill="#000000" stroke="#000000" points="635.72,-536 639.75,-545.8 642.71,-535.62 635.72,-536"/>
 </g>
-<!-- interface~io_read_cb_in -->
+<!-- proc~check -->
 <g id="proc~~util_exit~~CalledByGraph_node21" class="node">
-<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>
+<title>proc~check</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node21"><a xlink:href=".././proc/check.html" xlink:title="check">
+<polygon fill="#d9534f" stroke="#d9534f" points="529,-318 475,-318 475,-294 529,-294 529,-318"/>
+<text text-anchor="middle" x="502" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">check</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~check&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge20" class="edge">
+<title>proc~check&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M529.18,-306.99C545.31,-308.97 565.26,-314.12 578,-327 635.46,-385.09 641.22,-490.36 640.81,-535.96"/>
+<polygon fill="#000000" stroke="#000000" points="637.31,-535.89 640.6,-545.96 644.31,-536.03 637.31,-535.89"/>
 </g>
-<!-- interface~util_valid_id_system -->
+<!-- proc~io_conservation_report -->
 <g id="proc~~util_exit~~CalledByGraph_node22" class="node">
-<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>
+<title>proc~io_conservation_report</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node22"><a xlink:href=".././proc/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#d9534f" stroke="#d9534f" points="563,-276 441,-276 441,-252 563,-252 563,-276"/>
+<text text-anchor="middle" x="502" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_conservation_report&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge21" class="edge">
+<title>proc~io_conservation_report&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M563.31,-274.3C568.77,-277.08 573.81,-280.59 578,-285 612.7,-321.47 631.84,-477.67 637.88,-535.96"/>
+<polygon fill="#000000" stroke="#000000" points="634.4,-536.35 638.88,-545.95 641.37,-535.65 634.4,-536.35"/>
 </g>
-<!-- interface~io_write_discard -->
+<!-- proc~io_write_frame_cb -->
 <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="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>
+<title>proc~io_write_frame_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node23"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="552,-990 452,-990 452,-966 552,-966 552,-990"/>
+<text text-anchor="middle" x="502" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
-<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="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"/>
+<!-- proc~io_write_frame_cb&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge22" class="edge">
+<title>proc~io_write_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M552.36,-972.73C562.04,-969.53 571.27,-964.58 578,-957 628.13,-900.53 637.8,-656.52 639.6,-580.62"/>
+<polygon fill="#000000" stroke="#000000" points="643.11,-580.38 639.82,-570.31 636.11,-580.23 643.11,-580.38"/>
 </g>
-<!-- interface~util_append_pl -->
+<!-- proc~setup_construct_system -->
 <g id="proc~~util_exit~~CalledByGraph_node24" class="node">
-<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>
+<title>proc~setup_construct_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node24"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="566,-234 438,-234 438,-210 566,-210 566,-234"/>
+<text text-anchor="middle" x="502" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge23" class="edge">
+<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M566.3,-233.74C570.62,-236.28 574.6,-239.33 578,-243 617.79,-286.05 634.05,-471.06 638.59,-535.65"/>
+<polygon fill="#000000" stroke="#000000" points="635.11,-536.18 639.28,-545.92 642.1,-535.71 635.11,-536.18"/>
 </g>
-<!-- interface~io_dump_swiftest -->
+<!-- proc~util_append_pl -->
 <g id="proc~~util_exit~~CalledByGraph_node25" class="node">
-<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>
+<title>proc~util_append_pl</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node25"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="543,-192 461,-192 461,-168 543,-168 543,-192"/>
+<text text-anchor="middle" x="502" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
+<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
 <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"/>
+<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M543.29,-182.89C556.04,-185.79 569.12,-191.17 578,-201 622.95,-250.74 636.03,-465.11 639.15,-535.51"/>
+<polygon fill="#000000" stroke="#000000" points="635.67,-536.03 639.58,-545.87 642.66,-535.74 635.67,-536.03"/>
 </g>
-<!-- interface~util_append_tp -->
+<!-- proc~io_read_frame_cb -->
 <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="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>
+<title>proc~io_read_frame_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node26"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="552,-150 452,-150 452,-126 552,-126 552,-150"/>
+<text text-anchor="middle" x="502" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<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="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"/>
+<!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge25" class="edge">
+<title>proc~io_read_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M552.36,-143.27C562.04,-146.47 571.27,-151.42 578,-159 628.13,-215.47 637.8,-459.48 639.6,-535.38"/>
+<polygon fill="#000000" stroke="#000000" points="636.11,-535.77 639.82,-545.69 643.11,-535.62 636.11,-535.77"/>
 </g>
-<!-- interface~io_read_frame_cb -->
+<!-- proc~io_get_old_t_final_system -->
 <g id="proc~~util_exit~~CalledByGraph_node27" class="node">
-<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>
+<title>proc~io_get_old_t_final_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node27"><a xlink:href=".././proc/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="570,-108 434,-108 434,-84 570,-84 570,-108"/>
+<text text-anchor="middle" x="502" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_get_old_t_final_system&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge26" class="edge">
+<title>proc~io_get_old_t_final_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M567.55,-108.18C571.43,-110.63 574.97,-113.54 578,-117 633.43,-180.36 639.42,-455.01 639.97,-535.66"/>
+<polygon fill="#000000" stroke="#000000" points="636.47,-535.72 640.02,-545.71 643.47,-535.69 636.47,-535.72"/>
 </g>
-<!-- interface~io_read_body_in -->
+<!-- proc~io_dump_param -->
 <g id="proc~~util_exit~~CalledByGraph_node28" class="node">
-<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>
+<title>proc~io_dump_param</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node28"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="547.5,-66 456.5,-66 456.5,-42 547.5,-42 547.5,-66"/>
+<text text-anchor="middle" x="502" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge27" class="edge">
+<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M547.84,-57.74C559.18,-60.82 570.31,-66.1 578,-75 638.71,-145.24 640.88,-450.49 640.28,-535.79"/>
+<polygon fill="#000000" stroke="#000000" points="636.78,-535.87 640.18,-545.9 643.78,-535.94 636.78,-535.87"/>
 </g>
-<!-- interface~setup_construct_system -->
+<!-- proc~io_read_in_param -->
 <g id="proc~~util_exit~~CalledByGraph_node29" class="node">
-<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>
+<title>proc~io_read_in_param</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node29"><a xlink:href=".././proc/io_read_in_param.html" xlink:title="io_read_in_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="552,-24 452,-24 452,0 552,0 552,-24"/>
+<text text-anchor="middle" x="502" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- proc~io_read_in_param&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge28" class="edge">
+<title>proc~io_read_in_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M552.19,-16.96C562,-20.17 571.32,-25.19 578,-33 611.21,-71.83 633.56,-440.35 638.81,-535.61"/>
+<polygon fill="#000000" stroke="#000000" points="635.32,-535.81 639.35,-545.6 642.31,-535.43 635.32,-535.81"/>
 </g>
-<!-- interface~io_read_param_in -->
+<!-- interface~io_read_frame_cb -->
 <g id="proc~~util_exit~~CalledByGraph_node30" class="node">
-<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>
+<title>interface~io_read_frame_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node30"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-150 264,-150 264,-126 364,-126 364,-150"/>
+<text text-anchor="middle" x="314" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<g id="proc~~util_exit~~CalledByGraph_edge50" 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="M364.36,-138C388.1,-138 416.75,-138 441.67,-138"/>
+<polygon fill="#000000" stroke="#000000" points="441.74,-141.5 451.74,-138 441.74,-134.5 441.74,-141.5"/>
 </g>
-<!-- interface~io_write_frame_system -->
+<!-- interface~util_valid_id_system -->
 <g id="proc~~util_exit~~CalledByGraph_node31" class="node">
-<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>
+<title>interface~util_valid_id_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node31"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="368,-654 260,-654 260,-630 368,-630 368,-654"/>
+<text text-anchor="middle" x="314" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
-<g id="proc~~util_exit~~CalledByGraph_edge30" 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="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"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="proc~~util_exit~~CalledByGraph_edge39" 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="M368.3,-642C389.9,-642 415.01,-642 437.54,-642"/>
+<polygon fill="#000000" stroke="#000000" points="437.69,-645.5 447.69,-642 437.69,-638.5 437.69,-645.5"/>
 </g>
-<!-- interface~io_dump_param -->
+<!-- interface~io_write_encounter -->
 <g id="proc~~util_exit~~CalledByGraph_node32" class="node">
-<title>interface~io_dump_param</title>
-<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>
+<title>interface~io_write_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node32"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="365.5,-822 262.5,-822 262.5,-798 365.5,-798 365.5,-822"/>
+<text text-anchor="middle" x="314" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
-<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="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"/>
+<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
+<g id="proc~~util_exit~~CalledByGraph_edge35" class="edge">
+<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.83,-810C388.79,-810 416.11,-810 440.15,-810"/>
+<polygon fill="#000000" stroke="#000000" points="440.24,-813.5 450.24,-810 440.24,-806.5 440.24,-813.5"/>
 </g>
-<!-- interface~io_write_encounter -->
+<!-- interface~util_append_pl -->
 <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>
+<title>interface~util_append_pl</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node33"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="355,-192 273,-192 273,-168 355,-168 355,-192"/>
+<text text-anchor="middle" x="314" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
+<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
+<g id="proc~~util_exit~~CalledByGraph_edge49" class="edge">
+<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M355.36,-180C383.27,-180 420.61,-180 450.49,-180"/>
+<polygon fill="#000000" stroke="#000000" points="450.72,-183.5 460.72,-180 450.72,-176.5 450.72,-183.5"/>
+</g>
+<!-- interface~io_write_hdr_system -->
+<g id="proc~~util_exit~~CalledByGraph_node34" class="node">
+<title>interface~io_write_hdr_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node34"><a xlink:href=".././interface/io_write_hdr_system.html" xlink:title="io_write_hdr_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="369.5,-1112 258.5,-1112 258.5,-1088 369.5,-1088 369.5,-1112"/>
+<text text-anchor="middle" x="314" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system -->
 <g id="proc~~util_exit~~CalledByGraph_edge29" class="edge">
-<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"/>
+<title>interface~io_write_hdr_system&#45;&gt;proc~io_write_hdr_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.55,-1100C390.46,-1100 414.53,-1100 436.3,-1100"/>
+<polygon fill="#000000" stroke="#000000" points="436.45,-1103.5 446.45,-1100 436.45,-1096.5 436.45,-1103.5"/>
+</g>
+<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
+<g id="proc~~util_exit~~CalledByGraph_edge34" 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="M370.05,-1020C390.67,-1020 414.3,-1020 435.76,-1020"/>
+<polygon fill="#000000" stroke="#000000" points="435.77,-1023.5 445.77,-1020 435.77,-1016.5 435.77,-1023.5"/>
+</g>
+<!-- interface~io_write_frame_encounter -->
+<g id="proc~~util_exit~~CalledByGraph_node36" class="node">
+<title>interface~io_write_frame_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node36"><a xlink:href=".././interface/io_write_frame_encounter.html" xlink:title="io_write_frame_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="382.5,-780 245.5,-780 245.5,-756 382.5,-756 382.5,-780"/>
+<text text-anchor="middle" x="314" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter -->
+<g id="proc~~util_exit~~CalledByGraph_edge36" class="edge">
+<title>interface~io_write_frame_encounter&#45;&gt;proc~io_write_frame_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.68,-768C395.84,-768 409.73,-768 423.19,-768"/>
+<polygon fill="#000000" stroke="#000000" points="423.37,-771.5 433.37,-768 423.37,-764.5 423.37,-771.5"/>
+</g>
+<!-- interface~io_read_particle_info_system -->
+<g id="proc~~util_exit~~CalledByGraph_node37" class="node">
+<title>interface~io_read_particle_info_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node37"><a xlink:href=".././interface/io_read_particle_info_system.html" xlink:title="io_read_particle_info_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="390,-570 238,-570 238,-546 390,-546 390,-570"/>
+<text text-anchor="middle" x="314" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_particle_info_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system -->
+<g id="proc~~util_exit~~CalledByGraph_edge41" class="edge">
+<title>interface~io_read_particle_info_system&#45;&gt;proc~io_read_particle_info_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.12,-558C398.6,-558 407.28,-558 415.87,-558"/>
+<polygon fill="#000000" stroke="#000000" points="415.9,-561.5 425.9,-558 415.9,-554.5 415.9,-561.5"/>
 </g>
 <!-- interface~io_read_frame_body -->
-<g id="proc~~util_exit~~CalledByGraph_node34" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node38" 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>
+<g id="a_proc~~util_exit~~CalledByGraph_node38"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="370,-486 258,-486 258,-462 370,-462 370,-486"/>
+<text text-anchor="middle" x="314" y="-471.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="proc~~util_exit~~CalledByGraph_edge26" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge43" 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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.05,-474C390.67,-474 414.3,-474 435.76,-474"/>
+<polygon fill="#000000" stroke="#000000" points="435.77,-477.5 445.77,-474 435.77,-470.5 435.77,-477.5"/>
+</g>
+<!-- interface~io_dump_base -->
+<g id="proc~~util_exit~~CalledByGraph_node39" class="node">
+<title>interface~io_dump_base</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node39"><a xlink:href=".././interface/io_dump_base.html" xlink:title="io_dump_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="83,-1032 0,-1032 0,-1008 83,-1008 83,-1032"/>
+<text text-anchor="middle" x="41.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_base&#45;&gt;proc~io_dump_base -->
+<g id="proc~~util_exit~~CalledByGraph_edge30" class="edge">
+<title>interface~io_dump_base&#45;&gt;proc~io_dump_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M83.09,-1020C91.35,-1020 100.14,-1020 108.7,-1020"/>
+<polygon fill="#000000" stroke="#000000" points="108.98,-1023.5 118.98,-1020 108.98,-1016.5 108.98,-1023.5"/>
 </g>
 <!-- interface~io_get_args -->
-<g id="proc~~util_exit~~CalledByGraph_node35" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node40" 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>
+<g id="a_proc~~util_exit~~CalledByGraph_node40"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="348.5,-948 279.5,-948 279.5,-924 348.5,-924 348.5,-948"/>
+<text text-anchor="middle" x="314" y="-933.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~~util_exit~~CalledByGraph_edge20" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge31" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M348.68,-936C379.01,-936 423.77,-936 456.93,-936"/>
+<polygon fill="#000000" stroke="#000000" points="457.25,-939.5 467.25,-936 457.25,-932.5 457.25,-939.5"/>
+</g>
+<!-- interface~io_get_old_t_final_system -->
+<g id="proc~~util_exit~~CalledByGraph_node41" class="node">
+<title>interface~io_get_old_t_final_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node41"><a xlink:href=".././interface/io_get_old_t_final_system.html" xlink:title="io_get_old_t_final_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="382,-108 246,-108 246,-84 382,-84 382,-108"/>
+<text text-anchor="middle" x="314" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_old_t_final_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system -->
+<g id="proc~~util_exit~~CalledByGraph_edge51" class="edge">
+<title>interface~io_get_old_t_final_system&#45;&gt;proc~io_get_old_t_final_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.15,-96C395.58,-96 409.8,-96 423.55,-96"/>
+<polygon fill="#000000" stroke="#000000" points="423.95,-99.5 433.95,-96 423.95,-92.5 423.95,-99.5"/>
+</g>
+<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
+<g id="proc~~util_exit~~CalledByGraph_edge47" 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="M364.36,-978C388.1,-978 416.75,-978 441.67,-978"/>
+<polygon fill="#000000" stroke="#000000" points="441.74,-981.5 451.74,-978 441.74,-974.5 441.74,-981.5"/>
+</g>
+<!-- interface~setup_construct_system -->
+<g id="proc~~util_exit~~CalledByGraph_node43" class="node">
+<title>interface~setup_construct_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node43"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="378,-234 250,-234 250,-210 378,-210 378,-234"/>
+<text text-anchor="middle" x="314" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<g id="proc~~util_exit~~CalledByGraph_edge48" class="edge">
+<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.23,-222C394.19,-222 411.46,-222 427.86,-222"/>
+<polygon fill="#000000" stroke="#000000" points="427.94,-225.5 437.94,-222 427.94,-218.5 427.94,-225.5"/>
+</g>
+<!-- interface~io_write_discard -->
+<g id="proc~~util_exit~~CalledByGraph_node44" class="node">
+<title>interface~io_write_discard</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node44"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#a7506f" stroke="#a7506f" points="359,-402 269,-402 269,-378 359,-378 359,-402"/>
+<text text-anchor="middle" x="314" y="-387.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_edge45" class="edge">
+<title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M359.08,-390C385.39,-390 419.01,-390 446.91,-390"/>
+<polygon fill="#000000" stroke="#000000" points="446.92,-393.5 456.92,-390 446.92,-386.5 446.92,-393.5"/>
+</g>
+<!-- interface~io_dump_particle_info -->
+<g id="proc~~util_exit~~CalledByGraph_node45" class="node">
+<title>interface~io_dump_particle_info</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node45"><a xlink:href=".././interface/io_dump_particle_info.html" xlink:title="io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="373,-738 255,-738 255,-714 373,-714 373,-738"/>
+<text text-anchor="middle" x="314" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info -->
+<g id="proc~~util_exit~~CalledByGraph_edge37" class="edge">
+<title>interface~io_dump_particle_info&#45;&gt;proc~io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.09,-726C391.97,-726 413.09,-726 432.65,-726"/>
+<polygon fill="#000000" stroke="#000000" points="432.71,-729.5 442.71,-726 432.71,-722.5 432.71,-729.5"/>
+</g>
+<!-- interface~io_read_in_cb -->
+<g id="proc~~util_exit~~CalledByGraph_node46" class="node">
+<title>interface~io_read_in_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node46"><a xlink:href=".././interface/io_read_in_cb.html" xlink:title="io_read_in_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="354,-528 274,-528 274,-504 354,-504 354,-528"/>
+<text text-anchor="middle" x="314" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_cb</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb -->
+<g id="proc~~util_exit~~CalledByGraph_edge42" class="edge">
+<title>interface~io_read_in_cb&#45;&gt;proc~io_read_in_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.45,-516C382.78,-516 421.17,-516 451.55,-516"/>
+<polygon fill="#000000" stroke="#000000" points="451.93,-519.5 461.93,-516 451.93,-512.5 451.93,-519.5"/>
+</g>
+<!-- interface~util_append_tp -->
+<g id="proc~~util_exit~~CalledByGraph_node47" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node47"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="355.5,-696 272.5,-696 272.5,-672 355.5,-672 355.5,-696"/>
+<text text-anchor="middle" x="314" y="-681.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_edge38" class="edge">
+<title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M355.82,-684C383.56,-684 420.46,-684 450.12,-684"/>
+<polygon fill="#000000" stroke="#000000" points="450.28,-687.5 460.28,-684 450.28,-680.5 450.28,-687.5"/>
 </g>
 <!-- interface~util_solve_rkf45 -->
-<g id="proc~~util_exit~~CalledByGraph_node36" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node48" 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>
+<g id="a_proc~~util_exit~~CalledByGraph_node48"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#a7506f" stroke="#a7506f" points="357.5,-612 270.5,-612 270.5,-588 357.5,-588 357.5,-612"/>
+<text text-anchor="middle" x="314" y="-597.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="proc~~util_exit~~CalledByGraph_edge36" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge40" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.67,-600C384.51,-600 419.36,-600 447.97,-600"/>
+<polygon fill="#000000" stroke="#000000" points="448.2,-603.5 458.2,-600 448.2,-596.5 448.2,-603.5"/>
+</g>
+<!-- interface~io_conservation_report -->
+<g id="proc~~util_exit~~CalledByGraph_node49" class="node">
+<title>interface~io_conservation_report</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node49"><a xlink:href=".././interface/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#a7506f" stroke="#a7506f" points="375,-276 253,-276 253,-252 375,-252 375,-276"/>
+<text text-anchor="middle" x="314" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
+</a>
+</g>
+</g>
+<!-- interface~io_conservation_report&#45;&gt;proc~io_conservation_report -->
+<g id="proc~~util_exit~~CalledByGraph_edge46" class="edge">
+<title>interface~io_conservation_report&#45;&gt;proc~io_conservation_report</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.13,-264C392.86,-264 412.42,-264 430.73,-264"/>
+<polygon fill="#000000" stroke="#000000" points="430.76,-267.5 440.76,-264 430.76,-260.5 430.76,-267.5"/>
+</g>
+<!-- interface~io_dump_particle_info_base -->
+<g id="proc~~util_exit~~CalledByGraph_node50" class="node">
+<title>interface~io_dump_particle_info_base</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node50"><a xlink:href=".././interface/io_dump_particle_info_base.html" xlink:title="io_dump_particle_info_base">
+<polygon fill="#a7506f" stroke="#a7506f" points="387.5,-864 240.5,-864 240.5,-840 387.5,-840 387.5,-864"/>
+<text text-anchor="middle" x="314" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_particle_info_base</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base -->
+<g id="proc~~util_exit~~CalledByGraph_edge33" class="edge">
+<title>interface~io_dump_particle_info_base&#45;&gt;proc~io_dump_particle_info_base</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M387.71,-852C397.72,-852 408.06,-852 418.24,-852"/>
+<polygon fill="#000000" stroke="#000000" points="418.34,-855.5 428.34,-852 418.34,-848.5 418.34,-855.5"/>
+</g>
+<!-- interface~io_read_in_param -->
+<g id="proc~~util_exit~~CalledByGraph_node51" class="node">
+<title>interface~io_read_in_param</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node51"><a xlink:href=".././interface/io_read_in_param.html" xlink:title="io_read_in_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-24 264,-24 264,0 364,0 364,-24"/>
+<text text-anchor="middle" x="314" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_param</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_param&#45;&gt;proc~io_read_in_param -->
+<g id="proc~~util_exit~~CalledByGraph_edge53" class="edge">
+<title>interface~io_read_in_param&#45;&gt;proc~io_read_in_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.36,-12C388.1,-12 416.75,-12 441.67,-12"/>
+<polygon fill="#000000" stroke="#000000" points="441.74,-15.5 451.74,-12 441.74,-8.5 441.74,-15.5"/>
+</g>
+<!-- interface~io_read_in_particle_info -->
+<g id="proc~~util_exit~~CalledByGraph_node52" class="node">
+<title>interface~io_read_in_particle_info</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node52"><a xlink:href=".././interface/io_read_in_particle_info.html" xlink:title="io_read_in_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="377.5,-444 250.5,-444 250.5,-420 377.5,-420 377.5,-444"/>
+<text text-anchor="middle" x="314" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_in_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info -->
+<g id="proc~~util_exit~~CalledByGraph_edge44" class="edge">
+<title>interface~io_read_in_particle_info&#45;&gt;proc~io_read_in_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.71,-432C393.87,-432 411.4,-432 428.03,-432"/>
+<polygon fill="#000000" stroke="#000000" points="428.24,-435.5 438.24,-432 428.24,-428.5 428.24,-435.5"/>
+</g>
+<!-- interface~io_write_frame_system -->
+<g id="proc~~util_exit~~CalledByGraph_node53" class="node">
+<title>interface~io_write_frame_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node53"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="375.5,-906 252.5,-906 252.5,-882 375.5,-882 375.5,-906"/>
+<text text-anchor="middle" x="314" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</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="M375.65,-894C393.1,-894 412.28,-894 430.29,-894"/>
+<polygon fill="#000000" stroke="#000000" points="430.44,-897.5 440.44,-894 430.44,-890.5 430.44,-897.5"/>
+</g>
+<!-- interface~io_dump_param -->
+<g id="proc~~util_exit~~CalledByGraph_node54" class="node">
+<title>interface~io_dump_param</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node54"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="359.5,-66 268.5,-66 268.5,-42 359.5,-42 359.5,-66"/>
+<text text-anchor="middle" x="314" y="-51.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_edge52" class="edge">
+<title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M359.55,-54C385.57,-54 418.6,-54 446.2,-54"/>
+<polygon fill="#000000" stroke="#000000" points="446.49,-57.5 456.49,-54 446.49,-50.5 446.49,-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">
+</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">
     <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_arr_char_string.html b/docs/proc/util_fill_arr_char_string.html
index a03978ef1..13dfaf0bb 100644
--- a/docs/proc/util_fill_arr_char_string.html
+++ b/docs/proc/util_fill_arr_char_string.html
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~6"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-keeps~8"></span>character(len=STRMAX),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_fill_arr_dp.html b/docs/proc/util_fill_arr_dp.html
index 9ba184a8e..366803736 100644
--- a/docs/proc/util_fill_arr_dp.html
+++ b/docs/proc/util_fill_arr_dp.html
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~7"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-keeps~9"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_fill_arr_dpvec.html b/docs/proc/util_fill_arr_dpvec.html
index 21610556e..6ef0b7273 100644
--- a/docs/proc/util_fill_arr_dpvec.html
+++ b/docs/proc/util_fill_arr_dpvec.html
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~8"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-keeps~10"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_fill_arr_i4b.html b/docs/proc/util_fill_arr_i4b.html
index 4f9adbd06..61772d1e4 100644
--- a/docs/proc/util_fill_arr_i4b.html
+++ b/docs/proc/util_fill_arr_i4b.html
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~9"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-keeps~11"></span>integer(kind=I4B),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_fill_arr_info.html b/docs/proc/util_fill_arr_info.html
new file mode 100644
index 000000000..ee721e882
--- /dev/null
+++ b/docs/proc/util_fill_arr_info.html
@@ -0,0 +1,509 @@
+<!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_fill_arr_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>util_fill_arr_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.0% of total for procedures.">15 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_fill.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_fill.f90.html'>util_fill.f90</a></li>
+    
+     <li><a href='../module/s_util_fill.html'>s_util_fill</a></li>
+    
+  
+     <li class="active">util_fill_arr_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>
+subroutine util_fill_arr_info(keeps, inserts, lfill_list)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Performs a fill operation on a single array of particle origin information types
+ This is the inverse of a spill operation</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-keeps~12"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inserts~14"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Array of values to insert into keep</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lfill_list~14"></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</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~~util_fill_arr_info~~CallsGraph Pages: 1 -->
+<svg id="procutil_fill_arr_infoCallsGraph" width="441pt" height="32pt"
+ viewBox="0.00 0.00 441.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_fill_arr_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_fill_arr_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 437,-28 437,4 -4,4"/>
+<!-- proc~util_fill_arr_info -->
+<g id="proc~~util_fill_arr_info~~CallsGraph_node1" class="node">
+<title>proc~util_fill_arr_info</title>
+<polygon fill="none" stroke="black" points="85,-24 0,-24 0,0 85,0 85,-24"/>
+<text text-anchor="middle" x="42.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_arr_info</text>
+</g>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="proc~~util_fill_arr_info~~CallsGraph_node2" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_fill_arr_info~~CallsGraph_node2"><a xlink:href=".././interface/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#a7506f" stroke="#a7506f" points="259,-24 121,-24 121,0 259,0 259,-24"/>
+<text text-anchor="middle" x="190" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="proc~~util_fill_arr_info~~CallsGraph_edge1" class="edge">
+<title>proc~util_fill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M85.19,-12C93.31,-12 102.06,-12 110.91,-12"/>
+<polygon fill="#000000" stroke="#000000" points="110.93,-15.5 120.93,-12 110.93,-8.5 110.93,-15.5"/>
+</g>
+<!-- proc~util_copy_particle_info_arr -->
+<g id="proc~~util_fill_arr_info~~CallsGraph_node3" class="node">
+<title>proc~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_fill_arr_info~~CallsGraph_node3"><a xlink:href=".././proc/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#d9534f" stroke="#d9534f" points="433,-24 295,-24 295,0 433,0 433,-24"/>
+<text text-anchor="middle" x="364" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr -->
+<g id="proc~~util_fill_arr_info~~CallsGraph_edge2" class="edge">
+<title>interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.47,-12C267.73,-12 276.22,-12 284.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="284.76,-15.5 294.76,-12 284.76,-8.5 284.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>
+     
+     
+    <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/util_fill_arr_logical.html b/docs/proc/util_fill_arr_logical.html
index 3350185cf..83fc03195 100644
--- a/docs/proc/util_fill_arr_logical.html
+++ b/docs/proc/util_fill_arr_logical.html
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~10"></span>logical,</td>
+  <td><span class="anchor" id="variable-keeps~13"></span>logical,</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inserts~14"></span>logical,</td>
+  <td><span class="anchor" id="variable-inserts~15"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -265,7 +265,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfill_list~14"></span>logical,</td>
+  <td><span class="anchor" id="variable-lfill_list~15"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
diff --git a/docs/proc/util_fill_body.html b/docs/proc/util_fill_body.html
index 3691f5a38..6c7620ea5 100644
--- a/docs/proc/util_fill_body.html
+++ b/docs/proc/util_fill_body.html
@@ -136,7 +136,7 @@ <h1>util_fill_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.">31 statements</a>
+    title=" 0.0% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~256"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~316"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inserts~15"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-inserts~16"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfill_list~15"></span>logical,</td>
+  <td><span class="anchor" id="variable-lfill_list~16"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -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_tp -->
+<!-- proc~util_fill_pl -->
 <g id="proc~~util_fill_body~~CalledByGraph_node3" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
-<g id="proc~~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,-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"/>
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<g id="proc~~util_fill_body~~CalledByGraph_edge3" 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"/>
 </g>
-<!-- proc~util_fill_pl -->
+<!-- proc~util_fill_tp -->
 <g id="proc~~util_fill_body~~CalledByGraph_node4" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
-<g id="proc~~util_fill_body~~CalledByGraph_edge3" class="edge">
-<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"/>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<g id="proc~~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"/>
 </g>
-<!-- interface~util_fill_pl -->
+<!-- interface~util_fill_tp -->
 <g id="proc~~util_fill_body~~CalledByGraph_node5" class="node">
-<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>
+<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>
 </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_edge5" 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,-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"/>
+<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_tp -->
+<!-- interface~util_fill_pl -->
 <g id="proc~~util_fill_body~~CalledByGraph_node6" class="node">
-<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>
+<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>
 </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_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,-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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_fill_pl.html b/docs/proc/util_fill_pl.html
index daff097a0..0740e3642 100644
--- a/docs/proc/util_fill_pl.html
+++ b/docs/proc/util_fill_pl.html
@@ -136,7 +136,7 @@ <h1>util_fill_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.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~257"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~317"></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-inserts~16"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-inserts~17"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfill_list~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-lfill_list~17"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -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,-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>
+<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>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="proc~~util_fill_pl~~CallsGraph_node2" class="node">
-<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>
+<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>
 </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_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="proc~~util_fill_pl~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </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,-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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_fill_tp.html b/docs/proc/util_fill_tp.html
index 9e9c66b30..727475f26 100644
--- a/docs/proc/util_fill_tp.html
+++ b/docs/proc/util_fill_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~258"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~318"></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-inserts~17"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-inserts~18"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lfill_list~17"></span>logical,</td>
+  <td><span class="anchor" id="variable-lfill_list~18"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -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,-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>
+<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>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="proc~~util_fill_tp~~CallsGraph_node2" class="node">
-<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>
+<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>
 </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_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="proc~~util_fill_tp~~CallsGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </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,-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"/>
+<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"/>
 </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,-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"/>
+<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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_get_energy_momentum_system.html b/docs/proc/util_get_energy_momentum_system.html
index 82c49f0c9..7df57abd1 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.">97 statements</a>
+    title=" 0.1% of total for procedures.">96 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~267"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~329"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_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~137"></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(in)</td>
   <td></td>
   
@@ -271,182 +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_get_energy_momentum_system~~CallsGraph Pages: 1 -->
-<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,-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,-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>
-<!-- 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_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_edge3" class="edge">
-<title>proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot</title>
-<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_node8" class="node">
-<title>proc~obl_pot</title>
-<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_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"/>
-</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_index_eucl_plpl.html b/docs/proc/util_index_eucl_plpl.html
new file mode 100644
index 000000000..10f7f377f
--- /dev/null
+++ b/docs/proc/util_index_eucl_plpl.html
@@ -0,0 +1,484 @@
+<!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_index_eucl_plpl &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_index_eucl_plpl
+      <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> Jacob R. Elliott and David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <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>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_index.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_index.f90.html'>util_index.f90</a></li>
+    
+     <li><a href='../module/s_util_index.html'>s_util_index</a></li>
+    
+  
+     <li class="active">util_index_eucl_plpl</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 util_index_eucl_plpl(self, param)
+    
+    
+   <a href='../interface/util_index_eucl_plpl.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions.</p>
+<p>Reference:</p>
+<div class="codehilite"><pre><span></span><code><span class="err">Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
+<span class="err">   2019. hal-0204751</span>
+</code></pre></div>
+    
+
+    <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~302"></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" id="variable-param~160"></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~~util_index_eucl_plpl~~CalledByGraph Pages: 1 -->
+<svg id="procutil_index_eucl_plplCalledByGraph" 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_index_eucl_plpl~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_index_eucl_plpl~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<!-- proc~util_index_eucl_plpl -->
+<g id="proc~~util_index_eucl_plpl~~CalledByGraph_node1" class="node">
+<title>proc~util_index_eucl_plpl</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_index_eucl_plpl</text>
+</g>
+<!-- interface~util_index_eucl_plpl -->
+<g id="proc~~util_index_eucl_plpl~~CalledByGraph_node2" class="node">
+<title>interface~util_index_eucl_plpl</title>
+<g id="a_proc~~util_index_eucl_plpl~~CalledByGraph_node2"><a xlink:href=".././interface/util_index_eucl_plpl.html" xlink:title="util_index_eucl_plpl">
+<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_index_eucl_plpl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_index_eucl_plpl&#45;&gt;proc~util_index_eucl_plpl -->
+<g id="proc~~util_index_eucl_plpl~~CalledByGraph_edge1" class="edge">
+<title>interface~util_index_eucl_plpl&#45;&gt;proc~util_index_eucl_plpl</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>
+</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/util_index_eucl_pltp.html b/docs/proc/util_index_eucl_pltp.html
new file mode 100644
index 000000000..e69b0def5
--- /dev/null
+++ b/docs/proc/util_index_eucl_pltp.html
@@ -0,0 +1,499 @@
+<!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_index_eucl_pltp &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_index_eucl_pltp
+      <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> Jacob R. Elliott and David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <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.">23 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_index.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_index.f90.html'>util_index.f90</a></li>
+    
+     <li><a href='../module/s_util_index.html'>s_util_index</a></li>
+    
+  
+     <li class="active">util_index_eucl_pltp</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 util_index_eucl_pltp(self, pl, param)
+    
+    
+   <a href='../interface/util_index_eucl_pltp.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions</p>
+<p>Reference:</p>
+<div class="codehilite"><pre><span></span><code><span class="err">Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
+<span class="err">   2019. hal-0204751</span>
+</code></pre></div>
+    
+
+    <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~303"></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" id="variable-pl~21"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~161"></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~~util_index_eucl_pltp~~CalledByGraph Pages: 1 -->
+<svg id="procutil_index_eucl_pltpCalledByGraph" 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_index_eucl_pltp~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_index_eucl_pltp~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<!-- proc~util_index_eucl_pltp -->
+<g id="proc~~util_index_eucl_pltp~~CalledByGraph_node1" class="node">
+<title>proc~util_index_eucl_pltp</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_index_eucl_pltp</text>
+</g>
+<!-- interface~util_index_eucl_pltp -->
+<g id="proc~~util_index_eucl_pltp~~CalledByGraph_node2" class="node">
+<title>interface~util_index_eucl_pltp</title>
+<g id="a_proc~~util_index_eucl_pltp~~CalledByGraph_node2"><a xlink:href=".././interface/util_index_eucl_pltp.html" xlink:title="util_index_eucl_pltp">
+<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_index_eucl_pltp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_index_eucl_pltp&#45;&gt;proc~util_index_eucl_pltp -->
+<g id="proc~~util_index_eucl_pltp~~CalledByGraph_edge1" class="edge">
+<title>interface~util_index_eucl_pltp&#45;&gt;proc~util_index_eucl_pltp</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>
+</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/util_minimize_bfgs.html b/docs/proc/util_minimize_bfgs.html
index 5b1193b5d..bd43879ad 100644
--- a/docs/proc/util_minimize_bfgs.html
+++ b/docs/proc/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.9% of total for procedures.">411 statements</a>
+    title=" 0.6% of total for procedures.">411 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
+module function util_minimize_bfgs(f, N, x0, eps, maxloop, lerr) result(x1)
     
     
    <a href='../interface/util_minimize_bfgs.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -333,9 +333,10 @@ <h3 class="panel-title">Uses</h3>
 <p>This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables.<br>
  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
+   N       : Number of variables of function f
+   x0      : Initial starting value of x
+   eps     : Accuracy of 1 - dimensional minimization at each step
+   maxloop : Maximum number of loops to attempt to find a solution
  The outputs include
    lerr :  Returns .true. if it could not find the minimum
  Returns
@@ -420,6 +421,21 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-maxloop~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>maxloop</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lerr~7"></span>logical,</td>
diff --git a/docs/proc/util_peri_tp.html b/docs/proc/util_peri_tp.html
index ddd1b7a88..6b82b0cf6 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~239"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~291"></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~80"></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>
   
@@ -270,7 +270,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~159"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_rescale_system.html b/docs/proc/util_rescale_system.html
index b40e04b0c..63f377419 100644
--- a/docs/proc/util_rescale_system.html
+++ b/docs/proc/util_rescale_system.html
@@ -136,7 +136,7 @@ <h1>util_rescale_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.">31 statements</a>
+    title=" 0.1% of total for procedures.">33 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~244"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~304"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,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~162"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mscale~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mscale~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dscale~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dscale~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -297,7 +297,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tscale~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-tscale~3"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_arr_char_string.html b/docs/proc/util_resize_arr_char_string.html
index cc1302335..97f7d42a1 100644
--- a/docs/proc/util_resize_arr_char_string.html
+++ b/docs/proc/util_resize_arr_char_string.html
@@ -136,7 +136,7 @@ <h1>util_resize_arr_char_string
      <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.">22 statements</a>
+    title=" 0.0% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+    <p>Resizes an array component of type character string. nnew = 0 will deallocate.</p>
     
 
     <h3>Arguments</h3>
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~7"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-arr~13"></span>character(len=STRMAX),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_arr_dp.html b/docs/proc/util_resize_arr_dp.html
index 5bc2da317..c9cbaa0cd 100644
--- a/docs/proc/util_resize_arr_dp.html
+++ b/docs/proc/util_resize_arr_dp.html
@@ -136,7 +136,7 @@ <h1>util_resize_arr_DP
      <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.">22 statements</a>
+    title=" 0.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+    <p>Resizes an array component of double precision type. Passing nnew = 0 will deallocate.</p>
     
 
     <h3>Arguments</h3>
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~8"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-arr~14"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_arr_dpvec.html b/docs/proc/util_resize_arr_dpvec.html
index ac0592339..ebc3d3f58 100644
--- a/docs/proc/util_resize_arr_dpvec.html
+++ b/docs/proc/util_resize_arr_dpvec.html
@@ -136,7 +136,7 @@ <h1>util_resize_arr_DPvec
      <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.">22 statements</a>
+    title=" 0.1% of total for procedures.">38 statements</a>
      </li> 
      
      
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>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.</p>
+    <p>Resizes an array component of double precision vectors of size (NDIM, n). Passing nnew = 0 will deallocate.</p>
     
 
     <h3>Arguments</h3>
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~9"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-arr~15"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_arr_i4b.html b/docs/proc/util_resize_arr_i4b.html
index 969739301..87bdec4ea 100644
--- a/docs/proc/util_resize_arr_i4b.html
+++ b/docs/proc/util_resize_arr_i4b.html
@@ -136,7 +136,7 @@ <h1>util_resize_arr_I4B
      <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.">22 statements</a>
+    title=" 0.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+    <p>Resizes an array component of integer type. Passing nnew = 0 will deallocate.</p>
     
 
     <h3>Arguments</h3>
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-arr~16"></span>integer(kind=I4B),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_resize_arr_info.html b/docs/proc/util_resize_arr_info.html
similarity index 92%
rename from docs/proc/symba_util_resize_arr_info.html
rename to docs/proc/util_resize_arr_info.html
index bd9a44053..bd2255c73 100644
--- a/docs/proc/symba_util_resize_arr_info.html
+++ b/docs/proc/util_resize_arr_info.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_util_resize_arr_info &ndash; swiftest</title>
+    <title>util_resize_arr_info &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_util_resize_arr_info
+    <h1>util_resize_arr_info
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_util_resize_arr_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.">22 statements</a>
+    title=" 0.0% of total for procedures.">26 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_util.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_resize.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_util.f90.html'>symba_util.f90</a></li>
+     <li><a href='../sourcefile/util_resize.f90.html'>util_resize.f90</a></li>
     
-     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
+     <li><a href='../module/s_util_resize.html'>s_util_resize</a></li>
     
   
-     <li class="active">symba_util_resize_arr_info</li>
+     <li class="active">util_resize_arr_info</li>
   </ol>
 </div>
 </div>
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine symba_util_resize_arr_info(arr, nnew)
+subroutine util_resize_arr_info(arr, nnew)
     
     
    
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~19"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-arr~17"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nnew~21"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nnew~16"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_arr_logical.html b/docs/proc/util_resize_arr_logical.html
index bb8df5351..4cd9fcea6 100644
--- a/docs/proc/util_resize_arr_logical.html
+++ b/docs/proc/util_resize_arr_logical.html
@@ -136,7 +136,7 @@ <h1>util_resize_arr_logical
      <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.">22 statements</a>
+    title=" 0.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</p>
+    <p>Resizes an array component of logical type. Passing nnew = 0 will deallocate.</p>
     
 
     <h3>Arguments</h3>
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-arr~11"></span>logical,</td>
+  <td><span class="anchor" id="variable-arr~18"></span>logical,</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nnew~16"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nnew~17"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_body.html b/docs/proc/util_resize_body.html
index 44331b091..d222e4175 100644
--- a/docs/proc/util_resize_body.html
+++ b/docs/proc/util_resize_body.html
@@ -136,7 +136,7 @@ <h1>util_resize_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.">28 statements</a>
+    title=" 0.0% of total for procedures.">28 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~259"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~319"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nnew~17"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nnew~18"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -438,25 +438,10 @@ <h3 class="panel-title">Called by</h3>
 <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_tp -->
-<g id="proc~~util_resize_body~~CalledByGraph_node5" class="node">
-<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_tp&#45;&gt;proc~util_resize_tp -->
-<g id="proc~~util_resize_body~~CalledByGraph_edge5" 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,-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_pl -->
-<g id="proc~~util_resize_body~~CalledByGraph_node6" class="node">
+<g id="proc~~util_resize_body~~CalledByGraph_node5" class="node">
 <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">
+<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,-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>
@@ -468,6 +453,21 @@ <h3 class="panel-title">Called by</h3>
 <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>
+<!-- interface~util_resize_tp -->
+<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,-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_tp&#45;&gt;proc~util_resize_tp -->
+<g id="proc~~util_resize_body~~CalledByGraph_edge5" 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,-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>
 </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_resize_encounter.html b/docs/proc/util_resize_encounter.html
index 486df1b24..4dad9a99a 100644
--- a/docs/proc/util_resize_encounter.html
+++ b/docs/proc/util_resize_encounter.html
@@ -136,7 +136,7 @@ <h1>util_resize_encounter
      <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.">26 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~260"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~320"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nnew~18"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nnew~19"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_resize_pl.html b/docs/proc/util_resize_pl.html
index 5c06117d9..66d9abfeb 100644
--- a/docs/proc/util_resize_pl.html
+++ b/docs/proc/util_resize_pl.html
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p>
+    <p>Checks the current size of a Swiftest massive body against the requested size and resizes it if it is too small.</p>
     
 
     <h3>Arguments</h3>
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~261"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~321"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nnew~19"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nnew~20"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -288,59 +288,59 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~util_resize_pl -->
 <g id="proc~~util_resize_pl~~CallsGraph_node1" class="node">
 <title>proc~util_resize_pl</title>
-<polygon fill="none" stroke="black" points="75,-44 0,-44 0,-20 75,-20 75,-44"/>
-<text text-anchor="middle" x="37.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_pl</text>
+<polygon fill="none" stroke="black" points="75,-24 0,-24 0,0 75,0 75,-24"/>
+<text text-anchor="middle" x="37.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_pl</text>
 </g>
-<!-- interface~util_resize~2 -->
+<!-- interface~util_resize_body -->
 <g id="proc~~util_resize_pl~~CallsGraph_node2" class="node">
-<title>interface~util_resize~2</title>
-<g id="a_proc~~util_resize_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="424,-44 363,-44 363,-20 424,-20 424,-44"/>
-<text text-anchor="middle" x="393.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>interface~util_resize_body</title>
+<g id="a_proc~~util_resize_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="201,-44 111,-44 111,-20 201,-20 201,-44"/>
+<text text-anchor="middle" x="156" y="-29.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~2 -->
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
 <g id="proc~~util_resize_pl~~CallsGraph_edge1" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M75.01,-32.6C86.52,-32.77 99.29,-32.92 111,-33 207,-33.66 231,-33.73 327,-33 335.33,-32.94 344.25,-32.83 352.75,-32.7"/>
-<polygon fill="#000000" stroke="#000000" points="352.88,-36.2 362.83,-32.55 352.78,-29.2 352.88,-36.2"/>
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M75.04,-18.27C83.2,-19.67 92.01,-21.19 100.71,-22.68"/>
+<polygon fill="#000000" stroke="#000000" points="100.37,-26.17 110.82,-24.42 101.55,-19.27 100.37,-26.17"/>
 </g>
-<!-- interface~util_resize_body -->
+<!-- interface~util_resize~2 -->
 <g id="proc~~util_resize_pl~~CallsGraph_node3" class="node">
-<title>interface~util_resize_body</title>
-<g id="a_proc~~util_resize_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="201,-24 111,-24 111,0 201,0 201,-24"/>
-<text text-anchor="middle" x="156" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<title>interface~util_resize~2</title>
+<g id="a_proc~~util_resize_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="424,-24 363,-24 363,0 424,0 424,-24"/>
+<text text-anchor="middle" x="393.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize~2 -->
 <g id="proc~~util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M75.04,-25.73C83.2,-24.33 92.01,-22.81 100.71,-21.32"/>
-<polygon fill="#000000" stroke="#000000" points="101.55,-24.73 110.82,-19.58 100.37,-17.83 101.55,-24.73"/>
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M75.01,-11.4C86.52,-11.23 99.29,-11.08 111,-11 207,-10.34 231,-10.27 327,-11 335.33,-11.06 344.25,-11.17 352.75,-11.3"/>
+<polygon fill="#000000" stroke="#000000" points="352.78,-14.8 362.83,-11.45 352.88,-7.8 352.78,-14.8"/>
 </g>
 <!-- proc~util_resize_body -->
 <g id="proc~~util_resize_pl~~CallsGraph_node4" class="node">
 <title>proc~util_resize_body</title>
 <g id="a_proc~~util_resize_pl~~CallsGraph_node4"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="327,-24 237,-24 237,0 327,0 327,-24"/>
-<text text-anchor="middle" x="282" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="327,-44 237,-44 237,-20 327,-20 327,-44"/>
+<text text-anchor="middle" x="282" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
 <g id="proc~~util_resize_pl~~CallsGraph_edge3" class="edge">
 <title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M201.07,-12C209.28,-12 217.96,-12 226.44,-12"/>
-<polygon fill="#000000" stroke="#000000" points="226.66,-15.5 236.66,-12 226.66,-8.5 226.66,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M201.07,-32C209.28,-32 217.96,-32 226.44,-32"/>
+<polygon fill="#000000" stroke="#000000" points="226.66,-35.5 236.66,-32 226.66,-28.5 226.66,-35.5"/>
 </g>
 <!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
 <g id="proc~~util_resize_pl~~CallsGraph_edge4" class="edge">
 <title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M327.22,-20.08C335.75,-21.63 344.62,-23.26 352.99,-24.78"/>
-<polygon fill="#000000" stroke="#000000" points="352.41,-28.23 362.87,-26.59 353.66,-21.35 352.41,-28.23"/>
+<path fill="none" stroke="#000000" d="M327.22,-23.92C335.75,-22.37 344.62,-20.74 352.99,-19.22"/>
+<polygon fill="#000000" stroke="#000000" points="353.66,-22.65 362.87,-17.41 352.41,-15.77 353.66,-22.65"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_resize_tp.html b/docs/proc/util_resize_tp.html
index c4a391a91..764880724 100644
--- a/docs/proc/util_resize_tp.html
+++ b/docs/proc/util_resize_tp.html
@@ -215,7 +215,7 @@ <h2>
 
 
     
-    <p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p>
+    <p>Checks the current size of a Swiftest test particle against the requested size and resizes it if it is too small.</p>
     
 
     <h3>Arguments</h3>
@@ -236,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~262"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~322"></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 massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nnew~20"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-nnew~21"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -288,59 +288,59 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~util_resize_tp -->
 <g id="proc~~util_resize_tp~~CallsGraph_node1" class="node">
 <title>proc~util_resize_tp</title>
-<polygon fill="none" stroke="black" points="76,-44 0,-44 0,-20 76,-20 76,-44"/>
-<text text-anchor="middle" x="38" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_tp</text>
+<polygon fill="none" stroke="black" points="76,-24 0,-24 0,0 76,0 76,-24"/>
+<text text-anchor="middle" x="38" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_tp</text>
 </g>
-<!-- interface~util_resize~2 -->
+<!-- interface~util_resize_body -->
 <g id="proc~~util_resize_tp~~CallsGraph_node2" class="node">
-<title>interface~util_resize~2</title>
-<g id="a_proc~~util_resize_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="425,-44 364,-44 364,-20 425,-20 425,-44"/>
-<text text-anchor="middle" x="394.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>interface~util_resize_body</title>
+<g id="a_proc~~util_resize_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="202,-44 112,-44 112,-20 202,-20 202,-44"/>
+<text text-anchor="middle" x="157" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
 <g id="proc~~util_resize_tp~~CallsGraph_edge1" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M76.14,-32.61C87.63,-32.77 100.34,-32.92 112,-33 208,-33.66 232,-33.73 328,-33 336.33,-32.94 345.25,-32.83 353.75,-32.7"/>
-<polygon fill="#000000" stroke="#000000" points="353.88,-36.2 363.83,-32.55 353.78,-29.2 353.88,-36.2"/>
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M76.02,-18.33C84.2,-19.73 93.03,-21.24 101.74,-22.72"/>
+<polygon fill="#000000" stroke="#000000" points="101.4,-26.22 111.85,-24.45 102.58,-19.32 101.4,-26.22"/>
 </g>
-<!-- interface~util_resize_body -->
+<!-- interface~util_resize~2 -->
 <g id="proc~~util_resize_tp~~CallsGraph_node3" class="node">
-<title>interface~util_resize_body</title>
-<g id="a_proc~~util_resize_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="202,-24 112,-24 112,0 202,0 202,-24"/>
-<text text-anchor="middle" x="157" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<title>interface~util_resize~2</title>
+<g id="a_proc~~util_resize_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="425,-24 364,-24 364,0 425,0 425,-24"/>
+<text text-anchor="middle" x="394.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
 <g id="proc~~util_resize_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M76.02,-25.67C84.2,-24.27 93.03,-22.76 101.74,-21.28"/>
-<polygon fill="#000000" stroke="#000000" points="102.58,-24.68 111.85,-19.55 101.4,-17.78 102.58,-24.68"/>
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M76.14,-11.39C87.63,-11.23 100.34,-11.08 112,-11 208,-10.34 232,-10.27 328,-11 336.33,-11.06 345.25,-11.17 353.75,-11.3"/>
+<polygon fill="#000000" stroke="#000000" points="353.78,-14.8 363.83,-11.45 353.88,-7.8 353.78,-14.8"/>
 </g>
 <!-- proc~util_resize_body -->
 <g id="proc~~util_resize_tp~~CallsGraph_node4" class="node">
 <title>proc~util_resize_body</title>
 <g id="a_proc~~util_resize_tp~~CallsGraph_node4"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="328,-24 238,-24 238,0 328,0 328,-24"/>
-<text text-anchor="middle" x="283" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="328,-44 238,-44 238,-20 328,-20 328,-44"/>
+<text text-anchor="middle" x="283" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
 <g id="proc~~util_resize_tp~~CallsGraph_edge3" class="edge">
 <title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M202.07,-12C210.28,-12 218.96,-12 227.44,-12"/>
-<polygon fill="#000000" stroke="#000000" points="227.66,-15.5 237.66,-12 227.66,-8.5 227.66,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M202.07,-32C210.28,-32 218.96,-32 227.44,-32"/>
+<polygon fill="#000000" stroke="#000000" points="227.66,-35.5 237.66,-32 227.66,-28.5 227.66,-35.5"/>
 </g>
 <!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
 <g id="proc~~util_resize_tp~~CallsGraph_edge4" class="edge">
 <title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M328.22,-20.08C336.75,-21.63 345.62,-23.26 353.99,-24.78"/>
-<polygon fill="#000000" stroke="#000000" points="353.41,-28.23 363.87,-26.59 354.66,-21.35 353.41,-28.23"/>
+<path fill="none" stroke="#000000" d="M328.22,-23.92C336.75,-22.37 345.62,-20.74 353.99,-19.22"/>
+<polygon fill="#000000" stroke="#000000" points="354.66,-22.65 363.87,-17.41 353.41,-15.77 354.66,-22.65"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_set_beg_end_pl.html b/docs/proc/util_set_beg_end_pl.html
index fbb628988..76a1652be 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~232"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~283"></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 4a0b24544..5dd86c8be 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~233"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~284"></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 b8fd38aea..9a02cee79 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~234"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~285"></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 1a08c8987..d5300f6c7 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~235"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~286"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~34"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~37"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 61d25f0a8..3b0396e31 100644
--- a/docs/proc/util_set_mu_tp.html
+++ b/docs/proc/util_set_mu_tp.html
@@ -136,7 +136,7 @@ <h1>util_set_mu_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.">7 statements</a>
+    title=" 0.0% of total for procedures.">8 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~236"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~287"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~35"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~38"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_particle_info.html b/docs/proc/util_set_particle_info.html
new file mode 100644
index 000000000..95704178b
--- /dev/null
+++ b/docs/proc/util_set_particle_info.html
@@ -0,0 +1,630 @@
+<!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_set_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>util_set_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.">53 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_set.f90.html'>util_set.f90</a></li>
+    
+     <li><a href='../module/s_util_set.html'>s_util_set</a></li>
+    
+  
+     <li class="active">util_set_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 util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
+    
+    
+   <a href='../interface/util_set_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Sets one or more values of the particle information metadata object</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-self~288"></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-name~3"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>name</strong></td><td><p>Non-unique name</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_type~3"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>particle_type</strong></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~10"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td><p>Particle status description: ACTIVE, MERGED, FRAGMENTED, etc.</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_type~3"></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_type</strong></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~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_time</strong></td><td><p>The time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_xh~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_xh</strong></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~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_time~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xh~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vh~3"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_body_id~3"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_body_id</strong></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</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~~util_set_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="procutil_set_particle_infoCalledByGraph" width="264pt" height="32pt"
+ viewBox="0.00 0.00 264.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_set_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_set_particle_info~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 260,-28 260,4 -4,4"/>
+<!-- proc~util_set_particle_info -->
+<g id="proc~~util_set_particle_info~~CalledByGraph_node1" class="node">
+<title>proc~util_set_particle_info</title>
+<polygon fill="none" stroke="black" points="256,-24 146,-24 146,0 256,0 256,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_set_particle_info</text>
+</g>
+<!-- interface~util_set_particle_info -->
+<g id="proc~~util_set_particle_info~~CalledByGraph_node2" class="node">
+<title>interface~util_set_particle_info</title>
+<g id="a_proc~~util_set_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/util_set_particle_info.html" xlink:title="util_set_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="110,-24 0,-24 0,0 110,0 110,-24"/>
+<text text-anchor="middle" x="55" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~util_set_particle_info&#45;&gt;proc~util_set_particle_info -->
+<g id="proc~~util_set_particle_info~~CalledByGraph_edge1" class="edge">
+<title>interface~util_set_particle_info&#45;&gt;proc~util_set_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M110.03,-12C118.31,-12 126.94,-12 135.42,-12"/>
+<polygon fill="#000000" stroke="#000000" points="135.67,-15.5 145.67,-12 135.67,-8.5 135.67,-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/util_set_rhill.html b/docs/proc/util_set_rhill.html
index 7d0d1b692..bd2988919 100644
--- a/docs/proc/util_set_rhill.html
+++ b/docs/proc/util_set_rhill.html
@@ -136,7 +136,7 @@ <h1>util_set_rhill
      <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.">9 statements</a>
      </li> 
      
      
@@ -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~289"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~36"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~39"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 27c3299f2..209a2933d 100644
--- a/docs/proc/util_set_rhill_approximate.html
+++ b/docs/proc/util_set_rhill_approximate.html
@@ -136,7 +136,7 @@ <h1>util_set_rhill_approximate
      <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.">11 statements</a>
+    title=" 0.0% of total for procedures.">10 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~238"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~290"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~37"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~40"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 854166002..6deccd73c 100644
--- a/docs/proc/util_solve_linear_system_d.html
+++ b/docs/proc/util_solve_linear_system_d.html
@@ -136,7 +136,7 @@ <h1>util_solve_linear_system_d
      <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.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~17"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~18"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -416,7 +416,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-x~28"></span>real(kind=DP),
+   <h3>Return Value <small><span class="anchor" id="variable-x~26"></span>real(kind=DP),
   dimension(n)</small></h3>
     
     
diff --git a/docs/proc/util_solve_linear_system_q.html b/docs/proc/util_solve_linear_system_q.html
index 6d2a480e3..b5e8fedfc 100644
--- a/docs/proc/util_solve_linear_system_q.html
+++ b/docs/proc/util_solve_linear_system_q.html
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-n~18"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~19"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -416,7 +416,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-x~29"></span>real(kind=QP),
+   <h3>Return Value <small><span class="anchor" id="variable-x~27"></span>real(kind=QP),
   dimension(n)</small></h3>
     
     
diff --git a/docs/proc/util_solve_rkf45.html b/docs/proc/util_solve_rkf45.html
index ca2de1ff5..19bc1c17c 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.2% of total for procedures.">68 statements</a>
+    title=" 0.1% 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 5fc182b50..142d33d8a 100644
--- a/docs/proc/util_sort_body.html
+++ b/docs/proc/util_sort_body.html
@@ -136,7 +136,7 @@ <h1>util_sort_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.">40 statements</a>
+    title=" 0.1% of total for procedures.">42 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~245"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~305"></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_pl -->
+<!-- proc~util_sort_tp -->
 <g id="proc~~util_sort_body~~CalledByGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- proc~util_sort_tp -->
+<!-- proc~util_sort_pl -->
 <g id="proc~~util_sort_body~~CalledByGraph_node4" class="node">
-<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>
+<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>
 </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_edge3" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_pl&#45;&gt;proc~util_sort_pl -->
-<g id="proc~~util_sort_body~~CalledByGraph_edge4" class="edge">
+<g id="proc~~util_sort_body~~CalledByGraph_edge5" 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,-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"/>
+<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_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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_tp&#45;&gt;proc~util_sort_tp -->
-<g id="proc~~util_sort_body~~CalledByGraph_edge5" class="edge">
+<g id="proc~~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,-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,-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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_sort_index_dp.html b/docs/proc/util_sort_index_dp.html
index ea67c16f5..f22e70b46 100644
--- a/docs/proc/util_sort_index_dp.html
+++ b/docs/proc/util_sort_index_dp.html
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~13"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~10"></span>integer(kind=I4B),</td>
   <td>intent(out),</td>
   <td></td>
   
diff --git a/docs/proc/util_sort_index_i4b.html b/docs/proc/util_sort_index_i4b.html
index 0d720ba50..b96920848 100644
--- a/docs/proc/util_sort_index_i4b.html
+++ b/docs/proc/util_sort_index_i4b.html
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~14"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~11"></span>integer(kind=I4B),</td>
   <td>intent(out),</td>
   <td></td>
   
diff --git a/docs/proc/util_sort_index_sp.html b/docs/proc/util_sort_index_sp.html
index d9164d9cd..cb3b386e1 100644
--- a/docs/proc/util_sort_index_sp.html
+++ b/docs/proc/util_sort_index_sp.html
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~15"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~12"></span>integer(kind=I4B),</td>
   <td>intent(out),</td>
   <td></td>
   
diff --git a/docs/proc/util_sort_pl.html b/docs/proc/util_sort_pl.html
index 12b3baf16..542a665a4 100644
--- a/docs/proc/util_sort_pl.html
+++ b/docs/proc/util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>util_sort_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.">38 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~246"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~306"></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_arr_char_string.html b/docs/proc/util_sort_rearrange_arr_char_string.html
new file mode 100644
index 000000000..d1f50e68e
--- /dev/null
+++ b/docs/proc/util_sort_rearrange_arr_char_string.html
@@ -0,0 +1,390 @@
+<!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_sort_rearrange_arr_char_string &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_sort_rearrange_arr_char_string
+      <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.0% of total for procedures.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_sort.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_sort.f90.html'>util_sort.f90</a></li>
+    
+     <li><a href='../module/s_util_sort.html'>s_util_sort</a></li>
+    
+  
+     <li class="active">util_sort_rearrange_arr_char_string</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 util_sort_rearrange_arr_char_string(arr, ind, n)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Rearrange a single array of character string in-place from an index list.</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-arr~7"></span>character(len=STRMAX),</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" id="variable-ind~14"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~20"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/util_sort_rearrange_arr_dp.html b/docs/proc/util_sort_rearrange_arr_dp.html
new file mode 100644
index 000000000..7b008c892
--- /dev/null
+++ b/docs/proc/util_sort_rearrange_arr_dp.html
@@ -0,0 +1,390 @@
+<!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_sort_rearrange_arr_DP &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_sort_rearrange_arr_DP
+      <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.0% of total for procedures.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_sort.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_sort.f90.html'>util_sort.f90</a></li>
+    
+     <li><a href='../module/s_util_sort.html'>s_util_sort</a></li>
+    
+  
+     <li class="active">util_sort_rearrange_arr_DP</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 util_sort_rearrange_arr_DP(arr, ind, n)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Rearrange a single array of DP type in-place from an index list.</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-arr~8"></span>real(kind=DP),</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" id="variable-ind~15"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~21"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/util_sort_rearrange_arr_dpvec.html b/docs/proc/util_sort_rearrange_arr_dpvec.html
new file mode 100644
index 000000000..519f7a0de
--- /dev/null
+++ b/docs/proc/util_sort_rearrange_arr_dpvec.html
@@ -0,0 +1,390 @@
+<!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_sort_rearrange_arr_DPvec &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_sort_rearrange_arr_DPvec
+      <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.0% of total for procedures.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_sort.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_sort.f90.html'>util_sort.f90</a></li>
+    
+     <li><a href='../module/s_util_sort.html'>s_util_sort</a></li>
+    
+  
+     <li class="active">util_sort_rearrange_arr_DPvec</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 util_sort_rearrange_arr_DPvec(arr, ind, n)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list.</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-arr~9"></span>real(kind=DP),</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" id="variable-ind~16"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~22"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/util_sort_rearrange_arr_i4b.html b/docs/proc/util_sort_rearrange_arr_i4b.html
new file mode 100644
index 000000000..9177b9358
--- /dev/null
+++ b/docs/proc/util_sort_rearrange_arr_i4b.html
@@ -0,0 +1,390 @@
+<!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_sort_rearrange_arr_I4B &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_sort_rearrange_arr_I4B
+      <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.0% of total for procedures.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_sort.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_sort.f90.html'>util_sort.f90</a></li>
+    
+     <li><a href='../module/s_util_sort.html'>s_util_sort</a></li>
+    
+  
+     <li class="active">util_sort_rearrange_arr_I4B</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 util_sort_rearrange_arr_I4B(arr, ind, n)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Rearrange a single array of integers in-place from an index list.</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-arr~10"></span>integer(kind=I4B),</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" id="variable-ind~17"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~23"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/util_sort_rearrange_arr_info.html b/docs/proc/util_sort_rearrange_arr_info.html
new file mode 100644
index 000000000..b08b11f26
--- /dev/null
+++ b/docs/proc/util_sort_rearrange_arr_info.html
@@ -0,0 +1,508 @@
+<!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_sort_rearrange_arr_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>util_sort_rearrange_arr_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.0% of total for procedures.">13 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_sort.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_sort.f90.html'>util_sort.f90</a></li>
+    
+     <li><a href='../module/s_util_sort.html'>s_util_sort</a></li>
+    
+  
+     <li class="active">util_sort_rearrange_arr_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>
+subroutine util_sort_rearrange_arr_info(arr, ind, n)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Rearrange a single array of particle information type in-place from an index list.</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-arr~12"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_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" id="variable-ind~19"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~25"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</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~~util_sort_rearrange_arr_info~~CallsGraph Pages: 1 -->
+<svg id="procutil_sort_rearrange_arr_infoCallsGraph" width="502pt" height="32pt"
+ viewBox="0.00 0.00 502.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_sort_rearrange_arr_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_sort_rearrange_arr_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 498,-28 498,4 -4,4"/>
+<!-- proc~util_sort_rearrange_arr_info -->
+<g id="proc~~util_sort_rearrange_arr_info~~CallsGraph_node1" class="node">
+<title>proc~util_sort_rearrange_arr_info</title>
+<polygon fill="none" stroke="black" points="146,-24 0,-24 0,0 146,0 146,-24"/>
+<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort_rearrange_arr_info</text>
+</g>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="proc~~util_sort_rearrange_arr_info~~CallsGraph_node2" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_sort_rearrange_arr_info~~CallsGraph_node2"><a xlink:href=".././interface/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#a7506f" stroke="#a7506f" points="320,-24 182,-24 182,0 320,0 320,-24"/>
+<text text-anchor="middle" x="251" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="proc~~util_sort_rearrange_arr_info~~CallsGraph_edge1" class="edge">
+<title>proc~util_sort_rearrange_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M146.09,-12C154.62,-12 163.36,-12 171.96,-12"/>
+<polygon fill="#000000" stroke="#000000" points="171.99,-15.5 181.99,-12 171.99,-8.5 171.99,-15.5"/>
+</g>
+<!-- proc~util_copy_particle_info_arr -->
+<g id="proc~~util_sort_rearrange_arr_info~~CallsGraph_node3" class="node">
+<title>proc~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_sort_rearrange_arr_info~~CallsGraph_node3"><a xlink:href=".././proc/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#d9534f" stroke="#d9534f" points="494,-24 356,-24 356,0 494,0 494,-24"/>
+<text text-anchor="middle" x="425" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr -->
+<g id="proc~~util_sort_rearrange_arr_info~~CallsGraph_edge2" class="edge">
+<title>interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.47,-12C328.73,-12 337.22,-12 345.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="345.76,-15.5 355.76,-12 345.76,-8.5 345.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>
+     
+     
+    <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/util_sort_rearrange_arr_logical.html b/docs/proc/util_sort_rearrange_arr_logical.html
new file mode 100644
index 000000000..fc0878cc1
--- /dev/null
+++ b/docs/proc/util_sort_rearrange_arr_logical.html
@@ -0,0 +1,390 @@
+<!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_sort_rearrange_arr_logical &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_sort_rearrange_arr_logical
+      <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.0% of total for procedures.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_sort.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_sort.f90.html'>util_sort.f90</a></li>
+    
+     <li><a href='../module/s_util_sort.html'>s_util_sort</a></li>
+    
+  
+     <li class="active">util_sort_rearrange_arr_logical</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 util_sort_rearrange_arr_logical(arr, ind, n)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Rearrange a single array of logicals in-place from an index list.</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-arr~11"></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" id="variable-ind~18"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index to rearrange against</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-n~24"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>n</strong></td><td><p>Number of elements in arr and ind to rearrange</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/util_sort_rearrange_body.html b/docs/proc/util_sort_rearrange_body.html
index 87c864d53..e15a68446 100644
--- a/docs/proc/util_sort_rearrange_body.html
+++ b/docs/proc/util_sort_rearrange_body.html
@@ -136,7 +136,7 @@ <h1>util_sort_rearrange_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.">32 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~248"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~308"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~13"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -270,6 +270,107 @@ <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_sort_rearrange_body~~CallsGraph Pages: 1 -->
+<svg id="procutil_sort_rearrange_bodyCallsGraph" 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="proc~~util_sort_rearrange_body~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_sort_rearrange_body~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
+<!-- proc~util_sort_rearrange_body -->
+<g id="proc~~util_sort_rearrange_body~~CallsGraph_node1" class="node">
+<title>proc~util_sort_rearrange_body</title>
+<polygon fill="none" stroke="black" points="133,-24 0,-24 0,0 133,0 133,-24"/>
+<text text-anchor="middle" x="66.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort_rearrange_body</text>
+</g>
+<!-- interface~util_sort_rearrange~2 -->
+<g id="proc~~util_sort_rearrange_body~~CallsGraph_node2" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_proc~~util_sort_rearrange_body~~CallsGraph_node2"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="272,-24 169,-24 169,0 272,0 272,-24"/>
+<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="proc~~util_sort_rearrange_body~~CallsGraph_edge1" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M133.29,-12C141.73,-12 150.34,-12 158.7,-12"/>
+<polygon fill="#000000" stroke="#000000" points="158.74,-15.5 168.74,-12 158.74,-8.5 158.74,-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/util_sort_rearrange_pl.html b/docs/proc/util_sort_rearrange_pl.html
index e9167ef4a..347a7d5f2 100644
--- a/docs/proc/util_sort_rearrange_pl.html
+++ b/docs/proc/util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>util_sort_rearrange_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.">25 statements</a>
+    title=" 0.0% of total for procedures.">22 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~249"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~309"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~11"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~20"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,11 +281,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="procutil_sort_rearrange_plCallsGraph" width="464pt" height="32pt"
- viewBox="0.00 0.00 464.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procutil_sort_rearrange_plCallsGraph" width="603pt" height="52pt"
+ viewBox="0.00 0.00 603.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
 <title>proc~~util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 460,-28 460,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 599,-48 599,4 -4,4"/>
 <!-- proc~util_sort_rearrange_pl -->
 <g id="proc~~util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>proc~util_sort_rearrange_pl</title>
@@ -296,31 +296,52 @@ <h3 class="panel-title">Calls</h3>
 <g id="proc~~util_sort_rearrange_pl~~CallsGraph_node2" class="node">
 <title>interface~util_sort_rearrange_body</title>
 <g id="a_proc~~util_sort_rearrange_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="287,-24 154,-24 154,0 287,0 287,-24"/>
-<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="287,-44 154,-44 154,-20 287,-20 287,-44"/>
+<text text-anchor="middle" x="220.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body -->
 <g id="proc~~util_sort_rearrange_pl~~CallsGraph_edge1" class="edge">
 <title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" d="M118.03,-12C126.42,-12 135.15,-12 143.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="143.95,-15.5 153.95,-12 143.95,-8.5 143.95,-15.5"/>
+<path fill="none" stroke="#000000" d="M118.03,-19.28C126.42,-20.33 135.15,-21.42 143.82,-22.51"/>
+<polygon fill="#000000" stroke="#000000" points="143.59,-26.01 153.95,-23.78 144.46,-19.06 143.59,-26.01"/>
 </g>
-<!-- proc~util_sort_rearrange_body -->
+<!-- interface~util_sort_rearrange~2 -->
 <g id="proc~~util_sort_rearrange_pl~~CallsGraph_node3" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_proc~~util_sort_rearrange_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="595,-24 492,-24 492,0 595,0 595,-24"/>
+<text text-anchor="middle" x="543.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="proc~~util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M118.17,-11.28C130.02,-11.17 142.41,-11.06 154,-11 288.22,-10.29 321.78,-10.22 456,-11 464.31,-11.05 473.07,-11.12 481.7,-11.21"/>
+<polygon fill="#000000" stroke="#000000" points="481.69,-14.71 491.73,-11.32 481.77,-7.71 481.69,-14.71"/>
+</g>
+<!-- proc~util_sort_rearrange_body -->
+<g id="proc~~util_sort_rearrange_pl~~CallsGraph_node4" class="node">
 <title>proc~util_sort_rearrange_body</title>
-<g id="a_proc~~util_sort_rearrange_pl~~CallsGraph_node3"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="456,-24 323,-24 323,0 456,0 456,-24"/>
-<text text-anchor="middle" x="389.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<g id="a_proc~~util_sort_rearrange_pl~~CallsGraph_node4"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="456,-44 323,-44 323,-20 456,-20 456,-44"/>
+<text text-anchor="middle" x="389.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
-<g id="proc~~util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_sort_rearrange_pl~~CallsGraph_edge3" 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="M287.02,-12C295.5,-12 304.23,-12 312.85,-12"/>
-<polygon fill="#000000" stroke="#000000" points="312.89,-15.5 322.89,-12 312.89,-8.5 312.89,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.02,-32C295.5,-32 304.23,-32 312.85,-32"/>
+<polygon fill="#000000" stroke="#000000" points="312.89,-35.5 322.89,-32 312.89,-28.5 312.89,-35.5"/>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="proc~~util_sort_rearrange_pl~~CallsGraph_edge4" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M456.29,-23.34C464.73,-22.23 473.34,-21.1 481.7,-20"/>
+<polygon fill="#000000" stroke="#000000" points="482.28,-23.45 491.74,-18.68 481.37,-16.51 482.28,-23.45"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_sort_rearrange_tp.html b/docs/proc/util_sort_rearrange_tp.html
index 925c7c82b..09da022d3 100644
--- a/docs/proc/util_sort_rearrange_tp.html
+++ b/docs/proc/util_sort_rearrange_tp.html
@@ -136,7 +136,7 @@ <h1>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.">12 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~250"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~310"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ind~12"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ind~21"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,11 +281,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~util_sort_rearrange_tp~~CallsGraph Pages: 1 -->
-<svg id="procutil_sort_rearrange_tpCallsGraph" width="464pt" height="32pt"
- viewBox="0.00 0.00 464.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procutil_sort_rearrange_tpCallsGraph" width="603pt" height="52pt"
+ viewBox="0.00 0.00 603.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_sort_rearrange_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
 <title>proc~~util_sort_rearrange_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 460,-28 460,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 599,-48 599,4 -4,4"/>
 <!-- proc~util_sort_rearrange_tp -->
 <g id="proc~~util_sort_rearrange_tp~~CallsGraph_node1" class="node">
 <title>proc~util_sort_rearrange_tp</title>
@@ -296,31 +296,52 @@ <h3 class="panel-title">Calls</h3>
 <g id="proc~~util_sort_rearrange_tp~~CallsGraph_node2" class="node">
 <title>interface~util_sort_rearrange_body</title>
 <g id="a_proc~~util_sort_rearrange_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="287,-24 154,-24 154,0 287,0 287,-24"/>
-<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="287,-44 154,-44 154,-20 287,-20 287,-44"/>
+<text text-anchor="middle" x="220.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body -->
 <g id="proc~~util_sort_rearrange_tp~~CallsGraph_edge1" class="edge">
 <title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" d="M118.03,-12C126.42,-12 135.15,-12 143.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="143.95,-15.5 153.95,-12 143.95,-8.5 143.95,-15.5"/>
+<path fill="none" stroke="#000000" d="M118.03,-19.28C126.42,-20.33 135.15,-21.42 143.82,-22.51"/>
+<polygon fill="#000000" stroke="#000000" points="143.59,-26.01 153.95,-23.78 144.46,-19.06 143.59,-26.01"/>
 </g>
-<!-- proc~util_sort_rearrange_body -->
+<!-- interface~util_sort_rearrange~2 -->
 <g id="proc~~util_sort_rearrange_tp~~CallsGraph_node3" class="node">
+<title>interface~util_sort_rearrange~2</title>
+<g id="a_proc~~util_sort_rearrange_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_sort_rearrange~2.html" xlink:title="util_sort_rearrange">
+<polygon fill="#a7506f" stroke="#a7506f" points="595,-24 492,-24 492,0 595,0 595,-24"/>
+<text text-anchor="middle" x="543.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</a>
+</g>
+</g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="proc~~util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M118.17,-11.28C130.02,-11.17 142.41,-11.06 154,-11 288.22,-10.29 321.78,-10.22 456,-11 464.31,-11.05 473.07,-11.12 481.7,-11.21"/>
+<polygon fill="#000000" stroke="#000000" points="481.69,-14.71 491.73,-11.32 481.77,-7.71 481.69,-14.71"/>
+</g>
+<!-- proc~util_sort_rearrange_body -->
+<g id="proc~~util_sort_rearrange_tp~~CallsGraph_node4" class="node">
 <title>proc~util_sort_rearrange_body</title>
-<g id="a_proc~~util_sort_rearrange_tp~~CallsGraph_node3"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="456,-24 323,-24 323,0 456,0 456,-24"/>
-<text text-anchor="middle" x="389.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<g id="a_proc~~util_sort_rearrange_tp~~CallsGraph_node4"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="456,-44 323,-44 323,-20 456,-20 456,-44"/>
+<text text-anchor="middle" x="389.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
-<g id="proc~~util_sort_rearrange_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_sort_rearrange_tp~~CallsGraph_edge3" 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="M287.02,-12C295.5,-12 304.23,-12 312.85,-12"/>
-<polygon fill="#000000" stroke="#000000" points="312.89,-15.5 322.89,-12 312.89,-8.5 312.89,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.02,-32C295.5,-32 304.23,-32 312.85,-32"/>
+<polygon fill="#000000" stroke="#000000" points="312.89,-35.5 322.89,-32 312.89,-28.5 312.89,-35.5"/>
+</g>
+<!-- proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2 -->
+<g id="proc~~util_sort_rearrange_tp~~CallsGraph_edge4" class="edge">
+<title>proc~util_sort_rearrange_body&#45;&gt;interface~util_sort_rearrange~2</title>
+<path fill="none" stroke="#000000" d="M456.29,-23.34C464.73,-22.23 473.34,-21.1 481.7,-20"/>
+<polygon fill="#000000" stroke="#000000" points="482.28,-23.45 491.74,-18.68 481.37,-16.51 482.28,-23.45"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_sort_tp.html b/docs/proc/util_sort_tp.html
index 26e883547..d2fa2b924 100644
--- a/docs/proc/util_sort_tp.html
+++ b/docs/proc/util_sort_tp.html
@@ -136,7 +136,7 @@ <h1>util_sort_tp
      <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.">30 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~247"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~307"></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_arr_char_string.html b/docs/proc/util_spill_arr_char_string.html
index 00b712f66..bcdb6c38f 100644
--- a/docs/proc/util_spill_arr_char_string.html
+++ b/docs/proc/util_spill_arr_char_string.html
@@ -136,7 +136,7 @@ <h1>util_spill_arr_char_string
      <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.">30 statements</a>
      </li> 
      
      
diff --git a/docs/proc/util_spill_arr_dp.html b/docs/proc/util_spill_arr_dp.html
index 188d6ba52..7c851a4c6 100644
--- a/docs/proc/util_spill_arr_dp.html
+++ b/docs/proc/util_spill_arr_dp.html
@@ -136,7 +136,7 @@ <h1>util_spill_arr_DP
      <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.">30 statements</a>
      </li> 
      
      
diff --git a/docs/proc/util_spill_arr_dpvec.html b/docs/proc/util_spill_arr_dpvec.html
index 994c6a67a..12c5ec7d0 100644
--- a/docs/proc/util_spill_arr_dpvec.html
+++ b/docs/proc/util_spill_arr_dpvec.html
@@ -136,7 +136,7 @@ <h1>util_spill_arr_DPvec
      <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.">34 statements</a>
      </li> 
      
      
diff --git a/docs/proc/util_spill_arr_i4b.html b/docs/proc/util_spill_arr_i4b.html
index 270cfa31e..a10808b42 100644
--- a/docs/proc/util_spill_arr_i4b.html
+++ b/docs/proc/util_spill_arr_i4b.html
@@ -136,7 +136,7 @@ <h1>util_spill_arr_I4B
      <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.">30 statements</a>
      </li> 
      
      
diff --git a/docs/proc/symba_util_spill_arr_info.html b/docs/proc/util_spill_arr_i8b.html
similarity index 89%
rename from docs/proc/symba_util_spill_arr_info.html
rename to docs/proc/util_spill_arr_i8b.html
index d9323675f..9fa0fa46d 100644
--- a/docs/proc/symba_util_spill_arr_info.html
+++ b/docs/proc/util_spill_arr_i8b.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_util_spill_arr_info &ndash; swiftest</title>
+    <title>util_spill_arr_I8B &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_util_spill_arr_info
+    <h1>util_spill_arr_I8B
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_util_spill_arr_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.">18 statements</a>
+    title=" 0.0% of total for procedures.">30 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_util.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_spill.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_util.f90.html'>symba_util.f90</a></li>
+     <li><a href='../sourcefile/util_spill.f90.html'>util_spill.f90</a></li>
     
-     <li><a href='../module/s_symba_util.html'>s_symba_util</a></li>
+     <li><a href='../module/s_util_spill.html'>s_util_spill</a></li>
     
   
-     <li class="active">symba_util_spill_arr_info</li>
+     <li class="active">util_spill_arr_I8B</li>
   </ol>
 </div>
 </div>
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
+subroutine util_spill_arr_I8B(keeps, discards, lspill_list, ldestructive)
     
     
    
@@ -213,7 +213,7 @@ <h2>
 
 
     
-    <p>Performs a spill operation on a single array of particle origin information types
+    <p>Performs a spill operation on a single array of type I4B
  This is the inverse of a spill operation</p>
     
 
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~13"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-keeps~5"></span>integer(kind=I8B),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~21"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-discards~16"></span>integer(kind=I8B),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -265,12 +265,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~21"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~16"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
   
 </tr>
 
@@ -280,7 +280,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~21"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~16"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_spill_arr_info.html b/docs/proc/util_spill_arr_info.html
new file mode 100644
index 000000000..3a6291684
--- /dev/null
+++ b/docs/proc/util_spill_arr_info.html
@@ -0,0 +1,524 @@
+<!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_spill_arr_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>util_spill_arr_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.">36 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_spill.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_spill.f90.html'>util_spill.f90</a></li>
+    
+     <li><a href='../module/s_util_spill.html'>s_util_spill</a></li>
+    
+  
+     <li class="active">util_spill_arr_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>
+subroutine util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Performs a spill operation on a single array of particle origin information types
+ This is the inverse of a spill operation</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-keeps~6"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>keeps</strong></td><td><p>Array of values to keep </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discards~17"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Array of discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lspill_list~17"></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discardss</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ldestructive~17"></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</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~~util_spill_arr_info~~CallsGraph Pages: 1 -->
+<svg id="procutil_spill_arr_infoCallsGraph" width="449pt" height="32pt"
+ viewBox="0.00 0.00 449.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_spill_arr_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_spill_arr_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 445,-28 445,4 -4,4"/>
+<!-- proc~util_spill_arr_info -->
+<g id="proc~~util_spill_arr_info~~CallsGraph_node1" class="node">
+<title>proc~util_spill_arr_info</title>
+<polygon fill="none" stroke="black" points="93,-24 0,-24 0,0 93,0 93,-24"/>
+<text text-anchor="middle" x="46.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_arr_info</text>
+</g>
+<!-- interface~util_copy_particle_info_arr -->
+<g id="proc~~util_spill_arr_info~~CallsGraph_node2" class="node">
+<title>interface~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_spill_arr_info~~CallsGraph_node2"><a xlink:href=".././interface/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#a7506f" stroke="#a7506f" points="267,-24 129,-24 129,0 267,0 267,-24"/>
+<text text-anchor="middle" x="198" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr -->
+<g id="proc~~util_spill_arr_info~~CallsGraph_edge1" class="edge">
+<title>proc~util_spill_arr_info&#45;&gt;interface~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" d="M93.17,-12C101.25,-12 109.88,-12 118.56,-12"/>
+<polygon fill="#000000" stroke="#000000" points="118.77,-15.5 128.77,-12 118.77,-8.5 118.77,-15.5"/>
+</g>
+<!-- proc~util_copy_particle_info_arr -->
+<g id="proc~~util_spill_arr_info~~CallsGraph_node3" class="node">
+<title>proc~util_copy_particle_info_arr</title>
+<g id="a_proc~~util_spill_arr_info~~CallsGraph_node3"><a xlink:href=".././proc/util_copy_particle_info_arr.html" xlink:title="util_copy_particle_info_arr">
+<polygon fill="#d9534f" stroke="#d9534f" points="441,-24 303,-24 303,0 441,0 441,-24"/>
+<text text-anchor="middle" x="372" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_particle_info_arr</text>
+</a>
+</g>
+</g>
+<!-- interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr -->
+<g id="proc~~util_spill_arr_info~~CallsGraph_edge2" class="edge">
+<title>interface~util_copy_particle_info_arr&#45;&gt;proc~util_copy_particle_info_arr</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M267.47,-12C275.73,-12 284.22,-12 292.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="292.76,-15.5 302.76,-12 292.76,-8.5 292.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>
+     
+     
+    <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/util_spill_arr_logical.html b/docs/proc/util_spill_arr_logical.html
index 3769c50f6..654f2fdcc 100644
--- a/docs/proc/util_spill_arr_logical.html
+++ b/docs/proc/util_spill_arr_logical.html
@@ -136,7 +136,7 @@ <h1>util_spill_arr_logical
      <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.">30 statements</a>
      </li> 
      
      
@@ -235,7 +235,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-keeps~5"></span>logical,</td>
+  <td><span class="anchor" id="variable-keeps~7"></span>logical,</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-discards~18"></span>logical,</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -265,7 +265,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~18"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -280,7 +280,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~16"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~18"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_spill_body.html b/docs/proc/util_spill_body.html
index 1062fce6d..76881d7ab 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~251"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~311"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~17"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-discards~19"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~17"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~19"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~17"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~19"></span>logical,</td>
   <td>intent(in)</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_pl -->
+<!-- proc~util_spill_tp -->
 <g id="proc~~util_spill_body~~CalledByGraph_node3" class="node">
-<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>
+<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>
 </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_edge2" class="edge">
-<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"/>
+<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"/>
 </g>
-<!-- proc~util_spill_tp -->
+<!-- proc~util_spill_pl -->
 <g id="proc~~util_spill_body~~CalledByGraph_node4" class="node">
-<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>
+<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>
 </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_edge3" class="edge">
-<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"/>
+<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"/>
 </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,-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>
+<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="proc~~util_spill_body~~CalledByGraph_edge4" class="edge">
+<g id="proc~~util_spill_body~~CalledByGraph_edge5" 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,-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"/>
+<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="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,-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>
+<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>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
-<g id="proc~~util_spill_body~~CalledByGraph_edge5" class="edge">
+<g id="proc~~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,-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,-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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_spill_encounter.html b/docs/proc/util_spill_encounter.html
index e34c02c97..4cbdc63f1 100644
--- a/docs/proc/util_spill_encounter.html
+++ b/docs/proc/util_spill_encounter.html
@@ -136,7 +136,7 @@ <h1>util_spill_encounter
      <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.">22 statements</a>
+    title=" 0.0% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~252"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~312"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-discards~18"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-discards~20"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~18"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~20"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~18"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~20"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_spill_pl.html b/docs/proc/util_spill_pl.html
index ab5ab5488..e7c361583 100644
--- a/docs/proc/util_spill_pl.html
+++ b/docs/proc/util_spill_pl.html
@@ -136,7 +136,7 @@ <h1>util_spill_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.">29 statements</a>
+    title=" 0.0% of total for procedures.">29 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~253"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~313"></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-discards~19"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-discards~21"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~19"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~21"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~19"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~21"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_spill_tp.html b/docs/proc/util_spill_tp.html
index bcdf0a753..587eabc91 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~254"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~314"></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-discards~20"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-discards~22"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspill_list~20"></span>logical,</td>
+  <td><span class="anchor" id="variable-lspill_list~22"></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ldestructive~20"></span>logical,</td>
+  <td><span class="anchor" id="variable-ldestructive~22"></span>logical,</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_valid_id_system.html b/docs/proc/util_valid_id_system.html
index d57c5f99e..f9fbd3541 100644
--- a/docs/proc/util_valid_id_system.html
+++ b/docs/proc/util_valid_id_system.html
@@ -136,7 +136,7 @@ <h1>util_valid_id_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.">27 statements</a>
+    title=" 0.0% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~255"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~315"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,8 +253,8 @@ <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>intent(in)</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>
   
   <td></td><td>::</td>
@@ -293,33 +293,33 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- interface~util_sort -->
 <g id="proc~~util_valid_id_system~~CallsGraph_node2" class="node">
-<title>interface~util_exit</title>
-<g id="a_proc~~util_valid_id_system~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<title>interface~util_sort</title>
+<g id="a_proc~~util_valid_id_system~~CallsGraph_node2"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
 <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>
+<text text-anchor="middle" x="171" y="-51.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_exit -->
-<g id="proc~~util_valid_id_system~~CallsGraph_edge1" class="edge">
-<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<!-- 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,-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 -->
+<!-- interface~util_exit -->
 <g id="proc~~util_valid_id_system~~CallsGraph_node3" class="node">
-<title>interface~util_sort</title>
-<g id="a_proc~~util_valid_id_system~~CallsGraph_node3"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<title>interface~util_exit</title>
+<g id="a_proc~~util_valid_id_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
 <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>
+<text text-anchor="middle" x="171" y="-9.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_sort -->
-<g id="proc~~util_valid_id_system~~CallsGraph_edge2" class="edge">
-<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<!-- 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,-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>
@@ -327,16 +327,16 @@ <h3 class="panel-title">Calls</h3>
 <g id="proc~~util_valid_id_system~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
 <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>
+<polygon fill="#d9534f" stroke="#d9534f" points="288,-24 234,-24 234,0 288,0 288,-24"/>
+<text text-anchor="middle" x="261" y="-9.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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M198.4,-12C206.39,-12 215.31,-12 223.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="223.92,-15.5 233.92,-12 223.92,-8.5 223.92,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/walltime_finish.html b/docs/proc/walltime_finish.html
new file mode 100644
index 000000000..28c4abb4e
--- /dev/null
+++ b/docs/proc/walltime_finish.html
@@ -0,0 +1,519 @@
+<!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>walltime_finish &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>walltime_finish
+      <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.0% of total for procedures.">27 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltime_finish</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>
+public subroutine walltime_finish(self, nsubsteps, message)
+    
+    
+   
+</h2>
+    
+  
+    <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_globals.html'>swiftest_globals</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: proc~~walltime_finish~~UsesGraph Pages: 1 -->
+<svg id="procwalltime_finishUsesGraph" width="337pt" height="32pt"
+ viewBox="0.00 0.00 337.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~walltime_finish~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~walltime_finish~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 333,-28 333,4 -4,4"/>
+<!-- proc~walltime_finish -->
+<g id="proc~~walltime_finish~~UsesGraph_node1" class="node">
+<title>proc~walltime_finish</title>
+<polygon fill="none" stroke="black" points="329,-24 247,-24 247,0 329,0 329,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_finish</text>
+</g>
+<!-- module~swiftest_globals -->
+<g id="proc~~walltime_finish~~UsesGraph_node2" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_proc~~walltime_finish~~UsesGraph_node2"><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>
+</a>
+</g>
+</g>
+<!-- proc~walltime_finish&#45;&gt;module~swiftest_globals -->
+<g id="proc~~walltime_finish~~UsesGraph_edge1" class="edge">
+<title>proc~walltime_finish&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.71,-12C238.56,-12 229.87,-12 221.36,-12"/>
+<polygon fill="#000000" stroke="#000000" points="221.1,-8.5 211.1,-12 221.1,-15.5 221.1,-8.5"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="proc~~walltime_finish~~UsesGraph_node3" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~walltime_finish~~UsesGraph_node3"><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>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~walltime_finish~~UsesGraph_edge2" 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"/>
+</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="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>
+    
+
+
+    
+    <p>Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</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-self~28"></span>class(<a href='../type/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsubsteps"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsubsteps</strong></td><td><p>Number of substeps used to compute the time per step </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-message"></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td><p>Message to prepend to the wall time terminal output</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/walltime_reset.html b/docs/proc/walltime_reset.html
new file mode 100644
index 000000000..ff5583de2
--- /dev/null
+++ b/docs/proc/walltime_reset.html
@@ -0,0 +1,489 @@
+<!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>walltime_reset &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>walltime_reset
+      <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.0% of total for procedures.">9 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltime_reset</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>
+public subroutine walltime_reset(self)
+    
+    
+   
+</h2>
+    
+  
+    <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_globals.html'>swiftest_globals</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: proc~~walltime_reset~~UsesGraph Pages: 1 -->
+<svg id="procwalltime_resetUsesGraph" width="336pt" height="32pt"
+ viewBox="0.00 0.00 336.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~walltime_reset~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~walltime_reset~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 332,-28 332,4 -4,4"/>
+<!-- proc~walltime_reset -->
+<g id="proc~~walltime_reset~~UsesGraph_node1" class="node">
+<title>proc~walltime_reset</title>
+<polygon fill="none" stroke="black" points="328,-24 247,-24 247,0 328,0 328,-24"/>
+<text text-anchor="middle" x="287.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_reset</text>
+</g>
+<!-- module~swiftest_globals -->
+<g id="proc~~walltime_reset~~UsesGraph_node2" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_proc~~walltime_reset~~UsesGraph_node2"><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>
+</a>
+</g>
+</g>
+<!-- proc~walltime_reset&#45;&gt;module~swiftest_globals -->
+<g id="proc~~walltime_reset~~UsesGraph_edge1" class="edge">
+<title>proc~walltime_reset&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.71,-12C238.59,-12 229.91,-12 221.4,-12"/>
+<polygon fill="#000000" stroke="#000000" points="221.14,-8.5 211.14,-12 221.14,-15.5 221.14,-8.5"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="proc~~walltime_reset~~UsesGraph_node3" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~walltime_reset~~UsesGraph_node3"><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>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~walltime_reset~~UsesGraph_edge2" 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"/>
+</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="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>
+    
+
+
+    
+    <p>Resets the clock ticker, settting main_start to the current ticker value</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-self~29"></span>class(<a href='../type/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/walltime_start.html b/docs/proc/walltime_start.html
new file mode 100644
index 000000000..099ff1c2f
--- /dev/null
+++ b/docs/proc/walltime_start.html
@@ -0,0 +1,489 @@
+<!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>walltime_start &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>walltime_start
+      <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.0% of total for procedures.">11 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltime_start</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>
+public subroutine walltime_start(self)
+    
+    
+   
+</h2>
+    
+  
+    <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_globals.html'>swiftest_globals</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: proc~~walltime_start~~UsesGraph Pages: 1 -->
+<svg id="procwalltime_startUsesGraph" width="333pt" height="32pt"
+ viewBox="0.00 0.00 333.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~walltime_start~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~walltime_start~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 329,-28 329,4 -4,4"/>
+<!-- proc~walltime_start -->
+<g id="proc~~walltime_start~~UsesGraph_node1" class="node">
+<title>proc~walltime_start</title>
+<polygon fill="none" stroke="black" points="325,-24 247,-24 247,0 325,0 325,-24"/>
+<text text-anchor="middle" x="286" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_start</text>
+</g>
+<!-- module~swiftest_globals -->
+<g id="proc~~walltime_start~~UsesGraph_node2" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_proc~~walltime_start~~UsesGraph_node2"><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>
+</a>
+</g>
+</g>
+<!-- proc~walltime_start&#45;&gt;module~swiftest_globals -->
+<g id="proc~~walltime_start~~UsesGraph_edge1" class="edge">
+<title>proc~walltime_start&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.69,-12C238.64,-12 230,-12 221.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="221.26,-8.5 211.26,-12 221.26,-15.5 221.26,-8.5"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="proc~~walltime_start~~UsesGraph_node3" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~walltime_start~~UsesGraph_node3"><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>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~walltime_start~~UsesGraph_edge2" 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"/>
+</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="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>
+    
+
+
+    
+    <p>Starts the timer, setting step_start to the current ticker value</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-self~30"></span>class(<a href='../type/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/whm_coord_h2j_pl.html b/docs/proc/whm_coord_h2j_pl.html
index c28ef7bb0..6ad363f15 100644
--- a/docs/proc/whm_coord_h2j_pl.html
+++ b/docs/proc/whm_coord_h2j_pl.html
@@ -136,7 +136,7 @@ <h1>whm_coord_h2j_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.">23 statements</a>
+    title=" 0.0% of total for procedures.">23 statements</a>
      </li> 
      
      
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~207"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~258"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~30"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~33"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -294,51 +294,51 @@ <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>
-<!-- eta -->
+<!-- vj -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node2" class="node">
-<title>eta</title>
+<title>vj</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">eta</text>
+<text text-anchor="middle" x="166" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;vj</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>
-<!-- vj -->
+<!-- vh -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node3" class="node">
-<title>vj</title>
+<title>vh</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">vj</text>
+<text text-anchor="middle" x="166" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;vh</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>
-<!-- xh -->
+<!-- xj -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node4" class="node">
-<title>xh</title>
+<title>xj</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">xh</text>
+<text text-anchor="middle" x="166" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;xj</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>
-<!-- xj -->
+<!-- xh -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node5" class="node">
-<title>xj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="193,-108 139,-108 139,-84 193,-84 193,-108"/>
-<text text-anchor="middle" x="166" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
+<text text-anchor="middle" x="166" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xj</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
 <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>
@@ -354,15 +354,15 @@ <h3 class="panel-title">Calls</h3>
 <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>
-<!-- vh -->
+<!-- eta -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node7" class="node">
-<title>vh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="193,-24 139,-24 139,0 193,0 193,-24"/>
-<text text-anchor="middle" x="166" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<text text-anchor="middle" x="166" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge6" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vh</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M64.21,-104.96C80.53,-88.32 111.27,-57.57 139,-33 139.83,-32.27 140.67,-31.53 141.53,-30.79"/>
 <polygon fill="#000000" stroke="#000000" points="143.98,-33.31 149.41,-24.21 139.49,-27.93 143.98,-33.31"/>
 </g>
diff --git a/docs/proc/whm_coord_j2h_pl.html b/docs/proc/whm_coord_j2h_pl.html
index 06f90380b..612430bf0 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~208"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~259"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~31"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~34"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -294,51 +294,51 @@ <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>
-<!-- eta -->
+<!-- vj -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node2" class="node">
-<title>eta</title>
+<title>vj</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">eta</text>
+<text text-anchor="middle" x="166" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;vj</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>
-<!-- vj -->
+<!-- vh -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node3" class="node">
-<title>vj</title>
+<title>vh</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">vj</text>
+<text text-anchor="middle" x="166" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;vh</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>
-<!-- xh -->
+<!-- xj -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node4" class="node">
-<title>xh</title>
+<title>xj</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">xh</text>
+<text text-anchor="middle" x="166" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;xj</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>
-<!-- xj -->
+<!-- xh -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node5" class="node">
-<title>xj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="193,-108 139,-108 139,-84 193,-84 193,-108"/>
-<text text-anchor="middle" x="166" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
+<text text-anchor="middle" x="166" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xj</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
 <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>
@@ -354,15 +354,15 @@ <h3 class="panel-title">Calls</h3>
 <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>
-<!-- vh -->
+<!-- eta -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node7" class="node">
-<title>vh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="193,-24 139,-24 139,0 193,0 193,-24"/>
-<text text-anchor="middle" x="166" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<text text-anchor="middle" x="166" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge6" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vh</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M64.21,-104.96C80.53,-88.32 111.27,-57.57 139,-33 139.83,-32.27 140.67,-31.53 141.53,-30.79"/>
 <polygon fill="#000000" stroke="#000000" points="143.98,-33.31 149.41,-24.21 139.49,-27.93 143.98,-33.31"/>
 </g>
diff --git a/docs/proc/whm_coord_vh2vj_pl.html b/docs/proc/whm_coord_vh2vj_pl.html
index a56fd39b5..e6f6acb36 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~209"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~260"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~32"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~35"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -294,51 +294,51 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="113,-87 0,-87 0,-63 113,-63 113,-87"/>
 <text text-anchor="middle" x="56.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_coord_vh2vj_pl</text>
 </g>
-<!-- vj -->
+<!-- eta -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_node2" class="node">
-<title>vj</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="203,-150 149,-150 149,-126 203,-126 203,-150"/>
-<text text-anchor="middle" x="176" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<text text-anchor="middle" x="176" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
-<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</title>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
+<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge2" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</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>
-<!-- vh -->
+<!-- vj -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_node3" class="node">
-<title>vh</title>
+<title>vj</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">vh</text>
+<text text-anchor="middle" x="176" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- 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;vh</title>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
+<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge3" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</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>
-<!-- eta -->
+<!-- gmpl -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_node4" class="node">
-<title>eta</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="203,-66 149,-66 149,-42 203,-42 203,-66"/>
-<text text-anchor="middle" x="176" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
+<text text-anchor="middle" x="176" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
-<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</title>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
+<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge1" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</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>
-<!-- gmpl -->
+<!-- vh -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_node5" class="node">
-<title>gmpl</title>
+<title>vh</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">gmpl</text>
+<text text-anchor="middle" x="176" y="-9.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_edge4" 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="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 f96b8da2c..f601cc9b4 100644
--- a/docs/proc/whm_drift_pl.html
+++ b/docs/proc/whm_drift_pl.html
@@ -136,7 +136,7 @@ <h1>whm_drift_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.">32 statements</a>
+    title=" 0.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -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~268"></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~75"></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>
   
@@ -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~152"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~65"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~70"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -330,7 +330,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="136" y="-51.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="proc~~whm_drift_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~whm_drift_pl~~CallsGraph_edge2" class="edge">
 <title>proc~whm_drift_pl&#45;&gt;drift_all</title>
 <path fill="none" stroke="#000000" d="M73.25,-40.7C81.6,-42.5 90.49,-44.41 98.85,-46.21"/>
 <polygon fill="#000000" stroke="#000000" points="98.21,-49.66 108.72,-48.34 99.68,-42.81 98.21,-49.66"/>
@@ -342,7 +342,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="136" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~whm_drift_pl&#45;&gt;util_exit -->
-<g id="proc~~whm_drift_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~whm_drift_pl~~CallsGraph_edge1" class="edge">
 <title>proc~whm_drift_pl&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M73.25,-25.3C81.6,-23.5 90.49,-21.59 98.85,-19.79"/>
 <polygon fill="#000000" stroke="#000000" points="99.68,-23.19 108.72,-17.66 98.21,-16.34 99.68,-23.19"/>
diff --git a/docs/proc/whm_gr_kick_getacch_pl.html b/docs/proc/whm_gr_kick_getacch_pl.html
index cad3443e9..24f90cb90 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~210"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~261"></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~145"></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 0e01a7895..a5802674d 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~211"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~262"></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~146"></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 6268c6f74..e3dd1d6f6 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~212"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~263"></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~122"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~147"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~60"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~65"></span>real(kind=DP),</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 e4a018204..87322069d 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~213"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~264"></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~123"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~148"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~61"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~66"></span>real(kind=DP),</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 cd307ea3d..f3d66e662 100644
--- a/docs/proc/whm_kick_getacch_ah0.html
+++ b/docs/proc/whm_kick_getacch_ah0.html
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mu~4"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-mu~3"></span>real(kind=DP),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -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_pl -->
-<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_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>
-</g>
-</g>
-<!-- interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl -->
-<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_edge3" 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="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">
+<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_node5"><a xlink:href=".././interface/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
+<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>
@@ -374,6 +359,21 @@ <h3 class="panel-title">Called by</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~whm_kick_getacch_pl -->
+<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_node5" 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">
+<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>
+</g>
+</g>
+<!-- interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl -->
+<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_edge3" 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="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>
 </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 a60e58af6..63a1bd6c8 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~218"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~269"></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~76"></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>
   
@@ -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~153"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~46"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~52"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~18"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~20"></span>logical,</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_ah1 -->
+<!-- proc~whm_kick_getacch_ah0 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_node2" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
 <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>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</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_ah2 -->
+<!-- proc~whm_kick_getacch_ah1 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_node3" class="node">
-<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">
+<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">
 <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_ah2</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_ah1</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_ah1 -->
 <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>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</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_ah0 -->
+<!-- proc~whm_kick_getacch_ah2 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_node4" class="node">
-<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>
+<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>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</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 919352f6a..dd3bb4556 100644
--- a/docs/proc/whm_kick_getacch_tp.html
+++ b/docs/proc/whm_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>whm_kick_getacch_tp
      <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.">31 statements</a>
+    title=" 0.0% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~219"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~270"></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~77"></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>
   
@@ -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~154"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~47"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~53"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~19"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~21"></span>logical,</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 e18b6869b..ae0ffe671 100644
--- a/docs/proc/whm_kick_vh_pl.html
+++ b/docs/proc/whm_kick_vh_pl.html
@@ -136,7 +136,7 @@ <h1>whm_kick_vh_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.0% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -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~271"></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~78"></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~130"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~155"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~48"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~54"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~66"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~71"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~20"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~22"></span>logical,</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 2a95290ff..9b3c39061 100644
--- a/docs/proc/whm_kick_vh_tp.html
+++ b/docs/proc/whm_kick_vh_tp.html
@@ -136,7 +136,7 @@ <h1>whm_kick_vh_tp
      <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.">34 statements</a>
+    title=" 0.0% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -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~272"></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~79"></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~131"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~156"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~49"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~55"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~67"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~72"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -313,7 +313,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lbeg~21"></span>logical,</td>
+  <td><span class="anchor" id="variable-lbeg~23"></span>logical,</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 87f66f375..2667ee262 100644
--- a/docs/proc/whm_setup_initialize_system.html
+++ b/docs/proc/whm_setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>whm_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.">17 statements</a>
      </li> 
      
      
@@ -236,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~224"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~275"></span>class(<a href='../type/whm_nbody_system.html'>whm_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>
+  <td><strong>self</strong></td><td><p>WHM nbody system object</p></td>
   
 </tr>
 
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~133"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~158"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_setup_pl.html b/docs/proc/whm_setup_pl.html
index 0a7168cc0..bf3e24f94 100644
--- a/docs/proc/whm_setup_pl.html
+++ b/docs/proc/whm_setup_pl.html
@@ -136,7 +136,7 @@ <h1>whm_setup_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.">24 statements</a>
+    title=" 0.0% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -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~273"></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-n~16"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-n~17"></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~132"></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/whm_step_pl.html b/docs/proc/whm_step_pl.html
index fe642ac91..f3a246ba2 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~215"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~266"></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~73"></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~125"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~150"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~44"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~50"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~63"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~68"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_step_system.html b/docs/proc/whm_step_system.html
index 664cf8b17..1e3b8a906 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~214"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~265"></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~124"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~149"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~43"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~49"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~62"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~67"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_step_tp.html b/docs/proc/whm_step_tp.html
index 2b6118742..dd76f75a6 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~216"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~267"></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~74"></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~126"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~151"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t~45"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t~51"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~64"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~69"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_append_pl.html b/docs/proc/whm_util_append_pl.html
index db6353715..fd0736690 100644
--- a/docs/proc/whm_util_append_pl.html
+++ b/docs/proc/whm_util_append_pl.html
@@ -238,7 +238,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~276"></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-source~11"></span>class(swiftest_body),</td>
+  <td><span class="anchor" id="variable-source~16"></span>class(swiftest_body),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lsource_mask~10"></span>logical,</td>
+  <td><span class="anchor" id="variable-lsource_mask~12"></span>logical,</td>
   <td>intent(in),</td>
   <td></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_exit -->
+<!-- util_append -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_node2" class="node">
-<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>
+<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>
 </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_edge1" class="edge">
-<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"/>
+<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"/>
 </g>
 <!-- util_append_pl -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_node3" class="node">
@@ -327,22 +327,22 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="188" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
 <!-- proc~whm_util_append_pl&#45;&gt;util_append_pl -->
-<g id="proc~~whm_util_append_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~whm_util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~whm_util_append_pl&#45;&gt;util_append_pl</title>
 <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_append -->
+<!-- util_exit -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_node4" class="node">
-<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>
+<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>
 </g>
-<!-- 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_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"/>
+<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
+<g id="proc~~whm_util_append_pl~~CallsGraph_edge2" 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"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/whm_util_fill_pl.html b/docs/proc/whm_util_fill_pl.html
index 05458f62a..4fb014762 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~226"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~277"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -320,27 +320,27 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- util_fill -->
 <g id="proc~~whm_util_fill_pl~~CallsGraph_node3" class="node">
-<title>util_exit</title>
+<title>util_fill</title>
 <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>
+<text text-anchor="middle" x="149" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
 <g id="proc~~whm_util_fill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill</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 -->
+<!-- util_exit -->
 <g id="proc~~whm_util_fill_pl~~CallsGraph_node4" class="node">
-<title>util_fill</title>
+<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_fill</text>
+<text text-anchor="middle" x="149" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
+<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
 <g id="proc~~whm_util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
+<title>proc~whm_util_fill_pl&#45;&gt;util_exit</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 83912799e..6610827f3 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~227"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~278"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -291,29 +291,29 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="103,-45 0,-45 0,-21 103,-21 103,-45"/>
 <text text-anchor="middle" x="51.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_resize_pl</text>
 </g>
-<!-- util_resize_pl -->
+<!-- util_resize -->
 <g id="proc~~whm_util_resize_pl~~CallsGraph_node2" class="node">
-<title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="214,-66 139,-66 139,-42 214,-42 214,-66"/>
-<text text-anchor="middle" x="176.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="207,-66 146,-66 146,-42 207,-42 207,-66"/>
+<text text-anchor="middle" x="176.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize -->
 <g id="proc~~whm_util_resize_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M103.24,-41.66C111.71,-43.11 120.46,-44.6 128.82,-46.03"/>
-<polygon fill="#000000" stroke="#000000" points="128.33,-49.5 138.78,-47.73 129.51,-42.6 128.33,-49.5"/>
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M103.24,-41.66C114.06,-43.51 125.34,-45.44 135.68,-47.2"/>
+<polygon fill="#000000" stroke="#000000" points="135.21,-50.67 145.65,-48.9 136.39,-43.77 135.21,-50.67"/>
 </g>
-<!-- util_resize -->
+<!-- util_resize_pl -->
 <g id="proc~~whm_util_resize_pl~~CallsGraph_node3" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="207,-24 146,-24 146,0 207,0 207,-24"/>
-<text text-anchor="middle" x="176.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="214,-24 139,-24 139,0 214,0 214,-24"/>
+<text text-anchor="middle" x="176.5" y="-9.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 -->
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
 <g id="proc~~whm_util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M103.24,-24.34C114.06,-22.49 125.34,-20.56 135.68,-18.8"/>
-<polygon fill="#000000" stroke="#000000" points="136.39,-22.23 145.65,-17.1 135.21,-15.33 136.39,-22.23"/>
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M103.24,-24.34C111.71,-22.89 120.46,-21.4 128.82,-19.97"/>
+<polygon fill="#000000" stroke="#000000" points="129.51,-23.4 138.78,-18.27 128.33,-16.5 129.51,-23.4"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/whm_util_set_ir3j.html b/docs/proc/whm_util_set_ir3j.html
index fbdfcdaa2..35c0cb224 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~228"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~279"></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 e048d5098..17767b6df 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~223"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~274"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-cb~33"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-cb~36"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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 a4e9a1ca5..03f7dfc35 100644
--- a/docs/proc/whm_util_sort_pl.html
+++ b/docs/proc/whm_util_sort_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_sort_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.0% of total for procedures.">32 statements</a>
      </li> 
      
      
@@ -237,7 +237,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~280"></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 5c80b2d77..0814d695c 100644
--- a/docs/proc/whm_util_sort_rearrange_pl.html
+++ b/docs/proc/whm_util_sort_rearrange_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_sort_rearrange_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.">15 statements</a>
      </li> 
      
      
@@ -237,7 +237,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~281"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,28 +281,40 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~whm_util_sort_rearrange_pl~~CallsGraph Pages: 1 -->
-<svg id="procwhm_util_sort_rearrange_plCallsGraph" width="308pt" height="32pt"
- viewBox="0.00 0.00 308.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procwhm_util_sort_rearrange_plCallsGraph" width="308pt" height="74pt"
+ viewBox="0.00 0.00 308.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~whm_util_sort_rearrange_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 304,-28 304,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 304,-70 304,4 -4,4"/>
 <!-- proc~whm_util_sort_rearrange_pl -->
 <g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph_node1" class="node">
 <title>proc~whm_util_sort_rearrange_pl</title>
-<polygon fill="none" stroke="black" points="146,-24 0,-24 0,0 146,0 146,-24"/>
-<text text-anchor="middle" x="73" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_sort_rearrange_pl</text>
+<polygon fill="none" stroke="black" points="146,-45 0,-45 0,-21 146,-21 146,-45"/>
+<text text-anchor="middle" x="73" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_sort_rearrange_pl</text>
 </g>
 <!-- util_sort_rearrange_pl -->
 <g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph_node2" class="node">
 <title>util_sort_rearrange_pl</title>
-<polygon fill="#777777" stroke="#777777" points="300,-24 182,-24 182,0 300,0 300,-24"/>
-<text text-anchor="middle" x="241" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<polygon fill="#777777" stroke="#777777" points="300,-66 182,-66 182,-42 300,-42 300,-66"/>
+<text text-anchor="middle" x="241" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
 <!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
 <g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph_edge1" class="edge">
 <title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M146.33,-12C154.77,-12 163.37,-12 171.76,-12"/>
-<polygon fill="#000000" stroke="#000000" points="171.87,-15.5 181.87,-12 171.87,-8.5 171.87,-15.5"/>
+<path fill="none" stroke="#000000" d="M146.33,-42.15C154.77,-43.22 163.37,-44.31 171.76,-45.37"/>
+<polygon fill="#000000" stroke="#000000" points="171.51,-48.86 181.87,-46.65 172.39,-41.92 171.51,-48.86"/>
+</g>
+<!-- util_sort_rearrange -->
+<g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph_node3" class="node">
+<title>util_sort_rearrange</title>
+<polygon fill="#777777" stroke="#777777" points="292.5,-24 189.5,-24 189.5,0 292.5,0 292.5,-24"/>
+<text text-anchor="middle" x="241" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange</text>
+</g>
+<!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange -->
+<g id="proc~~whm_util_sort_rearrange_pl~~CallsGraph_edge2" class="edge">
+<title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange</title>
+<path fill="none" stroke="#000000" d="M146.33,-23.85C157.32,-22.46 168.56,-21.04 179.27,-19.68"/>
+<polygon fill="#000000" stroke="#000000" points="179.87,-23.13 189.35,-18.41 178.99,-16.19 179.87,-23.13"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/whm_util_spill_pl.html b/docs/proc/whm_util_spill_pl.html
index f2d4aec3f..04a8f6890 100644
--- a/docs/proc/whm_util_spill_pl.html
+++ b/docs/proc/whm_util_spill_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_spill_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.">23 statements</a>
+    title=" 0.0% of total for procedures.">23 statements</a>
      </li> 
      
      
@@ -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~282"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -322,15 +322,15 @@ <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_exit -->
+<!-- util_spill -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_node2" class="node">
-<title>util_exit</title>
+<title>util_spill</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_exit</text>
+<text text-anchor="middle" x="161" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill</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>
@@ -346,15 +346,15 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- util_exit -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_node4" class="node">
-<title>util_spill</title>
+<title>util_exit</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>
+<text text-anchor="middle" x="161" y="-9.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 -->
+<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<title>proc~whm_util_spill_pl&#45;&gt;util_exit</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>
diff --git a/docs/proc/xv2el.html b/docs/proc/xv2el.html
new file mode 100644
index 000000000..423149fb4
--- /dev/null
+++ b/docs/proc/xv2el.html
@@ -0,0 +1,680 @@
+<!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>xv2el &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>xv2el
+      <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-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.0% of total for procedures.">11 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/orbel.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/orbel.f90~2.html'>orbel.f90</a></li>
+    
+     <li><a href='../module/orbel.html'>orbel</a></li>
+    
+  
+     <li class="active">xv2el</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>
+public pure elemental subroutine xv2el(mu, px, py, pz, vx, vy, vz, a, e, inc, capom, omega, capm)
+    
+    
+   
+</h2>
+    
+  
+    <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_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: proc~~xv2el~~UsesGraph Pages: 1 -->
+<svg id="procxv2elUsesGraph" width="434pt" height="32pt"
+ viewBox="0.00 0.00 434.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~xv2el~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~xv2el~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 430,-28 430,4 -4,4"/>
+<!-- proc~xv2el -->
+<g id="proc~~xv2el~~UsesGraph_node1" class="node">
+<title>proc~xv2el</title>
+<polygon fill="none" stroke="black" points="426,-24 372,-24 372,0 426,0 426,-24"/>
+<text text-anchor="middle" x="399" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">xv2el</text>
+</g>
+<!-- module~swiftest_classes -->
+<g id="proc~~xv2el~~UsesGraph_node2" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_proc~~xv2el~~UsesGraph_node2"><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>
+<!-- proc~xv2el&#45;&gt;module~swiftest_classes -->
+<g id="proc~~xv2el~~UsesGraph_edge1" class="edge">
+<title>proc~xv2el&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.92,-12C364.12,-12 355.26,-12 346.36,-12"/>
+<polygon fill="#000000" stroke="#000000" points="346.34,-8.5 336.34,-12 346.34,-15.5 346.34,-8.5"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="proc~~xv2el~~UsesGraph_node3" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_proc~~xv2el~~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>
+</a>
+</g>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~xv2el~~UsesGraph_edge2" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-12C238.75,-12 230.07,-12 221.59,-12"/>
+<polygon fill="#000000" stroke="#000000" points="221.39,-8.5 211.39,-12 221.39,-15.5 221.39,-8.5"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="proc~~xv2el~~UsesGraph_node4" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~xv2el~~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>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~xv2el~~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"/>
+</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="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>
+    
+
+
+    
+
+    <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-mu~11"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mu</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-px"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>px</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-py"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>py</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pz"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pz</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vx"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vx</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vy"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vy</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vz"></span>real(kind=8),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>vz</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-a~3"></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>a</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-e~9"></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>e</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inc~3"></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>inc</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capom~3"></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>capom</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-omega~3"></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>omega</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capm~3"></span>real(kind=8),</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>capm</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    
+     
+    <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/program/swiftest_driver.html b/docs/program/swiftest_driver.html
index 6bd079f24..b4857e201 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.">61 statements</a>
+    title="100.0% of total for programs.">74 statements</a>
      </li> 
      
      
@@ -181,7 +181,7 @@ <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~214">param</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-param~264">param</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-integrator~4">integrator</a>
       
@@ -195,9 +195,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-iout">iout</a>
       
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-ioutput_t0">ioutput_t0</a>
+      
       <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-iu~17">iu</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-old_t_final~3">old_t_final</a>
+      
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-timer">timer</a>
       
     </div>
   </div>
@@ -253,252 +257,307 @@ <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="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)">
+<svg id="programswiftest_driverUsesGraph" width="641pt" height="208pt"
+ viewBox="0.00 0.00 641.00 208.27" 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 298.17)">
 <title>program~~swiftest_driver~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.51 919,-274.51 919,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-298.17 926,-298.17 926,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,-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>
+<polygon fill="none" stroke="black" points="922,-142 841,-142 841,-118 922,-118 922,-142"/>
+<text text-anchor="middle" x="881.5" y="-127.6" 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,-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>
+<polygon fill="#337ab7" stroke="#337ab7" points="805,-142 751,-142 751,-118 805,-118 805,-142"/>
+<text text-anchor="middle" x="778" y="-127.6" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.97,-130C832.51,-130 823.62,-130 815.3,-130"/>
+<polygon fill="#000000" stroke="#000000" points="815.13,-126.5 805.13,-130 815.13,-133.5 815.13,-126.5"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_operators -->
 <g id="program~~swiftest_driver~~UsesGraph_node3" class="node">
-<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>
+<title>module~swiftest_operators</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node3"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-260 247,-260 247,-236 347,-236 347,-260"/>
+<text text-anchor="middle" x="297" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
 <g id="program~~swiftest_driver~~UsesGraph_edge2" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-288C398.02,-282.17 365.15,-272.02 339.97,-263.41"/>
+<polygon fill="#000000" stroke="#000000" points="340.96,-260.05 330.37,-260.07 338.66,-266.66 340.96,-260.05"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~rmvs_classes -->
 <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="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>
+<title>module~rmvs_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node4"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="588,-182 511,-182 511,-158 588,-158 588,-182"/>
+<text text-anchor="middle" x="549.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-130C637.51,-130 604.25,-142.53 580.97,-153.56"/>
+<polygon fill="#000000" stroke="#000000" points="579.37,-150.44 571.94,-158 582.46,-156.73 579.37,-150.44"/>
 </g>
-<!-- module~swiftest_operators -->
+<!-- module~fraggle_classes -->
 <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="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>
+<title>module~fraggle_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node5"><a xlink:href=".././module/fraggle_classes.html" xlink:title="fraggle_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="472.5,-260 385.5,-260 385.5,-236 472.5,-236 472.5,-260"/>
+<text text-anchor="middle" x="429" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<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,-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"/>
+<!-- module~swiftest&#45;&gt;module~fraggle_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M768.97,-142.04C742.33,-180.36 652.76,-296.43 550.5,-288"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-288C516.44,-291.48 481.69,-277.45 458.16,-265.07"/>
+<polygon fill="#000000" stroke="#000000" points="459.56,-261.84 449.12,-260.09 456.19,-267.98 459.56,-261.84"/>
 </g>
 <!-- module~helio_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node6" class="node">
 <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>
+<polygon fill="#337ab7" stroke="#337ab7" points="587.5,-102 511.5,-102 511.5,-78 587.5,-78 587.5,-102"/>
+<text text-anchor="middle" x="549.5" y="-87.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="program~~swiftest_driver~~UsesGraph_edge6" class="edge">
+<g id="program~~swiftest_driver~~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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.74,-130C729.18,-130 697.86,-130 670.5,-130"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-130C637.51,-130 604.25,-117.47 580.97,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="582.46,-103.27 571.94,-102 579.37,-109.56 582.46,-103.27"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~whm_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node7" class="node">
-<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>
+<title>module~whm_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="467,-142 391,-142 391,-118 467,-118 467,-142"/>
+<text text-anchor="middle" x="429" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M668.5,-130C602.15,-130 525.42,-130 477.3,-130"/>
+<polygon fill="#000000" stroke="#000000" points="477.18,-126.5 467.18,-130 477.18,-133.5 477.18,-126.5"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~swiftest_globals -->
 <g id="program~~swiftest_driver~~UsesGraph_node8" class="node">
-<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>
+<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,-220 123,-220 123,-196 211,-196 211,-220"/>
+<text text-anchor="middle" x="167" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="program~~swiftest_driver~~UsesGraph_edge7" class="edge">
-<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"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-288C348.6,-272.57 322.08,-299.08 247,-269 223.79,-259.7 201.65,-241.51 186.74,-227.4"/>
+<polygon fill="#000000" stroke="#000000" points="188.84,-224.56 179.25,-220.06 183.95,-229.56 188.84,-224.56"/>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~symba_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="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>
+<title>module~symba_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="712,-182 627,-182 627,-158 712,-158 712,-182"/>
+<text text-anchor="middle" x="669.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~symba_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="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"/>
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M750.95,-139.79C739.37,-144.13 725.44,-149.37 712.45,-154.24"/>
+<polygon fill="#000000" stroke="#000000" points="710.89,-151.09 702.76,-157.88 713.35,-157.64 710.89,-151.09"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~swiftest_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node10" class="node">
-<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>
+<title>module~swiftest_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-180 252.5,-180 252.5,-156 341.5,-156 341.5,-180"/>
+<text text-anchor="middle" x="297" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-288C496.14,-293.68 481.7,-298.05 430,-288"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-288C406.69,-283.86 398.72,-283.98 383,-269 356.24,-243.49 372.61,-220.67 347,-194 344,-190.87 340.54,-188.04 336.87,-185.5"/>
+<polygon fill="#000000" stroke="#000000" points="338.42,-182.35 328.07,-180.09 334.75,-188.31 338.42,-182.35"/>
 </g>
-<!-- iso_fortran_env -->
+<!-- module~lambda_function -->
 <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>
+<title>module~lambda_function</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node11"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="715,-83 624,-83 624,-59 715,-59 715,-83"/>
+<text text-anchor="middle" x="669.5" y="-68.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
 <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"/>
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M755.19,-117.92C739.68,-109.33 718.64,-97.67 701.4,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="702.72,-84.85 692.28,-83.07 699.33,-90.97 702.72,-84.85"/>
+</g>
+<!-- module~walltime_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_node12" class="node">
+<title>module~walltime_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node12"><a xlink:href=".././module/walltime_classes.html" xlink:title="walltime_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="475,-24 383,-24 383,0 475,0 475,-24"/>
+<text text-anchor="middle" x="429" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes</text>
+</a>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+</g>
+<!-- module~swiftest&#45;&gt;module~walltime_classes -->
 <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="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"/>
+<title>module~swiftest&#45;&gt;module~walltime_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M771.4,-117.81C762.36,-99.65 742.72,-65.95 715,-50 643.52,-8.88 545.62,-5.01 485.16,-7.43"/>
+<polygon fill="#000000" stroke="#000000" points="484.88,-3.94 475.05,-7.91 485.21,-10.93 484.88,-3.94"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <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="M402.44,-213.71C377.32,-200.39 333.26,-181.3 293.5,-185.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-236C244.68,-231.96 230.09,-227.4 216.5,-223.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-219.77 206.82,-220.13 215.32,-226.45 217.41,-219.77"/>
 </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 -->
+<!-- module~rmvs_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"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-158C501.22,-154.04 488.01,-149.58 475.64,-145.4"/>
+<polygon fill="#000000" stroke="#000000" points="476.53,-142.01 465.94,-142.13 474.29,-148.65 476.53,-142.01"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge13" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.74,-171C476.34,-170.68 424.69,-167.09 383,-151 339.62,-134.26 341.43,-73.38 298,-90"/>
+</g>
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_globals -->
 <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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.3,-235.93C375.49,-225.2 334.97,-210.78 298,-208"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~fraggle_classes&#45;&gt;module~swiftest_classes -->
 <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="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"/>
+<title>module~fraggle_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.66,-235.89C398.31,-231.7 390.19,-226.84 383,-222 366.19,-210.68 364.02,-205.01 347,-194 342.2,-190.89 336.99,-187.83 331.82,-184.95"/>
+<polygon fill="#000000" stroke="#000000" points="333.12,-181.68 322.65,-180.02 329.8,-187.84 333.12,-181.68"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.95,-102C501.22,-105.96 488.01,-110.42 475.64,-114.6"/>
+<polygon fill="#000000" stroke="#000000" points="474.29,-111.35 465.94,-117.87 476.53,-117.99 474.29,-111.35"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <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.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"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C370.82,-98.27 351.8,-68.94 298,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.47,-87.29C488.01,-86.24 457.08,-86.08 430,-90"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-90C384.19,-96.34 341.84,-128.01 317.94,-148.99"/>
+<polygon fill="#000000" stroke="#000000" points="315.35,-146.61 310.28,-155.91 320.04,-151.81 315.35,-146.61"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge20" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.16,-117.93C370.04,-103.65 317.13,-82.68 298,-90"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge19" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge21" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.75,-140.89C377.83,-144.67 363.11,-148.97 349.26,-153.02"/>
+<polygon fill="#000000" stroke="#000000" points="347.98,-149.74 339.37,-155.91 349.95,-156.46 347.98,-149.74"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<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="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"/>
+<!-- iso_fortran_env -->
+<g id="program~~swiftest_driver~~UsesGraph_node13" class="node">
+<title>iso_fortran_env</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node13"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-220 0,-220 0,-196 87,-196 87,-220"/>
+<text text-anchor="middle" x="43.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="program~~swiftest_driver~~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,-208C114.58,-208 105.86,-208 97.36,-208"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-204.5 87.13,-208 97.13,-211.5 97.13,-204.5"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge22" class="edge">
+<g id="program~~swiftest_driver~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.9,-170C617.64,-170 607.75,-170 598.27,-170"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-166.5 588.18,-170 598.18,-173.5 598.18,-166.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~fraggle_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~fraggle_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-210C522.97,-216.11 494.97,-224.99 472.61,-232.62"/>
+<polygon fill="#000000" stroke="#000000" points="471.38,-229.34 463.08,-235.91 473.67,-235.96 471.38,-229.34"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.49,-157.75C639.23,-153.55 631.18,-148.72 624,-144 606.9,-132.77 588.34,-119.12 574.15,-108.36"/>
+<polygon fill="#000000" stroke="#000000" points="576,-105.37 565.93,-102.07 571.75,-110.93 576,-105.37"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge26" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-208C271.5,-206.15 244.29,-205.9 221.27,-206.21"/>
+<polygon fill="#000000" stroke="#000000" points="220.96,-202.72 211.02,-206.39 221.08,-209.72 220.96,-202.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-208C370.42,-203.18 355.61,-212.34 298,-208"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge23" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge27" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.9,-182.1C614.34,-191 580.79,-202.75 550.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428,-208C395.45,-205.28 360.12,-193.82 334.52,-183.86"/>
+<polygon fill="#000000" stroke="#000000" points="335.79,-180.6 325.21,-180.14 333.19,-187.1 335.79,-180.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.5,-210C497.27,-222.27 482.49,-212.39 430,-208"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge28" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-180C244.68,-184.04 230.09,-188.6 216.5,-192.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-189.55 206.82,-195.87 217.41,-196.23 215.32,-189.55"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge29" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M623.84,-64.48C552.26,-55.94 408.66,-46.69 298,-90"/>
+</g>
+<!-- module~walltime_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge30" class="edge">
+<title>module~walltime_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-90C245.57,-109.3 203.18,-159.14 182.18,-187.48"/>
+<polygon fill="#000000" stroke="#000000" points="179.14,-185.71 176.13,-195.87 184.82,-189.81 179.14,-185.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.87,-24.06C399.32,-28.41 390.76,-33.39 383,-38 344.94,-60.64 339.36,-74.17 298,-90"/>
 </g>
 </g>
 </svg>
@@ -612,29 +671,29 @@ <h3 class="panel-title">Calls</h3>
 <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 -->
+<!-- io_get_args -->
 <g id="program~~swiftest_driver~~CallsGraph_node3" class="node">
-<title>util_exit</title>
-<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>
+<title>io_get_args</title>
+<polygon fill="#777777" stroke="#777777" points="215.5,-66 146.5,-66 146.5,-42 215.5,-42 215.5,-66"/>
+<text text-anchor="middle" x="181" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </g>
-<!-- program~swiftest_driver&#45;&gt;util_exit -->
+<!-- program~swiftest_driver&#45;&gt;io_get_args -->
 <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,-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"/>
+<title>program~swiftest_driver&#45;&gt;io_get_args</title>
+<path fill="none" stroke="#000000" d="M81.19,-54C98.43,-54 118.68,-54 136.34,-54"/>
+<polygon fill="#000000" stroke="#000000" points="136.4,-57.5 146.4,-54 136.4,-50.5 136.4,-57.5"/>
 </g>
-<!-- io_get_args -->
+<!-- util_exit -->
 <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>
+<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>
 </g>
-<!-- program~swiftest_driver&#45;&gt;io_get_args -->
+<!-- program~swiftest_driver&#45;&gt;util_exit -->
 <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"/>
+<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"/>
 </g>
 </g>
 </svg>
@@ -716,7 +775,7 @@ <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~214">param</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-param~264">param</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-integrator~4">integrator</a>
       
@@ -730,9 +789,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-iout">iout</a>
       
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-ioutput_t0">ioutput_t0</a>
+      
       <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-iu~17">iu</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-old_t_final~3">old_t_final</a>
+      
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-timer">timer</a>
       
     </div>
   </div>
@@ -796,7 +859,7 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~214"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~264"></span>class(swiftest_parameters),</td>
   
   
   <td>allocatable</td><td>::</td>
@@ -892,6 +955,20 @@ <h2>Variables</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-ioutput_t0"></span>integer(kind=I8B)</td>
+  
+  
+  <td></td><td>::</td>
+  <td><strong>ioutput_t0</strong></td><td></td><td></td><td><p>The output frame counter at time 0</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-nloops"></span>integer(kind=I8B)</td>
@@ -908,11 +985,25 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~17"></span>integer(kind=I4B)</td>
+  <td><span class="anchor" id="variable-old_t_final~3"></span>real(kind=DP)</td>
+  
+  
+  <td></td><td>::</td>
+  <td><strong>old_t_final</strong></td><td> =</td><td>0.0_DP</td><td><p>Output time at which writing should start, in order to prevent duplicate lines being written for restarts</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-timer"></span>type(walltimer)</td>
   
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td></td><td></td><td><p>Unit number of binary file</p></td>
+  <td><strong>timer</strong></td><td></td><td></td><td><p>Object used for computing elapsed wall time</p></td>
   
 </tr>
 
diff --git a/docs/sourcefile/discard.f90.html b/docs/sourcefile/discard.f90.html
index 19cb3384c..6f78e56a1 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.5% of total for source files.">195 statements</a>
+    title=" 1.3% of total for source files.">217 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefilediscardf90EfferentGraph" width="641pt" height="299pt"
+ viewBox="0.00 0.00 641.00 298.69" 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 412.12)">
 <title>sourcefile~~discard.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 882,-301.25 882,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 889,-412.12 889,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,-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>
+<polygon fill="none" stroke="black" points="885,-133.12 820,-133.12 820,-109.12 885,-109.12 885,-133.12"/>
+<text text-anchor="middle" x="852.5" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">discard.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M831.4,-109.09C793.26,-87.43 707.14,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M838.9,-133.4C822,-149.87 791.82,-179.29 771.86,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="769.22,-196.45 764.5,-205.93 774.1,-201.46 769.22,-196.45"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~discard.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~discard.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~discard.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~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="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~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="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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~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="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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -591,7 +645,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-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">false</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>         
@@ -613,7 +667,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-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="mi">1</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="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>
@@ -633,216 +687,240 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">         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-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">npl</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-77"></a>
+<a name="ln-78"></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">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>
+<a name="ln-79"></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-80"></a><span class="k">         </span><span class="n">ntp</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-81"></a>         <span class="n">npl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-82"></a>
+<a name="ln-83"></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-84"></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-85"></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-86"></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-87"></a>         <span class="k">end if</span>
+<a name="ln-88"></a>
+<a name="ln-89"></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-90"></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-91"></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-92"></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="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)))</span> <span class="k">then</span>
+<a name="ln-93"></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-94"></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="mi">1</span><span class="p">:</span><span class="n">ntp</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-95"></a>         <span class="k">end if</span>
+<a name="ln-96"></a><span class="k">      end associate</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-98"></a><span class="k">      return</span>
+<a name="ln-99"></a><span class="k">   end subroutine </span><span class="n">discard_tp</span>
+<a name="ln-100"></a>
+<a name="ln-101"></a>
+<a name="ln-102"></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-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">!! 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>
+<a name="ln-105"></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-106"></a>      <span class="c">!!        or because they are unbound from the system</span>
+<a name="ln-107"></a>      <span class="c">!!</span>
+<a name="ln-108"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_sun.f90</span>
+<a name="ln-109"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_sun.f</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="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-113"></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-114"></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-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="kd">::</span> <span class="n">i</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="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-118"></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">idstr</span><span class="p">,</span> <span class="n">timestr</span>
+<a name="ln-119"></a>
+<a name="ln-120"></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">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-121"></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-122"></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-123"></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-124"></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-125"></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-126"></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-127"></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-128"></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-129"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-130"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-131"></a>                  <span class="k">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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</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">i</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span> <span class="s2">&quot; too far from the central body at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-132"></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-133"></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-134"></a>                  <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_RMAX&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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-135"></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-136"></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-137"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-138"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</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">i</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span>  <span class="s2">&quot; too close to the central body at t = &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">timestr</span><span class="p">))</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">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_RMIN&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="n">cb</span><span class="p">%</span><span class="n">id</span><span class="p">)</span>
+<a name="ln-143"></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-144"></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-145"></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-146"></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-147"></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-148"></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-149"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-150"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-151"></a>                     <span class="k">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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</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">i</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span>  <span class="s2">&quot; is unbound and too far from barycenter at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-152"></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-153"></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-154"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_RMAXU&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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-155"></a>                  <span class="k">end if</span>
+<a name="ln-156"></a><span class="k">               end if</span>
+<a name="ln-157"></a><span class="k">            end if</span>
+<a name="ln-158"></a><span class="k">         end do</span>
+<a name="ln-159"></a><span class="k">      end associate</span>
+<a name="ln-160"></a>
+<a name="ln-161"></a><span class="k">      return</span>
+<a name="ln-162"></a><span class="k">   end subroutine </span><span class="n">discard_cb_tp</span>
+<a name="ln-163"></a>
+<a name="ln-164"></a>
+<a name="ln-165"></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-166"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-167"></a>      <span class="c">!!</span>
+<a name="ln-168"></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-169"></a>      <span class="c">!!</span>
+<a name="ln-170"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_peri.f90</span>
+<a name="ln-171"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_peri.f</span>
+<a name="ln-172"></a>      <span class="k">implicit none</span>
+<a name="ln-173"></a>      <span class="c">! Arguments</span>
+<a name="ln-174"></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-175"></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-176"></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-177"></a>      <span class="c">! Internals</span>
+<a name="ln-178"></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-179"></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-180"></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-181"></a>      <span class="kt">real</span><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-182"></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">idstr</span><span class="p">,</span> <span class="n">timestr</span>
+<a name="ln-183"></a>   
+<a name="ln-184"></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-185"></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-186"></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-187"></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-188"></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-189"></a><span class="k">                  </span><span class="n">ih</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-190"></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-191"></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-192"></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-193"></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-194"></a>                  <span class="k">end do</span>
+<a name="ln-195"></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-196"></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-197"></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-198"></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-199"></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-200"></a>                        <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-201"></a>                        <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-202"></a>                        <span class="k">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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</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">i</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span> <span class="s2">&quot; perihelion distance too small at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-203"></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-204"></a>                        <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_PERI&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</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">j</span><span class="p">))</span>
+<a name="ln-205"></a>                     <span class="k">end if</span>
+<a name="ln-206"></a><span class="k">                  end if</span>
+<a name="ln-207"></a><span class="k">               end if</span>
+<a name="ln-208"></a><span class="k">            end if</span>
+<a name="ln-209"></a><span class="k">         end do</span>
+<a name="ln-210"></a><span class="k">      end associate</span>
+<a name="ln-211"></a>
+<a name="ln-212"></a><span class="k">      return</span>
+<a name="ln-213"></a><span class="k">   end subroutine </span><span class="n">discard_peri_tp</span>
+<a name="ln-214"></a>
+<a name="ln-215"></a>
+<a name="ln-216"></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-217"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-218"></a>      <span class="c">!!</span>
+<a name="ln-219"></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-220"></a>      <span class="c">!!</span>
+<a name="ln-221"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_pl.f90</span>
+<a name="ln-222"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_pl.f</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">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-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="c">! Internals </span>
+<a name="ln-229"></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-230"></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-231"></a>      <span class="kt">real</span><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-232"></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">idstri</span><span class="p">,</span> <span class="n">idstrj</span><span class="p">,</span> <span class="n">timestr</span>
+<a name="ln-233"></a>   
+<a name="ln-234"></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-235"></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-236"></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-237"></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-238"></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-239"></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-240"></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-241"></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-242"></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-243"></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-244"></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-245"></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-246"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstri</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-247"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstrj</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-248"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-249"></a>                     <span class="k">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;Test particle &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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstri</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="p">&amp;</span>
+<a name="ln-250"></a>                                                  <span class="o">//</span> <span class="s2">&quot;  too close to massive body &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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstrj</span><span class="p">))</span> <span class="p">&amp;</span>
+<a name="ln-251"></a>                                                  <span class="o">//</span> <span class="s2">&quot; at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-252"></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-253"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_PLR&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</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">j</span><span class="p">))</span>
+<a name="ln-254"></a>                     <span class="k">exit</span>
+<a name="ln-255"></a><span class="k">                  end if</span>
+<a name="ln-256"></a><span class="k">               end do</span>
+<a name="ln-257"></a><span class="k">            end if</span>
+<a name="ln-258"></a><span class="k">         end do</span>
+<a name="ln-259"></a><span class="k">      end associate</span>
+<a name="ln-260"></a>
+<a name="ln-261"></a><span class="k">      return</span>
+<a name="ln-262"></a><span class="k">   end subroutine </span><span class="n">discard_pl_tp</span>
+<a name="ln-263"></a>   
+<a name="ln-264"></a>
+<a name="ln-265"></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-266"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-267"></a>      <span class="c">!!</span>
+<a name="ln-268"></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-269"></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-270"></a>      <span class="c">!!</span>
+<a name="ln-271"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_pl_close.f90</span>
+<a name="ln-272"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_pl_close.f</span>
+<a name="ln-273"></a>      <span class="k">implicit none</span>
+<a name="ln-274"></a>      <span class="c">! Arguments</span>
+<a name="ln-275"></a>      <span class="kt">real</span><span 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-276"></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-277"></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-278"></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-279"></a>      <span class="c">! Internals</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">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-281"></a>      
+<a name="ln-282"></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-283"></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-284"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-285"></a>      <span class="k">else</span>
+<a name="ln-286"></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-287"></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-288"></a><span class="k">            </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-289"></a>         <span class="k">else</span>
+<a name="ln-290"></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-291"></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-292"></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-293"></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-294"></a>            <span class="k">else</span>
+<a name="ln-295"></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-296"></a>            <span class="k">end if</span>
+<a name="ln-297"></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-298"></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-299"></a><span class="k">               </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-300"></a>            <span class="k">else</span>
+<a name="ln-301"></a><span class="k">               </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</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">      end if</span>
+<a name="ln-305"></a><span class="k">   </span>
+<a name="ln-306"></a><span class="k">      return</span>
+<a name="ln-307"></a><span class="k">   end subroutine </span><span class="n">discard_pl_close</span>
+<a name="ln-308"></a>
+<a name="ln-309"></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 70dd77cb7..3f8c17407 100644
--- a/docs/sourcefile/drift.f90.html
+++ b/docs/sourcefile/drift.f90.html
@@ -134,7 +134,7 @@ <h1>drift.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.6% of total for source files.">352 statements</a>
+    title=" 2.2% of total for source files.">352 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefiledriftf90EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.42" 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 412.12)">
 <title>sourcefile~~drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 878,-412.12 878,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,-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>
+<polygon fill="none" stroke="black" points="874,-133.12 820,-133.12 820,-109.12 874,-109.12 874,-133.12"/>
+<text text-anchor="middle" x="847" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">drift.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.44,-109.09C789.3,-87.43 705.41,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.09,-133.4C818.2,-149.8 789.87,-179.03 771.01,-198.5"/>
+<polygon fill="#000000" stroke="#000000" points="768.25,-196.32 763.81,-205.93 773.28,-201.19 768.25,-196.32"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~drift.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~drift.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~drift.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~drift.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~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,-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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~drift.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/eucl.f90.html b/docs/sourcefile/eucl.f90.html
deleted file mode 100644
index 88df7c43d..000000000
--- a/docs/sourcefile/eucl.f90.html
+++ /dev/null
@@ -1,656 +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>eucl.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>eucl.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.2% of total for source files.">24 statements</a>
-     </li> 
-     
-     
-     
-    <li><i class="fa fa-code"></i><a href="../src/eucl.f90"> Source File</a></li>
-     
-     
-  </ul>
-  <ol class="breadcrumb in-well text-right">
-  
-    
-  
-     <li class="active">eucl.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_eucl.html">s_eucl</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/eucl.f90.html#src">eucl.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~~eucl.f90~~EfferentGraph Pages: 1 -->
-<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,-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,-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_node2" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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_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,-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 -->
-<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~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_node10" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<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_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~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~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_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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_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~~eucl.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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~~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_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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,-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~~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~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.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~eucl.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~~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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~eucl.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~~eucl.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~~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~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="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~~eucl.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~~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~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~~eucl.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~~eucl.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~~eucl.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~~eucl.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 pansourcefileeuclf90EfferentGraph = svgPanZoom('#sourcefileeuclf90EfferentGraph', {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_eucl.html">s_eucl</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/eucl.f90.html#src">eucl.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_eucl</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>
-<a name="ln-5"></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-6"></a>      <span class="c">!! author: Jacob R. Elliott and David A. Minton</span>
-<a name="ln-7"></a>      <span class="c">!!</span>
-<a name="ln-8"></a>      <span class="c">!! Turns i,j indices into k index for use in the Euclidean distance matrix</span>
-<a name="ln-9"></a>      <span class="c">!!</span>
-<a name="ln-10"></a>      <span class="c">!! Reference:</span>
-<a name="ln-11"></a>      <span class="c">!!</span>
-<a name="ln-12"></a>      <span class="c">!!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
-<a name="ln-13"></a>      <span class="c">!!       2019. hal-0204751</span>
-<a name="ln-14"></a>      <span class="k">implicit none</span>
-<a name="ln-15"></a>      <span class="c">! Arguments</span>
-<a name="ln-16"></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 objec</span>
-<a name="ln-17"></a>      <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">counter</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-19"></a>
-<a name="ln-20"></a>      <span class="n">npl</span> <span class="o">=</span> <span class="nb">int</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="nb">kind</span><span class="o">=</span><span class="n">I8B</span><span class="p">)</span>
-<a name="ln-21"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nplpl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span>
-<a name="ln-22"></a>         <span class="n">nplpl</span> <span class="o">=</span> <span class="p">(</span><span class="n">npl</span> <span class="o">*</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="o">/</span> <span class="mi">2</span><span class="p">)</span> <span class="c">! number of entries in a strict lower triangle, nplm x npl, minus first column</span>
-<a name="ln-23"></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">k_plpl</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">k_plpl</span><span class="p">)</span> <span class="c">! Reset the index array if it&#39;s been set previously</span>
-<a name="ln-24"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</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">nplpl</span><span class="p">))</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">npl</span>
-<a name="ln-26"></a>            <span class="n">counter</span> <span class="o">=</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">*</span> <span class="n">npl</span> <span class="o">-</span> <span class="n">i</span> <span class="o">*</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">/</span> <span class="mi">2_I8B</span> <span class="o">+</span> <span class="mi">1_I8B</span>
-<a name="ln-27"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="n">i</span> <span class="o">+</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-28"></a>               <span class="n">self</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">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-29"></a>               <span class="n">self</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">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">j</span>
-<a name="ln-30"></a>               <span class="n">counter</span> <span class="o">=</span> <span class="n">counter</span> <span class="o">+</span> <span class="mi">1_I8B</span>
-<a name="ln-31"></a>            <span class="k">end do</span>
-<a name="ln-32"></a><span class="k">         end do</span>
-<a name="ln-33"></a><span class="k">      end associate</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">eucl_dist_index_plpl</span>
-<a name="ln-37"></a>
-<a name="ln-38"></a> <span class="k">end submodule </span><span class="n">s_eucl</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/fraggle_classes.f90.html b/docs/sourcefile/fraggle_classes.f90.html
new file mode 100644
index 000000000..a7d805d7d
--- /dev/null
+++ b/docs/sourcefile/fraggle_classes.f90.html
@@ -0,0 +1,1898 @@
+<!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>fraggle_classes.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>fraggle_classes.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=" 1.4% of total for source files.">234 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_classes.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="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html">fraggle_classes</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/fraggle_classes.f90.html#src">fraggle_classes.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~~fraggle_classes.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_classesf90EfferentGraph" width="398pt" height="52pt"
+ viewBox="0.00 0.00 398.00 52.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_classes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 48)">
+<title>sourcefile~~fraggle_classes.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-48 394,-48 394,4 -4,4"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<polygon fill="none" stroke="black" points="390,-24 285,-24 285,0 390,0 390,-24"/>
+<text text-anchor="middle" x="337.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_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~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.77,-19.39C276.57,-20.56 268.02,-21.78 259.6,-22.99"/>
+<polygon fill="#000000" stroke="#000000" points="258.83,-19.56 249.42,-24.44 259.82,-26.49 258.83,-19.56"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_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~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.68,-11.31C272.95,-11.18 260.55,-11.07 249,-11 201.45,-10.73 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~~fraggle_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,-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>
+</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="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>
+    
+      
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</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~~fraggle_classes.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_classesf90AfferentGraph" width="554pt" height="2804pt"
+ viewBox="0.00 0.00 554.00 2804.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2800)">
+<title>sourcefile~~fraggle_classes.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 550,-2800 550,4 -4,4"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<polygon fill="none" stroke="black" points="105,-1368 0,-1368 0,-1344 105,-1344 105,-1368"/>
+<text text-anchor="middle" x="52.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_classes.f90</text>
+</g>
+<!-- sourcefile~fraggle_set.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506,-2796 422,-2796 422,-2772 506,-2772 506,-2796"/>
+<text text-anchor="middle" x="464" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.78,-2778.41C390.48,-2772.78 347.3,-2761.98 314,-2742"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="346,-1368 280,-1368 280,-1344 346,-1344 346,-1368"/>
+<text text-anchor="middle" x="313" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.75,-2783.05C406.98,-2780.49 391.62,-2774.83 382,-2763 336.38,-2706.89 317.01,-1553.09 314.33,-1378.15"/>
+<polygon fill="#000000" stroke="#000000" points="317.83,-1378.01 314.18,-1368.06 310.83,-1378.11 317.83,-1378.01"/>
+</g>
+<!-- sourcefile~fraggle_io.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503,-2754 425,-2754 425,-2730 503,-2730 503,-2754"/>
+<text text-anchor="middle" x="464" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.95,-2752.2C393.01,-2758.51 347.39,-2762.03 314,-2742"/>
+</g>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.7,-2741.52C409.06,-2739.21 392.27,-2733.62 382,-2721 337.76,-2666.68 317.27,-1550.64 314.36,-1378.27"/>
+<polygon fill="#000000" stroke="#000000" points="317.86,-1378.05 314.19,-1368.11 310.86,-1378.16 317.86,-1378.05"/>
+</g>
+<!-- sourcefile~fraggle_generate.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="520,-2712 408,-2712 408,-2688 520,-2688 520,-2712"/>
+<text text-anchor="middle" x="464" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.93,-2712.07C404.07,-2714.91 392.62,-2717.98 382,-2721 351.57,-2729.64 341.13,-2758.27 314,-2742"/>
+</g>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.86,-2695.61C397.91,-2692.31 388.61,-2687.11 382,-2679 339.15,-2626.46 317.54,-1547.97 314.4,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="317.9,-1378.07 314.21,-1368.13 310.9,-1378.2 317.9,-1378.07"/>
+</g>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-2670 422.5,-2670 422.5,-2646 505.5,-2646 505.5,-2670"/>
+<text text-anchor="middle" x="464" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312,-2742C167.37,-2752.01 69.04,-1556.4 55.18,-1378.12"/>
+<polygon fill="#000000" stroke="#000000" points="58.67,-1377.78 54.41,-1368.07 51.69,-1378.31 58.67,-1377.78"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.38,-2664.41C408.99,-2667.59 394.36,-2672.24 382,-2679 345.85,-2698.77 349.33,-2763.19 314,-2742"/>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.2,-2657.1C407.31,-2654.57 391.74,-2648.92 382,-2637 340.5,-2586.21 317.79,-1544.05 314.44,-1378.17"/>
+<polygon fill="#000000" stroke="#000000" points="317.94,-1378.07 314.24,-1368.14 310.94,-1378.21 317.94,-1378.07"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="244,-1368 141,-1368 141,-1344 244,-1344 244,-1368"/>
+<text text-anchor="middle" x="192.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.9,-1356C132.49,-1356 123.7,-1356 115.06,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="115.02,-1352.5 105.02,-1356 115.02,-1359.5 115.02,-1352.5"/>
+</g>
+<!-- sourcefile~fraggle_regime.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="515.5,-108 412.5,-108 412.5,-84 515.5,-84 515.5,-108"/>
+<text text-anchor="middle" x="464" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.42,-92.62C383.48,-91.52 346.55,-91.56 314,-96"/>
+</g>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.49,-99.03C400.84,-102.18 389.64,-107.67 382,-117 341.9,-165.99 318.1,-1170.01 314.48,-1333.57"/>
+<polygon fill="#000000" stroke="#000000" points="310.98,-1333.79 314.26,-1343.87 317.98,-1333.95 310.98,-1333.79"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="526,-66 402,-66 402,-42 526,-42 526,-66"/>
+<text text-anchor="middle" x="464" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.93,-66.07C404.07,-68.91 392.62,-71.98 382,-75 351.57,-83.64 345.34,-91.72 314,-96"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.76,-60.72C394.16,-63.99 387.24,-68.59 382,-75 340.5,-125.79 317.79,-1167.95 314.44,-1333.83"/>
+<polygon fill="#000000" stroke="#000000" points="310.94,-1333.79 314.24,-1343.86 317.94,-1333.93 310.94,-1333.79"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.52,-1343.91C306.37,-1214.69 259.71,-93.41 193.5,-96"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.93,-1356C272.05,-1356 263.35,-1356 254.59,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="254.33,-1352.5 244.33,-1356 254.33,-1359.5 254.33,-1352.5"/>
+</g>
+<!-- sourcefile~fraggle_setup.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node10" class="node">
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="512,-24 416,-24 416,0 512,0 512,-24"/>
+<text text-anchor="middle" x="464" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.67,-20.11C404.22,-23.18 392.32,-27.35 382,-33 345.85,-52.77 354.82,-90.43 314,-96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312,-96C259.82,-103.12 246.13,-93.94 193.5,-96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M191.5,-96C61.86,-101.08 53.96,-1166.09 53.52,-1333.86"/>
+<polygon fill="#000000" stroke="#000000" points="50.02,-1333.98 53.5,-1343.99 57.02,-1333.99 50.02,-1333.98"/>
+</g>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.84,-14.16C403.01,-17.14 390.36,-22.76 382,-33 339.15,-85.54 317.54,-1164.03 314.4,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="310.9,-1333.8 314.21,-1343.87 317.9,-1333.93 310.9,-1333.8"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node11" class="node">
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="539,-2628 389,-2628 389,-2604 539,-2604 539,-2628"/>
+<text text-anchor="middle" x="464" y="-2613.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~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge12" 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="M399.83,-2603.93C393.56,-2601.48 387.5,-2598.54 382,-2595 341.61,-2569 349.68,-2543.15 314,-2511"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.89,-2603.93C388.2,-2601.43 384.85,-2598.48 382,-2595 341.9,-2546.01 318.1,-1541.99 314.48,-1378.43"/>
+<polygon fill="#000000" stroke="#000000" points="317.98,-1378.05 314.26,-1368.13 310.98,-1378.21 317.98,-1378.05"/>
+</g>
+<!-- sourcefile~symba_step.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node12" class="node">
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="508,-2586 420,-2586 420,-2562 508,-2562 508,-2586"/>
+<text text-anchor="middle" x="464" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.74,-2565.33C407.3,-2562.16 393.89,-2558.08 382,-2553 349.33,-2539.05 340.39,-2534.78 314,-2511"/>
+</g>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.69,-2572.62C405.59,-2569.89 391.21,-2564.23 382,-2553 343.25,-2505.75 318.37,-1537.7 314.52,-1378.17"/>
+<polygon fill="#000000" stroke="#000000" points="318.02,-1378.01 314.28,-1368.1 311.02,-1378.18 318.02,-1378.01"/>
+</g>
+<!-- sourcefile~whm_util.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node13" class="node">
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500.5,-2376 427.5,-2376 427.5,-2352 500.5,-2352 500.5,-2376"/>
+<text text-anchor="middle" x="464" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.31,-2363.77C411.02,-2361.68 392.95,-2356.19 382,-2343 318.37,-2266.36 314.22,-1518.16 314,-1378.42"/>
+<polygon fill="#000000" stroke="#000000" points="317.5,-1378.1 313.99,-1368.1 310.5,-1378.11 317.5,-1378.1"/>
+</g>
+<!-- sourcefile~tides_getacch_pl.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node14" class="node">
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="519.5,-2334 408.5,-2334 408.5,-2310 519.5,-2310 519.5,-2334"/>
+<text text-anchor="middle" x="464" y="-2319.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~~fraggle_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.41,-2317.64C398.29,-2314.36 388.79,-2309.15 382,-2301 321.08,-2227.85 314.73,-1514.27 314.08,-1378.31"/>
+<polygon fill="#000000" stroke="#000000" points="317.58,-1378.23 314.03,-1368.24 310.58,-1378.26 317.58,-1378.23"/>
+</g>
+<!-- sourcefile~helio_kick.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node15" class="node">
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-2292 425.5,-2292 425.5,-2268 502.5,-2268 502.5,-2292"/>
+<text text-anchor="middle" x="464" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.27,-2279.45C409.54,-2277.16 392.53,-2271.6 382,-2259 323.77,-2189.33 315.26,-1510.05 314.15,-1378.13"/>
+<polygon fill="#000000" stroke="#000000" points="317.65,-1377.99 314.07,-1368.02 310.65,-1378.05 317.65,-1377.99"/>
+</g>
+<!-- sourcefile~symba_collision.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node16" class="node">
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="517,-2544 411,-2544 411,-2520 517,-2520 517,-2544"/>
+<text text-anchor="middle" x="464" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.74,-2538.22C379.02,-2539.02 339.81,-2534.26 314,-2511"/>
+</g>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.83,-2528.48C399.79,-2525.26 389.29,-2519.87 382,-2511 307.42,-2420.26 312.36,-1531.17 313.77,-1378.31"/>
+<polygon fill="#000000" stroke="#000000" points="317.27,-1378.28 313.86,-1368.25 310.27,-1378.21 317.27,-1378.28"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node17" class="node">
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="523,-2250 405,-2250 405,-2226 523,-2226 523,-2250"/>
+<text text-anchor="middle" x="464" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.74,-2232.3C396.03,-2229 387.98,-2224.12 382,-2217 326.52,-2150.86 315.83,-1506.92 314.24,-1378.29"/>
+<polygon fill="#000000" stroke="#000000" points="317.74,-1378.04 314.12,-1368.08 310.74,-1378.12 317.74,-1378.04"/>
+</g>
+<!-- sourcefile~whm_gr.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node18" class="node">
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-2208 430,-2208 430,-2184 498,-2184 498,-2208"/>
+<text text-anchor="middle" x="464" y="-2193.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~~fraggle_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.86,-2196C412.97,-2194.14 393.6,-2188.78 382,-2175 329.25,-2112.37 316.42,-1503.38 314.34,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="317.83,-1378.04 314.17,-1368.1 310.83,-1378.16 317.83,-1378.04"/>
+</g>
+<!-- sourcefile~whm_setup.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node19" class="node">
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-2166 421.5,-2166 421.5,-2142 506.5,-2142 506.5,-2166"/>
+<text text-anchor="middle" x="464" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.14,-2152.7C406.66,-2150.05 391.66,-2144.42 382,-2133 331.96,-2073.85 317.04,-1499.44 314.44,-1378.34"/>
+<polygon fill="#000000" stroke="#000000" points="317.94,-1378 314.23,-1368.07 310.94,-1378.14 317.94,-1378"/>
+</g>
+<!-- sourcefile~util_exit.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node20" class="node">
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497.5,-2124 430.5,-2124 430.5,-2100 497.5,-2100 497.5,-2124"/>
+<text text-anchor="middle" x="464" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.32,-2112C413.35,-2110.17 393.76,-2104.83 382,-2091 334.7,-2035.38 317.72,-1496.24 314.57,-1378.6"/>
+<polygon fill="#000000" stroke="#000000" points="318.06,-1378.18 314.3,-1368.28 311.06,-1378.37 318.06,-1378.18"/>
+</g>
+<!-- sourcefile~util_rescale.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node21" class="node">
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-2082 421.5,-2082 421.5,-2058 506.5,-2058 506.5,-2082"/>
+<text text-anchor="middle" x="464" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.21,-2068.65C406.74,-2065.99 391.72,-2060.37 382,-2049 337.37,-1996.81 318.4,-1491.42 314.69,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="318.18,-1378.02 314.37,-1368.14 311.19,-1378.24 318.18,-1378.02"/>
+</g>
+<!-- sourcefile~rmvs_kick.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node22" class="node">
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503,-2040 425,-2040 425,-2016 503,-2016 503,-2040"/>
+<text text-anchor="middle" x="464" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.6,-2027.18C409.14,-2024.79 392.52,-2019.22 382,-2007 340.08,-1958.28 319.14,-1487.22 314.84,-1378.37"/>
+<polygon fill="#000000" stroke="#000000" points="318.33,-1378.06 314.45,-1368.21 311.34,-1378.33 318.33,-1378.06"/>
+</g>
+<!-- sourcefile~helio_step.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node23" class="node">
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503.5,-1998 424.5,-1998 424.5,-1974 503.5,-1974 503.5,-1998"/>
+<text text-anchor="middle" x="464" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.23,-1985.08C408.89,-1982.65 392.47,-1977.08 382,-1965 342.75,-1919.72 319.92,-1482.48 315.01,-1378.23"/>
+<polygon fill="#000000" stroke="#000000" points="318.5,-1378.03 314.54,-1368.2 311.51,-1378.35 318.5,-1378.03"/>
+</g>
+<!-- sourcefile~symba_discard.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node24" class="node">
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="515.5,-2502 412.5,-2502 412.5,-2478 515.5,-2478 515.5,-2502"/>
+<text text-anchor="middle" x="464" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.46,-2500.95C372.18,-2509.05 321.35,-2517.62 314,-2511"/>
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.11,-2486.83C400.61,-2483.65 389.57,-2478.19 382,-2469 310.17,-2381.81 312.8,-1528.31 313.82,-1378.42"/>
+<polygon fill="#000000" stroke="#000000" points="317.32,-1378.19 313.89,-1368.16 310.32,-1378.13 317.32,-1378.19"/>
+</g>
+<!-- sourcefile~rmvs_util.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node25" class="node">
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500.5,-1956 427.5,-1956 427.5,-1932 500.5,-1932 500.5,-1956"/>
+<text text-anchor="middle" x="464" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.18,-1943.47C411.07,-1941.28 393.19,-1935.8 382,-1923 345.45,-1881.17 320.78,-1478.03 315.2,-1378.25"/>
+<polygon fill="#000000" stroke="#000000" points="318.69,-1377.9 314.64,-1368.11 311.7,-1378.28 318.69,-1377.9"/>
+</g>
+<!-- sourcefile~symba_setup.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node26" class="node">
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="511,-2460 417,-2460 417,-2436 511,-2436 511,-2460"/>
+<text text-anchor="middle" x="464" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge11" 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.79,-2457.43C405.2,-2460.49 392.96,-2464.32 382,-2469 349.33,-2482.95 340.39,-2534.78 314,-2511"/>
+</g>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.77,-2445.97C403.64,-2443.04 390.6,-2437.42 382,-2427 312.91,-2343.34 313.25,-1525.17 313.87,-1378.47"/>
+<polygon fill="#000000" stroke="#000000" points="317.38,-1378.07 313.92,-1368.05 310.38,-1378.03 317.38,-1378.07"/>
+</g>
+<!-- sourcefile~symba_util.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node27" class="node">
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505,-2418 423,-2418 423,-2394 505,-2394 505,-2418"/>
+<text text-anchor="middle" x="464" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.62,-2411.22C408.95,-2414.31 394.09,-2419.22 382,-2427 341.61,-2453 349.68,-2543.15 314,-2511"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312,-2511C224.35,-2432.01 197.9,-1531.34 194.03,-1378.1"/>
+<polygon fill="#000000" stroke="#000000" points="197.52,-1377.93 193.78,-1368.02 190.53,-1378.11 197.52,-1377.93"/>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M422.7,-2405.11C407.69,-2402.61 391.91,-2396.97 382,-2385 315.65,-2304.86 313.73,-1521.84 313.94,-1378.48"/>
+<polygon fill="#000000" stroke="#000000" points="317.44,-1378.27 313.96,-1368.27 310.44,-1378.26 317.44,-1378.27"/>
+</g>
+<!-- sourcefile~helio_gr.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node28" class="node">
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-1914 430,-1914 430,-1890 498,-1890 498,-1914"/>
+<text text-anchor="middle" x="464" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.7,-1901.73C412.98,-1899.77 393.82,-1894.4 382,-1881 314.79,-1804.83 312.95,-1468.78 313.7,-1378.43"/>
+<polygon fill="#000000" stroke="#000000" points="317.2,-1378.26 313.8,-1368.23 310.2,-1378.19 317.2,-1378.26"/>
+</g>
+<!-- sourcefile~whm_drift.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node29" class="node">
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-1872 425.5,-1872 425.5,-1848 502.5,-1848 502.5,-1872"/>
+<text text-anchor="middle" x="464" y="-1857.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~~fraggle_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.23,-1859.07C409.69,-1856.68 392.83,-1851.14 382,-1839 320.09,-1769.61 314.36,-1463.75 313.98,-1378.26"/>
+<polygon fill="#000000" stroke="#000000" points="317.48,-1378.12 313.96,-1368.12 310.48,-1378.13 317.48,-1378.12"/>
+</g>
+<!-- sourcefile~util_solve.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node30" class="node">
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501.5,-1830 426.5,-1830 426.5,-1806 501.5,-1806 501.5,-1830"/>
+<text text-anchor="middle" x="464" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.13,-1817.12C410.38,-1814.79 393.11,-1809.29 382,-1797 325.44,-1734.43 315.9,-1459.22 314.31,-1378.39"/>
+<polygon fill="#000000" stroke="#000000" points="317.81,-1378.26 314.14,-1368.32 310.81,-1378.38 317.81,-1378.26"/>
+</g>
+<!-- sourcefile~util_coord.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node31" class="node">
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-1788 425.5,-1788 425.5,-1764 502.5,-1764 502.5,-1788"/>
+<text text-anchor="middle" x="464" y="-1773.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~~fraggle_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.39,-1774.92C409.89,-1772.5 393.01,-1766.98 382,-1755 330.79,-1699.25 317.61,-1454.75 314.72,-1378.68"/>
+<polygon fill="#000000" stroke="#000000" points="318.21,-1378.21 314.36,-1368.34 311.21,-1378.46 318.21,-1378.21"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node32" class="node">
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504,-1746 424,-1746 424,-1722 504,-1722 504,-1746"/>
+<text text-anchor="middle" x="464" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.84,-1732.54C408.82,-1729.98 392.73,-1724.45 382,-1713 336.04,-1663.93 319.47,-1449.11 315.22,-1378.55"/>
+<polygon fill="#000000" stroke="#000000" points="318.69,-1377.94 314.62,-1368.16 311.7,-1378.34 318.69,-1377.94"/>
+</g>
+<!-- sourcefile~util_set.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node33" class="node">
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1704 432,-1704 432,-1680 496,-1680 496,-1704"/>
+<text text-anchor="middle" x="464" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.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="M431.76,-1691.52C414.81,-1689.58 394.78,-1684.31 382,-1671 341.25,-1628.54 321.55,-1443.15 315.83,-1378.41"/>
+<polygon fill="#000000" stroke="#000000" points="319.29,-1377.77 314.95,-1368.11 312.31,-1378.37 319.29,-1377.77"/>
+</g>
+<!-- sourcefile~util_get_energy_momentum.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node34" class="node">
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~fraggle_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="546,-1662 382,-1662 382,-1638 546,-1638 546,-1662"/>
+<text text-anchor="middle" x="464" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge46" 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="M393.75,-1637.93C389.46,-1635.46 385.48,-1632.51 382,-1629 346.4,-1593.06 323.89,-1436.53 316.59,-1378.1"/>
+<polygon fill="#000000" stroke="#000000" points="320.06,-1377.59 315.37,-1368.09 313.11,-1378.44 320.06,-1377.59"/>
+</g>
+<!-- sourcefile~obl.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node35" class="node">
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-1620 437,-1620 437,-1596 491,-1596 491,-1620"/>
+<text text-anchor="middle" x="464" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.8,-1607.65C419.14,-1606.03 396.51,-1601.04 382,-1587 322.89,-1529.79 314.47,-1424.05 313.74,-1378.18"/>
+<polygon fill="#000000" stroke="#000000" points="317.24,-1378.1 313.7,-1368.12 310.24,-1378.14 317.24,-1378.1"/>
+</g>
+<!-- sourcefile~helio_drift.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node36" class="node">
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-1578 425.5,-1578 425.5,-1554 502.5,-1554 502.5,-1578"/>
+<text text-anchor="middle" x="464" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.12,-1563.74C410.12,-1561.06 393.7,-1555.67 382,-1545 333.12,-1500.41 319.34,-1418.11 315.49,-1378.48"/>
+<polygon fill="#000000" stroke="#000000" points="318.95,-1377.96 314.62,-1368.29 311.98,-1378.55 318.95,-1377.96"/>
+</g>
+<!-- sourcefile~util_append.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node37" class="node">
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-1536 421,-1536 421,-1512 507,-1512 507,-1536"/>
+<text text-anchor="middle" x="464" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M420.59,-1520.21C407.07,-1517.23 392.82,-1512.03 382,-1503 342.99,-1470.44 325.17,-1410.61 318.07,-1378.22"/>
+<polygon fill="#000000" stroke="#000000" points="321.41,-1377.1 315.98,-1368 314.55,-1378.5 321.41,-1377.1"/>
+</g>
+<!-- sourcefile~util_peri.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node38" class="node">
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-1494 430,-1494 430,-1470 498,-1470 498,-1494"/>
+<text text-anchor="middle" x="464" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.88,-1479.01C414.2,-1476.27 395.9,-1471.03 382,-1461 352.56,-1439.77 332.58,-1401.51 322.25,-1377.5"/>
+<polygon fill="#000000" stroke="#000000" points="325.46,-1376.09 318.42,-1368.18 318.98,-1378.76 325.46,-1376.09"/>
+</g>
+<!-- sourcefile~netcdf.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node39" class="node">
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-1452 434,-1452 434,-1428 494,-1428 494,-1452"/>
+<text text-anchor="middle" x="464" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M433.97,-1436.05C417.93,-1433.01 398.06,-1427.78 382,-1419 361.93,-1408.03 343.19,-1389.82 330.49,-1375.8"/>
+<polygon fill="#000000" stroke="#000000" points="332.97,-1373.32 323.74,-1368.11 327.7,-1377.93 332.97,-1373.32"/>
+</g>
+<!-- sourcefile~tides_spin_step.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node40" class="node">
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="516.5,-1410 411.5,-1410 411.5,-1386 516.5,-1386 516.5,-1410"/>
+<text text-anchor="middle" x="464" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M414.93,-1385.93C404.07,-1383.09 392.62,-1380.02 382,-1377 373.45,-1374.57 364.34,-1371.85 355.65,-1369.19"/>
+<polygon fill="#000000" stroke="#000000" points="356.67,-1365.84 346.08,-1366.24 354.6,-1372.53 356.67,-1365.84"/>
+</g>
+<!-- sourcefile~setup.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node41" class="node">
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1368 435.5,-1368 435.5,-1344 492.5,-1344 492.5,-1368"/>
+<text text-anchor="middle" x="464" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.32,-1356C413.13,-1356 381.62,-1356 356.28,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="356.19,-1352.5 346.19,-1356 356.19,-1359.5 356.19,-1352.5"/>
+</g>
+<!-- sourcefile~symba_kick.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node42" class="node">
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-234 421,-234 421,-210 507,-210 507,-234"/>
+<text text-anchor="middle" x="464" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.84,-212.59C379.42,-203.89 321.37,-193.37 314,-201"/>
+</g>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.98,-223.16C406.48,-225.8 391.51,-231.45 382,-243 310.17,-330.19 312.8,-1183.69 313.82,-1333.58"/>
+<polygon fill="#000000" stroke="#000000" points="310.32,-1333.87 313.89,-1343.84 317.32,-1333.81 310.32,-1333.87"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node43" class="node">
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-1326 425.5,-1326 425.5,-1302 502.5,-1302 502.5,-1326"/>
+<text text-anchor="middle" x="464" y="-1311.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~~fraggle_classes.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="M425.4,-1323.37C411.7,-1326.88 396.11,-1330.99 382,-1335 373.45,-1337.43 364.34,-1340.15 355.65,-1342.81"/>
+<polygon fill="#000000" stroke="#000000" points="354.6,-1339.47 346.08,-1345.76 356.67,-1346.16 354.6,-1339.47"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node44" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-1284 430,-1284 430,-1260 498,-1260 498,-1284"/>
+<text text-anchor="middle" x="464" y="-1269.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~~fraggle_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.69,-1276.8C414.49,-1279.93 396.66,-1284.98 382,-1293 361.93,-1303.97 343.19,-1322.18 330.49,-1336.2"/>
+<polygon fill="#000000" stroke="#000000" points="327.7,-1334.07 323.74,-1343.89 332.97,-1338.68 327.7,-1334.07"/>
+</g>
+<!-- sourcefile~rmvs_setup.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node45" class="node">
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-1242 421,-1242 421,-1218 507,-1218 507,-1242"/>
+<text text-anchor="middle" x="464" y="-1227.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~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M420.88,-1234.79C407.53,-1237.85 393.31,-1242.84 382,-1251 352.56,-1272.23 332.58,-1310.49 322.25,-1334.5"/>
+<polygon fill="#000000" stroke="#000000" points="318.98,-1333.24 318.42,-1343.82 325.46,-1335.91 318.98,-1333.24"/>
+</g>
+<!-- sourcefile~util_valid.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node46" class="node">
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-1200 428,-1200 428,-1176 500,-1176 500,-1200"/>
+<text text-anchor="middle" x="464" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.62,-1190.42C412.17,-1193.06 394.71,-1198.39 382,-1209 342.99,-1241.56 325.17,-1301.39 318.07,-1333.78"/>
+<polygon fill="#000000" stroke="#000000" points="314.55,-1333.5 315.98,-1344 321.41,-1334.9 314.55,-1333.5"/>
+</g>
+<!-- sourcefile~orbel.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node47" class="node">
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1158 436.5,-1158 436.5,-1134 491.5,-1134 491.5,-1158"/>
+<text text-anchor="middle" x="464" y="-1143.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~~fraggle_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.3,-1146.7C418.87,-1148.52 396.7,-1153.59 382,-1167 333.12,-1211.59 319.34,-1293.89 315.49,-1333.52"/>
+<polygon fill="#000000" stroke="#000000" points="311.98,-1333.45 314.62,-1343.71 318.95,-1334.04 311.98,-1333.45"/>
+</g>
+<!-- sourcefile~util_copy.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node48" class="node">
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="499.5,-1116 428.5,-1116 428.5,-1092 499.5,-1092 499.5,-1116"/>
+<text text-anchor="middle" x="464" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428.09,-1105.39C412.18,-1107.78 394.21,-1113.18 382,-1125 322.89,-1182.21 314.47,-1287.95 313.74,-1333.82"/>
+<polygon fill="#000000" stroke="#000000" points="310.24,-1333.86 313.7,-1343.88 317.24,-1333.9 310.24,-1333.86"/>
+</g>
+<!-- sourcefile~kick.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node49" class="node">
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-1074 437,-1074 437,-1050 491,-1050 491,-1074"/>
+<text text-anchor="middle" x="464" y="-1059.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~~fraggle_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.99,-1062.13C419.2,-1063.62 396.31,-1068.55 382,-1083 346.4,-1118.94 323.89,-1275.47 316.59,-1333.9"/>
+<polygon fill="#000000" stroke="#000000" points="313.11,-1333.56 315.37,-1343.91 320.06,-1334.41 313.11,-1333.56"/>
+</g>
+<!-- sourcefile~whm_step.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node50" class="node">
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503.5,-1032 424.5,-1032 424.5,-1008 503.5,-1008 503.5,-1032"/>
+<text text-anchor="middle" x="464" y="-1017.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~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M424.39,-1021.52C409.28,-1024.07 392.96,-1029.58 382,-1041 341.25,-1083.46 321.55,-1268.85 315.83,-1333.59"/>
+<polygon fill="#000000" stroke="#000000" points="312.31,-1333.63 314.95,-1343.89 319.29,-1334.23 312.31,-1333.63"/>
+</g>
+<!-- sourcefile~drift.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node51" class="node">
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-990 437,-990 437,-966 491,-966 491,-990"/>
+<text text-anchor="middle" x="464" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.74,-977.88C418.82,-979.27 395.9,-984.16 382,-999 336.04,-1048.07 319.47,-1262.89 315.22,-1333.45"/>
+<polygon fill="#000000" stroke="#000000" points="311.7,-1333.66 314.62,-1343.84 318.69,-1334.06 311.7,-1333.66"/>
+</g>
+<!-- sourcefile~discard.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node52" class="node">
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-948 431.5,-948 431.5,-924 496.5,-924 496.5,-948"/>
+<text text-anchor="middle" x="464" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M431.13,-936.32C414.2,-938.22 394.38,-943.52 382,-957 330.79,-1012.75 317.61,-1257.25 314.72,-1333.32"/>
+<polygon fill="#000000" stroke="#000000" points="311.21,-1333.54 314.36,-1343.66 318.21,-1333.79 311.21,-1333.54"/>
+</g>
+<!-- sourcefile~helio_setup.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node53" class="node">
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-906 421.5,-906 421.5,-882 506.5,-882 506.5,-906"/>
+<text text-anchor="middle" x="464" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.12,-895.72C406.81,-898.44 391.94,-904.01 382,-915 325.44,-977.57 315.9,-1252.78 314.31,-1333.61"/>
+<polygon fill="#000000" stroke="#000000" points="310.81,-1333.62 314.14,-1343.68 317.81,-1333.74 310.81,-1333.62"/>
+</g>
+<!-- sourcefile~util_spill.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node54" class="node">
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-864 430,-864 430,-840 498,-840 498,-864"/>
+<text text-anchor="middle" x="464" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M429.76,-852.32C413.06,-854.3 393.9,-859.67 382,-873 320.09,-942.39 314.36,-1248.25 313.98,-1333.74"/>
+<polygon fill="#000000" stroke="#000000" points="310.48,-1333.87 313.96,-1343.88 317.48,-1333.88 310.48,-1333.87"/>
+</g>
+<!-- sourcefile~orbel.f90~2 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node55" class="node">
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-822 436.5,-822 436.5,-798 491.5,-798 491.5,-822"/>
+<text text-anchor="middle" x="464" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.47,-809.63C418.42,-810.9 395.46,-815.75 382,-831 314.79,-907.17 312.95,-1243.22 313.7,-1333.57"/>
+<polygon fill="#000000" stroke="#000000" points="310.2,-1333.81 313.8,-1343.77 317.2,-1333.74 310.2,-1333.81"/>
+</g>
+<!-- sourcefile~operator_cross.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node56" class="node">
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="515.5,-780 412.5,-780 412.5,-756 515.5,-756 515.5,-780"/>
+<text text-anchor="middle" x="464" y="-765.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.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.47,-771.49C400.97,-774.65 389.84,-780.03 382,-789 345.45,-830.83 320.78,-1233.97 315.2,-1333.75"/>
+<polygon fill="#000000" stroke="#000000" points="311.7,-1333.72 314.64,-1343.89 318.69,-1334.1 311.7,-1333.72"/>
+</g>
+<!-- sourcefile~symba_drift.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node57" class="node">
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-192 421,-192 421,-168 507,-168 507,-192"/>
+<text text-anchor="middle" x="464" y="-177.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~~fraggle_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.85,-173.27C387.09,-170.49 341.05,-173.01 314,-201"/>
+</g>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.97,-181.15C406.47,-183.78 391.5,-189.44 382,-201 307.42,-291.74 312.36,-1180.83 313.77,-1333.69"/>
+<polygon fill="#000000" stroke="#000000" points="310.27,-1333.79 313.86,-1343.75 317.27,-1333.72 310.27,-1333.79"/>
+</g>
+<!-- sourcefile~io.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node58" class="node">
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-738 437,-738 437,-714 491,-714 491,-738"/>
+<text text-anchor="middle" x="464" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_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="M436.77,-725.54C418.63,-726.72 395.42,-731.52 382,-747 342.75,-792.28 319.92,-1229.52 315.01,-1333.77"/>
+<polygon fill="#000000" stroke="#000000" points="311.51,-1333.65 314.54,-1343.8 318.5,-1333.97 311.51,-1333.65"/>
+</g>
+<!-- sourcefile~whm_coord.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node59" class="node">
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-696 421,-696 421,-672 507,-672 507,-696"/>
+<text text-anchor="middle" x="464" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.82,-685.46C406.49,-688.15 391.67,-693.77 382,-705 340.08,-753.72 319.14,-1224.78 314.84,-1333.63"/>
+<polygon fill="#000000" stroke="#000000" points="311.34,-1333.67 314.45,-1343.79 318.33,-1333.94 311.34,-1333.67"/>
+</g>
+<!-- sourcefile~user_getacch.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node60" class="node">
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="511.5,-654 416.5,-654 416.5,-630 511.5,-630 511.5,-654"/>
+<text text-anchor="middle" x="464" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.14,-644.4C403.31,-647.39 390.59,-652.95 382,-663 337.37,-715.19 318.4,-1220.58 314.69,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="311.19,-1333.76 314.37,-1343.86 318.18,-1333.98 311.19,-1333.76"/>
+</g>
+<!-- sourcefile~rmvs_encounter_check.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~fraggle_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="535,-612 393,-612 393,-588 535,-588 535,-612"/>
+<text text-anchor="middle" x="464" y="-597.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~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M392.76,-611.73C388.76,-614.29 385.11,-617.35 382,-621 334.7,-676.62 317.72,-1215.76 314.57,-1333.4"/>
+<polygon fill="#000000" stroke="#000000" points="311.06,-1333.63 314.3,-1343.72 318.06,-1333.82 311.06,-1333.63"/>
+</g>
+<!-- sourcefile~util_fill.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-570 434,-570 434,-546 494,-546 494,-570"/>
+<text text-anchor="middle" x="464" y="-555.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.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M433.91,-557.64C416.18,-559.08 394.57,-564.14 382,-579 331.96,-638.15 317.04,-1212.56 314.44,-1333.66"/>
+<polygon fill="#000000" stroke="#000000" points="310.94,-1333.86 314.23,-1343.93 317.94,-1334 310.94,-1333.86"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="513,-528 415,-528 415,-504 513,-504 513,-528"/>
+<text text-anchor="middle" x="464" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.77,-518.63C402.38,-521.68 390.24,-527.22 382,-537 329.25,-599.63 316.42,-1208.62 314.34,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="310.83,-1333.84 314.17,-1343.9 317.83,-1333.96 310.83,-1333.84"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="511,-486 417,-486 417,-462 511,-462 511,-486"/>
+<text text-anchor="middle" x="464" y="-471.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~~fraggle_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.86,-476.11C403.75,-479.05 390.68,-484.65 382,-495 326.52,-561.14 315.83,-1205.08 314.24,-1333.71"/>
+<polygon fill="#000000" stroke="#000000" points="310.74,-1333.88 314.12,-1343.92 317.74,-1333.96 310.74,-1333.88"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502,-444 426,-444 426,-420 502,-420 502,-444"/>
+<text text-anchor="middle" x="464" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.68,-432.49C409.84,-434.74 392.62,-440.29 382,-453 323.77,-522.67 315.26,-1201.95 314.15,-1333.87"/>
+<polygon fill="#000000" stroke="#000000" points="310.65,-1333.95 314.07,-1343.98 317.65,-1334.01 310.65,-1333.95"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503.5,-402 424.5,-402 424.5,-378 503.5,-378 503.5,-402"/>
+<text text-anchor="middle" x="464" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.41,-390.65C408.92,-393.02 392.32,-398.61 382,-411 321.08,-484.15 314.73,-1197.73 314.08,-1333.69"/>
+<polygon fill="#000000" stroke="#000000" points="310.58,-1333.74 314.03,-1343.76 317.58,-1333.77 310.58,-1333.74"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502,-150 426,-150 426,-126 502,-126 502,-150"/>
+<text text-anchor="middle" x="464" y="-135.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~~fraggle_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.85,-145.06C392.49,-153.2 344.25,-169.7 314,-201"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312,-201C230.09,-285.76 198.94,-1179.8 194.17,-1333.55"/>
+<polygon fill="#000000" stroke="#000000" points="190.66,-1333.58 193.86,-1343.68 197.66,-1333.79 190.66,-1333.58"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.99,-138.34C410.02,-140.53 392.59,-146.08 382,-159 343.25,-206.25 318.37,-1174.3 314.52,-1333.83"/>
+<polygon fill="#000000" stroke="#000000" points="311.02,-1333.82 314.28,-1343.9 318.02,-1333.99 311.02,-1333.82"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-360 437,-360 437,-336 491,-336 491,-360"/>
+<text text-anchor="middle" x="464" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.96,-347.34C418.66,-348.4 395.18,-353.13 382,-369 318.37,-445.64 314.22,-1193.84 314,-1333.58"/>
+<polygon fill="#000000" stroke="#000000" points="310.5,-1333.89 313.99,-1343.9 317.5,-1333.9 310.5,-1333.89"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-318 430,-318 430,-294 498,-294 498,-318"/>
+<text text-anchor="middle" x="464" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.77,-305.92C412.85,-307.76 393.49,-313.12 382,-327 315.65,-407.14 313.73,-1190.16 313.94,-1333.52"/>
+<polygon fill="#000000" stroke="#000000" points="310.44,-1333.74 313.96,-1343.73 317.44,-1333.73 310.44,-1333.74"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~fraggle_classes.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-276 421.5,-276 421.5,-252 506.5,-252 506.5,-276"/>
+<text text-anchor="middle" x="464" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_classes.f90~~AfferentGraph_edge86" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.42,-265.1C406.79,-267.7 391.62,-273.35 382,-285 312.91,-368.66 313.25,-1186.83 313.87,-1333.53"/>
+<polygon fill="#000000" stroke="#000000" points="310.38,-1333.97 313.92,-1343.95 317.38,-1333.93 310.38,-1333.97"/>
+</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="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="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/fraggle_classes.html">fraggle_classes</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/fraggle_classes.f90.html#src">fraggle_classes.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">module </span><span class="n">fraggle_classes</span>
+<a name="ln-2"></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-3"></a>   <span class="c">!!</span>
+<a name="ln-4"></a>   <span class="c">!! Definition of classes and methods specific to Fraggel: The Fragment Generation Model</span>
+<a name="ln-5"></a>   <span class="k">use </span><span class="n">swiftest_globals</span>
+<a name="ln-6"></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><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_cb</span><span class="p">,</span> <span class="n">swiftest_pl</span>
+<a name="ln-7"></a>   <span class="k">implicit none</span>
+<a name="ln-8"></a><span class="k">   public</span>
+<a name="ln-9"></a>
+<a name="ln-10"></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">parameter</span> <span class="kd">::</span> <span class="n">FRAGGLE_NMASS_DIST</span> <span class="o">=</span> <span class="mi">3</span>             <span class="c">!! Number of mass bins returned by the regime calculation (largest fragment, second largest, and remainder)  </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="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">FRAGGLE_LOG_OUT</span>    <span class="o">=</span> <span class="s2">&quot;fraggle.log&quot;</span> <span class="c">!! Name of log file for Fraggle diagnostic information</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">parameter</span> <span class="kd">::</span> <span class="n">FRAGGLE_LOG_UNIT</span>   <span class="o">=</span> <span class="mi">76</span>            <span class="c">!! Unit number for Fraggle log file</span>
+<a name="ln-13"></a>
+<a name="ln-14"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-15"></a>   <span class="c">!                                    fraggle_colliders class definitions and method interfaces</span>
+<a name="ln-16"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-17"></a>   <span class="c">!&gt; Class definition for the variables that describe the bodies involved in the collision</span>
+<a name="ln-18"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">fraggle_colliders</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="kd">::</span> <span class="n">ncoll</span>   <span class="c">!! Number of bodies involved in the collision</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="k">dimension</span><span class="p">(:),</span>      <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">idx</span>     <span class="c">!! Index of bodies involved in the collision</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">NDIM</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">xb</span>      <span class="c">!! Two-body equivalent position vectors of the collider bodies prior to collision</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">NDIM</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">vb</span>      <span class="c">!! Two-body equivalent velocity vectors of the collider bodies prior to collision</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="mi">2</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">rot</span>     <span class="c">!! Two-body equivalent principal axes moments of inertia the collider bodies prior to collision</span>
+<a name="ln-24"></a>      <span class="kt">real</span><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">L_spin</span>  <span class="c">!! Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision</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="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">L_orbit</span> <span class="c">!! Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision</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="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">Ip</span>      <span class="c">!! Two-body equivalent principal axes moments of inertia the collider bodies prior to collision</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="mi">2</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">mass</span>    <span class="c">!! Two-body equivalent mass of the collider bodies prior to the collision</span>
+<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">radius</span>  <span class="c">!! Two-body equivalent radii of the collider bodies prior to the collision</span>
+<a name="ln-29"></a>   <span class="k">contains</span>
+<a name="ln-30"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">regime</span> <span class="o">=&gt;</span> <span class="n">fraggle_regime_colliders</span> <span class="c">!! Determine which fragmentation regime the set of colliders will be</span>
+<a name="ln-31"></a>   <span class="k">end type </span><span class="n">fraggle_colliders</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-34"></a>   <span class="c">!                                    fraggle_fragments class definitions and method interfaces</span>
+<a name="ln-35"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-36"></a>   <span class="c">!&gt; Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates</span>
+<a name="ln-37"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">fraggle_fragments</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">mtot</span>      <span class="c">!! Total mass of fragments       </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="kd">::</span> <span class="n">Qloss</span>     <span class="c">!! Energy lost during the collision</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">FRAGGLE_NMASS_DIST</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_dist</span> <span class="c">!! Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder)    </span>
+<a name="ln-41"></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">regime</span>    <span class="c">!! Collresolve regime code for this collision</span>
+<a name="ln-42"></a>
+<a name="ln-43"></a>      <span class="c">! Values in a coordinate frame centered on the collider barycenter and collisional system unit vectors (these are used internally by the fragment generation subroutine)</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="n">NDIM</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">xbcom</span>       <span class="c">!! Center of mass position vector of the collider system in system barycentric coordinates</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="n">NDIM</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">vbcom</span>       <span class="c">!! Velocity vector of the center of mass of the collider system in system barycentric coordinates</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="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">x_coll_unit</span> <span class="c">!! x-direction unit vector of collisional system</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="n">NDIM</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">y_coll_unit</span> <span class="c">!! y-direction unit vector of collisional system</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="n">NDIM</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">z_coll_unit</span> <span class="c">!! z-direction unit vector of collisional system</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="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">x_coll</span>      <span class="c">!! Array of fragment position vectors in the collisional coordinate frame</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="kd">::</span> <span class="n">v_coll</span>      <span class="c">!! Array of fragment velocity vectors in the collisional coordinate frame</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="kd">::</span> <span class="n">v_r_unit</span>    <span class="c">!! Array of radial direction unit vectors of individual fragments in the collisional coordinate frame</span>
+<a name="ln-52"></a>      <span class="kt">real</span><span 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_unit</span>    <span class="c">!! Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame</span>
+<a name="ln-53"></a>      <span class="kt">real</span><span 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_n_unit</span>    <span class="c">!! Array of normal direction unit vectors of individual fragments in the collisional coordinate frame</span>
+<a name="ln-54"></a>      <span class="kt">real</span><span 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">rmag</span>        <span class="c">!! Array of radial distance magnitudes of individual fragments in the collisional coordinate frame </span>
+<a name="ln-55"></a>      <span class="kt">real</span><span 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">rotmag</span>      <span class="c">!! Array of rotation magnitudes of individual fragments </span>
+<a name="ln-56"></a>      <span class="kt">real</span><span 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_mag</span>     <span class="c">!! Array of radial direction velocity magnitudes of individual fragments </span>
+<a name="ln-57"></a>      <span class="kt">real</span><span 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</span>     <span class="c">!! Array of tangential direction velocity magnitudes of individual fragments</span>
+<a name="ln-58"></a>
+<a name="ln-59"></a>      <span class="c">! Energy and momentum book-keeping variables that characterize the whole system of fragments</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">ke_orbit</span>  <span class="c">!! Current orbital kinetic energy of the system of fragments in the collisional frame</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">ke_spin</span>   <span class="c">!! Current spin kinetic energy of the system of fragments in the collisional frame</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">L_orbit</span>   <span class="c">!! Current orbital angular momentum of the system of fragments in the collisional frame  </span>
+<a name="ln-63"></a>      <span class="kt">real</span><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</span>    <span class="c">!! Current spin angular momentum of the system of fragments in the collisional frame</span>
+<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="kd">::</span> <span class="n">ke_budget</span> <span class="c">!! Total kinetic energy budget for the system of fragmens in the collisional frame</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">L_budget</span>  <span class="c">!! Total angular momentum budget for the system of fragmens in the collisional frame</span>
+<a name="ln-66"></a>
+<a name="ln-67"></a>      <span class="c">! For the following variables, &quot;before&quot; refers to the *entire* n-body system in its pre-collisional state and &quot;after&quot; refers to the system in its post-collisional state</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">Lorbit_before</span><span class="p">,</span> <span class="n">Lorbit_after</span>     <span class="c">!! Before/after orbital angular momentum </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="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lspin_before</span><span class="p">,</span> <span class="n">Lspin_after</span>       <span class="c">!! Before/after spin angular momentum </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="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ltot_before</span><span class="p">,</span> <span class="n">Ltot_after</span>         <span class="c">!! Before/after total system angular momentum </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">ke_orbit_before</span><span class="p">,</span> <span class="n">ke_orbit_after</span> <span class="c">!! Before/after orbital kinetic energy</span>
+<a name="ln-72"></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_before</span><span class="p">,</span> <span class="n">ke_spin_after</span>   <span class="c">!! Before/after spin kinetic energy</span>
+<a name="ln-73"></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_before</span><span class="p">,</span> <span class="n">pe_after</span>             <span class="c">!! Before/after potential energy</span>
+<a name="ln-74"></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">Etot_before</span><span class="p">,</span> <span class="n">Etot_after</span>         <span class="c">!! Before/after total system energy</span>
+<a name="ln-75"></a>
+<a name="ln-76"></a>      <span class="c">! Scale factors used to scale dimensioned quantities to a more &quot;natural&quot; system where important quantities (like kinetic energy, momentum) are of order ~1</span>
+<a name="ln-77"></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">dscale</span> <span class="c">!! Distance dimension scale factor</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="kd">::</span> <span class="n">mscale</span> <span class="c">!! Mass scale factor</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="kd">::</span> <span class="n">tscale</span> <span class="c">!! Time scale factor</span>
+<a name="ln-80"></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> <span class="c">!! Velocity scale factor (a convenience unit that is derived from dscale and tscale)</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="kd">::</span> <span class="n">Escale</span> <span class="c">!! Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale)</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="kd">::</span> <span class="n">Lscale</span> <span class="c">!! Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale)</span>
+<a name="ln-83"></a>   <span class="k">contains</span>
+<a name="ln-84"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">generate_fragments</span>      <span class="o">=&gt;</span> <span class="n">fraggle_generate_fragments</span>         <span class="c">!! Generates a system of fragments in barycentric coordinates that conserves energy and momentum.</span>
+<a name="ln-85"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>                   <span class="o">=&gt;</span> <span class="n">fraggle_placeholder_accel</span>          <span class="c">!! Placeholder subroutine to fulfill requirement for an accel method</span>
+<a name="ln-86"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>                    <span class="o">=&gt;</span> <span class="n">fraggle_placeholder_kick</span>           <span class="c">!! Placeholder subroutine to fulfill requirement for a kick method</span>
+<a name="ln-87"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>                    <span class="o">=&gt;</span> <span class="n">fraggle_placeholder_step</span>           <span class="c">!! Placeholder subroutine to fulfill requirement for a step method</span>
+<a name="ln-88"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_budgets</span>             <span class="o">=&gt;</span> <span class="n">fraggle_set_budgets_fragments</span>      <span class="c">!! Sets the energy and momentum budgets of the fragments based on the collider value</span>
+<a name="ln-89"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_coordinate_system</span>   <span class="o">=&gt;</span> <span class="n">fraggle_set_coordinate_system</span>      <span class="c">!! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. </span>
+<a name="ln-90"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_mass_dist</span>           <span class="o">=&gt;</span> <span class="n">fraggle_set_mass_dist_fragments</span>    <span class="c">!! Sets the distribution of mass among the fragments depending on the regime type</span>
+<a name="ln-91"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_natural_scale</span>       <span class="o">=&gt;</span> <span class="n">fraggle_set_natural_scale_factors</span>  <span class="c">!! Scales dimenional quantities to ~O(1) with respect to the collisional system.  </span>
+<a name="ln-92"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_original_scale</span>      <span class="o">=&gt;</span> <span class="n">fraggle_set_original_scale_factors</span> <span class="c">!! Restores dimenional quantities back to the original system units</span>
+<a name="ln-93"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>                   <span class="o">=&gt;</span> <span class="n">fraggle_setup_fragments</span>            <span class="c">!! Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.</span>
+<a name="ln-94"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">reset</span>                   <span class="o">=&gt;</span> <span class="n">fraggle_setup_reset_fragments</span>      <span class="c">!! Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)</span>
+<a name="ln-95"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_ang_mtm</span>             <span class="o">=&gt;</span> <span class="n">fraggle_util_ang_mtm</span>               <span class="c">!! Calcualtes the current angular momentum of the fragments</span>
+<a name="ln-96"></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">fraggle_util_get_energy_momentum</span>   <span class="c">!! Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)</span>
+<a name="ln-97"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">restructure</span>             <span class="o">=&gt;</span> <span class="n">fraggle_util_restructure</span>           <span class="c">!! Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints</span>
+<a name="ln-98"></a>   <span class="k">end type </span><span class="n">fraggle_fragments</span>
+<a name="ln-99"></a>
+<a name="ln-100"></a>   <span class="k">interface</span>
+<a name="ln-101"></a><span class="k">      module subroutine </span><span class="n">fraggle_generate_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">lfailure</span><span class="p">)</span>
+<a name="ln-102"></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-103"></a>         <span class="k">implicit none</span>
+<a name="ln-104"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object </span>
+<a name="ln-105"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object containing the two-body equivalent values of the colliding bodies </span>
+<a name="ln-106"></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-107"></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-108"></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-109"></a>      <span class="k">end subroutine </span><span class="n">fraggle_generate_fragments</span>
+<a name="ln-110"></a>
+<a name="ln-111"></a>      <span class="k">module subroutine </span><span class="n">fraggle_io_log_generate</span><span class="p">(</span><span class="n">frag</span><span class="p">)</span>
+<a name="ln-112"></a>         <span class="k">implicit none</span>
+<a name="ln-113"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>
+<a name="ln-114"></a>      <span class="k">end subroutine </span><span class="n">fraggle_io_log_generate</span>
+<a name="ln-115"></a>
+<a name="ln-116"></a>      <span class="k">module subroutine </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-117"></a>         <span class="k">implicit none</span>
+<a name="ln-118"></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">message</span>
+<a name="ln-119"></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">errmsg</span>
+<a name="ln-120"></a>      <span class="k">end subroutine </span><span class="n">fraggle_io_log_one_message</span>
+<a name="ln-121"></a>
+<a name="ln-122"></a>      <span class="k">module subroutine </span><span class="n">fraggle_io_log_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-123"></a>         <span class="k">implicit none</span>
+<a name="ln-124"></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>    <span class="c">!! Swiftest massive body object (only the new bodies generated in a collision)</span>
+<a name="ln-125"></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 swiftest run configuration parameters</span>
+<a name="ln-126"></a>      <span class="k">end subroutine </span><span class="n">fraggle_io_log_pl</span>
+<a name="ln-127"></a>
+<a name="ln-128"></a>      <span class="k">module subroutine </span><span class="n">fraggle_io_log_regime</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-129"></a>         <span class="k">implicit none</span>
+<a name="ln-130"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span>
+<a name="ln-131"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>
+<a name="ln-132"></a>      <span class="k">end subroutine </span><span class="n">fraggle_io_log_regime</span>
+<a name="ln-133"></a>
+<a name="ln-134"></a>      <span class="k">module subroutine </span><span class="n">fraggle_io_log_start</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-135"></a>         <span class="k">implicit none</span>
+<a name="ln-136"></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>
+<a name="ln-137"></a>      <span class="k">end subroutine </span><span class="n">fraggle_io_log_start</span>
+<a name="ln-138"></a>
+<a name="ln-139"></a>      <span class="c">!&gt; The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</span>
+<a name="ln-140"></a>      <span class="k">module subroutine </span><span class="n">fraggle_placeholder_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-141"></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-142"></a>         <span class="k">implicit none</span>
+<a name="ln-143"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object </span>
+<a name="ln-144"></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-145"></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-146"></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-147"></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-148"></a>      <span class="k">end subroutine </span><span class="n">fraggle_placeholder_accel</span>
+<a name="ln-149"></a>
+<a name="ln-150"></a>      <span class="k">module subroutine </span><span class="n">fraggle_placeholder_kick</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-151"></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-152"></a>         <span class="k">implicit none</span>
+<a name="ln-153"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-154"></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-155"></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-156"></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-157"></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-158"></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-159"></a>      <span class="k">end subroutine </span><span class="n">fraggle_placeholder_kick</span>
+<a name="ln-160"></a>
+<a name="ln-161"></a>      <span class="k">module subroutine </span><span class="n">fraggle_placeholder_step</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-162"></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-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">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span 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 particle object</span>
+<a name="ln-165"></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 nboody system</span>
+<a name="ln-166"></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-167"></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-168"></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">!! Stepsiz</span>
+<a name="ln-169"></a>      <span class="k">end subroutine </span><span class="n">fraggle_placeholder_step</span>
+<a name="ln-170"></a>
+<a name="ln-171"></a>      <span class="k">module subroutine </span><span class="n">fraggle_regime_colliders</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">frag</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">implicit none </span>
+<a name="ln-173"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Fraggle colliders object</span>
+<a name="ln-174"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>   <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-175"></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="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-176"></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 Swiftest run configuration parameters</span>
+<a name="ln-177"></a>      <span class="k">end subroutine </span><span class="n">fraggle_regime_colliders</span>
+<a name="ln-178"></a>
+<a name="ln-179"></a>      <span class="k">module subroutine </span><span class="n">fraggle_set_budgets_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span>
+<a name="ln-180"></a>         <span class="k">implicit none</span>
+<a name="ln-181"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-182"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-183"></a>      <span class="k">end subroutine  </span><span class="n">fraggle_set_budgets_fragments</span>
+<a name="ln-184"></a>
+<a name="ln-185"></a>      <span class="k">module subroutine </span><span class="n">fraggle_set_coordinate_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span>
+<a name="ln-186"></a>         <span class="k">implicit none</span>
+<a name="ln-187"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-188"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-189"></a>      <span class="k">end subroutine </span><span class="n">fraggle_set_coordinate_system</span>
+<a name="ln-190"></a>
+<a name="ln-191"></a>      <span class="k">module subroutine </span><span class="n">fraggle_set_mass_dist_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-192"></a>         <span class="k">implicit none</span>
+<a name="ln-193"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-194"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-195"></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 Swiftest run configuration parameters</span>
+<a name="ln-196"></a>      <span class="k">end subroutine </span><span class="n">fraggle_set_mass_dist_fragments</span>
+<a name="ln-197"></a>
+<a name="ln-198"></a>      <span class="k">module subroutine </span><span class="n">fraggle_set_natural_scale_factors</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span>
+<a name="ln-199"></a>         <span class="k">implicit none</span>
+<a name="ln-200"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-201"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-202"></a>      <span class="k">end subroutine </span><span class="n">fraggle_set_natural_scale_factors</span>
+<a name="ln-203"></a>
+<a name="ln-204"></a>      <span class="k">module subroutine </span><span class="n">fraggle_set_original_scale_factors</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span>
+<a name="ln-205"></a>         <span class="k">implicit none</span>
+<a name="ln-206"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-207"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-208"></a>      <span class="k">end subroutine </span><span class="n">fraggle_set_original_scale_factors</span>
+<a name="ln-209"></a>
+<a name="ln-210"></a>      <span class="k">module subroutine </span><span class="n">fraggle_setup_fragments</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-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">fraggle_fragments</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Fraggle fragment system object</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">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 fragments</span>
+<a name="ln-214"></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 swiftest run configuration parameters</span>
+<a name="ln-215"></a>      <span class="k">end subroutine </span><span class="n">fraggle_setup_fragments</span>
+<a name="ln-216"></a>
+<a name="ln-217"></a>      <span class="k">module subroutine </span><span class="n">fraggle_setup_reset_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-218"></a>         <span class="k">implicit none</span>
+<a name="ln-219"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">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-220"></a>      <span class="k">end subroutine </span><span class="n">fraggle_setup_reset_fragments</span>
+<a name="ln-221"></a>
+<a name="ln-222"></a>      <span class="k">module subroutine </span><span class="n">fraggle_util_add_fragments_to_system</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</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-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">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-226"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-227"></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-228"></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 swiftest run configuration parameters</span>
+<a name="ln-229"></a>      <span class="k">end subroutine </span><span class="n">fraggle_util_add_fragments_to_system</span>
+<a name="ln-230"></a>
+<a name="ln-231"></a>      <span class="k">module subroutine </span><span class="n">fraggle_util_ang_mtm</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> 
+<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">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-234"></a>      <span class="k">end subroutine </span><span class="n">fraggle_util_ang_mtm</span>
+<a name="ln-235"></a>
+<a name="ln-236"></a>      <span class="k">module subroutine </span><span class="n">fraggle_util_construct_temporary_system</span><span class="p">(</span><span class="n">frag</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">tmpsys</span><span class="p">,</span> <span class="n">tmpparam</span><span class="p">)</span>
+<a name="ln-237"></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-238"></a>         <span class="k">implicit none</span>
+<a name="ln-239"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">frag</span>     <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-240"></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="nb">system</span>   <span class="c">!! Original swiftest nbody system object</span>
+<a name="ln-241"></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 swiftest run configuration parameters</span>
+<a name="ln-242"></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">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tmpsys</span>   <span class="c">!! Output temporary swiftest nbody system object</span>
+<a name="ln-243"></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="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">tmpparam</span> <span class="c">!! Output temporary configuration run parameters</span>
+<a name="ln-244"></a>      <span class="k">end subroutine </span><span class="n">fraggle_util_construct_temporary_system</span>
+<a name="ln-245"></a>
+<a name="ln-246"></a>      <span class="k">module subroutine </span><span class="n">fraggle_util_get_energy_momentum</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">lbefore</span><span class="p">)</span>
+<a name="ln-247"></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-248"></a>         <span class="k">implicit none</span>
+<a name="ln-249"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-250"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-251"></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-252"></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 swiftest run configuration parameters</span>
+<a name="ln-253"></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">lbefore</span>   <span class="c">!! Flag indicating that this the &quot;before&quot; state of the system, with colliders included and fragments excluded or vice versa</span>
+<a name="ln-254"></a>      <span class="k">end subroutine </span><span class="n">fraggle_util_get_energy_momentum</span>
+<a name="ln-255"></a>
+<a name="ln-256"></a>      <span class="k">module subroutine </span><span class="n">fraggle_util_restructure</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">try</span><span class="p">,</span> <span class="n">f_spin</span><span class="p">,</span> <span class="n">r_max_start</span><span class="p">)</span>
+<a name="ln-257"></a>         <span class="k">implicit none</span>
+<a name="ln-258"></a><span class="k">         class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-259"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span>   <span class="c">!! Fraggle collider system object</span>
+<a name="ln-260"></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">try</span>         <span class="c">!! The current number of times Fraggle has tried to find a solution</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">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">f_spin</span>      <span class="c">!! Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</span>
+<a name="ln-262"></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">r_max_start</span> <span class="c">!! The maximum radial distance that the position calculation starts with. This increases after a failed attempt</span>
+<a name="ln-263"></a>      <span class="k">end subroutine </span><span class="n">fraggle_util_restructure</span>
+<a name="ln-264"></a>
+<a name="ln-265"></a>      <span class="k">module subroutine </span><span class="n">fraggle_util_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-266"></a>         <span class="k">implicit none</span>
+<a name="ln-267"></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">m_frag</span>    <span class="c">!! Fragment masses</span>
+<a name="ln-268"></a>         <span class="kt">real</span><span 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-269"></a>      <span class="k">end subroutine</span>
+<a name="ln-270"></a>
+<a name="ln-271"></a><span class="k">      module function </span><span class="n">fraggle_util_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-272"></a>         <span class="k">implicit none</span>
+<a name="ln-273"></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">v_r_mag</span>   <span class="c">!! Unknown radial component of fragment velocity vector</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="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-275"></a>         <span class="kt">real</span><span 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-276"></a>         <span class="kt">real</span><span 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-277"></a>         <span class="kt">real</span><span 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-278"></a>         <span class="kt">real</span><span 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-279"></a>      <span class="k">end function </span><span class="n">fraggle_util_vmag_to_vb</span>
+<a name="ln-280"></a>   <span class="k">end interface</span>
+<a name="ln-281"></a>
+<a name="ln-282"></a><span class="k">end module </span><span class="n">fraggle_classes</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/fraggle_generate.f90.html b/docs/sourcefile/fraggle_generate.f90.html
new file mode 100644
index 000000000..149549f0a
--- /dev/null
+++ b/docs/sourcefile/fraggle_generate.f90.html
@@ -0,0 +1,1239 @@
+<!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>fraggle_generate.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>fraggle_generate.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=" 2.5% of total for source files.">400 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_generate.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_generate.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_fraggle_generate.html">s_fraggle_generate</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/fraggle_generate.f90.html#src">fraggle_generate.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~~fraggle_generate.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_generatef90EfferentGraph" width="641pt" height="249pt"
+ viewBox="0.00 0.00 641.00 249.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_generate.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 946,-365.7 946,4 -4,4"/>
+<!-- sourcefile~fraggle_generate.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_generate.f90</title>
+<polygon fill="none" stroke="black" points="942,-244.7 830,-244.7 830,-220.7 942,-220.7 942,-244.7"/>
+<text text-anchor="middle" x="886" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_generate.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.61,-238.53C757.7,-246.1 632.55,-259.27 557.52,-267.17"/>
+<polygon fill="#000000" stroke="#000000" points="556.86,-263.72 547.28,-268.25 557.59,-270.68 556.86,-263.72"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.98,-223.75C821.24,-222.33 812.34,-220.88 803.97,-219.52"/>
+<polygon fill="#000000" stroke="#000000" points="804.51,-216.07 794.08,-217.92 803.38,-222.97 804.51,-216.07"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_generate.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_generate.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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_generate.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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_generate.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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_generate.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_generate.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_generate.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_generate.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_generatef90EfferentGraph = svgPanZoom('#sourcefilefraggle_generatef90EfferentGraph', {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_fraggle_generate.html">s_fraggle_generate</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/fraggle_generate.f90.html#src">fraggle_generate.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_generate</span>
+<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a>
+<a name="ln-4"></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-5"></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">F_SPIN_FIRST</span> <span class="o">=</span> <span class="mf">0.05_DP</span> <span class="c">!! The initial try value of the fraction of energy or momenum in spin (whichever has the lowest kinetic energy)</span>
+<a name="ln-6"></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">FRAGGLE_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-7"></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">FRAGGLE_ETOL</span> <span class="o">=</span> <span class="mf">1e-8_DP</span>
+<a name="ln-8"></a>
+<a name="ln-9"></a><span class="k">contains</span>
+<a name="ln-10"></a>
+<a name="ln-11"></a><span class="k">   module subroutine </span><span class="n">fraggle_generate_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">lfailure</span><span class="p">)</span>
+<a name="ln-12"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-13"></a>      <span class="c">!!</span>
+<a name="ln-14"></a>      <span class="c">!! Generates a system of fragments in barycentric coordinates that conserves energy and momentum.</span>
+<a name="ln-15"></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-16"></a>      <span class="k">implicit none</span>
+<a name="ln-17"></a>      <span class="c">! Arguments</span>
+<a name="ln-18"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle system object the outputs will be the fragmentation </span>
+<a name="ln-19"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object containing the two-body equivalent values of the colliding bodies </span>
+<a name="ln-20"></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-21"></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-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="c">! Internals</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">i</span>
+<a name="ln-25"></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">try</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">r_max_start</span><span class="p">,</span> <span class="n">f_spin</span><span class="p">,</span> <span class="n">dEtot</span><span class="p">,</span> <span class="n">dLmag</span>
+<a name="ln-27"></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">100</span>
+<a name="ln-28"></a>      <span class="kt">logical</span>                              <span class="kd">::</span> <span class="n">lk_plpl</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="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-30"></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_USUAL</span><span class="p">))</span> <span class="kd">::</span> <span class="n">fpe_flag</span> 
+<a name="ln-31"></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">message</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>      <span class="c">! The minimization and linear solvers can sometimes lead to floating point exceptions. Rather than halting the code entirely if this occurs, we</span>
+<a name="ln-34"></a>      <span class="c">! can simply fail the attempt and try again. So we need to turn off any floating point exception halting modes temporarily </span>
+<a name="ln-35"></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-36"></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-37"></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-38"></a>
+<a name="ln-39"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">nfrag</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">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-40"></a>
+<a name="ln-41"></a>         <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">nfrag</span>
+<a name="ln-42"></a>         <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle generating &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">message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; fragments.&quot;</span><span class="p">)</span>
+<a name="ln-43"></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-44"></a><span class="k">            write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Fraggle 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-45"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-46"></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-47"></a>            <span class="k">return</span>
+<a name="ln-48"></a><span class="k">         end if</span>
+<a name="ln-49"></a><span class="k">         </span><span class="n">f_spin</span> <span class="o">=</span> <span class="n">F_SPIN_FIRST</span>
+<a name="ln-50"></a>
+<a name="ln-51"></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-52"></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-53"></a>
+<a name="ln-54"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_natural_scale</span><span class="p">(</span><span class="n">colliders</span><span class="p">)</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">reset</span><span class="p">()</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a>         <span class="c">! Calculate the initial energy of the system without the collisional family</span>
+<a name="ln-59"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">colliders</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">lbefore</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-60"></a>        
+<a name="ln-61"></a>         <span class="c">! Start out the fragments close to the initial separation distance. This will be increased if there is any overlap or we fail to find a solution</span>
+<a name="ln-62"></a>         <span class="n">r_max_start</span> <span class="o">=</span> <span class="mi">1</span> <span class="o">*</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">colliders</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="o">-</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-63"></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-64"></a>         <span class="n">try</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-65"></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-66"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">try</span>
+<a name="ln-67"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle try &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">message</span><span class="p">)))</span>
+<a name="ln-68"></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-69"></a><span class="k">               call </span><span class="n">frag</span><span class="p">%</span><span class="n">restructure</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">try</span><span class="p">,</span> <span class="n">f_spin</span><span class="p">,</span> <span class="n">r_max_start</span><span class="p">)</span>
+<a name="ln-70"></a>               <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">reset</span><span class="p">()</span>
+<a name="ln-71"></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-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">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-75"></a>            <span class="k">call </span><span class="n">ieee_set_flag</span><span class="p">(</span><span class="n">ieee_all</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span> <span class="c">! Set all fpe flags to quiet</span>
+<a name="ln-76"></a>
+<a name="ln-77"></a>            <span class="k">call </span><span class="n">fraggle_generate_pos_vec</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">r_max_start</span><span class="p">)</span>
+<a name="ln-78"></a>            <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_coordinate_system</span><span class="p">(</span><span class="n">colliders</span><span class="p">)</span>
+<a name="ln-79"></a>
+<a name="ln-80"></a>            <span class="c">! Initial velocity guess will be the barycentric velocity of the colliding system so that the budgets are based on the much smaller collisional-frame velocities</span>
+<a name="ln-81"></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-82"></a>               <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span>
+<a name="ln-83"></a>            <span class="k">end do</span>
+<a name="ln-84"></a>
+<a name="ln-85"></a><span class="k">            call </span><span class="n">frag</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">colliders</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">lbefore</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-86"></a>            <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_budgets</span><span class="p">(</span><span class="n">colliders</span><span class="p">)</span>
+<a name="ln-87"></a>
+<a name="ln-88"></a>            <span class="k">call </span><span class="n">fraggle_generate_spins</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">f_spin</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-89"></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-90"></a><span class="k">               call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle failed to find spins&quot;</span><span class="p">)</span>
+<a name="ln-91"></a>               <span class="k">cycle</span>
+<a name="ln-92"></a><span class="k">            end if</span>
+<a name="ln-93"></a>
+<a name="ln-94"></a><span class="k">            call </span><span class="n">fraggle_generate_tan_vel</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-95"></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-96"></a><span class="k">               call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle failed to find tangential velocities&quot;</span><span class="p">)</span>
+<a name="ln-97"></a>               <span class="k">cycle</span>
+<a name="ln-98"></a><span class="k">            end if</span>
+<a name="ln-99"></a>
+<a name="ln-100"></a><span class="k">            call </span><span class="n">fraggle_generate_rad_vel</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-101"></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-102"></a><span class="k">               call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle failed to find radial velocities&quot;</span><span class="p">)</span>
+<a name="ln-103"></a>               <span class="k">cycle</span>
+<a name="ln-104"></a><span class="k">            end if</span>
+<a name="ln-105"></a>
+<a name="ln-106"></a><span class="k">            call </span><span class="n">frag</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">colliders</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">lbefore</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">dEtot</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">Etot_after</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span> 
+<a name="ln-108"></a>            <span class="n">dLmag</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</span><span class="p">.</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">(:))</span>
+<a name="ln-109"></a>
+<a name="ln-110"></a>            <span class="n">lfailure</span> <span class="o">=</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">frag</span><span class="p">%</span><span class="n">Qloss</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">FRAGGLE_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> 
+<a name="ln-111"></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-112"></a><span class="k">               write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</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">frag</span><span class="p">%</span><span class="n">Qloss</span><span class="p">)</span> <span class="o">/</span> <span class="n">FRAGGLE_ETOL</span>
+<a name="ln-113"></a>               <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle failed due to high energy error: &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">message</span><span class="p">)))</span>
+<a name="ln-114"></a>               <span class="k">cycle</span>
+<a name="ln-115"></a><span class="k">            end if</span>
+<a name="ln-116"></a>
+<a name="ln-117"></a><span class="k">            </span><span class="n">lfailure</span> <span class="o">=</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="p">(.</span><span class="n">mag</span><span class="p">.</span><span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">))</span> <span class="o">&gt;</span> <span class="n">FRAGGLE_LTOL</span><span class="p">)</span> 
+<a name="ln-118"></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-119"></a><span class="k">               write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">dLmag</span> <span class="o">/</span> <span class="p">(.</span><span class="n">mag</span><span class="p">.</span><span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">(:))</span>
+<a name="ln-120"></a>               <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle failed due to high angular momentum error: &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">message</span><span class="p">)))</span>
+<a name="ln-121"></a>               <span class="k">cycle</span>
+<a name="ln-122"></a><span class="k">            end if</span>
+<a name="ln-123"></a>
+<a name="ln-124"></a>            <span class="c">! Check if any of the usual floating point exceptions happened, and fail the try if so</span>
+<a name="ln-125"></a>            <span class="k">call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
+<a name="ln-126"></a>            <span class="n">lfailure</span> <span class="o">=</span> <span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">)</span> 
+<a name="ln-127"></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-128"></a><span class="k">            write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Fraggle failed due to a floating point exception: &quot;</span><span class="p">,</span> <span class="n">fpe_flag</span>
+<a name="ln-129"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-130"></a>         <span class="k">end do</span>
+<a name="ln-131"></a>
+<a name="ln-132"></a><span class="k">         write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">try</span>
+<a name="ln-133"></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-134"></a><span class="k">            call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle fragment generation failed after &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">message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; tries&quot;</span><span class="p">)</span>
+<a name="ln-135"></a>         <span class="k">else</span>
+<a name="ln-136"></a><span class="k">            call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fraggle fragment generation succeeded after &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">message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; tries&quot;</span><span class="p">)</span>
+<a name="ln-137"></a>            <span class="k">call </span><span class="n">fraggle_io_log_generate</span><span class="p">(</span><span class="n">frag</span><span class="p">)</span>
+<a name="ln-138"></a>         <span class="k">end if</span>
+<a name="ln-139"></a>
+<a name="ln-140"></a><span class="k">         call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_original_scale</span><span class="p">(</span><span class="n">colliders</span><span class="p">)</span>
+<a name="ln-141"></a>
+<a name="ln-142"></a>         <span class="c">! Restore the big array</span>
+<a name="ln-143"></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="nb">index</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-144"></a>      <span class="k">end associate</span>
+<a name="ln-145"></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-146"></a>
+<a name="ln-147"></a>      <span class="k">return </span>
+<a name="ln-148"></a><span class="k">   end subroutine </span><span class="n">fraggle_generate_fragments</span>
+<a name="ln-149"></a>
+<a name="ln-150"></a>
+<a name="ln-151"></a>   <span class="k">subroutine </span><span class="n">fraggle_generate_pos_vec</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">r_max_start</span><span class="p">)</span>
+<a name="ln-152"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-153"></a>      <span class="c">!!</span>
+<a name="ln-154"></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-155"></a>      <span class="c">!! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.</span>
+<a name="ln-156"></a>      <span class="c">!! The initial positions do not conserve energy or momentum, so these need to be adjusted later.</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">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>        <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-160"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span>   <span class="c">!! Fraggle collider system object</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">r_max_start</span> <span class="c">!! Initial guess for the starting maximum radial distance of fragments</span>
+<a name="ln-162"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">dis</span><span class="p">,</span> <span class="n">rad</span><span class="p">,</span> <span class="n">r_max</span>
+<a name="ln-164"></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-165"></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-166"></a>
+<a name="ln-167"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-168"></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-169"></a>
+<a name="ln-170"></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-171"></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-172"></a>         <span class="n">r_max</span> <span class="o">=</span> <span class="n">r_max_start</span>
+<a name="ln-173"></a>         <span class="n">rad</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(:))</span>
+<a name="ln-174"></a>
+<a name="ln-175"></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-176"></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-177"></a>
+<a name="ln-178"></a>         <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</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-179"></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-180"></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-181"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> 
+<a name="ln-182"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span>
+<a name="ln-183"></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-184"></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-185"></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-186"></a><span class="k">                  call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-187"></a>                  <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</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">frag</span><span class="p">%</span><span class="n">x_coll</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-188"></a>               <span class="k">end if</span>
+<a name="ln-189"></a><span class="k">            end do</span>
+<a name="ln-190"></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-191"></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-192"></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-193"></a>                  <span class="n">dis</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-194"></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">frag</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="n">frag</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-195"></a>               <span class="k">end do</span>
+<a name="ln-196"></a><span class="k">            end do</span>
+<a name="ln-197"></a><span class="k">         end do</span>
+<a name="ln-198"></a><span class="k">         call </span><span class="n">fraggle_util_shift_vector_to_origin</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">)</span>
+<a name="ln-199"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_coordinate_system</span><span class="p">(</span><span class="n">colliders</span><span class="p">)</span>
+<a name="ln-200"></a>
+<a name="ln-201"></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-202"></a>            <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span>
+<a name="ln-203"></a>         <span class="k">end do</span>
+<a name="ln-204"></a>
+<a name="ln-205"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-206"></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-207"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">frag</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">frag</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-208"></a>         <span class="k">end do</span>
+<a name="ln-209"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span>
+<a name="ln-210"></a>      <span class="k">end associate</span>
+<a name="ln-211"></a>
+<a name="ln-212"></a><span class="k">      return</span>
+<a name="ln-213"></a><span class="k">   end subroutine </span><span class="n">fraggle_generate_pos_vec</span>
+<a name="ln-214"></a>
+<a name="ln-215"></a>
+<a name="ln-216"></a>   <span class="k">subroutine </span><span class="n">fraggle_generate_spins</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">f_spin</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-217"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-218"></a>      <span class="c">!!</span>
+<a name="ln-219"></a>      <span class="c">!! Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.</span>
+<a name="ln-220"></a>      <span class="c">!!</span>
+<a name="ln-221"></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-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">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-225"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-226"></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">f_spin</span>    <span class="c">!! Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy)</span>
+<a name="ln-227"></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">!! Logical flag indicating whether this step fails or succeeds! </span>
+<a name="ln-228"></a>      <span class="c">! Internals</span>
+<a name="ln-229"></a>      <span class="kt">real</span><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_remainder</span><span class="p">,</span> <span class="n">rot_L</span><span class="p">,</span> <span class="n">rot_ke</span>
+<a name="ln-230"></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-231"></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">message</span>
+<a name="ln-232"></a>
+<a name="ln-233"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-234"></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-235"></a>
+<a name="ln-236"></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-237"></a>         <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_budget</span><span class="p">(:)</span>
+<a name="ln-238"></a>         <span class="n">frag</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-239"></a>
+<a name="ln-240"></a>         <span class="n">frag</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-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">nfrag</span>
+<a name="ln-242"></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-243"></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">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">*</span> <span class="n">frag</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">frag</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">frag</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">L_remainder</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>
+<a name="ln-244"></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_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">frag</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">frag</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">frag</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-245"></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-246"></a><span class="k">               </span><span class="n">frag</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="o">=</span> <span class="n">rot_ke</span><span class="p">(:)</span>
+<a name="ln-247"></a>            <span class="k">else</span>
+<a name="ln-248"></a><span class="k">               </span><span class="n">frag</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="o">=</span> <span class="n">rot_L</span><span class="p">(:)</span>
+<a name="ln-249"></a>            <span class="k">end if</span>
+<a name="ln-250"></a><span class="k">            </span><span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">+</span> <span class="n">frag</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">frag</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">frag</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="nb">dot_product</span><span class="p">(</span><span class="n">frag</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">frag</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-251"></a>         <span class="k">end do</span>
+<a name="ln-252"></a><span class="k">         </span><span class="n">frag</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="n">frag</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-253"></a>
+<a name="ln-254"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="p">((</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span><span class="p">)</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
+<a name="ln-255"></a>
+<a name="ln-256"></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-257"></a><span class="k">            call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot; &quot;</span><span class="p">)</span>
+<a name="ln-258"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Spin failure diagnostics&quot;</span><span class="p">)</span>
+<a name="ln-259"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span>
+<a name="ln-260"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_budget     : &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">message</span><span class="p">)))</span>
+<a name="ln-261"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-262"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_spin       : &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">message</span><span class="p">)))</span>
+<a name="ln-263"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-264"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_orbit      : &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">message</span><span class="p">)))</span>
+<a name="ln-265"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-266"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_remainder  : &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">message</span><span class="p">)))</span>
+<a name="ln-267"></a>         <span class="k">end if</span>
+<a name="ln-268"></a>
+<a name="ln-269"></a><span class="k">      end associate</span>
+<a name="ln-270"></a>
+<a name="ln-271"></a><span class="k">      return</span>
+<a name="ln-272"></a><span class="k">   end subroutine </span><span class="n">fraggle_generate_spins</span>
+<a name="ln-273"></a>
+<a name="ln-274"></a>
+<a name="ln-275"></a>   <span class="k">subroutine </span><span class="n">fraggle_generate_tan_vel</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-276"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-277"></a>      <span class="c">!!</span>
+<a name="ln-278"></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-279"></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-280"></a>      <span class="c">!! our fragment kinetic energy (frag%ke_budget) that we can put into the radial velocity distribution.</span>
+<a name="ln-281"></a>      <span class="c">!!</span>
+<a name="ln-282"></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-283"></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-284"></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-285"></a>      <span class="c">!! conserving momentum. </span>
+<a name="ln-286"></a>      <span class="c">!!</span>
+<a name="ln-287"></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-288"></a>      <span class="k">implicit none</span>
+<a name="ln-289"></a>      <span class="c">! Arguments</span>
+<a name="ln-290"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-291"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-292"></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">!! Logical flag indicating whether this step fails or succeeds</span>
+<a name="ln-293"></a>      <span class="c">! Internals</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">i</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">parameter</span>                  <span class="kd">::</span> <span class="n">TOL_MIN</span> <span class="o">=</span> <span class="mf">1e-1_DP</span> <span class="c">! This doesn&#39;t have to be very accurate, as we really just want a tangential velocity distribution with less kinetic energy than our initial guess.</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">parameter</span>                  <span class="kd">::</span> <span class="n">TOL_INIT</span> <span class="o">=</span> <span class="mf">1e-14_DP</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">parameter</span>                  <span class="kd">::</span> <span class="n">VNOISE_MAG</span> <span class="o">=</span> <span class="mf">1e-3_DP</span> <span class="c">!! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure</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">parameter</span>              <span class="kd">::</span> <span class="n">MAXLOOP</span> <span class="o">=</span> <span class="mi">10</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="kd">::</span> <span class="n">tol</span><span class="p">,</span> <span class="n">ke_remainder</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="k">allocatable</span>  <span class="kd">::</span> <span class="n">v_t_initial</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="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">kefrag</span><span class="p">,</span> <span class="n">vnoise</span>
+<a name="ln-302"></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-303"></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-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="n">NDIM</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">Li</span><span class="p">,</span> <span class="n">L_remainder</span><span class="p">,</span> <span class="n">L_frag_tot</span>
+<a name="ln-305"></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">message</span>
+<a name="ln-306"></a>
+<a name="ln-307"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-308"></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-309"></a>
+<a name="ln-310"></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">frag</span><span class="p">%</span><span class="n">v_t_mag</span><span class="p">)</span>
+<a name="ln-311"></a>         <span class="n">v_t_initial</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-312"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-313"></a>
+<a name="ln-314"></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-315"></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-316"></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-317"></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-318"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">get_ang_mtm</span><span class="p">()</span>
+<a name="ln-319"></a>         <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_budget</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span>
+<a name="ln-320"></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-321"></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">frag</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">norm2</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">)))</span>
+<a name="ln-322"></a>            <span class="n">Li</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</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="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</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="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">frag</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-323"></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-324"></a>         <span class="k">end do</span>
+<a name="ln-325"></a>
+<a name="ln-326"></a>         <span class="c">! Find the local kinetic energy minimum for the system that conserves linear and angular momentum</span>
+<a name="ln-327"></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">lfailure</span><span class="p">)</span>
+<a name="ln-328"></a>
+<a name="ln-329"></a>         <span class="n">tol</span> <span class="o">=</span> <span class="n">TOL_INIT</span>
+<a name="ln-330"></a>         <span class="k">do while</span><span class="p">(</span><span class="n">tol</span> <span class="o">&lt;</span> <span class="n">TOL_MIN</span><span class="p">)</span>
+<a name="ln-331"></a>            <span class="n">frag</span><span class="p">%</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> <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">MAXLOOP</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-332"></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-333"></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">frag</span><span class="p">%</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-334"></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-335"></a><span class="k">            </span><span class="n">tol</span> <span class="o">=</span> <span class="n">tol</span> <span class="o">*</span> <span class="mi">2_DP</span> <span class="c">! Keep increasing the tolerance until we converge on a solution</span>
+<a name="ln-336"></a>            <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">vnoise</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="c">! Adding a bit of noise to the initial conditions helps it find a solution more often</span>
+<a name="ln-337"></a>            <span class="n">vnoise</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">VNOISE_MAG</span> <span class="o">*</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">vnoise</span><span class="p">(:)</span> <span class="o">-</span> <span class="mf">1._DP</span><span class="p">)</span>
+<a name="ln-338"></a>            <span class="n">v_t_initial</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v_t_initial</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">vnoise</span><span class="p">(:)</span>
+<a name="ln-339"></a>         <span class="k">end do</span>
+<a name="ln-340"></a><span class="k">         </span><span class="n">frag</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="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">lfailure</span><span class="o">=</span><span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-341"></a>
+<a name="ln-342"></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-343"></a>         <span class="n">frag</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">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">fraggle_util_vmag_to_vb</span><span class="p">(</span><span class="n">frag</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">frag</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">frag</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">frag</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">frag</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">nfrag</span><span class="p">),</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:))</span> 
+<a name="ln-344"></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-345"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span>
+<a name="ln-346"></a>         <span class="k">end do</span>
+<a name="ln-347"></a>
+<a name="ln-348"></a>         <span class="c">! Now do a kinetic energy budget check to make sure we are still within the budget.</span>
+<a name="ln-349"></a>         <span class="n">kefrag</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-350"></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-351"></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">frag</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">dot_product</span><span class="p">(</span><span class="n">frag</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">frag</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-352"></a>         <span class="k">end do</span>
+<a name="ln-353"></a><span class="k">         </span><span class="n">frag</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">kefrag</span><span class="p">(:))</span>
+<a name="ln-354"></a>
+<a name="ln-355"></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-356"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="p">((</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span><span class="p">)</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
+<a name="ln-357"></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-358"></a><span class="k">            call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot; &quot;</span><span class="p">)</span>
+<a name="ln-359"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Tangential velocity failure diagnostics&quot;</span><span class="p">)</span>
+<a name="ln-360"></a>            <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">get_ang_mtm</span><span class="p">()</span>
+<a name="ln-361"></a>            <span class="n">L_frag_tot</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:)</span>
+<a name="ln-362"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="p">.</span><span class="n">mag</span><span class="p">.(</span><span class="n">frag</span><span class="p">%</span><span class="n">L_budget</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="p">(.</span><span class="n">mag</span><span class="p">.</span><span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">(:))</span>
+<a name="ln-363"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;|L_remainder| : &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">message</span><span class="p">)))</span>
+<a name="ln-364"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span>
+<a name="ln-365"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_budget     : &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">message</span><span class="p">)))</span>
+<a name="ln-366"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-367"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_spin       : &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">message</span><span class="p">)))</span>
+<a name="ln-368"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-369"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_tangential : &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">message</span><span class="p">)))</span>
+<a name="ln-370"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-371"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_radial     : &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">message</span><span class="p">)))</span>
+<a name="ln-372"></a>         <span class="k">end if</span>
+<a name="ln-373"></a><span class="k">      end associate</span>
+<a name="ln-374"></a>
+<a name="ln-375"></a><span class="k">      return</span>
+<a name="ln-376"></a>
+<a name="ln-377"></a><span class="k">      contains</span>
+<a name="ln-378"></a><span class="k">         function </span><span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">lfailure</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-379"></a>            <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-380"></a>            <span class="c">!!</span>
+<a name="ln-381"></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-382"></a>            <span class="k">implicit none</span>
+<a name="ln-383"></a>            <span class="c">! Arguments</span>
+<a name="ln-384"></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">!! Error flag </span>
+<a name="ln-385"></a>            <span class="kt">real</span><span 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-386"></a>            <span class="c">! Internals</span>
+<a name="ln-387"></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-388"></a>            <span class="c">! Result</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">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-390"></a>      
+<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">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-392"></a>            <span class="kt">real</span><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-393"></a>            <span class="kt">real</span><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-394"></a>      
+<a name="ln-395"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-396"></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-397"></a>               <span class="c">! We have 6 constraint equations (2 vector constraints in 3 dimensions each)</span>
+<a name="ln-398"></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-399"></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-400"></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-401"></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-402"></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-403"></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-404"></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">frag</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">frag</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-405"></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">frag</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">frag</span><span class="p">%</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="p">(</span><span class="n">frag</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> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">frag</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-406"></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-407"></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">frag</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-408"></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">frag</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">vtmp</span><span class="p">(:)</span>
+<a name="ln-409"></a>                     <span class="n">L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</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="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</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-410"></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">L</span><span class="p">(:)</span>
+<a name="ln-411"></a>                  <span class="k">end if</span>
+<a name="ln-412"></a><span class="k">               end do</span>
+<a name="ln-413"></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-414"></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">frag</span><span class="p">%</span><span class="n">L_budget</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_orb_others</span><span class="p">(:)</span>
+<a name="ln-415"></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-416"></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">lfailure</span><span class="p">)</span>
+<a name="ln-417"></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-418"></a>            <span class="k">end associate</span>
+<a name="ln-419"></a><span class="k">            return </span>
+<a name="ln-420"></a><span class="k">         end function </span><span class="n">solve_fragment_tan_vel</span>
+<a name="ln-421"></a>
+<a name="ln-422"></a>
+<a name="ln-423"></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">lfailure</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-424"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-425"></a>            <span class="c">!!</span>
+<a name="ln-426"></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-427"></a>            <span class="k">implicit none</span>
+<a name="ln-428"></a>            <span class="c">! Arguments</span>
+<a name="ln-429"></a>            <span class="kt">real</span><span 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-430"></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">!! Error flag</span>
+<a name="ln-431"></a>            <span class="c">! Result</span>
+<a name="ln-432"></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-433"></a>            <span class="c">! Internals</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="kd">::</span> <span class="n">i</span>
+<a name="ln-435"></a>            <span class="kt">real</span><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">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">v_shift</span>
+<a name="ln-436"></a>            <span class="kt">real</span><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">frag</span><span class="p">%</span><span class="n">nbody</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-437"></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-438"></a>      
+<a name="ln-439"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-440"></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-441"></a>         
+<a name="ln-442"></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">lfailure</span><span class="o">=</span><span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-443"></a>               <span class="n">v_shift</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">fraggle_util_vmag_to_vb</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">v_r_mag</span><span class="p">,</span> <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">v_t_unit</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">)</span> 
+<a name="ln-444"></a>         
+<a name="ln-445"></a>               <span class="n">kearr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-446"></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-447"></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">frag</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">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-448"></a>               <span class="k">end do</span>
+<a name="ln-449"></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-450"></a>               <span class="n">fval</span> <span class="o">=</span> <span class="n">keo</span> 
+<a name="ln-451"></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-452"></a>            <span class="k">end associate</span>
+<a name="ln-453"></a>
+<a name="ln-454"></a><span class="k">            return</span>
+<a name="ln-455"></a><span class="k">         end function </span><span class="n">tangential_objective_function</span>
+<a name="ln-456"></a>
+<a name="ln-457"></a>   <span class="k">end subroutine </span><span class="n">fraggle_generate_tan_vel</span>
+<a name="ln-458"></a>
+<a name="ln-459"></a>
+<a name="ln-460"></a>   <span class="k">subroutine </span><span class="n">fraggle_generate_rad_vel</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-461"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-462"></a>      <span class="c">!!</span>
+<a name="ln-463"></a>      <span class="c">!! </span>
+<a name="ln-464"></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-465"></a>      <span class="k">implicit none</span>
+<a name="ln-466"></a>      <span class="c">! Arguments</span>
+<a name="ln-467"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-468"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-469"></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">!! Logical flag indicating whether this step fails or succeeds! </span>
+<a name="ln-470"></a>      <span class="c">! Internals</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">parameter</span>                   <span class="kd">::</span> <span class="n">TOL_MIN</span> <span class="o">=</span> <span class="n">FRAGGLE_ETOL</span>   <span class="c">! This needs to be more accurate than the tangential step, as we are trying to minimize the total residual energy</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">parameter</span>                   <span class="kd">::</span> <span class="n">TOL_INIT</span> <span class="o">=</span> <span class="mf">1e-14_DP</span>
+<a name="ln-473"></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">VNOISE_MAG</span> <span class="o">=</span> <span class="mf">1e-10_DP</span> <span class="c">!! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure</span>
+<a name="ln-474"></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">MAXLOOP</span> <span class="o">=</span> <span class="mi">100</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="kd">::</span> <span class="n">ke_radial</span><span class="p">,</span> <span class="n">tol</span> 
+<a name="ln-476"></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-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">allocatable</span>   <span class="kd">::</span> <span class="n">v_r_initial</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">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_r</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">dimension</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">vnoise</span>
+<a name="ln-480"></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-481"></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">message</span>
+<a name="ln-482"></a>
+<a name="ln-483"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-484"></a>         <span class="c">! Set the &quot;target&quot; ke for the radial component</span>
+<a name="ln-485"></a>         <span class="n">ke_radial</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-486"></a>         
+<a name="ln-487"></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">frag</span><span class="p">%</span><span class="n">v_r_mag</span><span class="p">)</span>
+<a name="ln-488"></a>         <span class="c">! Initialize radial velocity magnitudes with a random value that related to equipartition of kinetic energy with some noise</span>
+<a name="ln-489"></a>         <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">vnoise</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-490"></a>         <span class="n">vnoise</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">VNOISE_MAG</span> <span class="o">*</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">vnoise</span><span class="p">(:)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span> 
+<a name="ln-491"></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="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">frag</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">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="n">nfrag</span><span class="p">))</span> <span class="o">*</span> <span class="n">vnoise</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-492"></a>
+<a name="ln-493"></a>         <span class="c">! Initialize the lambda function using a structure constructor that calls the init method</span>
+<a name="ln-494"></a>         <span class="c">! Minimize the ke objective function using the BFGS optimizer</span>
+<a name="ln-495"></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-496"></a>         <span class="n">tol</span> <span class="o">=</span> <span class="n">TOL_INIT</span>
+<a name="ln-497"></a>         <span class="k">do while</span><span class="p">(</span><span class="n">tol</span> <span class="o">&lt;</span> <span class="n">TOL_MIN</span><span class="p">)</span>
+<a name="ln-498"></a>            <span class="n">frag</span><span class="p">%</span><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">MAXLOOP</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-499"></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-500"></a><span class="k">            </span><span class="n">tol</span> <span class="o">=</span> <span class="n">tol</span> <span class="o">*</span> <span class="mi">2</span> <span class="c">! Keep increasing the tolerance until we converge on a solution</span>
+<a name="ln-501"></a>            <span class="n">v_r_initial</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_r_mag</span><span class="p">(:)</span>
+<a name="ln-502"></a>            <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">vnoise</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="c">! Adding a bit of noise to the initial conditions helps it find a solution more often</span>
+<a name="ln-503"></a>            <span class="n">vnoise</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">VNOISE_MAG</span> <span class="o">*</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">vnoise</span><span class="p">(:)</span> <span class="o">-</span> <span class="mf">1._DP</span><span class="p">)</span>
+<a name="ln-504"></a>            <span class="n">v_r_initial</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v_r_initial</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">vnoise</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="c">! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin)</span>
+<a name="ln-508"></a>         <span class="n">frag</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-509"></a>         <span class="n">frag</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">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">fraggle_util_vmag_to_vb</span><span class="p">(</span><span class="n">frag</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">frag</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">frag</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">frag</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">frag</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">nfrag</span><span class="p">),</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:))</span> 
+<a name="ln-510"></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-511"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span>
+<a name="ln-512"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">+</span> <span class="n">frag</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">dot_product</span><span class="p">(</span><span class="n">frag</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">frag</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-513"></a>         <span class="k">end do</span>
+<a name="ln-514"></a><span class="k">         </span><span class="n">frag</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="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-515"></a>
+<a name="ln-516"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">((</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span><span class="p">))</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">FRAGGLE_ETOL</span>
+<a name="ln-517"></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-518"></a><span class="k">            call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot; &quot;</span><span class="p">)</span>
+<a name="ln-519"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Radial velocity failure diagnostics&quot;</span><span class="p">)</span>
+<a name="ln-520"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span>
+<a name="ln-521"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_budget     : &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">message</span><span class="p">)))</span>
+<a name="ln-522"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-523"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_spin       : &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">message</span><span class="p">)))</span>
+<a name="ln-524"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-525"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_orbit : &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">message</span><span class="p">)))</span>
+<a name="ln-526"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span><span class="p">)</span>
+<a name="ln-527"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;ke_remainder  : &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">message</span><span class="p">)))</span>
+<a name="ln-528"></a>         <span class="k">end if</span>
+<a name="ln-529"></a>
+<a name="ln-530"></a><span class="k">      end associate</span>
+<a name="ln-531"></a><span class="k">      return</span>
+<a name="ln-532"></a>
+<a name="ln-533"></a><span class="k">      contains</span>
+<a name="ln-534"></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-535"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-536"></a>            <span class="c">!!</span>
+<a name="ln-537"></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-538"></a>            <span class="k">implicit none</span>
+<a name="ln-539"></a>            <span class="c">! Arguments</span>
+<a name="ln-540"></a>            <span class="kt">real</span><span 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-541"></a>            <span class="c">! Result</span>
+<a name="ln-542"></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-543"></a>                                                               <span class="c">!! Minimizing this brings us closer to our objective</span>
+<a name="ln-544"></a>            <span class="c">! Internals</span>
+<a name="ln-545"></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-546"></a>            <span class="kt">real</span><span 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-547"></a>            <span class="kt">real</span><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">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">kearr</span>
+<a name="ln-548"></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><span class="p">,</span> <span class="n">ke_radial</span>
+<a name="ln-549"></a>      
+<a name="ln-550"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-551"></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">frag</span><span class="p">%</span><span class="n">vb</span><span class="p">)</span>
+<a name="ln-552"></a>               <span class="n">v_shift</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">fraggle_util_vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag_input</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_r_unit</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_t_mag</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_t_unit</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">)</span> 
+<a name="ln-553"></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-554"></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">frag</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="p">(</span><span class="n">frag</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">frag</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="nb">dot_product</span><span class="p">(</span><span class="n">frag</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">frag</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="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-555"></a>               <span class="k">end do</span>
+<a name="ln-556"></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">frag</span><span class="p">%</span><span class="n">ke_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-557"></a>               <span class="n">ke_radial</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-558"></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-559"></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-560"></a>            <span class="k">end associate</span>
+<a name="ln-561"></a><span class="k">      </span>
+<a name="ln-562"></a><span class="k">            return</span>
+<a name="ln-563"></a><span class="k">         end function </span><span class="n">radial_objective_function</span>
+<a name="ln-564"></a>
+<a name="ln-565"></a>      <span class="k">end subroutine </span><span class="n">fraggle_generate_rad_vel</span>
+<a name="ln-566"></a>
+<a name="ln-567"></a><span class="k">end submodule </span><span class="n">s_fraggle_generate</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/fraggle_io.f90.html b/docs/sourcefile/fraggle_io.f90.html
new file mode 100644
index 000000000..b3a16e29c
--- /dev/null
+++ b/docs/sourcefile/fraggle_io.f90.html
@@ -0,0 +1,927 @@
+<!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>fraggle_io.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>fraggle_io.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=" 1.2% of total for source files.">203 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_io.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_fraggle_io.html">s_fraggle_io</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/fraggle_io.f90.html#src">fraggle_io.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~~fraggle_io.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_iof90EfferentGraph" width="641pt" height="259pt"
+ viewBox="0.00 0.00 641.00 258.71" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_io.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 912,-365.7 912,4 -4,4"/>
+<!-- sourcefile~fraggle_io.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_io.f90</title>
+<polygon fill="none" stroke="black" points="908,-244.7 830,-244.7 830,-220.7 908,-220.7 908,-244.7"/>
+<text text-anchor="middle" x="869" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_io.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.89,-236.89C765.56,-243.97 634.88,-258.36 557.3,-266.9"/>
+<polygon fill="#000000" stroke="#000000" points="556.74,-263.44 547.19,-268.01 557.51,-270.4 556.74,-263.44"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.73,-225.48C821.47,-223.92 812.69,-222.26 804.28,-220.68"/>
+<polygon fill="#000000" stroke="#000000" points="804.75,-217.2 794.27,-218.79 803.45,-224.08 804.75,-217.2"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_io.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_io.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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_io.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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_io.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_io.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_io.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_io.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_iof90EfferentGraph = svgPanZoom('#sourcefilefraggle_iof90EfferentGraph', {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_fraggle_io.html">s_fraggle_io</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/fraggle_io.f90.html#src">fraggle_io.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_io</span>
+<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a>
+<a name="ln-4"></a><span class="k">contains</span>
+<a name="ln-5"></a>
+<a name="ln-6"></a><span class="k">   module subroutine </span><span class="n">fraggle_io_log_generate</span><span class="p">(</span><span class="n">frag</span><span class="p">)</span>
+<a name="ln-7"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-8"></a>      <span class="c">!!</span>
+<a name="ln-9"></a>      <span class="c">!! Writes a log of the results of the fragment generation</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">fraggle_fragments</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</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">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span> <span class="kd">::</span> <span class="n">errmsg</span>
+<a name="ln-16"></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">fmtlabel</span> <span class="o">=</span> <span class="s2">&quot;(A14,10(ES11.4,1X,:))&quot;</span>
+<a name="ln-17"></a>
+<a name="ln-18"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">FRAGGLE_LOG_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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-19"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-20"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-21"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;           Fraggle fragment generation results&quot;</span>
+<a name="ln-22"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-23"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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-24"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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="p">(.</span><span class="n">mag</span><span class="p">.(</span><span class="n">frag</span><span class="p">%</span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">(:)))</span> <span class="o">/</span> <span class="p">(.</span><span class="n">mag</span><span class="p">.</span><span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">(:))</span>
+<a name="ln-25"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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-26"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">Etot_after</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span><span class="p">)</span>
+<a name="ln-27"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</span><span class="p">%</span><span class="n">Qloss</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span><span class="p">)</span>
+<a name="ln-28"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</span><span class="p">%</span><span class="n">Etot_after</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</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">frag</span><span class="p">%</span><span class="n">Etot_before</span><span class="p">)</span>
+<a name="ln-29"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span>        <span class="s2">&quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;</span><span class="p">)</span>
+<a name="ln-30"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Individual fragment values (collisional system natural units)&quot;</span>
+<a name="ln-31"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;mass&quot;</span>
+<a name="ln-32"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-33"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-34"></a>      <span class="k">end do</span>
+<a name="ln-35"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;x_coll&quot;</span>
+<a name="ln-36"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-37"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-38"></a>      <span class="k">end do</span>
+<a name="ln-39"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;v_coll&quot;</span>
+<a name="ln-40"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-41"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-42"></a>      <span class="k">end do</span>
+<a name="ln-43"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;xb&quot;</span>
+<a name="ln-44"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-45"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</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-46"></a>      <span class="k">end do</span>
+<a name="ln-47"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;vb&quot;</span>
+<a name="ln-48"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-49"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</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-50"></a>      <span class="k">end do</span>
+<a name="ln-51"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;rot&quot;</span>
+<a name="ln-52"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-53"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">frag</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-54"></a>      <span class="k">end do</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a><span class="k">      close</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-60"></a><span class="k">      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 writing Fraggle message to log 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">errmsg</span><span class="p">))</span>
+<a name="ln-61"></a>   <span class="k">end subroutine </span><span class="n">fraggle_io_log_generate</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">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</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">!! Writes a single message to the fraggle log file</span>
+<a name="ln-68"></a>      <span class="k">implicit none</span>
+<a name="ln-69"></a>      <span class="c">! Arguments</span>
+<a name="ln-70"></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">message</span>
+<a name="ln-71"></a>      <span class="c">! Internals</span>
+<a name="ln-72"></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">errmsg</span>
+<a name="ln-73"></a>
+<a name="ln-74"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">FRAGGLE_LOG_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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-75"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">message</span><span class="p">))</span> 
+<a name="ln-76"></a>      <span class="k">close</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">      </span><span class="mi">667</span> <span class="k">continue</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;Error writing Fraggle message to log 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">errmsg</span><span class="p">))</span>
+<a name="ln-81"></a>   <span class="k">end subroutine </span><span class="n">fraggle_io_log_one_message</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>
+<a name="ln-84"></a>   <span class="k">module subroutine </span><span class="n">fraggle_io_log_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-85"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-86"></a>      <span class="c">!!</span>
+<a name="ln-87"></a>      <span class="c">!! Writes a single message to the fraggle log file</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_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>    <span class="c">!! Swiftest massive body object (only the new bodies generated in a collision)</span>
+<a name="ln-91"></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 swiftest run configuration parameters</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">i</span>
+<a name="ln-94"></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">errmsg</span>
+<a name="ln-95"></a>
+<a name="ln-96"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">FRAGGLE_LOG_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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-97"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-98"></a>
+<a name="ln-99"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-100"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;           Fraggle fragment final body properties&quot;</span>
+<a name="ln-101"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-102"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;id, name&quot;</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">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-104"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">name</span>
+<a name="ln-105"></a>      <span class="k">end do</span>
+<a name="ln-106"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;mass, Gmass&quot;</span>
+<a name="ln-107"></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-108"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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="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-109"></a>      <span class="k">end do</span>
+<a name="ln-110"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;radius&quot;</span>
+<a name="ln-111"></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-112"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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-113"></a>      <span class="k">end do</span>
+<a name="ln-114"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;xb&quot;</span>
+<a name="ln-115"></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-116"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">pl</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-117"></a>      <span class="k">end do</span>
+<a name="ln-118"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;vb&quot;</span>
+<a name="ln-119"></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-120"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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-121"></a>      <span class="k">end do</span>
+<a name="ln-122"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;xh&quot;</span>
+<a name="ln-123"></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-124"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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-125"></a>      <span class="k">end do</span>
+<a name="ln-126"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;vh&quot;</span>
+<a name="ln-127"></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-128"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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-129"></a>      <span class="k">end do</span>
+<a name="ln-130"></a>
+<a name="ln-131"></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-132"></a><span class="k">         write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;rot&quot;</span>
+<a name="ln-133"></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-134"></a>            <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">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-135"></a>         <span class="k">end do</span>
+<a name="ln-136"></a><span class="k">         write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Ip&quot;</span>
+<a name="ln-137"></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-138"></a>            <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">pl</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-139"></a>         <span class="k">end do</span>
+<a name="ln-140"></a><span class="k">      end if</span>
+<a name="ln-141"></a>
+<a name="ln-142"></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-143"></a><span class="k">         write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Q&quot;</span>
+<a name="ln-144"></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-145"></a>            <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">pl</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-146"></a>         <span class="k">end do</span>
+<a name="ln-147"></a><span class="k">         write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;k2&quot;</span>
+<a name="ln-148"></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-149"></a>            <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">pl</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-150"></a>         <span class="k">end do</span>
+<a name="ln-151"></a><span class="k">         write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;tlag&quot;</span>
+<a name="ln-152"></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-153"></a>            <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</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">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-154"></a>         <span class="k">end do</span>
+<a name="ln-155"></a><span class="k">      end if</span>
+<a name="ln-156"></a>
+<a name="ln-157"></a><span class="k">      close</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">)</span>
+<a name="ln-158"></a>
+<a name="ln-159"></a>      <span class="k">return</span>
+<a name="ln-160"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-161"></a><span class="k">      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 writing Fraggle message to log 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">errmsg</span><span class="p">))</span>
+<a name="ln-162"></a>   <span class="k">end subroutine </span><span class="n">fraggle_io_log_pl</span>
+<a name="ln-163"></a>
+<a name="ln-164"></a>
+<a name="ln-165"></a>   <span class="k">module subroutine </span><span class="n">fraggle_io_log_regime</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-166"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-167"></a>      <span class="c">!!</span>
+<a name="ln-168"></a>      <span class="c">!! Writes a log of the results of the collisional regime determination</span>
+<a name="ln-169"></a>      <span class="k">implicit none</span>
+<a name="ln-170"></a>      <span class="c">! Arguments</span>
+<a name="ln-171"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-172"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragment object</span>
+<a name="ln-173"></a>      <span class="c">! Internals</span>
+<a name="ln-174"></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">errmsg</span>
+<a name="ln-175"></a>
+<a name="ln-176"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">FRAGGLE_LOG_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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-177"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-178"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-179"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;           Fraggle collisional regime determination results&quot;</span>
+<a name="ln-180"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-181"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;----------------------- Collider information -----------------------&quot;</span> 
+<a name="ln-182"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;True number of colliders : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">ncoll</span>
+<a name="ln-183"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Index list of true colliders  : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">colliders</span><span class="p">%</span><span class="n">ncoll</span><span class="p">)</span>
+<a name="ln-184"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;-------------------- Two-body equialent values ---------------------&quot;</span>
+<a name="ln-185"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;mass1    : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-186"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;radius1  : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-187"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;xb1      : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-188"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;vb1      : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-189"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;rot1     : &quot;</span><span class="p">,</span><span class="n">colliders</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-190"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Ip1      : &quot;</span><span class="p">,</span><span class="n">colliders</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-191"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;L_spin1  : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-192"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;L_orbit1 : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-193"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;mass2    : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-194"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;radius2  : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-195"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;xb2      : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-196"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;vb2      : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-197"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;rot2     : &quot;</span><span class="p">,</span><span class="n">colliders</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-198"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Ip2      : &quot;</span><span class="p">,</span><span class="n">colliders</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-199"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;L_spin2  : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-200"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;L_orbit2 : &quot;</span><span class="p">,</span><span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-201"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;------------------------------ Regime -----------------------------&quot;</span>
+<a name="ln-202"></a>      <span class="k">select case</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span><span class="p">)</span> 
+<a name="ln-203"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_MERGE</span><span class="p">)</span>
+<a name="ln-204"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Merge&quot;</span>
+<a name="ln-205"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_DISRUPTION</span><span class="p">)</span>
+<a name="ln-206"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Disruption&quot;</span>
+<a name="ln-207"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span><span class="p">)</span>
+<a name="ln-208"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Supercatastrophic disruption&quot;</span>
+<a name="ln-209"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_GRAZE_AND_MERGE</span><span class="p">)</span>
+<a name="ln-210"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Graze and merge&quot;</span>
+<a name="ln-211"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span><span class="p">)</span>
+<a name="ln-212"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Hit and run&quot;</span>
+<a name="ln-213"></a>      <span class="k">end select</span>
+<a name="ln-214"></a><span class="k">      write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;----------------------- Fragment information ----------------------&quot;</span>
+<a name="ln-215"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Total mass of fragments      : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span>
+<a name="ln-216"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Largest fragment mass        : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-217"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Second-largest fragment mass : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-218"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Remaining fragment mass      : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-219"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Center of mass position      : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span>
+<a name="ln-220"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Center of mass velocity      : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span>
+<a name="ln-221"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Energy loss                  : &quot;</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span>
+<a name="ln-222"></a>      <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;--------------------------------------------------------------------&quot;</span>
+<a name="ln-223"></a>      <span class="k">close</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">)</span>
+<a name="ln-224"></a>
+<a name="ln-225"></a>      <span class="k">return</span>
+<a name="ln-226"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-227"></a><span class="k">      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 writing Fraggle regime information to log 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">errmsg</span><span class="p">))</span>
+<a name="ln-228"></a>   <span class="k">end subroutine </span><span class="n">fraggle_io_log_regime</span>
+<a name="ln-229"></a>
+<a name="ln-230"></a>
+<a name="ln-231"></a>   <span class="k">module subroutine </span><span class="n">fraggle_io_log_start</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-232"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-233"></a>      <span class="c">!!</span>
+<a name="ln-234"></a>      <span class="c">!! Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run</span>
+<a name="ln-235"></a>      <span class="k">implicit none</span>
+<a name="ln-236"></a>      <span class="c">! Arguments</span>
+<a name="ln-237"></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>
+<a name="ln-238"></a>      <span class="c">! Internals</span>
+<a name="ln-239"></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">errmsg</span>
+<a name="ln-240"></a>      <span class="kt">logical</span>           <span class="kd">::</span> <span class="n">fileExists</span>
+<a name="ln-241"></a>
+<a name="ln-242"></a>      <span class="k">inquire</span><span class="p">(</span><span class="k">file</span><span class="o">=</span><span class="n">FRAGGLE_LOG_OUT</span><span class="p">,</span> <span class="n">exist</span><span class="o">=</span><span class="n">fileExists</span><span class="p">)</span>
+<a name="ln-243"></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">lrestart</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">fileExists</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-244"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">FRAGGLE_LOG_OUT</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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-245"></a>         <span class="k">write</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="s2">&quot;Fraggle logfile&quot;</span>
+<a name="ln-246"></a>      <span class="k">end if</span>
+<a name="ln-247"></a><span class="k">      close</span><span class="p">(</span><span class="n">FRAGGLE_LOG_UNIT</span><span class="p">)</span>
+<a name="ln-248"></a>
+<a name="ln-249"></a>      <span class="k">return</span>
+<a name="ln-250"></a>
+<a name="ln-251"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-252"></a><span class="k">      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 writing Fraggle log 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">errmsg</span><span class="p">))</span>
+<a name="ln-253"></a>   <span class="k">end subroutine </span><span class="n">fraggle_io_log_start</span>
+<a name="ln-254"></a>
+<a name="ln-255"></a><span class="k">end submodule </span><span class="n">s_fraggle_io</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/fraggle_placeholder.f90.html b/docs/sourcefile/fraggle_placeholder.f90.html
new file mode 100644
index 000000000..dcdbb6fd9
--- /dev/null
+++ b/docs/sourcefile/fraggle_placeholder.f90.html
@@ -0,0 +1,716 @@
+<!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>fraggle_placeholder.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>fraggle_placeholder.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.2% of total for source files.">35 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_placeholder.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_placeholder.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_fraggle_placeholder.html">s_fraggle_placeholder</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/fraggle_placeholder.f90.html#src">fraggle_placeholder.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~~fraggle_placeholder.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_placeholderf90EfferentGraph" width="641pt" height="246pt"
+ viewBox="0.00 0.00 641.00 246.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_placeholder.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 958,-365.7 958,4 -4,4"/>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<polygon fill="none" stroke="black" points="954,-244.7 830,-244.7 830,-220.7 954,-220.7 954,-244.7"/>
+<text text-anchor="middle" x="892" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_placeholder.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.64,-239.06C755.55,-246.74 631.68,-259.58 557.37,-267.29"/>
+<polygon fill="#000000" stroke="#000000" points="556.81,-263.82 547.23,-268.34 557.53,-270.79 556.81,-263.82"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.9,-223.23C821.2,-221.88 812.42,-220.52 804.19,-219.24"/>
+<polygon fill="#000000" stroke="#000000" points="804.52,-215.75 794.11,-217.68 803.45,-222.67 804.52,-215.75"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_placeholder.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_placeholder.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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_placeholder.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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_placeholder.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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_placeholder.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_placeholder.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_placeholder.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_placeholder.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_placeholderf90EfferentGraph = svgPanZoom('#sourcefilefraggle_placeholderf90EfferentGraph', {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_fraggle_placeholder.html">s_fraggle_placeholder</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/fraggle_placeholder.f90.html#src">fraggle_placeholder.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_placeholder</span>
+<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a>
+<a name="ln-4"></a><span class="k">contains</span>
+<a name="ln-5"></a>
+<a name="ln-6"></a>   <span class="c">!&gt; The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</span>
+<a name="ln-7"></a>   <span class="k">module subroutine </span><span class="n">fraggle_placeholder_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-8"></a>      <span class="k">implicit none</span>
+<a name="ln-9"></a><span class="k">      class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Fraggle fragment system object </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="nb">system</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">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-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">t</span>      <span class="c">!! Current simulation time</span>
+<a name="ln-13"></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-14"></a>      <span class="k">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;The type-bound procedure &#39;accel&#39; is not defined for type fraggle_fragments&quot;</span>
+<a name="ln-15"></a>      <span class="k">return</span>
+<a name="ln-16"></a><span class="k">   end subroutine </span><span class="n">fraggle_placeholder_accel</span>
+<a name="ln-17"></a>
+<a name="ln-18"></a>   <span class="k">module subroutine </span><span class="n">fraggle_placeholder_kick</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-19"></a>      <span class="k">implicit none</span>
+<a name="ln-20"></a><span class="k">      class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-21"></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-22"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
+<a name="ln-24"></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-25"></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-26"></a>
+<a name="ln-27"></a>      <span class="k">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;The type-bound procedure &#39;kick&#39; is not defined for type fraggle_fragments&quot;</span>
+<a name="ln-28"></a>      <span class="k">return</span>
+<a name="ln-29"></a><span class="k">   end subroutine </span><span class="n">fraggle_placeholder_kick</span>
+<a name="ln-30"></a>
+<a name="ln-31"></a>   <span class="k">module subroutine </span><span class="n">fraggle_placeholder_step</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-32"></a>      <span class="k">implicit none</span>
+<a name="ln-33"></a><span class="k">      class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span 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-34"></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-35"></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-36"></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-37"></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-38"></a>
+<a name="ln-39"></a>      <span class="k">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;The type-bound procedure &#39;step&#39; is not defined for type fraggle_fragments&quot;</span>
+<a name="ln-40"></a>      <span class="k">return</span>
+<a name="ln-41"></a><span class="k">   end subroutine </span><span class="n">fraggle_placeholder_step</span>
+<a name="ln-42"></a>
+<a name="ln-43"></a>
+<a name="ln-44"></a><span class="k">end submodule </span><span class="n">s_fraggle_placeholder</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/fraggle_regime.f90.html b/docs/sourcefile/fraggle_regime.f90.html
new file mode 100644
index 000000000..8e2beb795
--- /dev/null
+++ b/docs/sourcefile/fraggle_regime.f90.html
@@ -0,0 +1,1040 @@
+<!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>fraggle_regime.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>fraggle_regime.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=" 1.5% of total for source files.">246 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_regime.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_regime.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_fraggle_regime.html">s_fraggle_regime</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/fraggle_regime.f90.html#src">fraggle_regime.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~~fraggle_regime.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_regimef90EfferentGraph" width="641pt" height="252pt"
+ viewBox="0.00 0.00 641.00 251.84" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_regime.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 937,-365.7 937,4 -4,4"/>
+<!-- sourcefile~fraggle_regime.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_regime.f90</title>
+<polygon fill="none" stroke="black" points="933,-244.7 830,-244.7 830,-220.7 933,-220.7 933,-244.7"/>
+<text text-anchor="middle" x="881.5" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_regime.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.77,-238.1C759.66,-245.57 633.26,-259.03 557.59,-267.09"/>
+<polygon fill="#000000" stroke="#000000" points="556.84,-263.65 547.26,-268.19 557.58,-270.61 556.84,-263.65"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.9,-224.16C821.31,-222.71 812.48,-221.22 804.14,-219.81"/>
+<polygon fill="#000000" stroke="#000000" points="804.71,-216.36 794.26,-218.14 803.54,-223.26 804.71,-216.36"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_regime.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_regime.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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_regime.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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_regime.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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_regime.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_regime.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_regime.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_regime.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_regimef90EfferentGraph = svgPanZoom('#sourcefilefraggle_regimef90EfferentGraph', {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_fraggle_regime.html">s_fraggle_regime</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/fraggle_regime.f90.html#src">fraggle_regime.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_regime</span>
+<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a>
+<a name="ln-4"></a><span class="k">contains</span>
+<a name="ln-5"></a>
+<a name="ln-6"></a><span class="k">   module subroutine </span><span class="n">fraggle_regime_colliders</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">frag</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-7"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton </span>
+<a name="ln-8"></a>      <span class="c">!!</span>
+<a name="ln-9"></a>      <span class="c">!! Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine.</span>
+<a name="ln-10"></a>      <span class="c">!! It converts to SI units prior to calling</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">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Fraggle colliders object</span>
+<a name="ln-14"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>   <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-15"></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="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-16"></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 Swiftest run configuration parameters</span>
+<a name="ln-17"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">jtarg</span><span class="p">,</span> <span class="n">jproj</span><span class="p">,</span> <span class="n">regime</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="mi">2</span><span class="p">)</span> <span class="kd">::</span> <span class="n">radius_si</span><span class="p">,</span> <span class="n">mass_si</span><span class="p">,</span> <span class="n">density_si</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="kd">::</span> <span class="n">min_mfrag_si</span><span class="p">,</span> <span class="n">Mcb_si</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">NDIM</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x1_si</span><span class="p">,</span> <span class="n">v1_si</span><span class="p">,</span> <span class="n">x2_si</span><span class="p">,</span> <span class="n">v2_si</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">mlr</span><span class="p">,</span> <span class="n">mslr</span><span class="p">,</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">dentot</span><span class="p">,</span> <span class="n">msys</span><span class="p">,</span> <span class="n">msys_new</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">impact_parameter</span>
+<a name="ln-23"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">fileExists</span>
+<a name="ln-24"></a>        
+<a name="ln-25"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">colliders</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-26"></a>         <span class="c">! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them to the regime determination subroutine</span>
+<a name="ln-27"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">colliders</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">colliders</span><span class="p">%</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-28"></a><span class="k">            </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-29"></a>            <span class="n">jproj</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-30"></a>         <span class="k">else</span>
+<a name="ln-31"></a><span class="k">            </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-32"></a>            <span class="n">jproj</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-33"></a>         <span class="k">end if</span>
+<a name="ln-34"></a><span class="k">         </span><span class="n">mass_si</span><span class="p">(:)</span>    <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">([</span><span class="n">jtarg</span><span class="p">,</span> <span class="n">jproj</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="c">!! The two-body equivalent masses of the collider system</span>
+<a name="ln-35"></a>         <span class="n">radius_si</span><span class="p">(:)</span>  <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">([</span><span class="n">jtarg</span><span class="p">,</span> <span class="n">jproj</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="c">!! The two-body equivalent radii of the collider system</span>
+<a name="ln-36"></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 two-body equivalent density of the collider system</span>
+<a name="ln-37"></a>         <span class="n">x1_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">jtarg</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="c">!! The first body of the two-body equivalent position vector the collider system</span>
+<a name="ln-38"></a>         <span class="n">v1_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">jtarg</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 first body of the two-body equivalent velocity vector the collider system</span>
+<a name="ln-39"></a>         <span class="n">x2_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">jproj</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="c">!! The second body of the two-body equivalent position vector the collider system</span>
+<a name="ln-40"></a>         <span class="n">v2_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">jproj</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 second body of the two-body equivalent velocity vector the collider system</span>
+<a name="ln-41"></a>         <span class="n">Mcb_si</span>        <span class="o">=</span> <span class="nb">system</span><span class="p">%</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>                         <span class="c">!! The central body mass of the system</span>
+<a name="ln-42"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-43"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-44"></a>            <span class="n">min_mfrag_si</span>  <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">min_GMfrag</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>          <span class="c">!! The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead</span>
+<a name="ln-45"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-46"></a>            <span class="n">min_mfrag_si</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-47"></a>         <span class="k">end select</span>
+<a name="ln-48"></a><span class="k">      </span>
+<a name="ln-49"></a><span class="k">         </span><span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass_si</span><span class="p">(:))</span> 
+<a name="ln-50"></a>         <span class="n">dentot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass_si</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">density_si</span><span class="p">(:))</span> <span class="o">/</span> <span class="n">mtot</span> 
+<a name="ln-51"></a>
+<a name="ln-52"></a>         <span class="c">!! Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime</span>
+<a name="ln-53"></a>         <span class="k">call </span><span class="n">fraggle_regime_collresolve</span><span class="p">(</span><span class="n">Mcb_si</span><span class="p">,</span> <span class="n">mass_si</span><span class="p">(</span><span class="n">jtarg</span><span class="p">),</span> <span class="n">mass_si</span><span class="p">(</span><span class="n">jproj</span><span class="p">),</span> <span class="n">radius_si</span><span class="p">(</span><span class="n">jtarg</span><span class="p">),</span> <span class="n">radius_si</span><span class="p">(</span><span class="n">jproj</span><span class="p">),</span> <span class="n">x1_si</span><span class="p">(:),</span> <span class="n">x2_si</span><span class="p">(:),&amp;</span> 
+<a name="ln-54"></a>               <span class="n">v1_si</span><span class="p">(:),</span> <span class="n">v2_si</span><span class="p">(:),</span> <span class="n">density_si</span><span class="p">(</span><span class="n">jtarg</span><span class="p">),</span> <span class="n">density_si</span><span class="p">(</span><span class="n">jproj</span><span class="p">),</span> <span class="n">min_mfrag_si</span><span class="p">,</span> <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">Qloss</span><span class="p">)</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</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-57"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</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-58"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</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-59"></a>
+<a name="ln-60"></a>         <span class="c">! Find the center of mass of the collisional system	</span>
+<a name="ln-61"></a>         <span class="n">frag</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">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-62"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> 
+<a name="ln-63"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span>
+<a name="ln-64"></a>
+<a name="ln-65"></a>         <span class="c">! Convert quantities back to the system units and save them into the fragment system</span>
+<a name="ln-66"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</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-67"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</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-68"></a>
+<a name="ln-69"></a>         <span class="k">call </span><span class="n">fraggle_io_log_regime</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-70"></a>      <span class="k">end associate</span>
+<a name="ln-71"></a>
+<a name="ln-72"></a><span class="k">      return</span>
+<a name="ln-73"></a><span class="k">   end subroutine </span><span class="n">fraggle_regime_colliders</span>
+<a name="ln-74"></a>
+<a name="ln-75"></a>
+<a name="ln-76"></a>   <span class="k">subroutine </span><span class="n">fraggle_regime_collresolve</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">min_mfrag</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">Qloss</span><span class="p">)</span>
+<a name="ln-77"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-78"></a>      <span class="c">!!</span>
+<a name="ln-79"></a>      <span class="c">!! Determine the collisional regime of two colliding bodies. </span>
+<a name="ln-80"></a>      <span class="c">!! Current version requires all values to be converted to SI units prior to calling the function</span>
+<a name="ln-81"></a>      <span class="c">!!       References:</span>
+<a name="ln-82"></a>      <span class="c">!!       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion </span>
+<a name="ln-83"></a>      <span class="c">!!          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21</span>
+<a name="ln-84"></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-85"></a>      <span class="c">!!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79</span>
+<a name="ln-86"></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-87"></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-88"></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-89"></a>      <span class="c">!!          1008–1019. https://doi.org/10.1029/2018JE005798</span>
+<a name="ln-90"></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-91"></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-92"></a>      <span class="c">!!</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="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">min_mfrag</span> 
+<a name="ln-96"></a>      <span class="kt">real</span><span 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-97"></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-98"></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-99"></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-100"></a>      <span class="c">! Constants</span>
+<a name="ln-101"></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-102"></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-103"></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-104"></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-105"></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-106"></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">ETA</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.50_DP</span> <span class="c">!! LS12 eq. (44)</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="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-108"></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-109"></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-110"></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-111"></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-112"></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-113"></a>      <span class="c">! Internals</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">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-115"></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-116"></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-117"></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><span class="p">,</span> <span class="n">Mtmp</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="kd">::</span> <span class="n">Rp</span><span class="p">,</span> <span class="n">rhill</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="kd">::</span> <span class="n">Mresidual</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="kd">::</span> <span class="n">U_binding</span>
+<a name="ln-121"></a>
+<a name="ln-122"></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-123"></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-124"></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-125"></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-126"></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-127"></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-128"></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-129"></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-130"></a>         <span class="c">!calculate Mint</span>
+<a name="ln-131"></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-132"></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-133"></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-134"></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-135"></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-136"></a>      <span class="k">else</span>
+<a name="ln-137"></a><span class="k">         </span><span class="n">alpha</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-138"></a>         <span class="n">Mint</span> <span class="o">=</span> <span class="n">m2</span>
+<a name="ln-139"></a>      <span class="k">end if </span>
+<a name="ln-140"></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-141"></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-142"></a>
+<a name="ln-143"></a>      <span class="c">!calculate Vescp</span>
+<a name="ln-144"></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-145"></a>
+<a name="ln-146"></a>      <span class="c">!calculate rhill</span>
+<a name="ln-147"></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-148"></a>
+<a name="ln-149"></a>      <span class="c">!calculate Vhill</span>
+<a name="ln-150"></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-151"></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-152"></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-153"></a>      <span class="k">else</span>
+<a name="ln-154"></a><span class="k">         </span><span class="n">Vhill</span> <span class="o">=</span> <span class="n">Vescp</span>
+<a name="ln-155"></a>      <span class="k">end if</span> 
+<a name="ln-156"></a>
+<a name="ln-157"></a>      <span class="c">!calculate Qr_pstar</span>
+<a name="ln-158"></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-159"></a>
+<a name="ln-160"></a>      <span class="c">!calculate Verosion</span>
+<a name="ln-161"></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-162"></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-163"></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-164"></a>
+<a name="ln-165"></a>      <span class="c">!calculate mass largest remnant Mlr </span>
+<a name="ln-166"></a>      <span class="n">Mlr</span> <span class="o">=</span> <span class="nb">max</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="p">,</span> <span class="n">min_mfrag</span><span class="p">)</span> <span class="c">! [kg] # LS12 eq (5)</span>
+<a name="ln-167"></a>
+<a name="ln-168"></a>      <span class="c">!calculate Vsupercat</span>
+<a name="ln-169"></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-170"></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-171"></a>
+<a name="ln-172"></a>      <span class="c">!calculate Vhr</span>
+<a name="ln-173"></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-174"></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-175"></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-176"></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-177"></a>      <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-178"></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-179"></a>
+<a name="ln-180"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">m1</span> <span class="o">&lt;</span> <span class="n">min_mfrag</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">min_mfrag</span><span class="p">))</span> <span class="k">then </span>
+<a name="ln-181"></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-182"></a>         <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-183"></a>         <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-184"></a>         <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-185"></a>         <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Fragments would have mass below the minimum. Converting this collision into a merger.&quot;</span><span class="p">)</span>
+<a name="ln-186"></a>      <span class="k">else </span>
+<a name="ln-187"></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-188"></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-189"></a>            <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-190"></a>            <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-191"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-192"></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-193"></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-194"></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-195"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-196"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-197"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-198"></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-199"></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-200"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-201"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-202"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-203"></a>            <span class="k">else</span>
+<a name="ln-204"></a><span class="k">               </span><span class="n">Mlr</span> <span class="o">=</span> <span class="n">m1</span>
+<a name="ln-205"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</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> <span class="n">min_mfrag</span><span class="p">)</span>
+<a name="ln-206"></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-207"></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-208"></a>            <span class="k">end if </span>
+<a name="ln-209"></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-210"></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-211"></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-212"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-213"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-214"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-215"></a>            <span class="k">else </span>
+<a name="ln-216"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</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="n">min_mfrag</span><span class="p">)</span>  <span class="c">! LS12 eq (37)</span>
+<a name="ln-217"></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-218"></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-219"></a>            <span class="k">end if </span>
+<a name="ln-220"></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-221"></a><span class="k">            </span><span class="n">Mlr</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</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="n">ETA</span><span class="p">),</span> <span class="n">min_mfrag</span><span class="p">)</span>   <span class="c">!LS12 eq (44)</span>
+<a name="ln-222"></a>            <span class="n">Mslr</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</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="n">min_mfrag</span><span class="p">)</span>  <span class="c">!LS12 eq (37)</span>
+<a name="ln-223"></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-224"></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-225"></a>         <span class="k">else </span>
+<a name="ln-226"></a><span class="k">            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-227"></a>         <span class="k">end if </span>
+<a name="ln-228"></a><span class="k">      end if </span>
+<a name="ln-229"></a>
+<a name="ln-230"></a><span class="k">      if</span> <span class="p">(</span><span class="n">Mslr</span> <span class="o">&gt;</span> <span class="n">Mlr</span><span class="p">)</span> <span class="k">then</span> <span class="c">! The second-largest fragment is actually larger than the largest, so we will swap them</span>
+<a name="ln-231"></a>         <span class="n">Mtmp</span> <span class="o">=</span> <span class="n">Mlr</span>
+<a name="ln-232"></a>         <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mslr</span>
+<a name="ln-233"></a>         <span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mtmp</span>
+<a name="ln-234"></a>      <span class="k">end if</span>
+<a name="ln-235"></a>
+<a name="ln-236"></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-237"></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-238"></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-239"></a>      <span class="k">end if</span>
+<a name="ln-240"></a><span class="k">         </span>
+<a name="ln-241"></a><span class="k">      return</span> 
+<a name="ln-242"></a>
+<a name="ln-243"></a>      <span class="c">! Internal functions</span>
+<a name="ln-244"></a>      <span class="k">contains</span>
+<a name="ln-245"></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-246"></a>            <span class="c">!! author: Jennifer L.L. Pouplin and Carlisle A. Wishard</span>
+<a name="ln-247"></a>            <span class="c">!!</span>
+<a name="ln-248"></a>            <span class="c">!! Calculates the corrected Q* for oblique impacts. See Eq. (15) of LS12.</span>
+<a name="ln-249"></a>            <span class="c">!!       Reference:</span>
+<a name="ln-250"></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-251"></a>            <span class="c">!!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79</span>
+<a name="ln-252"></a>            <span class="c">!! </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="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-256"></a>            <span class="c">! Result</span>
+<a name="ln-257"></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-258"></a>            <span class="c">! Internals</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="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-260"></a>
+<a name="ln-261"></a>            <span class="c">! calc mu, mu_alpha</span>
+<a name="ln-262"></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-263"></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-264"></a>            <span class="c">! calc Qrd_star1</span>
+<a name="ln-265"></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-266"></a>            <span class="c">! calc Qrd_star</span>
+<a name="ln-267"></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-268"></a>            <span class="c">! calc Qrd_pstar, v_pstar</span>
+<a name="ln-269"></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-270"></a>
+<a name="ln-271"></a>            <span class="k">return</span>
+<a name="ln-272"></a><span class="k">         end function </span><span class="n">calc_Qrd_pstar</span>
+<a name="ln-273"></a>
+<a name="ln-274"></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-275"></a>            <span class="c">!! author: Jennifer L.L. Pouplin and Carlisle A. Wishard</span>
+<a name="ln-276"></a>            <span class="c">!!</span>
+<a name="ln-277"></a>            <span class="c">!! Calculates mass of second largest fragment.</span>
+<a name="ln-278"></a>            <span class="c">!! </span>
+<a name="ln-279"></a>            <span class="k">implicit none</span>
+<a name="ln-280"></a>            <span class="c">! Arguments</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">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-282"></a>            <span class="c">! Result</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">Mslr</span>
+<a name="ln-284"></a>            <span class="c">! Internals</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="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-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">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-287"></a>
+<a name="ln-288"></a>            <span class="c">! calc Mslr, Rc1, mu, gammalr</span>
+<a name="ln-289"></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-290"></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-291"></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-292"></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-293"></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-294"></a>            <span class="c">!calc Qr_rev</span>
+<a name="ln-295"></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-296"></a>            <span class="c">! calc Qrd_star1, v_star1</span>
+<a name="ln-297"></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-298"></a>            <span class="c">! calc Qrd_pstar_rev</span>
+<a name="ln-299"></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-300"></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-301"></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-302"></a>            <span class="c">!calc Qr_supercat_rev</span>
+<a name="ln-303"></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-304"></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-305"></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-306"></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-307"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mp</span> 
+<a name="ln-308"></a>            <span class="k">else </span>
+<a name="ln-309"></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-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="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-313"></a>
+<a name="ln-314"></a>            <span class="k">return</span>
+<a name="ln-315"></a><span class="k">         end function </span><span class="n">calc_Qrd_rev</span>
+<a name="ln-316"></a>
+<a name="ln-317"></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-318"></a>            <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-319"></a>            <span class="c">!!</span>
+<a name="ln-320"></a>            <span class="c">!! Calculates the impact factor b = sin(theta), where theta is the angle between the relative velocity</span>
+<a name="ln-321"></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-322"></a>            <span class="c">!! </span>
+<a name="ln-323"></a>            <span class="k">implicit none</span>
+<a name="ln-324"></a>            <span class="c">!! Arguments</span>
+<a name="ln-325"></a>            <span class="kt">real</span><span 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-326"></a>            <span class="c">!! Result</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">sintheta</span>
+<a name="ln-328"></a>            <span class="c">!! Internals</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="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-330"></a>
+<a name="ln-331"></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-332"></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-333"></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-334"></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-335"></a>            <span class="k">return </span>
+<a name="ln-336"></a><span class="k">         end function </span><span class="n">calc_b</span>
+<a name="ln-337"></a>
+<a name="ln-338"></a>
+<a name="ln-339"></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-340"></a>            <span class="c">!! author: David A. Minton</span>
+<a name="ln-341"></a>            <span class="c">!!</span>
+<a name="ln-342"></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-343"></a>            <span class="c">!! 1.8 for ~10000 km sized bodies. See LS12 Fig. 4 for details.</span>
+<a name="ln-344"></a>            <span class="c">!! </span>
+<a name="ln-345"></a>            <span class="k">implicit none</span>
+<a name="ln-346"></a>            <span class="c">!! Arguments</span>
+<a name="ln-347"></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-348"></a>            <span class="c">!! Result</span>
+<a name="ln-349"></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-350"></a>            <span class="c">!! Internals</span>
+<a name="ln-351"></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-352"></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-353"></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-354"></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-355"></a>
+<a name="ln-356"></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-357"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">loval</span>
+<a name="ln-358"></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-359"></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-360"></a>            <span class="k">else</span>
+<a name="ln-361"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">hival</span>
+<a name="ln-362"></a>            <span class="k">end if</span>
+<a name="ln-363"></a><span class="k">            return</span>
+<a name="ln-364"></a><span class="k">         end function </span><span class="n">calc_c_star</span> 
+<a name="ln-365"></a>
+<a name="ln-366"></a>   <span class="k">end subroutine </span><span class="n">fraggle_regime_collresolve</span>
+<a name="ln-367"></a>
+<a name="ln-368"></a><span class="k">end submodule </span><span class="n">s_fraggle_regime</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/fraggle_set.f90.html b/docs/sourcefile/fraggle_set.f90.html
new file mode 100644
index 000000000..269ba7f00
--- /dev/null
+++ b/docs/sourcefile/fraggle_set.f90.html
@@ -0,0 +1,1005 @@
+<!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>fraggle_set.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>fraggle_set.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=" 1.3% of total for source files.">209 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_set.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_set.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_fraggle_set.html">s_fraggle_set</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/fraggle_set.f90.html#src">fraggle_set.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~~fraggle_set.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_setf90EfferentGraph" width="641pt" height="257pt"
+ viewBox="0.00 0.00 641.00 257.03" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_set.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 918,-365.7 918,4 -4,4"/>
+<!-- sourcefile~fraggle_set.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_set.f90</title>
+<polygon fill="none" stroke="black" points="914,-244.7 830,-244.7 830,-220.7 914,-220.7 914,-244.7"/>
+<text text-anchor="middle" x="872" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_set.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.74,-237.2C763.83,-244.4 634.38,-258.54 557.36,-266.95"/>
+<polygon fill="#000000" stroke="#000000" points="556.87,-263.48 547.31,-268.04 557.63,-270.44 556.87,-263.48"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.79,-225.14C821.39,-223.6 812.54,-221.97 804.11,-220.43"/>
+<polygon fill="#000000" stroke="#000000" points="804.56,-216.95 794.09,-218.59 803.3,-223.84 804.56,-216.95"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_set.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_set.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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_set.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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_set.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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_set.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_set.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_set.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_set.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_setf90EfferentGraph = svgPanZoom('#sourcefilefraggle_setf90EfferentGraph', {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_fraggle_set.html">s_fraggle_set</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/fraggle_set.f90.html#src">fraggle_set.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_set</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>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">fraggle_set_budgets_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">!! Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum</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="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</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">dEtot</span>
+<a name="ln-15"></a>      <span class="kt">real</span><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>
+<a name="ln-16"></a>
+<a name="ln-17"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-18"></a>
+<a name="ln-19"></a>         <span class="n">dEtot</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">Etot_after</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span> 
+<a name="ln-20"></a>         <span class="n">dL</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Ltot_before</span><span class="p">(:)</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">L_budget</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">dL</span><span class="p">(:)</span>
+<a name="ln-23"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">=</span> <span class="o">-</span><span class="p">(</span><span class="n">dEtot</span> <span class="o">-</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:),</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)))</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span> 
+<a name="ln-24"></a>
+<a name="ln-25"></a>      <span class="k">end associate</span>
+<a name="ln-26"></a><span class="k">      return</span>
+<a name="ln-27"></a><span class="k">   end subroutine </span><span class="n">fraggle_set_budgets_fragments</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">fraggle_set_mass_dist_fragments</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">!! Sets the mass of fragments based on the mass distribution returned by the regime calculation.</span>
+<a name="ln-34"></a>      <span class="c">!! This subroutine must be run after the the setup rourtine has been run on the fragments</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">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-38"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider 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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>     <span class="c">!! Current Swiftest run configuration parameters</span>
+<a name="ln-40"></a>      <span class="c">! Internals</span>
+<a name="ln-41"></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">jproj</span><span class="p">,</span> <span class="n">jtarg</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">istart</span>
+<a name="ln-42"></a>      <span class="kt">real</span><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">volume</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="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip_avg</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="kd">::</span> <span class="n">mfrag</span><span class="p">,</span> <span class="n">mremaining</span><span class="p">,</span> <span class="n">min_mfrag</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">BETA</span> <span class="o">=</span> <span class="mf">2.85_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">NFRAGMAX</span> <span class="o">=</span> <span class="mi">100</span>  <span class="c">!! Maximum number of fragments that can be generated</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">NFRAGMIN</span> <span class="o">=</span> <span class="mi">7</span> <span class="c">!! Minimum number of fragments that can be generated (set by the fraggle_generate algorithm for constraining momentum and energy)</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="k">parameter</span> <span class="kd">::</span> <span class="n">NFRAG_SIZE_MULTIPLIER</span> <span class="o">=</span> <span class="mi">3</span> <span class="c">!! Log-space scale factor that scales the number of fragments by the collisional system mass</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="k">parameter</span> <span class="kd">::</span> <span class="n">iMlr</span> <span class="o">=</span> <span class="mi">1</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">parameter</span> <span class="kd">::</span> <span class="n">iMslr</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-51"></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">iMrem</span> <span class="o">=</span> <span class="mi">3</span>
+<a name="ln-52"></a>     
+<a name="ln-53"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-54"></a>         <span class="c">! Get mass weighted mean of Ip and density</span>
+<a name="ln-55"></a>         <span class="n">volume</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">2</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">colliders</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="mi">2</span><span class="p">)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-56"></a>         <span class="n">Ip_avg</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span>
+<a name="ln-57"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">colliders</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">colliders</span><span class="p">%</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-58"></a><span class="k">            </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-59"></a>            <span class="n">jproj</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-60"></a>         <span class="k">else</span>
+<a name="ln-61"></a><span class="k">            </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-62"></a>            <span class="n">jproj</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-63"></a>         <span class="k">end if</span>
+<a name="ln-64"></a>
+<a name="ln-65"></a><span class="k">         select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-66"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-67"></a>            <span class="n">min_mfrag</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">min_GMfrag</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">)</span> 
+<a name="ln-68"></a>            <span class="c">! The number of fragments we generate is bracked by the minimum required by fraggle_generate (7) and the </span>
+<a name="ln-69"></a>            <span class="c">! maximum set by the NFRAG_SIZE_MULTIPLIER which limits the total number of fragments to prevent the nbody</span>
+<a name="ln-70"></a>            <span class="c">! code from getting an overwhelmingly large number of fragments</span>
+<a name="ln-71"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="nb">ceiling</span><span class="p">(</span><span class="n">NFRAG_SIZE_MULTIPLIER</span>  <span class="o">*</span> <span class="nb">log</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> <span class="o">/</span> <span class="n">min_mfrag</span><span class="p">))</span>
+<a name="ln-72"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</span><span class="nb">min</span><span class="p">(</span><span class="n">nfrag</span><span class="p">,</span> <span class="n">NFRAGMAX</span><span class="p">),</span> <span class="n">NFRAGMIN</span><span class="p">)</span>
+<a name="ln-73"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-74"></a>            <span class="n">min_mfrag</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-75"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAGMAX</span>
+<a name="ln-76"></a>         <span class="k">end select</span>
+<a name="ln-77"></a><span class="k">  </span>
+<a name="ln-78"></a><span class="k">         select case</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span><span class="p">)</span>
+<a name="ln-79"></a>         <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_DISRUPTION</span><span class="p">,</span> <span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span><span class="p">,</span> <span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span><span class="p">)</span>
+<a name="ln-80"></a>            <span class="c">! The first two bins of the mass_dist are the largest and second-largest fragments that came out of fraggle_regime.</span>
+<a name="ln-81"></a>            <span class="c">! The remainder from the third bin will be distributed among nfrag-2 bodies. The following code will determine nfrag based on</span>
+<a name="ln-82"></a>            <span class="c">! the limits bracketed above and the model size distribution of fragments.</span>
+<a name="ln-83"></a>            <span class="c">! Check to see if our size distribution would give us a smaller number of fragments than the maximum number</span>
+<a name="ln-84"></a>            <span class="n">i</span> <span class="o">=</span> <span class="n">iMrem</span>
+<a name="ln-85"></a>            <span class="n">mremaining</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMrem</span><span class="p">)</span>
+<a name="ln-86"></a>            <span class="k">do while</span> <span class="p">(</span><span class="n">i</span> <span class="o">&lt;=</span> <span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-87"></a>               <span class="n">mfrag</span> <span class="o">=</span> <span class="p">(</span><span class="mi">1</span> <span class="o">+</span> <span class="n">i</span> <span class="o">-</span> <span class="n">iMslr</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mf">3._DP</span> <span class="o">/</span> <span class="n">BETA</span><span class="p">)</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMslr</span><span class="p">)</span>
+<a name="ln-88"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">mremaining</span> <span class="o">-</span> <span class="n">mfrag</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-89"></a><span class="k">               </span><span class="n">mremaining</span> <span class="o">=</span> <span class="n">mremaining</span> <span class="o">-</span> <span class="n">mfrag</span>
+<a name="ln-90"></a>               <span class="n">i</span> <span class="o">=</span> <span class="n">i</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-91"></a>            <span class="k">end do</span>
+<a name="ln-92"></a><span class="k">            if</span> <span class="p">(</span><span class="n">i</span> <span class="o">&lt;</span> <span class="n">nfrag</span><span class="p">)</span> <span class="n">nfrag</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</span><span class="n">i</span><span class="p">,</span> <span class="n">NFRAGMIN</span><span class="p">)</span>  <span class="c">! The sfd would actually give us fewer fragments than our maximum</span>
+<a name="ln-93"></a>    
+<a name="ln-94"></a>            <span class="k">call </span><span class="n">frag</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-95"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_MERGE</span><span class="p">,</span> <span class="n">COLLRESOLVE_REGIME_GRAZE_AND_MERGE</span><span class="p">)</span> 
+<a name="ln-96"></a>            <span class="k">call </span><span class="n">frag</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-97"></a>            <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-98"></a>            <span class="n">frag</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">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-99"></a>            <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">/</span> <span class="n">volume</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-100"></a>            <span class="n">frag</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">colliders</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-101"></a>            <span class="k">return</span>
+<a name="ln-102"></a><span class="k">         case </span><span class="n">default</span>
+<a name="ln-103"></a>            <span class="k">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;fraggle_set_mass_dist_fragments error: Unrecognized regime code&quot;</span><span class="p">,</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span>
+<a name="ln-104"></a>         <span class="k">end select</span>
+<a name="ln-105"></a>
+<a name="ln-106"></a>         <span class="c">! Make the first two bins the same as the Mlr and Mslr values that came from fraggle_regime</span>
+<a name="ln-107"></a>         <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMlr</span><span class="p">)</span> 
+<a name="ln-108"></a>         <span class="n">frag</span><span class="p">%</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">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMslr</span><span class="p">)</span> 
+<a name="ln-109"></a>
+<a name="ln-110"></a>         <span class="c">! Distribute the remaining mass the 3:nfrag bodies following the model SFD given by slope BETA </span>
+<a name="ln-111"></a>         <span class="n">mremaining</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMrem</span><span class="p">)</span>
+<a name="ln-112"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">iMrem</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-113"></a>            <span class="n">mfrag</span> <span class="o">=</span> <span class="p">(</span><span class="mi">1</span> <span class="o">+</span> <span class="n">i</span> <span class="o">-</span> <span class="n">iMslr</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mf">3._DP</span> <span class="o">/</span> <span class="n">BETA</span><span class="p">)</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMslr</span><span class="p">)</span>
+<a name="ln-114"></a>            <span class="n">frag</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">mfrag</span>
+<a name="ln-115"></a>            <span class="n">mremaining</span> <span class="o">=</span> <span class="n">mremaining</span> <span class="o">-</span> <span class="n">mfrag</span>
+<a name="ln-116"></a>         <span class="k">end do</span>
+<a name="ln-117"></a>
+<a name="ln-118"></a>         <span class="c">! If there is any residual mass (either positive or negative) we will distribute remaining mass proportionally among the the fragments</span>
+<a name="ln-119"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">mremaining</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">! If the remainder is negative, this means that that the number of fragments required by the SFD is smaller than our lower limit set by fraggle_generate. </span>
+<a name="ln-120"></a>            <span class="n">istart</span> <span class="o">=</span> <span class="n">iMrem</span> <span class="c">! We will reduce the mass of the 3:nfrag bodies to prevent the second-largest fragment from going smaller</span>
+<a name="ln-121"></a>         <span class="k">else</span> <span class="c">! If the remainder is postiive, this means that the number of fragments required by the SFD is larger than our upper limit set by computational expediency. </span>
+<a name="ln-122"></a>            <span class="n">istart</span> <span class="o">=</span> <span class="n">iMslr</span> <span class="c">! We will increase the mass of the 2:nfrag bodies to compensate, which ensures that the second largest fragment remains the second largest</span>
+<a name="ln-123"></a>         <span class="k">end if</span>
+<a name="ln-124"></a><span class="k">         </span><span class="n">mfrag</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">+</span> <span class="n">mremaining</span> <span class="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">istart</span><span class="p">:</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-125"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">istart</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">istart</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="n">mfrag</span>
+<a name="ln-126"></a>
+<a name="ln-127"></a>         <span class="c">! There may still be some small residual due to round-off error. If so, simply add it to the last bin of the mass distribution.</span>
+<a name="ln-128"></a>         <span class="n">mremaining</span> <span class="o">=</span> <span class="n">frag</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">frag</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">nfrag</span><span class="p">))</span>
+<a name="ln-129"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="n">mremaining</span>
+<a name="ln-130"></a>
+<a name="ln-131"></a>         <span class="c">! Compute physical properties of the new fragments</span>
+<a name="ln-132"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span><span class="p">)</span>
+<a name="ln-133"></a>         <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span><span class="p">)</span>  <span class="c">! The hit and run case always preserves the largest body intact, so there is no need to recompute the physical properties of the first fragment</span>
+<a name="ln-134"></a>            <span class="n">frag</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">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-135"></a>            <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">mass_dist</span><span class="p">(</span><span class="n">iMlr</span><span class="p">)</span> <span class="o">/</span> <span class="n">volume</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-136"></a>            <span class="n">frag</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">colliders</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-137"></a>            <span class="n">istart</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-138"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-139"></a>            <span class="n">istart</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-140"></a>         <span class="k">end select</span>
+<a name="ln-141"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">density</span><span class="p">(</span><span class="n">istart</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">volume</span><span class="p">(:))</span>
+<a name="ln-142"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">istart</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">frag</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">istart</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">frag</span><span class="p">%</span><span class="n">density</span><span class="p">(</span><span class="n">istart</span><span class="p">:</span><span class="n">nfrag</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-143"></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-144"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_avg</span><span class="p">(:)</span>
+<a name="ln-145"></a>         <span class="k">end do</span>
+<a name="ln-146"></a>
+<a name="ln-147"></a><span class="k">      end associate</span>
+<a name="ln-148"></a>
+<a name="ln-149"></a><span class="k">      return</span>
+<a name="ln-150"></a><span class="k">   end subroutine </span><span class="n">fraggle_set_mass_dist_fragments</span>
+<a name="ln-151"></a>
+<a name="ln-152"></a>
+<a name="ln-153"></a>   <span class="k">module subroutine </span><span class="n">fraggle_set_coordinate_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span>
+<a name="ln-154"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-155"></a>      <span class="c">!!</span>
+<a name="ln-156"></a>      <span class="c">!! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.</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">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-160"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-161"></a>      <span class="c">! Internals</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>      <span class="kt">real</span><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">delta_r</span><span class="p">,</span> <span class="n">delta_v</span><span class="p">,</span> <span class="n">Ltot</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="kd">::</span> <span class="n">r_col_norm</span><span class="p">,</span> <span class="n">v_col_norm</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">dimension</span><span class="p">(</span><span class="n">NDIM</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">L_sigma</span>
+<a name="ln-166"></a>
+<a name="ln-167"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">nfrag</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-168"></a>         <span class="n">delta_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</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="o">-</span> <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-169"></a>         <span class="n">v_col_norm</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</span><span class="p">.</span> <span class="n">delta_v</span><span class="p">(:)</span>
+<a name="ln-170"></a>         <span class="n">delta_r</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</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="o">-</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-171"></a>         <span class="n">r_col_norm</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</span><span class="p">.</span> <span class="n">delta_r</span><span class="p">(:)</span>
+<a name="ln-172"></a>   
+<a name="ln-173"></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-174"></a>         <span class="c">! and the y-axis aligned with the pre-impact distance vector.</span>
+<a name="ln-175"></a>         <span class="n">Ltot</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span> <span class="o">+</span> <span class="n">colliders</span><span class="p">%</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">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-176"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">y_coll_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-177"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">z_coll_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(.</span><span class="n">mag</span><span class="p">.</span> <span class="n">Ltot</span><span class="p">(:))</span>
+<a name="ln-178"></a>         <span class="c">! The cross product of the y- by z-axis will give us the x-axis</span>
+<a name="ln-179"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">x_coll_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">y_coll_unit</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">frag</span><span class="p">%</span><span class="n">z_coll_unit</span><span class="p">(:)</span>
+<a name="ln-180"></a>   
+<a name="ln-181"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">any</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,:)</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-182"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">rmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</span><span class="p">.</span> <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,:)</span>
+<a name="ln-183"></a>   
+<a name="ln-184"></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-185"></a>                                          <span class="c">! otherwise we can get an ill-conditioned system</span>
+<a name="ln-186"></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> <span class="n">frag</span><span class="p">%</span><span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
+<a name="ln-187"></a>            <span class="n">frag</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> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-188"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">v_n_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">z_coll_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="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span>
+<a name="ln-189"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">v_n_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_n_unit</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">mag</span><span class="p">.</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_n_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-190"></a>            <span class="n">frag</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> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_n_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">frag</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-191"></a>            <span class="n">frag</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> <span class="o">=</span> <span class="n">frag</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> <span class="o">/</span> <span class="p">(.</span><span class="n">mag</span><span class="p">.</span> <span class="n">frag</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-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">fraggle_set_coordinate_system</span>
+<a name="ln-197"></a>
+<a name="ln-198"></a>
+<a name="ln-199"></a>   <span class="c">! module subroutine symba_set_collresolve_colliders(self, cb, pl, idx)</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">!    !! Calculate the two-body equivalent values given a set of input collider indices</span>
+<a name="ln-203"></a>   <span class="c">!    use swiftest_classes, only : swiftest_nbody_system</span>
+<a name="ln-204"></a>   <span class="c">!    implicit none</span>
+<a name="ln-205"></a>   <span class="c">!    ! Arguments</span>
+<a name="ln-206"></a>   <span class="c">!    class(fraggle_colliders),               intent(inout) :: self !! Fraggle collider object</span>
+<a name="ln-207"></a>   <span class="c">!    class(symba_cb),                     intent(in)    :: cb   !! Swiftest central body object system object</span>
+<a name="ln-208"></a>   <span class="c">!    class(symba_pl),                     intent(in)    :: pl   !! Swiftest central body object system object</span>
+<a name="ln-209"></a>   <span class="c">!    integer(I4B),             dimension(:), intent(in)    :: idx  !! Index array of bodies from the pl object to use to calculate a &quot;two-body equivalent&quot; collisional pair</span>
+<a name="ln-210"></a>   <span class="c">!    ! Internals</span>
+<a name="ln-211"></a>   <span class="c">!    real(DP), dimension(NDIM, 2)  :: mxc, vc</span>
+<a name="ln-212"></a>   <span class="c">!    real(DP), dimension(NDIM) :: vcom, xcom</span>
+<a name="ln-213"></a>
+<a name="ln-214"></a>   <span class="c">!    associate(colliders =&gt; self)</span>
+<a name="ln-215"></a>
+<a name="ln-216"></a>   <span class="c">!       ! Compute orbital angular momentum of pre-impact system</span>
+<a name="ln-217"></a>   <span class="c">!       xcom(:) = (colliders%mass(1) * colliders%xb(:, 1) + colliders%mass(2) * colliders%xb(:, 2)) / sum(colliders%mass(:))</span>
+<a name="ln-218"></a>   <span class="c">!       vcom(:) = (colliders%mass(1) * colliders%vb(:, 1) + colliders%mass(2) * colliders%vb(:, 2)) / sum(colliders%mass(:))</span>
+<a name="ln-219"></a>   <span class="c">!       mxc(:, 1) = colliders%mass(1) * (colliders%xb(:, 1) - xcom(:))</span>
+<a name="ln-220"></a>   <span class="c">!       mxc(:, 2) = colliders%mass(2) * (colliders%xb(:, 2) - xcom(:))</span>
+<a name="ln-221"></a>   <span class="c">!       vc(:, 1) = colliders%vb(:, 1) - vcom(:)</span>
+<a name="ln-222"></a>   <span class="c">!       vc(:, 2) = colliders%vb(:, 2) - vcom(:)</span>
+<a name="ln-223"></a>
+<a name="ln-224"></a>   <span class="c">!       colliders%L_orbit(:,:) = mxc(:,:) .cross. vc(:,:)</span>
+<a name="ln-225"></a>
+<a name="ln-226"></a>   <span class="c">!    end associate</span>
+<a name="ln-227"></a>
+<a name="ln-228"></a>   <span class="c">!    return</span>
+<a name="ln-229"></a>   <span class="c">! end subroutine symbe_set_collresolve_colliders</span>
+<a name="ln-230"></a>
+<a name="ln-231"></a>
+<a name="ln-232"></a>   <span class="k">module subroutine </span><span class="n">fraggle_set_natural_scale_factors</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">!! Scales dimenional quantities to ~O(1) with respect to the collisional system. </span>
+<a name="ln-236"></a>      <span class="c">!! This scaling makes it easier for the non-linear minimization to converge on a solution</span>
+<a name="ln-237"></a>      <span class="k">implicit none</span>
+<a name="ln-238"></a>      <span class="c">! Arguments</span>
+<a name="ln-239"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-240"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-241"></a>      <span class="c">! Internals</span>
+<a name="ln-242"></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-243"></a>
+<a name="ln-244"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-245"></a>         <span class="c">! Set scale factors</span>
+<a name="ln-246"></a>         <span class="n">frag</span><span class="p">%</span><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">colliders</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">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)))</span>
+<a name="ln-247"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(:))</span>
+<a name="ln-248"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> 
+<a name="ln-249"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">Escale</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span><span class="p">)</span> 
+<a name="ln-250"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">tscale</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span> 
+<a name="ln-251"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">Lscale</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span>
+<a name="ln-252"></a>
+<a name="ln-253"></a>         <span class="c">! Scale all dimensioned quantities of colliders and fragments</span>
+<a name="ln-254"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-255"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span>
+<a name="ln-256"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-257"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span>
+<a name="ln-258"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span>
+<a name="ln-259"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-260"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,:)</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">Lscale</span>
+<a name="ln-261"></a>
+<a name="ln-262"></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-263"></a>            <span class="n">colliders</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="o">=</span> <span class="n">colliders</span><span class="p">%</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">colliders</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">colliders</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">colliders</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-264"></a>         <span class="k">end do</span>
+<a name="ln-265"></a>
+<a name="ln-266"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span>
+<a name="ln-267"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span>
+<a name="ln-268"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">radius</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">radius</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-269"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">Escale</span>
+<a name="ln-270"></a>      <span class="k">end associate</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 subroutine </span><span class="n">fraggle_set_natural_scale_factors</span>
+<a name="ln-274"></a>
+<a name="ln-275"></a>
+<a name="ln-276"></a>   <span class="k">module subroutine </span><span class="n">fraggle_set_original_scale_factors</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">!! Restores dimenional quantities back to the system units</span>
+<a name="ln-280"></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-281"></a>      <span class="k">implicit none</span>
+<a name="ln-282"></a>      <span class="c">! Arguments</span>
+<a name="ln-283"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-284"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-285"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span>
+<a name="ln-287"></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>
+<a name="ln-288"></a>
+<a name="ln-289"></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-290"></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-291"></a>
+<a name="ln-292"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-293"></a>
+<a name="ln-294"></a>         <span class="c">! Restore scale factors</span>
+<a name="ln-295"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-296"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span>
+<a name="ln-297"></a>   
+<a name="ln-298"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span>
+<a name="ln-299"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-300"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-301"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span>
+<a name="ln-302"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">Lscale</span>
+<a name="ln-303"></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-304"></a>            <span class="n">colliders</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="o">=</span> <span class="n">colliders</span><span class="p">%</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">colliders</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">colliders</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">colliders</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-305"></a>         <span class="k">end do</span>
+<a name="ln-306"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">Qloss</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">Escale</span>
+<a name="ln-307"></a>   
+<a name="ln-308"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span>
+<a name="ln-309"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">mscale</span>
+<a name="ln-310"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">radius</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">radius</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-311"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">rot</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">rot</span> <span class="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">tscale</span>
+<a name="ln-312"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">x_coll</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span>
+<a name="ln-313"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">v_coll</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">v_coll</span> <span class="o">*</span> <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span>
+<a name="ln-314"></a>   
+<a name="ln-315"></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">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-316"></a>            <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span>
+<a name="ln-317"></a>            <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span>
+<a name="ln-318"></a>         <span class="k">end do</span>
+<a name="ln-319"></a><span class="k">   </span>
+<a name="ln-320"></a><span class="k">         </span><span class="n">frag</span><span class="p">%</span><span class="n">mscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-321"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-322"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">vscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-323"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">tscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-324"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">Lscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-325"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">Escale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-326"></a>      <span class="k">end associate</span>
+<a name="ln-327"></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>
+<a name="ln-328"></a>   
+<a name="ln-329"></a>      <span class="k">return</span>
+<a name="ln-330"></a><span class="k">   end subroutine </span><span class="n">fraggle_set_original_scale_factors</span>
+<a name="ln-331"></a>
+<a name="ln-332"></a>
+<a name="ln-333"></a><span class="k">end submodule </span><span class="n">s_fraggle_set</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/fraggle_setup.f90.html b/docs/sourcefile/fraggle_setup.f90.html
new file mode 100644
index 000000000..e8f8f2350
--- /dev/null
+++ b/docs/sourcefile/fraggle_setup.f90.html
@@ -0,0 +1,750 @@
+<!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>fraggle_setup.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>fraggle_setup.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.">54 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_setup.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_fraggle_setup.html">s_fraggle_setup</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/fraggle_setup.f90.html#src">fraggle_setup.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~~fraggle_setup.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_setupf90EfferentGraph" width="641pt" height="254pt"
+ viewBox="0.00 0.00 641.00 253.72" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_setup.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 930,-365.7 930,4 -4,4"/>
+<!-- sourcefile~fraggle_setup.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_setup.f90</title>
+<polygon fill="none" stroke="black" points="926,-244.7 830,-244.7 830,-220.7 926,-220.7 926,-244.7"/>
+<text text-anchor="middle" x="878" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_setup.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.84,-237.77C761.2,-245.14 633.68,-258.85 557.51,-267.03"/>
+<polygon fill="#000000" stroke="#000000" points="556.69,-263.6 547.12,-268.15 557.44,-270.56 556.69,-263.6"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.89,-224.51C821.34,-223.02 812.47,-221.48 804.07,-220.02"/>
+<polygon fill="#000000" stroke="#000000" points="804.56,-216.55 794.11,-218.28 803.36,-223.45 804.56,-216.55"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_setup.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_setup.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_setup.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_setup.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_setupf90EfferentGraph = svgPanZoom('#sourcefilefraggle_setupf90EfferentGraph', {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_fraggle_setup.html">s_fraggle_setup</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/fraggle_setup.f90.html#src">fraggle_setup.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_setup</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>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">fraggle_setup_reset_fragments</span><span class="p">(</span><span class="n">self</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">!! Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)</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="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">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-12"></a>
+<a name="ln-13"></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-14"></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-15"></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-16"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x_coll</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-17"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-18"></a>      <span class="n">self</span><span class="p">%</span><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-19"></a>      <span class="n">self</span><span class="p">%</span><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-20"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v_n_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a>      <span class="n">self</span><span class="p">%</span><span class="n">rmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-23"></a>      <span class="n">self</span><span class="p">%</span><span class="n">rotmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-24"></a>      <span class="n">self</span><span class="p">%</span><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-25"></a>      <span class="n">self</span><span class="p">%</span><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-26"></a>
+<a name="ln-27"></a>      <span class="n">self</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-28"></a>      <span class="n">self</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-29"></a>      <span class="n">self</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-30"></a>      <span class="n">self</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</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">fraggle_setup_reset_fragments</span>
+<a name="ln-34"></a>
+<a name="ln-35"></a>
+<a name="ln-36"></a>   <span class="k">module subroutine </span><span class="n">fraggle_setup_fragments</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-37"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-38"></a>      <span class="c">!!</span>
+<a name="ln-39"></a>      <span class="c">!! Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.</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">fraggle_fragments</span><span class="p">),</span>   <span class="k">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-43"></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>
+<a name="ln-44"></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>
+<a name="ln-45"></a>
+<a name="ln-46"></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-47"></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-48"></a>
+<a name="ln-49"></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">x_coll</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">x_coll</span><span class="p">)</span>
+<a name="ln-50"></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">v_coll</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">v_coll</span><span class="p">)</span>
+<a name="ln-51"></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">v_r_unit</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">v_r_unit</span><span class="p">)</span> 
+<a name="ln-52"></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">v_t_unit</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">v_t_unit</span><span class="p">)</span> 
+<a name="ln-53"></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">v_n_unit</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">v_n_unit</span><span class="p">)</span> 
+<a name="ln-54"></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">rmag</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">rmag</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">self</span><span class="p">%</span><span class="n">rotmag</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">rotmag</span><span class="p">)</span> 
+<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">v_r_mag</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">v_r_mag</span><span class="p">)</span> 
+<a name="ln-57"></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">v_t_mag</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">v_t_mag</span><span class="p">)</span> 
+<a name="ln-58"></a>
+<a name="ln-59"></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-60"></a>
+<a name="ln-61"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">x_coll</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-62"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v_coll</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-63"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</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">n</span><span class="p">))</span> 
+<a name="ln-64"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</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">n</span><span class="p">))</span> 
+<a name="ln-65"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v_n_unit</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-66"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rmag</span><span class="p">(</span><span class="n">n</span><span class="p">))</span> 
+<a name="ln-67"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rotmag</span><span class="p">(</span><span class="n">n</span><span class="p">))</span> 
+<a name="ln-68"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v_r_mag</span><span class="p">(</span><span class="n">n</span><span class="p">))</span> 
+<a name="ln-69"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v_t_mag</span><span class="p">(</span><span class="n">n</span><span class="p">))</span> 
+<a name="ln-70"></a>
+<a name="ln-71"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">reset</span><span class="p">()</span>
+<a name="ln-72"></a>
+<a name="ln-73"></a>      <span class="k">return</span>
+<a name="ln-74"></a><span class="k">   end subroutine </span><span class="n">fraggle_setup_fragments</span>
+<a name="ln-75"></a>
+<a name="ln-76"></a>   
+<a name="ln-77"></a>
+<a name="ln-78"></a><span class="k">end submodule </span><span class="n">s_fraggle_setup</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/fraggle_util.f90.html b/docs/sourcefile/fraggle_util.f90.html
new file mode 100644
index 000000000..fd1311832
--- /dev/null
+++ b/docs/sourcefile/fraggle_util.f90.html
@@ -0,0 +1,988 @@
+<!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>fraggle_util.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>fraggle_util.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=" 1.3% of total for source files.">210 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_util.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">fraggle_util.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_fraggle_util.html">s_fraggle_util</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/fraggle_util.f90.html#src">fraggle_util.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~~fraggle_util.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilefraggle_utilf90EfferentGraph" width="641pt" height="257pt"
+ viewBox="0.00 0.00 641.00 257.30" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 365.7)">
+<title>sourcefile~~fraggle_util.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-365.7 917,-365.7 917,4 -4,4"/>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<polygon fill="none" stroke="black" points="913,-244.7 830,-244.7 830,-220.7 913,-220.7 913,-244.7"/>
+<text text-anchor="middle" x="871.5" y="-230.3" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_util.f90</text>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="547,-285.7 442,-285.7 442,-261.7 547,-261.7 547,-285.7"/>
+<text text-anchor="middle" x="494.5" y="-271.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.65,-237.17C763.89,-244.36 634.13,-258.54 557.09,-266.97"/>
+<polygon fill="#000000" stroke="#000000" points="556.6,-263.5 547.04,-268.06 557.36,-270.46 556.6,-263.5"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-224.7 728,-224.7 728,-200.7 794,-200.7 794,-224.7"/>
+<text text-anchor="middle" x="761" y="-210.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.79,-225.2C821.41,-223.65 812.57,-222.02 804.14,-220.47"/>
+<polygon fill="#000000" stroke="#000000" points="804.59,-216.99 794.12,-218.62 803.32,-223.88 804.59,-216.99"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-207.7 143.5,-207.7 143.5,-183.7 250.5,-183.7 250.5,-207.7"/>
+<text text-anchor="middle" x="197" y="-193.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-274.39C414.08,-274.42 379.12,-273.87 348,-271.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C296.86,-268.27 247.51,-235.68 220.04,-214.3"/>
+<polygon fill="#000000" stroke="#000000" points="221.91,-211.32 211.92,-207.81 217.54,-216.79 221.91,-211.32"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-167.7 0,-167.7 0,-143.7 106,-143.7 106,-167.7"/>
+<text text-anchor="middle" x="53" y="-153.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-309.7C133.55,-282.43 86.44,-212.57 65.68,-177.08"/>
+<polygon fill="#000000" stroke="#000000" points="68.52,-175 60.53,-168.05 62.44,-178.47 68.52,-175"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-271.7C278.25,-266.96 260.24,-336.88 198,-309.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C603.13,-238.87 566.47,-249.43 538.9,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.56,-255.15 529.17,-261.62 539.76,-261.8 537.56,-255.15"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-233.7C502.08,-254.52 342.57,-228.01 257.86,-209.93"/>
+<polygon fill="#000000" stroke="#000000" points="258.43,-206.47 247.91,-207.77 256.94,-213.31 258.43,-206.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M727.79,-218.43C703.32,-222.74 668.81,-228.74 638.5,-233.7"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-129.7 300,-129.7 300,-105.7 394,-105.7 394,-129.7"/>
+<text text-anchor="middle" x="347" y="-115.3" 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~~fraggle_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C596.2,-98.55 476.3,-105.76 404.38,-112.06"/>
+<polygon fill="#000000" stroke="#000000" points="403.78,-108.6 394.14,-112.98 404.41,-115.57 403.78,-108.6"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-88.7 142,-88.7 142,-64.7 252,-64.7 252,-88.7"/>
+<text text-anchor="middle" x="197" y="-74.3" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.01,-200.42C729.22,-179.2 685.3,-136 638.5,-115.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M636.5,-115.7C592.34,-96.55 593,-68.88 547,-54.7 445.26,-23.32 319.13,-45.26 249.77,-62.19"/>
+<polygon fill="#000000" stroke="#000000" points="248.81,-58.82 239.96,-64.65 250.51,-65.61 248.81,-58.82"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="542,-87.7 447,-87.7 447,-63.7 542,-63.7 542,-87.7"/>
+<text text-anchor="middle" x="494.5" y="-73.3" 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~~fraggle_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="M636.5,-115.7C609.51,-104.21 578.24,-94.96 552.01,-88.26"/>
+<polygon fill="#000000" stroke="#000000" points="552.78,-84.84 542.23,-85.82 551.08,-91.63 552.78,-84.84"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.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="M748.2,-224.84C712.94,-259.68 604.11,-357.03 495.5,-349.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C453.65,-353.1 445.46,-335.2 406,-328.7 314.41,-313.61 283.07,-346.85 198,-309.7"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-48.7 583,-48.7 583,-24.7 692,-24.7 692,-48.7"/>
+<text text-anchor="middle" x="637.5" y="-34.3" 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~~fraggle_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="M753.37,-200.69C741.77,-179.94 716.66,-136.3 692,-101.7 680.73,-85.88 666.74,-68.97 655.9,-56.36"/>
+<polygon fill="#000000" stroke="#000000" points="658.49,-54.01 649.28,-48.76 653.2,-58.6 658.49,-54.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="541.5,-167.7 447.5,-167.7 447.5,-143.7 541.5,-143.7 541.5,-167.7"/>
+<text text-anchor="middle" x="494.5" y="-153.3" 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~~fraggle_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="M636.5,-115.7C617.77,-107.73 567.4,-125.34 532.24,-139.67"/>
+<polygon fill="#000000" stroke="#000000" points="530.66,-136.54 522.76,-143.6 533.34,-143 530.66,-136.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="689,-205.7 586,-205.7 586,-181.7 689,-181.7 689,-205.7"/>
+<text text-anchor="middle" x="637.5" y="-191.3" 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~~fraggle_util.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="M727.76,-207.66C718.99,-206.29 709.2,-204.76 699.41,-203.22"/>
+<polygon fill="#000000" stroke="#000000" points="699.66,-199.72 689.24,-201.63 698.58,-206.64 699.66,-199.72"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fraggle_util.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-361.7 288,-361.7 288,-337.7 406,-337.7 406,-361.7"/>
+<text text-anchor="middle" x="347" y="-347.3" 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~~fraggle_util.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M493.5,-349.7C468.36,-348 440.72,-347.63 416.35,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="416.08,-344.31 406.12,-347.91 416.15,-351.31 416.08,-344.31"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M153.4,-183.7C138.79,-179.58 122.26,-174.93 106.93,-170.61"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-167.17 97.07,-167.83 105.74,-173.91 107.64,-167.17"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-129.79C306.76,-133.84 296.79,-138.62 288,-143.7 270.91,-153.57 268.96,-159.6 252,-169.7 246.49,-172.98 240.49,-176.19 234.57,-179.18"/>
+<polygon fill="#000000" stroke="#000000" points="232.86,-176.12 225.41,-183.65 235.93,-182.41 232.86,-176.12"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-129.8C284.05,-139.95 238.78,-153.19 198,-155.7"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-88.87C150.18,-102.19 111.63,-123.64 84.68,-138.63"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-135.72 75.67,-143.64 86.11,-141.84 82.71,-135.72"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.81,-87.74C435.52,-92.44 416.68,-97.87 399.55,-102.82"/>
+<polygon fill="#000000" stroke="#000000" points="398.34,-99.53 389.7,-105.66 400.28,-106.25 398.34,-99.53"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.83,-74.25C404.26,-74.35 340.22,-78.17 288,-96.7 242.93,-112.7 245.74,-152.77 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-155.7C169.93,-157.11 141.13,-157.35 116.31,-157.15"/>
+<polygon fill="#000000" stroke="#000000" points="116.34,-153.65 106.3,-157.05 116.26,-160.65 116.34,-153.65"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_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="M589.78,-24.69C496.9,-3.61 285.6,30.18 142,-55.7 108.86,-75.52 81.51,-112.03 66.5,-135.03"/>
+<polygon fill="#000000" stroke="#000000" points="63.41,-133.36 61.01,-143.68 69.32,-137.11 63.41,-133.36"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C309.65,-160.12 269.72,-170.88 240.5,-180.33"/>
+<polygon fill="#000000" stroke="#000000" points="239.03,-177.13 230.64,-183.6 241.23,-183.78 239.03,-177.13"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.46,-143.68C433.66,-140.07 418.37,-136.08 404.01,-132.33"/>
+<polygon fill="#000000" stroke="#000000" points="404.8,-128.92 394.24,-129.78 403.03,-135.69 404.8,-128.92"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-157.7C280.36,-162.07 263.66,-151.67 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.25,-155.09C418.63,-155.02 381.15,-155.49 348,-157.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-205.75C601.59,-209.97 591.78,-214.87 583,-219.7 562.41,-231.02 539.86,-244.97 522.81,-255.86"/>
+<polygon fill="#000000" stroke="#000000" points="520.47,-253.21 513.95,-261.56 524.26,-259.09 520.47,-253.21"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C318.16,-193.85 287.31,-193.57 261.01,-193.86"/>
+<polygon fill="#000000" stroke="#000000" points="260.75,-190.36 250.8,-194 260.85,-197.36 260.75,-190.36"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M621.94,-181.52C597.35,-160.94 547.41,-119.15 518.19,-94.69"/>
+<polygon fill="#000000" stroke="#000000" points="520.11,-91.73 510.19,-87.99 515.61,-97.1 520.11,-91.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-195.7C278.01,-191.19 266.04,-152.02 198,-155.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.88,-196.29C528.22,-198.72 431.21,-201.22 348,-195.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.89,-181.68C578.64,-178.11 563.98,-174.16 550.18,-170.44"/>
+<polygon fill="#000000" stroke="#000000" points="550.87,-167 540.31,-167.78 549.05,-173.76 550.87,-167"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fraggle_util.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.73,-338.15C259.91,-331.59 226.54,-322.16 198,-309.7"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilefraggle_utilf90EfferentGraph = svgPanZoom('#sourcefilefraggle_utilf90EfferentGraph', {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_fraggle_util.html">s_fraggle_util</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/fraggle_util.f90.html#src">fraggle_util.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">fraggle_classes</span><span class="p">)</span> <span class="n">s_fraggle_util</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>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">fraggle_util_add_fragments_to_system</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</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">!! Adds fragments to the temporary system pl object</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="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</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 swiftest 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">npl_before</span><span class="p">,</span> <span class="n">npl_after</span>
+<a name="ln-17"></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-18"></a>
+<a name="ln-19"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</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">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-20"></a>         <span class="n">npl_after</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-21"></a>         <span class="n">npl_before</span> <span class="o">=</span> <span class="n">npl_after</span> <span class="o">-</span> <span class="n">nfrag</span>
+<a name="ln-22"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lexclude</span><span class="p">(</span><span class="n">npl_after</span><span class="p">))</span>
+<a name="ln-23"></a>
+<a name="ln-24"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-25"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-26"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</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-27"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-28"></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-29"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">npl_before</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">frag</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-30"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">npl_before</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">frag</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-31"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">npl_before</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">frag</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-32"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">npl_before</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">frag</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-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">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-35"></a><span class="k">            </span><span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-36"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-37"></a>         <span class="k">end if</span>
+<a name="ln-38"></a>         <span class="c">! This will remove the colliders from the system since we&#39;ve replaced them with fragments</span>
+<a name="ln-39"></a>         <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</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-40"></a>         <span class="n">lexclude</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">colliders</span><span class="p">%</span><span class="n">ncoll</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-41"></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_after</span><span class="p">))</span> 
+<a name="ln-42"></a>            <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_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-43"></a>         <span class="n">elsewhere</span>
+<a name="ln-44"></a>            <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_after</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-45"></a>         <span class="n">endwhere</span>
+<a name="ln-46"></a>
+<a name="ln-47"></a>      <span class="k">end associate</span>
+<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">fraggle_util_add_fragments_to_system</span>
+<a name="ln-51"></a>   
+<a name="ln-52"></a>
+<a name="ln-53"></a>   <span class="k">module subroutine </span><span class="n">fraggle_util_ang_mtm</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> 
+<a name="ln-54"></a>      <span class="c">!! Author: David A. Minton</span>
+<a name="ln-55"></a>      <span class="c">!!</span>
+<a name="ln-56"></a>      <span class="c">!! Calcualtes the current angular momentum of the fragments</span>
+<a name="ln-57"></a>      <span class="k">implicit none</span>
+<a name="ln-58"></a>      <span class="c">! Arguments</span>
+<a name="ln-59"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-60"></a>      <span class="c">! Internals</span>
+<a name="ln-61"></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-62"></a>
+<a name="ln-63"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">nfrag</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-64"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-65"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-66"></a>   
+<a name="ln-67"></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-68"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">frag</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="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">x_coll</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">frag</span><span class="p">%</span><span class="n">v_coll</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-69"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">frag</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">frag</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">frag</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">frag</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-70"></a>         <span class="k">end do</span>
+<a name="ln-71"></a><span class="k">      end associate</span>
+<a name="ln-72"></a>
+<a name="ln-73"></a><span class="k">      return</span>
+<a name="ln-74"></a><span class="k">   end subroutine </span><span class="n">fraggle_util_ang_mtm</span>
+<a name="ln-75"></a>
+<a name="ln-76"></a>
+<a name="ln-77"></a>   <span class="k">module subroutine </span><span class="n">fraggle_util_construct_temporary_system</span><span class="p">(</span><span class="n">frag</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">tmpsys</span><span class="p">,</span> <span class="n">tmpparam</span><span class="p">)</span>
+<a name="ln-78"></a>      <span class="c">!! Author: David A. Minton</span>
+<a name="ln-79"></a>      <span class="c">!!</span>
+<a name="ln-80"></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-81"></a>      <span class="c">!! and optionally including fragments.</span>
+<a name="ln-82"></a>      <span class="k">implicit none</span>
+<a name="ln-83"></a>      <span class="c">! Arguments</span>
+<a name="ln-84"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">frag</span>     <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-85"></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="nb">system</span>   <span class="c">!! Original swiftest nbody system object</span>
+<a name="ln-86"></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 swiftest run configuration parameters</span>
+<a name="ln-87"></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">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tmpsys</span>   <span class="c">!! Output temporary swiftest nbody system object</span>
+<a name="ln-88"></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="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">tmpparam</span> <span class="c">!! Output temporary configuration run parameters</span>
+<a name="ln-89"></a>      <span class="c">! Internals</span>
+<a name="ln-90"></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">linclude</span>
+<a name="ln-91"></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">npl_tot</span>
+<a name="ln-92"></a>
+<a name="ln-93"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nfrag</span> <span class="o">=&gt;</span> <span class="n">frag</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">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-94"></a>         <span class="c">! Set up a new system based on the original</span>
+<a name="ln-95"></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-96"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">)</span>
+<a name="ln-97"></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-98"></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">tmpparam</span><span class="p">)</span>
+<a name="ln-99"></a>
+<a name="ln-100"></a>         <span class="c">! No test particles necessary for energy/momentum calcs</span>
+<a name="ln-101"></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-102"></a>
+<a name="ln-103"></a>         <span class="c">! Replace the empty central body object with a copy of the original</span>
+<a name="ln-104"></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-105"></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-106"></a>
+<a name="ln-107"></a>         <span class="c">! Make space for the fragments</span>
+<a name="ln-108"></a>         <span class="n">npl_tot</span> <span class="o">=</span> <span class="n">npl</span> <span class="o">+</span> <span class="n">nfrag</span>
+<a name="ln-109"></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_tot</span><span class="p">,</span> <span class="n">tmpparam</span><span class="p">)</span>
+<a name="ln-110"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">linclude</span><span class="p">(</span><span class="n">npl_tot</span><span class="p">))</span>
+<a name="ln-111"></a>
+<a name="ln-112"></a>         <span class="c">! Fill up the temporary system with all of the original bodies, leaving the spaces for fragments empty until we add them in later</span>
+<a name="ln-113"></a>         <span class="n">linclude</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-114"></a>         <span class="n">linclude</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_tot</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-115"></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">linclude</span><span class="p">)</span>
+<a name="ln-116"></a>
+<a name="ln-117"></a>         <span class="c">! Scale the temporary system to the natural units of the current Fraggle calculation</span>
+<a name="ln-118"></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">frag</span><span class="p">%</span><span class="n">mscale</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">dscale</span><span class="p">,</span> <span class="n">frag</span><span class="p">%</span><span class="n">tscale</span><span class="p">)</span>
+<a name="ln-119"></a>
+<a name="ln-120"></a>      <span class="k">end associate</span>
+<a name="ln-121"></a>
+<a name="ln-122"></a><span class="k">      return</span>
+<a name="ln-123"></a><span class="k">   end subroutine </span><span class="n">fraggle_util_construct_temporary_system</span>
+<a name="ln-124"></a>
+<a name="ln-125"></a>
+<a name="ln-126"></a>   <span class="k">module subroutine </span><span class="n">fraggle_util_get_energy_momentum</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</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">lbefore</span><span class="p">)</span>
+<a name="ln-127"></a>      <span class="c">!! Author: David A. Minton</span>
+<a name="ln-128"></a>      <span class="c">!!</span>
+<a name="ln-129"></a>      <span class="c">!! Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)</span>
+<a name="ln-130"></a>      <span class="c">!! This subrourtine works by building a temporary internal massive body object out of the non-excluded bodies and optionally with fragments appended. </span>
+<a name="ln-131"></a>      <span class="c">!! 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. </span>
+<a name="ln-132"></a>      <span class="c">!! This will temporarily expand the massive body object in a temporary system object called tmpsys to feed it into symba_energy</span>
+<a name="ln-133"></a>      <span class="k">implicit none</span>
+<a name="ln-134"></a>      <span class="c">! Arguments</span>
+<a name="ln-135"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-136"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle collider system object</span>
+<a name="ln-137"></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-138"></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 swiftest run configuration parameters</span>
+<a name="ln-139"></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">lbefore</span>   <span class="c">!! Flag indicating that this the &quot;before&quot; state of the system, with colliders included and fragments excluded or vice versa</span>
+<a name="ln-140"></a>      <span class="c">! Internals</span>
+<a name="ln-141"></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-142"></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-143"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lk_plpl</span>
+<a name="ln-144"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span> <span class="kd">::</span> <span class="n">ladd_frags</span>
+<a name="ln-145"></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">save</span> <span class="kd">::</span> <span class="n">tmpsys</span>
+<a name="ln-146"></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="p">,</span> <span class="k">save</span>   <span class="kd">::</span> <span class="n">tmpparam</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">npl_before</span><span class="p">,</span> <span class="n">npl_after</span>
+<a name="ln-148"></a>
+<a name="ln-149"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">nfrag</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">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">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-150"></a>
+<a name="ln-151"></a>         <span class="c">! Because we&#39;re making a copy of the massive body object with the excludes/fragments appended, we need to deallocate the</span>
+<a name="ln-152"></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-153"></a>         <span class="c">! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this</span>
+<a name="ln-154"></a>         <span class="c">! subroutine should be called relatively infrequently, it shouldn&#39;t matter too much.</span>
+<a name="ln-155"></a>
+<a name="ln-156"></a>         <span class="n">npl_before</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-157"></a>         <span class="n">npl_after</span> <span class="o">=</span> <span class="n">npl_before</span> <span class="o">+</span> <span class="n">nfrag</span>
+<a name="ln-158"></a>
+<a name="ln-159"></a>         <span class="c">! Build the exluded body logical mask</span>
+<a name="ln-160"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lexclude</span><span class="p">(</span><span class="n">npl_after</span><span class="p">))</span>
+<a name="ln-161"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lbefore</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-162"></a><span class="k">            </span><span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_before</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-163"></a>            <span class="n">lexclude</span><span class="p">(</span><span class="n">npl_before</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</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-164"></a>            <span class="k">call </span><span class="n">fraggle_util_construct_temporary_system</span><span class="p">(</span><span class="n">frag</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">tmpsys</span><span class="p">,</span> <span class="n">tmpparam</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">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_after</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-167"></a>            <span class="n">lexclude</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">colliders</span><span class="p">%</span><span class="n">ncoll</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-168"></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">tmpsys</span><span class="p">))</span> <span class="k">then</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;Error in fraggle_util_get_energy_momentum. This must be called with lbefore=.true. at least once before calling it with lbefore=.false.&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 if</span>
+<a name="ln-172"></a><span class="k">            call </span><span class="n">fraggle_util_add_fragments_to_system</span><span class="p">(</span><span class="n">frag</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">tmpsys</span><span class="p">,</span> <span class="n">tmpparam</span><span class="p">)</span>
+<a name="ln-173"></a>         <span class="k">end if </span>
+<a name="ln-174"></a>
+<a name="ln-175"></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="nb">index</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-176"></a>
+<a name="ln-177"></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-178"></a>
+<a name="ln-179"></a>
+<a name="ln-180"></a>         <span class="c">! Calculate the current fragment energy and momentum balances</span>
+<a name="ln-181"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lbefore</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-182"></a><span class="k">            </span><span class="n">frag</span><span class="p">%</span><span class="n">Lorbit_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>
+<a name="ln-183"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">Lspin_before</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-184"></a>            <span class="n">frag</span><span class="p">%</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">Ltot</span><span class="p">(:)</span>
+<a name="ln-185"></a>            <span class="n">frag</span><span class="p">%</span><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-186"></a>            <span class="n">frag</span><span class="p">%</span><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-187"></a>            <span class="n">frag</span><span class="p">%</span><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-188"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">Etot_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">te</span>
+<a name="ln-189"></a>         <span class="k">else</span>
+<a name="ln-190"></a><span class="k">            </span><span class="n">frag</span><span class="p">%</span><span class="n">Lorbit_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>
+<a name="ln-191"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">Lspin_after</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-192"></a>            <span class="n">frag</span><span class="p">%</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">Ltot</span><span class="p">(:)</span>
+<a name="ln-193"></a>            <span class="n">frag</span><span class="p">%</span><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-194"></a>            <span class="n">frag</span><span class="p">%</span><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-195"></a>            <span class="n">frag</span><span class="p">%</span><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-196"></a>            <span class="n">frag</span><span class="p">%</span><span class="n">Etot_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">te</span>
+<a name="ln-197"></a>         <span class="k">end if</span>
+<a name="ln-198"></a><span class="k">      end associate</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">fraggle_util_get_energy_momentum</span>
+<a name="ln-202"></a>
+<a name="ln-203"></a>
+<a name="ln-204"></a>   <span class="k">module subroutine </span><span class="n">fraggle_util_restructure</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">colliders</span><span class="p">,</span> <span class="n">try</span><span class="p">,</span> <span class="n">f_spin</span><span class="p">,</span> <span class="n">r_max_start</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">!! Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints</span>
+<a name="ln-208"></a>      <span class="k">implicit none</span>
+<a name="ln-209"></a>      <span class="c">! Arguments</span>
+<a name="ln-210"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Fraggle fragment system object</span>
+<a name="ln-211"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">colliders</span>   <span class="c">!! Fraggle collider system object</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">try</span>         <span class="c">!! The current number of times Fraggle has tried to find a solution</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="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">f_spin</span>      <span class="c">!! Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">r_max_start</span> <span class="c">!! The maximum radial distance that the position calculation starts with. This increases after a failed attempt</span>
+<a name="ln-215"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span>
+<a name="ln-217"></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">ke_tot_deficit</span><span class="p">,</span> <span class="n">r_max_start_old</span><span class="p">,</span> <span class="n">ke_avg_deficit_old</span>
+<a name="ln-218"></a>      <span class="kt">real</span><span 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-219"></a>      <span class="kt">real</span><span 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-220"></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><span class="p">,</span> <span class="n">ke_avg_deficit</span>
+<a name="ln-221"></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-222"></a>
+<a name="ln-223"></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-224"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">frag</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-225"></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-226"></a>         <span class="n">delta_r_max</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">colliders</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-227"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">try</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-228"></a><span class="k">            </span><span class="n">ke_tot_deficit</span> <span class="o">=</span> <span class="o">-</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span><span class="p">)</span>
+<a name="ln-229"></a>            <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="n">ke_tot_deficit</span>
+<a name="ln-230"></a>            <span class="n">delta_r</span> <span class="o">=</span> <span class="n">delta_r_max</span>
+<a name="ln-231"></a>         <span class="k">else</span>
+<a name="ln-232"></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-233"></a>            <span class="n">ke_tot_deficit</span> <span class="o">=</span> <span class="n">ke_tot_deficit</span> <span class="o">-</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">ke_budget</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">-</span> <span class="n">frag</span><span class="p">%</span><span class="n">ke_spin</span><span class="p">)</span>
+<a name="ln-234"></a>            <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="n">ke_tot_deficit</span> <span class="o">/</span> <span class="n">try</span>
+<a name="ln-235"></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-236"></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-237"></a>         <span class="k">end if</span>
+<a name="ln-238"></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-239"></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-240"></a>         <span class="n">ke_avg_deficit_old</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span>
+<a name="ln-241"></a>   
+<a name="ln-242"></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> <span class="c">! Try reducing the fraction in spin</span>
+<a name="ln-243"></a>            <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-244"></a>         <span class="k">else</span>
+<a name="ln-245"></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-246"></a>         <span class="k">end if</span>
+<a name="ln-247"></a><span class="k">      end associate </span>
+<a name="ln-248"></a>
+<a name="ln-249"></a><span class="k">      return</span>
+<a name="ln-250"></a><span class="k">   end subroutine </span><span class="n">fraggle_util_restructure</span>
+<a name="ln-251"></a>
+<a name="ln-252"></a>
+<a name="ln-253"></a>   <span class="k">module subroutine </span><span class="n">fraggle_util_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-254"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-255"></a>      <span class="c">!!</span>
+<a name="ln-256"></a>      <span class="c">!! Adjusts the position or velocity of the fragments as needed to align them with the origin</span>
+<a name="ln-257"></a>      <span class="k">implicit none</span>
+<a name="ln-258"></a>      <span class="c">! Arguments</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="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-260"></a>      <span class="kt">real</span><span 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-261"></a>
+<a name="ln-262"></a>      <span class="c">! Internals</span>
+<a name="ln-263"></a>      <span class="kt">real</span><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-264"></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>
+<a name="ln-265"></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-266"></a>
+<a name="ln-267"></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-268"></a>      <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-269"></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-270"></a>
+<a name="ln-271"></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-272"></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-273"></a>      <span class="k">end do</span>
+<a name="ln-274"></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-275"></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-276"></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-277"></a>      <span class="k">end do</span>
+<a name="ln-278"></a>
+<a name="ln-279"></a><span class="k">      return</span>
+<a name="ln-280"></a><span class="k">   end subroutine </span><span class="n">fraggle_util_shift_vector_to_origin</span>
+<a name="ln-281"></a>
+<a name="ln-282"></a>
+<a name="ln-283"></a>   <span class="k">module function </span><span class="n">fraggle_util_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-284"></a>      <span class="c">!! Author: David A. Minton</span>
+<a name="ln-285"></a>      <span class="c">!!</span>
+<a name="ln-286"></a>      <span class="c">!! Converts radial and tangential velocity magnitudes into barycentric velocity</span>
+<a name="ln-287"></a>      <span class="k">implicit none</span>
+<a name="ln-288"></a>      <span class="c">! Arguments</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">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-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">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-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">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-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">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-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">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-294"></a>      <span class="c">! Result</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">allocatable</span>   <span class="kd">::</span> <span class="n">vb</span>
+<a name="ln-296"></a>      <span class="c">! Internals</span>
+<a name="ln-297"></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>
+<a name="ln-298"></a>
+<a name="ln-299"></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-300"></a>      <span class="c">! Make sure the velocity magnitude stays positive</span>
+<a name="ln-301"></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-302"></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-303"></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-304"></a>      <span class="k">end do</span>
+<a name="ln-305"></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-306"></a>      <span class="k">call </span><span class="n">fraggle_util_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-307"></a>      
+<a name="ln-308"></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-309"></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-310"></a>      <span class="k">end do</span>
+<a name="ln-311"></a>
+<a name="ln-312"></a><span class="k">      return</span>
+<a name="ln-313"></a><span class="k">   end function </span><span class="n">fraggle_util_vmag_to_vb</span>
+<a name="ln-314"></a>
+<a name="ln-315"></a>
+<a name="ln-316"></a><span class="k">end submodule </span><span class="n">s_fraggle_util</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/fragmentation.f90.html b/docs/sourcefile/fragmentation.f90.html
deleted file mode 100644
index 8581cdc7a..000000000
--- a/docs/sourcefile/fragmentation.f90.html
+++ /dev/null
@@ -1,1796 +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>fragmentation.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>fragmentation.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=" 5.8% of total for source files.">784 statements</a>
-     </li> 
-     
-     
-     
-    <li><i class="fa fa-code"></i><a href="../src/fragmentation.f90"> Source File</a></li>
-     
-     
-  </ul>
-  <ol class="breadcrumb in-well text-right">
-  
-    
-  
-     <li class="active">fragmentation.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_fragmentation.html">s_fragmentation</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/fragmentation.f90.html#src">fragmentation.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~~fragmentation.f90~~EfferentGraph Pages: 1 -->
-<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,-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,-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_node2" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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_edge1" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<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 -->
-<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~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_node10" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<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_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~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~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_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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_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~~fragmentation.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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~~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_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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,-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~~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~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.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~fragmentation.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~~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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~fragmentation.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~~fragmentation.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~~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~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="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~~fragmentation.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~~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~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~~fragmentation.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~~fragmentation.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~~fragmentation.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~~fragmentation.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 pansourcefilefragmentationf90EfferentGraph = svgPanZoom('#sourcefilefragmentationf90EfferentGraph', {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_fragmentation.html">s_fragmentation</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/fragmentation.f90.html#src">fragmentation.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_fragmentation</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>
-<a name="ln-5"></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-6"></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-7"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-8"></a>      <span class="c">!!</span>
-<a name="ln-9"></a>      <span class="c">!! Initialize the position and velocity of fragments to conserve energy and momentum.</span>
-<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> <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">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><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>
-<a name="ln-32"></a>      <span class="kt">real</span><span 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">rmag</span><span class="p">,</span> <span class="n">rotmag</span><span class="p">,</span> <span class="n">v_r_mag</span><span class="p">,</span> <span class="n">v_t_mag</span>
-<a name="ln-33"></a>      <span class="kt">real</span><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_before</span>
-<a name="ln-34"></a>      <span class="kt">real</span><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_after</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">Etot_before</span><span class="p">,</span> <span class="n">ke_orbit_before</span><span class="p">,</span> <span class="n">ke_spin_before</span><span class="p">,</span> <span class="n">pe_before</span><span class="p">,</span> <span class="n">Lmag_before</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">Etot_after</span><span class="p">,</span>  <span class="n">ke_orbit_after</span><span class="p">,</span>  <span class="n">ke_spin_after</span><span class="p">,</span>  <span class="n">pe_after</span><span class="p">,</span>  <span class="n">Lmag_after</span><span class="p">,</span> <span class="n">dEtot</span><span class="p">,</span> <span class="n">dLmag</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="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">L_frag_tot</span><span class="p">,</span> <span class="n">L_frag_orb</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">ke_frag_budget</span><span class="p">,</span> <span class="n">ke_frag_orbit</span><span class="p">,</span> <span class="n">ke_radial</span><span class="p">,</span> <span class="n">ke_frag_spin</span><span class="p">,</span> <span class="n">ke_avg_deficit</span><span class="p">,</span> <span class="n">ke_avg_deficit_old</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">x_col_unit</span><span class="p">,</span> <span class="n">y_col_unit</span><span class="p">,</span> <span class="n">z_col_unit</span>
-<a name="ln-40"></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">fmtlabel</span> <span class="o">=</span> <span class="s2">&quot;(A14,10(ES11.4,1X,:))&quot;</span>
-<a name="ln-41"></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">try</span><span class="p">,</span> <span class="n">subtry</span>
-<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-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>      <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">            </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>
-<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>
-<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="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">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="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="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="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="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="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">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">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>         <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_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 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>
-    </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/gr.f90.html b/docs/sourcefile/gr.f90.html
index ca86bbad7..9c1e91515 100644
--- a/docs/sourcefile/gr.f90.html
+++ b/docs/sourcefile/gr.f90.html
@@ -134,7 +134,7 @@ <h1>gr.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.2% of total for source files.">158 statements</a>
+    title=" 1.0% of total for source files.">158 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefilegrf90EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.42" 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 412.12)">
 <title>sourcefile~~gr.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 878,-412.12 878,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,-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>
+<polygon fill="none" stroke="black" points="874,-133.12 820,-133.12 820,-109.12 874,-109.12 874,-133.12"/>
+<text text-anchor="middle" x="847" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">gr.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.44,-109.09C789.3,-87.43 705.41,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.09,-133.4C818.2,-149.8 789.87,-179.03 771.01,-198.5"/>
+<polygon fill="#000000" stroke="#000000" points="768.25,-196.32 763.81,-205.93 773.28,-201.19 768.25,-196.32"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~gr.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~gr.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~gr.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~gr.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~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,-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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~gr.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_classes.f90.html b/docs/sourcefile/helio_classes.f90.html
index a9fef7b81..ff7cb3f44 100644
--- a/docs/sourcefile/helio_classes.f90.html
+++ b/docs/sourcefile/helio_classes.f90.html
@@ -134,7 +134,7 @@ <h1>helio_classes.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.">192 statements</a>
+    title=" 1.1% of total for source files.">173 statements</a>
      </li> 
      
      
@@ -351,1020 +351,1134 @@ <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="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)">
+<svg id="sourcefilehelio_classesf90AfferentGraph" width="543pt" height="2804pt"
+ viewBox="0.00 0.00 543.00 2804.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 2800)">
 <title>sourcefile~~helio_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 539,-2464 539,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 539,-2800 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,-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>
+<polygon fill="none" stroke="black" points="94,-1368 0,-1368 0,-1344 94,-1344 94,-1368"/>
+<text text-anchor="middle" x="47" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes.f90</text>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node2" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-2796 413.5,-2796 413.5,-2772 492.5,-2772 492.5,-2796"/>
+<text text-anchor="middle" x="453" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_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="M414.4,-2438.63C400.7,-2435.12 385.11,-2431.01 371,-2427 340.57,-2418.36 334.63,-2406 303,-2406"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.35,-2778.86C381.88,-2773.37 337.23,-2762.53 303,-2742"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node3" class="node">
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node8" class="node">
 <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>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="335,-1368 269,-1368 269,-1344 335,-1344 335,-1368"/>
+<text text-anchor="middle" x="302" y="-1353.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_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~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"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.27,-2783.46C397.75,-2781.12 381.17,-2775.51 371,-2763 325.38,-2706.89 306.01,-1553.09 303.33,-1378.15"/>
+<polygon fill="#000000" stroke="#000000" points="306.83,-1378.01 303.18,-1368.06 299.83,-1378.11 306.83,-1378.01"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~helio_gr.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-2754 419,-2754 419,-2730 487,-2730 487,-2754"/>
+<text text-anchor="middle" x="453" y="-2739.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~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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge2" 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.92,-2751.18C386.9,-2758.06 338.16,-2763.09 303,-2742"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M418.68,-2742.15C401.73,-2740.33 382.38,-2734.97 371,-2721 326.76,-2666.68 306.27,-1550.64 303.36,-1378.27"/>
+<polygon fill="#000000" stroke="#000000" points="306.86,-1378.05 303.19,-1368.11 299.86,-1378.16 306.86,-1378.05"/>
+</g>
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-2712 414.5,-2712 414.5,-2688 491.5,-2688 491.5,-2712"/>
+<text text-anchor="middle" x="453" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge3" 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.41,-2406C383.33,-2406 340.51,-2406 303,-2406"/>
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.4,-2709.37C400.7,-2712.88 385.11,-2716.99 371,-2721 340.57,-2729.64 330.13,-2758.27 303,-2742"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.13,-2699.57C398.37,-2697.3 381.38,-2691.72 371,-2679 328.15,-2626.46 306.54,-1547.97 303.4,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="306.9,-1378.07 303.21,-1368.13 299.9,-1378.2 306.9,-1378.07"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node5" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-2670 414.5,-2670 414.5,-2646 491.5,-2646 491.5,-2670"/>
+<text text-anchor="middle" x="453" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge4" class="edge">
-<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"/>
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.26,-2663.75C400.11,-2666.93 384.26,-2671.75 371,-2679 334.85,-2698.77 344.1,-2739.16 303,-2742"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2742C156.47,-2752 62.76,-1556.4 49.6,-1378.12"/>
+<polygon fill="#000000" stroke="#000000" points="53.08,-1377.79 48.86,-1368.07 46.1,-1378.3 53.08,-1377.79"/>
+</g>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.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="M414.14,-2657.56C398.39,-2655.29 381.39,-2649.71 371,-2637 329.5,-2586.21 306.79,-1544.05 303.44,-1378.17"/>
+<polygon fill="#000000" stroke="#000000" points="306.94,-1378.07 303.24,-1368.14 299.94,-1378.21 306.94,-1378.07"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node6" class="node">
+<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,-1368 130,-1368 130,-1344 233,-1344 233,-1368"/>
+<text text-anchor="middle" x="181.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
 </g>
-<!-- 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~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.65,-1356C121.35,-1356 112.71,-1356 104.28,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="104.16,-1352.5 94.16,-1356 104.16,-1359.5 104.16,-1352.5"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node7" class="node">
-<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_drift.f90</text>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-24 410.5,-24 410.5,0 495.5,0 495.5,-24"/>
+<text text-anchor="middle" x="453" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge6" 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.29,-52.56C384.14,-51.76 340.81,-51.38 303,-54"/>
-</g>
-<!-- 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_gr.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.18,-22.09C397.53,-25.35 383.64,-29.12 371,-33 286,-59.07 271.34,-96.32 182.5,-100"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.5,-100C51.49,-105.71 47.71,-1164.59 47.93,-1333.42"/>
+<polygon fill="#000000" stroke="#000000" points="44.43,-1333.64 47.95,-1343.63 51.43,-1333.62 44.43,-1333.64"/>
 </g>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.34,-13.04C395.71,-15.63 380.55,-21.29 371,-33 328.15,-85.54 306.54,-1164.03 303.4,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="299.9,-1333.8 303.21,-1343.87 306.9,-1333.93 299.9,-1333.8"/>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge7" 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.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.52,-1343.94C295.34,-1215.12 248.49,-97.26 182.5,-100"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge17" 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,-1356C261.05,-1356 252.35,-1356 243.59,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="243.33,-1352.5 233.33,-1356 243.33,-1359.5 243.33,-1352.5"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="528,-2628 378,-2628 378,-2604 528,-2604 528,-2628"/>
+<text text-anchor="middle" x="453" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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="M388.83,-2603.93C382.56,-2601.48 376.5,-2598.54 371,-2595 330.61,-2569 338.68,-2543.15 303,-2511"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge18" 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.89,-2603.93C377.2,-2601.43 373.85,-2598.48 371,-2595 330.9,-2546.01 307.1,-1541.99 303.48,-1378.43"/>
+<polygon fill="#000000" stroke="#000000" points="306.98,-1378.05 303.26,-1368.13 299.98,-1378.21 306.98,-1378.05"/>
+</g>
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-2586 409,-2586 409,-2562 497,-2562 497,-2586"/>
+<text text-anchor="middle" x="453" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge12" 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.74,-2565.33C396.3,-2562.16 382.89,-2558.08 371,-2553 338.33,-2539.05 329.39,-2534.78 303,-2511"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.69,-2572.62C394.59,-2569.89 380.21,-2564.23 371,-2553 332.25,-2505.75 307.37,-1537.7 303.52,-1378.17"/>
+<polygon fill="#000000" stroke="#000000" points="307.02,-1378.01 303.28,-1368.1 300.02,-1378.18 307.02,-1378.01"/>
+</g>
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node11" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-2376 414,-2376 414,-2352 492,-2352 492,-2376"/>
+<text text-anchor="middle" x="453" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.81,-2363.42C398.2,-2361.1 381.39,-2355.52 371,-2343 307.37,-2266.36 303.22,-1518.16 303,-1378.42"/>
+<polygon fill="#000000" stroke="#000000" points="306.5,-1378.1 302.99,-1368.1 299.5,-1378.11 306.5,-1378.1"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node12" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="509,-2334 397,-2334 397,-2310 509,-2310 509,-2334"/>
+<text text-anchor="middle" x="453" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.99,-2317.51C387.03,-2314.21 377.69,-2309.04 371,-2301 310.08,-2227.85 303.73,-1514.27 303.08,-1378.31"/>
+<polygon fill="#000000" stroke="#000000" points="306.58,-1378.23 303.03,-1368.24 299.58,-1378.26 306.58,-1378.23"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-2292 416.5,-2292 416.5,-2268 489.5,-2268 489.5,-2292"/>
+<text text-anchor="middle" x="453" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.35,-2279.74C400.06,-2277.64 381.99,-2272.15 371,-2259 312.77,-2189.33 304.26,-1510.05 303.15,-1378.13"/>
+<polygon fill="#000000" stroke="#000000" points="306.65,-1377.99 303.07,-1368.02 299.65,-1378.05 306.65,-1377.99"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="508.5,-2250 397.5,-2250 397.5,-2226 508.5,-2226 508.5,-2250"/>
+<text text-anchor="middle" x="453" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M397.45,-2233.6C387.33,-2230.32 377.82,-2225.13 371,-2217 315.52,-2150.86 304.83,-1506.92 303.24,-1378.29"/>
+<polygon fill="#000000" stroke="#000000" points="306.74,-1378.04 303.12,-1368.08 299.74,-1378.12 306.74,-1378.04"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506,-2544 400,-2544 400,-2520 506,-2520 506,-2544"/>
+<text text-anchor="middle" x="453" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge13" 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.74,-2538.22C368.02,-2539.02 328.81,-2534.26 303,-2511"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.83,-2528.48C388.79,-2525.26 378.29,-2519.87 371,-2511 296.42,-2420.26 301.36,-1531.17 302.77,-1378.31"/>
+<polygon fill="#000000" stroke="#000000" points="306.27,-1378.28 302.86,-1368.25 299.27,-1378.21 306.27,-1378.28"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="512,-2208 394,-2208 394,-2184 512,-2184 512,-2208"/>
+<text text-anchor="middle" x="453" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge26" 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.76,-2190.28C385.05,-2186.98 376.99,-2182.11 371,-2175 318.25,-2112.37 305.42,-1503.38 303.34,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="306.83,-1378.04 303.17,-1368.1 299.83,-1378.16 306.83,-1378.04"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-2166 419,-2166 419,-2142 487,-2142 487,-2166"/>
+<text text-anchor="middle" x="453" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.88,-2153.98C402,-2152.11 382.64,-2146.75 371,-2133 320.96,-2073.85 306.04,-1499.44 303.44,-1378.34"/>
+<polygon fill="#000000" stroke="#000000" points="306.94,-1378 303.23,-1368.07 299.94,-1378.14 306.94,-1378"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-2124 410.5,-2124 410.5,-2100 495.5,-2100 495.5,-2124"/>
+<text text-anchor="middle" x="453" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.17,-2110.68C395.7,-2108.03 380.69,-2102.4 371,-2091 323.7,-2035.38 306.72,-1496.24 303.57,-1378.6"/>
+<polygon fill="#000000" stroke="#000000" points="307.06,-1378.18 303.3,-1368.28 300.06,-1378.37 307.06,-1378.18"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486.5,-2082 419.5,-2082 419.5,-2058 486.5,-2058 486.5,-2082"/>
+<text text-anchor="middle" x="453" y="-2067.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_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"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.35,-2069.97C402.39,-2068.13 382.8,-2062.8 371,-2049 326.37,-1996.81 307.4,-1491.42 303.69,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="307.18,-1378.02 303.37,-1368.14 300.19,-1378.24 307.18,-1378.02"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-2040 410.5,-2040 410.5,-2016 495.5,-2016 495.5,-2040"/>
+<text text-anchor="middle" x="453" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.24,-2026.62C395.78,-2023.96 380.76,-2018.34 371,-2007 329.08,-1958.28 308.14,-1487.22 303.84,-1378.37"/>
+<polygon fill="#000000" stroke="#000000" points="307.33,-1378.06 303.45,-1368.21 300.34,-1378.33 307.33,-1378.06"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-1998 414,-1998 414,-1974 492,-1974 492,-1998"/>
+<text text-anchor="middle" x="453" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.64,-1985.15C398.19,-1982.75 381.56,-1977.19 371,-1965 331.75,-1919.72 308.92,-1482.48 304.01,-1378.23"/>
+<polygon fill="#000000" stroke="#000000" points="307.5,-1378.03 303.54,-1368.2 300.51,-1378.35 307.5,-1378.03"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-1956 405,-1956 405,-1932 501,-1932 501,-1956"/>
+<text text-anchor="middle" x="453" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.85,-1941.38C392.17,-1938.36 379.6,-1932.84 371,-1923 334.45,-1881.17 309.78,-1478.03 304.2,-1378.25"/>
+<polygon fill="#000000" stroke="#000000" points="307.69,-1377.9 303.64,-1368.11 300.7,-1378.28 307.69,-1377.9"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504.5,-2502 401.5,-2502 401.5,-2478 504.5,-2478 504.5,-2502"/>
+<text text-anchor="middle" x="453" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge8" 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.46,-2500.95C361.18,-2509.05 310.35,-2517.62 303,-2511"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.11,-2486.83C389.61,-2483.65 378.57,-2478.19 371,-2469 299.17,-2381.81 301.8,-1528.31 302.82,-1378.42"/>
+<polygon fill="#000000" stroke="#000000" points="306.32,-1378.19 302.89,-1368.16 299.32,-1378.13 306.32,-1378.19"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node24" class="node">
-<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>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-1914 416.5,-1914 416.5,-1890 489.5,-1890 489.5,-1914"/>
+<text text-anchor="middle" x="453" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M416.24,-1901.42C400.13,-1899.23 382.25,-1893.75 371,-1881 303.79,-1804.83 301.95,-1468.78 302.7,-1378.43"/>
+<polygon fill="#000000" stroke="#000000" points="306.2,-1378.26 302.8,-1368.23 299.2,-1378.19 306.2,-1378.26"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node25" class="node">
-<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>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-2460 406,-2460 406,-2436 500,-2436 500,-2460"/>
+<text text-anchor="middle" x="453" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge9" 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,-2457.43C394.2,-2460.49 381.96,-2464.32 371,-2469 338.33,-2482.95 329.39,-2534.78 303,-2511"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.77,-2445.97C392.64,-2443.04 379.6,-2437.42 371,-2427 301.91,-2343.34 302.25,-1525.17 302.87,-1378.47"/>
+<polygon fill="#000000" stroke="#000000" points="306.38,-1378.07 302.92,-1368.05 299.38,-1378.03 306.38,-1378.07"/>
+</g>
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-2418 412,-2418 412,-2394 494,-2394 494,-2418"/>
+<text text-anchor="middle" x="453" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge11" 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,-2411.22C397.95,-2414.31 383.09,-2419.22 371,-2427 330.61,-2453 338.68,-2543.15 303,-2511"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2511C213.35,-2432.01 186.9,-1531.34 183.03,-1378.1"/>
+<polygon fill="#000000" stroke="#000000" points="186.52,-1377.93 182.78,-1368.02 179.53,-1378.11 186.52,-1377.93"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.7,-2405.11C396.69,-2402.61 380.91,-2396.97 371,-2385 304.65,-2304.86 302.73,-1521.84 302.94,-1378.48"/>
+<polygon fill="#000000" stroke="#000000" points="306.44,-1378.27 302.96,-1368.27 299.44,-1378.26 306.44,-1378.27"/>
+</g>
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1872 414.5,-1872 414.5,-1848 491.5,-1848 491.5,-1872"/>
+<text text-anchor="middle" x="453" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.23,-1859.07C398.69,-1856.68 381.83,-1851.14 371,-1839 309.09,-1769.61 303.36,-1463.75 302.98,-1378.26"/>
+<polygon fill="#000000" stroke="#000000" points="306.48,-1378.12 302.96,-1368.12 299.48,-1378.13 306.48,-1378.12"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-1830 415.5,-1830 415.5,-1806 490.5,-1806 490.5,-1830"/>
+<text text-anchor="middle" x="453" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.13,-1817.12C399.38,-1814.79 382.11,-1809.29 371,-1797 314.44,-1734.43 304.9,-1459.22 303.31,-1378.39"/>
+<polygon fill="#000000" stroke="#000000" points="306.81,-1378.26 303.14,-1368.32 299.81,-1378.38 306.81,-1378.26"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1788 414.5,-1788 414.5,-1764 491.5,-1764 491.5,-1788"/>
+<text text-anchor="middle" x="453" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<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.39,-1774.92C398.89,-1772.5 382.01,-1766.98 371,-1755 319.79,-1699.25 306.61,-1454.75 303.72,-1378.68"/>
+<polygon fill="#000000" stroke="#000000" points="307.21,-1378.21 303.36,-1368.34 300.21,-1378.46 307.21,-1378.21"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-1746 413,-1746 413,-1722 493,-1722 493,-1746"/>
+<text text-anchor="middle" x="453" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M412.84,-1732.54C397.82,-1729.98 381.73,-1724.45 371,-1713 325.04,-1663.93 308.47,-1449.11 304.22,-1378.55"/>
+<polygon fill="#000000" stroke="#000000" points="307.69,-1377.94 303.62,-1368.16 300.7,-1378.34 307.69,-1377.94"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="485,-1704 421,-1704 421,-1680 485,-1680 485,-1704"/>
+<text text-anchor="middle" x="453" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.76,-1691.52C403.81,-1689.58 383.78,-1684.31 371,-1671 330.25,-1628.54 310.55,-1443.15 304.83,-1378.41"/>
+<polygon fill="#000000" stroke="#000000" points="308.29,-1377.77 303.95,-1368.11 301.31,-1378.37 308.29,-1377.77"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~helio_classes.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="535,-1662 371,-1662 371,-1638 535,-1638 535,-1662"/>
+<text text-anchor="middle" x="453" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge44" 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.75,-1637.93C378.46,-1635.46 374.48,-1632.51 371,-1629 335.4,-1593.06 312.89,-1436.53 305.59,-1378.1"/>
+<polygon fill="#000000" stroke="#000000" points="309.06,-1377.59 304.37,-1368.09 302.11,-1378.44 309.06,-1377.59"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.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">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.8,-1607.65C408.14,-1606.03 385.51,-1601.04 371,-1587 311.89,-1529.79 303.47,-1424.05 302.74,-1378.18"/>
+<polygon fill="#000000" stroke="#000000" points="306.24,-1378.1 302.7,-1368.12 299.24,-1378.14 306.24,-1378.1"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1578 410,-1578 410,-1554 496,-1554 496,-1578"/>
+<text text-anchor="middle" x="453" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M409.96,-1562.93C396.15,-1560.03 381.63,-1554.69 371,-1545 322.12,-1500.41 308.34,-1418.11 304.49,-1378.48"/>
+<polygon fill="#000000" stroke="#000000" points="307.95,-1377.96 303.62,-1368.29 300.98,-1378.55 307.95,-1377.96"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-1536 419,-1536 419,-1512 487,-1512 487,-1536"/>
+<text text-anchor="middle" x="453" y="-1521.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~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~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"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.64,-1521.91C402.71,-1519.4 384.27,-1514.08 371,-1503 331.99,-1470.44 314.17,-1410.61 307.07,-1378.22"/>
+<polygon fill="#000000" stroke="#000000" points="310.41,-1377.1 304.98,-1368 303.55,-1378.5 310.41,-1377.1"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="483,-1494 423,-1494 423,-1470 483,-1470 483,-1494"/>
+<text text-anchor="middle" x="453" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.81,-1479.66C406.33,-1477.13 386.08,-1471.88 371,-1461 341.56,-1439.77 321.58,-1401.51 311.25,-1377.5"/>
+<polygon fill="#000000" stroke="#000000" points="314.46,-1376.09 307.42,-1368.18 307.98,-1378.76 314.46,-1376.09"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-1452 400.5,-1452 400.5,-1428 505.5,-1428 505.5,-1452"/>
+<text text-anchor="middle" x="453" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M400.41,-1430.7C390.31,-1427.77 380.05,-1423.95 371,-1419 350.93,-1408.03 332.19,-1389.82 319.49,-1375.8"/>
+<polygon fill="#000000" stroke="#000000" points="321.97,-1373.32 312.74,-1368.11 316.7,-1377.93 321.97,-1373.32"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~setup.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,-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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node38"><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~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.17,-1391.12C408.51,-1387.16 388.61,-1382 371,-1377 362.45,-1374.57 353.34,-1371.85 344.65,-1369.19"/>
+<polygon fill="#000000" stroke="#000000" points="345.67,-1365.84 335.08,-1366.24 343.6,-1372.53 345.67,-1365.84"/>
 </g>
 <!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node39" class="node">
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-150 410,-150 410,-126 496,-126 496,-150"/>
+<text text-anchor="middle" x="453" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge67" class="edge">
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge14" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.74,-131.22C370.51,-126.07 316.23,-122.26 303,-138"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.95,-139.14C395.45,-141.77 380.49,-147.43 371,-159 332.25,-206.25 307.37,-1174.3 303.52,-1333.83"/>
+<polygon fill="#000000" stroke="#000000" points="300.02,-1333.82 303.28,-1343.9 307.02,-1333.99 300.02,-1333.82"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1368 414.5,-1368 414.5,-1344 491.5,-1344 491.5,-1368"/>
+<text text-anchor="middle" x="453" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.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="M414.4,-1356C393.36,-1356 367.07,-1356 345.31,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="345.03,-1352.5 335.03,-1356 345.03,-1359.5 345.03,-1352.5"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.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_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.8,-1322.24C404.11,-1325.98 386.65,-1330.56 371,-1335 362.45,-1337.43 353.34,-1340.15 344.65,-1342.81"/>
+<polygon fill="#000000" stroke="#000000" points="343.6,-1339.47 335.08,-1345.76 345.67,-1346.16 343.6,-1339.47"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1284 410,-1284 410,-1260 496,-1260 496,-1284"/>
+<text text-anchor="middle" x="453" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.72,-1278.81C396.78,-1281.97 382.85,-1286.52 371,-1293 350.93,-1303.97 332.19,-1322.18 319.49,-1336.2"/>
+<polygon fill="#000000" stroke="#000000" points="316.7,-1334.07 312.74,-1343.89 321.97,-1338.68 316.7,-1334.07"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489,-1242 417,-1242 417,-1218 489,-1218 489,-1242"/>
+<text text-anchor="middle" x="453" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M416.88,-1233.35C401.66,-1236.18 384.31,-1241.4 371,-1251 341.56,-1272.23 321.58,-1310.49 311.25,-1334.5"/>
+<polygon fill="#000000" stroke="#000000" points="307.98,-1333.24 307.42,-1343.82 314.46,-1335.91 307.98,-1333.24"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495,-1200 411,-1200 411,-1176 495,-1176 495,-1200"/>
+<text text-anchor="middle" x="453" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.85,-1191.52C396.95,-1194.45 382.15,-1199.69 371,-1209 331.99,-1241.56 314.17,-1301.39 307.07,-1333.78"/>
+<polygon fill="#000000" stroke="#000000" points="303.55,-1333.5 304.98,-1344 310.41,-1334.9 303.55,-1333.5"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480.5,-1158 425.5,-1158 425.5,-1134 480.5,-1134 480.5,-1158"/>
+<text text-anchor="middle" x="453" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.3,-1146.7C407.87,-1148.52 385.7,-1153.59 371,-1167 322.12,-1211.59 308.34,-1293.89 304.49,-1333.52"/>
+<polygon fill="#000000" stroke="#000000" points="300.98,-1333.45 303.62,-1343.71 307.95,-1334.04 300.98,-1333.45"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488.5,-1116 417.5,-1116 417.5,-1092 488.5,-1092 488.5,-1116"/>
+<text text-anchor="middle" x="453" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.09,-1105.39C401.18,-1107.78 383.21,-1113.18 371,-1125 311.89,-1182.21 303.47,-1287.95 302.74,-1333.82"/>
+<polygon fill="#000000" stroke="#000000" points="299.24,-1333.86 302.7,-1343.88 306.24,-1333.9 299.24,-1333.86"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.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">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.99,-1062.13C408.2,-1063.62 385.31,-1068.55 371,-1083 335.4,-1118.94 312.89,-1275.47 305.59,-1333.9"/>
+<polygon fill="#000000" stroke="#000000" points="302.11,-1333.56 304.37,-1343.91 309.06,-1334.41 302.11,-1333.56"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1032 413.5,-1032 413.5,-1008 492.5,-1008 492.5,-1032"/>
+<text text-anchor="middle" x="453" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M413.39,-1021.52C398.28,-1024.07 381.96,-1029.58 371,-1041 330.25,-1083.46 310.55,-1268.85 304.83,-1333.59"/>
+<polygon fill="#000000" stroke="#000000" points="301.31,-1333.63 303.95,-1343.89 308.29,-1334.23 301.31,-1333.63"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-990 426,-990 426,-966 480,-966 480,-990"/>
+<text text-anchor="middle" x="453" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.74,-977.88C407.82,-979.27 384.9,-984.16 371,-999 325.04,-1048.07 308.47,-1262.89 304.22,-1333.45"/>
+<polygon fill="#000000" stroke="#000000" points="300.7,-1333.66 303.62,-1343.84 307.69,-1334.06 300.7,-1333.66"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node50"><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~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"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.13,-936.32C403.2,-938.22 383.38,-943.52 371,-957 319.79,-1012.75 306.61,-1257.25 303.72,-1333.32"/>
+<polygon fill="#000000" stroke="#000000" points="300.21,-1333.54 303.36,-1343.66 307.21,-1333.79 300.21,-1333.54"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.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">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.26,-897.79C389.9,-900.96 378.89,-906.27 371,-915 314.44,-977.57 304.9,-1252.78 303.31,-1333.61"/>
+<polygon fill="#000000" stroke="#000000" points="299.81,-1333.62 303.14,-1343.68 306.81,-1333.74 299.81,-1333.62"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-864 419,-864 419,-840 487,-840 487,-864"/>
+<text text-anchor="middle" x="453" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M418.76,-852.32C402.06,-854.3 382.9,-859.67 371,-873 309.09,-942.39 303.36,-1248.25 302.98,-1333.74"/>
+<polygon fill="#000000" stroke="#000000" points="299.48,-1333.87 302.96,-1343.88 306.48,-1333.88 299.48,-1333.87"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480.5,-822 425.5,-822 425.5,-798 480.5,-798 480.5,-822"/>
+<text text-anchor="middle" x="453" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.47,-809.63C407.42,-810.9 384.46,-815.75 371,-831 303.79,-907.17 301.95,-1243.22 302.7,-1333.57"/>
+<polygon fill="#000000" stroke="#000000" points="299.2,-1333.81 302.8,-1343.77 306.2,-1333.74 299.2,-1333.81"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node54"><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~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~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"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.47,-771.49C389.97,-774.65 378.84,-780.03 371,-789 334.45,-830.83 309.78,-1233.97 304.2,-1333.75"/>
+<polygon fill="#000000" stroke="#000000" points="300.7,-1333.72 303.64,-1343.89 307.69,-1334.1 300.7,-1333.72"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_drift.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,-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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-108 410,-108 410,-84 496,-84 496,-108"/>
+<text text-anchor="middle" x="453" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge16" 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.96,-102.48C370.9,-109.4 316.75,-121.65 303,-138"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.94,-97.13C395.44,-99.76 380.48,-105.42 371,-117 330.9,-165.99 307.1,-1170.01 303.48,-1333.57"/>
+<polygon fill="#000000" stroke="#000000" points="299.98,-1333.79 303.26,-1343.87 306.98,-1333.95 299.98,-1333.79"/>
+</g>
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-738 426,-738 426,-714 480,-714 480,-738"/>
+<text text-anchor="middle" x="453" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_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="M425.77,-725.54C407.63,-726.72 384.42,-731.52 371,-747 331.75,-792.28 308.92,-1229.52 304.01,-1333.77"/>
+<polygon fill="#000000" stroke="#000000" points="300.51,-1333.65 303.54,-1343.8 307.5,-1333.97 300.51,-1333.65"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-696 410,-696 410,-672 496,-672 496,-696"/>
+<text text-anchor="middle" x="453" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.82,-685.46C395.49,-688.15 380.67,-693.77 371,-705 329.08,-753.72 308.14,-1224.78 303.84,-1333.63"/>
+<polygon fill="#000000" stroke="#000000" points="300.34,-1333.67 303.45,-1343.79 307.33,-1333.94 300.34,-1333.67"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500.5,-654 405.5,-654 405.5,-630 500.5,-630 500.5,-654"/>
+<text text-anchor="middle" x="453" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.14,-644.4C392.31,-647.39 379.59,-652.95 371,-663 326.37,-715.19 307.4,-1220.58 303.69,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="300.19,-1333.76 303.37,-1343.86 307.18,-1333.98 300.19,-1333.76"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524,-612 382,-612 382,-588 524,-588 524,-612"/>
+<text text-anchor="middle" x="453" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge73" 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.76,-611.73C377.76,-614.29 374.11,-617.35 371,-621 323.7,-676.62 306.72,-1215.76 303.57,-1333.4"/>
+<polygon fill="#000000" stroke="#000000" points="300.06,-1333.63 303.3,-1343.72 307.06,-1333.82 300.06,-1333.63"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="483,-570 423,-570 423,-546 483,-546 483,-570"/>
+<text text-anchor="middle" x="453" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.91,-557.64C405.18,-559.08 383.57,-564.14 371,-579 320.96,-638.15 306.04,-1212.56 303.44,-1333.66"/>
+<polygon fill="#000000" stroke="#000000" points="299.94,-1333.86 303.23,-1343.93 306.94,-1334 299.94,-1333.86"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~fraggle_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node61" class="node">
-<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>
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494.5,-528 411.5,-528 411.5,-504 494.5,-504 494.5,-528"/>
+<text text-anchor="middle" x="453" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.38,-517.05C396.51,-519.6 380.92,-525.22 371,-537 318.25,-599.63 305.42,-1208.62 303.34,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="299.83,-1333.84 303.17,-1343.9 306.83,-1333.96 299.83,-1333.84"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~swiftest_driver.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>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502,-486 404,-486 404,-462 502,-462 502,-486"/>
+<text text-anchor="middle" x="453" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.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"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.75,-476.61C391.35,-479.66 379.22,-485.21 371,-495 315.52,-561.14 304.83,-1205.08 303.24,-1333.71"/>
+<polygon fill="#000000" stroke="#000000" points="299.74,-1333.88 303.12,-1343.92 306.74,-1333.96 299.74,-1333.88"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-444 406,-444 406,-420 500,-420 500,-444"/>
+<text text-anchor="middle" x="453" y="-429.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~~helio_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.84,-434.09C392.72,-437.03 379.66,-442.63 371,-453 312.77,-522.67 304.26,-1201.95 303.15,-1333.87"/>
+<polygon fill="#000000" stroke="#000000" points="299.65,-1333.95 303.07,-1343.98 306.65,-1334.01 299.65,-1333.95"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-402 415,-402 415,-378 491,-378 491,-402"/>
+<text text-anchor="middle" x="453" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.67,-390.47C398.82,-392.72 381.6,-398.27 371,-411 310.08,-484.15 303.73,-1197.73 303.08,-1333.69"/>
+<polygon fill="#000000" stroke="#000000" points="299.58,-1333.74 303.03,-1343.76 306.58,-1333.77 299.58,-1333.74"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-360 413.5,-360 413.5,-336 492.5,-336 492.5,-360"/>
+<text text-anchor="middle" x="453" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.39,-348.64C397.9,-351 381.3,-356.59 371,-369 307.37,-445.64 303.22,-1193.84 303,-1333.58"/>
+<polygon fill="#000000" stroke="#000000" points="299.5,-1333.89 302.99,-1343.9 306.5,-1333.9 299.5,-1333.89"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-66 415,-66 415,-42 491,-42 491,-66"/>
+<text text-anchor="middle" x="453" y="-51.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~~helio_classes.f90~~AfferentGraph_edge15" 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.77,-59.03C400.37,-62.13 384.21,-67.09 371,-75 350.76,-87.12 352.51,-98.19 335,-114 321.81,-125.91 314.44,-124.39 303,-138"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-138C220.89,-233.29 188.14,-1175.09 183.18,-1333.45"/>
+<polygon fill="#000000" stroke="#000000" points="179.67,-1333.74 182.86,-1343.85 186.66,-1333.96 179.67,-1333.74"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.97,-54.32C398.99,-56.51 381.57,-62.06 371,-75 329.5,-125.79 306.79,-1167.95 303.44,-1333.83"/>
+<polygon fill="#000000" stroke="#000000" points="299.94,-1333.79 303.24,-1343.86 306.94,-1333.93 299.94,-1333.79"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="515,-318 391,-318 391,-294 515,-294 515,-318"/>
+<text text-anchor="middle" x="453" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.83,-312.78C383.23,-316.04 376.28,-320.62 371,-327 304.65,-407.14 302.73,-1190.16 302.94,-1333.52"/>
+<polygon fill="#000000" stroke="#000000" points="299.44,-1333.74 302.96,-1343.73 306.44,-1333.73 299.44,-1333.74"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-276 426,-276 426,-252 480,-252 480,-276"/>
+<text text-anchor="middle" x="453" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.93,-263.32C407.62,-264.37 384.14,-269.09 371,-285 301.91,-368.66 302.25,-1186.83 302.87,-1333.53"/>
+<polygon fill="#000000" stroke="#000000" points="299.38,-1333.97 302.92,-1343.95 306.38,-1333.93 299.38,-1333.97"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-234 419,-234 419,-210 487,-210 487,-234"/>
+<text text-anchor="middle" x="453" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.74,-221.9C401.82,-223.73 382.45,-229.1 371,-243 299.17,-330.19 301.8,-1183.69 302.82,-1333.58"/>
+<polygon fill="#000000" stroke="#000000" points="299.32,-1333.87 302.89,-1343.84 306.32,-1333.81 299.32,-1333.87"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-192 410.5,-192 410.5,-168 495.5,-168 495.5,-192"/>
+<text text-anchor="middle" x="453" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.39,-181.07C395.76,-183.67 380.59,-189.33 371,-201 296.42,-291.74 301.36,-1180.83 302.77,-1333.69"/>
+<polygon fill="#000000" stroke="#000000" points="299.27,-1333.79 302.86,-1343.75 306.27,-1333.72 299.27,-1333.79"/>
 </g>
 </g>
 </svg>
@@ -1462,7 +1576,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-2"></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-3"></a>   <span class="c">!!</span>
 <a name="ln-4"></a>   <span class="c">!! Definition of classes and methods specific to the Democratic Heliocentric Method</span>
-<a name="ln-5"></a>   <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: helio.f90</span>
+<a name="ln-5"></a>   <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: module_helio.f90</span>
 <a name="ln-6"></a>   <span class="k">use </span><span class="n">swiftest_globals</span>
 <a name="ln-7"></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_cb</span><span class="p">,</span> <span class="n">swiftest_pl</span><span class="p">,</span> <span class="n">swiftest_tp</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span>
 <a name="ln-8"></a>   <span class="k">use </span><span class="n">whm_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">whm_nbody_system</span>
@@ -1475,228 +1589,207 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-15"></a>   <span class="c">!********************************************************************************************************************************</span>
 <a name="ln-16"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">whm_nbody_system</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_nbody_system</span>
 <a name="ln-17"></a>   <span class="k">contains</span>
-<a name="ln-18"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">step</span> <span class="o">=&gt;</span> <span class="n">helio_step_system</span>  <span class="c">!! Advance the Helio nbody system forward in time by one step</span>
-<a name="ln-19"></a>   <span class="k">end type </span><span class="n">helio_nbody_system</span>
-<a name="ln-20"></a>
-<a name="ln-21"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-22"></a>   <span class="c">! helio_cb class definitions and method interfaces</span>
-<a name="ln-23"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-24"></a>   <span class="c">!&gt; Helio central body particle class</span>
-<a name="ln-25"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_cb</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="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">ptbeg</span> <span class="c">!! negative barycentric velocity of the central body at the beginning of time step</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">ptend</span> <span class="c">!! negative barycentric velocity of the central body at the end of time step</span>
-<a name="ln-28"></a>   <span class="k">contains</span>
-<a name="ln-29"></a><span class="k">   end type </span><span class="n">helio_cb</span>
-<a name="ln-30"></a>
-<a name="ln-31"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-32"></a>   <span class="c">!                                    helio_pl class definitions and method interfaces</span>
-<a name="ln-33"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-34"></a>
-<a name="ln-35"></a>   <span class="c">!! Helio massive body particle class</span>
-<a name="ln-36"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_pl</span>
-<a name="ln-37"></a>   <span class="k">contains</span>
-<a name="ln-38"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">vh2vb</span>       <span class="o">=&gt;</span> <span class="n">helio_coord_vh2vb_pl</span>     <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</span>
-<a name="ln-39"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">vb2vh</span>       <span class="o">=&gt;</span> <span class="n">helio_coord_vb2vh_pl</span>     <span class="c">!! Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</span>
-<a name="ln-40"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>       <span class="o">=&gt;</span> <span class="n">helio_drift_pl</span>           <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates </span>
-<a name="ln-41"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">lindrift</span>    <span class="o">=&gt;</span> <span class="n">helio_drift_linear_pl</span>    <span class="c">!! Method for linear drift of massive bodies due to barycentric momentum of Sun</span>
-<a name="ln-42"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_gr</span>    <span class="o">=&gt;</span> <span class="n">helio_gr_kick_getacch_pl</span> <span class="c">!! Acceleration term arising from the post-Newtonian correction</span>
-<a name="ln-43"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">gr_pos_kick</span> <span class="o">=&gt;</span> <span class="n">helio_gr_p4_pl</span>           <span class="c">!! Position kick due to p**4 term in the post-Newtonian correction</span>
-<a name="ln-44"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>       <span class="o">=&gt;</span> <span class="n">helio_kick_getacch_pl</span>    <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
-<a name="ln-45"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>        <span class="o">=&gt;</span> <span class="n">helio_kick_vb_pl</span>         <span class="c">!! Kicks the barycentric velocities</span>
-<a name="ln-46"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>        <span class="o">=&gt;</span> <span class="n">helio_step_pl</span>            <span class="c">!! Steps the body forward one stepsize</span>
-<a name="ln-47"></a>   <span class="k">end type </span><span class="n">helio_pl</span>
-<a name="ln-48"></a>
-<a name="ln-49"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-50"></a>   <span class="c">!                                    helio_tp class definitions and method interfaces</span>
-<a name="ln-51"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-52"></a>
-<a name="ln-53"></a>   <span class="c">!! Helio test particle class</span>
-<a name="ln-54"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_tp</span>
-<a name="ln-55"></a>   <span class="k">contains</span>
-<a name="ln-56"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">vh2vb</span>       <span class="o">=&gt;</span> <span class="n">helio_coord_vh2vb_tp</span>     <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (velocity only)</span>
-<a name="ln-57"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">vb2vh</span>       <span class="o">=&gt;</span> <span class="n">helio_coord_vb2vh_tp</span>     <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (velocity only)</span>
-<a name="ln-58"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">lindrift</span>    <span class="o">=&gt;</span> <span class="n">helio_drift_linear_tp</span>    <span class="c">!! Method for linear drift of massive bodies due to barycentric momentum of Sun</span>
-<a name="ln-59"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>       <span class="o">=&gt;</span> <span class="n">helio_drift_tp</span>           <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates </span>
-<a name="ln-60"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_gr</span>    <span class="o">=&gt;</span> <span class="n">helio_gr_kick_getacch_tp</span> <span class="c">!! Acceleration term arising from the post-Newtonian correction</span>
-<a name="ln-61"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">gr_pos_kick</span> <span class="o">=&gt;</span> <span class="n">helio_gr_p4_tp</span>           <span class="c">!! Position kick due to p**4 term in the post-Newtonian correction</span>
-<a name="ln-62"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>       <span class="o">=&gt;</span> <span class="n">helio_kick_getacch_tp</span>    <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
-<a name="ln-63"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>        <span class="o">=&gt;</span> <span class="n">helio_kick_vb_tp</span>         <span class="c">!! Kicks the barycentric velocities</span>
-<a name="ln-64"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>        <span class="o">=&gt;</span> <span class="n">helio_step_tp</span>            <span class="c">!! Steps the body forward one stepsize</span>
-<a name="ln-65"></a>   <span class="k">end type </span><span class="n">helio_tp</span>
-<a name="ln-66"></a>
-<a name="ln-67"></a>   <span class="k">interface</span>
-<a name="ln-68"></a><span class="k">      module subroutine </span><span class="n">helio_coord_vb2vh_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-69"></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_cb</span>
-<a name="ln-70"></a>         <span class="k">implicit none</span>
-<a name="ln-71"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-72"></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-73"></a>      <span class="k">end subroutine </span><span class="n">helio_coord_vb2vh_pl</span>
-<a name="ln-74"></a>   
-<a name="ln-75"></a>      <span class="k">module subroutine </span><span class="n">helio_coord_vb2vh_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</span><span class="p">)</span>
+<a name="ln-18"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">step</span>       <span class="o">=&gt;</span> <span class="n">helio_step_system</span>             <span class="c">!! Advance the Helio nbody system forward in time by one step</span>
+<a name="ln-19"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span> <span class="o">=&gt;</span> <span class="n">helio_setup_initialize_system</span> <span class="c">!! Performs Helio-specific initilization steps, including converting to DH coordinates</span>
+<a name="ln-20"></a>   <span class="k">end type </span><span class="n">helio_nbody_system</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-23"></a>   <span class="c">! helio_cb class definitions and method interfaces</span>
+<a name="ln-24"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-25"></a>   <span class="c">!&gt; Helio central body particle class</span>
+<a name="ln-26"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_cb</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">ptbeg</span> <span class="c">!! negative barycentric velocity of the central body at the beginning of time step</span>
+<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="n">NDIM</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">ptend</span> <span class="c">!! negative barycentric velocity of the central body at the end of time step</span>
+<a name="ln-29"></a>   <span class="k">contains</span>
+<a name="ln-30"></a><span class="k">   end type </span><span class="n">helio_cb</span>
+<a name="ln-31"></a>
+<a name="ln-32"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-33"></a>   <span class="c">!                                    helio_pl class definitions and method interfaces</span>
+<a name="ln-34"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-35"></a>
+<a name="ln-36"></a>   <span class="c">!! Helio massive body particle class</span>
+<a name="ln-37"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_pl</span>
+<a name="ln-38"></a>   <span class="k">contains</span>
+<a name="ln-39"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">drift</span>       <span class="o">=&gt;</span> <span class="n">helio_drift_pl</span>           <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates </span>
+<a name="ln-40"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">lindrift</span>    <span class="o">=&gt;</span> <span class="n">helio_drift_linear_pl</span>    <span class="c">!! Method for linear drift of massive bodies due to barycentric momentum of Sun</span>
+<a name="ln-41"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_gr</span>    <span class="o">=&gt;</span> <span class="n">helio_gr_kick_getacch_pl</span> <span class="c">!! Acceleration term arising from the post-Newtonian correction</span>
+<a name="ln-42"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">gr_pos_kick</span> <span class="o">=&gt;</span> <span class="n">helio_gr_p4_pl</span>           <span class="c">!! Position kick due to p**4 term in the post-Newtonian correction</span>
+<a name="ln-43"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>       <span class="o">=&gt;</span> <span class="n">helio_kick_getacch_pl</span>    <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
+<a name="ln-44"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>        <span class="o">=&gt;</span> <span class="n">helio_kick_vb_pl</span>         <span class="c">!! Kicks the barycentric velocities</span>
+<a name="ln-45"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>        <span class="o">=&gt;</span> <span class="n">helio_step_pl</span>            <span class="c">!! Steps the body forward one stepsize</span>
+<a name="ln-46"></a>   <span class="k">end type </span><span class="n">helio_pl</span>
+<a name="ln-47"></a>
+<a name="ln-48"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-49"></a>   <span class="c">!                                    helio_tp class definitions and method interfaces</span>
+<a name="ln-50"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-51"></a>
+<a name="ln-52"></a>   <span class="c">!! Helio test particle class</span>
+<a name="ln-53"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span> <span class="kd">::</span> <span class="n">helio_tp</span>
+<a name="ln-54"></a>   <span class="k">contains</span>
+<a name="ln-55"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">lindrift</span>    <span class="o">=&gt;</span> <span class="n">helio_drift_linear_tp</span>    <span class="c">!! Method for linear drift of massive bodies due to barycentric momentum of Sun</span>
+<a name="ln-56"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>       <span class="o">=&gt;</span> <span class="n">helio_drift_tp</span>           <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates </span>
+<a name="ln-57"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_gr</span>    <span class="o">=&gt;</span> <span class="n">helio_gr_kick_getacch_tp</span> <span class="c">!! Acceleration term arising from the post-Newtonian correction</span>
+<a name="ln-58"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">gr_pos_kick</span> <span class="o">=&gt;</span> <span class="n">helio_gr_p4_tp</span>           <span class="c">!! Position kick due to p**4 term in the post-Newtonian correction</span>
+<a name="ln-59"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>       <span class="o">=&gt;</span> <span class="n">helio_kick_getacch_tp</span>    <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
+<a name="ln-60"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>        <span class="o">=&gt;</span> <span class="n">helio_kick_vb_tp</span>         <span class="c">!! Kicks the barycentric velocities</span>
+<a name="ln-61"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>        <span class="o">=&gt;</span> <span class="n">helio_step_tp</span>            <span class="c">!! Steps the body forward one stepsize</span>
+<a name="ln-62"></a>   <span class="k">end type </span><span class="n">helio_tp</span>
+<a name="ln-63"></a>
+<a name="ln-64"></a>   <span class="k">interface</span>
+<a name="ln-65"></a><span class="k">      module subroutine </span><span class="n">helio_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-66"></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><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-67"></a>         <span class="k">implicit none</span>
+<a name="ln-68"></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 object</span>
+<a name="ln-69"></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-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">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-71"></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-72"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_body</span>
+<a name="ln-73"></a>   
+<a name="ln-74"></a>      <span class="k">module subroutine </span><span class="n">helio_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-75"></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-76"></a>         <span class="k">implicit none</span>
-<a name="ln-77"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">vbcb</span>  <span class="c">!! Barycentric velocity of the central body</span>
-<a name="ln-79"></a>      <span class="k">end subroutine </span><span class="n">helio_coord_vb2vh_tp</span>
-<a name="ln-80"></a>   
-<a name="ln-81"></a>      <span class="k">module subroutine </span><span class="n">helio_coord_vh2vb_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-82"></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_cb</span>
-<a name="ln-83"></a>         <span class="k">implicit none</span>
-<a name="ln-84"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-85"></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-86"></a>      <span class="k">end subroutine </span><span class="n">helio_coord_vh2vb_pl</span>
-<a name="ln-87"></a>   
-<a name="ln-88"></a>      <span class="k">module subroutine </span><span class="n">helio_coord_vh2vb_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</span><span class="p">)</span>
-<a name="ln-89"></a>         <span class="k">implicit none</span>
-<a name="ln-90"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-91"></a>         <span class="kt">real</span><span 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">vbcb</span> <span class="c">!! Barycentric velocity of the central body</span>
-<a name="ln-92"></a>      <span class="k">end subroutine </span><span class="n">helio_coord_vh2vb_tp</span>
-<a name="ln-93"></a>
-<a name="ln-94"></a>      <span class="k">module subroutine </span><span class="n">helio_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-95"></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><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-96"></a>         <span class="k">implicit none</span>
-<a name="ln-97"></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 object</span>
-<a name="ln-98"></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-99"></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-100"></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-101"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_body</span>
-<a name="ln-102"></a>   
-<a name="ln-103"></a>      <span class="k">module subroutine </span><span class="n">helio_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-104"></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-105"></a>         <span class="k">implicit none</span>
-<a name="ln-106"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-107"></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-108"></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-109"></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-110"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_pl</span>
-<a name="ln-111"></a>
-<a name="ln-112"></a>      <span class="k">module subroutine </span><span class="n">helio_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-113"></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-114"></a>         <span class="k">implicit none</span>
-<a name="ln-115"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-116"></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-117"></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-118"></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-119"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_tp</span>
-<a name="ln-120"></a>
-<a name="ln-121"></a>      <span class="k">module subroutine </span><span class="n">helio_drift_linear_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</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-122"></a>         <span class="k">implicit none</span>
-<a name="ln-123"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-124"></a>         <span class="k">class</span><span class="p">(</span><span class="n">helio_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">!! Helio central body</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="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-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">lbeg</span> <span class="c">!! Argument that determines whether or not this is the beginning or end of the step</span>
-<a name="ln-127"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_linear_pl</span> 
-<a name="ln-128"></a>
-<a name="ln-129"></a>      <span class="k">module subroutine </span><span class="n">helio_drift_linear_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</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-130"></a>         <span class="k">implicit none</span>
-<a name="ln-131"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 test particle object</span>
-<a name="ln-132"></a>         <span class="k">class</span><span class="p">(</span><span class="n">helio_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">!! Helio central body</span>
-<a name="ln-133"></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-134"></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">!! Argument that determines whether or not this is the beginning or end of the step</span>
-<a name="ln-135"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_linear_tp</span>
-<a name="ln-136"></a>
-<a name="ln-137"></a>      <span class="k">module subroutine </span><span class="n">helio_gr_kick_getacch_pl</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-138"></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-139"></a>         <span class="k">implicit none</span>
-<a name="ln-140"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle data structure</span>
-<a name="ln-141"></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-142"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_kick_getacch_pl</span>
-<a name="ln-143"></a>   
-<a name="ln-144"></a>      <span class="k">module subroutine </span><span class="n">helio_gr_kick_getacch_tp</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-145"></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-146"></a>         <span class="k">implicit none</span>
-<a name="ln-147"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle data structure</span>
-<a name="ln-148"></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-149"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_kick_getacch_tp</span>
-<a name="ln-150"></a>      
-<a name="ln-151"></a>      <span class="k">module pure subroutine </span><span class="n">helio_gr_p4_pl</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">dt</span><span class="p">)</span>
-<a name="ln-152"></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-153"></a>         <span class="k">implicit none</span>
-<a name="ln-154"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle object</span>
-<a name="ln-155"></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-156"></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-157"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_p4_pl</span>
-<a name="ln-158"></a>   
-<a name="ln-159"></a>      <span class="k">module pure subroutine </span><span class="n">helio_gr_p4_tp</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">dt</span><span class="p">)</span>
-<a name="ln-160"></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-161"></a>         <span class="k">implicit none</span>
-<a name="ln-162"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle 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 parameters </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">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-165"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_p4_tp</span>
-<a name="ln-166"></a>
-<a name="ln-167"></a>      <span class="k">module subroutine </span><span class="n">helio_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-168"></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><span class="p">,</span> <span class="n">swiftest_nbody_system</span>
-<a name="ln-169"></a>         <span class="k">implicit none</span>
-<a name="ln-170"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-171"></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-172"></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-173"></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-174"></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-175"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_getacch_pl</span>
-<a name="ln-176"></a>
-<a name="ln-177"></a>      <span class="k">module subroutine </span><span class="n">helio_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-178"></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-179"></a>         <span class="k">implicit none</span>
-<a name="ln-180"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 test particle object</span>
-<a name="ln-181"></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-182"></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-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">t</span>      <span class="c">!! Current time</span>
-<a name="ln-184"></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-185"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_getacch_tp</span>
+<a name="ln-77"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-78"></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-79"></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-80"></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-81"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_pl</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>      <span class="k">module subroutine </span><span class="n">helio_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-84"></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-85"></a>         <span class="k">implicit none</span>
+<a name="ln-86"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-87"></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-88"></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-89"></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-90"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_tp</span>
+<a name="ln-91"></a>
+<a name="ln-92"></a>      <span class="k">module subroutine </span><span class="n">helio_drift_linear_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</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-93"></a>         <span class="k">implicit none</span>
+<a name="ln-94"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-95"></a>         <span class="k">class</span><span class="p">(</span><span class="n">helio_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">!! Helio central body</span>
+<a name="ln-96"></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-97"></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">!! Argument that determines whether or not this is the beginning or end of the step</span>
+<a name="ln-98"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_linear_pl</span> 
+<a name="ln-99"></a>
+<a name="ln-100"></a>      <span class="k">module subroutine </span><span class="n">helio_drift_linear_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</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-101"></a>         <span class="k">implicit none</span>
+<a name="ln-102"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 test particle object</span>
+<a name="ln-103"></a>         <span class="k">class</span><span class="p">(</span><span class="n">helio_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">!! Helio central body</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">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-105"></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">!! Argument that determines whether or not this is the beginning or end of the step</span>
+<a name="ln-106"></a>      <span class="k">end subroutine </span><span class="n">helio_drift_linear_tp</span>
+<a name="ln-107"></a>
+<a name="ln-108"></a>      <span class="k">module subroutine </span><span class="n">helio_gr_kick_getacch_pl</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-109"></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-110"></a>         <span class="k">implicit none</span>
+<a name="ln-111"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle data structure</span>
+<a name="ln-112"></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-113"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_kick_getacch_pl</span>
+<a name="ln-114"></a>   
+<a name="ln-115"></a>      <span class="k">module subroutine </span><span class="n">helio_gr_kick_getacch_tp</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-116"></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-117"></a>         <span class="k">implicit none</span>
+<a name="ln-118"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle data structure</span>
+<a name="ln-119"></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-120"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_kick_getacch_tp</span>
+<a name="ln-121"></a>      
+<a name="ln-122"></a>      <span class="k">module pure subroutine </span><span class="n">helio_gr_p4_pl</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">dt</span><span class="p">)</span>
+<a name="ln-123"></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-124"></a>         <span class="k">implicit none</span>
+<a name="ln-125"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle object</span>
+<a name="ln-126"></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-127"></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-128"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_p4_pl</span>
+<a name="ln-129"></a>   
+<a name="ln-130"></a>      <span class="k">module pure subroutine </span><span class="n">helio_gr_p4_tp</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">dt</span><span class="p">)</span>
+<a name="ln-131"></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-132"></a>         <span class="k">implicit none</span>
+<a name="ln-133"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle object</span>
+<a name="ln-134"></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-135"></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-136"></a>      <span class="k">end subroutine </span><span class="n">helio_gr_p4_tp</span>
+<a name="ln-137"></a>
+<a name="ln-138"></a>      <span class="k">module subroutine </span><span class="n">helio_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-139"></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><span class="p">,</span> <span class="n">swiftest_nbody_system</span>
+<a name="ln-140"></a>         <span class="k">implicit none</span>
+<a name="ln-141"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-142"></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-143"></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-144"></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-145"></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-146"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_getacch_pl</span>
+<a name="ln-147"></a>
+<a name="ln-148"></a>      <span class="k">module subroutine </span><span class="n">helio_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-149"></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-150"></a>         <span class="k">implicit none</span>
+<a name="ln-151"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 test particle object</span>
+<a name="ln-152"></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-153"></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-154"></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-155"></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-156"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_getacch_tp</span>
+<a name="ln-157"></a>
+<a name="ln-158"></a>      <span class="k">module subroutine </span><span class="n">helio_kick_vb_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-159"></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-160"></a>         <span class="k">implicit none</span>
+<a name="ln-161"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-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 parameters </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">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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
+<a name="ln-166"></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-167"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_vb_pl</span>
+<a name="ln-168"></a>
+<a name="ln-169"></a>      <span class="k">module subroutine </span><span class="n">helio_kick_vb_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-170"></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-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">helio_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 test particle object</span>
+<a name="ln-173"></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-174"></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-175"></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-176"></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-177"></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-178"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_vb_tp</span>
+<a name="ln-179"></a>
+<a name="ln-180"></a>      <span class="k">module subroutine </span><span class="n">helio_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-181"></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-182"></a>         <span class="k">implicit none</span>
+<a name="ln-183"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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">!! Helio 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">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-185"></a>      <span class="k">end subroutine </span><span class="n">helio_setup_initialize_system</span>
 <a name="ln-186"></a>
-<a name="ln-187"></a>      <span class="k">module subroutine </span><span class="n">helio_kick_vb_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-187"></a>      <span class="k">module subroutine </span><span class="n">helio_step_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">dt</span><span class="p">)</span>
 <a name="ln-188"></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-189"></a>         <span class="k">implicit none</span>
-<a name="ln-190"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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-191"></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-192"></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-193"></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-190"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 particle object</span>
+<a name="ln-191"></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 nboody system</span>
+<a name="ln-192"></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-193"></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-194"></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-195"></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-196"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_vb_pl</span>
-<a name="ln-197"></a>
-<a name="ln-198"></a>      <span class="k">module subroutine </span><span class="n">helio_kick_vb_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-199"></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-200"></a>         <span class="k">implicit none</span>
-<a name="ln-201"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 test particle object</span>
-<a name="ln-202"></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-203"></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-204"></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-205"></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-206"></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-207"></a>      <span class="k">end subroutine </span><span class="n">helio_kick_vb_tp</span>
-<a name="ln-208"></a>
-<a name="ln-209"></a>      <span class="k">module subroutine </span><span class="n">helio_step_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">dt</span><span class="p">)</span>
-<a name="ln-210"></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-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">helio_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 particle object</span>
-<a name="ln-213"></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 nboody system</span>
-<a name="ln-214"></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-215"></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-216"></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-217"></a>      <span class="k">end subroutine </span><span class="n">helio_step_pl</span>
-<a name="ln-218"></a>
-<a name="ln-219"></a>      <span class="k">module subroutine </span><span class="n">helio_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-220"></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-221"></a>         <span class="k">implicit none</span>
-<a name="ln-222"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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">!! Helio nbody system object</span>
-<a name="ln-223"></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-224"></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-225"></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-226"></a>      <span class="k">end subroutine </span><span class="n">helio_step_system</span>
-<a name="ln-227"></a>
-<a name="ln-228"></a>      <span class="k">module subroutine </span><span class="n">helio_step_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">dt</span><span class="p">)</span>
-<a name="ln-229"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span>
-<a name="ln-230"></a>         <span class="k">implicit none</span>
-<a name="ln-231"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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 test particle object</span>
-<a name="ln-232"></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-233"></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-234"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsizee</span>
-<a name="ln-236"></a>      <span class="k">end subroutine </span><span class="n">helio_step_tp</span>
-<a name="ln-237"></a>   <span class="k">end interface</span>
-<a name="ln-238"></a>
-<a name="ln-239"></a><span class="k">end module </span><span class="n">helio_classes</span>
+<a name="ln-195"></a>      <span class="k">end subroutine </span><span class="n">helio_step_pl</span>
+<a name="ln-196"></a>
+<a name="ln-197"></a>      <span class="k">module subroutine </span><span class="n">helio_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-198"></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-199"></a>         <span class="k">implicit none</span>
+<a name="ln-200"></a><span class="k">         class</span><span class="p">(</span><span class="n">helio_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">!! Helio nbody system object</span>
+<a name="ln-201"></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-202"></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-203"></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-204"></a>      <span class="k">end subroutine </span><span class="n">helio_step_system</span>
+<a name="ln-205"></a>
+<a name="ln-206"></a>      <span class="k">module subroutine </span><span class="n">helio_step_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">dt</span><span class="p">)</span>
+<a name="ln-207"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span><span class="p">,</span> <span class="n">swiftest_nbody_system</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">helio_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 test particle object</span>
+<a name="ln-210"></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-211"></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-212"></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-213"></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">!! Stepsizee</span>
+<a name="ln-214"></a>      <span class="k">end subroutine </span><span class="n">helio_step_tp</span>
+<a name="ln-215"></a>
+<a name="ln-216"></a>   <span class="k">end interface</span>
+<a name="ln-217"></a>
+<a name="ln-218"></a><span class="k">end module </span><span class="n">helio_classes</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/helio_coord.f90.html b/docs/sourcefile/helio_coord.f90.html
deleted file mode 100644
index a8acdd8ae..000000000
--- a/docs/sourcefile/helio_coord.f90.html
+++ /dev/null
@@ -1,730 +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>helio_coord.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>helio_coord.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.5% of total for source files.">62 statements</a>
-     </li> 
-     
-     
-     
-    <li><i class="fa fa-code"></i><a href="../src/helio_coord.f90"> Source File</a></li>
-     
-     
-  </ul>
-  <ol class="breadcrumb in-well text-right">
-  
-    
-  
-     <li class="active">helio_coord.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_helio_coord.html">s_helio_coord</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/helio_coord.f90.html#src">helio_coord.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~~helio_coord.f90~~EfferentGraph Pages: 1 -->
-<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,-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,-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,-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,-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,-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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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_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="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
-</g>
-<!-- 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~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~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~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge5" 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,-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_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,-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~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node4" class="node">
-<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~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge6" 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,-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_node5" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<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_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,-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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_edge9" 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,-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_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<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~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~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~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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_coord.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="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~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="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~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_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,-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~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_coord.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="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~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_coord.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="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~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_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="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~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~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>
-</div><script>var pansourcefilehelio_coordf90EfferentGraph = svgPanZoom('#sourcefilehelio_coordf90EfferentGraph', {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_helio_coord.html">s_helio_coord</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/helio_coord.f90.html#src">helio_coord.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">helio_classes</span><span class="p">)</span> <span class="n">s_helio_coord</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>
-<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">helio_coord_vb2vh_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-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">!! Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</span>
-<a name="ln-9"></a>      <span class="c">!!</span>
-<a name="ln-10"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vb2vh.f90 </span>
-<a name="ln-11"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vb2vh.f </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">helio_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-15"></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-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>
-<a name="ln-19"></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-20"></a>
-<a name="ln-21"></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-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">NDIM</span>
-<a name="ln-23"></a>            <span class="n">cb</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="o">-</span><span class="nb">sum</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">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="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">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-24"></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="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="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">cb</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-25"></a>         <span class="k">end do</span>
-<a name="ln-26"></a><span class="k">      end associate</span>
-<a name="ln-27"></a>
-<a name="ln-28"></a><span class="k">      return</span>
-<a name="ln-29"></a><span class="k">   end subroutine </span><span class="n">helio_coord_vb2vh_pl</span>
-<a name="ln-30"></a>
-<a name="ln-31"></a>
-<a name="ln-32"></a>   <span class="k">module subroutine </span><span class="n">helio_coord_vb2vh_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</span><span class="p">)</span>
-<a name="ln-33"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-34"></a>      <span class="c">!!</span>
-<a name="ln-35"></a>      <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (velocity only)</span>
-<a name="ln-36"></a>      <span class="c">!!</span>
-<a name="ln-37"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vb2vh_tp.f90 </span>
-<a name="ln-38"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vb2h_tp.f </span>
-<a name="ln-39"></a>      <span class="k">implicit none</span>
-<a name="ln-40"></a>      <span class="c">! Arguments</span>
-<a name="ln-41"></a>      <span class="k">class</span><span class="p">(</span><span class="n">helio_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-42"></a>      <span class="kt">real</span><span 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">vbcb</span>  <span class="c">!! Barycentric velocity of the central body</span>
-<a name="ln-43"></a>
-<a name="ln-44"></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-45"></a>
-<a name="ln-46"></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-47"></a>         <span class="k">where</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-48"></a>            <span class="n">tp</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">ntp</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="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-49"></a>            <span class="n">tp</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">ntp</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="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-50"></a>            <span class="n">tp</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">ntp</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="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-51"></a>         <span class="k">end where</span>
-<a name="ln-52"></a><span class="k">      end associate</span>
-<a name="ln-53"></a>
-<a name="ln-54"></a><span class="k">      return</span>
-<a name="ln-55"></a><span class="k">   end subroutine </span><span class="n">helio_coord_vb2vh_tp</span>
-<a name="ln-56"></a>
-<a name="ln-57"></a>
-<a name="ln-58"></a>   <span class="k">module subroutine </span><span class="n">helio_coord_vh2vb_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-59"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-60"></a>      <span class="c">!!</span>
-<a name="ln-61"></a>      <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</span>
-<a name="ln-62"></a>      <span class="c">!!</span>
-<a name="ln-63"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vh2vb.f90 </span>
-<a name="ln-64"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vh2b.f </span>
-<a name="ln-65"></a>      <span class="k">implicit none</span>
-<a name="ln-66"></a>      <span class="c">! Arguments</span>
-<a name="ln-67"></a>      <span class="k">class</span><span class="p">(</span><span class="n">helio_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-68"></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-69"></a>      <span class="c">! Internals</span>
-<a name="ln-70"></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-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">Gmtot</span>
-<a name="ln-72"></a>
-<a name="ln-73"></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-74"></a>
-<a name="ln-75"></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-76"></a>         <span class="n">Gmtot</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="nb">sum</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">npl</span><span class="p">))</span>
-<a name="ln-77"></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-78"></a>            <span class="n">cb</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="o">-</span><span class="nb">sum</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">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="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">Gmtot</span>
-<a name="ln-79"></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="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="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">cb</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-80"></a>         <span class="k">end do</span>
-<a name="ln-81"></a><span class="k">      end associate</span>
-<a name="ln-82"></a>
-<a name="ln-83"></a><span class="k">      return</span>
-<a name="ln-84"></a><span class="k">   end subroutine </span><span class="n">helio_coord_vh2vb_pl</span>
-<a name="ln-85"></a>
-<a name="ln-86"></a>
-<a name="ln-87"></a>   <span class="k">module subroutine </span><span class="n">helio_coord_vh2vb_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</span><span class="p">)</span>
-<a name="ln-88"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-89"></a>      <span class="c">!!</span>
-<a name="ln-90"></a>      <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (velocity only)</span>
-<a name="ln-91"></a>      <span class="c">!!</span>
-<a name="ln-92"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vh2vb_tp.f90</span>
-<a name="ln-93"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vh2b_tp.f </span>
-<a name="ln-94"></a>      <span class="k">implicit none</span>
-<a name="ln-95"></a>      <span class="c">! Arguments</span>
-<a name="ln-96"></a>      <span class="k">class</span><span class="p">(</span><span class="n">helio_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-97"></a>      <span class="kt">real</span><span 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">vbcb</span> <span class="c">!! Barycentric velocity of the central body</span>
-<a name="ln-98"></a>
-<a name="ln-99"></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-100"></a>
-<a name="ln-101"></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-102"></a>         <span class="k">where</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-103"></a>            <span class="n">tp</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="mi">1</span><span class="p">:</span><span class="n">ntp</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="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-104"></a>            <span class="n">tp</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="mi">1</span><span class="p">:</span><span class="n">ntp</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="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-105"></a>            <span class="n">tp</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="mi">1</span><span class="p">:</span><span class="n">ntp</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="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-106"></a>         <span class="k">end where</span>
-<a name="ln-107"></a><span class="k">      end associate</span>
-<a name="ln-108"></a>
-<a name="ln-109"></a><span class="k">      return</span>
-<a name="ln-110"></a><span class="k">   end subroutine </span><span class="n">helio_coord_vh2vb_tp</span>
-<a name="ln-111"></a>   
-<a name="ln-112"></a><span class="k">end submodule </span><span class="n">s_helio_coord</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/helio_drift.f90.html b/docs/sourcefile/helio_drift.f90.html
index f4d8ac16b..89831059c 100644
--- a/docs/sourcefile/helio_drift.f90.html
+++ b/docs/sourcefile/helio_drift.f90.html
@@ -134,7 +134,7 @@ <h1>helio_drift.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for source files.">97 statements</a>
+    title=" 0.6% of total for source files.">97 statements</a>
      </li> 
      
      
@@ -226,244 +226,297 @@ <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="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)">
+<svg id="sourcefilehelio_driftf90EfferentGraph" width="641pt" height="264pt"
+ viewBox="0.00 0.00 641.00 264.45" 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 369.36)">
 <title>sourcefile~~helio_drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 894,-225.23 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-369.36 901,-369.36 901,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,-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>
+<polygon fill="none" stroke="black" points="897,-244.36 820,-244.36 820,-220.36 897,-220.36 897,-244.36"/>
+<text text-anchor="middle" x="858.5" y="-229.96" 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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-285.36 442.5,-285.36 442.5,-261.36 536.5,-261.36 536.5,-285.36"/>
+<text text-anchor="middle" x="489.5" y="-270.96" 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,-155.46C768.08,-159.57 690.84,-166.53 624.5,-172"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.95,-236.56C755.3,-243.78 622.65,-258.6 546.87,-267.07"/>
+<polygon fill="#000000" stroke="#000000" points="546.12,-263.63 536.57,-268.22 546.9,-270.59 546.12,-263.63"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-205.36 718,-205.36 718,-181.36 784,-181.36 784,-205.36"/>
+<text text-anchor="middle" x="751" y="-190.96" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M824.99,-220.35C815.17,-216.72 804.25,-212.68 793.91,-208.86"/>
+<polygon fill="#000000" stroke="#000000" points="794.82,-205.46 784.23,-205.28 792.39,-212.03 794.82,-205.46"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-169.36 143.5,-169.36 143.5,-145.36 250.5,-145.36 250.5,-169.36"/>
+<text text-anchor="middle" x="197" y="-154.96" 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_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="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.02,-261.36C416.3,-253.71 379.94,-243.39 348,-233.36"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node5" 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>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-285.36 300,-285.36 300,-261.36 394,-261.36 394,-285.36"/>
+<text text-anchor="middle" x="347" y="-270.96" 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-273.36C430.24,-273.36 416.87,-273.36 404.14,-273.36"/>
+<polygon fill="#000000" stroke="#000000" points="404.11,-269.86 394.11,-273.36 404.11,-276.86 404.11,-269.86"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node8" 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>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-129.36 0,-129.36 0,-105.36 106,-105.36 106,-129.36"/>
+<text text-anchor="middle" x="53" y="-114.96" 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~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge5" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-313.36C280.38,-317.95 256.69,-343.07 198,-313.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.54,-285.44C431.57,-296.17 387.72,-310.59 348,-313.36"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge12" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C596.91,-241.25 564.16,-250.59 538.22,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.18,-255.06 528.63,-261.31 539.21,-261.76 537.18,-255.06"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node4" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C566.22,-248.39 407.05,-251.9 348,-233.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-233.36C301.78,-218.48 254.45,-192.12 225.53,-174.7"/>
+<polygon fill="#000000" stroke="#000000" points="227.17,-171.6 216.81,-169.38 223.53,-177.58 227.17,-171.6"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_drift.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="M488.5,-313.36C469.29,-318.47 420.92,-302.33 386.31,-289.04"/>
+<polygon fill="#000000" stroke="#000000" points="387.54,-285.76 376.95,-285.39 384.99,-292.28 387.54,-285.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C579.86,-245.22 579.27,-271.86 537,-294.36 517.29,-304.86 512.08,-307.63 490.5,-313.36"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-71.36 142,-71.36 142,-47.36 252,-47.36 252,-71.36"/>
+<text text-anchor="middle" x="197" y="-56.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.11,-181.24C673.9,-162.21 576.83,-126.39 490.5,-115.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C450.37,-105.72 444.18,-92.81 406,-83.36 358.57,-71.63 303.6,-65.61 262.09,-62.53"/>
+<polygon fill="#000000" stroke="#000000" points="262.33,-59.03 252.11,-61.82 261.84,-66.02 262.33,-59.03"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-205.36 442,-205.36 442,-181.36 537,-181.36 537,-205.36"/>
+<text text-anchor="middle" x="489.5" y="-190.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~~helio_drift.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge9" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C607.75,-238.73 561.31,-222.53 527.91,-209.22"/>
+<polygon fill="#000000" stroke="#000000" points="529.02,-205.89 518.44,-205.38 526.39,-212.38 529.02,-205.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.51,-205.49C695.22,-214.7 660.16,-227 628.5,-234.36"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_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="M488.5,-313.36C428.15,-329.42 410.29,-309.01 348,-313.36"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<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>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-50.36 573,-50.36 573,-26.36 682,-26.36 682,-50.36"/>
+<text text-anchor="middle" x="627.5" y="-35.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~lambda_function.f90 -->
-<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="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_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.45,-181.26C728.8,-163.48 704.21,-129.38 682,-101.36 670.41,-86.75 656.8,-70.73 646.2,-58.5"/>
+<polygon fill="#000000" stroke="#000000" points="648.62,-55.95 639.41,-50.71 643.34,-60.55 648.62,-55.95"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-205.36 576,-205.36 576,-181.36 679,-181.36 679,-205.36"/>
+<text text-anchor="middle" x="627.5" y="-190.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~symba_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge13" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-193.36C708.99,-193.36 699.2,-193.36 689.41,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-189.86 679.24,-193.36 689.24,-196.86 689.24,-189.86"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-129.36 294.5,-129.36 294.5,-105.36 399.5,-105.36 399.5,-129.36"/>
+<text text-anchor="middle" x="347" y="-114.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- 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~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C462.88,-112.09 434.42,-111.87 409.85,-112.73"/>
+<polygon fill="#000000" stroke="#000000" points="409.42,-109.25 399.58,-113.16 409.72,-116.24 409.42,-109.25"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_drift.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="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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-365.36 288,-365.36 288,-341.36 406,-341.36 406,-365.36"/>
+<text text-anchor="middle" x="347" y="-350.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-313.36C458.62,-321.31 425.33,-330.76 398.66,-338.48"/>
+<polygon fill="#000000" stroke="#000000" points="397.41,-335.2 388.78,-341.35 399.36,-341.92 397.41,-335.2"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge16" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-145.36C138.79,-141.25 122.26,-136.59 106.93,-132.27"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-128.84 97.07,-129.5 105.74,-135.58 107.64,-128.84"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~helio_drift.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.58,-261.32C304.92,-257.45 295.81,-252.75 288,-247.36 258.87,-227.29 230.97,-197.11 214.16,-177.33"/>
+<polygon fill="#000000" stroke="#000000" points="216.75,-174.98 207.66,-169.55 211.38,-179.47 216.75,-174.98"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge20" class="edge">
+<g id="sourcefile~~helio_drift.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-313.36C122.75,-276.29 78.59,-181.63 61.79,-138.89"/>
+<polygon fill="#000000" stroke="#000000" points="65.02,-137.53 58.19,-129.43 58.48,-140.03 65.02,-137.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-285.48C281.72,-300.81 219.02,-324 198,-313.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_drift.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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-71.38C145.16,-80.13 115.94,-92.06 92.64,-101.58"/>
+<polygon fill="#000000" stroke="#000000" points="91.32,-98.34 83.38,-105.36 93.97,-104.82 91.32,-98.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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="M471.61,-205.56C455.27,-217.08 429.58,-234.47 406,-247.36 399.89,-250.71 393.26,-253.99 386.74,-257.02"/>
+<polygon fill="#000000" stroke="#000000" points="385.01,-253.97 377.35,-261.29 387.9,-260.34 385.01,-253.97"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.54,-181.34C366.43,-160.05 210.45,-117.89 198,-117.36"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.57,-26.29C488.58,-6.16 290.1,26.04 142,-38.36 112.15,-51.34 85.52,-78.55 69.57,-97.38"/>
+<polygon fill="#000000" stroke="#000000" points="66.86,-95.16 63.22,-105.11 72.27,-99.61 66.86,-95.16"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge26" 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.18,-205.47C592.17,-209.95 582.03,-215.2 573,-220.36 553.67,-231.41 532.56,-245 516.53,-255.66"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-252.77 508.19,-261.24 518.45,-258.58 514.56,-252.77"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C412.11,-132.65 320.22,-138.83 260.53,-146.72"/>
+<polygon fill="#000000" stroke="#000000" points="259.93,-143.27 250.51,-148.1 260.89,-150.21 259.93,-143.27"/>
 </g>
-<!-- sourcefile~symba_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_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-193.36C566.54,-193.36 556.76,-193.36 547.27,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-189.86 537.14,-193.36 547.14,-196.86 547.14,-189.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.76,-181.29C558.75,-173.31 522.53,-162.65 490.5,-153.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C466.16,-146.89 461.07,-142.67 442,-129.36 424.2,-116.94 426.23,-104.23 406,-96.36 357.12,-77.35 340.1,-90.37 288,-96.36 247.2,-101.06 239.07,-117.23 198,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-117.36C169.89,-117.02 141.08,-116.96 116.28,-117.01"/>
+<polygon fill="#000000" stroke="#000000" points="116.26,-113.51 106.27,-117.03 116.28,-120.51 116.26,-113.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C461.57,-146.06 431.64,-138.34 406.34,-131.93"/>
+<polygon fill="#000000" stroke="#000000" points="407.08,-128.5 396.53,-129.44 405.37,-135.29 407.08,-128.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-129.37C286.15,-133.54 268.65,-138.27 252.49,-142.64"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-139.31 242.63,-145.3 253.2,-146.07 251.37,-139.31"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.27,-118.43C265.84,-118.75 229.96,-118.71 198,-117.36"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.77,-343.39C259.66,-337.16 226.02,-327.55 198,-313.36"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_gr.f90.html b/docs/sourcefile/helio_gr.f90.html
index 282057fac..5ea4306a5 100644
--- a/docs/sourcefile/helio_gr.f90.html
+++ b/docs/sourcefile/helio_gr.f90.html
@@ -226,244 +226,297 @@ <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="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)">
+<svg id="sourcefilehelio_grf90EfferentGraph" width="641pt" height="267pt"
+ viewBox="0.00 0.00 641.00 267.11" 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 369.36)">
 <title>sourcefile~~helio_gr.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 885,-225.23 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-369.36 892,-369.36 892,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,-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>
+<polygon fill="none" stroke="black" points="888,-244.36 820,-244.36 820,-220.36 888,-220.36 888,-244.36"/>
+<text text-anchor="middle" x="854" y="-229.96" 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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-285.36 442.5,-285.36 442.5,-261.36 536.5,-261.36 536.5,-285.36"/>
+<text text-anchor="middle" x="489.5" y="-270.96" 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,-155.14C769.72,-159.23 691.46,-166.48 624.5,-172"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.87,-236.11C757.73,-243.14 623.07,-258.37 546.57,-267.02"/>
+<polygon fill="#000000" stroke="#000000" points="546.17,-263.55 536.63,-268.15 546.96,-270.5 546.17,-263.55"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-205.36 718,-205.36 718,-181.36 784,-181.36 784,-205.36"/>
+<text text-anchor="middle" x="751" y="-190.96" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M821.87,-220.35C812.66,-216.79 802.43,-212.84 792.7,-209.08"/>
+<polygon fill="#000000" stroke="#000000" points="793.79,-205.75 783.2,-205.41 791.27,-212.28 793.79,-205.75"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-169.36 143.5,-169.36 143.5,-145.36 250.5,-145.36 250.5,-169.36"/>
+<text text-anchor="middle" x="197" y="-154.96" 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_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="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.02,-261.36C416.3,-253.71 379.94,-243.39 348,-233.36"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node5" 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>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-285.36 300,-285.36 300,-261.36 394,-261.36 394,-285.36"/>
+<text text-anchor="middle" x="347" y="-270.96" 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-273.36C430.24,-273.36 416.87,-273.36 404.14,-273.36"/>
+<polygon fill="#000000" stroke="#000000" points="404.11,-269.86 394.11,-273.36 404.11,-276.86 404.11,-269.86"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node8" 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>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-129.36 0,-129.36 0,-105.36 106,-105.36 106,-129.36"/>
+<text text-anchor="middle" x="53" y="-114.96" 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~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge5" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-313.36C280.38,-317.95 256.69,-343.07 198,-313.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.54,-285.44C431.57,-296.17 387.72,-310.59 348,-313.36"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge12" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C596.91,-241.25 564.16,-250.59 538.22,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.18,-255.06 528.63,-261.31 539.21,-261.76 537.18,-255.06"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node4" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C566.22,-248.39 407.05,-251.9 348,-233.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-233.36C301.78,-218.48 254.45,-192.12 225.53,-174.7"/>
+<polygon fill="#000000" stroke="#000000" points="227.17,-171.6 216.81,-169.38 223.53,-177.58 227.17,-171.6"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_gr.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="M488.5,-313.36C469.29,-318.47 420.92,-302.33 386.31,-289.04"/>
+<polygon fill="#000000" stroke="#000000" points="387.54,-285.76 376.95,-285.39 384.99,-292.28 387.54,-285.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C579.86,-245.22 579.27,-271.86 537,-294.36 517.29,-304.86 512.08,-307.63 490.5,-313.36"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-71.36 142,-71.36 142,-47.36 252,-47.36 252,-71.36"/>
+<text text-anchor="middle" x="197" y="-56.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.11,-181.24C673.9,-162.21 576.83,-126.39 490.5,-115.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C450.37,-105.72 444.18,-92.81 406,-83.36 358.57,-71.63 303.6,-65.61 262.09,-62.53"/>
+<polygon fill="#000000" stroke="#000000" points="262.33,-59.03 252.11,-61.82 261.84,-66.02 262.33,-59.03"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-205.36 442,-205.36 442,-181.36 537,-181.36 537,-205.36"/>
+<text text-anchor="middle" x="489.5" y="-190.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~~helio_gr.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge9" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C607.75,-238.73 561.31,-222.53 527.91,-209.22"/>
+<polygon fill="#000000" stroke="#000000" points="529.02,-205.89 518.44,-205.38 526.39,-212.38 529.02,-205.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.51,-205.49C695.22,-214.7 660.16,-227 628.5,-234.36"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_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="M488.5,-313.36C428.15,-329.42 410.29,-309.01 348,-313.36"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<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>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-50.36 573,-50.36 573,-26.36 682,-26.36 682,-50.36"/>
+<text text-anchor="middle" x="627.5" y="-35.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~lambda_function.f90 -->
-<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="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_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.45,-181.26C728.8,-163.48 704.21,-129.38 682,-101.36 670.41,-86.75 656.8,-70.73 646.2,-58.5"/>
+<polygon fill="#000000" stroke="#000000" points="648.62,-55.95 639.41,-50.71 643.34,-60.55 648.62,-55.95"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-205.36 576,-205.36 576,-181.36 679,-181.36 679,-205.36"/>
+<text text-anchor="middle" x="627.5" y="-190.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~symba_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge13" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-193.36C708.99,-193.36 699.2,-193.36 689.41,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-189.86 679.24,-193.36 689.24,-196.86 689.24,-189.86"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-129.36 294.5,-129.36 294.5,-105.36 399.5,-105.36 399.5,-129.36"/>
+<text text-anchor="middle" x="347" y="-114.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- 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~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C462.88,-112.09 434.42,-111.87 409.85,-112.73"/>
+<polygon fill="#000000" stroke="#000000" points="409.42,-109.25 399.58,-113.16 409.72,-116.24 409.42,-109.25"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_gr.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="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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-365.36 288,-365.36 288,-341.36 406,-341.36 406,-365.36"/>
+<text text-anchor="middle" x="347" y="-350.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-313.36C458.62,-321.31 425.33,-330.76 398.66,-338.48"/>
+<polygon fill="#000000" stroke="#000000" points="397.41,-335.2 388.78,-341.35 399.36,-341.92 397.41,-335.2"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge16" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-145.36C138.79,-141.25 122.26,-136.59 106.93,-132.27"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-128.84 97.07,-129.5 105.74,-135.58 107.64,-128.84"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~helio_gr.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.58,-261.32C304.92,-257.45 295.81,-252.75 288,-247.36 258.87,-227.29 230.97,-197.11 214.16,-177.33"/>
+<polygon fill="#000000" stroke="#000000" points="216.75,-174.98 207.66,-169.55 211.38,-179.47 216.75,-174.98"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge20" class="edge">
+<g id="sourcefile~~helio_gr.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-313.36C122.75,-276.29 78.59,-181.63 61.79,-138.89"/>
+<polygon fill="#000000" stroke="#000000" points="65.02,-137.53 58.19,-129.43 58.48,-140.03 65.02,-137.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-285.48C281.72,-300.81 219.02,-324 198,-313.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_gr.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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-71.38C145.16,-80.13 115.94,-92.06 92.64,-101.58"/>
+<polygon fill="#000000" stroke="#000000" points="91.32,-98.34 83.38,-105.36 93.97,-104.82 91.32,-98.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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="M471.61,-205.56C455.27,-217.08 429.58,-234.47 406,-247.36 399.89,-250.71 393.26,-253.99 386.74,-257.02"/>
+<polygon fill="#000000" stroke="#000000" points="385.01,-253.97 377.35,-261.29 387.9,-260.34 385.01,-253.97"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.54,-181.34C366.43,-160.05 210.45,-117.89 198,-117.36"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.57,-26.29C488.58,-6.16 290.1,26.04 142,-38.36 112.15,-51.34 85.52,-78.55 69.57,-97.38"/>
+<polygon fill="#000000" stroke="#000000" points="66.86,-95.16 63.22,-105.11 72.27,-99.61 66.86,-95.16"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge26" 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.18,-205.47C592.17,-209.95 582.03,-215.2 573,-220.36 553.67,-231.41 532.56,-245 516.53,-255.66"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-252.77 508.19,-261.24 518.45,-258.58 514.56,-252.77"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C412.11,-132.65 320.22,-138.83 260.53,-146.72"/>
+<polygon fill="#000000" stroke="#000000" points="259.93,-143.27 250.51,-148.1 260.89,-150.21 259.93,-143.27"/>
 </g>
-<!-- sourcefile~symba_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_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-193.36C566.54,-193.36 556.76,-193.36 547.27,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-189.86 537.14,-193.36 547.14,-196.86 547.14,-189.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.76,-181.29C558.75,-173.31 522.53,-162.65 490.5,-153.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C466.16,-146.89 461.07,-142.67 442,-129.36 424.2,-116.94 426.23,-104.23 406,-96.36 357.12,-77.35 340.1,-90.37 288,-96.36 247.2,-101.06 239.07,-117.23 198,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-117.36C169.89,-117.02 141.08,-116.96 116.28,-117.01"/>
+<polygon fill="#000000" stroke="#000000" points="116.26,-113.51 106.27,-117.03 116.28,-120.51 116.26,-113.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C461.57,-146.06 431.64,-138.34 406.34,-131.93"/>
+<polygon fill="#000000" stroke="#000000" points="407.08,-128.5 396.53,-129.44 405.37,-135.29 407.08,-128.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-129.37C286.15,-133.54 268.65,-138.27 252.49,-142.64"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-139.31 242.63,-145.3 253.2,-146.07 251.37,-139.31"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.27,-118.43C265.84,-118.75 229.96,-118.71 198,-117.36"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.77,-343.39C259.66,-337.16 226.02,-327.55 198,-313.36"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_kick.f90.html b/docs/sourcefile/helio_kick.f90.html
index 0b9b96443..0fa9cb557 100644
--- a/docs/sourcefile/helio_kick.f90.html
+++ b/docs/sourcefile/helio_kick.f90.html
@@ -134,7 +134,7 @@ <h1>helio_kick.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for source files.">99 statements</a>
+    title=" 0.6% of total for source files.">99 statements</a>
      </li> 
      
      
@@ -226,244 +226,297 @@ <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="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)">
+<svg id="sourcefilehelio_kickf90EfferentGraph" width="641pt" height="264pt"
+ viewBox="0.00 0.00 641.00 264.45" 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 369.36)">
 <title>sourcefile~~helio_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 894,-225.23 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-369.36 901,-369.36 901,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,-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>
+<polygon fill="none" stroke="black" points="897,-244.36 820,-244.36 820,-220.36 897,-220.36 897,-244.36"/>
+<text text-anchor="middle" x="858.5" y="-229.96" 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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-285.36 442.5,-285.36 442.5,-261.36 536.5,-261.36 536.5,-285.36"/>
+<text text-anchor="middle" x="489.5" y="-270.96" 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,-155.46C768.08,-159.57 690.84,-166.53 624.5,-172"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.95,-236.56C755.3,-243.78 622.65,-258.6 546.87,-267.07"/>
+<polygon fill="#000000" stroke="#000000" points="546.12,-263.63 536.57,-268.22 546.9,-270.59 546.12,-263.63"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-205.36 718,-205.36 718,-181.36 784,-181.36 784,-205.36"/>
+<text text-anchor="middle" x="751" y="-190.96" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M824.99,-220.35C815.17,-216.72 804.25,-212.68 793.91,-208.86"/>
+<polygon fill="#000000" stroke="#000000" points="794.82,-205.46 784.23,-205.28 792.39,-212.03 794.82,-205.46"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-169.36 143.5,-169.36 143.5,-145.36 250.5,-145.36 250.5,-169.36"/>
+<text text-anchor="middle" x="197" y="-154.96" 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_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="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.02,-261.36C416.3,-253.71 379.94,-243.39 348,-233.36"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node5" 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>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-285.36 300,-285.36 300,-261.36 394,-261.36 394,-285.36"/>
+<text text-anchor="middle" x="347" y="-270.96" 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-273.36C430.24,-273.36 416.87,-273.36 404.14,-273.36"/>
+<polygon fill="#000000" stroke="#000000" points="404.11,-269.86 394.11,-273.36 404.11,-276.86 404.11,-269.86"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node8" 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>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-129.36 0,-129.36 0,-105.36 106,-105.36 106,-129.36"/>
+<text text-anchor="middle" x="53" y="-114.96" 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~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge5" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-313.36C280.38,-317.95 256.69,-343.07 198,-313.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.54,-285.44C431.57,-296.17 387.72,-310.59 348,-313.36"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge12" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C596.91,-241.25 564.16,-250.59 538.22,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.18,-255.06 528.63,-261.31 539.21,-261.76 537.18,-255.06"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node4" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C566.22,-248.39 407.05,-251.9 348,-233.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-233.36C301.78,-218.48 254.45,-192.12 225.53,-174.7"/>
+<polygon fill="#000000" stroke="#000000" points="227.17,-171.6 216.81,-169.38 223.53,-177.58 227.17,-171.6"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_kick.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="M488.5,-313.36C469.29,-318.47 420.92,-302.33 386.31,-289.04"/>
+<polygon fill="#000000" stroke="#000000" points="387.54,-285.76 376.95,-285.39 384.99,-292.28 387.54,-285.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C579.86,-245.22 579.27,-271.86 537,-294.36 517.29,-304.86 512.08,-307.63 490.5,-313.36"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-71.36 142,-71.36 142,-47.36 252,-47.36 252,-71.36"/>
+<text text-anchor="middle" x="197" y="-56.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.11,-181.24C673.9,-162.21 576.83,-126.39 490.5,-115.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C450.37,-105.72 444.18,-92.81 406,-83.36 358.57,-71.63 303.6,-65.61 262.09,-62.53"/>
+<polygon fill="#000000" stroke="#000000" points="262.33,-59.03 252.11,-61.82 261.84,-66.02 262.33,-59.03"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-205.36 442,-205.36 442,-181.36 537,-181.36 537,-205.36"/>
+<text text-anchor="middle" x="489.5" y="-190.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~~helio_kick.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge9" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C607.75,-238.73 561.31,-222.53 527.91,-209.22"/>
+<polygon fill="#000000" stroke="#000000" points="529.02,-205.89 518.44,-205.38 526.39,-212.38 529.02,-205.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.51,-205.49C695.22,-214.7 660.16,-227 628.5,-234.36"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_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="M488.5,-313.36C428.15,-329.42 410.29,-309.01 348,-313.36"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<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>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-50.36 573,-50.36 573,-26.36 682,-26.36 682,-50.36"/>
+<text text-anchor="middle" x="627.5" y="-35.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~lambda_function.f90 -->
-<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="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_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.45,-181.26C728.8,-163.48 704.21,-129.38 682,-101.36 670.41,-86.75 656.8,-70.73 646.2,-58.5"/>
+<polygon fill="#000000" stroke="#000000" points="648.62,-55.95 639.41,-50.71 643.34,-60.55 648.62,-55.95"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-205.36 576,-205.36 576,-181.36 679,-181.36 679,-205.36"/>
+<text text-anchor="middle" x="627.5" y="-190.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~symba_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge13" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-193.36C708.99,-193.36 699.2,-193.36 689.41,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-189.86 679.24,-193.36 689.24,-196.86 689.24,-189.86"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-129.36 294.5,-129.36 294.5,-105.36 399.5,-105.36 399.5,-129.36"/>
+<text text-anchor="middle" x="347" y="-114.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- 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~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C462.88,-112.09 434.42,-111.87 409.85,-112.73"/>
+<polygon fill="#000000" stroke="#000000" points="409.42,-109.25 399.58,-113.16 409.72,-116.24 409.42,-109.25"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_kick.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="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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-365.36 288,-365.36 288,-341.36 406,-341.36 406,-365.36"/>
+<text text-anchor="middle" x="347" y="-350.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-313.36C458.62,-321.31 425.33,-330.76 398.66,-338.48"/>
+<polygon fill="#000000" stroke="#000000" points="397.41,-335.2 388.78,-341.35 399.36,-341.92 397.41,-335.2"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge16" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-145.36C138.79,-141.25 122.26,-136.59 106.93,-132.27"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-128.84 97.07,-129.5 105.74,-135.58 107.64,-128.84"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~helio_kick.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.58,-261.32C304.92,-257.45 295.81,-252.75 288,-247.36 258.87,-227.29 230.97,-197.11 214.16,-177.33"/>
+<polygon fill="#000000" stroke="#000000" points="216.75,-174.98 207.66,-169.55 211.38,-179.47 216.75,-174.98"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge20" class="edge">
+<g id="sourcefile~~helio_kick.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-313.36C122.75,-276.29 78.59,-181.63 61.79,-138.89"/>
+<polygon fill="#000000" stroke="#000000" points="65.02,-137.53 58.19,-129.43 58.48,-140.03 65.02,-137.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-285.48C281.72,-300.81 219.02,-324 198,-313.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-71.38C145.16,-80.13 115.94,-92.06 92.64,-101.58"/>
+<polygon fill="#000000" stroke="#000000" points="91.32,-98.34 83.38,-105.36 93.97,-104.82 91.32,-98.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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="M471.61,-205.56C455.27,-217.08 429.58,-234.47 406,-247.36 399.89,-250.71 393.26,-253.99 386.74,-257.02"/>
+<polygon fill="#000000" stroke="#000000" points="385.01,-253.97 377.35,-261.29 387.9,-260.34 385.01,-253.97"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.54,-181.34C366.43,-160.05 210.45,-117.89 198,-117.36"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.57,-26.29C488.58,-6.16 290.1,26.04 142,-38.36 112.15,-51.34 85.52,-78.55 69.57,-97.38"/>
+<polygon fill="#000000" stroke="#000000" points="66.86,-95.16 63.22,-105.11 72.27,-99.61 66.86,-95.16"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge26" 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.18,-205.47C592.17,-209.95 582.03,-215.2 573,-220.36 553.67,-231.41 532.56,-245 516.53,-255.66"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-252.77 508.19,-261.24 518.45,-258.58 514.56,-252.77"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C412.11,-132.65 320.22,-138.83 260.53,-146.72"/>
+<polygon fill="#000000" stroke="#000000" points="259.93,-143.27 250.51,-148.1 260.89,-150.21 259.93,-143.27"/>
 </g>
-<!-- sourcefile~symba_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_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-193.36C566.54,-193.36 556.76,-193.36 547.27,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-189.86 537.14,-193.36 547.14,-196.86 547.14,-189.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.76,-181.29C558.75,-173.31 522.53,-162.65 490.5,-153.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C466.16,-146.89 461.07,-142.67 442,-129.36 424.2,-116.94 426.23,-104.23 406,-96.36 357.12,-77.35 340.1,-90.37 288,-96.36 247.2,-101.06 239.07,-117.23 198,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-117.36C169.89,-117.02 141.08,-116.96 116.28,-117.01"/>
+<polygon fill="#000000" stroke="#000000" points="116.26,-113.51 106.27,-117.03 116.28,-120.51 116.26,-113.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C461.57,-146.06 431.64,-138.34 406.34,-131.93"/>
+<polygon fill="#000000" stroke="#000000" points="407.08,-128.5 396.53,-129.44 405.37,-135.29 407.08,-128.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-129.37C286.15,-133.54 268.65,-138.27 252.49,-142.64"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-139.31 242.63,-145.3 253.2,-146.07 251.37,-139.31"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.27,-118.43C265.84,-118.75 229.96,-118.71 198,-117.36"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.77,-343.39C259.66,-337.16 226.02,-327.55 198,-313.36"/>
 </g>
 </g>
 </svg>
@@ -625,9 +678,9 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-65"></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">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-66"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">lbeg</span> <span class="o">=</span> <span class="n">lbeg</span>
 <a name="ln-67"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-68"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">(:,:),</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-68"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">npl</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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">npl</span><span class="p">)</span>
 <a name="ln-69"></a>         <span class="k">else</span>
-<a name="ln-70"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">(:,:),</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-70"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">npl</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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">npl</span><span class="p">)</span>
 <a name="ln-71"></a>         <span class="k">end if</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">loblatecb</span><span class="p">)</span> <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
 <a name="ln-73"></a>         <span class="k">if</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">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_user</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>
@@ -659,7 +712,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-99"></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-100"></a>
 <a name="ln-101"></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-102"></a>         <span class="n">pl</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-102"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
 <a name="ln-103"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel</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-104"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
 <a name="ln-105"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
@@ -696,7 +749,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-136"></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-137"></a>
 <a name="ln-138"></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-139"></a>         <span class="n">tp</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-139"></a>         <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
 <a name="ln-140"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel</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-141"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> 
 <a name="ln-142"></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">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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">dt</span>
diff --git a/docs/sourcefile/helio_setup.f90.html b/docs/sourcefile/helio_setup.f90.html
new file mode 100644
index 000000000..3e1dfce67
--- /dev/null
+++ b/docs/sourcefile/helio_setup.f90.html
@@ -0,0 +1,695 @@
+<!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>helio_setup.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>helio_setup.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.1% of total for source files.">15 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/helio_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">helio_setup.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_helio_setup.html">s_helio_setup</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/helio_setup.f90.html#src">helio_setup.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~~helio_setup.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilehelio_setupf90EfferentGraph" width="641pt" height="262pt"
+ viewBox="0.00 0.00 641.00 262.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 369.36)">
+<title>sourcefile~~helio_setup.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-369.36 909,-369.36 909,4 -4,4"/>
+<!-- sourcefile~helio_setup.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~helio_setup.f90</title>
+<polygon fill="none" stroke="black" points="905,-244.36 820,-244.36 820,-220.36 905,-220.36 905,-244.36"/>
+<text text-anchor="middle" x="862.5" y="-229.96" font-family="Helvetica,sans-Serif" font-size="10.50">helio_setup.f90</text>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-285.36 442.5,-285.36 442.5,-261.36 536.5,-261.36 536.5,-285.36"/>
+<text text-anchor="middle" x="489.5" y="-270.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.66,-236.99C752.79,-244.38 621.72,-258.86 546.73,-267.15"/>
+<polygon fill="#000000" stroke="#000000" points="546.08,-263.7 536.53,-268.28 546.85,-270.66 546.08,-263.7"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-205.36 718,-205.36 718,-181.36 784,-181.36 784,-205.36"/>
+<text text-anchor="middle" x="751" y="-190.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M827.75,-220.35C817.06,-216.54 805.11,-212.28 793.91,-208.29"/>
+<polygon fill="#000000" stroke="#000000" points="794.92,-204.94 784.32,-204.88 792.57,-211.53 794.92,-204.94"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-169.36 143.5,-169.36 143.5,-145.36 250.5,-145.36 250.5,-169.36"/>
+<text text-anchor="middle" x="197" y="-154.96" 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_setup.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="M444.02,-261.36C416.3,-253.71 379.94,-243.39 348,-233.36"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-285.36 300,-285.36 300,-261.36 394,-261.36 394,-285.36"/>
+<text text-anchor="middle" x="347" y="-270.96" 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~whm_classes.f90 -->
+<g id="sourcefile~~helio_setup.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="M442.5,-273.36C430.24,-273.36 416.87,-273.36 404.14,-273.36"/>
+<polygon fill="#000000" stroke="#000000" points="404.11,-269.86 394.11,-273.36 404.11,-276.86 404.11,-269.86"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-129.36 0,-129.36 0,-105.36 106,-105.36 106,-129.36"/>
+<text text-anchor="middle" x="53" y="-114.96" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-313.36C280.38,-317.95 256.69,-343.07 198,-313.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.54,-285.44C431.57,-296.17 387.72,-310.59 348,-313.36"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C596.91,-241.25 564.16,-250.59 538.22,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.18,-255.06 528.63,-261.31 539.21,-261.76 537.18,-255.06"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C566.22,-248.39 407.05,-251.9 348,-233.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-233.36C301.78,-218.48 254.45,-192.12 225.53,-174.7"/>
+<polygon fill="#000000" stroke="#000000" points="227.17,-171.6 216.81,-169.38 223.53,-177.58 227.17,-171.6"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_setup.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="M488.5,-313.36C469.29,-318.47 420.92,-302.33 386.31,-289.04"/>
+<polygon fill="#000000" stroke="#000000" points="387.54,-285.76 376.95,-285.39 384.99,-292.28 387.54,-285.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C579.86,-245.22 579.27,-271.86 537,-294.36 517.29,-304.86 512.08,-307.63 490.5,-313.36"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-71.36 142,-71.36 142,-47.36 252,-47.36 252,-71.36"/>
+<text text-anchor="middle" x="197" y="-56.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.11,-181.24C673.9,-162.21 576.83,-126.39 490.5,-115.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C450.37,-105.72 444.18,-92.81 406,-83.36 358.57,-71.63 303.6,-65.61 262.09,-62.53"/>
+<polygon fill="#000000" stroke="#000000" points="262.33,-59.03 252.11,-61.82 261.84,-66.02 262.33,-59.03"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-205.36 442,-205.36 442,-181.36 537,-181.36 537,-205.36"/>
+<text text-anchor="middle" x="489.5" y="-190.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~~helio_setup.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C607.75,-238.73 561.31,-222.53 527.91,-209.22"/>
+<polygon fill="#000000" stroke="#000000" points="529.02,-205.89 518.44,-205.38 526.39,-212.38 529.02,-205.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.51,-205.49C695.22,-214.7 660.16,-227 628.5,-234.36"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_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="M488.5,-313.36C428.15,-329.42 410.29,-309.01 348,-313.36"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-50.36 573,-50.36 573,-26.36 682,-26.36 682,-50.36"/>
+<text text-anchor="middle" x="627.5" y="-35.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~lambda_function.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.45,-181.26C728.8,-163.48 704.21,-129.38 682,-101.36 670.41,-86.75 656.8,-70.73 646.2,-58.5"/>
+<polygon fill="#000000" stroke="#000000" points="648.62,-55.95 639.41,-50.71 643.34,-60.55 648.62,-55.95"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-205.36 576,-205.36 576,-181.36 679,-181.36 679,-205.36"/>
+<text text-anchor="middle" x="627.5" y="-190.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~symba_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-193.36C708.99,-193.36 699.2,-193.36 689.41,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-189.86 679.24,-193.36 689.24,-196.86 689.24,-189.86"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-129.36 294.5,-129.36 294.5,-105.36 399.5,-105.36 399.5,-129.36"/>
+<text text-anchor="middle" x="347" y="-114.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C462.88,-112.09 434.42,-111.87 409.85,-112.73"/>
+<polygon fill="#000000" stroke="#000000" points="409.42,-109.25 399.58,-113.16 409.72,-116.24 409.42,-109.25"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_setup.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-365.36 288,-365.36 288,-341.36 406,-341.36 406,-365.36"/>
+<text text-anchor="middle" x="347" y="-350.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~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-313.36C458.62,-321.31 425.33,-330.76 398.66,-338.48"/>
+<polygon fill="#000000" stroke="#000000" points="397.41,-335.2 388.78,-341.35 399.36,-341.92 397.41,-335.2"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge16" 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.4,-145.36C138.79,-141.25 122.26,-136.59 106.93,-132.27"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-128.84 97.07,-129.5 105.74,-135.58 107.64,-128.84"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_setup.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="M313.58,-261.32C304.92,-257.45 295.81,-252.75 288,-247.36 258.87,-227.29 230.97,-197.11 214.16,-177.33"/>
+<polygon fill="#000000" stroke="#000000" points="216.75,-174.98 207.66,-169.55 211.38,-179.47 216.75,-174.98"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.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="M196,-313.36C122.75,-276.29 78.59,-181.63 61.79,-138.89"/>
+<polygon fill="#000000" stroke="#000000" points="65.02,-137.53 58.19,-129.43 58.48,-140.03 65.02,-137.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-285.48C281.72,-300.81 219.02,-324 198,-313.36"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-71.38C145.16,-80.13 115.94,-92.06 92.64,-101.58"/>
+<polygon fill="#000000" stroke="#000000" points="91.32,-98.34 83.38,-105.36 93.97,-104.82 91.32,-98.34"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_setup.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="M471.61,-205.56C455.27,-217.08 429.58,-234.47 406,-247.36 399.89,-250.71 393.26,-253.99 386.74,-257.02"/>
+<polygon fill="#000000" stroke="#000000" points="385.01,-253.97 377.35,-261.29 387.9,-260.34 385.01,-253.97"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.54,-181.34C366.43,-160.05 210.45,-117.89 198,-117.36"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.57,-26.29C488.58,-6.16 290.1,26.04 142,-38.36 112.15,-51.34 85.52,-78.55 69.57,-97.38"/>
+<polygon fill="#000000" stroke="#000000" points="66.86,-95.16 63.22,-105.11 72.27,-99.61 66.86,-95.16"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge26" 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.18,-205.47C592.17,-209.95 582.03,-215.2 573,-220.36 553.67,-231.41 532.56,-245 516.53,-255.66"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-252.77 508.19,-261.24 518.45,-258.58 514.56,-252.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C412.11,-132.65 320.22,-138.83 260.53,-146.72"/>
+<polygon fill="#000000" stroke="#000000" points="259.93,-143.27 250.51,-148.1 260.89,-150.21 259.93,-143.27"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-193.36C566.54,-193.36 556.76,-193.36 547.27,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-189.86 537.14,-193.36 547.14,-196.86 547.14,-189.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.76,-181.29C558.75,-173.31 522.53,-162.65 490.5,-153.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C466.16,-146.89 461.07,-142.67 442,-129.36 424.2,-116.94 426.23,-104.23 406,-96.36 357.12,-77.35 340.1,-90.37 288,-96.36 247.2,-101.06 239.07,-117.23 198,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-117.36C169.89,-117.02 141.08,-116.96 116.28,-117.01"/>
+<polygon fill="#000000" stroke="#000000" points="116.26,-113.51 106.27,-117.03 116.28,-120.51 116.26,-113.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C461.57,-146.06 431.64,-138.34 406.34,-131.93"/>
+<polygon fill="#000000" stroke="#000000" points="407.08,-128.5 396.53,-129.44 405.37,-135.29 407.08,-128.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-129.37C286.15,-133.54 268.65,-138.27 252.49,-142.64"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-139.31 242.63,-145.3 253.2,-146.07 251.37,-139.31"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.27,-118.43C265.84,-118.75 229.96,-118.71 198,-117.36"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_setup.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.77,-343.39C259.66,-337.16 226.02,-327.55 198,-313.36"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilehelio_setupf90EfferentGraph = svgPanZoom('#sourcefilehelio_setupf90EfferentGraph', {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_helio_setup.html">s_helio_setup</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/helio_setup.f90.html#src">helio_setup.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">helio_classes</span><span class="p">)</span> <span class="n">s_helio_setup</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>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">helio_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-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 a Helio nbody system from files, converting all heliocentric quantities to barycentric.</span>
+<a name="ln-9"></a>      <span class="c">!!</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">helio_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">!! Helio nbody 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>
+<a name="ln-15"></a>      <span class="k">call </span><span class="n">whm_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-16"></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">h2b</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-17"></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">h2b</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-18"></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;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-19"></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="nb">index</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-20"></a>
+<a name="ln-21"></a>      <span class="k">return</span>
+<a name="ln-22"></a><span class="k">   end subroutine </span><span class="n">helio_setup_initialize_system</span>
+<a name="ln-23"></a>
+<a name="ln-24"></a><span class="k">end submodule </span><span class="n">s_helio_setup</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/helio_step.f90.html b/docs/sourcefile/helio_step.f90.html
index 5b47fea58..4534208b7 100644
--- a/docs/sourcefile/helio_step.f90.html
+++ b/docs/sourcefile/helio_step.f90.html
@@ -134,7 +134,7 @@ <h1>helio_step.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.">71 statements</a>
+    title=" 0.4% of total for source files.">71 statements</a>
      </li> 
      
      
@@ -226,244 +226,297 @@ <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="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)">
+<svg id="sourcefilehelio_stepf90EfferentGraph" width="641pt" height="264pt"
+ viewBox="0.00 0.00 641.00 263.87" 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 369.36)">
 <title>sourcefile~~helio_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 896,-225.23 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-369.36 903,-369.36 903,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,-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>
+<polygon fill="none" stroke="black" points="899,-244.36 820,-244.36 820,-220.36 899,-220.36 899,-244.36"/>
+<text text-anchor="middle" x="859.5" y="-229.96" 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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-285.36 442.5,-285.36 442.5,-261.36 536.5,-261.36 536.5,-285.36"/>
+<text text-anchor="middle" x="489.5" y="-270.96" 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,-155.53C767.8,-159.63 690.74,-166.54 624.5,-172"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.81,-236.67C754.6,-243.94 622.53,-258.65 546.96,-267.07"/>
+<polygon fill="#000000" stroke="#000000" points="546.24,-263.63 536.69,-268.22 547.01,-270.59 546.24,-263.63"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-205.36 718,-205.36 718,-181.36 784,-181.36 784,-205.36"/>
+<text text-anchor="middle" x="751" y="-190.96" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M825.68,-220.35C815.57,-216.64 804.31,-212.52 793.69,-208.63"/>
+<polygon fill="#000000" stroke="#000000" points="794.76,-205.3 784.17,-205.14 792.35,-211.87 794.76,-205.3"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-169.36 143.5,-169.36 143.5,-145.36 250.5,-145.36 250.5,-169.36"/>
+<text text-anchor="middle" x="197" y="-154.96" 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_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="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.02,-261.36C416.3,-253.71 379.94,-243.39 348,-233.36"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node5" 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>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-285.36 300,-285.36 300,-261.36 394,-261.36 394,-285.36"/>
+<text text-anchor="middle" x="347" y="-270.96" 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-273.36C430.24,-273.36 416.87,-273.36 404.14,-273.36"/>
+<polygon fill="#000000" stroke="#000000" points="404.11,-269.86 394.11,-273.36 404.11,-276.86 404.11,-269.86"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node8" 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>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-129.36 0,-129.36 0,-105.36 106,-105.36 106,-129.36"/>
+<text text-anchor="middle" x="53" y="-114.96" 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~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge5" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-313.36C280.38,-317.95 256.69,-343.07 198,-313.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.54,-285.44C431.57,-296.17 387.72,-310.59 348,-313.36"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge12" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C596.91,-241.25 564.16,-250.59 538.22,-258.4"/>
+<polygon fill="#000000" stroke="#000000" points="537.18,-255.06 528.63,-261.31 539.21,-261.76 537.18,-255.06"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node4" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C566.22,-248.39 407.05,-251.9 348,-233.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-233.36C301.78,-218.48 254.45,-192.12 225.53,-174.7"/>
+<polygon fill="#000000" stroke="#000000" points="227.17,-171.6 216.81,-169.38 223.53,-177.58 227.17,-171.6"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_step.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="M488.5,-313.36C469.29,-318.47 420.92,-302.33 386.31,-289.04"/>
+<polygon fill="#000000" stroke="#000000" points="387.54,-285.76 376.95,-285.39 384.99,-292.28 387.54,-285.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C579.86,-245.22 579.27,-271.86 537,-294.36 517.29,-304.86 512.08,-307.63 490.5,-313.36"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-71.36 142,-71.36 142,-47.36 252,-47.36 252,-71.36"/>
+<text text-anchor="middle" x="197" y="-56.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.11,-181.24C673.9,-162.21 576.83,-126.39 490.5,-115.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C450.37,-105.72 444.18,-92.81 406,-83.36 358.57,-71.63 303.6,-65.61 262.09,-62.53"/>
+<polygon fill="#000000" stroke="#000000" points="262.33,-59.03 252.11,-61.82 261.84,-66.02 262.33,-59.03"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<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>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-205.36 442,-205.36 442,-181.36 537,-181.36 537,-205.36"/>
+<text text-anchor="middle" x="489.5" y="-190.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~~helio_step.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge9" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-234.36C607.75,-238.73 561.31,-222.53 527.91,-209.22"/>
+<polygon fill="#000000" stroke="#000000" points="529.02,-205.89 518.44,-205.38 526.39,-212.38 529.02,-205.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.51,-205.49C695.22,-214.7 660.16,-227 628.5,-234.36"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_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="M488.5,-313.36C428.15,-329.42 410.29,-309.01 348,-313.36"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<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>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-50.36 573,-50.36 573,-26.36 682,-26.36 682,-50.36"/>
+<text text-anchor="middle" x="627.5" y="-35.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~lambda_function.f90 -->
-<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="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_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.45,-181.26C728.8,-163.48 704.21,-129.38 682,-101.36 670.41,-86.75 656.8,-70.73 646.2,-58.5"/>
+<polygon fill="#000000" stroke="#000000" points="648.62,-55.95 639.41,-50.71 643.34,-60.55 648.62,-55.95"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-205.36 576,-205.36 576,-181.36 679,-181.36 679,-205.36"/>
+<text text-anchor="middle" x="627.5" y="-190.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~symba_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge13" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-193.36C708.99,-193.36 699.2,-193.36 689.41,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-189.86 679.24,-193.36 689.24,-196.86 689.24,-189.86"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-129.36 294.5,-129.36 294.5,-105.36 399.5,-105.36 399.5,-129.36"/>
+<text text-anchor="middle" x="347" y="-114.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- 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~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-115.36C462.88,-112.09 434.42,-111.87 409.85,-112.73"/>
+<polygon fill="#000000" stroke="#000000" points="409.42,-109.25 399.58,-113.16 409.72,-116.24 409.42,-109.25"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_step.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="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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-365.36 288,-365.36 288,-341.36 406,-341.36 406,-365.36"/>
+<text text-anchor="middle" x="347" y="-350.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-313.36C458.62,-321.31 425.33,-330.76 398.66,-338.48"/>
+<polygon fill="#000000" stroke="#000000" points="397.41,-335.2 388.78,-341.35 399.36,-341.92 397.41,-335.2"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge16" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-145.36C138.79,-141.25 122.26,-136.59 106.93,-132.27"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-128.84 97.07,-129.5 105.74,-135.58 107.64,-128.84"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~helio_step.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.58,-261.32C304.92,-257.45 295.81,-252.75 288,-247.36 258.87,-227.29 230.97,-197.11 214.16,-177.33"/>
+<polygon fill="#000000" stroke="#000000" points="216.75,-174.98 207.66,-169.55 211.38,-179.47 216.75,-174.98"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge20" class="edge">
+<g id="sourcefile~~helio_step.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-313.36C122.75,-276.29 78.59,-181.63 61.79,-138.89"/>
+<polygon fill="#000000" stroke="#000000" points="65.02,-137.53 58.19,-129.43 58.48,-140.03 65.02,-137.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-285.48C281.72,-300.81 219.02,-324 198,-313.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-71.38C145.16,-80.13 115.94,-92.06 92.64,-101.58"/>
+<polygon fill="#000000" stroke="#000000" points="91.32,-98.34 83.38,-105.36 93.97,-104.82 91.32,-98.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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="M471.61,-205.56C455.27,-217.08 429.58,-234.47 406,-247.36 399.89,-250.71 393.26,-253.99 386.74,-257.02"/>
+<polygon fill="#000000" stroke="#000000" points="385.01,-253.97 377.35,-261.29 387.9,-260.34 385.01,-253.97"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.54,-181.34C366.43,-160.05 210.45,-117.89 198,-117.36"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.57,-26.29C488.58,-6.16 290.1,26.04 142,-38.36 112.15,-51.34 85.52,-78.55 69.57,-97.38"/>
+<polygon fill="#000000" stroke="#000000" points="66.86,-95.16 63.22,-105.11 72.27,-99.61 66.86,-95.16"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge26" 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.18,-205.47C592.17,-209.95 582.03,-215.2 573,-220.36 553.67,-231.41 532.56,-245 516.53,-255.66"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-252.77 508.19,-261.24 518.45,-258.58 514.56,-252.77"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C412.11,-132.65 320.22,-138.83 260.53,-146.72"/>
+<polygon fill="#000000" stroke="#000000" points="259.93,-143.27 250.51,-148.1 260.89,-150.21 259.93,-143.27"/>
 </g>
-<!-- sourcefile~symba_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_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-193.36C566.54,-193.36 556.76,-193.36 547.27,-193.36"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-189.86 537.14,-193.36 547.14,-196.86 547.14,-189.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.76,-181.29C558.75,-173.31 522.53,-162.65 490.5,-153.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C466.16,-146.89 461.07,-142.67 442,-129.36 424.2,-116.94 426.23,-104.23 406,-96.36 357.12,-77.35 340.1,-90.37 288,-96.36 247.2,-101.06 239.07,-117.23 198,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-117.36C169.89,-117.02 141.08,-116.96 116.28,-117.01"/>
+<polygon fill="#000000" stroke="#000000" points="116.26,-113.51 106.27,-117.03 116.28,-120.51 116.26,-113.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-153.36C461.57,-146.06 431.64,-138.34 406.34,-131.93"/>
+<polygon fill="#000000" stroke="#000000" points="407.08,-128.5 396.53,-129.44 405.37,-135.29 407.08,-128.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-129.37C286.15,-133.54 268.65,-138.27 252.49,-142.64"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-139.31 242.63,-145.3 253.2,-146.07 251.37,-139.31"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.27,-118.43C265.84,-118.75 229.96,-118.71 198,-117.36"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.77,-343.39C259.66,-337.16 226.02,-327.55 198,-313.36"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/io.f90.html b/docs/sourcefile/io.f90.html
index 363506a77..b1b7235f6 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.5% of total for source files.">1282 statements</a>
+    title="10.0% of total for source files.">1628 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileiof90EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.42" 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 412.12)">
 <title>sourcefile~~io.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 878,-412.12 878,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,-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>
+<polygon fill="none" stroke="black" points="874,-133.12 820,-133.12 820,-109.12 874,-109.12 874,-133.12"/>
+<text text-anchor="middle" x="847" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">io.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.44,-109.09C789.3,-87.43 705.41,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.09,-133.4C818.2,-149.8 789.87,-179.03 771.01,-198.5"/>
+<polygon fill="#000000" stroke="#000000" points="768.25,-196.32 763.81,-205.93 773.28,-201.19 768.25,-196.32"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~io.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~io.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~io.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~io.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~io.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~io.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -573,1540 +627,1974 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-13"></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-14"></a>      <span class="c">! Internals</span>
 <a name="ln-15"></a>      <span class="kt">real</span><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_now</span><span class="p">,</span>  <span class="n">Lorbit_now</span><span class="p">,</span>  <span class="n">Lspin_now</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="n">NDIM</span><span class="p">),</span> <span class="k">save</span> <span class="kd">::</span> <span class="n">Ltot_last</span><span class="p">,</span> <span class="n">Lorbit_last</span><span class="p">,</span> <span class="n">Lspin_last</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">save</span>                  <span class="kd">::</span> <span class="n">ke_orbit_last</span><span class="p">,</span> <span class="n">ke_spin_last</span><span class="p">,</span> <span class="n">pe_last</span><span class="p">,</span> <span class="n">Eorbit_last</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">ke_orbit_now</span><span class="p">,</span>  <span class="n">ke_spin_now</span><span class="p">,</span>  <span class="n">pe_now</span><span class="p">,</span>  <span class="n">Eorbit_now</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="kd">::</span> <span class="n">Eorbit_error</span><span class="p">,</span> <span class="n">Etotal_error</span><span class="p">,</span> <span class="n">Ecoll_error</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="kd">::</span> <span class="n">Mtot_now</span><span class="p">,</span> <span class="n">Merror</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="kd">::</span> <span class="n">Lmag_now</span><span class="p">,</span> <span class="n">Lerror</span>
-<a name="ln-22"></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">EGYFMT</span> <span class="o">=</span> <span class="s1">&#39;(ES23.16,10(&quot;,&quot;,ES23.16,:))&#39;</span> <span class="c">! Format code for all simulation output</span>
-<a name="ln-23"></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">EGYHEADER</span> <span class="o">=</span> <span class="s1">&#39;(&quot;t,Eorbit,Ecollisions,Lx,Ly,Lz,Mtot&quot;)&#39;</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="k">parameter</span>         <span class="kd">::</span> <span class="n">EGYIU</span> <span class="o">=</span> <span class="mi">72</span>
-<a name="ln-25"></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">EGYTERMFMT</span> <span class="o">=</span> <span class="s1">&#39;(&quot;  DL/L0 = &quot;, ES12.5 &amp;</span>
-<a name="ln-26"></a><span class="s1">                                                         &quot;; DEcollisions/|E0| = &quot;, ES12.5, &amp;</span>
-<a name="ln-27"></a><span class="s1">                                                         &quot;; D(Eorbit+Ecollisions)/|E0| = &quot;, ES12.5, &amp;</span>
-<a name="ln-28"></a><span class="s1">                                                         &quot;; DM/M0 = &quot;, ES12.5)&#39;</span>
-<a name="ln-29"></a>
-<a name="ln-30"></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">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">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">Ecollisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">Ecollisions</span><span class="p">,</span> <span class="n">Lescape</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">Lescape</span><span class="p">,</span> <span class="n">Mescape</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">Mescape</span><span class="p">,</span> <span class="p">&amp;</span>
-<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">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="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-16"></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_now</span><span class="p">,</span>  <span class="n">ke_spin_now</span><span class="p">,</span>  <span class="n">pe_now</span><span class="p">,</span>  <span class="n">Eorbit_now</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="kd">::</span> <span class="n">Eorbit_error</span><span class="p">,</span> <span class="n">Etotal_error</span><span class="p">,</span> <span class="n">Ecoll_error</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">GMtot_now</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="kd">::</span> <span class="n">Lerror</span><span class="p">,</span> <span class="n">Merror</span>
+<a name="ln-20"></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">errmsg</span>
+<a name="ln-21"></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">EGYFMT</span> <span class="o">=</span> <span class="s1">&#39;(ES23.16,10(&quot;,&quot;,ES23.16,:))&#39;</span> <span class="c">! Format code for all simulation output</span>
+<a name="ln-22"></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">EGYHEADER</span> <span class="o">=</span> <span class="s1">&#39;(&quot;t,Eorbit,Ecollisions,Lx,Ly,Lz,Mtot&quot;)&#39;</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">parameter</span>         <span class="kd">::</span> <span class="n">EGYIU</span> <span class="o">=</span> <span class="mi">72</span>
+<a name="ln-24"></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">EGYTERMFMT</span> <span class="o">=</span> <span class="s1">&#39;(&quot;  DL/L0 = &quot;, ES12.5 &amp;</span>
+<a name="ln-25"></a><span class="s1">                                                         &quot;; DEcollisions/|E0| = &quot;, ES12.5, &amp;</span>
+<a name="ln-26"></a><span class="s1">                                                         &quot;; D(Eorbit+Ecollisions)/|E0| = &quot;, ES12.5, &amp;</span>
+<a name="ln-27"></a><span class="s1">                                                         &quot;; DM/M0 = &quot;, ES12.5)&#39;</span>
+<a name="ln-28"></a>
+<a name="ln-29"></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">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">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-30"></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">or</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">(</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-31"></a><span class="k">            if</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="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-32"></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> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-33"></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> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-34"></a>            <span class="k">else</span>
+<a name="ln-35"></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> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-36"></a>            <span class="k">end if</span>
+<a name="ln-37"></a><span class="k">         end if</span>
+<a name="ln-38"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">vb2vh</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-39"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xh2xb</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-40"></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-41"></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-42"></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-43"></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-44"></a>         <span class="n">Lorbit_now</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span>
+<a name="ln-45"></a>         <span class="n">Lspin_now</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span>
+<a name="ln-46"></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-47"></a>         <span class="n">Ltot_now</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span>
+<a name="ln-48"></a>         <span class="n">GMtot_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">GMtot</span> <span class="o">+</span> <span class="n">param</span><span class="p">%</span><span class="n">GMescape</span> 
+<a name="ln-49"></a>
+<a name="ln-50"></a>         <span class="k">if</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">then</span>
+<a name="ln-51"></a><span class="k">            </span><span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span> <span class="o">=</span> <span class="n">Eorbit_now</span>
+<a name="ln-52"></a>            <span class="n">param</span><span class="p">%</span><span class="n">GMtot_orig</span> <span class="o">=</span> <span class="n">GMtot_now</span>
+<a name="ln-53"></a>            <span class="n">param</span><span class="p">%</span><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-54"></a>            <span class="n">param</span><span class="p">%</span><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-55"></a>            <span class="n">param</span><span class="p">%</span><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-56"></a>            <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-57"></a>         <span class="k">end if</span>
+<a name="ln-58"></a>
+<a name="ln-59"></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">or</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">(</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-60"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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">param</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">GMtot_now</span>
+<a name="ln-61"></a>            <span class="k">close</span><span class="p">(</span><span class="n">EGYIU</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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">not</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">then </span>
+<a name="ln-65"></a><span class="k">            </span><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="p">(:)</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(:))</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-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">param</span><span class="p">%</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">param</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">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">param</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">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</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">param</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">GMtot_now</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">GMtot_orig</span><span class="p">)</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GMtot_orig</span>
+<a name="ln-70"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lterminal</span><span class="p">)</span> <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="nb">abs</span><span class="p">(</span><span class="n">Merror</span><span class="p">)</span> <span class="o">&gt;</span> <span class="mi">100</span> <span class="o">*</span> <span class="nb">epsilon</span><span class="p">(</span><span class="n">Merror</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="s2">&quot;Severe error! Mass not conserved! Halting!&quot;</span>
+<a name="ln-73"></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-74"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-75"></a>               <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">write_hdr</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-76"></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">param</span><span class="p">%</span><span class="n">nciu</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="n">pl</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-78"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">close</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-79"></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-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-82"></a><span class="k">      end associate</span>
+<a name="ln-83"></a>
+<a name="ln-84"></a><span class="k">      return</span>
+<a name="ln-85"></a>
+<a name="ln-86"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-87"></a><span class="k">      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 writing energy and momentum tracking 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">errmsg</span><span class="p">))</span>
+<a name="ln-88"></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-89"></a>   <span class="k">end subroutine </span><span class="n">io_conservation_report</span>
+<a name="ln-90"></a>
 <a name="ln-91"></a>
-<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>      <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-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">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">errmsg</span> <span class="c">!! Error message in UDIO procedure</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">ierr</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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-109"></a>      <span class="c">!! todo: Currently this procedure does not work in user-defined derived-type input mode </span>
+<a name="ln-110"></a>      <span class="c">!!    due to compiler incompatabilities</span>
+<a name="ln-111"></a>      <span class="c">!write(LUN,&#39;(DT)&#39;) param</span>
+<a name="ln-112"></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">errmsg</span><span class="p">)</span>
+<a name="ln-113"></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-114"></a><span class="k">         close</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-115"></a>         <span class="k">return</span>
+<a name="ln-116"></a><span class="k">      end if</span>
+<a name="ln-117"></a>
+<a name="ln-118"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</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;Error opening parameter dump 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">errmsg</span><span class="p">))</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 subroutine </span><span class="n">io_dump_param</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">io_dump_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</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">!! Reads in particle information object information from an open file unformatted file</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="k">class</span><span class="p">(</span><span class="n">swiftest_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">!! Particle metadata information object</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">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">!! Open file unit number</span>
+<a name="ln-132"></a>      <span class="c">! Internals</span>
+<a name="ln-133"></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">errmsg</span>
+<a name="ln-134"></a>
+<a name="ln-135"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">name</span>
+<a name="ln-136"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">particle_type</span>
+<a name="ln-137"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_type</span>
+<a name="ln-138"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_time</span>
+<a name="ln-139"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xh</span><span class="p">(:)</span>
+<a name="ln-140"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vh</span><span class="p">(:)</span>
+<a name="ln-141"></a>
+<a name="ln-142"></a>      <span class="k">return</span>
+<a name="ln-143"></a>
+<a name="ln-144"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-145"></a><span class="k">      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 writing particle metadata information from 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">errmsg</span><span class="p">))</span>
+<a name="ln-146"></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-147"></a>   <span class="k">end subroutine </span><span class="n">io_dump_particle_info</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">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="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="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">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">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">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;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">            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="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-149"></a>
+<a name="ln-150"></a>   <span class="k">module subroutine </span><span class="n">io_dump_particle_info_base</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">idx</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">!! Dumps the particle information data to a file. </span>
+<a name="ln-154"></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-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">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 (can be cb, pl, or tp)</span>
+<a name="ln-158"></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-159"></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">idx</span>   <span class="c">!! Array of test particle indices to append to the particle file</span>
+<a name="ln-160"></a>
+<a name="ln-161"></a>      <span class="c">! Internals</span>
+<a name="ln-162"></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-163"></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-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">i</span>
+<a name="ln-165"></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">errmsg</span>
+<a name="ln-166"></a>
+<a name="ln-167"></a>      <span class="c">!if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then</span>
+<a name="ln-168"></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-169"></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-170"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-171"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-172"></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-173"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-174"></a>            <span class="k">case </span><span class="n">default</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="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-176"></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-177"></a>            <span class="k">end select</span>
+<a name="ln-178"></a>
+<a name="ln-179"></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-180"></a>         <span class="k">else</span>
+<a name="ln-181"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-182"></a>         <span class="k">end if</span>
+<a name="ln-183"></a>
+<a name="ln-184"></a><span class="k">         select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-185"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-186"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-187"></a>            <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
+<a name="ln-188"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span>
+<a name="ln-189"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">idx</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-190"></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">idx</span><span class="p">)</span>
+<a name="ln-191"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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">idx</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-192"></a>                  <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">dump</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> 
+<a name="ln-193"></a>               <span class="k">end do</span>
+<a name="ln-194"></a><span class="k">            else</span>
+<a name="ln-195"></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-196"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-197"></a>                  <span class="k">call </span><span class="n">self</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">dump</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> 
+<a name="ln-198"></a>               <span class="k">end do</span>
+<a name="ln-199"></a><span class="k">            end if</span>
+<a name="ln-200"></a><span class="k">         end select</span>
+<a name="ln-201"></a>
+<a name="ln-202"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-203"></a>      <span class="c">!else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then</span>
+<a name="ln-204"></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">NETCDF_FLOAT_TYPE</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">out_type</span> <span class="o">==</span> <span class="n">NETCDF_DOUBLE_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-205"></a><span class="k">         call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-206"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">write_particle_info</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">)</span>
+<a name="ln-207"></a>         <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">close</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-208"></a>      <span class="k">end if</span>
+<a name="ln-209"></a>
+<a name="ln-210"></a><span class="k">      return</span>
+<a name="ln-211"></a>
+<a name="ln-212"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-213"></a><span class="k">      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 reading central body 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">errmsg</span><span class="p">))</span>
+<a name="ln-214"></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-215"></a>   <span class="k">end subroutine </span><span class="n">io_dump_particle_info_base</span>
+<a name="ln-216"></a>
+<a name="ln-217"></a>
+<a name="ln-218"></a>   <span class="k">module subroutine </span><span class="n">io_dump_base</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-219"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-220"></a>      <span class="c">!!</span>
+<a name="ln-221"></a>      <span class="c">!! Dump massive body data to files</span>
+<a name="ln-222"></a>      <span class="c">!!</span>
+<a name="ln-223"></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-224"></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-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">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-228"></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-229"></a>      <span class="c">! Internals</span>
+<a name="ln-230"></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-231"></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-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">iu</span> <span class="o">=</span> <span class="n">LUN</span>
+<a name="ln-233"></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-234"></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">errmsg</span> 
+<a name="ln-235"></a>
+<a name="ln-236"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-237"></a>      <span class="k">class is</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-238"></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-239"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-240"></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-241"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-242"></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-243"></a>      <span class="k">end select</span>
+<a name="ln-244"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-245"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-246"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span>
+<a name="ln-247"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-248"></a>         <span class="k">call </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-249"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-250"></a>         <span class="k">call </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-251"></a>      <span class="k">end select</span>
+<a name="ln-252"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-253"></a>
+<a name="ln-254"></a>      <span class="k">return</span>
+<a name="ln-255"></a>
+<a name="ln-256"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-257"></a><span class="k">      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 dumping body data to 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">errmsg</span><span class="p">))</span>
+<a name="ln-258"></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-259"></a>   <span class="k">end subroutine </span><span class="n">io_dump_base</span>
+<a name="ln-260"></a>
+<a name="ln-261"></a>
+<a name="ln-262"></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-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">!! Dumps the state of the system to files in case the simulation is interrupted.</span>
+<a name="ln-266"></a>      <span class="c">!! As a safety mechanism, there are two dump files that are written in alternating order</span>
+<a name="ln-267"></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-268"></a>      <span class="k">implicit none</span>
+<a name="ln-269"></a>      <span class="c">! Arguments</span>
+<a name="ln-270"></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-271"></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-272"></a>      <span class="c">! Internals</span>
+<a name="ln-273"></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-274"></a>                                                            <span class="c">!! to dump file-specific values without changing the user-defined values</span>
+<a name="ln-275"></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-276"></a>                                                            <span class="c">!! in case the program halts during writing</span>
+<a name="ln-277"></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-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">tfrac</span>
+<a name="ln-279"></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-280"></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">symbastatfmt</span>   <span class="o">=</span> <span class="s1">&#39;(&quot;Time = &quot;, ES12.5, &quot;; fraction done = &quot;, F6.3, &quot;; Number of active plm, pl, tp = &quot;, I5, &quot;, &quot;, I5, &quot;, &quot;, I5)&#39;</span>
+<a name="ln-281"></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-282"></a>    
+<a name="ln-283"></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-284"></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-285"></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">false</span><span class="p">.)</span>
+<a name="ln-286"></a>      <span class="k">else</span>
+<a name="ln-287"></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-288"></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-289"></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-290"></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-291"></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-292"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">in_form</span>  <span class="o">=</span> <span class="n">XV</span>
+<a name="ln-293"></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-294"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">=</span> <span class="n">REAL8_TYPE</span>
+<a name="ln-295"></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-296"></a>
+<a name="ln-297"></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-298"></a>
+<a name="ln-299"></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-300"></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-301"></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">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
+<a name="ln-302"></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">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
+<a name="ln-303"></a>
+<a name="ln-304"></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-305"></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-306"></a>
+<a name="ln-307"></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-308"></a>         
+<a name="ln-309"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-310"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-311"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="n">symbastatfmt</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">pl</span><span class="p">%</span><span class="n">nplm</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-312"></a>         <span class="k">class </span><span class="n">default</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="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">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-314"></a>         <span class="k">end select</span>
+<a name="ln-315"></a><span class="k">      end if</span>
+<a name="ln-316"></a>
+<a name="ln-317"></a><span class="k">      return</span>
+<a name="ln-318"></a><span class="k">   end subroutine </span><span class="n">io_dump_system</span>
+<a name="ln-319"></a>
+<a name="ln-320"></a>
+<a name="ln-321"></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-322"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-323"></a>      <span class="c">!!</span>
+<a name="ln-324"></a>      <span class="c">!! Reads in the name of the parameter file from command line arguments. </span>
+<a name="ln-325"></a>      <span class="k">implicit none</span>
+<a name="ln-326"></a>      <span class="c">! Arguments</span>
+<a name="ln-327"></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-328"></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-329"></a>      <span class="c">! Result</span>
+<a name="ln-330"></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-331"></a>      <span class="c">! Internals</span>
+<a name="ln-332"></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-333"></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-334"></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-335"></a>
+<a name="ln-336"></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-337"></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-338"></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-339"></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-340"></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-341"></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-342"></a><span class="k">            </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-343"></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-344"></a>            <span class="k">select case</span><span class="p">(</span><span class="n">arg1</span><span class="p">)</span>
+<a name="ln-345"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;BS&#39;</span><span class="p">)</span>
+<a name="ln-346"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">BS</span>
+<a name="ln-347"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;HELIO&#39;</span><span class="p">)</span>
+<a name="ln-348"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">HELIO</span>
+<a name="ln-349"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RA15&#39;</span><span class="p">)</span>
+<a name="ln-350"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RA15</span>
+<a name="ln-351"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;TU4&#39;</span><span class="p">)</span>
+<a name="ln-352"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">TU4</span>
+<a name="ln-353"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;WHM&#39;</span><span class="p">)</span>
+<a name="ln-354"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">WHM</span>
+<a name="ln-355"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RMVS&#39;</span><span class="p">)</span>
+<a name="ln-356"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RMVS</span>
+<a name="ln-357"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;SYMBA&#39;</span><span class="p">)</span>
+<a name="ln-358"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">SYMBA</span>
+<a name="ln-359"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RINGMOONS&#39;</span><span class="p">)</span>
+<a name="ln-360"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RINGMOONS</span>
+<a name="ln-361"></a>            <span class="k">case </span><span class="n">default</span>
+<a name="ln-362"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">UNKNOWN_INTEGRATOR</span>
+<a name="ln-363"></a>               <span class="k">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-364"></a>               <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-365"></a>            <span class="k">end select</span>
+<a name="ln-366"></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-367"></a>         <span class="k">end if</span>
+<a name="ln-368"></a><span class="k">      else </span>
+<a name="ln-369"></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-370"></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-371"></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-372"></a><span class="k">               call </span><span class="n">util_version</span><span class="p">()</span> 
+<a name="ln-373"></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-374"></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-375"></a>            <span class="k">end if</span>
+<a name="ln-376"></a><span class="k">         end if</span>
+<a name="ln-377"></a><span class="k">      end if</span>
+<a name="ln-378"></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-379"></a>
+<a name="ln-380"></a>      <span class="k">return</span>
+<a name="ln-381"></a><span class="k">   end function </span><span class="n">io_get_args</span>
+<a name="ln-382"></a>
+<a name="ln-383"></a>
+<a name="ln-384"></a>   <span class="k">module function </span><span class="n">io_get_old_t_final_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="k">result</span><span class="p">(</span><span class="n">old_t_final</span><span class="p">)</span>
+<a name="ln-385"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-386"></a>      <span class="c">!!</span>
+<a name="ln-387"></a>      <span class="c">!! Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</span>
+<a name="ln-388"></a>      <span class="c">!!</span>
+<a name="ln-389"></a>      <span class="k">implicit none</span>
+<a name="ln-390"></a>      <span class="c">! Arguments</span>
+<a name="ln-391"></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>
+<a name="ln-392"></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>
+<a name="ln-393"></a>      <span class="c">! Result</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="kd">::</span> <span class="n">old_t_final</span>
+<a name="ln-395"></a>      <span class="c">! Internals</span>
+<a name="ln-396"></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-397"></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-398"></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">76</span>
+<a name="ln-399"></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="p">,</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
+<a name="ln-400"></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">errmsg</span>
+<a name="ln-401"></a>
+<a name="ln-402"></a>      <span class="n">old_t_final</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-403"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">tmpsys</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-404"></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-405"></a>
+<a name="ln-406"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-407"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-408"></a>      <span class="k">do </span>
+<a name="ln-409"></a><span class="k">         </span><span class="n">ierr</span> <span class="o">=</span> <span class="n">tmpsys</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">tmpparam</span><span class="p">)</span>
+<a name="ln-410"></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-411"></a><span class="k">      end do</span>
+<a name="ln-412"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">is_iostat_end</span><span class="p">(</span><span class="n">ierr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-413"></a><span class="k">         </span><span class="n">old_t_final</span> <span class="o">=</span> <span class="n">tmpparam</span><span class="p">%</span><span class="n">t</span>
+<a name="ln-414"></a>         <span class="k">return</span>
+<a name="ln-415"></a><span class="k">      end if</span>
+<a name="ln-416"></a>
+<a name="ln-417"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-418"></a><span class="k">      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 reading 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">errmsg</span><span class="p">))</span>
+<a name="ln-419"></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-420"></a>   <span class="k">end function </span><span class="n">io_get_old_t_final_system</span>
+<a name="ln-421"></a>
+<a name="ln-422"></a>
+<a name="ln-423"></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-424"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-425"></a>      <span class="c">!!</span>
+<a name="ln-426"></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-427"></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-428"></a>      <span class="c">!!</span>
+<a name="ln-429"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_get_token.f90</span>
+<a name="ln-430"></a>      <span class="k">implicit none</span>
+<a name="ln-431"></a>      <span class="c">! Arguments</span>
+<a name="ln-432"></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-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">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-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">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-435"></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-436"></a>      <span class="c">! Result</span>
+<a name="ln-437"></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-438"></a>      <span class="c">! Internals</span>
+<a name="ln-439"></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-440"></a>   
+<a name="ln-441"></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-442"></a>   
+<a name="ln-443"></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-444"></a><span class="k">          </span><span class="n">ilast</span> <span class="o">=</span> <span class="n">ifirst</span>
+<a name="ln-445"></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-446"></a>          <span class="n">token</span> <span class="o">=</span> <span class="s1">&#39;&#39;</span>
+<a name="ln-447"></a>          <span class="k">return</span>
+<a name="ln-448"></a><span class="k">      end if</span>
+<a name="ln-449"></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-450"></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-451"></a><span class="k">      end do</span>
+<a name="ln-452"></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-453"></a><span class="k">          </span><span class="n">ifirst</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-454"></a>          <span class="n">ilast</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-455"></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-456"></a>          <span class="n">token</span> <span class="o">=</span> <span class="s1">&#39;&#39;</span>
+<a name="ln-457"></a>          <span class="k">return</span>
+<a name="ln-458"></a><span class="k">      end if</span>
+<a name="ln-459"></a><span class="k">      </span><span class="n">ifirst</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-460"></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-461"></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-462"></a><span class="k">      end do</span>
+<a name="ln-463"></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-464"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-465"></a>   
+<a name="ln-466"></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-467"></a>
+<a name="ln-468"></a>      <span class="k">return</span>
+<a name="ln-469"></a><span class="k">   end function </span><span class="n">io_get_token</span>
+<a name="ln-470"></a>
+<a name="ln-471"></a>
+<a name="ln-472"></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-473"></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-474"></a>      <span class="c">!!</span>
+<a name="ln-475"></a>      <span class="c">!! Read in parameters for the integration</span>
+<a name="ln-476"></a>      <span class="c">!! Currently this procedure does not work in user-defined derived-type input mode </span>
+<a name="ln-477"></a>      <span class="c">!!    e.g. read(unit,&#39;(DT)&#39;) param </span>
+<a name="ln-478"></a>      <span class="c">!! as the newline characters are ignored in the input file when compiled in ifort.</span>
+<a name="ln-479"></a>      <span class="c">!!</span>
+<a name="ln-480"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
+<a name="ln-481"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
+<a name="ln-482"></a>      <span class="k">implicit none</span>
+<a name="ln-483"></a>      <span class="c">! Arguments</span>
+<a name="ln-484"></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-485"></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-486"></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-487"></a>                                                              <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-488"></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-489"></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-490"></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-491"></a>      <span class="c">! Internals</span>
+<a name="ln-492"></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-493"></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-494"></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-495"></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-496"></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-497"></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-498"></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-499"></a>      
+<a name="ln-500"></a>
+<a name="ln-501"></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-502"></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-503"></a>         <span class="k">do</span>
+<a name="ln-504"></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="k">end</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">line</span>
+<a name="ln-505"></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-506"></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-507"></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-508"></a><span class="k">               </span><span class="n">ifirst</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-509"></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-510"></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-511"></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-512"></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-513"></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-514"></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-515"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-516"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;T0&quot;</span><span class="p">)</span>
+<a name="ln-517"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span>
+<a name="ln-518"></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-519"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TSTOP&quot;</span><span class="p">)</span>
+<a name="ln-520"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span>
+<a name="ln-521"></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-522"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DT&quot;</span><span class="p">)</span>
+<a name="ln-523"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span>
+<a name="ln-524"></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-525"></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-526"></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-527"></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-528"></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-529"></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-530"></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-531"></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-532"></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-533"></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-534"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;IN_FORM&quot;</span><span class="p">)</span>
+<a name="ln-535"></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-536"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">in_form</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-537"></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-538"></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-539"></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-540"></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-541"></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-542"></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-543"></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-544"></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-545"></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-546"></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-547"></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-548"></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-549"></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-550"></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-551"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span>
+<a name="ln-552"></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-553"></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-554"></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-555"></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-556"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span>
+<a name="ln-557"></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-558"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span>
+<a name="ln-559"></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-560"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span>
+<a name="ln-561"></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-562"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span>
+<a name="ln-563"></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-564"></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-565"></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-566"></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-567"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span>
+<a name="ln-568"></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-569"></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-570"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
+<a name="ln-571"></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-572"></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-573"></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-574"></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-575"></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-576"></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-577"></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-578"></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-579"></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-580"></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-581"></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-582"></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-583"></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-584"></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-585"></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-586"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;MU2KG&quot;</span><span class="p">)</span>
+<a name="ln-587"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>
+<a name="ln-588"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TU2S&quot;</span><span class="p">)</span>
+<a name="ln-589"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span>
+<a name="ln-590"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DU2M&quot;</span><span class="p">)</span>
+<a name="ln-591"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>
+<a name="ln-592"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ENERGY&quot;</span><span class="p">)</span>
+<a name="ln-593"></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-594"></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-595"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;GR&quot;</span><span class="p">)</span>
+<a name="ln-596"></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-597"></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-598"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ROTATION&quot;</span><span class="p">)</span>
+<a name="ln-599"></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-600"></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-601"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TIDES&quot;</span><span class="p">)</span>
+<a name="ln-602"></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-603"></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-604"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FIRSTKICK&quot;</span><span class="p">)</span>
+<a name="ln-605"></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-606"></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-607"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FIRSTENERGY&quot;</span><span class="p">)</span>
+<a name="ln-608"></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-609"></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-610"></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-611"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span> 
+<a name="ln-612"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;GMTOT_ORIG&quot;</span><span class="p">)</span>
+<a name="ln-613"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">GMtot_orig</span> 
+<a name="ln-614"></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-615"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-616"></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-617"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">2</span>
+<a name="ln-618"></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-619"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-620"></a>                  <span class="k">end do</span>
+<a name="ln-621"></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-622"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-623"></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-624"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">2</span>
+<a name="ln-625"></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-626"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-627"></a>                  <span class="k">end do</span>
+<a name="ln-628"></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-629"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-630"></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-631"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">2</span>
+<a name="ln-632"></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-633"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-634"></a>                  <span class="k">end do</span>
+<a name="ln-635"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;LESCAPE&quot;</span><span class="p">)</span>
+<a name="ln-636"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-637"></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-638"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">2</span>
+<a name="ln-639"></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-640"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-641"></a>                  <span class="k">end do</span>
+<a name="ln-642"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;GMESCAPE&quot;</span><span class="p">)</span>
+<a name="ln-643"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">GMescape</span> 
+<a name="ln-644"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ECOLLISIONS&quot;</span><span class="p">)</span>
+<a name="ln-645"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span>
+<a name="ln-646"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;EUNTRACKED&quot;</span><span class="p">)</span>
+<a name="ln-647"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span>
+<a name="ln-648"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;MAXID&quot;</span><span class="p">)</span>
+<a name="ln-649"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">maxid</span> 
+<a name="ln-650"></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-651"></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-652"></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;MIN_GMFRAG&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-653"></a>               <span class="k">case </span><span class="n">default</span>
+<a name="ln-654"></a>                  <span class="k">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;Unknown parameter -&gt; &quot;</span><span class="p">,</span><span class="n">param_name</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-657"></a><span class="k">               end select</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>      <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-659"></a><span class="k">         end do</span>
+<a name="ln-660"></a><span class="k">         </span><span class="mi">1</span> <span class="k">continue</span>
+<a name="ln-661"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-662"></a>
+<a name="ln-663"></a>         <span class="c">!! Do basic sanity checks on the input values</span>
+<a name="ln-664"></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-665"></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-666"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-667"></a>            <span class="k">return</span>
+<a name="ln-668"></a><span class="k">         end if</span>
+<a name="ln-669"></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-670"></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-671"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-672"></a>            <span class="k">return</span>
+<a name="ln-673"></a><span class="k">         end if</span>
+<a name="ln-674"></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-675"></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-676"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-677"></a>            <span class="k">return</span>
+<a name="ln-678"></a><span class="k">         end if</span>
+<a name="ln-679"></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-680"></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-681"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-682"></a>            <span class="k">return</span>
+<a name="ln-683"></a><span class="k">         end if</span>
+<a name="ln-684"></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-685"></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-686"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-687"></a>            <span class="k">return</span>
+<a name="ln-688"></a><span class="k">         end if</span>
+<a name="ln-689"></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-690"></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-691"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-692"></a>            <span class="k">return</span>
+<a name="ln-693"></a><span class="k">         end if</span>
+<a name="ln-694"></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-695"></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-696"></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-697"></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">NETCDF_FLOAT_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">NETCDF_DOUBLE_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-698"></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-699"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-700"></a>               <span class="k">return</span>
+<a name="ln-701"></a><span class="k">            end if</span>
+<a name="ln-702"></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="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;XVEL&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-703"></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-704"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-705"></a>               <span class="k">return</span>
+<a name="ln-706"></a><span class="k">            end if</span>
+<a name="ln-707"></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-708"></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-709"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-710"></a>               <span class="k">return</span>
+<a name="ln-711"></a><span class="k">            end if</span>
+<a name="ln-712"></a><span class="k">         end if</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">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-714"></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-715"></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-716"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-717"></a>               <span class="k">return</span>
+<a name="ln-718"></a><span class="k">            end if</span>
+<a name="ln-719"></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-720"></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-721"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-722"></a>               <span class="k">return</span>
+<a name="ln-723"></a><span class="k">            end if</span>
+<a name="ln-724"></a><span class="k">         end if</span>
+<a name="ln-725"></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-726"></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-727"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-728"></a>            <span class="k">return</span>
+<a name="ln-729"></a><span class="k">         end if</span>
+<a name="ln-730"></a>
+<a name="ln-731"></a><span class="k">         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-732"></a>         <span class="k">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-733"></a>         <span class="k">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-734"></a>         <span class="k">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-735"></a>         <span class="k">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-736"></a>         <span class="k">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-737"></a>         <span class="k">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-738"></a>         <span class="k">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-739"></a>         <span class="k">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-740"></a>         <span class="k">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-741"></a>         <span class="k">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-742"></a>         <span class="k">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_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">in_form</span><span class="p">))</span>
+<a name="ln-743"></a>         <span class="k">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-744"></a>         <span class="k">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-745"></a>         <span class="k">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-746"></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</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-747"></a><span class="k">            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-748"></a>         <span class="k">else</span>
+<a name="ln-749"></a><span class="k">            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 value will be the central body radius&quot;</span>
+<a name="ln-750"></a>         <span class="k">end if</span>
+<a name="ln-751"></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="k">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-752"></a>         <span class="k">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">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-753"></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="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_alo</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_ahi</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</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="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-754"></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">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-755"></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">&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_ahi</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</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="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-756"></a>         <span class="k">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-757"></a>         <span class="k">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-758"></a>         <span class="k">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-759"></a>         <span class="k">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-760"></a>         <span class="k">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-761"></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">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_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">energy_out</span><span class="p">))</span>
+<a name="ln-762"></a>         <span class="k">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-763"></a>         <span class="k">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-764"></a>         <span class="k">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-765"></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">outfile</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-766"></a><span class="k">            </span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">=</span> <span class="n">BIN_OUTFILE</span>
+<a name="ln-767"></a>         <span class="k">end if</span>
+<a name="ln-768"></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-769"></a><span class="k">            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-770"></a>         <span class="k">else</span>
+<a name="ln-771"></a><span class="k">            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-772"></a>         <span class="k">end if</span>
+<a name="ln-773"></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-774"></a><span class="k">            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-775"></a>            <span class="k">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-776"></a>         <span class="k">else</span>
+<a name="ln-777"></a><span class="k">            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-778"></a>            <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">false</span><span class="p">.</span>
+<a name="ln-779"></a>            <span class="k">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-780"></a>         <span class="k">end if</span>
+<a name="ln-781"></a>
+<a name="ln-782"></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-783"></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-784"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-785"></a>            <span class="k">return</span>
+<a name="ln-786"></a><span class="k">         end if</span>
+<a name="ln-787"></a>
+<a name="ln-788"></a>         <span class="c">! Calculate the G for the system units</span>
+<a name="ln-789"></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-790"></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-791"></a>            <span class="c">! Calculate the inverse speed of light in the system units</span>
+<a name="ln-792"></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-793"></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-794"></a>         <span class="k">end if</span>
+<a name="ln-795"></a>
+<a name="ln-796"></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-797"></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="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">integrator</span> <span class="o">==</span> <span class="n">SYMBA</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-798"></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-799"></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-800"></a>                  <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-801"></a>                  <span class="k">return</span>
+<a name="ln-802"></a><span class="k">               end if</span>
+<a name="ln-803"></a><span class="k">            end if</span>
+<a name="ln-804"></a>      
+<a name="ln-805"></a>            <span class="c">! Determine if the GR flag is set correctly for this integrator</span>
+<a name="ln-806"></a>            <span class="k">select case</span><span class="p">(</span><span class="n">integrator</span><span class="p">)</span>
+<a name="ln-807"></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-808"></a>               <span class="k">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-809"></a>            <span class="k">case </span><span class="n">default</span>   
+<a name="ln-810"></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-811"></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-812"></a>            <span class="k">end select</span>
+<a name="ln-813"></a><span class="k">         end associate</span>
+<a name="ln-814"></a>
+<a name="ln-815"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-816"></a>      <span class="k">end associate</span>
+<a name="ln-817"></a>
+<a name="ln-818"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-819"></a><span class="k">      return </span>
+<a name="ln-820"></a><span class="k">   end subroutine </span><span class="n">io_param_reader</span>
+<a name="ln-821"></a>
+<a name="ln-822"></a>
+<a name="ln-823"></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-824"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-825"></a>      <span class="c">!!</span>
+<a name="ln-826"></a>      <span class="c">!! Dump integration parameters to file</span>
+<a name="ln-827"></a>      <span class="c">!!</span>
+<a name="ln-828"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
+<a name="ln-829"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
+<a name="ln-830"></a>      <span class="k">implicit none</span>
+<a name="ln-831"></a>      <span class="c">! Arguments</span>
+<a name="ln-832"></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-833"></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-834"></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-835"></a>                                                               <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-836"></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-837"></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-838"></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-839"></a>      <span class="c">! Internals</span>
+<a name="ln-840"></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-841"></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-842"></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-843"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param_name</span>
+<a name="ln-844"></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">param_value</span><span class="p">,</span> <span class="n">v1</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">v3</span>
+<a name="ln-845"></a>      <span class="k">type </span><span class="n">character_array</span>
+<a name="ln-846"></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-847"></a><span class="k">      end type </span><span class="n">character_array</span>
+<a name="ln-848"></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-849"></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-850"></a>
+<a name="ln-851"></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-852"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-853"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-854"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-855"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-856"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-857"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-858"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-859"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;IN_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="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_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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-860"></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">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-861"></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-862"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-863"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-864"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-865"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-866"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-867"></a>         <span class="k">end if</span>
+<a name="ln-868"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</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="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">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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-869"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-870"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-871"></a>         <span class="k">end if</span>
+<a name="ln-872"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-873"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-874"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-875"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-876"></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-877"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-878"></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-879"></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-880"></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-881"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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-882"></a>         <span class="k">end if</span>
+<a name="ln-883"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-884"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-885"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-886"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-887"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-888"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-889"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</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="k">write</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="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="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-890"></a>         <span class="k">end if</span>
+<a name="ln-891"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-892"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-893"></a>         <span class="k">end if</span>
+<a name="ln-894"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-895"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-896"></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="nb">and</span><span class="p">.</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-897"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ENERGY_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="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">energy_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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-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>      <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-899"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-900"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-901"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-902"></a>
+<a name="ln-903"></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-904"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-905"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-906"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;GMTOT_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">GMtot_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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-907"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;LTOT_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">v1</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">Ltot_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v2</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">Ltot_orig</span><span class="p">(</span><span class="mi">2</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v3</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">Ltot_orig</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>  
+<a name="ln-908"></a>               <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">v1</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v2</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v3</span><span class="p">))</span>
+<a name="ln-909"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;LORBIT_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">v1</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">Lorbit_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v2</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">Lorbit_orig</span><span class="p">(</span><span class="mi">2</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v3</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">Lorbit_orig</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>  
+<a name="ln-910"></a>               <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">v1</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v2</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v3</span><span class="p">))</span>
+<a name="ln-911"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;LSPIN_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">v1</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">Lspin_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v2</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">Lspin_orig</span><span class="p">(</span><span class="mi">2</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v3</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">Lspin_orig</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>  
+<a name="ln-912"></a>               <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">v1</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v2</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v3</span><span class="p">))</span>
+<a name="ln-913"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;LESCAPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">v1</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">Lescape</span><span class="p">(</span><span class="mi">1</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v2</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">Lescape</span><span class="p">(</span><span class="mi">2</span><span class="p">);</span> <span class="k">write</span><span class="p">(</span><span class="n">v3</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">Lescape</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>  
+<a name="ln-914"></a>               <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">v1</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v2</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">v3</span><span class="p">))</span>
+<a name="ln-915"></a>   
+<a name="ln-916"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;GMESCAPE&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">GMescape</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-917"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-918"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-919"></a>         <span class="k">end if</span>
+<a name="ln-920"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-921"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;MAXID&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">maxid</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-922"></a>   
+<a name="ln-923"></a>         <span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-924"></a>         <span class="n">iomsg</span> <span class="o">=</span> <span class="s2">&quot;UDIO not implemented&quot;</span>
+<a name="ln-925"></a>      <span class="k">end associate</span>
+<a name="ln-926"></a>
+<a name="ln-927"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-928"></a>
+<a name="ln-929"></a><span class="k">      return</span>
+<a name="ln-930"></a><span class="k">   end subroutine </span><span class="n">io_param_writer</span>
+<a name="ln-931"></a>
+<a name="ln-932"></a>
+<a name="ln-933"></a>   <span class="k">module subroutine </span><span class="n">io_read_in_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-934"></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-935"></a>      <span class="c">!!</span>
+<a name="ln-936"></a>      <span class="c">!! Read in either test particle or massive body data </span>
+<a name="ln-937"></a>      <span class="c">!!</span>
+<a name="ln-938"></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-939"></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-940"></a>      <span class="k">implicit none</span>
+<a name="ln-941"></a>      <span class="c">! Arguments</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">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-943"></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-944"></a>      <span class="c">! Internals</span>
+<a name="ln-945"></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-946"></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-947"></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">nbody</span>
+<a name="ln-948"></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-949"></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-950"></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-951"></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">errmsg</span>
+<a name="ln-952"></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-953"></a>
+<a name="ln-954"></a>      <span class="c">! Select the appropriate polymorphic class (test particle or massive body)</span>
+<a name="ln-955"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-956"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-957"></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-958"></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-959"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-960"></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-961"></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-962"></a>      <span class="k">end select</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-964"></a><span class="k">      </span><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-965"></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-966"></a>      <span class="k">case</span><span class="p">(</span><span class="n">ASCII_TYPE</span><span class="p">)</span>
+<a name="ln-967"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-968"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">nbody</span>
+<a name="ln-969"></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>  
+<a name="ln-970"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">nbody</span>
+<a name="ln-972"></a>      <span class="k">case </span><span class="n">default</span>
+<a name="ln-973"></a>         <span class="k">write</span><span class="p">(</span><span class="n">errmsg</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-974"></a>         <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-975"></a>      <span class="k">end select</span>
+<a name="ln-976"></a>
+<a name="ln-977"></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-978"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-979"></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-980"></a><span class="k">         </span><span class="n">ierr</span> <span class="o">=</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>
+<a name="ln-981"></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-982"></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-983"></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-984"></a>            <span class="k">call </span><span class="n">self</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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;ACTIVE&quot;</span><span class="p">)</span>
+<a name="ln-985"></a>         <span class="k">end do</span>
+<a name="ln-986"></a><span class="k">      end if</span>
+<a name="ln-987"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-988"></a>
+<a name="ln-989"></a>
+<a name="ln-990"></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-991"></a>
+<a name="ln-992"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-993"></a><span class="k">      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 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">errmsg</span><span class="p">))</span>
+<a name="ln-994"></a>      <span class="k">return</span>
+<a name="ln-995"></a><span class="k">   end subroutine </span><span class="n">io_read_in_body</span>
+<a name="ln-996"></a>
+<a name="ln-997"></a>
+<a name="ln-998"></a>   <span class="k">module subroutine </span><span class="n">io_read_in_cb</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-999"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1000"></a>      <span class="c">!!</span>
+<a name="ln-1001"></a>      <span class="c">!! Reads in central body data </span>
+<a name="ln-1002"></a>      <span class="c">!!</span>
+<a name="ln-1003"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine swiftest_init_pl.f90</span>
+<a name="ln-1004"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine swiftest_init_pl.f</span>
+<a name="ln-1005"></a>      <span class="k">implicit none</span>
+<a name="ln-1006"></a>      <span class="c">! Arguments</span>
+<a name="ln-1007"></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-1008"></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-1009"></a>      <span class="c">! Internals</span>
+<a name="ln-1010"></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-1011"></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-1012"></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">errmsg</span>
+<a name="ln-1013"></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="p">,</span> <span class="n">idold</span>
+<a name="ln-1014"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">name</span>
+<a name="ln-1015"></a>
+<a name="ln-1016"></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="s1">&#39;ASCII&#39;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1017"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">id</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-1018"></a>         <span class="n">param</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-1019"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">name</span>
+<a name="ln-1021"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">set_value</span><span class="p">(</span><span class="n">name</span><span class="o">=</span><span class="n">name</span><span class="p">)</span>
+<a name="ln-1022"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-1023"></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">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><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-1024"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j2rp2</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j4rp4</span>
+<a name="ln-1027"></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-1028"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1029"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1030"></a>         <span class="k">end if</span>
+<a name="ln-1031"></a><span class="k">         </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-1032"></a>      <span class="k">else</span>
+<a name="ln-1033"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1034"></a>         <span class="n">ierr</span> <span class="o">=</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>
+<a name="ln-1035"></a>      <span class="k">end if</span>
+<a name="ln-1036"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1037"></a>
+<a name="ln-1038"></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-1039"></a>
+<a name="ln-1040"></a><span class="k">   </span>
+<a name="ln-1041"></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-1042"></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">&lt;</span> <span class="mf">0.0</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">self</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-1043"></a>         
+<a name="ln-1044"></a>         <span class="k">select type</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-1045"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-1046"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">GM0</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-1047"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dGM</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1048"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">R0</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-1049"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">L0</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-1050"></a>         <span class="k">end select</span>
+<a name="ln-1051"></a><span class="k">      end if</span>
+<a name="ln-1052"></a><span class="k">      return</span>
+<a name="ln-1053"></a>
+<a name="ln-1054"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1055"></a><span class="k">      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 reading central body 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">errmsg</span><span class="p">))</span>
+<a name="ln-1056"></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-1057"></a>   <span class="k">end subroutine </span><span class="n">io_read_in_cb</span>
+<a name="ln-1058"></a>
+<a name="ln-1059"></a>
+<a name="ln-1060"></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">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</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-1061"></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-1062"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1063"></a>      <span class="c">!!</span>
+<a name="ln-1064"></a>      <span class="c">!! Read close encounter data from input binary files</span>
+<a name="ln-1065"></a>      <span class="c">!!     Other than time t, there is no direct file input from this function</span>
+<a name="ln-1066"></a>      <span class="c">!!     Function returns read error status (0 = OK, nonzero = ERROR)</span>
+<a name="ln-1067"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_read_encounter.f90</span>
+<a name="ln-1068"></a>      <span class="k">implicit none</span>
+<a name="ln-1069"></a>      <span class="c">! Arguments</span>
+<a name="ln-1070"></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">id1</span><span class="p">,</span> <span class="n">id2</span>
+<a name="ln-1071"></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">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</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">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-1073"></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-1074"></a>      <span class="c">! Result</span>
+<a name="ln-1075"></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-1076"></a>      <span class="c">! Internals</span>
+<a name="ln-1077"></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-1078"></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-1079"></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-1080"></a>
+<a name="ln-1081"></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-1082"></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-1083"></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-1084"></a><span class="k">            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-1085"></a>            <span class="k">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-1086"></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-1087"></a>         <span class="k">end if</span>
+<a name="ln-1088"></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-1089"></a>      <span class="k">end if</span>
+<a name="ln-1090"></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-1091"></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-1092"></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-1093"></a>         <span class="k">return</span>
+<a name="ln-1094"></a><span class="k">      end if</span>
+<a name="ln-1095"></a>
+<a name="ln-1096"></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">id1</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">Gmass1</span><span class="p">,</span> <span class="n">radius1</span>
+<a name="ln-1097"></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-1098"></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-1099"></a>         <span class="k">return</span>
+<a name="ln-1100"></a><span class="k">      end if</span>
+<a name="ln-1101"></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">id2</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">Gmass2</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-1102"></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-1103"></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-1104"></a>         <span class="k">return</span>
+<a name="ln-1105"></a><span class="k">      end if</span>
+<a name="ln-1106"></a>
+<a name="ln-1107"></a><span class="k">      return</span>
+<a name="ln-1108"></a><span class="k">   end function </span><span class="n">io_read_encounter</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-1110"></a>
+<a name="ln-1111"></a>   <span class="k">module function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1112"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1113"></a>      <span class="c">!!</span>
+<a name="ln-1114"></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-1115"></a>      <span class="c">!!</span>
+<a name="ln-1116"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_read_frame.f90</span>
+<a name="ln-1117"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_frame.F</span>
+<a name="ln-1118"></a>      <span class="k">implicit none</span>
+<a name="ln-1119"></a>      <span class="c">! Arguments</span>
+<a name="ln-1120"></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-1121"></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-1122"></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-1123"></a>      <span class="c">! Result</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="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code: returns 0 if the read is successful</span>
+<a name="ln-1125"></a>      <span class="c">! Internals</span>
+<a name="ln-1126"></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">errmsg</span>
+<a name="ln-1127"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</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">name</span>
+<a name="ln-1128"></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-1129"></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-1130"></a>
+<a name="ln-1131"></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-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">      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">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-1133"></a><span class="k">      if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">in_form</span> <span class="o">/=</span> <span class="n">EL</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_form</span> <span class="o">/=</span> <span class="n">XV</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1134"></a><span class="k">         write</span><span class="p">(</span><span class="n">errmsg</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_form</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; is not a recognized format code for input files.&quot;</span>
+<a name="ln-1135"></a>         <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1136"></a>      <span class="k">end if</span>
+<a name="ln-1137"></a>
+<a name="ln-1138"></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-1139"></a>
+<a name="ln-1140"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_form</span> <span class="o">==</span> <span class="n">EL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1141"></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-1142"></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-1143"></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-1144"></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-1145"></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-1146"></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-1147"></a>         <span class="k">end if</span>
+<a name="ln-1148"></a>
+<a name="ln-1149"></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-1150"></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>
+<a name="ln-1151"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1152"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">name</span><span class="p">(:)</span>
+<a name="ln-1153"></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">n</span>
+<a name="ln-1154"></a>               <span class="k">call </span><span class="n">self</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">set_value</span><span class="p">(</span><span class="n">name</span><span class="o">=</span><span class="n">name</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-1155"></a>            <span class="k">end do</span>
+<a name="ln-1156"></a>
+<a name="ln-1157"></a><span class="k">            select case</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_form</span><span class="p">)</span>
+<a name="ln-1158"></a>            <span class="k">case</span> <span class="p">(</span><span class="n">XV</span><span class="p">)</span>
+<a name="ln-1159"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1160"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1161"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1162"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1163"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1164"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1165"></a>            <span class="k">case</span> <span class="p">(</span><span class="n">EL</span><span class="p">)</span> 
+<a name="ln-1166"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1167"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1168"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1169"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1170"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1171"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1172"></a>            <span class="k">end select</span>
+<a name="ln-1173"></a>
+<a name="ln-1174"></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-1175"></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-1176"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1177"></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-1178"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1179"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1180"></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-1181"></a><span class="k">                  read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1182"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1183"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1184"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1185"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1186"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1187"></a>               <span class="k">end if</span>
+<a name="ln-1188"></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-1189"></a><span class="k">                  read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(:)</span>
+<a name="ln-1190"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(:)</span>
+<a name="ln-1191"></a>               <span class="k">end if</span>
+<a name="ln-1192"></a><span class="k">            end select</span>
+<a name="ln-1193"></a>
+<a name="ln-1194"></a><span class="k">            </span><span class="n">param</span><span class="p">%</span><span class="n">maxid</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">maxid</span><span class="p">,</span> <span class="nb">maxval</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-1195"></a>
+<a name="ln-1196"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">ASCII_TYPE</span><span class="p">)</span>
+<a name="ln-1197"></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">n</span>
+<a name="ln-1198"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-1199"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-1200"></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-1201"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">name</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-1202"></a>                  <span class="k">else</span>
+<a name="ln-1203"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">name</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">val</span>
+<a name="ln-1204"></a>                  <span class="k">end if</span>
+<a name="ln-1205"></a><span class="k">                  call </span><span class="n">self</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">set_value</span><span class="p">(</span><span class="n">name</span><span class="o">=</span><span class="n">name</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-1206"></a>                  <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-1207"></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-1208"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1209"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-1210"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1211"></a>               <span class="k">end select</span>
+<a name="ln-1212"></a>
+<a name="ln-1213"></a><span class="k">               select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_form</span><span class="p">)</span>
+<a name="ln-1214"></a>               <span class="k">case</span> <span class="p">(</span><span class="n">XV</span><span class="p">)</span>
+<a name="ln-1215"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1216"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1217"></a>               <span class="k">case</span> <span class="p">(</span><span class="n">EL</span><span class="p">)</span>
+<a name="ln-1218"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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">i</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">i</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">i</span><span class="p">)</span>
+<a name="ln-1219"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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">i</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">i</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">i</span><span class="p">)</span>
+<a name="ln-1220"></a>               <span class="k">end select</span>
+<a name="ln-1221"></a>
+<a name="ln-1222"></a><span class="k">               select type</span> <span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-1223"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</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">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1225"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1226"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1227"></a>                  <span class="k">end if</span>
+<a name="ln-1228"></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-1229"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1230"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1231"></a>                  <span class="k">end if</span>
+<a name="ln-1232"></a><span class="k">               end select</span>
+<a name="ln-1233"></a><span class="k">               </span><span class="n">param</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-1234"></a>               <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="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">maxid</span>
+<a name="ln-1235"></a>            <span class="k">end do</span>
+<a name="ln-1236"></a><span class="k">         end select</span>
+<a name="ln-1237"></a>
+<a name="ln-1238"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_form</span> <span class="o">==</span> <span class="n">EL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1239"></a><span class="k">            </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>   <span class="o">=</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> <span class="o">*</span> <span class="n">DEG2RAD</span>
+<a name="ln-1240"></a>            <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> <span class="o">=</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> <span class="o">*</span> <span class="n">DEG2RAD</span>
+<a name="ln-1241"></a>            <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> <span class="o">=</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> <span class="o">*</span> <span class="n">DEG2RAD</span>
+<a name="ln-1242"></a>            <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>  <span class="o">=</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> <span class="o">*</span> <span class="n">DEG2RAD</span>
+<a name="ln-1243"></a>         <span class="k">end if</span>
+<a name="ln-1244"></a><span class="k">      end associate</span>
+<a name="ln-1245"></a>
+<a name="ln-1246"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-1247"></a>      <span class="k">return</span>
+<a name="ln-1248"></a>
+<a name="ln-1249"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1250"></a><span class="k">      select type</span> <span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-1251"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-1252"></a>         <span class="k">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 reading massive body 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">errmsg</span><span class="p">))</span>
+<a name="ln-1253"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-1254"></a>         <span class="k">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 reading test particle 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">errmsg</span><span class="p">))</span>
+<a name="ln-1255"></a>      <span class="k">class </span><span class="n">default</span>
+<a name="ln-1256"></a>         <span class="k">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 reading body 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">errmsg</span><span class="p">))</span>
+<a name="ln-1257"></a>      <span class="k">end select</span>
+<a name="ln-1258"></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-1259"></a>   <span class="k">end function </span><span class="n">io_read_frame_body</span>
+<a name="ln-1260"></a>
+<a name="ln-1261"></a>
+<a name="ln-1262"></a>   <span class="k">module function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1263"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1264"></a>      <span class="c">!!</span>
+<a name="ln-1265"></a>      <span class="c">!! Reads a frame of output of central body data to the binary output file</span>
+<a name="ln-1266"></a>      <span class="c">!!</span>
+<a name="ln-1267"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_read_frame.f90</span>
+<a name="ln-1268"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_frame.F</span>
+<a name="ln-1269"></a>      <span class="k">implicit none</span>
+<a name="ln-1270"></a>      <span class="c">! Arguments</span>
+<a name="ln-1271"></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-1272"></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-1273"></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-1274"></a>      <span class="c">! Result</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>  <span class="c">!! Error code: returns 0 if the read is successful</span>
+<a name="ln-1276"></a>      <span class="c">! Internals</span>
+<a name="ln-1277"></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">errmsg</span>
+<a name="ln-1278"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name</span>
+<a name="ln-1279"></a>
+<a name="ln-1280"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-1281"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">name</span>
+<a name="ln-1282"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">set_value</span><span class="p">(</span><span class="n">name</span><span class="o">=</span><span class="n">name</span><span class="p">)</span>
+<a name="ln-1283"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-1284"></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-1285"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-1286"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span> 
+<a name="ln-1287"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j4rp4</span> 
+<a name="ln-1288"></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-1289"></a><span class="k">         read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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>
+<a name="ln-1290"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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>
+<a name="ln-1291"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1292"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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>
+<a name="ln-1293"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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>
+<a name="ln-1294"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1295"></a>      <span class="k">end if</span>
+<a name="ln-1296"></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-1297"></a><span class="k">         read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">k2</span>
+<a name="ln-1298"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Q</span>
+<a name="ln-1299"></a>      <span class="k">end if</span>
+<a name="ln-1300"></a>
+<a name="ln-1301"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-1302"></a>      <span class="k">return</span>
+<a name="ln-1303"></a>
+<a name="ln-1304"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1305"></a><span class="k">      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 reading central body 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">errmsg</span><span class="p">))</span>
+<a name="ln-1306"></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-1307"></a>   <span class="k">end function </span><span class="n">io_read_frame_cb</span>
+<a name="ln-1308"></a>
+<a name="ln-1309"></a>
+<a name="ln-1310"></a>   <span class="k">module function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1311"></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-1312"></a>      <span class="c">!!</span>
+<a name="ln-1313"></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-1314"></a>      <span class="k">implicit none</span>
+<a name="ln-1315"></a>      <span class="c">! Arguments</span>
+<a name="ln-1316"></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-1317"></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-1318"></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-1319"></a>      <span class="c">! Result</span>
+<a name="ln-1320"></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: returns 0 if the read is successful</span>
+<a name="ln-1321"></a>      <span class="c">! Internals</span>
+<a name="ln-1322"></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">errmsg</span>
+<a name="ln-1323"></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">npl</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-1324"></a>
+<a name="ln-1325"></a>      <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">npl</span><span class="p">,</span> <span class="n">ntp</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-1326"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">is_iostat_end</span><span class="p">(</span><span class="n">ierr</span><span class="p">))</span> <span class="k">return</span> <span class="c">! Reached the end of the frames</span>
+<a name="ln-1327"></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">setup</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1328"></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">setup</span><span class="p">(</span><span class="n">ntp</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1329"></a>
+<a name="ln-1330"></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-1331"></a><span class="k">         write</span><span class="p">(</span><span class="n">errmsg</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Cannot read frame header.&quot;</span>
+<a name="ln-1332"></a>         <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1333"></a>      <span class="k">end if</span>
+<a name="ln-1334"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</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>
+<a name="ln-1335"></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-1336"></a><span class="k">         write</span><span class="p">(</span><span class="n">errmsg</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Cannot read central body frame.&quot;</span>
+<a name="ln-1337"></a>         <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1338"></a>      <span class="k">end if</span>
+<a name="ln-1339"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</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>
+<a name="ln-1340"></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-1341"></a><span class="k">         write</span><span class="p">(</span><span class="n">errmsg</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Cannot read massive body frame.&quot;</span>
+<a name="ln-1342"></a>         <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1343"></a>      <span class="k">end if</span>
+<a name="ln-1344"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</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>
+<a name="ln-1345"></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-1346"></a><span class="k">         write</span><span class="p">(</span><span class="n">errmsg</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Cannot read test particle frame.&quot;</span>
+<a name="ln-1347"></a>         <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1348"></a>      <span class="k">end if</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-1350"></a><span class="k">      return</span>
+<a name="ln-1351"></a>
+<a name="ln-1352"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1353"></a><span class="k">      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 reading system frame: &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">errmsg</span><span class="p">))</span>
+<a name="ln-1354"></a>   <span class="k">end function </span><span class="n">io_read_frame_system</span>
+<a name="ln-1355"></a>
+<a name="ln-1356"></a>
+<a name="ln-1357"></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-1358"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1359"></a>      <span class="c">!!</span>
+<a name="ln-1360"></a>      <span class="c">!! Read frame header from input binary files</span>
+<a name="ln-1361"></a>      <span class="c">!!     Function returns read error status (0 = OK, nonzero = ERROR)</span>
+<a name="ln-1362"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_read_hdr.f90</span>
+<a name="ln-1363"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_hdr.f</span>
+<a name="ln-1364"></a>      <span class="k">implicit none</span>
+<a name="ln-1365"></a>      <span class="c">! Arguments</span>
+<a name="ln-1366"></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-1367"></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-1368"></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-1369"></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-1370"></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-1371"></a>      <span class="c">! Result</span>
+<a name="ln-1372"></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-1373"></a>      <span class="c">! Internals</span>
+<a name="ln-1374"></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-1375"></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">errmsg</span>
+<a name="ln-1376"></a>
+<a name="ln-1377"></a>      <span class="k">select case</span> <span class="p">(</span><span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1378"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">)</span>
+<a name="ln-1379"></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">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">333</span><span class="p">)</span> <span class="n">ttmp</span>
+<a name="ln-1380"></a>         <span class="n">t</span> <span class="o">=</span> <span class="n">ttmp</span>
+<a name="ln-1381"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL8_TYPE</span><span class="p">)</span>
+<a name="ln-1382"></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">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">333</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-1383"></a>      <span class="k">case </span><span class="n">default</span>
+<a name="ln-1384"></a>         <span class="k">write</span><span class="p">(</span><span class="n">errmsg</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-1385"></a>         <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-1386"></a>      <span class="k">end select</span>
+<a name="ln-1387"></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">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">npl</span>
+<a name="ln-1388"></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">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">ntp</span>
+<a name="ln-1389"></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">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">out_form</span>
+<a name="ln-1390"></a>
+<a name="ln-1391"></a>      <span class="k">return</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-1393"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1394"></a><span class="k">      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 reading header: &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">errmsg</span><span class="p">))</span>
+<a name="ln-1395"></a>      <span class="mi">333</span> <span class="k">continue</span>
+<a name="ln-1396"></a><span class="k">      return</span>
+<a name="ln-1397"></a>
+<a name="ln-1398"></a><span class="k">      return</span>
+<a name="ln-1399"></a><span class="k">   end function </span><span class="n">io_read_hdr</span>
+<a name="ln-1400"></a>
+<a name="ln-1401"></a>
+<a name="ln-1402"></a>   <span class="k">module subroutine </span><span class="n">io_read_in_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-1403"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1404"></a>      <span class="c">!!</span>
+<a name="ln-1405"></a>      <span class="c">!! Read in parameters for the integration</span>
+<a name="ln-1406"></a>      <span class="c">!!</span>
+<a name="ln-1407"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
+<a name="ln-1408"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
+<a name="ln-1409"></a>      <span class="k">implicit none</span>
+<a name="ln-1410"></a>      <span class="c">! Arguments</span>
+<a name="ln-1411"></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-1412"></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-1413"></a>      <span class="c">! Internals</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">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-1415"></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-1416"></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">errmsg</span>           <span class="c">!! Error message in UDIO procedure</span>
+<a name="ln-1417"></a>
+<a name="ln-1418"></a>      <span class="c">! Read in name of parameter file</span>
+<a name="ln-1419"></a>      <span class="k">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-1420"></a>      <span class="k">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-1421"></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-1422"></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> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1423"></a>
+<a name="ln-1424"></a>      <span class="c">!! todo: Currently this procedure does not work in user-defined derived-type input mode </span>
+<a name="ln-1425"></a>      <span class="c">!!    as the newline characters are ignored in the input file when compiled in ifort.</span>
+<a name="ln-1426"></a>
+<a name="ln-1427"></a>      <span class="c">!read(LUN,&#39;(DT)&#39;, iostat= ierr, iomsg = errmsg) param</span>
+<a name="ln-1428"></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">errmsg</span><span class="p">)</span>
+<a name="ln-1429"></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-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-1431"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1432"></a><span class="k">      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 reading parameter 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">errmsg</span><span class="p">))</span>
+<a name="ln-1433"></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-1434"></a>   <span class="k">end subroutine </span><span class="n">io_read_in_param</span>
+<a name="ln-1435"></a>
+<a name="ln-1436"></a>
+<a name="ln-1437"></a>   <span class="k">module subroutine </span><span class="n">io_read_in_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">)</span>
+<a name="ln-1438"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1439"></a>      <span class="c">!!</span>
+<a name="ln-1440"></a>      <span class="c">!! Reads in particle information object information from an open file unformatted file</span>
+<a name="ln-1441"></a>      <span class="k">implicit none</span>
+<a name="ln-1442"></a>      <span class="c">! Arguments</span>
+<a name="ln-1443"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_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">!! Particle metadata information object</span>
+<a name="ln-1444"></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">!! Open file unit number</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>
+<a name="ln-1446"></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">errmsg</span>
+<a name="ln-1447"></a>
+<a name="ln-1448"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">name</span>
+<a name="ln-1449"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">particle_type</span>
+<a name="ln-1450"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_type</span>
+<a name="ln-1451"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_time</span>
+<a name="ln-1452"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xh</span><span class="p">(:)</span>
+<a name="ln-1453"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vh</span><span class="p">(:)</span>
+<a name="ln-1454"></a>
+<a name="ln-1455"></a>      <span class="k">return</span>
+<a name="ln-1456"></a>
+<a name="ln-1457"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1458"></a><span class="k">      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 reading particle metadata information from 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">errmsg</span><span class="p">))</span>
+<a name="ln-1459"></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-1460"></a>   <span class="k">end subroutine </span><span class="n">io_read_in_particle_info</span>
+<a name="ln-1461"></a>
+<a name="ln-1462"></a>
+<a name="ln-1463"></a>   <span class="k">module subroutine </span><span class="n">io_read_particle_info_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-1464"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1465"></a>      <span class="c">!!</span>
+<a name="ln-1466"></a>      <span class="c">!! Reads an old particle information file for a restartd run</span>
+<a name="ln-1467"></a>      <span class="k">implicit none</span>
+<a name="ln-1468"></a>      <span class="c">! Arguments</span>
+<a name="ln-1469"></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-1470"></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-1471"></a>      <span class="c">! Internals</span>
+<a name="ln-1472"></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-1473"></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">id</span><span class="p">,</span> <span class="n">idx</span>
+<a name="ln-1474"></a>      <span class="kt">logical</span>                       <span class="kd">::</span> <span class="n">lmatch</span>  
+<a name="ln-1475"></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">errmsg</span>
+<a name="ln-1476"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_particle_info</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmpinfo</span>
+<a name="ln-1477"></a>
+<a name="ln-1478"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1479"></a>
+<a name="ln-1480"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">tmpinfo</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">)</span>
+<a name="ln-1481"></a>
+<a name="ln-1482"></a>      <span class="k">select type</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-1483"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-1484"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-1485"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-1486"></a>            <span class="k">select type</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>
+<a name="ln-1487"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-1488"></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-1489"></a>                  <span class="k">do </span>
+<a name="ln-1490"></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-1491"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">333</span><span class="p">)</span> <span class="n">id</span>
+<a name="ln-1492"></a>
+<a name="ln-1493"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">id</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-1494"></a><span class="k">                        call </span><span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">read_in</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> 
+<a name="ln-1495"></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-1496"></a>                     <span class="k">else </span>
+<a name="ln-1497"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">npl</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1498"></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="mi">1</span><span class="p">:</span><span class="n">npl</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-1499"></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-1500"></a><span class="k">                              call </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><span class="n">read_in</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> 
+<a name="ln-1501"></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-1502"></a>                           <span class="k">end if</span>
+<a name="ln-1503"></a><span class="k">                        end if</span>
+<a name="ln-1504"></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">ntp</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1505"></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="mi">1</span><span class="p">:</span><span class="n">ntp</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-1506"></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-1507"></a><span class="k">                              call </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><span class="n">read_in</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> 
+<a name="ln-1508"></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-1509"></a>                           <span class="k">end if</span>
+<a name="ln-1510"></a><span class="k">                        end if</span>
+<a name="ln-1511"></a><span class="k">                     end if</span>
+<a name="ln-1512"></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-1513"></a><span class="k">                        call </span><span class="n">tmpinfo</span><span class="p">%</span><span class="n">read_in</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> 
+<a name="ln-1514"></a>                     <span class="k">end if</span>
+<a name="ln-1515"></a><span class="k">                  end do</span>
+<a name="ln-1516"></a><span class="k">               end associate</span>
+<a name="ln-1517"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1518"></a>            <span class="k">end select</span>
+<a name="ln-1519"></a><span class="k">         end select</span>
+<a name="ln-1520"></a><span class="k">      end select</span>
+<a name="ln-1521"></a>
+<a name="ln-1522"></a><span class="k">      </span><span class="mi">333</span> <span class="k">continue</span>
+<a name="ln-1523"></a><span class="k">      return</span>
+<a name="ln-1524"></a>
+<a name="ln-1525"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1526"></a><span class="k">      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 reading particle information 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">errmsg</span><span class="p">))</span>
+<a name="ln-1527"></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-1528"></a>   <span class="k">end subroutine </span><span class="n">io_read_particle_info_system</span>
+<a name="ln-1529"></a>
+<a name="ln-1530"></a>
+<a name="ln-1531"></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-1532"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1533"></a>      <span class="c">!!</span>
+<a name="ln-1534"></a>      <span class="c">!! Convert string to uppercase</span>
+<a name="ln-1535"></a>      <span class="c">!!</span>
+<a name="ln-1536"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: util_toupper.f90</span>
+<a name="ln-1537"></a>      <span class="k">implicit none</span>
+<a name="ln-1538"></a>      <span class="c">! Arguments</span>
+<a name="ln-1539"></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-1540"></a>      <span class="c">! Internals</span>
+<a name="ln-1541"></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-1542"></a>   
+<a name="ln-1543"></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-1544"></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-1545"></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-1546"></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-1547"></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-1548"></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-1549"></a>         <span class="k">end if</span>
+<a name="ln-1550"></a><span class="k">      end do</span>
+<a name="ln-1551"></a><span class="k">   </span>
+<a name="ln-1552"></a><span class="k">      return</span>
+<a name="ln-1553"></a><span class="k">   end subroutine </span><span class="n">io_toupper</span>
+<a name="ln-1554"></a>
+<a name="ln-1555"></a>
+<a name="ln-1556"></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-1557"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1558"></a>      <span class="c">!!</span>
+<a name="ln-1559"></a>      <span class="c">!! Write out information about discarded test particle</span>
+<a name="ln-1560"></a>      <span class="c">!!</span>
+<a name="ln-1561"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_discard_write.f90</span>
+<a name="ln-1562"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_discard_write.f</span>
+<a name="ln-1563"></a>      <span class="k">implicit none</span>
+<a name="ln-1564"></a>      <span class="c">! Arguments</span>
+<a name="ln-1565"></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-1566"></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-1567"></a>      <span class="c">! Internals</span>
+<a name="ln-1568"></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-1569"></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-1570"></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-1571"></a>      <span class="kt">real</span><span 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-1572"></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-1573"></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-1574"></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-1575"></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-1576"></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-1577"></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-1578"></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">errmsg</span><span class="p">,</span> <span class="n">out_stat</span>
+<a name="ln-1579"></a>
+<a name="ln-1580"></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-1581"></a>
+<a name="ln-1582"></a>         <span class="c">! Record the discarded body metadata information to file</span>
+<a name="ln-1583"></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">NETCDF_FLOAT_TYPE</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">out_type</span> <span class="o">==</span> <span class="n">NETCDF_DOUBLE_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1584"></a><span class="k">            call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-1585"></a>            <span class="k">call </span><span class="n">tp_discards</span><span class="p">%</span><span class="n">write_particle_info</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">)</span>
+<a name="ln-1586"></a>            <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">close</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1587"></a>         <span class="k">end if</span>
+<a name="ln-1588"></a><span class="k">   </span>
+<a name="ln-1589"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-1590"></a>
+<a name="ln-1591"></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-1592"></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-1593"></a><span class="k">            </span><span class="n">out_stat</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span>
+<a name="ln-1594"></a>         <span class="k">else</span>
+<a name="ln-1595"></a><span class="k">            </span><span class="n">out_stat</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span>
+<a name="ln-1596"></a>         <span class="k">end if</span>
+<a name="ln-1597"></a><span class="k">         select case</span><span class="p">(</span><span class="n">out_stat</span><span class="p">)</span>
+<a name="ln-1598"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-1599"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1600"></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-1601"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1602"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-1603"></a>            <span class="k">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-1604"></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-1605"></a>         <span class="k">end select</span>
+<a name="ln-1606"></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-1607"></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-1608"></a>
+<a name="ln-1609"></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-1610"></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-1611"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1612"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1613"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1614"></a>         <span class="k">end do</span>
+<a name="ln-1615"></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-1616"></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-1617"></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-1618"></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-1619"></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-1620"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">pltemp</span><span class="p">)</span>
+<a name="ln-1621"></a>            <span class="k">else</span>
+<a name="ln-1622"></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-1623"></a>            <span class="k">end if</span>
+<a name="ln-1624"></a>
+<a name="ln-1625"></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-1626"></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-1627"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1628"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1629"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1630"></a>            <span class="k">end do</span>
+<a name="ln-1631"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-1632"></a>         <span class="k">end if</span>
+<a name="ln-1633"></a><span class="k">         close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
+<a name="ln-1634"></a>      <span class="k">end associate</span>
+<a name="ln-1635"></a>
+<a name="ln-1636"></a><span class="k">      return</span>
+<a name="ln-1637"></a>
+<a name="ln-1638"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1639"></a><span class="k">      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 writing discard 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">errmsg</span><span class="p">))</span>
+<a name="ln-1640"></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-1641"></a>   <span class="k">end subroutine </span><span class="n">io_write_discard</span>
+<a name="ln-1642"></a>
+<a name="ln-1643"></a>
+<a name="ln-1644"></a>   <span class="k">module subroutine </span><span class="n">io_write_encounter</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">encbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1645"></a>      <span class="k">implicit none</span>
+<a name="ln-1646"></a>      <span class="c">! Arguments</span>
+<a name="ln-1647"></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">self</span>    <span class="c">!! Swiftest encounter list object</span>
+<a name="ln-1648"></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>      <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1649"></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">encbody</span> <span class="c">!! Encountering body - Swiftest generic body object (pl or tp) </span>
+<a name="ln-1650"></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-1651"></a>      <span class="c">! Internals</span>
+<a name="ln-1652"></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-1653"></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-1654"></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><span class="p">,</span> <span class="n">ierr</span>
+<a name="ln-1655"></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">errmsg</span>
+<a name="ln-1656"></a>
+<a name="ln-1657"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span> <span class="p">.</span><span class="nb">or</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>
+<a name="ln-1658"></a>
+<a name="ln-1659"></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">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> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1660"></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-1661"></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-1662"></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">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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1663"></a>         <span class="k">else</span>
+<a name="ln-1664"></a><span class="k">            goto </span><span class="mi">667</span>
+<a name="ln-1665"></a>         <span class="k">end if</span>
+<a name="ln-1666"></a><span class="k">      end if</span>
+<a name="ln-1667"></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-1668"></a>
+<a name="ln-1669"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">ind1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">ind2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span>
+<a name="ln-1670"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">encbody</span><span class="p">)</span>
+<a name="ln-1671"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-1672"></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">self</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-1673"></a>               <span class="k">call </span><span class="n">io_write_frame_encounter</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-1674"></a>                                             <span class="n">pl</span><span class="p">%</span><span class="n">id</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="n">encbody</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)),</span> <span class="p">&amp;</span>
+<a name="ln-1675"></a>                                             <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="n">encbody</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> <span class="p">&amp;</span>
+<a name="ln-1676"></a>                                             <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="n">encbody</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> <span class="p">&amp;</span>
+<a name="ln-1677"></a>                                             <span class="n">self</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="n">k</span><span class="p">),</span>       <span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-1678"></a>                                             <span class="n">self</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="n">k</span><span class="p">),</span>       <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-1679"></a>            <span class="k">end do</span>
+<a name="ln-1680"></a><span class="k">         class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-1681"></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">self</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-1682"></a>               <span class="k">call </span><span class="n">io_write_frame_encounter</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-1683"></a>                                             <span class="n">pl</span><span class="p">%</span><span class="n">id</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="n">encbody</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)),</span> <span class="p">&amp;</span>
+<a name="ln-1684"></a>                                             <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="mf">0.0_DP</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-1685"></a>                                             <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="mf">0.0_DP</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-1686"></a>                                             <span class="n">self</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="n">k</span><span class="p">),</span>       <span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-1687"></a>                                             <span class="n">self</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="n">k</span><span class="p">),</span>       <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-1688"></a>            <span class="k">end do </span>
+<a name="ln-1689"></a><span class="k">         end select</span>
+<a name="ln-1690"></a><span class="k">      end associate</span>
+<a name="ln-1691"></a>
+<a name="ln-1692"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1693"></a>
+<a name="ln-1694"></a>      <span class="k">return</span>
+<a name="ln-1695"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1696"></a><span class="k">      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 writing encounter 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">errmsg</span><span class="p">))</span>
+<a name="ln-1697"></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-1698"></a>   <span class="k">end subroutine </span><span class="n">io_write_encounter</span>
+<a name="ln-1699"></a>
+<a name="ln-1700"></a>
+<a name="ln-1701"></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-1702"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1703"></a>      <span class="c">!!</span>
+<a name="ln-1704"></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-1705"></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-1706"></a>      <span class="c">!!</span>
+<a name="ln-1707"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
+<a name="ln-1708"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
+<a name="ln-1709"></a>      <span class="k">implicit none</span>
+<a name="ln-1710"></a>      <span class="c">! Arguments</span>
+<a name="ln-1711"></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-1712"></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-1713"></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-1714"></a>      <span class="c">! Internals</span>
+<a name="ln-1715"></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">errmsg</span>
+<a name="ln-1716"></a>
+<a name="ln-1717"></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-1718"></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-1719"></a><span class="k">         write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1720"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)%</span><span class="n">name</span>
+<a name="ln-1721"></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">XV</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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1722"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1723"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1724"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1725"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1726"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1727"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1728"></a>         <span class="k">end if</span>
+<a name="ln-1729"></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="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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1730"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1731"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1732"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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> <span class="o">*</span> <span class="n">RAD2DEG</span>
+<a name="ln-1733"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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> <span class="o">*</span> <span class="n">RAD2DEG</span>
+<a name="ln-1734"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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> <span class="o">*</span> <span class="n">RAD2DEG</span>
+<a name="ln-1735"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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> <span class="o">*</span> <span class="n">RAD2DEG</span>
+<a name="ln-1736"></a>         <span class="k">end if</span>
+<a name="ln-1737"></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-1738"></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-1739"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1740"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1741"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1742"></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-1743"></a><span class="k">               write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1744"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1745"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1746"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1747"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1748"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1749"></a>            <span class="k">end if</span>
+<a name="ln-1750"></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-1751"></a><span class="k">               write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1752"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1753"></a>            <span class="k">end if</span>
+<a name="ln-1754"></a><span class="k">         end select</span>
+<a name="ln-1755"></a><span class="k">      end associate</span>
+<a name="ln-1756"></a>
+<a name="ln-1757"></a><span class="k">      return</span>
+<a name="ln-1758"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1759"></a><span class="k">      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 writing body frame: &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">errmsg</span><span class="p">))</span>
+<a name="ln-1760"></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-1761"></a>   <span class="k">end subroutine </span><span class="n">io_write_frame_body</span>
+<a name="ln-1762"></a>
+<a name="ln-1763"></a>
+<a name="ln-1764"></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-1765"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1766"></a>      <span class="c">!!</span>
+<a name="ln-1767"></a>      <span class="c">!! Write a frame of output of central body data to the binary output file</span>
+<a name="ln-1768"></a>      <span class="c">!!</span>
+<a name="ln-1769"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
+<a name="ln-1770"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
+<a name="ln-1771"></a>      <span class="k">implicit none</span>
+<a name="ln-1772"></a>      <span class="c">! Arguments</span>
+<a name="ln-1773"></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-1774"></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-1775"></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-1776"></a>      <span class="c">! Internals</span>
+<a name="ln-1777"></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">errmsg</span>
+<a name="ln-1778"></a>
+<a name="ln-1779"></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-1780"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-1781"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">name</span>
+<a name="ln-1782"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-1783"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-1784"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">j2rp2</span> 
+<a name="ln-1785"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">j4rp4</span> 
+<a name="ln-1786"></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-1787"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1788"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1789"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1790"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1791"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1792"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1793"></a>         <span class="k">end if</span>
+<a name="ln-1794"></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-1795"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">k2</span>
+<a name="ln-1796"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Q</span>
+<a name="ln-1797"></a>         <span class="k">end if</span>
+<a name="ln-1798"></a><span class="k">      end associate</span>
+<a name="ln-1799"></a>
+<a name="ln-1800"></a><span class="k">      return</span>
+<a name="ln-1801"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1802"></a><span class="k">      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 writing central body frame: &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">errmsg</span><span class="p">))</span>
+<a name="ln-1803"></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-1804"></a>   <span class="k">end subroutine </span><span class="n">io_write_frame_cb</span>
+<a name="ln-1805"></a>
+<a name="ln-1806"></a>
+<a name="ln-1807"></a>  <span class="k">module subroutine </span><span class="n">io_write_frame_encounter</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">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</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="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>
+<a name="ln-1808"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1809"></a>      <span class="c">!!</span>
+<a name="ln-1810"></a>      <span class="c">!! Write a single frame of close encounter data to output binary files</span>
+<a name="ln-1811"></a>      <span class="c">!!</span>
+<a name="ln-1812"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_write_encounter.f90</span>
+<a name="ln-1813"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_encounter.f</span>
+<a name="ln-1814"></a>      <span class="k">implicit none</span>
+<a name="ln-1815"></a>      <span class="c">! Arguments</span>
+<a name="ln-1816"></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">!! Open file unit number</span>
+<a name="ln-1817"></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">!! Time of encounter</span>
+<a name="ln-1818"></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">id1</span><span class="p">,</span> <span class="n">id2</span>         <span class="c">!! ids of the two encountering bodies</span>
+<a name="ln-1819"></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">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</span>   <span class="c">!! G*mass of the two encountering bodies</span>
+<a name="ln-1820"></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">radius1</span><span class="p">,</span> <span class="n">radius2</span> <span class="c">!! Radii of the two encountering bodies</span>
+<a name="ln-1821"></a>      <span class="kt">real</span><span 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="c">!! Heliocentric position vectors of the two encountering bodies </span>
+<a name="ln-1822"></a>      <span class="kt">real</span><span 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">vh1</span><span class="p">,</span> <span class="n">vh2</span>         <span class="c">!! Heliocentric velocity vectors of the two encountering bodies  </span>
+<a name="ln-1823"></a>      <span class="c">! Internals</span>
+<a name="ln-1824"></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">errmsg</span>
+<a name="ln-1825"></a>
+<a name="ln-1826"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-1827"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">id1</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">Gmass1</span><span class="p">,</span> <span class="n">radius1</span>
+<a name="ln-1828"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">id2</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">Gmass2</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-1829"></a>
+<a name="ln-1830"></a>      <span class="k">return</span>
+<a name="ln-1831"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1832"></a><span class="k">      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 writing encounter 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">errmsg</span><span class="p">))</span>
+<a name="ln-1833"></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-1834"></a>   <span class="k">end subroutine</span>
+<a name="ln-1835"></a>
+<a name="ln-1836"></a>
+<a name="ln-1837"></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">param</span><span class="p">)</span>
+<a name="ln-1838"></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-1839"></a>      <span class="c">!!</span>
+<a name="ln-1840"></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-1841"></a>      <span class="c">!! There is no direct file output from this subroutine</span>
+<a name="ln-1842"></a>      <span class="c">!!</span>
+<a name="ln-1843"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
+<a name="ln-1844"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
+<a name="ln-1845"></a>      <span class="k">implicit none</span>
+<a name="ln-1846"></a>      <span class="c">! Arguments</span>
+<a name="ln-1847"></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-1848"></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-1849"></a>      <span class="c">! Internals</span>
+<a name="ln-1850"></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-1851"></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-1852"></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-1853"></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-1854"></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">errmsg</span>
+<a name="ln-1855"></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">BINUNIT</span>   <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-1856"></a>      <span class="kt">logical</span>                          <span class="kd">::</span> <span class="n">fileExists</span>
+<a name="ln-1857"></a>
+<a name="ln-1858"></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">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-1859"></a>
+<a name="ln-1860"></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-1861"></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-1862"></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-1863"></a>      <span class="n">iu</span> <span class="o">=</span> <span class="n">BINUNIT</span>
+<a name="ln-1864"></a>      
+<a name="ln-1865"></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">or</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="k">then</span>
+<a name="ln-1866"></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-1867"></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-1868"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-1869"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1870"></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-1871"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1872"></a>            <span class="k">case </span><span class="n">default</span>
+<a name="ln-1873"></a>               <span class="k">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-1874"></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-1875"></a>            <span class="k">end select</span>
+<a name="ln-1876"></a><span class="k">   </span>
+<a name="ln-1877"></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-1878"></a>         <span class="k">else</span>
+<a name="ln-1879"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1880"></a>         <span class="k">end if</span>
+<a name="ln-1881"></a><span class="k">      else 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">NETCDF_FLOAT_TYPE</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">out_type</span> <span class="o">==</span> <span class="n">NETCDF_DOUBLE_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1882"></a>
+<a name="ln-1883"></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-1884"></a><span class="k">            inquire</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">exist</span><span class="o">=</span><span class="n">fileExists</span><span class="p">)</span>
+<a name="ln-1885"></a>          
+<a name="ln-1886"></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-1887"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-1888"></a>               <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">fileExists</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1889"></a><span class="k">                  </span><span class="n">errmsg</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">//</span> <span class="s2">&quot; not found! You must specify OUT_STAT = NEW, REPLACE, or UNKNOWN&quot;</span>
+<a name="ln-1890"></a>                  <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1891"></a>               <span class="k">end if</span>
+<a name="ln-1892"></a><span class="k">            case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">)</span>
+<a name="ln-1893"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">fileExists</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1894"></a><span class="k">                  </span><span class="n">errmsg</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">//</span> <span class="s2">&quot; Alread Exists! You must specify OUT_STAT = OLD, REPLACE, or UNKNOWN&quot;</span>
+<a name="ln-1895"></a>                  <span class="k">goto </span><span class="mi">667</span>
+<a name="ln-1896"></a>               <span class="k">end if</span>
+<a name="ln-1897"></a><span class="k">            case</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-1898"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">fileExists</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1899"></a><span class="k">                  open</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">unit</span><span class="o">=</span><span class="n">iu</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>
+<a name="ln-1900"></a>                  <span class="k">close</span> <span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">BINUNIT</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s2">&quot;delete&quot;</span><span class="p">)</span>
+<a name="ln-1901"></a>               <span class="k">end if</span>
+<a name="ln-1902"></a><span class="k">            end select</span>
+<a name="ln-1903"></a>
+<a name="ln-1904"></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-1905"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-1906"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1907"></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-1908"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</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-1909"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">close</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1910"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1911"></a>            <span class="k">end select</span>
+<a name="ln-1912"></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-1913"></a>         <span class="k">else</span>
+<a name="ln-1914"></a><span class="k">            call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1915"></a>         <span class="k">end if</span>
+<a name="ln-1916"></a><span class="k">      end if</span>
+<a name="ln-1917"></a>
+<a name="ln-1918"></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-1919"></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-1920"></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-1921"></a>      <span class="k">end if</span>
+<a name="ln-1922"></a>
+<a name="ln-1923"></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="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">out_form</span> <span class="o">==</span> <span class="n">XVEL</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-1924"></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-1925"></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-1926"></a>      <span class="k">end if</span>
+<a name="ln-1927"></a>      
+<a name="ln-1928"></a>      <span class="c">! Write out each data type frame</span>
+<a name="ln-1929"></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">or</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="k">then</span>
+<a name="ln-1930"></a><span class="k">         call </span><span class="n">self</span><span class="p">%</span><span class="n">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>
+<a name="ln-1931"></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-1932"></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-1933"></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-1934"></a>         <span class="k">close</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-1935"></a>      <span class="k">else 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">NETCDF_FLOAT_TYPE</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">out_type</span> <span class="o">==</span> <span class="n">NETCDF_DOUBLE_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1936"></a><span class="k">         call </span><span class="n">self</span><span class="p">%</span><span class="n">write_hdr</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1937"></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">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1938"></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">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1939"></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">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1940"></a>         <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">close</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1941"></a>      <span class="k">end if</span>
+<a name="ln-1942"></a>
+<a name="ln-1943"></a><span class="k">      return</span>
+<a name="ln-1944"></a>
+<a name="ln-1945"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1946"></a><span class="k">      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 writing system frame: &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">errmsg</span><span class="p">))</span>
+<a name="ln-1947"></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-1948"></a>   <span class="k">end subroutine </span><span class="n">io_write_frame_system</span>
+<a name="ln-1949"></a>
+<a name="ln-1950"></a>
+<a name="ln-1951"></a>   <span class="k">module subroutine </span><span class="n">io_write_hdr_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="c">! t, npl, ntp, out_form, out_type)</span>
+<a name="ln-1952"></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-1953"></a>      <span class="c">!!</span>
+<a name="ln-1954"></a>      <span class="c">!! Write frame header to output binary file</span>
+<a name="ln-1955"></a>      <span class="c">!!</span>
+<a name="ln-1956"></a>      <span class="c">!! Adapted from David Adapted from David E. Kaufmann&#39;s Swifter routine io_write_hdr.f90</span>
+<a name="ln-1957"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_hdr.F</span>
+<a name="ln-1958"></a>      <span class="k">implicit none</span>
+<a name="ln-1959"></a>      <span class="c">! Arguments</span>
+<a name="ln-1960"></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 nbody system object</span>
+<a name="ln-1961"></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">!! Output file unit number</span>
+<a name="ln-1962"></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-1963"></a>      <span class="c">! Internals</span>
+<a name="ln-1964"></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">errmsg</span>
+<a name="ln-1965"></a>   
+<a name="ln-1966"></a>      <span class="k">select case</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-1967"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">)</span>
+<a name="ln-1968"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="kt">real</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="nb">kind</span><span class="o">=</span><span class="n">SP</span><span class="p">)</span>
+<a name="ln-1969"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL8_TYPE</span><span class="p">)</span>
+<a name="ln-1970"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
+<a name="ln-1971"></a>      <span class="k">end select</span>
+<a name="ln-1972"></a><span class="k">      write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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>
+<a name="ln-1973"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-1974"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">out_form</span>
+<a name="ln-1975"></a>   
+<a name="ln-1976"></a>      <span class="k">return</span>
+<a name="ln-1977"></a>
+<a name="ln-1978"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-1979"></a><span class="k">      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 writing header: &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">errmsg</span><span class="p">))</span>
+<a name="ln-1980"></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-1981"></a>   <span class="k">end subroutine </span><span class="n">io_write_hdr_system</span>
+<a name="ln-1982"></a>
+<a name="ln-1983"></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 eca8d4e71..e2e41f83b 100644
--- a/docs/sourcefile/kick.f90.html
+++ b/docs/sourcefile/kick.f90.html
@@ -134,7 +134,7 @@ <h1>kick.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for source files.">48 statements</a>
+    title=" 0.6% of total for source files.">99 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefilekickf90EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.42" 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 412.12)">
 <title>sourcefile~~kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 878,-412.12 878,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,-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>
+<polygon fill="none" stroke="black" points="874,-133.12 820,-133.12 820,-109.12 874,-109.12 874,-133.12"/>
+<text text-anchor="middle" x="847" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">kick.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.44,-109.09C789.3,-87.43 705.41,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.09,-133.4C818.2,-149.8 789.87,-179.03 771.01,-198.5"/>
+<polygon fill="#000000" stroke="#000000" points="768.25,-196.32 763.81,-205.93 773.28,-201.19 768.25,-196.32"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~kick.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~kick.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~kick.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~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="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~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,-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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~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="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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -562,7 +616,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 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-5"></a><span class="k">   module 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-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">!! Compute direct cross (third) term heliocentric accelerations of massive bodies</span>
@@ -572,64 +626,152 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</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">k</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="kd">::</span> <span class="n">rji2</span><span class="p">,</span> <span class="n">irij3</span><span class="p">,</span> <span class="n">faci</span><span class="p">,</span> <span class="n">facj</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="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-19"></a>
-<a name="ln-20"></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> <span class="n">nplpl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span>
-<a name="ln-21"></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">nplpl</span>
-<a name="ln-22"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">i</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">j</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-23"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">pl</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="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">pl</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-24"></a><span class="k">                  </span><span class="n">dx</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> <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-25"></a>                  <span class="n">rji2</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-26"></a>                  <span class="n">irij3</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rji2</span><span class="p">))</span>
-<a name="ln-27"></a>                  <span class="n">faci</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">irij3</span>
-<a name="ln-28"></a>                  <span class="n">facj</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">irij3</span>
-<a name="ln-29"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">ah</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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">facj</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-30"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-31"></a>               <span class="k">end if</span>
-<a name="ln-32"></a><span class="k">            end associate</span>
-<a name="ln-33"></a><span class="k">         end do</span>
-<a name="ln-34"></a><span class="k">      end associate</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">kick_getacch_int_pl</span>
-<a name="ln-38"></a>
+<a name="ln-15"></a>
+<a name="ln-16"></a>      <span class="k">call </span><span class="n">kick_getacch_int_all_pl</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="n">self</span><span class="p">%</span><span class="n">nplpl</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">k_plpl</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">self</span><span class="p">%</span><span class="n">Gmass</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">self</span><span class="p">%</span><span class="n">ah</span><span class="p">)</span>
+<a name="ln-17"></a>
+<a name="ln-18"></a>      <span class="k">return</span>
+<a name="ln-19"></a><span class="k">   end subroutine </span><span class="n">kick_getacch_int_pl</span>
+<a name="ln-20"></a>
+<a name="ln-21"></a>
+<a name="ln-22"></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-23"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-24"></a>      <span class="c">!!</span>
+<a name="ln-25"></a>      <span class="c">!! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</span>
+<a name="ln-26"></a>      <span class="c">!!</span>
+<a name="ln-27"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine getacch_ah3_tp.f</span>
+<a name="ln-28"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90</span>
+<a name="ln-29"></a>      <span class="k">implicit none</span>
+<a name="ln-30"></a>      <span class="c">! Arguments</span>
+<a name="ln-31"></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-32"></a>      <span class="kt">real</span><span 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-33"></a>      <span class="kt">real</span><span 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-34"></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-35"></a>      <span class="c">! Internals</span>
+<a name="ln-36"></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-37"></a>
+<a name="ln-38"></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="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-39"></a>
-<a name="ln-40"></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-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">!! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</span>
-<a name="ln-44"></a>      <span class="c">!!</span>
-<a name="ln-45"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine getacch_ah3_tp.f</span>
-<a name="ln-46"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90</span>
-<a name="ln-47"></a>      <span class="k">implicit none</span>
-<a name="ln-48"></a>      <span class="c">! Arguments</span>
-<a name="ln-49"></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-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">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-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">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-52"></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-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">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-55"></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">rji2</span><span class="p">,</span> <span class="n">irij3</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">r2</span>
-<a name="ln-56"></a>      <span class="kt">real</span><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-57"></a>
-<a name="ln-58"></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-59"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-60"></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-61"></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">xhp</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-62"></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-63"></a>               <span class="n">fac</span> <span class="o">=</span> <span class="n">GMpl</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">r2</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-64"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">fac</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-65"></a>            <span class="k">end do</span>
-<a name="ln-66"></a><span class="k">         end do</span>
-<a name="ln-67"></a><span class="k">      end associate</span>
-<a name="ln-68"></a><span class="k">      </span>
-<a name="ln-69"></a><span class="k">      return</span>
-<a name="ln-70"></a><span class="k">   end subroutine </span><span class="n">kick_getacch_int_tp</span>
-<a name="ln-71"></a>
-<a name="ln-72"></a><span class="k">end submodule </span><span class="n">s_kick</span>
+<a name="ln-40"></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-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">ntp</span>
+<a name="ln-42"></a>            <span class="k">if</span> <span class="p">(</span><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="k">then</span>
+<a name="ln-43"></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-44"></a>                  <span class="k">block</span>
+<a name="ln-45"></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">rji2</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">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span>
+<a name="ln-47"></a>                     <span class="n">xr</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="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xhp</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-48"></a>                     <span class="n">yr</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="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xhp</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-49"></a>                     <span class="n">zr</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="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xhp</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-50"></a>                     <span class="n">rji2</span> <span class="o">=</span> <span class="n">xr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">yr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">zr</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-51"></a>                     <span class="k">call </span><span class="n">kick_getacch_int_one_tp</span><span class="p">(</span><span class="n">rji2</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">GMpl</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">ah</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</span><span class="p">%</span><span class="n">ah</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</span><span class="p">%</span><span class="n">ah</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-52"></a>                  <span class="k">end block</span>
+<a name="ln-53"></a><span class="k">               end do</span>
+<a name="ln-54"></a><span class="k">            end if</span>
+<a name="ln-55"></a><span class="k">         end do</span>
+<a name="ln-56"></a><span class="k">      end associate</span>
+<a name="ln-57"></a><span class="k">      </span>
+<a name="ln-58"></a><span class="k">      return</span>
+<a name="ln-59"></a><span class="k">   end subroutine </span><span class="n">kick_getacch_int_tp</span>
+<a name="ln-60"></a>
+<a name="ln-61"></a>
+<a name="ln-62"></a>   <span class="k">module subroutine </span><span class="n">kick_getacch_int_all_pl</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">nplpl</span><span class="p">,</span> <span class="n">k_plpl</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">Gmass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">acc</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">!! Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization</span>
+<a name="ln-66"></a>      <span class="c">!!</span>
+<a name="ln-67"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine getacch_ah3.f</span>
+<a name="ln-68"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int.f9</span>
+<a name="ln-69"></a>      <span class="k">implicit none</span>
+<a name="ln-70"></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>    <span class="c">!! Number of massive bodies</span>
+<a name="ln-71"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nplpl</span>  <span class="c">!! Number of massive body interactions to compute</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="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">k_plpl</span> <span class="c">!! Array of interaction pair indices (flattened upper triangular matrix)</span>
+<a name="ln-73"></a>      <span class="kt">real</span><span 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 array</span>
+<a name="ln-74"></a>      <span class="kt">real</span><span 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">Gmass</span>  <span class="c">!! Array of massive body G*mass</span>
+<a name="ln-75"></a>      <span class="kt">real</span><span 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">radius</span> <span class="c">!! Array of massive body radii</span>
+<a name="ln-76"></a>      <span class="kt">real</span><span 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">acc</span>    <span class="c">!! Acceleration vector array </span>
+<a name="ln-77"></a>      <span class="c">! Internals</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">k</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="kd">::</span> <span class="n">rji2</span><span class="p">,</span> <span class="n">rlim2</span>
+<a name="ln-80"></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">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</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><span class="p">,</span> <span class="n">j</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="n">NDIM</span><span class="p">,</span><span class="n">npl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">ahj</span>
+<a name="ln-83"></a>
+<a name="ln-84"></a>      <span class="n">ahi</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-85"></a>      <span class="n">ahj</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-86"></a>      <span class="c">!$omp parallel do default(private)&amp;</span>
+<a name="ln-87"></a>      <span class="c">!$omp shared(nplpl, k_plpl, x, Gmass, radius)  &amp;</span>
+<a name="ln-88"></a>      <span class="c">!$omp reduction(+:ahi) &amp;</span>
+<a name="ln-89"></a>      <span class="c">!$omp reduction(-:ahj) </span>
+<a name="ln-90"></a>      <span class="k">do </span><span class="n">k</span> <span class="o">=</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">nplpl</span>
+<a name="ln-91"></a>         <span class="n">i</span> <span class="o">=</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>
+<a name="ln-92"></a>         <span class="n">j</span> <span class="o">=</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-93"></a>         <span class="n">xr</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="n">j</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="n">i</span><span class="p">)</span>
+<a name="ln-94"></a>         <span class="n">yr</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="n">j</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="n">i</span><span class="p">)</span>
+<a name="ln-95"></a>         <span class="n">zr</span> <span class="o">=</span> <span class="n">x</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">x</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-96"></a>         <span class="n">rji2</span> <span class="o">=</span> <span class="n">xr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">yr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">zr</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-97"></a>         <span class="n">rlim2</span> <span class="o">=</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="n">radius</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-98"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">&gt;</span> <span class="n">rlim2</span><span class="p">)</span> <span class="k">call </span><span class="n">kick_getacch_int_one_pl</span><span class="p">(</span><span class="n">rji2</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">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">Gmass</span><span class="p">(</span><span class="n">j</span><span class="p">),</span> <span class="n">ahi</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">ahi</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">ahi</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="n">ahj</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">j</span><span class="p">),</span> <span class="n">ahj</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">j</span><span class="p">),</span> <span class="n">ahj</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-99"></a>      <span class="k">end do</span>
+<a name="ln-100"></a>      <span class="c">!$omp end parallel do</span>
+<a name="ln-101"></a>      
+<a name="ln-102"></a>      <span class="n">acc</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">acc</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">ahi</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">ahj</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-103"></a>      <span class="k">return</span>
+<a name="ln-104"></a><span class="k">   end subroutine </span><span class="n">kick_getacch_int_all_pl</span>
+<a name="ln-105"></a>
+<a name="ln-106"></a>
+<a name="ln-107"></a>   <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_one_pl</span><span class="p">(</span><span class="n">rji2</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">Gmi</span><span class="p">,</span> <span class="n">Gmj</span><span class="p">,</span> <span class="n">axi</span><span class="p">,</span> <span class="n">ayi</span><span class="p">,</span> <span class="n">azi</span><span class="p">,</span> <span class="n">axj</span><span class="p">,</span> <span class="n">ayj</span><span class="p">,</span> <span class="n">azj</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">!! Compute direct cross (third) term heliocentric accelerations for a single pair of massive bodies</span>
+<a name="ln-111"></a>      <span class="c">!!</span>
+<a name="ln-112"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine getacch_ah3.f</span>
+<a name="ln-113"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int.f9</span>
+<a name="ln-114"></a>      <span class="k">implicit none</span>
+<a name="ln-115"></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">rji2</span>            <span class="c">!! Square of distance between the two bodies</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">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="c">!! Distances between the two bodies in x, y, and z directions</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">Gmi</span>             <span class="c">!! G*mass of body i</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">Gmj</span>             <span class="c">!! G*mass of body j</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">axi</span><span class="p">,</span> <span class="n">ayi</span><span class="p">,</span> <span class="n">azi</span> <span class="c">!! Acceleration vector components of body i</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">axj</span><span class="p">,</span> <span class="n">ayj</span><span class="p">,</span> <span class="n">azj</span> <span class="c">!! Acceleration vector components of body j</span>
+<a name="ln-121"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">faci</span><span class="p">,</span> <span class="n">facj</span><span class="p">,</span> <span class="n">irij3</span>
+<a name="ln-123"></a>
+<a name="ln-124"></a>      <span class="n">irij3</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rji2</span><span class="p">))</span>
+<a name="ln-125"></a>      <span class="n">faci</span> <span class="o">=</span> <span class="n">Gmi</span> <span class="o">*</span> <span class="n">irij3</span>
+<a name="ln-126"></a>      <span class="n">facj</span> <span class="o">=</span> <span class="n">Gmj</span> <span class="o">*</span> <span class="n">irij3</span>
+<a name="ln-127"></a>      <span class="n">axi</span> <span class="o">=</span> <span class="n">axi</span> <span class="o">+</span> <span class="n">facj</span> <span class="o">*</span> <span class="n">xr</span>
+<a name="ln-128"></a>      <span class="n">ayi</span> <span class="o">=</span> <span class="n">ayi</span> <span class="o">+</span> <span class="n">facj</span> <span class="o">*</span> <span class="n">yr</span>
+<a name="ln-129"></a>      <span class="n">azi</span> <span class="o">=</span> <span class="n">azi</span> <span class="o">+</span> <span class="n">facj</span> <span class="o">*</span> <span class="n">zr</span>
+<a name="ln-130"></a>      <span class="n">axj</span> <span class="o">=</span> <span class="n">axj</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">xr</span>
+<a name="ln-131"></a>      <span class="n">ayj</span> <span class="o">=</span> <span class="n">ayj</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">yr</span>
+<a name="ln-132"></a>      <span class="n">azj</span> <span class="o">=</span> <span class="n">azj</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">zr</span>
+<a name="ln-133"></a>
+<a name="ln-134"></a>      <span class="k">return</span>
+<a name="ln-135"></a><span class="k">   end subroutine </span><span class="n">kick_getacch_int_one_pl</span>
+<a name="ln-136"></a>
+<a name="ln-137"></a>
+<a name="ln-138"></a>   <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_one_tp</span><span class="p">(</span><span class="n">rji2</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">GMpl</span><span class="p">,</span> <span class="n">ax</span><span class="p">,</span> <span class="n">ay</span><span class="p">,</span> <span class="n">az</span><span class="p">)</span>
+<a name="ln-139"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-140"></a>      <span class="c">!!</span>
+<a name="ln-141"></a>      <span class="c">!! Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair.</span>
+<a name="ln-142"></a>      <span class="c">!!</span>
+<a name="ln-143"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine getacch_ah3_tp.f</span>
+<a name="ln-144"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90</span>
+<a name="ln-145"></a>      <span class="k">implicit none</span>
+<a name="ln-146"></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">rji2</span>         <span class="c">!! Square of distance between the test particle and massive body</span>
+<a name="ln-147"></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">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span>   <span class="c">!! Distances between the two bodies in x, y, and z directions</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">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">!! G*mass of massive body</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ax</span><span class="p">,</span> <span class="n">ay</span><span class="p">,</span> <span class="n">az</span> <span class="c">!! Acceleration vector components of test particle</span>
+<a name="ln-150"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">fac</span>
+<a name="ln-152"></a>
+<a name="ln-153"></a>      <span class="n">fac</span> <span class="o">=</span> <span class="n">GMpl</span> <span class="o">/</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rji2</span><span class="p">))</span>
+<a name="ln-154"></a>      <span class="n">ax</span> <span class="o">=</span> <span class="n">ax</span> <span class="o">-</span> <span class="n">fac</span> <span class="o">*</span> <span class="n">xr</span>
+<a name="ln-155"></a>      <span class="n">ay</span> <span class="o">=</span> <span class="n">ay</span> <span class="o">-</span> <span class="n">fac</span> <span class="o">*</span> <span class="n">yr</span>
+<a name="ln-156"></a>      <span class="n">az</span> <span class="o">=</span> <span class="n">az</span> <span class="o">-</span> <span class="n">fac</span> <span class="o">*</span> <span class="n">zr</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">kick_getacch_int_one_tp</span>
+<a name="ln-159"></a>
+<a name="ln-160"></a><span class="k">end submodule </span><span class="n">s_kick</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/lambda_function.f90.html b/docs/sourcefile/lambda_function.f90.html
index ffc447c06..113dd51fd 100644
--- a/docs/sourcefile/lambda_function.f90.html
+++ b/docs/sourcefile/lambda_function.f90.html
@@ -134,7 +134,7 @@ <h1>lambda_function.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.">121 statements</a>
+    title=" 0.7% of total for source files.">121 statements</a>
      </li> 
      
      
@@ -303,916 +303,1036 @@ <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="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)">
+<svg id="sourcefilelambda_functionf90AfferentGraph" width="419pt" height="2804pt"
+ viewBox="0.00 0.00 419.00 2804.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 2800)">
 <title>sourcefile~~lambda_function.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 415,-2464 415,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 415,-2800 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,-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>
+<polygon fill="none" stroke="black" points="109,-1410 0,-1410 0,-1386 109,-1386 109,-1410"/>
+<text text-anchor="middle" x="54.5" y="-1395.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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1410 145,-1410 145,-1386 211,-1386 211,-1410"/>
+<text text-anchor="middle" x="178" y="-1395.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.76,-1398C136.79,-1398 127.98,-1398 119.08,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="119.04,-1394.5 109.04,-1398 119.04,-1401.5 119.04,-1394.5"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node3" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-2796 254,-2796 254,-2772 404,-2772 404,-2796"/>
+<text text-anchor="middle" x="329" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge2" class="edge">
-<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"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.87,-2771.94C253.19,-2769.45 249.84,-2766.49 247,-2763 202.76,-2708.68 182.27,-1592.64 179.36,-1420.27"/>
+<polygon fill="#000000" stroke="#000000" points="182.86,-1420.05 179.19,-1410.11 175.86,-1420.16 182.86,-1420.05"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-2754 285,-2754 285,-2730 373,-2730 373,-2754"/>
+<text text-anchor="middle" x="329" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge3" class="edge">
-<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"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.65,-2740.65C270.55,-2737.92 256.18,-2732.26 247,-2721 204.15,-2668.46 182.54,-1589.97 179.4,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="182.9,-1420.07 179.21,-1410.13 175.9,-1420.2 182.9,-1420.07"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node5" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="385,-2712 273,-2712 273,-2688 385,-2688 385,-2712"/>
+<text text-anchor="middle" x="329" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge4" class="edge">
-<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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.87,-2695.6C262.92,-2692.3 253.62,-2687.1 247,-2679 205.5,-2628.21 182.79,-1586.05 179.44,-1420.17"/>
+<polygon fill="#000000" stroke="#000000" points="182.94,-1420.07 179.24,-1410.14 175.94,-1420.21 182.94,-1420.07"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node6" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-2670 290,-2670 290,-2646 368,-2646 368,-2670"/>
+<text text-anchor="middle" x="329" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge5" 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="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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.73,-2657.49C274.1,-2655.18 257.31,-2649.59 247,-2637 206.9,-2588.01 183.1,-1583.99 179.48,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="182.98,-1420.05 179.26,-1410.13 175.98,-1420.21 182.98,-1420.05"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node7" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-2628 292.5,-2628 292.5,-2604 365.5,-2604 365.5,-2628"/>
+<text text-anchor="middle" x="329" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge6" class="edge">
-<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"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.24,-2615.83C275.93,-2613.75 257.87,-2608.25 247,-2595 208.25,-2547.75 183.37,-1579.7 179.52,-1420.17"/>
+<polygon fill="#000000" stroke="#000000" points="183.02,-1420.01 179.28,-1410.1 176.02,-1420.18 183.02,-1420.01"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="384.5,-2586 273.5,-2586 273.5,-2562 384.5,-2562 384.5,-2586"/>
+<text text-anchor="middle" x="329" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge7" class="edge">
-<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"/>
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.33,-2569.71C263.21,-2566.42 253.73,-2561.19 247,-2553 172.42,-2462.26 177.36,-1573.17 178.77,-1420.31"/>
+<polygon fill="#000000" stroke="#000000" points="182.27,-1420.28 178.86,-1410.25 175.27,-1420.21 182.27,-1420.28"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-2544 290.5,-2544 290.5,-2520 367.5,-2520 367.5,-2544"/>
+<text text-anchor="middle" x="329" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge8" class="edge">
-<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"/>
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.18,-2531.52C274.44,-2529.25 257.44,-2523.67 247,-2511 175.17,-2423.81 177.8,-1570.31 178.82,-1420.42"/>
+<polygon fill="#000000" stroke="#000000" points="182.32,-1420.19 178.89,-1410.16 175.32,-1420.13 182.32,-1420.19"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-2502 276,-2502 276,-2478 382,-2478 382,-2502"/>
+<text text-anchor="middle" x="329" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge9" class="edge">
-<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"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.86,-2486.46C264.82,-2483.24 254.31,-2477.85 247,-2469 177.91,-2385.34 178.25,-1567.17 178.87,-1420.47"/>
+<polygon fill="#000000" stroke="#000000" points="182.38,-1420.07 178.92,-1410.05 175.38,-1420.03 182.38,-1420.07"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node11" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="388,-2460 270,-2460 270,-2436 388,-2436 388,-2460"/>
+<text text-anchor="middle" x="329" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge10" class="edge">
-<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"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.66,-2442.37C260.96,-2439.05 252.93,-2434.16 247,-2427 180.65,-2346.86 178.73,-1563.84 178.94,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="182.44,-1420.27 178.96,-1410.27 175.44,-1420.26 182.44,-1420.27"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node12" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-2418 295,-2418 295,-2394 363,-2394 363,-2418"/>
+<text text-anchor="middle" x="329" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.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"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.78,-2406.06C277.87,-2404.22 258.51,-2398.86 247,-2385 183.37,-2308.36 179.22,-1560.16 179,-1420.42"/>
+<polygon fill="#000000" stroke="#000000" points="182.5,-1420.1 178.99,-1410.1 175.5,-1420.11 182.5,-1420.1"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-2376 286.5,-2376 286.5,-2352 371.5,-2352 371.5,-2376"/>
+<text text-anchor="middle" x="329" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_setup.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"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.47,-2362.86C271.85,-2360.25 256.67,-2354.61 247,-2343 186.08,-2269.85 179.73,-1556.27 179.08,-1420.31"/>
+<polygon fill="#000000" stroke="#000000" points="182.58,-1420.23 179.03,-1410.24 175.58,-1420.26 182.58,-1420.23"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-2334 295.5,-2334 295.5,-2310 362.5,-2310 362.5,-2334"/>
+<text text-anchor="middle" x="329" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.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"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.22,-2322.08C278.23,-2320.27 258.64,-2314.93 247,-2301 188.77,-2231.33 180.26,-1552.05 179.15,-1420.13"/>
+<polygon fill="#000000" stroke="#000000" points="182.65,-1419.99 179.07,-1410.02 175.65,-1420.05 182.65,-1419.99"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-2292 286.5,-2292 286.5,-2268 371.5,-2268 371.5,-2292"/>
+<text text-anchor="middle" x="329" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_rescale.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"/>
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.09,-2278.75C271.61,-2276.1 256.62,-2270.46 247,-2259 191.52,-2192.86 180.83,-1548.92 179.24,-1420.29"/>
+<polygon fill="#000000" stroke="#000000" points="182.74,-1420.04 179.12,-1410.08 175.74,-1420.12 182.74,-1420.04"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-2250 290,-2250 290,-2226 368,-2226 368,-2250"/>
+<text text-anchor="middle" x="329" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.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"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.9,-2237.35C274.3,-2235.02 257.48,-2229.44 247,-2217 194.25,-2154.37 181.42,-1545.38 179.34,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="182.83,-1420.04 179.17,-1410.1 175.83,-1420.16 182.83,-1420.04"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="377,-2208 281,-2208 281,-2184 377,-2184 377,-2208"/>
+<text text-anchor="middle" x="329" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_setup.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"/>
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.65,-2193.55C267.96,-2190.54 255.44,-2184.98 247,-2175 196.96,-2115.85 182.04,-1541.44 179.44,-1420.34"/>
+<polygon fill="#000000" stroke="#000000" points="182.94,-1420 179.23,-1410.07 175.94,-1420.14 182.94,-1420"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node18"><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~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_step.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"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.11,-2153.18C273.76,-2150.76 257.35,-2145.17 247,-2133 199.7,-2077.38 182.72,-1538.24 179.57,-1420.6"/>
+<polygon fill="#000000" stroke="#000000" points="183.06,-1420.18 179.3,-1410.28 176.06,-1420.37 183.06,-1420.18"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="380.5,-2124 277.5,-2124 277.5,-2100 380.5,-2100 380.5,-2124"/>
+<text text-anchor="middle" x="329" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_discard.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"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.34,-2108.63C265.83,-2105.46 254.74,-2100.05 247,-2091 202.37,-2038.81 183.4,-1533.42 179.69,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="183.18,-1420.02 179.37,-1410.14 176.19,-1420.24 183.18,-1420.02"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-2082 292.5,-2082 292.5,-2058 365.5,-2058 365.5,-2082"/>
+<text text-anchor="middle" x="329" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.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"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.1,-2069.54C275.96,-2067.38 258.09,-2061.88 247,-2049 205.08,-2000.28 184.14,-1529.22 179.84,-1420.37"/>
+<polygon fill="#000000" stroke="#000000" points="183.33,-1420.06 179.45,-1410.21 176.34,-1420.33 183.33,-1420.06"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-2040 282,-2040 282,-2016 376,-2016 376,-2040"/>
+<text text-anchor="middle" x="329" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_setup.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"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.64,-2025.62C268.68,-2022.65 255.75,-2017.1 247,-2007 207.75,-1961.72 184.92,-1524.48 180.01,-1420.23"/>
+<polygon fill="#000000" stroke="#000000" points="183.5,-1420.03 179.54,-1410.2 176.51,-1420.35 183.5,-1420.03"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-1998 288,-1998 288,-1974 370,-1974 370,-1998"/>
+<text text-anchor="middle" x="329" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.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"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.6,-1984.76C272.76,-1982.19 257.13,-1976.59 247,-1965 210.45,-1923.17 185.78,-1520.03 180.2,-1420.25"/>
+<polygon fill="#000000" stroke="#000000" points="183.69,-1419.9 179.64,-1410.11 176.7,-1420.28 183.69,-1419.9"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1956 295,-1956 295,-1932 363,-1932 363,-1956"/>
+<text text-anchor="middle" x="329" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.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"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.7,-1943.73C277.98,-1941.77 258.82,-1936.4 247,-1923 179.79,-1846.83 177.95,-1510.78 178.7,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="182.2,-1420.26 178.8,-1410.23 175.2,-1420.19 182.2,-1420.26"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~whm_drift.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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_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">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge23" class="edge">
-<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"/>
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.23,-1901.07C274.69,-1898.68 257.83,-1893.14 247,-1881 185.09,-1811.61 179.36,-1505.75 178.98,-1420.26"/>
+<polygon fill="#000000" stroke="#000000" points="182.48,-1420.12 178.96,-1410.12 175.48,-1420.13 182.48,-1420.12"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366.5,-1872 291.5,-1872 291.5,-1848 366.5,-1848 366.5,-1872"/>
+<text text-anchor="middle" x="329" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_solve.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.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"/>
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.13,-1859.12C275.38,-1856.79 258.11,-1851.29 247,-1839 190.44,-1776.43 180.9,-1501.22 179.31,-1420.39"/>
+<polygon fill="#000000" stroke="#000000" points="182.81,-1420.26 179.14,-1410.32 175.81,-1420.38 182.81,-1420.26"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1830 290.5,-1830 290.5,-1806 367.5,-1806 367.5,-1830"/>
+<text text-anchor="middle" x="329" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_coord.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"/>
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.39,-1816.92C274.89,-1814.5 258.01,-1808.98 247,-1797 195.79,-1741.25 182.61,-1496.75 179.72,-1420.68"/>
+<polygon fill="#000000" stroke="#000000" points="183.21,-1420.21 179.36,-1410.34 176.21,-1420.46 183.21,-1420.21"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369,-1788 289,-1788 289,-1764 369,-1764 369,-1788"/>
+<text text-anchor="middle" x="329" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.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"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.84,-1774.54C273.82,-1771.98 257.73,-1766.45 247,-1755 201.04,-1705.93 184.47,-1491.11 180.22,-1420.55"/>
+<polygon fill="#000000" stroke="#000000" points="183.69,-1419.94 179.62,-1410.16 176.7,-1420.34 183.69,-1419.94"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-1746 297,-1746 297,-1722 361,-1722 361,-1746"/>
+<text text-anchor="middle" x="329" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.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"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.76,-1733.52C279.81,-1731.58 259.78,-1726.31 247,-1713 206.25,-1670.54 186.55,-1485.15 180.83,-1420.41"/>
+<polygon fill="#000000" stroke="#000000" points="184.29,-1419.77 179.95,-1410.11 177.31,-1420.37 184.29,-1419.77"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411,-1704 247,-1704 247,-1680 411,-1680 411,-1704"/>
+<text text-anchor="middle" x="329" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.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"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.75,-1679.93C254.46,-1677.46 250.48,-1674.51 247,-1671 211.4,-1635.06 188.89,-1478.53 181.59,-1420.1"/>
+<polygon fill="#000000" stroke="#000000" points="185.06,-1419.59 180.37,-1410.09 178.11,-1420.44 185.06,-1419.59"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-1662 302,-1662 302,-1638 356,-1638 356,-1662"/>
+<text text-anchor="middle" x="329" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.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"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.8,-1649.65C284.14,-1648.03 261.51,-1643.04 247,-1629 187.89,-1571.79 179.47,-1466.05 178.74,-1420.18"/>
+<polygon fill="#000000" stroke="#000000" points="182.24,-1420.1 178.7,-1410.12 175.24,-1420.14 182.24,-1420.1"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.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_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge30" class="edge">
-<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"/>
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.12,-1605.74C275.12,-1603.06 258.7,-1597.67 247,-1587 198.12,-1542.41 184.34,-1460.11 180.49,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="183.95,-1419.96 179.62,-1410.29 176.98,-1420.55 183.95,-1419.96"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1578 286,-1578 286,-1554 372,-1554 372,-1578"/>
+<text text-anchor="middle" x="329" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.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="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"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.59,-1562.21C272.07,-1559.23 257.82,-1554.03 247,-1545 207.99,-1512.44 190.17,-1452.61 183.07,-1420.22"/>
+<polygon fill="#000000" stroke="#000000" points="186.41,-1419.1 180.98,-1410 179.55,-1420.5 186.41,-1419.1"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1536 295,-1536 295,-1512 363,-1512 363,-1536"/>
+<text text-anchor="middle" x="329" y="-1521.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~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge32" class="edge">
-<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"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.88,-1521.01C279.2,-1518.27 260.9,-1513.03 247,-1503 217.56,-1481.77 197.58,-1443.51 187.25,-1419.5"/>
+<polygon fill="#000000" stroke="#000000" points="190.46,-1418.09 183.42,-1410.18 183.98,-1420.76 190.46,-1418.09"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-1494 299,-1494 299,-1470 359,-1470 359,-1494"/>
+<text text-anchor="middle" x="329" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge33" class="edge">
-<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"/>
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.97,-1478.05C282.93,-1475.01 263.06,-1469.78 247,-1461 226.93,-1450.03 208.19,-1431.82 195.49,-1417.8"/>
+<polygon fill="#000000" stroke="#000000" points="197.97,-1415.32 188.74,-1410.11 192.7,-1419.93 197.97,-1415.32"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="381.5,-1452 276.5,-1452 276.5,-1428 381.5,-1428 381.5,-1452"/>
+<text text-anchor="middle" x="329" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge34" 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.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"/>
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.93,-1427.93C269.07,-1425.09 257.62,-1422.02 247,-1419 238.45,-1416.57 229.34,-1413.85 220.65,-1411.19"/>
+<polygon fill="#000000" stroke="#000000" points="221.67,-1407.84 211.08,-1408.24 219.6,-1414.53 221.67,-1407.84"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~setup.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,-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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357.5,-1410 300.5,-1410 300.5,-1386 357.5,-1386 357.5,-1410"/>
+<text text-anchor="middle" x="329" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~setup.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.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"/>
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.32,-1398C278.13,-1398 246.62,-1398 221.28,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="221.19,-1394.5 211.19,-1398 221.19,-1401.5 221.19,-1394.5"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1368 290.5,-1368 290.5,-1344 367.5,-1344 367.5,-1368"/>
+<text text-anchor="middle" x="329" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge36" class="edge">
-<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"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.4,-1365.37C276.7,-1368.88 261.11,-1372.99 247,-1377 238.45,-1379.43 229.34,-1382.15 220.65,-1384.81"/>
+<polygon fill="#000000" stroke="#000000" points="219.6,-1381.47 211.08,-1387.76 221.67,-1388.16 219.6,-1381.47"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1326 295,-1326 295,-1302 363,-1302 363,-1326"/>
+<text text-anchor="middle" x="329" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge37" class="edge">
-<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"/>
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.69,-1318.8C279.49,-1321.93 261.66,-1326.98 247,-1335 226.93,-1345.97 208.19,-1364.18 195.49,-1378.2"/>
+<polygon fill="#000000" stroke="#000000" points="192.7,-1376.07 188.74,-1385.89 197.97,-1380.68 192.7,-1376.07"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1284 286,-1284 286,-1260 372,-1260 372,-1284"/>
+<text text-anchor="middle" x="329" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge38" class="edge">
-<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"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.88,-1276.79C272.53,-1279.85 258.31,-1284.84 247,-1293 217.56,-1314.23 197.58,-1352.49 187.25,-1376.5"/>
+<polygon fill="#000000" stroke="#000000" points="183.98,-1375.24 183.42,-1385.82 190.46,-1377.91 183.98,-1375.24"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1242 286,-1242 286,-1218 372,-1218 372,-1242"/>
+<text text-anchor="middle" x="329" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge39" class="edge">
-<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"/>
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.59,-1233.79C272.07,-1236.77 257.82,-1241.97 247,-1251 207.99,-1283.56 190.17,-1343.39 183.07,-1375.78"/>
+<polygon fill="#000000" stroke="#000000" points="179.55,-1375.5 180.98,-1386 186.41,-1376.9 179.55,-1375.5"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365,-1200 293,-1200 293,-1176 365,-1176 365,-1200"/>
+<text text-anchor="middle" x="329" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge40" class="edge">
-<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"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.99,-1189.78C277.25,-1192.27 259.45,-1197.64 247,-1209 198.12,-1253.59 184.34,-1335.89 180.49,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="176.98,-1375.45 179.62,-1385.71 183.95,-1376.04 176.98,-1375.45"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371,-1158 287,-1158 287,-1134 371,-1134 371,-1158"/>
+<text text-anchor="middle" x="329" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge41" class="edge">
-<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"/>
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.89,-1148.47C272.67,-1151.27 257.65,-1156.69 247,-1167 187.89,-1224.21 179.47,-1329.95 178.74,-1375.82"/>
+<polygon fill="#000000" stroke="#000000" points="175.24,-1375.86 178.7,-1385.88 182.24,-1375.9 175.24,-1375.86"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-1116 301.5,-1116 301.5,-1092 356.5,-1092 356.5,-1116"/>
+<text text-anchor="middle" x="329" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge42" class="edge">
-<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"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.23,-1104.19C283.54,-1105.77 261.11,-1110.76 247,-1125 211.4,-1160.94 188.89,-1317.47 181.59,-1375.9"/>
+<polygon fill="#000000" stroke="#000000" points="178.11,-1375.56 180.37,-1385.91 185.06,-1376.41 178.11,-1375.56"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364.5,-1074 293.5,-1074 293.5,-1050 364.5,-1050 364.5,-1074"/>
+<text text-anchor="middle" x="329" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge43" 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.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"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.11,-1062.95C277.01,-1065.2 258.87,-1070.63 247,-1083 206.25,-1125.46 186.55,-1310.85 180.83,-1375.59"/>
+<polygon fill="#000000" stroke="#000000" points="177.31,-1375.63 179.95,-1385.89 184.29,-1376.23 177.31,-1375.63"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-1032 302,-1032 302,-1008 356,-1008 356,-1032"/>
+<text text-anchor="middle" x="329" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge44" class="edge">
-<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"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.74,-1019.88C283.82,-1021.27 260.9,-1026.16 247,-1041 201.04,-1090.07 184.47,-1304.89 180.22,-1375.45"/>
+<polygon fill="#000000" stroke="#000000" points="176.7,-1375.66 179.62,-1385.84 183.69,-1376.06 176.7,-1375.66"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-990 289.5,-990 289.5,-966 368.5,-966 368.5,-990"/>
+<text text-anchor="middle" x="329" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge45" class="edge">
-<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"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.14,-979.29C273.99,-981.8 257.71,-987.34 247,-999 195.79,-1054.75 182.61,-1299.25 179.72,-1375.32"/>
+<polygon fill="#000000" stroke="#000000" points="176.21,-1375.54 179.36,-1385.66 183.21,-1375.79 176.21,-1375.54"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-948 302,-948 302,-924 356,-924 356,-948"/>
+<text text-anchor="middle" x="329" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge46" class="edge">
-<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"/>
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.96,-935.71C283.91,-936.98 260.74,-941.81 247,-957 190.44,-1019.57 180.9,-1294.78 179.31,-1375.61"/>
+<polygon fill="#000000" stroke="#000000" points="175.81,-1375.62 179.14,-1385.68 182.81,-1375.74 175.81,-1375.62"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-906 296.5,-906 296.5,-882 361.5,-882 361.5,-906"/>
+<text text-anchor="middle" x="329" y="-891.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 -->
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge47" class="edge">
-<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"/>
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.38,-894.14C279.31,-895.96 259.28,-901.23 247,-915 185.09,-984.39 179.36,-1290.25 178.98,-1375.74"/>
+<polygon fill="#000000" stroke="#000000" points="175.48,-1375.87 178.96,-1385.88 182.48,-1375.88 175.48,-1375.87"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-864 286.5,-864 286.5,-840 371.5,-840 371.5,-864"/>
+<text text-anchor="middle" x="329" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge48" class="edge">
-<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"/>
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.39,-853.51C271.95,-856.19 256.9,-861.78 247,-873 179.79,-949.17 177.95,-1285.22 178.7,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="175.2,-1375.81 178.8,-1385.77 182.2,-1375.74 175.2,-1375.81"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.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">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge49" class="edge">
-<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"/>
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.47,-813.49C265.97,-816.65 254.84,-822.03 247,-831 210.45,-872.83 185.78,-1275.97 180.2,-1375.75"/>
+<polygon fill="#000000" stroke="#000000" points="176.7,-1375.72 179.64,-1385.89 183.69,-1376.1 176.7,-1375.72"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-780 295,-780 295,-756 363,-756 363,-780"/>
+<text text-anchor="middle" x="329" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge50" class="edge">
-<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"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.61,-768.18C277.86,-770.12 258.7,-775.5 247,-789 207.75,-834.28 184.92,-1271.52 180.01,-1375.77"/>
+<polygon fill="#000000" stroke="#000000" points="176.51,-1375.65 179.54,-1385.8 183.5,-1375.97 176.51,-1375.65"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-738 301.5,-738 301.5,-714 356.5,-714 356.5,-738"/>
+<text text-anchor="middle" x="329" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge51" class="edge">
-<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"/>
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.35,-725.53C283.25,-726.75 260.27,-731.58 247,-747 205.08,-795.72 184.14,-1266.78 179.84,-1375.63"/>
+<polygon fill="#000000" stroke="#000000" points="176.34,-1375.67 179.45,-1385.79 183.33,-1375.94 176.34,-1375.67"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="380.5,-696 277.5,-696 277.5,-672 380.5,-672 380.5,-696"/>
+<text text-anchor="middle" x="329" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge52" class="edge">
-<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"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.34,-687.37C265.83,-690.54 254.74,-695.95 247,-705 202.37,-757.19 183.4,-1262.58 179.69,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="176.19,-1375.76 179.37,-1385.86 183.18,-1375.98 176.19,-1375.76"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-654 302,-654 302,-630 356,-630 356,-654"/>
+<text text-anchor="middle" x="329" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge53" class="edge">
-<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"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.68,-641.46C283.49,-642.61 260.27,-647.4 247,-663 199.7,-718.62 182.72,-1257.76 179.57,-1375.4"/>
+<polygon fill="#000000" stroke="#000000" points="176.06,-1375.63 179.3,-1385.72 183.06,-1375.82 176.06,-1375.63"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node55" class="node">
-<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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-612 286,-612 286,-588 372,-588 372,-612"/>
+<text text-anchor="middle" x="329" y="-597.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 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge54" class="edge">
-<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"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.72,-601.37C271.37,-604.06 256.57,-609.69 247,-621 196.96,-680.15 182.04,-1254.56 179.44,-1375.66"/>
+<polygon fill="#000000" stroke="#000000" points="175.94,-1375.86 179.23,-1385.93 182.94,-1376 175.94,-1375.86"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-570 286,-570 286,-546 372,-546 372,-570"/>
+<text text-anchor="middle" x="329" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.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="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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.69,-559.35C271.34,-562.03 256.55,-567.67 247,-579 194.25,-641.63 181.42,-1250.62 179.34,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="175.83,-1375.84 179.17,-1385.9 182.83,-1375.96 175.83,-1375.84"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376.5,-528 281.5,-528 281.5,-504 376.5,-504 376.5,-528"/>
+<text text-anchor="middle" x="329" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge56" class="edge">
-<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"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.44,-518.21C268.47,-521.17 255.59,-526.76 247,-537 191.52,-603.14 180.83,-1247.08 179.24,-1375.71"/>
+<polygon fill="#000000" stroke="#000000" points="175.74,-1375.88 179.12,-1385.92 182.74,-1375.96 175.74,-1375.88"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-486 258,-486 258,-462 400,-462 400,-486"/>
+<text text-anchor="middle" x="329" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge57" class="edge">
-<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"/>
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.69,-485.67C253.7,-488.24 250.07,-491.32 247,-495 188.77,-564.67 180.26,-1243.95 179.15,-1375.87"/>
+<polygon fill="#000000" stroke="#000000" points="175.65,-1375.95 179.07,-1385.98 182.65,-1376.01 175.65,-1375.95"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-444 299,-444 299,-420 359,-420 359,-444"/>
+<text text-anchor="middle" x="329" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge58" class="edge">
-<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"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.83,-431.57C281.07,-432.99 259.46,-438.04 247,-453 186.08,-526.15 179.73,-1239.73 179.08,-1375.69"/>
+<polygon fill="#000000" stroke="#000000" points="175.58,-1375.74 179.03,-1385.76 182.58,-1375.77 175.58,-1375.74"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~fraggle_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370.5,-402 287.5,-402 287.5,-378 370.5,-378 370.5,-402"/>
+<text text-anchor="middle" x="329" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_util.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"/>
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.29,-390.98C272.42,-393.52 256.84,-399.15 247,-411 183.37,-487.64 179.22,-1235.84 179,-1375.58"/>
+<polygon fill="#000000" stroke="#000000" points="175.5,-1375.89 178.99,-1385.9 182.5,-1375.9 175.5,-1375.89"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~swiftest_driver.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>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378,-360 280,-360 280,-336 378,-336 378,-360"/>
+<text text-anchor="middle" x="329" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_driver.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"/>
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.67,-350.54C267.27,-353.59 255.15,-359.15 247,-369 180.65,-449.14 178.73,-1232.16 178.94,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="175.44,-1375.74 178.96,-1385.73 182.44,-1375.73 175.44,-1375.74"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-318 282,-318 282,-294 376,-294 376,-318"/>
+<text text-anchor="middle" x="329" y="-303.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~~lambda_function.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.77,-308.03C268.64,-310.96 255.6,-316.58 247,-327 177.91,-410.66 178.25,-1228.83 178.87,-1375.53"/>
+<polygon fill="#000000" stroke="#000000" points="175.38,-1375.97 178.92,-1385.95 182.38,-1375.93 175.38,-1375.97"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-276 291,-276 291,-252 367,-252 367,-276"/>
+<text text-anchor="middle" x="329" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.6,-264.42C274.74,-266.65 257.53,-272.22 247,-285 175.17,-372.19 177.8,-1225.69 178.82,-1375.58"/>
+<polygon fill="#000000" stroke="#000000" points="175.32,-1375.87 178.89,-1385.84 182.32,-1375.81 175.32,-1375.87"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-234 289.5,-234 289.5,-210 368.5,-210 368.5,-234"/>
+<text text-anchor="middle" x="329" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.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="M289.33,-222.59C273.83,-224.94 257.24,-230.54 247,-243 172.42,-333.74 177.36,-1222.83 178.77,-1375.69"/>
+<polygon fill="#000000" stroke="#000000" points="175.27,-1375.79 178.86,-1385.75 182.27,-1375.72 175.27,-1375.79"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-192 291,-192 291,-168 367,-168 367,-192"/>
+<text text-anchor="middle" x="329" y="-177.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~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.99,-180.34C275.02,-182.53 257.59,-188.08 247,-201 208.25,-248.25 183.37,-1216.3 179.52,-1375.83"/>
+<polygon fill="#000000" stroke="#000000" points="176.02,-1375.82 179.28,-1385.9 183.02,-1375.99 176.02,-1375.82"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="391,-150 267,-150 267,-126 391,-126 391,-150"/>
+<text text-anchor="middle" x="329" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.77,-144.72C259.17,-148 252.25,-152.59 247,-159 206.9,-207.99 183.1,-1212.01 179.48,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="175.98,-1375.79 179.26,-1385.87 182.98,-1375.95 175.98,-1375.79"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-108 302,-108 302,-84 356,-84 356,-108"/>
+<text text-anchor="middle" x="329" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.88,-95.28C283.55,-96.31 260.05,-101.03 247,-117 205.5,-167.79 182.79,-1209.95 179.44,-1375.83"/>
+<polygon fill="#000000" stroke="#000000" points="175.94,-1375.79 179.24,-1385.86 182.94,-1375.93 175.94,-1375.79"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-66 295,-66 295,-42 363,-42 363,-66"/>
+<text text-anchor="middle" x="329" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.68,-53.86C277.75,-55.68 258.39,-61.04 247,-75 204.15,-127.54 182.54,-1206.03 179.4,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="175.9,-1375.8 179.21,-1385.87 182.9,-1375.93 175.9,-1375.8"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-24 286.5,-24 286.5,0 371.5,0 371.5,-24"/>
+<text text-anchor="middle" x="329" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.33,-13.03C271.7,-15.62 256.54,-21.28 247,-33 202.76,-87.32 182.27,-1203.36 179.36,-1375.73"/>
+<polygon fill="#000000" stroke="#000000" points="175.86,-1375.84 179.19,-1385.89 182.86,-1375.95 175.86,-1375.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/netcdf.f90.html b/docs/sourcefile/netcdf.f90.html
new file mode 100644
index 000000000..3af7feeb7
--- /dev/null
+++ b/docs/sourcefile/netcdf.f90.html
@@ -0,0 +1,1172 @@
+<!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>netcdf.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>netcdf.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=" 2.4% of total for source files.">391 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/netcdf.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">netcdf.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_netcdf.html">s_netcdf</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/netcdf.f90.html#src">netcdf.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~~netcdf.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilenetcdff90EfferentGraph" width="641pt" height="300pt"
+ viewBox="0.00 0.00 641.00 300.37" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~netcdf.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 412.12)">
+<title>sourcefile~~netcdf.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 884,-412.12 884,4 -4,4"/>
+<!-- sourcefile~netcdf.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~netcdf.f90</title>
+<polygon fill="none" stroke="black" points="880,-133.12 820,-133.12 820,-109.12 880,-109.12 880,-133.12"/>
+<text text-anchor="middle" x="850" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf.f90</text>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.14,-109.09C791.46,-87.43 706.35,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M836.71,-133.4C820.24,-149.87 790.82,-179.29 771.36,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="768.78,-196.39 764.19,-205.93 773.73,-201.34 768.78,-196.39"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~netcdf.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="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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~~netcdf.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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~~netcdf.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" 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~~netcdf.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="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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~~netcdf.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~netcdf.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~netcdf.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~netcdf.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~netcdf.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="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.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="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.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="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.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="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~netcdf.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="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~netcdf.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilenetcdff90EfferentGraph = svgPanZoom('#sourcefilenetcdff90EfferentGraph', {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_netcdf.html">s_netcdf</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/netcdf.f90.html#src">netcdf.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_netcdf</span>
+<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a>   <span class="k">use </span><span class="n">netcdf</span>
+<a name="ln-4"></a><span class="k">contains</span>
+<a name="ln-5"></a>
+<a name="ln-6"></a><span class="k">   subroutine </span><span class="n">check</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-7"></a>      <span class="c">!! author: Carlisle A. Wishard, Dana Singh, and David A. Minton</span>
+<a name="ln-8"></a>      <span class="c">!!</span>
+<a name="ln-9"></a>      <span class="c">!! Checks the status of all NetCDF operations to catch errors</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="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">status</span>
+<a name="ln-13"></a>
+<a name="ln-14"></a>      <span class="k">if</span><span class="p">(</span><span class="n">status</span> <span class="o">/=</span> <span class="n">nf90_noerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-15"></a><span class="k">         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="n">nf90_strerror</span><span class="p">(</span><span class="n">status</span><span class="p">))</span>
+<a name="ln-16"></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-17"></a>      <span class="k">end if</span>
+<a name="ln-18"></a>
+<a name="ln-19"></a><span class="k">      return</span>
+<a name="ln-20"></a><span class="k">   end subroutine </span><span class="n">check</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a>   <span class="k">module subroutine </span><span class="n">netcdf_close</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-23"></a>      <span class="c">!! author: Carlisle A. Wishard, Dana Singh, and David A. Minton</span>
+<a name="ln-24"></a>      <span class="c">!!</span>
+<a name="ln-25"></a>      <span class="c">!! Closes a NetCDF file</span>
+<a name="ln-26"></a>      <span class="k">implicit none</span>
+<a name="ln-27"></a>      <span class="c">! Arguments</span>
+<a name="ln-28"></a>      <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-29"></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-30"></a>
+<a name="ln-31"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_close</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>      <span class="k">return</span>
+<a name="ln-34"></a><span class="k">   end subroutine </span><span class="n">netcdf_close</span>
+<a name="ln-35"></a>
+<a name="ln-36"></a>
+<a name="ln-37"></a>   <span class="k">module subroutine </span><span class="n">netcdf_initialize_output</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-38"></a>      <span class="c">!! author: Carlisle A. Wishard, Dana Singh, and David A. Minton</span>
+<a name="ln-39"></a>      <span class="c">!!</span>
+<a name="ln-40"></a>      <span class="c">!! Initialize a NetCDF file system and defines all variables.</span>
+<a name="ln-41"></a>      <span class="k">implicit none</span>
+<a name="ln-42"></a>      <span class="c">! Arguments</span>
+<a name="ln-43"></a>      <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-44"></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-45"></a>      <span class="c">! Internals</span>
+<a name="ln-46"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">fileExists</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">old_mode</span>
+<a name="ln-48"></a>
+<a name="ln-49"></a>      <span class="c">!! Create the new output file, deleting any previously existing output file of the same name</span>
+<a name="ln-50"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_create</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="n">NF90_NETCDF4</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-51"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_set_fill</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">nf90_nofill</span><span class="p">,</span> <span class="n">old_mode</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-52"></a>
+<a name="ln-53"></a>      <span class="c">! Define the NetCDF dimensions with particle name as the record dimension</span>
+<a name="ln-54"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_dim</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ID_DIMNAME</span><span class="p">,</span> <span class="n">NF90_UNLIMITED</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">)</span> <span class="p">)</span>     <span class="c">! &#39;x&#39; dimension</span>
+<a name="ln-55"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_dim</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">TIME_DIMNAME</span><span class="p">,</span> <span class="n">NF90_UNLIMITED</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">)</span> <span class="p">)</span> <span class="c">! &#39;y&#39; dimension</span>
+<a name="ln-56"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_dim</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">STR_DIMNAME</span><span class="p">,</span> <span class="n">NAMELEN</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">str_dimid</span><span class="p">)</span> <span class="p">)</span> <span class="c">! Dimension for string variables (aka character arrays)</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a>      <span class="k">select case</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-59"></a>      <span class="k">case</span><span class="p">(</span><span class="n">NETCDF_FLOAT_TYPE</span><span class="p">)</span>
+<a name="ln-60"></a>         <span class="n">self</span><span class="p">%</span><span class="n">out_type</span> <span class="o">=</span> <span class="n">NF90_FLOAT</span>
+<a name="ln-61"></a>      <span class="k">case</span><span class="p">(</span><span class="n">NETCDF_DOUBLE_TYPE</span><span class="p">)</span>
+<a name="ln-62"></a>         <span class="n">self</span><span class="p">%</span><span class="n">out_type</span> <span class="o">=</span> <span class="n">NF90_DOUBLE</span>
+<a name="ln-63"></a>      <span class="k">end select</span>
+<a name="ln-64"></a>
+<a name="ln-65"></a>      <span class="c">!! Define the variables</span>
+<a name="ln-66"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">TIME_DIMNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-67"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ID_DIMNAME</span><span class="p">,</span> <span class="n">NF90_INT</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-68"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">NPL_VARNAME</span><span class="p">,</span> <span class="n">NF90_INT</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">npl_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-69"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">NTP_VARNAME</span><span class="p">,</span> <span class="n">NF90_INT</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ntp_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-70"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">NAME_VARNAME</span><span class="p">,</span> <span class="n">NF90_CHAR</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">str_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">name_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-71"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">PTYPE_VARNAME</span><span class="p">,</span> <span class="n">NF90_CHAR</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">str_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">ptype_varid</span><span class="p">)</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">out_form</span> <span class="o">==</span> <span class="n">XV</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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-73"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">XHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">xhx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-74"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">XHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">xhy_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-75"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">XHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">xhz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-76"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">VHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">vhx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-77"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">VHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">vhy_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-78"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">VHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">vhz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-79"></a>      <span class="k">end if</span>
+<a name="ln-80"></a><span class="k">   </span>
+<a name="ln-81"></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="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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-82"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">A_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">a_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-83"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">E_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">e_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-84"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">INC_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">inc_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-85"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">CAPOM_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">capom_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-86"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">OMEGA_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">omega_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-87"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">CAPM_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">capm_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-88"></a>      <span class="k">end if</span>
+<a name="ln-89"></a>
+<a name="ln-90"></a><span class="k">      call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">GMASS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass_varid</span><span class="p">)</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">lrhill_present</span><span class="p">)</span> <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">RHILL_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">rhill_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-92"></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">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">RADIUS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">radius_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-93"></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-94"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">IP1_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip1_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-95"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">IP2_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip2_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-96"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">IP3_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip3_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-97"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ROTX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">rotx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-98"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ROTY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">roty_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-99"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ROTZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">rotz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-100"></a>      <span class="k">end if</span>
+<a name="ln-101"></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-102"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">K2_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">k2_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-103"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">Q_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">Q_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-104"></a>      <span class="k">end if</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">lenergy</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-106"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">KE_ORB_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">KE_orb_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-107"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">KE_SPIN_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">KE_spin_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-108"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">PE_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">PE_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-109"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ORBX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_orbx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-110"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ORBY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_orby_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-111"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ORBZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_orbz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-112"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_SPINX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_spinx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-113"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_SPINY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_spiny_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-114"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_SPINZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_spinz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-115"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ESCAPEX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_escapex_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-116"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ESCAPEY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_escapey_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-117"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ESCAPEZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_escapez_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-118"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ECOLLISIONS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Ecollisions_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-119"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">EUNTRACKED_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Euntracked_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-120"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">GMESCAPE_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">GMescape_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-121"></a>      <span class="k">end if</span>
+<a name="ln-122"></a>
+<a name="ln-123"></a><span class="k">      call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">STATUS_VARNAME</span><span class="p">,</span> <span class="n">NF90_CHAR</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">str_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">status_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-124"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_TYPE_VARNAME</span><span class="p">,</span> <span class="n">NF90_CHAR</span><span class="p">,</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">str_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">],</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_type_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-125"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_TIME_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_time_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-126"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_XHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xhx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-127"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_XHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xhy_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-128"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_XHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xhz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-129"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_VHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vhx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-130"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_VHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vhy_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-131"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_VHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span>  <span class="n">self</span><span class="p">%</span><span class="n">origin_vhz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-132"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_TIME_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_time_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-133"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_XHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_xhx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-134"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_XHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_xhy_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-135"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_XHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_xhz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-136"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_VHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_vhx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-137"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_VHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_vhy_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-138"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_VHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">out_type</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span>  <span class="n">self</span><span class="p">%</span><span class="n">discard_vhz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-139"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_def_var</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_BODY_ID_VARNAME</span><span class="p">,</span> <span class="n">NF90_INT</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_dimid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_body_id_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-140"></a>
+<a name="ln-141"></a>      <span class="k">return</span>
+<a name="ln-142"></a><span class="k">   end subroutine </span><span class="n">netcdf_initialize_output</span>
+<a name="ln-143"></a>
+<a name="ln-144"></a>
+<a name="ln-145"></a>   <span class="k">module subroutine </span><span class="n">netcdf_open</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-146"></a>      <span class="c">!! author: Carlisle A. Wishard, Dana Singh, and David A. Minton</span>
+<a name="ln-147"></a>      <span class="c">!!</span>
+<a name="ln-148"></a>      <span class="c">!! Opens a NetCDF file and does the variable inquiries to activate variable ids</span>
+<a name="ln-149"></a>      <span class="k">implicit none</span>
+<a name="ln-150"></a>      <span class="c">! Arguments</span>
+<a name="ln-151"></a>      <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">!! Parameters used to identify a particular NetCDF dataset</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 parameters</span>
+<a name="ln-153"></a>      <span class="c">! Internals</span>
+<a name="ln-154"></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">old_mode</span>
+<a name="ln-155"></a>
+<a name="ln-156"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_open</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="n">nf90_write</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-157"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_set_fill</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">nf90_nofill</span><span class="p">,</span> <span class="n">old_mode</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-158"></a>
+<a name="ln-159"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">TIME_DIMNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">time_varid</span><span class="p">))</span>
+<a name="ln-160"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ID_DIMNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">id_varid</span><span class="p">))</span>
+<a name="ln-161"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">NPL_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">npl_varid</span><span class="p">))</span>
+<a name="ln-162"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">NTP_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ntp_varid</span><span class="p">))</span>
+<a name="ln-163"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">NAME_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">name_varid</span><span class="p">))</span>
+<a name="ln-164"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">PTYPE_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ptype_varid</span><span class="p">))</span>
+<a name="ln-165"></a>
+<a name="ln-166"></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">XV</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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-167"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">XHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">xhx_varid</span><span class="p">))</span>
+<a name="ln-168"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">XHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">xhy_varid</span><span class="p">))</span>
+<a name="ln-169"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">XHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">xhz_varid</span><span class="p">))</span>
+<a name="ln-170"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">VHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">vhx_varid</span><span class="p">))</span>
+<a name="ln-171"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">VHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">vhy_varid</span><span class="p">))</span>
+<a name="ln-172"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">VHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">vhz_varid</span><span class="p">))</span>
+<a name="ln-173"></a>      <span class="k">end if</span>
+<a name="ln-174"></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="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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-175"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">A_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">a_varid</span><span class="p">))</span>
+<a name="ln-176"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">E_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">e_varid</span><span class="p">))</span>
+<a name="ln-177"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">INC_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">inc_varid</span><span class="p">))</span>
+<a name="ln-178"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">CAPOM_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">capom_varid</span><span class="p">))</span>
+<a name="ln-179"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">OMEGA_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">omega_varid</span><span class="p">))</span>
+<a name="ln-180"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">CAPM_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">capm_varid</span><span class="p">))</span>
+<a name="ln-181"></a>      <span class="k">end if</span>
+<a name="ln-182"></a><span class="k">      call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">GMASS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass_varid</span><span class="p">))</span>
+<a name="ln-183"></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">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">RADIUS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">radius_varid</span><span class="p">))</span>
+<a name="ln-184"></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">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">RHILL_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">rhill_varid</span><span class="p">))</span>
+<a name="ln-185"></a>
+<a name="ln-186"></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-187"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">IP1_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip1_varid</span><span class="p">))</span>
+<a name="ln-188"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">IP2_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip2_varid</span><span class="p">))</span>
+<a name="ln-189"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">IP3_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip3_varid</span><span class="p">))</span>
+<a name="ln-190"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ROTX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">rotx_varid</span><span class="p">))</span>
+<a name="ln-191"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ROTY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">roty_varid</span><span class="p">))</span>
+<a name="ln-192"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ROTZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">rotz_varid</span><span class="p">))</span>
+<a name="ln-193"></a>      <span class="k">end if</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">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-196"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">K2_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">k2_varid</span><span class="p">))</span>
+<a name="ln-197"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">Q_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Q_varid</span><span class="p">))</span>
+<a name="ln-198"></a>      <span class="k">end if</span>
+<a name="ln-199"></a>
+<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">lenergy</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-201"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">KE_ORB_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">KE_orb_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-202"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">KE_SPIN_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">KE_spin_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-203"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">PE_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">PE_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-204"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ORBX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_orbx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-205"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ORBY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_orby_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-206"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ORBZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_orbz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-207"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_SPINX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_spinx_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-208"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_SPINY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_spiny_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-209"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_SPINZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_spinz_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-210"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ESCAPEX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_escapex_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-211"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ESCAPEY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_escapey_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-212"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">L_ESCAPEZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">L_escapez_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-213"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ECOLLISIONS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Ecollisions_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-214"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">EUNTRACKED_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Euntracked_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-215"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">GMESCAPE_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">GMescape_varid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-216"></a>      <span class="k">end if</span>
+<a name="ln-217"></a>
+<a name="ln-218"></a><span class="k">      call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">STATUS_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">status_varid</span><span class="p">))</span>
+<a name="ln-219"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_TYPE_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_type_varid</span><span class="p">))</span>
+<a name="ln-220"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_TIME_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_time_varid</span><span class="p">))</span>
+<a name="ln-221"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_XHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xhx_varid</span><span class="p">))</span>
+<a name="ln-222"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_XHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xhy_varid</span><span class="p">))</span>
+<a name="ln-223"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_XHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_xhz_varid</span><span class="p">))</span>
+<a name="ln-224"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_VHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vhx_varid</span><span class="p">))</span>
+<a name="ln-225"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_VHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vhy_varid</span><span class="p">))</span>
+<a name="ln-226"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">ORIGIN_VHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">origin_vhz_varid</span><span class="p">))</span>
+<a name="ln-227"></a>
+<a name="ln-228"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_TIME_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_time_varid</span><span class="p">))</span>
+<a name="ln-229"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_XHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_xhx_varid</span><span class="p">))</span>
+<a name="ln-230"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_XHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_xhy_varid</span><span class="p">))</span>
+<a name="ln-231"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_XHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_xhz_varid</span><span class="p">))</span>
+<a name="ln-232"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_VHX_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_vhx_varid</span><span class="p">))</span>
+<a name="ln-233"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_VHY_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_vhy_varid</span><span class="p">))</span>
+<a name="ln-234"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_VHZ_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_vhz_varid</span><span class="p">))</span>
+<a name="ln-235"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_inq_varid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">DISCARD_BODY_ID_VARNAME</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">discard_body_id_varid</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">netcdf_open</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">netcdf_write_frame_base</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-242"></a>      <span class="c">!! author: Carlisle A. Wishard, Dana Singh, and David A. Minton</span>
+<a name="ln-243"></a>      <span class="c">!!</span>
+<a name="ln-244"></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-245"></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-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_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 particle object</span>
+<a name="ln-249"></a>      <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">iu</span>     <span class="c">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-250"></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-251"></a>      <span class="c">! Internals</span>
+<a name="ln-252"></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">tslot</span><span class="p">,</span> <span class="n">strlen</span><span class="p">,</span> <span class="n">idslot</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-254"></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">charstring</span>
+<a name="ln-255"></a>
+<a name="ln-256"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">write_particle_info</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
+<a name="ln-257"></a>
+<a name="ln-258"></a>      <span class="n">tslot</span> <span class="o">=</span> <span class="nb">int</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ioutput</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">I4B</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-259"></a>
+<a name="ln-260"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-261"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span>
+<a name="ln-262"></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-263"></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-264"></a>
+<a name="ln-265"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-266"></a>            <span class="k">call </span><span class="n">util_sort</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> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-267"></a>
+<a name="ln-268"></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">n</span>
+<a name="ln-269"></a>               <span class="n">j</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-270"></a>               <span class="n">idslot</span> <span class="o">=</span> <span class="n">self</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="o">+</span> <span class="mi">1</span>
+<a name="ln-271"></a>
+<a name="ln-272"></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">XV</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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-273"></a><span class="k">                  call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">xhx_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-274"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">xhy_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-275"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">xhz_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-276"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">vhx_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-277"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">vhy_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-278"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">vhz_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-279"></a>               <span class="k">end if</span>
+<a name="ln-280"></a>
+<a name="ln-281"></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="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">out_form</span> <span class="o">==</span> <span class="n">XVEL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-282"></a><span class="k">                  call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">a_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-283"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">e_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-284"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">inc_varid</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">RAD2DEG</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-285"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">capom_varid</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">RAD2DEG</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-286"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">omega_varid</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">RAD2DEG</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-287"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">capm_varid</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">RAD2DEG</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span> 
+<a name="ln-288"></a>               <span class="k">end if</span>
+<a name="ln-289"></a>
+<a name="ln-290"></a><span class="k">               select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>  
+<a name="ln-291"></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-292"></a>                  <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Gmass_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-293"></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-294"></a><span class="k">                     call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">rhill_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-295"></a>                  <span class="k">end if</span>
+<a name="ln-296"></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-297"></a><span class="k">                     call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">radius_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-298"></a>                  <span class="k">end if</span>
+<a name="ln-299"></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-300"></a><span class="k">                     call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ip1_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-301"></a>                     <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ip2_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-302"></a>                     <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ip3_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-303"></a>                     <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">rotx_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-304"></a>                     <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">roty_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-305"></a>                     <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">rotz_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-306"></a>                  <span class="k">end if</span>
+<a name="ln-307"></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-308"></a><span class="k">                     call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">k2_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-309"></a>                     <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Q_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</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">               end select</span>
+<a name="ln-313"></a><span class="k">            end do</span>
+<a name="ln-314"></a><span class="k">         end associate</span>
+<a name="ln-315"></a><span class="k">      class is</span> <span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-316"></a>         <span class="n">idslot</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-317"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">id_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-318"></a>
+<a name="ln-319"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Gmass_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-320"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">radius_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-321"></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-322"></a><span class="k">            call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ip1_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-323"></a>            <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ip2_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-324"></a>            <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ip3_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-325"></a>            <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">rotx_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-326"></a>            <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">roty_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-327"></a>            <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">rotz_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-328"></a>         <span class="k">end if</span>
+<a name="ln-329"></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-330"></a><span class="k">            call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">k2_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-331"></a>            <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Q_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">,</span> <span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-332"></a>         <span class="k">end if</span>
+<a name="ln-333"></a>
+<a name="ln-334"></a><span class="k">      end select</span>
+<a name="ln-335"></a>
+<a name="ln-336"></a><span class="k">      return</span>
+<a name="ln-337"></a><span class="k">   end subroutine </span><span class="n">netcdf_write_frame_base</span>
+<a name="ln-338"></a>
+<a name="ln-339"></a>   
+<a name="ln-340"></a>   <span class="k">module subroutine </span><span class="n">netcdf_write_particle_info_base</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">)</span>
+<a name="ln-341"></a>      <span class="c">!! author: Carlisle A. Wishard, Dana Singh, and David A. Minton</span>
+<a name="ln-342"></a>      <span class="c">!!</span>
+<a name="ln-343"></a>      <span class="c">!! Write all current particle to file</span>
+<a name="ln-344"></a>      <span class="k">implicit none</span>
+<a name="ln-345"></a>      <span class="c">! Arguments</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">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-347"></a>      <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">iu</span>     <span class="c">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-348"></a>      <span class="c">! Internals</span>
+<a name="ln-349"></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">tslot</span><span class="p">,</span> <span class="n">strlen</span><span class="p">,</span> <span class="n">idslot</span>
+<a name="ln-350"></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">ind</span>
+<a name="ln-351"></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">charstring</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="n">NAMELEN</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">lenstr</span>
+<a name="ln-353"></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">fmtlabel</span>
+<a name="ln-354"></a>
+<a name="ln-355"></a>      <span class="c">! This string of spaces of length NAMELEN is used to clear out any old data left behind inside the string variables</span>
+<a name="ln-356"></a>      <span class="k">write</span><span class="p">(</span><span class="n">lenstr</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">NAMELEN</span>
+<a name="ln-357"></a>      <span class="n">fmtlabel</span> <span class="o">=</span> <span class="s2">&quot;(A&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">lenstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span>
+<a name="ln-358"></a>      <span class="k">write</span><span class="p">(</span><span class="n">emptystr</span><span class="p">,</span> <span class="n">fmtlabel</span><span class="p">)</span> <span class="s2">&quot; &quot;</span>
+<a name="ln-359"></a>
+<a name="ln-360"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-361"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span>
+<a name="ln-362"></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-363"></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-364"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-365"></a>            <span class="k">call </span><span class="n">util_sort</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> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-366"></a>
+<a name="ln-367"></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">n</span>
+<a name="ln-368"></a>               <span class="n">j</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-369"></a>               <span class="n">idslot</span> <span class="o">=</span> <span class="n">self</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="o">+</span> <span class="mi">1</span>
+<a name="ln-370"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">id_varid</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">j</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-371"></a>
+<a name="ln-372"></a>               <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span>
+<a name="ln-373"></a>               <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-374"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">name_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-375"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">name_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-376"></a>
+<a name="ln-377"></a>               <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">particle_type</span><span class="p">))</span>
+<a name="ln-378"></a>               <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-379"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">ptype_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-380"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">ptype_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-381"></a>
+<a name="ln-382"></a>               <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">status</span><span class="p">))</span>
+<a name="ln-383"></a>               <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-384"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">status_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-385"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">status_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-386"></a>
+<a name="ln-387"></a>               <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">origin_type</span><span class="p">))</span>
+<a name="ln-388"></a>               <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-389"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_type_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-390"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_type_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-391"></a>
+<a name="ln-392"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_time_varid</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">j</span><span class="p">)%</span><span class="n">origin_time</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-393"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_xhx_varid</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">j</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-394"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_xhy_varid</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">j</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-395"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_xhz_varid</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">j</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-396"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_vhx_varid</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">j</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-397"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_vhy_varid</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">j</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-398"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_vhz_varid</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">j</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-399"></a>
+<a name="ln-400"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_time_varid</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">j</span><span class="p">)%</span><span class="n">discard_time</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-401"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_xhx_varid</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">j</span><span class="p">)%</span><span class="n">discard_xh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-402"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_xhy_varid</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">j</span><span class="p">)%</span><span class="n">discard_xh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-403"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_xhz_varid</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">j</span><span class="p">)%</span><span class="n">discard_xh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-404"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_vhx_varid</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">j</span><span class="p">)%</span><span class="n">discard_vh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-405"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_vhy_varid</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">j</span><span class="p">)%</span><span class="n">discard_vh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-406"></a>               <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_vhz_varid</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">j</span><span class="p">)%</span><span class="n">discard_vh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-407"></a>            <span class="k">end do</span>
+<a name="ln-408"></a><span class="k">         end associate</span>
+<a name="ln-409"></a>
+<a name="ln-410"></a><span class="k">      class is</span> <span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-411"></a>         <span class="n">idslot</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-412"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">id_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-413"></a>
+<a name="ln-414"></a>         <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">name</span><span class="p">))</span>
+<a name="ln-415"></a>         <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-416"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">name_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-417"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">name_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-418"></a>
+<a name="ln-419"></a>         <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">particle_type</span><span class="p">))</span>
+<a name="ln-420"></a>         <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-421"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">ptype_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-422"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">ptype_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-423"></a>
+<a name="ln-424"></a>         <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">status</span><span class="p">))</span>
+<a name="ln-425"></a>         <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-426"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">status_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-427"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">status_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-428"></a>
+<a name="ln-429"></a>         <span class="n">charstring</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">self</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">origin_type</span><span class="p">))</span>
+<a name="ln-430"></a>         <span class="n">strlen</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">charstring</span><span class="p">)</span>
+<a name="ln-431"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_type_varid</span><span class="p">,</span> <span class="n">emptystr</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">NAMELEN</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-432"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_type_varid</span><span class="p">,</span> <span class="n">charstring</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="mi">1</span><span class="p">,</span> <span class="n">idslot</span><span class="p">],</span> <span class="nb">count</span><span class="o">=</span><span class="p">[</span><span class="n">strlen</span><span class="p">,</span> <span class="mi">1</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-433"></a>
+<a name="ln-434"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_time_varid</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">origin_time</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-435"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_xhx_varid</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">origin_xh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-436"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_xhy_varid</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">origin_xh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-437"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_xhz_varid</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">origin_xh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-438"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_vhx_varid</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">origin_vh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-439"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_vhy_varid</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">origin_vh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-440"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">origin_vhz_varid</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">origin_vh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-441"></a>
+<a name="ln-442"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_time_varid</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">discard_time</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-443"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_xhx_varid</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">discard_xh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-444"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_xhy_varid</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">discard_xh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-445"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_xhz_varid</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">discard_xh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-446"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_vhx_varid</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">discard_vh</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-447"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_vhy_varid</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">discard_vh</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-448"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">discard_vhz_varid</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">discard_vh</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">idslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-449"></a>      <span class="k">end select</span>
+<a name="ln-450"></a>
+<a name="ln-451"></a><span class="k">      return</span>
+<a name="ln-452"></a><span class="k">   end subroutine </span><span class="n">netcdf_write_particle_info_base</span>
+<a name="ln-453"></a>
+<a name="ln-454"></a>
+<a name="ln-455"></a>   <span class="k">module subroutine </span><span class="n">netcdf_write_hdr_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-456"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-457"></a>      <span class="c">!!</span>
+<a name="ln-458"></a>      <span class="c">!! Writes header information (variables that change with time, but not particle id). </span>
+<a name="ln-459"></a>      <span class="c">!! This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that </span>
+<a name="ln-460"></a>      <span class="c">!! previously were handled as separate output files.</span>
+<a name="ln-461"></a>      <span class="k">implicit none</span>
+<a name="ln-462"></a>      <span class="c">! Arguments</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">in</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-464"></a>      <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">iu</span>    <span class="c">!! Parameters used to for writing a NetCDF dataset to file</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">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-466"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">tslot</span><span class="p">,</span> <span class="n">old_mode</span>
+<a name="ln-468"></a>
+<a name="ln-469"></a>      <span class="n">tslot</span> <span class="o">=</span> <span class="nb">int</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ioutput</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">I4B</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-470"></a>
+<a name="ln-471"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_open</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="n">nf90_write</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-472"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_set_fill</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">nf90_nofill</span><span class="p">,</span> <span class="n">old_mode</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-473"></a>
+<a name="ln-474"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">time_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-475"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">npl_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-476"></a>      <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">ntp_varid</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">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-477"></a>
+<a name="ln-478"></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-479"></a><span class="k">         call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">KE_orb_varid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ke_orbit</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-480"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">KE_spin_varid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">ke_spin</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-481"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">PE_varid</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">pe</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-482"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_orbx_varid</span><span class="p">,</span> <span class="n">self</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-483"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_orby_varid</span><span class="p">,</span> <span class="n">self</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-484"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_orbz_varid</span><span class="p">,</span> <span class="n">self</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-485"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_spinx_varid</span><span class="p">,</span> <span class="n">self</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-486"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_spiny_varid</span><span class="p">,</span> <span class="n">self</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-487"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_spinz_varid</span><span class="p">,</span> <span class="n">self</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-488"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_escapex_varid</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> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-489"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_escapey_varid</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">2</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-490"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">L_escapez_varid</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">3</span><span class="p">),</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-491"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Ecollisions_varid</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-492"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">Euntracked_varid</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="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-493"></a>         <span class="k">call </span><span class="n">check</span><span class="p">(</span> <span class="n">nf90_put_var</span><span class="p">(</span><span class="n">iu</span><span class="p">%</span><span class="n">ncid</span><span class="p">,</span> <span class="n">iu</span><span class="p">%</span><span class="n">GMescape_varid</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">GMescape</span><span class="p">,</span> <span class="n">start</span><span class="o">=</span><span class="p">[</span><span class="n">tslot</span><span class="p">])</span> <span class="p">)</span>
+<a name="ln-494"></a>      <span class="k">end if</span>
+<a name="ln-495"></a>
+<a name="ln-496"></a><span class="k">      return</span>
+<a name="ln-497"></a><span class="k">   end subroutine </span><span class="n">netcdf_write_hdr_system</span>
+<a name="ln-498"></a>
+<a name="ln-499"></a>
+<a name="ln-500"></a><span class="k">end submodule </span><span class="n">s_netcdf</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/obl.f90.html b/docs/sourcefile/obl.f90.html
index ec8edea8c..76b3c19de 100644
--- a/docs/sourcefile/obl.f90.html
+++ b/docs/sourcefile/obl.f90.html
@@ -134,7 +134,7 @@ <h1>obl.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for source files.">91 statements</a>
+    title=" 0.6% of total for source files.">102 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileoblf90EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.42" 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 412.12)">
 <title>sourcefile~~obl.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 878,-412.12 878,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,-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>
+<polygon fill="none" stroke="black" points="874,-133.12 820,-133.12 820,-109.12 874,-109.12 874,-133.12"/>
+<text text-anchor="middle" x="847" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">obl.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.44,-109.09C789.3,-87.43 705.41,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.09,-133.4C818.2,-149.8 789.87,-179.03 771.01,-198.5"/>
+<polygon fill="#000000" stroke="#000000" points="768.25,-196.32 763.81,-205.93 773.28,-201.19 768.25,-196.32"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~obl.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~obl.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~obl.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~obl.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~obl.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~obl.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -666,48 +720,75 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-106"></a>
 <a name="ln-107"></a><span class="k">   end subroutine </span><span class="n">obl_acc_tp</span>
 <a name="ln-108"></a>
-<a name="ln-109"></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-110"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-111"></a>      <span class="c">!!</span>
-<a name="ln-112"></a>      <span class="c">!! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</span>
-<a name="ln-113"></a>      <span class="c">!!    Returned value does not include monopole term or terms higher than J4</span>
-<a name="ln-114"></a>      <span class="c">!!</span>
-<a name="ln-115"></a>      <span class="c">!!    Reference: MacMillan, W. D. 1958. The Theory of the Potential, (Dover Publications), 363.</span>
-<a name="ln-116"></a>      <span class="c">!!</span>
-<a name="ln-117"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: obl_pot.f90 </span>
-<a name="ln-118"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine obl_pot.f </span>
-<a name="ln-119"></a>      <span class="k">implicit none</span>
-<a name="ln-120"></a>      <span class="c">! Arguments</span>
-<a name="ln-121"></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>
-<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">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-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="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-124"></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-125"></a>      <span class="kt">real</span><span 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-126"></a>      <span class="kt">real</span><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-127"></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-128"></a>         
-<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="kd">::</span> <span class="n">i</span>
-<a name="ln-131"></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">rinv2</span><span class="p">,</span> <span class="n">t0</span><span class="p">,</span> <span class="n">t1</span><span class="p">,</span> <span class="n">t2</span><span class="p">,</span> <span class="n">t3</span><span class="p">,</span> <span class="n">p2</span><span class="p">,</span> <span class="n">p4</span><span class="p">,</span> <span class="n">mu</span>
-<a name="ln-132"></a>         
-<a name="ln-133"></a>      <span class="n">oblpot</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-134"></a>      <span class="n">mu</span> <span class="o">=</span> <span class="n">Mcb</span>
-<a name="ln-135"></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-136"></a>         <span class="n">rinv2</span> <span class="o">=</span> <span class="n">irh</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-137"></a>         <span class="n">t0</span> <span class="o">=</span> <span class="n">mu</span> <span class="o">*</span> <span class="n">Mpl</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rinv2</span> <span class="o">*</span> <span class="n">irh</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-138"></a>         <span class="n">t1</span> <span class="o">=</span> <span class="n">j2rp2</span>
-<a name="ln-139"></a>         <span class="n">t2</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="n">i</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="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rinv2</span>
-<a name="ln-140"></a>         <span class="n">t3</span> <span class="o">=</span> <span class="n">j4rp4</span> <span class="o">*</span> <span class="n">rinv2</span>
-<a name="ln-141"></a>         <span class="n">p2</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">t2</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span>
-<a name="ln-142"></a>         <span class="n">p4</span> <span class="o">=</span> <span class="mf">0.125_DP</span> <span class="o">*</span> <span class="p">((</span><span class="mi">35</span> <span class="o">*</span> <span class="n">t2</span> <span class="o">-</span> <span class="mi">3</span><span class="mf">0.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">t2</span> <span class="o">+</span> <span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-143"></a>         <span class="n">oblpot</span> <span class="o">=</span> <span class="n">oblpot</span> <span class="o">+</span> <span class="n">t0</span> <span class="o">*</span> <span class="p">(</span><span class="n">t1</span> <span class="o">*</span> <span class="n">p2</span> <span class="o">+</span> <span class="n">t3</span> <span class="o">*</span> <span class="n">p4</span><span class="p">)</span>
-<a name="ln-144"></a>      <span class="k">end do</span>
-<a name="ln-145"></a><span class="k">         </span>
-<a name="ln-146"></a><span class="k">      return</span>
-<a name="ln-147"></a><span class="k">   end subroutine </span><span class="n">obl_pot</span>
-<a name="ln-148"></a>
-<a name="ln-149"></a>
-<a name="ln-150"></a><span class="k">end submodule </span><span class="n">s_obl</span>
+<a name="ln-109"></a>
+<a name="ln-110"></a>   <span class="k">module subroutine </span><span class="n">obl_pot_system</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> 
+<a name="ln-111"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-112"></a>      <span class="c">!!</span>
+<a name="ln-113"></a>      <span class="c">!! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</span>
+<a name="ln-114"></a>      <span class="c">!!    Returned value does not include monopole term or terms higher than J4</span>
+<a name="ln-115"></a>      <span class="c">!!</span>
+<a name="ln-116"></a>      <span class="c">!!    Reference: MacMillan, W. D. 1958. The Theory of the Potential, (Dover Publications), 363.</span>
+<a name="ln-117"></a>      <span class="c">!!</span>
+<a name="ln-118"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: obl_pot.f90 </span>
+<a name="ln-119"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine obl_pot.f </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">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-123"></a>      <span class="c">! Internals</span>
+<a name="ln-124"></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-125"></a>      <span class="kt">real</span><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">oblpot_arr</span>
+<a name="ln-126"></a>
+<a name="ln-127"></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-128"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</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">lmask</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="k">return</span>
+<a name="ln-129"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-130"></a>            <span class="n">oblpot_arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">obl_pot_one</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">Gmass</span><span class="p">(</span><span class="n">i</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="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">),</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-131"></a>         <span class="k">end do</span>
+<a name="ln-132"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">oblpot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">oblpot_arr</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-133"></a>      <span class="k">end associate</span>
+<a name="ln-134"></a><span class="k">         </span>
+<a name="ln-135"></a><span class="k">      return</span>
+<a name="ln-136"></a><span class="k">   end subroutine </span><span class="n">obl_pot_system</span>
+<a name="ln-137"></a>
+<a name="ln-138"></a>
+<a name="ln-139"></a>   <span class="k">elemental function </span><span class="n">obl_pot_one</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">GMcb</span><span class="p">,</span> <span class="n">GMpl</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">zh</span><span class="p">,</span> <span class="n">irh</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">oblpot</span><span class="p">)</span>
+<a name="ln-140"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-141"></a>      <span class="c">!!</span>
+<a name="ln-142"></a>      <span class="c">!! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive body</span>
+<a name="ln-143"></a>      <span class="c">!!    Returned value does not include monopole term or terms higher than J4</span>
+<a name="ln-144"></a>      <span class="c">!!</span>
+<a name="ln-145"></a>      <span class="c">!!    Reference: MacMillan, W. D. 1958. The Theory of the Potential, (Dover Publications), 363.</span>
+<a name="ln-146"></a>      <span class="c">!!</span>
+<a name="ln-147"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: obl_pot.f90 </span>
+<a name="ln-148"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine obl_pot.f </span>
+<a name="ln-149"></a>      <span class="k">implicit none</span>
+<a name="ln-150"></a>      <span class="c">! Arguments</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">npl</span>    <span class="c">!! Number of massive bodies</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">GMcb</span>   <span class="c">!! G*mass of the central body</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">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">!! G*mass of the massive body</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">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="c">!! J_2 / R**2 of the central body</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">j4rp4</span>  <span class="c">!! J_2 / R**4 of the central body</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">zh</span>     <span class="c">!! z-component of the heliocentric distance vector of the massive body</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">irh</span>    <span class="c">!! Inverse of the heliocentric distance magnitude of the massive body</span>
+<a name="ln-158"></a>      <span class="c">! Result</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="kd">::</span> <span class="n">oblpot</span> <span class="c">!! Gravitational potential</span>
+<a name="ln-160"></a>         
+<a name="ln-161"></a>      <span class="c">! Internals</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>      <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">rinv2</span><span class="p">,</span> <span class="n">t0</span><span class="p">,</span> <span class="n">t1</span><span class="p">,</span> <span class="n">t2</span><span class="p">,</span> <span class="n">t3</span><span class="p">,</span> <span class="n">p2</span><span class="p">,</span> <span class="n">p4</span><span class="p">,</span> <span class="n">mu</span>
+<a name="ln-164"></a>         
+<a name="ln-165"></a>      <span class="n">rinv2</span> <span class="o">=</span> <span class="n">irh</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-166"></a>      <span class="n">t0</span> <span class="o">=</span> <span class="n">GMcb</span> <span class="o">*</span> <span class="n">GMpl</span> <span class="o">*</span> <span class="n">rinv2</span> <span class="o">*</span> <span class="n">irh</span>
+<a name="ln-167"></a>      <span class="n">t1</span> <span class="o">=</span> <span class="n">j2rp2</span>
+<a name="ln-168"></a>      <span class="n">t2</span> <span class="o">=</span> <span class="n">zh</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">rinv2</span>
+<a name="ln-169"></a>      <span class="n">t3</span> <span class="o">=</span> <span class="n">j4rp4</span> <span class="o">*</span> <span class="n">rinv2</span>
+<a name="ln-170"></a>      <span class="n">p2</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">t2</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span>
+<a name="ln-171"></a>      <span class="n">p4</span> <span class="o">=</span> <span class="mf">0.125_DP</span> <span class="o">*</span> <span class="p">((</span><span class="mi">35</span> <span class="o">*</span> <span class="n">t2</span> <span class="o">-</span> <span class="mi">3</span><span class="mf">0.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">t2</span> <span class="o">+</span> <span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-172"></a>      <span class="n">oblpot</span> <span class="o">=</span> <span class="n">t0</span> <span class="o">*</span> <span class="p">(</span><span class="n">t1</span> <span class="o">*</span> <span class="n">p2</span> <span class="o">+</span> <span class="n">t3</span> <span class="o">*</span> <span class="n">p4</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 function </span><span class="n">obl_pot_one</span>
+<a name="ln-176"></a>
+<a name="ln-177"></a><span class="k">end submodule </span><span class="n">s_obl</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/operator_cross.f90.html b/docs/sourcefile/operator_cross.f90.html
index 9ff03d7df..634c41a60 100644
--- a/docs/sourcefile/operator_cross.f90.html
+++ b/docs/sourcefile/operator_cross.f90.html
@@ -134,7 +134,7 @@ <h1>operator_cross.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.3% of total for source files.">172 statements</a>
+    title=" 1.1% of total for source files.">172 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileoperator_crossf90EfferentGraph" width="641pt" height="218pt"
+ viewBox="0.00 0.00 641.00 217.95" 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 312.56)">
 <title>sourcefile~~operator_cross.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-212.36 924,-212.36 924,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-312.56 927,-312.56 927,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,-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>
+<polygon fill="none" stroke="black" points="923,-222 820,-222 820,-198 923,-198 923,-222"/>
+<text text-anchor="middle" x="871.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50">operator_cross.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_operators.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,-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>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-242 564,-242 564,-218 682,-218 682,-242"/>
+<text text-anchor="middle" x="623" y="-227.6" 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.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.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,-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"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.72,-214.12C782.82,-217.11 732.48,-221.2 692.1,-224.47"/>
+<polygon fill="#000000" stroke="#000000" points="691.74,-220.99 682.06,-225.29 692.31,-227.97 691.74,-220.99"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest.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,-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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-202 718,-202 718,-178 784,-178 784,-202"/>
+<text text-anchor="middle" x="751" y="-187.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~operator_cross.f90&#45;&gt;sourcefile~swiftest.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,-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"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.9,-201.46C811.31,-200.01 802.48,-198.52 794.14,-197.11"/>
+<polygon fill="#000000" stroke="#000000" points="794.71,-193.66 784.26,-195.45 793.54,-200.56 794.71,-193.66"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-202 0,-202 0,-178 106,-178 106,-202"/>
+<text text-anchor="middle" x="53" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.95,-242.05C571.84,-248.74 548.74,-257.09 528,-264 470.25,-283.25 457.21,-295.01 397,-304 349.09,-311.15 336.28,-307.94 288,-304 222.46,-298.65 200.34,-310.35 142,-280 110.45,-263.58 83.45,-231.67 67.96,-210.59"/>
+<polygon fill="#000000" stroke="#000000" points="70.71,-208.41 62.05,-202.3 65.01,-212.47 70.71,-208.41"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge13" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.88,-200.2C703.88,-204.64 687.19,-209.94 671.78,-214.83"/>
+<polygon fill="#000000" stroke="#000000" points="670.36,-211.61 661.89,-217.97 672.48,-218.28 670.36,-211.61"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-122 143.5,-122 143.5,-98 250.5,-98 250.5,-122"/>
+<text text-anchor="middle" x="197" y="-107.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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622,-52C555.92,-17.79 360.68,-60.02 288,-76 269.49,-80.07 249.71,-87.21 233.42,-93.9"/>
+<polygon fill="#000000" stroke="#000000" points="231.62,-90.86 223.77,-97.98 234.35,-97.31 231.62,-90.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node5" class="node">
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="389.5,-182 295.5,-182 295.5,-158 389.5,-158 389.5,-182"/>
+<text text-anchor="middle" x="342.5" y="-167.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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622,-190C544.88,-190 456.05,-182.28 399.85,-176.43"/>
+<polygon fill="#000000" stroke="#000000" points="400.06,-172.93 389.75,-175.36 399.32,-179.89 400.06,-172.93"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~walltime_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,-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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-271 142,-271 142,-247 252,-247 252,-271"/>
+<text text-anchor="middle" x="197" y="-256.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.5,-250C442.41,-257.49 434.54,-266.3 397,-271 348.93,-277.02 336.34,-274.21 288,-271 279.63,-270.44 270.86,-269.6 262.21,-268.62"/>
+<polygon fill="#000000" stroke="#000000" points="262.49,-265.12 252.14,-267.4 261.65,-272.07 262.49,-265.12"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node7" class="node">
-<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>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="528,-222 433,-222 433,-198 528,-198 528,-222"/>
+<text text-anchor="middle" x="480.5" y="-207.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~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_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~whm_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622,-190C594.16,-190 563.52,-193.9 537.98,-198.25"/>
+<polygon fill="#000000" stroke="#000000" points="537.33,-194.81 528.1,-200 538.55,-201.7 537.33,-194.81"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.5,-250C448.49,-255.56 374.69,-214.4 343.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622,-190C554.1,-190.77 548.33,-238.01 481.5,-250"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-262 288,-262 288,-238 397,-238 397,-262"/>
+<text text-anchor="middle" x="342.5" y="-247.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~operator_cross.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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.5,-250C456.32,-254.68 430.46,-255.7 407.56,-255.2"/>
+<polygon fill="#000000" stroke="#000000" points="407.38,-251.7 397.27,-254.88 407.16,-258.69 407.38,-251.7"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="527.5,-142 433.5,-142 433.5,-118 527.5,-118 527.5,-142"/>
+<text text-anchor="middle" x="480.5" y="-127.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_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~operator_cross.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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.89,-190C692.43,-190 655.94,-190 624,-190"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622,-190C599.94,-190 547.22,-164.66 513,-146.92"/>
+<polygon fill="#000000" stroke="#000000" points="514.36,-143.68 503.88,-142.14 511.12,-149.88 514.36,-143.68"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="674.5,-123 571.5,-123 571.5,-99 674.5,-99 674.5,-123"/>
+<text text-anchor="middle" x="623" y="-108.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~~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="M584.98,-175.2C532.35,-192.24 428.12,-219.55 340.5,-203.14"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.59,-177.83C709.53,-164.63 675.73,-143.44 651.85,-128.46"/>
+<polygon fill="#000000" stroke="#000000" points="653.56,-125.4 643.23,-123.05 649.84,-131.33 653.56,-125.4"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="395,-24 290,-24 290,0 395,0 395,-24"/>
+<text text-anchor="middle" x="342.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge12" class="edge">
-<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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.77,-177.8C733.13,-157.76 709.85,-117.37 682,-90 660.02,-68.4 651.37,-66.17 624,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622,-52C564.56,-22.26 544.51,-28.65 481.5,-14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.5,-14C455.66,-8.46 428.83,-7.07 405.33,-7.39"/>
+<polygon fill="#000000" stroke="#000000" points="405.06,-3.9 395.14,-7.64 405.23,-10.9 405.06,-3.9"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge14" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.43,-122.15C150.42,-135.68 111.43,-157.65 84.34,-172.9"/>
+<polygon fill="#000000" stroke="#000000" points="82.3,-170.04 75.3,-178 85.73,-176.14 82.3,-170.04"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.46,-157.86C290.58,-148.71 260.36,-136.08 236.47,-126.09"/>
+<polygon fill="#000000" stroke="#000000" points="237.57,-122.75 227,-122.12 234.87,-129.21 237.57,-122.75"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge16" class="edge">
-<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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.2,-179.77C267.19,-184.84 230.7,-190 198,-190"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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~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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171.27,-246.98C148.19,-235.77 113.58,-218.95 87.93,-206.49"/>
+<polygon fill="#000000" stroke="#000000" points="89.45,-203.34 78.93,-202.11 86.39,-209.63 89.45,-203.34"/>
 </g>
-<!-- sourcefile~swiftest_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_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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M438.7,-198C424.84,-193.92 409.17,-189.32 394.61,-185.03"/>
+<polygon fill="#000000" stroke="#000000" points="395.33,-181.6 384.75,-182.13 393.35,-188.31 395.33,-181.6"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.5,-210C277.74,-201 262.39,-190 198,-190"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.7,-213.22C406.36,-214.22 372.96,-214.16 343.5,-210"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.54,-237.86C277.63,-220.33 210.29,-190 198,-190"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~operator_cross.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="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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~operator_cross.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="M433.49,-128.44C407.12,-127.94 373.42,-127.95 343.5,-130"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.5,-130C313.81,-131.89 283.32,-128.44 257.6,-123.89"/>
+<polygon fill="#000000" stroke="#000000" points="258.1,-120.43 247.63,-122.04 256.82,-127.31 258.1,-120.43"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M438.7,-142C424.84,-146.08 409.17,-150.68 394.61,-154.97"/>
+<polygon fill="#000000" stroke="#000000" points="393.35,-151.69 384.75,-157.87 395.33,-158.4 393.35,-151.69"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-190C169.89,-190 141.08,-190 116.27,-190"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-186.5 106.27,-190 116.27,-193.5 116.27,-186.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.5,-130C272.53,-134.72 267.13,-190 198,-190"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.5,-90C314.86,-90 285.7,-93.42 260.67,-97.44"/>
+<polygon fill="#000000" stroke="#000000" points="259.86,-94.02 250.57,-99.12 261.01,-100.93 259.86,-94.02"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.77,-123.14C580.33,-140.36 535.43,-172 507.09,-191.97"/>
+<polygon fill="#000000" stroke="#000000" points="505.03,-189.14 498.87,-197.76 509.06,-194.86 505.03,-189.14"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge26" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.27,-104.87C515.51,-98.67 423.26,-90 343.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.5,-90C277.13,-88.37 257,-44.2 198,-70"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge27" 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.28,-117.86C560.44,-119.32 548.94,-120.88 537.91,-122.37"/>
+<polygon fill="#000000" stroke="#000000" points="537.38,-118.91 527.94,-123.72 538.32,-125.85 537.38,-118.91"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.83,-98.83C572.02,-73.53 495.79,-17.32 481.5,-14"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.64,-24.06C302.83,-27.88 294.75,-32.55 288,-38 267.81,-54.32 272.22,-67.72 252,-84 247.74,-87.43 242.96,-90.54 238.05,-93.33"/>
+<polygon fill="#000000" stroke="#000000" points="236.39,-90.24 229.15,-97.98 239.64,-96.45 236.39,-90.24"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.22,-24.06C281,-35.45 236.28,-53.26 198,-70"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-70C172.69,-80.2 163.05,-74.71 142,-89 110.03,-110.69 82.5,-146.76 67.11,-169.41"/>
+<polygon fill="#000000" stroke="#000000" points="64.06,-167.67 61.45,-177.94 69.9,-171.54 64.06,-167.67"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/operator_mag.f90.html b/docs/sourcefile/operator_mag.f90.html
index c48978d37..78deff9b6 100644
--- a/docs/sourcefile/operator_mag.f90.html
+++ b/docs/sourcefile/operator_mag.f90.html
@@ -134,7 +134,7 @@ <h1>operator_mag.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for source files.">56 statements</a>
+    title=" 0.3% of total for source files.">56 statements</a>
      </li> 
      
      
diff --git a/docs/sourcefile/orbel.f90.html b/docs/sourcefile/orbel.f90.html
index 3aa4dfe00..5384beb16 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.4% of total for source files.">597 statements</a>
+    title=" 3.8% of total for source files.">611 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileorbelf90EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.07" 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 412.12)">
 <title>sourcefile~~orbel.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 872,-301.25 872,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 879,-412.12 879,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,-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>
+<polygon fill="none" stroke="black" points="875,-133.12 820,-133.12 820,-109.12 875,-109.12 875,-133.12"/>
+<text text-anchor="middle" x="847.5" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">orbel.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.89,-109.09C789.66,-87.43 705.57,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.53,-133.4C818.48,-149.87 789.82,-179.29 770.86,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="768.34,-196.33 763.87,-205.93 773.36,-201.21 768.34,-196.33"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~orbel.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~orbel.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~orbel.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~orbel.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~orbel.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~orbel.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -565,1015 +619,1027 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-5"></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-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">!! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</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="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-12"></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 objec</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>   
-<a name="ln-16"></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-17"></a>
-<a name="ln-18"></a><span class="k">      call </span><span class="n">self</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-19"></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-20"></a>         <span class="k">call </span><span class="n">orbel_el2xv</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">i</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">i</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">i</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">i</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">i</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-21"></a>                           <span class="n">self</span><span class="p">%</span><span class="n">omega</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">capm</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> <span class="n">self</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-22"></a>      <span class="k">end do</span>
-<a name="ln-23"></a><span class="k">   end subroutine </span><span class="n">orbel_el2xv_vec</span>
-<a name="ln-24"></a>
-<a name="ln-25"></a>
-<a name="ln-26"></a>   <span class="k">pure subroutine </span><span class="n">orbel_el2xv</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">ie</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">)</span>
-<a name="ln-27"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-28"></a>      <span class="c">!!</span>
-<a name="ln-29"></a>      <span class="c">!! Compute osculating orbital elements from relative C)rtesian position and velocity</span>
-<a name="ln-30"></a>      <span class="c">!!  All angular measures are returned in radians</span>
-<a name="ln-31"></a>      <span class="c">!!      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</span>
-<a name="ln-32"></a>      <span class="c">!!</span>
-<a name="ln-33"></a>      <span class="c">!!      If eccentricity &lt; sqrt(TINY), argument of pericenter is arbitrarily set to 0</span>
-<a name="ln-34"></a>      <span class="c">!!</span>
-<a name="ln-35"></a>      <span class="c">!!      ALGORITHM:  See Fitzpatrick &quot;Principles of Cel. Mech.&quot;</span>
-<a name="ln-36"></a>      <span class="c">!!</span>
-<a name="ln-37"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s el2xv.f</span>
-<a name="ln-38"></a>      <span class="c">!! DATE WRITTEN:  May 11, 1992.</span>
-<a name="ln-39"></a>      <span class="c">!! REVISIONS: May 26 - now use better Kepler solver for ellipses</span>
-<a name="ln-40"></a>      <span class="c">!!  and hyperbolae called EHYBRID.F and FHYBRID.F</span>
-<a name="ln-41"></a>      <span class="k">implicit none</span>
-<a name="ln-42"></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>
-<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="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><span class="p">,</span> <span class="n">ie</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</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">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span>
-<a name="ln-45"></a>
-<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">iorbit_type</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">e</span><span class="p">,</span> <span class="n">cape</span><span class="p">,</span> <span class="n">capf</span><span class="p">,</span> <span class="n">zpara</span><span class="p">,</span> <span class="n">em1</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="kd">::</span> <span class="n">sip</span><span class="p">,</span> <span class="n">cip</span><span class="p">,</span> <span class="n">so</span><span class="p">,</span> <span class="n">co</span><span class="p">,</span> <span class="n">si</span><span class="p">,</span> <span class="n">ci</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">d11</span><span class="p">,</span> <span class="n">d12</span><span class="p">,</span> <span class="n">d13</span><span class="p">,</span> <span class="n">d21</span><span class="p">,</span> <span class="n">d22</span><span class="p">,</span> <span class="n">d23</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="kd">::</span> <span class="n">scap</span><span class="p">,</span> <span class="n">ccap</span><span class="p">,</span> <span class="n">shcap</span><span class="p">,</span> <span class="n">chcap</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="kd">::</span> <span class="n">sqe</span><span class="p">,</span> <span class="n">sqgma</span><span class="p">,</span> <span class="n">xfac1</span><span class="p">,</span> <span class="n">xfac2</span><span class="p">,</span> <span class="n">ri</span><span class="p">,</span> <span class="n">vfac1</span><span class="p">,</span> <span class="n">vfac2</span>
-<a name="ln-52"></a>
-<a name="ln-53"></a>
-<a name="ln-54"></a>      <span class="k">if</span><span class="p">(</span><span class="n">ie</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-55"></a>         <span class="c">!write(*,*) &#39; ERROR in orbel_el2xv: e&lt;0, setting e=0!!1&#39;</span>
-<a name="ln-56"></a>         <span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-57"></a>         <span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
-<a name="ln-58"></a>      <span class="k">else</span>
-<a name="ln-59"></a><span class="k">         </span><span class="n">e</span> <span class="o">=</span> <span class="n">ie</span>
-<a name="ln-60"></a>         <span class="n">em1</span> <span class="o">=</span> <span class="n">e</span> <span class="o">-</span> <span class="mf">1._DP</span>
-<a name="ln-61"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">em1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-62"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
-<a name="ln-63"></a>         <span class="k">else if</span> <span class="p">(</span><span class="n">e</span> <span class="o">&gt;</span> <span class="mf">1.0_DP</span><span class="p">)</span>  <span class="k">then</span>
-<a name="ln-64"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
-<a name="ln-65"></a>         <span class="k">else</span>
-<a name="ln-66"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
-<a name="ln-67"></a>         <span class="k">end if</span>
-<a name="ln-68"></a><span class="k">      </span><span class="n">endif</span>
-<a name="ln-69"></a>
-<a name="ln-70"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">omega</span><span class="p">,</span><span class="n">sip</span><span class="p">,</span><span class="n">cip</span><span class="p">)</span>
-<a name="ln-71"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">capom</span><span class="p">,</span><span class="n">so</span><span class="p">,</span><span class="n">co</span><span class="p">)</span>
-<a name="ln-72"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">inc</span><span class="p">,</span><span class="n">si</span><span class="p">,</span><span class="n">ci</span><span class="p">)</span>
-<a name="ln-73"></a>      <span class="n">d11</span> <span class="o">=</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">-</span> <span class="n">sip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">*</span> <span class="n">ci</span>
-<a name="ln-74"></a>      <span class="n">d12</span> <span class="o">=</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">+</span> <span class="n">sip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">*</span> <span class="n">ci</span>
-<a name="ln-75"></a>      <span class="n">d13</span> <span class="o">=</span> <span class="n">sip</span> <span class="o">*</span> <span class="n">si</span>
-<a name="ln-76"></a>      <span class="n">d21</span> <span class="o">=</span> <span class="o">-</span><span class="n">sip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">-</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">*</span> <span class="n">ci</span>
-<a name="ln-77"></a>      <span class="n">d22</span> <span class="o">=</span> <span class="o">-</span><span class="n">sip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">+</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">*</span> <span class="n">ci</span>
-<a name="ln-78"></a>      <span class="n">d23</span> <span class="o">=</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">si</span>
-<a name="ln-79"></a>
-<a name="ln-80"></a>      <span class="c">!--</span>
-<a name="ln-81"></a>      <span class="c">! Get the other quantities depending on orbit type </span>
-<a name="ln-82"></a>      <span class="c">!</span>
-<a name="ln-83"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iorbit_type</span> <span class="o">==</span> <span class="n">ELLIPSE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-84"></a><span class="k">         </span><span class="n">cape</span> <span class="o">=</span> <span class="n">orbel_ehybrid</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">capm</span><span class="p">)</span>
-<a name="ln-85"></a>         <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">cape</span><span class="p">,</span><span class="n">scap</span><span class="p">,</span><span class="n">ccap</span><span class="p">)</span>
-<a name="ln-86"></a>         <span class="n">sqe</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="n">e</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-87"></a>         <span class="n">sqgma</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">mu</span><span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-88"></a>         <span class="n">xfac1</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="n">ccap</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-89"></a>         <span class="n">xfac2</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="n">sqe</span> <span class="o">*</span> <span class="n">scap</span>
-<a name="ln-90"></a>         <span class="n">ri</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="n">e</span><span class="o">*</span> <span class="n">ccap</span><span class="p">))</span>
-<a name="ln-91"></a>         <span class="n">vfac1</span> <span class="o">=</span> <span class="o">-</span><span class="n">ri</span> <span class="o">*</span>  <span class="n">sqgma</span> <span class="o">*</span>  <span class="n">scap</span>
-<a name="ln-92"></a>         <span class="n">vfac2</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span>  <span class="n">sqgma</span> <span class="o">*</span>  <span class="n">sqe</span> <span class="o">*</span>  <span class="n">ccap</span>
-<a name="ln-93"></a>      <span class="n">endif</span>
-<a name="ln-94"></a>      <span class="c">!--</span>
-<a name="ln-95"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iorbit_type</span> <span class="o">==</span> <span class="n">HYPERBOLA</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-96"></a><span class="k">         </span><span class="n">capf</span> <span class="o">=</span> <span class="n">orbel_fhybrid</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">capm</span><span class="p">)</span>
-<a name="ln-97"></a>         <span class="k">call </span><span class="n">orbel_schget</span><span class="p">(</span><span class="n">capf</span><span class="p">,</span><span class="n">shcap</span><span class="p">,</span><span class="n">chcap</span><span class="p">)</span>
-<a name="ln-98"></a>         <span class="n">sqe</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">e</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="mf">1._DP</span> <span class="p">)</span>
-<a name="ln-99"></a>         <span class="n">sqgma</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-100"></a>         <span class="n">xfac1</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="n">e</span> <span class="o">-</span> <span class="n">chcap</span><span class="p">)</span>
-<a name="ln-101"></a>         <span class="n">xfac2</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="n">sqe</span> <span class="o">*</span> <span class="n">shcap</span>
-<a name="ln-102"></a>         <span class="n">ri</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="n">e</span> <span class="o">*</span> <span class="n">chcap</span> <span class="o">-</span> <span class="mf">1._DP</span><span class="p">))</span>
-<a name="ln-103"></a>         <span class="n">vfac1</span> <span class="o">=</span> <span class="o">-</span><span class="n">ri</span> <span class="o">*</span> <span class="n">sqgma</span> <span class="o">*</span> <span class="n">shcap</span>
-<a name="ln-104"></a>         <span class="n">vfac2</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span> <span class="n">sqgma</span> <span class="o">*</span> <span class="n">sqe</span> <span class="o">*</span> <span class="n">chcap</span>
-<a name="ln-105"></a>      <span class="n">endif</span>
-<a name="ln-106"></a>      <span class="c">!--</span>
-<a name="ln-107"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iorbit_type</span> <span class="o">==</span> <span class="n">PARABOLA</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-108"></a><span class="k">         </span><span class="n">zpara</span> <span class="o">=</span> <span class="n">orbel_zget</span><span class="p">(</span><span class="n">capm</span><span class="p">)</span>
-<a name="ln-109"></a>         <span class="n">sqgma</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">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-110"></a>         <span class="n">xfac1</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="n">zpara</span> <span class="o">*</span> <span class="n">zpara</span><span class="p">)</span>
-<a name="ln-111"></a>         <span class="n">xfac2</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">a</span> <span class="o">*</span> <span class="n">zpara</span>
-<a name="ln-112"></a>         <span class="n">ri</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">+</span> <span class="n">zpara</span> <span class="o">*</span> <span class="n">zpara</span><span class="p">))</span>
-<a name="ln-113"></a>         <span class="n">vfac1</span> <span class="o">=</span> <span class="o">-</span><span class="n">ri</span>  <span class="o">*</span>  <span class="n">sqgma</span>  <span class="o">*</span>  <span class="n">zpara</span>
-<a name="ln-114"></a>         <span class="n">vfac2</span> <span class="o">=</span> <span class="n">ri</span>  <span class="o">*</span>  <span class="n">sqgma</span> 
-<a name="ln-115"></a>      <span class="n">endif</span>
-<a name="ln-116"></a>      <span class="c">!--</span>
-<a name="ln-117"></a>      <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">d11</span> <span class="o">*</span> <span class="n">xfac1</span> <span class="o">+</span> <span class="n">d21</span> <span class="o">*</span> <span class="n">xfac2</span>
-<a name="ln-118"></a>      <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">d12</span> <span class="o">*</span> <span class="n">xfac1</span> <span class="o">+</span> <span class="n">d22</span> <span class="o">*</span> <span class="n">xfac2</span>
-<a name="ln-119"></a>      <span class="n">x</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="n">d13</span> <span class="o">*</span> <span class="n">xfac1</span> <span class="o">+</span> <span class="n">d23</span> <span class="o">*</span> <span class="n">xfac2</span>
-<a name="ln-120"></a>      <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">d11</span> <span class="o">*</span> <span class="n">vfac1</span> <span class="o">+</span> <span class="n">d21</span> <span class="o">*</span> <span class="n">vfac2</span>
-<a name="ln-121"></a>      <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">d12</span> <span class="o">*</span> <span class="n">vfac1</span> <span class="o">+</span> <span class="n">d22</span> <span class="o">*</span> <span class="n">vfac2</span>
-<a name="ln-122"></a>      <span class="n">v</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="n">d13</span> <span class="o">*</span> <span class="n">vfac1</span> <span class="o">+</span> <span class="n">d23</span> <span class="o">*</span> <span class="n">vfac2</span>
-<a name="ln-123"></a>
-<a name="ln-124"></a>      <span class="k">return</span>
-<a name="ln-125"></a><span class="k">   end subroutine </span><span class="n">orbel_el2xv</span>
+<a name="ln-8"></a>      <span class="c">!! A wrapper method that converts all of the orbital element vectors into cartesian position and velocity vectors for a Swiftest body object.</span>
+<a name="ln-9"></a>      <span class="c">!! This method deallocates all of the orbital elements after it is finished.</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">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-13"></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 objec</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">i</span>
+<a name="ln-16"></a>   
+<a name="ln-17"></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-18"></a>
+<a name="ln-19"></a><span class="k">      call </span><span class="n">self</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-20"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-21"></a>         <span class="k">call </span><span class="n">orbel_el2xv</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">i</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">i</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">i</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">i</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">i</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-22"></a>                           <span class="n">self</span><span class="p">%</span><span class="n">omega</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">capm</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> <span class="n">self</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-23"></a>      <span class="k">end do</span>
+<a name="ln-24"></a><span class="k">      deallocate</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">self</span><span class="p">%</span><span class="n">e</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">self</span><span class="p">%</span><span class="n">capom</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">self</span><span class="p">%</span><span class="n">capm</span><span class="p">)</span>
+<a name="ln-25"></a>      <span class="k">return</span>
+<a name="ln-26"></a><span class="k">   end subroutine </span><span class="n">orbel_el2xv_vec</span>
+<a name="ln-27"></a>
+<a name="ln-28"></a>
+<a name="ln-29"></a>   <span class="k">pure subroutine </span><span class="n">orbel_el2xv</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">ie</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">)</span>
+<a name="ln-30"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-31"></a>      <span class="c">!!</span>
+<a name="ln-32"></a>      <span class="c">!! Compute osculating orbital elements from relative C)rtesian position and velocity</span>
+<a name="ln-33"></a>      <span class="c">!!  All angular measures are returned in radians</span>
+<a name="ln-34"></a>      <span class="c">!!      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</span>
+<a name="ln-35"></a>      <span class="c">!!</span>
+<a name="ln-36"></a>      <span class="c">!!      If eccentricity &lt; sqrt(TINY), argument of pericenter is arbitrarily set to 0</span>
+<a name="ln-37"></a>      <span class="c">!!</span>
+<a name="ln-38"></a>      <span class="c">!!      ALGORITHM:  See Fitzpatrick &quot;Principles of Cel. Mech.&quot;</span>
+<a name="ln-39"></a>      <span class="c">!!</span>
+<a name="ln-40"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s el2xv.f</span>
+<a name="ln-41"></a>      <span class="c">!! DATE WRITTEN:  May 11, 1992.</span>
+<a name="ln-42"></a>      <span class="c">!! REVISIONS: May 26 - now use better Kepler solver for ellipses</span>
+<a name="ln-43"></a>      <span class="c">!!  and hyperbolae called EHYBRID.F and FHYBRID.F</span>
+<a name="ln-44"></a>      <span class="k">implicit none</span>
+<a name="ln-45"></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>
+<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="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><span class="p">,</span> <span class="n">ie</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</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">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span>
+<a name="ln-48"></a>
+<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">iorbit_type</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="kd">::</span> <span class="n">e</span><span class="p">,</span> <span class="n">cape</span><span class="p">,</span> <span class="n">capf</span><span class="p">,</span> <span class="n">zpara</span><span class="p">,</span> <span class="n">em1</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="kd">::</span> <span class="n">sip</span><span class="p">,</span> <span class="n">cip</span><span class="p">,</span> <span class="n">so</span><span class="p">,</span> <span class="n">co</span><span class="p">,</span> <span class="n">si</span><span class="p">,</span> <span class="n">ci</span>
+<a name="ln-52"></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">d11</span><span class="p">,</span> <span class="n">d12</span><span class="p">,</span> <span class="n">d13</span><span class="p">,</span> <span class="n">d21</span><span class="p">,</span> <span class="n">d22</span><span class="p">,</span> <span class="n">d23</span>
+<a name="ln-53"></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">scap</span><span class="p">,</span> <span class="n">ccap</span><span class="p">,</span> <span class="n">shcap</span><span class="p">,</span> <span class="n">chcap</span>
+<a name="ln-54"></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">sqe</span><span class="p">,</span> <span class="n">sqgma</span><span class="p">,</span> <span class="n">xfac1</span><span class="p">,</span> <span class="n">xfac2</span><span class="p">,</span> <span class="n">ri</span><span class="p">,</span> <span class="n">vfac1</span><span class="p">,</span> <span class="n">vfac2</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a>
+<a name="ln-57"></a>      <span class="k">if</span><span class="p">(</span><span class="n">ie</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-58"></a>         <span class="c">!write(*,*) &#39; ERROR in orbel_el2xv: e&lt;0, setting e=0!!1&#39;</span>
+<a name="ln-59"></a>         <span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-60"></a>         <span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
+<a name="ln-61"></a>      <span class="k">else</span>
+<a name="ln-62"></a><span class="k">         </span><span class="n">e</span> <span class="o">=</span> <span class="n">ie</span>
+<a name="ln-63"></a>         <span class="n">em1</span> <span class="o">=</span> <span class="n">e</span> <span class="o">-</span> <span class="mf">1._DP</span>
+<a name="ln-64"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">em1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-65"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
+<a name="ln-66"></a>         <span class="k">else if</span> <span class="p">(</span><span class="n">e</span> <span class="o">&gt;</span> <span class="mf">1.0_DP</span><span class="p">)</span>  <span class="k">then</span>
+<a name="ln-67"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
+<a name="ln-68"></a>         <span class="k">else</span>
+<a name="ln-69"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
+<a name="ln-70"></a>         <span class="k">end if</span>
+<a name="ln-71"></a><span class="k">      </span><span class="n">endif</span>
+<a name="ln-72"></a>
+<a name="ln-73"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">omega</span><span class="p">,</span><span class="n">sip</span><span class="p">,</span><span class="n">cip</span><span class="p">)</span>
+<a name="ln-74"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">capom</span><span class="p">,</span><span class="n">so</span><span class="p">,</span><span class="n">co</span><span class="p">)</span>
+<a name="ln-75"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">inc</span><span class="p">,</span><span class="n">si</span><span class="p">,</span><span class="n">ci</span><span class="p">)</span>
+<a name="ln-76"></a>      <span class="n">d11</span> <span class="o">=</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">-</span> <span class="n">sip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">*</span> <span class="n">ci</span>
+<a name="ln-77"></a>      <span class="n">d12</span> <span class="o">=</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">+</span> <span class="n">sip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">*</span> <span class="n">ci</span>
+<a name="ln-78"></a>      <span class="n">d13</span> <span class="o">=</span> <span class="n">sip</span> <span class="o">*</span> <span class="n">si</span>
+<a name="ln-79"></a>      <span class="n">d21</span> <span class="o">=</span> <span class="o">-</span><span class="n">sip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">-</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">*</span> <span class="n">ci</span>
+<a name="ln-80"></a>      <span class="n">d22</span> <span class="o">=</span> <span class="o">-</span><span class="n">sip</span> <span class="o">*</span> <span class="n">so</span> <span class="o">+</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">co</span> <span class="o">*</span> <span class="n">ci</span>
+<a name="ln-81"></a>      <span class="n">d23</span> <span class="o">=</span> <span class="n">cip</span> <span class="o">*</span> <span class="n">si</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>      <span class="c">!--</span>
+<a name="ln-84"></a>      <span class="c">! Get the other quantities depending on orbit type </span>
+<a name="ln-85"></a>      <span class="c">!</span>
+<a name="ln-86"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iorbit_type</span> <span class="o">==</span> <span class="n">ELLIPSE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-87"></a><span class="k">         </span><span class="n">cape</span> <span class="o">=</span> <span class="n">orbel_ehybrid</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">capm</span><span class="p">)</span>
+<a name="ln-88"></a>         <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">cape</span><span class="p">,</span><span class="n">scap</span><span class="p">,</span><span class="n">ccap</span><span class="p">)</span>
+<a name="ln-89"></a>         <span class="n">sqe</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="n">e</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-90"></a>         <span class="n">sqgma</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">mu</span><span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-91"></a>         <span class="n">xfac1</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="n">ccap</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-92"></a>         <span class="n">xfac2</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="n">sqe</span> <span class="o">*</span> <span class="n">scap</span>
+<a name="ln-93"></a>         <span class="n">ri</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="n">e</span><span class="o">*</span> <span class="n">ccap</span><span class="p">))</span>
+<a name="ln-94"></a>         <span class="n">vfac1</span> <span class="o">=</span> <span class="o">-</span><span class="n">ri</span> <span class="o">*</span>  <span class="n">sqgma</span> <span class="o">*</span>  <span class="n">scap</span>
+<a name="ln-95"></a>         <span class="n">vfac2</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span>  <span class="n">sqgma</span> <span class="o">*</span>  <span class="n">sqe</span> <span class="o">*</span>  <span class="n">ccap</span>
+<a name="ln-96"></a>      <span class="n">endif</span>
+<a name="ln-97"></a>      <span class="c">!--</span>
+<a name="ln-98"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iorbit_type</span> <span class="o">==</span> <span class="n">HYPERBOLA</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-99"></a><span class="k">         </span><span class="n">capf</span> <span class="o">=</span> <span class="n">orbel_fhybrid</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">capm</span><span class="p">)</span>
+<a name="ln-100"></a>         <span class="k">call </span><span class="n">orbel_schget</span><span class="p">(</span><span class="n">capf</span><span class="p">,</span><span class="n">shcap</span><span class="p">,</span><span class="n">chcap</span><span class="p">)</span>
+<a name="ln-101"></a>         <span class="n">sqe</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">e</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="mf">1._DP</span> <span class="p">)</span>
+<a name="ln-102"></a>         <span class="n">sqgma</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-103"></a>         <span class="n">xfac1</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="n">e</span> <span class="o">-</span> <span class="n">chcap</span><span class="p">)</span>
+<a name="ln-104"></a>         <span class="n">xfac2</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="n">sqe</span> <span class="o">*</span> <span class="n">shcap</span>
+<a name="ln-105"></a>         <span class="n">ri</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="n">e</span> <span class="o">*</span> <span class="n">chcap</span> <span class="o">-</span> <span class="mf">1._DP</span><span class="p">))</span>
+<a name="ln-106"></a>         <span class="n">vfac1</span> <span class="o">=</span> <span class="o">-</span><span class="n">ri</span> <span class="o">*</span> <span class="n">sqgma</span> <span class="o">*</span> <span class="n">shcap</span>
+<a name="ln-107"></a>         <span class="n">vfac2</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span> <span class="n">sqgma</span> <span class="o">*</span> <span class="n">sqe</span> <span class="o">*</span> <span class="n">chcap</span>
+<a name="ln-108"></a>      <span class="n">endif</span>
+<a name="ln-109"></a>      <span class="c">!--</span>
+<a name="ln-110"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iorbit_type</span> <span class="o">==</span> <span class="n">PARABOLA</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-111"></a><span class="k">         </span><span class="n">zpara</span> <span class="o">=</span> <span class="n">orbel_zget</span><span class="p">(</span><span class="n">capm</span><span class="p">)</span>
+<a name="ln-112"></a>         <span class="n">sqgma</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">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-113"></a>         <span class="n">xfac1</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="n">zpara</span> <span class="o">*</span> <span class="n">zpara</span><span class="p">)</span>
+<a name="ln-114"></a>         <span class="n">xfac2</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">a</span> <span class="o">*</span> <span class="n">zpara</span>
+<a name="ln-115"></a>         <span class="n">ri</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">+</span> <span class="n">zpara</span> <span class="o">*</span> <span class="n">zpara</span><span class="p">))</span>
+<a name="ln-116"></a>         <span class="n">vfac1</span> <span class="o">=</span> <span class="o">-</span><span class="n">ri</span>  <span class="o">*</span>  <span class="n">sqgma</span>  <span class="o">*</span>  <span class="n">zpara</span>
+<a name="ln-117"></a>         <span class="n">vfac2</span> <span class="o">=</span> <span class="n">ri</span>  <span class="o">*</span>  <span class="n">sqgma</span> 
+<a name="ln-118"></a>      <span class="n">endif</span>
+<a name="ln-119"></a>      <span class="c">!--</span>
+<a name="ln-120"></a>      <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">d11</span> <span class="o">*</span> <span class="n">xfac1</span> <span class="o">+</span> <span class="n">d21</span> <span class="o">*</span> <span class="n">xfac2</span>
+<a name="ln-121"></a>      <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">d12</span> <span class="o">*</span> <span class="n">xfac1</span> <span class="o">+</span> <span class="n">d22</span> <span class="o">*</span> <span class="n">xfac2</span>
+<a name="ln-122"></a>      <span class="n">x</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="n">d13</span> <span class="o">*</span> <span class="n">xfac1</span> <span class="o">+</span> <span class="n">d23</span> <span class="o">*</span> <span class="n">xfac2</span>
+<a name="ln-123"></a>      <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">d11</span> <span class="o">*</span> <span class="n">vfac1</span> <span class="o">+</span> <span class="n">d21</span> <span class="o">*</span> <span class="n">vfac2</span>
+<a name="ln-124"></a>      <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">d12</span> <span class="o">*</span> <span class="n">vfac1</span> <span class="o">+</span> <span class="n">d22</span> <span class="o">*</span> <span class="n">vfac2</span>
+<a name="ln-125"></a>      <span class="n">v</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="n">d13</span> <span class="o">*</span> <span class="n">vfac1</span> <span class="o">+</span> <span class="n">d23</span> <span class="o">*</span> <span class="n">vfac2</span>
 <a name="ln-126"></a>
-<a name="ln-127"></a>
-<a name="ln-128"></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-129"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-130"></a>      <span class="c">!!</span>
-<a name="ln-131"></a>      <span class="c">!! Efficiently compute the sine and cosine of an input angle</span>
-<a name="ln-132"></a>      <span class="c">!!      Input angle must be in radians</span>
+<a name="ln-127"></a>      <span class="k">return</span>
+<a name="ln-128"></a><span class="k">   end subroutine </span><span class="n">orbel_el2xv</span>
+<a name="ln-129"></a>
+<a name="ln-130"></a>
+<a name="ln-131"></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-132"></a>      <span class="c">!! author: David A. Minton</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: orbel_scget.f90</span>
-<a name="ln-135"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine orbel_scget.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="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-139"></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-140"></a>      <span class="c">! Internals</span>
-<a name="ln-141"></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">nper</span>
-<a name="ln-142"></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">x</span>
-<a name="ln-143"></a>
-<a name="ln-144"></a>      <span class="n">nper</span> <span class="o">=</span> <span class="n">angle</span> <span class="o">/</span> <span class="n">TWOPI</span>
-<a name="ln-145"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">angle</span> <span class="o">-</span> <span class="n">nper</span> <span class="o">*</span> <span class="n">TWOPI</span>
-<a name="ln-146"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">x</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-147"></a>      <span class="n">sx</span> <span class="o">=</span> <span class="nb">sin</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a name="ln-148"></a>      <span class="n">cx</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="n">sx</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-149"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">x</span> <span class="o">&gt;</span> <span class="n">PIBY2</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">x</span> <span class="o">&lt;</span> <span class="n">PI3BY2</span><span class="p">))</span> <span class="n">cx</span> <span class="o">=</span> <span class="o">-</span><span class="n">cx</span>
-<a name="ln-150"></a>
-<a name="ln-151"></a>      <span class="k">return</span>
-<a name="ln-152"></a>
-<a name="ln-153"></a><span class="k">   end subroutine </span><span class="n">orbel_scget</span>
-<a name="ln-154"></a>
+<a name="ln-134"></a>      <span class="c">!! Efficiently compute the sine and cosine of an input angle</span>
+<a name="ln-135"></a>      <span class="c">!!      Input angle must be in radians</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: orbel_scget.f90</span>
+<a name="ln-138"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine orbel_scget.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="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-142"></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-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">nper</span>
+<a name="ln-145"></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">x</span>
+<a name="ln-146"></a>
+<a name="ln-147"></a>      <span class="n">nper</span> <span class="o">=</span> <span class="n">angle</span> <span class="o">/</span> <span class="n">TWOPI</span>
+<a name="ln-148"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">angle</span> <span class="o">-</span> <span class="n">nper</span> <span class="o">*</span> <span class="n">TWOPI</span>
+<a name="ln-149"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">x</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-150"></a>      <span class="n">sx</span> <span class="o">=</span> <span class="nb">sin</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a name="ln-151"></a>      <span class="n">cx</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="n">sx</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-152"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">x</span> <span class="o">&gt;</span> <span class="n">PIBY2</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">x</span> <span class="o">&lt;</span> <span class="n">PI3BY2</span><span class="p">))</span> <span class="n">cx</span> <span class="o">=</span> <span class="o">-</span><span class="n">cx</span>
+<a name="ln-153"></a>
+<a name="ln-154"></a>      <span class="k">return</span>
 <a name="ln-155"></a>
-<a name="ln-156"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-157"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-158"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-156"></a><span class="k">   end subroutine </span><span class="n">orbel_scget</span>
+<a name="ln-157"></a>
+<a name="ln-158"></a>
 <a name="ln-159"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-160"></a>   <span class="c">!                   ORBEL_SCHGET.F</span>
-<a name="ln-161"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-162"></a>   <span class="c">!     PURPOSE:  Given an angle, efficiently compute sinh and cosh.</span>
-<a name="ln-163"></a>   <span class="c">! </span>
-<a name="ln-164"></a>   <span class="c">!        Input:</span>
-<a name="ln-165"></a>   <span class="c">!             angle ==&gt; angle in radians (real scalar)</span>
-<a name="ln-166"></a>   <span class="c">!</span>
-<a name="ln-167"></a>   <span class="c">!        Output:</span>
-<a name="ln-168"></a>   <span class="c">!             shx    ==&gt;  sinh(angle)  (real scalar)</span>
-<a name="ln-169"></a>   <span class="c">!             chx    ==&gt;  cosh(angle)  (real scalar)</span>
-<a name="ln-170"></a>   <span class="c">!</span>
-<a name="ln-171"></a>   <span class="c">!     ALGORITHM: Obvious from the code</span>
-<a name="ln-172"></a>   <span class="c">!     REMARKS: Based on the routine SCGET for sine&#39;s and cosine&#39;s.</span>
-<a name="ln-173"></a>   <span class="c">!       We use the sqrt rather than cosh (it&#39;s faster)</span>
-<a name="ln-174"></a>   <span class="c">!       BE SURE THE ANGLE IS IN RADIANS AND IT CAN&#39;T BE LARGER THAN 300</span>
-<a name="ln-175"></a>   <span class="c">!       OR OVERFLOWS WILL OCCUR!</span>
-<a name="ln-176"></a>   <span class="c">!     AUTHOR:  M. Duncan.</span>
-<a name="ln-177"></a>   <span class="c">!     DATE WRITTEN:  May 6, 1992.</span>
-<a name="ln-178"></a>   <span class="c">!     REVISIONS:</span>
-<a name="ln-179"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-180"></a>   <span class="k">pure subroutine </span><span class="n">orbel_schget</span><span class="p">(</span><span class="n">angle</span><span class="p">,</span><span class="n">shx</span><span class="p">,</span><span class="n">chx</span><span class="p">)</span>
-<a name="ln-181"></a>
-<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">angle</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">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">shx</span><span class="p">,</span><span class="n">chx</span>
-<a name="ln-184"></a>      
-<a name="ln-185"></a>      <span class="n">shx</span> <span class="o">=</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">angle</span><span class="p">)</span>
-<a name="ln-186"></a>      <span class="n">chx</span><span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">1._DP</span> <span class="o">+</span> <span class="n">shx</span> <span class="o">*</span> <span class="n">shx</span><span class="p">)</span>
+<a name="ln-160"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-161"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-162"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-163"></a>   <span class="c">!                   ORBEL_SCHGET.F</span>
+<a name="ln-164"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-165"></a>   <span class="c">!     PURPOSE:  Given an angle, efficiently compute sinh and cosh.</span>
+<a name="ln-166"></a>   <span class="c">! </span>
+<a name="ln-167"></a>   <span class="c">!        Input:</span>
+<a name="ln-168"></a>   <span class="c">!             angle ==&gt; angle in radians (real scalar)</span>
+<a name="ln-169"></a>   <span class="c">!</span>
+<a name="ln-170"></a>   <span class="c">!        Output:</span>
+<a name="ln-171"></a>   <span class="c">!             shx    ==&gt;  sinh(angle)  (real scalar)</span>
+<a name="ln-172"></a>   <span class="c">!             chx    ==&gt;  cosh(angle)  (real scalar)</span>
+<a name="ln-173"></a>   <span class="c">!</span>
+<a name="ln-174"></a>   <span class="c">!     ALGORITHM: Obvious from the code</span>
+<a name="ln-175"></a>   <span class="c">!     REMARKS: Based on the routine SCGET for sine&#39;s and cosine&#39;s.</span>
+<a name="ln-176"></a>   <span class="c">!       We use the sqrt rather than cosh (it&#39;s faster)</span>
+<a name="ln-177"></a>   <span class="c">!       BE SURE THE ANGLE IS IN RADIANS AND IT CAN&#39;T BE LARGER THAN 300</span>
+<a name="ln-178"></a>   <span class="c">!       OR OVERFLOWS WILL OCCUR!</span>
+<a name="ln-179"></a>   <span class="c">!     AUTHOR:  M. Duncan.</span>
+<a name="ln-180"></a>   <span class="c">!     DATE WRITTEN:  May 6, 1992.</span>
+<a name="ln-181"></a>   <span class="c">!     REVISIONS:</span>
+<a name="ln-182"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-183"></a>   <span class="k">pure subroutine </span><span class="n">orbel_schget</span><span class="p">(</span><span class="n">angle</span><span class="p">,</span><span class="n">shx</span><span class="p">,</span><span class="n">chx</span><span class="p">)</span>
+<a name="ln-184"></a>
+<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">angle</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">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">shx</span><span class="p">,</span><span class="n">chx</span>
 <a name="ln-187"></a>      
-<a name="ln-188"></a>      <span class="k">return</span>
-<a name="ln-189"></a><span class="k">   end subroutine </span><span class="n">orbel_schget</span>
-<a name="ln-190"></a>
-<a name="ln-191"></a>
-<a name="ln-192"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-193"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-194"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-195"></a>   <span class="c">!        !                    ORBEL_FLON.F</span>
-<a name="ln-196"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-197"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn. for hyperbola using hybrid approach.</span>
-<a name="ln-198"></a>   <span class="c">!</span>
-<a name="ln-199"></a>   <span class="c">!             Input:</span>
-<a name="ln-200"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-201"></a>   <span class="c">!                        capn ==&gt; hyperbola mean anomaly. (real scalar)</span>
-<a name="ln-202"></a>   <span class="c">!             Returns:</span>
-<a name="ln-203"></a>   <span class="c">!                  orbel_flon ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-204"></a>   <span class="c">!</span>
-<a name="ln-205"></a>   <span class="c">!     ALGORITHM: Uses power series for N in terms of F and Newton,s method</span>
-<a name="ln-206"></a>   <span class="c">!     REMARKS: ONLY GOOD FOR LOW VALUES OF N (N &lt; 0.636*e -0.6)</span>
-<a name="ln-207"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-208"></a>   <span class="c">!     DATE WRITTEN: May 26, 1992.</span>
-<a name="ln-209"></a>   <span class="c">!     REVISIONS:</span>
-<a name="ln-210"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_flon</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">icapn</span><span class="p">)</span>
-<a name="ln-212"></a>      <span class="k">implicit none</span>
-<a name="ln-213"></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">e</span><span class="p">,</span> <span class="n">icapn</span>
-<a name="ln-214"></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">iflag</span><span class="p">,</span><span class="n">i</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="kd">::</span>  <span class="n">a</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">sq</span><span class="p">,</span><span class="n">biga</span><span class="p">,</span><span class="n">bigb</span><span class="p">,</span> <span class="n">capn</span>
-<a name="ln-216"></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">x</span><span class="p">,</span><span class="n">x2</span>
-<a name="ln-217"></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">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">dx</span>
-<a name="ln-218"></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">diff</span>
-<a name="ln-219"></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">a0</span><span class="p">,</span><span class="n">a1</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="kd">::</span>  <span class="n">b1</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">parameter</span> <span class="kd">::</span> <span class="n">IMAX</span> <span class="o">=</span> <span class="mi">10</span>
-<a name="ln-222"></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">a11</span> <span class="o">=</span> <span class="mi">15</span><span class="mf">6._DP</span><span class="p">,</span> <span class="n">a9</span> <span class="o">=</span> <span class="mi">1716</span><span class="mf">0._DP</span><span class="p">,</span> <span class="n">a7</span> <span class="o">=</span> <span class="mi">123552</span><span class="mf">0._DP</span>
-<a name="ln-223"></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">a5</span> <span class="o">=</span> <span class="mi">5189184</span><span class="mf">0._DP</span><span class="p">,</span>  <span class="n">a3</span> <span class="o">=</span> <span class="mi">103783680</span><span class="mf">0._DP</span>
-<a name="ln-224"></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">b11</span> <span class="o">=</span> <span class="mi">11</span> <span class="o">*</span> <span class="n">a11</span><span class="p">,</span> <span class="n">b9</span> <span class="o">=</span> <span class="mi">9</span> <span class="o">*</span> <span class="n">a9</span><span class="p">,</span> <span class="n">b7</span> <span class="o">=</span> <span class="mi">7</span> <span class="o">*</span> <span class="n">a7</span>
-<a name="ln-225"></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">b5</span> <span class="o">=</span> <span class="mi">5</span> <span class="o">*</span> <span class="n">a5</span><span class="p">,</span> <span class="n">b3</span> <span class="o">=</span> <span class="mi">3</span> <span class="o">*</span> <span class="n">a3</span>
-<a name="ln-226"></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">THIRD</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="mf">3._DP</span>
-<a name="ln-227"></a>
-<a name="ln-228"></a>      <span class="c">! Function to solve &quot;Kepler&#39;s eqn&quot; for F (here called</span>
-<a name="ln-229"></a>      <span class="c">! x) for given e and CAPN. Only good for smallish CAPN</span>
+<a name="ln-188"></a>      <span class="n">shx</span> <span class="o">=</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">angle</span><span class="p">)</span>
+<a name="ln-189"></a>      <span class="n">chx</span><span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">1._DP</span> <span class="o">+</span> <span class="n">shx</span> <span class="o">*</span> <span class="n">shx</span><span class="p">)</span>
+<a name="ln-190"></a>      
+<a name="ln-191"></a>      <span class="k">return</span>
+<a name="ln-192"></a><span class="k">   end subroutine </span><span class="n">orbel_schget</span>
+<a name="ln-193"></a>
+<a name="ln-194"></a>
+<a name="ln-195"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-196"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-197"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-198"></a>   <span class="c">!        !                    ORBEL_FLON.F</span>
+<a name="ln-199"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-200"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn. for hyperbola using hybrid approach.</span>
+<a name="ln-201"></a>   <span class="c">!</span>
+<a name="ln-202"></a>   <span class="c">!             Input:</span>
+<a name="ln-203"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-204"></a>   <span class="c">!                        capn ==&gt; hyperbola mean anomaly. (real scalar)</span>
+<a name="ln-205"></a>   <span class="c">!             Returns:</span>
+<a name="ln-206"></a>   <span class="c">!                  orbel_flon ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-207"></a>   <span class="c">!</span>
+<a name="ln-208"></a>   <span class="c">!     ALGORITHM: Uses power series for N in terms of F and Newton,s method</span>
+<a name="ln-209"></a>   <span class="c">!     REMARKS: ONLY GOOD FOR LOW VALUES OF N (N &lt; 0.636*e -0.6)</span>
+<a name="ln-210"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-211"></a>   <span class="c">!     DATE WRITTEN: May 26, 1992.</span>
+<a name="ln-212"></a>   <span class="c">!     REVISIONS:</span>
+<a name="ln-213"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_flon</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">icapn</span><span class="p">)</span>
+<a name="ln-215"></a>      <span class="k">implicit none</span>
+<a name="ln-216"></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">e</span><span class="p">,</span> <span class="n">icapn</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="kd">::</span> <span class="n">iflag</span><span class="p">,</span><span class="n">i</span>
+<a name="ln-218"></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">a</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">sq</span><span class="p">,</span><span class="n">biga</span><span class="p">,</span><span class="n">bigb</span><span class="p">,</span> <span class="n">capn</span>
+<a name="ln-219"></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">x</span><span class="p">,</span><span class="n">x2</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="kd">::</span>  <span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">dx</span>
+<a name="ln-221"></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">diff</span>
+<a name="ln-222"></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">a0</span><span class="p">,</span><span class="n">a1</span>
+<a name="ln-223"></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">b1</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="k">parameter</span> <span class="kd">::</span> <span class="n">IMAX</span> <span class="o">=</span> <span class="mi">10</span>
+<a name="ln-225"></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">a11</span> <span class="o">=</span> <span class="mi">15</span><span class="mf">6._DP</span><span class="p">,</span> <span class="n">a9</span> <span class="o">=</span> <span class="mi">1716</span><span class="mf">0._DP</span><span class="p">,</span> <span class="n">a7</span> <span class="o">=</span> <span class="mi">123552</span><span class="mf">0._DP</span>
+<a name="ln-226"></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">a5</span> <span class="o">=</span> <span class="mi">5189184</span><span class="mf">0._DP</span><span class="p">,</span>  <span class="n">a3</span> <span class="o">=</span> <span class="mi">103783680</span><span class="mf">0._DP</span>
+<a name="ln-227"></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">b11</span> <span class="o">=</span> <span class="mi">11</span> <span class="o">*</span> <span class="n">a11</span><span class="p">,</span> <span class="n">b9</span> <span class="o">=</span> <span class="mi">9</span> <span class="o">*</span> <span class="n">a9</span><span class="p">,</span> <span class="n">b7</span> <span class="o">=</span> <span class="mi">7</span> <span class="o">*</span> <span class="n">a7</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">parameter</span> <span class="kd">::</span> <span class="n">b5</span> <span class="o">=</span> <span class="mi">5</span> <span class="o">*</span> <span class="n">a5</span><span class="p">,</span> <span class="n">b3</span> <span class="o">=</span> <span class="mi">3</span> <span class="o">*</span> <span class="n">a3</span>
+<a name="ln-229"></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">THIRD</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="mf">3._DP</span>
 <a name="ln-230"></a>
-<a name="ln-231"></a>      <span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-232"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">icapn</span> <span class="o">&lt;</span> <span class="mf">0._DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-233"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-234"></a>         <span class="n">capn</span> <span class="o">=</span> <span class="o">-</span><span class="n">icapn</span>
-<a name="ln-235"></a>      <span class="k">else</span>
-<a name="ln-236"></a><span class="k">         </span><span class="n">capn</span> <span class="o">=</span> <span class="n">icapn</span>
-<a name="ln-237"></a>      <span class="k">end if</span>
-<a name="ln-238"></a>
-<a name="ln-239"></a><span class="k">      </span><span class="n">a1</span> <span class="o">=</span> <span class="mi">622702080</span><span class="mf">0._DP</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-240"></a>      <span class="n">a0</span> <span class="o">=</span> <span class="o">-</span><span class="mi">622702080</span><span class="mf">0._DP</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span>
-<a name="ln-241"></a>      <span class="n">b1</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-242"></a>
-<a name="ln-243"></a>      <span class="c">!  set iflag nonzero if capn &lt; 0., in which case solve for -capn</span>
-<a name="ln-244"></a>      <span class="c">!  and change the sign of the final answer for f.</span>
-<a name="ln-245"></a>      <span class="c">!  Begin with a reasonable guess based on solving the cubic for small F</span>
-<a name="ln-246"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mi">6</span> <span class="o">*</span> <span class="p">(</span> <span class="n">e</span> <span class="o">-</span> <span class="mf">1.d0</span><span class="p">)</span> <span class="o">/</span> <span class="n">e</span>
-<a name="ln-247"></a>      <span class="n">b</span> <span class="o">=</span> <span class="o">-</span><span class="mi">6</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span>
-<a name="ln-248"></a>      <span class="n">sq</span> <span class="o">=</span> <span class="nb">SQRT</span><span class="p">(</span><span class="mf">0.25_DP</span> <span class="o">*</span> <span class="n">b</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">a</span><span class="o">**</span><span class="mi">3</span> <span class="o">/</span> <span class="mi">2</span><span class="mf">7._DP</span><span class="p">)</span>
-<a name="ln-249"></a>      <span class="n">biga</span> <span class="o">=</span>  <span class="p">(</span><span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">b</span> <span class="o">+</span> <span class="n">sq</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-250"></a>      <span class="n">bigb</span> <span class="o">=</span> <span class="o">-</span><span class="p">(</span><span class="o">+</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">b</span> <span class="o">+</span> <span class="n">sq</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-251"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">biga</span> <span class="o">+</span> <span class="n">bigb</span>
-<a name="ln-252"></a>      <span class="c">! write(6,*) &#39;cubic = &#39;,x**3 +a*x +b</span>
-<a name="ln-253"></a>      <span class="n">orbel_flon</span> <span class="o">=</span> <span class="n">x</span>
-<a name="ln-254"></a>      <span class="c">! If capn is VSMALL (or zero) no need to go further than cubic even for</span>
-<a name="ln-255"></a>      <span class="c">! e =1.</span>
-<a name="ln-256"></a>      <span class="k">if</span><span class="p">(</span> <span class="n">capn</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="n">go</span> <span class="n">to</span> <span class="mi">100</span>
-<a name="ln-257"></a>
-<a name="ln-258"></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">IMAX</span>
-<a name="ln-259"></a>         <span class="n">x2</span> <span class="o">=</span> <span class="n">x</span> <span class="o">*</span> <span class="n">x</span>
-<a name="ln-260"></a>         <span class="n">f</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">+</span> <span class="n">x</span> <span class="o">*</span> <span class="p">(</span><span class="n">a1</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a3</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a5</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a7</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a9</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a11</span> <span class="o">+</span> <span class="n">x2</span><span class="p">))))))</span>
-<a name="ln-261"></a>         <span class="n">fp</span> <span class="o">=</span> <span class="n">b1</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b3</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b5</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b7</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b9</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b11</span> <span class="o">+</span> <span class="mi">13</span> <span class="o">*</span> <span class="n">x2</span><span class="p">)))))</span>
-<a name="ln-262"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
-<a name="ln-263"></a>         <span class="c">!   write(6,*) &#39;i,dx,x,f : &#39;</span>
-<a name="ln-264"></a>         <span class="c">!   write(6,432) i,dx,x,f</span>
-<a name="ln-265"></a>         <span class="mi">432</span>   <span class="k">format</span><span class="p">(</span><span class="mi">1</span><span class="n">x</span><span class="p">,</span><span class="n">i3</span><span class="p">,</span><span class="mi">3</span><span class="p">(</span><span class="mi">2</span><span class="n">x</span><span class="p">,</span><span class="mi">1</span><span class="n">p1e22</span><span class="p">.</span><span class="mi">15</span><span class="p">))</span>
-<a name="ln-266"></a>         <span class="n">orbel_flon</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
-<a name="ln-267"></a>         <span class="c">!   if we have converged here there&#39;s no point in going on</span>
-<a name="ln-268"></a>            <span class="k">if</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="n">go</span> <span class="n">to</span> <span class="mi">100</span>
-<a name="ln-269"></a>            <span class="n">x</span> <span class="o">=</span> <span class="n">orbel_flon</span>
-<a name="ln-270"></a>      <span class="k">end do</span>
-<a name="ln-271"></a>
-<a name="ln-272"></a>      <span class="c">! abnormal return here - we&#39;ve gone thru the loop</span>
-<a name="ln-273"></a>      <span class="c">! imax times without convergence</span>
-<a name="ln-274"></a>      <span class="k">if</span><span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-275"></a><span class="k">         </span><span class="n">orbel_flon</span> <span class="o">=</span> <span class="o">-</span><span class="n">orbel_flon</span>
-<a name="ln-276"></a>         <span class="n">capn</span> <span class="o">=</span> <span class="o">-</span><span class="n">capn</span>
-<a name="ln-277"></a>      <span class="k">end if</span>
-<a name="ln-278"></a>      <span class="c">!write(*,*) &#39;flon : returning without complete convergence&#39;</span>
-<a name="ln-279"></a>      <span class="n">diff</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">orbel_flon</span><span class="p">)</span> <span class="o">-</span> <span class="n">orbel_flon</span> <span class="o">-</span> <span class="n">capn</span>
-<a name="ln-280"></a>      <span class="c">!write(*,*) &#39;n, f, ecc*sinh(f) - f - n : &#39;</span>
-<a name="ln-281"></a>      <span class="c">!write(*,*) capn,orbel_flon,diff</span>
-<a name="ln-282"></a>      <span class="k">return</span>
-<a name="ln-283"></a>
-<a name="ln-284"></a>      <span class="c">!  normal return here, but check if capn was originally negative</span>
-<a name="ln-285"></a>      <span class="mi">100</span> <span class="k">if</span><span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-286"></a><span class="k">         </span><span class="n">orbel_flon</span> <span class="o">=</span> <span class="o">-</span><span class="n">orbel_flon</span>
-<a name="ln-287"></a>         <span class="n">capn</span> <span class="o">=</span> <span class="o">-</span><span class="n">capn</span>
-<a name="ln-288"></a>      <span class="k">end if</span>
-<a name="ln-289"></a>
-<a name="ln-290"></a><span class="k">      return</span>
-<a name="ln-291"></a><span class="k">   end function  </span><span class="n">orbel_flon</span>
+<a name="ln-231"></a>      <span class="c">! Function to solve &quot;Kepler&#39;s eqn&quot; for F (here called</span>
+<a name="ln-232"></a>      <span class="c">! x) for given e and CAPN. Only good for smallish CAPN</span>
+<a name="ln-233"></a>
+<a name="ln-234"></a>      <span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-235"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">icapn</span> <span class="o">&lt;</span> <span class="mf">0._DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-236"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-237"></a>         <span class="n">capn</span> <span class="o">=</span> <span class="o">-</span><span class="n">icapn</span>
+<a name="ln-238"></a>      <span class="k">else</span>
+<a name="ln-239"></a><span class="k">         </span><span class="n">capn</span> <span class="o">=</span> <span class="n">icapn</span>
+<a name="ln-240"></a>      <span class="k">end if</span>
+<a name="ln-241"></a>
+<a name="ln-242"></a><span class="k">      </span><span class="n">a1</span> <span class="o">=</span> <span class="mi">622702080</span><span class="mf">0._DP</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-243"></a>      <span class="n">a0</span> <span class="o">=</span> <span class="o">-</span><span class="mi">622702080</span><span class="mf">0._DP</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span>
+<a name="ln-244"></a>      <span class="n">b1</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-245"></a>
+<a name="ln-246"></a>      <span class="c">!  set iflag nonzero if capn &lt; 0., in which case solve for -capn</span>
+<a name="ln-247"></a>      <span class="c">!  and change the sign of the final answer for f.</span>
+<a name="ln-248"></a>      <span class="c">!  Begin with a reasonable guess based on solving the cubic for small F</span>
+<a name="ln-249"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mi">6</span> <span class="o">*</span> <span class="p">(</span> <span class="n">e</span> <span class="o">-</span> <span class="mf">1.d0</span><span class="p">)</span> <span class="o">/</span> <span class="n">e</span>
+<a name="ln-250"></a>      <span class="n">b</span> <span class="o">=</span> <span class="o">-</span><span class="mi">6</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span>
+<a name="ln-251"></a>      <span class="n">sq</span> <span class="o">=</span> <span class="nb">SQRT</span><span class="p">(</span><span class="mf">0.25_DP</span> <span class="o">*</span> <span class="n">b</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">a</span><span class="o">**</span><span class="mi">3</span> <span class="o">/</span> <span class="mi">2</span><span class="mf">7._DP</span><span class="p">)</span>
+<a name="ln-252"></a>      <span class="n">biga</span> <span class="o">=</span>  <span class="p">(</span><span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">b</span> <span class="o">+</span> <span class="n">sq</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-253"></a>      <span class="n">bigb</span> <span class="o">=</span> <span class="o">-</span><span class="p">(</span><span class="o">+</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">b</span> <span class="o">+</span> <span class="n">sq</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-254"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">biga</span> <span class="o">+</span> <span class="n">bigb</span>
+<a name="ln-255"></a>      <span class="c">! write(6,*) &#39;cubic = &#39;,x**3 +a*x +b</span>
+<a name="ln-256"></a>      <span class="n">orbel_flon</span> <span class="o">=</span> <span class="n">x</span>
+<a name="ln-257"></a>      <span class="c">! If capn is VSMALL (or zero) no need to go further than cubic even for</span>
+<a name="ln-258"></a>      <span class="c">! e =1.</span>
+<a name="ln-259"></a>      <span class="k">if</span><span class="p">(</span> <span class="n">capn</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="n">go</span> <span class="n">to</span> <span class="mi">100</span>
+<a name="ln-260"></a>
+<a name="ln-261"></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">IMAX</span>
+<a name="ln-262"></a>         <span class="n">x2</span> <span class="o">=</span> <span class="n">x</span> <span class="o">*</span> <span class="n">x</span>
+<a name="ln-263"></a>         <span class="n">f</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">+</span> <span class="n">x</span> <span class="o">*</span> <span class="p">(</span><span class="n">a1</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a3</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a5</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a7</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a9</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">a11</span> <span class="o">+</span> <span class="n">x2</span><span class="p">))))))</span>
+<a name="ln-264"></a>         <span class="n">fp</span> <span class="o">=</span> <span class="n">b1</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b3</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b5</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b7</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b9</span> <span class="o">+</span> <span class="n">x2</span> <span class="o">*</span> <span class="p">(</span><span class="n">b11</span> <span class="o">+</span> <span class="mi">13</span> <span class="o">*</span> <span class="n">x2</span><span class="p">)))))</span>
+<a name="ln-265"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
+<a name="ln-266"></a>         <span class="c">!   write(6,*) &#39;i,dx,x,f : &#39;</span>
+<a name="ln-267"></a>         <span class="c">!   write(6,432) i,dx,x,f</span>
+<a name="ln-268"></a>         <span class="mi">432</span>   <span class="k">format</span><span class="p">(</span><span class="mi">1</span><span class="n">x</span><span class="p">,</span><span class="n">i3</span><span class="p">,</span><span class="mi">3</span><span class="p">(</span><span class="mi">2</span><span class="n">x</span><span class="p">,</span><span class="mi">1</span><span class="n">p1e22</span><span class="p">.</span><span class="mi">15</span><span class="p">))</span>
+<a name="ln-269"></a>         <span class="n">orbel_flon</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
+<a name="ln-270"></a>         <span class="c">!   if we have converged here there&#39;s no point in going on</span>
+<a name="ln-271"></a>            <span class="k">if</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="n">go</span> <span class="n">to</span> <span class="mi">100</span>
+<a name="ln-272"></a>            <span class="n">x</span> <span class="o">=</span> <span class="n">orbel_flon</span>
+<a name="ln-273"></a>      <span class="k">end do</span>
+<a name="ln-274"></a>
+<a name="ln-275"></a>      <span class="c">! abnormal return here - we&#39;ve gone thru the loop</span>
+<a name="ln-276"></a>      <span class="c">! imax times without convergence</span>
+<a name="ln-277"></a>      <span class="k">if</span><span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-278"></a><span class="k">         </span><span class="n">orbel_flon</span> <span class="o">=</span> <span class="o">-</span><span class="n">orbel_flon</span>
+<a name="ln-279"></a>         <span class="n">capn</span> <span class="o">=</span> <span class="o">-</span><span class="n">capn</span>
+<a name="ln-280"></a>      <span class="k">end if</span>
+<a name="ln-281"></a>      <span class="c">!write(*,*) &#39;flon : returning without complete convergence&#39;</span>
+<a name="ln-282"></a>      <span class="n">diff</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">orbel_flon</span><span class="p">)</span> <span class="o">-</span> <span class="n">orbel_flon</span> <span class="o">-</span> <span class="n">capn</span>
+<a name="ln-283"></a>      <span class="c">!write(*,*) &#39;n, f, ecc*sinh(f) - f - n : &#39;</span>
+<a name="ln-284"></a>      <span class="c">!write(*,*) capn,orbel_flon,diff</span>
+<a name="ln-285"></a>      <span class="k">return</span>
+<a name="ln-286"></a>
+<a name="ln-287"></a>      <span class="c">!  normal return here, but check if capn was originally negative</span>
+<a name="ln-288"></a>      <span class="mi">100</span> <span class="k">if</span><span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-289"></a><span class="k">         </span><span class="n">orbel_flon</span> <span class="o">=</span> <span class="o">-</span><span class="n">orbel_flon</span>
+<a name="ln-290"></a>         <span class="n">capn</span> <span class="o">=</span> <span class="o">-</span><span class="n">capn</span>
+<a name="ln-291"></a>      <span class="k">end if</span>
 <a name="ln-292"></a>
-<a name="ln-293"></a>
-<a name="ln-294"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-295"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-296"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-297"></a>            <span class="c">!                    ORBEL_FGET.F</span>
-<a name="ln-298"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-299"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn. for hyperbola using hybrid approach.</span>
-<a name="ln-300"></a>   <span class="c">!</span>
-<a name="ln-301"></a>   <span class="c">!             Input:</span>
-<a name="ln-302"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-303"></a>   <span class="c">!                        capn ==&gt; hyperbola mean anomaly. (real scalar)</span>
-<a name="ln-304"></a>   <span class="c">!             Returns:</span>
-<a name="ln-305"></a>   <span class="c">!                  orbel_fget ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-306"></a>   <span class="c">!</span>
-<a name="ln-307"></a>   <span class="c">!     ALGORITHM: Based on pp. 70-72 of Fitzpatrick&#39;s book &quot;Principles of</span>
-<a name="ln-308"></a>   <span class="c">!           Cel. Mech. &quot;.  Quartic convergence from Danby&#39;s book.</span>
-<a name="ln-309"></a>   <span class="c">!     REMARKS:</span>
-<a name="ln-310"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-311"></a>   <span class="c">!     DATE WRITTEN: May 11, 1992.</span>
-<a name="ln-312"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
-<a name="ln-313"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_fget</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">capn</span><span class="p">)</span>
-<a name="ln-315"></a>      <span class="k">implicit none</span>
-<a name="ln-316"></a>
-<a name="ln-317"></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">e</span><span class="p">,</span><span class="n">capn</span>
-<a name="ln-318"></a>
-<a name="ln-319"></a>      <span class="kt">integer</span> <span class="kd">::</span> <span class="n">i</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="kd">::</span>  <span class="n">tmp</span><span class="p">,</span><span class="n">x</span><span class="p">,</span><span class="n">shx</span><span class="p">,</span><span class="n">chx</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="kd">::</span>  <span class="n">esh</span><span class="p">,</span><span class="n">ech</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">fpp</span><span class="p">,</span><span class="n">fppp</span><span class="p">,</span><span class="n">dx</span>
-<a name="ln-322"></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">IMAX</span> <span class="o">=</span> <span class="mi">10</span>
-<a name="ln-323"></a>
-<a name="ln-324"></a>      <span class="c">!----</span>
-<a name="ln-325"></a>      <span class="c">!...  executable code</span>
+<a name="ln-293"></a><span class="k">      return</span>
+<a name="ln-294"></a><span class="k">   end function </span><span class="n">orbel_flon</span>
+<a name="ln-295"></a>
+<a name="ln-296"></a>
+<a name="ln-297"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-298"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-299"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-300"></a>            <span class="c">!                    ORBEL_FGET.F</span>
+<a name="ln-301"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-302"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn. for hyperbola using hybrid approach.</span>
+<a name="ln-303"></a>   <span class="c">!</span>
+<a name="ln-304"></a>   <span class="c">!             Input:</span>
+<a name="ln-305"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-306"></a>   <span class="c">!                        capn ==&gt; hyperbola mean anomaly. (real scalar)</span>
+<a name="ln-307"></a>   <span class="c">!             Returns:</span>
+<a name="ln-308"></a>   <span class="c">!                  orbel_fget ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-309"></a>   <span class="c">!</span>
+<a name="ln-310"></a>   <span class="c">!     ALGORITHM: Based on pp. 70-72 of Fitzpatrick&#39;s book &quot;Principles of</span>
+<a name="ln-311"></a>   <span class="c">!           Cel. Mech. &quot;.  Quartic convergence from Danby&#39;s book.</span>
+<a name="ln-312"></a>   <span class="c">!     REMARKS:</span>
+<a name="ln-313"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-314"></a>   <span class="c">!     DATE WRITTEN: May 11, 1992.</span>
+<a name="ln-315"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
+<a name="ln-316"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_fget</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">capn</span><span class="p">)</span>
+<a name="ln-318"></a>      <span class="k">implicit none</span>
+<a name="ln-319"></a>
+<a name="ln-320"></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">e</span><span class="p">,</span><span class="n">capn</span>
+<a name="ln-321"></a>
+<a name="ln-322"></a>      <span class="kt">integer</span> <span class="kd">::</span> <span class="n">i</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="kd">::</span>  <span class="n">tmp</span><span class="p">,</span><span class="n">x</span><span class="p">,</span><span class="n">shx</span><span class="p">,</span><span class="n">chx</span>
+<a name="ln-324"></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">esh</span><span class="p">,</span><span class="n">ech</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">fpp</span><span class="p">,</span><span class="n">fppp</span><span class="p">,</span><span class="n">dx</span>
+<a name="ln-325"></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">IMAX</span> <span class="o">=</span> <span class="mi">10</span>
 <a name="ln-326"></a>
-<a name="ln-327"></a>      <span class="c">! function to solve &quot;kepler&#39;s eqn&quot; for f (here called</span>
-<a name="ln-328"></a>      <span class="c">! x) for given e and capn.</span>
+<a name="ln-327"></a>      <span class="c">!----</span>
+<a name="ln-328"></a>      <span class="c">!...  executable code</span>
 <a name="ln-329"></a>
-<a name="ln-330"></a>      <span class="c">!  begin with a guess proposed by danby</span>
-<a name="ln-331"></a>      <span class="k">if</span><span class="p">(</span> <span class="n">capn</span> <span class="o">&lt;</span> <span class="mf">0.d0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-332"></a><span class="k">         </span><span class="n">tmp</span> <span class="o">=</span> <span class="o">-</span><span class="mi">2</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span> <span class="o">+</span> <span class="mf">1.8_DP</span>
-<a name="ln-333"></a>         <span class="n">x</span> <span class="o">=</span> <span class="o">-</span><span class="nb">log</span><span class="p">(</span><span class="n">tmp</span><span class="p">)</span>
-<a name="ln-334"></a>      <span class="k">else</span>
-<a name="ln-335"></a><span class="k">         </span><span class="n">tmp</span> <span class="o">=</span> <span class="o">+</span><span class="mi">2</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span> <span class="o">+</span> <span class="mf">1.8_DP</span>
-<a name="ln-336"></a>         <span class="n">x</span> <span class="o">=</span> <span class="nb">log</span><span class="p">(</span><span class="n">tmp</span><span class="p">)</span>
-<a name="ln-337"></a>      <span class="k">end if</span>
-<a name="ln-338"></a>
-<a name="ln-339"></a><span class="k">      </span><span class="n">orbel_fget</span> <span class="o">=</span> <span class="n">x</span>
-<a name="ln-340"></a>
-<a name="ln-341"></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">IMAX</span>
-<a name="ln-342"></a>         <span class="k">call </span><span class="n">orbel_schget</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="n">shx</span><span class="p">,</span><span class="n">chx</span><span class="p">)</span>
-<a name="ln-343"></a>         <span class="n">esh</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">shx</span>
-<a name="ln-344"></a>         <span class="n">ech</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">chx</span>
-<a name="ln-345"></a>         <span class="n">f</span> <span class="o">=</span> <span class="n">esh</span> <span class="o">-</span> <span class="n">x</span> <span class="o">-</span> <span class="n">capn</span>
-<a name="ln-346"></a>      <span class="c">!   write(6,*) &#39;i,x,f : &#39;,i,x,f</span>
-<a name="ln-347"></a>         <span class="n">fp</span> <span class="o">=</span> <span class="n">ech</span> <span class="o">-</span> <span class="mf">1.d0</span>
-<a name="ln-348"></a>         <span class="n">fpp</span> <span class="o">=</span> <span class="n">esh</span>
-<a name="ln-349"></a>         <span class="n">fppp</span> <span class="o">=</span> <span class="n">ech</span>
-<a name="ln-350"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
-<a name="ln-351"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
-<a name="ln-352"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
-<a name="ln-353"></a>         <span class="n">orbel_fget</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
-<a name="ln-354"></a>      <span class="c">!   if we have converged here there&#39;s no point in going on</span>
-<a name="ln-355"></a>         <span class="k">if</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-356"></a><span class="k">         </span><span class="n">x</span> <span class="o">=</span> <span class="n">orbel_fget</span>
-<a name="ln-357"></a>      <span class="k">end do</span>
-<a name="ln-358"></a>
-<a name="ln-359"></a>      <span class="c">!write(*,*) &#39;fget : returning without complete convergence&#39;</span>
-<a name="ln-360"></a>      <span class="k">return</span>
-<a name="ln-361"></a><span class="k">   end function  </span><span class="n">orbel_fget</span>
-<a name="ln-362"></a>
-<a name="ln-363"></a>
-<a name="ln-364"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-365"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-366"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-367"></a>   <span class="c">!                    ORBEL_ZGET.F</span>
-<a name="ln-368"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-369"></a>   <span class="c">!     PURPOSE:  Solves the equivalent of Kepler&#39;s eqn. for a parabola</span>
-<a name="ln-370"></a>   <span class="c">!          given Q (Fitz. notation.)</span>
-<a name="ln-371"></a>   <span class="c">!  </span>
-<a name="ln-372"></a>   <span class="c">!             Input:</span>
-<a name="ln-373"></a>   <span class="c">!                           q ==&gt;  parabola mean anomaly. (real scalar)</span>
-<a name="ln-374"></a>   <span class="c">!             Returns:</span>
-<a name="ln-375"></a>   <span class="c">!                  orbel_zget ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-376"></a>   <span class="c">!</span>
-<a name="ln-377"></a>   <span class="c">!     ALGORITHM: p. 70-72 of Fitzpatrick&#39;s book &quot;Princ. of Cel. Mech.&quot;</span>
-<a name="ln-378"></a>   <span class="c">!     REMARKS: For a parabola we can solve analytically.</span>
-<a name="ln-379"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-380"></a>   <span class="c">!     DATE WRITTEN: May 11, 1992.</span>
-<a name="ln-381"></a>   <span class="c">!     REVISIONS: May 27 - corrected it for negative Q and use power</span>
-<a name="ln-382"></a>   <span class="c">!       series for small Q.</span>
-<a name="ln-383"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_zget</span><span class="p">(</span><span class="n">iq</span><span class="p">)</span>
-<a name="ln-385"></a>      <span class="k">implicit none</span>
-<a name="ln-386"></a>
-<a name="ln-387"></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">iq</span>
-<a name="ln-388"></a>
-<a name="ln-389"></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">iflag</span>
-<a name="ln-390"></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">x</span><span class="p">,</span><span class="n">tmp</span><span class="p">,</span><span class="n">q</span>
-<a name="ln-391"></a>      
-<a name="ln-392"></a>      <span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-393"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iq</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-394"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-395"></a>         <span class="n">q</span> <span class="o">=</span> <span class="o">-</span><span class="n">iq</span>
-<a name="ln-396"></a>      <span class="k">else</span>
-<a name="ln-397"></a><span class="k">         </span><span class="n">q</span> <span class="o">=</span> <span class="n">iq</span>
-<a name="ln-398"></a>      <span class="k">end if</span>
-<a name="ln-399"></a>
-<a name="ln-400"></a><span class="k">      if</span> <span class="p">(</span><span class="n">q</span> <span class="o">&lt;</span> <span class="mf">1.e-3_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-401"></a><span class="k">         </span><span class="n">orbel_zget</span> <span class="o">=</span> <span class="n">q</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="p">(</span><span class="n">q</span><span class="o">**</span><span class="mi">2</span> <span class="o">/</span> <span class="mf">3._DP</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="n">q</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span>
-<a name="ln-402"></a>      <span class="k">else</span>
-<a name="ln-403"></a><span class="k">         </span><span class="n">x</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">q</span> <span class="o">+</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">9</span> <span class="o">*</span> <span class="n">q</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="mf">4._DP</span><span class="p">))</span>
-<a name="ln-404"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">x</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-405"></a>         <span class="n">orbel_zget</span> <span class="o">=</span> <span class="n">tmp</span> <span class="o">-</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="n">tmp</span>
-<a name="ln-406"></a>      <span class="k">end if</span>
-<a name="ln-407"></a>
-<a name="ln-408"></a><span class="k">      if</span><span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-409"></a><span class="k">         </span><span class="n">orbel_zget</span> <span class="o">=</span> <span class="o">-</span><span class="n">orbel_zget</span>
-<a name="ln-410"></a>         <span class="n">q</span> <span class="o">=</span> <span class="o">-</span><span class="n">q</span>
-<a name="ln-411"></a>      <span class="k">end if</span>
-<a name="ln-412"></a>
-<a name="ln-413"></a><span class="k">      return</span>
-<a name="ln-414"></a><span class="k">   end function </span><span class="n">orbel_zget</span>
+<a name="ln-330"></a>      <span class="c">! function to solve &quot;kepler&#39;s eqn&quot; for f (here called</span>
+<a name="ln-331"></a>      <span class="c">! x) for given e and capn.</span>
+<a name="ln-332"></a>
+<a name="ln-333"></a>      <span class="c">!  begin with a guess proposed by danby</span>
+<a name="ln-334"></a>      <span class="k">if</span><span class="p">(</span> <span class="n">capn</span> <span class="o">&lt;</span> <span class="mf">0.d0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-335"></a><span class="k">         </span><span class="n">tmp</span> <span class="o">=</span> <span class="o">-</span><span class="mi">2</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span> <span class="o">+</span> <span class="mf">1.8_DP</span>
+<a name="ln-336"></a>         <span class="n">x</span> <span class="o">=</span> <span class="o">-</span><span class="nb">log</span><span class="p">(</span><span class="n">tmp</span><span class="p">)</span>
+<a name="ln-337"></a>      <span class="k">else</span>
+<a name="ln-338"></a><span class="k">         </span><span class="n">tmp</span> <span class="o">=</span> <span class="o">+</span><span class="mi">2</span> <span class="o">*</span> <span class="n">capn</span> <span class="o">/</span> <span class="n">e</span> <span class="o">+</span> <span class="mf">1.8_DP</span>
+<a name="ln-339"></a>         <span class="n">x</span> <span class="o">=</span> <span class="nb">log</span><span class="p">(</span><span class="n">tmp</span><span class="p">)</span>
+<a name="ln-340"></a>      <span class="k">end if</span>
+<a name="ln-341"></a>
+<a name="ln-342"></a><span class="k">      </span><span class="n">orbel_fget</span> <span class="o">=</span> <span class="n">x</span>
+<a name="ln-343"></a>
+<a name="ln-344"></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">IMAX</span>
+<a name="ln-345"></a>         <span class="k">call </span><span class="n">orbel_schget</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="n">shx</span><span class="p">,</span><span class="n">chx</span><span class="p">)</span>
+<a name="ln-346"></a>         <span class="n">esh</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">shx</span>
+<a name="ln-347"></a>         <span class="n">ech</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">chx</span>
+<a name="ln-348"></a>         <span class="n">f</span> <span class="o">=</span> <span class="n">esh</span> <span class="o">-</span> <span class="n">x</span> <span class="o">-</span> <span class="n">capn</span>
+<a name="ln-349"></a>      <span class="c">!   write(6,*) &#39;i,x,f : &#39;,i,x,f</span>
+<a name="ln-350"></a>         <span class="n">fp</span> <span class="o">=</span> <span class="n">ech</span> <span class="o">-</span> <span class="mf">1.d0</span>
+<a name="ln-351"></a>         <span class="n">fpp</span> <span class="o">=</span> <span class="n">esh</span>
+<a name="ln-352"></a>         <span class="n">fppp</span> <span class="o">=</span> <span class="n">ech</span>
+<a name="ln-353"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
+<a name="ln-354"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
+<a name="ln-355"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
+<a name="ln-356"></a>         <span class="n">orbel_fget</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
+<a name="ln-357"></a>      <span class="c">!   if we have converged here there&#39;s no point in going on</span>
+<a name="ln-358"></a>         <span class="k">if</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-359"></a><span class="k">         </span><span class="n">x</span> <span class="o">=</span> <span class="n">orbel_fget</span>
+<a name="ln-360"></a>      <span class="k">end do</span>
+<a name="ln-361"></a>
+<a name="ln-362"></a>      <span class="c">!write(*,*) &#39;fget : returning without complete convergence&#39;</span>
+<a name="ln-363"></a>      <span class="k">return</span>
+<a name="ln-364"></a><span class="k">   end function </span><span class="n">orbel_fget</span>
+<a name="ln-365"></a>
+<a name="ln-366"></a>
+<a name="ln-367"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-368"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-369"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-370"></a>   <span class="c">!                    ORBEL_ZGET.F</span>
+<a name="ln-371"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-372"></a>   <span class="c">!     PURPOSE:  Solves the equivalent of Kepler&#39;s eqn. for a parabola</span>
+<a name="ln-373"></a>   <span class="c">!          given Q (Fitz. notation.)</span>
+<a name="ln-374"></a>   <span class="c">!  </span>
+<a name="ln-375"></a>   <span class="c">!             Input:</span>
+<a name="ln-376"></a>   <span class="c">!                           q ==&gt;  parabola mean anomaly. (real scalar)</span>
+<a name="ln-377"></a>   <span class="c">!             Returns:</span>
+<a name="ln-378"></a>   <span class="c">!                  orbel_zget ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-379"></a>   <span class="c">!</span>
+<a name="ln-380"></a>   <span class="c">!     ALGORITHM: p. 70-72 of Fitzpatrick&#39;s book &quot;Princ. of Cel. Mech.&quot;</span>
+<a name="ln-381"></a>   <span class="c">!     REMARKS: For a parabola we can solve analytically.</span>
+<a name="ln-382"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-383"></a>   <span class="c">!     DATE WRITTEN: May 11, 1992.</span>
+<a name="ln-384"></a>   <span class="c">!     REVISIONS: May 27 - corrected it for negative Q and use power</span>
+<a name="ln-385"></a>   <span class="c">!       series for small Q.</span>
+<a name="ln-386"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_zget</span><span class="p">(</span><span class="n">iq</span><span class="p">)</span>
+<a name="ln-388"></a>      <span class="k">implicit none</span>
+<a name="ln-389"></a>
+<a name="ln-390"></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">iq</span>
+<a name="ln-391"></a>
+<a name="ln-392"></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">iflag</span>
+<a name="ln-393"></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">x</span><span class="p">,</span><span class="n">tmp</span><span class="p">,</span><span class="n">q</span>
+<a name="ln-394"></a>      
+<a name="ln-395"></a>      <span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-396"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iq</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-397"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-398"></a>         <span class="n">q</span> <span class="o">=</span> <span class="o">-</span><span class="n">iq</span>
+<a name="ln-399"></a>      <span class="k">else</span>
+<a name="ln-400"></a><span class="k">         </span><span class="n">q</span> <span class="o">=</span> <span class="n">iq</span>
+<a name="ln-401"></a>      <span class="k">end if</span>
+<a name="ln-402"></a>
+<a name="ln-403"></a><span class="k">      if</span> <span class="p">(</span><span class="n">q</span> <span class="o">&lt;</span> <span class="mf">1.e-3_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-404"></a><span class="k">         </span><span class="n">orbel_zget</span> <span class="o">=</span> <span class="n">q</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="p">(</span><span class="n">q</span><span class="o">**</span><span class="mi">2</span> <span class="o">/</span> <span class="mf">3._DP</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="n">q</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span>
+<a name="ln-405"></a>      <span class="k">else</span>
+<a name="ln-406"></a><span class="k">         </span><span class="n">x</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">q</span> <span class="o">+</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">9</span> <span class="o">*</span> <span class="n">q</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="mf">4._DP</span><span class="p">))</span>
+<a name="ln-407"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">x</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-408"></a>         <span class="n">orbel_zget</span> <span class="o">=</span> <span class="n">tmp</span> <span class="o">-</span> <span class="mf">1._DP</span> <span class="o">/</span> <span class="n">tmp</span>
+<a name="ln-409"></a>      <span class="k">end if</span>
+<a name="ln-410"></a>
+<a name="ln-411"></a><span class="k">      if</span><span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-412"></a><span class="k">         </span><span class="n">orbel_zget</span> <span class="o">=</span> <span class="o">-</span><span class="n">orbel_zget</span>
+<a name="ln-413"></a>         <span class="n">q</span> <span class="o">=</span> <span class="o">-</span><span class="n">q</span>
+<a name="ln-414"></a>      <span class="k">end if</span>
 <a name="ln-415"></a>
-<a name="ln-416"></a>
-<a name="ln-417"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-418"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-419"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-420"></a>   <span class="c">!                    ORBEL_ESOLMD.F</span>
-<a name="ln-421"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-422"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
-<a name="ln-423"></a>   <span class="c">!</span>
-<a name="ln-424"></a>   <span class="c">!             Input:</span>
-<a name="ln-425"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-426"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
-<a name="ln-427"></a>   <span class="c">!             Returns:</span>
-<a name="ln-428"></a>   <span class="c">!                orbel_esolmd ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-429"></a>   <span class="c">!</span>
-<a name="ln-430"></a>   <span class="c">!     ALGORITHM: Some sort of quartic convergence from Wisdom.</span>
-<a name="ln-431"></a>   <span class="c">!     REMARKS: ONLY GOOD FOR SMALL ECCENTRICITY SINCE IT ONLY</span>
-<a name="ln-432"></a>   <span class="c">!         ITERATES ONCE. (GOOD FOR PLANET CALCS.)</span>
-<a name="ln-433"></a>   <span class="c">!         ALSO DOES NOT PUT M OR E BETWEEN 0. AND 2*PI</span>
-<a name="ln-434"></a>   <span class="c">!     INCLUDES: needs SCGET.F</span>
-<a name="ln-435"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-436"></a>   <span class="c">!     DATE WRITTEN: May 7, 1992.</span>
-<a name="ln-437"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
-<a name="ln-438"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-439"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_esolmd</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
-<a name="ln-440"></a>      <span class="k">implicit none</span>
-<a name="ln-441"></a>
-<a name="ln-442"></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">e</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">m</span>
+<a name="ln-416"></a><span class="k">      return</span>
+<a name="ln-417"></a><span class="k">   end function </span><span class="n">orbel_zget</span>
+<a name="ln-418"></a>
+<a name="ln-419"></a>
+<a name="ln-420"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-421"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-422"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-423"></a>   <span class="c">!                    ORBEL_ESOLMD.F</span>
+<a name="ln-424"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-425"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
+<a name="ln-426"></a>   <span class="c">!</span>
+<a name="ln-427"></a>   <span class="c">!             Input:</span>
+<a name="ln-428"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-429"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
+<a name="ln-430"></a>   <span class="c">!             Returns:</span>
+<a name="ln-431"></a>   <span class="c">!                orbel_esolmd ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-432"></a>   <span class="c">!</span>
+<a name="ln-433"></a>   <span class="c">!     ALGORITHM: Some sort of quartic convergence from Wisdom.</span>
+<a name="ln-434"></a>   <span class="c">!     REMARKS: ONLY GOOD FOR SMALL ECCENTRICITY SINCE IT ONLY</span>
+<a name="ln-435"></a>   <span class="c">!         ITERATES ONCE. (GOOD FOR PLANET CALCS.)</span>
+<a name="ln-436"></a>   <span class="c">!         ALSO DOES NOT PUT M OR E BETWEEN 0. AND 2*PI</span>
+<a name="ln-437"></a>   <span class="c">!     INCLUDES: needs SCGET.F</span>
+<a name="ln-438"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-439"></a>   <span class="c">!     DATE WRITTEN: May 7, 1992.</span>
+<a name="ln-440"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
+<a name="ln-441"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_esolmd</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
+<a name="ln-443"></a>      <span class="k">implicit none</span>
 <a name="ln-444"></a>
-<a name="ln-445"></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">x</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">,</span><span class="n">sx</span><span class="p">,</span><span class="n">cx</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="kd">::</span> <span class="n">es</span><span class="p">,</span><span class="n">ec</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">fpp</span><span class="p">,</span><span class="n">fppp</span><span class="p">,</span><span class="n">dx</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">e</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">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">m</span>
 <a name="ln-447"></a>
-<a name="ln-448"></a>      <span class="c">!...    function to solve kepler&#39;s eqn for e (here called</span>
-<a name="ln-449"></a>      <span class="c">!...    x) for given e and m. returns value of x.</span>
+<a name="ln-448"></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">x</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">,</span><span class="n">sx</span><span class="p">,</span><span class="n">cx</span>
+<a name="ln-449"></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">es</span><span class="p">,</span><span class="n">ec</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">fpp</span><span class="p">,</span><span class="n">fppp</span><span class="p">,</span><span class="n">dx</span>
 <a name="ln-450"></a>
-<a name="ln-451"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">)</span>
-<a name="ln-452"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sm</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span> <span class="n">cm</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="mf">1.5_DP</span> <span class="o">*</span> <span class="n">sm</span><span class="o">**</span><span class="mi">2</span><span class="p">)))</span>
+<a name="ln-451"></a>      <span class="c">!...    function to solve kepler&#39;s eqn for e (here called</span>
+<a name="ln-452"></a>      <span class="c">!...    x) for given e and m. returns value of x.</span>
 <a name="ln-453"></a>
-<a name="ln-454"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</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-455"></a>      <span class="n">es</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sx</span>
-<a name="ln-456"></a>      <span class="n">ec</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">cx</span>
-<a name="ln-457"></a>      <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">es</span>  <span class="o">-</span> <span class="n">m</span>
-<a name="ln-458"></a>      <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span> <span class="n">ec</span>
-<a name="ln-459"></a>      <span class="n">fpp</span> <span class="o">=</span> <span class="n">es</span>
-<a name="ln-460"></a>      <span class="n">fppp</span> <span class="o">=</span> <span class="n">ec</span>
-<a name="ln-461"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
-<a name="ln-462"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
-<a name="ln-463"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
-<a name="ln-464"></a>
-<a name="ln-465"></a>      <span class="n">orbel_esolmd</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</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 function </span><span class="n">orbel_esolmd</span>
+<a name="ln-454"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">)</span>
+<a name="ln-455"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sm</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span> <span class="n">cm</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="mf">1.5_DP</span> <span class="o">*</span> <span class="n">sm</span><span class="o">**</span><span class="mi">2</span><span class="p">)))</span>
+<a name="ln-456"></a>
+<a name="ln-457"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</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-458"></a>      <span class="n">es</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sx</span>
+<a name="ln-459"></a>      <span class="n">ec</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">cx</span>
+<a name="ln-460"></a>      <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">es</span>  <span class="o">-</span> <span class="n">m</span>
+<a name="ln-461"></a>      <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span> <span class="n">ec</span>
+<a name="ln-462"></a>      <span class="n">fpp</span> <span class="o">=</span> <span class="n">es</span>
+<a name="ln-463"></a>      <span class="n">fppp</span> <span class="o">=</span> <span class="n">ec</span>
+<a name="ln-464"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
+<a name="ln-465"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
+<a name="ln-466"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
+<a name="ln-467"></a>
+<a name="ln-468"></a>      <span class="n">orbel_esolmd</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
 <a name="ln-469"></a>
-<a name="ln-470"></a>
-<a name="ln-471"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-472"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-473"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-474"></a>   <span class="c">!                    ORBEL_EHIE.F</span>
-<a name="ln-475"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-476"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
-<a name="ln-477"></a>   <span class="c">!</span>
-<a name="ln-478"></a>   <span class="c">!             Input:</span>
-<a name="ln-479"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-480"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
-<a name="ln-481"></a>   <span class="c">!             Returns:</span>
-<a name="ln-482"></a>   <span class="c">!              orbel_ehybrid ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-483"></a>   <span class="c">!</span>
-<a name="ln-484"></a>   <span class="c">!     ALGORITHM: Use Danby&#39;s quartic for 3 iterations.</span>
-<a name="ln-485"></a>   <span class="c">!                Eqn. is f(x) = x - e*sin(x+M). Note  that</span>
-<a name="ln-486"></a>   <span class="c">!          E = x + M. First guess is very good for e near 1.</span>
-<a name="ln-487"></a>   <span class="c">!          Need to first get M between 0. and PI and use</span>
-<a name="ln-488"></a>   <span class="c">!   symmetry to return right answer if M between PI and 2PI</span>
-<a name="ln-489"></a>   <span class="c">!     REMARKS: Modifies M so that both E and M are in range (0,TWOPI)</span>
-<a name="ln-490"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-491"></a>   <span class="c">!     DATE WRITTEN: May 25,1992.</span>
-<a name="ln-492"></a>   <span class="c">!     REVISIONS:</span>
-<a name="ln-493"></a>   <span class="c">!**********************************************************************</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">pure function </span><span class="n">orbel_ehie</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">im</span><span class="p">)</span>
-<a name="ln-495"></a>      <span class="k">implicit none</span>
-<a name="ln-496"></a>
-<a name="ln-497"></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">e</span><span class="p">,</span><span class="n">im</span>
-<a name="ln-498"></a>
-<a name="ln-499"></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">iflag</span><span class="p">,</span><span class="n">nper</span><span class="p">,</span><span class="n">niter</span>
-<a name="ln-500"></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">dx</span><span class="p">,</span><span class="n">x</span><span class="p">,</span><span class="n">sa</span><span class="p">,</span><span class="n">ca</span><span class="p">,</span><span class="n">esa</span><span class="p">,</span><span class="n">eca</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">m</span>
+<a name="ln-470"></a>      <span class="k">return   </span>
+<a name="ln-471"></a><span class="k">   end function </span><span class="n">orbel_esolmd</span>
+<a name="ln-472"></a>
+<a name="ln-473"></a>
+<a name="ln-474"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-475"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-476"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-477"></a>   <span class="c">!                    ORBEL_EHIE.F</span>
+<a name="ln-478"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-479"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
+<a name="ln-480"></a>   <span class="c">!</span>
+<a name="ln-481"></a>   <span class="c">!             Input:</span>
+<a name="ln-482"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-483"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
+<a name="ln-484"></a>   <span class="c">!             Returns:</span>
+<a name="ln-485"></a>   <span class="c">!              orbel_ehybrid ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-486"></a>   <span class="c">!</span>
+<a name="ln-487"></a>   <span class="c">!     ALGORITHM: Use Danby&#39;s quartic for 3 iterations.</span>
+<a name="ln-488"></a>   <span class="c">!                Eqn. is f(x) = x - e*sin(x+M). Note  that</span>
+<a name="ln-489"></a>   <span class="c">!          E = x + M. First guess is very good for e near 1.</span>
+<a name="ln-490"></a>   <span class="c">!          Need to first get M between 0. and PI and use</span>
+<a name="ln-491"></a>   <span class="c">!   symmetry to return right answer if M between PI and 2PI</span>
+<a name="ln-492"></a>   <span class="c">!     REMARKS: Modifies M so that both E and M are in range (0,TWOPI)</span>
+<a name="ln-493"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-494"></a>   <span class="c">!     DATE WRITTEN: May 25,1992.</span>
+<a name="ln-495"></a>   <span class="c">!     REVISIONS:</span>
+<a name="ln-496"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-497"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_ehie</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">im</span><span class="p">)</span>
+<a name="ln-498"></a>      <span class="k">implicit none</span>
+<a name="ln-499"></a>
+<a name="ln-500"></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">e</span><span class="p">,</span><span class="n">im</span>
 <a name="ln-501"></a>
-<a name="ln-502"></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">NMAX</span> <span class="o">=</span> <span class="mi">3</span>
-<a name="ln-503"></a>
-<a name="ln-504"></a>      <span class="c">! in this section, bring m into the range (0,TWOPI) and if</span>
-<a name="ln-505"></a>      <span class="c">! the result is greater than pi, solve for (TWOPI - m).</span>
-<a name="ln-506"></a>      <span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-507"></a>      <span class="n">nper</span> <span class="o">=</span> <span class="n">im</span> <span class="o">/</span> <span class="n">TWOPI</span>
-<a name="ln-508"></a>      <span class="n">m</span> <span class="o">=</span> <span class="n">im</span> <span class="o">-</span> <span class="n">nper</span> <span class="o">*</span> <span class="n">TWOPI</span>
-<a name="ln-509"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">m</span> <span class="o">&lt;</span> <span class="mf">0._DP</span><span class="p">)</span> <span class="n">m</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-510"></a>
-<a name="ln-511"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">m</span> <span class="o">&gt;</span> <span class="n">PI</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-512"></a><span class="k">         </span><span class="n">m</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">m</span>
-<a name="ln-513"></a>         <span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-514"></a>      <span class="k">end if</span>
-<a name="ln-515"></a>
-<a name="ln-516"></a>      <span class="c">! make a first guess that works well for e near 1.</span>
-<a name="ln-517"></a>      <span class="n">x</span> <span class="o">=</span> <span class="p">(</span><span class="mi">6</span> <span class="o">*</span> <span class="n">m</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> <span class="o">-</span> <span class="n">m</span>
-<a name="ln-518"></a>      <span class="n">niter</span> <span class="o">=</span><span class="mi">0</span>
-<a name="ln-519"></a>
-<a name="ln-520"></a>      <span class="c">! iteration loop</span>
-<a name="ln-521"></a>      <span class="k">do </span><span class="n">niter</span> <span class="o">=</span><span class="mi">1</span><span class="p">,</span><span class="n">NMAX</span>
-<a name="ln-522"></a>         <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</span> <span class="o">+</span> <span class="n">m</span><span class="p">,</span><span class="n">sa</span><span class="p">,</span><span class="n">ca</span><span class="p">)</span>
-<a name="ln-523"></a>         <span class="n">esa</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sa</span>
-<a name="ln-524"></a>         <span class="n">eca</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">ca</span>
-<a name="ln-525"></a>         <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">esa</span>
-<a name="ln-526"></a>         <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span><span class="n">eca</span>
-<a name="ln-527"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
-<a name="ln-528"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">esa</span><span class="p">)</span>
-<a name="ln-529"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dx</span> <span class="o">*</span> <span class="p">(</span><span class="n">esa</span> <span class="o">+</span> <span class="n">eca</span> <span class="o">*</span> <span class="n">dx</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">))</span>
-<a name="ln-530"></a>         <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
-<a name="ln-531"></a>      <span class="k">end do</span>
-<a name="ln-532"></a>
-<a name="ln-533"></a><span class="k">      </span><span class="n">orbel_ehie</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">x</span>
-<a name="ln-534"></a>
-<a name="ln-535"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-536"></a><span class="k">         </span><span class="n">orbel_ehie</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">orbel_ehie</span>
-<a name="ln-537"></a>         <span class="n">m</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">m</span>
-<a name="ln-538"></a>      <span class="k">end if</span>
-<a name="ln-539"></a>
-<a name="ln-540"></a><span class="k">      return</span>
-<a name="ln-541"></a><span class="k">   end function </span><span class="n">orbel_ehie</span>
+<a name="ln-502"></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">iflag</span><span class="p">,</span><span class="n">nper</span><span class="p">,</span><span class="n">niter</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="kd">::</span> <span class="n">dx</span><span class="p">,</span><span class="n">x</span><span class="p">,</span><span class="n">sa</span><span class="p">,</span><span class="n">ca</span><span class="p">,</span><span class="n">esa</span><span class="p">,</span><span class="n">eca</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">m</span>
+<a name="ln-504"></a>
+<a name="ln-505"></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">NMAX</span> <span class="o">=</span> <span class="mi">3</span>
+<a name="ln-506"></a>
+<a name="ln-507"></a>      <span class="c">! in this section, bring m into the range (0,TWOPI) and if</span>
+<a name="ln-508"></a>      <span class="c">! the result is greater than pi, solve for (TWOPI - m).</span>
+<a name="ln-509"></a>      <span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-510"></a>      <span class="n">nper</span> <span class="o">=</span> <span class="n">im</span> <span class="o">/</span> <span class="n">TWOPI</span>
+<a name="ln-511"></a>      <span class="n">m</span> <span class="o">=</span> <span class="n">im</span> <span class="o">-</span> <span class="n">nper</span> <span class="o">*</span> <span class="n">TWOPI</span>
+<a name="ln-512"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">m</span> <span class="o">&lt;</span> <span class="mf">0._DP</span><span class="p">)</span> <span class="n">m</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-513"></a>
+<a name="ln-514"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">m</span> <span class="o">&gt;</span> <span class="n">PI</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-515"></a><span class="k">         </span><span class="n">m</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">m</span>
+<a name="ln-516"></a>         <span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-517"></a>      <span class="k">end if</span>
+<a name="ln-518"></a>
+<a name="ln-519"></a>      <span class="c">! make a first guess that works well for e near 1.</span>
+<a name="ln-520"></a>      <span class="n">x</span> <span class="o">=</span> <span class="p">(</span><span class="mi">6</span> <span class="o">*</span> <span class="n">m</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> <span class="o">-</span> <span class="n">m</span>
+<a name="ln-521"></a>      <span class="n">niter</span> <span class="o">=</span><span class="mi">0</span>
+<a name="ln-522"></a>
+<a name="ln-523"></a>      <span class="c">! iteration loop</span>
+<a name="ln-524"></a>      <span class="k">do </span><span class="n">niter</span> <span class="o">=</span><span class="mi">1</span><span class="p">,</span><span class="n">NMAX</span>
+<a name="ln-525"></a>         <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</span> <span class="o">+</span> <span class="n">m</span><span class="p">,</span><span class="n">sa</span><span class="p">,</span><span class="n">ca</span><span class="p">)</span>
+<a name="ln-526"></a>         <span class="n">esa</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sa</span>
+<a name="ln-527"></a>         <span class="n">eca</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">ca</span>
+<a name="ln-528"></a>         <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">esa</span>
+<a name="ln-529"></a>         <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span><span class="n">eca</span>
+<a name="ln-530"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
+<a name="ln-531"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">esa</span><span class="p">)</span>
+<a name="ln-532"></a>         <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dx</span> <span class="o">*</span> <span class="p">(</span><span class="n">esa</span> <span class="o">+</span> <span class="n">eca</span> <span class="o">*</span> <span class="n">dx</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">))</span>
+<a name="ln-533"></a>         <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
+<a name="ln-534"></a>      <span class="k">end do</span>
+<a name="ln-535"></a>
+<a name="ln-536"></a><span class="k">      </span><span class="n">orbel_ehie</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">x</span>
+<a name="ln-537"></a>
+<a name="ln-538"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">iflag</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-539"></a><span class="k">         </span><span class="n">orbel_ehie</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">orbel_ehie</span>
+<a name="ln-540"></a>         <span class="n">m</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">m</span>
+<a name="ln-541"></a>      <span class="k">end if</span>
 <a name="ln-542"></a>
-<a name="ln-543"></a>
-<a name="ln-544"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-545"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-546"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-547"></a>   <span class="c">!                             ORBEL_EGET.F</span>
-<a name="ln-548"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-549"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
-<a name="ln-550"></a>   <span class="c">!</span>
-<a name="ln-551"></a>   <span class="c">!             Input:</span>
-<a name="ln-552"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-553"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
-<a name="ln-554"></a>   <span class="c">!             Returns:</span>
-<a name="ln-555"></a>   <span class="c">!                  orbel_eget ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-556"></a>   <span class="c">!</span>
-<a name="ln-557"></a>   <span class="c">!     ALGORITHM: Quartic convergence from Danby</span>
-<a name="ln-558"></a>   <span class="c">!     REMARKS: For results very near roundoff, give it M between</span>
-<a name="ln-559"></a>   <span class="c">!           0 and 2*pi. One can condition M before calling EGET</span>
-<a name="ln-560"></a>   <span class="c">!           by calling my double precision function MOD2PI(M).</span>
-<a name="ln-561"></a>   <span class="c">!           This is not done within the routine to speed it up</span>
-<a name="ln-562"></a>   <span class="c">!           and because it works fine even for large M.</span>
-<a name="ln-563"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-564"></a>   <span class="c">!     DATE WRITTEN: May 7, 1992.</span>
-<a name="ln-565"></a>   <span class="c">!     REVISIONS: May 21, 1992.  Now have it go through EXACTLY two iterations</span>
-<a name="ln-566"></a>   <span class="c">!                with the premise that it will only be called if</span>
-<a name="ln-567"></a>   <span class="c">!          we have an ellipse with e between 0.15 and 0.8</span>
-<a name="ln-568"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-569"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_eget</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
-<a name="ln-570"></a>      <span class="k">implicit none</span>
-<a name="ln-571"></a><span class="k">      </span>
-<a name="ln-572"></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">e</span><span class="p">,</span><span class="n">m</span>
-<a name="ln-573"></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">x</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">,</span><span class="n">sx</span><span class="p">,</span><span class="n">cx</span>
-<a name="ln-574"></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">es</span><span class="p">,</span><span class="n">ec</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">fpp</span><span class="p">,</span><span class="n">fppp</span><span class="p">,</span><span class="n">dx</span>
-<a name="ln-575"></a>
-<a name="ln-576"></a>
-<a name="ln-577"></a>      <span class="c">! function to solve kepler&#39;s eqn for e (here called</span>
-<a name="ln-578"></a>      <span class="c">! x) for given e and m. returns value of x.</span>
-<a name="ln-579"></a>      <span class="c">! may 21 : for e &lt; 0.18 use esolmd for speed and sufficient accuracy</span>
-<a name="ln-580"></a>      <span class="c">! may 21 : for e &gt; 0.8 use ehie - this one may not converge fast enough.</span>
-<a name="ln-581"></a>
-<a name="ln-582"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">)</span>
-<a name="ln-583"></a>
-<a name="ln-584"></a>      <span class="c">!  begin with a guess accurate to order ecc**3</span>
-<a name="ln-585"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sm</span> <span class="o">*</span> <span class="p">(</span> <span class="mf">1._DP</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span><span class="n">cm</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="mf">1.5_DP</span> <span class="o">*</span> <span class="n">sm</span> <span class="o">*</span> <span class="n">sm</span><span class="p">)))</span>
+<a name="ln-543"></a><span class="k">      return</span>
+<a name="ln-544"></a><span class="k">   end function </span><span class="n">orbel_ehie</span>
+<a name="ln-545"></a>
+<a name="ln-546"></a>
+<a name="ln-547"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-548"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-549"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-550"></a>   <span class="c">!                             ORBEL_EGET.F</span>
+<a name="ln-551"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-552"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
+<a name="ln-553"></a>   <span class="c">!</span>
+<a name="ln-554"></a>   <span class="c">!             Input:</span>
+<a name="ln-555"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-556"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
+<a name="ln-557"></a>   <span class="c">!             Returns:</span>
+<a name="ln-558"></a>   <span class="c">!                  orbel_eget ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-559"></a>   <span class="c">!</span>
+<a name="ln-560"></a>   <span class="c">!     ALGORITHM: Quartic convergence from Danby</span>
+<a name="ln-561"></a>   <span class="c">!     REMARKS: For results very near roundoff, give it M between</span>
+<a name="ln-562"></a>   <span class="c">!           0 and 2*pi. One can condition M before calling EGET</span>
+<a name="ln-563"></a>   <span class="c">!           by calling my double precision function MOD2PI(M).</span>
+<a name="ln-564"></a>   <span class="c">!           This is not done within the routine to speed it up</span>
+<a name="ln-565"></a>   <span class="c">!           and because it works fine even for large M.</span>
+<a name="ln-566"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-567"></a>   <span class="c">!     DATE WRITTEN: May 7, 1992.</span>
+<a name="ln-568"></a>   <span class="c">!     REVISIONS: May 21, 1992.  Now have it go through EXACTLY two iterations</span>
+<a name="ln-569"></a>   <span class="c">!                with the premise that it will only be called if</span>
+<a name="ln-570"></a>   <span class="c">!          we have an ellipse with e between 0.15 and 0.8</span>
+<a name="ln-571"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-572"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_eget</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</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>
+<a name="ln-575"></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">e</span><span class="p">,</span><span class="n">m</span>
+<a name="ln-576"></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">x</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">,</span><span class="n">sx</span><span class="p">,</span><span class="n">cx</span>
+<a name="ln-577"></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">es</span><span class="p">,</span><span class="n">ec</span><span class="p">,</span><span class="n">f</span><span class="p">,</span><span class="n">fp</span><span class="p">,</span><span class="n">fpp</span><span class="p">,</span><span class="n">fppp</span><span class="p">,</span><span class="n">dx</span>
+<a name="ln-578"></a>
+<a name="ln-579"></a>
+<a name="ln-580"></a>      <span class="c">! function to solve kepler&#39;s eqn for e (here called</span>
+<a name="ln-581"></a>      <span class="c">! x) for given e and m. returns value of x.</span>
+<a name="ln-582"></a>      <span class="c">! may 21 : for e &lt; 0.18 use esolmd for speed and sufficient accuracy</span>
+<a name="ln-583"></a>      <span class="c">! may 21 : for e &gt; 0.8 use ehie - this one may not converge fast enough.</span>
+<a name="ln-584"></a>
+<a name="ln-585"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="n">sm</span><span class="p">,</span><span class="n">cm</span><span class="p">)</span>
 <a name="ln-586"></a>
-<a name="ln-587"></a>      <span class="c">!  go through one iteration for improved estimate</span>
-<a name="ln-588"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</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-589"></a>      <span class="n">es</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sx</span>
-<a name="ln-590"></a>      <span class="n">ec</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">cx</span>
-<a name="ln-591"></a>      <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">es</span>  <span class="o">-</span> <span class="n">m</span>
-<a name="ln-592"></a>      <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span> <span class="n">ec</span>
-<a name="ln-593"></a>      <span class="n">fpp</span> <span class="o">=</span> <span class="n">es</span>
-<a name="ln-594"></a>      <span class="n">fppp</span> <span class="o">=</span> <span class="n">ec</span>
-<a name="ln-595"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
-<a name="ln-596"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
-<a name="ln-597"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">*</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
-<a name="ln-598"></a>      <span class="n">orbel_eget</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
-<a name="ln-599"></a>
-<a name="ln-600"></a>      <span class="c">! do another iteration.</span>
-<a name="ln-601"></a>      <span class="c">! for m between 0 and 2*pi this seems to be enough to</span>
-<a name="ln-602"></a>      <span class="c">! get near roundoff error for eccentricities between 0 and 0.8</span>
-<a name="ln-603"></a>
-<a name="ln-604"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">orbel_eget</span>
-<a name="ln-605"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</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-606"></a>      <span class="n">es</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sx</span>
-<a name="ln-607"></a>      <span class="n">ec</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">cx</span>
-<a name="ln-608"></a>      <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">es</span>  <span class="o">-</span> <span class="n">m</span>
-<a name="ln-609"></a>      <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span> <span class="n">ec</span>
-<a name="ln-610"></a>      <span class="n">fpp</span> <span class="o">=</span> <span class="n">es</span>
-<a name="ln-611"></a>      <span class="n">fppp</span> <span class="o">=</span> <span class="n">ec</span>
-<a name="ln-612"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
-<a name="ln-613"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
-<a name="ln-614"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
-<a name="ln-615"></a>
-<a name="ln-616"></a>      <span class="n">orbel_eget</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
-<a name="ln-617"></a>
-<a name="ln-618"></a>      <span class="k">return</span>
-<a name="ln-619"></a><span class="k">   end function </span><span class="n">orbel_eget</span>
+<a name="ln-587"></a>      <span class="c">!  begin with a guess accurate to order ecc**3</span>
+<a name="ln-588"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">m</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sm</span> <span class="o">*</span> <span class="p">(</span> <span class="mf">1._DP</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span><span class="n">cm</span> <span class="o">+</span> <span class="n">e</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1._DP</span> <span class="o">-</span> <span class="mf">1.5_DP</span> <span class="o">*</span> <span class="n">sm</span> <span class="o">*</span> <span class="n">sm</span><span class="p">)))</span>
+<a name="ln-589"></a>
+<a name="ln-590"></a>      <span class="c">!  go through one iteration for improved estimate</span>
+<a name="ln-591"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</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-592"></a>      <span class="n">es</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sx</span>
+<a name="ln-593"></a>      <span class="n">ec</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">cx</span>
+<a name="ln-594"></a>      <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">es</span>  <span class="o">-</span> <span class="n">m</span>
+<a name="ln-595"></a>      <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span> <span class="n">ec</span>
+<a name="ln-596"></a>      <span class="n">fpp</span> <span class="o">=</span> <span class="n">es</span>
+<a name="ln-597"></a>      <span class="n">fppp</span> <span class="o">=</span> <span class="n">ec</span>
+<a name="ln-598"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
+<a name="ln-599"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
+<a name="ln-600"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">*</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
+<a name="ln-601"></a>      <span class="n">orbel_eget</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
+<a name="ln-602"></a>
+<a name="ln-603"></a>      <span class="c">! do another iteration.</span>
+<a name="ln-604"></a>      <span class="c">! for m between 0 and 2*pi this seems to be enough to</span>
+<a name="ln-605"></a>      <span class="c">! get near roundoff error for eccentricities between 0 and 0.8</span>
+<a name="ln-606"></a>
+<a name="ln-607"></a>      <span class="n">x</span> <span class="o">=</span> <span class="n">orbel_eget</span>
+<a name="ln-608"></a>      <span class="k">call </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">x</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-609"></a>      <span class="n">es</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">sx</span>
+<a name="ln-610"></a>      <span class="n">ec</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="n">cx</span>
+<a name="ln-611"></a>      <span class="n">f</span> <span class="o">=</span> <span class="n">x</span> <span class="o">-</span> <span class="n">es</span>  <span class="o">-</span> <span class="n">m</span>
+<a name="ln-612"></a>      <span class="n">fp</span> <span class="o">=</span> <span class="mf">1._DP</span> <span class="o">-</span> <span class="n">ec</span>
+<a name="ln-613"></a>      <span class="n">fpp</span> <span class="o">=</span> <span class="n">es</span>
+<a name="ln-614"></a>      <span class="n">fppp</span> <span class="o">=</span> <span class="n">ec</span>
+<a name="ln-615"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="n">fp</span>
+<a name="ln-616"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span><span class="p">)</span>
+<a name="ln-617"></a>      <span class="n">dx</span> <span class="o">=</span> <span class="o">-</span><span class="n">f</span> <span class="o">/</span> <span class="p">(</span><span class="n">fp</span> <span class="o">+</span> <span class="n">dx</span> <span class="o">*</span> <span class="n">fpp</span> <span class="o">/</span> <span class="mf">2._DP</span> <span class="o">+</span> <span class="n">dx</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">fppp</span> <span class="o">/</span> <span class="mf">6._DP</span><span class="p">)</span>
+<a name="ln-618"></a>
+<a name="ln-619"></a>      <span class="n">orbel_eget</span> <span class="o">=</span> <span class="n">x</span> <span class="o">+</span> <span class="n">dx</span>
 <a name="ln-620"></a>
-<a name="ln-621"></a>
-<a name="ln-622"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-623"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-624"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-625"></a>   <span class="c">!                    ORBEL_EHYBRID.F</span>
-<a name="ln-626"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-627"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
-<a name="ln-628"></a>   <span class="c">!</span>
-<a name="ln-629"></a>   <span class="c">!             Input:</span>
-<a name="ln-630"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-631"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
-<a name="ln-632"></a>   <span class="c">!             Returns:</span>
-<a name="ln-633"></a>   <span class="c">!              orbel_ehybrid ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-634"></a>   <span class="c">!</span>
-<a name="ln-635"></a>   <span class="c">!     ALGORITHM: For e &lt; 0.18 uses fast routine ESOLMD</span>
-<a name="ln-636"></a>   <span class="c">!          For larger e but less than 0.8, uses EGET</span>
-<a name="ln-637"></a>   <span class="c">!          For e &gt; 0.8 uses EHIE</span>
-<a name="ln-638"></a>   <span class="c">!     REMARKS: Only EHIE brings M and E into range (0,TWOPI)</span>
-<a name="ln-639"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-640"></a>   <span class="c">!     DATE WRITTEN: May 25,1992.</span>
-<a name="ln-641"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
-<a name="ln-642"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-643"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_ehybrid</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
-<a name="ln-644"></a>      <span class="k">implicit none</span>
-<a name="ln-645"></a>
-<a name="ln-646"></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">e</span><span class="p">,</span><span class="n">m</span>
-<a name="ln-647"></a>      <span class="c">!real(DP) :: orbel_esolmd,orbel_eget,orbel_ehie</span>
+<a name="ln-621"></a>      <span class="k">return</span>
+<a name="ln-622"></a><span class="k">   end function </span><span class="n">orbel_eget</span>
+<a name="ln-623"></a>
+<a name="ln-624"></a>
+<a name="ln-625"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-626"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-627"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-628"></a>   <span class="c">!                    ORBEL_EHYBRID.F</span>
+<a name="ln-629"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-630"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn.   e is ecc.   m is mean anomaly.</span>
+<a name="ln-631"></a>   <span class="c">!</span>
+<a name="ln-632"></a>   <span class="c">!             Input:</span>
+<a name="ln-633"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-634"></a>   <span class="c">!                           m ==&gt; mean anomaly. (real scalar)</span>
+<a name="ln-635"></a>   <span class="c">!             Returns:</span>
+<a name="ln-636"></a>   <span class="c">!              orbel_ehybrid ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-637"></a>   <span class="c">!</span>
+<a name="ln-638"></a>   <span class="c">!     ALGORITHM: For e &lt; 0.18 uses fast routine ESOLMD</span>
+<a name="ln-639"></a>   <span class="c">!          For larger e but less than 0.8, uses EGET</span>
+<a name="ln-640"></a>   <span class="c">!          For e &gt; 0.8 uses EHIE</span>
+<a name="ln-641"></a>   <span class="c">!     REMARKS: Only EHIE brings M and E into range (0,TWOPI)</span>
+<a name="ln-642"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-643"></a>   <span class="c">!     DATE WRITTEN: May 25,1992.</span>
+<a name="ln-644"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
+<a name="ln-645"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-646"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_ehybrid</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
+<a name="ln-647"></a>      <span class="k">implicit none</span>
 <a name="ln-648"></a>
-<a name="ln-649"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">e</span> <span class="o">&lt;</span> <span class="mf">0.18_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-650"></a><span class="k">         </span><span class="n">orbel_ehybrid</span> <span class="o">=</span> <span class="n">orbel_esolmd</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
-<a name="ln-651"></a>      <span class="k">else</span>
-<a name="ln-652"></a><span class="k">         if</span><span class="p">(</span> <span class="n">e</span> <span class="o">&lt;=</span> <span class="mf">0.8_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-653"></a><span class="k">            </span><span class="n">orbel_ehybrid</span> <span class="o">=</span> <span class="n">orbel_eget</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
-<a name="ln-654"></a>         <span class="k">else</span>
-<a name="ln-655"></a><span class="k">            </span><span class="n">orbel_ehybrid</span> <span class="o">=</span> <span class="n">orbel_ehie</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
-<a name="ln-656"></a>         <span class="k">end if</span>
-<a name="ln-657"></a><span class="k">      end if</span>
-<a name="ln-658"></a><span class="k">      return</span>
-<a name="ln-659"></a><span class="k">   end function </span><span class="n">orbel_ehybrid</span>
-<a name="ln-660"></a>
-<a name="ln-661"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-662"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
-<a name="ln-663"></a>   <span class="c">! Date: 2020-06-29  </span>
-<a name="ln-664"></a>   <span class="c">!                    ORBEL_FHYBRID.F</span>
-<a name="ln-665"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-666"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn. for hyperbola using hybrid approach.</span>
-<a name="ln-667"></a>   <span class="c">!</span>
-<a name="ln-668"></a>   <span class="c">!             Input:</span>
-<a name="ln-669"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
-<a name="ln-670"></a>   <span class="c">!                           n ==&gt; hyperbola mean anomaly. (real scalar)</span>
-<a name="ln-671"></a>   <span class="c">!             Returns:</span>
-<a name="ln-672"></a>   <span class="c">!               orbel_fhybrid ==&gt;  eccentric anomaly. (real scalar)</span>
-<a name="ln-673"></a>   <span class="c">!</span>
-<a name="ln-674"></a>   <span class="c">!     ALGORITHM: For abs(N) &lt; 0.636*ecc -0.6 , use FLON</span>
-<a name="ln-675"></a>   <span class="c">!          For larger N, uses FGET</span>
-<a name="ln-676"></a>   <span class="c">!     REMARKS:</span>
-<a name="ln-677"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
-<a name="ln-678"></a>   <span class="c">!     DATE WRITTEN: May 26,1992.</span>
-<a name="ln-679"></a>   <span class="c">!     REVISIONS::</span>
-<a name="ln-680"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
-<a name="ln-681"></a>   <span class="c">!**********************************************************************</span>
-<a name="ln-682"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_fhybrid</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-683"></a>      <span class="k">implicit none</span>
-<a name="ln-684"></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">e</span><span class="p">,</span><span class="n">n</span>
-<a name="ln-685"></a>
-<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="kd">::</span> <span class="n">abn</span>
-<a name="ln-687"></a>
-<a name="ln-688"></a>      <span class="n">abn</span> <span class="o">=</span> <span class="n">n</span>
-<a name="ln-689"></a>      <span class="k">if</span><span class="p">(</span><span class="n">n</span> <span class="o">&lt;</span> <span class="mf">0._DP</span><span class="p">)</span> <span class="n">abn</span> <span class="o">=</span> <span class="o">-</span><span class="n">abn</span>
+<a name="ln-649"></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">e</span><span class="p">,</span><span class="n">m</span>
+<a name="ln-650"></a>      <span class="c">!real(DP) :: orbel_esolmd,orbel_eget,orbel_ehie</span>
+<a name="ln-651"></a>
+<a name="ln-652"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">e</span> <span class="o">&lt;</span> <span class="mf">0.18_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-653"></a><span class="k">         </span><span class="n">orbel_ehybrid</span> <span class="o">=</span> <span class="n">orbel_esolmd</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
+<a name="ln-654"></a>      <span class="k">else</span>
+<a name="ln-655"></a><span class="k">         if</span><span class="p">(</span> <span class="n">e</span> <span class="o">&lt;=</span> <span class="mf">0.8_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-656"></a><span class="k">            </span><span class="n">orbel_ehybrid</span> <span class="o">=</span> <span class="n">orbel_eget</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
+<a name="ln-657"></a>         <span class="k">else</span>
+<a name="ln-658"></a><span class="k">            </span><span class="n">orbel_ehybrid</span> <span class="o">=</span> <span class="n">orbel_ehie</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="n">m</span><span class="p">)</span>
+<a name="ln-659"></a>         <span class="k">end if</span>
+<a name="ln-660"></a><span class="k">      end if</span>
+<a name="ln-661"></a><span class="k">      return</span>
+<a name="ln-662"></a><span class="k">   end function </span><span class="n">orbel_ehybrid</span>
+<a name="ln-663"></a>
+<a name="ln-664"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-665"></a>   <span class="c">! Code converted to Modern Fortran by David A. Minton</span>
+<a name="ln-666"></a>   <span class="c">! Date: 2020-06-29  </span>
+<a name="ln-667"></a>   <span class="c">!                    ORBEL_FHYBRID.F</span>
+<a name="ln-668"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-669"></a>   <span class="c">!     PURPOSE:  Solves Kepler&#39;s eqn. for hyperbola using hybrid approach.</span>
+<a name="ln-670"></a>   <span class="c">!</span>
+<a name="ln-671"></a>   <span class="c">!             Input:</span>
+<a name="ln-672"></a>   <span class="c">!                           e ==&gt; eccentricity anomaly. (real scalar)</span>
+<a name="ln-673"></a>   <span class="c">!                           n ==&gt; hyperbola mean anomaly. (real scalar)</span>
+<a name="ln-674"></a>   <span class="c">!             Returns:</span>
+<a name="ln-675"></a>   <span class="c">!               orbel_fhybrid ==&gt;  eccentric anomaly. (real scalar)</span>
+<a name="ln-676"></a>   <span class="c">!</span>
+<a name="ln-677"></a>   <span class="c">!     ALGORITHM: For abs(N) &lt; 0.636*ecc -0.6 , use FLON</span>
+<a name="ln-678"></a>   <span class="c">!          For larger N, uses FGET</span>
+<a name="ln-679"></a>   <span class="c">!     REMARKS:</span>
+<a name="ln-680"></a>   <span class="c">!     AUTHOR: M. Duncan</span>
+<a name="ln-681"></a>   <span class="c">!     DATE WRITTEN: May 26,1992.</span>
+<a name="ln-682"></a>   <span class="c">!     REVISIONS::</span>
+<a name="ln-683"></a>   <span class="c">!     REVISIONS: 2/26/93 hfl</span>
+<a name="ln-684"></a>   <span class="c">!**********************************************************************</span>
+<a name="ln-685"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="k">pure function </span><span class="n">orbel_fhybrid</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-686"></a>      <span class="k">implicit none</span>
+<a name="ln-687"></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">e</span><span class="p">,</span><span class="n">n</span>
+<a name="ln-688"></a>
+<a name="ln-689"></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">abn</span>
 <a name="ln-690"></a>
-<a name="ln-691"></a>      <span class="k">if</span><span class="p">(</span><span class="n">abn</span> <span class="o">&lt;</span> <span class="mf">0.636_DP</span> <span class="o">*</span> <span class="n">e</span> <span class="o">-</span><span class="mf">0.6_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-692"></a><span class="k">         </span><span class="n">orbel_fhybrid</span> <span class="o">=</span> <span class="n">orbel_flon</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-693"></a>      <span class="k">else</span>
-<a name="ln-694"></a><span class="k">         </span><span class="n">orbel_fhybrid</span> <span class="o">=</span> <span class="n">orbel_fget</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-695"></a>      <span class="k">end if</span>
-<a name="ln-696"></a>
-<a name="ln-697"></a><span class="k">      return</span>
-<a name="ln-698"></a><span class="k">   end function </span><span class="n">orbel_fhybrid</span>
-<a name="ln-699"></a>   
-<a name="ln-700"></a>
-<a name="ln-701"></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-702"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-703"></a>      <span class="c">!!</span>
-<a name="ln-704"></a>      <span class="c">!! Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity</span>
-<a name="ln-705"></a>      <span class="c">!!</span>
-<a name="ln-706"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: orbel_xv2aeq.f90</span>
-<a name="ln-707"></a>      <span class="c">!! Adapted from Luke Dones&#39; Swift routine orbel_xv2aeq.f</span>
-<a name="ln-708"></a>      <span class="k">implicit none</span>
-<a name="ln-709"></a>      <span class="c">!! Arguments</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>
-<a name="ln-711"></a>      <span class="kt">real</span><span 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>
-<a name="ln-712"></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="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">q</span>
-<a name="ln-713"></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">iorbit_type</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="kd">::</span> <span class="n">r</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">h2</span><span class="p">,</span> <span class="n">energy</span><span class="p">,</span> <span class="n">fac</span>
-<a name="ln-715"></a>      <span class="kt">real</span><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">hvec</span>
-<a name="ln-716"></a>
-<a name="ln-717"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-718"></a>      <span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-719"></a>      <span class="n">q</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-720"></a>      <span class="n">r</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">x</span><span class="p">(:)))</span> 
-<a name="ln-721"></a>      <span class="n">v2</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="n">v</span><span class="p">(:))</span>
-<a name="ln-722"></a>      <span class="n">hvec</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v</span><span class="p">(:)</span>
-<a name="ln-723"></a>      <span class="n">h2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">hvec</span><span class="p">(:),</span> <span class="n">hvec</span><span class="p">(:))</span>
-<a name="ln-724"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">h2</span> <span class="o">==</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-725"></a><span class="k">      </span><span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">v2</span> <span class="o">-</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">r</span>
-<a name="ln-726"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">energy</span> <span class="o">*</span> <span class="n">r</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">VSMALL</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-727"></a><span class="k">         </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
-<a name="ln-728"></a>      <span class="k">else</span>
-<a name="ln-729"></a><span class="k">         </span><span class="n">a</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">energy</span>
-<a name="ln-730"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">a</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-731"></a><span class="k">            </span><span class="n">fac</span> <span class="o">=</span> <span class="o">-</span><span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-732"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-733"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
-<a name="ln-734"></a>            <span class="k">else</span>
-<a name="ln-735"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
-<a name="ln-736"></a>            <span class="k">end if</span>
-<a name="ln-737"></a><span class="k">         else</span>
-<a name="ln-738"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
-<a name="ln-739"></a>         <span class="k">end if</span>
-<a name="ln-740"></a><span class="k">      end if</span>
-<a name="ln-741"></a><span class="k">      select case</span> <span class="p">(</span><span class="n">iorbit_type</span><span class="p">)</span>
-<a name="ln-742"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">ELLIPSE</span><span class="p">)</span>
-<a name="ln-743"></a>         <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-744"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="n">e</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
-<a name="ln-745"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-746"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">PARABOLA</span><span class="p">)</span>
-<a name="ln-747"></a>         <span class="n">a</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">h2</span> <span class="o">/</span> <span class="n">mu</span>
-<a name="ln-748"></a>         <span class="n">e</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-749"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span>
-<a name="ln-750"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">HYPERBOLA</span><span class="p">)</span>
-<a name="ln-751"></a>         <span class="n">e</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="n">fac</span><span class="p">)</span>
-<a name="ln-752"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-753"></a>      <span class="k">end select</span>
-<a name="ln-754"></a>
-<a name="ln-755"></a><span class="k">      return</span>
-<a name="ln-756"></a>
-<a name="ln-757"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2aeq</span>
-<a name="ln-758"></a>
+<a name="ln-691"></a>      <span class="n">abn</span> <span class="o">=</span> <span class="n">n</span>
+<a name="ln-692"></a>      <span class="k">if</span><span class="p">(</span><span class="n">n</span> <span class="o">&lt;</span> <span class="mf">0._DP</span><span class="p">)</span> <span class="n">abn</span> <span class="o">=</span> <span class="o">-</span><span class="n">abn</span>
+<a name="ln-693"></a>
+<a name="ln-694"></a>      <span class="k">if</span><span class="p">(</span><span class="n">abn</span> <span class="o">&lt;</span> <span class="mf">0.636_DP</span> <span class="o">*</span> <span class="n">e</span> <span class="o">-</span><span class="mf">0.6_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-695"></a><span class="k">         </span><span class="n">orbel_fhybrid</span> <span class="o">=</span> <span class="n">orbel_flon</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-696"></a>      <span class="k">else</span>
+<a name="ln-697"></a><span class="k">         </span><span class="n">orbel_fhybrid</span> <span class="o">=</span> <span class="n">orbel_fget</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-698"></a>      <span class="k">end if</span>
+<a name="ln-699"></a>
+<a name="ln-700"></a><span class="k">      return</span>
+<a name="ln-701"></a><span class="k">   end function </span><span class="n">orbel_fhybrid</span>
+<a name="ln-702"></a>   
+<a name="ln-703"></a>
+<a name="ln-704"></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-705"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-706"></a>      <span class="c">!!</span>
+<a name="ln-707"></a>      <span class="c">!! Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity</span>
+<a name="ln-708"></a>      <span class="c">!!</span>
+<a name="ln-709"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: orbel_xv2aeq.f90</span>
+<a name="ln-710"></a>      <span class="c">!! Adapted from Luke Dones&#39; Swift routine orbel_xv2aeq.f</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">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>
+<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">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>
+<a name="ln-715"></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="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">q</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">iorbit_type</span>
+<a name="ln-717"></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</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">h2</span><span class="p">,</span> <span class="n">energy</span><span class="p">,</span> <span class="n">fac</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">hvec</span>
+<a name="ln-719"></a>
+<a name="ln-720"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-721"></a>      <span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-722"></a>      <span class="n">q</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-723"></a>      <span class="n">r</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">x</span><span class="p">(:)))</span> 
+<a name="ln-724"></a>      <span class="n">v2</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="n">v</span><span class="p">(:))</span>
+<a name="ln-725"></a>      <span class="n">hvec</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v</span><span class="p">(:)</span>
+<a name="ln-726"></a>      <span class="n">h2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">hvec</span><span class="p">(:),</span> <span class="n">hvec</span><span class="p">(:))</span>
+<a name="ln-727"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">h2</span> <span class="o">==</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-728"></a><span class="k">      </span><span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">v2</span> <span class="o">-</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">r</span>
+<a name="ln-729"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">energy</span> <span class="o">*</span> <span class="n">r</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">VSMALL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-730"></a><span class="k">         </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
+<a name="ln-731"></a>      <span class="k">else</span>
+<a name="ln-732"></a><span class="k">         </span><span class="n">a</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">energy</span>
+<a name="ln-733"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">a</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-734"></a><span class="k">            </span><span class="n">fac</span> <span class="o">=</span> <span class="o">-</span><span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-735"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-736"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
+<a name="ln-737"></a>            <span class="k">else</span>
+<a name="ln-738"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
+<a name="ln-739"></a>            <span class="k">end if</span>
+<a name="ln-740"></a><span class="k">         else</span>
+<a name="ln-741"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
+<a name="ln-742"></a>         <span class="k">end if</span>
+<a name="ln-743"></a><span class="k">      end if</span>
+<a name="ln-744"></a><span class="k">      select case</span> <span class="p">(</span><span class="n">iorbit_type</span><span class="p">)</span>
+<a name="ln-745"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">ELLIPSE</span><span class="p">)</span>
+<a name="ln-746"></a>         <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-747"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="n">e</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
+<a name="ln-748"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-749"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">PARABOLA</span><span class="p">)</span>
+<a name="ln-750"></a>         <span class="n">a</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">h2</span> <span class="o">/</span> <span class="n">mu</span>
+<a name="ln-751"></a>         <span class="n">e</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-752"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span>
+<a name="ln-753"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">HYPERBOLA</span><span class="p">)</span>
+<a name="ln-754"></a>         <span class="n">e</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="n">fac</span><span class="p">)</span>
+<a name="ln-755"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-756"></a>      <span class="k">end select</span>
+<a name="ln-757"></a>
+<a name="ln-758"></a><span class="k">      return</span>
 <a name="ln-759"></a>
-<a name="ln-760"></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-761"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-762"></a>      <span class="c">!!</span>
-<a name="ln-763"></a>      <span class="c">!! Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from</span>
-<a name="ln-764"></a>      <span class="c">!! relative Cartesian position and velocity</span>
-<a name="ln-765"></a>      <span class="c">!!      tperi &gt; 0 means nearest pericenter passage is in the future</span>
-<a name="ln-766"></a>      <span class="c">!!      tperi &lt; 0 means nearest pericenter passage is in the past</span>
-<a name="ln-767"></a>      <span class="c">!!</span>
-<a name="ln-768"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: orbel_xv2aqt.f90</span>
-<a name="ln-769"></a>      <span class="k">implicit none</span>
-<a name="ln-770"></a>      <span class="c">! Arguments</span>
-<a name="ln-771"></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">!! Gravitational constant</span>
-<a name="ln-772"></a>      <span class="kt">real</span><span 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-773"></a>      <span class="kt">real</span><span 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-774"></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-775"></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-776"></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-777"></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-778"></a>      <span class="c">! Internals</span>
-<a name="ln-779"></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">iorbit_type</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="kd">::</span> <span class="n">r</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">h2</span><span class="p">,</span> <span class="n">rdotv</span><span class="p">,</span> <span class="n">energy</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">face</span><span class="p">,</span> <span class="n">cape</span><span class="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">tmpf</span><span class="p">,</span> <span class="n">capf</span><span class="p">,</span> <span class="n">mm</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">hvec</span>
-<a name="ln-782"></a>
-<a name="ln-783"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-784"></a>      <span class="n">q</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-785"></a>      <span class="n">capm</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-786"></a>      <span class="n">tperi</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-787"></a>      <span class="n">r</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">x</span><span class="p">(:)))</span>
-<a name="ln-788"></a>      <span class="n">v2</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="n">v</span><span class="p">(:))</span>
-<a name="ln-789"></a>      <span class="n">hvec</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v</span><span class="p">(:)</span>
-<a name="ln-790"></a>      <span class="n">h2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">hvec</span><span class="p">(:),</span> <span class="n">hvec</span><span class="p">(:))</span>
-<a name="ln-791"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">h2</span> <span class="o">==</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-792"></a><span class="k">      </span><span class="n">rdotv</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">v</span><span class="p">(:))</span>
-<a name="ln-793"></a>      <span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">v2</span> <span class="o">-</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">r</span>
-<a name="ln-794"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">energy</span> <span class="o">*</span> <span class="n">r</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">VSMALL</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-795"></a><span class="k">         </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
-<a name="ln-796"></a>      <span class="k">else</span>
-<a name="ln-797"></a><span class="k">         </span><span class="n">a</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">energy</span>
-<a name="ln-798"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">a</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-799"></a><span class="k">            </span><span class="n">fac</span> <span class="o">=</span> <span class="o">-</span><span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-800"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-801"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
-<a name="ln-802"></a>            <span class="k">else</span>
-<a name="ln-803"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
-<a name="ln-804"></a>            <span class="k">end if</span>
-<a name="ln-805"></a><span class="k">         else</span>
-<a name="ln-806"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
-<a name="ln-807"></a>         <span class="k">end if</span>
-<a name="ln-808"></a><span class="k">      end if</span>
-<a name="ln-809"></a><span class="k">      select case</span> <span class="p">(</span><span class="n">iorbit_type</span><span class="p">)</span>
-<a name="ln-810"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">ELLIPSE</span><span class="p">)</span>
-<a name="ln-811"></a>         <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-812"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-813"></a><span class="k">            </span><span class="n">e</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
-<a name="ln-814"></a>            <span class="n">cape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-815"></a>            <span class="n">face</span> <span class="o">=</span> <span class="p">(</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-816"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-817"></a><span class="k">               </span><span class="n">cape</span> <span class="o">=</span> <span class="n">PI</span>
-<a name="ln-818"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-819"></a><span class="k">               </span><span class="n">cape</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">face</span><span class="p">)</span>
-<a name="ln-820"></a>            <span class="k">end if</span>
-<a name="ln-821"></a><span class="k">            if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">cape</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">cape</span>
-<a name="ln-822"></a>         <span class="k">else</span>
-<a name="ln-823"></a><span class="k">            </span><span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-824"></a>            <span class="n">cape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-825"></a>         <span class="k">end if</span>
-<a name="ln-826"></a><span class="k">         </span><span class="n">capm</span> <span class="o">=</span> <span class="n">cape</span> <span class="o">-</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sin</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span>
-<a name="ln-827"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-828"></a>         <span class="n">mm</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">mu</span> <span class="o">/</span> <span class="n">a</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-829"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">capm</span> <span class="o">&lt;</span> <span class="n">PI</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-830"></a><span class="k">            </span><span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="n">capm</span> <span class="o">/</span> <span class="n">mm</span>
-<a name="ln-831"></a>         <span class="k">else</span>
-<a name="ln-832"></a><span class="k">            </span><span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">capm</span> <span class="o">-</span> <span class="n">TWOPI</span><span class="p">)</span> <span class="o">/</span> <span class="n">mm</span>
-<a name="ln-833"></a>         <span class="k">end if</span>
-<a name="ln-834"></a><span class="k">      case</span> <span class="p">(</span><span class="n">PARABOLA</span><span class="p">)</span>
-<a name="ln-835"></a>         <span class="n">a</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">h2</span> <span class="o">/</span> <span class="n">mu</span>
-<a name="ln-836"></a>         <span class="n">e</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-837"></a>         <span class="n">w</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-838"></a>         <span class="n">fac</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">a</span> <span class="o">/</span> <span class="n">r</span> <span class="o">-</span> <span class="mf">1.0_DP</span>
-<a name="ln-839"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-840"></a><span class="k">            </span><span class="n">w</span> <span class="o">=</span> <span class="n">PI</span>
-<a name="ln-841"></a>         <span class="k">else if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-842"></a><span class="k">            </span><span class="n">w</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
-<a name="ln-843"></a>         <span class="k">end if</span>
-<a name="ln-844"></a><span class="k">         if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">w</span>
-<a name="ln-845"></a>         <span class="n">tmpf</span> <span class="o">=</span> <span class="nb">tan</span><span class="p">(</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">w</span><span class="p">)</span>
-<a name="ln-846"></a>         <span class="n">capm</span> <span class="o">=</span> <span class="n">tmpf</span><span class="o">*</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">tmpf</span> <span class="o">*</span> <span class="n">tmpf</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-847"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span>
-<a name="ln-848"></a>         <span class="n">mm</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">q</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-849"></a>         <span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="n">capm</span> <span class="o">/</span> <span class="n">mm</span>
-<a name="ln-850"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">HYPERBOLA</span><span class="p">)</span>
-<a name="ln-851"></a>         <span class="n">e</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="n">fac</span><span class="p">)</span>
-<a name="ln-852"></a>         <span class="n">tmpf</span> <span class="o">=</span> <span class="p">(</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-853"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">tmpf</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="n">tmpf</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-854"></a>         <span class="n">capf</span> <span class="o">=</span> <span class="nb">log</span><span class="p">(</span><span class="n">tmpf</span> <span class="o">+</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">tmpf</span> <span class="o">*</span> <span class="n">tmpf</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">))</span>
-<a name="ln-855"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">capf</span> <span class="o">=</span> <span class="o">-</span><span class="n">capf</span>
-<a name="ln-856"></a>         <span class="n">capm</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">-</span> <span class="n">capf</span>
-<a name="ln-857"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-858"></a>         <span class="n">mm</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="o">-</span><span class="n">mu</span> <span class="o">/</span> <span class="n">a</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-859"></a>         <span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="n">capm</span> <span class="o">/</span> <span class="n">mm</span>
-<a name="ln-860"></a>      <span class="k">end select</span>
-<a name="ln-861"></a>
-<a name="ln-862"></a><span class="k">      return</span>
-<a name="ln-863"></a>
-<a name="ln-864"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2aqt</span>
-<a name="ln-865"></a>
+<a name="ln-760"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2aeq</span>
+<a name="ln-761"></a>
+<a name="ln-762"></a>
+<a name="ln-763"></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-764"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-765"></a>      <span class="c">!!</span>
+<a name="ln-766"></a>      <span class="c">!! Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from</span>
+<a name="ln-767"></a>      <span class="c">!! relative Cartesian position and velocity</span>
+<a name="ln-768"></a>      <span class="c">!!      tperi &gt; 0 means nearest pericenter passage is in the future</span>
+<a name="ln-769"></a>      <span class="c">!!      tperi &lt; 0 means nearest pericenter passage is in the past</span>
+<a name="ln-770"></a>      <span class="c">!!</span>
+<a name="ln-771"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: orbel_xv2aqt.f90</span>
+<a name="ln-772"></a>      <span class="k">implicit none</span>
+<a name="ln-773"></a>      <span class="c">! Arguments</span>
+<a name="ln-774"></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">!! Gravitational constant</span>
+<a name="ln-775"></a>      <span class="kt">real</span><span 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-776"></a>      <span class="kt">real</span><span 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-777"></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-778"></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-779"></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-780"></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-781"></a>      <span class="c">! Internals</span>
+<a name="ln-782"></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">iorbit_type</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="kd">::</span> <span class="n">r</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">h2</span><span class="p">,</span> <span class="n">rdotv</span><span class="p">,</span> <span class="n">energy</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">face</span><span class="p">,</span> <span class="n">cape</span><span class="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">tmpf</span><span class="p">,</span> <span class="n">capf</span><span class="p">,</span> <span class="n">mm</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">hvec</span>
+<a name="ln-785"></a>
+<a name="ln-786"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-787"></a>      <span class="n">q</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-788"></a>      <span class="n">capm</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-789"></a>      <span class="n">tperi</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-790"></a>      <span class="n">r</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">x</span><span class="p">(:)))</span>
+<a name="ln-791"></a>      <span class="n">v2</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="n">v</span><span class="p">(:))</span>
+<a name="ln-792"></a>      <span class="n">hvec</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v</span><span class="p">(:)</span>
+<a name="ln-793"></a>      <span class="n">h2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">hvec</span><span class="p">(:),</span> <span class="n">hvec</span><span class="p">(:))</span>
+<a name="ln-794"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">h2</span> <span class="o">==</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-795"></a><span class="k">      </span><span class="n">rdotv</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">v</span><span class="p">(:))</span>
+<a name="ln-796"></a>      <span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">v2</span> <span class="o">-</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">r</span>
+<a name="ln-797"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">energy</span> <span class="o">*</span> <span class="n">r</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">VSMALL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-798"></a><span class="k">         </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
+<a name="ln-799"></a>      <span class="k">else</span>
+<a name="ln-800"></a><span class="k">         </span><span class="n">a</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">energy</span>
+<a name="ln-801"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">a</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-802"></a><span class="k">            </span><span class="n">fac</span> <span class="o">=</span> <span class="o">-</span><span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-803"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-804"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
+<a name="ln-805"></a>            <span class="k">else</span>
+<a name="ln-806"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
+<a name="ln-807"></a>            <span class="k">end if</span>
+<a name="ln-808"></a><span class="k">         else</span>
+<a name="ln-809"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
+<a name="ln-810"></a>         <span class="k">end if</span>
+<a name="ln-811"></a><span class="k">      end if</span>
+<a name="ln-812"></a><span class="k">      select case</span> <span class="p">(</span><span class="n">iorbit_type</span><span class="p">)</span>
+<a name="ln-813"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">ELLIPSE</span><span class="p">)</span>
+<a name="ln-814"></a>         <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-815"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-816"></a><span class="k">            </span><span class="n">e</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
+<a name="ln-817"></a>            <span class="n">cape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-818"></a>            <span class="n">face</span> <span class="o">=</span> <span class="p">(</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-819"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-820"></a><span class="k">               </span><span class="n">cape</span> <span class="o">=</span> <span class="n">PI</span>
+<a name="ln-821"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-822"></a><span class="k">               </span><span class="n">cape</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">face</span><span class="p">)</span>
+<a name="ln-823"></a>            <span class="k">end if</span>
+<a name="ln-824"></a><span class="k">            if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">cape</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">cape</span>
+<a name="ln-825"></a>         <span class="k">else</span>
+<a name="ln-826"></a><span class="k">            </span><span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-827"></a>            <span class="n">cape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-828"></a>         <span class="k">end if</span>
+<a name="ln-829"></a><span class="k">         </span><span class="n">capm</span> <span class="o">=</span> <span class="n">cape</span> <span class="o">-</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sin</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span>
+<a name="ln-830"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-831"></a>         <span class="n">mm</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">mu</span> <span class="o">/</span> <span class="n">a</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-832"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">capm</span> <span class="o">&lt;</span> <span class="n">PI</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-833"></a><span class="k">            </span><span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="n">capm</span> <span class="o">/</span> <span class="n">mm</span>
+<a name="ln-834"></a>         <span class="k">else</span>
+<a name="ln-835"></a><span class="k">            </span><span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">capm</span> <span class="o">-</span> <span class="n">TWOPI</span><span class="p">)</span> <span class="o">/</span> <span class="n">mm</span>
+<a name="ln-836"></a>         <span class="k">end if</span>
+<a name="ln-837"></a><span class="k">      case</span> <span class="p">(</span><span class="n">PARABOLA</span><span class="p">)</span>
+<a name="ln-838"></a>         <span class="n">a</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">h2</span> <span class="o">/</span> <span class="n">mu</span>
+<a name="ln-839"></a>         <span class="n">e</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-840"></a>         <span class="n">w</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-841"></a>         <span class="n">fac</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">a</span> <span class="o">/</span> <span class="n">r</span> <span class="o">-</span> <span class="mf">1.0_DP</span>
+<a name="ln-842"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-843"></a><span class="k">            </span><span class="n">w</span> <span class="o">=</span> <span class="n">PI</span>
+<a name="ln-844"></a>         <span class="k">else if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-845"></a><span class="k">            </span><span class="n">w</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
+<a name="ln-846"></a>         <span class="k">end if</span>
+<a name="ln-847"></a><span class="k">         if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">w</span>
+<a name="ln-848"></a>         <span class="n">tmpf</span> <span class="o">=</span> <span class="nb">tan</span><span class="p">(</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">w</span><span class="p">)</span>
+<a name="ln-849"></a>         <span class="n">capm</span> <span class="o">=</span> <span class="n">tmpf</span><span class="o">*</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">tmpf</span> <span class="o">*</span> <span class="n">tmpf</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-850"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span>
+<a name="ln-851"></a>         <span class="n">mm</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">q</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-852"></a>         <span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="n">capm</span> <span class="o">/</span> <span class="n">mm</span>
+<a name="ln-853"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">HYPERBOLA</span><span class="p">)</span>
+<a name="ln-854"></a>         <span class="n">e</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="n">fac</span><span class="p">)</span>
+<a name="ln-855"></a>         <span class="n">tmpf</span> <span class="o">=</span> <span class="p">(</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-856"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">tmpf</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="n">tmpf</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-857"></a>         <span class="n">capf</span> <span class="o">=</span> <span class="nb">log</span><span class="p">(</span><span class="n">tmpf</span> <span class="o">+</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">tmpf</span> <span class="o">*</span> <span class="n">tmpf</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">))</span>
+<a name="ln-858"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">capf</span> <span class="o">=</span> <span class="o">-</span><span class="n">capf</span>
+<a name="ln-859"></a>         <span class="n">capm</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">-</span> <span class="n">capf</span>
+<a name="ln-860"></a>         <span class="n">q</span> <span class="o">=</span> <span class="n">a</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-861"></a>         <span class="n">mm</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="o">-</span><span class="n">mu</span> <span class="o">/</span> <span class="n">a</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-862"></a>         <span class="n">tperi</span> <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span> <span class="o">*</span> <span class="n">capm</span> <span class="o">/</span> <span class="n">mm</span>
+<a name="ln-863"></a>      <span class="k">end select</span>
+<a name="ln-864"></a>
+<a name="ln-865"></a><span class="k">      return</span>
 <a name="ln-866"></a>
-<a name="ln-867"></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-868"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-869"></a>      <span class="c">!!</span>
-<a name="ln-870"></a>      <span class="c">!! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</span>
-<a name="ln-871"></a>      <span class="k">implicit none</span>
-<a name="ln-872"></a>      <span class="c">! Arguments</span>
-<a name="ln-873"></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-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">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-875"></a>      <span class="c">! internals</span>
-<a name="ln-876"></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-877"></a>    
-<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">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-879"></a>
-<a name="ln-880"></a><span class="k">      call </span><span class="n">self</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-881"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
-<a name="ln-882"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
-<a name="ln-883"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
-<a name="ln-884"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
-<a name="ln-885"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
-<a name="ln-886"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
-<a name="ln-887"></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-888"></a>         <span class="k">call </span><span class="n">orbel_xv2el</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">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> <span class="n">self</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">self</span><span class="p">%</span><span class="n">a</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">e</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">inc</span><span class="p">(</span><span class="n">i</span><span class="p">),</span>  <span class="p">&amp;</span>
-<a name="ln-889"></a>                          <span class="n">self</span><span class="p">%</span><span class="n">capom</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">omega</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">capm</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-890"></a>      <span class="k">end do</span>
-<a name="ln-891"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2el_vec</span> 
-<a name="ln-892"></a>
-<a name="ln-893"></a>   <span class="k">pure subroutine </span><span class="n">orbel_xv2el</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">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span><span class="p">)</span>
-<a name="ln-894"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-895"></a>      <span class="c">!!</span>
-<a name="ln-896"></a>      <span class="c">!! Compute osculating orbital elements from relative Cartesian position and velocity</span>
-<a name="ln-897"></a>      <span class="c">!!  All angular measures are returned in radians</span>
-<a name="ln-898"></a>      <span class="c">!!      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</span>
+<a name="ln-867"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2aqt</span>
+<a name="ln-868"></a>
+<a name="ln-869"></a>
+<a name="ln-870"></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-871"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-872"></a>      <span class="c">!!</span>
+<a name="ln-873"></a>      <span class="c">!! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements.</span>
+<a name="ln-874"></a>      <span class="k">implicit none</span>
+<a name="ln-875"></a>      <span class="c">! Arguments</span>
+<a name="ln-876"></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-877"></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-878"></a>      <span class="c">! internals</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">i</span>
+<a name="ln-880"></a>    
+<a name="ln-881"></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-882"></a>
+<a name="ln-883"></a><span class="k">      call </span><span class="n">self</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-884"></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">a</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">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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-885"></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">e</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">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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-886"></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">inc</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">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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-887"></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">capom</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">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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-888"></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">omega</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">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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-889"></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">capm</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">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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-890"></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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-891"></a>         <span class="k">call </span><span class="n">orbel_xv2el</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">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> <span class="n">self</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">self</span><span class="p">%</span><span class="n">a</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">e</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">inc</span><span class="p">(</span><span class="n">i</span><span class="p">),</span>  <span class="p">&amp;</span>
+<a name="ln-892"></a>                          <span class="n">self</span><span class="p">%</span><span class="n">capom</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">omega</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">capm</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-893"></a>      <span class="k">end do</span>
+<a name="ln-894"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2el_vec</span> 
+<a name="ln-895"></a>
+<a name="ln-896"></a>
+<a name="ln-897"></a>   <span class="k">module pure subroutine </span><span class="n">orbel_xv2el</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">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span><span class="p">)</span>
+<a name="ln-898"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-899"></a>      <span class="c">!!</span>
-<a name="ln-900"></a>      <span class="c">!!      If eccentricity &lt; sqrt(TINY), argument of pericenter is arbitrarily set to 0</span>
-<a name="ln-901"></a>      <span class="c">!!</span>
-<a name="ln-902"></a>      <span class="c">!!      References: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 201 - 206.</span>
-<a name="ln-903"></a>      <span class="c">!!              Fitzpatrick, P. M. 1970. Principles of Celestial Mechanics, (Academic Press), 69 - 73.</span>
-<a name="ln-904"></a>      <span class="c">!!              Roy, A. E. 1982. Orbital Motion, (Adam Hilger, Ltd.), 75 - 95</span>
+<a name="ln-900"></a>      <span class="c">!! Compute osculating orbital elements from relative Cartesian position and velocity</span>
+<a name="ln-901"></a>      <span class="c">!!  All angular measures are returned in radians</span>
+<a name="ln-902"></a>      <span class="c">!!      If inclination &lt; TINY, longitude of the ascending node is arbitrarily set to 0</span>
+<a name="ln-903"></a>      <span class="c">!!</span>
+<a name="ln-904"></a>      <span class="c">!!      If eccentricity &lt; sqrt(TINY), argument of pericenter is arbitrarily set to 0</span>
 <a name="ln-905"></a>      <span class="c">!!</span>
-<a name="ln-906"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: orbel_xv2el.f90</span>
-<a name="ln-907"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine orbel_xv2el.f</span>
-<a name="ln-908"></a>      <span class="k">implicit none</span>
-<a name="ln-909"></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>
-<a name="ln-910"></a>      <span class="kt">real</span><span 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>
-<a name="ln-911"></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="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span>
-<a name="ln-912"></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">iorbit_type</span>
-<a name="ln-913"></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</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">h2</span><span class="p">,</span> <span class="n">h</span><span class="p">,</span> <span class="n">rdotv</span><span class="p">,</span> <span class="n">energy</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">u</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">cw</span><span class="p">,</span> <span class="n">sw</span><span class="p">,</span> <span class="n">face</span><span class="p">,</span> <span class="n">cape</span><span class="p">,</span> <span class="n">tmpf</span><span class="p">,</span> <span class="n">capf</span>
-<a name="ln-914"></a>      <span class="kt">real</span><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">hvec</span>
-<a name="ln-915"></a>
-<a name="ln-916"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-917"></a>      <span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-918"></a>      <span class="n">inc</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-919"></a>      <span class="n">capom</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-920"></a>      <span class="n">omega</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-921"></a>      <span class="n">capm</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-922"></a>      <span class="n">r</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">x</span><span class="p">(:)))</span> 
-<a name="ln-923"></a>      <span class="n">v2</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="n">v</span><span class="p">(:))</span>
-<a name="ln-924"></a>      <span class="n">hvec</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v</span><span class="p">(:)</span>
-<a name="ln-925"></a>      <span class="n">h2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">hvec</span><span class="p">(:),</span> <span class="n">hvec</span><span class="p">(:))</span> 
-<a name="ln-926"></a>      <span class="n">h</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">h2</span><span class="p">)</span>
-<a name="ln-927"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">h2</span> <span class="o">==</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-928"></a><span class="k">      </span><span class="n">rdotv</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">v</span><span class="p">(:))</span>
-<a name="ln-929"></a>      <span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">v2</span> <span class="o">-</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">r</span>
-<a name="ln-930"></a>      <span class="n">fac</span> <span class="o">=</span> <span class="n">hvec</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">/</span> <span class="n">h</span>
-<a name="ln-931"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-932"></a><span class="k">         </span><span class="n">inc</span> <span class="o">=</span> <span class="n">PI</span>
-<a name="ln-933"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-934"></a><span class="k">         </span><span class="n">inc</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
-<a name="ln-935"></a>      <span class="k">end if</span>
-<a name="ln-936"></a><span class="k">      </span><span class="n">fac</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">hvec</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="o">+</span> <span class="n">hvec</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="n">h</span>
-<a name="ln-937"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">fac</span><span class="o">**</span><span class="mi">2</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-938"></a><span class="k">         </span><span class="n">u</span> <span class="o">=</span> <span class="n">atan2</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="n">x</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span>
-<a name="ln-939"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">hvec</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">u</span> <span class="o">=</span> <span class="o">-</span><span class="n">u</span>
-<a name="ln-940"></a>      <span class="k">else</span>
-<a name="ln-941"></a><span class="k">         </span><span class="n">capom</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">hvec</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="o">-</span><span class="n">hvec</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span>
-<a name="ln-942"></a>         <span class="n">u</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">x</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">/</span> <span class="nb">sin</span><span class="p">(</span><span class="n">inc</span><span class="p">),</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="nb">cos</span><span class="p">(</span><span class="n">capom</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="nb">sin</span><span class="p">(</span><span class="n">capom</span><span class="p">))</span>
-<a name="ln-943"></a>      <span class="k">end if</span>
-<a name="ln-944"></a><span class="k">      if</span> <span class="p">(</span><span class="n">capom</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">capom</span> <span class="o">=</span> <span class="n">capom</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-945"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">u</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">u</span> <span class="o">=</span> <span class="n">u</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-946"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">energy</span> <span class="o">*</span> <span class="n">r</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">VSMALL</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-947"></a><span class="k">         </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">parabola</span>
-<a name="ln-948"></a>      <span class="k">else</span>
-<a name="ln-949"></a><span class="k">         </span><span class="n">a</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">energy</span>
-<a name="ln-950"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">a</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-951"></a><span class="k">            </span><span class="n">fac</span> <span class="o">=</span> <span class="o">-</span><span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
-<a name="ln-952"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-953"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
-<a name="ln-954"></a>            <span class="k">else</span>
-<a name="ln-955"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
-<a name="ln-956"></a>            <span class="k">end if</span>
-<a name="ln-957"></a><span class="k">         else</span>
-<a name="ln-958"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
-<a name="ln-959"></a>         <span class="k">end if</span>
-<a name="ln-960"></a><span class="k">      end if</span>
-<a name="ln-961"></a><span class="k">      select case</span> <span class="p">(</span><span class="n">iorbit_type</span><span class="p">)</span>
-<a name="ln-962"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">ELLIPSE</span><span class="p">)</span>
-<a name="ln-963"></a>            <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-906"></a>      <span class="c">!!      References: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 201 - 206.</span>
+<a name="ln-907"></a>      <span class="c">!!              Fitzpatrick, P. M. 1970. Principles of Celestial Mechanics, (Academic Press), 69 - 73.</span>
+<a name="ln-908"></a>      <span class="c">!!              Roy, A. E. 1982. Orbital Motion, (Adam Hilger, Ltd.), 75 - 95</span>
+<a name="ln-909"></a>      <span class="c">!!</span>
+<a name="ln-910"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: orbel_xv2el.f90</span>
+<a name="ln-911"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine orbel_xv2el.f</span>
+<a name="ln-912"></a>      <span class="k">implicit none</span>
+<a name="ln-913"></a>      <span class="c">! Arguments</span>
+<a name="ln-914"></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">!! Gravitational constant</span>
+<a name="ln-915"></a>      <span class="kt">real</span><span 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-916"></a>      <span class="kt">real</span><span 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-917"></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-918"></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-919"></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">inc</span>   <span class="c">!! inclination</span>
+<a name="ln-920"></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">capom</span> <span class="c">!! longitude of ascending node</span>
+<a name="ln-921"></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">omega</span> <span class="c">!! argument of periapsis</span>
+<a name="ln-922"></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-923"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">iorbit_type</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="kd">::</span> <span class="n">r</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">h2</span><span class="p">,</span> <span class="n">h</span><span class="p">,</span> <span class="n">rdotv</span><span class="p">,</span> <span class="n">energy</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">u</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">cw</span><span class="p">,</span> <span class="n">sw</span><span class="p">,</span> <span class="n">face</span><span class="p">,</span> <span class="n">cape</span><span class="p">,</span> <span class="n">tmpf</span><span class="p">,</span> <span class="n">capf</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">hvec</span>
+<a name="ln-927"></a>
+<a name="ln-928"></a>      <span class="n">a</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-929"></a>      <span class="n">e</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-930"></a>      <span class="n">inc</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-931"></a>      <span class="n">capom</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-932"></a>      <span class="n">omega</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-933"></a>      <span class="n">capm</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-934"></a>      <span class="n">r</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</span><span class="p">.</span> <span class="n">x</span><span class="p">(:)</span>
+<a name="ln-935"></a>      <span class="n">v2</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="n">v</span><span class="p">(:))</span>
+<a name="ln-936"></a>      <span class="n">hvec</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v</span><span class="p">(:)</span>
+<a name="ln-937"></a>      <span class="n">h2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">hvec</span><span class="p">(:),</span> <span class="n">hvec</span><span class="p">(:))</span> 
+<a name="ln-938"></a>      <span class="n">h</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</span><span class="p">.</span> <span class="n">hvec</span><span class="p">(:)</span>
+<a name="ln-939"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">h2</span> <span class="o">&lt;=</span> <span class="mi">10</span> <span class="o">*</span> <span class="nb">tiny</span><span class="p">(</span><span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-940"></a><span class="k">      </span><span class="n">rdotv</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">x</span><span class="p">(:),</span> <span class="n">v</span><span class="p">(:))</span>
+<a name="ln-941"></a>      <span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">v2</span> <span class="o">-</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">r</span>
+<a name="ln-942"></a>      <span class="n">fac</span> <span class="o">=</span> <span class="n">hvec</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">/</span> <span class="n">h</span>
+<a name="ln-943"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-944"></a><span class="k">         </span><span class="n">inc</span> <span class="o">=</span> <span class="n">PI</span>
+<a name="ln-945"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-946"></a><span class="k">         </span><span class="n">inc</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
+<a name="ln-947"></a>      <span class="k">end if</span>
+<a name="ln-948"></a><span class="k">      </span><span class="n">fac</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">hvec</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="o">+</span> <span class="n">hvec</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="n">h</span>
+<a name="ln-949"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">fac</span><span class="o">**</span><span class="mi">2</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-950"></a><span class="k">         </span><span class="n">u</span> <span class="o">=</span> <span class="n">atan2</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="n">x</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-951"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">hvec</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">u</span> <span class="o">=</span> <span class="o">-</span><span class="n">u</span>
+<a name="ln-952"></a>      <span class="k">else</span>
+<a name="ln-953"></a><span class="k">         </span><span class="n">capom</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">hvec</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="o">-</span><span class="n">hvec</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span>
+<a name="ln-954"></a>         <span class="n">u</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">x</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">/</span> <span class="nb">sin</span><span class="p">(</span><span class="n">inc</span><span class="p">),</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="nb">cos</span><span class="p">(</span><span class="n">capom</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="nb">sin</span><span class="p">(</span><span class="n">capom</span><span class="p">))</span>
+<a name="ln-955"></a>      <span class="k">end if</span>
+<a name="ln-956"></a><span class="k">      if</span> <span class="p">(</span><span class="n">capom</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">capom</span> <span class="o">=</span> <span class="n">capom</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-957"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">u</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">u</span> <span class="o">=</span> <span class="n">u</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-958"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">energy</span> <span class="o">*</span> <span class="n">r</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">VSMALL</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-959"></a><span class="k">         </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">parabola</span>
+<a name="ln-960"></a>      <span class="k">else</span>
+<a name="ln-961"></a><span class="k">         </span><span class="n">a</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">mu</span> <span class="o">/</span> <span class="n">energy</span>
+<a name="ln-962"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">a</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-963"></a><span class="k">            </span><span class="n">fac</span> <span class="o">=</span> <span class="o">-</span><span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
 <a name="ln-964"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-965"></a><span class="k">               </span><span class="n">e</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
-<a name="ln-966"></a>               <span class="n">cape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-967"></a>               <span class="n">face</span> <span class="o">=</span> <span class="p">(</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">)</span>
-<a name="ln-968"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-969"></a><span class="k">                  </span><span class="n">cape</span> <span class="o">=</span> <span class="n">PI</span>
-<a name="ln-970"></a>               <span class="k">else if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-971"></a><span class="k">                  </span><span class="n">cape</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">face</span><span class="p">)</span>
-<a name="ln-972"></a>               <span class="k">end if</span>
-<a name="ln-973"></a><span class="k">               if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">cape</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">cape</span>
-<a name="ln-974"></a>               <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">cos</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span>
-<a name="ln-975"></a>               <span class="n">cw</span> <span class="o">=</span> <span class="p">(</span><span class="nb">cos</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span> <span class="o">/</span> <span class="n">fac</span>
-<a name="ln-976"></a>               <span class="n">sw</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="n">e</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="nb">sin</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span> <span class="o">/</span> <span class="n">fac</span>
-<a name="ln-977"></a>               <span class="n">w</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">sw</span><span class="p">,</span> <span class="n">cw</span><span class="p">)</span>
-<a name="ln-978"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">w</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">w</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-979"></a>            <span class="k">else</span>
-<a name="ln-980"></a><span class="k">               </span><span class="n">cape</span> <span class="o">=</span> <span class="n">u</span>
-<a name="ln-981"></a>               <span class="n">w</span> <span class="o">=</span> <span class="n">u</span>
-<a name="ln-982"></a>            <span class="k">end if</span>
-<a name="ln-983"></a><span class="k">            </span><span class="n">capm</span> <span class="o">=</span> <span class="n">cape</span> <span class="o">-</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sin</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span>
-<a name="ln-984"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">PARABOLA</span><span class="p">)</span>
-<a name="ln-985"></a>            <span class="n">a</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">h2</span> <span class="o">/</span> <span class="n">mu</span>
-<a name="ln-986"></a>            <span class="n">e</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-987"></a>            <span class="n">w</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-988"></a>            <span class="n">fac</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">a</span> <span class="o">/</span> <span class="n">r</span> <span class="o">-</span> <span class="mf">1.0_DP</span>
-<a name="ln-989"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-990"></a><span class="k">               </span><span class="n">w</span> <span class="o">=</span> <span class="n">PI</span>
-<a name="ln-991"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-992"></a><span class="k">               </span><span class="n">w</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
-<a name="ln-993"></a>            <span class="k">end if</span>
-<a name="ln-994"></a><span class="k">            if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">w</span>
-<a name="ln-995"></a>            <span class="n">tmpf</span> <span class="o">=</span> <span class="nb">tan</span><span class="p">(</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">w</span><span class="p">)</span>
-<a name="ln-996"></a>            <span class="n">capm</span> <span class="o">=</span> <span class="n">tmpf</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">tmpf</span> <span class="o">*</span> <span class="n">tmpf</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-997"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">HYPERBOLA</span><span class="p">)</span>
-<a name="ln-998"></a>            <span class="n">e</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="n">fac</span><span class="p">)</span>
-<a name="ln-999"></a>            <span class="n">tmpf</span> <span class="o">=</span> <span class="nb">max</span><span class="p">((</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">),</span> <span class="mf">1.0_DP</span><span class="p">)</span>
-<a name="ln-1000"></a>            <span class="n">capf</span> <span class="o">=</span> <span class="nb">log</span><span class="p">(</span><span class="n">tmpf</span> <span class="o">+</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">tmpf</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">))</span>
-<a name="ln-1001"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">capf</span> <span class="o">=</span> <span class="o">-</span><span class="n">capf</span>
-<a name="ln-1002"></a>            <span class="n">fac</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">cosh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span>
-<a name="ln-1003"></a>            <span class="n">cw</span> <span class="o">=</span> <span class="p">(</span><span class="n">e</span> <span class="o">-</span> <span class="nb">cosh</span><span class="p">(</span><span class="n">capf</span><span class="p">))</span> <span class="o">/</span> <span class="n">fac</span>
-<a name="ln-1004"></a>            <span class="n">sw</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">e</span> <span class="o">*</span> <span class="n">e</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">/</span> <span class="n">fac</span>
-<a name="ln-1005"></a>            <span class="n">w</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">sw</span><span class="p">,</span> <span class="n">cw</span><span class="p">)</span>
-<a name="ln-1006"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">w</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">w</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-1007"></a>            <span class="n">capm</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">-</span> <span class="n">capf</span>
-<a name="ln-1008"></a>      <span class="k">end select</span>
-<a name="ln-1009"></a><span class="k">      </span><span class="n">omega</span> <span class="o">=</span> <span class="n">u</span> <span class="o">-</span> <span class="n">w</span>
-<a name="ln-1010"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">omega</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">omega</span> <span class="o">=</span> <span class="n">omega</span> <span class="o">+</span> <span class="n">TWOPI</span>
-<a name="ln-1011"></a>
-<a name="ln-1012"></a>      <span class="k">return</span>
-<a name="ln-1013"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2el</span>
-<a name="ln-1014"></a>
-<a name="ln-1015"></a>   
-<a name="ln-1016"></a><span class="k">end submodule </span><span class="n">s_orbel</span>
+<a name="ln-965"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">HYPERBOLA</span>
+<a name="ln-966"></a>            <span class="k">else</span>
+<a name="ln-967"></a><span class="k">               </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">PARABOLA</span>
+<a name="ln-968"></a>            <span class="k">end if</span>
+<a name="ln-969"></a><span class="k">         else</span>
+<a name="ln-970"></a><span class="k">            </span><span class="n">iorbit_type</span> <span class="o">=</span> <span class="n">ELLIPSE</span>
+<a name="ln-971"></a>         <span class="k">end if</span>
+<a name="ln-972"></a><span class="k">      end if</span>
+<a name="ln-973"></a><span class="k">      select case</span> <span class="p">(</span><span class="n">iorbit_type</span><span class="p">)</span>
+<a name="ln-974"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">ELLIPSE</span><span class="p">)</span>
+<a name="ln-975"></a>            <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">h2</span> <span class="o">/</span> <span class="p">(</span><span class="n">mu</span> <span class="o">*</span> <span class="n">a</span><span class="p">)</span>
+<a name="ln-976"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&gt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-977"></a><span class="k">               </span><span class="n">e</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
+<a name="ln-978"></a>               <span class="n">cape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-979"></a>               <span class="n">face</span> <span class="o">=</span> <span class="p">(</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">)</span>
+<a name="ln-980"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-981"></a><span class="k">                  </span><span class="n">cape</span> <span class="o">=</span> <span class="n">PI</span>
+<a name="ln-982"></a>               <span class="k">else if</span> <span class="p">(</span><span class="n">face</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-983"></a><span class="k">                  </span><span class="n">cape</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">face</span><span class="p">)</span>
+<a name="ln-984"></a>               <span class="k">end if</span>
+<a name="ln-985"></a><span class="k">               if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">cape</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">cape</span>
+<a name="ln-986"></a>               <span class="n">fac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">cos</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span>
+<a name="ln-987"></a>               <span class="n">cw</span> <span class="o">=</span> <span class="p">(</span><span class="nb">cos</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span> <span class="o">-</span> <span class="n">e</span><span class="p">)</span> <span class="o">/</span> <span class="n">fac</span>
+<a name="ln-988"></a>               <span class="n">sw</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="n">e</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="nb">sin</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span> <span class="o">/</span> <span class="n">fac</span>
+<a name="ln-989"></a>               <span class="n">w</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">sw</span><span class="p">,</span> <span class="n">cw</span><span class="p">)</span>
+<a name="ln-990"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">w</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">w</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-991"></a>            <span class="k">else</span>
+<a name="ln-992"></a><span class="k">               </span><span class="n">cape</span> <span class="o">=</span> <span class="n">u</span>
+<a name="ln-993"></a>               <span class="n">w</span> <span class="o">=</span> <span class="n">u</span>
+<a name="ln-994"></a>            <span class="k">end if</span>
+<a name="ln-995"></a><span class="k">            </span><span class="n">capm</span> <span class="o">=</span> <span class="n">cape</span> <span class="o">-</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sin</span><span class="p">(</span><span class="n">cape</span><span class="p">)</span>
+<a name="ln-996"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">PARABOLA</span><span class="p">)</span>
+<a name="ln-997"></a>            <span class="n">a</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">h2</span> <span class="o">/</span> <span class="n">mu</span>
+<a name="ln-998"></a>            <span class="n">e</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-999"></a>            <span class="n">w</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1000"></a>            <span class="n">fac</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">a</span> <span class="o">/</span> <span class="n">r</span> <span class="o">-</span> <span class="mf">1.0_DP</span>
+<a name="ln-1001"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="o">-</span><span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1002"></a><span class="k">               </span><span class="n">w</span> <span class="o">=</span> <span class="n">PI</span>
+<a name="ln-1003"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">fac</span> <span class="o">&lt;</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1004"></a><span class="k">               </span><span class="n">w</span> <span class="o">=</span> <span class="nb">acos</span><span class="p">(</span><span class="n">fac</span><span class="p">)</span>
+<a name="ln-1005"></a>            <span class="k">end if</span>
+<a name="ln-1006"></a><span class="k">            if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">TWOPI</span> <span class="o">-</span> <span class="n">w</span>
+<a name="ln-1007"></a>            <span class="n">tmpf</span> <span class="o">=</span> <span class="nb">tan</span><span class="p">(</span><span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">w</span><span class="p">)</span>
+<a name="ln-1008"></a>            <span class="n">capm</span> <span class="o">=</span> <span class="n">tmpf</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="n">tmpf</span> <span class="o">*</span> <span class="n">tmpf</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-1009"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">HYPERBOLA</span><span class="p">)</span>
+<a name="ln-1010"></a>            <span class="n">e</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="n">fac</span><span class="p">)</span>
+<a name="ln-1011"></a>            <span class="n">tmpf</span> <span class="o">=</span> <span class="nb">max</span><span class="p">((</span><span class="n">a</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">a</span> <span class="o">*</span> <span class="n">e</span><span class="p">),</span> <span class="mf">1.0_DP</span><span class="p">)</span>
+<a name="ln-1012"></a>            <span class="n">capf</span> <span class="o">=</span> <span class="nb">log</span><span class="p">(</span><span class="n">tmpf</span> <span class="o">+</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">tmpf</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">))</span>
+<a name="ln-1013"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">rdotv</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">capf</span> <span class="o">=</span> <span class="o">-</span><span class="n">capf</span>
+<a name="ln-1014"></a>            <span class="n">fac</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">cosh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span>
+<a name="ln-1015"></a>            <span class="n">cw</span> <span class="o">=</span> <span class="p">(</span><span class="n">e</span> <span class="o">-</span> <span class="nb">cosh</span><span class="p">(</span><span class="n">capf</span><span class="p">))</span> <span class="o">/</span> <span class="n">fac</span>
+<a name="ln-1016"></a>            <span class="n">sw</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">e</span> <span class="o">*</span> <span class="n">e</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">/</span> <span class="n">fac</span>
+<a name="ln-1017"></a>            <span class="n">w</span> <span class="o">=</span> <span class="n">atan2</span><span class="p">(</span><span class="n">sw</span><span class="p">,</span> <span class="n">cw</span><span class="p">)</span>
+<a name="ln-1018"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">w</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">w</span> <span class="o">=</span> <span class="n">w</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-1019"></a>            <span class="n">capm</span> <span class="o">=</span> <span class="n">e</span> <span class="o">*</span> <span class="nb">sinh</span><span class="p">(</span><span class="n">capf</span><span class="p">)</span> <span class="o">-</span> <span class="n">capf</span>
+<a name="ln-1020"></a>      <span class="k">end select</span>
+<a name="ln-1021"></a><span class="k">      </span><span class="n">omega</span> <span class="o">=</span> <span class="n">u</span> <span class="o">-</span> <span class="n">w</span>
+<a name="ln-1022"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">omega</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">omega</span> <span class="o">=</span> <span class="n">omega</span> <span class="o">+</span> <span class="n">TWOPI</span>
+<a name="ln-1023"></a>
+<a name="ln-1024"></a>      <span class="k">return</span>
+<a name="ln-1025"></a><span class="k">   end subroutine </span><span class="n">orbel_xv2el</span>
+<a name="ln-1026"></a>
+<a name="ln-1027"></a>   
+<a name="ln-1028"></a><span class="k">end submodule </span><span class="n">s_orbel</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/orbel.f90~2.html b/docs/sourcefile/orbel.f90~2.html
new file mode 100644
index 000000000..da332e409
--- /dev/null
+++ b/docs/sourcefile/orbel.f90~2.html
@@ -0,0 +1,704 @@
+<!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>orbel.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>orbel.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.1% of total for source files.">17 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/orbel.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">orbel.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="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/orbel.html">orbel</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/orbel.f90~2.html#src">orbel.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~~orbel.f90~2~~EfferentGraph Pages: 1 -->
+<svg id="sourcefileorbelf902EfferentGraph" width="641pt" height="302pt"
+ viewBox="0.00 0.00 641.00 302.07" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 412.12)">
+<title>sourcefile~~orbel.f90~2~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 879,-412.12 879,4 -4,4"/>
+<!-- sourcefile~orbel.f90~2 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node1" class="node">
+<title>sourcefile~orbel.f90~2</title>
+<polygon fill="none" stroke="black" points="875,-133.12 820,-133.12 820,-109.12 875,-109.12 875,-133.12"/>
+<text text-anchor="middle" x="847.5" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">orbel.f90</text>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M826.89,-109.09C789.66,-87.43 705.57,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.53,-133.4C818.48,-149.87 789.82,-179.29 770.86,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="768.34,-196.33 763.87,-205.93 773.36,-201.21 768.34,-196.33"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~orbel.f90~2~~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="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node4" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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~2~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node6" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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~2~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node8" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" 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~2~~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="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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~2~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node10" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~orbel.f90~2~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~orbel.f90~2~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~orbel.f90~2~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~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="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~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="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~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="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~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="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~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="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~2~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefileorbelf902EfferentGraph = svgPanZoom('#sourcefileorbelf902EfferentGraph', {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="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/orbel.html">orbel</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/orbel.f90~2.html#src">orbel.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">module </span><span class="n">orbel</span>
+<a name="ln-2"></a>    <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a>    <span class="k">private</span>
+<a name="ln-4"></a><span class="k">    public</span> <span class="kd">::</span> <span class="n">xv2el</span>
+<a name="ln-5"></a><span class="k">contains</span>
+<a name="ln-6"></a><span class="k">    pure elemental subroutine </span><span class="n">xv2el</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">a</span><span class="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span><span class="p">)</span>
+<a name="ln-7"></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">orbel_xv2el</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">real</span><span class="o">*</span><span class="mi">8</span><span class="p">,</span> <span 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="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>
+<a name="ln-11"></a>        <span class="kt">real</span><span class="o">*</span><span class="mi">8</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="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span>
+<a name="ln-12"></a>        <span class="c">!$f2py intent(in) mu</span>
+<a name="ln-13"></a>        <span class="c">!$f2py intent(in) px</span>
+<a name="ln-14"></a>        <span class="c">!$f2py intent(in) py</span>
+<a name="ln-15"></a>        <span class="c">!$f2py intent(in) pz</span>
+<a name="ln-16"></a>        <span class="c">!$f2py intent(in) vx</span>
+<a name="ln-17"></a>        <span class="c">!$f2py intent(in) vy</span>
+<a name="ln-18"></a>        <span class="c">!$f2py intent(in) vz</span>
+<a name="ln-19"></a>        <span class="c">!$f2py intent(out) a</span>
+<a name="ln-20"></a>        <span class="c">!$f2py intent(out) e</span>
+<a name="ln-21"></a>        <span class="c">!$f2py intent(out) inc</span>
+<a name="ln-22"></a>        <span class="c">!$f2py intent(out) capom</span>
+<a name="ln-23"></a>        <span class="c">!$f2py intent(out) omega</span>
+<a name="ln-24"></a>        <span class="c">!$f2py intent(out) capm</span>
+<a name="ln-25"></a>        <span class="c">! Internals</span>
+<a name="ln-26"></a>        <span class="kt">real</span><span class="o">*</span><span class="mi">8</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span>
+<a name="ln-27"></a>        <span class="n">x</span> <span class="o">=</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>
+<a name="ln-28"></a>        <span class="n">v</span> <span class="o">=</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>
+<a name="ln-29"></a>        <span class="k">call </span><span class="n">orbel_xv2el</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">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</span><span class="p">)</span>
+<a name="ln-30"></a>        <span class="k">return</span>
+<a name="ln-31"></a><span class="k">    end subroutine </span><span class="n">xv2el</span>
+<a name="ln-32"></a><span class="k">end module </span><span class="n">orbel</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/rmvs_classes.f90.html b/docs/sourcefile/rmvs_classes.f90.html
index f895a2ba0..057fdc009 100644
--- a/docs/sourcefile/rmvs_classes.f90.html
+++ b/docs/sourcefile/rmvs_classes.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_classes.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.5% of total for source files.">203 statements</a>
+    title=" 1.3% of total for source files.">210 statements</a>
      </li> 
      
      
@@ -345,1024 +345,1145 @@ <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="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)">
+<svg id="sourcefilermvs_classesf90AfferentGraph" width="544pt" height="2804pt"
+ viewBox="0.00 0.00 544.00 2804.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 2800)">
 <title>sourcefile~~rmvs_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 540,-2464 540,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 540,-2800 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,-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>
+<polygon fill="none" stroke="black" points="95,-1368 0,-1368 0,-1344 95,-1344 95,-1368"/>
+<text text-anchor="middle" x="47.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes.f90</text>
 </g>
 <!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node2" class="node">
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-2796 417.5,-2796 417.5,-2772 490.5,-2772 490.5,-2796"/>
+<text text-anchor="middle" x="454" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_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="M417.29,-2442.7C402.64,-2439.53 385.89,-2434.6 372,-2427 335.85,-2407.23 345.2,-2364 304,-2364"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.48,-2779.4C385.9,-2774.09 339.38,-2763.22 304,-2742"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node3" class="node">
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node10" class="node">
 <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>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="336,-1368 270,-1368 270,-1344 336,-1344 336,-1368"/>
+<text text-anchor="middle" x="303" y="-1353.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~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge11" class="edge">
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge37" 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.19,-2783.87C400.87,-2781.8 382.82,-2776.3 372,-2763 326.38,-2706.89 307.01,-1553.09 304.33,-1378.15"/>
+<polygon fill="#000000" stroke="#000000" points="307.83,-1378.01 304.18,-1368.06 300.83,-1378.11 307.83,-1378.01"/>
 </g>
-<!-- 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>
+<!-- sourcefile~rmvs_encounter_check.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-2754 383,-2754 383,-2730 525,-2730 525,-2754"/>
+<text text-anchor="middle" x="454" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge3" 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="M404.68,-2754.04C373.75,-2758.98 333.95,-2759.96 304,-2742"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge75" 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.94,-2730.65C378.84,-2728.01 375.12,-2724.83 372,-2721 327.76,-2666.68 307.27,-1550.64 304.36,-1378.27"/>
+<polygon fill="#000000" stroke="#000000" points="307.86,-1378.05 304.19,-1368.11 300.86,-1378.16 307.86,-1378.05"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-2712 414,-2712 414,-2688 494,-2688 494,-2712"/>
+<text text-anchor="middle" x="454" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge3" 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.64,-2394.37C395.28,-2391.41 383.18,-2388.17 372,-2385 341.57,-2376.36 335.63,-2364 304,-2364"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge4" 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,-2709.79C400.47,-2713.2 385.56,-2717.15 372,-2721 341.57,-2729.64 331.13,-2758.27 304,-2742"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.87,-2699.38C398.48,-2697 382.1,-2691.38 372,-2679 329.15,-2626.46 307.54,-1547.97 304.4,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="307.9,-1378.07 304.21,-1368.13 300.9,-1378.2 307.9,-1378.07"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~rmvs_kick.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,-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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-2670 415,-2670 415,-2646 493,-2646 493,-2670"/>
+<text text-anchor="middle" x="454" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.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.93,-2364C381.09,-2364 340.09,-2364 304,-2364"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-2742C157.46,-2752 63.33,-1556.4 50.11,-1378.12"/>
+<polygon fill="#000000" stroke="#000000" points="53.59,-1377.79 49.37,-1368.07 46.61,-1378.3 53.59,-1377.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.85,-2663.84C400.8,-2667.02 385.13,-2671.82 372,-2679 335.85,-2698.77 339.33,-2763.19 304,-2742"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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="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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.72,-2657.5C399.09,-2655.19 382.3,-2649.6 372,-2637 330.5,-2586.21 307.79,-1544.05 304.44,-1378.17"/>
+<polygon fill="#000000" stroke="#000000" points="307.94,-1378.07 304.24,-1368.14 300.94,-1378.21 307.94,-1378.07"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~symba_classes.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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="234,-1368 131,-1368 131,-1344 234,-1344 234,-1368"/>
+<text text-anchor="middle" x="182.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge5" 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="M404.93,-2334.07C394.07,-2336.91 382.62,-2339.98 372,-2343 341.57,-2351.64 335.63,-2364 304,-2364"/>
-</g>
-<!-- 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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.84,-1356C122.49,-1356 113.78,-1356 105.3,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="105.09,-1352.5 95.09,-1356 105.09,-1359.5 105.09,-1352.5"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node7" class="node">
-<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>
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-108 407,-108 407,-84 501,-84 501,-108"/>
+<text text-anchor="middle" x="454" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge6" 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,-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"/>
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.8,-92.79C377.27,-91.53 338.22,-91.33 304,-96"/>
 </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"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.71,-97.98C393.59,-100.92 380.56,-106.55 372,-117 331.9,-165.99 308.1,-1170.01 304.48,-1333.57"/>
+<polygon fill="#000000" stroke="#000000" points="300.98,-1333.79 304.26,-1343.87 307.98,-1333.95 300.98,-1333.79"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-66 411,-66 411,-42 497,-42 497,-66"/>
+<text text-anchor="middle" x="454" y="-51.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_edge7" class="edge">
-<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"/>
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.86,-64.53C398.32,-67.77 384.58,-71.43 372,-75 341.57,-83.64 335.34,-91.72 304,-96"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_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="M410.93,-55.12C396.43,-57.75 381.47,-63.41 372,-75 330.5,-125.79 307.79,-1167.95 304.44,-1333.83"/>
+<polygon fill="#000000" stroke="#000000" points="300.94,-1333.79 304.24,-1343.86 307.94,-1333.93 300.94,-1333.79"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-24 420,-24 420,0 488,0 488,-24"/>
+<text text-anchor="middle" x="454" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge8" 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.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_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~eucl.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.69,-16.8C404.49,-19.93 386.66,-24.98 372,-33 335.85,-52.77 344.82,-90.43 304,-96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-96C249.82,-103.12 236.12,-93.83 183.5,-96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.5,-96C51.92,-101.33 48.21,-1166.13 48.43,-1333.87"/>
+<polygon fill="#000000" stroke="#000000" points="44.93,-1333.99 48.45,-1343.99 51.93,-1333.98 44.93,-1333.99"/>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.68,-11.86C402.75,-13.68 383.39,-19.04 372,-33 329.15,-85.54 307.54,-1164.03 304.4,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="300.9,-1333.8 304.21,-1343.87 307.9,-1333.93 300.9,-1333.8"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.52,-1343.91C296.37,-1214.67 249.7,-93.28 183.5,-96"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge19" 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,-1356C262.05,-1356 253.35,-1356 244.59,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="244.33,-1352.5 234.33,-1356 244.33,-1359.5 244.33,-1352.5"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node11" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="529,-2628 379,-2628 379,-2604 529,-2604 529,-2628"/>
+<text text-anchor="middle" x="454" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge12" 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="M389.83,-2603.93C383.56,-2601.48 377.5,-2598.54 372,-2595 331.61,-2569 339.68,-2543.15 304,-2511"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge20" 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.89,-2603.93C378.2,-2601.43 374.85,-2598.48 372,-2595 331.9,-2546.01 308.1,-1541.99 304.48,-1378.43"/>
+<polygon fill="#000000" stroke="#000000" points="307.98,-1378.05 304.26,-1368.13 300.98,-1378.21 307.98,-1378.05"/>
+</g>
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node12" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-2586 410,-2586 410,-2562 498,-2562 498,-2586"/>
+<text text-anchor="middle" x="454" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge14" 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.74,-2565.33C397.3,-2562.16 383.89,-2558.08 372,-2553 339.33,-2539.05 330.39,-2534.78 304,-2511"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.69,-2572.62C395.59,-2569.89 381.21,-2564.23 372,-2553 333.25,-2505.75 308.37,-1537.7 304.52,-1378.17"/>
+<polygon fill="#000000" stroke="#000000" points="308.02,-1378.01 304.28,-1368.1 301.02,-1378.18 308.02,-1378.01"/>
+</g>
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-2376 415,-2376 415,-2352 493,-2352 493,-2376"/>
+<text text-anchor="middle" x="454" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.81,-2363.42C399.2,-2361.1 382.39,-2355.52 372,-2343 308.37,-2266.36 304.22,-1518.16 304,-1378.42"/>
+<polygon fill="#000000" stroke="#000000" points="307.5,-1378.1 303.99,-1368.1 300.5,-1378.11 307.5,-1378.1"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="510,-2334 398,-2334 398,-2310 510,-2310 510,-2334"/>
+<text text-anchor="middle" x="454" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.99,-2317.51C388.03,-2314.21 378.69,-2309.04 372,-2301 311.08,-2227.85 304.73,-1514.27 304.08,-1378.31"/>
+<polygon fill="#000000" stroke="#000000" points="307.58,-1378.23 304.03,-1368.24 300.58,-1378.26 307.58,-1378.23"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-2292 417.5,-2292 417.5,-2268 490.5,-2268 490.5,-2292"/>
+<text text-anchor="middle" x="454" y="-2277.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~~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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.35,-2279.74C401.06,-2277.64 382.99,-2272.15 372,-2259 313.77,-2189.33 305.26,-1510.05 304.15,-1378.13"/>
+<polygon fill="#000000" stroke="#000000" points="307.65,-1377.99 304.07,-1368.02 300.65,-1378.05 307.65,-1377.99"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="509.5,-2250 398.5,-2250 398.5,-2226 509.5,-2226 509.5,-2250"/>
+<text text-anchor="middle" x="454" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge25" 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.45,-2233.6C388.33,-2230.32 378.82,-2225.13 372,-2217 316.52,-2150.86 305.83,-1506.92 304.24,-1378.29"/>
+<polygon fill="#000000" stroke="#000000" points="307.74,-1378.04 304.12,-1368.08 300.74,-1378.12 307.74,-1378.04"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-2208 415.5,-2208 415.5,-2184 492.5,-2184 492.5,-2208"/>
+<text text-anchor="middle" x="454" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.31,-2195.42C399.6,-2193.12 382.58,-2187.56 372,-2175 319.25,-2112.37 306.42,-1503.38 304.34,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="307.83,-1378.04 304.17,-1368.1 300.83,-1378.16 307.83,-1378.04"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-2544 401,-2544 401,-2520 507,-2520 507,-2544"/>
+<text text-anchor="middle" x="454" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge15" 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.74,-2538.22C369.02,-2539.02 329.81,-2534.26 304,-2511"/>
+</g>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.83,-2528.48C389.79,-2525.26 379.29,-2519.87 372,-2511 297.42,-2420.26 302.36,-1531.17 303.77,-1378.31"/>
+<polygon fill="#000000" stroke="#000000" points="307.27,-1378.28 303.86,-1368.25 300.27,-1378.21 307.27,-1378.28"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="513,-2166 395,-2166 395,-2142 513,-2142 513,-2166"/>
+<text text-anchor="middle" x="454" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge28" 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.79,-2148.26C386.07,-2144.96 378.01,-2140.1 372,-2133 321.96,-2073.85 307.04,-1499.44 304.44,-1378.34"/>
+<polygon fill="#000000" stroke="#000000" points="307.94,-1378 304.23,-1368.07 300.94,-1378.14 307.94,-1378"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-2124 420,-2124 420,-2100 488,-2100 488,-2124"/>
+<text text-anchor="middle" x="454" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.91,-2111.95C403.04,-2110.08 383.67,-2104.72 372,-2091 324.7,-2035.38 307.72,-1496.24 304.57,-1378.6"/>
+<polygon fill="#000000" stroke="#000000" points="308.06,-1378.18 304.3,-1368.28 301.06,-1378.37 308.06,-1378.18"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-2082 411.5,-2082 411.5,-2058 496.5,-2058 496.5,-2082"/>
+<text text-anchor="middle" x="454" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.21,-2068.65C396.74,-2065.99 381.72,-2060.37 372,-2049 327.37,-1996.81 308.4,-1491.42 304.69,-1378.36"/>
+<polygon fill="#000000" stroke="#000000" points="308.18,-1378.02 304.37,-1368.14 301.19,-1378.24 308.18,-1378.02"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487.5,-2040 420.5,-2040 420.5,-2016 487.5,-2016 487.5,-2040"/>
+<text text-anchor="middle" x="454" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge31" 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,-2027.94C403.43,-2026.09 383.85,-2020.76 372,-2007 330.08,-1958.28 309.14,-1487.22 304.84,-1378.37"/>
+<polygon fill="#000000" stroke="#000000" points="308.33,-1378.06 304.45,-1368.21 301.34,-1378.33 308.33,-1378.06"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-1998 411.5,-1998 411.5,-1974 496.5,-1974 496.5,-1998"/>
+<text text-anchor="middle" x="454" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.29,-1984.58C396.83,-1981.91 381.8,-1976.31 372,-1965 332.75,-1919.72 309.92,-1482.48 305.01,-1378.23"/>
+<polygon fill="#000000" stroke="#000000" points="308.5,-1378.03 304.54,-1368.2 301.51,-1378.35 308.5,-1378.03"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node24" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502,-1956 406,-1956 406,-1932 502,-1932 502,-1956"/>
+<text text-anchor="middle" x="454" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.85,-1941.38C393.17,-1938.36 380.6,-1932.84 372,-1923 335.45,-1881.17 310.78,-1478.03 305.2,-1378.25"/>
+<polygon fill="#000000" stroke="#000000" points="308.69,-1377.9 304.64,-1368.11 301.7,-1378.28 308.69,-1377.9"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node25" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node25"><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~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"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.33,-1900.99C399.01,-1898.55 382.57,-1892.98 372,-1881 304.79,-1804.83 302.95,-1468.78 303.7,-1378.43"/>
+<polygon fill="#000000" stroke="#000000" points="307.2,-1378.26 303.8,-1368.23 300.2,-1378.19 307.2,-1378.26"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-2502 402.5,-2502 402.5,-2478 505.5,-2478 505.5,-2502"/>
+<text text-anchor="middle" x="454" y="-2487.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~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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge10" 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.46,-2500.95C362.18,-2509.05 311.35,-2517.62 304,-2511"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.11,-2486.83C390.61,-2483.65 379.57,-2478.19 372,-2469 300.17,-2381.81 302.8,-1528.31 303.82,-1378.42"/>
+<polygon fill="#000000" stroke="#000000" points="307.32,-1378.19 303.89,-1368.16 300.32,-1378.13 307.32,-1378.19"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-2460 407,-2460 407,-2436 501,-2436 501,-2460"/>
+<text text-anchor="middle" x="454" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge11" 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.79,-2457.43C395.2,-2460.49 382.96,-2464.32 372,-2469 339.33,-2482.95 330.39,-2534.78 304,-2511"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.77,-2445.97C393.64,-2443.04 380.6,-2437.42 372,-2427 302.91,-2343.34 303.25,-1525.17 303.87,-1378.47"/>
+<polygon fill="#000000" stroke="#000000" points="307.38,-1378.07 303.92,-1368.05 300.38,-1378.03 307.38,-1378.07"/>
+</g>
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495,-2418 413,-2418 413,-2394 495,-2394 495,-2418"/>
+<text text-anchor="middle" x="454" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge13" 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.62,-2411.22C398.95,-2414.31 384.09,-2419.22 372,-2427 331.61,-2453 339.68,-2543.15 304,-2511"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-2511C214.35,-2432.01 187.9,-1531.34 184.03,-1378.1"/>
+<polygon fill="#000000" stroke="#000000" points="187.52,-1377.93 183.78,-1368.02 180.53,-1378.11 187.52,-1377.93"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- 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.7,-2405.11C397.69,-2402.61 381.91,-2396.97 372,-2385 305.65,-2304.86 303.73,-1521.84 303.94,-1378.48"/>
+<polygon fill="#000000" stroke="#000000" points="307.44,-1378.27 303.96,-1368.27 300.44,-1378.26 307.44,-1378.27"/>
+</g>
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.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">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.76,-1859.68C403.06,-1857.7 383.9,-1852.33 372,-1839 310.09,-1769.61 304.36,-1463.75 303.98,-1378.26"/>
+<polygon fill="#000000" stroke="#000000" points="307.48,-1378.12 303.96,-1368.12 300.48,-1378.13 307.48,-1378.12"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node30" class="node">
-<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>
+<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,-1830 415.5,-1830 415.5,-1806 492.5,-1806 492.5,-1830"/>
+<text text-anchor="middle" x="454" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.3,-1817C399.78,-1814.6 382.91,-1809.07 372,-1797 315.44,-1734.43 305.9,-1459.22 304.31,-1378.39"/>
+<polygon fill="#000000" stroke="#000000" points="307.81,-1378.26 304.14,-1368.32 300.81,-1378.38 307.81,-1378.26"/>
 </g>
 <!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node31" class="node">
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1788 416.5,-1788 416.5,-1764 491.5,-1764 491.5,-1788"/>
+<text text-anchor="middle" x="454" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge34" class="edge">
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge42" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.22,-1775.04C400.49,-1772.7 383.2,-1767.2 372,-1755 320.79,-1699.25 307.61,-1454.75 304.72,-1378.68"/>
+<polygon fill="#000000" stroke="#000000" points="308.21,-1378.21 304.36,-1368.34 301.21,-1378.46 308.21,-1378.21"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1746 415.5,-1746 415.5,-1722 492.5,-1722 492.5,-1746"/>
+<text text-anchor="middle" x="454" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.09,-1732.75C399.72,-1730.28 383.02,-1724.77 372,-1713 326.04,-1663.93 309.47,-1449.11 305.22,-1378.55"/>
+<polygon fill="#000000" stroke="#000000" points="308.69,-1377.94 304.62,-1368.16 301.7,-1378.34 308.69,-1377.94"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-1704 422,-1704 422,-1680 486,-1680 486,-1704"/>
+<text text-anchor="middle" x="454" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.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="M421.76,-1691.52C404.81,-1689.58 384.78,-1684.31 372,-1671 331.25,-1628.54 311.55,-1443.15 305.83,-1378.41"/>
+<polygon fill="#000000" stroke="#000000" points="309.29,-1377.77 304.95,-1368.11 302.31,-1378.37 309.29,-1377.77"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~rmvs_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="536,-1662 372,-1662 372,-1638 536,-1638 536,-1662"/>
+<text text-anchor="middle" x="454" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge46" 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="M383.75,-1637.93C379.46,-1635.46 375.48,-1632.51 372,-1629 336.4,-1593.06 313.89,-1436.53 306.59,-1378.1"/>
+<polygon fill="#000000" stroke="#000000" points="310.06,-1377.59 305.37,-1368.09 303.11,-1378.44 310.06,-1377.59"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.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">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.8,-1607.65C409.14,-1606.03 386.51,-1601.04 372,-1587 312.89,-1529.79 304.47,-1424.05 303.74,-1378.18"/>
+<polygon fill="#000000" stroke="#000000" points="307.24,-1378.1 303.7,-1368.12 300.24,-1378.14 307.24,-1378.1"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_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">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.12,-1563.74C400.12,-1561.06 383.7,-1555.67 372,-1545 323.12,-1500.41 309.34,-1418.11 305.49,-1378.48"/>
+<polygon fill="#000000" stroke="#000000" points="308.95,-1377.96 304.62,-1368.29 301.98,-1378.55 308.95,-1377.96"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1536 411,-1536 411,-1512 497,-1512 497,-1536"/>
+<text text-anchor="middle" x="454" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_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="M410.59,-1520.21C397.07,-1517.23 382.82,-1512.03 372,-1503 332.99,-1470.44 315.17,-1410.61 308.07,-1378.22"/>
+<polygon fill="#000000" stroke="#000000" points="311.41,-1377.1 305.98,-1368 304.55,-1378.5 311.41,-1377.1"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1494 420,-1494 420,-1470 488,-1470 488,-1494"/>
+<text text-anchor="middle" x="454" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.88,-1479.01C404.2,-1476.27 385.9,-1471.03 372,-1461 342.56,-1439.77 322.58,-1401.51 312.25,-1377.5"/>
+<polygon fill="#000000" stroke="#000000" points="315.46,-1376.09 308.42,-1368.18 308.98,-1378.76 315.46,-1376.09"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="484,-1452 424,-1452 424,-1428 484,-1428 484,-1452"/>
+<text text-anchor="middle" x="454" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.97,-1436.05C407.93,-1433.01 388.06,-1427.78 372,-1419 351.93,-1408.03 333.19,-1389.82 320.49,-1375.8"/>
+<polygon fill="#000000" stroke="#000000" points="322.97,-1373.32 313.74,-1368.11 317.7,-1377.93 322.97,-1373.32"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-1410 401.5,-1410 401.5,-1386 506.5,-1386 506.5,-1410"/>
+<text text-anchor="middle" x="454" y="-1395.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_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"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_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="M404.93,-1385.93C394.07,-1383.09 382.62,-1380.02 372,-1377 363.45,-1374.57 354.34,-1371.85 345.65,-1369.19"/>
+<polygon fill="#000000" stroke="#000000" points="346.67,-1365.84 336.08,-1366.24 344.6,-1372.53 346.67,-1365.84"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~setup.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,-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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node41"><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~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.32,-1356C403.13,-1356 371.62,-1356 346.28,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="346.19,-1352.5 336.19,-1356 346.19,-1359.5 346.19,-1352.5"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node42"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge16" 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.84,-212.59C369.42,-203.89 311.37,-193.37 304,-201"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.98,-223.16C396.48,-225.8 381.51,-231.45 372,-243 300.17,-330.19 302.8,-1183.69 303.82,-1333.58"/>
+<polygon fill="#000000" stroke="#000000" points="300.32,-1333.87 303.89,-1343.84 307.32,-1333.81 300.32,-1333.87"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1326 415.5,-1326 415.5,-1302 492.5,-1302 492.5,-1326"/>
+<text text-anchor="middle" x="454" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.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="M415.4,-1323.37C401.7,-1326.88 386.11,-1330.99 372,-1335 363.45,-1337.43 354.34,-1340.15 345.65,-1342.81"/>
+<polygon fill="#000000" stroke="#000000" points="344.6,-1339.47 336.08,-1345.76 346.67,-1346.16 344.6,-1339.47"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1284 420,-1284 420,-1260 488,-1260 488,-1284"/>
+<text text-anchor="middle" x="454" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.69,-1276.8C404.49,-1279.93 386.66,-1284.98 372,-1293 351.93,-1303.97 333.19,-1322.18 320.49,-1336.2"/>
+<polygon fill="#000000" stroke="#000000" points="317.7,-1334.07 313.74,-1343.89 322.97,-1338.68 317.7,-1334.07"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node45"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.88,-1233.35C402.66,-1236.18 385.31,-1241.4 372,-1251 342.56,-1272.23 322.58,-1310.49 312.25,-1334.5"/>
+<polygon fill="#000000" stroke="#000000" points="308.98,-1333.24 308.42,-1343.82 315.46,-1335.91 308.98,-1333.24"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1200 412,-1200 412,-1176 496,-1176 496,-1200"/>
+<text text-anchor="middle" x="454" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.85,-1191.52C397.95,-1194.45 383.15,-1199.69 372,-1209 332.99,-1241.56 315.17,-1301.39 308.07,-1333.78"/>
+<polygon fill="#000000" stroke="#000000" points="304.55,-1333.5 305.98,-1344 311.41,-1334.9 304.55,-1333.5"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481.5,-1158 426.5,-1158 426.5,-1134 481.5,-1134 481.5,-1158"/>
+<text text-anchor="middle" x="454" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.3,-1146.7C408.87,-1148.52 386.7,-1153.59 372,-1167 323.12,-1211.59 309.34,-1293.89 305.49,-1333.52"/>
+<polygon fill="#000000" stroke="#000000" points="301.98,-1333.45 304.62,-1343.71 308.95,-1334.04 301.98,-1333.45"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-1116 418.5,-1116 418.5,-1092 489.5,-1092 489.5,-1116"/>
+<text text-anchor="middle" x="454" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.09,-1105.39C402.18,-1107.78 384.21,-1113.18 372,-1125 312.89,-1182.21 304.47,-1287.95 303.74,-1333.82"/>
+<polygon fill="#000000" stroke="#000000" points="300.24,-1333.86 303.7,-1343.88 307.24,-1333.9 300.24,-1333.86"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1074 427,-1074 427,-1050 481,-1050 481,-1074"/>
+<text text-anchor="middle" x="454" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.99,-1062.13C409.2,-1063.62 386.31,-1068.55 372,-1083 336.4,-1118.94 313.89,-1275.47 306.59,-1333.9"/>
+<polygon fill="#000000" stroke="#000000" points="303.11,-1333.56 305.37,-1343.91 310.06,-1334.41 303.11,-1333.56"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-1032 414.5,-1032 414.5,-1008 493.5,-1008 493.5,-1032"/>
+<text text-anchor="middle" x="454" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_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="M414.39,-1021.52C399.28,-1024.07 382.96,-1029.58 372,-1041 331.25,-1083.46 311.55,-1268.85 305.83,-1333.59"/>
+<polygon fill="#000000" stroke="#000000" points="302.31,-1333.63 304.95,-1343.89 309.29,-1334.23 302.31,-1333.63"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-990 427,-990 427,-966 481,-966 481,-990"/>
+<text text-anchor="middle" x="454" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.74,-977.88C408.82,-979.27 385.9,-984.16 372,-999 326.04,-1048.07 309.47,-1262.89 305.22,-1333.45"/>
+<polygon fill="#000000" stroke="#000000" points="301.7,-1333.66 304.62,-1343.84 308.69,-1334.06 301.7,-1333.66"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node52" class="node">
-<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>
+<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,-948 421.5,-948 421.5,-924 486.5,-924 486.5,-948"/>
+<text text-anchor="middle" x="454" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.13,-936.32C404.2,-938.22 384.38,-943.52 372,-957 320.79,-1012.75 307.61,-1257.25 304.72,-1333.32"/>
+<polygon fill="#000000" stroke="#000000" points="301.21,-1333.54 304.36,-1343.66 308.21,-1333.79 301.21,-1333.54"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_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">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.12,-895.72C396.81,-898.44 381.94,-904.01 372,-915 315.44,-977.57 305.9,-1252.78 304.31,-1333.61"/>
+<polygon fill="#000000" stroke="#000000" points="300.81,-1333.62 304.14,-1343.68 307.81,-1333.74 300.81,-1333.62"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-864 402.5,-864 402.5,-840 505.5,-840 505.5,-864"/>
+<text text-anchor="middle" x="454" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.18,-855.71C390.82,-858.89 379.83,-864.22 372,-873 310.09,-942.39 304.36,-1248.25 303.98,-1333.74"/>
+<polygon fill="#000000" stroke="#000000" points="300.48,-1333.87 303.96,-1343.88 307.48,-1333.88 300.48,-1333.87"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node55" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.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">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_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="M419.7,-810.27C402.98,-812.23 383.82,-817.6 372,-831 304.79,-907.17 302.95,-1243.22 303.7,-1333.57"/>
+<polygon fill="#000000" stroke="#000000" points="300.2,-1333.81 303.8,-1343.77 307.2,-1333.74 300.2,-1333.81"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481.5,-780 426.5,-780 426.5,-756 481.5,-756 481.5,-780"/>
+<text text-anchor="middle" x="454" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.42,-767.59C408.35,-768.84 385.38,-773.69 372,-789 335.45,-830.83 310.78,-1233.97 305.2,-1333.75"/>
+<polygon fill="#000000" stroke="#000000" points="301.7,-1333.72 304.64,-1343.89 308.69,-1334.1 301.7,-1333.72"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node57"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.42,-729.44C390.92,-732.61 379.8,-738 372,-747 332.75,-792.28 309.92,-1229.52 305.01,-1333.77"/>
+<polygon fill="#000000" stroke="#000000" points="301.51,-1333.65 304.54,-1343.8 308.5,-1333.97 301.51,-1333.65"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-192 411,-192 411,-168 497,-168 497,-192"/>
+<text text-anchor="middle" x="454" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge18" 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.85,-173.27C377.09,-170.49 331.05,-173.01 304,-201"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.97,-181.15C396.47,-183.78 381.5,-189.44 372,-201 297.42,-291.74 302.36,-1180.83 303.77,-1333.69"/>
+<polygon fill="#000000" stroke="#000000" points="300.27,-1333.79 303.86,-1343.75 307.27,-1333.72 300.27,-1333.79"/>
+</g>
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.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">io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_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="M426.74,-683.51C408.58,-684.68 385.36,-689.47 372,-705 330.08,-753.72 309.14,-1224.78 304.84,-1333.63"/>
+<polygon fill="#000000" stroke="#000000" points="301.34,-1333.67 304.45,-1343.79 308.33,-1333.94 301.34,-1333.67"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-654 411,-654 411,-630 497,-630 497,-654"/>
+<text text-anchor="middle" x="454" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.78,-643.43C396.45,-646.12 381.63,-651.74 372,-663 327.37,-715.19 308.4,-1220.58 304.69,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="301.19,-1333.76 304.37,-1343.86 308.18,-1333.98 301.19,-1333.76"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node61" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501.5,-612 406.5,-612 406.5,-588 501.5,-588 501.5,-612"/>
+<text text-anchor="middle" x="454" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.1,-602.37C393.27,-605.36 380.56,-610.93 372,-621 324.7,-676.62 307.72,-1215.76 304.57,-1333.4"/>
+<polygon fill="#000000" stroke="#000000" points="301.06,-1333.63 304.3,-1343.72 308.06,-1333.82 301.06,-1333.63"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_fill.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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="484,-570 424,-570 424,-546 484,-546 484,-570"/>
+<text text-anchor="middle" x="454" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.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"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.91,-557.64C406.18,-559.08 384.57,-564.14 372,-579 321.96,-638.15 307.04,-1212.56 304.44,-1333.66"/>
+<polygon fill="#000000" stroke="#000000" points="300.94,-1333.86 304.23,-1343.93 307.94,-1334 300.94,-1333.86"/>
+</g>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-528 412.5,-528 412.5,-504 495.5,-504 495.5,-528"/>
+<text text-anchor="middle" x="454" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.38,-517.05C397.51,-519.6 381.92,-525.22 372,-537 319.25,-599.63 306.42,-1208.62 304.34,-1333.64"/>
+<polygon fill="#000000" stroke="#000000" points="300.83,-1333.84 304.17,-1343.9 307.83,-1333.96 300.83,-1333.84"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503,-486 405,-486 405,-462 503,-462 503,-486"/>
+<text text-anchor="middle" x="454" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.75,-476.61C392.35,-479.66 380.22,-485.21 372,-495 316.52,-561.14 305.83,-1205.08 304.24,-1333.71"/>
+<polygon fill="#000000" stroke="#000000" points="300.74,-1333.88 304.12,-1343.92 307.74,-1333.96 300.74,-1333.88"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-444 416,-444 416,-420 492,-420 492,-444"/>
+<text text-anchor="middle" x="454" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.68,-432.49C399.84,-434.74 382.62,-440.29 372,-453 313.77,-522.67 305.26,-1201.95 304.15,-1333.87"/>
+<polygon fill="#000000" stroke="#000000" points="300.65,-1333.95 304.07,-1343.98 307.65,-1334.01 300.65,-1333.95"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-402 414.5,-402 414.5,-378 493.5,-378 493.5,-402"/>
+<text text-anchor="middle" x="454" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.41,-390.65C398.92,-393.02 382.32,-398.61 372,-411 311.08,-484.15 304.73,-1197.73 304.08,-1333.69"/>
+<polygon fill="#000000" stroke="#000000" points="300.58,-1333.74 304.03,-1343.76 307.58,-1333.77 300.58,-1333.74"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-150 416,-150 416,-126 492,-126 492,-150"/>
+<text text-anchor="middle" x="454" y="-135.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~~rmvs_classes.f90~~AfferentGraph_edge17" 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.85,-145.06C382.49,-153.2 334.25,-169.7 304,-201"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-201C220.09,-285.76 188.94,-1179.8 184.17,-1333.55"/>
+<polygon fill="#000000" stroke="#000000" points="180.66,-1333.58 183.86,-1343.68 187.66,-1333.79 180.66,-1333.58"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.99,-138.34C400.02,-140.53 382.59,-146.08 372,-159 333.25,-206.25 308.37,-1174.3 304.52,-1333.83"/>
+<polygon fill="#000000" stroke="#000000" points="301.02,-1333.82 304.28,-1343.9 308.02,-1333.99 301.02,-1333.82"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="516,-360 392,-360 392,-336 516,-336 516,-360"/>
+<text text-anchor="middle" x="454" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.85,-354.79C384.24,-358.05 377.29,-362.63 372,-369 308.37,-445.64 304.22,-1193.84 304,-1333.58"/>
+<polygon fill="#000000" stroke="#000000" points="300.5,-1333.89 303.99,-1343.9 307.5,-1333.9 300.5,-1333.89"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-318 427,-318 427,-294 481,-294 481,-318"/>
+<text text-anchor="middle" x="454" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.94,-305.33C408.64,-306.39 385.16,-311.11 372,-327 305.65,-407.14 303.73,-1190.16 303.94,-1333.52"/>
+<polygon fill="#000000" stroke="#000000" points="300.44,-1333.74 303.96,-1343.73 307.44,-1333.73 300.44,-1333.74"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-276 411.5,-276 411.5,-252 496.5,-252 496.5,-276"/>
+<text text-anchor="middle" x="454" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge86" 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,-265.1C396.79,-267.7 381.62,-273.35 372,-285 302.91,-368.66 303.25,-1186.83 303.87,-1333.53"/>
+<polygon fill="#000000" stroke="#000000" points="300.38,-1333.97 303.92,-1343.95 307.38,-1333.93 300.38,-1333.97"/>
 </g>
 </g>
 </svg>
@@ -1583,139 +1704,147 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-125"></a>         <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lencounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
 <a name="ln-126"></a>      <span class="k">end function </span><span class="n">rmvs_encounter_check_tp</span>
 <a name="ln-127"></a>
-<a name="ln-128"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-129"></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-130"></a>         <span class="k">implicit none</span>
-<a name="ln-131"></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 data structure</span>
-<a name="ln-132"></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 central body particle data structuree </span>
-<a name="ln-133"></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-134"></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-135"></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-136"></a>      <span class="k">end subroutine </span><span class="n">rmvs_kick_getacch_tp</span>
-<a name="ln-137"></a>
-<a name="ln-138"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-139"></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-140"></a>         <span class="k">implicit none</span>
-<a name="ln-141"></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-142"></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-143"></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-144"></a>      <span class="k">end subroutine </span><span class="n">rmvs_setup_pl</span>
+<a name="ln-128"></a>      <span class="k">module subroutine </span><span class="n">rmvs_io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</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="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>
+<a name="ln-129"></a>         <span class="k">implicit none</span>
+<a name="ln-130"></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">id1</span><span class="p">,</span> <span class="n">id2</span>
+<a name="ln-131"></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">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-132"></a>         <span class="kt">real</span><span 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-133"></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>
+<a name="ln-134"></a>      <span class="k">end subroutine </span><span class="n">rmvs_io_write_encounter</span>
+<a name="ln-135"></a>
+<a name="ln-136"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-137"></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-138"></a>         <span class="k">implicit none</span>
+<a name="ln-139"></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 data structure</span>
+<a name="ln-140"></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 central body particle data structuree </span>
+<a name="ln-141"></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-142"></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-143"></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-144"></a>      <span class="k">end subroutine </span><span class="n">rmvs_kick_getacch_tp</span>
 <a name="ln-145"></a>
-<a name="ln-146"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-146"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-147"></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-148"></a>         <span class="k">implicit none</span>
-<a name="ln-149"></a><span class="k">         class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS system object</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">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-151"></a>      <span class="k">end subroutine </span><span class="n">rmvs_setup_initialize_system</span>
-<a name="ln-152"></a>
-<a name="ln-153"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-154"></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-155"></a>         <span class="k">implicit none</span>
-<a name="ln-156"></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-157"></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-158"></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 parametere</span>
-<a name="ln-159"></a>      <span class="k">end subroutine </span><span class="n">rmvs_setup_tp</span>
+<a name="ln-149"></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-150"></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-151"></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-152"></a>      <span class="k">end subroutine </span><span class="n">rmvs_setup_pl</span>
+<a name="ln-153"></a>
+<a name="ln-154"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-155"></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-156"></a>         <span class="k">implicit none</span>
+<a name="ln-157"></a><span class="k">         class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS system object</span>
+<a name="ln-158"></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-159"></a>      <span class="k">end subroutine </span><span class="n">rmvs_setup_initialize_system</span>
 <a name="ln-160"></a>
-<a name="ln-161"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-162"></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-161"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-162"></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-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">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-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">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-166"></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 parametere</span>
+<a name="ln-167"></a>      <span class="k">end subroutine </span><span class="n">rmvs_setup_tp</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>
+<a name="ln-169"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-170"></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-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-172"></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-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">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-175"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_append_pl</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>
+<a name="ln-177"></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-178"></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-179"></a>         <span class="k">implicit none</span>
-<a name="ln-180"></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-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">inserts</span>    <span class="c">!! Inserted object </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">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-183"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_fill_pl</span>
+<a name="ln-180"></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-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>      <span class="k">end subroutine </span><span class="n">rmvs_util_append_tp</span>
 <a name="ln-184"></a>
-<a name="ln-185"></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-185"></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-186"></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-187"></a>         <span class="k">implicit none</span>
-<a name="ln-188"></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 massive body object</span>
-<a name="ln-189"></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-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="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-190"></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-191"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_fill_tp</span>
+<a name="ln-191"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_fill_pl</span>
 <a name="ln-192"></a>
-<a name="ln-193"></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-194"></a>         <span class="k">implicit none</span>
-<a name="ln-195"></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-196"></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-197"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_resize_pl</span>
-<a name="ln-198"></a>
-<a name="ln-199"></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-200"></a>         <span class="k">implicit none</span>
-<a name="ln-201"></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-202"></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-203"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_resize_tp</span>
-<a name="ln-204"></a>
-<a name="ln-205"></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-206"></a>         <span class="k">implicit none</span>
-<a name="ln-207"></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-208"></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-209"></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-210"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_pl</span>   
-<a name="ln-211"></a>
-<a name="ln-212"></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-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">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-215"></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-216"></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-217"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_tp</span>
-<a name="ln-218"></a>
-<a name="ln-219"></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-220"></a>         <span class="k">implicit none</span>
-<a name="ln-221"></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-222"></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-223"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span>
-<a name="ln-224"></a>
-<a name="ln-225"></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-226"></a>         <span class="k">implicit none</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">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-229"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_rearrange_tp</span>
-<a name="ln-230"></a>
-<a name="ln-231"></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-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_body</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">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-235"></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-236"></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-237"></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-238"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_spill_pl</span>
-<a name="ln-239"></a>
-<a name="ln-240"></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-241"></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-242"></a>         <span class="k">implicit none</span>
-<a name="ln-243"></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-244"></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-245"></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-246"></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-247"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_spill_tp</span>
-<a name="ln-248"></a>
-<a name="ln-249"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-250"></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-251"></a>         <span class="k">implicit none</span>
-<a name="ln-252"></a><span class="k">         class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS nbody system object</span>
-<a name="ln-253"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Simulation time</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">!! Current stepsize</span>
-<a name="ln-256"></a>      <span class="k">end subroutine </span><span class="n">rmvs_step_system</span>
-<a name="ln-257"></a>
-<a name="ln-258"></a>   <span class="k">end interface</span>
-<a name="ln-259"></a>
-<a name="ln-260"></a><span class="k">end module </span><span class="n">rmvs_classes</span>
+<a name="ln-193"></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-194"></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-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">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 massive body object</span>
+<a name="ln-197"></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-198"></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-199"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_fill_tp</span>
+<a name="ln-200"></a>
+<a name="ln-201"></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-202"></a>         <span class="k">implicit none</span>
+<a name="ln-203"></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-204"></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-205"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_resize_pl</span>
+<a name="ln-206"></a>
+<a name="ln-207"></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-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">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-210"></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-211"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_resize_tp</span>
+<a name="ln-212"></a>
+<a name="ln-213"></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-214"></a>         <span class="k">implicit none</span>
+<a name="ln-215"></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-216"></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-217"></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-218"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_pl</span>   
+<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="k">implicit none</span>
+<a name="ln-222"></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-223"></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-224"></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-225"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_tp</span>
+<a name="ln-226"></a>
+<a name="ln-227"></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-228"></a>         <span class="k">implicit none</span>
+<a name="ln-229"></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-230"></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-231"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span>
+<a name="ln-232"></a>
+<a name="ln-233"></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-234"></a>         <span class="k">implicit none</span>
+<a name="ln-235"></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-236"></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-237"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_sort_rearrange_tp</span>
+<a name="ln-238"></a>
+<a name="ln-239"></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-240"></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-241"></a>         <span class="k">implicit none</span>
+<a name="ln-242"></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-243"></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-244"></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-245"></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-246"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_spill_pl</span>
+<a name="ln-247"></a>
+<a name="ln-248"></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-249"></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-250"></a>         <span class="k">implicit none</span>
+<a name="ln-251"></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-252"></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-253"></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-254"></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-255"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_spill_tp</span>
+<a name="ln-256"></a>
+<a name="ln-257"></a>      <span class="k">module subroutine </span><span class="n">rmvs_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-258"></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-259"></a>         <span class="k">implicit none</span>
+<a name="ln-260"></a><span class="k">         class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS nbody system object</span>
+<a name="ln-261"></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-262"></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-263"></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-264"></a>      <span class="k">end subroutine </span><span class="n">rmvs_step_system</span>
+<a name="ln-265"></a>
+<a name="ln-266"></a>   <span class="k">end interface</span>
+<a name="ln-267"></a>
+<a name="ln-268"></a><span class="k">end module </span><span class="n">rmvs_classes</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/rmvs_discard.f90.html b/docs/sourcefile/rmvs_discard.f90.html
index 17d737b1d..013da3c5e 100644
--- a/docs/sourcefile/rmvs_discard.f90.html
+++ b/docs/sourcefile/rmvs_discard.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_discard.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.">27 statements</a>
+    title=" 0.2% of total for source files.">32 statements</a>
      </li> 
      
      
@@ -226,246 +226,296 @@ <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="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)">
+<svg id="sourcefilermvs_discardf90EfferentGraph" width="641pt" height="231pt"
+ viewBox="0.00 0.00 641.00 230.59" 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 327.68)">
 <title>sourcefile~~rmvs_discard.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 911,-252.84 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 918,-327.68 918,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,-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>
+<polygon fill="none" stroke="black" points="914,-235.19 820,-235.19 820,-211.19 914,-211.19 914,-235.19"/>
+<text text-anchor="middle" x="867" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_discard.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.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="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" 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~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.96,-225.65C751.22,-229.31 621.9,-236.2 547.36,-240.17"/>
+<polygon fill="#000000" stroke="#000000" points="547.02,-236.68 537.22,-240.71 547.39,-243.67 547.02,-236.68"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node3" class="node">
 <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>
+<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="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.96,-215.12C811.44,-213.62 802.57,-212.07 794.17,-210.59"/>
+<polygon fill="#000000" stroke="#000000" points="794.66,-207.13 784.21,-208.84 793.45,-214.02 794.66,-207.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node3" class="node">
-<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>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge5" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_operators.f90 -->
-<g id="sourcefile~~rmvs_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,-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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node8" 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>
+<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="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_discard.f90~~EfferentGraph_edge6" class="edge">
+<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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
 </g>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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~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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_discard.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~rmvs_discard.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,-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~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge11" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge13" class="edge">
-<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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_discard.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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
 </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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
 </g>
 </g>
 </svg>
@@ -578,29 +628,36 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-16"></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-17"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span>
-<a name="ln-19"></a>
-<a name="ln-20"></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-21"></a>
-<a name="ln-22"></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">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">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-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">ntp</span>
-<a name="ln-24"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">iplperP</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-25"></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="p">.</span><span class="nb">and</span><span class="p">.</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">i</span><span class="p">)))</span> <span class="k">then </span>
-<a name="ln-26"></a><span class="k">                  if</span> <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">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">iplperP</span><span class="p">)))</span> <span class="k">then</span>
-<a name="ln-27"></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_PLQ</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;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; q with respect to Planet &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">iplperP</span><span class="p">),</span><span class="s2">&quot; is too small at t = &quot;</span><span class="p">,</span><span class="n">t</span>
-<a name="ln-29"></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-30"></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-31"></a>                  <span class="k">end if</span>
-<a name="ln-32"></a><span class="k">               end if</span>
-<a name="ln-33"></a><span class="k">            end associate</span>
-<a name="ln-34"></a><span class="k">         end do</span>
-<a name="ln-35"></a>         <span class="c">! Call the base method that this overrides</span>
-<a name="ln-36"></a>         <span class="k">call </span><span class="n">discard_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-37"></a>      <span class="k">end associate</span>
-<a name="ln-38"></a>
-<a name="ln-39"></a><span class="k">   end subroutine </span><span class="n">rmvs_discard_tp</span>
-<a name="ln-40"></a>
-<a name="ln-41"></a><span class="k">end submodule </span><span class="n">s_rmvs_discard</span>
+<a name="ln-19"></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">timestr</span><span class="p">,</span> <span class="n">idstri</span><span class="p">,</span> <span class="n">idstrj</span>
+<a name="ln-20"></a>
+<a name="ln-21"></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-22"></a>
+<a name="ln-23"></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">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">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-24"></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-25"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">iplperP</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-26"></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="p">.</span><span class="nb">and</span><span class="p">.</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">i</span><span class="p">)))</span> <span class="k">then </span>
+<a name="ln-27"></a><span class="k">                  if</span> <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">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">iplperP</span><span class="p">)))</span> <span class="k">then</span>
+<a name="ln-28"></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_PLQ</span>
+<a name="ln-29"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstri</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-30"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstrj</span><span class="p">,</span> <span class="o">*</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">iplperP</span><span class="p">)</span>
+<a name="ln-31"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">timestr</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">t</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;Particle &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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstri</span><span class="p">))</span> <span class="p">&amp;</span>
+<a name="ln-33"></a>                              <span class="o">//</span> <span class="s2">&quot;) q with respect to massive body &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">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">iplperP</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstrj</span><span class="p">))</span> <span class="p">&amp;</span>
+<a name="ln-34"></a>                              <span class="o">//</span> <span class="s2">&quot;) is too small at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-35"></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-36"></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-37"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_PLQ&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</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">iplperP</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 if</span>
+<a name="ln-40"></a><span class="k">            end associate</span>
+<a name="ln-41"></a><span class="k">         end do</span>
+<a name="ln-42"></a>         <span class="c">! Call the base method that this overrides</span>
+<a name="ln-43"></a>         <span class="k">call </span><span class="n">discard_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-44"></a>      <span class="k">end associate</span>
+<a name="ln-45"></a>
+<a name="ln-46"></a><span class="k">   end subroutine </span><span class="n">rmvs_discard_tp</span>
+<a name="ln-47"></a>
+<a name="ln-48"></a><span class="k">end submodule </span><span class="n">s_rmvs_discard</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/rmvs_encounter_check.f90.html b/docs/sourcefile/rmvs_encounter_check.f90.html
index c3c430dab..165ac7df1 100644
--- a/docs/sourcefile/rmvs_encounter_check.f90.html
+++ b/docs/sourcefile/rmvs_encounter_check.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_encounter_check.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.">61 statements</a>
+    title=" 0.4% of total for source files.">62 statements</a>
      </li> 
      
      
@@ -226,246 +226,296 @@ <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="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)">
+<svg id="sourcefilermvs_encounter_checkf90EfferentGraph" width="641pt" height="219pt"
+ viewBox="0.00 0.00 641.00 219.18" 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.66 0.66) rotate(0) translate(4 327.68)">
 <title>sourcefile~~rmvs_encounter_check.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 959,-252.84 959,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 966,-327.68 966,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,-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>
+<polygon fill="none" stroke="black" points="962,-235.19 820,-235.19 820,-211.19 962,-211.19 962,-235.19"/>
+<text text-anchor="middle" x="891" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_encounter_check.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.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="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" 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~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge2" 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="M819.96,-226.7C742.42,-230.58 618.96,-236.76 547.23,-240.35"/>
+<polygon fill="#000000" stroke="#000000" points="546.85,-236.87 537.04,-240.86 547.2,-243.86 546.85,-236.87"/>
+</g>
+<!-- sourcefile~swiftest.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_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>
+<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="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" 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~swiftest.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge1" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.79,-213.02C810.99,-211.74 802.21,-210.47 794.03,-209.29"/>
+<polygon fill="#000000" stroke="#000000" points="794.44,-205.81 784.04,-207.84 793.44,-212.74 794.44,-205.81"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node3" class="node">
-<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>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge5" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_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.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_operators.f90 -->
-<g id="sourcefile~~rmvs_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,-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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6" class="node">
+<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_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>
+<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="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_encounter_check.f90~~EfferentGraph_edge6" class="edge">
+<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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
 </g>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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~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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_encounter_check.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.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,-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~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge11" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge13" class="edge">
-<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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
 </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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
 </g>
 </g>
 </svg>
@@ -585,67 +635,68 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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="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">r2crit</span>
 <a name="ln-24"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lflag</span>
 <a name="ln-25"></a>
-<a name="ln-26"></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-27"></a>
-<a name="ln-28"></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-29"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-30"></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">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">rts</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">rts</span><span class="p">)</span>
-<a name="ln-31"></a>            <span class="n">r2crit</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">rts</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(:))</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-32"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-33"></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-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">ntp</span>
-<a name="ln-35"></a>                  <span class="k">if</span> <span class="p">((.</span><span class="nb">not</span><span class="p">.</span><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="nb">or</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">i</span><span class="p">)</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">cycle</span>
-<a name="ln-36"></a><span class="k">                  </span><span class="n">xr</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">xbeg</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-37"></a>                  <span class="n">vr</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">vbeg</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-38"></a>                  <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">xr</span><span class="p">(:),</span> <span class="n">xr</span><span class="p">(:))</span>
-<a name="ln-39"></a>                  <span class="n">v2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vr</span><span class="p">(:),</span> <span class="n">vr</span><span class="p">(:))</span>
-<a name="ln-40"></a>                  <span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vr</span><span class="p">(:),</span> <span class="n">xr</span><span class="p">(:))</span>
-<a name="ln-41"></a>                  <span class="n">lflag</span> <span class="o">=</span> <span class="n">rmvs_chk_ind</span><span class="p">(</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">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-42"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lflag</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">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">j</span>
-<a name="ln-43"></a>               <span class="k">end do</span>
-<a name="ln-44"></a><span class="k">               </span><span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="nb">count</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="o">==</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-45"></a>            <span class="k">end do</span>
-<a name="ln-46"></a><span class="k">            </span><span class="n">lencounter</span> <span class="o">=</span> <span class="nb">any</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="o">&gt;</span> <span class="mi">0</span><span class="p">)</span>
-<a name="ln-47"></a>         <span class="k">end associate</span>
-<a name="ln-48"></a><span class="k">      end select</span>
-<a name="ln-49"></a><span class="k">      return</span>
-<a name="ln-50"></a><span class="k">   end function </span><span class="n">rmvs_encounter_check_tp</span>
-<a name="ln-51"></a>
+<a name="ln-26"></a>      <span class="n">lencounter</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-27"></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-28"></a>
+<a name="ln-29"></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-30"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-31"></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">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">rts</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">rts</span><span class="p">)</span>
+<a name="ln-32"></a>            <span class="n">r2crit</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">rts</span> <span class="o">*</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">npl</span><span class="p">))</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-33"></a>            <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="mi">0</span>
+<a name="ln-34"></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-35"></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-36"></a>                  <span class="k">if</span> <span class="p">((.</span><span class="nb">not</span><span class="p">.</span><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="nb">or</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">i</span><span class="p">)</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">cycle</span>
+<a name="ln-37"></a><span class="k">                  </span><span class="n">xr</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">xbeg</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-38"></a>                  <span class="n">vr</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">vbeg</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-39"></a>                  <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">xr</span><span class="p">(:),</span> <span class="n">xr</span><span class="p">(:))</span>
+<a name="ln-40"></a>                  <span class="n">v2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vr</span><span class="p">(:),</span> <span class="n">vr</span><span class="p">(:))</span>
+<a name="ln-41"></a>                  <span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vr</span><span class="p">(:),</span> <span class="n">xr</span><span class="p">(:))</span>
+<a name="ln-42"></a>                  <span class="n">lflag</span> <span class="o">=</span> <span class="n">rmvs_chk_ind</span><span class="p">(</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">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-43"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lflag</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">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">j</span>
+<a name="ln-44"></a>               <span class="k">end do</span>
+<a name="ln-45"></a><span class="k">               </span><span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="nb">count</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">j</span><span class="p">)</span>
+<a name="ln-46"></a>            <span class="k">end do</span>
+<a name="ln-47"></a><span class="k">            </span><span class="n">lencounter</span> <span class="o">=</span> <span class="nb">any</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">&gt;</span> <span class="mi">0</span><span class="p">)</span>
+<a name="ln-48"></a>         <span class="k">end associate</span>
+<a name="ln-49"></a><span class="k">      end select</span>
+<a name="ln-50"></a><span class="k">      return</span>
+<a name="ln-51"></a><span class="k">   end function </span><span class="n">rmvs_encounter_check_tp</span>
 <a name="ln-52"></a>
-<a name="ln-53"></a>   <span class="k">module elemental function </span><span class="n">rmvs_chk_ind</span><span class="p">(</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">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lflag</span><span class="p">)</span>
-<a name="ln-54"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-55"></a>      <span class="c">!!</span>
-<a name="ln-56"></a>      <span class="c">!! Determine whether a test particle and planet are having or will have an encounter within the next time step</span>
-<a name="ln-57"></a>      <span class="c">!!</span>
-<a name="ln-58"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: rmvs_chk_ind.f90</span>
-<a name="ln-59"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs_chk_ind.f</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="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">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">dt</span><span class="p">,</span> <span class="n">r2crit</span>
-<a name="ln-63"></a>      <span class="kt">logical</span>                    <span class="kd">::</span> <span class="n">lflag</span>
-<a name="ln-64"></a>      <span class="c">! Internals</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="kd">::</span>  <span class="n">tmin</span><span class="p">,</span> <span class="n">r2min</span>
-<a name="ln-66"></a>
-<a name="ln-67"></a>      <span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-68"></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-69"></a><span class="k">         </span><span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-70"></a>      <span class="k">else</span>
-<a name="ln-71"></a><span class="k">         if</span> <span class="p">(</span><span class="n">vdotr</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-72"></a><span class="k">            </span><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-73"></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-74"></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="mi">2</span> <span class="o">/</span> <span class="n">v2</span>
-<a name="ln-75"></a>            <span class="k">else</span>
-<a name="ln-76"></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-77"></a>            <span class="k">end if</span>
-<a name="ln-78"></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-79"></a>            <span class="n">lflag</span> <span class="o">=</span> <span class="p">(</span><span class="n">r2min</span> <span class="o">&lt;=</span> <span class="n">r2crit</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>
-<a name="ln-83"></a><span class="k">      return</span>
-<a name="ln-84"></a><span class="k">   end function </span><span class="n">rmvs_chk_ind</span>
-<a name="ln-85"></a>
-<a name="ln-86"></a><span class="k">end submodule </span><span class="n">s_rmvs_chk</span>
+<a name="ln-53"></a>
+<a name="ln-54"></a>   <span class="k">module elemental function </span><span class="n">rmvs_chk_ind</span><span class="p">(</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">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lflag</span><span class="p">)</span>
+<a name="ln-55"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-56"></a>      <span class="c">!!</span>
+<a name="ln-57"></a>      <span class="c">!! Determine whether a test particle and planet are having or will have an encounter within the next time step</span>
+<a name="ln-58"></a>      <span class="c">!!</span>
+<a name="ln-59"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: rmvs_chk_ind.f90</span>
+<a name="ln-60"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs_chk_ind.f</span>
+<a name="ln-61"></a>      <span class="k">implicit none</span>
+<a name="ln-62"></a>      <span class="c">! Arguments</span>
+<a name="ln-63"></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">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">dt</span><span class="p">,</span> <span class="n">r2crit</span>
+<a name="ln-64"></a>      <span class="kt">logical</span>                    <span class="kd">::</span> <span class="n">lflag</span>
+<a name="ln-65"></a>      <span class="c">! Internals</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="kd">::</span>  <span class="n">tmin</span><span class="p">,</span> <span class="n">r2min</span>
+<a name="ln-67"></a>
+<a name="ln-68"></a>      <span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-69"></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-70"></a><span class="k">         </span><span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-71"></a>      <span class="k">else</span>
+<a name="ln-72"></a><span class="k">         if</span> <span class="p">(</span><span class="n">vdotr</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-73"></a><span class="k">            </span><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-74"></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-75"></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="mi">2</span> <span class="o">/</span> <span class="n">v2</span>
+<a name="ln-76"></a>            <span class="k">else</span>
+<a name="ln-77"></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-78"></a>            <span class="k">end if</span>
+<a name="ln-79"></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-80"></a>            <span class="n">lflag</span> <span class="o">=</span> <span class="p">(</span><span class="n">r2min</span> <span class="o">&lt;=</span> <span class="n">r2crit</span><span class="p">)</span>
+<a name="ln-81"></a>         <span class="k">end if</span>
+<a name="ln-82"></a><span class="k">      end if</span>
+<a name="ln-83"></a>
+<a name="ln-84"></a><span class="k">      return</span>
+<a name="ln-85"></a><span class="k">   end function </span><span class="n">rmvs_chk_ind</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a><span class="k">end submodule </span><span class="n">s_rmvs_chk</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/rmvs_io.f90.html b/docs/sourcefile/rmvs_io.f90.html
new file mode 100644
index 000000000..c2858aed7
--- /dev/null
+++ b/docs/sourcefile/rmvs_io.f90.html
@@ -0,0 +1,718 @@
+<!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>rmvs_io.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>rmvs_io.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.2% of total for source files.">33 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/rmvs_io.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">rmvs_io.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_rmvs_io.html">s_rmvs_io</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/rmvs_io.f90.html#src">rmvs_io.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~~rmvs_io.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilermvs_iof90EfferentGraph" width="641pt" height="237pt"
+ viewBox="0.00 0.00 641.00 237.28" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 327.68)">
+<title>sourcefile~~rmvs_io.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 892,-327.68 892,4 -4,4"/>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<polygon fill="none" stroke="black" points="888,-235.19 820,-235.19 820,-211.19 888,-211.19 888,-235.19"/>
+<text text-anchor="middle" x="854" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_io.f90</text>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.87,-225.02C758.02,-228.43 624.34,-235.81 547.66,-240.04"/>
+<polygon fill="#000000" stroke="#000000" points="547.02,-236.57 537.23,-240.62 547.41,-243.56 547.02,-236.57"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.93,-216.65C811.66,-215.01 802.68,-213.23 794.04,-211.52"/>
+<polygon fill="#000000" stroke="#000000" points="794.6,-208.06 784.11,-209.55 793.24,-214.93 794.6,-208.06"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" 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~~rmvs_io.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_io.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="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_io.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_io.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="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" 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~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_io.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="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_io.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" 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~~rmvs_io.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_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="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_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="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_io.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="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_io.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_io.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefilermvs_iof90EfferentGraph = svgPanZoom('#sourcefilermvs_iof90EfferentGraph', {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_rmvs_io.html">s_rmvs_io</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/rmvs_io.f90.html#src">rmvs_io.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">rmvs_classes</span><span class="p">)</span> <span class="n">s_rmvs_io</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>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">rmvs_io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</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-6"></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>
+<a name="ln-7"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-8"></a>      <span class="c">!!</span>
+<a name="ln-9"></a>      <span class="c">!! Write close encounter data from RMVS to output binary files</span>
+<a name="ln-10"></a>      <span class="c">!!  There is no direct file output from this subroutine</span>
+<a name="ln-11"></a>      <span class="c">!!</span>
+<a name="ln-12"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_write_encounter.f90</span>
+<a name="ln-13"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_encounter.f</span>
+<a name="ln-14"></a>      <span class="k">implicit none</span>
+<a name="ln-15"></a>      <span class="c">! Arguments</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">id1</span><span class="p">,</span> <span class="n">id2</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">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">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</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="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-19"></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>
+<a name="ln-20"></a>      <span class="c">! Internals</span>
+<a name="ln-21"></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-22"></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-23"></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-24"></a>
+<a name="ln-25"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">enc_out</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-26"></a>
+<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">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-28"></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-29"></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">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-30"></a>      <span class="k">end if</span>
+<a name="ln-31"></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-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;   Unable to open binary encounter file&quot;</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">      </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-37"></a>      <span class="k">call </span><span class="n">io_write_frame_encounter</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</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="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>
+<a name="ln-38"></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-39"></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-40"></a><span class="k">         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-41"></a>         <span class="k">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-42"></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-43"></a>      <span class="k">end if</span>
+<a name="ln-44"></a>
+<a name="ln-45"></a><span class="k">      return</span>
+<a name="ln-46"></a><span class="k">   end subroutine </span><span class="n">rmvs_io_write_encounter</span>
+<a name="ln-47"></a>
+<a name="ln-48"></a><span class="k">end submodule </span><span class="n">s_rmvs_io</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/rmvs_kick.f90.html b/docs/sourcefile/rmvs_kick.f90.html
index 839859e3e..0fde63b31 100644
--- a/docs/sourcefile/rmvs_kick.f90.html
+++ b/docs/sourcefile/rmvs_kick.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_kick.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for source files.">59 statements</a>
+    title=" 0.4% of total for source files.">61 statements</a>
      </li> 
      
      
@@ -226,246 +226,296 @@ <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="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)">
+<svg id="sourcefilermvs_kickf90EfferentGraph" width="641pt" height="235pt"
+ viewBox="0.00 0.00 641.00 234.66" 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 327.68)">
 <title>sourcefile~~rmvs_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 895,-252.84 895,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 902,-327.68 902,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,-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>
+<polygon fill="none" stroke="black" points="898,-235.19 820,-235.19 820,-211.19 898,-211.19 898,-235.19"/>
+<text text-anchor="middle" x="859" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_kick.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.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="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" 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~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_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="M819.71,-225.28C754.83,-228.81 622.99,-235.98 547.32,-240.1"/>
+<polygon fill="#000000" stroke="#000000" points="546.82,-236.62 537.02,-240.66 547.2,-243.61 546.82,-236.62"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node3" class="node">
 <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>
+<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="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.73,-215.97C811.47,-214.41 802.69,-212.76 794.28,-211.17"/>
+<polygon fill="#000000" stroke="#000000" points="794.75,-207.7 784.27,-209.28 793.45,-214.58 794.75,-207.7"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node3" class="node">
-<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>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge5" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_operators.f90 -->
-<g id="sourcefile~~rmvs_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,-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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node8" 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>
+<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="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_kick.f90~~EfferentGraph_edge6" class="edge">
+<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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
 </g>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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~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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_kick.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~rmvs_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,-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~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge11" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge13" class="edge">
-<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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
 </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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
 </g>
 </g>
 </svg>
@@ -623,32 +673,34 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-61"></a><span class="k">                        end if</span>
 <a name="ln-62"></a>
 <a name="ln-63"></a>                        <span class="c">! Swap the planetocentric and heliocentric position vectors and central body masses</span>
-<a name="ln-64"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,:)</span>
-<a name="ln-65"></a>                        <span class="n">GMcb_original</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-66"></a>                        <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">cb_heliocentric</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-67"></a>
-<a name="ln-68"></a>                        <span class="c">! If the heliocentric-specifc acceleration terms are requested, compute those now</span>
-<a name="ln-69"></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">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="n">system_planetocen</span><span class="p">)</span>
-<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">lextra_force</span><span class="p">)</span> <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_user</span><span class="p">(</span><span class="n">system_planetocen</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-71"></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</span><span class="p">%</span><span class="n">accel_gr</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">! Put everything back the way we found it</span>
-<a name="ln-74"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">xh_original</span><span class="p">(:,:)</span>
-<a name="ln-75"></a>                        <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="n">GMcb_original</span>
-<a name="ln-76"></a>
-<a name="ln-77"></a>                     <span class="k">end associate</span>
-<a name="ln-78"></a><span class="k">                  end select</span>
-<a name="ln-79"></a><span class="k">               end select</span>
-<a name="ln-80"></a><span class="k">            else</span> <span class="c">! Not a close encounter, so just proceded with the standard WHM method</span>
-<a name="ln-81"></a>               <span class="k">call </span><span class="n">whm_kick_getacch_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> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-82"></a>            <span class="k">end if</span>
-<a name="ln-83"></a><span class="k">         end select</span>
-<a name="ln-84"></a><span class="k">      end associate</span>
-<a name="ln-85"></a>
-<a name="ln-86"></a><span class="k">      return</span>
-<a name="ln-87"></a><span class="k">   end subroutine </span><span class="n">rmvs_kick_getacch_tp</span>
-<a name="ln-88"></a>
-<a name="ln-89"></a><span class="k">end submodule </span><span class="n">s_rmvs_kick</span>
+<a name="ln-64"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-65"></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">xheliocentric</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-66"></a>                        <span class="k">end do</span>
+<a name="ln-67"></a><span class="k">                        </span><span class="n">GMcb_original</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-68"></a>                        <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">cb_heliocentric</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-69"></a>
+<a name="ln-70"></a>                        <span class="c">! If the heliocentric-specifc acceleration terms are requested, compute those now</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">loblatecb</span><span class="p">)</span> <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="n">system_planetocen</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">lextra_force</span><span class="p">)</span> <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_user</span><span class="p">(</span><span class="n">system_planetocen</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-73"></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</span><span class="p">%</span><span class="n">accel_gr</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-74"></a>
+<a name="ln-75"></a>                        <span class="c">! Put everything back the way we found it</span>
+<a name="ln-76"></a>                        <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">xh_original</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
+<a name="ln-77"></a>                        <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="n">GMcb_original</span>
+<a name="ln-78"></a>
+<a name="ln-79"></a>                     <span class="k">end associate</span>
+<a name="ln-80"></a><span class="k">                  end select</span>
+<a name="ln-81"></a><span class="k">               end select</span>
+<a name="ln-82"></a><span class="k">            else</span> <span class="c">! Not a close encounter, so just proceded with the standard WHM method</span>
+<a name="ln-83"></a>               <span class="k">call </span><span class="n">whm_kick_getacch_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> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-84"></a>            <span class="k">end if</span>
+<a name="ln-85"></a><span class="k">         end select</span>
+<a name="ln-86"></a><span class="k">      end associate</span>
+<a name="ln-87"></a>
+<a name="ln-88"></a><span class="k">      return</span>
+<a name="ln-89"></a><span class="k">   end subroutine </span><span class="n">rmvs_kick_getacch_tp</span>
+<a name="ln-90"></a>
+<a name="ln-91"></a><span class="k">end submodule </span><span class="n">s_rmvs_kick</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/rmvs_setup.f90.html b/docs/sourcefile/rmvs_setup.f90.html
index 9c3549c55..4978739ee 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.8% of total for source files.">113 statements</a>
+    title=" 0.7% of total for source files.">118 statements</a>
      </li> 
      
      
@@ -226,246 +226,296 @@ <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="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)">
+<svg id="sourcefilermvs_setupf90EfferentGraph" width="641pt" height="233pt"
+ viewBox="0.00 0.00 641.00 232.61" 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.7 0.7) rotate(0) translate(4 327.68)">
 <title>sourcefile~~rmvs_setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 903,-252.84 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 910,-327.68 910,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,-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>
+<polygon fill="none" stroke="black" points="906,-235.19 820,-235.19 820,-211.19 906,-211.19 906,-235.19"/>
+<text text-anchor="middle" x="863" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_setup.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.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="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" 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~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.75,-225.47C752.81,-229.07 622.33,-236.1 547.29,-240.14"/>
+<polygon fill="#000000" stroke="#000000" points="546.87,-236.65 537.08,-240.69 547.25,-243.64 546.87,-236.65"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node3" class="node">
 <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>
+<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="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.79,-215.52C811.34,-213.98 802.48,-212.37 794.04,-210.84"/>
+<polygon fill="#000000" stroke="#000000" points="794.48,-207.36 784.02,-209.02 793.23,-214.25 794.48,-207.36"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node3" class="node">
-<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>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge5" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_operators.f90 -->
-<g id="sourcefile~~rmvs_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,-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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node8" 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>
+<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="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_setup.f90~~EfferentGraph_edge6" class="edge">
+<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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
 </g>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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~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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_setup.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~rmvs_setup.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,-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~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge11" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge13" class="edge">
-<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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
 </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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
 </g>
 </g>
 </svg>
@@ -581,153 +631,161 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-19"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
 <a name="ln-20"></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>
 <a name="ln-21"></a>         <span class="k">call </span><span class="n">whm_setup_pl</span><span class="p">(</span><span class="n">pl</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-22"></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-22"></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-23"></a>
-<a name="ln-24"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">NTENC</span><span class="p">))</span>
-<a name="ln-25"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">NTPHENC</span><span class="p">))</span>
-<a name="ln-26"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">pl</span><span class="p">%</span><span class="n">lplanetocentric</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-27"></a><span class="k">            allocate</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">n</span><span class="p">))</span>
-<a name="ln-28"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-29"></a>            <span class="c">! Set up inner and outer planet interpolation vector storage containers</span>
-<a name="ln-30"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTENC</span>
-<a name="ln-31"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</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-32"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</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-33"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-34"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-35"></a>            <span class="k">end do</span>
-<a name="ln-36"></a><span class="k">            do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span>
-<a name="ln-37"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</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-38"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</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-39"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-40"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-24"></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">outer</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">outer</span><span class="p">)</span>
+<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">pl</span><span class="p">%</span><span class="n">inner</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">inner</span><span class="p">)</span>
+<a name="ln-26"></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="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-27"></a>
+<a name="ln-28"></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-29"></a>
+<a name="ln-30"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">NTENC</span><span class="p">))</span>
+<a name="ln-31"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">NTPHENC</span><span class="p">))</span>
+<a name="ln-32"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">pl</span><span class="p">%</span><span class="n">lplanetocentric</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-33"></a><span class="k">            allocate</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">n</span><span class="p">))</span>
+<a name="ln-34"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-35"></a>            <span class="c">! Set up inner and outer planet interpolation vector storage containers</span>
+<a name="ln-36"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTENC</span>
+<a name="ln-37"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</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-38"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</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-39"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-40"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
 <a name="ln-41"></a>            <span class="k">end do</span>
-<a name="ln-42"></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-43"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span>
-<a name="ln-44"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-45"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-46"></a>               <span class="k">end do</span>
-<a name="ln-47"></a><span class="k">            end if</span>
-<a name="ln-48"></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-42"></a><span class="k">            do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span>
+<a name="ln-43"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</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-44"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</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-45"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-46"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-47"></a>            <span class="k">end do</span>
+<a name="ln-48"></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-49"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span>
-<a name="ln-50"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-51"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-50"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-51"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-52"></a>               <span class="k">end do</span>
 <a name="ln-53"></a><span class="k">            end if</span>
-<a name="ln-54"></a><span class="k">         end if</span>
-<a name="ln-55"></a><span class="k">      end associate</span>
-<a name="ln-56"></a><span class="k">      return</span>
-<a name="ln-57"></a><span class="k">   end subroutine </span><span class="n">rmvs_setup_pl</span> 
-<a name="ln-58"></a>
-<a name="ln-59"></a>
-<a name="ln-60"></a>   <span class="k">module subroutine </span><span class="n">rmvs_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-61"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-62"></a>      <span class="c">!!</span>
-<a name="ln-63"></a>      <span class="c">!! Initialize an RMVS nbody system from files and sets up the planetocentric structures.</span>
-<a name="ln-64"></a>      <span class="c">!! </span>
-<a name="ln-65"></a>      <span class="c">!! We currently rearrange the pl order to keep it consistent with the way Swifter does it </span>
-<a name="ln-66"></a>      <span class="c">!! In Swifter, the central body occupies the first position in the pl list, and during</span>
-<a name="ln-67"></a>      <span class="c">!! encounters, the encountering planet is skipped in loops. In Swiftest, we instantiate an</span>
-<a name="ln-68"></a>      <span class="c">!! RMVS nbody system object attached to each pl to store planetocentric versions of the system</span>
-<a name="ln-69"></a>      <span class="c">!! to use during close encounters. </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">rmvs_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">!! RMVS 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 parameters </span>
-<a name="ln-74"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-76"></a>
-<a name="ln-77"></a>      <span class="c">! Call parent method</span>
-<a name="ln-78"></a>      <span class="k">call </span><span class="n">whm_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-79"></a>
-<a name="ln-80"></a>      <span class="c">! Set up the pl-tp planetocentric encounter structures for pl and cb. The planetocentric tp structures are </span>
-<a name="ln-81"></a>      <span class="c">! generated as necessary during close encounter steps.</span>
-<a name="ln-82"></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><span class="n">pl</span><span class="p">)</span>
-<a name="ln-83"></a>      <span class="k">class is</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-84"></a>         <span class="k">select type</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-85"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
-<a name="ln-86"></a>            <span class="k">select type</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>
-<a name="ln-87"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-88"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">cb_heliocentric</span> <span class="o">=</span> <span class="n">cb</span>
-<a name="ln-89"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lplanetocentric</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">tp</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-91"></a>               <span class="n">cb</span><span class="p">%</span><span class="n">lplanetocentric</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="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>
-<a name="ln-93"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-94"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(:)%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-95"></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-96"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</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-97"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">rmvs_pl</span> <span class="kd">::</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-98"></a>                     <span class="k">select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-99"></a>                     <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
-<a name="ln-100"></a>                        <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-101"></a>                        <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-102"></a>                           <span class="n">cbenci</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-103"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-104"></a>                           <span class="k">call </span><span class="n">plenci</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-105"></a>                           <span class="n">plenci</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">plenci</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-107"></a>                           <span class="c">! plind stores the heliocentric index value of a planetocentric planet</span>
-<a name="ln-108"></a>                           <span class="c">! e.g. Consider an encounter with planet 3.  </span>
-<a name="ln-109"></a>                           <span class="c">! Then the following will be the values of plind:</span>
-<a name="ln-110"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(1) = 0 (central body - never used)  </span>
-<a name="ln-111"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(2) = 1  </span>
-<a name="ln-112"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(3) = 2</span>
-<a name="ln-113"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(4) = 4</span>
-<a name="ln-114"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(5) = 5</span>
-<a name="ln-115"></a>                           <span class="c">! etc.  </span>
-<a name="ln-116"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-117"></a>                           <span class="n">plenci</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="p">[(</span><span class="n">j</span><span class="p">,</span><span class="n">j</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span><span class="n">npl</span><span class="p">)]</span> 
-<a name="ln-118"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">plind</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="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">plenci</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">plenci</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">i</span><span class="p">)</span>
-<a name="ln-119"></a>                           <span class="n">plenci</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="o">=</span> <span class="mi">0</span>
-<a name="ln-120"></a>                           <span class="n">plenci</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">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-121"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">Gmass</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="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">plind</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-122"></a>                           <span class="n">cbenci</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">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-123"></a>                        <span class="k">end select</span>
-<a name="ln-124"></a><span class="k">                     end select</span>
-<a name="ln-125"></a><span class="k">                  end do</span>
-<a name="ln-126"></a><span class="k">               end associate</span>
-<a name="ln-127"></a><span class="k">            end select</span>
-<a name="ln-128"></a><span class="k">         end select</span>
-<a name="ln-129"></a><span class="k">      end select</span>
-<a name="ln-130"></a><span class="k">      return</span>
-<a name="ln-131"></a><span class="k">   end subroutine </span><span class="n">rmvs_setup_initialize_system</span>
-<a name="ln-132"></a>
-<a name="ln-133"></a>
-<a name="ln-134"></a>   <span class="k">module subroutine </span><span class="n">rmvs_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-135"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-136"></a>      <span class="c">!!</span>
-<a name="ln-137"></a>      <span class="c">!! Allocate WHM test particle structure</span>
-<a name="ln-138"></a>      <span class="c">!!</span>
-<a name="ln-139"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine whm_setup.f90</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">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-143"></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-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 parameter</span>
-<a name="ln-145"></a>
-<a name="ln-146"></a>      <span class="c">!&gt; 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</span>
-<a name="ln-147"></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-148"></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-149"></a>
-<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">lperi</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">lperi</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">plperP</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">plperP</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">plencP</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">plencP</span><span class="p">)</span>
-<a name="ln-153"></a>
-<a name="ln-154"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
-<a name="ln-155"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
-<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">plencP</span><span class="p">(</span><span class="n">n</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="n">self</span><span class="p">%</span><span class="n">lplanetocentric</span><span class="p">)</span> <span class="k">then</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">xheliocentric</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">xheliocentric</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">xheliocentric</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-161"></a>      <span class="k">end if</span>
-<a name="ln-162"></a>
-<a name="ln-163"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">lperi</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-164"></a>
-<a name="ln-165"></a>      <span class="k">return</span>
-<a name="ln-166"></a><span class="k">   end subroutine </span><span class="n">rmvs_setup_tp</span>
-<a name="ln-167"></a>
-<a name="ln-168"></a><span class="k">end submodule </span><span class="n">s_rmvs_setup</span>
+<a name="ln-54"></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-55"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span>
+<a name="ln-56"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-57"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">i</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-58"></a>               <span class="k">end do</span>
+<a name="ln-59"></a><span class="k">            end if</span>
+<a name="ln-60"></a><span class="k">         end if</span>
+<a name="ln-61"></a><span class="k">      end associate</span>
+<a name="ln-62"></a><span class="k">      return</span>
+<a name="ln-63"></a><span class="k">   end subroutine </span><span class="n">rmvs_setup_pl</span> 
+<a name="ln-64"></a>
+<a name="ln-65"></a>
+<a name="ln-66"></a>   <span class="k">module subroutine </span><span class="n">rmvs_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-67"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-68"></a>      <span class="c">!!</span>
+<a name="ln-69"></a>      <span class="c">!! Initialize an RMVS nbody system from files and sets up the planetocentric structures.</span>
+<a name="ln-70"></a>      <span class="c">!! </span>
+<a name="ln-71"></a>      <span class="c">!! We currently rearrange the pl order to keep it consistent with the way Swifter does it </span>
+<a name="ln-72"></a>      <span class="c">!! In Swifter, the central body occupies the first position in the pl list, and during</span>
+<a name="ln-73"></a>      <span class="c">!! encounters, the encountering planet is skipped in loops. In Swiftest, we instantiate an</span>
+<a name="ln-74"></a>      <span class="c">!! RMVS nbody system object attached to each pl to store planetocentric versions of the system</span>
+<a name="ln-75"></a>      <span class="c">!! to use during close encounters. </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="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS system object</span>
+<a name="ln-79"></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-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><span class="p">,</span> <span class="n">j</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>      <span class="c">! Call parent method</span>
+<a name="ln-84"></a>      <span class="k">call </span><span class="n">whm_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-85"></a>
+<a name="ln-86"></a>      <span class="c">! Set up the pl-tp planetocentric encounter structures for pl and cb. The planetocentric tp structures are </span>
+<a name="ln-87"></a>      <span class="c">! generated as necessary during close encounter steps.</span>
+<a name="ln-88"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-89"></a>      <span class="k">class is</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-90"></a>         <span class="k">select type</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-91"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
+<a name="ln-92"></a>            <span class="k">select type</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>
+<a name="ln-93"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-94"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">cb_heliocentric</span> <span class="o">=</span> <span class="n">cb</span>
+<a name="ln-95"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-96"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-97"></a>               <span class="n">cb</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-98"></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>
+<a name="ln-99"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-100"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(:)%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</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">npl</span>
+<a name="ln-102"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</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-103"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">rmvs_pl</span> <span class="kd">::</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-104"></a>                     <span class="k">select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-105"></a>                     <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
+<a name="ln-106"></a>                        <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-107"></a>                        <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-108"></a>                           <span class="n">cbenci</span><span class="p">%</span><span class="n">lplanetocentric</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="n">plenci</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-110"></a>                           <span class="k">call </span><span class="n">plenci</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-111"></a>                           <span class="n">plenci</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-112"></a>                           <span class="n">plenci</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-113"></a>                           <span class="c">! plind stores the heliocentric index value of a planetocentric planet</span>
+<a name="ln-114"></a>                           <span class="c">! e.g. Consider an encounter with planet 3.  </span>
+<a name="ln-115"></a>                           <span class="c">! Then the following will be the values of plind:</span>
+<a name="ln-116"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(1) = 0 (central body - never used)  </span>
+<a name="ln-117"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(2) = 1  </span>
+<a name="ln-118"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(3) = 2</span>
+<a name="ln-119"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(4) = 4</span>
+<a name="ln-120"></a>                           <span class="c">! pl%planetocentric(3)%pl%plind(5) = 5</span>
+<a name="ln-121"></a>                           <span class="c">! etc.  </span>
+<a name="ln-122"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-123"></a>                           <span class="n">plenci</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="p">[(</span><span class="n">j</span><span class="p">,</span><span class="n">j</span><span class="o">=</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="n">plenci</span><span class="p">%</span><span class="n">plind</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="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">plenci</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">plenci</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">i</span><span class="p">)</span>
+<a name="ln-125"></a>                           <span class="n">plenci</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="o">=</span> <span class="mi">0</span>
+<a name="ln-126"></a>                           <span class="n">plenci</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">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-127"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">Gmass</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="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">plind</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-128"></a>                           <span class="n">cbenci</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">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-129"></a>                        <span class="k">end select</span>
+<a name="ln-130"></a><span class="k">                     end select</span>
+<a name="ln-131"></a><span class="k">                  end do</span>
+<a name="ln-132"></a><span class="k">               end associate</span>
+<a name="ln-133"></a><span class="k">            end select</span>
+<a name="ln-134"></a><span class="k">         end select</span>
+<a name="ln-135"></a><span class="k">      end select</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">rmvs_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">rmvs_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-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">!! Allocate WHM test particle structure</span>
+<a name="ln-144"></a>      <span class="c">!!</span>
+<a name="ln-145"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine whm_setup.f90</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">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-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="c">!&gt; 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</span>
+<a name="ln-153"></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-154"></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-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">lperi</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">lperi</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">plperP</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">plperP</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">plencP</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">plencP</span><span class="p">)</span>
+<a name="ln-159"></a>
+<a name="ln-160"></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-161"></a>
+<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">lperi</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">plperP</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">plencP</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-165"></a>
+<a name="ln-166"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lplanetocentric</span><span class="p">)</span> <span class="k">then</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">xheliocentric</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">xheliocentric</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">xheliocentric</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-169"></a>      <span class="k">end if</span>
+<a name="ln-170"></a>
+<a name="ln-171"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">lperi</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>
+<a name="ln-173"></a>      <span class="k">return</span>
+<a name="ln-174"></a><span class="k">   end subroutine </span><span class="n">rmvs_setup_tp</span>
+<a name="ln-175"></a>
+<a name="ln-176"></a><span class="k">end submodule </span><span class="n">s_rmvs_setup</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/rmvs_step.f90.html b/docs/sourcefile/rmvs_step.f90.html
index 0052535ed..db20b4267 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.7% of total for source files.">502 statements</a>
+    title=" 3.1% of total for source files.">509 statements</a>
      </li> 
      
      
@@ -226,246 +226,296 @@ <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="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)">
+<svg id="sourcefilermvs_stepf90EfferentGraph" width="641pt" height="234pt"
+ viewBox="0.00 0.00 641.00 234.15" 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 327.68)">
 <title>sourcefile~~rmvs_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 897,-252.84 897,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 904,-327.68 904,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,-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>
+<polygon fill="none" stroke="black" points="900,-235.19 820,-235.19 820,-211.19 900,-211.19 900,-235.19"/>
+<text text-anchor="middle" x="860" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.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="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" 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~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.91,-225.32C754.63,-228.86 623.15,-235.99 547.53,-240.1"/>
+<polygon fill="#000000" stroke="#000000" points="547.04,-236.62 537.24,-240.66 547.42,-243.61 547.04,-236.62"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node3" class="node">
 <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>
+<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="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.76,-215.86C811.45,-214.31 802.65,-212.66 794.23,-211.09"/>
+<polygon fill="#000000" stroke="#000000" points="794.69,-207.61 784.22,-209.22 793.4,-214.49 794.69,-207.61"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node3" class="node">
-<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>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge5" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_operators.f90 -->
-<g id="sourcefile~~rmvs_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,-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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node8" 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>
+<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="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_step.f90~~EfferentGraph_edge6" class="edge">
+<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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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~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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_step.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~rmvs_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge11" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge13" class="edge">
-<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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_step.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
 </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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
 </g>
 </g>
 </svg>
@@ -583,619 +633,626 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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="kd">::</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">xend</span><span class="p">,</span> <span class="n">vbeg</span>
 <a name="ln-22"></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-23"></a>
-<a name="ln-24"></a>      <span class="k">select type</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-25"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
-<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="n">self</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">rmvs_pl</span><span class="p">)</span>
-<a name="ln-28"></a>            <span class="k">select type</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>
-<a name="ln-29"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-30"></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">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">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>
-<a name="ln-31"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">xbeg</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">xh</span><span class="p">)</span>
-<a name="ln-32"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">vbeg</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-33"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">vbeg</span> <span class="o">=</span> <span class="n">vbeg</span><span class="p">)</span>
-<a name="ln-34"></a>                  <span class="c">! ****** Check for close encounters ***** !</span>
-<a name="ln-35"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">rts</span> <span class="o">=</span> <span class="n">RHSCALE</span>
-<a name="ln-36"></a>                  <span class="n">lencounter</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-37"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-38"></a><span class="k">                     </span><span class="n">lfirstpl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span>
-<a name="ln-39"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">xbeg</span><span class="p">(:,:)</span>
-<a name="ln-40"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vbeg</span><span class="p">(:,:)</span>
-<a name="ln-41"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">step</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-42"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">NTENC</span><span class="p">)%</span><span class="n">x</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>
-<a name="ln-43"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">NTENC</span><span class="p">)%</span><span class="n">v</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>
-<a name="ln-44"></a>                     <span class="k">call </span><span class="n">rmvs_interp_out</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">dt</span><span class="p">)</span>
-<a name="ln-45"></a>                     <span class="k">call </span><span class="n">rmvs_step_out</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> <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-46"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-47"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">xend</span> <span class="o">=</span> <span class="n">xend</span><span class="p">)</span>
-<a name="ln-48"></a>                     <span class="n">tp</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-49"></a>                     <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">step</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-50"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-51"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirstpl</span>
-<a name="ln-52"></a>                     <span class="n">tp</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-53"></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">call </span><span class="nb">system</span><span class="p">%</span><span class="n">step_spin</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-54"></a>                  <span class="k">else</span>
-<a name="ln-55"></a><span class="k">                     call </span><span class="n">whm_step_system</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-56"></a>                  <span class="k">end if</span>
-<a name="ln-57"></a><span class="k">               end associate</span>
-<a name="ln-58"></a><span class="k">            end select</span>
-<a name="ln-59"></a><span class="k">         end select</span>
-<a name="ln-60"></a><span class="k">      end select</span>
-<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_step_system</span> 
-<a name="ln-63"></a>
-<a name="ln-64"></a>
-<a name="ln-65"></a>   <span class="k">subroutine </span><span class="n">rmvs_interp_out</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">dt</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">!! Interpolate planet positions between two Keplerian orbits in outer encounter region</span>
+<a name="ln-24"></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">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">whm_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-25"></a>
+<a name="ln-26"></a>      <span class="k">select type</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="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
+<a name="ln-28"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-29"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-30"></a>            <span class="k">select type</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>
+<a name="ln-31"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-32"></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">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">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>
+<a name="ln-33"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">xbeg</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">xh</span><span class="p">)</span>
+<a name="ln-34"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">vbeg</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-35"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">vbeg</span> <span class="o">=</span> <span class="n">vbeg</span><span class="p">)</span>
+<a name="ln-36"></a>                  <span class="c">! ****** Check for close encounters ***** !</span>
+<a name="ln-37"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">rts</span> <span class="o">=</span> <span class="n">RHSCALE</span>
+<a name="ln-38"></a>                  <span class="n">lencounter</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-39"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-40"></a><span class="k">                     </span><span class="n">lfirstpl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span>
+<a name="ln-41"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</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">xbeg</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-42"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="mi">0</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">vbeg</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-43"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">step</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-44"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">NTENC</span><span class="p">)%</span><span class="n">x</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>
+<a name="ln-45"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">NTENC</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">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>
+<a name="ln-46"></a>                     <span class="k">call </span><span class="n">rmvs_interp_out</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">dt</span><span class="p">)</span>
+<a name="ln-47"></a>                     <span class="k">call </span><span class="n">rmvs_step_out</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> <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-48"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-49"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">xend</span> <span class="o">=</span> <span class="n">xend</span><span class="p">)</span>
+<a name="ln-50"></a>                     <span class="n">tp</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-51"></a>                     <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">step</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-52"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-53"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirstpl</span>
+<a name="ln-54"></a>                     <span class="n">tp</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-55"></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">call </span><span class="nb">system</span><span class="p">%</span><span class="n">step_spin</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-56"></a>                  <span class="k">else</span>
+<a name="ln-57"></a><span class="k">                     call </span><span class="n">whm_step_system</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-58"></a>                  <span class="k">end if</span>
+<a name="ln-59"></a><span class="k">               end associate</span>
+<a name="ln-60"></a><span class="k">            end select</span>
+<a name="ln-61"></a><span class="k">         end select</span>
+<a name="ln-62"></a><span class="k">      end select</span>
+<a name="ln-63"></a><span class="k">      return</span>
+<a name="ln-64"></a><span class="k">   end subroutine </span><span class="n">rmvs_step_system</span> 
+<a name="ln-65"></a>
+<a name="ln-66"></a>
+<a name="ln-67"></a>   <span class="k">subroutine </span><span class="n">rmvs_interp_out</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">dt</span><span class="p">)</span>
+<a name="ln-68"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-69"></a>      <span class="c">!!</span>
-<a name="ln-70"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_interp_out.f90 </span>
+<a name="ln-70"></a>      <span class="c">!! Interpolate planet positions between two Keplerian orbits in outer encounter region</span>
 <a name="ln-71"></a>      <span class="c">!!</span>
-<a name="ln-72"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs3_interp.f</span>
-<a name="ln-73"></a>      <span class="k">implicit none</span>
-<a name="ln-74"></a>      <span class="c">! Arguments</span>
-<a name="ln-75"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS central body object</span>
-<a name="ln-76"></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">pl</span>      <span class="c">!! RMVS massive body object</span>
-<a name="ln-77"></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-78"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">outer_index</span>
-<a name="ln-80"></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">frac</span><span class="p">,</span> <span class="n">dntenc</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">xtmp</span><span class="p">,</span> <span class="n">vtmp</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">GMcb</span><span class="p">,</span> <span class="n">dto</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">iflag</span>
-<a name="ln-84"></a>
-<a name="ln-85"></a>      <span class="n">dntenc</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">NTENC</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-86"></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>
-<a name="ln-87"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">xtmp</span><span class="p">,</span> <span class="n">mold</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
-<a name="ln-88"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">vtmp</span><span class="p">,</span> <span class="n">mold</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-89"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">GMcb</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-90"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">dto</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-91"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">iflag</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-92"></a>         <span class="n">dto</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">dt</span> <span class="o">/</span> <span class="n">dntenc</span>
-<a name="ln-93"></a>         <span class="n">GMcb</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-94"></a>         <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">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-95"></a>         <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">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-96"></a>         <span class="k">do </span><span class="n">outer_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTENC</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-97"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-98"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-99"></a>                                        <span class="n">dto</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">iflag</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-100"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="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">npl</span>
-<a name="ln-102"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-103"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</span>
-<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="n">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">dto</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-105"></a>                     <span class="k">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">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</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="n">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-107"></a>                     <span class="k">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; STOPPING &quot;</span>
-<a name="ln-108"></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-109"></a>                  <span class="k">end if</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><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">outer_index</span> <span class="o">/</span> <span class="n">dntenc</span>
-<a name="ln-113"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">xtmp</span><span class="p">(:,:)</span>
-<a name="ln-114"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</span><span class="p">(:,:)</span>
-<a name="ln-115"></a>         <span class="k">end do</span>
-<a name="ln-116"></a><span class="k">         </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">outer</span><span class="p">(</span><span class="n">NTENC</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-117"></a>         <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">outer</span><span class="p">(</span><span class="n">NTENC</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-118"></a>         <span class="k">do </span><span class="n">outer_index</span> <span class="o">=</span> <span class="n">NTENC</span> <span class="o">-</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-119"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-120"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-121"></a>                                       <span class="o">-</span><span class="n">dto</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">iflag</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-122"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="mi">0</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-123"></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-124"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</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="o">*</span><span class="p">)</span> <span class="n">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="o">-</span><span class="n">dto</span><span class="p">(</span><span class="n">i</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="o">*</span><span class="p">)</span> <span class="n">xtmp</span><span class="p">(:,</span><span class="n">i</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="o">*</span><span class="p">)</span> <span class="n">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-129"></a>                     <span class="k">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; STOPPING &quot;</span>
-<a name="ln-130"></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-131"></a>                  <span class="k">end if</span>
-<a name="ln-132"></a><span class="k">               end do</span>
-<a name="ln-133"></a><span class="k">            end if</span>
-<a name="ln-134"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="n">outer_index</span> <span class="o">/</span> <span class="n">dntenc</span>
-<a name="ln-135"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">+</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">xtmp</span><span class="p">(:,:)</span>
-<a name="ln-136"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">+</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</span><span class="p">(:,:)</span>
-<a name="ln-137"></a>         <span class="k">end do</span>
-<a name="ln-138"></a><span class="k">      end associate</span>
-<a name="ln-139"></a>
-<a name="ln-140"></a><span class="k">      return</span>
-<a name="ln-141"></a><span class="k">   end subroutine </span><span class="n">rmvs_interp_out</span>   
-<a name="ln-142"></a>
-<a name="ln-143"></a>
-<a name="ln-144"></a>   <span class="k">subroutine </span><span class="n">rmvs_step_out</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> <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-145"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-146"></a>      <span class="c">!!</span>
-<a name="ln-147"></a>      <span class="c">!! Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region</span>
-<a name="ln-148"></a>      <span class="c">!!    integration if necessar</span>
-<a name="ln-149"></a>      <span class="c">!! </span>
-<a name="ln-150"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routines rmvs3_step_out.f and rmvs3_step_out2.f</span>
-<a name="ln-151"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routines rmvs_step_out.f90 and rmvs_step_out2.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">rmvs_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">!! RMVS central body object</span>
-<a name="ln-155"></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">pl</span>     <span class="c">!! RMVS massive body object</span>
-<a name="ln-156"></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">tp</span>     <span class="c">!! RMVS test particle object</span>
-<a name="ln-157"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS nbody system object</span>
-<a name="ln-158"></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-159"></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-160"></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 stepsiz</span>
-<a name="ln-161"></a>      <span class="c">! Internals</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">outer_index</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">k</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="kd">::</span> <span class="n">dto</span><span class="p">,</span> <span class="n">outer_time</span><span class="p">,</span> <span class="n">rts</span>
-<a name="ln-164"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lfirsttp</span>
-<a name="ln-165"></a>
-<a name="ln-166"></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-167"></a>         <span class="n">dto</span> <span class="o">=</span> <span class="n">dt</span> <span class="o">/</span> <span class="n">NTENC</span>
-<a name="ln-168"></a>         <span class="k">where</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="o">==</span> <span class="mi">0</span><span class="p">)</span>
-<a name="ln-169"></a>            <span class="n">tp</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-170"></a>         <span class="n">elsewhere</span>  
-<a name="ln-171"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">lperi</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="k">end where</span>
-<a name="ln-173"></a><span class="k">         do </span><span class="n">outer_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTENC</span>
-<a name="ln-174"></a>            <span class="n">outer_time</span> <span class="o">=</span> <span class="n">t</span> <span class="o">+</span> <span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">dto</span>
-<a name="ln-175"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:),</span> <span class="p">&amp;</span>
-<a name="ln-176"></a>                                <span class="n">vbeg</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:),</span> <span class="p">&amp;</span>
-<a name="ln-177"></a>                                <span class="n">xend</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span>    <span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:))</span>
-<a name="ln-178"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">rts</span> <span class="o">=</span> <span class="n">RHPSCALE</span>
-<a name="ln-179"></a>            <span class="n">lencounter</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span> 
-<a name="ln-180"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-181"></a>               <span class="c">! Interpolate planets in inner encounter region</span>
-<a name="ln-182"></a>               <span class="k">call </span><span class="n">rmvs_interp_in</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="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dto</span><span class="p">,</span> <span class="n">outer_index</span><span class="p">)</span> 
-<a name="ln-183"></a>               <span class="c">! Step through the inner region</span>
-<a name="ln-184"></a>               <span class="k">call </span><span class="n">rmvs_step_in</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> <span class="n">param</span><span class="p">,</span> <span class="n">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
-<a name="ln-185"></a>               <span class="n">lfirsttp</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span>
-<a name="ln-186"></a>               <span class="n">tp</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-187"></a>               <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">step</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">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
-<a name="ln-188"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirsttp</span>
-<a name="ln-189"></a>            <span class="k">else</span>
-<a name="ln-190"></a><span class="k">               call </span><span class="n">tp</span><span class="p">%</span><span class="n">step</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">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
-<a name="ln-191"></a>            <span class="k">end if</span>
-<a name="ln-192"></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-193"></a>               <span class="k">if</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">j</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-194"></a><span class="k">               </span><span class="n">tp</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-195"></a>               <span class="k">where</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="o">==</span> <span class="n">j</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">not</span><span class="p">.</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(:)))</span>
-<a name="ln-196"></a>                  <span class="n">tp</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-197"></a>               <span class="k">end where </span>
-<a name="ln-198"></a><span class="k">            end do</span>
-<a name="ln-199"></a><span class="k">         end do</span>
-<a name="ln-200"></a><span class="k">      end associate</span>
-<a name="ln-201"></a>
-<a name="ln-202"></a><span class="k">      return</span>
-<a name="ln-203"></a><span class="k">   end subroutine </span><span class="n">rmvs_step_out</span>
-<a name="ln-204"></a>
-<a name="ln-205"></a>
-<a name="ln-206"></a>   <span class="k">subroutine </span><span class="n">rmvs_interp_in</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="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> <span class="n">outer_index</span><span class="p">)</span>
-<a name="ln-207"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-208"></a>      <span class="c">!!</span>
-<a name="ln-209"></a>      <span class="c">!! Interpolate planet positions between two Keplerian orbits in inner encounter regio</span>
+<a name="ln-72"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_interp_out.f90 </span>
+<a name="ln-73"></a>      <span class="c">!!</span>
+<a name="ln-74"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs3_interp.f</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_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">!! RMVS central body object</span>
+<a name="ln-78"></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">pl</span>      <span class="c">!! RMVS massive body object</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">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-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><span class="p">,</span> <span class="n">outer_index</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="kd">::</span> <span class="n">frac</span><span class="p">,</span> <span class="n">dntenc</span>
+<a name="ln-83"></a>      <span class="kt">real</span><span 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">xtmp</span><span class="p">,</span> <span class="n">vtmp</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">GMcb</span><span class="p">,</span> <span class="n">dto</span>
+<a name="ln-85"></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">iflag</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a>      <span class="n">dntenc</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">NTENC</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-88"></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>
+<a name="ln-89"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">xtmp</span><span class="p">,</span> <span class="n">mold</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
+<a name="ln-90"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">vtmp</span><span class="p">,</span> <span class="n">mold</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-91"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">GMcb</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-92"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">dto</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-93"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">iflag</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-94"></a>         <span class="n">dto</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">dt</span> <span class="o">/</span> <span class="n">dntenc</span>
+<a name="ln-95"></a>         <span class="n">GMcb</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">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-96"></a>         <span class="n">xtmp</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">outer</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</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-97"></a>         <span class="n">vtmp</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">outer</span><span class="p">(</span><span class="mi">0</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">npl</span><span class="p">)</span>
+<a name="ln-98"></a>         <span class="k">do </span><span class="n">outer_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTENC</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-99"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-100"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-101"></a>                                        <span class="n">dto</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">iflag</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-102"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="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">npl</span>
+<a name="ln-104"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-105"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</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="n">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">dto</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-107"></a>                     <span class="k">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">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-108"></a>                     <span class="k">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">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-109"></a>                     <span class="k">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; STOPPING &quot;</span>
+<a name="ln-110"></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-111"></a>                  <span class="k">end if</span>
+<a name="ln-112"></a><span class="k">               end do</span>
+<a name="ln-113"></a><span class="k">            end if</span>
+<a name="ln-114"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">outer_index</span> <span class="o">/</span> <span class="n">dntenc</span>
+<a name="ln-115"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</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">frac</span> <span class="o">*</span> <span class="n">xtmp</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-116"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</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-117"></a>         <span class="k">end do</span>
+<a name="ln-118"></a><span class="k">         </span><span class="n">xtmp</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">outer</span><span class="p">(</span><span class="n">NTENC</span><span class="p">)%</span><span class="n">x</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-119"></a>         <span class="n">vtmp</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">outer</span><span class="p">(</span><span class="n">NTENC</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">npl</span><span class="p">)</span>
+<a name="ln-120"></a>         <span class="k">do </span><span class="n">outer_index</span> <span class="o">=</span> <span class="n">NTENC</span> <span class="o">-</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-121"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-122"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-123"></a>                                       <span class="o">-</span><span class="n">dto</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">iflag</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="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-125"></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-126"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-127"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</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="n">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="o">-</span><span class="n">dto</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-129"></a>                     <span class="k">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">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</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="n">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-131"></a>                     <span class="k">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; STOPPING &quot;</span>
+<a name="ln-132"></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-133"></a>                  <span class="k">end if</span>
+<a name="ln-134"></a><span class="k">               end do</span>
+<a name="ln-135"></a><span class="k">            end if</span>
+<a name="ln-136"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="n">outer_index</span> <span class="o">/</span> <span class="n">dntenc</span>
+<a name="ln-137"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</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">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</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">frac</span> <span class="o">*</span> <span class="n">xtmp</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-138"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</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">npl</span><span class="p">)</span> <span class="o">+</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</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">end do</span>
+<a name="ln-140"></a><span class="k">      end associate</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">rmvs_interp_out</span>   
+<a name="ln-144"></a>
+<a name="ln-145"></a>
+<a name="ln-146"></a>   <span class="k">subroutine </span><span class="n">rmvs_step_out</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> <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-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">!! Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region</span>
+<a name="ln-150"></a>      <span class="c">!!    integration if necessar</span>
+<a name="ln-151"></a>      <span class="c">!! </span>
+<a name="ln-152"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routines rmvs3_step_out.f and rmvs3_step_out2.f</span>
+<a name="ln-153"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routines rmvs_step_out.f90 and rmvs_step_out2.f90</span>
+<a name="ln-154"></a>      <span class="k">implicit none</span>
+<a name="ln-155"></a>      <span class="c">! Arguments</span>
+<a name="ln-156"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS central body object</span>
+<a name="ln-157"></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">pl</span>     <span class="c">!! RMVS massive body object</span>
+<a name="ln-158"></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">tp</span>     <span class="c">!! RMVS test particle object</span>
+<a name="ln-159"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS nbody system object</span>
+<a name="ln-160"></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-161"></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-162"></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 stepsiz</span>
+<a name="ln-163"></a>      <span class="c">! Internals</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">outer_index</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">k</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="kd">::</span> <span class="n">dto</span><span class="p">,</span> <span class="n">outer_time</span><span class="p">,</span> <span class="n">rts</span>
+<a name="ln-166"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lfirsttp</span>
+<a name="ln-167"></a>
+<a name="ln-168"></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-169"></a>         <span class="n">dto</span> <span class="o">=</span> <span class="n">dt</span> <span class="o">/</span> <span class="n">NTENC</span>
+<a name="ln-170"></a>         <span class="k">where</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="mi">0</span><span class="p">)</span>
+<a name="ln-171"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-172"></a>         <span class="n">elsewhere</span>  
+<a name="ln-173"></a>            <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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-174"></a>         <span class="k">end where</span>
+<a name="ln-175"></a><span class="k">         do </span><span class="n">outer_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTENC</span>
+<a name="ln-176"></a>            <span class="n">outer_time</span> <span class="o">=</span> <span class="n">t</span> <span class="o">+</span> <span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">dto</span>
+<a name="ln-177"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</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="p">&amp;</span>
+<a name="ln-178"></a>                                <span class="n">vbeg</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</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="n">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-179"></a>                                <span class="n">xend</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span>    <span class="p">)%</span><span class="n">x</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="nb">system</span><span class="p">%</span><span class="n">rts</span> <span class="o">=</span> <span class="n">RHPSCALE</span>
+<a name="ln-181"></a>            <span class="n">lencounter</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span> 
+<a name="ln-182"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-183"></a>               <span class="c">! Interpolate planets in inner encounter region</span>
+<a name="ln-184"></a>               <span class="k">call </span><span class="n">rmvs_interp_in</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="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dto</span><span class="p">,</span> <span class="n">outer_index</span><span class="p">)</span> 
+<a name="ln-185"></a>               <span class="c">! Step through the inner region</span>
+<a name="ln-186"></a>               <span class="k">call </span><span class="n">rmvs_step_in</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> <span class="n">param</span><span class="p">,</span> <span class="n">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
+<a name="ln-187"></a>               <span class="n">lfirsttp</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span>
+<a name="ln-188"></a>               <span class="n">tp</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-189"></a>               <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">step</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">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
+<a name="ln-190"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirsttp</span>
+<a name="ln-191"></a>            <span class="k">else</span>
+<a name="ln-192"></a><span class="k">               call </span><span class="n">tp</span><span class="p">%</span><span class="n">step</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">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
+<a name="ln-193"></a>            <span class="k">end if</span>
+<a name="ln-194"></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-195"></a>               <span class="k">if</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">j</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-196"></a><span class="k">               </span><span class="n">tp</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-197"></a>               <span class="k">where</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">j</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">not</span><span class="p">.</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-198"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-199"></a>               <span class="k">end where </span>
+<a name="ln-200"></a><span class="k">            end do</span>
+<a name="ln-201"></a><span class="k">         end do</span>
+<a name="ln-202"></a><span class="k">      end associate</span>
+<a name="ln-203"></a>
+<a name="ln-204"></a><span class="k">      return</span>
+<a name="ln-205"></a><span class="k">   end subroutine </span><span class="n">rmvs_step_out</span>
+<a name="ln-206"></a>
+<a name="ln-207"></a>
+<a name="ln-208"></a>   <span class="k">subroutine </span><span class="n">rmvs_interp_in</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="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> <span class="n">outer_index</span><span class="p">)</span>
+<a name="ln-209"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-210"></a>      <span class="c">!!</span>
-<a name="ln-211"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_interp_in.f90 </span>
+<a name="ln-211"></a>      <span class="c">!! Interpolate planet positions between two Keplerian orbits in inner encounter regio</span>
 <a name="ln-212"></a>      <span class="c">!!</span>
-<a name="ln-213"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs3_interp.f</span>
-<a name="ln-214"></a>      <span class="k">implicit none</span>
-<a name="ln-215"></a>      <span class="c">! Arguments</span>
-<a name="ln-216"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS cenral body object</span>
-<a name="ln-217"></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">pl</span>          <span class="c">!! RMVS massive body object</span>
-<a name="ln-218"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS 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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>       <span class="c">!! Swiftest parameters file</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">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-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">outer_index</span> <span class="c">!! Outer substep number within current set</span>
-<a name="ln-222"></a>      <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">inner_index</span>
-<a name="ln-224"></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">frac</span><span class="p">,</span> <span class="n">dntphenc</span>
-<a name="ln-225"></a>      <span class="kt">real</span><span 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">xtmp</span><span class="p">,</span> <span class="n">vtmp</span><span class="p">,</span> <span class="n">xh_original</span>
-<a name="ln-226"></a>      <span class="kt">real</span><span 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">GMcb</span><span class="p">,</span> <span class="n">dti</span>
-<a name="ln-227"></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">iflag</span>
-<a name="ln-228"></a>
-<a name="ln-229"></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>
-<a name="ln-230"></a>         <span class="n">dntphenc</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">NTPHENC</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-231"></a>
-<a name="ln-232"></a>         <span class="c">! Set the endpoints of the inner region from the outer region values in the current outer step index</span>
-<a name="ln-233"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-234"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-235"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-236"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-237"></a>
-<a name="ln-238"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">xtmp</span><span class="p">,</span><span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
-<a name="ln-239"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">vtmp</span><span class="p">,</span><span class="n">mold</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-240"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">GMcb</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-241"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">dti</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-242"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">iflag</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-243"></a>         <span class="n">dti</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">dt</span> <span class="o">/</span> <span class="n">dntphenc</span>
-<a name="ln-244"></a>         <span class="n">GMcb</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-245"></a>         <span class="n">xtmp</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-246"></a>         <span class="n">vtmp</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-247"></a>
-<a name="ln-248"></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="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">ltides</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-249"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">xh_original</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">xh</span><span class="p">)</span>
-<a name="ln-250"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">xtmp</span><span class="p">(:,</span> <span class="p">:)</span> <span class="c">! Temporarily replace heliocentric position with inner substep values to calculate the oblateness terms</span>
-<a name="ln-251"></a>         <span class="k">end if</span>
-<a name="ln-252"></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-253"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-254"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="p">:)</span> <span class="c">! Save the oblateness acceleration on the planet for this substep</span>
-<a name="ln-255"></a>         <span class="k">end if</span>
-<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">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-257"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_tides</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-258"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,</span> <span class="p">:)</span> <span class="c">! Save the oblateness acceleration on the planet for this substep</span>
-<a name="ln-259"></a>         <span class="k">end if</span>
-<a name="ln-260"></a>
-<a name="ln-261"></a><span class="k">         do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTPHENC</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-262"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-263"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-264"></a>                                        <span class="n">dti</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">iflag</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-265"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="mi">0</span><span class="p">))</span> <span class="k">then</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">npl</span>
-<a name="ln-267"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-268"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</span>
-<a name="ln-269"></a>                     <span class="k">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">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">dti</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-270"></a>                     <span class="k">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">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-271"></a>                     <span class="k">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">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-272"></a>                     <span class="k">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; STOPPING &quot;</span>
-<a name="ln-273"></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-274"></a>                  <span class="k">end if</span>
-<a name="ln-275"></a><span class="k">               end do</span>
-<a name="ln-276"></a><span class="k">            end if</span>
-<a name="ln-277"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">inner_index</span> <span class="o">/</span> <span class="n">dntphenc</span>
-<a name="ln-278"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">xtmp</span><span class="p">(:,:)</span>
-<a name="ln-279"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</span><span class="p">(:,:)</span>
-<a name="ln-280"></a>         <span class="k">end do</span>
-<a name="ln-281"></a>
-<a name="ln-282"></a><span class="k">         </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">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-283"></a>         <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">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span>
+<a name="ln-213"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_interp_in.f90 </span>
+<a name="ln-214"></a>      <span class="c">!!</span>
+<a name="ln-215"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs3_interp.f</span>
+<a name="ln-216"></a>      <span class="k">implicit none</span>
+<a name="ln-217"></a>      <span class="c">! Arguments</span>
+<a name="ln-218"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS cenral body object</span>
+<a name="ln-219"></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">pl</span>          <span class="c">!! RMVS massive body object</span>
+<a name="ln-220"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS nbody system object</span>
+<a name="ln-221"></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">!! Swiftest parameters file</span>
+<a name="ln-222"></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-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">outer_index</span> <span class="c">!! Outer substep number within current set</span>
+<a name="ln-224"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">inner_index</span>
+<a name="ln-226"></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">frac</span><span class="p">,</span> <span class="n">dntphenc</span>
+<a name="ln-227"></a>      <span class="kt">real</span><span 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">xtmp</span><span class="p">,</span> <span class="n">vtmp</span><span class="p">,</span> <span class="n">xh_original</span><span class="p">,</span> <span class="n">ah_original</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">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">GMcb</span><span class="p">,</span> <span class="n">dti</span>
+<a name="ln-229"></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">iflag</span>
+<a name="ln-230"></a>
+<a name="ln-231"></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>
+<a name="ln-232"></a>         <span class="n">dntphenc</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">NTPHENC</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-233"></a>
+<a name="ln-234"></a>         <span class="c">! Set the endpoints of the inner region from the outer region values in the current outer step index</span>
+<a name="ln-235"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</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">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</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-236"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</span> <span class="o">-</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="n">npl</span><span class="p">)</span>
+<a name="ln-237"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</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">outer</span><span class="p">(</span><span class="n">outer_index</span><span class="p">)%</span><span class="n">x</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-238"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">outer</span><span class="p">(</span><span class="n">outer_index</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">npl</span><span class="p">)</span>
+<a name="ln-239"></a>
+<a name="ln-240"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">xtmp</span><span class="p">,</span><span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
+<a name="ln-241"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">vtmp</span><span class="p">,</span><span class="n">mold</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-242"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">GMcb</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-243"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">dti</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-244"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">iflag</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-245"></a>         <span class="n">dti</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">dt</span> <span class="o">/</span> <span class="n">dntphenc</span>
+<a name="ln-246"></a>         <span class="n">GMcb</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">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-247"></a>         <span class="n">xtmp</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">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</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-248"></a>         <span class="n">vtmp</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">inner</span><span class="p">(</span><span class="mi">0</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">npl</span><span class="p">)</span>
+<a name="ln-249"></a>
+<a name="ln-250"></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="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">ltides</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-251"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">xh_original</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">xh</span><span class="p">)</span>
+<a name="ln-252"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">ah_original</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">ah</span><span class="p">)</span>
+<a name="ln-253"></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">xtmp</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="c">! Temporarily replace heliocentric position with inner substep values to calculate the oblateness terms</span>
+<a name="ln-254"></a>         <span class="k">end if</span>
+<a name="ln-255"></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-256"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-257"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">aobl</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">aobl</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="c">! Save the oblateness acceleration on the planet for this substep</span>
+<a name="ln-258"></a>         <span class="k">end if</span>
+<a name="ln-259"></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-260"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_tides</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-261"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">atide</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">atide</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="c">! Save the oblateness acceleration on the planet for this substep</span>
+<a name="ln-262"></a>         <span class="k">end if</span>
+<a name="ln-263"></a>
+<a name="ln-264"></a><span class="k">         do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTPHENC</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-265"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-266"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-267"></a>                                        <span class="n">dti</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">iflag</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-268"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-269"></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-270"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-271"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</span>
+<a name="ln-272"></a>                     <span class="k">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">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">dti</span><span class="p">(</span><span class="n">i</span><span class="p">)</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="n">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</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="n">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-275"></a>                     <span class="k">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; STOPPING &quot;</span>
+<a name="ln-276"></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-277"></a>                  <span class="k">end if</span>
+<a name="ln-278"></a><span class="k">               end do</span>
+<a name="ln-279"></a><span class="k">            end if</span>
+<a name="ln-280"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">inner_index</span> <span class="o">/</span> <span class="n">dntphenc</span>
+<a name="ln-281"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</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">frac</span> <span class="o">*</span> <span class="n">xtmp</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="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</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">end do</span>
 <a name="ln-284"></a>
-<a name="ln-285"></a>         <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="n">NTPHENC</span> <span class="o">-</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-286"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-287"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-288"></a>                                        <span class="o">-</span><span class="n">dti</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">iflag</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-289"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="mi">0</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-290"></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-291"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-292"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</span>
-<a name="ln-293"></a>                     <span class="k">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">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="o">-</span><span class="n">dti</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-294"></a>                     <span class="k">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">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-295"></a>                     <span class="k">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">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-296"></a>                     <span class="k">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; STOPPING &quot;</span>
-<a name="ln-297"></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-298"></a>                  <span class="k">end if</span>
-<a name="ln-299"></a><span class="k">               end do</span>
-<a name="ln-300"></a><span class="k">            end if</span>
-<a name="ln-301"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="n">inner_index</span> <span class="o">/</span> <span class="n">dntphenc</span>
-<a name="ln-302"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">+</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">xtmp</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-303"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">+</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-304"></a>
-<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">loblatecb</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-306"></a><span class="k">               </span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-307"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-308"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="p">:)</span> 
-<a name="ln-309"></a>            <span class="k">end if</span>
-<a name="ln-310"></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-311"></a><span class="k">               call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_tides</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-312"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,</span> <span class="p">:)</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">         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-316"></a>            <span class="c">! Calculate the final value of oblateness accelerations at the final inner substep</span>
-<a name="ln-317"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</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">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-319"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="p">:)</span> 
-<a name="ln-320"></a>         <span class="k">end if</span>
-<a name="ln-321"></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-322"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_tides</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-323"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,</span> <span class="p">:)</span> 
-<a name="ln-324"></a>         <span class="k">end if</span>
-<a name="ln-325"></a>         <span class="c">! Put the planet positions back into place </span>
-<a name="ln-326"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">xh_original</span><span class="p">))</span> <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">xh_original</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
-<a name="ln-327"></a>      <span class="k">end associate</span>
-<a name="ln-328"></a><span class="k">      return</span>
-<a name="ln-329"></a>
-<a name="ln-330"></a><span class="k">   end subroutine </span><span class="n">rmvs_interp_in</span>
-<a name="ln-331"></a>
-<a name="ln-332"></a>
-<a name="ln-333"></a>   <span class="k">subroutine </span><span class="n">rmvs_step_in</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> <span class="n">param</span><span class="p">,</span> <span class="n">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
-<a name="ln-334"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-335"></a>      <span class="c">!!</span>
-<a name="ln-336"></a>      <span class="c">!! Step active test particles ahead in the inner encounter region</span>
-<a name="ln-337"></a>      <span class="c">!! </span>
-<a name="ln-338"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs3_step_in.f</span>
-<a name="ln-339"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_step_in.f90</span>
-<a name="ln-340"></a>      <span class="k">implicit none</span>
-<a name="ln-341"></a>      <span class="c">! Arguments</span>
-<a name="ln-342"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS central body object</span>
-<a name="ln-343"></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">pl</span>         <span class="c">!! RMVS massive body object</span>
-<a name="ln-344"></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">tp</span>         <span class="c">!! RMVS test particle object</span>
-<a name="ln-345"></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-346"></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">outer_time</span> <span class="c">!! Current time</span>
-<a name="ln-347"></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">dto</span>        <span class="c">!! Outer step size</span>
-<a name="ln-348"></a>      <span class="c">! Internals</span>
-<a name="ln-349"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">lfirsttp</span>
-<a name="ln-350"></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">ipleP</span>
-<a name="ln-351"></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">dti</span><span class="p">,</span> <span class="n">inner_time</span>
-<a name="ln-352"></a>
-<a name="ln-353"></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>
-<a name="ln-354"></a>         <span class="n">dti</span> <span class="o">=</span> <span class="n">dto</span> <span class="o">/</span> <span class="n">NTPHENC</span>
-<a name="ln-355"></a>         <span class="k">call </span><span class="n">rmvs_make_planetocentric</span><span class="p">(</span><span class="n">param</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-356"></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-357"></a>            <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-358"></a><span class="k">            select type</span><span class="p">(</span><span class="n">planetocen_system</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-359"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_nbody_system</span><span class="p">)</span>
-<a name="ln-360"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">planetocen_system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-361"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
-<a name="ln-362"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">planetocen_system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-363"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-364"></a>                     <span class="k">select type</span><span class="p">(</span><span class="n">tpenci</span> <span class="o">=&gt;</span> <span class="n">planetocen_system</span><span class="p">%</span><span class="n">tp</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">associate</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">=&gt;</span> <span class="n">tpenci</span><span class="p">%</span><span class="nb">index</span><span class="p">)</span>
-<a name="ln-367"></a>                           <span class="c">! There are inner encounters with this planet...switch to planetocentric coordinates to proceed</span>
-<a name="ln-368"></a>                           <span class="n">tpenci</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-369"></a>                           <span class="n">inner_time</span> <span class="o">=</span> <span class="n">outer_time</span>
-<a name="ln-370"></a>                           <span class="k">call </span><span class="n">rmvs_peri_tp</span><span class="p">(</span><span class="n">tpenci</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">inner_time</span><span class="p">,</span> <span class="n">dti</span><span class="p">,</span> <span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="mi">0</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-371"></a>                           <span class="c">! now step the encountering test particles fully through the inner encounter</span>
-<a name="ln-372"></a>                           <span class="n">lfirsttp</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-373"></a>                           <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTPHENC</span> <span class="c">! Integrate over the encounter region, using the &quot;substitute&quot; planetocentric systems at each level</span>
-<a name="ln-374"></a>                              <span class="n">plenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,:)</span>
-<a name="ln-375"></a>                              <span class="k">call </span><span class="n">plenci</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-376"></a>                                                      <span class="n">xend</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span>
-<a name="ln-377"></a>
-<a name="ln-378"></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-379"></a><span class="k">                                 </span><span class="n">cbenci</span><span class="p">%</span><span class="n">aoblbeg</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-380"></a>                                 <span class="n">cbenci</span><span class="p">%</span><span class="n">aoblend</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span>    <span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-381"></a>                              <span class="k">end if</span>
-<a name="ln-382"></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-383"></a><span class="k">                                 </span><span class="n">cbenci</span><span class="p">%</span><span class="n">atidebeg</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-384"></a>                                 <span class="n">cbenci</span><span class="p">%</span><span class="n">atideend</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span>    <span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-285"></a><span class="k">         </span><span class="n">xtmp</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">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</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-286"></a>         <span class="n">vtmp</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">inner</span><span class="p">(</span><span class="n">NTPHENC</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">npl</span><span class="p">)</span>
+<a name="ln-287"></a>
+<a name="ln-288"></a>         <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="n">NTPHENC</span> <span class="o">-</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-289"></a>            <span class="k">call </span><span class="n">drift_one</span><span class="p">(</span><span class="n">GMcb</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">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="n">xtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-290"></a>                                        <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="n">vtmp</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">npl</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-291"></a>                                        <span class="o">-</span><span class="n">dti</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">iflag</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-292"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">iflag</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="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-293"></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-294"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iflag</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-295"></a><span class="k">                     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; Planet &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">i</span><span class="p">),</span> <span class="s2">&quot; is lost!!!!!!!!!!&quot;</span>
+<a name="ln-296"></a>                     <span class="k">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">GMcb</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="o">-</span><span class="n">dti</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-297"></a>                     <span class="k">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">xtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-298"></a>                     <span class="k">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">vtmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-299"></a>                     <span class="k">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; STOPPING &quot;</span>
+<a name="ln-300"></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-301"></a>                  <span class="k">end if</span>
+<a name="ln-302"></a><span class="k">               end do</span>
+<a name="ln-303"></a><span class="k">            end if</span>
+<a name="ln-304"></a><span class="k">            </span><span class="n">frac</span> <span class="o">=</span> <span class="n">inner_index</span> <span class="o">/</span> <span class="n">dntphenc</span>
+<a name="ln-305"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</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">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</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">frac</span> <span class="o">*</span> <span class="n">xtmp</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-306"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">npl</span><span class="p">)</span> <span class="o">+</span> <span class="n">frac</span> <span class="o">*</span> <span class="n">vtmp</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-307"></a>
+<a name="ln-308"></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-309"></a><span class="k">               </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">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</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-310"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-311"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</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">aobl</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-312"></a>            <span class="k">end if</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">ltides</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-314"></a><span class="k">               call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_tides</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-315"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</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">atide</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-316"></a>            <span class="k">end if</span>
+<a name="ln-317"></a><span class="k">         end do</span>
+<a name="ln-318"></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-319"></a>            <span class="c">! Calculate the final value of oblateness accelerations at the final inner substep</span>
+<a name="ln-320"></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">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</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-321"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-322"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">aobl</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">aobl</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-323"></a>         <span class="k">end if</span>
+<a name="ln-324"></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-325"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel_tides</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-326"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">atide</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">atide</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-327"></a>         <span class="k">end if</span>
+<a name="ln-328"></a>         <span class="c">! Put the planet positions and accelerations back into place </span>
+<a name="ln-329"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">xh_original</span><span class="p">))</span> <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">xh_original</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
+<a name="ln-330"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">ah_original</span><span class="p">))</span> <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">ah_original</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">)</span>
+<a name="ln-331"></a>      <span class="k">end associate</span>
+<a name="ln-332"></a><span class="k">      return</span>
+<a name="ln-333"></a>
+<a name="ln-334"></a><span class="k">   end subroutine </span><span class="n">rmvs_interp_in</span>
+<a name="ln-335"></a>
+<a name="ln-336"></a>
+<a name="ln-337"></a>   <span class="k">subroutine </span><span class="n">rmvs_step_in</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> <span class="n">param</span><span class="p">,</span> <span class="n">outer_time</span><span class="p">,</span> <span class="n">dto</span><span class="p">)</span>
+<a name="ln-338"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-339"></a>      <span class="c">!!</span>
+<a name="ln-340"></a>      <span class="c">!! Step active test particles ahead in the inner encounter region</span>
+<a name="ln-341"></a>      <span class="c">!! </span>
+<a name="ln-342"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine rmvs3_step_in.f</span>
+<a name="ln-343"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_step_in.f90</span>
+<a name="ln-344"></a>      <span class="k">implicit none</span>
+<a name="ln-345"></a>      <span class="c">! Arguments</span>
+<a name="ln-346"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS central body object</span>
+<a name="ln-347"></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">pl</span>         <span class="c">!! RMVS massive body object</span>
+<a name="ln-348"></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">tp</span>         <span class="c">!! RMVS test particle object</span>
+<a name="ln-349"></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-350"></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">outer_time</span> <span class="c">!! Current time</span>
+<a name="ln-351"></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">dto</span>        <span class="c">!! Outer step size</span>
+<a name="ln-352"></a>      <span class="c">! Internals</span>
+<a name="ln-353"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">lfirsttp</span>
+<a name="ln-354"></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">ipleP</span>
+<a name="ln-355"></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">dti</span><span class="p">,</span> <span class="n">inner_time</span>
+<a name="ln-356"></a>
+<a name="ln-357"></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>
+<a name="ln-358"></a>         <span class="n">dti</span> <span class="o">=</span> <span class="n">dto</span> <span class="o">/</span> <span class="n">NTPHENC</span>
+<a name="ln-359"></a>         <span class="k">call </span><span class="n">rmvs_make_planetocentric</span><span class="p">(</span><span class="n">param</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-360"></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-361"></a>            <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-362"></a><span class="k">            select type</span><span class="p">(</span><span class="n">planetocen_system</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-363"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_nbody_system</span><span class="p">)</span>
+<a name="ln-364"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">planetocen_system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-365"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
+<a name="ln-366"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">planetocen_system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-367"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-368"></a>                     <span class="k">select type</span><span class="p">(</span><span class="n">tpenci</span> <span class="o">=&gt;</span> <span class="n">planetocen_system</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-369"></a>                     <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-370"></a>                        <span class="k">associate</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">=&gt;</span> <span class="n">tpenci</span><span class="p">%</span><span class="nb">index</span><span class="p">)</span>
+<a name="ln-371"></a>                           <span class="c">! There are inner encounters with this planet...switch to planetocentric coordinates to proceed</span>
+<a name="ln-372"></a>                           <span class="n">tpenci</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-373"></a>                           <span class="n">inner_time</span> <span class="o">=</span> <span class="n">outer_time</span>
+<a name="ln-374"></a>                           <span class="k">call </span><span class="n">rmvs_peri_tp</span><span class="p">(</span><span class="n">tpenci</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">inner_time</span><span class="p">,</span> <span class="n">dti</span><span class="p">,</span> <span class="p">.</span><span class="n">true</span><span class="p">.,</span> <span class="mi">0</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-375"></a>                           <span class="c">! now step the encountering test particles fully through the inner encounter</span>
+<a name="ln-376"></a>                           <span class="n">lfirsttp</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">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NTPHENC</span> <span class="c">! Integrate over the encounter region, using the &quot;substitute&quot; planetocentric systems at each level</span>
+<a name="ln-378"></a>                              <span class="n">plenci</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">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</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-379"></a>                              <span class="k">call </span><span class="n">plenci</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">x</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-380"></a>                                                      <span class="n">xend</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span>
+<a name="ln-381"></a>
+<a name="ln-382"></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-383"></a><span class="k">                                 </span><span class="n">cbenci</span><span class="p">%</span><span class="n">aoblbeg</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-384"></a>                                 <span class="n">cbenci</span><span class="p">%</span><span class="n">aoblend</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span>    <span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
 <a name="ln-385"></a>                              <span class="k">end if</span>
-<a name="ln-386"></a>
-<a name="ln-387"></a><span class="k">                              call </span><span class="n">tpenci</span><span class="p">%</span><span class="n">step</span><span class="p">(</span><span class="n">planetocen_system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">inner_time</span><span class="p">,</span> <span class="n">dti</span><span class="p">)</span>
-<a name="ln-388"></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">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-389"></a>                                 <span class="n">tpenci</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-390"></a>                              <span class="k">end do</span>
-<a name="ln-391"></a><span class="k">                              </span><span class="n">inner_time</span> <span class="o">=</span> <span class="n">outer_time</span> <span class="o">+</span> <span class="n">j</span> <span class="o">*</span> <span class="n">dti</span>
-<a name="ln-392"></a>                              <span class="k">call </span><span class="n">rmvs_peri_tp</span><span class="p">(</span><span class="n">tpenci</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">inner_time</span><span class="p">,</span> <span class="n">dti</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.,</span> <span class="n">inner_index</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-393"></a>                           <span class="k">end do</span>
-<a name="ln-394"></a><span class="k">                           </span><span class="n">tpenci</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-395"></a>                        <span class="k">end associate</span>
-<a name="ln-396"></a><span class="k">                     end select</span>
-<a name="ln-397"></a><span class="k">                  end select</span>
-<a name="ln-398"></a><span class="k">               end select</span>
-<a name="ln-399"></a><span class="k">            end select</span>
-<a name="ln-400"></a><span class="k">         end do</span>
-<a name="ln-401"></a><span class="k">         call </span><span class="n">rmvs_end_planetocentric</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-402"></a>      <span class="k">end associate</span>
-<a name="ln-403"></a><span class="k">      return</span>
-<a name="ln-404"></a><span class="k">   end subroutine </span><span class="n">rmvs_step_in</span>
-<a name="ln-405"></a>
-<a name="ln-406"></a>
-<a name="ln-407"></a>   <span class="k">subroutine </span><span class="n">rmvs_make_planetocentric</span><span class="p">(</span><span class="n">param</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-408"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-409"></a>      <span class="c">!!</span>
-<a name="ln-410"></a>      <span class="c">!! When encounters are detected, this method will call the interpolation methods for the planets and </span>
-<a name="ln-411"></a>      <span class="c">!! creates a Swiftest test particle structure for each planet&#39;s encountering test particles to simplify the </span>
-<a name="ln-412"></a>      <span class="c">!! planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter</span>
+<a name="ln-386"></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-387"></a><span class="k">                                 </span><span class="n">cbenci</span><span class="p">%</span><span class="n">atidebeg</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-388"></a>                                 <span class="n">cbenci</span><span class="p">%</span><span class="n">atideend</span> <span class="o">=</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span>    <span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-389"></a>                              <span class="k">end if</span>
+<a name="ln-390"></a>
+<a name="ln-391"></a><span class="k">                              call </span><span class="n">tpenci</span><span class="p">%</span><span class="n">step</span><span class="p">(</span><span class="n">planetocen_system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">inner_time</span><span class="p">,</span> <span class="n">dti</span><span class="p">)</span>
+<a name="ln-392"></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">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-393"></a>                                 <span class="n">tpenci</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-394"></a>                              <span class="k">end do</span>
+<a name="ln-395"></a><span class="k">                              </span><span class="n">inner_time</span> <span class="o">=</span> <span class="n">outer_time</span> <span class="o">+</span> <span class="n">j</span> <span class="o">*</span> <span class="n">dti</span>
+<a name="ln-396"></a>                              <span class="k">call </span><span class="n">rmvs_peri_tp</span><span class="p">(</span><span class="n">tpenci</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">inner_time</span><span class="p">,</span> <span class="n">dti</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.,</span> <span class="n">inner_index</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-397"></a>                           <span class="k">end do</span>
+<a name="ln-398"></a><span class="k">                           </span><span class="n">tpenci</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-399"></a>                        <span class="k">end associate</span>
+<a name="ln-400"></a><span class="k">                     end select</span>
+<a name="ln-401"></a><span class="k">                  end select</span>
+<a name="ln-402"></a><span class="k">               end select</span>
+<a name="ln-403"></a><span class="k">            end select</span>
+<a name="ln-404"></a><span class="k">         end do</span>
+<a name="ln-405"></a><span class="k">         call </span><span class="n">rmvs_end_planetocentric</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-406"></a>      <span class="k">end associate</span>
+<a name="ln-407"></a><span class="k">      return</span>
+<a name="ln-408"></a><span class="k">   end subroutine </span><span class="n">rmvs_step_in</span>
+<a name="ln-409"></a>
+<a name="ln-410"></a>
+<a name="ln-411"></a>   <span class="k">subroutine </span><span class="n">rmvs_make_planetocentric</span><span class="p">(</span><span class="n">param</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-412"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-413"></a>      <span class="c">!!</span>
-<a name="ln-414"></a>      <span class="k">implicit none</span>
-<a name="ln-415"></a>      <span class="c">! Arguments</span>
-<a name="ln-416"></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 paramete</span>
-<a name="ln-417"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS central body object</span>
-<a name="ln-418"></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">pl</span>     <span class="c">!! RMVS massive body object</span>
-<a name="ln-419"></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">tp</span>     <span class="c">!! RMVS test particle object</span>
-<a name="ln-420"></a>
-<a name="ln-421"></a>      <span class="c">! Internals</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><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">inner_index</span><span class="p">,</span> <span class="n">ipc2hc</span>
-<a name="ln-423"></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">encmask</span>
+<a name="ln-414"></a>      <span class="c">!! When encounters are detected, this method will call the interpolation methods for the planets and </span>
+<a name="ln-415"></a>      <span class="c">!! creates a Swiftest test particle structure for each planet&#39;s encountering test particles to simplify the </span>
+<a name="ln-416"></a>      <span class="c">!! planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter</span>
+<a name="ln-417"></a>      <span class="c">!!</span>
+<a name="ln-418"></a>      <span class="k">implicit none</span>
+<a name="ln-419"></a>      <span class="c">! Arguments</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 paramete</span>
+<a name="ln-421"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_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">!! RMVS central body object</span>
+<a name="ln-422"></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">pl</span>     <span class="c">!! RMVS massive body object</span>
+<a name="ln-423"></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">tp</span>     <span class="c">!! RMVS test particle object</span>
 <a name="ln-424"></a>
-<a name="ln-425"></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-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">npl</span>
-<a name="ln-427"></a>            <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span> 
-<a name="ln-428"></a>            <span class="c">! There are inner encounters with this planet</span>
-<a name="ln-429"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">encmask</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">)</span>
-<a name="ln-430"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-431"></a>            <span class="n">encmask</span><span class="p">(:)</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="o">==</span> <span class="n">i</span>
-<a name="ln-432"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rmvs_tp</span> <span class="kd">::</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
-<a name="ln-433"></a>            <span class="c">! Create encountering test particle structure</span>
-<a name="ln-434"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-435"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
-<a name="ln-436"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-437"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-438"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">tpenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
-<a name="ln-439"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-440"></a>                     <span class="n">tpenci</span><span class="p">%</span><span class="n">lplanetocentric</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-441"></a>                     <span class="k">call </span><span class="n">tpenci</span><span class="p">%</span><span class="n">setup</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">i</span><span class="p">),</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-442"></a>                     <span class="n">tpenci</span><span class="p">%</span><span class="n">cb_heliocentric</span> <span class="o">=</span> <span class="n">cb</span>
-<a name="ln-443"></a>                     <span class="n">tpenci</span><span class="p">%</span><span class="n">ipleP</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-444"></a>                     <span class="n">tpenci</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-445"></a>                     <span class="n">tpenci</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-446"></a>                     <span class="c">! Grab all the encountering test particles and convert them to a planetocentric frame</span>
-<a name="ln-447"></a>                     <span class="n">tpenci</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">encmask</span><span class="p">(:))</span> 
-<a name="ln-448"></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">NDIM</span> 
-<a name="ln-449"></a>                        <span class="n">tpenci</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="nb">pack</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">j</span><span class="p">,:),</span> <span class="n">encmask</span><span class="p">(:))</span> 
-<a name="ln-450"></a>                        <span class="n">tpenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="p">:)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-451"></a>                        <span class="n">tpenci</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,:),</span> <span class="n">encmask</span><span class="p">(:))</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">v</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-452"></a>                     <span class="k">end do</span>
-<a name="ln-453"></a><span class="k">                     </span><span class="n">tpenci</span><span class="p">%</span><span class="n">lperi</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">encmask</span><span class="p">(:))</span> 
-<a name="ln-454"></a>                     <span class="n">tpenci</span><span class="p">%</span><span class="n">plperP</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">encmask</span><span class="p">(:))</span> 
-<a name="ln-455"></a>                     <span class="c">! Make sure that the test particles get the planetocentric value of mu </span>
-<a name="ln-456"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">NTPHENC</span><span class="p">))</span>
-<a name="ln-457"></a>                     <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span> 
-<a name="ln-458"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span>
-<a name="ln-459"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span>
-<a name="ln-460"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="mi">1</span><span class="p">))</span>
-<a name="ln-461"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="mi">1</span><span class="p">))</span>
-<a name="ln-462"></a>                        <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</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">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
-<a name="ln-463"></a>                        <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
-<a name="ln-464"></a>                        <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</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="o">-</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-465"></a>                        <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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="o">-</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-466"></a>
-<a name="ln-467"></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-468"></a><span class="k">                           allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">)</span>
-<a name="ln-469"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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="mi">1</span><span class="p">))</span>
-<a name="ln-470"></a>                           <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</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">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
-<a name="ln-471"></a>                        <span class="k">end if</span>
-<a name="ln-472"></a>
-<a name="ln-473"></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-474"></a><span class="k">                           allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">)</span>
-<a name="ln-475"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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="mi">1</span><span class="p">))</span>
-<a name="ln-476"></a>                           <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</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">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
-<a name="ln-477"></a>                        <span class="k">end if</span>
-<a name="ln-478"></a>
-<a name="ln-479"></a><span class="k">                        do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-480"></a>                           <span class="n">ipc2hc</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-481"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="n">ipc2hc</span><span class="p">)</span> <span class="o">-</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-482"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="n">ipc2hc</span><span class="p">)</span> <span class="o">-</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-483"></a>                        <span class="k">end do</span>
-<a name="ln-484"></a><span class="k">                     end do</span>
-<a name="ln-485"></a><span class="k">                     call </span><span class="n">tpenci</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">cbenci</span><span class="p">)</span>
-<a name="ln-486"></a>                  <span class="k">end select</span>
-<a name="ln-487"></a><span class="k">               end select</span>
-<a name="ln-488"></a><span class="k">            end select</span>
-<a name="ln-489"></a><span class="k">         end do</span>
-<a name="ln-490"></a><span class="k">      end associate</span>
-<a name="ln-491"></a>
-<a name="ln-492"></a><span class="k">      return</span>
-<a name="ln-493"></a><span class="k">   end subroutine </span><span class="n">rmvs_make_planetocentric</span>
-<a name="ln-494"></a>
-<a name="ln-495"></a>
-<a name="ln-496"></a>   <span class="k">subroutine </span><span class="n">rmvs_peri_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">pl</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">lfirst</span><span class="p">,</span> <span class="n">inner_index</span><span class="p">,</span> <span class="n">ipleP</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-497"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-498"></a>      <span class="c">!!</span>
-<a name="ln-499"></a>      <span class="c">!! Determine planetocentric pericenter passages for test particles in close encounters with a planet</span>
-<a name="ln-500"></a>      <span class="c">!! </span>
-<a name="ln-501"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine Adapted from Hal Levison&#39;s Swift routine util_peri.f</span>
-<a name="ln-502"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_peri.f90</span>
-<a name="ln-503"></a>      <span class="k">implicit none</span>
-<a name="ln-504"></a>      <span class="c">! Arguments</span>
-<a name="ln-505"></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">tp</span>        <span class="c">!! RMVS test particle object (planetocentric) </span>
-<a name="ln-506"></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">pl</span>        <span class="c">!! RMVS massive body object (heliocentric)</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">t</span>         <span class="c">!! current time</span>
-<a name="ln-508"></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-509"></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">lfirst</span>    <span class="c">!! Logical flag indicating whether current invocation is the first</span>
-<a name="ln-510"></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">inner_index</span> <span class="c">!! Outer substep number within current set</span>
-<a name="ln-511"></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">ipleP</span>     <span class="c">!!  index of RMVS planet being closely encountered</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="c">! Internals</span>
-<a name="ln-514"></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">id1</span><span class="p">,</span> <span class="n">id2</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="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">rhill2</span><span class="p">,</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">peri</span><span class="p">,</span> <span class="n">capm</span><span class="p">,</span> <span class="n">tperi</span><span class="p">,</span> <span class="n">rpl</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="n">NDIM</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-517"></a>
-<a name="ln-518"></a>      <span class="n">rhill2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">ipleP</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-519"></a>      <span class="n">mu</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">ipleP</span><span class="p">)</span>
-<a name="ln-520"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nenc</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">xpc</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">vpc</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
-<a name="ln-521"></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-522"></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">nenc</span>
-<a name="ln-523"></a>               <span class="k">if</span> <span class="p">(</span><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="k">then</span>
-<a name="ln-524"></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">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-525"></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-526"></a><span class="k">                     </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">1</span>
-<a name="ln-527"></a>                  <span class="k">else</span>
-<a name="ln-528"></a><span class="k">                     </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="o">-</span><span class="mi">1</span>
-<a name="ln-529"></a>                  <span class="k">end if</span>
-<a name="ln-530"></a><span class="k">               end if</span>
-<a name="ln-531"></a><span class="k">            end do</span>
-<a name="ln-532"></a><span class="k">         else</span>
-<a name="ln-533"></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">nenc</span>
-<a name="ln-534"></a>               <span class="k">if</span> <span class="p">(</span><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="k">then</span>
-<a name="ln-535"></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">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-536"></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="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-537"></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-538"></a><span class="k">                        </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>
-<a name="ln-539"></a>                        <span class="k">call </span><span class="n">orbel_xv2aqt</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">a</span><span class="p">,</span> <span class="n">peri</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-540"></a>                        <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-541"></a>                        <span class="k">if</span> <span class="p">((</span><span class="nb">abs</span><span class="p">(</span><span class="n">tperi</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">FACQDT</span> <span class="o">*</span> <span class="n">dt</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">r2</span> <span class="o">&gt;</span> <span class="n">rhill2</span><span class="p">))</span> <span class="n">peri</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-542"></a>                        <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-543"></a><span class="k">                           </span><span class="n">id1</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">ipleP</span><span class="p">)</span>
-<a name="ln-544"></a>                           <span class="n">rpl</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">ipleP</span><span class="p">)</span>
-<a name="ln-545"></a>                           <span class="n">xh1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="n">ipleP</span><span class="p">)</span>
-<a name="ln-546"></a>                           <span class="n">vh1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="n">ipleP</span><span class="p">)</span>
-<a name="ln-547"></a>                           <span class="n">id2</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-548"></a>                           <span class="n">xh2</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">xh1</span><span class="p">(:)</span>
-<a name="ln-549"></a>                           <span class="n">vh2</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">vh1</span><span class="p">(:)</span>
-<a name="ln-550"></a>                           <span class="k">call </span><span class="n">io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="n">rpl</span><span class="p">,</span> <span class="mf">0.0_DP</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">vh1</span><span class="p">(:),</span> <span class="n">vh2</span><span class="p">(:),</span>  <span class="p">&amp;</span>
-<a name="ln-551"></a>                              <span class="n">param</span><span class="p">%</span><span class="n">enc_out</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-552"></a>                        <span class="k">end if</span>
-<a name="ln-553"></a><span class="k">                        if</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">i</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-554"></a><span class="k">                           if</span> <span class="p">(</span><span class="n">peri</span> <span class="o">&lt;</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="k">then</span>
-<a name="ln-555"></a><span class="k">                              </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">=</span> <span class="n">peri</span>
-<a name="ln-556"></a>                              <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ipleP</span>
-<a name="ln-557"></a>                           <span class="k">end if</span>
-<a name="ln-558"></a><span class="k">                        else</span>
-<a name="ln-559"></a><span class="k">                           </span><span class="n">tp</span><span class="p">%</span><span class="n">lperi</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-560"></a>                           <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">=</span> <span class="n">peri</span>
-<a name="ln-561"></a>                           <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ipleP</span>
-<a name="ln-562"></a>                        <span class="k">end if</span>
-<a name="ln-563"></a><span class="k">                     end if</span>
-<a name="ln-564"></a><span class="k">                  else</span>
-<a name="ln-565"></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-566"></a><span class="k">                        </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">1</span>
-<a name="ln-567"></a>                     <span class="k">else</span>
-<a name="ln-568"></a><span class="k">                        </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="o">-</span><span class="mi">1</span>
-<a name="ln-569"></a>                     <span class="k">end if</span>
-<a name="ln-570"></a><span class="k">                  end if</span>
-<a name="ln-571"></a><span class="k">               end if</span>
-<a name="ln-572"></a><span class="k">            end do                   </span>
-<a name="ln-573"></a><span class="k">         end if</span>
-<a name="ln-574"></a><span class="k">         end associate</span>
-<a name="ln-575"></a><span class="k">      return</span>
-<a name="ln-576"></a>
-<a name="ln-577"></a><span class="k">   end subroutine </span><span class="n">rmvs_peri_tp</span>
-<a name="ln-578"></a>
-<a name="ln-579"></a>
-<a name="ln-580"></a>   <span class="k">subroutine </span><span class="n">rmvs_end_planetocentric</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-581"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-582"></a>      <span class="c">!!</span>
-<a name="ln-583"></a>      <span class="c">!! Deallocates all of the encountering particle data structures for next time</span>
-<a name="ln-584"></a>      <span class="c">!!</span>
-<a name="ln-585"></a>      <span class="k">implicit none</span>
-<a name="ln-586"></a>      <span class="c">! Arguments</span>
-<a name="ln-587"></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">pl</span>     <span class="c">!! RMVS massive body object</span>
-<a name="ln-588"></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">tp</span>     <span class="c">!! RMVS test particle objec</span>
-<a name="ln-589"></a>      <span class="c">! Internals</span>
-<a name="ln-590"></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">inner_index</span>
-<a name="ln-591"></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">tpind</span>
-<a name="ln-592"></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">encmask</span>
-<a name="ln-593"></a>
-<a name="ln-594"></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-595"></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-596"></a>            <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-597"></a><span class="k">            select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-598"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
-<a name="ln-599"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-600"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-601"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">tpenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
-<a name="ln-602"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-603"></a>                     <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tpind</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">tpind</span><span class="p">)</span>
-<a name="ln-604"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">tpind</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">i</span><span class="p">)))</span>
-<a name="ln-605"></a>                     <span class="c">! Index array of encountering test particles</span>
-<a name="ln-606"></a>                     <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">encmask</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">)</span>
-<a name="ln-607"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-608"></a>                     <span class="n">encmask</span><span class="p">(:)</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="o">==</span> <span class="n">i</span>
-<a name="ln-609"></a>                     <span class="n">tpind</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">([(</span><span class="n">j</span><span class="p">,</span><span class="n">j</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">encmask</span><span class="p">(:))</span>
-<a name="ln-610"></a>            
-<a name="ln-611"></a>                     <span class="c">! Copy the results of the integration back over and shift back to heliocentric reference</span>
-<a name="ln-612"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">)))</span> <span class="o">=</span> <span class="n">tpenci</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">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> 
-<a name="ln-613"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">)))</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">))</span> 
-<a name="ln-614"></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">NDIM</span>
-<a name="ln-615"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">tpind</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">)))</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="mi">1</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">i</span><span class="p">))</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-616"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">tpind</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">)))</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="mi">1</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">i</span><span class="p">))</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">v</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-617"></a>                     <span class="k">end do</span>
-<a name="ln-618"></a><span class="k">                     </span><span class="n">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">)))</span> <span class="o">=</span> <span class="n">tpenci</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">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-619"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</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">i</span><span class="p">)))</span> <span class="o">=</span> <span class="n">tpenci</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">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-620"></a>                     <span class="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
-<a name="ln-621"></a>                     <span class="k">deallocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">)</span>
-<a name="ln-622"></a>                     <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span> 
-<a name="ln-623"></a>                        <span class="k">deallocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span> 
-<a name="ln-624"></a>                        <span class="k">deallocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">)</span> 
-<a name="ln-625"></a>                        <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">)</span>
-<a name="ln-626"></a>                        <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">)</span>
-<a name="ln-627"></a>                     <span class="k">end do</span>
-<a name="ln-628"></a><span class="k">                  end select</span>
-<a name="ln-629"></a><span class="k">               end select</span>
-<a name="ln-630"></a><span class="k">            end select</span>
-<a name="ln-631"></a><span class="k">         end do</span>
-<a name="ln-632"></a><span class="k">      end associate</span>
-<a name="ln-633"></a><span class="k">      return</span>
-<a name="ln-634"></a><span class="k">   end subroutine </span><span class="n">rmvs_end_planetocentric</span>
-<a name="ln-635"></a>   
-<a name="ln-636"></a><span class="k">end submodule </span><span class="n">s_rmvs_step</span>
+<a name="ln-425"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">inner_index</span><span class="p">,</span> <span class="n">ipc2hc</span>
+<a name="ln-427"></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">encmask</span>
+<a name="ln-428"></a>
+<a name="ln-429"></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-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">npl</span>
+<a name="ln-431"></a>            <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span> 
+<a name="ln-432"></a>            <span class="c">! There are inner encounters with this planet</span>
+<a name="ln-433"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">encmask</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">)</span>
+<a name="ln-434"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-435"></a>            <span class="n">encmask</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</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">i</span>
+<a name="ln-436"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rmvs_tp</span> <span class="kd">::</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-437"></a>            <span class="c">! Create encountering test particle structure</span>
+<a name="ln-438"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-439"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
+<a name="ln-440"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-441"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-442"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">tpenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-443"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-444"></a>                     <span class="n">tpenci</span><span class="p">%</span><span class="n">lplanetocentric</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">associate</span><span class="p">(</span><span class="n">nenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-446"></a>                        <span class="k">call </span><span class="n">tpenci</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nenci</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-447"></a>                        <span class="n">tpenci</span><span class="p">%</span><span class="n">cb_heliocentric</span> <span class="o">=</span> <span class="n">cb</span>
+<a name="ln-448"></a>                        <span class="n">tpenci</span><span class="p">%</span><span class="n">ipleP</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-449"></a>                        <span class="n">tpenci</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</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-450"></a>                        <span class="n">tpenci</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">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-451"></a>                        <span class="c">! Grab all the encountering test particles and convert them to a planetocentric frame</span>
+<a name="ln-452"></a>                        <span class="n">tpenci</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">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</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="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">encmask</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-453"></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">NDIM</span> 
+<a name="ln-454"></a>                           <span class="n">tpenci</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</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">j</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">encmask</span><span class="p">(:))</span> 
+<a name="ln-455"></a>                           <span class="n">tpenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">x</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-456"></a>                           <span class="n">tpenci</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</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">encmask</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">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="n">v</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-457"></a>                        <span class="k">end do</span>
+<a name="ln-458"></a><span class="k">                        </span><span class="n">tpenci</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">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</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="n">encmask</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-459"></a>                        <span class="n">tpenci</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">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</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="n">encmask</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-460"></a>                        <span class="c">! Make sure that the test particles get the planetocentric value of mu </span>
+<a name="ln-461"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">NTPHENC</span><span class="p">))</span>
+<a name="ln-462"></a>                        <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span> 
+<a name="ln-463"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span>
+<a name="ln-464"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span>
+<a name="ln-465"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-466"></a>                           <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-467"></a>                           <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</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">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
+<a name="ln-468"></a>                           <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
+<a name="ln-469"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</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="o">-</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-470"></a>                           <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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="o">-</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-471"></a>   
+<a name="ln-472"></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-473"></a><span class="k">                              allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">)</span>
+<a name="ln-474"></a>                              <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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="mi">1</span><span class="p">))</span>
+<a name="ln-475"></a>                              <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</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">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
+<a name="ln-476"></a>                           <span class="k">end if</span>
+<a name="ln-477"></a><span class="k">   </span>
+<a name="ln-478"></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-479"></a><span class="k">                              allocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">)</span>
+<a name="ln-480"></a>                              <span class="k">allocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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="mi">1</span><span class="p">))</span>
+<a name="ln-481"></a>                              <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</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">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
+<a name="ln-482"></a>                           <span class="k">end if</span>
+<a name="ln-483"></a><span class="k">   </span>
+<a name="ln-484"></a><span class="k">                           do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-485"></a>                              <span class="n">ipc2hc</span> <span class="o">=</span> <span class="n">plenci</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-486"></a>                              <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="n">ipc2hc</span><span class="p">)</span> <span class="o">-</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-487"></a>                              <span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="n">ipc2hc</span><span class="p">)</span> <span class="o">-</span> <span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-488"></a>                           <span class="k">end do</span>
+<a name="ln-489"></a><span class="k">                        end do</span>
+<a name="ln-490"></a><span class="k">                        call </span><span class="n">tpenci</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">cbenci</span><span class="p">)</span>
+<a name="ln-491"></a>                     <span class="k">end associate</span>
+<a name="ln-492"></a><span class="k">                  end select</span>
+<a name="ln-493"></a><span class="k">               end select</span>
+<a name="ln-494"></a><span class="k">            end select</span>
+<a name="ln-495"></a><span class="k">         end do</span>
+<a name="ln-496"></a><span class="k">      end associate</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">rmvs_make_planetocentric</span>
+<a name="ln-500"></a>
+<a name="ln-501"></a>
+<a name="ln-502"></a>   <span class="k">subroutine </span><span class="n">rmvs_peri_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">pl</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">lfirst</span><span class="p">,</span> <span class="n">inner_index</span><span class="p">,</span> <span class="n">ipleP</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-503"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-504"></a>      <span class="c">!!</span>
+<a name="ln-505"></a>      <span class="c">!! Determine planetocentric pericenter passages for test particles in close encounters with a planet</span>
+<a name="ln-506"></a>      <span class="c">!! </span>
+<a name="ln-507"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine Adapted from Hal Levison&#39;s Swift routine util_peri.f</span>
+<a name="ln-508"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine rmvs_peri.f90</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="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">tp</span>        <span class="c">!! RMVS test particle object (planetocentric) </span>
+<a name="ln-512"></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">pl</span>        <span class="c">!! RMVS massive body object (heliocentric)</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">t</span>         <span class="c">!! current time</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">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-515"></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">lfirst</span>    <span class="c">!! Logical flag indicating whether current invocation is the first</span>
+<a name="ln-516"></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">inner_index</span> <span class="c">!! Outer substep number within current set</span>
+<a name="ln-517"></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">ipleP</span>     <span class="c">!!  index of RMVS planet being closely encountered</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="c">! Internals</span>
+<a name="ln-520"></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">id1</span><span class="p">,</span> <span class="n">id2</span>
+<a name="ln-521"></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">mu</span><span class="p">,</span> <span class="n">rhill2</span><span class="p">,</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">peri</span><span class="p">,</span> <span class="n">capm</span><span class="p">,</span> <span class="n">tperi</span><span class="p">,</span> <span class="n">rpl</span>
+<a name="ln-522"></a>      <span class="kt">real</span><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">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-523"></a>
+<a name="ln-524"></a>      <span class="n">rhill2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">ipleP</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-525"></a>      <span class="n">mu</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">ipleP</span><span class="p">)</span>
+<a name="ln-526"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nenc</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">xpc</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">vpc</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-527"></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-528"></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">nenc</span>
+<a name="ln-529"></a>               <span class="k">if</span> <span class="p">(</span><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="k">then</span>
+<a name="ln-530"></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">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-531"></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-532"></a><span class="k">                     </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">1</span>
+<a name="ln-533"></a>                  <span class="k">else</span>
+<a name="ln-534"></a><span class="k">                     </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="o">-</span><span class="mi">1</span>
+<a name="ln-535"></a>                  <span class="k">end if</span>
+<a name="ln-536"></a><span class="k">               end if</span>
+<a name="ln-537"></a><span class="k">            end do</span>
+<a name="ln-538"></a><span class="k">         else</span>
+<a name="ln-539"></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">nenc</span>
+<a name="ln-540"></a>               <span class="k">if</span> <span class="p">(</span><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="k">then</span>
+<a name="ln-541"></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">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-542"></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="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-543"></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-544"></a><span class="k">                        </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>
+<a name="ln-545"></a>                        <span class="k">call </span><span class="n">orbel_xv2aqt</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">a</span><span class="p">,</span> <span class="n">peri</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-546"></a>                        <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-547"></a>                        <span class="k">if</span> <span class="p">((</span><span class="nb">abs</span><span class="p">(</span><span class="n">tperi</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">FACQDT</span> <span class="o">*</span> <span class="n">dt</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">r2</span> <span class="o">&gt;</span> <span class="n">rhill2</span><span class="p">))</span> <span class="n">peri</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-548"></a>                        <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-549"></a><span class="k">                           </span><span class="n">id1</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">ipleP</span><span class="p">)</span>
+<a name="ln-550"></a>                           <span class="n">rpl</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">ipleP</span><span class="p">)</span>
+<a name="ln-551"></a>                           <span class="n">xh1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">(:,</span> <span class="n">ipleP</span><span class="p">)</span>
+<a name="ln-552"></a>                           <span class="n">vh1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">(:,</span> <span class="n">ipleP</span><span class="p">)</span>
+<a name="ln-553"></a>                           <span class="n">id2</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-554"></a>                           <span class="n">xh2</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">xh1</span><span class="p">(:)</span>
+<a name="ln-555"></a>                           <span class="n">vh2</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xpc</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">vh1</span><span class="p">(:)</span>
+<a name="ln-556"></a>                           <span class="k">call </span><span class="n">rmvs_io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="n">rpl</span><span class="p">,</span> <span class="mf">0.0_DP</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">vh1</span><span class="p">(:),</span> <span class="n">vh2</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-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">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-559"></a><span class="k">                           if</span> <span class="p">(</span><span class="n">peri</span> <span class="o">&lt;</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="k">then</span>
+<a name="ln-560"></a><span class="k">                              </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">=</span> <span class="n">peri</span>
+<a name="ln-561"></a>                              <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ipleP</span>
+<a name="ln-562"></a>                           <span class="k">end if</span>
+<a name="ln-563"></a><span class="k">                        else</span>
+<a name="ln-564"></a><span class="k">                           </span><span class="n">tp</span><span class="p">%</span><span class="n">lperi</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-565"></a>                           <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">=</span> <span class="n">peri</span>
+<a name="ln-566"></a>                           <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ipleP</span>
+<a name="ln-567"></a>                        <span class="k">end if</span>
+<a name="ln-568"></a><span class="k">                     end if</span>
+<a name="ln-569"></a><span class="k">                  else</span>
+<a name="ln-570"></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-571"></a><span class="k">                        </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">1</span>
+<a name="ln-572"></a>                     <span class="k">else</span>
+<a name="ln-573"></a><span class="k">                        </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="o">-</span><span class="mi">1</span>
+<a name="ln-574"></a>                     <span class="k">end if</span>
+<a name="ln-575"></a><span class="k">                  end if</span>
+<a name="ln-576"></a><span class="k">               end if</span>
+<a name="ln-577"></a><span class="k">            end do                   </span>
+<a name="ln-578"></a><span class="k">         end if</span>
+<a name="ln-579"></a><span class="k">         end associate</span>
+<a name="ln-580"></a><span class="k">      return</span>
+<a name="ln-581"></a>
+<a name="ln-582"></a><span class="k">   end subroutine </span><span class="n">rmvs_peri_tp</span>
+<a name="ln-583"></a>
+<a name="ln-584"></a>
+<a name="ln-585"></a>   <span class="k">subroutine </span><span class="n">rmvs_end_planetocentric</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-586"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-587"></a>      <span class="c">!!</span>
+<a name="ln-588"></a>      <span class="c">!! Deallocates all of the encountering particle data structures for next time</span>
+<a name="ln-589"></a>      <span class="c">!!</span>
+<a name="ln-590"></a>      <span class="k">implicit none</span>
+<a name="ln-591"></a>      <span class="c">! Arguments</span>
+<a name="ln-592"></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">pl</span>     <span class="c">!! RMVS massive body object</span>
+<a name="ln-593"></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">tp</span>     <span class="c">!! RMVS test particle objec</span>
+<a name="ln-594"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">inner_index</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tpind</span>
+<a name="ln-597"></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">encmask</span>
+<a name="ln-598"></a>
+<a name="ln-599"></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-600"></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-601"></a>            <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-602"></a><span class="k">            select type</span><span class="p">(</span><span class="n">cbenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-603"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_cb</span><span class="p">)</span>
+<a name="ln-604"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">plenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-605"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-606"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">tpenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-607"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-608"></a>                     <span class="k">associate</span><span class="p">(</span><span class="n">nenci</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-609"></a>                        <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tpind</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">tpind</span><span class="p">)</span>
+<a name="ln-610"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="n">nenci</span><span class="p">))</span>
+<a name="ln-611"></a>                        <span class="c">! Index array of encountering test particles</span>
+<a name="ln-612"></a>                        <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">encmask</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">)</span>
+<a name="ln-613"></a>                        <span class="k">allocate</span><span class="p">(</span><span class="n">encmask</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-614"></a>                        <span class="n">encmask</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</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">i</span>
+<a name="ln-615"></a>                        <span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">([(</span><span class="n">j</span><span class="p">,</span><span class="n">j</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">encmask</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>               
+<a name="ln-617"></a>                        <span class="c">! Copy the results of the integration back over and shift back to heliocentric reference</span>
+<a name="ln-618"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">))</span> <span class="o">=</span> <span class="n">tpenci</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">nenci</span><span class="p">)</span> 
+<a name="ln-619"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">))</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> 
+<a name="ln-620"></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">NDIM</span>
+<a name="ln-621"></a>                           <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">))</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">x</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-622"></a>                           <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">))</span> <span class="o">=</span> <span class="n">tpenci</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">NTPHENC</span><span class="p">)%</span><span class="n">v</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-623"></a>                        <span class="k">end do</span>
+<a name="ln-624"></a><span class="k">                        </span><span class="n">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">))</span> <span class="o">=</span> <span class="n">tpenci</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">nenci</span><span class="p">)</span>
+<a name="ln-625"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">tpind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenci</span><span class="p">))</span> <span class="o">=</span> <span class="n">tpenci</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">nenci</span><span class="p">)</span>
+<a name="ln-626"></a>                        <span class="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">planetocentric</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-627"></a>                        <span class="k">deallocate</span><span class="p">(</span><span class="n">cbenci</span><span class="p">%</span><span class="n">inner</span><span class="p">)</span>
+<a name="ln-628"></a>                        <span class="k">do </span><span class="n">inner_index</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="n">NTPHENC</span> 
+<a name="ln-629"></a>                           <span class="k">deallocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">x</span><span class="p">)</span> 
+<a name="ln-630"></a>                           <span class="k">deallocate</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">v</span><span class="p">)</span> 
+<a name="ln-631"></a>                           <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">aobl</span><span class="p">)</span>
+<a name="ln-632"></a>                           <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</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">plenci</span><span class="p">%</span><span class="n">inner</span><span class="p">(</span><span class="n">inner_index</span><span class="p">)%</span><span class="n">atide</span><span class="p">)</span>
+<a name="ln-633"></a>                        <span class="k">end do</span>
+<a name="ln-634"></a><span class="k">                     end associate</span>
+<a name="ln-635"></a><span class="k">                  end select</span>
+<a name="ln-636"></a><span class="k">               end select</span>
+<a name="ln-637"></a><span class="k">            end select</span>
+<a name="ln-638"></a><span class="k">         end do</span>
+<a name="ln-639"></a><span class="k">      end associate</span>
+<a name="ln-640"></a><span class="k">      return</span>
+<a name="ln-641"></a><span class="k">   end subroutine </span><span class="n">rmvs_end_planetocentric</span>
+<a name="ln-642"></a>   
+<a name="ln-643"></a><span class="k">end submodule </span><span class="n">s_rmvs_step</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/rmvs_util.f90.html b/docs/sourcefile/rmvs_util.f90.html
index 500850c97..78ecff095 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.8% of total for source files.">236 statements</a>
+    title=" 1.4% of total for source files.">233 statements</a>
      </li> 
      
      
@@ -226,246 +226,296 @@ <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="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)">
+<svg id="sourcefilermvs_utilf90EfferentGraph" width="641pt" height="236pt"
+ viewBox="0.00 0.00 641.00 235.97" 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.71 0.71) rotate(0) translate(4 327.68)">
 <title>sourcefile~~rmvs_util.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 890,-252.84 890,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-327.68 897,-327.68 897,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,-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>
+<polygon fill="none" stroke="black" points="893,-235.19 820,-235.19 820,-211.19 893,-211.19 893,-235.19"/>
+<text text-anchor="middle" x="856.5" y="-220.79" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.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="537,-255.19 442,-255.19 442,-231.19 537,-231.19 537,-255.19"/>
+<text text-anchor="middle" x="489.5" y="-240.79" 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~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.84,-225.15C756.45,-228.62 623.68,-235.9 547.49,-240.07"/>
+<polygon fill="#000000" stroke="#000000" points="546.92,-236.6 537.13,-240.64 547.31,-243.59 546.92,-236.6"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node3" class="node">
 <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>
+<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="784,-215.19 718,-215.19 718,-191.19 784,-191.19 784,-215.19"/>
+<text text-anchor="middle" x="751" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- 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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.88,-216.31C811.56,-214.7 802.62,-212.98 794.05,-211.32"/>
+<polygon fill="#000000" stroke="#000000" points="794.7,-207.88 784.21,-209.42 793.37,-214.75 794.7,-207.88"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node3" class="node">
-<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>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-215.19 300,-215.19 300,-191.19 394,-191.19 394,-215.19"/>
+<text text-anchor="middle" x="347" y="-200.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge3" 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.35,-231.19C431.89,-227.08 415.54,-222.42 400.37,-218.1"/>
+<polygon fill="#000000" stroke="#000000" points="401.19,-214.7 390.61,-215.33 399.27,-221.43 401.19,-214.7"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-107.19 0,-107.19 0,-83.19 106,-83.19 106,-107.19"/>
+<text text-anchor="middle" x="53" y="-92.79" 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~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_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="M346,-243.19C280.38,-238.61 258.6,-268.78 198,-243.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.93,-244.82C414.55,-245.37 379.27,-245.38 348,-243.19"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge5" class="edge">
+<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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C592.57,-206.66 555.55,-217.87 528.71,-227.64"/>
+<polygon fill="#000000" stroke="#000000" points="527.45,-224.38 519.31,-231.16 529.9,-230.93 527.45,-224.38"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-130.19 143.5,-130.19 143.5,-106.19 250.5,-106.19 250.5,-130.19"/>
+<text text-anchor="middle" x="197" y="-115.79" 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_operators.f90 -->
-<g id="sourcefile~~rmvs_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,-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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-123.19C318.09,-122.66 287.23,-121.68 260.94,-120.73"/>
+<polygon fill="#000000" stroke="#000000" points="260.86,-117.23 250.73,-120.35 260.6,-124.22 260.86,-117.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C517.82,-23.59 472.9,-125.57 348,-123.19"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C549.78,-209.76 460.85,-208.02 404.52,-205.91"/>
+<polygon fill="#000000" stroke="#000000" points="404.52,-202.41 394.4,-205.51 404.25,-209.4 404.52,-202.41"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-28.19 142,-28.19 142,-4.19 252,-4.19 252,-28.19"/>
+<text text-anchor="middle" x="197" y="-13.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C411.63,5.23 321.33,-0.39 262.05,-7.06"/>
+<polygon fill="#000000" stroke="#000000" points="261.61,-3.58 252.08,-8.22 262.42,-10.54 261.61,-3.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-85.19C566.15,-51.25 558.44,-22.55 490.5,-9.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M741.1,-191.08C722.81,-167.05 678.48,-113.3 628.5,-85.19"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.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="M626.5,-204.19C578.75,-207.83 579.27,-241.69 537,-264.19 517.29,-274.69 512.42,-278.97 490.5,-283.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C424.75,-295.47 412.77,-247.72 348,-243.19"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node8" 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>
+<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="682,-315.19 573,-315.19 573,-291.19 682,-291.19 682,-315.19"/>
+<text text-anchor="middle" x="627.5" y="-300.79" 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~~rmvs_util.f90~~EfferentGraph_edge6" class="edge">
+<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,-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_node7" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.1,-215.46C714.04,-232.79 675.39,-264.6 650.87,-284.78"/>
+<polygon fill="#000000" stroke="#000000" points="648.64,-282.09 643.14,-291.14 653.09,-287.49 648.64,-282.09"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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~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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-175.19 442.5,-175.19 442.5,-151.19 536.5,-151.19 536.5,-175.19"/>
+<text text-anchor="middle" x="489.5" y="-160.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_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="M717.98,-202.34C693.45,-201.95 658.8,-202 628.5,-204.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-204.19C589.48,-206.88 548.98,-192.24 521.89,-179.71"/>
+<polygon fill="#000000" stroke="#000000" points="523.07,-176.4 512.54,-175.23 520.05,-182.71 523.07,-176.4"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.19 576,-175.19 576,-151.19 679,-151.19 679,-175.19"/>
+<text text-anchor="middle" x="627.5" y="-160.79" 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~~rmvs_util.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~rmvs_util.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-192.58C704.62,-188.25 689.18,-183.17 674.87,-178.46"/>
+<polygon fill="#000000" stroke="#000000" points="675.78,-175.08 665.19,-175.27 673.59,-181.72 675.78,-175.08"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-60.19 294.5,-60.19 294.5,-36.19 399.5,-36.19 399.5,-60.19"/>
+<text text-anchor="middle" x="347" y="-45.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge11" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-9.19C469.48,-5.63 423.06,-20.23 388.75,-32.58"/>
+<polygon fill="#000000" stroke="#000000" points="387.17,-29.43 378.98,-36.15 389.58,-36 387.17,-29.43"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-295.19 288,-295.19 288,-271.19 406,-271.19 406,-295.19"/>
+<text text-anchor="middle" x="347" y="-280.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge13" class="edge">
-<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~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-283.19C465.24,-287.67 439.4,-288.75 416.29,-288.37"/>
+<polygon fill="#000000" stroke="#000000" points="416.32,-284.87 406.23,-288.11 416.14,-291.87 416.32,-284.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge15" class="edge">
-<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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.12,-109.63C134.42,-108.22 125.32,-106.75 116.4,-105.3"/>
+<polygon fill="#000000" stroke="#000000" points="116.88,-101.83 106.45,-103.69 115.76,-108.74 116.88,-101.83"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.8,-191.02C299.41,-176.44 256.72,-151.92 227.97,-135.41"/>
+<polygon fill="#000000" stroke="#000000" points="229.58,-132.3 219.17,-130.35 226.09,-138.37 229.58,-132.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.68,-215.27C281.09,-230.11 219.52,-252.28 198,-243.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.12,-28.36C150.18,-41.68 111.63,-63.13 84.68,-78.13"/>
+<polygon fill="#000000" stroke="#000000" points="82.71,-75.22 75.67,-83.14 86.11,-81.34 82.71,-75.22"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.89,-312.94C504.91,-323.15 384.91,-333.94 288,-304.19 241.81,-290.01 242.52,-261.99 198,-243.19"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.94,-151.18C434.15,-139.69 388.95,-123.97 348,-123.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_util.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="M446.35,-175.2C431.89,-179.31 415.54,-183.97 400.37,-188.28"/>
+<polygon fill="#000000" stroke="#000000" points="399.27,-184.96 390.61,-191.06 401.19,-191.69 399.27,-184.96"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.45,-156.12C414.46,-153.54 378.38,-153.3 348,-163.19"/>
 </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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.18,-175.3C592.17,-179.78 582.03,-185.03 573,-190.19 553.67,-201.24 532.56,-214.83 516.53,-225.49"/>
+<polygon fill="#000000" stroke="#000000" points="514.56,-222.6 508.19,-231.07 518.45,-228.41 514.56,-222.6"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C426.21,-118.74 410.43,-124.38 348,-123.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.51,-151.11C571.46,-140.37 529.04,-125.95 490.5,-123.19"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-243.19C134.83,-217.36 87.43,-150.64 66.2,-116.3"/>
+<polygon fill="#000000" stroke="#000000" points="69.07,-114.29 60.91,-107.54 63.08,-117.91 69.07,-114.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-123.19C423.74,-118.57 409.74,-143.1 348,-163.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-163.19C320.21,-171.59 312.35,-170.25 288,-182.19 244.62,-203.48 242.52,-261.99 198,-243.19"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-163.19C566.43,-163.19 556.52,-163.19 546.94,-163.19"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-159.69 536.69,-163.19 546.69,-166.69 546.69,-159.69"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.33,-151.19C591.78,-139.32 563.42,-121.23 537,-109.19 494.23,-89.71 443.42,-73.68 405.26,-62.95"/>
+<polygon fill="#000000" stroke="#000000" points="405.92,-59.5 395.34,-60.2 404.05,-66.24 405.92,-59.5"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.56,-60.23C296.31,-71.7 259.6,-89.06 232.68,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="231.15,-98.64 223.61,-106.08 234.14,-104.97 231.15,-98.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.47,-56.49C244.79,-64.49 169.53,-76.6 116.46,-85.14"/>
+<polygon fill="#000000" stroke="#000000" points="115.81,-81.7 106.49,-86.75 116.92,-88.61 115.81,-81.7"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.86,-271.34C260.07,-264.7 226.69,-255.31 198,-243.19"/>
 </g>
 </g>
 </svg>
@@ -751,198 +801,195 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-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="k">allocatable</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-195"></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-196"></a>
+<a name="ln-197"></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-198"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-199"></a>      <span class="k">else</span>
+<a name="ln-200"></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-201"></a>      <span class="k">end if</span>
+<a name="ln-202"></a>
+<a name="ln-203"></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-204"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-205"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-206"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nenc&quot;</span><span class="p">)</span>
+<a name="ln-207"></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-208"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;tpenc1P&quot;</span><span class="p">)</span>
+<a name="ln-209"></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-210"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plind&quot;</span><span class="p">)</span>
+<a name="ln-211"></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-212"></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-213"></a>            <span class="k">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-214"></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-215"></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-216"></a>            <span class="k">return</span>
+<a name="ln-217"></a><span class="k">         end select</span>
+<a name="ln-218"></a>
+<a name="ln-219"></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-220"></a>
+<a name="ln-221"></a>      <span class="k">end associate</span>
+<a name="ln-222"></a><span class="k">      return</span>
+<a name="ln-223"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_pl</span>
+<a name="ln-224"></a>
+<a name="ln-225"></a>
+<a name="ln-226"></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-227"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-228"></a>      <span class="c">!!</span>
+<a name="ln-229"></a>      <span class="c">!! Sort a RMVS test particle object in-place. </span>
+<a name="ln-230"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-231"></a>      <span class="k">implicit none</span>
+<a name="ln-232"></a>      <span class="c">! Arguments</span>
+<a name="ln-233"></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-234"></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-235"></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-236"></a>      <span class="c">! Internals</span>
+<a name="ln-237"></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">ind</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">direction</span>
+<a name="ln-239"></a>
+<a name="ln-240"></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-241"></a>
+<a name="ln-242"></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-243"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-244"></a>      <span class="k">else</span>
+<a name="ln-245"></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-246"></a>      <span class="k">end if</span>
+<a name="ln-247"></a>
+<a name="ln-248"></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-249"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-250"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-251"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plperP&quot;</span><span class="p">)</span>
+<a name="ln-252"></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-253"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plencP&quot;</span><span class="p">)</span>
+<a name="ln-254"></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-255"></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-256"></a>            <span class="k">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-257"></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-258"></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-259"></a>            <span class="k">return</span>
+<a name="ln-260"></a><span class="k">         end select</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><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-262"></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-263"></a>
+<a name="ln-264"></a>      <span class="k">end associate</span>
+<a name="ln-265"></a><span class="k">      return</span>
+<a name="ln-266"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_tp</span>
+<a name="ln-267"></a>
+<a name="ln-268"></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-269"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-270"></a>      <span class="c">!!</span>
+<a name="ln-271"></a>      <span class="c">!! Rearrange RMVS massive body structure in-place from an index list.</span>
+<a name="ln-272"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-273"></a>      <span class="k">implicit none</span>
+<a name="ln-274"></a>      <span class="c">! Arguments</span>
+<a name="ln-275"></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-276"></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-277"></a>
+<a name="ln-278"></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-279"></a>
+<a name="ln-280"></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-281"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-282"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-283"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-284"></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-285"></a>      <span class="k">end associate</span>
+<a name="ln-286"></a>
+<a name="ln-287"></a><span class="k">      return</span>
+<a name="ln-288"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span>
 <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-290"></a>
+<a name="ln-291"></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-292"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-293"></a>      <span class="c">!!</span>
+<a name="ln-294"></a>      <span class="c">!! Rearrange RMVS test particle object in-place from an index list.</span>
+<a name="ln-295"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-296"></a>      <span class="k">implicit none</span>
+<a name="ln-297"></a>      <span class="c">! Arguments</span>
+<a name="ln-298"></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-299"></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-300"></a>
+<a name="ln-301"></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-302"></a>
+<a name="ln-303"></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-304"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-305"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-306"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-307"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-308"></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-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-346"></a>
-<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-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-379"></a>
-<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>
+<a name="ln-380"></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 fe6b4a635..ba2306607 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.">235 statements</a>
+    title=" 1.8% of total for source files.">289 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefilesetupf90EfferentGraph" width="641pt" height="301pt"
+ viewBox="0.00 0.00 641.00 301.39" 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.72 0.72) rotate(0) translate(4 412.12)">
 <title>sourcefile~~setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 874,-301.25 874,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 881,-412.12 881,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,-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>
+<polygon fill="none" stroke="black" points="877,-133.12 820,-133.12 820,-109.12 877,-109.12 877,-133.12"/>
+<text text-anchor="middle" x="848.5" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">setup.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M827.79,-109.09C790.38,-87.43 705.88,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M835.4,-133.4C819.19,-149.87 790.22,-179.29 771.06,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="768.52,-196.35 764,-205.93 773.51,-201.26 768.52,-196.35"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~setup.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~setup.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~setup.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~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="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~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="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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~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="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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -570,7 +624,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>     <span class="c">!! Swiftest parameters</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">!! Swiftest parameters</span>
 <a name="ln-14"></a>
 <a name="ln-15"></a>      <span class="k">select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">integrator</span><span class="p">)</span>
 <a name="ln-16"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">BS</span><span class="p">)</span>
@@ -616,258 +670,344 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">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>
-<a name="ln-62"></a><span class="k">      case</span> <span class="p">(</span><span class="n">RINGMOONS</span><span class="p">)</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="s1">&#39;RINGMOONS-SyMBA integrator not yet enabled&#39;</span>
-<a name="ln-64"></a>      <span class="k">case </span><span class="n">default</span>
-<a name="ln-65"></a>         <span class="k">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;Unkown integrator&#39;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">integrator</span>
-<a name="ln-66"></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-67"></a>      <span class="k">end select</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">setup_construct_system</span>
-<a name="ln-71"></a>
+<a name="ln-59"></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-60"></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-61"></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">plplcollision_list</span><span class="p">)</span>
+<a name="ln-62"></a>         <span class="k">end select</span>
+<a name="ln-63"></a><span class="k">      case</span> <span class="p">(</span><span class="n">RINGMOONS</span><span class="p">)</span>
+<a name="ln-64"></a>         <span class="k">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;RINGMOONS-SyMBA integrator not yet enabled&#39;</span>
+<a name="ln-65"></a>      <span class="k">case </span><span class="n">default</span>
+<a name="ln-66"></a>         <span class="k">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;Unkown integrator&#39;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">integrator</span>
+<a name="ln-67"></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-68"></a>      <span class="k">end select</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">setup_construct_system</span>
 <a name="ln-72"></a>
-<a name="ln-73"></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-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">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
-<a name="ln-77"></a>      <span class="c">!!</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_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-81"></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-82"></a>
-<a name="ln-83"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">n</span>
-<a name="ln-84"></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-73"></a>
+<a name="ln-74"></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-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">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
+<a name="ln-78"></a>      <span class="c">!!</span>
+<a name="ln-79"></a>      <span class="k">implicit none</span>
+<a name="ln-80"></a>      <span class="c">! Arguments</span>
+<a name="ln-81"></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-82"></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-83"></a>
+<a name="ln-84"></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-85"></a>
 <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">lvdotr</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">lvdotr</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">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-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">index1</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">index1</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">index2</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">index2</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">x1</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">x1</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">x2</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">x2</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">v1</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">v1</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">v2</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">v2</span><span class="p">)</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">lvdotr</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">status</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">index1</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">index2</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">x1</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-100"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">x2</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-101"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v1</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-102"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v2</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-103"></a>
-<a name="ln-104"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lvdotr</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-105"></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-106"></a>      <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-107"></a>      <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-108"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-109"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-110"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-111"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</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">setup_encounter</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">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-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">!! Wrapper method to initialize a basic Swiftest nbody system from files</span>
-<a name="ln-121"></a>      <span class="c">!!</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">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-125"></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-126"></a>  
-<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">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-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">kidx</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">kidx</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">index1</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">index1</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">index2</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">index2</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">id1</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">id1</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">id2</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">id2</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">x1</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">x1</span><span class="p">)</span>
+<a name="ln-94"></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">x2</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">x2</span><span class="p">)</span>
+<a name="ln-95"></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">v1</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">v1</span><span class="p">)</span>
+<a name="ln-96"></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">v2</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">v2</span><span class="p">)</span>
+<a name="ln-97"></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">t</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">t</span><span class="p">)</span>
+<a name="ln-98"></a>
+<a name="ln-99"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">n</span>
+<a name="ln-100"></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-101"></a>
+<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">lvdotr</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">status</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">kidx</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">index1</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">index2</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-107"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-108"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-109"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">x1</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-110"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">x2</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-111"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v1</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-112"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">v2</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-113"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-114"></a>
+<a name="ln-115"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lvdotr</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-116"></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-117"></a>      <span class="n">self</span><span class="p">%</span><span class="n">kidx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0_I8B</span>
+<a name="ln-118"></a>      <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(:)</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">index2</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-120"></a>      <span class="n">self</span><span class="p">%</span><span class="n">id1</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-121"></a>      <span class="n">self</span><span class="p">%</span><span class="n">id2</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-122"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-123"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-124"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-125"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-126"></a>      <span class="n">self</span><span class="p">%</span><span class="n">t</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</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">setup_encounter</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">setup_initialize_particle_info_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-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">!! Setup up particle information metadata from initial conditions</span>
+<a name="ln-136"></a>      <span class="c">!</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_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-140"></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-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">i</span>
+<a name="ln-143"></a>
+<a name="ln-144"></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-145"></a>
+<a name="ln-146"></a>         <span class="k">call </span><span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">set_value</span><span class="p">(</span><span class="n">particle_type</span><span class="o">=</span><span class="n">CB_TYPE_NAME</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s2">&quot;ACTIVE&quot;</span><span class="p">,</span> <span class="n">origin_type</span><span class="o">=</span><span class="s2">&quot;Initial conditions&quot;</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><span class="p">,</span> <span class="n">origin_xh</span><span class="o">=</span><span class="p">[</span><span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">],</span> <span class="n">origin_vh</span><span class="o">=</span><span class="p">[</span><span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">])</span>
+<a name="ln-147"></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">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-148"></a>            <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">particle_type</span><span class="o">=</span><span class="n">PL_TYPE_NAME</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s2">&quot;ACTIVE&quot;</span><span class="p">,</span> <span class="n">origin_type</span><span class="o">=</span><span class="s2">&quot;Initial conditions&quot;</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><span class="p">,</span> <span class="n">origin_xh</span><span class="o">=</span><span class="n">self</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">origin_vh</span><span class="o">=</span><span class="n">self</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-149"></a>         <span class="k">end do</span>
+<a name="ln-150"></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">tp</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-151"></a>            <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">particle_type</span><span class="o">=</span><span class="n">TP_TYPE_NAME</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s2">&quot;ACTIVE&quot;</span><span class="p">,</span> <span class="n">origin_type</span><span class="o">=</span><span class="s2">&quot;Initial conditions&quot;</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><span class="p">,</span> <span class="n">origin_xh</span><span class="o">=</span><span class="n">self</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">origin_vh</span><span class="o">=</span><span class="n">self</span><span class="p">%</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-152"></a>         <span class="k">end do</span>
+<a name="ln-153"></a>
+<a name="ln-154"></a><span class="k">      end associate</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-156"></a><span class="k">      return</span>
+<a name="ln-157"></a><span class="k">   end subroutine </span><span class="n">setup_initialize_particle_info_system</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">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-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">!! Wrapper method to initialize a basic Swiftest nbody system from files</span>
+<a name="ln-164"></a>      <span class="c">!!</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">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-168"></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-169"></a> 
+<a name="ln-170"></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_in</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-171"></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_in</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-172"></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_in</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-173"></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-174"></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-175"></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-176"></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-177"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_form</span> <span class="o">==</span> <span class="n">EL</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-178"></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">el2xv</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-179"></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">el2xv</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-180"></a>      <span class="k">end if</span>
+<a name="ln-181"></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="nb">index</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-182"></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-183"></a>      <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span>
+<a name="ln-184"></a>      <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span>
+<a name="ln-185"></a>
+<a name="ln-186"></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-187"></a><span class="k">         call </span><span class="n">self</span><span class="p">%</span><span class="n">read_particle_info</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-188"></a>      <span class="k">else</span>
+<a name="ln-189"></a><span class="k">         call </span><span class="n">self</span><span class="p">%</span><span class="n">init_particle_info</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-190"></a>      <span class="k">end if</span>
+<a name="ln-191"></a><span class="k">      return</span>
+<a name="ln-192"></a><span class="k">   end subroutine </span><span class="n">setup_initialize_system</span>
+<a name="ln-193"></a>
 <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-195"></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-196"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-197"></a>      <span class="c">!!</span>
+<a name="ln-198"></a>      <span class="c">!! Constructor for base Swiftest particle class. Allocates space for all particles and</span>
+<a name="ln-199"></a>      <span class="c">!! initializes all components with a value.</span>
+<a name="ln-200"></a>      <span class="c">!! Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) </span>
+<a name="ln-201"></a>      <span class="k">implicit none</span>
+<a name="ln-202"></a>      <span class="c">! Arguments</span>
+<a name="ln-203"></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-204"></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-205"></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-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>
+<a name="ln-208"></a>
+<a name="ln-209"></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-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-211"></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-212"></a>
+<a name="ln-213"></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-214"></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-215"></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-216"></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-217"></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-218"></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-219"></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-220"></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-221"></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-222"></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-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">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-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">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-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">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-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">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-227"></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-228"></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">a</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">a</span><span class="p">)</span>
+<a name="ln-229"></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">e</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">e</span><span class="p">)</span>
+<a name="ln-230"></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">e</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">e</span><span class="p">)</span>
+<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">inc</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">inc</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">capom</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">capom</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">omega</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">omega</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">capm</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">capm</span><span class="p">)</span>
+<a name="ln-235"></a>
+<a name="ln-236"></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-237"></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-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="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>
+<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">info</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-240"></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-241"></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-242"></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-243"></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-244"></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-245"></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-246"></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-247"></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-248"></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-249"></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-250"></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-251"></a>
+<a name="ln-252"></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-253"></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">n</span>
+<a name="ln-254"></a>         <span class="k">call </span><span class="n">self</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">set_value</span><span class="p">(&amp;</span>
+<a name="ln-255"></a>            <span class="n">name</span> <span class="o">=</span> <span class="s2">&quot;UNNAMED&quot;</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-256"></a>            <span class="n">particle_type</span> <span class="o">=</span> <span class="s2">&quot;UNKNOWN&quot;</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-257"></a>            <span class="n">status</span> <span class="o">=</span> <span class="s2">&quot;INACTIVE&quot;</span><span class="p">,</span> <span class="p">&amp;</span> 
+<a name="ln-258"></a>            <span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;UNKNOWN&quot;</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-259"></a>            <span class="n">origin_time</span> <span class="o">=</span> <span class="o">-</span><span class="nb">huge</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="p">),</span> <span class="p">&amp;</span> 
+<a name="ln-260"></a>            <span class="n">origin_xh</span> <span class="o">=</span> <span class="p">[</span><span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">],</span> <span class="p">&amp;</span>
+<a name="ln-261"></a>            <span class="n">origin_vh</span> <span class="o">=</span> <span class="p">[</span><span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">],</span> <span class="p">&amp;</span>
+<a name="ln-262"></a>            <span class="n">discard_time</span> <span class="o">=</span> <span class="o">-</span><span class="nb">huge</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="p">),</span> <span class="p">&amp;</span> 
+<a name="ln-263"></a>            <span class="n">discard_xh</span> <span class="o">=</span> <span class="p">[</span><span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">],</span> <span class="p">&amp;</span>
+<a name="ln-264"></a>            <span class="n">discard_vh</span> <span class="o">=</span> <span class="p">[</span><span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">],</span> <span class="p">&amp;</span>
+<a name="ln-265"></a>            <span class="n">discard_body_id</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>  <span class="p">&amp;</span>
+<a name="ln-266"></a>         <span class="p">)</span>
+<a name="ln-267"></a>      <span class="k">end do</span>
+<a name="ln-268"></a>
+<a name="ln-269"></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="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-270"></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-271"></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-272"></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-273"></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-274"></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-275"></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-276"></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-277"></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-278"></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-279"></a>
+<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">loblatecb</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-281"></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-282"></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-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">         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-286"></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-287"></a>      <span class="k">end if</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">lgr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-289"></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-290"></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-291"></a>      <span class="k">end if</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">setup_body</span>
+<a name="ln-295"></a>
+<a name="ln-296"></a>
+<a name="ln-297"></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-298"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-299"></a>      <span class="c">!!</span>
+<a name="ln-300"></a>      <span class="c">!! Constructor for base Swiftest massive body class. Allocates space for all particles and</span>
+<a name="ln-301"></a>      <span class="c">!! initializes all components with a value. </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="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-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">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-306"></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-307"></a>
+<a name="ln-308"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
+<a name="ln-309"></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-310"></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-311"></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-312"></a>
+<a name="ln-313"></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-314"></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-315"></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-316"></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-317"></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-318"></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">rot</span><span class="p">)</span>
+<a name="ln-319"></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">Ip</span><span class="p">)</span>
+<a name="ln-320"></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">k2</span><span class="p">)</span>
+<a name="ln-321"></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">Q</span><span class="p">)</span>
+<a name="ln-322"></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">tlag</span><span class="p">)</span>
+<a name="ln-323"></a>
+<a name="ln-324"></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-325"></a>
+<a name="ln-326"></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-327"></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-328"></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-329"></a>
+<a name="ln-330"></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-331"></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-332"></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-333"></a>
+<a name="ln-334"></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-335"></a>
+<a name="ln-336"></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-337"></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-338"></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-339"></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-340"></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-341"></a>      <span class="k">end if</span>
+<a name="ln-342"></a>
+<a name="ln-343"></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-344"></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-345"></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-346"></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-347"></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-348"></a>      <span class="k">end if</span>
+<a name="ln-349"></a>
+<a name="ln-350"></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-351"></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-352"></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-353"></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-354"></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-355"></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-356"></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-357"></a>      <span class="k">end if</span>
+<a name="ln-358"></a><span class="k">      </span>
+<a name="ln-359"></a><span class="k">      return</span>
+<a name="ln-360"></a><span class="k">   end subroutine </span><span class="n">setup_pl</span>
+<a name="ln-361"></a>   
+<a name="ln-362"></a>
+<a name="ln-363"></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-364"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-365"></a>      <span class="c">!!</span>
+<a name="ln-366"></a>      <span class="c">!! Constructor for base Swiftest test particle particle class. Allocates space for </span>
+<a name="ln-367"></a>      <span class="c">!! all particles and initializes all components with a value. </span>
+<a name="ln-368"></a>      <span class="k">implicit none</span>
+<a name="ln-369"></a>      <span class="c">! Arguments</span>
+<a name="ln-370"></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-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">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-372"></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-373"></a>
+<a name="ln-374"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
+<a name="ln-375"></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-376"></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-377"></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-378"></a>
+<a name="ln-379"></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-380"></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-381"></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-382"></a>
+<a name="ln-383"></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-384"></a>
+<a name="ln-385"></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-386"></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-387"></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-388"></a>
+<a name="ln-389"></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-390"></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-391"></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-392"></a>
+<a name="ln-393"></a>      <span class="k">return</span>
+<a name="ln-394"></a><span class="k">   end subroutine </span><span class="n">setup_tp</span>
+<a name="ln-395"></a>
+<a name="ln-396"></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 7359d1a6f..e48e4e4b1 100644
--- a/docs/sourcefile/swiftest.f90.html
+++ b/docs/sourcefile/swiftest.f90.html
@@ -134,7 +134,7 @@ <h1>swiftest.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for source files.">12 statements</a>
+    title=" 0.1% of total for source files.">14 statements</a>
      </li> 
      
      
@@ -226,223 +226,277 @@ <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="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)">
+<svg id="sourcefileswiftestf90EfferentGraph" width="641pt" height="309pt"
+ viewBox="0.00 0.00 641.00 309.45" 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.81 0.81) rotate(0) translate(4 378.34)">
 <title>sourcefile~~swiftest.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-290.35 781,-290.35 781,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-378.34 788,-378.34 788,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,-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>
+<polygon fill="none" stroke="black" points="784,-144 718,-144 718,-120 784,-120 784,-144"/>
+<text text-anchor="middle" x="751" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest.f90</text>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node2" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-220 143.5,-220 143.5,-196 250.5,-196 250.5,-220"/>
+<text text-anchor="middle" x="197" y="-205.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_operators.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge1" 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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C583.38,-309.4 582.23,-243.47 537,-227 457.67,-198.11 432.24,-202.41 348,-208"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.94,-144.34C731.46,-175.37 691.38,-256.39 628.5,-288"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node3" class="node">
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-320 300,-320 300,-296 394,-296 394,-320"/>
+<text text-anchor="middle" x="347" y="-305.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~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C607.09,-297.39 480.19,-303.39 404.55,-306.17"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-302.69 394.23,-306.54 404.35,-309.68 404.1,-302.69"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~walltime_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-104 142,-104 142,-80 252,-80 252,-104"/>
+<text text-anchor="middle" x="197" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-132C450.97,-131.61 443.05,-119.98 406,-114 358.08,-106.26 303.49,-100.61 262.27,-96.97"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-93.46 252.09,-96.09 261.75,-100.44 262.35,-93.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.63,-131.64C668.53,-131.17 572.26,-130.57 490.5,-132"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-340 442,-340 442,-316 537,-316 537,-340"/>
+<text text-anchor="middle" x="489.5" y="-325.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.f90~~EfferentGraph_edge3" class="edge">
+<g id="sourcefile~~swiftest.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C601.47,-300.11 572.03,-309.32 546.96,-315.84"/>
+<polygon fill="#000000" stroke="#000000" points="546.07,-312.45 537.23,-318.29 547.78,-319.24 546.07,-312.45"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node6" class="node">
-<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>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node6"><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>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge5" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C583.49,-309.62 582.23,-332.53 537,-349 457.67,-377.89 431.81,-378.15 348,-368"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node7" class="node">
-<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>
+<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="682,-84 573,-84 573,-60 682,-60 682,-84"/>
+<text text-anchor="middle" x="627.5" y="-69.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~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge6" 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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.41,-119.86C707.21,-110.87 682.21,-98.52 662.16,-88.62"/>
+<polygon fill="#000000" stroke="#000000" points="663.57,-85.41 653.05,-84.12 660.47,-91.69 663.57,-85.41"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-260 442.5,-260 442.5,-236 536.5,-236 536.5,-260"/>
+<text text-anchor="middle" x="489.5" y="-245.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~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C608.76,-296.58 559.97,-278.76 525.93,-264.22"/>
+<polygon fill="#000000" stroke="#000000" points="526.9,-260.82 516.33,-260.04 524.1,-267.24 526.9,-260.82"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-222 576,-222 576,-198 679,-198 679,-222"/>
+<text text-anchor="middle" x="627.5" y="-207.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_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.28,-144.02C711.18,-156.92 679.05,-177.55 656.06,-192.31"/>
+<polygon fill="#000000" stroke="#000000" points="653.96,-189.49 647.44,-197.84 657.75,-195.38 653.96,-189.49"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-180 294.5,-180 294.5,-156 399.5,-156 399.5,-180"/>
+<text text-anchor="middle" x="347" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-132C453.18,-131.63 414.38,-142.47 386.52,-152.35"/>
+<polygon fill="#000000" stroke="#000000" points="384.96,-149.2 376.78,-155.93 387.38,-155.77 384.96,-149.2"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-24 288,-24 288,0 406,0 406,-24"/>
+<text text-anchor="middle" x="347" 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~~swiftest.f90~~EfferentGraph_edge10" 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.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.78,-119.89C733.62,-101.48 711.58,-66.94 682,-51 598.73,-6.12 487.07,-2.43 416.31,-5.77"/>
+<polygon fill="#000000" stroke="#000000" points="415.98,-2.28 406.18,-6.3 416.35,-9.27 415.98,-2.28"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge11" 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.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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.5,-195.96C149.85,-183.3 112.46,-163.29 85.81,-149.02"/>
+<polygon fill="#000000" stroke="#000000" points="87.33,-145.87 76.87,-144.24 84.03,-152.04 87.33,-145.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.11,-295.98C306.12,-292 296.44,-287.23 288,-282 262.06,-265.92 235.43,-243.09 217.94,-227.05"/>
+<polygon fill="#000000" stroke="#000000" points="220.28,-224.45 210.58,-220.21 215.52,-229.58 220.28,-224.45"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.86,-318.28C269.35,-322.68 229.35,-323.72 198,-308"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_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~whm_classes.f90</title>
-<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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-104C138.79,-108.12 122.26,-112.77 106.93,-117.09"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-113.79 97.07,-119.87 107.64,-120.53 105.74,-113.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-321.34C429.74,-319.64 416.74,-317.79 404.34,-316.02"/>
+<polygon fill="#000000" stroke="#000000" points="404.5,-312.51 394.1,-314.56 403.51,-319.44 404.5,-312.51"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge16" 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,-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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.56,-340.03C439.28,-353.62 391.05,-373.21 348,-368"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-368C275.54,-359.47 261.45,-339.81 198,-308"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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,-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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.66,-64.71C473.51,-52.07 265.96,-29.49 198,-52"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <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,-110.36C269.75,-110.36 231.43,-110.36 197.5,-110.36"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-268C300,-269.68 251.41,-243.94 222.94,-225.64"/>
+<polygon fill="#000000" stroke="#000000" points="224.71,-222.61 214.44,-220.01 220.84,-228.45 224.71,-222.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.21,-257.08C414.92,-261.81 379.64,-266.85 348,-268"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest.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="M460.07,-260.14C438.64,-269.29 409.06,-281.92 385.67,-291.91"/>
+<polygon fill="#000000" stroke="#000000" points="384.21,-288.73 376.39,-295.88 386.96,-295.17 384.21,-288.73"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-308C128.84,-274.33 82.75,-192.67 63.75,-153.57"/>
+<polygon fill="#000000" stroke="#000000" points="66.84,-151.93 59.41,-144.38 60.52,-154.92 66.84,-151.93"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-268C311.95,-269.24 228.46,-323.27 198,-308"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~swiftest.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-170C424.52,-160.46 412.55,-203.72 348,-208"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-208C318.16,-209.85 287.31,-210.13 261.01,-209.84"/>
+<polygon fill="#000000" stroke="#000000" points="260.85,-206.34 250.8,-209.69 260.75,-213.33 260.85,-206.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~swiftest.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="M612.46,-222.18C588.74,-242.76 540.57,-284.55 512.39,-309.01"/>
+<polygon fill="#000000" stroke="#000000" points="509.93,-306.51 504.67,-315.71 514.52,-311.8 509.93,-306.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge23" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.64,-197.91C567.43,-188.24 527.01,-175.45 490.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-170C450.85,-164.38 443.5,-153.51 406,-147 314.68,-131.14 290.55,-136.92 198,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-132C169.96,-130.1 141.16,-129.77 116.35,-130.04"/>
+<polygon fill="#000000" stroke="#000000" points="116.28,-126.54 106.33,-130.18 116.38,-133.54 116.28,-126.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.47,-222.02C570.82,-225.56 556.83,-229.47 543.63,-233.16"/>
+<polygon fill="#000000" stroke="#000000" points="542.41,-229.86 533.72,-235.92 544.29,-236.6 542.41,-229.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-170C462.95,-166.19 434.51,-165.19 409.93,-165.33"/>
+<polygon fill="#000000" stroke="#000000" points="409.61,-161.83 399.65,-165.45 409.69,-168.83 409.61,-161.83"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-180C286.15,-184.17 268.65,-188.9 252.49,-193.27"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-189.95 242.63,-195.94 253.2,-196.71 251.37,-189.95"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.15,-155.96C282.49,-146.35 238.01,-134.13 198,-132"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-52C171.85,-60 164.66,-59.43 142,-71 118.6,-82.95 94.21,-100.3 77.06,-113.45"/>
+<polygon fill="#000000" stroke="#000000" points="74.53,-110.98 68.79,-119.89 78.83,-116.5 74.53,-110.98"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.92,-24.05C267.05,-31.37 230.21,-41.33 198,-52"/>
 </g>
 </g>
 </svg>
@@ -495,901 +549,1021 @@ <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="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)">
+<svg id="sourcefileswiftestf90AfferentGraph" width="274pt" height="2804pt"
+ viewBox="0.00 0.00 274.00 2804.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 2800)">
 <title>sourcefile~~swiftest.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 270,-2464 270,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 270,-2800 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,-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>
+<polygon fill="none" stroke="black" points="66,-1410 0,-1410 0,-1386 66,-1386 66,-1410"/>
+<text text-anchor="middle" x="33" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest.f90</text>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node2" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="259,-2796 109,-2796 109,-2772 259,-2772 259,-2796"/>
+<text text-anchor="middle" x="184" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge1" class="edge">
-<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"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.87,-2771.94C108.19,-2769.45 104.84,-2766.49 102,-2763 57.76,-2708.68 37.27,-1592.64 34.36,-1420.27"/>
+<polygon fill="#000000" stroke="#000000" points="37.86,-1420.05 34.19,-1410.11 30.86,-1420.16 37.86,-1420.05"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node3" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="228,-2754 140,-2754 140,-2730 228,-2730 228,-2754"/>
+<text text-anchor="middle" x="184" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge2" class="edge">
-<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"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.65,-2740.65C125.55,-2737.92 111.18,-2732.26 102,-2721 59.15,-2668.46 37.54,-1589.97 34.4,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="37.9,-1420.07 34.21,-1410.13 30.9,-1420.2 37.9,-1420.07"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="240,-2712 128,-2712 128,-2688 240,-2688 240,-2712"/>
+<text text-anchor="middle" x="184" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge3" class="edge">
-<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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.87,-2695.6C117.92,-2692.3 108.62,-2687.1 102,-2679 60.5,-2628.21 37.79,-1586.05 34.44,-1420.17"/>
+<polygon fill="#000000" stroke="#000000" points="37.94,-1420.07 34.24,-1410.14 30.94,-1420.21 37.94,-1420.07"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node5" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223,-2670 145,-2670 145,-2646 223,-2646 223,-2670"/>
+<text text-anchor="middle" x="184" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge4" 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="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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.73,-2657.49C129.1,-2655.18 112.31,-2649.59 102,-2637 61.9,-2588.01 38.1,-1583.99 34.48,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="37.98,-1420.05 34.26,-1410.13 30.98,-1420.21 37.98,-1420.05"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node6" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220.5,-2628 147.5,-2628 147.5,-2604 220.5,-2604 220.5,-2628"/>
+<text text-anchor="middle" x="184" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge5" class="edge">
-<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"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.24,-2615.83C130.93,-2613.75 112.87,-2608.25 102,-2595 63.25,-2547.75 38.37,-1579.7 34.52,-1420.17"/>
+<polygon fill="#000000" stroke="#000000" points="38.02,-1420.01 34.28,-1410.1 31.02,-1420.18 38.02,-1420.01"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node7" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="239.5,-2586 128.5,-2586 128.5,-2562 239.5,-2562 239.5,-2586"/>
+<text text-anchor="middle" x="184" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge6" class="edge">
-<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"/>
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.33,-2569.71C118.21,-2566.42 108.73,-2561.19 102,-2553 27.42,-2462.26 32.36,-1573.17 33.77,-1420.31"/>
+<polygon fill="#000000" stroke="#000000" points="37.27,-1420.28 33.86,-1410.25 30.27,-1420.21 37.27,-1420.28"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-2544 145.5,-2544 145.5,-2520 222.5,-2520 222.5,-2544"/>
+<text text-anchor="middle" x="184" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge7" class="edge">
-<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"/>
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.18,-2531.52C129.44,-2529.25 112.44,-2523.67 102,-2511 30.17,-2423.81 32.8,-1570.31 33.82,-1420.42"/>
+<polygon fill="#000000" stroke="#000000" points="37.32,-1420.19 33.89,-1410.16 30.32,-1420.13 37.32,-1420.19"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="237,-2502 131,-2502 131,-2478 237,-2478 237,-2502"/>
+<text text-anchor="middle" x="184" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge8" class="edge">
-<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"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.86,-2486.46C119.82,-2483.24 109.31,-2477.85 102,-2469 32.91,-2385.34 33.25,-1567.17 33.87,-1420.47"/>
+<polygon fill="#000000" stroke="#000000" points="37.38,-1420.07 33.92,-1410.05 30.38,-1420.03 37.38,-1420.07"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="243,-2460 125,-2460 125,-2436 243,-2436 243,-2460"/>
+<text text-anchor="middle" x="184" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge9" class="edge">
-<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"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.66,-2442.37C115.96,-2439.05 107.93,-2434.16 102,-2427 35.65,-2346.86 33.73,-1563.84 33.94,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="37.44,-1420.27 33.96,-1410.27 30.44,-1420.26 37.44,-1420.27"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node11" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-2418 150,-2418 150,-2394 218,-2394 218,-2418"/>
+<text text-anchor="middle" x="184" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.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"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.78,-2406.06C132.87,-2404.22 113.51,-2398.86 102,-2385 38.37,-2308.36 34.22,-1560.16 34,-1420.42"/>
+<polygon fill="#000000" stroke="#000000" points="37.5,-1420.1 33.99,-1410.1 30.5,-1420.11 37.5,-1420.1"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node12" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-2376 141.5,-2376 141.5,-2352 226.5,-2352 226.5,-2376"/>
+<text text-anchor="middle" x="184" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_setup.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"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.47,-2362.86C126.85,-2360.25 111.67,-2354.61 102,-2343 41.08,-2269.85 34.73,-1556.27 34.08,-1420.31"/>
+<polygon fill="#000000" stroke="#000000" points="37.58,-1420.23 34.03,-1410.24 30.58,-1420.26 37.58,-1420.23"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="217.5,-2334 150.5,-2334 150.5,-2310 217.5,-2310 217.5,-2334"/>
+<text text-anchor="middle" x="184" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.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"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.22,-2322.08C133.23,-2320.27 113.64,-2314.93 102,-2301 43.77,-2231.33 35.26,-1552.05 34.15,-1420.13"/>
+<polygon fill="#000000" stroke="#000000" points="37.65,-1419.99 34.07,-1410.02 30.65,-1420.05 37.65,-1419.99"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-2292 141.5,-2292 141.5,-2268 226.5,-2268 226.5,-2292"/>
+<text text-anchor="middle" x="184" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_rescale.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"/>
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.09,-2278.75C126.61,-2276.1 111.62,-2270.46 102,-2259 46.52,-2192.86 35.83,-1548.92 34.24,-1420.29"/>
+<polygon fill="#000000" stroke="#000000" points="37.74,-1420.04 34.12,-1410.08 30.74,-1420.12 37.74,-1420.04"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223,-2250 145,-2250 145,-2226 223,-2226 223,-2250"/>
+<text text-anchor="middle" x="184" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.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"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.9,-2237.35C129.3,-2235.02 112.48,-2229.44 102,-2217 49.25,-2154.37 36.42,-1545.38 34.34,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="37.83,-1420.04 34.17,-1410.1 30.83,-1420.16 37.83,-1420.04"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="232,-2208 136,-2208 136,-2184 232,-2184 232,-2208"/>
+<text text-anchor="middle" x="184" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_setup.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"/>
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.65,-2193.55C122.96,-2190.54 110.44,-2184.98 102,-2175 51.96,-2115.85 37.04,-1541.44 34.44,-1420.34"/>
+<polygon fill="#000000" stroke="#000000" points="37.94,-1420 34.23,-1410.07 30.94,-1420.14 37.94,-1420"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node17"><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~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_step.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"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.11,-2153.18C128.76,-2150.76 112.35,-2145.17 102,-2133 54.7,-2077.38 37.72,-1538.24 34.57,-1420.6"/>
+<polygon fill="#000000" stroke="#000000" points="38.06,-1420.18 34.3,-1410.28 31.06,-1420.37 38.06,-1420.18"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="235.5,-2124 132.5,-2124 132.5,-2100 235.5,-2100 235.5,-2124"/>
+<text text-anchor="middle" x="184" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_discard.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"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.34,-2108.63C120.83,-2105.46 109.74,-2100.05 102,-2091 57.37,-2038.81 38.4,-1533.42 34.69,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="38.18,-1420.02 34.37,-1410.14 31.19,-1420.24 38.18,-1420.02"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220.5,-2082 147.5,-2082 147.5,-2058 220.5,-2058 220.5,-2082"/>
+<text text-anchor="middle" x="184" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.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"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.1,-2069.54C130.96,-2067.38 113.09,-2061.88 102,-2049 60.08,-2000.28 39.14,-1529.22 34.84,-1420.37"/>
+<polygon fill="#000000" stroke="#000000" points="38.33,-1420.06 34.45,-1410.21 31.34,-1420.33 38.33,-1420.06"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231,-2040 137,-2040 137,-2016 231,-2016 231,-2040"/>
+<text text-anchor="middle" x="184" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_setup.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"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.64,-2025.62C123.68,-2022.65 110.75,-2017.1 102,-2007 62.75,-1961.72 39.92,-1524.48 35.01,-1420.23"/>
+<polygon fill="#000000" stroke="#000000" points="38.5,-1420.03 34.54,-1410.2 31.51,-1420.35 38.5,-1420.03"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-1998 143,-1998 143,-1974 225,-1974 225,-1998"/>
+<text text-anchor="middle" x="184" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.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"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.6,-1984.76C127.76,-1982.19 112.13,-1976.59 102,-1965 65.45,-1923.17 40.78,-1520.03 35.2,-1420.25"/>
+<polygon fill="#000000" stroke="#000000" points="38.69,-1419.9 34.64,-1410.11 31.7,-1420.28 38.69,-1419.9"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-1956 150,-1956 150,-1932 218,-1932 218,-1956"/>
+<text text-anchor="middle" x="184" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.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"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.7,-1943.73C132.98,-1941.77 113.82,-1936.4 102,-1923 34.79,-1846.83 32.95,-1510.78 33.7,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="37.2,-1420.26 33.8,-1410.23 30.2,-1420.19 37.2,-1420.26"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~whm_drift.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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_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">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge22" class="edge">
-<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"/>
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.23,-1901.07C129.69,-1898.68 112.83,-1893.14 102,-1881 40.09,-1811.61 34.36,-1505.75 33.98,-1420.26"/>
+<polygon fill="#000000" stroke="#000000" points="37.48,-1420.12 33.96,-1410.12 30.48,-1420.13 37.48,-1420.12"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="221.5,-1872 146.5,-1872 146.5,-1848 221.5,-1848 221.5,-1872"/>
+<text text-anchor="middle" x="184" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_solve.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.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"/>
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.13,-1859.12C130.38,-1856.79 113.11,-1851.29 102,-1839 45.44,-1776.43 35.9,-1501.22 34.31,-1420.39"/>
+<polygon fill="#000000" stroke="#000000" points="37.81,-1420.26 34.14,-1410.32 30.81,-1420.38 37.81,-1420.26"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node25" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1830 145.5,-1830 145.5,-1806 222.5,-1806 222.5,-1830"/>
+<text text-anchor="middle" x="184" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_coord.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"/>
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.39,-1816.92C129.89,-1814.5 113.01,-1808.98 102,-1797 50.79,-1741.25 37.61,-1496.75 34.72,-1420.68"/>
+<polygon fill="#000000" stroke="#000000" points="38.21,-1420.21 34.36,-1410.34 31.21,-1420.46 38.21,-1420.21"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224,-1788 144,-1788 144,-1764 224,-1764 224,-1788"/>
+<text text-anchor="middle" x="184" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.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"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.84,-1774.54C128.82,-1771.98 112.73,-1766.45 102,-1755 56.04,-1705.93 39.47,-1491.11 35.22,-1420.55"/>
+<polygon fill="#000000" stroke="#000000" points="38.69,-1419.94 34.62,-1410.16 31.7,-1420.34 38.69,-1419.94"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216,-1746 152,-1746 152,-1722 216,-1722 216,-1746"/>
+<text text-anchor="middle" x="184" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.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"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.76,-1733.52C134.81,-1731.58 114.78,-1726.31 102,-1713 61.25,-1670.54 41.55,-1485.15 35.83,-1420.41"/>
+<polygon fill="#000000" stroke="#000000" points="39.29,-1419.77 34.95,-1410.11 32.31,-1420.37 39.29,-1419.77"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="266,-1704 102,-1704 102,-1680 266,-1680 266,-1704"/>
+<text text-anchor="middle" x="184" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.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"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M113.75,-1679.93C109.46,-1677.46 105.48,-1674.51 102,-1671 66.4,-1635.06 43.89,-1478.53 36.59,-1420.1"/>
+<polygon fill="#000000" stroke="#000000" points="40.06,-1419.59 35.37,-1410.09 33.11,-1420.44 40.06,-1419.59"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1662 157,-1662 157,-1638 211,-1638 211,-1662"/>
+<text text-anchor="middle" x="184" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.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"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.8,-1649.65C139.14,-1648.03 116.51,-1643.04 102,-1629 42.89,-1571.79 34.47,-1466.05 33.74,-1420.18"/>
+<polygon fill="#000000" stroke="#000000" points="37.24,-1420.1 33.7,-1410.12 30.24,-1420.14 37.24,-1420.1"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.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_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge29" class="edge">
-<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"/>
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.12,-1605.74C130.12,-1603.06 113.7,-1597.67 102,-1587 53.12,-1542.41 39.34,-1460.11 35.49,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="38.95,-1419.96 34.62,-1410.29 31.98,-1420.55 38.95,-1419.96"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1578 141,-1578 141,-1554 227,-1554 227,-1578"/>
+<text text-anchor="middle" x="184" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge30" class="edge">
-<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"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.59,-1562.21C127.07,-1559.23 112.82,-1554.03 102,-1545 62.99,-1512.44 45.17,-1452.61 38.07,-1420.22"/>
+<polygon fill="#000000" stroke="#000000" points="41.41,-1419.1 35.98,-1410 34.55,-1420.5 41.41,-1419.1"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-1536 150,-1536 150,-1512 218,-1512 218,-1536"/>
+<text text-anchor="middle" x="184" y="-1521.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~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge31" class="edge">
-<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"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.88,-1521.01C134.2,-1518.27 115.9,-1513.03 102,-1503 72.56,-1481.77 52.58,-1443.51 42.25,-1419.5"/>
+<polygon fill="#000000" stroke="#000000" points="45.46,-1418.09 38.42,-1410.18 38.98,-1420.76 45.46,-1418.09"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="214,-1494 154,-1494 154,-1470 214,-1470 214,-1494"/>
+<text text-anchor="middle" x="184" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge32" class="edge">
-<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"/>
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.97,-1478.05C137.93,-1475.01 118.06,-1469.78 102,-1461 81.93,-1450.03 63.19,-1431.82 50.49,-1417.8"/>
+<polygon fill="#000000" stroke="#000000" points="52.97,-1415.32 43.74,-1410.11 47.7,-1419.93 52.97,-1415.32"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236.5,-1452 131.5,-1452 131.5,-1428 236.5,-1428 236.5,-1452"/>
+<text text-anchor="middle" x="184" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge33" 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.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"/>
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.93,-1427.93C124.07,-1425.09 112.62,-1422.02 102,-1419 93.45,-1416.57 84.34,-1413.85 75.65,-1411.19"/>
+<polygon fill="#000000" stroke="#000000" points="76.67,-1407.84 66.08,-1408.24 74.6,-1414.53 76.67,-1407.84"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~setup.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,-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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="212.5,-1410 155.5,-1410 155.5,-1386 212.5,-1386 212.5,-1410"/>
+<text text-anchor="middle" x="184" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~setup.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.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"/>
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.32,-1398C133.13,-1398 101.62,-1398 76.28,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="76.19,-1394.5 66.19,-1398 76.19,-1401.5 76.19,-1394.5"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1368 145.5,-1368 145.5,-1344 222.5,-1344 222.5,-1368"/>
+<text text-anchor="middle" x="184" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge35" class="edge">
-<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"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.4,-1365.37C131.7,-1368.88 116.11,-1372.99 102,-1377 93.45,-1379.43 84.34,-1382.15 75.65,-1384.81"/>
+<polygon fill="#000000" stroke="#000000" points="74.6,-1381.47 66.08,-1387.76 76.67,-1388.16 74.6,-1381.47"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-1326 150,-1326 150,-1302 218,-1302 218,-1326"/>
+<text text-anchor="middle" x="184" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge36" class="edge">
-<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"/>
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.69,-1318.8C134.49,-1321.93 116.66,-1326.98 102,-1335 81.93,-1345.97 63.19,-1364.18 50.49,-1378.2"/>
+<polygon fill="#000000" stroke="#000000" points="47.7,-1376.07 43.74,-1385.89 52.97,-1380.68 47.7,-1376.07"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1284 141,-1284 141,-1260 227,-1260 227,-1284"/>
+<text text-anchor="middle" x="184" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge37" class="edge">
-<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"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.88,-1276.79C127.53,-1279.85 113.31,-1284.84 102,-1293 72.56,-1314.23 52.58,-1352.49 42.25,-1376.5"/>
+<polygon fill="#000000" stroke="#000000" points="38.98,-1375.24 38.42,-1385.82 45.46,-1377.91 38.98,-1375.24"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1242 141,-1242 141,-1218 227,-1218 227,-1242"/>
+<text text-anchor="middle" x="184" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.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="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"/>
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.59,-1233.79C127.07,-1236.77 112.82,-1241.97 102,-1251 62.99,-1283.56 45.17,-1343.39 38.07,-1375.78"/>
+<polygon fill="#000000" stroke="#000000" points="34.55,-1375.5 35.98,-1386 41.41,-1376.9 34.55,-1375.5"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220,-1200 148,-1200 148,-1176 220,-1176 220,-1200"/>
+<text text-anchor="middle" x="184" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge39" class="edge">
-<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"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.99,-1189.78C132.25,-1192.27 114.45,-1197.64 102,-1209 53.12,-1253.59 39.34,-1335.89 35.49,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="31.98,-1375.45 34.62,-1385.71 38.95,-1376.04 31.98,-1375.45"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226,-1158 142,-1158 142,-1134 226,-1134 226,-1158"/>
+<text text-anchor="middle" x="184" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge40" class="edge">
-<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"/>
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.89,-1148.47C127.67,-1151.27 112.65,-1156.69 102,-1167 42.89,-1224.21 34.47,-1329.95 33.74,-1375.82"/>
+<polygon fill="#000000" stroke="#000000" points="30.24,-1375.86 33.7,-1385.88 37.24,-1375.9 30.24,-1375.86"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211.5,-1116 156.5,-1116 156.5,-1092 211.5,-1092 211.5,-1116"/>
+<text text-anchor="middle" x="184" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge41" class="edge">
-<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"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.23,-1104.19C138.54,-1105.77 116.11,-1110.76 102,-1125 66.4,-1160.94 43.89,-1317.47 36.59,-1375.9"/>
+<polygon fill="#000000" stroke="#000000" points="33.11,-1375.56 35.37,-1385.91 40.06,-1376.41 33.11,-1375.56"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="219.5,-1074 148.5,-1074 148.5,-1050 219.5,-1050 219.5,-1074"/>
+<text text-anchor="middle" x="184" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge42" 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.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"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.11,-1062.95C132.01,-1065.2 113.87,-1070.63 102,-1083 61.25,-1125.46 41.55,-1310.85 35.83,-1375.59"/>
+<polygon fill="#000000" stroke="#000000" points="32.31,-1375.63 34.95,-1385.89 39.29,-1376.23 32.31,-1375.63"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1032 157,-1032 157,-1008 211,-1008 211,-1032"/>
+<text text-anchor="middle" x="184" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge43" class="edge">
-<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"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.74,-1019.88C138.82,-1021.27 115.9,-1026.16 102,-1041 56.04,-1090.07 39.47,-1304.89 35.22,-1375.45"/>
+<polygon fill="#000000" stroke="#000000" points="31.7,-1375.66 34.62,-1385.84 38.69,-1376.06 31.7,-1375.66"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-990 144.5,-990 144.5,-966 223.5,-966 223.5,-990"/>
+<text text-anchor="middle" x="184" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge44" class="edge">
-<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"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-979.29C128.99,-981.8 112.71,-987.34 102,-999 50.79,-1054.75 37.61,-1299.25 34.72,-1375.32"/>
+<polygon fill="#000000" stroke="#000000" points="31.21,-1375.54 34.36,-1385.66 38.21,-1375.79 31.21,-1375.54"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-948 157,-948 157,-924 211,-924 211,-948"/>
+<text text-anchor="middle" x="184" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge45" class="edge">
-<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"/>
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.96,-935.71C138.91,-936.98 115.74,-941.81 102,-957 45.44,-1019.57 35.9,-1294.78 34.31,-1375.61"/>
+<polygon fill="#000000" stroke="#000000" points="30.81,-1375.62 34.14,-1385.68 37.81,-1375.74 30.81,-1375.62"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216.5,-906 151.5,-906 151.5,-882 216.5,-882 216.5,-906"/>
+<text text-anchor="middle" x="184" y="-891.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 -->
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge46" class="edge">
-<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"/>
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.38,-894.14C134.31,-895.96 114.28,-901.23 102,-915 40.09,-984.39 34.36,-1290.25 33.98,-1375.74"/>
+<polygon fill="#000000" stroke="#000000" points="30.48,-1375.87 33.96,-1385.88 37.48,-1375.88 30.48,-1375.87"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-864 141.5,-864 141.5,-840 226.5,-840 226.5,-864"/>
+<text text-anchor="middle" x="184" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge47" class="edge">
-<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"/>
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.39,-853.51C126.95,-856.19 111.9,-861.78 102,-873 34.79,-949.17 32.95,-1285.22 33.7,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="30.2,-1375.81 33.8,-1385.77 37.2,-1375.74 30.2,-1375.81"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.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">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge48" class="edge">
-<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"/>
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.47,-813.49C120.97,-816.65 109.84,-822.03 102,-831 65.45,-872.83 40.78,-1275.97 35.2,-1375.75"/>
+<polygon fill="#000000" stroke="#000000" points="31.7,-1375.72 34.64,-1385.89 38.69,-1376.1 31.7,-1375.72"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-780 150,-780 150,-756 218,-756 218,-780"/>
+<text text-anchor="middle" x="184" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge49" class="edge">
-<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"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.61,-768.18C132.86,-770.12 113.7,-775.5 102,-789 62.75,-834.28 39.92,-1271.52 35.01,-1375.77"/>
+<polygon fill="#000000" stroke="#000000" points="31.51,-1375.65 34.54,-1385.8 38.5,-1375.97 31.51,-1375.65"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211.5,-738 156.5,-738 156.5,-714 211.5,-714 211.5,-738"/>
+<text text-anchor="middle" x="184" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge50" class="edge">
-<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"/>
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.35,-725.53C138.25,-726.75 115.27,-731.58 102,-747 60.08,-795.72 39.14,-1266.78 34.84,-1375.63"/>
+<polygon fill="#000000" stroke="#000000" points="31.34,-1375.67 34.45,-1385.79 38.33,-1375.94 31.34,-1375.67"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="235.5,-696 132.5,-696 132.5,-672 235.5,-672 235.5,-696"/>
+<text text-anchor="middle" x="184" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge51" class="edge">
-<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"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.34,-687.37C120.83,-690.54 109.74,-695.95 102,-705 57.37,-757.19 38.4,-1262.58 34.69,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="31.19,-1375.76 34.37,-1385.86 38.18,-1375.98 31.19,-1375.76"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-654 157,-654 157,-630 211,-630 211,-654"/>
+<text text-anchor="middle" x="184" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.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="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"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.68,-641.46C138.49,-642.61 115.27,-647.4 102,-663 54.7,-718.62 37.72,-1257.76 34.57,-1375.4"/>
+<polygon fill="#000000" stroke="#000000" points="31.06,-1375.63 34.3,-1385.72 38.06,-1375.82 31.06,-1375.63"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-612 141,-612 141,-588 227,-588 227,-612"/>
+<text text-anchor="middle" x="184" y="-597.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 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge53" class="edge">
-<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"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.72,-601.37C126.37,-604.06 111.57,-609.69 102,-621 51.96,-680.15 37.04,-1254.56 34.44,-1375.66"/>
+<polygon fill="#000000" stroke="#000000" points="30.94,-1375.86 34.23,-1385.93 37.94,-1376 30.94,-1375.86"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node55" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-570 141,-570 141,-546 227,-546 227,-570"/>
+<text text-anchor="middle" x="184" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge54" class="edge">
-<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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.69,-559.35C126.34,-562.03 111.55,-567.67 102,-579 49.25,-641.63 36.42,-1250.62 34.34,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="30.83,-1375.84 34.17,-1385.9 37.83,-1375.96 30.83,-1375.84"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231.5,-528 136.5,-528 136.5,-504 231.5,-504 231.5,-528"/>
+<text text-anchor="middle" x="184" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge55" class="edge">
-<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"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.44,-518.21C123.47,-521.17 110.59,-526.76 102,-537 46.52,-603.14 35.83,-1247.08 34.24,-1375.71"/>
+<polygon fill="#000000" stroke="#000000" points="30.74,-1375.88 34.12,-1385.92 37.74,-1375.96 30.74,-1375.88"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="255,-486 113,-486 113,-462 255,-462 255,-486"/>
+<text text-anchor="middle" x="184" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge56" class="edge">
-<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"/>
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.69,-485.67C108.7,-488.24 105.07,-491.32 102,-495 43.77,-564.67 35.26,-1243.95 34.15,-1375.87"/>
+<polygon fill="#000000" stroke="#000000" points="30.65,-1375.95 34.07,-1385.98 37.65,-1376.01 30.65,-1375.95"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="214,-444 154,-444 154,-420 214,-420 214,-444"/>
+<text text-anchor="middle" x="184" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge57" class="edge">
-<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"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.83,-431.57C136.07,-432.99 114.46,-438.04 102,-453 41.08,-526.15 34.73,-1239.73 34.08,-1375.69"/>
+<polygon fill="#000000" stroke="#000000" points="30.58,-1375.74 34.03,-1385.76 37.58,-1375.77 30.58,-1375.74"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~fraggle_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225.5,-402 142.5,-402 142.5,-378 225.5,-378 225.5,-402"/>
+<text text-anchor="middle" x="184" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_util.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"/>
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.29,-390.98C127.42,-393.52 111.84,-399.15 102,-411 38.37,-487.64 34.22,-1235.84 34,-1375.58"/>
+<polygon fill="#000000" stroke="#000000" points="30.5,-1375.89 33.99,-1385.9 37.5,-1375.9 30.5,-1375.89"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~swiftest_driver.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>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="233,-360 135,-360 135,-336 233,-336 233,-360"/>
+<text text-anchor="middle" x="184" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_driver.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"/>
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.67,-350.54C122.27,-353.59 110.15,-359.15 102,-369 35.65,-449.14 33.73,-1232.16 33.94,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="30.44,-1375.74 33.96,-1385.73 37.44,-1375.73 30.44,-1375.74"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231,-318 137,-318 137,-294 231,-294 231,-318"/>
+<text text-anchor="middle" x="184" y="-303.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~~swiftest.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.77,-308.03C123.64,-310.96 110.6,-316.58 102,-327 32.91,-410.66 33.25,-1228.83 33.87,-1375.53"/>
+<polygon fill="#000000" stroke="#000000" points="30.38,-1375.97 33.92,-1385.95 37.38,-1375.93 30.38,-1375.97"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222,-276 146,-276 146,-252 222,-252 222,-276"/>
+<text text-anchor="middle" x="184" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.6,-264.42C129.74,-266.65 112.53,-272.22 102,-285 30.17,-372.19 32.8,-1225.69 33.82,-1375.58"/>
+<polygon fill="#000000" stroke="#000000" points="30.32,-1375.87 33.89,-1385.84 37.32,-1375.81 30.32,-1375.87"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-234 144.5,-234 144.5,-210 223.5,-210 223.5,-234"/>
+<text text-anchor="middle" x="184" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.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="M144.33,-222.59C128.83,-224.94 112.24,-230.54 102,-243 27.42,-333.74 32.36,-1222.83 33.77,-1375.69"/>
+<polygon fill="#000000" stroke="#000000" points="30.27,-1375.79 33.86,-1385.75 37.27,-1375.72 30.27,-1375.79"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222,-192 146,-192 146,-168 222,-168 222,-192"/>
+<text text-anchor="middle" x="184" y="-177.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~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.99,-180.34C130.02,-182.53 112.59,-188.08 102,-201 63.25,-248.25 38.37,-1216.3 34.52,-1375.83"/>
+<polygon fill="#000000" stroke="#000000" points="31.02,-1375.82 34.28,-1385.9 38.02,-1375.99 31.02,-1375.82"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="246,-150 122,-150 122,-126 246,-126 246,-150"/>
+<text text-anchor="middle" x="184" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M121.77,-144.72C114.17,-148 107.25,-152.59 102,-159 61.9,-207.99 38.1,-1212.01 34.48,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="30.98,-1375.79 34.26,-1385.87 37.98,-1375.95 30.98,-1375.79"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-108 157,-108 157,-84 211,-84 211,-108"/>
+<text text-anchor="middle" x="184" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.88,-95.28C138.55,-96.31 115.05,-101.03 102,-117 60.5,-167.79 37.79,-1209.95 34.44,-1375.83"/>
+<polygon fill="#000000" stroke="#000000" points="30.94,-1375.79 34.24,-1385.86 37.94,-1375.93 30.94,-1375.79"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-66 150,-66 150,-42 218,-42 218,-66"/>
+<text text-anchor="middle" x="184" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.68,-53.86C132.75,-55.68 113.39,-61.04 102,-75 59.15,-127.54 37.54,-1206.03 34.4,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="30.9,-1375.8 34.21,-1385.87 37.9,-1375.93 30.9,-1375.8"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-24 141.5,-24 141.5,0 226.5,0 226.5,-24"/>
+<text text-anchor="middle" x="184" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.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="M141.33,-13.03C126.7,-15.62 111.54,-21.28 102,-33 57.76,-87.32 37.27,-1203.36 34.36,-1375.73"/>
+<polygon fill="#000000" stroke="#000000" points="30.86,-1375.84 34.19,-1385.89 37.86,-1375.95 30.86,-1375.84"/>
 </g>
 </g>
 </svg>
@@ -1495,13 +1669,15 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-10"></a>   <span class="k">use </span><span class="n">rmvs_classes</span>
 <a name="ln-11"></a>   <span class="k">use </span><span class="n">helio_classes</span>
 <a name="ln-12"></a>   <span class="k">use </span><span class="n">symba_classes</span>
-<a name="ln-13"></a>   <span class="k">use </span><span class="n">lambda_function</span>
-<a name="ln-14"></a>   <span class="c">!use advisor_annotate</span>
-<a name="ln-15"></a>   <span class="c">!$ use omp_lib</span>
-<a name="ln-16"></a>   <span class="k">implicit none</span>
-<a name="ln-17"></a><span class="k">   public</span>
-<a name="ln-18"></a>
-<a name="ln-19"></a><span class="k">end module </span><span class="n">swiftest</span>
+<a name="ln-13"></a>   <span class="k">use </span><span class="n">fraggle_classes</span>
+<a name="ln-14"></a>   <span class="k">use </span><span class="n">lambda_function</span>
+<a name="ln-15"></a>   <span class="k">use </span><span class="n">walltime_classes</span>
+<a name="ln-16"></a>   <span class="c">!use advisor_annotate</span>
+<a name="ln-17"></a>   <span class="c">!$ use omp_lib</span>
+<a name="ln-18"></a>   <span class="k">implicit none</span>
+<a name="ln-19"></a><span class="k">   public</span>
+<a name="ln-20"></a>
+<a name="ln-21"></a><span class="k">end module </span><span class="n">swiftest</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/swiftest_classes.f90.html b/docs/sourcefile/swiftest_classes.f90.html
index 0dd0c66f0..4f0b829ce 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.">1112 statements</a>
+    title=" 8.9% of total for source files.">1445 statements</a>
      </li> 
      
      
@@ -303,1317 +303,1509 @@ <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="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)">
+<svg id="sourcefileswiftest_classesf90AfferentGraph" width="641pt" height="2173pt"
+ viewBox="0.00 0.00 641.00 2173.35" 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 2800)">
 <title>sourcefile~~swiftest_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 813,-2464 813,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 823,-2800 823,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,-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>
+<polygon fill="none" stroke="black" points="107,-1959 0,-1959 0,-1935 107,-1935 107,-1959"/>
+<text text-anchor="middle" x="53.5" y="-1944.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_classes.f90</text>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node2" class="node">
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="237,-1959 143,-1959 143,-1935 237,-1935 237,-1959"/>
+<text text-anchor="middle" x="190" y="-1944.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge1" class="edge">
-<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~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~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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.71,-1947C134.61,-1947 126.05,-1947 117.59,-1947"/>
+<polygon fill="#000000" stroke="#000000" points="117.34,-1943.5 107.34,-1947 117.34,-1950.5 117.34,-1943.5"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node3" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="792.5,-1620 681.5,-1620 681.5,-1596 792.5,-1596 792.5,-1620"/>
+<text text-anchor="middle" x="737" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.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_edge2" 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.47,-1145.58C675.05,-1143.5 656.53,-1138.07 645,-1125 489.33,-948.57 763.57,-456.65 577,-600"/>
-</g>
-<!-- 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_get_energy_momentum.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node4" class="node">
-<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_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge3" 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="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_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"/>
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M681.29,-1602.84C644.58,-1598.6 595.37,-1591.4 553,-1580 532.14,-1574.39 202.53,-1419.73 191,-1438"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="619,-1451 553,-1451 553,-1427 619,-1427 619,-1451"/>
+<text text-anchor="middle" x="586" y="-1436.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_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge4" 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.48,-1059.3C666.66,-1056.29 653.87,-1050.81 645,-1041 512,-893.89 734.26,-479.18 577,-600"/>
-</g>
-<!-- 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"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M681.37,-1600.92C671.84,-1597.79 662.58,-1593.34 655,-1587 615.65,-1554.06 597.92,-1493.44 590.93,-1460.95"/>
+<polygon fill="#000000" stroke="#000000" points="594.35,-1460.2 588.95,-1451.08 587.48,-1461.58 594.35,-1460.2"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="796,-1578 678,-1578 678,-1554 796,-1554 796,-1578"/>
+<text text-anchor="middle" x="737" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge5" 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.92,-1019.54C676.26,-1017.52 657.09,-1012.16 645,-999 523.31,-866.52 719.65,-490.4 577,-600"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge3" 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="M677.85,-1572.67C649.95,-1574.18 616.31,-1573.54 587,-1566"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.83,-1556.62C669.71,-1553.73 661.82,-1549.94 655,-1545 625.41,-1523.56 605.47,-1484.94 595.2,-1460.7"/>
+<polygon fill="#000000" stroke="#000000" points="598.38,-1459.25 591.39,-1451.29 591.9,-1461.87 598.38,-1459.25"/>
 </g>
 <!-- sourcefile~util_exit.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node7" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node5" 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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770.5,-1536 703.5,-1536 703.5,-1512 770.5,-1512 770.5,-1536"/>
+<text text-anchor="middle" x="737" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge6" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-1566C548.41,-1556.59 549.8,-1533.75 517,-1515 458.89,-1481.77 440.3,-1481.48 378,-1457 355.29,-1448.08 350.3,-1432.63 326.5,-1438"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M703.2,-1532.14C688.42,-1535.9 670.79,-1540.52 655,-1545 624.57,-1553.64 617.98,-1572.38 587,-1566"/>
 </g>
 <!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge40" class="edge">
+<g id="sourcefile~~swiftest_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="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~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~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge7" 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.43,-930.61C661.55,-927.37 652.14,-922.44 645,-915 545.83,-811.67 690.57,-512.74 577,-600"/>
-</g>
-<!-- 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~gr.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node9" class="node">
-<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~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge8" class="edge">
-<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~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~fragmentation.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node10" class="node">
-<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~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge9" class="edge">
-<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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M703.45,-1519.41C688.08,-1516.31 669.88,-1511.21 655,-1503 634.71,-1491.8 615.88,-1473.15 603.2,-1458.87"/>
+<polygon fill="#000000" stroke="#000000" points="605.66,-1456.35 596.48,-1451.05 600.35,-1460.92 605.66,-1456.35"/>
 </g>
 <!-- sourcefile~util_rescale.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node11" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node6" class="node">
 <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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779.5,-1410 694.5,-1410 694.5,-1386 779.5,-1386 779.5,-1410"/>
+<text text-anchor="middle" x="737" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge10" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge5" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.19,-1396.28C664.28,-1395.46 623.11,-1395.2 587,-1398"/>
 </g>
 <!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge49" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge58" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.31,-1408.53C681.66,-1411.8 667.74,-1415.48 655,-1419 646.56,-1421.33 637.56,-1423.92 628.96,-1426.43"/>
+<polygon fill="#000000" stroke="#000000" points="627.71,-1423.15 619.11,-1429.32 629.69,-1429.86 627.71,-1423.15"/>
 </g>
-<!-- sourcefile~kick.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node12" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M552.88,-1436.06C528.94,-1434.52 495.5,-1433.72 466.5,-1438"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.5,-1438C403.82,-1446.95 386.33,-1424.51 326.5,-1438"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.5,-1438C241.08,-1452.16 199.35,-1828.43 192.32,-1924.72"/>
+<polygon fill="#000000" stroke="#000000" points="188.82,-1924.59 191.64,-1934.81 195.8,-1925.06 188.82,-1924.59"/>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge11" class="edge">
-<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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node25" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378,-1410 273,-1410 273,-1386 378,-1386 378,-1410"/>
+<text text-anchor="middle" x="325.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge120" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M552.94,-1431.36C541.62,-1428.82 528.78,-1426.1 517,-1424 474.2,-1416.37 425.63,-1409.77 388.25,-1405.13"/>
+<polygon fill="#000000" stroke="#000000" points="388.37,-1401.62 378.02,-1403.88 387.52,-1408.57 388.37,-1401.62"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node21" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node31" 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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372.5,-2211 278.5,-2211 278.5,-2187 372.5,-2187 372.5,-2211"/>
+<text text-anchor="middle" x="325.5" y="-2196.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~~swiftest_classes.f90~~AfferentGraph_edge94" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge128" 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~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>
-</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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M584.64,-1451.13C582.77,-1503.28 572.04,-1713.08 517,-1874 474.16,-1999.25 379.98,-2129.61 342.42,-2178.7"/>
+<polygon fill="#000000" stroke="#000000" points="339.43,-2176.84 336.09,-2186.9 344.97,-2181.12 339.43,-2176.84"/>
 </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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="517,-2221 414,-2221 414,-2197 517,-2197 517,-2221"/>
+<text text-anchor="middle" x="465.5" y="-2206.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">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge138" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M584.76,-1451.05C583.02,-1533.18 570.65,-2011.46 517,-2145 510.31,-2161.65 497.87,-2177.5 487.01,-2189.26"/>
+<polygon fill="#000000" stroke="#000000" points="484.25,-2187.08 479.83,-2196.71 489.29,-2191.94 484.25,-2187.08"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node60" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node53" 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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-1959 278,-1959 278,-1935 373,-1935 373,-1959"/>
+<text text-anchor="middle" x="325.5" y="-1944.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">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge140" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.5,-1860C434.96,-1890.63 392.56,-1915.27 362.57,-1930.4"/>
+<polygon fill="#000000" stroke="#000000" points="360.72,-1927.41 353.3,-1934.98 363.82,-1933.69 360.72,-1927.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.44,-1451.35C586.75,-1507.07 584.58,-1737.58 466.5,-1860"/>
 </g>
 <!-- sourcefile~util_solve.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node14" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node8" class="node">
 <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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774.5,-1368 699.5,-1368 699.5,-1344 774.5,-1344 774.5,-1368"/>
+<text text-anchor="middle" x="737" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge13" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge7" 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.25,-722.34C674.43,-719.45 657.84,-714.26 645,-705 599.91,-672.47 621.09,-566.13 577,-600"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-1398C469.09,-1406.99 440.22,-1413.86 326.5,-1438"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.21,-1365.16C685.32,-1368.72 669.39,-1372.91 655,-1377 624.57,-1385.64 618.39,-1394.12 587,-1398"/>
 </g>
 <!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge59" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge68" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.39,-1361.31C684.92,-1364.46 668.55,-1369.38 655,-1377 635.55,-1387.94 635.54,-1397.02 619,-1412 616,-1414.72 612.78,-1417.54 609.59,-1420.28"/>
+<polygon fill="#000000" stroke="#000000" points="607.21,-1417.71 601.84,-1426.85 611.73,-1423.05 607.21,-1417.71"/>
 </g>
-<!-- sourcefile~setup.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node15" class="node">
-<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>
+<!-- sourcefile~util_coord.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-1326 698.5,-1326 698.5,-1302 775.5,-1302 775.5,-1326"/>
+<text text-anchor="middle" x="737" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge14" class="edge">
-<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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.4,-1312.45C683.08,-1309.93 666.35,-1304.46 655,-1293 567.01,-1204.16 695.55,-957.94 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.18,-1316.88C683.37,-1319.67 667.06,-1324.97 655,-1335 625.95,-1359.15 641.97,-1382.01 619,-1412 616.92,-1414.71 614.53,-1417.34 612.01,-1419.82"/>
+<polygon fill="#000000" stroke="#000000" points="609.36,-1417.49 604.23,-1426.76 614.02,-1422.71 609.36,-1417.49"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node16" class="node">
-<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>
+<!-- sourcefile~util_set.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node10" class="node">
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769,-1284 705,-1284 705,-1260 769,-1260 769,-1284"/>
+<text text-anchor="middle" x="737" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge15" 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.28,-631.57C671.63,-628.31 657.72,-624.61 645,-621 614.57,-612.36 602.08,-580.73 577,-600"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.73,-1271.1C687.98,-1269.02 668.15,-1263.73 655,-1251 578.1,-1176.57 679.91,-966.88 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.76,-1272.94C688.03,-1275.03 668.2,-1280.32 655,-1293 615.15,-1331.28 649.37,-1365.84 619,-1412 617.16,-1414.79 614.95,-1417.45 612.56,-1419.94"/>
+<polygon fill="#000000" stroke="#000000" points="610.05,-1417.49 605.05,-1426.83 614.78,-1422.65 610.05,-1417.49"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node17" class="node">
-<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>
+<!-- sourcefile~util_get_energy_momentum.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node11" class="node">
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="819,-1242 655,-1242 655,-1218 819,-1218 819,-1242"/>
+<text text-anchor="middle" x="737" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge16" class="edge">
-<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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge10" 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="M667.92,-1217.94C663.24,-1215.47 658.86,-1212.52 655,-1209 589.05,-1148.83 664.5,-975.69 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge72" 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="M666.28,-1242.2C662.15,-1244.65 658.33,-1247.55 655,-1251 604.03,-1303.71 657.01,-1349.3 619,-1412 617.27,-1414.86 615.12,-1417.56 612.77,-1420.07"/>
+<polygon fill="#000000" stroke="#000000" points="610.26,-1417.63 605.3,-1427 615.02,-1422.77 610.26,-1417.63"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node18" class="node">
-<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>
+<!-- sourcefile~obl.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node12" class="node">
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764,-1200 710,-1200 710,-1176 764,-1176 764,-1200"/>
+<text text-anchor="middle" x="737" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge17" 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.64,-564.06C638.06,-569.55 603,-580.02 577,-600"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.67,-1186.87C692.4,-1184.87 670.28,-1179.75 655,-1167 599.74,-1120.87 649.49,-984.27 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.68,-1187.83C691.74,-1189.19 668.81,-1194.07 655,-1209 592.79,-1276.27 664.75,-1332.61 619,-1412 617.47,-1414.66 615.57,-1417.17 613.48,-1419.52"/>
+<polygon fill="#000000" stroke="#000000" points="610.63,-1417.39 605.8,-1426.82 615.46,-1422.46 610.63,-1417.39"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node19" class="node">
-<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>
+<!-- sourcefile~util_append.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node13" class="node">
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-1158 694,-1158 694,-1134 780,-1134 780,-1158"/>
+<text text-anchor="middle" x="737" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge18" 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.26,-521.75C674.11,-524.93 658.26,-529.75 645,-537 608.85,-556.77 609.67,-574.9 577,-600"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.88,-1141.21C680.53,-1138.15 666.31,-1133.16 655,-1125 609.91,-1092.47 635.27,-992.41 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.65,-1147.76C679.48,-1150.51 664.8,-1156.08 655,-1167 581.48,-1248.9 672.53,-1315.84 619,-1412 617.51,-1414.68 615.64,-1417.21 613.56,-1419.57"/>
+<polygon fill="#000000" stroke="#000000" points="610.72,-1417.44 605.9,-1426.88 615.55,-1422.5 610.72,-1417.44"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_peri.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node14" class="node">
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-1116 703,-1116 703,-1092 771,-1092 771,-1116"/>
+<text text-anchor="middle" x="737" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.69,-1099.2C687.49,-1096.07 669.66,-1091.02 655,-1083 618.85,-1063.23 622.77,-999.55 587,-1020"/>
+</g>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.68,-1104.25C685.95,-1106.21 666.8,-1111.58 655,-1125 570.14,-1221.57 680.33,-1299.02 619,-1412 617.54,-1414.7 615.69,-1417.24 613.62,-1419.6"/>
+<polygon fill="#000000" stroke="#000000" points="610.78,-1417.47 605.98,-1426.92 615.62,-1422.53 610.78,-1417.47"/>
+</g>
+<!-- sourcefile~netcdf.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node15" class="node">
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="767,-1074 707,-1074 707,-1050 767,-1050 767,-1074"/>
+<text text-anchor="middle" x="737" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706.67,-1054.74C691.25,-1050.84 672.05,-1045.84 655,-1041 624.57,-1032.36 614.46,-1004.3 587,-1020"/>
+</g>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706.63,-1061.76C689.01,-1063.29 667.64,-1068.39 655,-1083 606.89,-1138.63 653.58,-1347.09 619,-1412 617.56,-1414.71 615.72,-1417.25 613.66,-1419.62"/>
+<polygon fill="#000000" stroke="#000000" points="610.82,-1417.5 606.04,-1426.95 615.67,-1422.54 610.82,-1417.5"/>
+</g>
+<!-- sourcefile~tides_spin_step.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node16" class="node">
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="789.5,-1032 684.5,-1032 684.5,-1008 789.5,-1008 789.5,-1032"/>
+<text text-anchor="middle" x="737" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge15" 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="M685.16,-1007.97C654.75,-1003.58 616.42,-1003.18 587,-1020"/>
+</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="M684.49,-1023.6C673.29,-1026.8 662.55,-1032.16 655,-1041 601.2,-1103.98 657.49,-1338.66 619,-1412 617.57,-1414.72 615.75,-1417.27 613.7,-1419.64"/>
+<polygon fill="#000000" stroke="#000000" points="610.86,-1417.52 606.08,-1426.97 615.71,-1422.56 610.86,-1417.52"/>
+</g>
+<!-- sourcefile~setup.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node17" class="node">
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-990 708.5,-990 708.5,-966 765.5,-966 765.5,-990"/>
+<text text-anchor="middle" x="737" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708.34,-981.67C677.19,-986.7 625.85,-997.79 587,-1020"/>
+</g>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M708.49,-977.52C690.47,-978.79 667.95,-983.69 655,-999 595.51,-1069.34 661.41,-1330.22 619,-1412 617.59,-1414.72 615.77,-1417.28 613.72,-1419.65"/>
+<polygon fill="#000000" stroke="#000000" points="610.89,-1417.53 606.12,-1426.99 615.74,-1422.57 610.89,-1417.53"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node18" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-948 703,-948 703,-924 771,-924 771,-948"/>
+<text text-anchor="middle" x="737" 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_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.69,-940.8C687.49,-943.93 669.66,-948.98 655,-957 618.85,-976.77 622.77,-999.55 587,-1020"/>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.84,-935.98C685.94,-937.84 666.58,-943.2 655,-957 589.81,-1034.7 665.34,-1321.78 619,-1412 617.63,-1414.67 615.87,-1417.18 613.88,-1419.51"/>
+<polygon fill="#000000" stroke="#000000" points="611.19,-1417.24 606.48,-1426.73 616.08,-1422.25 611.19,-1417.24"/>
+</g>
+<!-- sourcefile~util_valid.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node19" class="node">
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="773,-906 701,-906 701,-882 773,-882 773,-906"/>
+<text text-anchor="middle" x="737" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M700.88,-897.35C685.66,-900.18 668.31,-905.4 655,-915 609.91,-947.53 635.27,-992.41 587,-1020"/>
+</g>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M700.74,-894.19C684.35,-896.25 666.07,-901.72 655,-915 584.11,-1000.07 669.26,-1313.33 619,-1412 617.64,-1414.67 615.89,-1417.18 613.9,-1419.52"/>
+<polygon fill="#000000" stroke="#000000" points="611.21,-1417.25 606.5,-1426.74 616.1,-1422.26 611.21,-1417.25"/>
+</g>
+<!-- sourcefile~orbel.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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764.5,-864 709.5,-864 709.5,-840 764.5,-840 764.5,-864"/>
+<text text-anchor="middle" x="737" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~orbel.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"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.29,-853.17C692.08,-855.2 670.17,-860.34 655,-873 599.74,-919.13 649.49,-984.27 587,-1020"/>
 </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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge86" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.17,-851.38C690.98,-852.53 667.98,-857.34 655,-873 578.41,-965.44 673.19,-1304.88 619,-1412 617.65,-1414.68 615.9,-1417.19 613.92,-1419.53"/>
+<polygon fill="#000000" stroke="#000000" points="611.23,-1417.26 606.53,-1426.75 616.12,-1422.26 611.23,-1417.26"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_copy.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node21" class="node">
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="772.5,-822 701.5,-822 701.5,-798 772.5,-798 772.5,-822"/>
+<text text-anchor="middle" x="737" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_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="M299.5,-1386.91C274.62,-1373.25 230.59,-1353.59 191,-1359"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M701.4,-811.72C685.56,-814.17 667.56,-819.54 655,-831 589.05,-891.17 664.5,-975.69 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge87" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M701.1,-810.09C684.58,-812.09 666.09,-817.55 655,-831 572.71,-930.81 677.11,-1296.43 619,-1412 617.65,-1414.68 615.91,-1417.2 613.93,-1419.53"/>
+<polygon fill="#000000" stroke="#000000" points="611.24,-1417.27 606.54,-1426.76 616.14,-1422.27 611.24,-1417.27"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~kick.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,-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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764,-780 710,-780 710,-756 764,-756 764,-780"/>
+<text text-anchor="middle" x="737" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~kick.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,-433.46C680.16,-435.67 659.5,-440.9 645,-453 589.74,-499.13 634.08,-556.14 577,-600"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.8,-768.35C692.14,-769.97 669.51,-774.96 655,-789 578.1,-863.43 679.91,-966.88 587,-1020"/>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge88" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.91,-767.3C691.58,-768.34 668.09,-773.06 655,-789 567,-896.18 681.04,-1287.98 619,-1412 617.66,-1414.68 615.92,-1417.2 613.94,-1419.54"/>
+<polygon fill="#000000" stroke="#000000" points="611.26,-1417.27 606.56,-1426.77 616.15,-1422.27 611.26,-1417.27"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764,-738 710,-738 710,-714 764,-714 764,-738"/>
+<text text-anchor="middle" x="737" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge22" 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.96,-393.07C670.15,-395.97 655.63,-401.31 645,-411 579.05,-471.17 647.79,-545.61 577,-600"/>
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.99,-726.13C692.2,-727.62 669.31,-732.55 655,-747 567.01,-835.84 695.55,-957.94 587,-1020"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge90" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.89,-725.28C691.55,-726.32 668.06,-731.03 655,-747 608.15,-804.28 651.98,-1345.76 619,-1412 617.66,-1414.68 615.93,-1417.2 613.95,-1419.54"/>
+<polygon fill="#000000" stroke="#000000" points="611.27,-1417.28 606.57,-1426.78 616.16,-1422.28 611.27,-1417.28"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769.5,-696 704.5,-696 704.5,-672 769.5,-672 769.5,-696"/>
+<text text-anchor="middle" x="737" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
 <!-- 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.36,-684.53C687.49,-686.5 667.67,-691.79 655,-705 555.83,-808.33 711.34,-948.92 587,-1020"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.5,-1438C266.36,-1449.84 221.8,-1387.29 191,-1438"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-1020C395.37,-1128.41 540.54,-1394.4 326.5,-1438"/>
 </g>
 <!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge73" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge91" 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~tides_spin_step.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node25" class="node">
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M704.31,-683.69C687,-685.34 666.75,-690.59 655,-705 605.3,-765.96 653.95,-1341.53 619,-1412 617.67,-1414.69 615.93,-1417.21 613.96,-1419.55"/>
+<polygon fill="#000000" stroke="#000000" points="611.27,-1417.28 606.58,-1426.78 616.18,-1422.28 611.27,-1417.28"/>
 </g>
-</g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge24" 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.12,-310.79C663.34,-313.99 652.87,-319.05 645,-327 557.01,-415.84 676.15,-523.82 577,-600"/>
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.87,-1398.05C243,-1401.2 208.04,-1410.99 191,-1438"/>
 </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"/>
+<!-- sourcefile~util_spill.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node26" class="node">
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-360 703,-360 703,-336 771,-336 771,-360"/>
+<text text-anchor="middle" x="737" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+</a>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge25" 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,-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"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.88,-345.01C687.2,-342.27 668.9,-337.03 655,-327 609.91,-294.47 634.59,-193.25 587,-222"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge94" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M703,-347.74C685.94,-349.49 666.36,-354.83 655,-369 582.46,-459.47 669.67,-1307.7 619,-1412 617.69,-1414.7 615.97,-1417.23 614.01,-1419.57"/>
+<polygon fill="#000000" stroke="#000000" points="611.32,-1417.3 606.64,-1426.81 616.23,-1422.3 611.32,-1417.3"/>
+</g>
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764.5,-318 709.5,-318 709.5,-294 764.5,-294 764.5,-318"/>
+<text text-anchor="middle" x="737" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge26" 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.7,-265C674.7,-267.3 656.77,-272.74 645,-285 545.83,-388.33 690.57,-512.74 577,-600"/>
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.24,-302.47C692.83,-299.5 671.82,-294.2 655,-285 618.85,-265.23 622.26,-200.7 587,-222"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge95" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.4,-305.23C691.07,-306.26 667.8,-311.01 655,-327 579.61,-421.16 671.64,-1303.47 619,-1412 617.69,-1414.7 615.97,-1417.23 614.01,-1419.57"/>
+<polygon fill="#000000" stroke="#000000" points="611.33,-1417.31 606.65,-1426.81 616.23,-1422.3 611.33,-1417.31"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764,-276 710,-276 710,-252 764,-252 764,-276"/>
+<text text-anchor="middle" x="737" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge27" class="edge">
-<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"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.65,-257.49C693.77,-253.49 673.17,-248.16 655,-243 624.57,-234.36 614.07,-205.64 587,-222"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge97" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.78,-263.2C691.4,-264.19 667.88,-268.89 655,-285 576.76,-382.85 673.6,-1299.24 619,-1412 617.69,-1414.7 615.98,-1417.23 614.02,-1419.57"/>
+<polygon fill="#000000" stroke="#000000" points="611.33,-1417.31 606.65,-1426.82 616.24,-1422.3 611.33,-1417.31"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784.5,-234 689.5,-234 689.5,-210 784.5,-210 784.5,-234"/>
+<text text-anchor="middle" x="737" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge28" 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.14,-181.29C671.99,-183.8 655.71,-189.34 645,-201 523.31,-333.48 719.65,-490.4 577,-600"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.35,-210.18C658.17,-204.97 617.44,-203.61 587,-222"/>
 </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.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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge100" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.13,-223.96C676.15,-226.91 663.34,-232.56 655,-243 573.9,-344.54 675.57,-1295.01 619,-1412 617.69,-1414.7 615.98,-1417.23 614.02,-1419.58"/>
+<polygon fill="#000000" stroke="#000000" points="611.33,-1417.31 606.66,-1426.82 616.24,-1422.3 611.33,-1417.31"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="767,-192 707,-192 707,-168 767,-168 767,-192"/>
+<text text-anchor="middle" x="737" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge29" 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.85,-138.15C677.72,-139.96 657.47,-145.21 645,-159 512,-306.11 734.26,-479.18 577,-600"/>
-</g>
-<!-- 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_spill.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706.72,-183.54C675.27,-188.38 624.73,-199.21 587,-222"/>
 </g>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge102" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706.62,-179.39C688.76,-180.74 667.14,-185.78 655,-201 571.05,-306.23 677.53,-1290.78 619,-1412 617.7,-1414.7 615.98,-1417.23 614.02,-1419.58"/>
+<polygon fill="#000000" stroke="#000000" points="611.34,-1417.31 606.66,-1426.82 616.25,-1422.3 611.34,-1417.31"/>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge30" class="edge">
-<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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.21,-2191.79C251.19,-2186.01 217.33,-2175.98 191,-2159"/>
 </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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.84,-2186.81C303.9,-2172.68 285.91,-2148.45 273,-2126 241.65,-2071.49 213.01,-2002.88 199.38,-1968.59"/>
+<polygon fill="#000000" stroke="#000000" points="202.56,-1967.13 195.64,-1959.11 196.05,-1969.69 202.56,-1967.13"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge31" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M189,-2159C117.25,-2112.74 76.56,-2013.18 61.4,-1968.95"/>
+<polygon fill="#000000" stroke="#000000" points="64.64,-1967.59 58.17,-1959.2 58,-1969.79 64.64,-1967.59"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.19,-2196.88C419.54,-2190.26 397.92,-2182.51 378,-2178 337.26,-2168.78 226.11,-2181.63 191,-2159"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge116" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.7,-2196.98C465.95,-2108.38 469.93,-1556.51 378,-1424 375.94,-1421.03 373.44,-1418.38 370.66,-1416.02"/>
+<polygon fill="#000000" stroke="#000000" points="372.42,-1412.98 362.23,-1410.11 368.4,-1418.72 372.42,-1412.98"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge97" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge126" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.9,-2205.33C403.74,-2204.6 393.02,-2203.82 382.69,-2203.07"/>
+<polygon fill="#000000" stroke="#000000" points="382.75,-2199.57 372.52,-2202.34 382.24,-2206.55 382.75,-2199.57"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge127" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge143" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.03,-2196.71C436.25,-2155.37 365.45,-2020.94 337.75,-1968.36"/>
+<polygon fill="#000000" stroke="#000000" points="340.71,-1966.48 332.96,-1959.26 334.52,-1969.74 340.71,-1966.48"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~util_index.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775,-150 699,-150 699,-126 775,-126 775,-150"/>
+<text text-anchor="middle" x="737" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge32" class="edge">
-<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"/>
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.67,-143.66C684.41,-146.83 668.38,-151.68 655,-159 618.85,-178.77 622.26,-200.7 587,-222"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge106" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.83,-138.2C682.82,-140.37 665.41,-145.94 655,-159 568.19,-267.92 679.5,-1286.55 619,-1412 617.7,-1414.7 615.98,-1417.23 614.03,-1419.58"/>
+<polygon fill="#000000" stroke="#000000" points="611.34,-1417.31 606.67,-1426.82 616.25,-1422.3 611.34,-1417.31"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="776.5,-108 697.5,-108 697.5,-84 776.5,-84 776.5,-108"/>
+<text text-anchor="middle" x="737" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_resize.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"/>
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.2,-100.07C682.92,-103.04 667.25,-108.16 655,-117 609.91,-149.53 634.59,-193.25 587,-222"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge107" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.15,-96.44C681.61,-98.76 665.04,-104.39 655,-117 565.34,-229.61 681.46,-1282.31 619,-1412 617.7,-1414.7 615.99,-1417.23 614.03,-1419.58"/>
+<polygon fill="#000000" stroke="#000000" points="611.34,-1417.31 606.67,-1426.82 616.25,-1422.3 611.34,-1417.31"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764,-66 710,-66 710,-42 764,-42 764,-66"/>
+<text text-anchor="middle" x="737" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.67,-55.13C692.4,-57.13 670.28,-62.25 655,-75 599.74,-121.13 648.61,-184.78 587,-222"/>
 </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.29,-2190.7C675.64,-2187.53 658.89,-2182.6 645,-2175 608.85,-2155.23 617.62,-2118.91 577,-2112"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge110" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M709.76,-53.18C691.36,-54.16 667.84,-58.86 655,-75 608.74,-133.15 651.21,-1345.04 619,-1412 617.7,-1414.7 615.99,-1417.23 614.03,-1419.58"/>
+<polygon fill="#000000" stroke="#000000" points="611.34,-1417.32 606.67,-1426.83 616.25,-1422.3 611.34,-1417.32"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779.5,-24 694.5,-24 694.5,0 779.5,0 779.5,-24"/>
+<text text-anchor="middle" x="737" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-222C432.7,-314.01 474.74,-416.75 414,-584 280.09,-952.72 394.65,-1102.72 191,-1438"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M189,-1438C82.89,-1603.37 60.15,-1849.91 55.58,-1924.7"/>
+<polygon fill="#000000" stroke="#000000" points="52.08,-1924.65 55.01,-1934.83 59.07,-1925.04 52.08,-1924.65"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.38,-14.98C680.44,-17.86 665.73,-23.21 655,-33 589.05,-93.17 657.49,-167.23 587,-222"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge112" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.19,-12.91C679.53,-15.49 664.4,-21.17 655,-33 607.31,-92.99 652.2,-1342.93 619,-1412 617.7,-1414.7 615.99,-1417.24 614.03,-1419.58"/>
+<polygon fill="#000000" stroke="#000000" points="611.35,-1417.32 606.68,-1426.83 616.26,-1422.3 611.35,-1417.32"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="812,-2418 662,-2418 662,-2394 812,-2394 812,-2418"/>
+<text text-anchor="middle" x="737" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.84,-2393.96C661.17,-2391.46 657.83,-2388.5 655,-2385 596.74,-2312.97 633.72,-1643.46 619,-1552 613.8,-1519.68 602.53,-1483.45 594.86,-1460.93"/>
+<polygon fill="#000000" stroke="#000000" points="598.11,-1459.62 591.52,-1451.33 591.5,-1461.92 598.11,-1459.62"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge131" 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.86,-2418.05C653.72,-2422.19 616.11,-2422.32 587,-2406"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="781,-2376 693,-2376 693,-2352 781,-2352 781,-2376"/>
+<text text-anchor="middle" x="737" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge43" class="edge">
-<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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.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="M692.62,-2362.68C678.51,-2359.96 664.15,-2354.28 655,-2343 599.59,-2274.66 633.08,-1638.85 619,-1552 613.76,-1519.68 602.5,-1483.45 594.84,-1460.93"/>
+<polygon fill="#000000" stroke="#000000" points="598.09,-1459.63 591.51,-1451.33 591.48,-1461.92 598.09,-1459.63"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge133" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.6,-2374.86C680.41,-2378.02 667.16,-2381.55 655,-2385 624.57,-2393.64 614.59,-2421.47 587,-2406"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="776,-528 698,-528 698,-504 776,-504 776,-528"/>
+<text text-anchor="middle" x="737" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.65,-516.44C682,-518.74 665.22,-524.34 655,-537 593.88,-612.72 661.81,-1324.62 619,-1412 617.68,-1414.69 615.96,-1417.22 613.99,-1419.56"/>
+<polygon fill="#000000" stroke="#000000" points="611.3,-1417.3 606.62,-1426.8 616.21,-1422.29 611.3,-1417.3"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge114" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.88,-522.89C667.87,-527.95 624.92,-534.38 587,-537"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="793,-486 681,-486 681,-462 793,-462 793,-486"/>
+<text text-anchor="middle" x="737" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M680.79,-478.33C670.84,-481.63 661.56,-486.85 655,-495 591.03,-574.4 663.77,-1320.39 619,-1412 617.68,-1414.69 615.96,-1417.22 614,-1419.56"/>
+<polygon fill="#000000" stroke="#000000" points="611.31,-1417.3 606.63,-1426.8 616.21,-1422.29 611.31,-1417.3"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge115" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M680.79,-485.93C672.02,-488.51 663.15,-491.52 655,-495 622.33,-508.95 622.44,-534.55 587,-537"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="773.5,-2124 700.5,-2124 700.5,-2100 773.5,-2100 773.5,-2124"/>
+<text text-anchor="middle" x="737" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M700.3,-2109.39C670.01,-2107.8 625.47,-2106.93 587,-2112"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M700.3,-2111.78C684,-2109.69 665.94,-2104.2 655,-2091 616.71,-2044.78 629.23,-1611.14 619,-1552 613.39,-1519.57 602.13,-1483.1 594.58,-1460.59"/>
+<polygon fill="#000000" stroke="#000000" points="597.85,-1459.34 591.3,-1451.01 591.23,-1461.61 597.85,-1459.34"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-2670 698.5,-2670 698.5,-2646 775.5,-2646 775.5,-2670"/>
+<text text-anchor="middle" x="737" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.44,-2657.72C682.55,-2655.51 665.35,-2649.93 655,-2637 617.31,-2589.92 628.28,-1611.59 619,-1552 613.96,-1519.65 602.65,-1483.43 594.92,-1460.91"/>
+<polygon fill="#000000" stroke="#000000" points="598.17,-1459.6 591.56,-1451.32 591.57,-1461.92 598.17,-1459.6"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge125" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.4,-2667.37C684.7,-2670.88 669.11,-2674.99 655,-2679 624.57,-2687.64 617.74,-2707.44 587,-2700"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="790,-2334 684,-2334 684,-2310 790,-2310 790,-2334"/>
+<text text-anchor="middle" x="737" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.76,-2318.54C672.72,-2315.31 662.24,-2309.91 655,-2301 602.44,-2236.35 632.44,-1634.23 619,-1552 613.69,-1519.52 602.35,-1483.07 594.7,-1460.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.97,-1459.3 591.38,-1451 591.35,-1461.6 597.97,-1459.3"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge134" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.99,-2331.42C674.02,-2334.34 663.92,-2338.12 655,-2343 618.85,-2362.77 622.94,-2426.15 587,-2406"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-2082 703,-2082 703,-2058 771,-2058 771,-2082"/>
+<text text-anchor="middle" x="737" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.8,-2078.24C688.11,-2081.98 670.65,-2086.56 655,-2091 624.57,-2099.64 618.36,-2107.87 587,-2112"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_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="M702.8,-2070.05C685.9,-2068.2 666.53,-2062.84 655,-2049 619.56,-2006.47 628.59,-1606.53 619,-1552 613.3,-1519.58 602.06,-1483.11 594.54,-1460.6"/>
+<polygon fill="#000000" stroke="#000000" points="597.82,-1459.36 591.28,-1451.02 591.19,-1461.61 597.82,-1459.36"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779.5,-2040 694.5,-2040 694.5,-2016 779.5,-2016 779.5,-2040"/>
+<text text-anchor="middle" x="737" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.14,-2034.71C681.08,-2037.88 666.98,-2042.45 655,-2049 618.85,-2068.77 628.2,-2112.37 587,-2112"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.5,-2112C263.91,-2078.18 220.23,-2004.85 201.36,-1968.42"/>
+<polygon fill="#000000" stroke="#000000" points="204.33,-1966.54 196.7,-1959.19 198.08,-1969.7 204.33,-1966.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-2112C470.12,-2110.95 426.82,-2167.99 326.5,-2112"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.09,-2026.75C679.61,-2024.1 664.62,-2018.46 655,-2007 589.81,-1929.3 636.9,-1651.83 619,-1552 613.19,-1519.6 601.98,-1483.13 594.5,-1460.6"/>
+<polygon fill="#000000" stroke="#000000" points="597.77,-1459.37 591.25,-1451.02 591.14,-1461.62 597.77,-1459.37"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="776,-1746 698,-1746 698,-1722 776,-1722 776,-1746"/>
+<text text-anchor="middle" x="737" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.85,-1732.51C682.62,-1729.98 666.11,-1724.49 655,-1713 604.03,-1660.29 637,-1623.08 619,-1552 610.92,-1520.09 600.31,-1483.49 593.57,-1460.8"/>
+<polygon fill="#000000" stroke="#000000" points="596.9,-1459.73 590.68,-1451.15 590.19,-1461.73 596.9,-1459.73"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge147" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.61,-1737.99C683.22,-1740.94 667.37,-1746.08 655,-1755 609.91,-1787.53 642.6,-1860 587,-1860"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-1860C532.33,-1860 503.06,-1822.09 466.5,-1860"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="785,-444 689,-444 689,-420 785,-420 785,-444"/>
+<text text-anchor="middle" x="737" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.75,-434.09C675.91,-437.07 663.29,-442.7 655,-453 588.17,-536.09 665.74,-1316.16 619,-1412 617.69,-1414.7 615.96,-1417.22 614,-1419.57"/>
+<polygon fill="#000000" stroke="#000000" points="611.31,-1417.3 606.63,-1426.81 616.22,-1422.29 611.31,-1417.3"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge121" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.91,-438.87C677.22,-441.97 665.14,-446.47 655,-453 614.61,-479 634.92,-533.68 587,-537"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node48" class="node">
-<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>
+<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="776.5,-2628 697.5,-2628 697.5,-2604 776.5,-2604 776.5,-2628"/>
+<text text-anchor="middle" x="737" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.19,-2615.53C681.65,-2613.2 665.09,-2607.58 655,-2595 618.73,-2549.76 627.96,-1609.28 619,-1552 613.94,-1519.65 602.64,-1483.43 594.91,-1460.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.16,-1459.6 591.55,-1451.32 591.56,-1461.92 598.16,-1459.6"/>
+</g>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge122" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-2700C366.58,-2700 332.53,-2319.28 327.39,-2221.61"/>
+<polygon fill="#000000" stroke="#000000" points="330.87,-2221.21 326.9,-2211.38 323.88,-2221.54 330.87,-2221.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.44,-2621.94C683.5,-2625.11 668,-2629.89 655,-2637 618.85,-2656.77 627.04,-2709.7 587,-2700"/>
+</g>
+<!-- sourcefile~symba_discard.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node49" class="node">
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="788.5,-2292 685.5,-2292 685.5,-2268 788.5,-2268 788.5,-2292"/>
+<text text-anchor="middle" x="737" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.46,-2276.99C673.81,-2273.84 662.62,-2268.35 655,-2259 605.3,-2198.04 631.8,-1629.61 619,-1552 613.64,-1519.52 602.32,-1483.07 594.68,-1460.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.95,-1459.31 591.37,-1451 591.33,-1461.6 597.95,-1459.31"/>
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge129" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.46,-2286.97C674.73,-2290.07 663.95,-2294.54 655,-2301 609.91,-2333.53 635.5,-2433.19 587,-2406"/>
+</g>
+<!-- sourcefile~rmvs_util.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node50" class="node">
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="773.5,-1998 700.5,-1998 700.5,-1974 773.5,-1974 773.5,-1998"/>
+<text text-anchor="middle" x="737" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M700.41,-1985.68C684.14,-1983.57 666.07,-1978.09 655,-1965 595.51,-1894.66 635.62,-1642.61 619,-1552 613.06,-1519.62 601.89,-1483.15 594.44,-1460.61"/>
+<polygon fill="#000000" stroke="#000000" points="597.72,-1459.39 591.22,-1451.03 591.09,-1461.62 597.72,-1459.39"/>
+</g>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge139" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M700.47,-1982.58C685.35,-1979.73 668.2,-1974.52 655,-1965 609.91,-1932.47 642.6,-1860 587,-1860"/>
+</g>
+<!-- sourcefile~symba_setup.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node51" class="node">
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-2250 690,-2250 690,-2226 784,-2226 784,-2250"/>
+<text text-anchor="middle" x="737" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_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="M689.71,-2236.02C676.58,-2233.09 663.55,-2227.46 655,-2217 608.15,-2159.72 631.16,-1624.99 619,-1552 613.59,-1519.53 602.28,-1483.08 594.66,-1460.58"/>
+<polygon fill="#000000" stroke="#000000" points="597.93,-1459.32 591.36,-1451.01 591.31,-1461.6 597.93,-1459.32"/>
+</g>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge130" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-2406C517.12,-2367.95 483.9,-2273.58 471.92,-2230.76"/>
+<polygon fill="#000000" stroke="#000000" points="475.29,-2229.8 469.32,-2221.05 468.52,-2231.61 475.29,-2229.8"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.81,-2242.68C677.45,-2245.77 664.81,-2250.81 655,-2259 599.74,-2305.13 649.79,-2441.2 587,-2406"/>
+</g>
+<!-- sourcefile~symba_util.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node52" class="node">
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="778,-2586 696,-2586 696,-2562 778,-2562 778,-2586"/>
+<text text-anchor="middle" x="737" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M695.93,-2573.33C680.77,-2570.88 664.82,-2565.23 655,-2553 620.16,-2509.61 627.64,-1606.97 619,-1552 613.91,-1519.66 602.62,-1483.43 594.9,-1460.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.15,-1459.61 591.55,-1451.32 591.55,-1461.92 598.15,-1459.61"/>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge132" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M695.68,-2570.65C681.54,-2567.76 666.38,-2562.5 655,-2553 599.74,-2506.87 649.79,-2441.2 587,-2406"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.81,-1947C268.1,-1947 257.76,-1947 247.74,-1947"/>
+<polygon fill="#000000" stroke="#000000" points="247.44,-1943.5 237.44,-1947 247.44,-1950.5 247.44,-1943.5"/>
+</g>
+<!-- sourcefile~whm_drift.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node54" class="node">
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-1704 698.5,-1704 698.5,-1680 775.5,-1680 775.5,-1704"/>
+<text text-anchor="middle" x="737" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.29,-1690.56C668.14,-1689.76 624.81,-1689.38 587,-1692"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.21,-1690.15C683.04,-1687.56 666.48,-1682.12 655,-1671 653.05,-1669.11 609.73,-1518.37 593.27,-1460.91"/>
+<polygon fill="#000000" stroke="#000000" points="596.56,-1459.68 590.44,-1451.03 589.83,-1461.61 596.56,-1459.68"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node49" class="node">
-<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>
+<!-- sourcefile~helio_gr.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node55" class="node">
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-2796 703,-2796 703,-2772 771,-2772 771,-2796"/>
+<text text-anchor="middle" x="737" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.97,-2784.28C685.9,-2782.53 666.33,-2777.19 655,-2763 613.02,-2710.39 629.25,-1618.52 619,-1552 614.02,-1519.64 602.69,-1483.42 594.95,-1460.91"/>
+<polygon fill="#000000" stroke="#000000" points="598.19,-1459.59 591.57,-1451.32 591.59,-1461.91 598.19,-1459.59"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge123" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.69,-2779.2C687.49,-2776.07 669.66,-2771.02 655,-2763 618.85,-2743.23 627.04,-2709.7 587,-2700"/>
 </g>
 <!-- sourcefile~rmvs_step.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node50" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node56" class="node">
 <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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-1956 697,-1956 697,-1932 777,-1932 777,-1956"/>
+<text text-anchor="middle" x="737" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge65" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge70" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.72,-1943.09C681.5,-1940.63 665.28,-1935.04 655,-1923 601.2,-1860.02 634.35,-1633.4 619,-1552 612.9,-1519.65 601.77,-1483.17 594.38,-1460.63"/>
+<polygon fill="#000000" stroke="#000000" points="597.66,-1459.42 591.18,-1451.04 591.02,-1461.63 597.66,-1459.42"/>
 </g>
 <!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge128" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge142" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.62,-1937.88C682.89,-1934.7 667.75,-1929.97 655,-1923 618.85,-1903.23 628.2,-1860 587,-1860"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node51" class="node">
-<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>
+<!-- sourcefile~helio_drift.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node57" class="node">
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-2754 698.5,-2754 698.5,-2730 775.5,-2730 775.5,-2754"/>
+<text text-anchor="middle" x="737" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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="M698.42,-2741.73C682.53,-2739.52 665.34,-2733.94 655,-2721 614.45,-2670.23 628.93,-1616.21 619,-1552 614,-1519.64 602.68,-1483.42 594.94,-1460.91"/>
+<polygon fill="#000000" stroke="#000000" points="598.19,-1459.59 591.57,-1451.32 591.58,-1461.91 598.19,-1459.59"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge124" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.4,-2732.63C684.7,-2729.12 669.11,-2725.01 655,-2721 624.57,-2712.36 617.74,-2707.44 587,-2700"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node58" class="node">
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-1662 698.5,-1662 698.5,-1638 775.5,-1638 775.5,-1662"/>
+<text text-anchor="middle" x="737" y="-1647.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~~swiftest_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.4,-1659.37C684.7,-1662.88 669.11,-1666.99 655,-1671 624.57,-1679.64 618.56,-1689.82 587,-1692"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-1692C413.78,-1703.85 257.58,-1868.84 207.6,-1926.94"/>
+<polygon fill="#000000" stroke="#000000" points="204.81,-1924.81 201.01,-1934.7 210.15,-1929.34 204.81,-1924.81"/>
+</g>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.11,-1647.75C683.11,-1645.07 666.69,-1639.68 655,-1629 642.08,-1617.19 607.88,-1507.99 593.51,-1460.68"/>
+<polygon fill="#000000" stroke="#000000" points="596.85,-1459.64 590.6,-1451.08 590.15,-1461.67 596.85,-1459.64"/>
 </g>
 <!-- sourcefile~symba_kick.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node52" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node59" 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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-2544 694,-2544 694,-2520 780,-2520 780,-2544"/>
+<text text-anchor="middle" x="737" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge68" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge82" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.83,-2530.96C679.32,-2528.34 664.38,-2522.66 655,-2511 621.59,-2469.45 627.32,-1604.66 619,-1552 613.89,-1519.66 602.6,-1483.43 594.89,-1460.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.14,-1459.61 591.54,-1451.32 591.54,-1461.92 598.14,-1459.61"/>
 </g>
 <!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge110" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge135" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.88,-2527.21C680.53,-2524.15 666.31,-2519.16 655,-2511 609.91,-2478.47 635.5,-2433.19 587,-2406"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<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>
+<!-- sourcefile~rmvs_setup.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node60" class="node">
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-1914 694,-1914 694,-1890 780,-1890 780,-1914"/>
+<text text-anchor="middle" x="737" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.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"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.85,-1900.51C679.52,-1897.82 664.69,-1892.21 655,-1881 606.89,-1825.37 633.07,-1624.19 619,-1552 612.7,-1519.69 601.62,-1483.2 594.3,-1460.64"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-1459.45 591.13,-1451.05 590.94,-1461.64 597.59,-1459.45"/>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<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.92,-2328.31C661.96,-2332.77 614.92,-2335.79 577,-2322"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge145" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.86,-1891.47C681.32,-1888.23 667.58,-1884.57 655,-1881 624.57,-1872.36 618.63,-1860 587,-1860"/>
 </g>
-<!-- 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>
+<!-- sourcefile~fraggle_set.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779,-402 695,-402 695,-378 779,-378 779,-402"/>
+<text text-anchor="middle" x="737" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.67,-390.89C679.89,-393.44 664.55,-399.11 655,-411 585.32,-497.78 667.7,-1311.93 619,-1412 617.69,-1414.7 615.97,-1417.22 614.01,-1419.57"/>
+<polygon fill="#000000" stroke="#000000" points="611.32,-1417.3 606.64,-1426.81 616.22,-1422.3 611.32,-1417.3"/>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_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"/>
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.74,-394C681,-396.98 666.32,-402.13 655,-411 604.92,-450.26 650.48,-532.61 587,-537"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585,-537C405.16,-549.45 339.39,-1240.58 328.27,-1375.36"/>
+<polygon fill="#000000" stroke="#000000" points="324.75,-1375.44 327.43,-1385.69 331.73,-1376.01 324.75,-1375.44"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node55" class="node">
-<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>
+<!-- sourcefile~whm_step.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="776.5,-2208 697.5,-2208 697.5,-2184 776.5,-2184 776.5,-2208"/>
+<text text-anchor="middle" x="737" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.36,-2196.92C620.52,-2196.97 445.69,-2187.97 326.5,-2112"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge89" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M697.33,-2195.42C681.82,-2193.07 665.23,-2187.46 655,-2175 611,-2121.41 630.51,-1620.37 619,-1552 613.53,-1519.54 602.24,-1483.08 594.64,-1460.58"/>
+<polygon fill="#000000" stroke="#000000" points="597.91,-1459.32 591.34,-1451.01 591.29,-1461.6 597.91,-1459.32"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node56" class="node">
-<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>
+<!-- sourcefile~helio_setup.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779.5,-2712 694.5,-2712 694.5,-2688 779.5,-2688 779.5,-2712"/>
+<text text-anchor="middle" x="737" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge92" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.22,-2699.06C679.57,-2696.48 664.44,-2690.8 655,-2679 615.88,-2630.08 628.61,-1613.9 619,-1552 613.98,-1519.65 602.67,-1483.42 594.93,-1460.91"/>
+<polygon fill="#000000" stroke="#000000" points="598.18,-1459.6 591.56,-1451.32 591.57,-1461.91 598.18,-1459.6"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge127" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.27,-2705.2C664.05,-2707.71 622.45,-2708.58 587,-2700"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node57" class="node">
-<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>
+<!-- sourcefile~fraggle_regime.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="788.5,-654 685.5,-654 685.5,-630 788.5,-630 788.5,-654"/>
+<text text-anchor="middle" x="737" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge93" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.44,-644.99C673.79,-648.15 662.61,-653.64 655,-663 602.44,-727.65 655.91,-1337.3 619,-1412 617.67,-1414.69 615.94,-1417.21 613.97,-1419.55"/>
+<polygon fill="#000000" stroke="#000000" points="611.28,-1417.29 606.59,-1426.79 616.18,-1422.28 611.28,-1417.29"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge118" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.1,-634.07C674.62,-631.03 664.04,-626.82 655,-621 614.61,-595 634.92,-533.68 587,-537"/>
 </g>
 <!-- sourcefile~operator_cross.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node58" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node65" class="node">
 <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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="788.5,-1452 685.5,-1452 685.5,-1428 788.5,-1428 788.5,-1452"/>
+<text text-anchor="middle" x="737" y="-1437.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.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge79" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge96" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.14,-1439.66C667.13,-1439.54 647.06,-1439.4 629.79,-1439.29"/>
+<polygon fill="#000000" stroke="#000000" points="629.46,-1435.78 619.44,-1439.22 629.41,-1442.78 629.46,-1435.78"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node59" class="node">
-<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>
+<!-- sourcefile~symba_drift.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-2502 694,-2502 694,-2478 780,-2478 780,-2502"/>
+<text text-anchor="middle" x="737" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </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"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge98" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.85,-2488.95C679.33,-2486.33 664.39,-2480.65 655,-2469 623.01,-2429.3 627,-1602.35 619,-1552 613.86,-1519.67 602.58,-1483.44 594.88,-1460.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.13,-1459.61 591.53,-1451.32 591.52,-1461.92 598.13,-1459.61"/>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge137" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.72,-2483.19C680.78,-2480.03 666.85,-2475.48 655,-2469 618.85,-2449.23 622.94,-2426.15 587,-2406"/>
+</g>
+<!-- sourcefile~whm_coord.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-2166 694,-2166 694,-2142 780,-2142 780,-2166"/>
+<text text-anchor="middle" x="737" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.86,-2143.47C681.32,-2140.23 667.58,-2136.57 655,-2133 624.57,-2124.36 618.36,-2107.87 587,-2112"/>
+</g>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.99,-2152.83C679.49,-2150.2 664.52,-2144.55 655,-2133 613.85,-2083.1 629.87,-1615.76 619,-1552 613.47,-1519.55 602.19,-1483.09 594.61,-1460.58"/>
+<polygon fill="#000000" stroke="#000000" points="597.88,-1459.33 591.32,-1451.01 591.26,-1461.61 597.88,-1459.33"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="808,-1872 666,-1872 666,-1848 808,-1848 808,-1872"/>
+<text text-anchor="middle" x="737" y="-1857.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~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge101" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.89,-1848.15C661.86,-1845.62 658.16,-1842.6 655,-1839 612.57,-1790.72 631.79,-1614.99 619,-1552 612.45,-1519.74 601.43,-1483.23 594.19,-1460.66"/>
+<polygon fill="#000000" stroke="#000000" points="597.49,-1459.48 591.07,-1451.06 590.83,-1461.65 597.49,-1459.48"/>
+</g>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge141" 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="M665.89,-1860C640.98,-1860 612.74,-1860 587,-1860"/>
+</g>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="778.5,-612 695.5,-612 695.5,-588 778.5,-588 778.5,-612"/>
+<text text-anchor="middle" x="737" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.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"/>
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M695.15,-600.86C680.25,-603.38 664.7,-609.04 655,-621 599.59,-689.34 657.88,-1333.08 619,-1412 617.68,-1414.69 615.95,-1417.21 613.98,-1419.56"/>
+<polygon fill="#000000" stroke="#000000" points="611.29,-1417.29 606.6,-1426.79 616.19,-1422.29 611.29,-1417.29"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node61" class="node">
-<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>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge117" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M695.25,-591.96C682.12,-588.71 667.69,-584.42 655,-579 622.33,-565.05 622.44,-534.55 587,-537"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="786,-1494 688,-1494 688,-1470 786,-1470 786,-1494"/>
+<text text-anchor="middle" x="737" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge104" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.9,-1470.03C677.05,-1467.19 665.6,-1464.09 655,-1461 646.43,-1458.51 637.31,-1455.68 628.62,-1452.9"/>
+<polygon fill="#000000" stroke="#000000" points="629.64,-1449.55 619.05,-1449.8 627.49,-1456.21 629.64,-1449.55"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node71" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node71"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-1830 690,-1830 690,-1806 784,-1806 784,-1830"/>
+<text text-anchor="middle" x="737" y="-1815.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~~swiftest_classes.f90~~AfferentGraph_edge105" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.86,-1815.43C676.9,-1812.46 663.93,-1806.95 655,-1797 618.24,-1756.05 630.52,-1605.81 619,-1552 612.11,-1519.81 601.18,-1483.29 594.05,-1460.69"/>
+<polygon fill="#000000" stroke="#000000" points="597.36,-1459.54 590.98,-1451.08 590.69,-1461.67 597.36,-1459.54"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge144" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.64,-1829.63C678.28,-1832.59 666.18,-1835.83 655,-1839 624.57,-1847.64 618.63,-1860 587,-1860"/>
 </g>
 <!-- sourcefile~symba_io.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node62" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node72" class="node">
 <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>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node72"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775,-2460 699,-2460 699,-2436 775,-2436 775,-2460"/>
+<text text-anchor="middle" x="737" y="-2445.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~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge84" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge108" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.9,-2447.74C682.9,-2445.56 665.49,-2440 655,-2427 593.88,-2351.28 634.36,-1648.08 619,-1552 613.83,-1519.67 602.56,-1483.44 594.87,-1460.92"/>
+<polygon fill="#000000" stroke="#000000" points="598.12,-1459.62 591.53,-1451.33 591.51,-1461.92 598.12,-1459.62"/>
 </g>
 <!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge114" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge136" 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.85,-1660.59C650.97,-1670.45 595.25,-1682.09 577,-1671"/>
-</g>
-<!-- sourcefile~whm_kick.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node63" class="node">
-<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~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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.92,-2442.56C667.58,-2436.82 622.28,-2425.78 587,-2406"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node64" class="node">
-<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>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node73" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node73"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="799,-570 675,-570 675,-546 799,-546 799,-570"/>
+<text text-anchor="middle" x="737" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge109" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M674.7,-564.67C667.11,-567.95 660.21,-572.56 655,-579 596.74,-651.03 659.84,-1328.85 619,-1412 617.68,-1414.69 615.95,-1417.22 613.98,-1419.56"/>
+<polygon fill="#000000" stroke="#000000" points="611.3,-1417.29 606.61,-1426.8 616.2,-1422.29 611.3,-1417.29"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge119" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.53,-545.97C658.48,-540.07 620.75,-534.66 587,-537"/>
 </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>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node74" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node74"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-1788 703,-1788 703,-1764 771,-1764 771,-1788"/>
+<text text-anchor="middle" x="737" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.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"/>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge111" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.95,-1775.51C686.3,-1773.48 667.13,-1768.12 655,-1755 592.79,-1687.73 639.51,-1641.31 619,-1552 611.63,-1519.92 600.83,-1483.36 593.86,-1460.73"/>
+<polygon fill="#000000" stroke="#000000" points="597.17,-1459.61 590.86,-1451.1 590.49,-1461.69 597.17,-1459.61"/>
 </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"/>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge146" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M702.69,-1780.8C687.49,-1783.93 669.66,-1788.98 655,-1797 618.85,-1816.77 628.2,-1860 587,-1860"/>
 </g>
 </g>
 </svg>
@@ -1716,1317 +1908,1695 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-7"></a>   <span class="k">implicit none</span>
 <a name="ln-8"></a><span class="k">   public</span>
 <a name="ln-9"></a>
-<a name="ln-10"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-11"></a>   <span class="c">! swiftest_parameters class definitions </span>
-<a name="ln-12"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-13"></a>
-<a name="ln-14"></a>   <span class="c">!&gt; User defined parameters that are read in from the parameters input file. </span>
-<a name="ln-15"></a>   <span class="c">!&gt;    Each paramter is initialized to a default values. </span>
-<a name="ln-16"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">swiftest_parameters</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">integrator</span>     <span class="o">=</span> <span class="n">UNKNOWN_INTEGRATOR</span> <span class="c">!! Symbolic name of the nbody integrator  used</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="kd">::</span> <span class="n">nplmax</span>         <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>                 <span class="c">!! Maximum allowed number of massive bodies</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="kd">::</span> <span class="n">ntpmax</span>         <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>                 <span class="c">!! Maximum allowed number of test particles</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="kd">::</span> <span class="n">t0</span>             <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Integration start time</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="kd">::</span> <span class="n">t</span>              <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Integration current time</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">tstop</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Integration stop time</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">dt</span>             <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Time step</span>
-<a name="ln-24"></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">incbfile</span>       <span class="o">=</span> <span class="n">CB_INFILE</span>          <span class="c">!! Name of input file for the central body</span>
-<a name="ln-25"></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">inplfile</span>       <span class="o">=</span> <span class="n">PL_INFILE</span>          <span class="c">!! Name of input file for massive bodies</span>
-<a name="ln-26"></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">intpfile</span>       <span class="o">=</span> <span class="n">TP_INFILE</span>          <span class="c">!! Name of input file for test particles</span>
-<a name="ln-27"></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">in_type</span>        <span class="o">=</span> <span class="n">ASCII_TYPE</span>         <span class="c">!! Format of input data files</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">istep_out</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>                 <span class="c">!! Number of time steps between binary outputs</span>
-<a name="ln-29"></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">outfile</span>        <span class="o">=</span> <span class="n">BIN_OUTFILE</span>        <span class="c">!! Name of output binary file</span>
-<a name="ln-30"></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">out_type</span>       <span class="o">=</span> <span class="n">REAL8_TYPE</span>         <span class="c">!! Binary format of output file</span>
-<a name="ln-31"></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">out_form</span>       <span class="o">=</span> <span class="n">XV</span>                 <span class="c">!! Data to write to output file</span>
-<a name="ln-32"></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">out_stat</span>       <span class="o">=</span> <span class="s1">&#39;NEW&#39;</span>              <span class="c">!! Open status for output binary file</span>
-<a name="ln-33"></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">istep_dump</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>                 <span class="c">!! Number of time steps between dumps</span>
-<a name="ln-34"></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">rmin</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Minimum heliocentric radius for test particle</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">rmax</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Maximum heliocentric radius for test particle</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">rmaxu</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Maximum unbound heliocentric radius for test particle</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">qmin</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Minimum pericenter distance for test particle</span>
-<a name="ln-38"></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">qmin_coord</span>     <span class="o">=</span> <span class="s1">&#39;HELIO&#39;</span>            <span class="c">!! Coordinate frame to use for qmin</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="kd">::</span> <span class="n">qmin_alo</span>       <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Minimum semimajor axis for qmin</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="kd">::</span> <span class="n">qmin_ahi</span>       <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Maximum semimajor axis for qmin</span>
-<a name="ln-41"></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">enc_out</span>        <span class="o">=</span> <span class="s2">&quot;&quot;</span>                 <span class="c">!! Name of output file for encounters</span>
-<a name="ln-42"></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">discard_out</span>    <span class="o">=</span> <span class="s2">&quot;&quot;</span>                 <span class="c">!! Name of output file for discards</span>
-<a name="ln-43"></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">MU2KG</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_QP</span>            <span class="c">!! Converts mass units to grams</span>
-<a name="ln-44"></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">TU2S</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_QP</span>            <span class="c">!! Converts time units to seconds</span>
-<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">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>
-<a name="ln-52"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lextra_force</span>   <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! User defined force function turned on</span>
-<a name="ln-53"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lbig_discard</span>   <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Save big bodies on every discard</span>
-<a name="ln-54"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lclose</span>         <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Turn on close encounters</span>
-<a name="ln-55"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lenergy</span>        <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Track the total energy of the system</span>
-<a name="ln-56"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">loblatecb</span>      <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input)</span>
-<a name="ln-57"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lrotation</span>      <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Include rotation states of big bodies</span>
-<a name="ln-58"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">ltides</span>         <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Include tidal dissipation </span>
-<a name="ln-59"></a>
-<a name="ln-60"></a>      <span class="c">! 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)</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">Eorbit_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>   <span class="c">!! Initial orbital energy</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="kd">::</span> <span class="n">Mtot_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Initial system mass</span>
-<a name="ln-63"></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">Lmag_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Initial total angular momentum magnitude</span>
-<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-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>      <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-10"></a><span class="k">   type</span> <span class="kd">::</span> <span class="n">netcdf_parameters</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="kd">::</span> <span class="n">out_type</span>              <span class="c">!! NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter)</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="kd">::</span> <span class="n">ncid</span>                  <span class="c">!! NetCDF ID for the output file</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="kd">::</span> <span class="n">dimids</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>             <span class="c">!! Dimensions of the NetCDF file</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">time_dimid</span>            <span class="c">!! NetCDF ID for the time dimension </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">id_dimid</span>              <span class="c">!! NetCDF ID for the particle id dimension</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">str_dimid</span>             <span class="c">!! NetCDF ID for the character string dimension</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">time_varid</span>            <span class="c">!! NetCDF ID for the time variable</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="kd">::</span> <span class="n">id_varid</span>              <span class="c">!! NetCDF ID for the particle name variable</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="kd">::</span> <span class="n">name_varid</span>            <span class="c">!! NetCDF ID for the namevariable </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">ptype_varid</span>           <span class="c">!! NetCDF ID for the particle type variable</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">npl_varid</span>             <span class="c">!! NetCDF ID for the number of active massive bodies variable</span>
+<a name="ln-22"></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">ntp_varid</span>             <span class="c">!! NetCDF ID for the number of active test particles variable</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="kd">::</span> <span class="n">a_varid</span>               <span class="c">!! NetCDF ID for the semimajor axis variable </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">e_varid</span>               <span class="c">!! NetCDF ID for the eccentricity variable </span>
+<a name="ln-25"></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">inc_varid</span>             <span class="c">!! NetCDF ID for the inclination variable </span>
+<a name="ln-26"></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">capom_varid</span>           <span class="c">!! NetCDF ID for the long. asc. node variable </span>
+<a name="ln-27"></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">omega_varid</span>           <span class="c">!! NetCDF ID for the arg. periapsis variable </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">capm_varid</span>            <span class="c">!! NetCDF ID for the mean anomaly variable </span>
+<a name="ln-29"></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">xhx_varid</span>             <span class="c">!! NetCDF ID for the heliocentric position x variable </span>
+<a name="ln-30"></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">xhy_varid</span>             <span class="c">!! NetCDF ID for the heliocentric position y variable </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="kd">::</span> <span class="n">xhz_varid</span>             <span class="c">!! NetCDF ID for the heliocentric position z variable </span>
+<a name="ln-32"></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">vhx_varid</span>             <span class="c">!! NetCDF ID for the heliocentric velocity x variable </span>
+<a name="ln-33"></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">vhy_varid</span>             <span class="c">!! NetCDF ID for the heliocentric velocity y variable </span>
+<a name="ln-34"></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">vhz_varid</span>             <span class="c">!! NetCDF ID for the heliocentric velocity z variable </span>
+<a name="ln-35"></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">Gmass_varid</span>           <span class="c">!! NetCDF ID for the mass variable</span>
+<a name="ln-36"></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">rhill_varid</span>           <span class="c">!! NetCDF ID for the hill radius variable</span>
+<a name="ln-37"></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">radius_varid</span>          <span class="c">!! NetCDF ID for the radius variable</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="kd">::</span> <span class="n">Ip1_varid</span>             <span class="c">!! NetCDF ID for the axis 1 principal moment of inertia variable</span>
+<a name="ln-39"></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">Ip2_varid</span>             <span class="c">!! NetCDF ID for the axis 2 principal moment of inertia variable</span>
+<a name="ln-40"></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">Ip3_varid</span>             <span class="c">!! NetCDF ID for the axis 3 principal moment of inertia variable</span>
+<a name="ln-41"></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">rotx_varid</span>            <span class="c">!! NetCDF ID for the rotation x variable</span>
+<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="kd">::</span> <span class="n">roty_varid</span>            <span class="c">!! NetCDF ID for the rotation y variable</span>
+<a name="ln-43"></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">rotz_varid</span>            <span class="c">!! NetCDF ID for the rotation z variable</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">k2_varid</span>              <span class="c">!! NetCDF ID for the Love number variable</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="kd">::</span> <span class="n">Q_varid</span>               <span class="c">!! NetCDF ID for the energy dissipation variable</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">KE_orb_varid</span>          <span class="c">!! NetCDF ID for the system orbital kinetic energy variable</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">KE_spin_varid</span>         <span class="c">!! NetCDF ID for the system spin kinetic energy variable</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">PE_varid</span>              <span class="c">!! NetCDF ID for the system potential energy variable</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">L_orbx_varid</span>          <span class="c">!! NetCDF ID for the system orbital angular momentum x variable</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">L_orby_varid</span>          <span class="c">!! NetCDF ID for the system orbital angular momentum y variable</span>
+<a name="ln-51"></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">L_orbz_varid</span>          <span class="c">!! NetCDF ID for the system orbital angular momentum z variable</span>
+<a name="ln-52"></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">L_spinx_varid</span>         <span class="c">!! NetCDF ID for the system spin angular momentum x variable</span>
+<a name="ln-53"></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">L_spiny_varid</span>         <span class="c">!! NetCDF ID for the system spin angular momentum y variable</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">L_spinz_varid</span>         <span class="c">!! NetCDF ID for the system spin angular momentum z variable</span>
+<a name="ln-55"></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">L_escapex_varid</span>       <span class="c">!! NetCDF ID for the escaped angular momentum x variable</span>
+<a name="ln-56"></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">L_escapey_varid</span>       <span class="c">!! NetCDF ID for the escaped angular momentum x variable</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">L_escapez_varid</span>       <span class="c">!! NetCDF ID for the escaped angular momentum x variable</span>
+<a name="ln-58"></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">Ecollisions_varid</span>     <span class="c">!! NetCDF ID for the energy lost in collisions variable</span>
+<a name="ln-59"></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">Euntracked_varid</span>      <span class="c">!! NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)</span>
+<a name="ln-60"></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">GMescape_varid</span>        <span class="c">!! NetCDF ID for the G*Mass of bodies that escape the system</span>
+<a name="ln-61"></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_varid</span>          <span class="c">!! NetCDF ID for the status variable</span>
+<a name="ln-62"></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">origin_type_varid</span>     <span class="c">!! NetCDF ID for the origin type</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="kd">::</span> <span class="n">origin_time_varid</span>     <span class="c">!! NetCDF ID for the origin time</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">origin_xhx_varid</span>      <span class="c">!! NetCDF ID for the origin xh x component</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">origin_xhy_varid</span>      <span class="c">!! NetCDF ID for the origin xh y component</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="kd">::</span> <span class="n">origin_xhz_varid</span>      <span class="c">!! NetCDF ID for the origin xh z component</span>
+<a name="ln-67"></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">origin_vhx_varid</span>      <span class="c">!! NetCDF ID for the origin xh x component</span>
+<a name="ln-68"></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">origin_vhy_varid</span>      <span class="c">!! NetCDF ID for the origin xh y component</span>
+<a name="ln-69"></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">origin_vhz_varid</span>      <span class="c">!! NetCDF ID for the origin xh z component</span>
+<a name="ln-70"></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">discard_time_varid</span>    <span class="c">!! NetCDF ID for the time of discard variable</span>
+<a name="ln-71"></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">discard_xhx_varid</span>     <span class="c">!! NetCDF ID for the heliocentric position of the body at the time of discard x variable</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">discard_xhy_varid</span>     <span class="c">!! NetCDF ID for the heliocentric position of the body at the time of discard y variable</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="kd">::</span> <span class="n">discard_xhz_varid</span>     <span class="c">!! NetCDF ID for the heliocentric position of the body at the time of discard z variable</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">discard_vhx_varid</span>     <span class="c">!! NetCDF ID for the heliocentric velocity of the body at the time of discard x variable</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="kd">::</span> <span class="n">discard_vhy_varid</span>     <span class="c">!! NetCDF ID for the heliocentric velocity of the body at the time of discard y variable</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">discard_vhz_varid</span>     <span class="c">!! NetCDF ID for the heliocentric velocity of the body at the time of discard z variable</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">discard_body_id_varid</span> <span class="c">!! NetCDF ID for the id of the other body involved in the discard</span>
+<a name="ln-78"></a>   
+<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="k">close</span>      <span class="o">=&gt;</span> <span class="n">netcdf_close</span>             <span class="c">!! Closes an open NetCDF file</span>
+<a name="ln-81"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span> <span class="o">=&gt;</span> <span class="n">netcdf_initialize_output</span> <span class="c">!! Initialize a set of parameters used to identify a NetCDF output object</span>
+<a name="ln-82"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="k">open</span>       <span class="o">=&gt;</span> <span class="n">netcdf_open</span>              <span class="c">!! Opens a NetCDF file</span>
+<a name="ln-83"></a>   <span class="k">end type </span><span class="n">netcdf_parameters</span>
+<a name="ln-84"></a>
+<a name="ln-85"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-86"></a>   <span class="c">! swiftest_parameters class definitions </span>
 <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-88"></a>
+<a name="ln-89"></a>   <span class="c">!&gt; User defined parameters that are read in from the parameters input file. </span>
+<a name="ln-90"></a>   <span class="c">!&gt;    Each paramter is initialized to a default values. </span>
+<a name="ln-91"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">swiftest_parameters</span>
+<a name="ln-92"></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="o">=</span> <span class="n">UNKNOWN_INTEGRATOR</span> <span class="c">!! Symbolic name of the nbody integrator  used</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">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-94"></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">t0</span>             <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Integration start time</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">t</span>              <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Integration current time</span>
+<a name="ln-96"></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">tstop</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Integration stop time</span>
+<a name="ln-97"></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">dt</span>             <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Time step</span>
+<a name="ln-98"></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">ioutput</span>        <span class="o">=</span> <span class="mi">0_I8B</span>              <span class="c">!! Output counter</span>
+<a name="ln-99"></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">incbfile</span>       <span class="o">=</span> <span class="n">CB_INFILE</span>          <span class="c">!! Name of input file for the central body</span>
+<a name="ln-100"></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">inplfile</span>       <span class="o">=</span> <span class="n">PL_INFILE</span>          <span class="c">!! Name of input file for massive bodies</span>
+<a name="ln-101"></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">intpfile</span>       <span class="o">=</span> <span class="n">TP_INFILE</span>          <span class="c">!! Name of input file for test particles</span>
+<a name="ln-102"></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">in_type</span>        <span class="o">=</span> <span class="n">ASCII_TYPE</span>         <span class="c">!! Data representation type of input data files</span>
+<a name="ln-103"></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">in_form</span>        <span class="o">=</span> <span class="n">XV</span>                 <span class="c">!! Format of input data files (EL or XV)</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="kd">::</span> <span class="n">istep_out</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>                 <span class="c">!! Number of time steps between binary outputs</span>
+<a name="ln-105"></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">outfile</span>        <span class="o">=</span> <span class="n">NETCDF_OUTFILE</span>     <span class="c">!! Name of output binary file</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">out_type</span>       <span class="o">=</span> <span class="n">NETCDF_DOUBLE_TYPE</span> <span class="c">!! Binary format of output 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">out_form</span>       <span class="o">=</span> <span class="n">XVEL</span>               <span class="c">!! Data to write to output file</span>
+<a name="ln-108"></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">out_stat</span>       <span class="o">=</span> <span class="s1">&#39;NEW&#39;</span>              <span class="c">!! Open status for output binary file</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">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-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">istep_dump</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>                 <span class="c">!! Number of time steps between dumps</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">rmin</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Minimum heliocentric radius for test particle</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">rmax</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Maximum heliocentric radius for test particle</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">rmaxu</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Maximum unbound heliocentric radius for test particle</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">qmin</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Minimum pericenter distance for test particle</span>
+<a name="ln-115"></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">qmin_coord</span>     <span class="o">=</span> <span class="s1">&#39;HELIO&#39;</span>            <span class="c">!! Coordinate frame to use for qmin</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="kd">::</span> <span class="n">qmin_alo</span>       <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Minimum semimajor axis for qmin</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="kd">::</span> <span class="n">qmin_ahi</span>       <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Maximum semimajor axis for qmin</span>
+<a name="ln-118"></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">enc_out</span>        <span class="o">=</span> <span class="s2">&quot;&quot;</span>                 <span class="c">!! Name of output file for encounters</span>
+<a name="ln-119"></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">discard_out</span>    <span class="o">=</span> <span class="s2">&quot;&quot;</span>                 <span class="c">!! Name of output file for discards</span>
+<a name="ln-120"></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">MU2KG</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_QP</span>            <span class="c">!! Converts mass units to grams</span>
+<a name="ln-121"></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">TU2S</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_QP</span>            <span class="c">!! Converts time units to seconds</span>
+<a name="ln-122"></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-123"></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-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">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-125"></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-126"></a>
+<a name="ln-127"></a>      <span class="c">! Logical flags to turn on or off various features of the code</span>
+<a name="ln-128"></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>
+<a name="ln-129"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lextra_force</span>   <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! User defined force function turned on</span>
+<a name="ln-130"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lbig_discard</span>   <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Save big bodies on every discard</span>
+<a name="ln-131"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lclose</span>         <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Turn on close encounters</span>
+<a name="ln-132"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lenergy</span>        <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Track the total energy of the system</span>
+<a name="ln-133"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">loblatecb</span>      <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input)</span>
+<a name="ln-134"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lrotation</span>      <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Include rotation states of big bodies</span>
+<a name="ln-135"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">ltides</span>         <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Include tidal dissipation </span>
+<a name="ln-136"></a>
+<a name="ln-137"></a>      <span class="c">! 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)</span>
+<a name="ln-138"></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_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>   <span class="c">!! Initial orbital energy</span>
+<a name="ln-139"></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_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Initial system mass</span>
+<a name="ln-140"></a>      <span class="kt">real</span><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-141"></a>      <span class="kt">real</span><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-142"></a>      <span class="kt">real</span><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-143"></a>      <span class="kt">real</span><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-144"></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">GMescape</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-145"></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-146"></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-147"></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-148"></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-149"></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-150"></a>
+<a name="ln-151"></a>      <span class="c">! Future features not implemented or in development</span>
+<a name="ln-152"></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-153"></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-154"></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-155"></a>
+<a name="ln-156"></a>      <span class="k">type</span><span class="p">(</span><span class="n">netcdf_parameters</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nciu</span> <span class="c">!! Object containing NetCDF parameters</span>
+<a name="ln-157"></a>   <span class="k">contains</span>
+<a name="ln-158"></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-159"></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-160"></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-161"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_in</span> <span class="o">=&gt;</span> <span class="n">io_read_in_param</span>
+<a name="ln-162"></a>   <span class="k">end type </span><span class="n">swiftest_parameters</span>
+<a name="ln-163"></a>
+<a name="ln-164"></a>
+<a name="ln-165"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-166"></a>   <span class="c">!                                    swiftest_swiftest_particle_info class definitions and method interfaces</span>
+<a name="ln-167"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-168"></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-169"></a>   <span class="c">!&gt; of fragments produced in collisional events.</span>
+<a name="ln-170"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">swiftest_particle_info</span>
+<a name="ln-171"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">name</span>            <span class="c">!! Non-unique name</span>
+<a name="ln-172"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">particle_type</span>   <span class="c">!! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</span>
+<a name="ln-173"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</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-174"></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-175"></a>      <span class="kt">real</span><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-176"></a>      <span class="kt">real</span><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-177"></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">discard_time</span>    <span class="c">!! The time of the particle&#39;s discard</span>
+<a name="ln-178"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">status</span>          <span class="c">!! Particle status description: Active, Merged, Fragmented, etc.</span>
+<a name="ln-179"></a>      <span class="kt">real</span><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">discard_xh</span>      <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s discard</span>
+<a name="ln-180"></a>      <span class="kt">real</span><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">discard_vh</span>      <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s discard</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="kd">::</span> <span class="n">discard_body_id</span> <span class="c">!! The id of the other body involved in the discard (0 if no other body involved)</span>
+<a name="ln-182"></a>   <span class="k">contains</span>
+<a name="ln-183"></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_particle_info</span>    <span class="c">!! Dumps contents of particle information to file</span>
+<a name="ln-184"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_in</span>   <span class="o">=&gt;</span> <span class="n">io_read_in_particle_info</span> <span class="c">!! Read in a particle information object from an open file</span>
+<a name="ln-185"></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_particle_info</span>  <span class="c">!! Copies one set of information object components into another, component-by-component</span>
+<a name="ln-186"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_value</span> <span class="o">=&gt;</span> <span class="n">util_set_particle_info</span>   <span class="c">!! Sets one or more values of the particle information metadata object</span>
+<a name="ln-187"></a>   <span class="k">end type </span><span class="n">swiftest_particle_info</span>
+<a name="ln-188"></a>
+<a name="ln-189"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-190"></a>   <span class="c">! swiftest_base class definitions and methods</span>
+<a name="ln-191"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-192"></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-193"></a>      <span class="c">!! An abstract superclass for a generic Swiftest object</span>
+<a name="ln-194"></a>   <span class="k">contains</span>
+<a name="ln-195"></a>      <span class="c">!! The minimal methods that all systems must have</span>
+<a name="ln-196"></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_base</span>                 <span class="c">!! Dump contents to file</span>
+<a name="ln-197"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">dump_particle_info</span>         <span class="o">=&gt;</span> <span class="n">io_dump_particle_info_base</span>   <span class="c">!! Dump contents of particle information metadata to file</span>
+<a name="ln-198"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame_netcdf</span>         <span class="o">=&gt;</span> <span class="n">netcdf_write_frame_base</span>      <span class="c">!! I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </span>
+<a name="ln-199"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_particle_info_netcdf</span> <span class="o">=&gt;</span> <span class="n">netcdf_write_particle_info_base</span> <span class="c">!! Writes out the particle information metadata to NetCDF file</span>
+<a name="ln-200"></a>      <span class="k">generic</span>   <span class="kd">::</span> <span class="n">write_frame</span>                <span class="o">=&gt;</span> <span class="n">write_frame_netcdf</span>           <span class="c">!! Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments</span>
+<a name="ln-201"></a>      <span class="k">generic</span>   <span class="kd">::</span> <span class="n">write_particle_info</span>        <span class="o">=&gt;</span> <span class="n">write_particle_info_netcdf</span>
+<a name="ln-202"></a>   <span class="k">end type </span><span class="n">swiftest_base</span>
+<a name="ln-203"></a>
+<a name="ln-204"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-205"></a>   <span class="c">! swiftest_cb class definitions and methods</span>
+<a name="ln-206"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-207"></a>   <span class="c">!&gt; A concrete lass for the central body in a Swiftest simulation</span>
+<a name="ln-208"></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-209"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_particle_info</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">info</span>              <span class="c">!! Particle metadata information</span>
+<a name="ln-210"></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-211"></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-212"></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-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">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-214"></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-215"></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-216"></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-217"></a>      <span class="kt">real</span><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-218"></a>      <span class="kt">real</span><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-219"></a>      <span class="kt">real</span><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-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="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-221"></a>      <span class="kt">real</span><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-222"></a>      <span class="kt">real</span><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-223"></a>      <span class="kt">real</span><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-224"></a>      <span class="kt">real</span><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-225"></a>      <span class="kt">real</span><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-226"></a>      <span class="kt">real</span><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-227"></a>      <span class="kt">real</span><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-228"></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-229"></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-230"></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-231"></a>      <span class="kt">real</span><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-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="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-233"></a>   <span class="k">contains</span>
+<a name="ln-234"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">read_in</span>         <span class="o">=&gt;</span> <span class="n">io_read_in_cb</span>     <span class="c">!! I/O routine for reading in central body data</span>
+<a name="ln-235"></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-236"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame_bin</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-237"></a>      <span class="k">generic</span>   <span class="kd">::</span> <span class="n">write_frame</span>     <span class="o">=&gt;</span> <span class="n">write_frame_bin</span>   <span class="c">!! Write a frame (either binary or NetCDF, using generic procedures)</span>
+<a name="ln-238"></a>   <span class="k">end type </span><span class="n">swiftest_cb</span>
+<a name="ln-239"></a>
+<a name="ln-240"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-241"></a>   <span class="c">! swiftest_body definitions and methods</span>
+<a name="ln-242"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-243"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest bodies</span>
+<a name="ln-244"></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-245"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest particle </span>
+<a name="ln-246"></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-247"></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-248"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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>            <span class="c">!! Particle metadata information</span>
+<a name="ln-249"></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-250"></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-251"></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-252"></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-253"></a>      <span class="kt">real</span><span 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-254"></a>      <span class="kt">real</span><span 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">!! Swiftestcentric position</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">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>              <span class="c">!! Swiftestcentric velocity</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="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-257"></a>      <span class="kt">real</span><span 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-258"></a>      <span class="kt">real</span><span 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-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="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-260"></a>      <span class="kt">real</span><span 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-261"></a>      <span class="kt">real</span><span 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-262"></a>      <span class="kt">real</span><span 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-263"></a>      <span class="kt">real</span><span 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-264"></a>      <span class="kt">real</span><span 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-265"></a>      <span class="kt">real</span><span 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-266"></a>      <span class="kt">real</span><span 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-267"></a>      <span class="kt">real</span><span 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-268"></a>      <span class="kt">real</span><span 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-269"></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-270"></a>      <span class="c">!!    component list, such as setup_body and util_spill</span>
+<a name="ln-271"></a>   <span class="k">contains</span>
+<a name="ln-272"></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-273"></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-274"></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-275"></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-276"></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-277"></a>      <span class="c">! These are concrete because the implementation is the same for all types of particles</span>
+<a name="ln-278"></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-279"></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-280"></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-281"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_in</span>         <span class="o">=&gt;</span> <span class="n">io_read_in_body</span>              <span class="c">!! Read in body initial conditions from a file</span>
+<a name="ln-282"></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-283"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame_bin</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-284"></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-285"></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-286"></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-287"></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-288"></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-289"></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-290"></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-291"></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-292"></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-293"></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-294"></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-295"></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-296"></a>      <span class="k">generic</span>   <span class="kd">::</span> <span class="n">write_frame</span>     <span class="o">=&gt;</span> <span class="n">write_frame_bin</span>              <span class="c">!! Add the generic write frame for Fortran binary files</span>
+<a name="ln-297"></a>   <span class="k">end type </span><span class="n">swiftest_body</span>
+<a name="ln-298"></a>      
+<a name="ln-299"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-300"></a>   <span class="c">! swiftest_pl definitions and methods</span>
+<a name="ln-301"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-302"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest massive bodies</span>
+<a name="ln-303"></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-304"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest particle </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">allocatable</span> <span class="kd">::</span> <span class="n">mass</span>    <span class="c">!! Body mass (units MU)</span>
+<a name="ln-306"></a>      <span class="kt">real</span><span 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-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">allocatable</span> <span class="kd">::</span> <span class="n">rhill</span>   <span class="c">!! Body mass (units MU)</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">allocatable</span> <span class="kd">::</span> <span class="n">radius</span>  <span class="c">!! Body radius (units DU)</span>
+<a name="ln-309"></a>      <span class="kt">real</span><span 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-310"></a>      <span class="kt">real</span><span 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-311"></a>      <span class="kt">real</span><span 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-312"></a>      <span class="kt">real</span><span 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-313"></a>      <span class="kt">real</span><span 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-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">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-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">allocatable</span> <span class="kd">::</span> <span class="n">k2</span>      <span class="c">!! Tidal Love number</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">Q</span>       <span class="c">!! Tidal quality factor</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">tlag</span>    <span class="c">!! Tidal phase lag</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">k_plpl</span>  <span class="c">!! Index array used to convert flattened the body-body comparison upper triangular matrix</span>
+<a name="ln-319"></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-320"></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-321"></a>      <span class="c">!!    component list, such as setup_pl and util_spill_pl</span>
+<a name="ln-322"></a>   <span class="k">contains</span>
+<a name="ln-323"></a>      <span class="c">! Massive body-specific concrete methods </span>
+<a name="ln-324"></a>      <span class="c">! These are concrete because they are the same implemenation for all integrators</span>
+<a name="ln-325"></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-326"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="nb">index</span>        <span class="o">=&gt;</span> <span class="n">util_index_eucl_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-327"></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-328"></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-329"></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-330"></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-331"></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-332"></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-333"></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-334"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">vh2vb</span>        <span class="o">=&gt;</span> <span class="n">util_coord_vh2vb_pl</span>    <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</span>
+<a name="ln-335"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">vb2vh</span>        <span class="o">=&gt;</span> <span class="n">util_coord_vb2vh_pl</span>    <span class="c">!! Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</span>
+<a name="ln-336"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">xh2xb</span>        <span class="o">=&gt;</span> <span class="n">util_coord_xh2xb_pl</span>    <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (position only)</span>
+<a name="ln-337"></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-338"></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-339"></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-340"></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-341"></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-342"></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-343"></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-344"></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-345"></a>   <span class="k">end type </span><span class="n">swiftest_pl</span>
+<a name="ln-346"></a>
+<a name="ln-347"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-348"></a>   <span class="c">! swiftest_tp definitions and methods</span>
+<a name="ln-349"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-350"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest test particles</span>
+<a name="ln-351"></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-352"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest test particle </span>
+<a name="ln-353"></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-354"></a>      <span class="kt">real</span><span 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-355"></a>      <span class="kt">real</span><span 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-356"></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_pltp</span> <span class="c">!! Index array used to convert flattened the body-body comparison upper triangular matrix</span>
+<a name="ln-357"></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">npltp</span>  <span class="c">!! Number of pl-tp comparisons in the flattened upper triangular matrix</span>
+<a name="ln-358"></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-359"></a>      <span class="c">!!    component list, such as setup_tp and util_spill_tp</span>
+<a name="ln-360"></a>   <span class="k">contains</span>
+<a name="ln-361"></a>      <span class="c">! Test particle-specific concrete methods </span>
+<a name="ln-362"></a>      <span class="c">! These are concrete because they are the same implemenation for all integrators</span>
+<a name="ln-363"></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-364"></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-365"></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-366"></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-367"></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-368"></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-369"></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-370"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">vb2vh</span>     <span class="o">=&gt;</span> <span class="n">util_coord_vb2vh_tp</span>    <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (velocity only)</span>
+<a name="ln-371"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">vh2vb</span>     <span class="o">=&gt;</span> <span class="n">util_coord_vh2vb_tp</span>    <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (velocity only)</span>
+<a name="ln-372"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">xh2xb</span>     <span class="o">=&gt;</span> <span class="n">util_coord_xh2xb_tp</span>    <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (position only)</span>
+<a name="ln-373"></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-374"></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-375"></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-376"></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-377"></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-378"></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-379"></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-380"></a>   <span class="k">end type </span><span class="n">swiftest_tp</span>
+<a name="ln-381"></a>
+<a name="ln-382"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-383"></a>   <span class="c">! swiftest_nbody_system class definitions and methods</span>
+<a name="ln-384"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-385"></a>   <span class="c">!&gt; An abstract class for a basic Swiftest nbody system </span>
+<a name="ln-386"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span> <span class="kd">::</span> <span class="n">swiftest_nbody_system</span>
+<a name="ln-387"></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-388"></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-389"></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-390"></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-391"></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-392"></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-393"></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-394"></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-395"></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-396"></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-397"></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-398"></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="o">=</span> <span class="mf">0.0_DP</span>      <span class="c">!! System potential energy due to oblateness of the central body</span>
+<a name="ln-399"></a>      <span class="kt">real</span><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-400"></a>      <span class="kt">real</span><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-401"></a>      <span class="kt">real</span><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-402"></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-403"></a>                                                              <span class="c">!!    separately from massive bodies.  Massive body variables are saved at half steps, and passed to </span>
+<a name="ln-404"></a>                                                              <span class="c">!!    the test particles</span>
+<a name="ln-405"></a>   <span class="k">contains</span>
+<a name="ln-406"></a>      <span class="c">!&gt; Each integrator will have its own version of the step</span>
+<a name="ln-407"></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-408"></a>
+<a name="ln-409"></a>      <span class="c">! Concrete classes that are common to the basic integrator (only test particles considered for discard)</span>
+<a name="ln-410"></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-411"></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-412"></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-413"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_old_t_final</span>         <span class="o">=&gt;</span> <span class="n">io_get_old_t_final_system</span>              <span class="c">!! Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</span>
+<a name="ln-414"></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-415"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_particle_info</span>      <span class="o">=&gt;</span> <span class="n">io_read_particle_info_system</span>           <span class="c">!! Read in particle metadata from file</span>
+<a name="ln-416"></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-417"></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-418"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_hdr_bin</span>           <span class="o">=&gt;</span> <span class="n">io_write_hdr_system</span>                    <span class="c">!! Write a header for an output frame in Fortran binary format</span>
+<a name="ln-419"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_hdr_netcdf</span>        <span class="o">=&gt;</span> <span class="n">netcdf_write_hdr_system</span>                <span class="c">!! Write a header for an output frame in NetCDF format</span>
+<a name="ln-420"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">obl_pot</span>                 <span class="o">=&gt;</span> <span class="n">obl_pot_system</span>                         <span class="c">!! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</span>
+<a name="ln-421"></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-422"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">init_particle_info</span>      <span class="o">=&gt;</span> <span class="n">setup_initialize_particle_info_system</span>  <span class="c">!! Initialize the system from input files</span>
+<a name="ln-423"></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-424"></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-425"></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-426"></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-427"></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-428"></a>      <span class="k">generic</span>   <span class="kd">::</span> <span class="n">write_hdr</span>               <span class="o">=&gt;</span> <span class="n">write_hdr_bin</span><span class="p">,</span> <span class="n">write_hdr_netcdf</span>        <span class="c">!! Generic method call for writing headers</span>
+<a name="ln-429"></a>   <span class="k">end type </span><span class="n">swiftest_nbody_system</span>
+<a name="ln-430"></a>
+<a name="ln-431"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">swiftest_encounter</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="kd">::</span> <span class="n">nenc</span>   <span class="c">!! Total number of encounters</span>
+<a name="ln-433"></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-434"></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-435"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</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">kidx</span>   <span class="c">!! index value of the encounter from the master k_plpl encounter list</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">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-437"></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-438"></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">id1</span>    <span class="c">!! id of the first body in the encounter</span>
+<a name="ln-439"></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">id2</span>    <span class="c">!! id of the second body in the encounter</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">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-441"></a>      <span class="kt">real</span><span 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-442"></a>      <span class="kt">real</span><span 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-443"></a>      <span class="kt">real</span><span 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-444"></a>      <span class="kt">real</span><span 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">t</span>      <span class="c">!! Time of encounter</span>
+<a name="ln-445"></a>   <span class="k">contains</span>
+<a name="ln-446"></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-447"></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_encounter</span> <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-448"></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-449"></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-450"></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-451"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="k">write</span>  <span class="o">=&gt;</span> <span class="n">io_write_encounter</span>    <span class="c">!! Write close encounter data to output binary file</span>
+<a name="ln-452"></a>   <span class="k">end type </span><span class="n">swiftest_encounter</span>
+<a name="ln-453"></a>
+<a name="ln-454"></a>   <span class="k">abstract interface</span>
+<a name="ln-455"></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-456"></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-457"></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-458"></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-459"></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-460"></a>      <span class="k">end subroutine </span><span class="n">abstract_discard_body</span>
+<a name="ln-461"></a>
+<a name="ln-462"></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-463"></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-464"></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-465"></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-466"></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-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">t</span>      <span class="c">!! Current simulation time</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">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-469"></a>      <span class="k">end subroutine </span><span class="n">abstract_accel</span>
+<a name="ln-470"></a>
+<a name="ln-471"></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-472"></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-473"></a>         <span class="k">implicit none</span>
+<a name="ln-474"></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-475"></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-476"></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-477"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
+<a name="ln-479"></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-480"></a>      <span class="k">end subroutine </span><span class="n">abstract_kick_body</span>
+<a name="ln-481"></a>
+<a name="ln-482"></a>      <span class="k">function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-483"></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-484"></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-485"></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-486"></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-487"></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: returns 0 if the read is successful</span>
+<a name="ln-488"></a>      <span class="k">end function </span><span class="n">abstract_read_frame</span>
+<a name="ln-489"></a>
+<a name="ln-490"></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-491"></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-492"></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-493"></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-494"></a>      <span class="k">end subroutine </span><span class="n">abstract_set_mu</span>
+<a name="ln-495"></a>
+<a name="ln-496"></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-497"></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-498"></a>         <span class="k">implicit none</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">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-500"></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-501"></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-502"></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-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">!! Current stepsize</span>
+<a name="ln-504"></a>      <span class="k">end subroutine </span><span class="n">abstract_step_body</span>
+<a name="ln-505"></a>
+<a name="ln-506"></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-507"></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-508"></a>         <span class="k">implicit none</span>
+<a name="ln-509"></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-510"></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-511"></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-512"></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-513"></a>      <span class="k">end subroutine </span><span class="n">abstract_step_system</span>
+<a name="ln-514"></a>   <span class="k">end interface</span>
+<a name="ln-515"></a>
+<a name="ln-516"></a><span class="k">   interface</span>
+<a name="ln-517"></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-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">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-520"></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-521"></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-522"></a>      <span class="k">end subroutine </span><span class="n">discard_pl</span>
+<a name="ln-523"></a>
+<a name="ln-524"></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-525"></a>         <span class="k">implicit none</span>
+<a name="ln-526"></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-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">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-528"></a>      <span class="k">end subroutine </span><span class="n">discard_system</span>
+<a name="ln-529"></a>
+<a name="ln-530"></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-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_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-533"></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-534"></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-535"></a>      <span class="k">end subroutine </span><span class="n">discard_tp</span>
+<a name="ln-536"></a>
+<a name="ln-537"></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-538"></a>         <span class="k">implicit none</span>
+<a name="ln-539"></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-540"></a>         <span class="kt">real</span><span 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-541"></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-542"></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-543"></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-544"></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-545"></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-546"></a>      <span class="k">end subroutine </span><span class="n">drift_all</span>
+<a name="ln-547"></a>
+<a name="ln-548"></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-549"></a>         <span class="k">implicit none</span>
+<a name="ln-550"></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-551"></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-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">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-553"></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-554"></a>      <span class="k">end subroutine </span><span class="n">drift_body</span>
+<a name="ln-555"></a>
+<a name="ln-556"></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-557"></a>         <span class="k">implicit none</span>
+<a name="ln-558"></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-559"></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-560"></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-561"></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-562"></a>      <span class="k">end subroutine </span><span class="n">drift_one</span>
+<a name="ln-563"></a>
+<a name="ln-564"></a>      <span class="k">module subroutine </span><span class="n">util_index_eucl_plpl</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-565"></a>         <span class="k">implicit none</span>
+<a name="ln-566"></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-567"></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-568"></a>      <span class="k">end subroutine</span>
+<a name="ln-569"></a>
+<a name="ln-570"></a><span class="k">      module subroutine </span><span class="n">util_index_eucl_pltp</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">param</span><span class="p">)</span>
+<a name="ln-571"></a>         <span class="k">implicit none</span>
+<a name="ln-572"></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-573"></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>    <span class="c">!! Swiftest massive body object</span>
+<a name="ln-574"></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-575"></a>      <span class="k">end subroutine</span>
+<a name="ln-576"></a>
+<a name="ln-577"></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-578"></a>         <span class="k">implicit none</span>
+<a name="ln-579"></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-580"></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-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">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-582"></a>      <span class="k">end subroutine </span><span class="n">gr_kick_getaccb_ns_body</span>
+<a name="ln-583"></a>
+<a name="ln-584"></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-585"></a>         <span class="k">implicit none</span>
+<a name="ln-586"></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-587"></a>         <span class="kt">real</span><span 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-588"></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-589"></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-590"></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-591"></a>         <span class="kt">real</span><span 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-592"></a>      <span class="k">end subroutine </span><span class="n">gr_kick_getacch</span>
+<a name="ln-593"></a>
+<a name="ln-594"></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-595"></a>         <span class="k">implicit none</span>
+<a name="ln-596"></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-597"></a>         <span class="kt">real</span><span 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-598"></a>         <span class="kt">real</span><span 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-599"></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-600"></a>      <span class="k">end subroutine </span><span class="n">gr_p4_pos_kick</span>
+<a name="ln-601"></a>
+<a name="ln-602"></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-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">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-605"></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-606"></a>         <span class="kt">real</span><span 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">!! Swiftestcentric position vector </span>
+<a name="ln-607"></a>         <span class="kt">real</span><span 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-608"></a>         <span class="kt">real</span><span 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">!! Swiftestcentric velocity vector </span>
+<a name="ln-609"></a>      <span class="k">end subroutine </span><span class="n">gr_pseudovel2vel</span>
+<a name="ln-610"></a>
+<a name="ln-611"></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-612"></a>         <span class="k">implicit none</span>
+<a name="ln-613"></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-614"></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-615"></a>      <span class="k">end subroutine </span><span class="n">gr_pv2vh_body</span>
+<a name="ln-616"></a>
+<a name="ln-617"></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-618"></a>         <span class="k">implicit none</span>
+<a name="ln-619"></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-620"></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-621"></a>         <span class="kt">real</span><span 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">!! Swiftestcentric position vector </span>
+<a name="ln-622"></a>         <span class="kt">real</span><span 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">!! Swiftestcentric velocity vector </span>
+<a name="ln-623"></a>         <span class="kt">real</span><span 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-624"></a>      <span class="k">end subroutine </span><span class="n">gr_vel2pseudovel</span>
+<a name="ln-625"></a>
+<a name="ln-626"></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-627"></a>         <span class="k">implicit none</span>
+<a name="ln-628"></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-629"></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-630"></a>      <span class="k">end subroutine </span><span class="n">gr_vh2pv_body</span>
+<a name="ln-631"></a>
+<a name="ln-632"></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-633"></a>         <span class="k">implicit none</span>
+<a name="ln-634"></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-635"></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-636"></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-637"></a>      <span class="k">end subroutine </span><span class="n">io_conservation_report</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-639"></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-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-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">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-642"></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-643"></a>      <span class="k">end subroutine </span><span class="n">io_dump_param</span>
+<a name="ln-644"></a>
+<a name="ln-645"></a>      <span class="k">module subroutine </span><span class="n">io_dump_particle_info_base</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">idx</span><span class="p">)</span>
+<a name="ln-646"></a>         <span class="k">implicit none</span>
+<a name="ln-647"></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 (can be cb, pl, or tp)</span>
+<a name="ln-648"></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-649"></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">idx</span>   <span class="c">!! Array of test particle indices to append to the particle file</span>
+<a name="ln-650"></a>      <span class="k">end subroutine </span><span class="n">io_dump_particle_info_base</span>
+<a name="ln-651"></a>
+<a name="ln-652"></a>      <span class="k">module subroutine </span><span class="n">io_dump_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">)</span>
+<a name="ln-653"></a>         <span class="k">implicit none</span>
+<a name="ln-654"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_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">!! Swiftest particle info metadata object</span>
+<a name="ln-655"></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">!! Open unformatted file unit number</span>
+<a name="ln-656"></a>      <span class="k">end subroutine </span><span class="n">io_dump_particle_info</span>
+<a name="ln-657"></a>
+<a name="ln-658"></a>      <span class="k">module subroutine </span><span class="n">io_dump_base</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-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">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-661"></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-662"></a>      <span class="k">end subroutine </span><span class="n">io_dump_base</span>
+<a name="ln-663"></a>
+<a name="ln-664"></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-665"></a>         <span class="k">implicit none</span>
+<a name="ln-666"></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-667"></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-668"></a>      <span class="k">end subroutine </span><span class="n">io_dump_system</span>
+<a name="ln-669"></a>
+<a name="ln-670"></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-671"></a>         <span class="k">implicit none</span>
+<a name="ln-672"></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-673"></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-674"></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-675"></a>      <span class="k">end function </span><span class="n">io_get_args</span>
+<a name="ln-676"></a>
+<a name="ln-677"></a>      <span class="k">module function </span><span class="n">io_get_old_t_final_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="k">result</span><span class="p">(</span><span class="n">old_t_final</span><span class="p">)</span>
+<a name="ln-678"></a>         <span class="k">implicit none</span>
+<a name="ln-679"></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>
+<a name="ln-680"></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>
+<a name="ln-681"></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">old_t_final</span>
+<a name="ln-682"></a>      <span class="k">end function </span><span class="n">io_get_old_t_final_system</span>
+<a name="ln-683"></a>
+<a name="ln-684"></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-685"></a>         <span class="k">implicit none</span>
+<a name="ln-686"></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-687"></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-688"></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-689"></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-690"></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-691"></a>      <span class="k">end function </span><span class="n">io_get_token</span>
+<a name="ln-692"></a>
+<a name="ln-693"></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-694"></a>         <span class="k">implicit none</span>
+<a name="ln-695"></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-696"></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-697"></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-698"></a>                                                                 <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</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">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
+<a name="ln-700"></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-701"></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-702"></a>      <span class="k">end subroutine </span><span class="n">io_param_reader</span>
+<a name="ln-703"></a>
+<a name="ln-704"></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-705"></a>         <span class="k">implicit none</span>
+<a name="ln-706"></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-707"></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-708"></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-709"></a>                                                                <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-710"></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-711"></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-712"></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-713"></a>      <span class="k">end subroutine </span><span class="n">io_param_writer</span>
+<a name="ln-714"></a>
+<a name="ln-715"></a>      <span class="k">module subroutine </span><span class="n">io_read_in_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-716"></a>         <span class="k">implicit none</span>
+<a name="ln-717"></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-718"></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-719"></a>      <span class="k">end subroutine </span><span class="n">io_read_in_body</span>
+<a name="ln-720"></a>
+<a name="ln-721"></a>      <span class="k">module subroutine </span><span class="n">io_read_in_cb</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-722"></a>         <span class="k">implicit none</span>
+<a name="ln-723"></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-724"></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-725"></a>      <span class="k">end subroutine </span><span class="n">io_read_in_cb</span>
+<a name="ln-726"></a>
+<a name="ln-727"></a>      <span class="k">module subroutine </span><span class="n">io_read_in_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-728"></a>         <span class="k">implicit none</span>
+<a name="ln-729"></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-730"></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-731"></a>      <span class="k">end subroutine </span><span class="n">io_read_in_param</span>
+<a name="ln-732"></a>
+<a name="ln-733"></a>      <span class="k">module subroutine </span><span class="n">io_read_in_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">)</span>
+<a name="ln-734"></a>         <span class="k">implicit none</span>
+<a name="ln-735"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_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">!! Particle metadata information object</span>
+<a name="ln-736"></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">!! Open file unit number</span>
+<a name="ln-737"></a>      <span class="k">end subroutine </span><span class="n">io_read_in_particle_info</span>
+<a name="ln-738"></a>
+<a name="ln-739"></a>      <span class="k">module function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-740"></a>         <span class="k">implicit none</span>
+<a name="ln-741"></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-742"></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-743"></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-744"></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: returns 0 if the read is successful</span>
+<a name="ln-745"></a>      <span class="k">end function </span><span class="n">io_read_frame_body</span>
+<a name="ln-746"></a>
+<a name="ln-747"></a>      <span class="k">module function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-748"></a>         <span class="k">implicit none</span>
+<a name="ln-749"></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-750"></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-751"></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-752"></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: returns 0 if the read is successful</span>
+<a name="ln-753"></a>      <span class="k">end function </span><span class="n">io_read_frame_cb</span>
+<a name="ln-754"></a>
+<a name="ln-755"></a>      <span class="k">module function </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="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-756"></a>         <span class="k">implicit none</span>
+<a name="ln-757"></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-758"></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-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="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: returns 0 if the read is successful</span>
+<a name="ln-761"></a>      <span class="k">end function </span><span class="n">io_read_frame_system</span>
+<a name="ln-762"></a>
+<a name="ln-763"></a>      <span class="k">module subroutine </span><span class="n">io_read_particle_info_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-764"></a>         <span class="k">implicit none</span>
+<a name="ln-765"></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-766"></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-767"></a>      <span class="k">end subroutine </span><span class="n">io_read_particle_info_system</span>
+<a name="ln-768"></a>
+<a name="ln-769"></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-770"></a>         <span class="k">implicit none</span>
+<a name="ln-771"></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-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">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-773"></a>      <span class="k">end subroutine </span><span class="n">io_write_discard</span>
+<a name="ln-774"></a>
+<a name="ln-775"></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-776"></a>         <span class="k">implicit none</span>
+<a name="ln-777"></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-778"></a>      <span class="k">end subroutine </span><span class="n">io_toupper</span>
+<a name="ln-779"></a>
+<a name="ln-780"></a>      <span class="k">module subroutine </span><span class="n">io_write_encounter</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">encbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-781"></a>         <span class="k">implicit none</span>
+<a name="ln-782"></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">self</span>    <span class="c">!! Swiftest encounter list object</span>
+<a name="ln-783"></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>      <span class="c">!! Swiftest massive body object</span>
+<a name="ln-784"></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">encbody</span> <span class="c">!! Encountering body - Swiftest generic body object (pl or tp) </span>
+<a name="ln-785"></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-786"></a>      <span class="k">end subroutine </span><span class="n">io_write_encounter</span>
+<a name="ln-787"></a>
+<a name="ln-788"></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-789"></a>         <span class="k">implicit none</span>
+<a name="ln-790"></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-791"></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-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">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-793"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_body</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-795"></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-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-797"></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-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">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-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">io_write_frame_cb</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-802"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_encounter</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">id1</span><span class="p">,</span> <span class="n">id2</span><span class="p">,</span> <span class="n">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</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="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>
 <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_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_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">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_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_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_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_body</span>
-<a name="ln-938"></a>
-<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_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_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">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_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_DP</span>
+<a name="ln-804"></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">iu</span>               <span class="c">!! Open file unit number</span>
+<a name="ln-805"></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">!! Time of encounter</span>
+<a name="ln-806"></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">id1</span><span class="p">,</span> <span class="n">id2</span>         <span class="c">!! ids of the two encountering bodies</span>
+<a name="ln-807"></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">Gmass1</span><span class="p">,</span> <span class="n">Gmass2</span>   <span class="c">!! G*mass of the two encountering bodies</span>
+<a name="ln-808"></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">radius1</span><span class="p">,</span> <span class="n">radius2</span> <span class="c">!! Radii of the two encountering bodies</span>
+<a name="ln-809"></a>         <span class="kt">real</span><span 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="c">!! Swiftestcentric position vectors of the two encountering bodies </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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>         <span class="c">!! Swiftestcentric velocity vectors of the two encountering bodies </span>
+<a name="ln-811"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_encounter</span>
+<a name="ln-812"></a>
+<a name="ln-813"></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">param</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 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">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-817"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_system</span>
+<a name="ln-818"></a>
+<a name="ln-819"></a>      <span class="k">module subroutine </span><span class="n">io_write_hdr_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-820"></a>         <span class="k">implicit none</span>
+<a name="ln-821"></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 nbody system object</span>
+<a name="ln-822"></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">!! Output file unit number</span>
+<a name="ln-823"></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-824"></a>      <span class="k">end subroutine </span><span class="n">io_write_hdr_system</span>
+<a name="ln-825"></a>
+<a name="ln-826"></a>      <span class="k">module subroutine </span><span class="n">kick_getacch_int_all_pl</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">nplpl</span><span class="p">,</span> <span class="n">k_plpl</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">Gmass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">acc</span><span class="p">)</span>
+<a name="ln-827"></a>         <span class="k">implicit none</span>
+<a name="ln-828"></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>    <span class="c">!! Number of massive bodies</span>
+<a name="ln-829"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nplpl</span>  <span class="c">!! Number of massive body interactions to compute</span>
+<a name="ln-830"></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">k_plpl</span> <span class="c">!! Array of interaction pair indices (flattened upper triangular matrix)</span>
+<a name="ln-831"></a>         <span class="kt">real</span><span 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 array</span>
+<a name="ln-832"></a>         <span class="kt">real</span><span 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">Gmass</span>  <span class="c">!! Array of massive body G*mass</span>
+<a name="ln-833"></a>         <span class="kt">real</span><span 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">radius</span> <span class="c">!! Array of massive body radii</span>
+<a name="ln-834"></a>         <span class="kt">real</span><span 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">acc</span>    <span class="c">!! Acceleration vector array </span>
+<a name="ln-835"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_all_pl</span>
+<a name="ln-836"></a>
+<a name="ln-837"></a>      <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_one_pl</span><span class="p">(</span><span class="n">rji2</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">Gmi</span><span class="p">,</span> <span class="n">Gmj</span><span class="p">,</span> <span class="n">axi</span><span class="p">,</span> <span class="n">ayi</span><span class="p">,</span> <span class="n">azi</span><span class="p">,</span> <span class="n">axj</span><span class="p">,</span> <span class="n">ayj</span><span class="p">,</span> <span class="n">azj</span><span class="p">)</span>
+<a name="ln-838"></a>         <span class="k">implicit none</span>
+<a name="ln-839"></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">rji2</span>            <span class="c">!! Square of distance between the two bodies</span>
+<a name="ln-840"></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">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span>      <span class="c">!! Distances between the two bodies in x, y, and z directions</span>
+<a name="ln-841"></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">Gmi</span>             <span class="c">!! G*mass of body i</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">Gmj</span>             <span class="c">!! G*mass of body j</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">axi</span><span class="p">,</span> <span class="n">ayi</span><span class="p">,</span> <span class="n">azi</span> <span class="c">!! Acceleration vector components of body i</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">axj</span><span class="p">,</span> <span class="n">ayj</span><span class="p">,</span> <span class="n">azj</span> <span class="c">!! Acceleration vector components of body j</span>
+<a name="ln-845"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_one_pl</span>
+<a name="ln-846"></a>
+<a name="ln-847"></a>      <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_one_tp</span><span class="p">(</span><span class="n">rji2</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">Gmpl</span><span class="p">,</span> <span class="n">ax</span><span class="p">,</span> <span class="n">ay</span><span class="p">,</span> <span class="n">az</span><span class="p">)</span>
+<a name="ln-848"></a>         <span class="k">implicit none</span>
+<a name="ln-849"></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">rji2</span>         <span class="c">!! Square of distance between the test particle and massive body</span>
+<a name="ln-850"></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">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span>   <span class="c">!! Distances between the two bodies in x, y, and z directions</span>
+<a name="ln-851"></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">Gmpl</span>         <span class="c">!! G*mass of massive body</span>
+<a name="ln-852"></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">ax</span><span class="p">,</span> <span class="n">ay</span><span class="p">,</span> <span class="n">az</span> <span class="c">!! Acceleration vector components of test particle</span>
+<a name="ln-853"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_one_tp</span>
+<a name="ln-854"></a>
+<a name="ln-855"></a>      <span class="k">module 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-856"></a>         <span class="k">implicit none</span>
+<a name="ln-857"></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-858"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_pl</span>
+<a name="ln-859"></a>
+<a name="ln-860"></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-861"></a>         <span class="k">implicit none</span>
+<a name="ln-862"></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-863"></a>         <span class="kt">real</span><span 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-864"></a>         <span class="kt">real</span><span 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-865"></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-866"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_tp</span>
+<a name="ln-867"></a>
+<a name="ln-868"></a>      <span class="k">module subroutine </span><span class="n">netcdf_close</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-869"></a>         <span class="k">implicit none</span>
+<a name="ln-870"></a><span class="k">         class</span><span class="p">(</span><span class="n">netcdf_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">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-871"></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-872"></a>      <span class="k">end subroutine </span><span class="n">netcdf_close</span>
+<a name="ln-873"></a>
+<a name="ln-874"></a>      <span class="k">module subroutine </span><span class="n">netcdf_initialize_output</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-875"></a>         <span class="k">implicit none</span>
+<a name="ln-876"></a><span class="k">         class</span><span class="p">(</span><span class="n">netcdf_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">!! Parameters used to for writing a NetCDF dataset to file</span>
+<a name="ln-877"></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-878"></a>      <span class="k">end subroutine </span><span class="n">netcdf_initialize_output</span>
+<a name="ln-879"></a>
+<a name="ln-880"></a>      <span class="k">module subroutine </span><span class="n">netcdf_open</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-881"></a>         <span class="k">implicit none</span>
+<a name="ln-882"></a><span class="k">         class</span><span class="p">(</span><span class="n">netcdf_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">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-883"></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-884"></a>      <span class="k">end subroutine </span><span class="n">netcdf_open</span>
+<a name="ln-885"></a>
+<a name="ln-886"></a>      <span class="k">module subroutine </span><span class="n">netcdf_write_frame_base</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-887"></a>         <span class="k">implicit none</span>
+<a name="ln-888"></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-889"></a>         <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">iu</span>    <span class="c">!! Parameters used to for writing a NetCDF dataset to file</span>
+<a name="ln-890"></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-891"></a>      <span class="k">end subroutine </span><span class="n">netcdf_write_frame_base</span>
+<a name="ln-892"></a>
+<a name="ln-893"></a>      <span class="k">module subroutine </span><span class="n">netcdf_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-894"></a>         <span class="k">implicit none</span>
+<a name="ln-895"></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-896"></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">!! Parameters used to for writing a NetCDF dataset to file</span>
+<a name="ln-897"></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-898"></a>      <span class="k">end subroutine </span><span class="n">netcdf_write_frame_system</span>
+<a name="ln-899"></a>
+<a name="ln-900"></a>      <span class="k">module subroutine </span><span class="n">netcdf_write_hdr_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-901"></a>         <span class="k">implicit none</span>
+<a name="ln-902"></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 nbody system object</span>
+<a name="ln-903"></a>         <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">iu</span>    <span class="c">!! Parameters used to for writing a NetCDF dataset to file</span>
+<a name="ln-904"></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-905"></a>      <span class="k">end subroutine </span><span class="n">netcdf_write_hdr_system</span>
+<a name="ln-906"></a>
+<a name="ln-907"></a>      <span class="k">module subroutine </span><span class="n">netcdf_write_particle_info_base</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">)</span>
+<a name="ln-908"></a>         <span class="k">implicit none</span>
+<a name="ln-909"></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 particle object</span>
+<a name="ln-910"></a>         <span class="k">class</span><span class="p">(</span><span class="n">netcdf_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">iu</span>     <span class="c">!! Parameters used to identify a particular NetCDF dataset</span>
+<a name="ln-911"></a>      <span class="k">end subroutine </span><span class="n">netcdf_write_particle_info_base</span>
+<a name="ln-912"></a>
+<a name="ln-913"></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-914"></a>         <span class="k">implicit none</span>
+<a name="ln-915"></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-916"></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-917"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_body</span>
+<a name="ln-918"></a>
+<a name="ln-919"></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-920"></a>         <span class="k">implicit none</span>
+<a name="ln-921"></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-922"></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-923"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_pl</span>
+<a name="ln-924"></a>
+<a name="ln-925"></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-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_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-928"></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-929"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_tp</span>
+<a name="ln-930"></a>
+<a name="ln-931"></a>      <span class="k">module subroutine </span><span class="n">obl_pot_system</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-932"></a>         <span class="k">implicit none</span>
+<a name="ln-933"></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-934"></a>      <span class="k">end subroutine </span><span class="n">obl_pot_system</span>
+<a name="ln-935"></a>
+<a name="ln-936"></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-937"></a>         <span class="k">implicit none</span>
+<a name="ln-938"></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-939"></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-940"></a>      <span class="k">end subroutine </span><span class="n">orbel_el2xv_vec</span>
+<a name="ln-941"></a>
+<a name="ln-942"></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-943"></a>         <span class="k">implicit none</span>
+<a name="ln-944"></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-945"></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-946"></a>      <span class="k">end subroutine </span><span class="n">orbel_scget</span>
+<a name="ln-947"></a>
+<a name="ln-948"></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-949"></a>         <span class="k">implicit none</span>
+<a name="ln-950"></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-951"></a>         <span class="kt">real</span><span 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-952"></a>         <span class="kt">real</span><span 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-953"></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-954"></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-955"></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-956"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2aeq</span>
+<a name="ln-957"></a>
+<a name="ln-958"></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-959"></a>         <span class="k">implicit none</span>
+<a name="ln-960"></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-961"></a>         <span class="kt">real</span><span 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-962"></a>         <span class="kt">real</span><span 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-963"></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-964"></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-965"></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-966"></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-967"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2aqt</span>
 <a name="ln-968"></a>
-<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-969"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_xv2el</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">inc</span><span class="p">,</span> <span class="n">capom</span><span class="p">,</span> <span class="n">omega</span><span class="p">,</span> <span class="n">capm</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">real</span><span 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_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">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-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">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-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">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-973"></a>         <span class="kt">real</span><span 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-974"></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-975"></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-976"></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">inc</span>   <span class="c">!! inclination</span>
+<a name="ln-977"></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">capom</span> <span class="c">!! longitude of ascending node</span>
+<a name="ln-978"></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">omega</span> <span class="c">!! argument of periapsis</span>
+<a name="ln-979"></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-980"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2el</span>
+<a name="ln-981"></a>
+<a name="ln-982"></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-983"></a>         <span class="k">implicit none</span>
+<a name="ln-984"></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-985"></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-986"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2el_vec</span>
+<a name="ln-987"></a>
+<a name="ln-988"></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-989"></a>         <span class="k">implicit none</span>
+<a name="ln-990"></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-991"></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-992"></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-993"></a>      <span class="k">end subroutine </span><span class="n">setup_body</span>
+<a name="ln-994"></a>
+<a name="ln-995"></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-996"></a>         <span class="k">implicit none</span>
+<a name="ln-997"></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-998"></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-999"></a>      <span class="k">end subroutine </span><span class="n">setup_construct_system</span>
+<a name="ln-1000"></a>
+<a name="ln-1001"></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-1002"></a>         <span class="k">implicit none</span>
+<a name="ln-1003"></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-1004"></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-1005"></a>      <span class="k">end subroutine </span><span class="n">setup_encounter</span>
+<a name="ln-1006"></a>
+<a name="ln-1007"></a>      <span class="k">module subroutine </span><span class="n">setup_initialize_particle_info_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-1008"></a>         <span class="k">implicit none</span>
+<a name="ln-1009"></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-1010"></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-1011"></a>      <span class="k">end subroutine </span><span class="n">setup_initialize_particle_info_system</span>
+<a name="ln-1012"></a>
+<a name="ln-1013"></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-1014"></a>         <span class="k">implicit none</span>
+<a name="ln-1015"></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-1016"></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-1017"></a>      <span class="k">end subroutine </span><span class="n">setup_initialize_system</span>
 <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-1019"></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-1020"></a>         <span class="k">implicit none</span>
+<a name="ln-1021"></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-1022"></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-1023"></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-1024"></a>      <span class="k">end subroutine </span><span class="n">setup_pl</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-1026"></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-1027"></a>         <span class="k">implicit none</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">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_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">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-1028"></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-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">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-1030"></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-1031"></a>      <span class="k">end subroutine </span><span class="n">setup_tp</span>
+<a name="ln-1032"></a>
+<a name="ln-1033"></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-1034"></a>         <span class="k">implicit none</span>
+<a name="ln-1035"></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-1036"></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-1037"></a>      <span class="k">end subroutine </span><span class="n">tides_kick_getacch_pl</span>
+<a name="ln-1038"></a>
+<a name="ln-1039"></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-1040"></a>         <span class="k">implicit none</span>
+<a name="ln-1041"></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-1042"></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-1043"></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-1044"></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-1045"></a>      <span class="k">end subroutine </span><span class="n">tides_step_spin_system</span>
+<a name="ln-1046"></a>
+<a name="ln-1047"></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-1048"></a>         <span class="k">implicit none</span>
+<a name="ln-1049"></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-1050"></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-1051"></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-1052"></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-1053"></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-1054"></a>      <span class="k">end subroutine </span><span class="n">user_kick_getacch_body</span>
+<a name="ln-1055"></a>   <span class="k">end interface</span>
+<a name="ln-1056"></a>
+<a name="ln-1057"></a><span class="k">   interface </span><span class="n">util_append</span>
+<a name="ln-1058"></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-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_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_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_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-1060"></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-1061"></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-1062"></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-1063"></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-1064"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_char_string</span>
+<a name="ln-1065"></a>
+<a name="ln-1066"></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-1067"></a>         <span class="k">implicit none</span>
+<a name="ln-1068"></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-1069"></a>         <span class="kt">real</span><span 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-1070"></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-1071"></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-1072"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_DP</span>
+<a name="ln-1073"></a>
+<a name="ln-1074"></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-1075"></a>         <span class="k">implicit none</span>
+<a name="ln-1076"></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-1077"></a>         <span class="kt">real</span><span 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-1078"></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-1079"></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-1080"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_DPvec</span>
 <a name="ln-1081"></a>
-<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-1082"></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-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">real</span><span 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-1084"></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-1085"></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-1086"></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-1087"></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-1088"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_I4B</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-1090"></a>      <span class="k">module subroutine </span><span class="n">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-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_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="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_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_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">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-1092"></a><span class="k">         type</span><span class="p">(</span><span class="n">swiftest_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-1093"></a>         <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-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">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-1095"></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-1096"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_info</span>
+<a name="ln-1097"></a>
+<a name="ln-1098"></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-1099"></a>         <span class="k">implicit none</span>
+<a name="ln-1100"></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-1101"></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-1102"></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-1103"></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-1104"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_logical</span>
+<a name="ln-1105"></a>   <span class="k">end interface</span>
+<a name="ln-1106"></a>
+<a name="ln-1107"></a><span class="k">   interface</span>
+<a name="ln-1108"></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-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">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-1112"></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-1113"></a>      <span class="k">end subroutine </span><span class="n">util_append_body</span>
+<a name="ln-1114"></a>
+<a name="ln-1115"></a>      <span class="k">module subroutine </span><span class="n">util_append_encounter</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-1116"></a>         <span class="k">implicit none</span>
+<a name="ln-1117"></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 object</span>
+<a name="ln-1118"></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 append</span>
+<a name="ln-1119"></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-1120"></a>      <span class="k">end subroutine </span><span class="n">util_append_encounter</span>
+<a name="ln-1121"></a>
+<a name="ln-1122"></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-1123"></a>         <span class="k">implicit none</span>
+<a name="ln-1124"></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-1125"></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-1126"></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-1127"></a>      <span class="k">end subroutine </span><span class="n">util_append_pl</span>
+<a name="ln-1128"></a>   
+<a name="ln-1129"></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-1130"></a>         <span class="k">implicit none</span>
+<a name="ln-1131"></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-1132"></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-1133"></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-1134"></a>      <span class="k">end subroutine </span><span class="n">util_append_tp</span>
+<a name="ln-1135"></a>
+<a name="ln-1136"></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-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_coord_b2h_pl</span>
+<a name="ln-1141"></a>
+<a name="ln-1142"></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-1143"></a>         <span class="k">implicit none</span>
+<a name="ln-1144"></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-1145"></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-1146"></a>      <span class="k">end subroutine </span><span class="n">util_coord_b2h_tp</span>
+<a name="ln-1147"></a>
+<a name="ln-1148"></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-1149"></a>         <span class="k">implicit none</span>
+<a name="ln-1150"></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-1151"></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-1152"></a>      <span class="k">end subroutine </span><span class="n">util_coord_h2b_pl</span>
+<a name="ln-1153"></a>
+<a name="ln-1154"></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-1155"></a>         <span class="k">implicit none</span>
+<a name="ln-1156"></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-1157"></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-1158"></a>      <span class="k">end subroutine </span><span class="n">util_coord_h2b_tp</span>
+<a name="ln-1159"></a>
+<a name="ln-1160"></a>      <span class="k">module subroutine </span><span class="n">util_coord_vb2vh_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-1161"></a>         <span class="k">implicit none</span>
+<a name="ln-1162"></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-1163"></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-1164"></a>      <span class="k">end subroutine </span><span class="n">util_coord_vb2vh_pl</span>
+<a name="ln-1165"></a>   
+<a name="ln-1166"></a>      <span class="k">module subroutine </span><span class="n">util_coord_vb2vh_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</span><span class="p">)</span>
+<a name="ln-1167"></a>         <span class="k">implicit none</span>
+<a name="ln-1168"></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-1169"></a>         <span class="kt">real</span><span 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">vbcb</span> <span class="c">!! Barycentric velocity of the central body</span>
+<a name="ln-1170"></a>      <span class="k">end subroutine </span><span class="n">util_coord_vb2vh_tp</span>
+<a name="ln-1171"></a>   
+<a name="ln-1172"></a>      <span class="k">module subroutine </span><span class="n">util_coord_vh2vb_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-1173"></a>         <span class="k">implicit none</span>
+<a name="ln-1174"></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-1175"></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-1176"></a>      <span class="k">end subroutine </span><span class="n">util_coord_vh2vb_pl</span>
+<a name="ln-1177"></a>   
+<a name="ln-1178"></a>      <span class="k">module subroutine </span><span class="n">util_coord_vh2vb_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</span><span class="p">)</span>
+<a name="ln-1179"></a>         <span class="k">implicit none</span>
+<a name="ln-1180"></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-1181"></a>         <span class="kt">real</span><span 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">vbcb</span> <span class="c">!! Barycentric velocity of the central body</span>
+<a name="ln-1182"></a>      <span class="k">end subroutine </span><span class="n">util_coord_vh2vb_tp</span>
+<a name="ln-1183"></a>
+<a name="ln-1184"></a>      <span class="k">module subroutine </span><span class="n">util_coord_xh2xb_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-1185"></a>         <span class="k">implicit none</span>
+<a name="ln-1186"></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-1187"></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-1188"></a>      <span class="k">end subroutine </span><span class="n">util_coord_xh2xb_pl</span>
+<a name="ln-1189"></a>
+<a name="ln-1190"></a>      <span class="k">module subroutine </span><span class="n">util_coord_xh2xb_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-1191"></a>         <span class="k">implicit none</span>
+<a name="ln-1192"></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-1193"></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-1194"></a>      <span class="k">end subroutine </span><span class="n">util_coord_xh2xb_tp</span>
+<a name="ln-1195"></a>
+<a name="ln-1196"></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-1197"></a>         <span class="k">implicit none</span>
+<a name="ln-1198"></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-1199"></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-1200"></a>      <span class="k">end subroutine </span><span class="n">util_copy_encounter</span>
+<a name="ln-1201"></a>
+<a name="ln-1202"></a>      <span class="k">module subroutine </span><span class="n">util_copy_particle_info</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-1203"></a>         <span class="k">implicit none</span>
+<a name="ln-1204"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_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>
+<a name="ln-1205"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_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">source</span>
+<a name="ln-1206"></a>      <span class="k">end subroutine </span><span class="n">util_copy_particle_info</span>
+<a name="ln-1207"></a>
+<a name="ln-1208"></a>      <span class="k">module subroutine </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</span><span class="n">source</span><span class="p">,</span> <span class="n">dest</span><span class="p">,</span> <span class="n">idx</span><span class="p">)</span>
+<a name="ln-1209"></a>         <span class="k">implicit none</span>
+<a name="ln-1210"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_particle_info</span><span 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">source</span> <span class="c">!! Source object to copy into</span>
+<a name="ln-1211"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_particle_info</span><span 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">dest</span>   <span class="c">!! Swiftest body object with particle metadata information object</span>
+<a name="ln-1212"></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="k">optional</span> <span class="kd">::</span> <span class="n">idx</span>    <span class="c">!! Optional array of indices to draw the source object</span>
+<a name="ln-1213"></a>      <span class="k">end subroutine </span><span class="n">util_copy_particle_info_arr</span>
+<a name="ln-1214"></a>
+<a name="ln-1215"></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-1216"></a>         <span class="k">implicit none</span>
+<a name="ln-1217"></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-1218"></a>      <span class="k">end subroutine </span><span class="n">util_exit</span>
+<a name="ln-1219"></a>
+<a name="ln-1220"></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-1221"></a>         <span class="k">implicit none</span>
+<a name="ln-1222"></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-1223"></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-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">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-1225"></a>      <span class="k">end subroutine </span><span class="n">util_fill_body</span>
+<a name="ln-1226"></a>
+<a name="ln-1227"></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-1228"></a>         <span class="k">implicit none</span>
+<a name="ln-1229"></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-1230"></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-1231"></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-1232"></a>      <span class="k">end subroutine </span><span class="n">util_fill_pl</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-1234"></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-1235"></a>         <span class="k">implicit none</span>
+<a name="ln-1236"></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-1237"></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-1238"></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-1239"></a>      <span class="k">end subroutine </span><span class="n">util_fill_tp</span>
+<a name="ln-1240"></a>   <span class="k">end interface</span>
+<a name="ln-1241"></a>
+<a name="ln-1242"></a><span class="k">   interface </span><span class="n">util_fill</span>
+<a name="ln-1243"></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-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-1245"></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-1246"></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-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">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-1248"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_char_string</span>
+<a name="ln-1249"></a>
+<a name="ln-1250"></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-1251"></a>         <span class="k">implicit none</span>
+<a name="ln-1252"></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-1253"></a>         <span class="kt">real</span><span 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-1254"></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-1255"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_DP</span>
+<a name="ln-1256"></a>
+<a name="ln-1257"></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-1258"></a>         <span class="k">implicit none</span>
+<a name="ln-1259"></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-1260"></a>         <span class="kt">real</span><span 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-1261"></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-1262"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_DPvec</span>
+<a name="ln-1263"></a>
+<a name="ln-1264"></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-1265"></a>         <span class="k">implicit none</span>
+<a name="ln-1266"></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-1267"></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-1268"></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-1269"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_I4B</span>
+<a name="ln-1270"></a>
+<a name="ln-1271"></a>      <span class="k">module subroutine </span><span class="n">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-1272"></a>         <span class="k">implicit none</span>
+<a name="ln-1273"></a><span class="k">         type</span><span class="p">(</span><span class="n">swiftest_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-1274"></a>         <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-1275"></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-1276"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_info</span>
+<a name="ln-1277"></a>
+<a name="ln-1278"></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-1279"></a>         <span class="k">implicit none</span>
+<a name="ln-1280"></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-1281"></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-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">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-1283"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_logical</span>
+<a name="ln-1284"></a>   <span class="k">end interface</span>
+<a name="ln-1285"></a>
+<a name="ln-1286"></a><span class="k">   interface</span>
+<a name="ln-1287"></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-1288"></a>         <span class="k">implicit none</span>
+<a name="ln-1289"></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-1290"></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-1291"></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-1292"></a>      <span class="k">end subroutine </span><span class="n">util_rescale_system</span>
+<a name="ln-1293"></a>
+<a name="ln-1294"></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">maxloop</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-1295"></a>         <span class="k">use </span><span class="n">lambda_function</span>
+<a name="ln-1296"></a>         <span class="k">implicit none</span>
+<a name="ln-1297"></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-1298"></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-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">x0</span>
+<a name="ln-1300"></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-1301"></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-1302"></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">maxloop</span>
+<a name="ln-1303"></a>         <span class="kt">real</span><span 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-1304"></a>      <span class="k">end function </span><span class="n">util_minimize_bfgs</span>
+<a name="ln-1305"></a>
+<a name="ln-1306"></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-1307"></a>         <span class="k">implicit none</span>
+<a name="ln-1308"></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-1309"></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-1310"></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-1311"></a>      <span class="k">end subroutine </span><span class="n">util_peri_tp</span>
+<a name="ln-1312"></a>   <span class="k">end interface</span>
+<a name="ln-1313"></a>
 <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>
+<a name="ln-1315"></a><span class="k">   interface </span><span class="n">util_resize</span>
+<a name="ln-1316"></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-1317"></a>         <span class="k">implicit none</span>
+<a name="ln-1318"></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-1319"></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-1320"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_char_string</span>
+<a name="ln-1321"></a>
+<a name="ln-1322"></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-1323"></a>         <span class="k">implicit none</span>
+<a name="ln-1324"></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-1325"></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-1326"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_DP</span>
+<a name="ln-1327"></a>
+<a name="ln-1328"></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-1329"></a>         <span class="k">implicit none</span>
+<a name="ln-1330"></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-1331"></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-1332"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_DPvec</span>
+<a name="ln-1333"></a>
+<a name="ln-1334"></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-1335"></a>         <span class="k">implicit none</span>
+<a name="ln-1336"></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-1337"></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-1338"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_I4B</span>
+<a name="ln-1339"></a>
+<a name="ln-1340"></a>      <span class="k">module subroutine </span><span class="n">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-1341"></a>         <span class="k">implicit none</span>
+<a name="ln-1342"></a><span class="k">         type</span><span class="p">(</span><span class="n">swiftest_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-1343"></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-1344"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_info</span>
+<a name="ln-1345"></a>
+<a name="ln-1346"></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-1347"></a>         <span class="k">implicit none</span>
+<a name="ln-1348"></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-1349"></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-1350"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_logical</span>
+<a name="ln-1351"></a>   <span class="k">end interface</span>
+<a name="ln-1352"></a>
+<a name="ln-1353"></a><span class="k">   interface</span>
+<a name="ln-1354"></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-1355"></a>         <span class="k">implicit none</span>
+<a name="ln-1356"></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-1357"></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-1358"></a>      <span class="k">end subroutine </span><span class="n">util_resize_body</span>
+<a name="ln-1359"></a>
+<a name="ln-1360"></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-1361"></a>         <span class="k">implicit none</span>
+<a name="ln-1362"></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-1363"></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-1364"></a>      <span class="k">end subroutine </span><span class="n">util_resize_encounter</span>
+<a name="ln-1365"></a>
+<a name="ln-1366"></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-1367"></a>         <span class="k">implicit none</span>
+<a name="ln-1368"></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-1369"></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-1370"></a>      <span class="k">end subroutine </span><span class="n">util_resize_pl</span>
+<a name="ln-1371"></a>
+<a name="ln-1372"></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-1373"></a>         <span class="k">implicit none</span>
+<a name="ln-1374"></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-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">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-1376"></a>      <span class="k">end subroutine </span><span class="n">util_resize_tp</span>
+<a name="ln-1377"></a>
+<a name="ln-1378"></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-1379"></a>         <span class="k">implicit none</span>
+<a name="ln-1380"></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-1381"></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-1382"></a>      <span class="k">end subroutine </span><span class="n">util_get_energy_momentum_system</span>
+<a name="ln-1383"></a>
+<a name="ln-1384"></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-1385"></a>         <span class="k">implicit none</span>
+<a name="ln-1386"></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-1387"></a>         <span class="kt">real</span><span 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-1388"></a>         <span class="kt">real</span><span 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-1389"></a>         <span class="kt">real</span><span 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-1390"></a>      <span class="k">end subroutine </span><span class="n">util_set_beg_end_pl</span>
+<a name="ln-1391"></a>
+<a name="ln-1392"></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-1393"></a>         <span class="k">implicit none</span>
+<a name="ln-1394"></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-1395"></a>      <span class="k">end subroutine </span><span class="n">util_set_ir3h</span>
+<a name="ln-1396"></a>
+<a name="ln-1397"></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-1398"></a>         <span class="k">implicit none</span>
+<a name="ln-1399"></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-1400"></a>      <span class="k">end subroutine </span><span class="n">util_set_msys</span>
+<a name="ln-1401"></a>
+<a name="ln-1402"></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-1403"></a>         <span class="k">implicit none</span>
+<a name="ln-1404"></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-1405"></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-1406"></a>      <span class="k">end subroutine </span><span class="n">util_set_mu_pl</span>
+<a name="ln-1407"></a>
+<a name="ln-1408"></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-1409"></a>         <span class="k">implicit none</span>
+<a name="ln-1410"></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-1411"></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-1412"></a>      <span class="k">end subroutine </span><span class="n">util_set_mu_tp</span>
+<a name="ln-1413"></a>
+<a name="ln-1414"></a>      <span class="k">module subroutine </span><span class="n">util_set_particle_info</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">particle_type</span><span class="p">,</span> <span class="n">status</span><span class="p">,</span> <span class="n">origin_type</span><span class="p">,</span> <span class="n">origin_time</span><span class="p">,</span> <span class="n">origin_xh</span><span class="p">,</span> <span class="n">origin_vh</span><span class="p">,</span> <span class="n">discard_time</span><span class="p">,</span> <span class="n">discard_xh</span><span class="p">,</span> <span class="n">discard_vh</span><span class="p">,</span> <span class="n">discard_body_id</span><span class="p">)</span>
+<a name="ln-1415"></a>         <span class="k">implicit none</span>
+<a name="ln-1416"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_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>
+<a name="ln-1417"></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="k">optional</span> <span class="kd">::</span> <span class="n">name</span>            <span class="c">!! Non-unique name</span>
+<a name="ln-1418"></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="k">optional</span> <span class="kd">::</span> <span class="n">particle_type</span>   <span class="c">!! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</span>
+<a name="ln-1419"></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="k">optional</span> <span class="kd">::</span> <span class="n">status</span>          <span class="c">!! Particle status description: Active, Merged, Fragmented, etc.</span>
+<a name="ln-1420"></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="k">optional</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-1421"></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="k">optional</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-1422"></a>         <span class="kt">real</span><span 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">origin_xh</span>       <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s formation</span>
+<a name="ln-1423"></a>         <span class="kt">real</span><span 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">origin_vh</span>       <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s formation</span>
+<a name="ln-1424"></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="k">optional</span> <span class="kd">::</span> <span class="n">discard_time</span>    <span class="c">!! The time of the particle&#39;s discard</span>
+<a name="ln-1425"></a>         <span class="kt">real</span><span 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">discard_xh</span>      <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s discard</span>
+<a name="ln-1426"></a>         <span class="kt">real</span><span 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">discard_vh</span>      <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s discard</span>
+<a name="ln-1427"></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="k">optional</span> <span class="kd">::</span> <span class="n">discard_body_id</span> <span class="c">!! The id of the other body involved in the discard (0 if no other body involved)</span>
+<a name="ln-1428"></a>      <span class="k">end subroutine </span><span class="n">util_set_particle_info</span>
+<a name="ln-1429"></a>
+<a name="ln-1430"></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-1431"></a>         <span class="k">implicit none</span>
+<a name="ln-1432"></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-1433"></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-1434"></a>      <span class="k">end subroutine </span><span class="n">util_set_rhill</span>
+<a name="ln-1435"></a>
+<a name="ln-1436"></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-1437"></a>         <span class="k">implicit none</span>
+<a name="ln-1438"></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-1439"></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-1440"></a>      <span class="k">end subroutine </span><span class="n">util_set_rhill_approximate</span>
+<a name="ln-1441"></a>   <span class="k">end interface</span>
+<a name="ln-1442"></a>
+<a name="ln-1443"></a><span class="k">   interface </span><span class="n">util_solve_linear_system</span>
+<a name="ln-1444"></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-1445"></a>         <span class="k">implicit none</span>
+<a name="ln-1446"></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-1447"></a>         <span class="kt">real</span><span 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-1448"></a>         <span class="kt">real</span><span 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-1449"></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-1450"></a>         <span class="kt">real</span><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-1451"></a>      <span class="k">end function </span><span class="n">util_solve_linear_system_d</span>
+<a name="ln-1452"></a>
+<a name="ln-1453"></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-1454"></a>         <span class="k">implicit none</span>
+<a name="ln-1455"></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-1456"></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-1457"></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-1458"></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-1459"></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-1460"></a>      <span class="k">end function </span><span class="n">util_solve_linear_system_q</span>
+<a name="ln-1461"></a>   <span class="k">end interface</span>
+<a name="ln-1462"></a>
+<a name="ln-1463"></a><span class="k">   interface</span>
+<a name="ln-1464"></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-1465"></a>         <span class="k">use </span><span class="n">lambda_function</span>
+<a name="ln-1466"></a>         <span class="k">implicit none</span>
+<a name="ln-1467"></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-1468"></a>         <span class="kt">real</span><span 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-1469"></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-1470"></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-1471"></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-1472"></a>         <span class="kt">real</span><span 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-1473"></a>      <span class="k">end function </span><span class="n">util_solve_rkf45</span>
+<a name="ln-1474"></a>   <span class="k">end interface</span>
+<a name="ln-1475"></a>
+<a name="ln-1476"></a><span class="k">   interface </span><span class="n">util_sort</span>
+<a name="ln-1477"></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-1478"></a>         <span class="k">implicit none</span>
+<a name="ln-1479"></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-1480"></a>      <span class="k">end subroutine </span><span class="n">util_sort_i4b</span>
+<a name="ln-1481"></a>
+<a name="ln-1482"></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-1483"></a>         <span class="k">implicit none</span>
+<a name="ln-1484"></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-1485"></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-1486"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_i4b</span>
+<a name="ln-1487"></a>
+<a name="ln-1488"></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-1489"></a>         <span class="k">implicit none</span>
+<a name="ln-1490"></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-1491"></a>      <span class="k">end subroutine </span><span class="n">util_sort_sp</span>
+<a name="ln-1492"></a>
+<a name="ln-1493"></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-1494"></a>         <span class="k">implicit none</span>
+<a name="ln-1495"></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-1496"></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-1497"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_sp</span>
+<a name="ln-1498"></a>
+<a name="ln-1499"></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-1500"></a>         <span class="k">implicit none</span>
+<a name="ln-1501"></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-1502"></a>      <span class="k">end subroutine </span><span class="n">util_sort_dp</span>
+<a name="ln-1503"></a>
+<a name="ln-1504"></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-1505"></a>         <span class="k">implicit none</span>
+<a name="ln-1506"></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-1507"></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-1508"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_dp</span>
+<a name="ln-1509"></a>   <span class="k">end interface </span><span class="n">util_sort</span>
+<a name="ln-1510"></a>
+<a name="ln-1511"></a>   <span class="k">interface </span><span class="n">util_sort_rearrange</span>
+<a name="ln-1512"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-1513"></a>         <span class="k">implicit none</span>
+<a name="ln-1514"></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-1515"></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 to rearrange against</span>
+<a name="ln-1516"></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 elements in arr and ind to rearrange</span>
+<a name="ln-1517"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_arr_char_string</span>
+<a name="ln-1518"></a>
+<a name="ln-1519"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-1520"></a>         <span class="k">implicit none</span>
+<a name="ln-1521"></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-1522"></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 to rearrange against</span>
+<a name="ln-1523"></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 elements in arr and ind to rearrange</span>
+<a name="ln-1524"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_arr_DP</span>
+<a name="ln-1525"></a>
+<a name="ln-1526"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-1527"></a>         <span class="k">implicit none</span>
+<a name="ln-1528"></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-1529"></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 to rearrange against</span>
+<a name="ln-1530"></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 elements in arr and ind to rearrange</span>
+<a name="ln-1531"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_arr_DPvec</span>
+<a name="ln-1532"></a>
+<a name="ln-1533"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-1534"></a>         <span class="k">implicit none</span>
+<a name="ln-1535"></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-1536"></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 to rearrange against</span>
+<a name="ln-1537"></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 elements in arr and ind to rearrange</span>
+<a name="ln-1538"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_arr_I4B</span>
+<a name="ln-1539"></a>
+<a name="ln-1540"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-1541"></a>         <span class="k">implicit none</span>
+<a name="ln-1542"></a><span class="k">         type</span><span class="p">(</span><span class="n">swiftest_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-1543"></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 to rearrange against</span>
+<a name="ln-1544"></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 elements in arr and ind to rearrange</span>
+<a name="ln-1545"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_arr_info</span>
+<a name="ln-1546"></a>
+<a name="ln-1547"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-1548"></a>         <span class="k">implicit none</span>
+<a name="ln-1549"></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-1550"></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 to rearrange against</span>
+<a name="ln-1551"></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 elements in arr and ind to rearrange</span>
+<a name="ln-1552"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_arr_logical</span>
+<a name="ln-1553"></a>   <span class="k">end interface </span><span class="n">util_sort_rearrange</span>
+<a name="ln-1554"></a>
+<a name="ln-1555"></a>   <span class="k">interface</span>
+<a name="ln-1556"></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-1557"></a>         <span class="k">implicit none</span>
+<a name="ln-1558"></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-1559"></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-1560"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_body</span>
+<a name="ln-1561"></a>
+<a name="ln-1562"></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-1563"></a>         <span class="k">implicit none</span>
+<a name="ln-1564"></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-1565"></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-1566"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_pl</span>
+<a name="ln-1567"></a>
+<a name="ln-1568"></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-1569"></a>         <span class="k">implicit none</span>
+<a name="ln-1570"></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-1571"></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-1572"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_tp</span>
+<a name="ln-1573"></a>
+<a name="ln-1574"></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-1575"></a>         <span class="k">implicit none</span>
+<a name="ln-1576"></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-1577"></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-1578"></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-1579"></a>      <span class="k">end subroutine </span><span class="n">util_sort_body</span>
+<a name="ln-1580"></a>
+<a name="ln-1581"></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-1582"></a>         <span class="k">implicit none</span>
+<a name="ln-1583"></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-1584"></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-1585"></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-1586"></a>      <span class="k">end subroutine </span><span class="n">util_sort_pl</span>
+<a name="ln-1587"></a>
+<a name="ln-1588"></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-1589"></a>         <span class="k">implicit none</span>
+<a name="ln-1590"></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-1591"></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-1592"></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-1593"></a>      <span class="k">end subroutine </span><span class="n">util_sort_tp</span>
+<a name="ln-1594"></a>   <span class="k">end interface</span>
+<a name="ln-1595"></a>
+<a name="ln-1596"></a><span class="k">   interface </span><span class="n">util_spill</span>
+<a name="ln-1597"></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-1598"></a>         <span class="k">implicit none</span>
+<a name="ln-1599"></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-1600"></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-1601"></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-1602"></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-1603"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_char_string</span>
+<a name="ln-1604"></a>
+<a name="ln-1605"></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-1606"></a>         <span class="k">implicit none</span>
+<a name="ln-1607"></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-1608"></a>         <span class="kt">real</span><span 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-1609"></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-1610"></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-1611"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_DP</span>
+<a name="ln-1612"></a>
+<a name="ln-1613"></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-1614"></a>         <span class="k">implicit none</span>
+<a name="ln-1615"></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-1616"></a>         <span class="kt">real</span><span 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-1617"></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-1618"></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-1619"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_DPvec</span>
+<a name="ln-1620"></a>
+<a name="ln-1621"></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-1622"></a>         <span class="k">implicit none</span>
+<a name="ln-1623"></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-1624"></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-1625"></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-1626"></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-1627"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_I4B</span>
+<a name="ln-1628"></a>
+<a name="ln-1629"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_I8B</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-1630"></a>         <span class="k">implicit none</span>
+<a name="ln-1631"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I8B</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-1632"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</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-1633"></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-1634"></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-1635"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_I8B</span>
+<a name="ln-1636"></a>
+<a name="ln-1637"></a>      <span class="k">module subroutine </span><span class="n">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-1638"></a>         <span class="k">implicit none</span>
+<a name="ln-1639"></a><span class="k">         type</span><span class="p">(</span><span class="n">swiftest_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-1640"></a>         <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-1641"></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-1642"></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-1643"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_info</span>
+<a name="ln-1644"></a>
+<a name="ln-1645"></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-1646"></a>         <span class="k">implicit none</span>
+<a name="ln-1647"></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-1648"></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-1649"></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-1650"></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-1651"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_logical</span>
+<a name="ln-1652"></a>   <span class="k">end interface</span>
+<a name="ln-1653"></a>
+<a name="ln-1654"></a><span class="k">   interface </span>
+<a name="ln-1655"></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-1656"></a>         <span class="k">implicit none</span>
+<a name="ln-1657"></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-1658"></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-1659"></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-1660"></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-1661"></a>      <span class="k">end subroutine </span><span class="n">util_spill_body</span>
+<a name="ln-1662"></a>
+<a name="ln-1663"></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-1664"></a>         <span class="k">implicit none</span>
+<a name="ln-1665"></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-1666"></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-1667"></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-1668"></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-1669"></a>      <span class="k">end subroutine </span><span class="n">util_spill_encounter</span>
+<a name="ln-1670"></a>
+<a name="ln-1671"></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-1672"></a>         <span class="k">implicit none</span>
+<a name="ln-1673"></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-1674"></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-1675"></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-1676"></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-1677"></a>      <span class="k">end subroutine </span><span class="n">util_spill_pl</span>
+<a name="ln-1678"></a>
+<a name="ln-1679"></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-1680"></a>         <span class="k">implicit none</span>
+<a name="ln-1681"></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-1682"></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-1683"></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-1684"></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-1685"></a>      <span class="k">end subroutine </span><span class="n">util_spill_tp</span>
+<a name="ln-1686"></a>
+<a name="ln-1687"></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-1688"></a>         <span class="k">implicit none</span>
+<a name="ln-1689"></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-1690"></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-1691"></a>      <span class="k">end subroutine </span><span class="n">util_valid_id_system</span>
+<a name="ln-1692"></a>
+<a name="ln-1693"></a>      <span class="k">module subroutine </span><span class="n">util_version</span><span class="p">()</span>
+<a name="ln-1694"></a>         <span class="k">implicit none</span>
+<a name="ln-1695"></a><span class="k">      end subroutine </span><span class="n">util_version</span>
+<a name="ln-1696"></a>   <span class="k">end interface</span>
+<a name="ln-1697"></a>
+<a name="ln-1698"></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 ceaf58fdc..db826d915 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.">61 statements</a>
+    title=" 0.5% of total for source files.">74 statements</a>
      </li> 
      
      
@@ -226,238 +226,292 @@ <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="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)">
+<svg id="sourcefileswiftest_driverf90EfferentGraph" width="641pt" height="265pt"
+ viewBox="0.00 0.00 641.00 264.67" 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.69 0.69) rotate(0) translate(4 378.34)">
 <title>sourcefile~~swiftest_driver.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.92 915,-239.92 915,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-378.34 922,-378.34 922,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,-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>
+<polygon fill="none" stroke="black" points="918,-144 820,-144 820,-120 918,-120 918,-144"/>
+<text text-anchor="middle" x="869" y="-129.6" 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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-144 718,-144 718,-120 784,-120 784,-144"/>
+<text text-anchor="middle" x="751" y="-129.6" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.81,-132C811.32,-132 802.54,-132 794.23,-132"/>
+<polygon fill="#000000" stroke="#000000" points="794.01,-128.5 784.01,-132 794.01,-135.5 794.01,-128.5"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node3" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-220 143.5,-220 143.5,-196 250.5,-196 250.5,-220"/>
+<text text-anchor="middle" x="197" y="-205.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_operators.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge2" 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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C583.38,-309.4 582.23,-243.47 537,-227 457.67,-198.11 432.24,-202.41 348,-208"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.94,-144.34C731.46,-175.37 691.38,-256.39 628.5,-288"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-320 300,-320 300,-296 394,-296 394,-320"/>
+<text text-anchor="middle" x="347" y="-305.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~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C607.09,-297.39 480.19,-303.39 404.55,-306.17"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-302.69 394.23,-306.54 404.35,-309.68 404.1,-302.69"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~walltime_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node5" class="node">
-<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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-104 142,-104 142,-80 252,-80 252,-104"/>
+<text text-anchor="middle" x="197" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.63,-132.22C668.53,-132.5 572.27,-132.86 490.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-132C450.97,-131.61 443.05,-119.98 406,-114 358.08,-106.26 303.49,-100.61 262.27,-96.97"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-93.46 252.09,-96.09 261.75,-100.44 262.35,-93.46"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-340 442,-340 442,-316 537,-316 537,-340"/>
+<text text-anchor="middle" x="489.5" y="-325.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_driver.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~swiftest_driver.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C601.47,-300.11 572.03,-309.32 546.96,-315.84"/>
+<polygon fill="#000000" stroke="#000000" points="546.07,-312.45 537.23,-318.29 547.78,-319.24 546.07,-312.45"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node7" class="node">
-<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>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node7"><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>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge6" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C583.49,-309.62 582.23,-332.53 537,-349 457.67,-377.89 431.81,-378.15 348,-368"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node8" class="node">
-<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>
+<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="682,-84 573,-84 573,-60 682,-60 682,-84"/>
+<text text-anchor="middle" x="627.5" y="-69.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~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest_driver.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.41,-119.86C707.21,-110.87 682.21,-98.52 662.16,-88.62"/>
+<polygon fill="#000000" stroke="#000000" points="663.57,-85.41 653.05,-84.12 660.47,-91.69 663.57,-85.41"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-260 442.5,-260 442.5,-236 536.5,-236 536.5,-260"/>
+<text text-anchor="middle" x="489.5" y="-245.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~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge8" 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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-288C608.76,-296.58 559.97,-278.76 525.93,-264.22"/>
+<polygon fill="#000000" stroke="#000000" points="526.9,-260.82 516.33,-260.04 524.1,-267.24 526.9,-260.82"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-222 576,-222 576,-198 679,-198 679,-222"/>
+<text text-anchor="middle" x="627.5" y="-207.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_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.28,-144.02C711.18,-156.92 679.05,-177.55 656.06,-192.31"/>
+<polygon fill="#000000" stroke="#000000" points="653.96,-189.49 647.44,-197.84 657.75,-195.38 653.96,-189.49"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-180 294.5,-180 294.5,-156 399.5,-156 399.5,-180"/>
+<text text-anchor="middle" x="347" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-132C453.18,-131.63 414.38,-142.47 386.52,-152.35"/>
+<polygon fill="#000000" stroke="#000000" points="384.96,-149.2 376.78,-155.93 387.38,-155.77 384.96,-149.2"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-24 288,-24 288,0 406,0 406,-24"/>
+<text text-anchor="middle" x="347" 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~~swiftest_driver.f90~~EfferentGraph_edge11" 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.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.78,-119.89C733.62,-101.48 711.58,-66.94 682,-51 598.73,-6.12 487.07,-2.43 416.31,-5.77"/>
+<polygon fill="#000000" stroke="#000000" points="415.98,-2.28 406.18,-6.3 416.35,-9.27 415.98,-2.28"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge12" 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,-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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.5,-195.96C149.85,-183.3 112.46,-163.29 85.81,-149.02"/>
+<polygon fill="#000000" stroke="#000000" points="87.33,-145.87 76.87,-144.24 84.03,-152.04 87.33,-145.87"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.11,-295.98C306.12,-292 296.44,-287.23 288,-282 262.06,-265.92 235.43,-243.09 217.94,-227.05"/>
+<polygon fill="#000000" stroke="#000000" points="220.28,-224.45 210.58,-220.21 215.52,-229.58 220.28,-224.45"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.86,-318.28C269.35,-322.68 229.35,-323.72 198,-308"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_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~whm_classes.f90</title>
-<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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-104C138.79,-108.12 122.26,-112.77 106.93,-117.09"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-113.79 97.07,-119.87 107.64,-120.53 105.74,-113.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-321.34C429.74,-319.64 416.74,-317.79 404.34,-316.02"/>
+<polygon fill="#000000" stroke="#000000" points="404.5,-312.51 394.1,-314.56 403.51,-319.44 404.5,-312.51"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.56,-340.03C439.28,-353.62 391.05,-373.21 348,-368"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-368C275.54,-359.47 261.45,-339.81 198,-308"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.66,-64.71C473.51,-52.07 265.96,-29.49 198,-52"/>
 </g>
-<!-- sourcefile~whm_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_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="M303.22,-118.82C274.26,-123.97 236.11,-129.29 202,-129.29"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-268C300,-269.68 251.41,-243.94 222.94,-225.64"/>
+<polygon fill="#000000" stroke="#000000" points="224.71,-222.61 214.44,-220.01 220.84,-228.45 224.71,-222.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.21,-257.08C414.92,-261.81 379.64,-266.85 348,-268"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.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="M460.07,-260.14C438.64,-269.29 409.06,-281.92 385.67,-291.91"/>
+<polygon fill="#000000" stroke="#000000" points="384.21,-288.73 376.39,-295.88 386.96,-295.17 384.21,-288.73"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-268C311.95,-269.24 228.46,-323.27 198,-308"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-308C128.84,-274.33 82.75,-192.67 63.75,-153.57"/>
+<polygon fill="#000000" stroke="#000000" points="66.84,-151.93 59.41,-144.38 60.52,-154.92 66.84,-151.93"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge20" class="edge">
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge22" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-170C424.52,-160.46 412.55,-203.72 348,-208"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-208C318.16,-209.85 287.31,-210.13 261.01,-209.84"/>
+<polygon fill="#000000" stroke="#000000" points="260.85,-206.34 250.8,-209.69 260.75,-213.33 260.85,-206.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.46,-222.18C588.74,-242.76 540.57,-284.55 512.39,-309.01"/>
+<polygon fill="#000000" stroke="#000000" points="509.93,-306.51 504.67,-315.71 514.52,-311.8 509.93,-306.51"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-170C450.85,-164.38 443.5,-153.51 406,-147 314.68,-131.14 290.55,-136.92 198,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.49,-197.94C568.3,-188.08 527.45,-174.98 490.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-132C169.96,-130.1 141.16,-129.77 116.35,-130.04"/>
+<polygon fill="#000000" stroke="#000000" points="116.28,-126.54 106.33,-130.18 116.38,-133.54 116.28,-126.54"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.47,-222.02C570.82,-225.56 556.83,-229.47 543.63,-233.16"/>
+<polygon fill="#000000" stroke="#000000" points="542.41,-229.86 533.72,-235.92 544.29,-236.6 542.41,-229.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-170C462.95,-166.19 434.51,-165.19 409.93,-165.33"/>
+<polygon fill="#000000" stroke="#000000" points="409.61,-161.83 399.65,-165.45 409.69,-168.83 409.61,-161.83"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.6,-180C286.15,-184.17 268.65,-188.9 252.49,-193.27"/>
+<polygon fill="#000000" stroke="#000000" points="251.37,-189.95 242.63,-195.94 253.2,-196.71 251.37,-189.95"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.15,-155.96C282.49,-146.35 238.01,-134.13 198,-132"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.92,-24.05C267.05,-31.37 230.21,-41.33 198,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-52C171.85,-60 164.66,-59.43 142,-71 118.6,-82.95 94.21,-100.3 77.06,-113.45"/>
+<polygon fill="#000000" stroke="#000000" points="74.53,-110.98 68.79,-119.89 78.83,-116.5 74.53,-110.98"/>
 </g>
 </g>
 </svg>
@@ -571,82 +625,97 @@ <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="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-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">ioutput_t0</span>       <span class="c">!! The output frame counter at time 0</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">old_t_final</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Output time at which writing should start, in order to prevent duplicate lines being written for restarts</span>
+<a name="ln-23"></a>   <span class="k">type</span><span class="p">(</span><span class="n">walltimer</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">timer</span>            <span class="c">!! Object used for computing elapsed wall time</span>
+<a name="ln-24"></a>
+<a name="ln-25"></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-26"></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-27"></a><span class="k">      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-28"></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-29"></a>   <span class="k">end if</span>
+<a name="ln-30"></a>   <span class="c">!&gt; Read in the user-defined parameters file and the initial conditions of the system</span>
+<a name="ln-31"></a>   <span class="k">select case</span><span class="p">(</span><span class="n">integrator</span><span class="p">)</span>
+<a name="ln-32"></a>   <span class="k">case</span><span class="p">(</span><span class="n">symba</span><span class="p">)</span>
+<a name="ln-33"></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-34"></a>   <span class="k">case </span><span class="n">default</span>
+<a name="ln-35"></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-36"></a>   <span class="k">end select</span>
+<a name="ln-37"></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-38"></a>
+<a name="ln-39"></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-40"></a>   <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">read_in</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">)</span>
+<a name="ln-41"></a>
+<a name="ln-42"></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-43"></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-44"></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-45"></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-46"></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-47"></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> <span class="p">&amp;</span>
+<a name="ln-48"></a>             <span class="n">ioutput</span>    <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">ioutput</span><span class="p">)</span>  
+<a name="ln-49"></a>
+<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">t0</span><span class="p">)</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-56"></a>      <span class="n">ioutput_t0</span> <span class="o">=</span> <span class="nb">int</span><span class="p">(</span><span class="n">t0</span> <span class="o">/</span> <span class="n">dt</span> <span class="o">/</span> <span class="n">istep_out</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-57"></a>      <span class="n">ioutput</span> <span class="o">=</span> <span class="n">ioutput_t0</span>
+<a name="ln-58"></a>      <span class="c">! Prevent duplicate frames from being written if this is a restarted run</span>
+<a name="ln-59"></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="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">or</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="k">then</span>
+<a name="ln-60"></a><span class="k">         </span><span class="n">old_t_final</span> <span class="o">=</span> <span class="n">nbody_system</span><span class="p">%</span><span class="n">get_old_t_final</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-61"></a>      <span class="k">else</span>
+<a name="ln-62"></a><span class="k">         </span><span class="n">old_t_final</span> <span class="o">=</span> <span class="n">t0</span>
+<a name="ln-63"></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">param</span><span class="p">)</span>
+<a name="ln-64"></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-65"></a>      <span class="k">end if</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-67"></a>      <span class="c">!&gt; Define the maximum number of threads</span>
+<a name="ln-68"></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-69"></a>      <span class="c">!$ nthreads = omp_get_max_threads() ! In the *parallel* case</span>
+<a name="ln-70"></a>      <span class="c">!$ write(*,&#39;(a)&#39;)   &#39; OpenMP parameters:&#39;</span>
+<a name="ln-71"></a>      <span class="c">!$ write(*,&#39;(a)&#39;)   &#39; ------------------&#39;</span>
+<a name="ln-72"></a>      <span class="c">!$ write(*,&#39;(a,i3,/)&#39;) &#39; Number of threads  = &#39;, nthreads </span>
+<a name="ln-73"></a>      <span class="k">call </span><span class="n">timer</span><span class="p">%</span><span class="n">reset</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="s2">&quot; *************** Main Loop *************** &quot;</span>
+<a name="ln-75"></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-76"></a>         <span class="c">!&gt; Step the system forward in time</span>
+<a name="ln-77"></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-78"></a>
+<a name="ln-79"></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-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>
+<a name="ln-81"></a>         <span class="c">!&gt; Evaluate any discards or collisional outcomes</span>
+<a name="ln-82"></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-83"></a>
+<a name="ln-84"></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-85"></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-86"></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-87"></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-88"></a><span class="k">               </span><span class="n">ioutput</span> <span class="o">=</span> <span class="n">ioutput_t0</span> <span class="o">+</span> <span class="n">iloop</span> <span class="o">/</span> <span class="n">istep_out</span>
+<a name="ln-89"></a>               <span class="k">call </span><span class="n">timer</span><span class="p">%</span><span class="n">finish</span><span class="p">(</span><span class="n">nsubsteps</span><span class="o">=</span><span class="n">istep_out</span><span class="p">,</span> <span class="n">message</span><span class="o">=</span><span class="s2">&quot;Integration steps:&quot;</span><span class="p">)</span>
+<a name="ln-90"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">t</span> <span class="o">&gt;</span> <span class="n">old_t_final</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">param</span><span class="p">)</span>
+<a name="ln-91"></a>               <span class="k">call </span><span class="n">timer</span><span class="p">%</span><span class="n">finish</span><span class="p">(</span><span class="n">nsubsteps</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span>         <span class="n">message</span><span class="o">=</span><span class="s2">&quot;File I/O:         &quot;</span><span class="p">)</span>
+<a name="ln-92"></a>               <span class="n">iout</span> <span class="o">=</span> <span class="n">istep_out</span>
+<a name="ln-93"></a>            <span class="k">end if</span>
+<a name="ln-94"></a><span class="k">         end if</span>
+<a name="ln-95"></a>
+<a name="ln-96"></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-97"></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-98"></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-99"></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-100"></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-101"></a>               <span class="n">idump</span> <span class="o">=</span> <span class="n">istep_dump</span>
+<a name="ln-102"></a>            <span class="k">end if</span>
+<a name="ln-103"></a><span class="k">         end if</span>
+<a name="ln-104"></a><span class="k">      end do</span>
+<a name="ln-105"></a><span class="k">   end associate</span>
+<a name="ln-106"></a>
+<a name="ln-107"></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-108"></a>
+<a name="ln-109"></a>   <span class="k">stop</span>
+<a name="ln-110"></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 a2991ad24..14b7a3a4c 100644
--- a/docs/sourcefile/swiftest_globals.f90.html
+++ b/docs/sourcefile/swiftest_globals.f90.html
@@ -134,7 +134,7 @@ <h1>swiftest_globals.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for source files.">92 statements</a>
+    title=" 1.0% of total for source files.">164 statements</a>
      </li> 
      
      
@@ -227,1423 +227,1642 @@ <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="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)">
+<svg id="sourcefileswiftest_globalsf90AfferentGraph" width="641pt" height="1738pt"
+ viewBox="0.00 0.00 641.00 1738.26" 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.62 0.62) rotate(0) translate(4 2800)">
 <title>sourcefile~~swiftest_globals.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 1017,-2464 1017,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 1030,-2800 1030,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,-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>
+<polygon fill="none" stroke="black" points="106,-1578 0,-1578 0,-1554 106,-1554 106,-1578"/>
+<text text-anchor="middle" x="53" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_globals.f90</text>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node2" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-1538 143,-1538 143,-1514 250,-1514 250,-1538"/>
+<text text-anchor="middle" x="196.5" y="-1523.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge1" 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.05,-2349.97C595.47,-2267.11 470.11,-1782.65 340.5,-1728"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-1538C138.49,-1542.12 122.02,-1546.77 106.74,-1551.09"/>
+<polygon fill="#000000" stroke="#000000" points="105.58,-1547.78 96.91,-1553.87 107.49,-1554.52 105.58,-1547.78"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="389,-1774 295,-1774 295,-1750 389,-1750 389,-1774"/>
+<text text-anchor="middle" x="342" y="-1759.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~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.26,-1774.12C277.76,-1788.87 218.36,-1810.78 197.5,-1802"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_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="M304.42,-1749.9C297.85,-1746.32 291.63,-1741.75 287,-1736 243.72,-1682.27 283.18,-1646.03 251,-1585 243.11,-1570.04 230.55,-1555.91 219.58,-1545.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.65,-1542.37 211.96,-1538.1 216.87,-1547.49 221.65,-1542.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-1656 287,-1656 287,-1632 397,-1632 397,-1656"/>
+<text text-anchor="middle" x="342" y="-1641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-1802C106.69,-1764.61 69.99,-1639.63 58.41,-1588.3"/>
+<polygon fill="#000000" stroke="#000000" points="61.78,-1587.3 56.26,-1578.26 54.93,-1588.77 61.78,-1587.3"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.74,-1656.12C301.13,-1659.87 293.38,-1664.49 287,-1670 233.33,-1716.3 262.83,-1829.51 197.5,-1802"/>
 </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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="533,-1934 438,-1934 438,-1910 533,-1910 533,-1934"/>
+<text text-anchor="middle" x="485.5" y="-1919.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_edge79" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<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"/>
+<!-- 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="M441.96,-1909.98C401.33,-1897.89 338.78,-1877.68 287,-1854 245.16,-1834.87 239.9,-1819.85 197.5,-1802"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.04,-1909.91C444.36,-1906.27 437.91,-1901.68 433,-1896 399.92,-1857.71 430.44,-1825.97 397,-1788 394.18,-1784.79 390.87,-1781.95 387.31,-1779.43"/>
+<polygon fill="#000000" stroke="#000000" points="388.99,-1776.36 378.64,-1774.12 385.34,-1782.33 388.99,-1776.36"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-1618 142,-1618 142,-1594 251,-1594 251,-1618"/>
+<text text-anchor="middle" x="196.5" y="-1603.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_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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<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="M153.05,-1594C138.49,-1589.88 122.02,-1585.23 106.74,-1580.91"/>
+<polygon fill="#000000" stroke="#000000" points="107.49,-1577.48 96.91,-1578.13 105.58,-1584.22 107.49,-1577.48"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_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,-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_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,-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~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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="532.5,-1854 438.5,-1854 438.5,-1830 532.5,-1830 532.5,-1854"/>
+<text text-anchor="middle" x="485.5" y="-1839.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~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_edge3" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge6" 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.19,-1536.33C374.06,-1542.57 276.99,-1548.71 196.5,-1530"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-1840C281.51,-1811.48 258.31,-1827.6 197.5,-1802"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge106" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge40" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M438.3,-1850.84C409.51,-1854.11 372.47,-1854.12 343,-1840"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-1840C317.32,-1828.65 302.97,-1836.85 287,-1816 223.82,-1733.51 295.78,-1678.76 251,-1585 243.81,-1569.94 231.5,-1555.96 220.51,-1545.4"/>
+<polygon fill="#000000" stroke="#000000" points="222.56,-1542.53 212.82,-1538.34 217.82,-1547.69 222.56,-1542.53"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge122" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge50" 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,-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~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.06,-1829.84C448.58,-1818.5 421.43,-1801.37 397,-1788 391.19,-1784.82 384.93,-1781.61 378.8,-1778.59"/>
+<polygon fill="#000000" stroke="#000000" points="379.9,-1775.23 369.37,-1774.02 376.85,-1781.53 379.9,-1775.23"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<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="M308.68,-1502.06C273.69,-1515.56 217.77,-1534.94 196.5,-1530"/>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="684.5,-1834 581.5,-1834 581.5,-1810 684.5,-1810 684.5,-1834"/>
+<text text-anchor="middle" x="633" y="-1819.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
 </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 -->
+<!-- sourcefile~symba_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="M299.57,-1557.99C271.18,-1549.48 231.68,-1538.18 196.5,-1530"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-1802C282.89,-1775.72 256.33,-1826.62 197.5,-1802"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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="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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-1802C317.37,-1792.58 303.51,-1802.36 287,-1783 228.96,-1714.95 290.56,-1665.22 251,-1585 243.62,-1570.03 231.3,-1556.06 220.35,-1545.48"/>
+<polygon fill="#000000" stroke="#000000" points="222.42,-1542.62 212.7,-1538.4 217.67,-1547.76 222.42,-1542.62"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.38,-1820.18C504.39,-1817.15 364.49,-1810.57 343,-1802"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.45,-1834.06C589.11,-1851.48 542.08,-1883.8 512.64,-1904.03"/>
+<polygon fill="#000000" stroke="#000000" points="510.37,-1901.35 504.11,-1909.89 514.34,-1907.12 510.37,-1901.35"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge75" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge71" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.11,-1829C568.7,-1830.7 555.34,-1832.54 542.7,-1834.28"/>
+<polygon fill="#000000" stroke="#000000" points="542.17,-1830.82 532.74,-1835.64 543.12,-1837.75 542.17,-1830.82"/>
 </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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="538,-1579 433,-1579 433,-1555 538,-1555 538,-1579"/>
+<text text-anchor="middle" x="485.5" y="-1564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </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 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge87" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M624.98,-1809.7C601.84,-1769.14 527.74,-1639.27 498.51,-1588.05"/>
+<polygon fill="#000000" stroke="#000000" points="501.44,-1586.13 493.45,-1579.18 495.36,-1589.6 501.44,-1586.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-1566C263.76,-1560.45 174.52,-1561.64 116.33,-1563.43"/>
+<polygon fill="#000000" stroke="#000000" points="116.07,-1559.93 106.19,-1563.76 116.3,-1566.93 116.07,-1559.93"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.69,-1568.24C405.88,-1568.47 372.65,-1568.13 343,-1566"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-1566C304.77,-1563.39 265.1,-1551.61 236.68,-1541.5"/>
+<polygon fill="#000000" stroke="#000000" points="237.71,-1538.15 227.11,-1538.01 235.31,-1544.73 237.71,-1538.15"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="692,-816 574,-816 574,-792 692,-792 692,-816"/>
+<text text-anchor="middle" x="633" y="-801.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_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="M622.69,-816.28C556.17,-903.97 153.44,-1434.91 69.37,-1545.73"/>
+<polygon fill="#000000" stroke="#000000" points="66.51,-1543.71 63.26,-1553.8 72.09,-1547.94 66.51,-1543.71"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node11" class="node">
-<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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="810,-1431 744,-1431 744,-1407 810,-1407 810,-1431"/>
+<text text-anchor="middle" x="777" y="-1416.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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.5,-1664C398.28,-1701.99 370.35,-1697.08 287,-1741 244.41,-1763.44 241.91,-1820.59 197.5,-1802"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632,-1528C585.18,-1572.61 542.33,-1494.36 486.5,-1527"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M757.53,-1431.28C729.45,-1450.35 674.95,-1488.99 634,-1528"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.5,-1664C437.67,-1684.1 390.44,-1720.91 364.12,-1743.25"/>
+<polygon fill="#000000" stroke="#000000" points="361.63,-1740.78 356.34,-1749.95 366.2,-1746.08 361.63,-1740.78"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.5,-1664C450.81,-1678.46 408.85,-1669.56 379.41,-1659.45"/>
+<polygon fill="#000000" stroke="#000000" points="380.53,-1656.13 369.93,-1656.01 378.14,-1662.71 380.53,-1656.13"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632,-1528C520.04,-1634.66 611.54,-1726.97 538,-1863 530.09,-1877.63 517.98,-1891.75 507.49,-1902.5"/>
+<polygon fill="#000000" stroke="#000000" points="504.87,-1900.18 500.23,-1909.7 509.8,-1905.15 504.87,-1900.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.5,-1664C445.04,-1680.94 438.49,-1634.11 397,-1623 352.67,-1611.13 301.01,-1606.98 261.37,-1605.75"/>
+<polygon fill="#000000" stroke="#000000" points="261.39,-1602.25 251.3,-1605.49 261.21,-1609.25 261.39,-1602.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632,-1528C567.91,-1589.06 567.5,-1628.31 486.5,-1664"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632,-1528C586.05,-1571.77 516.86,-1757.1 494.07,-1820.57"/>
+<polygon fill="#000000" stroke="#000000" points="490.78,-1819.4 490.71,-1830 497.37,-1821.75 490.78,-1819.4"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M771.75,-1431.06C751.83,-1487.61 667.55,-1726.8 641.62,-1800.37"/>
+<polygon fill="#000000" stroke="#000000" points="638.26,-1799.39 638.23,-1809.99 644.86,-1801.72 638.26,-1799.39"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge91" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M632,-1528C619.63,-1539.78 582.01,-1549.69 548.13,-1556.57"/>
+<polygon fill="#000000" stroke="#000000" points="547.36,-1553.16 538.23,-1558.52 548.72,-1560.03 547.36,-1553.16"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge94" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M773.23,-1406.99C755.86,-1331.76 662.01,-925.31 639.06,-825.93"/>
+<polygon fill="#000000" stroke="#000000" points="642.45,-825.04 636.79,-816.09 635.63,-826.62 642.45,-825.04"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node12" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1019,-2208 869,-2208 869,-2184 1019,-2184 1019,-2208"/>
+<text text-anchor="middle" x="944" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge76" 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="M879.81,-2183.96C873.55,-2181.51 867.49,-2178.55 862,-2175 811.84,-2142.51 829.79,-2099.82 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge96" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M871.9,-2183.92C868.21,-2181.43 864.86,-2178.48 862,-2175 818,-2121.41 839.91,-1619.93 826,-1552 817.65,-1511.24 799.31,-1466.15 787.88,-1440.33"/>
+<polygon fill="#000000" stroke="#000000" points="791.03,-1438.8 783.73,-1431.12 784.65,-1441.68 791.03,-1438.8"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="988,-2166 900,-2166 900,-2142 988,-2142 988,-2166"/>
+<text text-anchor="middle" x="944" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M899.86,-2146.11C887.29,-2142.95 873.78,-2138.67 862,-2133 819.95,-2112.76 818.44,-2093.28 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge97" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M899.72,-2152.6C885.62,-2149.87 871.24,-2144.21 862,-2133 820.85,-2083.1 839.11,-1615.34 826,-1552 817.57,-1511.25 799.26,-1466.16 787.85,-1440.34"/>
+<polygon fill="#000000" stroke="#000000" points="791,-1438.81 783.71,-1431.13 784.62,-1441.68 791,-1438.81"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983,-1494 905,-1494 905,-1470 983,-1470 983,-1494"/>
+<text text-anchor="middle" x="944" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.83,-1488.68C890.92,-1491.93 875.35,-1496.57 862,-1503 819.95,-1523.24 824.31,-1560.27 778,-1566"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-1566C698.01,-1575.66 607.29,-1573.89 548.48,-1571.05"/>
+<polygon fill="#000000" stroke="#000000" points="548.41,-1567.54 538.25,-1570.53 548.06,-1574.54 548.41,-1567.54"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge98" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.99,-1473.89C891.25,-1470.51 875.74,-1466.15 862,-1461 843.67,-1454.13 824.05,-1444.46 808.39,-1436.13"/>
+<polygon fill="#000000" stroke="#000000" points="809.66,-1432.84 799.2,-1431.16 806.33,-1439 809.66,-1432.84"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1000,-1410 888,-1410 888,-1386 1000,-1386 1000,-1410"/>
+<text text-anchor="middle" x="944" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge86" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.29,-1385.93C848.04,-1373.49 779.53,-1355.9 778,-1356"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge99" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.6,-1405.05C865.65,-1407.84 840.83,-1411 820.37,-1413.61"/>
+<polygon fill="#000000" stroke="#000000" points="819.88,-1410.14 810.4,-1414.88 820.76,-1417.09 819.88,-1410.14"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="980.5,-1872 907.5,-1872 907.5,-1848 980.5,-1848 980.5,-1872"/>
+<text text-anchor="middle" x="944" y="-1857.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_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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907.26,-1853.88C892.76,-1850.61 876.14,-1845.8 862,-1839 819.95,-1818.76 824.63,-1774.05 778,-1776"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge100" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907.22,-1859.44C891.1,-1857.25 873.22,-1851.77 862,-1839 819.57,-1790.72 841,-1614.5 826,-1552 816.29,-1511.54 798.39,-1466.35 787.41,-1440.43"/>
+<polygon fill="#000000" stroke="#000000" points="790.6,-1438.99 783.44,-1431.19 784.17,-1441.76 790.6,-1438.99"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="999.5,-906 888.5,-906 888.5,-882 999.5,-882 999.5,-906"/>
+<text text-anchor="middle" x="944" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge12" 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="M888.3,-886.99C878.78,-883.86 869.54,-879.39 862,-873 791.88,-813.56 848.54,-625.06 778,-684"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge101" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.45,-898.4C878.33,-901.68 868.82,-906.88 862,-915 796.81,-992.7 868.01,-1277.68 826,-1370 820.74,-1381.57 811.52,-1392.01 802.56,-1400.25"/>
+<polygon fill="#000000" stroke="#000000" points="800.14,-1397.72 794.85,-1406.9 804.71,-1403.01 800.14,-1397.72"/>
+</g>
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-2460 905.5,-2460 905.5,-2436 982.5,-2436 982.5,-2460"/>
+<text text-anchor="middle" x="944" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.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="M905.36,-2442.88C891.07,-2439.78 875.09,-2434.84 862,-2427 841.76,-2414.88 844.86,-2402.17 826,-2388 806.93,-2373.67 798.84,-2375.59 778,-2364"/>
+</g>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge102" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.48,-2447.68C889.6,-2445.46 872.4,-2439.89 862,-2427 800.88,-2351.28 844.73,-1647.48 826,-1552 817.99,-1511.17 799.54,-1466.1 787.99,-1440.31"/>
+<polygon fill="#000000" stroke="#000000" points="791.13,-1438.76 783.8,-1431.11 784.76,-1441.66 791.13,-1438.76"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="997,-2124 891,-2124 891,-2100 997,-2100 997,-2124"/>
+<text text-anchor="middle" x="944" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M890.81,-2106.13C856.9,-2100.58 812.71,-2089.98 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge103" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M890.88,-2108.44C879.84,-2105.22 869.32,-2099.84 862,-2091 823.71,-2044.78 838.31,-1610.75 826,-1552 817.47,-1511.28 799.19,-1466.17 787.81,-1440.34"/>
+<polygon fill="#000000" stroke="#000000" points="790.97,-1438.83 783.69,-1431.13 784.58,-1441.69 790.97,-1438.83"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1003,-864 885,-864 885,-840 1003,-840 1003,-864"/>
+<text text-anchor="middle" x="944" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge13" 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="M884.6,-842.93C876.51,-839.99 868.69,-836.12 862,-831 802.22,-785.3 835.75,-635.76 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge104" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M884.7,-857.67C875.99,-860.97 867.95,-865.86 862,-873 791.11,-958.07 871.53,-1269.06 826,-1370 820.77,-1381.59 811.56,-1392.03 802.6,-1400.27"/>
+<polygon fill="#000000" stroke="#000000" points="800.18,-1397.73 794.89,-1406.91 804.75,-1403.04 800.18,-1397.73"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-1830 910,-1830 910,-1806 978,-1806 978,-1830"/>
+<text text-anchor="middle" x="944" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.64,-1809.38C861.91,-1797.07 779.68,-1775.93 778,-1776"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge105" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.79,-1817.65C893.1,-1815.66 873.94,-1810.3 862,-1797 825.24,-1756.05 839.41,-1605.37 826,-1552 815.86,-1511.65 798.11,-1466.42 787.26,-1440.47"/>
+<polygon fill="#000000" stroke="#000000" points="790.47,-1439.06 783.35,-1431.21 784.02,-1441.78 790.47,-1439.06"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986.5,-1788 901.5,-1788 901.5,-1764 986.5,-1764 986.5,-1788"/>
+<text text-anchor="middle" x="944" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.28,-1775.04C867.9,-1774.5 819.93,-1774.25 778,-1776"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge106" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.25,-1774.16C886.96,-1771.42 872.06,-1765.88 862,-1755 799.79,-1687.73 849.64,-1640.53 826,-1552 815.27,-1511.8 797.7,-1466.53 787.06,-1440.52"/>
+<polygon fill="#000000" stroke="#000000" points="790.28,-1439.14 783.22,-1431.24 783.81,-1441.82 790.28,-1439.14"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="977.5,-822 910.5,-822 910.5,-798 977.5,-798 977.5,-822"/>
+<text text-anchor="middle" x="944" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M910.31,-806.4C894.72,-803.51 876.39,-798.32 862,-789 811.84,-756.51 823.86,-645.68 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge107" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M910.18,-809.88C893.17,-811.68 873.59,-817.02 862,-831 785.41,-923.44 875.05,-1260.43 826,-1370 820.81,-1381.6 811.6,-1392.05 802.63,-1400.28"/>
+<polygon fill="#000000" stroke="#000000" points="800.21,-1397.75 794.91,-1406.93 804.78,-1403.05 800.21,-1397.75"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node24" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986.5,-780 901.5,-780 901.5,-756 986.5,-756 986.5,-780"/>
+<text text-anchor="middle" x="944" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.11,-760.43C888.19,-757.23 874.17,-752.86 862,-747 819.95,-726.76 813.81,-654.08 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge108" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.41,-769.09C886.78,-771.69 871.61,-777.34 862,-789 779.71,-888.81 878.57,-1251.8 826,-1370 820.83,-1381.61 811.63,-1392.06 802.66,-1400.3"/>
+<polygon fill="#000000" stroke="#000000" points="800.24,-1397.76 794.94,-1406.94 804.8,-1403.07 800.24,-1397.76"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node25" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983,-2754 905,-2754 905,-2730 983,-2730 983,-2754"/>
+<text text-anchor="middle" x="944" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.83,-2735.32C890.92,-2732.07 875.35,-2727.43 862,-2721 819.95,-2700.76 821.49,-2674.92 778,-2658"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge109" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.58,-2741.61C888.93,-2739.32 872.15,-2733.71 862,-2721 821.45,-2670.23 838.18,-1615.82 826,-1552 818.2,-1511.13 799.69,-1466.07 788.07,-1440.29"/>
+<polygon fill="#000000" stroke="#000000" points="791.2,-1438.73 783.84,-1431.1 784.84,-1441.65 791.2,-1438.73"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="992,-1368 896,-1368 896,-1344 992,-1344 992,-1368"/>
+<text text-anchor="middle" x="944" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge92" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.65,-1354.43C862.64,-1353.72 817.6,-1353.52 778,-1356"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge110" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.79,-1366.46C884.57,-1369.43 872.75,-1372.97 862,-1377 843.67,-1383.87 824.05,-1393.54 808.39,-1401.87"/>
+<polygon fill="#000000" stroke="#000000" points="806.33,-1399 799.2,-1406.84 809.66,-1405.16 806.33,-1399"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983.5,-2418 904.5,-2418 904.5,-2394 983.5,-2394 983.5,-2418"/>
+<text text-anchor="middle" x="944" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.24,-2401.85C869.41,-2396.83 817.78,-2386.13 778,-2364"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge111" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.24,-2405.49C888.72,-2403.15 872.14,-2397.54 862,-2385 803.74,-2312.97 843.93,-1642.89 826,-1552 817.95,-1511.18 799.52,-1466.11 787.98,-1440.31"/>
+<polygon fill="#000000" stroke="#000000" points="791.12,-1438.76 783.79,-1431.11 784.75,-1441.66 791.12,-1438.76"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="980.5,-2712 907.5,-2712 907.5,-2688 980.5,-2688 980.5,-2712"/>
+<text text-anchor="middle" x="944" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907.46,-2693.56C873.51,-2686.81 821.25,-2674.82 778,-2658"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge113" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907.1,-2699.94C890.75,-2697.9 872.71,-2692.39 862,-2679 822.88,-2630.08 837.78,-1613.53 826,-1552 818.18,-1511.13 799.67,-1466.08 788.06,-1440.3"/>
+<polygon fill="#000000" stroke="#000000" points="791.19,-1438.73 783.84,-1431.1 784.83,-1441.65 791.19,-1438.73"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="995.5,-2082 892.5,-2082 892.5,-2058 995.5,-2058 995.5,-2082"/>
+<text text-anchor="middle" x="944" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.32,-2082.01C860.49,-2088.06 813.38,-2090.37 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge112" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.18,-2066.77C880.68,-2063.6 869.63,-2058.15 862,-2049 826.56,-2006.47 837.51,-1606.16 826,-1552 817.35,-1511.3 799.11,-1466.19 787.78,-1440.35"/>
+<polygon fill="#000000" stroke="#000000" points="790.93,-1438.84 783.66,-1431.14 784.54,-1441.7 790.93,-1438.84"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="991,-2040 897,-2040 897,-2016 991,-2016 991,-2040"/>
+<text text-anchor="middle" x="944" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.84,-2039.95C848.26,-2052.5 778.67,-2070.38 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.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="M896.86,-2025.89C883.75,-2022.95 870.68,-2017.35 862,-2007 796.81,-1929.3 847.41,-1651.14 826,-1552 817.22,-1511.33 799.02,-1466.21 787.73,-1440.36"/>
+<polygon fill="#000000" stroke="#000000" points="790.89,-1438.86 783.63,-1431.14 784.5,-1441.7 790.89,-1438.86"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="985,-1998 903,-1998 903,-1974 985,-1974 985,-1998"/>
+<text text-anchor="middle" x="944" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.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="M902.77,-1993.17C889.4,-1996.39 874.7,-2000.89 862,-2007 819.95,-2027.24 818.44,-2093.28 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge115" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.82,-1985C887.84,-1982.48 872.04,-1976.87 862,-1965 802.51,-1894.66 845.8,-1641.97 826,-1552 817.06,-1511.36 798.91,-1466.23 787.67,-1440.37"/>
+<polygon fill="#000000" stroke="#000000" points="790.84,-1438.88 783.6,-1431.15 784.44,-1441.71 790.84,-1438.88"/>
 </g>
-<!-- sourcefile~operator_mag.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-2376 910,-2376 910,-2352 978,-2352 978,-2376"/>
+<text text-anchor="middle" x="944" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.97,-2372.92C874.88,-2380.45 818.93,-2386.77 778,-2364"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge116" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.65,-2364.17C892.7,-2362.36 873.35,-2356.99 862,-2343 806.59,-2274.66 843.13,-1638.3 826,-1552 817.9,-1511.19 799.48,-1466.11 787.96,-1440.31"/>
+<polygon fill="#000000" stroke="#000000" points="791.1,-1438.77 783.78,-1431.11 784.73,-1441.66 791.1,-1438.77"/>
+</g>
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="981.5,-738 906.5,-738 906.5,-714 981.5,-714 981.5,-738"/>
+<text text-anchor="middle" x="944" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M906.15,-716.43C857.71,-703.87 778.63,-683.47 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge118" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M906.42,-726.29C890.33,-728.44 872.69,-733.98 862,-747 818,-800.59 854.05,-1306.59 826,-1370 820.86,-1381.62 811.66,-1392.07 802.68,-1400.31"/>
+<polygon fill="#000000" stroke="#000000" points="800.26,-1397.77 794.96,-1406.94 804.82,-1403.08 800.26,-1397.77"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-1746 905.5,-1746 905.5,-1722 982.5,-1722 982.5,-1746"/>
+<text text-anchor="middle" x="944" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.28,-1743.81C857.58,-1756.18 781.24,-1775.86 778,-1776"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge117" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.27,-1732.58C889.93,-1730.08 873.21,-1724.59 862,-1713 811.03,-1660.29 846.49,-1622.4 826,-1552 814.37,-1512.05 797.1,-1466.7 786.76,-1440.61"/>
+<polygon fill="#000000" stroke="#000000" points="789.99,-1439.28 783.03,-1431.3 783.49,-1441.88 789.99,-1439.28"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-696 905.5,-696 905.5,-672 982.5,-672 982.5,-696"/>
+<text text-anchor="middle" x="944" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907,-671.97C870.23,-662.15 813.61,-654.25 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge119" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.14,-684.44C889.39,-686.71 872.39,-692.29 862,-705 815.15,-762.28 855.81,-1302.27 826,-1370 820.88,-1381.63 811.69,-1392.08 802.7,-1400.32"/>
+<polygon fill="#000000" stroke="#000000" points="800.28,-1397.78 794.97,-1406.95 804.84,-1403.09 800.28,-1397.78"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="984,-2670 904,-2670 904,-2646 984,-2646 984,-2670"/>
+<text text-anchor="middle" x="944" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.86,-2665.77C869.47,-2670.81 818.71,-2673.84 778,-2658"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge120" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.76,-2657.47C888.35,-2655.11 871.99,-2649.47 862,-2637 824.31,-2589.92 837.38,-1611.23 826,-1552 818.15,-1511.14 799.65,-1466.08 788.05,-1440.3"/>
+<polygon fill="#000000" stroke="#000000" points="791.18,-1438.73 783.83,-1431.1 784.82,-1441.65 791.18,-1438.73"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="976,-654 912,-654 912,-630 976,-630 976,-654"/>
+<text text-anchor="middle" x="944" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M911.65,-646.68C869.67,-653.49 798.13,-667.18 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge121" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M911.72,-641.65C894.32,-643.26 873.84,-648.48 862,-663 812.3,-723.96 857.57,-1297.96 826,-1370 820.9,-1381.64 811.71,-1392.09 802.72,-1400.32"/>
+<polygon fill="#000000" stroke="#000000" points="800.3,-1397.79 794.99,-1406.96 804.86,-1403.1 800.3,-1397.79"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest_globals.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="1026,-612 862,-612 862,-588 1026,-588 1026,-612"/>
+<text text-anchor="middle" x="944" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge20" 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="M880.35,-612.07C873.92,-614.52 867.67,-617.46 862,-621 841.14,-634.02 845.76,-648.37 826,-663 807.29,-676.86 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge122" 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="M871.86,-612.05C868.18,-614.55 864.84,-617.51 862,-621 809.44,-685.65 859.33,-1293.64 826,-1370 820.92,-1381.65 811.73,-1392.1 802.74,-1400.33"/>
+<polygon fill="#000000" stroke="#000000" points="800.32,-1397.8 795,-1406.97 804.87,-1403.11 800.32,-1397.8"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971,-570 917,-570 917,-546 971,-546 971,-570"/>
+<text text-anchor="middle" x="944" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.93,-558.94C899.56,-560.85 877.21,-565.94 862,-579 831.19,-605.47 854.61,-634.17 826,-663 809.6,-679.53 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge123" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.85,-557.25C898.49,-558.27 874.99,-562.98 862,-579 806.59,-647.34 861.09,-1289.32 826,-1370 820.93,-1381.66 811.74,-1392.11 802.76,-1400.34"/>
+<polygon fill="#000000" stroke="#000000" points="800.33,-1397.81 795.02,-1406.97 804.89,-1403.12 800.33,-1397.81"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-2334 905.5,-2334 905.5,-2310 982.5,-2310 982.5,-2334"/>
+<text text-anchor="middle" x="944" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.35,-2331.75C856.87,-2344.28 778.71,-2364.4 778,-2364"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge124" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.11,-2321.59C889.35,-2319.32 872.36,-2313.74 862,-2301 809.44,-2236.35 842.32,-1633.7 826,-1552 817.85,-1511.2 799.45,-1466.12 787.95,-1440.32"/>
+<polygon fill="#000000" stroke="#000000" points="791.09,-1438.77 783.77,-1431.12 784.71,-1441.67 791.09,-1438.77"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="987,-528 901,-528 901,-504 987,-504 987,-528"/>
+<text text-anchor="middle" x="944" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.59,-518.67C886.74,-521.54 872.29,-526.96 862,-537 820.31,-577.67 864.33,-619.15 826,-663 810.67,-680.53 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge125" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.87,-517.07C886.36,-519.69 871.41,-525.37 862,-537 803.74,-609.03 862.85,-1285 826,-1370 820.94,-1381.66 811.76,-1392.12 802.77,-1400.34"/>
+<polygon fill="#000000" stroke="#000000" points="800.34,-1397.81 795.03,-1406.98 804.9,-1403.13 800.34,-1397.81"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-486 910,-486 910,-462 978,-462 978,-486"/>
+<text text-anchor="middle" x="944" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.73,-474.72C893.23,-476.83 874.26,-482.2 862,-495 809.17,-550.13 874.3,-603.85 826,-663 811.27,-681.04 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge126" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.63,-473.81C892.67,-475.62 873.31,-480.98 862,-495 800.88,-570.72 864.62,-1280.69 826,-1370 820.96,-1381.67 811.77,-1392.12 802.78,-1400.35"/>
+<polygon fill="#000000" stroke="#000000" points="800.36,-1397.82 795.04,-1406.98 804.91,-1403.14 800.36,-1397.82"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-444 914,-444 914,-420 974,-420 974,-444"/>
+<text text-anchor="middle" x="944" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M913.93,-432.03C896.43,-433.66 875.08,-438.78 862,-453 797.91,-522.71 884.36,-588.43 826,-663 811.65,-681.34 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge127" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M913.67,-431.43C895.83,-432.8 874.21,-437.84 862,-453 798.03,-532.4 866.38,-1276.37 826,-1370 820.97,-1381.67 811.79,-1392.13 802.79,-1400.35"/>
+<polygon fill="#000000" stroke="#000000" points="800.37,-1397.82 795.05,-1406.98 804.92,-1403.14 800.37,-1397.82"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~util_coord.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-234 892.5,-234 892.5,-210 969.5,-210 969.5,-234"/>
-<text text-anchor="middle" x="931" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="996.5,-402 891.5,-402 891.5,-378 996.5,-378 996.5,-402"/>
+<text text-anchor="middle" x="944" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge25" 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="M891.35,-393.96C880.29,-397.17 869.65,-402.44 862,-411 786.59,-495.34 894.48,-572.94 826,-663 811.91,-681.54 795.87,-669.07 778,-684"/>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<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.26,-223.41C876.92,-225.91 860.2,-231.4 849,-243 729.46,-366.8 936.76,-610.24 765,-621"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge128" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.11,-393.29C879.93,-396.5 869.28,-401.94 862,-411 795.17,-494.09 868.14,-1272.05 826,-1370 820.98,-1381.68 811.8,-1392.13 802.8,-1400.36"/>
+<polygon fill="#000000" stroke="#000000" points="800.38,-1397.83 795.05,-1406.99 804.93,-1403.15 800.38,-1397.83"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="972.5,-360 915.5,-360 915.5,-336 972.5,-336 972.5,-360"/>
+<text text-anchor="middle" x="944" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M915.27,-347.69C897.39,-349.07 875.12,-354.03 862,-369 775.25,-468.01 904.63,-557.42 826,-663 812.09,-681.68 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge129" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M915.24,-347.31C897.11,-348.49 874.55,-353.37 862,-369 792.32,-455.78 869.91,-1267.73 826,-1370 820.99,-1381.68 811.81,-1392.14 802.81,-1400.36"/>
+<polygon fill="#000000" stroke="#000000" points="800.39,-1397.83 795.06,-1406.99 804.94,-1403.15 800.39,-1397.83"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-318 910,-318 910,-294 978,-294 978,-318"/>
+<text text-anchor="middle" x="944" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.99,-306.11C893.14,-308.01 873.77,-313.36 862,-327 763.88,-440.71 914.79,-541.87 826,-663 812.23,-681.78 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge131" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M910,-305.74C892.94,-307.49 873.36,-312.83 862,-327 789.46,-417.47 871.67,-1263.41 826,-1370 820.99,-1381.68 811.82,-1392.14 802.82,-1400.37"/>
+<polygon fill="#000000" stroke="#000000" points="800.4,-1397.84 795.07,-1406.99 804.94,-1403.16 800.4,-1397.84"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-1704 905.5,-1704 905.5,-1680 982.5,-1680 982.5,-1704"/>
+<text text-anchor="middle" x="944" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.23,-1698.58C891.23,-1701.84 875.48,-1706.51 862,-1713 819.95,-1733.24 824.63,-1774.05 778,-1776"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge130" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.26,-1690.1C890.1,-1687.51 873.52,-1682.07 862,-1671 822.15,-1632.72 843.38,-1604.45 826,-1552 812.9,-1512.47 796.09,-1466.93 786.23,-1440.7"/>
+<polygon fill="#000000" stroke="#000000" points="789.39,-1439.15 782.58,-1431.03 782.84,-1441.62 789.39,-1439.15"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="987,-1956 901,-1956 901,-1932 987,-1932 987,-1956"/>
+<text text-anchor="middle" x="944" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.93,-1949.57C887.72,-1952.67 873.58,-1957.5 862,-1965 811.84,-1997.49 829.79,-2099.82 778,-2070"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge132" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.78,-1942.58C886.44,-1939.89 871.62,-1934.27 862,-1923 808.2,-1860.02 844.2,-1632.81 826,-1552 816.86,-1511.41 798.78,-1466.26 787.61,-1440.39"/>
+<polygon fill="#000000" stroke="#000000" points="790.78,-1438.91 783.56,-1431.16 784.37,-1441.72 790.78,-1438.91"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="987,-2628 901,-2628 901,-2604 987,-2604 987,-2628"/>
+<text text-anchor="middle" x="944" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.75,-2626.91C852.11,-2639.45 778.74,-2658.29 778,-2658"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge133" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.82,-2614.97C886.3,-2612.35 871.36,-2606.67 862,-2595 825.73,-2549.76 836.97,-1608.93 826,-1552 818.12,-1511.14 799.64,-1466.08 788.04,-1440.3"/>
+<polygon fill="#000000" stroke="#000000" points="791.17,-1438.74 783.83,-1431.1 784.81,-1441.65 791.17,-1438.74"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="980,-276 908,-276 908,-252 980,-252 980,-276"/>
+<text text-anchor="middle" x="944" y="-261.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~~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"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907.87,-264.3C891.51,-266.38 873.22,-271.85 862,-285 807.25,-349.21 875.48,-594.65 826,-663 812.34,-681.86 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge134" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M907.93,-263.96C891.37,-265.93 872.9,-271.39 862,-285 786.61,-379.16 873.43,-1259.09 826,-1370 821,-1381.69 811.83,-1392.15 802.83,-1400.37"/>
+<polygon fill="#000000" stroke="#000000" points="800.4,-1397.84 795.07,-1407 804.95,-1403.16 800.4,-1397.84"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986,-1326 902,-1326 902,-1302 986,-1302 986,-1326"/>
+<text text-anchor="middle" x="944" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.97,-1324.64C854.14,-1337.02 781.16,-1355.8 778,-1356"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge135" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.82,-1320.24C888.52,-1323.39 874.11,-1328.08 862,-1335 858.1,-1337.23 820.63,-1375.3 797.07,-1399.41"/>
+<polygon fill="#000000" stroke="#000000" points="794.45,-1397.09 789.97,-1406.69 799.46,-1401.98 794.45,-1397.09"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971.5,-234 916.5,-234 916.5,-210 971.5,-210 971.5,-234"/>
+<text text-anchor="middle" x="944" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.26,-221.46C898.12,-222.64 875.12,-227.46 862,-243 801.56,-314.57 880.58,-586.87 826,-663 812.43,-681.93 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge136" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.39,-221.22C898.07,-222.26 874.79,-227 862,-243 783.76,-340.85 875.19,-1254.78 826,-1370 821.01,-1381.69 811.84,-1392.15 802.84,-1400.37"/>
+<polygon fill="#000000" stroke="#000000" points="800.41,-1397.84 795.08,-1407 804.96,-1403.16 800.41,-1397.84"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="979.5,-192 908.5,-192 908.5,-168 979.5,-168 979.5,-192"/>
+<text text-anchor="middle" x="944" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M908.19,-180.17C891.69,-182.19 873.2,-187.64 862,-201 795.86,-279.93 885.67,-579.07 826,-663 812.51,-681.98 795.87,-669.07 778,-684"/>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge128" 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.45,-1597.29C840.1,-1584.85 766.58,-1566 765,-1566"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge137" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M908.33,-179.9C891.67,-181.82 872.97,-187.27 862,-201 780.9,-302.54 876.96,-1250.46 826,-1370 821.09,-1381.52 812.11,-1391.85 803.23,-1400.02"/>
+<polygon fill="#000000" stroke="#000000" points="800.86,-1397.44 795.57,-1406.61 805.43,-1402.75 800.86,-1397.44"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971,-150 917,-150 917,-126 971,-126 971,-150"/>
+<text text-anchor="middle" x="944" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.97,-137.35C898.68,-138.42 875.2,-143.15 862,-159 790.16,-245.3 890.77,-571.28 826,-663 812.57,-682.02 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge138" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.77,-137.19C898.38,-138.18 874.87,-142.87 862,-159 778.05,-264.23 878.72,-1246.14 826,-1370 821.09,-1381.53 812.12,-1391.85 803.24,-1400.02"/>
+<polygon fill="#000000" stroke="#000000" points="800.87,-1397.44 795.57,-1406.62 805.44,-1402.75 800.87,-1397.44"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node55" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983.5,-1662 904.5,-1662 904.5,-1638 983.5,-1638 983.5,-1662"/>
+<text text-anchor="middle" x="944" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-1776C640.88,-1781.64 481.95,-1772.45 399.33,-1766.48"/>
+<polygon fill="#000000" stroke="#000000" points="399.38,-1762.98 389.15,-1765.73 398.87,-1769.96 399.38,-1762.98"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.29,-1653.55C889.85,-1656.44 874.06,-1661.66 862,-1671 835.9,-1691.23 847.04,-1710.55 826,-1736 808.3,-1757.4 805.72,-1774.26 778,-1776"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge139" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.48,-1647.38C889.73,-1644.63 873.67,-1639.27 862,-1629 854.49,-1622.38 805.63,-1493.02 786.07,-1440.69"/>
+<polygon fill="#000000" stroke="#000000" points="789.25,-1439.19 782.47,-1431.04 782.69,-1441.63 789.25,-1439.19"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971,-108 917,-108 917,-84 971,-84 971,-108"/>
+<text text-anchor="middle" x="944" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.94,-95.33C898.64,-96.39 875.15,-101.11 862,-117 784.46,-210.67 895.87,-563.48 826,-663 812.62,-682.06 795.87,-669.07 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge140" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.77,-95.19C898.37,-96.17 874.86,-100.87 862,-117 775.19,-225.92 880.48,-1241.82 826,-1370 821.1,-1381.53 812.12,-1391.86 803.25,-1400.02"/>
+<polygon fill="#000000" stroke="#000000" points="800.88,-1397.44 795.58,-1406.62 805.44,-1402.75 800.88,-1397.44"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="976.5,-66 911.5,-66 911.5,-42 976.5,-42 976.5,-66"/>
+<text text-anchor="middle" x="944" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-684C700,-747.5 572,-1477.02 486.5,-1527"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M911.37,-53.74C894.07,-55.4 873.82,-60.65 862,-75 778.76,-176.04 900.97,-555.68 826,-663 812.66,-682.09 795.11,-668.21 778,-684"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.5,-1527C446.96,-1546.43 333.13,-1539.66 260.61,-1532.89"/>
+<polygon fill="#000000" stroke="#000000" points="260.51,-1529.37 250.23,-1531.9 259.85,-1536.34 260.51,-1529.37"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge141" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M911.19,-53.59C893.83,-55.2 873.58,-60.45 862,-75 817.17,-131.3 854.12,-1303.75 826,-1370 821.11,-1381.53 812.13,-1391.86 803.25,-1400.02"/>
+<polygon fill="#000000" stroke="#000000" points="800.88,-1397.45 795.58,-1406.62 805.45,-1402.75 800.88,-1397.45"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986.5,-2292 901.5,-2292 901.5,-2268 986.5,-2268 986.5,-2292"/>
+<text text-anchor="middle" x="944" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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_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~symba_collision.f90 -->
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.11,-2287.57C888.19,-2290.77 874.17,-2295.14 862,-2301 819.95,-2321.24 824.67,-2364 778,-2364"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-2364C531.49,-2364 709.14,-2042.63 538,-1868 534.84,-1864.77 531.19,-1861.88 527.33,-1859.3"/>
+<polygon fill="#000000" stroke="#000000" points="529.03,-1856.23 518.64,-1854.14 525.45,-1862.25 529.03,-1856.23"/>
+</g>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge142" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.34,-2278.97C886.71,-2276.37 871.55,-2270.71 862,-2259 812.3,-2198.04 841.52,-1629.11 826,-1552 817.79,-1511.21 799.41,-1466.13 787.93,-1440.32"/>
+<polygon fill="#000000" stroke="#000000" points="791.07,-1438.78 783.76,-1431.12 784.69,-1441.67 791.07,-1438.78"/>
+</g>
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="995.5,-1284 892.5,-1284 892.5,-1260 995.5,-1260 995.5,-1284"/>
+<text text-anchor="middle" x="944" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge89" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.22,-1281.92C881.96,-1284.82 871.42,-1288.46 862,-1293 819.95,-1313.24 824.58,-1353.08 778,-1356"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-1356C642.29,-1364.37 651.22,-1469.36 538,-1541 532.9,-1544.22 527.35,-1547.37 521.85,-1550.3"/>
+<polygon fill="#000000" stroke="#000000" points="520.01,-1547.31 512.71,-1554.99 523.21,-1553.54 520.01,-1547.31"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge143" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.19,-1277.95C881.36,-1281.1 870.6,-1285.85 862,-1293 832.95,-1317.15 847.52,-1338.95 826,-1370 818.55,-1380.75 808.66,-1391.29 799.79,-1399.83"/>
+<polygon fill="#000000" stroke="#000000" points="797.27,-1397.39 792.35,-1406.77 802.05,-1402.51 797.27,-1397.39"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-1620 910,-1620 910,-1596 978,-1596 978,-1620"/>
+<text text-anchor="middle" x="944" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M910,-1615.5C895.19,-1619.13 877.58,-1623.83 862,-1629 758.13,-1663.48 743.44,-1722 634,-1722 634,-1722 634,-1722 484.5,-1722 393.14,-1722 356.02,-1724.86 287,-1665 257.55,-1639.45 272.36,-1617.62 251,-1585 241.61,-1570.66 228.78,-1556.38 218.03,-1545.46"/>
+<polygon fill="#000000" stroke="#000000" points="220.22,-1542.7 210.66,-1538.15 215.3,-1547.68 220.22,-1542.7"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge144" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.78,-1605.74C893.89,-1603.18 875.44,-1597.88 862,-1587 814.91,-1548.89 791.93,-1477.61 782.86,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="786.2,-1440.26 780.49,-1431.34 779.38,-1441.88 786.2,-1440.26"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node61" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971.5,-1242 916.5,-1242 916.5,-1218 971.5,-1218 971.5,-1242"/>
+<text text-anchor="middle" x="944" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.22,-1230.21C898.3,-1228.85 875.58,-1223.94 862,-1209 782.52,-1121.58 868.67,-608.25 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge145" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.45,-1230.42C898.87,-1232.09 876.46,-1237.11 862,-1251 822.15,-1289.28 854.14,-1322.45 826,-1370 819.43,-1381.1 809.83,-1391.57 800.94,-1399.97"/>
+<polygon fill="#000000" stroke="#000000" points="798.48,-1397.47 793.4,-1406.77 803.17,-1402.67 798.48,-1397.47"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node62" class="node">
-<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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="995.5,-24 892.5,-24 892.5,0 995.5,0 995.5,-24"/>
+<text text-anchor="middle" x="944" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge93" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.1,-15.17C880.6,-18.34 869.57,-23.8 862,-33 777.94,-135.09 901.64,-518.53 826,-627 798.79,-666.01 764.8,-639.86 728,-670 689.06,-701.89 659.01,-753.8 644.18,-782.76"/>
+<polygon fill="#000000" stroke="#000000" points="640.92,-781.46 639.59,-791.97 647.18,-784.59 640.92,-781.46"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge146" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.31,-14.88C880.66,-18.04 869.51,-23.56 862,-33 815.74,-91.15 855,-1301.59 826,-1370 821.11,-1381.53 812.14,-1391.86 803.26,-1400.03"/>
+<polygon fill="#000000" stroke="#000000" points="800.89,-1397.45 795.59,-1406.62 805.45,-1402.76 800.89,-1397.45"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node63" class="node">
-<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>
+<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="971,-1200 917,-1200 917,-1176 971,-1176 971,-1200"/>
+<text text-anchor="middle" x="944" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.67,-1188.18C898.72,-1186.83 875.78,-1181.96 862,-1167 788.17,-1086.89 861.61,-614.15 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge147" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.89,-1188.02C899.04,-1189.47 876.14,-1194.38 862,-1209 811.03,-1261.71 860.99,-1305.57 826,-1370 819.85,-1381.33 810.31,-1391.84 801.35,-1400.2"/>
+<polygon fill="#000000" stroke="#000000" points="798.89,-1397.71 793.73,-1406.96 803.54,-1402.94 798.89,-1397.71"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node64" class="node">
-<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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="987,-1914 901,-1914 901,-1890 987,-1890 987,-1914"/>
+<text text-anchor="middle" x="944" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.61,-1906.43C887.24,-1909.46 873.08,-1914.53 862,-1923 802.22,-1968.7 843.21,-2107.54 778,-2070"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-2070C689.27,-2020.07 651.06,-1894.87 638.75,-1844"/>
+<polygon fill="#000000" stroke="#000000" points="642.11,-1843.02 636.45,-1834.06 635.3,-1844.59 642.11,-1843.02"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge148" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.85,-1900.51C886.52,-1897.82 871.69,-1892.21 862,-1881 813.89,-1825.37 842.6,-1623.65 826,-1552 816.61,-1511.46 798.61,-1466.3 787.52,-1440.41"/>
+<polygon fill="#000000" stroke="#000000" points="790.7,-1438.95 783.51,-1431.17 784.28,-1441.74 790.7,-1438.95"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node65" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="987,-2502 901,-2502 901,-2478 987,-2478 987,-2502"/>
+<text text-anchor="middle" x="944" y="-2487.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~~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"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.86,-2481.97C888.06,-2478.77 874.18,-2474.51 862,-2469 796.42,-2439.31 778.64,-2429.17 728,-2378 640.95,-2290.03 618.29,-2261.57 574,-2146 534.62,-2043.23 607.61,-1986.25 538,-1901 506.61,-1862.56 469.81,-1896.29 433,-1863 405.58,-1838.2 423.13,-1814.16 397,-1788 393.73,-1784.72 389.96,-1781.8 385.97,-1779.21"/>
+<polygon fill="#000000" stroke="#000000" points="387.39,-1775.99 376.98,-1774.04 383.91,-1782.06 387.39,-1775.99"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge149" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.85,-2488.95C886.33,-2486.33 871.39,-2480.65 862,-2469 798.03,-2389.6 845.54,-1652.08 826,-1552 818.03,-1511.16 799.57,-1466.1 788.01,-1440.3"/>
+<polygon fill="#000000" stroke="#000000" points="791.14,-1438.75 783.81,-1431.11 784.78,-1441.66 791.14,-1438.75"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node66" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="991.5,-1158 896.5,-1158 896.5,-1134 991.5,-1134 991.5,-1158"/>
+<text text-anchor="middle" x="944" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.27,-1143C883.6,-1139.97 870.94,-1134.54 862,-1125 793.8,-1052.19 854.56,-620.04 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge150" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.19,-1148.93C883.52,-1151.96 870.88,-1157.4 862,-1167 799.79,-1234.27 867.93,-1288.53 826,-1370 820.18,-1381.3 810.87,-1391.7 801.99,-1399.98"/>
+<polygon fill="#000000" stroke="#000000" points="799.58,-1397.44 794.4,-1406.68 804.21,-1402.69 799.58,-1397.44"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node67" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1015,-2586 873,-2586 873,-2562 1015,-2562 1015,-2586"/>
+<text text-anchor="middle" x="944" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge59" 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="M884.92,-2586.1C877.04,-2588.59 869.2,-2591.53 862,-2595 819.95,-2615.24 821.49,-2674.92 778,-2658"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge151" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M872.88,-2562.7C868.79,-2560.05 865.09,-2556.85 862,-2553 827.16,-2509.61 836.57,-1606.63 826,-1552 818.09,-1511.15 799.62,-1466.09 788.03,-1440.3"/>
+<polygon fill="#000000" stroke="#000000" points="791.17,-1438.74 783.82,-1431.1 784.8,-1441.65 791.17,-1438.74"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node68" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1116 914,-1116 914,-1092 974,-1092 974,-1116"/>
+<text text-anchor="middle" x="944" 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~~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"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M913.72,-1103.75C896.36,-1102.02 875.24,-1096.87 862,-1083 799.43,-1017.47 847.54,-625.91 778,-684"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge152" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M913.81,-1103.93C896.27,-1105.52 874.91,-1110.62 862,-1125 788.48,-1206.9 874.91,-1271.41 826,-1370 820.35,-1381.39 811.07,-1391.8 802.17,-1400.06"/>
+<polygon fill="#000000" stroke="#000000" points="799.75,-1397.53 794.54,-1406.75 804.37,-1402.79 799.75,-1397.53"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~operator_mag.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>
+<title>sourcefile~operator_mag.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="826,-618 728,-618 728,-594 826,-594 826,-618"/>
+<text text-anchor="middle" x="777" y="-603.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.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"/>
+<!-- sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge95" class="edge">
+<title>sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M747.25,-618.1C740.41,-621.88 733.51,-626.52 728,-632 683.43,-676.4 654.21,-746.38 641.42,-781.83"/>
+<polygon fill="#000000" stroke="#000000" points="637.98,-781.06 637.97,-791.66 644.58,-783.38 637.98,-781.06"/>
 </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"/>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="985.5,-1578 902.5,-1578 902.5,-1554 985.5,-1554 985.5,-1578"/>
+<text text-anchor="middle" x="944" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge88" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.48,-1563.23C868.98,-1561.61 820.22,-1560.77 778,-1566"/>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge153" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.2,-1561.4C888.49,-1558.37 873.72,-1553.34 862,-1545 824.41,-1518.26 798.89,-1468.99 786.55,-1440.63"/>
+<polygon fill="#000000" stroke="#000000" points="789.7,-1439.08 782.6,-1431.21 783.24,-1441.79 789.7,-1439.08"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node71" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node71"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="991,-2544 897,-2544 897,-2520 991,-2520 991,-2544"/>
+<text text-anchor="middle" x="944" y="-2529.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~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.73,-2538.6C884.77,-2541.72 872.36,-2546.29 862,-2553 811.84,-2585.49 837.76,-2658 778,-2658"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M776,-2658C635.9,-2658 633.09,-2543.03 574,-2416 495.54,-2247.34 487.09,-2016.27 486.45,-1944.31"/>
+<polygon fill="#000000" stroke="#000000" points="489.95,-1944.14 486.4,-1934.16 482.95,-1944.18 489.95,-1944.14"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge155" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.6,-2530.11C883.47,-2527.18 870.47,-2521.53 862,-2511 795.17,-2427.91 846.34,-1656.67 826,-1552 818.06,-1511.16 799.59,-1466.09 788.02,-1440.3"/>
+<polygon fill="#000000" stroke="#000000" points="791.16,-1438.75 783.81,-1431.11 784.79,-1441.66 791.16,-1438.75"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node72" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node72"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="993,-1452 895,-1452 895,-1428 993,-1428 993,-1452"/>
+<text text-anchor="middle" x="944" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge154" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.83,-1433.87C871.16,-1430.86 842.89,-1427.26 820.09,-1424.36"/>
+<polygon fill="#000000" stroke="#000000" points="820.4,-1420.87 810.04,-1423.08 819.52,-1427.81 820.4,-1420.87"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node73" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node73"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982,-1074 906,-1074 906,-1050 982,-1050 982,-1074"/>
+<text text-anchor="middle" x="944" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.74,-1060.59C890.3,-1058.11 873.37,-1052.63 862,-1041 748.05,-924.45 903.09,-579.49 778,-684"/>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge156" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.97,-1062.73C890.19,-1065.03 872.93,-1070.56 862,-1083 777.14,-1179.57 881.91,-1254.24 826,-1370 820.47,-1381.45 811.21,-1391.86 802.29,-1400.12"/>
+<polygon fill="#000000" stroke="#000000" points="799.87,-1397.59 794.64,-1406.8 804.47,-1402.86 799.87,-1397.59"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node74" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node74"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983.5,-1032 904.5,-1032 904.5,-1008 983.5,-1008 983.5,-1032"/>
+<text text-anchor="middle" x="944" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.25,-1018.14C889.29,-1015.52 873.13,-1010.06 862,-999 759.19,-896.9 889.19,-591.1 778,-684"/>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge157" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904.21,-1020.91C888.88,-1023.34 872.45,-1028.91 862,-1041 813.89,-1096.63 857.46,-1303.52 826,-1370 820.56,-1381.49 811.32,-1391.92 802.38,-1400.17"/>
+<polygon fill="#000000" stroke="#000000" points="799.96,-1397.63 794.71,-1406.83 804.56,-1402.91 799.96,-1397.63"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node75" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node75"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982,-2250 906,-2250 906,-2226 982,-2226 982,-2250"/>
+<text text-anchor="middle" x="944" y="-2235.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~~swiftest_globals.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.99,-2234.69C891.13,-2231.85 874.58,-2226.62 862,-2217 802.22,-2171.3 843.21,-2107.54 778,-2070"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge158" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M905.98,-2237.67C890,-2235.48 872.58,-2229.93 862,-2217 815.15,-2159.72 840.72,-1624.52 826,-1552 817.72,-1511.22 799.37,-1466.14 787.9,-1440.33"/>
+<polygon fill="#000000" stroke="#000000" points="791.05,-1438.79 783.74,-1431.12 784.67,-1441.67 791.05,-1438.79"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node76" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node76"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1006,-1536 882,-1536 882,-1512 1006,-1512 1006,-1536"/>
+<text text-anchor="middle" x="944" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge90" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.42,-1536.01C848.7,-1548.29 781.03,-1565.63 778,-1566"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge159" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M881.89,-1511.95C874.96,-1509.48 868.18,-1506.53 862,-1503 833.59,-1486.75 808.12,-1458.37 792.87,-1439.14"/>
+<polygon fill="#000000" stroke="#000000" points="795.49,-1436.8 786.6,-1431.02 789.94,-1441.08 795.49,-1436.8"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node77" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node77"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971,-990 917,-990 917,-966 971,-966 971,-990"/>
+<text text-anchor="middle" x="944" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.85,-977.59C899.22,-975.95 876.6,-970.96 862,-957 770.25,-869.27 875.42,-602.61 778,-684"/>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge160" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M916.7,-977.48C898.53,-978.64 875.3,-983.43 862,-999 808.2,-1061.98 860.97,-1294.91 826,-1370 820.63,-1381.52 811.4,-1391.95 802.45,-1400.2"/>
+<polygon fill="#000000" stroke="#000000" points="800.03,-1397.67 794.77,-1406.86 804.62,-1402.96 800.03,-1397.67"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node78" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node78"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-2796 910,-2796 910,-2772 978,-2772 978,-2796"/>
+<text text-anchor="middle" x="944" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.91,-2780.32C894.41,-2777.42 876.27,-2772.24 862,-2763 811.84,-2730.51 833.7,-2679.67 778,-2658"/>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge161" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M909.97,-2784.28C892.9,-2782.53 873.33,-2777.19 862,-2763 820.02,-2710.39 838.58,-1618.12 826,-1552 818.22,-1511.12 799.7,-1466.07 788.07,-1440.29"/>
+<polygon fill="#000000" stroke="#000000" points="791.2,-1438.72 783.85,-1431.1 784.84,-1441.65 791.2,-1438.72"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node79" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node79"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986.5,-948 901.5,-948 901.5,-924 986.5,-924 986.5,-948"/>
+<text text-anchor="middle" x="944" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.4,-933C887.46,-930.11 872.75,-924.77 862,-915 781.17,-841.51 861.84,-613.96 778,-684"/>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge162" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M901.14,-937.29C886.66,-939.94 871.66,-945.58 862,-957 802.51,-1027.34 864.49,-1286.3 826,-1370 820.69,-1381.55 811.46,-1391.98 802.51,-1400.23"/>
+<polygon fill="#000000" stroke="#000000" points="800.09,-1397.69 794.82,-1406.88 804.67,-1402.99 800.09,-1397.69"/>
 </g>
 </g>
 </svg>
@@ -1761,109 +1980,182 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">parameter</span> <span class="kd">::</span> <span class="n">PI3BY2</span> <span class="o">=</span> <span class="mf">4.712388980384689857693965074919254326296_DP</span> <span class="c">!! Definition of /(3 \pi / 2\)</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">parameter</span> <span class="kd">::</span> <span class="n">TWOPI</span>  <span class="o">=</span> <span class="mf">6.283185307179586476925286766559005768394_DP</span> <span class="c">!! Definition of 2 \pi</span>
 <a name="ln-24"></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">THIRD</span>  <span class="o">=</span> <span class="mf">0.333333333333333333333333333333333333333_DP</span> <span class="c">!! Definition of 1 / 3</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="k">parameter</span> <span class="kd">::</span> <span class="n">DEGRAD</span> <span class="o">=</span> <span class="mi">18</span><span class="mf">0.0_DP</span><span class="o">/</span><span class="n">PI</span> <span class="c">!! Definition of conversion factor from degrees to radians</span>
-<a name="ln-26"></a>
-<a name="ln-27"></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">LOWERCASE_BEGIN</span>  <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span> <span class="c">!! ASCII character set parameter for lower to upper conversion - start of lowercase</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="k">parameter</span> <span class="kd">::</span> <span class="n">LOWERCASE_END</span>    <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;z&#39;</span><span class="p">)</span> <span class="c">!! ASCII character set parameter for lower to upper conversion - end of lowercase</span>
-<a name="ln-29"></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">UPPERCASE_OFFSET</span> <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;A&#39;</span><span class="p">)</span> <span class="o">-</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span> <span class="c">!! ASCII character set parameter for lower to upper conversion - offset between upper and lower</span>
-<a name="ln-30"></a>
-<a name="ln-31"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">VERSION_NUMBER</span> <span class="o">=</span> <span class="mf">0.1_SP</span> <span class="c">!! swiftest version</span>
-<a name="ln-32"></a>
-<a name="ln-33"></a>   <span class="c">!&gt; Symbolic name for integrator types</span>
-<a name="ln-34"></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">UNKNOWN_INTEGRATOR</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-35"></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">BS</span>                 <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-36"></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">HELIO</span>              <span class="o">=</span> <span class="mi">3</span>
-<a name="ln-37"></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">RA15</span>               <span class="o">=</span> <span class="mi">4</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">parameter</span> <span class="kd">::</span> <span class="n">TU4</span>                <span class="o">=</span> <span class="mi">5</span>
-<a name="ln-39"></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">WHM</span>                <span class="o">=</span> <span class="mi">6</span>
-<a name="ln-40"></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">RMVS</span>               <span class="o">=</span> <span class="mi">7</span>
-<a name="ln-41"></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">SYMBA</span>              <span class="o">=</span> <span class="mi">8</span>
-<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">RINGMOONS</span>          <span class="o">=</span> <span class="mi">9</span>
-<a name="ln-43"></a>
-<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="k">parameter</span> <span class="kd">::</span> <span class="n">STRMAX</span> <span class="o">=</span> <span class="mi">128</span> <span class="c">!! Maximum size of character strings</span>
-<a name="ln-45"></a>
-<a name="ln-46"></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">ASCII_TYPE</span>          <span class="o">=</span> <span class="s1">&#39;ASCII&#39;</span> <span class="c">!! Symbolic name for ASCII file type</span>
-<a name="ln-47"></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">REAL4_TYPE</span>          <span class="o">=</span> <span class="s1">&#39;REAL4&#39;</span> <span class="c">!! Symbolic name for binary file type REAL4</span>
-<a name="ln-48"></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">REAL8_TYPE</span>          <span class="o">=</span> <span class="s1">&#39;REAL8&#39;</span> <span class="c">!! Symbolic name for binary file type REAL8</span>
-<a name="ln-49"></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">SWIFTER_REAL4_TYPE</span>  <span class="o">=</span> <span class="s1">&#39;SWIFTER4&#39;</span> <span class="c">!! Symbolic name for binary file type for the old style Swifter REAL4</span>
-<a name="ln-50"></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">SWIFTER_REAL8_TYPE</span>  <span class="o">=</span> <span class="s1">&#39;SWIFTER8&#39;</span> <span class="c">!! Symbolic name for binary file type for the old style Swifter REAL8</span>
-<a name="ln-51"></a>
-<a name="ln-52"></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">EL</span>  <span class="o">=</span> <span class="s1">&#39;EL&#39;</span> <span class="c">!! Symbolic name for binary output file contents for orbital element type</span>
-<a name="ln-53"></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">XV</span>  <span class="o">=</span> <span class="s1">&#39;XV&#39;</span> <span class="c">!! Symbolic name for binary output file contents for cartesian position and velocity type</span>
-<a name="ln-54"></a>
-<a name="ln-55"></a>   <span class="c">! OpenMP Parameters</span>
-<a name="ln-56"></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">nthreads</span> <span class="o">=</span> <span class="mi">1</span> <span class="c">!! Number of OpenMP threads</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="k">parameter</span> <span class="kd">::</span> <span class="n">NTHERSHOLD</span> <span class="o">=</span> <span class="mi">1000</span> <span class="c">!! Threshold value for OpenMP loop parallelization</span>
-<a name="ln-58"></a>
-<a name="ln-59"></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">SUCCESS</span> <span class="o">=</span>  <span class="mi">0</span> <span class="c">!! Symbolic name for function return/flag code for success</span>
-<a name="ln-60"></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">FAILURE</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">!! Symbolic name for function return/flag code for failure</span>
-<a name="ln-61"></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">USAGE</span> <span class="o">=</span> <span class="o">-</span><span class="mi">2</span> <span class="c">!! Symbolic name for function return/flag code for printing the usage message</span>
-<a name="ln-62"></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">HELP</span>  <span class="o">=</span> <span class="o">-</span><span class="mi">3</span> <span class="c">!! Symbolic name for function return/flag code for printing the usage message</span>
-<a name="ln-63"></a>
+<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="k">parameter</span> <span class="kd">::</span> <span class="n">DEG2RAD</span> <span class="o">=</span> <span class="n">PI</span> <span class="o">/</span> <span class="mi">18</span><span class="mf">0.0_DP</span> <span class="c">!! Definition of conversion factor from degrees to radians</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="k">parameter</span> <span class="kd">::</span> <span class="n">RAD2DEG</span> <span class="o">=</span> <span class="mi">18</span><span class="mf">0.0_DP</span> <span class="o">/</span> <span class="n">PI</span> <span class="c">!! Definition of conversion factor from degrees to radians</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">parameter</span> <span class="kd">::</span> <span class="n">GC</span>        <span class="o">=</span> <span class="mf">6.6743E-11_DP</span>   <span class="c">!! Universal gravitational constant in SI units</span>
+<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">parameter</span> <span class="kd">::</span> <span class="n">einsteinC</span> <span class="o">=</span> <span class="mi">29979245</span><span class="mf">8.0_DP</span>  <span class="c">!! Speed of light in SI units</span>
+<a name="ln-29"></a>
+<a name="ln-30"></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">LOWERCASE_BEGIN</span>  <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span> <span class="c">!! ASCII character set parameter for lower to upper conversion - start of lowercase</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">parameter</span> <span class="kd">::</span> <span class="n">LOWERCASE_END</span>    <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;z&#39;</span><span class="p">)</span> <span class="c">!! ASCII character set parameter for lower to upper conversion - end of lowercase</span>
+<a name="ln-32"></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">UPPERCASE_OFFSET</span> <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;A&#39;</span><span class="p">)</span> <span class="o">-</span> <span class="nb">iachar</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span> <span class="c">!! ASCII character set parameter for lower to upper conversion - offset between upper and lower</span>
+<a name="ln-33"></a>
+<a name="ln-34"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">VERSION_NUMBER</span> <span class="o">=</span> <span class="mf">0.1_SP</span> <span class="c">!! swiftest version</span>
+<a name="ln-35"></a>
+<a name="ln-36"></a>   <span class="c">!&gt; Symbolic name for integrator types</span>
+<a name="ln-37"></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">UNKNOWN_INTEGRATOR</span> <span class="o">=</span> <span class="mi">1</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">parameter</span> <span class="kd">::</span> <span class="n">BS</span>                 <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-39"></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">HELIO</span>              <span class="o">=</span> <span class="mi">3</span>
+<a name="ln-40"></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">RA15</span>               <span class="o">=</span> <span class="mi">4</span>
+<a name="ln-41"></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">TU4</span>                <span class="o">=</span> <span class="mi">5</span>
+<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">WHM</span>                <span class="o">=</span> <span class="mi">6</span>
+<a name="ln-43"></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">RMVS</span>               <span class="o">=</span> <span class="mi">7</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="k">parameter</span> <span class="kd">::</span> <span class="n">SYMBA</span>              <span class="o">=</span> <span class="mi">8</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">parameter</span> <span class="kd">::</span> <span class="n">RINGMOONS</span>          <span class="o">=</span> <span class="mi">9</span>
+<a name="ln-46"></a>
+<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">STRMAX</span> <span class="o">=</span> <span class="mi">512</span> <span class="c">!! Maximum size of character strings</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="k">parameter</span> <span class="kd">::</span> <span class="n">NAMELEN</span> <span class="o">=</span> <span class="mi">32</span> <span class="c">!! Maximum size of name strings</span>
+<a name="ln-49"></a>
+<a name="ln-50"></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">ASCII_TYPE</span>          <span class="o">=</span> <span class="s1">&#39;ASCII&#39;</span> <span class="c">!! Symbolic name for ASCII file type</span>
+<a name="ln-51"></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">REAL4_TYPE</span>          <span class="o">=</span> <span class="s1">&#39;REAL4&#39;</span> <span class="c">!! Symbolic name for binary file type REAL4</span>
+<a name="ln-52"></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">REAL8_TYPE</span>          <span class="o">=</span> <span class="s1">&#39;REAL8&#39;</span> <span class="c">!! Symbolic name for binary file type REAL8</span>
+<a name="ln-53"></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">NETCDF_FLOAT_TYPE</span>   <span class="o">=</span> <span class="s1">&#39;NETCDF_FLOAT&#39;</span> <span class="c">!! Symbolic name for binary file type REAL8</span>
+<a name="ln-54"></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">NETCDF_DOUBLE_TYPE</span>   <span class="o">=</span> <span class="s1">&#39;NETCDF_DOUBLE&#39;</span> <span class="c">!! Symbolic name for binary file type REAL8</span>
+<a name="ln-55"></a>
+<a name="ln-56"></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">EL</span>  <span class="o">=</span> <span class="s1">&#39;EL&#39;</span> <span class="c">!! Symbolic name for binary output file contents for orbital elements</span>
+<a name="ln-57"></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">XV</span>  <span class="o">=</span> <span class="s1">&#39;XV&#39;</span> <span class="c">!! Symbolic name for binary output file contents for cartesian position and velocity vectors</span>
+<a name="ln-58"></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">XVEL</span>  <span class="o">=</span> <span class="s1">&#39;XVEL&#39;</span> <span class="c">!! Symbolic name for binary output file contents for both cartesian position and velocity and orbital elements</span>
+<a name="ln-59"></a>
+<a name="ln-60"></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">CB_TYPE_NAME</span> <span class="o">=</span> <span class="s2">&quot;Central Body&quot;</span>
+<a name="ln-61"></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">PL_TYPE_NAME</span> <span class="o">=</span> <span class="s2">&quot;Massive Body&quot;</span>
+<a name="ln-62"></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">TP_TYPE_NAME</span> <span class="o">=</span> <span class="s2">&quot;Test Particle&quot;</span>
+<a name="ln-63"></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">PL_TINY_TYPE_NAME</span> <span class="o">=</span> <span class="s2">&quot;Semi-Interacting Massive Body&quot;</span>
 <a name="ln-64"></a>
-<a name="ln-65"></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">SUCCESS_MSG</span> <span class="o">=</span> <span class="s1">&#39;(/, &quot;Normal termination of Swiftest (version &quot;, f3.1, &quot;)&quot;)&#39;</span>
-<a name="ln-66"></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">FAIL_MSG</span> <span class="o">=</span> <span class="s1">&#39;(/, &quot;Terminating Swiftest (version &quot;, f3.1, &quot;) due to error!!&quot;)&#39;</span>
-<a name="ln-67"></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">USAGE_MSG</span> <span class="o">=</span> <span class="s1">&#39;(&quot;Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] &lt;paramfile&gt;&quot;)&#39;</span>
-<a name="ln-68"></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">HELP_MSG</span>  <span class="o">=</span> <span class="n">USAGE_MSG</span>
-<a name="ln-69"></a>
-<a name="ln-70"></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">ELLIPSE</span>   <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">!! Symbolic names for orbit types - ellipse</span>
-<a name="ln-71"></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">PARABOLA</span>  <span class="o">=</span>  <span class="mi">0</span> <span class="c">!! Symbolic names for orbit types - parabola</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="k">parameter</span> <span class="kd">::</span> <span class="n">HYPERBOLA</span> <span class="o">=</span>  <span class="mi">1</span> <span class="c">!! Symbolic names for orbit types - hyperbola</span>
+<a name="ln-65"></a>   <span class="c">! OpenMP Parameters</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="kd">::</span> <span class="n">nthreads</span> <span class="o">=</span> <span class="mi">1</span> <span class="c">!! Number of OpenMP threads</span>
+<a name="ln-67"></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">NTHERSHOLD</span> <span class="o">=</span> <span class="mi">1000</span> <span class="c">!! Threshold value for OpenMP loop parallelization</span>
+<a name="ln-68"></a>
+<a name="ln-69"></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">SUCCESS</span> <span class="o">=</span>  <span class="mi">0</span> <span class="c">!! Symbolic name for function return/flag code for success</span>
+<a name="ln-70"></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">FAILURE</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">!! Symbolic name for function return/flag code for failure</span>
+<a name="ln-71"></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">USAGE</span> <span class="o">=</span> <span class="o">-</span><span class="mi">2</span> <span class="c">!! Symbolic name for function return/flag code for printing the usage message</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="k">parameter</span> <span class="kd">::</span> <span class="n">HELP</span>  <span class="o">=</span> <span class="o">-</span><span class="mi">3</span> <span class="c">!! Symbolic name for function return/flag code for printing the usage message</span>
 <a name="ln-73"></a>
-<a name="ln-74"></a>   <span class="c">!&gt; Symbolic names for body/particle status codes:</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">parameter</span> <span class="kd">::</span> <span class="n">ACTIVE</span>             <span class="o">=</span>  <span class="mi">0</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">parameter</span> <span class="kd">::</span> <span class="n">INACTIVE</span>           <span class="o">=</span>  <span class="mi">1</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_RMAX</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">1</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_RMIN</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">2</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_RMAXU</span>    <span class="o">=</span> <span class="o">-</span><span class="mi">3</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_PERI</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">4</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_PLR</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">5</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_PLQ</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">6</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_DRIFTERR</span> <span class="o">=</span> <span class="o">-</span><span class="mi">7</span>
-<a name="ln-84"></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">MERGED</span>             <span class="o">=</span> <span class="o">-</span><span class="mi">8</span>
-<a name="ln-85"></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">DISRUPTION</span>         <span class="o">=</span> <span class="o">-</span><span class="mi">9</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="k">parameter</span> <span class="kd">::</span> <span class="n">SUPERCATASTROPHIC</span>  <span class="o">=</span> <span class="o">-</span><span class="mi">10</span>
-<a name="ln-87"></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">GRAZE_AND_MERGE</span>    <span class="o">=</span> <span class="o">-</span><span class="mi">11</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">parameter</span> <span class="kd">::</span> <span class="n">HIT_AND_RUN</span>        <span class="o">=</span> <span class="o">-</span><span class="mi">12</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">parameter</span> <span class="kd">::</span> <span class="n">COLLISION</span>          <span class="o">=</span> <span class="o">-</span><span class="mi">13</span>
-<a name="ln-90"></a>
-<a name="ln-91"></a>   <span class="c">!&gt;Symbolic names for collisional outcomes from collresolve_resolve:</span>
-<a name="ln-92"></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">COLLRESOLVE_REGIME_MERGE</span>              <span class="o">=</span>  <span class="mi">1</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="k">parameter</span> <span class="kd">::</span> <span class="n">COLLRESOLVE_REGIME_DISRUPTION</span>         <span class="o">=</span>  <span class="mi">2</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="k">parameter</span> <span class="kd">::</span> <span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span>  <span class="o">=</span>  <span class="mi">3</span>
-<a name="ln-95"></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">COLLRESOLVE_REGIME_GRAZE_AND_MERGE</span>    <span class="o">=</span>  <span class="mi">4</span>
-<a name="ln-96"></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">COLLRESOLVE_REGIME_HIT_AND_RUN</span>        <span class="o">=</span>  <span class="mi">5</span>
-<a name="ln-97"></a>
-<a name="ln-98"></a>   <span class="c">!&gt; String labels for body/particle addition/subtraction in discard file</span>
-<a name="ln-99"></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">ADD</span> <span class="o">=</span> <span class="s1">&#39;+1&#39;</span>
-<a name="ln-100"></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">SUB</span> <span class="o">=</span> <span class="s1">&#39;-1&#39;</span>
-<a name="ln-101"></a>
-<a name="ln-102"></a>   <span class="c">!&gt; Standard file names</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">parameter</span> <span class="kd">::</span> <span class="n">NDUMPFILES</span> <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-104"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_CB_FILE</span>    <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_cb1.bin&#39;</span><span class="p">,</span>    <span class="s1">&#39;dump_cb2.bin&#39;</span>   <span class="p">]</span>
-<a name="ln-105"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_PL_FILE</span>    <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_pl1.bin&#39;</span><span class="p">,</span>    <span class="s1">&#39;dump_pl2.bin&#39;</span>   <span class="p">]</span>
-<a name="ln-106"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_TP_FILE</span>    <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_tp1.bin&#39;</span><span class="p">,</span>    <span class="s1">&#39;dump_tp2.bin&#39;</span>   <span class="p">]</span>
-<a name="ln-107"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_PARAM_FILE</span> <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_param1.dat&#39;</span><span class="p">,</span> <span class="s1">&#39;dump_param2.dat&#39;</span><span class="p">]</span>
-<a name="ln-108"></a>
-<a name="ln-109"></a>   <span class="c">!&gt; Default file names that can be changed by the user in the parameters file</span>
-<a name="ln-110"></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">ENC_OUTFILE</span>  <span class="o">=</span> <span class="s1">&#39;encounter.out&#39;</span>
-<a name="ln-111"></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">DISCARD_FILE</span> <span class="o">=</span> <span class="s1">&#39;discard.out&#39;</span>
-<a name="ln-112"></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">ENERGY_FILE</span>  <span class="o">=</span> <span class="s1">&#39;energy.out&#39;</span>
-<a name="ln-113"></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">CB_INFILE</span>    <span class="o">=</span> <span class="s1">&#39;cb.in&#39;</span>
-<a name="ln-114"></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">PL_INFILE</span>    <span class="o">=</span> <span class="s1">&#39;pl.in&#39;</span>
-<a name="ln-115"></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">TP_INFILE</span>    <span class="o">=</span> <span class="s1">&#39;tp.in&#39;</span>
-<a name="ln-116"></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">BIN_OUTFILE</span>  <span class="o">=</span> <span class="s1">&#39;bin.dat&#39;</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">parameter</span> <span class="kd">::</span> <span class="n">BINUNIT</span>      <span class="o">=</span> <span class="mi">20</span> <span class="c">!! File unit number for the binary output file</span>
-<a name="ln-118"></a>
-<a name="ln-119"></a>   <span class="c">!&gt; Miscellaneous constants:</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">parameter</span> <span class="kd">::</span> <span class="n">NDIM</span>   <span class="o">=</span> <span class="mi">3</span>                  <span class="c">!! Number of dimensions in our reality</span>
-<a name="ln-121"></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">NDIM2</span>  <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span>           <span class="c">!! 2x the number of dimensions</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">parameter</span> <span class="kd">::</span> <span class="n">VSMALL</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="nb">epsilon</span><span class="p">(</span><span class="mf">1._DP</span><span class="p">)</span> <span class="c">!! Very small number used to prevent floating underflow</span>
-<a name="ln-123"></a>
-<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">parameter</span> <span class="kd">::</span> <span class="n">GC</span>        <span class="o">=</span> <span class="mf">6.6743E-11_DP</span>   <span class="c">!! Universal gravitational constant in SI units</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="k">parameter</span> <span class="kd">::</span> <span class="n">einsteinC</span> <span class="o">=</span> <span class="mi">29979245</span><span class="mf">8.0_DP</span>  <span class="c">!! Speed of light in SI units</span>
-<a name="ln-126"></a>
-<a name="ln-127"></a><span class="k">end module </span><span class="n">swiftest_globals</span>
+<a name="ln-74"></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">SUCCESS_MSG</span> <span class="o">=</span> <span class="s1">&#39;(/, &quot;Normal termination of Swiftest (version &quot;, f3.1, &quot;)&quot;)&#39;</span>
+<a name="ln-75"></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">FAIL_MSG</span> <span class="o">=</span> <span class="s1">&#39;(/, &quot;Terminating Swiftest (version &quot;, f3.1, &quot;) due to error!!&quot;)&#39;</span>
+<a name="ln-76"></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">USAGE_MSG</span> <span class="o">=</span> <span class="s1">&#39;(&quot;Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] &lt;paramfile&gt;&quot;)&#39;</span>
+<a name="ln-77"></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">HELP_MSG</span>  <span class="o">=</span> <span class="n">USAGE_MSG</span>
+<a name="ln-78"></a>
+<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">parameter</span> <span class="kd">::</span> <span class="n">ELLIPSE</span>   <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">!! Symbolic names for orbit types - ellipse</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">parameter</span> <span class="kd">::</span> <span class="n">PARABOLA</span>  <span class="o">=</span>  <span class="mi">0</span> <span class="c">!! Symbolic names for orbit types - parabola</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">parameter</span> <span class="kd">::</span> <span class="n">HYPERBOLA</span> <span class="o">=</span>  <span class="mi">1</span> <span class="c">!! Symbolic names for orbit types - hyperbola</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>   <span class="c">!&gt; Symbolic names for body/particle status codes:</span>
+<a name="ln-84"></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">ACTIVE</span>              <span class="o">=</span>  <span class="mi">0</span>
+<a name="ln-85"></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">INACTIVE</span>            <span class="o">=</span>  <span class="mi">1</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="k">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_RMAX</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-87"></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">DISCARDED_RMIN</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">2</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_RMAXU</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">3</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_PERI</span>      <span class="o">=</span> <span class="o">-</span><span class="mi">4</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">parameter</span> <span class="kd">::</span> <span class="n">DISCARDED_PLR</span>       <span class="o">=</span> <span class="o">-</span><span class="mi">5</span>
+<a name="ln-91"></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">DISCARDED_PLQ</span>       <span class="o">=</span> <span class="o">-</span><span class="mi">6</span>
+<a name="ln-92"></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">DISCARDED_DRIFTERR</span>  <span class="o">=</span> <span class="o">-</span><span class="mi">7</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="k">parameter</span> <span class="kd">::</span> <span class="n">MERGED</span>              <span class="o">=</span> <span class="o">-</span><span class="mi">8</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="k">parameter</span> <span class="kd">::</span> <span class="n">DISRUPTION</span>          <span class="o">=</span> <span class="o">-</span><span class="mi">9</span>
+<a name="ln-95"></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">SUPERCATASTROPHIC</span>   <span class="o">=</span> <span class="o">-</span><span class="mi">10</span>
+<a name="ln-96"></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">GRAZE_AND_MERGE</span>     <span class="o">=</span> <span class="o">-</span><span class="mi">11</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="k">parameter</span> <span class="kd">::</span> <span class="n">HIT_AND_RUN_DISRUPT</span> <span class="o">=</span> <span class="o">-</span><span class="mi">12</span>
+<a name="ln-98"></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">HIT_AND_RUN_PURE</span>    <span class="o">=</span> <span class="o">-</span><span class="mi">13</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="k">parameter</span> <span class="kd">::</span> <span class="n">COLLISION</span>           <span class="o">=</span> <span class="o">-</span><span class="mi">14</span>
+<a name="ln-100"></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">NEW_PARTICLE</span>        <span class="o">=</span> <span class="o">-</span><span class="mi">15</span>
+<a name="ln-101"></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">OLD_PARTICLE</span>        <span class="o">=</span> <span class="o">-</span><span class="mi">16</span>
+<a name="ln-102"></a>
+<a name="ln-103"></a>   <span class="c">!&gt;Symbolic names for collisional outcomes from collresolve_resolve:</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">COLLRESOLVE_REGIME_MERGE</span>              <span class="o">=</span>  <span class="mi">1</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="k">parameter</span> <span class="kd">::</span> <span class="n">COLLRESOLVE_REGIME_DISRUPTION</span>         <span class="o">=</span>  <span class="mi">2</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">parameter</span> <span class="kd">::</span> <span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span>  <span class="o">=</span>  <span class="mi">3</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">COLLRESOLVE_REGIME_GRAZE_AND_MERGE</span>    <span class="o">=</span>  <span class="mi">4</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">parameter</span> <span class="kd">::</span> <span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span>        <span class="o">=</span>  <span class="mi">5</span>
+<a name="ln-109"></a>
+<a name="ln-110"></a>   <span class="c">!&gt; String labels for body/particle addition/subtraction in discard file</span>
+<a name="ln-111"></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">ADD</span> <span class="o">=</span> <span class="s1">&#39;+1&#39;</span>
+<a name="ln-112"></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">SUB</span> <span class="o">=</span> <span class="s1">&#39;-1&#39;</span>
+<a name="ln-113"></a>
+<a name="ln-114"></a>   <span class="c">!&gt; Standard file names</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">parameter</span> <span class="kd">::</span> <span class="n">NDUMPFILES</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-116"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_CB_FILE</span>    <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_cb1.bin&#39;</span><span class="p">,</span>    <span class="s1">&#39;dump_cb2.bin&#39;</span>   <span class="p">]</span>
+<a name="ln-117"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_PL_FILE</span>    <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_pl1.bin&#39;</span><span class="p">,</span>    <span class="s1">&#39;dump_pl2.bin&#39;</span>   <span class="p">]</span>
+<a name="ln-118"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_TP_FILE</span>    <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_tp1.bin&#39;</span><span class="p">,</span>    <span class="s1">&#39;dump_tp2.bin&#39;</span>   <span class="p">]</span>
+<a name="ln-119"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</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">parameter</span> <span class="kd">::</span> <span class="n">DUMP_PARAM_FILE</span> <span class="o">=</span> <span class="p">[</span><span class="s1">&#39;dump_param1.in&#39;</span><span class="p">,</span>  <span class="s1">&#39;dump_param2.in&#39;</span><span class="p">]</span>
+<a name="ln-120"></a>
+<a name="ln-121"></a>   <span class="c">!&gt; Default file names that can be changed by the user in the parameters file</span>
+<a name="ln-122"></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">CB_INFILE</span>        <span class="o">=</span> <span class="s1">&#39;cb.in&#39;</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">parameter</span> <span class="kd">::</span> <span class="n">PL_INFILE</span>        <span class="o">=</span> <span class="s1">&#39;pl.in&#39;</span>
+<a name="ln-124"></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">TP_INFILE</span>        <span class="o">=</span> <span class="s1">&#39;tp.in&#39;</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">parameter</span> <span class="kd">::</span> <span class="n">BIN_OUTFILE</span>      <span class="o">=</span> <span class="s1">&#39;bin.dat&#39;</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">parameter</span> <span class="kd">::</span> <span class="n">BINUNIT</span>          <span class="o">=</span> <span class="mi">20</span> <span class="c">!! File unit number for the binary output file</span>
+<a name="ln-127"></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">PARTICLE_OUTFILE</span> <span class="o">=</span> <span class="s1">&#39;particle.dat&#39;</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">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-129"></a>
+<a name="ln-130"></a>   <span class="c">!&gt; Miscellaneous constants:</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">parameter</span> <span class="kd">::</span> <span class="n">NDIM</span>   <span class="o">=</span> <span class="mi">3</span>                  <span class="c">!! Number of dimensions in our reality</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">parameter</span> <span class="kd">::</span> <span class="n">NDIM2</span>  <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span>           <span class="c">!! 2x the number of dimensions</span>
+<a name="ln-133"></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">VSMALL</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="nb">epsilon</span><span class="p">(</span><span class="mf">1._DP</span><span class="p">)</span> <span class="c">!! Very small number used to prevent floating underflow</span>
+<a name="ln-134"></a>
+<a name="ln-135"></a>   <span class="c">!&gt; NetCDF variable names and constants</span>
+<a name="ln-136"></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">NETCDF_OUTFILE</span>          <span class="o">=</span> <span class="s1">&#39;bin.nc&#39;</span>          <span class="c">!! Default output file name</span>
+<a name="ln-137"></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">TIME_DIMNAME</span>            <span class="o">=</span> <span class="s2">&quot;time&quot;</span>            <span class="c">!! NetCDF name of the time dimension </span>
+<a name="ln-138"></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">ID_DIMNAME</span>              <span class="o">=</span> <span class="s2">&quot;id&quot;</span>              <span class="c">!! NetCDF name of the particle id dimension</span>
+<a name="ln-139"></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">STR_DIMNAME</span>             <span class="o">=</span> <span class="s2">&quot;str&quot;</span>             <span class="c">!! NetCDF name of the particle id dimension</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">parameter</span> <span class="kd">::</span> <span class="n">PTYPE_VARNAME</span>           <span class="o">=</span> <span class="s2">&quot;particle_type&quot;</span>   <span class="c">!! NetCDF name of the particle type variable</span>
+<a name="ln-141"></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">NAME_VARNAME</span>            <span class="o">=</span> <span class="s2">&quot;name&quot;</span>            <span class="c">!! NetCDF name of the particle name variable</span>
+<a name="ln-142"></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">NPL_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;npl&quot;</span>             <span class="c">!! NetCDF name of the number of active massive bodies variable</span>
+<a name="ln-143"></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">NTP_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;ntp&quot;</span>             <span class="c">!! NetCDF name of the number of active test particles variable</span>
+<a name="ln-144"></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">A_VARNAME</span>               <span class="o">=</span> <span class="s2">&quot;a&quot;</span>               <span class="c">!! NetCDF name of the semimajor axis variable </span>
+<a name="ln-145"></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">E_VARNAME</span>               <span class="o">=</span> <span class="s2">&quot;e&quot;</span>               <span class="c">!! NetCDF name of the eccentricity variable </span>
+<a name="ln-146"></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">INC_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;inc&quot;</span>             <span class="c">!! NetCDF name of the inclination variable </span>
+<a name="ln-147"></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">CAPOM_VARNAME</span>           <span class="o">=</span> <span class="s2">&quot;capom&quot;</span>           <span class="c">!! NetCDF name of the long. asc. node variable </span>
+<a name="ln-148"></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">OMEGA_VARNAME</span>           <span class="o">=</span> <span class="s2">&quot;omega&quot;</span>           <span class="c">!! NetCDF name of the arg. periapsis variable </span>
+<a name="ln-149"></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">CAPM_VARNAME</span>            <span class="o">=</span> <span class="s2">&quot;capm&quot;</span>            <span class="c">!! NetCDF name of the mean anomaly variable </span>
+<a name="ln-150"></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">XHX_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;xhx&quot;</span>             <span class="c">!! NetCDF name of the heliocentric position x variable </span>
+<a name="ln-151"></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">XHY_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;xhy&quot;</span>             <span class="c">!! NetCDF name of the heliocentric position y variable </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">XHZ_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;xhz&quot;</span>             <span class="c">!! NetCDF name of the heliocentric position z variable </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">VHX_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;vhx&quot;</span>             <span class="c">!! NetCDF name of the heliocentric velocity x variable </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">VHY_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;vhy&quot;</span>             <span class="c">!! NetCDF name of the heliocentric velocity y variable </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">VHZ_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;vhz&quot;</span>             <span class="c">!! NetCDF name of the heliocentric velocity z variable </span>
+<a name="ln-156"></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">GMASS_VARNAME</span>           <span class="o">=</span> <span class="s2">&quot;Gmass&quot;</span>           <span class="c">!! NetCDF name of the mass variable</span>
+<a name="ln-157"></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">RHILL_VARNAME</span>           <span class="o">=</span> <span class="s2">&quot;rhill&quot;</span>           <span class="c">!! NetCDF name of the hill radius variable</span>
+<a name="ln-158"></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">RADIUS_VARNAME</span>          <span class="o">=</span> <span class="s2">&quot;radius&quot;</span>          <span class="c">!! NetCDF name of the radius variable</span>
+<a name="ln-159"></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">IP1_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;Ip1&quot;</span>             <span class="c">!! NetCDF name of the axis 1 principal moment of inertial variable</span>
+<a name="ln-160"></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">IP2_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;Ip2&quot;</span>             <span class="c">!! NetCDF name of the axis 2 principal moment of inertial variable</span>
+<a name="ln-161"></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">IP3_VARNAME</span>             <span class="o">=</span> <span class="s2">&quot;Ip3&quot;</span>             <span class="c">!! NetCDF name of the axis 3 principal moment of inertial variable</span>
+<a name="ln-162"></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">ROTX_VARNAME</span>            <span class="o">=</span> <span class="s2">&quot;rotx&quot;</span>            <span class="c">!! NetCDF name of the rotation x variable</span>
+<a name="ln-163"></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">ROTY_VARNAME</span>            <span class="o">=</span> <span class="s2">&quot;roty&quot;</span>            <span class="c">!! NetCDF name of the rotation y variable</span>
+<a name="ln-164"></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">ROTZ_VARNAME</span>            <span class="o">=</span> <span class="s2">&quot;rotz&quot;</span>            <span class="c">!! NetCDF name of the rotation z variable</span>
+<a name="ln-165"></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">K2_VARNAME</span>              <span class="o">=</span> <span class="s2">&quot;k2&quot;</span>              <span class="c">!! NetCDF name of the Love number variable</span>
+<a name="ln-166"></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">Q_VARNAME</span>               <span class="o">=</span> <span class="s2">&quot;Q&quot;</span>               <span class="c">!! NetCDF name of the energy dissipation variable</span>
+<a name="ln-167"></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">KE_ORB_VARNAME</span>          <span class="o">=</span> <span class="s2">&quot;KE_orb&quot;</span>          <span class="c">!! NetCDF name of the system orbital kinetic energy variable</span>
+<a name="ln-168"></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">KE_SPIN_VARNAME</span>         <span class="o">=</span> <span class="s2">&quot;KE_spin&quot;</span>         <span class="c">!! NetCDF name of the system spin kinetic energy variable</span>
+<a name="ln-169"></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">PE_VARNAME</span>              <span class="o">=</span> <span class="s2">&quot;PE&quot;</span>              <span class="c">!! NetCDF name of the system potential energy variable</span>
+<a name="ln-170"></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">L_ORBX_VARNAME</span>          <span class="o">=</span> <span class="s2">&quot;L_orbx&quot;</span>          <span class="c">!! NetCDF name of the orbital angular momentum x variable</span>
+<a name="ln-171"></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">L_ORBY_VARNAME</span>          <span class="o">=</span> <span class="s2">&quot;L_orby&quot;</span>          <span class="c">!! NetCDF name of the orbital angular momentum y variable</span>
+<a name="ln-172"></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">L_ORBZ_VARNAME</span>          <span class="o">=</span> <span class="s2">&quot;L_orbz&quot;</span>          <span class="c">!! NetCDF name of the orbital angular momentum z variable</span>
+<a name="ln-173"></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">L_SPINX_VARNAME</span>         <span class="o">=</span> <span class="s2">&quot;L_spinx&quot;</span>         <span class="c">!! NetCDF name of the spin angular momentum x variable</span>
+<a name="ln-174"></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">L_SPINY_VARNAME</span>         <span class="o">=</span> <span class="s2">&quot;L_spiny&quot;</span>         <span class="c">!! NetCDF name of the spin angular momentum y variable</span>
+<a name="ln-175"></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">L_SPINZ_VARNAME</span>         <span class="o">=</span> <span class="s2">&quot;L_spinz&quot;</span>         <span class="c">!! NetCDF name of the spin angular momentum z variable</span>
+<a name="ln-176"></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">L_ESCAPEX_VARNAME</span>       <span class="o">=</span> <span class="s2">&quot;L_escapex&quot;</span>       <span class="c">!! NetCDF name of the escaped angular momentum x variable</span>
+<a name="ln-177"></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">L_ESCAPEY_VARNAME</span>       <span class="o">=</span> <span class="s2">&quot;L_escapey&quot;</span>       <span class="c">!! NetCDF name of the escaped angular momentum y variable</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">parameter</span> <span class="kd">::</span> <span class="n">L_ESCAPEZ_VARNAME</span>       <span class="o">=</span> <span class="s2">&quot;L_escapez&quot;</span>       <span class="c">!! NetCDF name of the escaped angular momentum z variable                          </span>
+<a name="ln-179"></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">ECOLLISIONS_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;Ecollisions&quot;</span>     <span class="c">!! NetCDF name of the escaped angular momentum y variable                             </span>
+<a name="ln-180"></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">EUNTRACKED_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;Euntracked&quot;</span>      <span class="c">!! NetCDF name of the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)</span>
+<a name="ln-181"></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">GMESCAPE_VARNAME</span>        <span class="o">=</span> <span class="s2">&quot;GMescape&quot;</span>        <span class="c">!! NetCDF name of the G*Mass of bodies that escape the system</span>
+<a name="ln-182"></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">STATUS_VARNAME</span>          <span class="o">=</span> <span class="s2">&quot;status&quot;</span>          <span class="c">!! NetCDF name of the current status of the body variable (includes discard type)</span>
+<a name="ln-183"></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">ORIGIN_TYPE_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;origin_type&quot;</span>     <span class="c">!! NetCDF name of the origin type variable (Initial Conditions, Disruption, etc.)</span>
+<a name="ln-184"></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">ORIGIN_TIME_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;origin_time&quot;</span>     <span class="c">!! NetCDF name of the time of origin variable</span>
+<a name="ln-185"></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">ORIGIN_XHX_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;origin_xhx&quot;</span>      <span class="c">!! NetCDF name of the heliocentric position of the body at the time of origin x variable</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">parameter</span> <span class="kd">::</span> <span class="n">ORIGIN_XHY_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;origin_xhy&quot;</span>      <span class="c">!! NetCDF name of the heliocentric position of the body at the time of origin y variable</span>
+<a name="ln-187"></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">ORIGIN_XHZ_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;origin_xhz&quot;</span>      <span class="c">!! NetCDF name of the heliocentric position of the body at the time of origin z variable</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">ORIGIN_VHX_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;origin_vhx&quot;</span>      <span class="c">!! NetCDF name of the heliocentric velocity of the body at the time of origin x variable</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">parameter</span> <span class="kd">::</span> <span class="n">ORIGIN_VHY_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;origin_vhy&quot;</span>      <span class="c">!! NetCDF name of the heliocentric velocity of the body at the time of origin y variable</span>
+<a name="ln-190"></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">ORIGIN_VHZ_VARNAME</span>      <span class="o">=</span> <span class="s2">&quot;origin_vhz&quot;</span>      <span class="c">!! NetCDF name of the heliocentric velocity of the body at the time of origin z variable</span>
+<a name="ln-191"></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">DISCARD_TIME_VARNAME</span>    <span class="o">=</span> <span class="s2">&quot;discard_time&quot;</span>    <span class="c">!! NetCDF name of the time of discard variable</span>
+<a name="ln-192"></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">DISCARD_XHX_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;discard_xhx&quot;</span>     <span class="c">!! NetCDF name of the heliocentric position of the body at the time of discard x variable</span>
+<a name="ln-193"></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">DISCARD_XHY_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;discard_xhy&quot;</span>     <span class="c">!! NetCDF name of the heliocentric position of the body at the time of discard y variable</span>
+<a name="ln-194"></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">DISCARD_XHZ_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;discard_xhz&quot;</span>     <span class="c">!! NetCDF name of the heliocentric position of the body at the time of discard z variable</span>
+<a name="ln-195"></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">DISCARD_VHX_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;discard_vhx&quot;</span>     <span class="c">!! NetCDF name of the heliocentric velocity of the body at the time of discard x variable</span>
+<a name="ln-196"></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">DISCARD_VHY_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;discard_vhy&quot;</span>     <span class="c">!! NetCDF name of the heliocentric velocity of the body at the time of discard y variable</span>
+<a name="ln-197"></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">DISCARD_VHZ_VARNAME</span>     <span class="o">=</span> <span class="s2">&quot;discard_vhz&quot;</span>     <span class="c">!! NetCDF name of the heliocentric velocity of the body at the time of discard z variable</span>
+<a name="ln-198"></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">DISCARD_BODY_ID_VARNAME</span> <span class="o">=</span> <span class="s2">&quot;discard_body_id&quot;</span> <span class="c">!! NetCDF name of the id of the other body involved in the discard</span>
+<a name="ln-199"></a>
+<a name="ln-200"></a><span class="k">end module </span><span class="n">swiftest_globals</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/swiftest_operators.f90.html b/docs/sourcefile/swiftest_operators.f90.html
index c946f956f..19e55d030 100644
--- a/docs/sourcefile/swiftest_operators.f90.html
+++ b/docs/sourcefile/swiftest_operators.f90.html
@@ -134,7 +134,7 @@ <h1>swiftest_operators.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for source files.">109 statements</a>
+    title=" 0.7% of total for source files.">109 statements</a>
      </li> 
      
      
@@ -303,937 +303,1057 @@ <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="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)">
+<svg id="sourcefileswiftest_operatorsf90AfferentGraph" width="460pt" height="2804pt"
+ viewBox="0.00 0.00 460.00 2804.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 2800)">
 <title>sourcefile~~swiftest_operators.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 456,-2464 456,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 456,-2800 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,-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>
+<polygon fill="none" stroke="black" points="118,-1431 0,-1431 0,-1407 118,-1407 118,-1431"/>
+<text text-anchor="middle" x="59" y="-1416.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_operators.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node2" class="node">
-<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>
+<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,-2796 318.5,-2796 318.5,-2772 421.5,-2772 421.5,-2796"/>
+<text text-anchor="middle" x="370" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge1" 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,-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"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.35,-2780.13C306.99,-2776.95 295.96,-2771.67 288,-2763 100.27,-2558.46 65.14,-1599.96 60.58,-1441.28"/>
+<polygon fill="#000000" stroke="#000000" points="64.08,-1441.16 60.3,-1431.26 57.08,-1441.35 64.08,-1441.16"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node3" class="node">
-<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>
+<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,-1431 170,-1431 170,-1407 236,-1407 236,-1431"/>
+<text text-anchor="middle" x="203" y="-1416.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 -->
-<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_edge49" class="edge">
+<g id="sourcefile~~swiftest_operators.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.49,-2780.97C306.84,-2777.82 295.64,-2772.33 288,-2763 241.76,-2706.51 256.54,-2179.86 252,-2107 235.68,-1845.1 212.12,-1527.39 205.68,-1441.37"/>
+<polygon fill="#000000" stroke="#000000" points="209.16,-1440.92 204.92,-1431.21 202.18,-1441.45 209.16,-1440.92"/>
+</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,-1419C157.35,-1419 142.62,-1419 128.07,-1419"/>
+<polygon fill="#000000" stroke="#000000" points="128.05,-1415.5 118.05,-1419 128.05,-1422.5 128.05,-1415.5"/>
 </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,-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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-1389 154,-1389 154,-1365 252,-1365 252,-1389"/>
+<text text-anchor="middle" x="203" y="-1374.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_edge2" class="edge">
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge3" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.31,-1389.04C145.41,-1393.74 127.03,-1399.18 110.31,-1404.12"/>
+<polygon fill="#000000" stroke="#000000" points="109.29,-1400.77 100.7,-1406.96 111.28,-1407.48 109.29,-1400.77"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node5" class="node">
-<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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="445,-2754 295,-2754 295,-2730 445,-2730 445,-2754"/>
+<text text-anchor="middle" x="370" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge4" class="edge">
-<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"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.9,-2729.91C294.21,-2727.42 290.86,-2724.48 288,-2721 244.61,-2668.2 256.38,-2175.2 252,-2107 235.19,-1845.13 211.98,-1527.4 205.65,-1441.37"/>
+<polygon fill="#000000" stroke="#000000" points="209.13,-1440.93 204.9,-1431.21 202.15,-1441.44 209.13,-1440.93"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node6" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="414,-2712 326,-2712 326,-2688 414,-2688 414,-2712"/>
+<text text-anchor="middle" x="370" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge5" class="edge">
-<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"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M325.72,-2698.59C311.63,-2695.86 297.25,-2690.2 288,-2679 247.47,-2629.89 256.22,-2170.54 252,-2107 234.63,-1845.16 211.82,-1527.41 205.62,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="209.09,-1440.94 204.88,-1431.21 202.11,-1441.44 209.09,-1440.94"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node7" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="426,-2670 314,-2670 314,-2646 426,-2646 426,-2670"/>
+<text text-anchor="middle" x="370" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge6" class="edge">
-<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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.97,-2653.53C304.01,-2650.23 294.68,-2645.05 288,-2637 250.32,-2591.57 256.05,-2165.89 252,-2107 233.98,-1845.21 211.63,-1527.42 205.58,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="209.05,-1440.95 204.86,-1431.22 202.07,-1441.44 209.05,-1440.95"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409,-2628 331,-2628 331,-2604 409,-2604 409,-2628"/>
+<text text-anchor="middle" x="370" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge7" 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="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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.83,-2615.41C315.21,-2613.09 298.41,-2607.5 288,-2595 285.6,-2592.11 216.9,-1604.7 205.57,-1441.67"/>
+<polygon fill="#000000" stroke="#000000" points="209.04,-1441.11 204.86,-1431.38 202.06,-1441.6 209.04,-1441.11"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406.5,-2586 333.5,-2586 333.5,-2562 406.5,-2562 406.5,-2586"/>
+<text text-anchor="middle" x="370" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge8" class="edge">
-<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"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.34,-2573.74C317.05,-2571.65 298.98,-2566.16 288,-2553 283.36,-2547.44 216.67,-1599.58 205.56,-1441.29"/>
+<polygon fill="#000000" stroke="#000000" points="209.05,-1441.01 204.86,-1431.28 202.07,-1441.5 209.05,-1441.01"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="425.5,-2544 314.5,-2544 314.5,-2520 425.5,-2520 425.5,-2544"/>
+<text text-anchor="middle" x="370" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge9" class="edge">
-<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"/>
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.44,-2527.62C304.32,-2524.33 294.81,-2519.13 288,-2511 279.07,-2500.33 216.21,-1595.7 205.54,-1441.29"/>
+<polygon fill="#000000" stroke="#000000" points="209.02,-1440.87 204.84,-1431.14 202.03,-1441.35 209.02,-1440.87"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node11" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-2502 331.5,-2502 331.5,-2478 408.5,-2478 408.5,-2502"/>
+<text text-anchor="middle" x="370" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge10" class="edge">
-<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"/>
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.3,-2489.43C315.58,-2487.14 298.56,-2481.57 288,-2469 279.41,-2458.77 216.52,-1592.46 205.61,-1441.35"/>
+<polygon fill="#000000" stroke="#000000" points="209.08,-1440.75 204.87,-1431.03 202.09,-1441.25 209.08,-1440.75"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node12" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="423,-2460 317,-2460 317,-2436 423,-2436 423,-2460"/>
+<text text-anchor="middle" x="370" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge11" class="edge">
-<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"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.98,-2444.35C305.94,-2441.14 295.39,-2435.78 288,-2427 271.51,-2407.43 215.37,-1587.24 205.49,-1441.14"/>
+<polygon fill="#000000" stroke="#000000" points="208.98,-1440.86 204.81,-1431.12 202,-1441.34 208.98,-1440.86"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="429,-2418 311,-2418 311,-2394 429,-2394 429,-2418"/>
+<text text-anchor="middle" x="370" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge12" class="edge">
-<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"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.79,-2400.26C302.07,-2396.96 294,-2392.1 288,-2385 272.21,-2366.32 215.84,-1585.09 205.6,-1441.54"/>
+<polygon fill="#000000" stroke="#000000" points="209.07,-1441.03 204.87,-1431.31 202.09,-1441.53 209.07,-1441.03"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-2376 336,-2376 336,-2352 404,-2352 404,-2376"/>
+<text text-anchor="middle" x="370" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.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"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.9,-2363.96C319.03,-2362.09 299.66,-2356.73 288,-2343 257.8,-2307.43 213.44,-1579.12 205.31,-1441.37"/>
+<polygon fill="#000000" stroke="#000000" points="208.79,-1440.96 204.71,-1431.18 201.8,-1441.37 208.79,-1440.96"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-2334 327.5,-2334 327.5,-2310 412.5,-2310 412.5,-2334"/>
+<text text-anchor="middle" x="370" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_setup.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"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.19,-2320.66C312.72,-2318.01 297.71,-2312.39 288,-2301 259.18,-2267.2 213.97,-1576.15 205.42,-1441.59"/>
+<polygon fill="#000000" stroke="#000000" points="208.89,-1441.04 204.77,-1431.28 201.91,-1441.48 208.89,-1441.04"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="403.5,-2292 336.5,-2292 336.5,-2268 403.5,-2268 403.5,-2292"/>
+<text text-anchor="middle" x="370" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.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"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.36,-2279.96C319.4,-2278.12 299.81,-2272.79 288,-2259 260.52,-2226.93 214.41,-1571.38 205.51,-1441.32"/>
+<polygon fill="#000000" stroke="#000000" points="208.98,-1440.75 204.81,-1431.01 202,-1441.22 208.98,-1440.75"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-2250 327.5,-2250 327.5,-2226 412.5,-2226 412.5,-2250"/>
+<text text-anchor="middle" x="370" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_rescale.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"/>
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.25,-2236.61C312.78,-2233.95 297.76,-2228.34 288,-2217 235.88,-2156.48 209.73,-1563.95 204.85,-1441.19"/>
+<polygon fill="#000000" stroke="#000000" points="208.34,-1440.95 204.45,-1431.1 201.35,-1441.23 208.34,-1440.95"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409,-2208 331,-2208 331,-2184 409,-2184 409,-2208"/>
+<text text-anchor="middle" x="370" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.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"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.64,-2195.15C315.19,-2192.75 298.56,-2187.19 288,-2175 238.58,-2117.95 210.43,-1559.84 204.98,-1441.13"/>
+<polygon fill="#000000" stroke="#000000" points="208.47,-1440.87 204.52,-1431.04 201.48,-1441.19 208.47,-1440.87"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="418,-2166 322,-2166 322,-2142 418,-2142 418,-2166"/>
+<text text-anchor="middle" x="370" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_setup.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"/>
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.83,-2151.39C309.16,-2148.38 296.59,-2142.85 288,-2133 241.31,-2079.46 211.23,-1556.44 205.14,-1441.33"/>
+<polygon fill="#000000" stroke="#000000" points="208.63,-1441.03 204.62,-1431.22 201.64,-1441.39 208.63,-1441.03"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node20"><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~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_step.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"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.3,-2111.02C314.98,-2108.57 298.55,-2103.01 288,-2091 200.5,-1991.39 201.98,-1545.73 203.57,-1441.06"/>
+<polygon fill="#000000" stroke="#000000" points="207.07,-1441.06 203.74,-1431.01 200.07,-1440.95 207.07,-1441.06"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="421.5,-2082 318.5,-2082 318.5,-2058 421.5,-2058 421.5,-2082"/>
+<text text-anchor="middle" x="370" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_discard.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"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.13,-2066.33C306.78,-2063.15 295.8,-2057.81 288,-2049 205.93,-1956.34 203.19,-1542.22 203.77,-1441.25"/>
+<polygon fill="#000000" stroke="#000000" points="207.27,-1441.04 203.85,-1431.01 200.27,-1440.99 207.27,-1441.04"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406.5,-2040 333.5,-2040 333.5,-2016 406.5,-2016 406.5,-2040"/>
+<text text-anchor="middle" x="370" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.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"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.31,-2027.36C317.22,-2025.15 299.33,-2019.67 288,-2007 211.31,-1921.22 204.49,-1538.16 204.01,-1441.31"/>
+<polygon fill="#000000" stroke="#000000" points="207.51,-1441.17 203.97,-1431.18 200.51,-1441.19 207.51,-1441.17"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417,-1998 323,-1998 323,-1974 417,-1974 417,-1998"/>
+<text text-anchor="middle" x="370" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_setup.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"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.9,-1983.4C309.94,-1980.42 296.96,-1974.92 288,-1965 216.7,-1886.11 205.89,-1534.21 204.28,-1441.47"/>
+<polygon fill="#000000" stroke="#000000" points="207.78,-1441.2 204.12,-1431.25 200.78,-1441.31 207.78,-1441.2"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node24" class="node">
-<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>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411,-1956 329,-1956 329,-1932 411,-1932 411,-1956"/>
+<text text-anchor="middle" x="370" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.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"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M328.87,-1942.52C314.07,-1939.91 298.4,-1934.36 288,-1923 222.02,-1850.9 207.39,-1529.54 204.59,-1441.41"/>
+<polygon fill="#000000" stroke="#000000" points="208.09,-1441.1 204.29,-1431.21 201.09,-1441.31 208.09,-1441.1"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node25" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-1914 336,-1914 336,-1890 404,-1890 404,-1914"/>
+<text text-anchor="middle" x="370" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.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"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.97,-1901.49C319.33,-1899.45 300.16,-1894.09 288,-1881 227.27,-1815.61 208.98,-1524.16 204.95,-1441.14"/>
+<polygon fill="#000000" stroke="#000000" points="208.45,-1440.88 204.49,-1431.05 201.45,-1441.2 208.45,-1440.88"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~whm_drift.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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_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">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge25" class="edge">
-<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"/>
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.14,-1858.7C315.78,-1856.22 299.08,-1850.72 288,-1839 232.62,-1780.41 210.79,-1519.75 205.41,-1441.37"/>
+<polygon fill="#000000" stroke="#000000" points="208.89,-1440.92 204.73,-1431.17 201.9,-1441.38 208.89,-1440.92"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="407.5,-1830 332.5,-1830 332.5,-1806 407.5,-1806 407.5,-1830"/>
+<text text-anchor="middle" x="370" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_solve.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.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"/>
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.09,-1816.72C316.52,-1814.28 299.4,-1808.81 288,-1797 237.91,-1745.13 212.78,-1514.75 205.96,-1441.47"/>
+<polygon fill="#000000" stroke="#000000" points="209.41,-1440.75 205.02,-1431.11 202.43,-1441.38 209.41,-1440.75"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1788 331.5,-1788 331.5,-1764 408.5,-1764 408.5,-1788"/>
+<text text-anchor="middle" x="370" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_coord.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"/>
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.41,-1774.44C316.09,-1771.92 299.35,-1766.45 288,-1755 243.09,-1709.7 214.92,-1508.66 206.59,-1441.17"/>
+<polygon fill="#000000" stroke="#000000" points="210.06,-1440.7 205.39,-1431.2 203.11,-1441.54 210.06,-1440.7"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="410,-1746 330,-1746 330,-1722 410,-1722 410,-1746"/>
+<text text-anchor="middle" x="370" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.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"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M329.93,-1731.97C315.1,-1729.3 299.13,-1723.86 288,-1713 210.67,-1637.55 203.21,-1496.25 203.39,-1441.49"/>
+<polygon fill="#000000" stroke="#000000" points="206.9,-1441.21 203.53,-1431.17 199.9,-1441.12 206.9,-1441.21"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="402,-1704 338,-1704 338,-1680 402,-1680 402,-1704"/>
+<text text-anchor="middle" x="370" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.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"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.9,-1690.92C321.21,-1688.78 301.38,-1683.5 288,-1671 220.78,-1608.21 207.31,-1490.28 204.65,-1441.26"/>
+<polygon fill="#000000" stroke="#000000" points="208.14,-1440.95 204.2,-1431.11 201.14,-1441.26 208.14,-1440.95"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest_operators.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="452,-1662 288,-1662 288,-1638 452,-1638 452,-1662"/>
+<text text-anchor="middle" x="370" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.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"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.44,-1637.99C296.59,-1635.52 292.03,-1632.55 288,-1629 230.8,-1578.63 212.05,-1483.91 206.33,-1441.06"/>
+<polygon fill="#000000" stroke="#000000" points="209.8,-1440.61 205.11,-1431.11 202.85,-1441.46 209.8,-1440.61"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-1620 343,-1620 343,-1596 397,-1596 397,-1620"/>
+<text text-anchor="middle" x="370" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.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"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.79,-1606.72C325.58,-1604.65 303.47,-1599.52 288,-1587 240.91,-1548.89 217.93,-1477.61 208.86,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="212.2,-1440.26 206.49,-1431.34 205.38,-1441.88 212.2,-1440.26"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.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_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge32" class="edge">
-<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"/>
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.5,-1562.1C316.9,-1559.16 300.67,-1554.01 288,-1545 250.41,-1518.26 224.89,-1468.99 212.55,-1440.63"/>
+<polygon fill="#000000" stroke="#000000" points="215.7,-1439.08 208.6,-1431.21 209.24,-1441.79 215.7,-1439.08"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1536 327,-1536 327,-1512 413,-1512 413,-1536"/>
+<text text-anchor="middle" x="370" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge33" class="edge">
-<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"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.98,-1517.56C313.92,-1514.41 299.85,-1509.78 288,-1503 259.59,-1486.75 234.12,-1458.37 218.87,-1439.14"/>
+<polygon fill="#000000" stroke="#000000" points="221.49,-1436.8 212.6,-1431.02 215.94,-1441.08 221.49,-1436.8"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-1494 336,-1494 336,-1470 404,-1470 404,-1494"/>
+<text text-anchor="middle" x="370" y="-1479.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~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge34" class="edge">
-<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"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.8,-1475.06C320.95,-1471.53 303.37,-1466.76 288,-1461 269.67,-1454.13 250.05,-1444.46 234.39,-1436.13"/>
+<polygon fill="#000000" stroke="#000000" points="235.66,-1432.84 225.2,-1431.16 232.33,-1439 235.66,-1432.84"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-1452 340,-1452 340,-1428 400,-1428 400,-1452"/>
+<text text-anchor="middle" x="370" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge35" class="edge">
-<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"/>
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.88,-1436.29C313.89,-1432.99 275.53,-1428.1 246.18,-1424.37"/>
+<polygon fill="#000000" stroke="#000000" points="246.57,-1420.89 236.21,-1423.1 245.69,-1427.83 246.57,-1420.89"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="422.5,-1410 317.5,-1410 317.5,-1386 422.5,-1386 422.5,-1410"/>
+<text text-anchor="middle" x="370" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge36" 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.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"/>
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.25,-1404.59C294.5,-1407.48 268.13,-1410.84 246.55,-1413.58"/>
+<polygon fill="#000000" stroke="#000000" points="245.86,-1410.14 236.38,-1414.88 246.75,-1417.09 245.86,-1410.14"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~setup.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,-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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="398.5,-1368 341.5,-1368 341.5,-1344 398.5,-1344 398.5,-1368"/>
+<text text-anchor="middle" x="370" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~setup.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.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"/>
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.39,-1361.19C325.44,-1364.67 305.19,-1369.92 288,-1377 270.87,-1384.06 268.51,-1389.61 252,-1398 248.86,-1399.59 245.58,-1401.19 242.27,-1402.74"/>
+<polygon fill="#000000" stroke="#000000" points="240.59,-1399.66 232.93,-1406.99 243.49,-1406.03 240.59,-1399.66"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1326 331.5,-1326 331.5,-1302 408.5,-1302 408.5,-1326"/>
+<text text-anchor="middle" x="370" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge38" class="edge">
-<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"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.17,-1317.47C316.53,-1320.34 300.35,-1325.56 288,-1335 262.38,-1354.58 275.99,-1376.45 252,-1398 249.84,-1399.94 247.48,-1401.72 244.99,-1403.35"/>
+<polygon fill="#000000" stroke="#000000" points="243.16,-1400.37 236.2,-1408.35 246.62,-1406.45 243.16,-1400.37"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-1284 336,-1284 336,-1260 404,-1260 404,-1284"/>
+<text text-anchor="middle" x="370" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge39" class="edge">
-<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"/>
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.94,-1273.4C319.7,-1275.71 300.9,-1281.06 288,-1293 251.81,-1326.52 285.42,-1361.71 252,-1398 249.98,-1400.2 247.69,-1402.17 245.23,-1403.95"/>
+<polygon fill="#000000" stroke="#000000" points="243.14,-1401.12 236.36,-1409.27 246.74,-1407.13 243.14,-1401.12"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1242 327,-1242 327,-1218 413,-1218 413,-1242"/>
+<text text-anchor="middle" x="370" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge40" class="edge">
-<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"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.79,-1232.37C312.79,-1235.19 298.2,-1240.66 288,-1251 240.76,-1298.88 295.3,-1346.52 252,-1398 250.02,-1400.35 247.73,-1402.44 245.25,-1404.31"/>
+<polygon fill="#000000" stroke="#000000" points="242.93,-1401.62 236.21,-1409.82 246.57,-1407.6 242.93,-1401.62"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1200 327,-1200 327,-1176 413,-1176 413,-1200"/>
+<text text-anchor="middle" x="370" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge41" class="edge">
-<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"/>
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.91,-1190C312.75,-1192.76 298.03,-1198.29 288,-1209 229.55,-1271.41 305.32,-1331.15 252,-1398 250.09,-1400.4 247.84,-1402.53 245.39,-1404.43"/>
+<polygon fill="#000000" stroke="#000000" points="243.07,-1401.74 236.42,-1409.98 246.76,-1407.69 243.07,-1401.74"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-1158 334,-1158 334,-1134 406,-1134 406,-1158"/>
+<text text-anchor="middle" x="370" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.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"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.79,-1146.65C317.61,-1148.84 299.51,-1154.29 288,-1167 218.26,-1244.02 315.42,-1315.69 252,-1398 249.95,-1400.67 247.48,-1403 244.77,-1405.04"/>
+<polygon fill="#000000" stroke="#000000" points="242.79,-1402.15 236.06,-1410.33 246.42,-1408.14 242.79,-1402.15"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412,-1116 328,-1116 328,-1092 412,-1092 412,-1116"/>
+<text text-anchor="middle" x="370" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_set.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"/>
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.83,-1105.45C313.25,-1108.09 298.01,-1113.68 288,-1125 206.92,-1216.68 325.55,-1300.18 252,-1398 249.98,-1400.69 247.54,-1403.04 244.84,-1405.09"/>
+<polygon fill="#000000" stroke="#000000" points="242.86,-1402.2 236.15,-1410.41 246.51,-1408.18 242.86,-1402.2"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-1074 342.5,-1074 342.5,-1050 397.5,-1050 397.5,-1074"/>
+<text text-anchor="middle" x="370" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.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"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.4,-1061.57C324.32,-1062.81 301.34,-1067.65 288,-1083 195.57,-1189.36 335.71,-1284.65 252,-1398 250,-1400.71 247.58,-1403.07 244.89,-1405.13"/>
+<polygon fill="#000000" stroke="#000000" points="242.91,-1402.24 236.22,-1410.46 246.58,-1408.21 242.91,-1402.24"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405.5,-1032 334.5,-1032 334.5,-1008 405.5,-1008 405.5,-1032"/>
+<text text-anchor="middle" x="370" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.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"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M334.32,-1020.28C317.85,-1022.32 299.35,-1027.77 288,-1041 236.1,-1101.53 298.94,-1333.55 252,-1398 250.02,-1400.72 247.61,-1403.09 244.93,-1405.16"/>
+<polygon fill="#000000" stroke="#000000" points="242.95,-1402.27 236.28,-1410.5 246.63,-1408.23 242.95,-1402.27"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-990 343,-990 343,-966 397,-966 397,-990"/>
+<text text-anchor="middle" x="370" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~kick.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"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.67,-977.45C324.48,-978.6 301.25,-983.38 288,-999 230.41,-1066.89 304.03,-1325.76 252,-1398 250.03,-1400.73 247.63,-1403.11 244.96,-1405.18"/>
+<polygon fill="#000000" stroke="#000000" points="242.98,-1402.29 236.32,-1410.53 246.67,-1408.25 242.98,-1402.29"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-948 330.5,-948 330.5,-924 409.5,-924 409.5,-948"/>
+<text text-anchor="middle" x="370" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_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"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.47,-936.7C314.99,-939.07 298.38,-944.66 288,-957 224.71,-1032.25 309.12,-1317.97 252,-1398 250.04,-1400.74 247.65,-1403.13 244.99,-1405.2"/>
+<polygon fill="#000000" stroke="#000000" points="243.01,-1402.31 236.36,-1410.56 246.7,-1408.26 243.01,-1402.31"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-906 343,-906 343,-882 397,-882 397,-906"/>
+<text text-anchor="middle" x="370" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~drift.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"/>
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.98,-893.36C324.7,-894.44 301.22,-899.17 288,-915 219.01,-997.61 314.22,-1310.18 252,-1398 250.05,-1400.75 247.67,-1403.14 245.01,-1405.22"/>
+<polygon fill="#000000" stroke="#000000" points="243.03,-1402.33 236.39,-1410.58 246.73,-1408.27 243.03,-1402.33"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="402.5,-864 337.5,-864 337.5,-840 402.5,-840 402.5,-864"/>
+<text text-anchor="middle" x="370" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge50" class="edge">
-<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"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.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="M337.41,-851.77C320.13,-853.44 299.88,-858.69 288,-873 213.31,-962.98 319.32,-1302.38 252,-1398 250.06,-1400.75 247.68,-1403.15 245.03,-1405.23"/>
+<polygon fill="#000000" stroke="#000000" points="243.05,-1402.34 236.41,-1410.6 246.75,-1408.28 243.05,-1402.34"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-822 327.5,-822 327.5,-798 412.5,-798 412.5,-822"/>
+<text text-anchor="middle" x="370" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge51" class="edge">
-<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"/>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.42,-811.1C312.79,-813.7 297.62,-819.35 288,-831 207.61,-928.35 324.42,-1294.58 252,-1398 250.07,-1400.76 247.69,-1403.16 245.04,-1405.24"/>
+<polygon fill="#000000" stroke="#000000" points="243.07,-1402.35 236.43,-1410.61 246.77,-1408.29 243.07,-1402.35"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="421.5,-780 318.5,-780 318.5,-756 421.5,-756 421.5,-780"/>
+<text text-anchor="middle" x="370" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge52" class="edge">
-<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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.09,-771.16C306.59,-774.34 295.57,-779.8 288,-789 201.91,-893.72 329.52,-1286.78 252,-1398 250.08,-1400.76 247.7,-1403.16 245.06,-1405.25"/>
+<polygon fill="#000000" stroke="#000000" points="243.08,-1402.36 236.45,-1410.62 246.79,-1408.3 243.08,-1402.36"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-738 336,-738 336,-714 404,-714 404,-738"/>
+<text text-anchor="middle" x="370" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge53" class="edge">
-<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"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.71,-725.88C318.77,-727.7 299.41,-733.06 288,-747 196.2,-859.1 334.62,-1278.98 252,-1398 250.08,-1400.76 247.71,-1403.17 245.07,-1405.26"/>
+<polygon fill="#000000" stroke="#000000" points="243.09,-1402.37 236.47,-1410.63 246.8,-1408.3 243.09,-1402.37"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-696 342.5,-696 342.5,-672 397.5,-672 397.5,-696"/>
+<text text-anchor="middle" x="370" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge54" class="edge">
-<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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.49,-683.3C324.21,-684.37 300.95,-689.13 288,-705 190.5,-824.47 339.73,-1271.18 252,-1398 250.09,-1400.77 247.72,-1403.17 245.08,-1405.27"/>
+<polygon fill="#000000" stroke="#000000" points="243.1,-1402.37 236.48,-1410.64 246.81,-1408.31 243.1,-1402.37"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node55" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-654 343,-654 343,-630 397,-630 397,-654"/>
+<text text-anchor="middle" x="370" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge55" 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.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"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.86,-641.27C324.52,-642.29 301.02,-647 288,-663 236.39,-726.42 298.41,-1330.69 252,-1398 249.98,-1400.93 247.45,-1403.46 244.62,-1405.64"/>
+<polygon fill="#000000" stroke="#000000" points="242.72,-1402.7 236,-1410.89 246.36,-1408.68 242.72,-1402.7"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-612 327,-612 327,-588 413,-588 413,-612"/>
+<text text-anchor="middle" x="370" y="-597.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 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge56" class="edge">
-<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"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.89,-601.09C312.38,-603.71 297.43,-609.38 288,-621 233.54,-688.11 300.97,-1326.78 252,-1398 249.98,-1400.94 247.45,-1403.47 244.62,-1405.65"/>
+<polygon fill="#000000" stroke="#000000" points="242.72,-1402.71 236.01,-1410.9 246.37,-1408.68 242.72,-1402.71"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-570 327,-570 327,-546 413,-546 413,-570"/>
+<text text-anchor="middle" x="370" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge57" class="edge">
-<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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.87,-559.07C312.37,-561.7 297.41,-567.37 288,-579 230.69,-649.8 303.52,-1322.88 252,-1398 249.98,-1400.94 247.46,-1403.47 244.63,-1405.65"/>
+<polygon fill="#000000" stroke="#000000" points="242.73,-1402.71 236.02,-1410.91 246.38,-1408.68 242.73,-1402.71"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417.5,-528 322.5,-528 322.5,-504 417.5,-504 417.5,-528"/>
+<text text-anchor="middle" x="370" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge58" class="edge">
-<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"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.2,-518.01C309.22,-520.97 296.4,-526.6 288,-537 227.83,-611.49 306.07,-1318.98 252,-1398 249.99,-1400.94 247.47,-1403.47 244.64,-1405.66"/>
+<polygon fill="#000000" stroke="#000000" points="242.74,-1402.71 236.03,-1410.92 246.39,-1408.69 242.74,-1402.71"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="441,-486 299,-486 299,-462 441,-462 441,-486"/>
+<text text-anchor="middle" x="370" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.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="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"/>
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.9,-485.31C294.81,-487.96 291.1,-491.15 288,-495 224.98,-573.17 308.62,-1315.08 252,-1398 249.99,-1400.94 247.47,-1403.48 244.64,-1405.66"/>
+<polygon fill="#000000" stroke="#000000" points="242.75,-1402.72 236.04,-1410.92 246.4,-1408.69 242.75,-1402.72"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-444 340,-444 340,-420 400,-420 400,-444"/>
+<text text-anchor="middle" x="370" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.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="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"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.66,-431.43C321.83,-432.79 300.2,-437.83 288,-453 222.13,-534.86 311.18,-1311.17 252,-1398 249.99,-1400.95 247.47,-1403.48 244.65,-1405.66"/>
+<polygon fill="#000000" stroke="#000000" points="242.75,-1402.72 236.05,-1410.93 246.4,-1408.69 242.75,-1402.72"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~fraggle_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node61" class="node">
-<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>
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411.5,-402 328.5,-402 328.5,-378 411.5,-378 411.5,-402"/>
+<text text-anchor="middle" x="370" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_util.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"/>
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M328.09,-390.82C313.19,-393.33 297.64,-399 288,-411 219.27,-496.55 313.73,-1307.27 252,-1398 249.99,-1400.95 247.48,-1403.48 244.66,-1405.67"/>
+<polygon fill="#000000" stroke="#000000" points="242.76,-1402.73 236.05,-1410.93 246.41,-1408.7 242.76,-1402.73"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~swiftest_driver.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>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="419,-360 321,-360 321,-336 419,-336 419,-360"/>
+<text text-anchor="middle" x="370" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_driver.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"/>
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.89,-350.27C308.35,-353.3 296.09,-358.91 288,-369 216.42,-458.24 316.28,-1303.36 252,-1398 250,-1400.95 247.48,-1403.49 244.66,-1405.67"/>
+<polygon fill="#000000" stroke="#000000" points="242.76,-1402.73 236.06,-1410.93 246.42,-1408.7 242.76,-1402.73"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417,-318 323,-318 323,-294 417,-294 417,-318"/>
+<text text-anchor="middle" x="370" y="-303.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~~swiftest_operators.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M323,-307.78C309.73,-310.68 296.54,-316.34 288,-327 213.56,-419.93 318.84,-1299.46 252,-1398 250,-1400.95 247.49,-1403.49 244.66,-1405.67"/>
+<polygon fill="#000000" stroke="#000000" points="242.77,-1402.73 236.07,-1410.94 246.42,-1408.7 242.77,-1402.73"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408,-276 332,-276 332,-252 408,-252 408,-276"/>
+<text text-anchor="middle" x="370" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.85,-264.22C315.84,-266.39 298.44,-271.95 288,-285 210.71,-381.62 321.39,-1295.56 252,-1398 250,-1400.95 247.49,-1403.49 244.67,-1405.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.77,-1402.73 236.07,-1410.94 246.43,-1408.7 242.77,-1402.73"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-234 330.5,-234 330.5,-210 409.5,-210 409.5,-234"/>
+<text text-anchor="middle" x="370" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.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="M330.17,-222.45C314.63,-224.78 298.07,-230.4 288,-243 207.85,-343.31 323.94,-1291.65 252,-1398 250,-1400.95 247.49,-1403.49 244.67,-1405.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.77,-1402.74 236.08,-1410.95 246.43,-1408.71 242.77,-1402.74"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408,-192 332,-192 332,-168 408,-168 408,-192"/>
+<text text-anchor="middle" x="370" y="-177.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~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.84,-180.21C315.83,-182.38 298.42,-187.94 288,-201 205,-305 326.5,-1287.75 252,-1398 250,-1400.95 247.49,-1403.49 244.68,-1405.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.78,-1402.74 236.08,-1410.95 246.44,-1408.71 242.78,-1402.74"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="432,-150 308,-150 308,-126 432,-126 432,-150"/>
+<text text-anchor="middle" x="370" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.62,-144.6C300.04,-147.89 293.16,-152.53 288,-159 202.14,-266.69 329.05,-1283.84 252,-1398 250.01,-1400.95 247.5,-1403.5 244.68,-1405.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.78,-1402.74 236.08,-1410.95 246.44,-1408.71 242.78,-1402.74"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-108 343,-108 343,-84 397,-84 397,-108"/>
+<text text-anchor="middle" x="370" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.76,-95.18C324.37,-96.17 300.85,-100.86 288,-117 199.29,-228.38 331.6,-1279.94 252,-1398 250.01,-1400.96 247.5,-1403.5 244.68,-1405.69"/>
+<polygon fill="#000000" stroke="#000000" points="242.78,-1402.74 236.09,-1410.95 246.44,-1408.71 242.78,-1402.74"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-66 336,-66 336,-42 404,-42 404,-66"/>
+<text text-anchor="middle" x="370" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.96,-53.71C318.88,-55.45 299.31,-60.79 288,-75 196.43,-190.07 334.16,-1276.04 252,-1398 250.01,-1400.96 247.5,-1403.5 244.68,-1405.69"/>
+<polygon fill="#000000" stroke="#000000" points="242.79,-1402.75 236.09,-1410.96 246.45,-1408.71 242.79,-1402.75"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-24 327.5,-24 327.5,0 412.5,0 412.5,-24"/>
+<text text-anchor="middle" x="370" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.19,-12.91C312.53,-15.49 297.4,-21.17 288,-33 193.58,-151.76 336.71,-1272.13 252,-1398 250.01,-1400.96 247.5,-1403.5 244.69,-1405.69"/>
+<polygon fill="#000000" stroke="#000000" points="242.79,-1402.75 236.1,-1410.96 246.45,-1408.71 242.79,-1402.75"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/symba_classes.f90.html b/docs/sourcefile/symba_classes.f90.html
index a313cc595..41fb411a0 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.2% of total for source files.">566 statements</a>
+    title=" 3.5% of total for source files.">566 statements</a>
      </li> 
      
      
@@ -226,134 +226,161 @@ <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="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)">
+<svg id="sourcefilesymba_classesf90EfferentGraph" width="641pt" height="196pt"
+ viewBox="0.00 0.00 641.00 195.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.96 0.96) rotate(0) translate(4 199.78)">
 <title>sourcefile~~symba_classes.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-110.05 653,-110.05 653,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-199.78 664,-199.78 664,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,-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>
+<polygon fill="none" stroke="black" points="660,-77.03 557,-77.03 557,-53.03 660,-53.03 660,-77.03"/>
+<text text-anchor="middle" x="608.5" y="-62.63" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes.f90</text>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-77.03 142,-77.03 142,-53.03 249,-53.03 249,-77.03"/>
+<text text-anchor="middle" x="195.5" y="-62.63" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M593.15,-77.04C569.97,-95.56 522.07,-130.27 474.5,-143.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M472.5,-143.03C466.93,-144.52 324.78,-102.98 246.72,-79.92"/>
+<polygon fill="#000000" stroke="#000000" points="247.65,-76.55 237.07,-77.07 245.67,-83.26 247.65,-76.55"/>
 </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_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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="521,-35.03 426,-35.03 426,-11.03 521,-11.03 521,-35.03"/>
+<text text-anchor="middle" x="473.5" y="-20.63" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M569.39,-52.99C554.78,-48.38 537.92,-43.06 522.5,-38.19"/>
+<polygon fill="#000000" stroke="#000000" points="523.21,-34.74 512.62,-35.07 521.1,-41.42 523.21,-34.74"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-77.03 0,-77.03 0,-53.03 106,-53.03 106,-77.03"/>
+<text text-anchor="middle" x="53" y="-62.63" 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_edge4" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M472.5,-143.03C352.9,-175.57 315.76,-216.79 196.5,-183.03"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="520.5,-77.03 426.5,-77.03 426.5,-53.03 520.5,-53.03 520.5,-77.03"/>
+<text text-anchor="middle" x="473.5" y="-62.63" 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">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.84,-65.03C548.29,-65.03 539.37,-65.03 530.69,-65.03"/>
+<polygon fill="#000000" stroke="#000000" points="530.65,-61.53 520.65,-65.03 530.65,-68.53 530.65,-61.53"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="390,-155.03 285,-155.03 285,-131.03 390,-131.03 390,-155.03"/>
+<text text-anchor="middle" x="337.5" y="-140.63" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M472.5,-143.03C449.4,-149.22 423.25,-150.44 400.22,-149.68"/>
+<polygon fill="#000000" stroke="#000000" points="400.37,-146.19 390.22,-149.23 400.05,-153.18 400.37,-146.19"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-65.03C133.48,-65.03 124.83,-65.03 116.33,-65.03"/>
+<polygon fill="#000000" stroke="#000000" points="116.08,-61.53 106.08,-65.03 116.08,-68.53 116.08,-61.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-25.03C160.71,-29.68 123.65,-40.49 96.08,-49.69"/>
+<polygon fill="#000000" stroke="#000000" points="94.71,-46.46 86.37,-53 96.97,-53.09 94.71,-46.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428.72,-11.01C416.3,-8.13 402.71,-5.47 390,-4.03 343.63,1.24 331.35,1.39 285,-4.03 244.85,-8.73 236.55,-19.52 196.5,-25.03"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node6" class="node">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node7" 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,-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>
+<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="384.5,-37.03 290.5,-37.03 290.5,-13.03 384.5,-13.03 384.5,-37.03"/>
+<text text-anchor="middle" x="337.5" y="-22.63" 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">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge7" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.63,-23.73C415.67,-23.88 405.05,-24.04 394.78,-24.19"/>
+<polygon fill="#000000" stroke="#000000" points="394.61,-20.69 384.66,-24.34 394.71,-27.69 394.61,-20.69"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge9" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.5,-65.03C311.25,-63.26 283.38,-62.93 259.2,-63.16"/>
+<polygon fill="#000000" stroke="#000000" points="259.03,-59.66 249.08,-63.29 259.13,-66.66 259.03,-59.66"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.5,-65.03C271.95,-60.51 260.61,-16.2 196.5,-25.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.24,-66.62C400.4,-67.11 367.62,-67.07 338.5,-65.03"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge10" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.3,-53.03C418.64,-48.95 403.21,-44.35 388.86,-40.06"/>
+<polygon fill="#000000" stroke="#000000" points="389.72,-36.67 379.14,-37.16 387.72,-43.37 389.72,-36.67"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.71,-130.91C303.18,-126.64 293.62,-121.73 285,-117.03 264.8,-106.01 242.47,-92.88 225.29,-82.57"/>
+<polygon fill="#000000" stroke="#000000" points="226.7,-79.33 216.33,-77.17 223.08,-85.33 226.7,-79.33"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-183.03C138.99,-167.32 91.7,-114.77 68.78,-85.38"/>
+<polygon fill="#000000" stroke="#000000" points="71.56,-83.25 62.72,-77.41 65.99,-87.49 71.56,-83.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.93,-155.04C273.43,-168.86 217.42,-188.95 196.5,-183.03"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge14" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.5,-37.03C280.09,-41.15 263.8,-45.8 248.69,-50.12"/>
+<polygon fill="#000000" stroke="#000000" points="247.61,-46.79 238.96,-52.9 249.54,-53.52 247.61,-46.79"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge15" 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.72,-21.5C258.68,-20.53 225.65,-20.59 196.5,-24.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.25,-21.87C262.87,-20.79 227.56,-20.75 196.5,-25.03"/>
 </g>
 </g>
 </svg>
@@ -406,968 +433,1083 @@ <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="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)">
+<svg id="sourcefilesymba_classesf90AfferentGraph" width="413pt" height="2804pt"
+ viewBox="0.00 0.00 413.00 2804.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 2800)">
 <title>sourcefile~~symba_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 409,-2464 409,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 409,-2800 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,-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>
+<polygon fill="none" stroke="black" points="103,-2019 0,-2019 0,-1995 103,-1995 103,-2019"/>
+<text text-anchor="middle" x="51.5" y="-2004.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes.f90</text>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node2" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-2796 271.5,-2796 271.5,-2772 374.5,-2772 374.5,-2796"/>
+<text text-anchor="middle" x="323" y="-2781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_discard.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"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.17,-2778.07C260.34,-2774.92 249.59,-2770.17 241,-2763 185.74,-2716.87 228.62,-2661.69 173,-2616"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node3" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node7" class="node">
 <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_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~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_collision.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node4" class="node">
-<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_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_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_discard.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node5" class="node">
-<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>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="205,-1431 139,-1431 139,-1407 205,-1407 205,-1431"/>
+<text text-anchor="middle" x="172" y="-1416.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 -->
-<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_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge52" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge27" 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~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~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_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_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_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge6" class="edge">
-<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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.46,-2781C259.81,-2777.84 248.62,-2772.35 241,-2763 197.47,-2709.59 176.42,-1612.92 173.38,-1441.46"/>
+<polygon fill="#000000" stroke="#000000" points="176.88,-1441.26 173.21,-1431.33 169.88,-1441.39 176.88,-1441.26"/>
 </g>
 <!-- sourcefile~symba_setup.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node8" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node3" class="node">
 <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>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-2754 276,-2754 276,-2730 370,-2730 370,-2754"/>
+<text text-anchor="middle" x="323" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge7" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge2" 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.98,-2247.86C235.24,-2256.04 181.02,-2265.39 173,-2259"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.69,-2736.19C263.6,-2733.08 251.13,-2728.31 241,-2721 195.91,-2688.47 215.96,-2651.29 173,-2616"/>
 </g>
 <!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge28" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge29" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.69,-2740.03C262.57,-2737.1 249.54,-2731.47 241,-2721 198.85,-2669.37 176.69,-1610.13 173.42,-1441.53"/>
+<polygon fill="#000000" stroke="#000000" points="176.92,-1441.27 173.23,-1431.34 169.92,-1441.41 176.92,-1441.27"/>
 </g>
 <!-- sourcefile~symba_step.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node4" class="node">
 <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>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-2712 279,-2712 279,-2688 367,-2688 367,-2712"/>
+<text text-anchor="middle" x="323" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge8" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge5" 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.74,-2204.67C266.3,-2207.84 252.89,-2211.92 241,-2217 208.33,-2230.95 200.79,-2281.13 173,-2259"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.88,-2692.98C266.19,-2689.83 252.6,-2685.34 241,-2679 204.85,-2659.23 204.83,-2642.15 173,-2616"/>
 </g>
 <!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge55" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge12" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.67,-2698.64C264.57,-2695.91 250.2,-2690.25 241,-2679 200.24,-2629.16 176.99,-1608.13 173.47,-1441.81"/>
+<polygon fill="#000000" stroke="#000000" points="176.96,-1441.26 173.25,-1431.34 169.96,-1441.41 176.96,-1441.26"/>
 </g>
 <!-- sourcefile~symba_encounter_check.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node10" class="node">
+<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_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>
+<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,-2670 248,-2670 248,-2646 398,-2646 398,-2670"/>
+<text text-anchor="middle" x="323" y="-2655.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~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge9" class="edge">
+<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="M258.83,-2166.07C252.56,-2168.52 246.5,-2171.46 241,-2175 200.61,-2201 210.57,-2288.93 173,-2259"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.73,-2649.49C221.87,-2643.5 194.08,-2633.32 173,-2616"/>
 </g>
 <!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge68" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.89,-2645.92C247.21,-2643.43 243.85,-2640.48 241,-2637 201.59,-2588.91 177.26,-1603.88 173.51,-1441.55"/>
+<polygon fill="#000000" stroke="#000000" points="177,-1441.23 173.27,-1431.31 170,-1441.39 177,-1441.23"/>
 </g>
 <!-- sourcefile~symba_util.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node11" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node6" class="node">
 <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>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-2628 282,-2628 282,-2604 364,-2604 364,-2628"/>
+<text text-anchor="middle" x="323" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge4" 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.99,-2115.73C267.89,-2118.67 252.66,-2123.86 241,-2133 190.92,-2172.26 222.78,-2298.65 173,-2259"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.55,-2628.04C251.45,-2636.15 203.78,-2641.29 173,-2616"/>
 </g>
 <!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge42" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge30" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.65,-2615.15C266.63,-2612.65 250.86,-2607.01 241,-2595 202.94,-2548.65 177.53,-1599.49 173.55,-1441.27"/>
+<polygon fill="#000000" stroke="#000000" points="177.05,-1441.18 173.3,-1431.27 170.05,-1441.35 177.05,-1441.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.58,-1431.01C153.87,-1504.01 76.44,-1888.2 56.95,-1984.9"/>
+<polygon fill="#000000" stroke="#000000" points="53.51,-1984.27 54.97,-1994.76 60.37,-1985.65 53.51,-1984.27"/>
+</g>
+<!-- sourcefile~symba_collision.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-2586 270,-2586 270,-2562 376,-2562 376,-2586"/>
+<text text-anchor="middle" x="323" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.93,-2586.07C263.07,-2588.91 251.62,-2591.98 241,-2595 210.57,-2603.64 197.44,-2636.08 173,-2616"/>
+</g>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge18" 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,-2570.47C258.8,-2567.25 248.29,-2561.86 241,-2553 167.8,-2464.03 171.57,-1592.74 172.79,-1441.36"/>
+<polygon fill="#000000" stroke="#000000" points="176.29,-1441.05 172.88,-1431.02 169.29,-1440.99 176.29,-1441.05"/>
+</g>
+<!-- sourcefile~symba_kick.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-2544 280,-2544 280,-2520 366,-2520 366,-2544"/>
+<text text-anchor="middle" x="323" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge7" 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.72,-2538.81C266.78,-2541.97 252.85,-2546.52 241,-2553 204.85,-2572.77 204.83,-2642.15 173,-2616"/>
+</g>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.99,-2530.83C265.49,-2528.2 250.52,-2522.54 241,-2511 170.55,-2425.58 172.02,-1589.81 172.85,-1441.46"/>
+<polygon fill="#000000" stroke="#000000" points="176.35,-1441.31 172.91,-1431.29 169.35,-1441.27 176.35,-1441.31"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node10" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-2502 285,-2502 285,-2478 361,-2478 361,-2502"/>
+<text text-anchor="middle" x="323" y="-2487.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_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="M284.84,-2493.74C270.13,-2496.65 253.72,-2501.82 241,-2511 195.91,-2543.53 215.96,-2651.29 173,-2616"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_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="M284.62,-2489.57C268.77,-2487.32 251.55,-2481.76 241,-2469 173.28,-2387.1 172.49,-1586.54 172.9,-1441.48"/>
+<polygon fill="#000000" stroke="#000000" points="176.41,-1441.17 172.94,-1431.16 169.41,-1441.15 176.41,-1441.17"/>
 </g>
 <!-- sourcefile~symba_drift.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node12" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node11" 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,-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>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.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_drift.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge11" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge9" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171,-2616C77.74,-2539.38 56.95,-2130.18 53.22,-2029.43"/>
+<polygon fill="#000000" stroke="#000000" points="56.71,-2029.06 52.86,-2019.19 49.71,-2029.3 56.71,-2029.06"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.59,-2451.79C266.07,-2454.77 251.82,-2459.97 241,-2469 185.74,-2515.13 228.62,-2661.69 173,-2616"/>
 </g>
 <!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge30" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge63" class="edge">
 <title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.6,-2446.73C265.24,-2444.06 250.46,-2438.41 241,-2427 175.94,-2348.53 172.97,-1581.46 172.97,-1441.02"/>
+<polygon fill="#000000" stroke="#000000" points="176.47,-1441.02 172.97,-1431.02 169.47,-1441.01 176.47,-1441.02"/>
+</g>
+<!-- sourcefile~fraggle_io.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node12" class="node">
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362,-1284 284,-1284 284,-1260 362,-1260 362,-1284"/>
+<text text-anchor="middle" x="323" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.64,-1275.4C269.09,-1278.27 253.12,-1283.5 241,-1293 206.83,-1319.79 187.63,-1368.68 178.88,-1397.05"/>
+<polygon fill="#000000" stroke="#000000" points="175.47,-1396.24 176.03,-1406.82 182.19,-1398.2 175.47,-1396.24"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-1242 267,-1242 267,-1218 379,-1218 379,-1242"/>
+<text text-anchor="middle" x="323" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.71,-1236.94C257.35,-1240.09 248.32,-1244.58 241,-1251 197.05,-1289.54 181.08,-1360.62 175.62,-1396.71"/>
+<polygon fill="#000000" stroke="#000000" points="172.14,-1396.33 174.25,-1406.72 179.08,-1397.29 172.14,-1396.33"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359.5,-1200 286.5,-1200 286.5,-1176 359.5,-1176 359.5,-1200"/>
+<text text-anchor="middle" x="323" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.42,-1189.67C270.74,-1192.14 253.16,-1197.54 241,-1209 186.98,-1259.9 175.78,-1353.99 173.52,-1396.78"/>
+<polygon fill="#000000" stroke="#000000" points="170.02,-1396.82 173.11,-1406.95 177.01,-1397.11 170.02,-1396.82"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378.5,-1158 267.5,-1158 267.5,-1134 378.5,-1134 378.5,-1158"/>
+<text text-anchor="middle" x="323" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge16" 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.3,-1151.82C257.56,-1155.03 248.23,-1159.84 241,-1167 176.77,-1230.6 171.35,-1348.07 172.09,-1396.86"/>
+<polygon fill="#000000" stroke="#000000" points="168.59,-1397.05 172.35,-1406.95 175.59,-1396.87 168.59,-1397.05"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-1116 284.5,-1116 284.5,-1092 361.5,-1092 361.5,-1116"/>
+<text text-anchor="middle" x="323" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.31,-1105.46C268.97,-1107.97 252.25,-1113.45 241,-1125 202.89,-1164.13 181.75,-1334.57 175.22,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="171.71,-1396.38 174.17,-1406.69 178.67,-1397.09 171.71,-1396.38"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-1074 264,-1074 264,-1050 382,-1050 382,-1074"/>
+<text text-anchor="middle" x="323" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge19" 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.62,-1068.64C255.14,-1071.86 247.19,-1076.46 241,-1083 197.66,-1128.74 179.49,-1328.7 174.51,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="170.99,-1396.61 173.77,-1406.83 177.97,-1397.1 170.99,-1396.61"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1032 289,-1032 289,-1008 357,-1008 357,-1032"/>
+<text text-anchor="middle" x="323" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.96,-1020.5C272.32,-1022.54 253.15,-1027.9 241,-1041 192.38,-1093.45 177.49,-1323.43 173.95,-1396.58"/>
+<polygon fill="#000000" stroke="#000000" points="170.44,-1396.77 173.47,-1406.92 177.43,-1397.09 170.44,-1396.77"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-990 280.5,-990 280.5,-966 365.5,-966 365.5,-990"/>
+<text text-anchor="middle" x="323" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_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="M280.16,-979.76C265.86,-982.49 250.98,-988.05 241,-999 187.07,-1058.2 175.71,-1318.44 173.5,-1396.68"/>
+<polygon fill="#000000" stroke="#000000" points="170,-1396.76 173.24,-1406.85 177,-1396.95 170,-1396.76"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-948 289.5,-948 289.5,-924 356.5,-924 356.5,-948"/>
+<text text-anchor="middle" x="323" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.2,-936.3C272.42,-938.25 253.03,-943.6 241,-957 181.71,-1023.04 174.1,-1314.03 173.13,-1396.9"/>
+<polygon fill="#000000" stroke="#000000" points="169.63,-1396.94 173.04,-1406.97 176.63,-1397.01 169.63,-1396.94"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-906 280.5,-906 280.5,-882 365.5,-882 365.5,-906"/>
+<text text-anchor="middle" x="323" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_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="M280.43,-895.54C265.98,-898.22 250.93,-903.81 241,-915 176.45,-987.77 172.64,-1308.65 172.83,-1396.62"/>
+<polygon fill="#000000" stroke="#000000" points="169.33,-1396.83 172.88,-1406.81 176.33,-1396.8 169.33,-1396.83"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362,-864 284,-864 284,-840 362,-840 362,-864"/>
+<text text-anchor="middle" x="323" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.72,-852.92C268.28,-855.32 251.64,-860.88 241,-873 171.12,-952.59 171.28,-1303.97 172.57,-1396.57"/>
+<polygon fill="#000000" stroke="#000000" points="169.08,-1396.83 172.74,-1406.77 176.08,-1396.71 169.08,-1396.83"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371,-822 275,-822 275,-798 371,-798 371,-822"/>
+<text text-anchor="middle" x="323" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.82,-812.6C262.14,-815.61 249.58,-821.14 241,-831 203.08,-874.57 179.32,-1295.11 174.09,-1396.9"/>
+<polygon fill="#000000" stroke="#000000" points="170.59,-1396.8 173.58,-1406.97 177.58,-1397.16 170.59,-1396.8"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~helio_step.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,-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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-780 283.5,-780 283.5,-756 362.5,-756 362.5,-780"/>
+<text text-anchor="middle" x="323" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.2,-768.9C267.87,-771.33 251.44,-776.91 241,-789 200.42,-836 178.53,-1290.11 173.92,-1396.69"/>
+<polygon fill="#000000" stroke="#000000" points="170.42,-1396.78 173.49,-1406.92 177.41,-1397.08 170.42,-1396.78"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node25" class="node">
-<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>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359.5,-738 286.5,-738 286.5,-714 359.5,-714 359.5,-738"/>
+<text text-anchor="middle" x="323" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.49,-726.39C270.24,-728.51 252.16,-733.99 241,-747 197.68,-797.5 177.73,-1286.63 173.75,-1396.96"/>
+<polygon fill="#000000" stroke="#000000" points="170.26,-1396.84 173.4,-1406.96 177.25,-1397.09 170.26,-1396.84"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.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">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.92,-684.06C272.06,-685.94 252.69,-691.29 241,-705 195.02,-758.93 177.04,-1281.65 173.62,-1396.68"/>
+<polygon fill="#000000" stroke="#000000" points="170.12,-1396.69 173.33,-1406.79 177.12,-1396.89 170.12,-1396.69"/>
 </g>
-<!-- sourcefile~util_rescale.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node27" class="node">
-<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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-654 284.5,-654 284.5,-630 361.5,-630 361.5,-654"/>
+<text text-anchor="middle" x="323" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.35,-642.62C268.64,-644.92 251.62,-650.48 241,-663 192.28,-720.44 176.35,-1278.25 173.5,-1396.89"/>
+<polygon fill="#000000" stroke="#000000" points="169.99,-1396.88 173.26,-1406.96 176.99,-1397.05 169.99,-1396.88"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node28" class="node">
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="360.5,-612 285.5,-612 285.5,-588 360.5,-588 360.5,-612"/>
+<text text-anchor="middle" x="323" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_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="M285.16,-600.48C269.22,-602.7 251.78,-608.23 241,-621 189.58,-681.92 175.72,-1274.14 173.39,-1396.82"/>
+<polygon fill="#000000" stroke="#000000" points="169.88,-1396.85 173.2,-1406.91 176.88,-1396.97 169.88,-1396.85"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-570 284.5,-570 284.5,-546 361.5,-546 361.5,-570"/>
+<text text-anchor="middle" x="323" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.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="M284.3,-558.57C268.58,-560.87 251.56,-566.43 241,-579 186.86,-643.42 175.11,-1270.43 173.29,-1396.85"/>
+<polygon fill="#000000" stroke="#000000" points="169.79,-1396.85 173.15,-1406.9 176.78,-1396.95 169.79,-1396.85"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~rmvs_step.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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-528 283,-528 283,-504 363,-504 363,-528"/>
+<text text-anchor="middle" x="323" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.6,-516.81C267.36,-519.25 251.17,-524.86 241,-537 184.18,-604.87 174.55,-1265.8 173.2,-1396.58"/>
+<polygon fill="#000000" stroke="#000000" points="169.69,-1396.91 173.1,-1406.94 176.69,-1396.98 169.69,-1396.91"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~kick.f90</title>
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="355,-486 291,-486 291,-462 355,-462 355,-486"/>
+<text text-anchor="middle" x="323" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.84,-473.75C273.48,-475.39 253.01,-480.61 241,-495 181.49,-566.33 174.01,-1261.38 173.12,-1396.36"/>
+<polygon fill="#000000" stroke="#000000" points="169.61,-1396.68 173.05,-1406.7 176.61,-1396.72 169.61,-1396.68"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~util_get_energy_momentum.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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~symba_classes.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="405,-444 241,-444 241,-420 405,-420 405,-444"/>
+<text text-anchor="middle" x="323" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_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="M250.95,-444.13C247.25,-446.61 243.88,-449.54 241,-453 178.72,-527.89 173.47,-1258.75 173.04,-1396.63"/>
+<polygon fill="#000000" stroke="#000000" points="169.54,-1396.81 173.01,-1406.82 176.54,-1396.83 169.54,-1396.81"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-402 296,-402 296,-378 350,-378 350,-402"/>
+<text text-anchor="middle" x="323" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-389.34C277.65,-390.4 254.17,-395.12 241,-411 175.94,-489.47 172.97,-1256.54 172.97,-1396.98"/>
+<polygon fill="#000000" stroke="#000000" points="169.47,-1396.99 172.97,-1406.98 176.47,-1396.98 169.47,-1396.99"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node34"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.21,-348.49C268.47,-350.77 251.46,-356.35 241,-369 173.28,-450.9 172.49,-1251.46 172.9,-1396.52"/>
+<polygon fill="#000000" stroke="#000000" points="169.41,-1396.85 172.94,-1406.84 176.41,-1396.83 169.41,-1396.85"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-318 280,-318 280,-294 366,-294 366,-318"/>
+<text text-anchor="middle" x="323" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.99,-307.17C265.49,-309.8 250.52,-315.46 241,-327 170.55,-412.42 172.02,-1248.19 172.85,-1396.54"/>
+<polygon fill="#000000" stroke="#000000" points="169.35,-1396.73 172.91,-1406.71 176.35,-1396.69 169.35,-1396.73"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-276 289,-276 289,-252 357,-252 357,-276"/>
+<text text-anchor="middle" x="323" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.73,-263.9C271.81,-265.73 252.45,-271.09 241,-285 167.8,-373.97 171.57,-1245.26 172.79,-1396.64"/>
+<polygon fill="#000000" stroke="#000000" points="169.29,-1397.01 172.88,-1406.98 176.29,-1396.95 169.29,-1397.01"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="353,-234 293,-234 293,-210 353,-210 353,-234"/>
+<text text-anchor="middle" x="323" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.76,-221.51C274.97,-222.91 253.35,-227.95 241,-243 202.94,-289.35 177.53,-1238.51 173.55,-1396.73"/>
+<polygon fill="#000000" stroke="#000000" points="170.05,-1396.65 173.3,-1406.73 177.05,-1396.82 170.05,-1396.65"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="375.5,-192 270.5,-192 270.5,-168 375.5,-168 375.5,-192"/>
+<text text-anchor="middle" x="323" y="-177.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~~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"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge43" 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.23,-183.38C259.04,-186.59 248.37,-192.01 241,-201 201.59,-249.09 177.26,-1234.12 173.51,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="170,-1396.61 173.27,-1406.69 177,-1396.77 170,-1396.61"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="351.5,-150 294.5,-150 294.5,-126 351.5,-126 351.5,-150"/>
+<text text-anchor="middle" x="323" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.33,-137.38C276.24,-138.59 253.69,-143.48 241,-159 200.24,-208.84 176.99,-1229.87 173.47,-1396.19"/>
+<polygon fill="#000000" stroke="#000000" points="169.96,-1396.59 173.25,-1406.66 176.96,-1396.74 169.96,-1396.59"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.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_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.13,-96.43C268.38,-98.7 251.38,-104.28 241,-117 198.85,-168.63 176.69,-1227.87 173.42,-1396.47"/>
+<polygon fill="#000000" stroke="#000000" points="169.92,-1396.59 173.23,-1406.66 176.92,-1396.73 169.92,-1396.59"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-66 289,-66 289,-42 357,-42 357,-66"/>
+<text text-anchor="middle" x="323" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.68,-53.85C271.74,-55.67 252.38,-61.04 241,-75 197.47,-128.41 176.42,-1225.08 173.38,-1396.54"/>
+<polygon fill="#000000" stroke="#000000" points="169.88,-1396.61 173.21,-1406.67 176.88,-1396.74 169.88,-1396.61"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-24 280,-24 280,0 366,0 366,-24"/>
+<text text-anchor="middle" x="323" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.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.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"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.91,-13.1C265.4,-15.73 250.44,-21.39 241,-33 196.08,-88.2 176.15,-1222.5 173.35,-1396.65"/>
+<polygon fill="#000000" stroke="#000000" points="169.85,-1396.65 173.19,-1406.71 176.85,-1396.76 169.85,-1396.65"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node43" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-2418 287,-2418 287,-2394 359,-2394 359,-2418"/>
+<text text-anchor="middle" x="323" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.73,-2405.81C270.33,-2403.76 252.05,-2398.29 241,-2385 178.72,-2310.11 173.47,-1579.25 173.04,-1441.37"/>
+<polygon fill="#000000" stroke="#000000" points="176.54,-1441.17 173.01,-1431.18 169.54,-1441.19 176.54,-1441.17"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node44" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365,-2376 281,-2376 281,-2352 365,-2352 365,-2376"/>
+<text text-anchor="middle" x="323" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.9,-2362.93C266.15,-2360.35 250.77,-2354.71 241,-2343 181.49,-2271.67 174.01,-1576.62 173.12,-1441.64"/>
+<polygon fill="#000000" stroke="#000000" points="176.61,-1441.28 173.05,-1431.3 169.61,-1441.32 176.61,-1441.28"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350.5,-2334 295.5,-2334 295.5,-2310 350.5,-2310 350.5,-2334"/>
+<text text-anchor="middle" x="323" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.22,-2322.58C277.06,-2321.41 254.06,-2316.59 241,-2301 184.18,-2233.13 174.55,-1572.2 173.2,-1441.42"/>
+<polygon fill="#000000" stroke="#000000" points="176.69,-1441.02 173.1,-1431.06 169.69,-1441.09 176.69,-1441.02"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="358.5,-2292 287.5,-2292 287.5,-2268 358.5,-2268 358.5,-2292"/>
+<text text-anchor="middle" x="323" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.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="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"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.2,-2279.82C270.72,-2277.79 252.22,-2272.35 241,-2259 186.86,-2194.58 175.11,-1567.57 173.29,-1441.15"/>
+<polygon fill="#000000" stroke="#000000" points="176.78,-1441.05 173.15,-1431.1 169.79,-1441.15 176.78,-1441.05"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-2250 296,-2250 296,-2226 350,-2226 350,-2250"/>
+<text text-anchor="middle" x="323" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.65,-2238.57C277.44,-2237.43 254.21,-2232.65 241,-2217 189.58,-2156.08 175.72,-1563.86 173.39,-1441.18"/>
+<polygon fill="#000000" stroke="#000000" points="176.88,-1441.03 173.2,-1431.09 169.88,-1441.15 176.88,-1441.03"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-2208 283.5,-2208 283.5,-2184 362.5,-2184 362.5,-2208"/>
+<text text-anchor="middle" x="323" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.1,-2195.19C267.75,-2192.78 251.34,-2187.19 241,-2175 192.28,-2117.56 176.35,-1559.75 173.5,-1441.11"/>
+<polygon fill="#000000" stroke="#000000" points="176.99,-1440.95 173.26,-1431.04 169.99,-1441.12 176.99,-1440.95"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-2166 296,-2166 296,-2142 350,-2142 350,-2166"/>
+<text text-anchor="middle" x="323" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.69,-2154.53C277.51,-2153.37 254.29,-2148.59 241,-2133 195.02,-2079.07 177.04,-1556.35 173.62,-1441.32"/>
+<polygon fill="#000000" stroke="#000000" points="177.12,-1441.11 173.33,-1431.21 170.12,-1441.31 177.12,-1441.11"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="355.5,-2124 290.5,-2124 290.5,-2100 355.5,-2100 355.5,-2124"/>
+<text text-anchor="middle" x="323" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.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="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"/>
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.18,-2112.04C273.04,-2110.28 253.01,-2105 241,-2091 197.68,-2040.5 177.73,-1551.37 173.75,-1441.04"/>
+<polygon fill="#000000" stroke="#000000" points="177.25,-1440.91 173.4,-1431.04 170.26,-1441.16 177.25,-1440.91"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-2082 280.5,-2082 280.5,-2058 365.5,-2058 365.5,-2082"/>
+<text text-anchor="middle" x="323" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_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="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"/>
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.27,-2068.6C265.8,-2065.94 250.78,-2060.32 241,-2049 200.42,-2002 178.53,-1547.89 173.92,-1441.31"/>
+<polygon fill="#000000" stroke="#000000" points="177.41,-1440.92 173.49,-1431.08 170.42,-1441.22 177.41,-1440.92"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-2040 271.5,-2040 271.5,-2016 374.5,-2016 374.5,-2040"/>
+<text text-anchor="middle" x="323" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_regime.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"/>
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.45,-2024.54C259.94,-2021.37 248.82,-2015.99 241,-2007 203.08,-1963.43 179.32,-1542.89 174.09,-1441.1"/>
+<polygon fill="#000000" stroke="#000000" points="177.58,-1440.84 173.58,-1431.03 170.59,-1441.2 177.58,-1440.84"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1998 289,-1998 289,-1974 357,-1974 357,-1998"/>
+<text text-anchor="middle" x="323" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_spill.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"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.67,-1985.76C271.95,-1983.8 252.79,-1978.43 241,-1965 171.12,-1885.41 171.28,-1534.03 172.57,-1441.43"/>
+<polygon fill="#000000" stroke="#000000" points="176.08,-1441.29 172.74,-1431.23 169.08,-1441.17 176.08,-1441.29"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350.5,-1956 295.5,-1956 295.5,-1932 350.5,-1932 350.5,-1956"/>
+<text text-anchor="middle" x="323" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_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="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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.49,-1944.34C277.46,-1943.07 254.5,-1938.21 241,-1923 176.45,-1850.23 172.64,-1529.35 172.83,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="176.33,-1441.2 172.88,-1431.19 169.33,-1441.17 176.33,-1441.2"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~operator_cross.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,-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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-1914 271.5,-1914 271.5,-1890 374.5,-1890 374.5,-1914"/>
+<text text-anchor="middle" x="323" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<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.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"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.22,-1898.25C259.86,-1895.07 248.86,-1889.76 241,-1881 181.71,-1814.96 174.1,-1523.97 173.13,-1441.1"/>
+<polygon fill="#000000" stroke="#000000" points="176.63,-1440.99 173.04,-1431.03 169.63,-1441.06 176.63,-1440.99"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-1872 296,-1872 296,-1848 350,-1848 350,-1872"/>
+<text text-anchor="middle" x="323" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-1860.26C277.97,-1858.98 254.79,-1854.14 241,-1839 187.07,-1779.8 175.71,-1519.56 173.5,-1441.32"/>
+<polygon fill="#000000" stroke="#000000" points="177,-1441.05 173.24,-1431.15 170,-1441.24 177,-1441.05"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-1830 280,-1830 280,-1806 366,-1806 366,-1830"/>
+<text text-anchor="middle" x="323" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_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="M279.85,-1816.06C265.69,-1813.3 250.98,-1807.76 241,-1797 192.38,-1744.55 177.49,-1514.57 173.95,-1441.42"/>
+<polygon fill="#000000" stroke="#000000" points="177.43,-1440.91 173.47,-1431.08 170.44,-1441.23 177.43,-1440.91"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370.5,-1788 275.5,-1788 275.5,-1764 370.5,-1764 370.5,-1788"/>
+<text text-anchor="middle" x="323" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.34,-1772.93C262.67,-1769.9 249.99,-1764.49 241,-1755 197.66,-1709.26 179.49,-1509.3 174.51,-1441.55"/>
+<polygon fill="#000000" stroke="#000000" points="177.97,-1440.9 173.77,-1431.17 170.99,-1441.39 177.97,-1440.9"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-1746 252,-1746 252,-1722 394,-1722 394,-1746"/>
+<text text-anchor="middle" x="323" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.68,-1722C248.41,-1719.51 244.45,-1716.54 241,-1713 202.89,-1673.87 181.75,-1503.43 175.22,-1441.55"/>
+<polygon fill="#000000" stroke="#000000" points="178.67,-1440.91 174.17,-1431.31 171.71,-1441.62 178.67,-1440.91"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="353,-1704 293,-1704 293,-1680 353,-1680 353,-1704"/>
+<text text-anchor="middle" x="323" y="-1689.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~~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"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.99,-1691.49C275.74,-1689.65 254.63,-1684.49 241,-1671 176.77,-1607.4 171.35,-1489.93 172.09,-1441.14"/>
+<polygon fill="#000000" stroke="#000000" points="175.59,-1441.13 172.35,-1431.05 168.59,-1440.95 175.59,-1441.13"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~fraggle_util.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>
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364.5,-1662 281.5,-1662 281.5,-1638 364.5,-1638 364.5,-1662"/>
+<text text-anchor="middle" x="323" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.46,-1647.46C267.13,-1644.66 251.89,-1639.26 241,-1629 186.98,-1578.1 175.78,-1484.01 173.52,-1441.22"/>
+<polygon fill="#000000" stroke="#000000" points="177.01,-1440.89 173.11,-1431.05 170.02,-1441.18 177.01,-1440.89"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1620 274,-1620 274,-1596 372,-1596 372,-1620"/>
+<text text-anchor="middle" x="323" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.86,-1603.2C262.05,-1600.07 250.17,-1595.05 241,-1587 197.05,-1548.46 181.08,-1477.38 175.62,-1441.29"/>
+<polygon fill="#000000" stroke="#000000" points="179.08,-1440.71 174.25,-1431.28 172.14,-1441.67 179.08,-1440.71"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-1578 276,-1578 276,-1554 370,-1554 370,-1578"/>
+<text text-anchor="middle" x="323" y="-1563.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_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"/>
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.71,-1560.82C263.49,-1557.72 250.95,-1552.8 241,-1545 206.83,-1518.21 187.63,-1469.32 178.88,-1440.95"/>
+<polygon fill="#000000" stroke="#000000" points="182.19,-1439.8 176.03,-1431.18 175.47,-1441.76 182.19,-1439.8"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-1536 285,-1536 285,-1512 361,-1512 361,-1536"/>
+<text text-anchor="middle" x="323" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.91,-1519.49C270.37,-1516.46 254.07,-1511.41 241,-1503 216.19,-1487.03 196.2,-1458.98 184.47,-1439.72"/>
+<polygon fill="#000000" stroke="#000000" points="187.47,-1437.92 179.39,-1431.06 181.43,-1441.46 187.47,-1437.92"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-1494 283.5,-1494 283.5,-1470 362.5,-1470 362.5,-1494"/>
+<text text-anchor="middle" x="323" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.31,-1474.46C269.64,-1471.16 254.36,-1466.7 241,-1461 225.9,-1454.56 210.24,-1445.1 197.76,-1436.79"/>
+<polygon fill="#000000" stroke="#000000" points="199.51,-1433.75 189.28,-1431 195.57,-1439.53 199.51,-1433.75"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="385,-1452 261,-1452 261,-1428 385,-1428 385,-1452"/>
+<text text-anchor="middle" x="323" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.97,-1431.4C245.57,-1429.23 229.39,-1426.95 215.16,-1424.94"/>
+<polygon fill="#000000" stroke="#000000" points="215.57,-1421.47 205.18,-1423.54 214.59,-1428.4 215.57,-1421.47"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-1410 296,-1410 296,-1386 350,-1386 350,-1410"/>
+<text text-anchor="middle" x="323" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.7,-1401.71C273.43,-1404.85 241.08,-1409.4 215.19,-1413.05"/>
+<polygon fill="#000000" stroke="#000000" points="214.67,-1409.59 205.26,-1414.45 215.65,-1416.52 214.67,-1409.59"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1368 289,-1368 289,-1344 357,-1344 357,-1368"/>
+<text text-anchor="middle" x="323" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.94,-1362.21C273.96,-1365.62 256.23,-1370.5 241,-1377 225.9,-1383.44 210.24,-1392.9 197.76,-1401.21"/>
+<polygon fill="#000000" stroke="#000000" points="195.57,-1398.47 189.28,-1407 199.51,-1404.25 195.57,-1398.47"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.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">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.37,-1319.51C267.05,-1322.61 252.73,-1327.45 241,-1335 216.19,-1350.97 196.2,-1379.02 184.47,-1398.28"/>
+<polygon fill="#000000" stroke="#000000" points="181.43,-1396.54 179.39,-1406.94 187.47,-1400.08 181.43,-1396.54"/>
 </g>
 </g>
 </svg>
@@ -1464,640 +1606,640 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
     <div class="hl"><pre><span></span><a name="ln-1"></a><span class="k">module </span><span class="n">symba_classes</span>
 <a name="ln-2"></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-3"></a>   <span class="c">!!</span>
-<a name="ln-4"></a>   <span class="c">!! Definition of classes and methods specific to the Democratic SyMBAcentric Method</span>
-<a name="ln-5"></a>   <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: helio.f90</span>
+<a name="ln-4"></a>   <span class="c">!! Definition of classes and methods specific to the SyMBA integrator</span>
+<a name="ln-5"></a>   <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: module_symba.f90</span>
 <a name="ln-6"></a>   <span class="k">use </span><span class="n">swiftest_globals</span>
-<a name="ln-7"></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><span class="p">,</span> <span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_encounter</span>
+<a name="ln-7"></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><span class="p">,</span> <span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_encounter</span><span class="p">,</span> <span class="n">swiftest_particle_info</span><span class="p">,</span> <span class="n">netcdf_parameters</span>
 <a name="ln-8"></a>   <span class="k">use </span><span class="n">helio_classes</span><span class="p">,</span>    <span class="n">only</span> <span class="p">:</span> <span class="n">helio_cb</span><span class="p">,</span> <span class="n">helio_pl</span><span class="p">,</span> <span class="n">helio_tp</span><span class="p">,</span> <span class="n">helio_nbody_system</span>
 <a name="ln-9"></a>   <span class="k">use </span><span class="n">rmvs_classes</span><span class="p">,</span>     <span class="n">only</span> <span class="p">:</span> <span class="n">rmvs_chk_ind</span>
-<a name="ln-10"></a>   <span class="k">implicit none</span>
-<a name="ln-11"></a><span class="k">   public</span>
-<a name="ln-12"></a>
-<a name="ln-13"></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">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NENMAX</span>           <span class="o">=</span> <span class="mi">32767</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="k">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NTENC</span>            <span class="o">=</span> <span class="mi">3</span>
-<a name="ln-15"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">RHSCALE</span>          <span class="o">=</span> <span class="mf">6.5_DP</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">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">RSHELL</span>           <span class="o">=</span> <span class="mf">0.48075_DP</span>
-<a name="ln-17"></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">PARTICLE_OUTFILE</span> <span class="o">=</span> <span class="s1">&#39;particle.dat&#39;</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">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_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>
-<a name="ln-26"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">reader</span> <span class="o">=&gt;</span> <span class="n">symba_io_param_reader</span>
-<a name="ln-27"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">writer</span> <span class="o">=&gt;</span> <span class="n">symba_io_param_writer</span>
-<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_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; 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-10"></a>   <span class="k">use </span><span class="n">fraggle_classes</span><span class="p">,</span>  <span class="n">only</span> <span class="p">:</span> <span class="n">fraggle_colliders</span><span class="p">,</span> <span class="n">fraggle_fragments</span>
+<a name="ln-11"></a>   <span class="k">implicit none</span>
+<a name="ln-12"></a><span class="k">   public</span>
+<a name="ln-13"></a>
+<a name="ln-14"></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">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NENMAX</span>           <span class="o">=</span> <span class="mi">32767</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">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NTENC</span>            <span class="o">=</span> <span class="mi">3</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">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">RHSCALE</span>          <span class="o">=</span> <span class="mf">6.5_DP</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">private</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">RSHELL</span>           <span class="o">=</span> <span class="mf">0.48075_DP</span>
+<a name="ln-18"></a>
+<a name="ln-19"></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-20"></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 G*mass that is fully gravitating</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="kd">::</span> <span class="n">min_GMfrag</span>     <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>           <span class="c">!! Smallest G*mass that can be produced in a fragmentation event</span>
+<a name="ln-22"></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-23"></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-24"></a>   <span class="k">contains</span>
+<a name="ln-25"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">reader</span> <span class="o">=&gt;</span> <span class="n">symba_io_param_reader</span>
+<a name="ln-26"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">writer</span> <span class="o">=&gt;</span> <span class="n">symba_io_param_writer</span>
+<a name="ln-27"></a>   <span class="k">end type </span><span class="n">symba_parameters</span>
+<a name="ln-28"></a>
+<a name="ln-29"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-30"></a>   <span class="c">!                                    symba_kinship class definitions and method interfaces</span>
+<a name="ln-31"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-32"></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-33"></a>   <span class="k">type </span><span class="n">symba_kinship</span>
+<a name="ln-34"></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-35"></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-36"></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-37"></a>   <span class="k">end type </span><span class="n">symba_kinship</span>
+<a name="ln-38"></a>
+<a name="ln-39"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-40"></a>   <span class="c">! symba_cb class definitions and method interfaces</span>
+<a name="ln-41"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-42"></a>   <span class="c">!&gt; SyMBA central body particle class</span>
+<a name="ln-43"></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-44"></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">GM0</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial G*mass of the central body</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="kd">::</span> <span class="n">dGM</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in G*mass of the central body</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">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-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">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-48"></a>   <span class="k">contains</span>
+<a name="ln-49"></a><span class="k">   end type </span><span class="n">symba_cb</span>
+<a name="ln-50"></a>
+<a name="ln-51"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-52"></a>   <span class="c">!                                    symba_pl class definitions and method interfaces</span>
+<a name="ln-53"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-54"></a>   <span class="c">!&gt; SyMBA massive body class</span>
+<a name="ln-55"></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-56"></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-57"></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-58"></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-59"></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-60"></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-61"></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-62"></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-63"></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-64"></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-65"></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-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="k">allocatable</span> <span class="kd">::</span> <span class="n">peri</span>       <span class="c">!! perihelion distance</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="k">allocatable</span> <span class="kd">::</span> <span class="n">atp</span>        <span class="c">!! semimajor axis following perihelion passage</span>
+<a name="ln-68"></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-69"></a>   <span class="k">contains</span>
+<a name="ln-70"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">make_colliders</span>  <span class="o">=&gt;</span> <span class="n">symba_collision_make_colliders_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-71"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="nb">index</span>           <span class="o">=&gt;</span> <span class="n">symba_util_index_eucl_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-72"></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-73"></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-74"></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-75"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_int</span>       <span class="o">=&gt;</span> <span class="n">symba_kick_getacch_int_pl</span>      <span class="c">!! Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY</span>
+<a name="ln-76"></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-77"></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-78"></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-79"></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-80"></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-81"></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-82"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">reset_kinship</span>   <span class="o">=&gt;</span> <span class="n">symba_util_reset_kinship</span>       <span class="c">!! Resets the kinship status of bodies</span>
+<a name="ln-83"></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-84"></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-85"></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-86"></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-87"></a>   <span class="k">end type </span><span class="n">symba_pl</span>
+<a name="ln-88"></a>
+<a name="ln-89"></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-90"></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-91"></a>   <span class="k">contains</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_merger</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">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-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_merger</span>             <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
+<a name="ln-95"></a>   <span class="k">end type </span><span class="n">symba_merger</span>
+<a name="ln-96"></a>
+<a name="ln-97"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-98"></a>   <span class="c">!                                    symba_tp class definitions and method interfaces</span>
+<a name="ln-99"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-100"></a>   <span class="c">!&gt; SyMBA test particle class</span>
+<a name="ln-101"></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-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">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-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">levelg</span>  <span class="c">!! level at which this particle should be moved</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">levelm</span>  <span class="c">!! deepest encounter level achieved this time step</span>
+<a name="ln-105"></a>   <span class="k">contains</span>
+<a name="ln-106"></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-107"></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-108"></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-109"></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-110"></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-111"></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-112"></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-113"></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-114"></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-115"></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-116"></a>   <span class="k">end type </span><span class="n">symba_tp</span>
+<a name="ln-117"></a>
+<a name="ln-118"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-119"></a>   <span class="c">!                                    symba_encounter class definitions and method interfaces</span>
+<a name="ln-120"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-121"></a>   <span class="c">!&gt; SyMBA class for tracking close encounters in a step</span>
+<a name="ln-122"></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_encounter</span>
+<a name="ln-123"></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-124"></a>   <span class="k">contains</span>
+<a name="ln-125"></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_encounter</span> <span class="c">!! Checks if a test particle is going to collide with a massive body</span>
+<a name="ln-126"></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</span>           <span class="c">!! Checks if massive bodies are going through close encounters with each other</span>
+<a name="ln-127"></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_encounter</span>            <span class="c">!! Kick barycentric velocities of active test particles within SyMBA recursion</span>
+<a name="ln-128"></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_encounter</span>           <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
+<a name="ln-129"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">copy</span>            <span class="o">=&gt;</span> <span class="n">symba_util_copy_encounter</span>       <span class="c">!! Copies elements from the source encounter list into self.</span>
+<a name="ln-130"></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_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-131"></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_encounter</span>     <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-132"></a>   <span class="k">end type </span><span class="n">symba_encounter</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">symba_encounter</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_pltpenc</span>
+<a name="ln-139"></a>   <span class="k">contains</span>
+<a name="ln-140"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">resolve_collision</span> <span class="o">=&gt;</span> <span class="n">symba_collision_resolve_pltpenc</span> <span class="c">!! Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c</span>
+<a name="ln-141"></a>   <span class="k">end type </span><span class="n">symba_pltpenc</span>
+<a name="ln-142"></a>
+<a name="ln-143"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-144"></a>   <span class="c">!                                    symba_plplenc class definitions and method interfaces</span>
+<a name="ln-145"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-146"></a>   <span class="c">!&gt; SyMBA class for tracking pl-pl close encounters in a step</span>
+<a name="ln-147"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">symba_encounter</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_plplenc</span>
+<a name="ln-148"></a>   <span class="k">contains</span>
+<a name="ln-149"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">extract_collisions</span>     <span class="o">=&gt;</span> <span class="n">symba_collision_encounter_extract_collisions</span> <span class="c">!! Processes the pl-pl encounter list remove only those encounters that led to a collision</span>
+<a name="ln-150"></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-151"></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-152"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resolve_collision</span>      <span class="o">=&gt;</span> <span class="n">symba_collision_resolve_plplenc</span>              <span class="c">!! Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c</span>
+<a name="ln-153"></a>   <span class="k">end type </span><span class="n">symba_plplenc</span>
+<a name="ln-154"></a>
+<a name="ln-155"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-156"></a>   <span class="c">!  symba_nbody_system class definitions and method interfaces</span>
 <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="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-158"></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-159"></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-160"></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-161"></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-162"></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">plplcollision_list</span> <span class="c">!! List of massive body-massive body collisions in a single step</span>
+<a name="ln-163"></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-164"></a>   <span class="k">contains</span>
+<a name="ln-165"></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-166"></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-167"></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-168"></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-169"></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-170"></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-171"></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-172"></a>   <span class="k">end type </span><span class="n">symba_nbody_system</span>
+<a name="ln-173"></a>
+<a name="ln-174"></a>   <span class="k">interface</span>
+<a name="ln-175"></a><span class="k">      module function </span><span class="n">symba_collision_check_encounter</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> <span class="k">result</span><span class="p">(</span><span class="n">lany_collision</span><span class="p">)</span>
+<a name="ln-176"></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-177"></a>         <span class="k">implicit none</span>
+<a name="ln-178"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-tp encounter list object</span>
+<a name="ln-179"></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-180"></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-181"></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-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">dt</span>             <span class="c">!! step size</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">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-184"></a>         <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">lany_collision</span> <span class="c">!! Returns true if cany pair of encounters resulted in a collision n</span>
+<a name="ln-185"></a>      <span class="k">end function </span><span class="n">symba_collision_check_encounter</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-187"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_encounter_extract_collisions</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-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="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-194"></a><span class="k">      module subroutine </span><span class="n">symba_collision_make_colliders_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-198"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_make_colliders_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-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">inout</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-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">inout</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_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_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_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_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_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_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 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">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_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 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">   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">         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">         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_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 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_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 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">   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-214"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_resolve_plplenc</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-215"></a>         <span class="k">implicit none</span>
+<a name="ln-216"></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-217"></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-218"></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 with SyMBA additions</span>
+<a name="ln-219"></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-220"></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 simulation step size</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">irec</span>   <span class="c">!! Current recursion level</span>
+<a name="ln-222"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_resolve_plplenc</span>
+<a name="ln-223"></a>   
+<a name="ln-224"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_resolve_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-225"></a>         <span class="k">implicit none</span>
+<a name="ln-226"></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-227"></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-228"></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 with SyMBA additions</span>
+<a name="ln-229"></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-230"></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 simulation step size</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">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-232"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_resolve_pltpenc</span>
+<a name="ln-233"></a>
+<a name="ln-234"></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-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_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-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">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-240"></a>      <span class="k">end subroutine </span><span class="n">symba_discard_pl</span>
+<a name="ln-241"></a>
+<a name="ln-242"></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-243"></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-244"></a>         <span class="k">implicit none</span>
+<a name="ln-245"></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-246"></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-247"></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-248"></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-249"></a>      <span class="k">end subroutine </span><span class="n">symba_drift_pl</span>
+<a name="ln-250"></a>   
+<a name="ln-251"></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-252"></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-253"></a>         <span class="k">implicit none</span>
+<a name="ln-254"></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-255"></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-256"></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-257"></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-258"></a>      <span class="k">end subroutine </span><span class="n">symba_drift_tp</span>
+<a name="ln-259"></a>
+<a name="ln-260"></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-261"></a>         <span class="k">implicit none</span>
+<a name="ln-262"></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-263"></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-264"></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-265"></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-266"></a>      <span class="k">end subroutine </span><span class="n">symba_encounter_check_one</span>
+<a name="ln-267"></a>
+<a name="ln-268"></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-269"></a>         <span class="k">implicit none</span>
+<a name="ln-270"></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-271"></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-272"></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-273"></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-274"></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-275"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_pl</span>
+<a name="ln-276"></a>
+<a name="ln-277"></a>      <span class="k">module function </span><span class="n">symba_encounter_check</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-278"></a>         <span class="k">implicit none</span>
+<a name="ln-279"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-pl encounter list object</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="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-282"></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-283"></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-284"></a>      <span class="k">end function </span><span class="n">symba_encounter_check</span>
+<a name="ln-285"></a>
+<a name="ln-286"></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-287"></a>         <span class="k">implicit none</span>
+<a name="ln-288"></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-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="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-291"></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-292"></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-293"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_tp</span>
+<a name="ln-294"></a>
+<a name="ln-295"></a>      <span class="k">module function </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</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-296"></a>         <span class="k">use </span><span class="n">fraggle_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">fraggle_colliders</span><span class="p">,</span> <span class="n">fraggle_fragments</span>
+<a name="ln-297"></a>         <span class="k">implicit none</span>
+<a name="ln-298"></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-299"></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 additions</span>
+<a name="ln-300"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-301"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object</span>
+<a name="ln-302"></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-303"></a>      <span class="k">end function </span><span class="n">symba_collision_casedisruption</span>
+<a name="ln-304"></a>   
+<a name="ln-305"></a>      <span class="k">module function </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</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-306"></a>         <span class="k">use </span><span class="n">fraggle_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">fraggle_colliders</span><span class="p">,</span> <span class="n">fraggle_fragments</span>
+<a name="ln-307"></a>         <span class="k">implicit none</span>
+<a name="ln-308"></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-309"></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 additions</span>
+<a name="ln-310"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-311"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object</span>
+<a name="ln-312"></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-313"></a>      <span class="k">end function </span><span class="n">symba_collision_casehitandrun</span>
+<a name="ln-314"></a>
+<a name="ln-315"></a>      <span class="k">module function </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</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-316"></a>         <span class="k">use </span><span class="n">fraggle_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">fraggle_colliders</span><span class="p">,</span> <span class="n">fraggle_fragments</span>
+<a name="ln-317"></a>         <span class="k">implicit none</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">inout</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="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-321"></a>         <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object </span>
+<a name="ln-322"></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-323"></a>      <span class="k">end function </span><span class="n">symba_collision_casemerge</span>
+<a name="ln-324"></a>
+<a name="ln-325"></a>      <span class="k">module subroutine </span><span class="n">symba_util_index_eucl_plpl</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-326"></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-327"></a>         <span class="k">implicit none</span>
+<a name="ln-328"></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-329"></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-330"></a>      <span class="k">end subroutine </span><span class="n">symba_util_index_eucl_plpl</span>
+<a name="ln-331"></a>
+<a name="ln-332"></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-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_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-335"></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-336"></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-337"></a>                                                              <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</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">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
+<a name="ln-339"></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-340"></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-341"></a>      <span class="k">end subroutine </span><span class="n">symba_io_param_reader</span>
+<a name="ln-342"></a>   
+<a name="ln-343"></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-344"></a>         <span class="k">implicit none</span>
+<a name="ln-345"></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-346"></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-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">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-348"></a>                                                            <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-349"></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-350"></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-351"></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-352"></a>      <span class="k">end subroutine </span><span class="n">symba_io_param_writer</span>
+<a name="ln-353"></a>
+<a name="ln-354"></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-355"></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-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">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-358"></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-359"></a>      <span class="k">end subroutine </span><span class="n">symba_io_write_discard</span>
+<a name="ln-360"></a>
+<a name="ln-361"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_getacch_int_pl</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-362"></a>         <span class="k">implicit none</span>
+<a name="ln-363"></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>
+<a name="ln-364"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_int_pl</span>
+<a name="ln-365"></a>
+<a name="ln-366"></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-367"></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-368"></a>         <span class="k">implicit none</span>
+<a name="ln-369"></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-370"></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-371"></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-372"></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-373"></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-374"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_pl</span>
+<a name="ln-375"></a>
+<a name="ln-376"></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-377"></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-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">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-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 nbody 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">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-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">!! Current time</span>
+<a name="ln-383"></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-384"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_tp</span>
+<a name="ln-385"></a>
+<a name="ln-386"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_encounter</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-387"></a>         <span class="k">implicit none</span>
+<a name="ln-388"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_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">self</span>   <span class="c">!! SyMBA pl-tp encounter list object</span>
+<a name="ln-389"></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-390"></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-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">irec</span>   <span class="c">!! Current recursion level</span>
+<a name="ln-392"></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-393"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_encounter</span>
+<a name="ln-394"></a>
+<a name="ln-395"></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-396"></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-397"></a>         <span class="k">implicit none</span>
+<a name="ln-398"></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-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">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-400"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_initialize_system</span>
+<a name="ln-401"></a>
+<a name="ln-402"></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-403"></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-404"></a>         <span class="k">implicit none</span>
+<a name="ln-405"></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-406"></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-407"></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-408"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_merger</span>
+<a name="ln-409"></a>
+<a name="ln-410"></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-411"></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-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">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-414"></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-415"></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-416"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_pl</span>
+<a name="ln-417"></a>
+<a name="ln-418"></a>      <span class="k">module subroutine </span><span class="n">symba_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-419"></a>         <span class="k">implicit none</span>
+<a name="ln-420"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-tp encounter structure</span>
+<a name="ln-421"></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-422"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_encounter</span>
+<a name="ln-423"></a>
+<a name="ln-424"></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-425"></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-426"></a>         <span class="k">implicit none</span>
+<a name="ln-427"></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-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 particles to allocate space for</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 parameter</span>
+<a name="ln-430"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_tp</span>
+<a name="ln-431"></a>
+<a name="ln-432"></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-433"></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-434"></a>         <span class="k">implicit none</span>
+<a name="ln-435"></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-436"></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-437"></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-438"></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-439"></a>      <span class="k">end subroutine </span><span class="n">symba_step_system</span>
+<a name="ln-440"></a>
+<a name="ln-441"></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-442"></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-443"></a>         <span class="k">implicit none</span>
+<a name="ln-444"></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-445"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</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">!! Current stepsize</span>
+<a name="ln-448"></a>      <span class="k">end subroutine </span><span class="n">symba_step_interp_system</span>
+<a name="ln-449"></a>
+<a name="ln-450"></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-451"></a>         <span class="k">implicit none</span>
+<a name="ln-452"></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-453"></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-454"></a>      <span class="k">end subroutine </span><span class="n">symba_step_set_recur_levels_system</span>
+<a name="ln-455"></a>
+<a name="ln-456"></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-457"></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-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">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-460"></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-461"></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>
+<a name="ln-462"></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-463"></a>      <span class="k">end subroutine </span><span class="n">symba_step_recur_system</span>
+<a name="ln-464"></a>
+<a name="ln-465"></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> <span class="n">param</span><span class="p">)</span>
+<a name="ln-466"></a>         <span class="k">implicit none</span>
+<a name="ln-467"></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-468"></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-469"></a>      <span class="k">end subroutine </span><span class="n">symba_step_reset_system</span>
+<a name="ln-470"></a>   <span class="k">end interface</span>
+<a name="ln-471"></a>
+<a name="ln-472"></a><span class="k">   interface </span><span class="n">util_append</span>
+<a name="ln-473"></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-474"></a>         <span class="k">implicit none</span>
+<a name="ln-475"></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-476"></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-477"></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-478"></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-479"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_arr_kin</span>
+<a name="ln-480"></a>   <span class="k">end interface</span>
+<a name="ln-481"></a>
+<a name="ln-482"></a><span class="k">   interface</span>
+<a name="ln-483"></a><span class="k">      module subroutine </span><span class="n">symba_util_append_encounter</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-484"></a>         <span class="k">implicit none</span>
+<a name="ln-485"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA encounter list object</span>
+<a name="ln-486"></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 append</span>
+<a name="ln-487"></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-488"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_encounter</span>
+<a name="ln-489"></a>
+<a name="ln-490"></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-491"></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-492"></a>         <span class="k">implicit none</span>
+<a name="ln-493"></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-494"></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-495"></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-496"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_merger</span>
+<a name="ln-497"></a>
+<a name="ln-498"></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-499"></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-500"></a>         <span class="k">implicit none</span>
+<a name="ln-501"></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-502"></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-503"></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-504"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_pl</span>
+<a name="ln-505"></a>
+<a name="ln-506"></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-507"></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-508"></a>         <span class="k">implicit none</span>
+<a name="ln-509"></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-510"></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-511"></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-512"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_tp</span>
+<a name="ln-513"></a>
+<a name="ln-514"></a>      <span class="k">module subroutine </span><span class="n">symba_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-515"></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-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">symba_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-518"></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-519"></a>      <span class="k">end subroutine </span><span class="n">symba_util_copy_encounter</span>
+<a name="ln-520"></a>   <span class="k">end interface </span>
+<a name="ln-521"></a>
+<a name="ln-522"></a><span class="k">   interface </span><span class="n">util_fill</span>
+<a name="ln-523"></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-524"></a>         <span class="k">implicit none</span>
+<a name="ln-525"></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-526"></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-527"></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-528"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_arr_kin</span>
+<a name="ln-529"></a>   <span class="k">end interface</span>
+<a name="ln-530"></a>
+<a name="ln-531"></a><span class="k">   interface</span>
+<a name="ln-532"></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-533"></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-534"></a>         <span class="k">implicit none</span>
+<a name="ln-535"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-537"></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-538"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_pl</span>
+<a name="ln-539"></a>
+<a name="ln-540"></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-541"></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-542"></a>         <span class="k">implicit none</span>
+<a name="ln-543"></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-544"></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-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_tp</span>
+<a name="ln-547"></a>
+<a name="ln-548"></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-549"></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-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">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-552"></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-553"></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-554"></a>      <span class="k">end subroutine </span><span class="n">symba_util_peri_pl</span>
+<a name="ln-555"></a>
+<a name="ln-556"></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-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">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-559"></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-560"></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 additions</span>
+<a name="ln-561"></a>      <span class="k">end subroutine </span><span class="n">symba_util_rearray_pl</span>
+<a name="ln-562"></a>
+<a name="ln-563"></a>      <span class="k">module subroutine </span><span class="n">symba_util_reset_kinship</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-564"></a>         <span class="k">implicit none</span>
+<a name="ln-565"></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-566"></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">idx</span>  <span class="c">!! Index array of bodies to reset</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">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-568"></a>      <span class="k">end subroutine </span><span class="n">symba_util_reset_kinship</span>
+<a name="ln-569"></a>      
+<a name="ln-570"></a>   <span class="k">end interface</span>
+<a name="ln-571"></a>
+<a name="ln-572"></a><span class="k">   interface </span><span class="n">util_resize</span>
+<a name="ln-573"></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-574"></a>         <span class="k">implicit none</span>
+<a name="ln-575"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-577"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_arr_kin</span>
+<a name="ln-578"></a>   <span class="k">end interface</span>
+<a name="ln-579"></a><span class="k">   </span>
+<a name="ln-580"></a><span class="k">   interface</span>
+<a name="ln-581"></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-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">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-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">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-585"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_merger</span>
+<a name="ln-586"></a>
+<a name="ln-587"></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-588"></a>         <span class="k">implicit none</span>
+<a name="ln-589"></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-590"></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-591"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_pl</span>
+<a name="ln-592"></a>
+<a name="ln-593"></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-594"></a>         <span class="k">implicit none</span>
+<a name="ln-595"></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-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">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-597"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_tp</span>
+<a name="ln-598"></a>
+<a name="ln-599"></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-600"></a>         <span class="k">implicit none</span>
+<a name="ln-601"></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-602"></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-603"></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-604"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_pl</span> 
+<a name="ln-605"></a>
+<a name="ln-606"></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-607"></a>         <span class="k">implicit none</span>
+<a name="ln-608"></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-609"></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-610"></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-611"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_tp</span>
+<a name="ln-612"></a>   <span class="k">end interface</span>
+<a name="ln-613"></a>
+<a name="ln-614"></a><span class="k">   interface </span><span class="n">util_sort_rearrange</span>
+<a name="ln-615"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-616"></a>         <span class="k">implicit none</span>
+<a name="ln-617"></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-618"></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 to rearrange against</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">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 elements in arr and ind to rearrange</span>
+<a name="ln-620"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_arr_kin</span>
+<a name="ln-621"></a>   <span class="k">end interface </span><span class="n">util_sort_rearrange</span>
+<a name="ln-622"></a>
+<a name="ln-623"></a>   <span class="k">interface</span>
+<a name="ln-624"></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-625"></a>         <span class="k">implicit none</span>
+<a name="ln-626"></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-627"></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-628"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_pl</span>
+<a name="ln-629"></a>
+<a name="ln-630"></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-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-632"></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-633"></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-634"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_tp</span>
+<a name="ln-635"></a>   <span class="k">end interface</span>
+<a name="ln-636"></a>
+<a name="ln-637"></a><span class="k">   interface </span><span class="n">util_spill</span>
 <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>
@@ -2117,14 +2259,14 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-657"></a>      <span class="k">module subroutine </span><span class="n">symba_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-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-660"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_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">!! 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-664"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_encounter</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>
diff --git a/docs/sourcefile/symba_collision.f90.html b/docs/sourcefile/symba_collision.f90.html
index fe2f84f08..6573c0ef6 100644
--- a/docs/sourcefile/symba_collision.f90.html
+++ b/docs/sourcefile/symba_collision.f90.html
@@ -134,7 +134,7 @@ <h1>symba_collision.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.8% of total for source files.">375 statements</a>
+    title=" 4.7% of total for source files.">758 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_collisionf90EfferentGraph" width="641pt" height="254pt"
+ viewBox="0.00 0.00 641.00 254.44" 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 366.74)">
 <title>sourcefile~~symba_collision.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 923,-260.15 923,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 930,-366.74 930,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,-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>
+<polygon fill="none" stroke="black" points="926,-189.48 820,-189.48 820,-165.48 926,-165.48 926,-189.48"/>
+<text text-anchor="middle" x="873" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.76,-181.77C781.58,-184.91 729.69,-189.17 689.59,-192.46"/>
+<polygon fill="#000000" stroke="#000000" points="689.08,-188.99 679.4,-193.3 689.65,-195.97 689.08,-188.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.72,-168.77C811.19,-167.35 802.45,-165.89 794.21,-164.51"/>
+<polygon fill="#000000" stroke="#000000" points="794.52,-161.02 784.08,-162.83 793.37,-167.92 794.52,-161.02"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_collision.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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_collision.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_collision.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -560,529 +612,1060 @@ <h3>Contents</h3>
       <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">symba_classes</span><span class="p">)</span> <span class="n">s_symba_collision</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>
-<a name="ln-5"></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-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">!! Check for merger between massive bodies and test particles in SyMBA</span>
-<a name="ln-9"></a>      <span class="c">!! </span>
-<a name="ln-10"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_merge.f90 and symba_merge_tp.f90</span>
-<a name="ln-11"></a>      <span class="c">!!</span>
-<a name="ln-12"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_merge.f</span>
-<a name="ln-13"></a>      <span class="k">implicit none</span>
-<a name="ln-14"></a>      <span class="c">! Arguments</span>
-<a name="ln-15"></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-16"></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-17"></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-18"></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-19"></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-20"></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-21"></a>      <span class="c">! Internals</span>
-<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">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>
-<a name="ln-29"></a><span class="k">      select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-30"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
-<a name="ln-31"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-32"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-33"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-34"></a>      <span class="k">end select</span>
+<a name="ln-3"></a>
+<a name="ln-4"></a><span class="k">contains</span>
+<a name="ln-5"></a>
+<a name="ln-6"></a><span class="k">   module function </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</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-7"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-8"></a>      <span class="c">!!</span>
+<a name="ln-9"></a>      <span class="c">!! Create the fragments resulting from a non-catastrophic disruption collision</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="nb">system</span>    <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-14"></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 additions</span>
+<a name="ln-15"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-16"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object </span>
+<a name="ln-17"></a>      <span class="c">! Result</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="kd">::</span> <span class="n">status</span>    <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-19"></a>      <span class="c">! Internals</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">nfrag</span>
+<a name="ln-21"></a>      <span class="kt">logical</span>               <span class="kd">::</span> <span class="n">lfailure</span>
+<a name="ln-22"></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">message</span> 
+<a name="ln-23"></a>
+<a name="ln-24"></a>      <span class="k">select case</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span><span class="p">)</span>
+<a name="ln-25"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_DISRUPTION</span><span class="p">)</span>
+<a name="ln-26"></a>         <span class="n">message</span> <span class="o">=</span> <span class="s2">&quot;Disruption between&quot;</span>
+<a name="ln-27"></a>      <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span><span class="p">)</span>
+<a name="ln-28"></a>         <span class="n">message</span> <span class="o">=</span> <span class="s2">&quot;Supercatastrophic disruption between&quot;</span>
+<a name="ln-29"></a>      <span class="k">end select</span>
+<a name="ln-30"></a><span class="k">      call </span><span class="n">symba_collision_collider_message</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">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">,</span> <span class="n">message</span><span class="p">)</span>
+<a name="ln-31"></a>      <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>      <span class="c">! Collisional fragments will be uniformly distributed around the pre-impact barycenter</span>
+<a name="ln-34"></a>      <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_mass_dist</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
 <a name="ln-35"></a>
-<a name="ln-36"></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-37"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-38"></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-39"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-40"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">nenc</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">ind1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">ind2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span>
-<a name="ln-41"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">lmask</span><span class="p">(</span><span class="n">nenc</span><span class="p">))</span>
-<a name="ln-42"></a>               <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</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">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</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">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irec</span><span class="p">))</span>
-<a name="ln-43"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-44"></a><span class="k">                  </span><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">and</span><span class="p">.</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">ind2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irec</span><span class="p">)</span>
-<a name="ln-45"></a>               <span class="k">else</span>
-<a name="ln-46"></a><span class="k">                  </span><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">and</span><span class="p">.</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">ind2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irec</span><span class="p">)</span>
-<a name="ln-47"></a>               <span class="k">end if</span>
-<a name="ln-48"></a><span class="k">               if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">any</span><span class="p">(</span><span class="n">lmask</span><span class="p">(:)))</span> <span class="k">return</span>
-<a name="ln-49"></a>
-<a name="ln-50"></a><span class="k">               allocate</span><span class="p">(</span><span class="n">lcollision</span><span class="p">(</span><span class="n">nenc</span><span class="p">))</span>
-<a name="ln-51"></a>               <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-52"></a>
-<a name="ln-53"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-54"></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>
-<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">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>
-<a name="ln-63"></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">tp</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-64"></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">tp</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-65"></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">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="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="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-66"></a>                  <span class="k">end do</span>
-<a name="ln-67"></a><span class="k">               end if</span>
+<a name="ln-36"></a>      <span class="c">! Generate the position and velocity distributions of the fragments</span>
+<a name="ln-37"></a>      <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">generate_fragments</span><span class="p">(</span><span class="n">colliders</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">lfailure</span><span class="p">)</span>
+<a name="ln-38"></a>
+<a name="ln-39"></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-40"></a><span class="k">         call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;No fragment solution found, so treat as a pure hit-and-run&quot;</span><span class="p">)</span>
+<a name="ln-41"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span> 
+<a name="ln-42"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-43"></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-44"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-45"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">status</span>
+<a name="ln-46"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-47"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-48"></a>         <span class="k">end select</span>
+<a name="ln-49"></a><span class="k">      else</span>
+<a name="ln-50"></a>         <span class="c">! Populate the list of new bodies</span>
+<a name="ln-51"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-52"></a>         <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">nfrag</span>
+<a name="ln-53"></a>         <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Generating &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">message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; fragments&quot;</span><span class="p">)</span>
+<a name="ln-54"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span><span class="p">)</span>
+<a name="ln-55"></a>         <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_DISRUPTION</span><span class="p">)</span>
+<a name="ln-56"></a>            <span class="n">status</span> <span class="o">=</span> <span class="n">DISRUPTION</span>
+<a name="ln-57"></a>         <span class="k">case</span><span class="p">(</span><span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span><span class="p">)</span>
+<a name="ln-58"></a>            <span class="n">status</span> <span class="o">=</span> <span class="n">SUPERCATASTROPHIC</span>
+<a name="ln-59"></a>         <span class="k">end select</span>
+<a name="ln-60"></a><span class="k">         </span><span class="n">frag</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">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="n">param</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="n">param</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-61"></a>         <span class="n">param</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-62"></a>         <span class="k">call </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-63"></a>      <span class="k">end if</span>
+<a name="ln-64"></a>
+<a name="ln-65"></a><span class="k">      return</span>
+<a name="ln-66"></a><span class="k">   end function </span><span class="n">symba_collision_casedisruption</span>
+<a name="ln-67"></a>
 <a name="ln-68"></a>
-<a name="ln-69"></a><span class="k">               if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">lcollision</span><span class="p">(:)))</span> <span class="k">then</span>
-<a name="ln-70"></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">nenc</span>
-<a name="ln-71"></a>                     <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lcollision</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="k">cycle </span>
-<a name="ln-72"></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">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">COLLISION</span>
-<a name="ln-73"></a>                     <span class="n">self</span><span class="p">%</span><span class="n">x1</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> 
-<a name="ln-74"></a>                     <span class="n">self</span><span class="p">%</span><span class="n">v1</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> 
-<a name="ln-75"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-76"></a><span class="k">                        </span><span class="n">self</span><span class="p">%</span><span class="n">x2</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-77"></a>                        <span class="n">self</span><span class="p">%</span><span class="n">v2</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-78"></a>
-<a name="ln-79"></a>                        <span class="c">! Check to see if either of these bodies has been involved with a collision before, and if so, make this a collisional family</span>
-<a name="ln-80"></a>                        <span class="k">if</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">ind1</span><span class="p">(</span><span class="n">k</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">lcollision</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span> <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">make_family</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="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)])</span>
-<a name="ln-81"></a>
-<a name="ln-82"></a>                        <span class="c">! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step</span>
-<a name="ln-83"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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="n">ind2</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">true</span><span class="p">.</span>
-<a name="ln-84"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</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="n">ind2</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">true</span><span class="p">.</span>
-<a name="ln-85"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">status</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="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)])</span> <span class="o">=</span> <span class="n">COLLISION</span>
-<a name="ln-86"></a>                     <span class="k">else</span>
-<a name="ln-87"></a><span class="k">                        </span><span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</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">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-88"></a>                        <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</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">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-89"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="n">DISCARDED_PLR</span>
-<a name="ln-90"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">ind2</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">true</span><span class="p">.</span>
-<a name="ln-91"></a>                        <span class="k">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;Test particle &#39;</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">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)),</span> <span class="s1">&#39; collided with massive body &#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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">)),</span> <span class="s1">&#39; at time &#39;</span><span class="p">,</span><span class="n">t</span>
-<a name="ln-92"></a>                     <span class="k">end if</span>
-<a name="ln-93"></a><span class="k">                  end do</span>
-<a name="ln-94"></a><span class="k">               end if</span>
-<a name="ln-95"></a><span class="k">            end associate</span>
-<a name="ln-96"></a><span class="k">         end select</span>
-<a name="ln-97"></a><span class="k">      end select</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">symba_collision_check_pltpenc</span>
-<a name="ln-101"></a>
-<a name="ln-102"></a>
-<a name="ln-103"></a>   <span class="k">pure elemental function </span><span class="n">symba_collision_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">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">lvdotr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lcollision</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">!! Check for a merger between a single pair of particles</span>
-<a name="ln-107"></a>      <span class="c">!!</span>
-<a name="ln-108"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routines symba_merge_tp.f90 and symba_merge_pl.f90</span>
-<a name="ln-109"></a>      <span class="c">!!</span>
-<a name="ln-110"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_merge.f</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">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="c">!! Relative position vector components</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</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="c">!! Relative velocity vector components</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Gmtot</span>         <span class="c">!! Sum of G*mass of colliding bodies</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">rlim</span>          <span class="c">!! Collision limit - Typically the sum of the radii of colliding bodies</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">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-118"></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">lvdotr</span>        <span class="c">!! Logical flag indicating that these two bodies are approaching in the current substep</span>
-<a name="ln-119"></a>      <span class="c">! Result</span>
-<a name="ln-120"></a>      <span class="kt">logical</span>              <span class="kd">::</span> <span class="n">lcollision</span>    <span class="c">!! Logical flag indicating whether these two bodies will collide or not</span>
-<a name="ln-121"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">rlim2</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> <span class="n">vdotr</span><span class="p">,</span> <span class="n">tcr2</span><span class="p">,</span> <span class="n">dt2</span>
-<a name="ln-123"></a>
-<a name="ln-124"></a>      <span class="n">r2</span> <span class="o">=</span> <span class="n">xr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">yr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">zr</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-125"></a>      <span class="n">rlim2</span> <span class="o">=</span> <span class="n">rlim</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-126"></a>   
-<a name="ln-127"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;=</span> <span class="n">rlim2</span><span class="p">)</span> <span class="k">then</span> <span class="c">! checks if bodies are actively colliding in this time step</span>
-<a name="ln-128"></a>         <span class="n">lcollision</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-129"></a>      <span class="k">else</span> <span class="c">! 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 </span>
-<a name="ln-130"></a>         <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-131"></a>         <span class="n">vdotr</span> <span class="o">=</span> <span class="n">xr</span> <span class="o">*</span> <span class="n">vxr</span> <span class="o">+</span> <span class="n">yr</span> <span class="o">*</span> <span class="n">vyr</span> <span class="o">+</span> <span class="n">zr</span> <span class="o">*</span> <span class="n">vzr</span>
-<a name="ln-132"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lvdotr</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</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-133"></a><span class="k">            </span><span class="n">tcr2</span> <span class="o">=</span> <span class="n">r2</span> <span class="o">/</span> <span class="p">(</span><span class="n">vxr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vyr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vzr</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-134"></a>            <span class="n">dt2</span> <span class="o">=</span> <span class="n">dt</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-135"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tcr2</span> <span class="o">&lt;=</span> <span class="n">dt2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-136"></a><span class="k">               call </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="n">Gmtot</span><span class="p">,</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="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">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-137"></a>               <span class="n">lcollision</span> <span class="o">=</span> <span class="p">(</span><span class="n">q</span> <span class="o">&lt;</span> <span class="n">rlim</span><span class="p">)</span> 
-<a name="ln-138"></a>            <span class="k">end if</span>
-<a name="ln-139"></a><span class="k">         end if</span>
-<a name="ln-140"></a><span class="k">      end if</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 function </span><span class="n">symba_collision_check_one</span>
-<a name="ln-144"></a>
-<a name="ln-145"></a>
-<a name="ln-146"></a>   <span class="k">function </span><span class="n">symba_collision_consolidate_familes</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">idx_parent</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">lflag</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">!! Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, </span>
-<a name="ln-150"></a>      <span class="c">!! and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome.</span>
-<a name="ln-151"></a>      <span class="k">implicit none</span>
-<a name="ln-152"></a>      <span class="c">! Arguments</span>
-<a name="ln-153"></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">pl</span>               <span class="c">!! SyMBA massive body object</span>
-<a name="ln-154"></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-155"></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">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">idx_parent</span>       <span class="c">!! Index of the two bodies considered the &quot;parents&quot; of the collision</span>
-<a name="ln-156"></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">out</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-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="n">NDIM</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">out</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">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</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="mi">2</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">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-159"></a>      <span class="c">! Result</span>
-<a name="ln-160"></a>      <span class="kt">logical</span>                                                        <span class="kd">::</span> <span class="n">lflag</span>            <span class="c">!! Logical flag indicating whether a family was successfully created or not</span>
-<a name="ln-161"></a>      <span class="c">! Internals</span>
-<a name="ln-162"></a>      <span class="k">type </span><span class="n">family_array</span>
-<a name="ln-163"></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>
-<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="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">idx</span>
-<a name="ln-165"></a>      <span class="k">end type </span><span class="n">family_array</span>
-<a name="ln-166"></a>      <span class="k">type</span><span class="p">(</span><span class="n">family_array</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">parent_child_index_array</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="mi">2</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">nchild</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><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">fam_size</span><span class="p">,</span> <span class="n">idx_child</span>
-<a name="ln-169"></a>      <span class="kt">real</span><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">volume</span><span class="p">,</span> <span class="n">density</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">mchild</span><span class="p">,</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">volchild</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">xc</span><span class="p">,</span> <span class="n">vc</span><span class="p">,</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span><span class="p">,</span> <span class="n">xchild</span><span class="p">,</span> <span class="n">vchild</span><span class="p">,</span> <span class="n">xcrossv</span>
-<a name="ln-172"></a>
-<a name="ln-173"></a>      <span class="n">nchild</span><span class="p">(:)</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_parent</span><span class="p">(:))%</span><span class="n">nchild</span> 
-<a name="ln-174"></a>      <span class="c">! If all of these bodies share a parent, but this is still a unique collision, move the last child</span>
-<a name="ln-175"></a>      <span class="c">! out of the parent&#39;s position and make it the secondary body</span>
-<a name="ln-176"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">==</span> <span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-177"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span> <span class="c">! 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)</span>
-<a name="ln-178"></a>            <span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
-<a name="ln-179"></a>            <span class="k">return</span>
-<a name="ln-180"></a><span class="k">         end if</span>
-<a name="ln-181"></a><span class="k">         </span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">)</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_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">))%</span><span class="n">child</span><span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span>
-<a name="ln-182"></a>         <span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-183"></a>         <span class="n">nchild</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-184"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))%</span><span class="n">nchild</span> <span class="o">=</span> <span class="n">nchild</span><span class="p">(:)</span>
-<a name="ln-185"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">))%</span><span class="n">parent</span> <span class="o">=</span> <span class="n">idx_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-186"></a>      <span class="k">end if</span>
+<a name="ln-69"></a>   <span class="k">module function </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</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-70"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-71"></a>      <span class="c">!!</span>
+<a name="ln-72"></a>      <span class="c">!! Create the fragments resulting from a non-catastrophic hit-and-run collision</span>
+<a name="ln-73"></a>      <span class="c">!! </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">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-77"></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 additions</span>
+<a name="ln-78"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-79"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object </span>
+<a name="ln-80"></a>      <span class="c">! Result</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">status</span>    <span class="c">!! Status flag assigned to this outcom</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><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">jtarg</span><span class="p">,</span> <span class="n">jproj</span>
+<a name="ln-84"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lpure</span> 
+<a name="ln-85"></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">message</span>
+<a name="ln-86"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">idstr</span>
+<a name="ln-87"></a>
+<a name="ln-88"></a>      <span class="n">message</span> <span class="o">=</span> <span class="s2">&quot;Hit and run between&quot;</span>
+<a name="ln-89"></a>      <span class="k">call </span><span class="n">symba_collision_collider_message</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">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">,</span> <span class="n">message</span><span class="p">)</span>
+<a name="ln-90"></a>      <span class="k">call </span><span class="n">fraggle_io_log_one_message</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">message</span><span class="p">)))</span>
+<a name="ln-91"></a>
+<a name="ln-92"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">colliders</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">colliders</span><span class="p">%</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-93"></a><span class="k">         </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-94"></a>         <span class="n">jproj</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-95"></a>      <span class="k">else</span>
+<a name="ln-96"></a><span class="k">         </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-97"></a>         <span class="n">jproj</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-98"></a>      <span class="k">end if</span>
+<a name="ln-99"></a>
+<a name="ln-100"></a><span class="k">      if</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">mass_dist</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">colliders</span><span class="p">%</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-101"></a>         <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Pure hit and run. No new fragments generated.&quot;</span><span class="p">)</span>
+<a name="ln-102"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-103"></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-104"></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-105"></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-106"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_mass_dist</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-107"></a>
+<a name="ln-108"></a>         <span class="c">! Generate the position and velocity distributions of the fragments</span>
+<a name="ln-109"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">generate_fragments</span><span class="p">(</span><span class="n">colliders</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">lpure</span><span class="p">)</span>
+<a name="ln-110"></a>
+<a name="ln-111"></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-112"></a><span class="k">            call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Should have been a pure hit and run instead&quot;</span><span class="p">)</span>
+<a name="ln-113"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-114"></a>         <span class="k">else</span>
+<a name="ln-115"></a><span class="k">            </span><span class="n">nfrag</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-116"></a>            <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">nfrag</span>
+<a name="ln-117"></a>            <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Generating &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">message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; fragments&quot;</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">      if</span> <span class="p">(</span><span class="n">lpure</span><span class="p">)</span> <span class="k">then</span> <span class="c">! Reset these bodies back to being active so that nothing further is done to them</span>
+<a name="ln-121"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">HIT_AND_RUN_PURE</span>
+<a name="ln-122"></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-123"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-124"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-125"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-126"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-127"></a>         <span class="k">end select</span>
+<a name="ln-128"></a><span class="k">      else</span>
+<a name="ln-129"></a><span class="k">         </span><span class="n">ibiggest</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</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">colliders</span><span class="p">%</span><span class="n">idx</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">frag</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="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-131"></a>         <span class="n">frag</span><span class="p">%</span><span class="n">id</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="n">param</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="n">param</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-132"></a>         <span class="n">param</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-133"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">HIT_AND_RUN_DISRUPT</span>
+<a name="ln-134"></a>         <span class="k">call </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</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">      return</span>
+<a name="ln-138"></a><span class="k">   end function </span><span class="n">symba_collision_casehitandrun</span>
+<a name="ln-139"></a>
+<a name="ln-140"></a>
+<a name="ln-141"></a>   <span class="k">module function </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</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-142"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-143"></a>      <span class="c">!!</span>
+<a name="ln-144"></a>      <span class="c">!! Merge massive bodies.</span>
+<a name="ln-145"></a>      <span class="c">!! </span>
+<a name="ln-146"></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-147"></a>      <span class="c">!!</span>
+<a name="ln-148"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routines symba5_merge.f and discard_mass_merge.f</span>
+<a name="ln-149"></a>      <span class="k">implicit none</span>
+<a name="ln-150"></a>      <span class="c">! Arguments</span>
+<a name="ln-151"></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-152"></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 additions</span>
+<a name="ln-153"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-154"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object </span>
+<a name="ln-155"></a>      <span class="c">! Result</span>
+<a name="ln-156"></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-157"></a>      <span class="c">! Internals</span>
+<a name="ln-158"></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">k</span><span class="p">,</span> <span class="n">ibiggest</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="mi">2</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">volume</span><span class="p">,</span> <span class="n">density</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="kd">::</span> <span class="n">pe</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="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">L_spin_new</span>
+<a name="ln-162"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">idstr</span>
+<a name="ln-163"></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">message</span>
+<a name="ln-164"></a>
+<a name="ln-165"></a>      <span class="n">message</span> <span class="o">=</span> <span class="s2">&quot;Merging&quot;</span>
+<a name="ln-166"></a>      <span class="k">call </span><span class="n">symba_collision_collider_message</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">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">,</span> <span class="n">message</span><span class="p">)</span>
+<a name="ln-167"></a>      <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-168"></a>
+<a name="ln-169"></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-170"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-171"></a>
+<a name="ln-172"></a>         <span class="k">call </span><span class="n">frag</span><span class="p">%</span><span class="n">set_mass_dist</span><span class="p">(</span><span class="n">colliders</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-173"></a>         <span class="n">ibiggest</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</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">colliders</span><span class="p">%</span><span class="n">idx</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-174"></a>         <span class="n">frag</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">ibiggest</span><span class="p">)</span>
+<a name="ln-175"></a>         <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span>
+<a name="ln-176"></a>         <span class="n">frag</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">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span>
+<a name="ln-177"></a>
+<a name="ln-178"></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-179"></a>            <span class="c">! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body</span>
+<a name="ln-180"></a>            <span class="n">L_spin_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span> <span class="o">+</span> <span class="n">colliders</span><span class="p">%</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">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>  
+<a name="ln-181"></a>
+<a name="ln-182"></a>            <span class="c">! Assume prinicpal axis rotation on 3rd Ip axis</span>
+<a name="ln-183"></a>            <span class="n">frag</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">L_spin_new</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="n">frag</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="o">*</span> <span class="n">frag</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">frag</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="mi">2</span><span class="p">)</span>
+<a name="ln-184"></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-185"></a>            <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span> 
+<a name="ln-186"></a>         <span class="k">end if</span>
 <a name="ln-187"></a>
-<a name="ln-188"></a><span class="k">      </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">mass</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))</span> <span class="c">! Note: This is meant to mass, not G*mass, as the collisional regime determination uses mass values that will be converted to Si</span>
-<a name="ln-189"></a>      <span class="n">radius</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">idx_parent</span><span class="p">(:))</span>
-<a name="ln-190"></a>      <span class="n">volume</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.0_DP</span><span class="p">)</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-191"></a> 
-<a name="ln-192"></a>      <span class="c">! Group together the ids and indexes of each collisional parent and its children</span>
-<a name="ln-193"></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="mi">2</span>
-<a name="ln-194"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">idx</span><span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">)</span><span class="o">+</span> <span class="mi">1</span><span class="p">))</span>
-<a name="ln-195"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">id</span><span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">)</span><span class="o">+</span> <span class="mi">1</span><span class="p">))</span>
-<a name="ln-196"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">idx_arr</span> <span class="o">=&gt;</span> <span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">idx</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-197"></a>                   <span class="n">id_arr</span> <span class="o">=&gt;</span> <span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">id</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-198"></a>                   <span class="n">ncj</span> <span class="o">=&gt;</span> <span class="n">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">),</span> <span class="p">&amp;</span>
-<a name="ln-199"></a>                   <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-200"></a>                   <span class="n">plkinj</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">)))</span>
-<a name="ln-201"></a>            <span class="n">idx_arr</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-202"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">ncj</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">idx_arr</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">ncj</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">plkinj</span><span class="p">%</span><span class="n">child</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ncj</span><span class="p">)</span>
-<a name="ln-203"></a>            <span class="n">id_arr</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">idx_arr</span><span class="p">(:))</span>
-<a name="ln-204"></a>         <span class="k">end associate</span>
-<a name="ln-205"></a><span class="k">      end do</span>
-<a name="ln-206"></a>
-<a name="ln-207"></a>      <span class="c">! Consolidate the groups of collsional parents with any children they may have into a single &quot;family&quot; index array</span>
-<a name="ln-208"></a>      <span class="n">fam_size</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">nchild</span><span class="p">(:))</span>
-<a name="ln-209"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">family</span><span class="p">(</span><span class="n">fam_size</span><span class="p">))</span>
-<a name="ln-210"></a>      <span class="n">family</span> <span class="o">=</span> <span class="p">[</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="mi">1</span><span class="p">)%</span><span class="n">idx</span><span class="p">(:),</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="mi">2</span><span class="p">)%</span><span class="n">idx</span><span class="p">(:)]</span>
-<a name="ln-211"></a>      <span class="n">fam_size</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">lcollision</span><span class="p">(</span><span class="n">family</span><span class="p">(:)))</span>
-<a name="ln-212"></a>      <span class="n">family</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">family</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">family</span><span class="p">(:)))</span>
-<a name="ln-213"></a>      <span class="n">L_spin</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-214"></a>      <span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-215"></a>
-<a name="ln-216"></a>      <span class="c">! Find the barycenter of each body along with its children, if it has any</span>
-<a name="ln-217"></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="mi">2</span>
-<a name="ln-218"></a>         <span class="n">x</span><span class="p">(:,</span> <span class="n">j</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">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-219"></a>         <span class="n">v</span><span class="p">(:,</span> <span class="n">j</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">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-220"></a>         <span class="c">! Assume principal axis rotation about axis corresponding to highest moment of inertia (3rd Ip)</span>
-<a name="ln-221"></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-222"></a><span class="k">            </span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</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="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-223"></a>            <span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">radius</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="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span> <span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-224"></a>         <span class="k">end if</span>
-<a name="ln-225"></a>
-<a name="ln-226"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="n">j</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-227"></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">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="c">! Loop over all children and take the mass weighted mean of the properties</span>
-<a name="ln-228"></a>               <span class="n">idx_child</span> <span class="o">=</span> <span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-229"></a>               <span class="k">if</span> <span class="p">(.</span><span class="nb">not</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">idx_child</span><span class="p">))</span> <span class="k">cycle</span>
-<a name="ln-230"></a><span class="k">               </span><span class="n">mchild</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">idx_child</span><span class="p">)</span>
-<a name="ln-231"></a>               <span class="n">xchild</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">idx_child</span><span class="p">)</span>
-<a name="ln-232"></a>               <span class="n">vchild</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">idx_child</span><span class="p">)</span>
-<a name="ln-233"></a>               <span class="n">volchild</span> <span class="o">=</span> <span class="p">(</span><span class="mf">4.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">PI</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">idx_child</span><span class="p">)</span><span class="o">**</span><span class="mi">3</span>
-<a name="ln-234"></a>               <span class="n">volume</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">volume</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">volchild</span>
-<a name="ln-235"></a>               <span class="c">! Get angular momentum of the child-parent pair and add that to the spin</span>
-<a name="ln-236"></a>               <span class="c">! Add the child&#39;s spin</span>
-<a name="ln-237"></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-238"></a><span class="k">                  </span><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="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span> <span class="o">*</span> <span class="n">xchild</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">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span><span class="p">)</span>
-<a name="ln-239"></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="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span> <span class="o">*</span> <span class="n">vchild</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">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span><span class="p">)</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">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</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">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</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_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</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="n">xcrossv</span><span class="p">(:)</span>
-<a name="ln-244"></a>   
-<a name="ln-245"></a>                  <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xchild</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span>
-<a name="ln-246"></a>                  <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vchild</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-247"></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-248"></a>                  <span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span> <span class="o">*</span> <span class="n">xcrossv</span><span class="p">(:)</span>
-<a name="ln-249"></a>
-<a name="ln-250"></a>                  <span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</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">idx_child</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">idx_child</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="n">idx_child</span><span class="p">)</span>
-<a name="ln-251"></a>                  <span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</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="n">idx_child</span><span class="p">)</span>
-<a name="ln-252"></a>               <span class="k">end if</span>
-<a name="ln-253"></a>
-<a name="ln-254"></a>               <span class="c">! Merge the child and parent</span>
-<a name="ln-255"></a>               <span class="n">mass</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</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="n">mchild</span>
-<a name="ln-256"></a>               <span class="n">x</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span>
-<a name="ln-257"></a>               <span class="n">v</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-258"></a>            <span class="k">end do</span>
-<a name="ln-259"></a><span class="k">         end if</span>
-<a name="ln-260"></a><span class="k">         </span><span class="n">density</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</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="n">volume</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-261"></a>         <span class="n">radius</span><span class="p">(</span><span class="n">j</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">mass</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">density</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</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>
-<a name="ln-262"></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="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">/</span> <span class="n">mass</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-263"></a>      <span class="k">end do</span>
-<a name="ln-264"></a><span class="k">      </span><span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</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 function </span><span class="n">symba_collision_consolidate_familes</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_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-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">!! Processes the pl-pl encounter list remove only those encounters that led to a collision</span>
-<a name="ln-274"></a>      <span class="c">!!</span>
-<a name="ln-275"></a>      <span class="k">implicit none</span>
-<a name="ln-276"></a>      <span class="c">! Arguments</span>
-<a name="ln-277"></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-278"></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-279"></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-280"></a>      <span class="c">! Internals</span>
-<a name="ln-281"></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">nenc</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">lplpl_collision</span>
-<a name="ln-282"></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">lplpl_unique_parent</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="k">dimension</span><span class="p">(:),</span> <span class="k">pointer</span>     <span class="kd">::</span> <span class="n">plparent</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="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">collision_idx</span><span class="p">,</span> <span class="n">unique_parent_idx</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">index_coll</span><span class="p">,</span> <span class="n">ncollisions</span><span class="p">,</span> <span class="n">nunique_parent</span>
-<a name="ln-286"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">plplenc_noncollision</span>
-<a name="ln-287"></a>
-<a name="ln-288"></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-289"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-290"></a>         <span class="k">associate</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">nplplenc</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">idx1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">idx2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">,</span> <span class="n">plparent</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">%</span><span class="n">parent</span><span class="p">)</span>
-<a name="ln-291"></a>            <span class="n">lplpl_collision</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plplenc_list</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">nplplenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">COLLISION</span>
-<a name="ln-292"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">lplpl_collision</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Collisions have been detected in this step. So we need to determine which of them are between unique bodies.</span>
-<a name="ln-293"></a>
-<a name="ln-294"></a>               <span class="c">! Get the subset of pl-pl encounters that lead to a collision</span>
-<a name="ln-295"></a>               <span class="n">ncollisions</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lplpl_collision</span><span class="p">(:))</span>
-<a name="ln-296"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(</span><span class="n">ncollisions</span><span class="p">))</span>
-<a name="ln-297"></a>               <span class="n">collision_idx</span> <span class="o">=</span> <span class="nb">pack</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">nplplenc</span><span class="p">)],</span> <span class="n">lplpl_collision</span><span class="p">)</span>
-<a name="ln-298"></a>
-<a name="ln-299"></a>               <span class="c">! Get the subset of collisions that involve a unique pair of parents</span>
-<a name="ln-300"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">lplpl_unique_parent</span><span class="p">(</span><span class="n">ncollisions</span><span class="p">))</span>
-<a name="ln-301"></a>
-<a name="ln-302"></a>               <span class="n">lplpl_unique_parent</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:)))</span> <span class="o">/=</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:)))</span>
-<a name="ln-303"></a>               <span class="n">nunique_parent</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lplpl_unique_parent</span><span class="p">(:))</span>
-<a name="ln-304"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(</span><span class="n">nunique_parent</span><span class="p">))</span>
-<a name="ln-305"></a>               <span class="n">unique_parent_idx</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:),</span> <span class="n">lplpl_unique_parent</span><span class="p">(:))</span>
-<a name="ln-306"></a>
-<a name="ln-307"></a>               <span class="c">! Scrub all pl-pl collisions involving unique pairs of parents, which will remove all duplicates and leave behind</span>
-<a name="ln-308"></a>               <span class="c">! all pairs that have themselves as parents but are not part of the unique parent list. This can hapepn in rare cases</span>
-<a name="ln-309"></a>               <span class="c">! due to restructuring of parent/child relationships when there are large numbers of multi-body collisions in a single</span>
-<a name="ln-310"></a>               <span class="c">! step</span>
-<a name="ln-311"></a>               <span class="n">lplpl_unique_parent</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-312"></a>               <span class="k">do </span><span class="n">index_coll</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ncollisions</span>
-<a name="ln-313"></a>                  <span class="k">associate</span><span class="p">(</span><span class="n">ip1</span> <span class="o">=&gt;</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(</span><span class="n">index_coll</span><span class="p">))),</span> <span class="n">ip2</span> <span class="o">=&gt;</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(</span><span class="n">index_coll</span><span class="p">))))</span>
-<a name="ln-314"></a>                     <span class="n">lplpl_unique_parent</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="p">(</span> <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip1</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-315"></a>                                                      <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip1</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-316"></a>                                                      <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip2</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-317"></a>                                                      <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip2</span><span class="p">)</span> <span class="p">)</span>
-<a name="ln-318"></a>                  <span class="k">end associate</span>
-<a name="ln-319"></a><span class="k">               end do</span>
-<a name="ln-320"></a>
-<a name="ln-321"></a>               <span class="c">! Reassemble collision index list to include only those containing the unique pairs of parents, plus all the non-unique pairs that don&#39;t</span>
-<a name="ln-322"></a>               <span class="c">! contain a parent body on the unique parent list.</span>
-<a name="ln-323"></a>               <span class="n">ncollisions</span> <span class="o">=</span> <span class="n">nunique_parent</span> <span class="o">+</span> <span class="nb">count</span><span class="p">(</span><span class="n">lplpl_unique_parent</span><span class="p">)</span>
-<a name="ln-324"></a>               <span class="n">collision_idx</span> <span class="o">=</span> <span class="p">[</span><span class="n">unique_parent_idx</span><span class="p">(:),</span> <span class="nb">pack</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:),</span> <span class="n">lplpl_unique_parent</span><span class="p">(:))]</span>
-<a name="ln-325"></a>
-<a name="ln-326"></a>               <span class="c">! Create a mask that contains only the pl-pl encounters that did not result in a collision, and then discard them</span>
-<a name="ln-327"></a>               <span class="n">lplpl_collision</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-328"></a>               <span class="n">lplpl_collision</span><span class="p">(</span><span class="n">collision_idx</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-329"></a>            <span class="k">end if</span>
-<a name="ln-330"></a><span class="k">            call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">spill</span><span class="p">(</span><span class="n">plplenc_noncollision</span><span class="p">,</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="n">lplpl_collision</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> <span class="c">! Remove any encounters that are not collisions from the list.</span>
-<a name="ln-331"></a>         <span class="k">end associate</span>
-<a name="ln-332"></a><span class="k">      end select</span>
-<a name="ln-333"></a>
-<a name="ln-334"></a><span class="k">      return</span>
-<a name="ln-335"></a><span class="k">   end subroutine </span><span class="n">symba_collision_encounter_scrub</span>
-<a name="ln-336"></a>
-<a name="ln-337"></a>
-<a name="ln-338"></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-339"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton</span>
-<a name="ln-340"></a>      <span class="c">!!</span>
-<a name="ln-341"></a>      <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-342"></a>      <span class="c">!! The largest body involved in a multi-body collision is the &quot;parent&quot; and all bodies that collide with it are its &quot;children,&quot;</span>
-<a name="ln-343"></a>      <span class="c">!! including those that collide with the children.</span>
-<a name="ln-344"></a>      <span class="c">!! </span>
-<a name="ln-345"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_merge_pl.f90</span>
-<a name="ln-346"></a>      <span class="c">!!</span>
-<a name="ln-347"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_merge.f</span>
-<a name="ln-348"></a>      <span class="k">implicit none</span>
-<a name="ln-349"></a>      <span class="c">! Arguments</span>
-<a name="ln-350"></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-351"></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-352"></a>      <span class="c">! Internals</span>
-<a name="ln-353"></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">index_parent</span><span class="p">,</span> <span class="n">index_child</span><span class="p">,</span> <span class="n">p1</span><span class="p">,</span> <span class="n">p2</span>
-<a name="ln-354"></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_inherit</span><span class="p">,</span> <span class="n">nchild_orig</span><span class="p">,</span> <span class="n">nchild_new</span>
-<a name="ln-355"></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">temp</span>
-<a name="ln-356"></a>
-<a name="ln-357"></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>
-<a name="ln-358"></a>         <span class="n">p1</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">1</span><span class="p">))%</span><span class="n">parent</span>
-<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">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>
-<a name="ln-366"></a><span class="k">            </span><span class="n">index_parent</span> <span class="o">=</span> <span class="n">p2</span>
-<a name="ln-367"></a>            <span class="n">index_child</span> <span class="o">=</span> <span class="n">p1</span>
-<a name="ln-368"></a>         <span class="k">end if</span>
-<a name="ln-369"></a>
-<a name="ln-370"></a>         <span class="c">! Expand the child array (or create it if necessary) and copy over the previous lists of children</span>
-<a name="ln-371"></a>         <span class="n">nchild_orig</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">index_parent</span><span class="p">)%</span><span class="n">nchild</span>
-<a name="ln-372"></a>         <span class="n">nchild_inherit</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">index_child</span><span class="p">)%</span><span class="n">nchild</span>
-<a name="ln-373"></a>         <span class="n">nchild_new</span> <span class="o">=</span> <span class="n">nchild_orig</span> <span class="o">+</span> <span class="n">nchild_inherit</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-374"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">temp</span><span class="p">(</span><span class="n">nchild_new</span><span class="p">))</span>
-<a name="ln-375"></a>
-<a name="ln-376"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nchild_orig</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">temp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_orig</span><span class="p">)</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">index_parent</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_orig</span><span class="p">)</span>
-<a name="ln-377"></a>         <span class="c">! Find out if the child body has any children of its own. The new parent wil inherit these children</span>
-<a name="ln-378"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nchild_inherit</span> <span class="o">&gt;</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">temp</span><span class="p">(</span><span class="n">nchild_orig</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_orig</span><span class="o">+</span><span class="n">nchild_inherit</span><span class="p">)</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">index_child</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_inherit</span><span class="p">)</span>
-<a name="ln-380"></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">nchild_inherit</span>
-<a name="ln-381"></a>               <span class="n">j</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">index_child</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-382"></a>               <span class="c">! Set the childrens&#39; parent to the new parent</span>
-<a name="ln-383"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">parent</span> <span class="o">=</span> <span class="n">index_parent</span>
-<a name="ln-384"></a>            <span class="k">end do</span>
-<a name="ln-385"></a><span class="k">         end if</span>
-<a name="ln-386"></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="n">index_child</span><span class="p">)%</span><span class="n">child</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">kin</span><span class="p">(</span><span class="n">index_child</span><span class="p">)%</span><span class="n">child</span><span class="p">)</span>
-<a name="ln-387"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">index_child</span><span class="p">)%</span><span class="n">nchild</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-388"></a>         <span class="c">! Add the new child to its parent</span>
-<a name="ln-389"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">index_child</span><span class="p">)%</span><span class="n">parent</span> <span class="o">=</span> <span class="n">index_parent</span>
-<a name="ln-390"></a>         <span class="n">temp</span><span class="p">(</span><span class="n">nchild_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">index_child</span>
-<a name="ln-391"></a>         <span class="c">! Save the new child array to the parent</span>
-<a name="ln-392"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">index_parent</span><span class="p">)%</span><span class="n">nchild</span> <span class="o">=</span> <span class="n">nchild_new</span>
-<a name="ln-393"></a>         <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">from</span><span class="o">=</span><span class="n">temp</span><span class="p">,</span> <span class="n">to</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">index_parent</span><span class="p">)%</span><span class="n">child</span><span class="p">)</span>
-<a name="ln-394"></a>      <span class="k">end associate</span>
-<a name="ln-395"></a>
-<a name="ln-396"></a><span class="k">      return</span>
-<a name="ln-397"></a><span class="k">   end subroutine </span><span class="n">symba_collision_make_family_pl</span>
-<a name="ln-398"></a>
-<a name="ln-399"></a>
-<a name="ln-400"></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-401"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-402"></a>      <span class="c">!! </span>
-<a name="ln-403"></a>      <span class="c">!! Process list of collisions, determine the collisional regime, and then create fragments.</span>
-<a name="ln-404"></a>      <span class="c">!!</span>
-<a name="ln-405"></a>      <span class="k">implicit none</span>
-<a name="ln-406"></a>      <span class="c">! Arguments</span>
-<a name="ln-407"></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-408"></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-409"></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-410"></a>      <span class="c">! Internals</span>
-<a name="ln-411"></a>      <span class="c">! Internals</span>
-<a name="ln-412"></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">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</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="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">idx_parent</span>       <span class="c">!! Index of the two bodies considered the &quot;parents&quot; of the collision</span>
-<a name="ln-414"></a>      <span class="kt">real</span><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">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">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-415"></a>      <span class="kt">real</span><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">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-416"></a>      <span class="kt">logical</span>                                     <span class="kd">::</span> <span class="n">lgoodcollision</span>
-<a name="ln-417"></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">status</span><span class="p">,</span> <span class="n">jtarg</span><span class="p">,</span> <span class="n">jproj</span><span class="p">,</span> <span class="n">regime</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="mi">2</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">radius_si</span><span class="p">,</span> <span class="n">mass_si</span><span class="p">,</span> <span class="n">density_si</span>
-<a name="ln-419"></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_si</span><span class="p">,</span> <span class="n">Mcb_si</span>
-<a name="ln-420"></a>      <span class="kt">real</span><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">x1_si</span><span class="p">,</span> <span class="n">v1_si</span><span class="p">,</span> <span class="n">x2_si</span><span class="p">,</span> <span class="n">v2_si</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="kd">::</span> <span class="n">mlr</span><span class="p">,</span> <span class="n">mslr</span><span class="p">,</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">dentot</span><span class="p">,</span> <span class="n">msys</span><span class="p">,</span> <span class="n">msys_new</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">impact_parameter</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="k">parameter</span>                     <span class="kd">::</span> <span class="n">NRES</span> <span class="o">=</span> <span class="mi">3</span>   <span class="c">!! Number of collisional product results</span>
-<a name="ln-423"></a>      <span class="kt">real</span><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">NRES</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">mass_res</span>   
+<a name="ln-188"></a>         <span class="c">! Keep track of the component of potential energy due to the pre-impact colliders%idx for book-keeping</span>
+<a name="ln-189"></a>         <span class="n">pe</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-190"></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">colliders</span><span class="p">%</span><span class="n">ncoll</span>
+<a name="ln-191"></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">colliders</span><span class="p">%</span><span class="n">ncoll</span>
+<a name="ln-192"></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">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">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-193"></a>            <span class="k">end do</span>
+<a name="ln-194"></a><span class="k">         end do</span>
+<a name="ln-195"></a><span class="k">         </span><span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="n">pe</span> 
+<a name="ln-196"></a>         <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span>  <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">-</span> <span class="n">pe</span> 
+<a name="ln-197"></a>
+<a name="ln-198"></a>         <span class="c">! Update any encounter lists that have the removed bodies in them so that they instead point to the new </span>
+<a name="ln-199"></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="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</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">colliders</span><span class="p">%</span><span class="n">ncoll</span>
+<a name="ln-201"></a>               <span class="n">i</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-202"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">ibiggest</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-203"></a><span class="k">               if</span> <span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id1</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">id</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-204"></a><span class="k">                  </span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id1</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">id</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-205"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</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="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id2</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">id</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-208"></a><span class="k">                  </span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id2</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">id</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-209"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-210"></a>               <span class="k">end if</span>
+<a name="ln-211"></a><span class="k">               if</span> <span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">==</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-212"></a>            <span class="k">end do</span>
+<a name="ln-213"></a><span class="k">         end do</span>
+<a name="ln-214"></a>
+<a name="ln-215"></a><span class="k">         </span><span class="n">status</span> <span class="o">=</span> <span class="n">MERGED</span>
+<a name="ln-216"></a>         
+<a name="ln-217"></a>         <span class="k">call </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span> 
+<a name="ln-218"></a>
+<a name="ln-219"></a>      <span class="k">end select</span>
+<a name="ln-220"></a>
+<a name="ln-221"></a><span class="k">      return </span>
+<a name="ln-222"></a><span class="k">   end function </span><span class="n">symba_collision_casemerge</span>
+<a name="ln-223"></a>
+<a name="ln-224"></a>
+<a name="ln-225"></a>   <span class="k">subroutine </span><span class="n">symba_collision_collider_message</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">collidx</span><span class="p">,</span> <span class="n">collider_message</span><span class="p">)</span>
+<a name="ln-226"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-227"></a>      <span class="c">!!</span>
+<a name="ln-228"></a>      <span class="c">!! Prints a nicely formatted message about which bodies collided, including their names and ids.</span>
+<a name="ln-229"></a>      <span class="c">!! This subroutine appends the body names and ids to an input message.</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="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>            <span class="c">!! Swiftest massive body object</span>
+<a name="ln-233"></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">collidx</span>           <span class="c">!! Index of collisional colliders%idx members</span>
+<a name="ln-234"></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">collider_message</span> <span class="c">!! The message to print to the screen.</span>
+<a name="ln-235"></a>      <span class="c">! Internals</span>
+<a name="ln-236"></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">n</span>
+<a name="ln-237"></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">idstr</span>
+<a name="ln-238"></a>      
+<a name="ln-239"></a>      <span class="n">n</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">collidx</span><span class="p">)</span>
+<a name="ln-240"></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-241"></a>
+<a name="ln-242"></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">n</span>
+<a name="ln-243"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">&gt;</span> <span class="mi">1</span><span class="p">)</span> <span class="n">collider_message</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">collider_message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; and &quot;</span>
+<a name="ln-244"></a>         <span class="n">collider_message</span> <span class="o">=</span> <span class="s2">&quot; &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">collider_message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; &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">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">collidx</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">name</span><span class="p">))</span>
+<a name="ln-245"></a>         <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="s1">&#39;(I10)&#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">collidx</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-246"></a>         <span class="n">collider_message</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">collider_message</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;) &quot;</span>
+<a name="ln-247"></a>      <span class="k">end do</span>
+<a name="ln-248"></a>
+<a name="ln-249"></a><span class="k">      return</span>
+<a name="ln-250"></a><span class="k">   end subroutine </span><span class="n">symba_collision_collider_message</span>
+<a name="ln-251"></a>
+<a name="ln-252"></a>
+<a name="ln-253"></a>   <span class="k">module function </span><span class="n">symba_collision_check_encounter</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> <span class="k">result</span><span class="p">(</span><span class="n">lany_collision</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">!! Check for merger between massive bodies and test particles in SyMBA</span>
+<a name="ln-257"></a>      <span class="c">!! </span>
+<a name="ln-258"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_merge.f90 and symba_merge_tp.f90</span>
+<a name="ln-259"></a>      <span class="c">!!</span>
+<a name="ln-260"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_merge.f</span>
+<a name="ln-261"></a>      <span class="k">implicit none</span>
+<a name="ln-262"></a>      <span class="c">! Arguments</span>
+<a name="ln-263"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-tp encounter list object</span>
+<a name="ln-264"></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-265"></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-266"></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-267"></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-268"></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-269"></a>      <span class="c">! Result</span>
+<a name="ln-270"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">lany_collision</span> <span class="c">!! Returns true if cany pair of encounters resulted in a collision </span>
+<a name="ln-271"></a>      <span class="c">! Internals</span>
+<a name="ln-272"></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-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">xr</span><span class="p">,</span> <span class="n">vr</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">,</span> <span class="n">nenc</span>
+<a name="ln-275"></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-276"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">isplpl</span>
+<a name="ln-277"></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">timestr</span><span class="p">,</span> <span class="n">idstri</span><span class="p">,</span> <span class="n">idstrj</span><span class="p">,</span> <span class="n">message</span>
+<a name="ln-278"></a>       
+<a name="ln-279"></a>
+<a name="ln-280"></a>      <span class="n">lany_collision</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-281"></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>
+<a name="ln-282"></a>
+<a name="ln-283"></a><span class="k">      select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-284"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
+<a name="ln-285"></a>         <span class="n">isplpl</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">class </span><span class="n">default</span>
+<a name="ln-287"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-288"></a>      <span class="k">end select</span>
+<a name="ln-289"></a>
+<a name="ln-290"></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-291"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-292"></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-293"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-294"></a>            <span class="n">nenc</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-295"></a>            <span class="n">nenc</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-296"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">lmask</span><span class="p">(</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-297"></a>            <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</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">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</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">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irec</span><span class="p">))</span>
+<a name="ln-298"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-299"></a><span class="k">               </span><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">and</span><span class="p">.</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">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irec</span><span class="p">)</span>
+<a name="ln-300"></a>            <span class="k">else</span>
+<a name="ln-301"></a><span class="k">               </span><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">and</span><span class="p">.</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">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irec</span><span class="p">)</span>
+<a name="ln-302"></a>            <span class="k">end if</span>
+<a name="ln-303"></a><span class="k">            if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">any</span><span class="p">(</span><span class="n">lmask</span><span class="p">(:)))</span> <span class="k">return</span>
+<a name="ln-304"></a>
+<a name="ln-305"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">lcollision</span><span class="p">(</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-306"></a>            <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-307"></a>
+<a name="ln-308"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-309"></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>
+<a name="ln-310"></a>                  <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-311"></a>                  <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-312"></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">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-313"></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">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">j</span><span class="p">)</span>
+<a name="ln-314"></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">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">j</span><span class="p">)</span>
+<a name="ln-315"></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">i</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">j</span><span class="p">)</span>
+<a name="ln-316"></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-317"></a>               <span class="k">end do</span>
+<a name="ln-318"></a><span class="k">            else</span>
+<a name="ln-319"></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>
+<a name="ln-320"></a>                  <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-321"></a>                  <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-322"></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">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">j</span><span class="p">)</span> 
+<a name="ln-323"></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">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">j</span><span class="p">)</span>
+<a name="ln-324"></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">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> <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-325"></a>               <span class="k">end do</span>
+<a name="ln-326"></a><span class="k">            end if</span>
+<a name="ln-327"></a>
+<a name="ln-328"></a><span class="k">            if</span> <span class="p">(</span><span class="nb">any</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">nenc</span><span class="p">)))</span> <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xh2xb</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> <span class="c">! Update the central body barycenteric position vector to get us out of DH and into bary</span>
+<a name="ln-329"></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">nenc</span>
+<a name="ln-330"></a>               <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-331"></a>               <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-332"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lcollision</span><span class="p">(</span><span class="n">k</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">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">COLLISION</span>
+<a name="ln-333"></a>               <span class="n">self</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">t</span>
+<a name="ln-334"></a>               <span class="n">self</span><span class="p">%</span><span class="n">x1</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">i</span><span class="p">)</span> <span class="o">+</span> <span class="nb">system</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-335"></a>               <span class="n">self</span><span class="p">%</span><span class="n">v1</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">i</span><span class="p">)</span> 
+<a name="ln-336"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-337"></a><span class="k">                  </span><span class="n">self</span><span class="p">%</span><span class="n">x2</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">j</span><span class="p">)</span> <span class="o">+</span> <span class="nb">system</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-338"></a>                  <span class="n">self</span><span class="p">%</span><span class="n">v2</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">j</span><span class="p">)</span> 
+<a name="ln-339"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lcollision</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-340"></a>                     <span class="c">! Check to see if either of these bodies has been involved with a collision before, and if so, make this a collisional colliders%idx</span>
+<a name="ln-341"></a>                     <span class="k">if</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">i</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">lcollision</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">make_colliders</span><span class="p">([</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">])</span>
+<a name="ln-342"></a>
+<a name="ln-343"></a>                     <span class="c">! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step</span>
+<a name="ln-344"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">([</span><span class="n">i</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-345"></a>                     <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="n">j</span><span class="p">])</span> <span class="o">=</span> <span class="n">COLLISION</span>
+<a name="ln-346"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;COLLISION&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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-347"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;COLLISION&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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> <span class="n">discard_vh</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-348"></a>                  <span class="k">end if</span>
+<a name="ln-349"></a><span class="k">               else</span>
+<a name="ln-350"></a><span class="k">                  </span><span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</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">j</span><span class="p">)</span> <span class="o">+</span> <span class="nb">system</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-351"></a>                  <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</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">j</span><span class="p">)</span> 
+<a name="ln-352"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lcollision</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-353"></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">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_PLR</span>
+<a name="ln-354"></a>                     <span class="n">tp</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-355"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstri</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-356"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstrj</span><span class="p">,</span> <span class="o">*</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">j</span><span class="p">)</span>
+<a name="ln-357"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">timestr</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-358"></a>                     <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_PLR&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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">j</span><span class="p">),</span> <span class="n">discard_vh</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">j</span><span class="p">))</span>
+<a name="ln-359"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">message</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &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">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstrj</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="p">&amp;</span>
+<a name="ln-360"></a>                             <span class="o">//</span>  <span class="s2">&quot; collided with massive body &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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstri</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="p">&amp;</span>
+<a name="ln-361"></a>                             <span class="o">//</span>  <span class="s2">&quot; at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-362"></a>                     <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-363"></a>                  <span class="k">end if</span>
+<a name="ln-364"></a><span class="k">               end if</span>
+<a name="ln-365"></a><span class="k">            end do</span>
+<a name="ln-366"></a><span class="k">         end select</span>
+<a name="ln-367"></a><span class="k">      end select</span>
+<a name="ln-368"></a>
+<a name="ln-369"></a><span class="k">      </span><span class="n">lany_collision</span> <span class="o">=</span> <span class="nb">any</span><span class="p">(</span><span class="n">lcollision</span><span class="p">(:))</span>
+<a name="ln-370"></a>
+<a name="ln-371"></a>      <span class="c">! Extract the pl-pl encounter list and return the plplcollision_list</span>
+<a name="ln-372"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lany_collision</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-373"></a><span class="k">         select type</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>
+<a name="ln-374"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
+<a name="ln-375"></a>            <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">extract_collisions</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-376"></a>         <span class="k">end select</span>
+<a name="ln-377"></a><span class="k">      end if</span>
+<a name="ln-378"></a>
+<a name="ln-379"></a><span class="k">      return </span>
+<a name="ln-380"></a><span class="k">   end function </span><span class="n">symba_collision_check_encounter</span>
+<a name="ln-381"></a>
+<a name="ln-382"></a>
+<a name="ln-383"></a>   <span class="k">pure elemental function </span><span class="n">symba_collision_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">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">lvdotr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lcollision</span><span class="p">)</span>
+<a name="ln-384"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-385"></a>      <span class="c">!! </span>
+<a name="ln-386"></a>      <span class="c">!! Check for a merger between a single pair of particles</span>
+<a name="ln-387"></a>      <span class="c">!!</span>
+<a name="ln-388"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routines symba_merge_tp.f90 and symba_merge_pl.f90</span>
+<a name="ln-389"></a>      <span class="c">!!</span>
+<a name="ln-390"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_merge.f</span>
+<a name="ln-391"></a>      <span class="k">implicit none</span>
+<a name="ln-392"></a>      <span class="c">! Arguments</span>
+<a name="ln-393"></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">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span>    <span class="c">!! Relative position vector components</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">vxr</span><span class="p">,</span> <span class="n">vyr</span><span class="p">,</span> <span class="n">vzr</span> <span class="c">!! Relative velocity vector components</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">Gmtot</span>         <span class="c">!! Sum of G*mass of colliding bodies</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">rlim</span>          <span class="c">!! Collision limit - Typically the sum of the radii of colliding bodies</span>
+<a name="ln-397"></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-398"></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">lvdotr</span>        <span class="c">!! Logical flag indicating that these two bodies are approaching in the current substep</span>
+<a name="ln-399"></a>      <span class="c">! Result</span>
+<a name="ln-400"></a>      <span class="kt">logical</span>              <span class="kd">::</span> <span class="n">lcollision</span>    <span class="c">!! Logical flag indicating whether these two bodies will collide or not</span>
+<a name="ln-401"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">rlim2</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> <span class="n">vdotr</span><span class="p">,</span> <span class="n">tcr2</span><span class="p">,</span> <span class="n">dt2</span>
+<a name="ln-403"></a>
+<a name="ln-404"></a>      <span class="n">r2</span> <span class="o">=</span> <span class="n">xr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">yr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">zr</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-405"></a>      <span class="n">rlim2</span> <span class="o">=</span> <span class="n">rlim</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-406"></a>   
+<a name="ln-407"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;=</span> <span class="n">rlim2</span><span class="p">)</span> <span class="k">then</span> <span class="c">! checks if bodies are actively colliding in this time step</span>
+<a name="ln-408"></a>         <span class="n">lcollision</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-409"></a>      <span class="k">else</span> <span class="c">! 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 </span>
+<a name="ln-410"></a>         <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-411"></a>         <span class="n">vdotr</span> <span class="o">=</span> <span class="n">xr</span> <span class="o">*</span> <span class="n">vxr</span> <span class="o">+</span> <span class="n">yr</span> <span class="o">*</span> <span class="n">vyr</span> <span class="o">+</span> <span class="n">zr</span> <span class="o">*</span> <span class="n">vzr</span>
+<a name="ln-412"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lvdotr</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</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-413"></a><span class="k">            </span><span class="n">tcr2</span> <span class="o">=</span> <span class="n">r2</span> <span class="o">/</span> <span class="p">(</span><span class="n">vxr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vyr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vzr</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-414"></a>            <span class="n">dt2</span> <span class="o">=</span> <span class="n">dt</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-415"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tcr2</span> <span class="o">&lt;=</span> <span class="n">dt2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-416"></a><span class="k">               call </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="n">Gmtot</span><span class="p">,</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="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">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-417"></a>               <span class="n">lcollision</span> <span class="o">=</span> <span class="p">(</span><span class="n">q</span> <span class="o">&lt;</span> <span class="n">rlim</span><span class="p">)</span> 
+<a name="ln-418"></a>            <span class="k">end if</span>
+<a name="ln-419"></a><span class="k">         end if</span>
+<a name="ln-420"></a><span class="k">      end if</span>
+<a name="ln-421"></a>
+<a name="ln-422"></a><span class="k">      return</span>
+<a name="ln-423"></a><span class="k">   end function </span><span class="n">symba_collision_check_one</span>
 <a name="ln-424"></a>
-<a name="ln-425"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">plpl_collisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ncollisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">idx1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">idx2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</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-426"></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-427"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-428"></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">ncollisions</span>
-<a name="ln-429"></a>               <span class="n">idx_parent</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">kin</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
-<a name="ln-430"></a>               <span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">)</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">idx2</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
-<a name="ln-431"></a>               <span class="n">lgoodcollision</span> <span class="o">=</span> <span class="n">symba_collision_consolidate_familes</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">idx_parent</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>
-<a name="ln-432"></a>               <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lgoodcollision</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-433"></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">status</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))</span> <span class="o">/=</span> <span class="n">COLLISION</span><span class="p">))</span> <span class="k">cycle</span> <span class="c">! One of these two bodies has already been resolved</span>
-<a name="ln-434"></a>
-<a name="ln-435"></a>               <span class="c">! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them </span>
-<a name="ln-436"></a>               <span class="c">! to symba_regime</span>
-<a name="ln-437"></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-438"></a><span class="k">                  </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-439"></a>                  <span class="n">jproj</span> <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-440"></a>               <span class="k">else</span>
-<a name="ln-441"></a><span class="k">                  </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-442"></a>                  <span class="n">jproj</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-443"></a>               <span class="k">end if</span>
-<a name="ln-444"></a><span class="k">               </span><span class="n">mass_si</span><span class="p">(:)</span>    <span class="o">=</span> <span class="p">(</span><span class="n">mass</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="c">!! The collective mass of the parent and its children</span>
-<a name="ln-445"></a>               <span class="n">radius_si</span><span class="p">(:)</span>  <span class="o">=</span> <span class="n">radius</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="c">!! The collective radius of the parent and its children</span>
-<a name="ln-446"></a>               <span class="n">x1_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">plpl_collisions</span><span class="p">%</span><span class="n">x1</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="c">!! The position of the parent from inside the step (at collision)</span>
-<a name="ln-447"></a>               <span class="n">v1_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">plpl_collisions</span><span class="p">%</span><span class="n">v1</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-448"></a>               <span class="n">x2_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">plpl_collisions</span><span class="p">%</span><span class="n">x2</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="c">!! The position of the parent from inside the step (at collision)</span>
-<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">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>         
-<a name="ln-456"></a>               <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass_si</span><span class="p">(:))</span> 
-<a name="ln-457"></a>               <span class="n">dentot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass_si</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">density_si</span><span class="p">(:))</span> <span class="o">/</span> <span class="n">mtot</span> 
-<a name="ln-458"></a>
-<a name="ln-459"></a>               <span class="c">!! Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime</span>
-<a name="ln-460"></a>               <span class="k">call </span><span class="n">fragmentation_regime</span><span class="p">(</span><span class="n">Mcb_si</span><span class="p">,</span> <span class="n">mass_si</span><span class="p">(</span><span class="n">jtarg</span><span class="p">),</span> <span class="n">mass_si</span><span class="p">(</span><span class="n">jproj</span><span class="p">),</span> <span class="n">radius_si</span><span class="p">(</span><span class="n">jtarg</span><span class="p">),</span> <span class="n">radius_si</span><span class="p">(</span><span class="n">jproj</span><span class="p">),</span> <span class="n">x1_si</span><span class="p">(:),</span> <span class="n">x2_si</span><span class="p">(:),&amp;</span> 
-<a name="ln-461"></a>                     <span class="n">v1_si</span><span class="p">(:),</span> <span class="n">v2_si</span><span class="p">(:),</span> <span class="n">density_si</span><span class="p">(</span><span class="n">jtarg</span><span class="p">),</span> <span class="n">density_si</span><span class="p">(</span><span class="n">jproj</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_si</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>
-<a name="ln-462"></a>
-<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> 
-<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-425"></a>
+<a name="ln-426"></a>   <span class="k">function </span><span class="n">symba_collision_consolidate_colliders</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">cb</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">idx_parent</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lflag</span><span class="p">)</span>
+<a name="ln-427"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-428"></a>      <span class="c">!! </span>
+<a name="ln-429"></a>      <span class="c">!! Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx members, </span>
+<a name="ln-430"></a>      <span class="c">!! and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome.</span>
+<a name="ln-431"></a>      <span class="k">implicit none</span>
+<a name="ln-432"></a>      <span class="c">! Arguments</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">pl</span>               <span class="c">!! SyMBA massive body object</span>
+<a name="ln-434"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA central body object</span>
+<a name="ln-435"></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-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="mi">2</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">idx_parent</span>       <span class="c">!! Index of the two bodies considered the &quot;parents&quot; of the collision</span>
+<a name="ln-437"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</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">colliders</span>
+<a name="ln-438"></a>      <span class="c">! Result</span>
+<a name="ln-439"></a>      <span class="kt">logical</span>                                                        <span class="kd">::</span> <span class="n">lflag</span>            <span class="c">!! Logical flag indicating whether a colliders%idx was successfully created or not</span>
+<a name="ln-440"></a>      <span class="c">! Internals</span>
+<a name="ln-441"></a>      <span class="k">type </span><span class="n">collidx_array</span>
+<a name="ln-442"></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>
+<a name="ln-443"></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-444"></a>      <span class="k">end type </span><span class="n">collidx_array</span>
+<a name="ln-445"></a>      <span class="k">type</span><span class="p">(</span><span class="n">collidx_array</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">parent_child_index_array</span>
+<a name="ln-446"></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="kd">::</span> <span class="n">nchild</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">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ncolliders</span><span class="p">,</span> <span class="n">idx_child</span>
+<a name="ln-448"></a>      <span class="kt">real</span><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">volume</span><span class="p">,</span> <span class="n">density</span>
+<a name="ln-449"></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">mchild</span><span class="p">,</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">volchild</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">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">xcom</span><span class="p">,</span> <span class="n">vcom</span><span class="p">,</span> <span class="n">xchild</span><span class="p">,</span> <span class="n">vchild</span><span class="p">,</span> <span class="n">xcrossv</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="n">NDIM</span><span class="p">,</span><span class="mi">2</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">mxc</span><span class="p">,</span> <span class="n">vcc</span>
+<a name="ln-452"></a>
+<a name="ln-453"></a>      <span class="n">nchild</span><span class="p">(:)</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_parent</span><span class="p">(:))%</span><span class="n">nchild</span> 
+<a name="ln-454"></a>      <span class="c">! If all of these bodies share a parent, but this is still a unique collision, move the last child</span>
+<a name="ln-455"></a>      <span class="c">! out of the parent&#39;s position and make it the secondary body</span>
+<a name="ln-456"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">==</span> <span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-457"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span> <span class="c">! 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)</span>
+<a name="ln-458"></a>            <span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
+<a name="ln-459"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">reset_kinship</span><span class="p">([</span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">)])</span>
+<a name="ln-460"></a>            <span class="k">return</span>
+<a name="ln-461"></a><span class="k">         end if</span>
+<a name="ln-462"></a><span class="k">         </span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">)</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_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">))%</span><span class="n">child</span><span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-463"></a>         <span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">nchild</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-464"></a>         <span class="n">nchild</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-465"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))%</span><span class="n">nchild</span> <span class="o">=</span> <span class="n">nchild</span><span class="p">(:)</span>
+<a name="ln-466"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">))%</span><span class="n">parent</span> <span class="o">=</span> <span class="n">idx_parent</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-467"></a>      <span class="k">end if</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>
-<a name="ln-471"></a>                  <span class="n">status</span> <span class="o">=</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>
-<a name="ln-472"></a>               <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span><span class="p">)</span>
-<a name="ln-473"></a>                  <span class="n">status</span> <span class="o">=</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>
-<a name="ln-474"></a>               <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span><span class="p">)</span>
-<a name="ln-475"></a>                  <span class="n">status</span> <span class="o">=</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>
-<a name="ln-476"></a>               <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_MERGE</span><span class="p">,</span> <span class="n">COLLRESOLVE_REGIME_GRAZE_AND_MERGE</span><span class="p">)</span>
-<a name="ln-477"></a>                  <span class="n">status</span> <span class="o">=</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> 
-<a name="ln-478"></a>               <span class="k">case </span><span class="n">default</span> 
-<a name="ln-479"></a>                  <span class="k">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 in symba_collision, unrecognized collision regime&quot;</span>
-<a name="ln-480"></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-481"></a>               <span class="k">end select</span>
-<a name="ln-482"></a><span class="k">            end do</span>
-<a name="ln-483"></a><span class="k">         end select</span>
-<a name="ln-484"></a><span class="k">      end associate</span>
-<a name="ln-485"></a>
-<a name="ln-486"></a><span class="k">      return</span>
-<a name="ln-487"></a><span class="k">   end subroutine </span><span class="n">symba_collision_resolve_fragmentations</span>
-<a name="ln-488"></a>
-<a name="ln-489"></a>
-<a name="ln-490"></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-491"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-492"></a>      <span class="c">!! </span>
-<a name="ln-493"></a>      <span class="c">!! Process list of collisions and merge colliding bodies together.</span>
-<a name="ln-494"></a>      <span class="c">!!</span>
-<a name="ln-495"></a>      <span class="k">implicit none</span>
-<a name="ln-496"></a>      <span class="c">! Arguments</span>
-<a name="ln-497"></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-498"></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-499"></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-500"></a>      <span class="c">! Internals</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">dimension</span><span class="p">(:),</span>     <span class="k">allocatable</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-502"></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="kd">::</span> <span class="n">idx_parent</span>       <span class="c">!! Index of the two bodies considered the &quot;parents&quot; of the collision</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">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">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">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-504"></a>      <span class="kt">real</span><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">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-505"></a>      <span class="kt">logical</span>                                     <span class="kd">::</span> <span class="n">lgoodcollision</span>
-<a name="ln-506"></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">status</span>
+<a name="ln-469"></a><span class="k">      </span><span class="n">colliders</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">mass</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))</span> <span class="c">! Note: This is meant to mass, not G*mass, as the collisional regime determination uses mass values that will be converted to Si</span>
+<a name="ln-470"></a>      <span class="n">colliders</span><span class="p">%</span><span class="n">radius</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">idx_parent</span><span class="p">(:))</span>
+<a name="ln-471"></a>      <span class="n">volume</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.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-472"></a> 
+<a name="ln-473"></a>      <span class="c">! Group together the ids and indexes of each collisional parent and its children</span>
+<a name="ln-474"></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="mi">2</span>
+<a name="ln-475"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">idx</span><span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">)</span><span class="o">+</span> <span class="mi">1</span><span class="p">))</span>
+<a name="ln-476"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">id</span><span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">)</span><span class="o">+</span> <span class="mi">1</span><span class="p">))</span>
+<a name="ln-477"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">idx_arr</span> <span class="o">=&gt;</span> <span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">idx</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-478"></a>                   <span class="n">id_arr</span> <span class="o">=&gt;</span> <span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">id</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-479"></a>                   <span class="n">ncj</span> <span class="o">=&gt;</span> <span class="n">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">),</span> <span class="p">&amp;</span>
+<a name="ln-480"></a>                   <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-481"></a>                   <span class="n">plkinj</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">)))</span>
+<a name="ln-482"></a>            <span class="n">idx_arr</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-483"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">ncj</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">idx_arr</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">ncj</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">plkinj</span><span class="p">%</span><span class="n">child</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ncj</span><span class="p">)</span>
+<a name="ln-484"></a>            <span class="n">id_arr</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">idx_arr</span><span class="p">(:))</span>
+<a name="ln-485"></a>         <span class="k">end associate</span>
+<a name="ln-486"></a><span class="k">      end do</span>
+<a name="ln-487"></a>
+<a name="ln-488"></a>      <span class="c">! Consolidate the groups of collsional parents with any children they may have into a single &quot;colliders%idx&quot; index array</span>
+<a name="ln-489"></a>      <span class="n">ncolliders</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">nchild</span><span class="p">(:))</span>
+<a name="ln-490"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">ncolliders</span><span class="p">))</span>
+<a name="ln-491"></a>      <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span> <span class="o">=</span> <span class="p">[</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="mi">1</span><span class="p">)%</span><span class="n">idx</span><span class="p">(:),</span><span class="n">parent_child_index_array</span><span class="p">(</span><span class="mi">2</span><span class="p">)%</span><span class="n">idx</span><span class="p">(:)]</span>
+<a name="ln-492"></a>
+<a name="ln-493"></a>      <span class="n">colliders</span><span class="p">%</span><span class="n">ncoll</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">lcollision</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(:)))</span>
+<a name="ln-494"></a>      <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">colliders</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">lcollision</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(:)))</span>
+<a name="ln-495"></a>      <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-496"></a>      <span class="n">colliders</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-497"></a>
+<a name="ln-498"></a>      <span class="c">! Find the barycenter of each body along with its children, if it has any</span>
+<a name="ln-499"></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="mi">2</span>
+<a name="ln-500"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">j</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">idx_parent</span><span class="p">(</span><span class="n">j</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-501"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">j</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">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-502"></a>         <span class="c">! Assume principal axis rotation about axis corresponding to highest moment of inertia (3rd Ip)</span>
+<a name="ln-503"></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-504"></a><span class="k">            </span><span class="n">colliders</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-505"></a>            <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">colliders</span><span class="p">%</span><span class="n">radius</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="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span> <span class="n">idx_parent</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-506"></a>         <span class="k">end if</span>
 <a name="ln-507"></a>
-<a name="ln-508"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">plpl_collisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ncollisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">idx1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">idx2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span>
-<a name="ln-509"></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-510"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-511"></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">ncollisions</span>
-<a name="ln-512"></a>               <span class="n">idx_parent</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">kin</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
-<a name="ln-513"></a>               <span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">)</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">idx2</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
-<a name="ln-514"></a>               <span class="n">lgoodcollision</span> <span class="o">=</span> <span class="n">symba_collision_consolidate_familes</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">idx_parent</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>
-<a name="ln-515"></a>               <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lgoodcollision</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-516"></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">status</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))</span> <span class="o">/=</span> <span class="n">COLLISION</span><span class="p">))</span> <span class="k">cycle</span> <span class="c">! One of these two bodies has already been resolved</span>
-<a name="ln-517"></a>               <span class="n">status</span> <span class="o">=</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> 
-<a name="ln-518"></a>            <span class="k">end do</span>
-<a name="ln-519"></a><span class="k">         end select</span>
-<a name="ln-520"></a><span class="k">      end associate</span>
-<a name="ln-521"></a>
-<a name="ln-522"></a><span class="k">      return</span>
-<a name="ln-523"></a><span class="k">   end subroutine </span><span class="n">symba_collision_resolve_mergers</span>
-<a name="ln-524"></a>
-<a name="ln-525"></a><span class="k">end submodule </span><span class="n">s_symba_collision</span>
+<a name="ln-508"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nchild</span><span class="p">(</span><span class="n">j</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-509"></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">nchild</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="c">! Loop over all children and take the mass weighted mean of the properties</span>
+<a name="ln-510"></a>               <span class="n">idx_child</span> <span class="o">=</span> <span class="n">parent_child_index_array</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-511"></a>               <span class="k">if</span> <span class="p">(.</span><span class="nb">not</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">idx_child</span><span class="p">))</span> <span class="k">cycle</span>
+<a name="ln-512"></a><span class="k">               </span><span class="n">mchild</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">idx_child</span><span class="p">)</span>
+<a name="ln-513"></a>               <span class="n">xchild</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">idx_child</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-514"></a>               <span class="n">vchild</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">idx_child</span><span class="p">)</span>
+<a name="ln-515"></a>               <span class="n">volchild</span> <span class="o">=</span> <span class="p">(</span><span class="mf">4.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">PI</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">idx_child</span><span class="p">)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-516"></a>               <span class="n">volume</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">volume</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">volchild</span>
+<a name="ln-517"></a>               <span class="c">! Get angular momentum of the child-parent pair and add that to the spin</span>
+<a name="ln-518"></a>               <span class="c">! Add the child&#39;s spin</span>
+<a name="ln-519"></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-520"></a><span class="k">                  </span><span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span> <span class="o">*</span> <span class="n">xchild</span><span class="p">(:))</span> <span class="o">/</span> <span class="p">(</span><span class="n">colliders</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="n">mchild</span><span class="p">)</span>
+<a name="ln-521"></a>                  <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span> <span class="o">*</span> <span class="n">vchild</span><span class="p">(:))</span> <span class="o">/</span> <span class="p">(</span><span class="n">colliders</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="n">mchild</span><span class="p">)</span>
+<a name="ln-522"></a>                  <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span>
+<a name="ln-523"></a>                  <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-524"></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-525"></a>                  <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">colliders</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="n">xcrossv</span><span class="p">(:)</span>
+<a name="ln-526"></a>   
+<a name="ln-527"></a>                  <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xchild</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span>
+<a name="ln-528"></a>                  <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vchild</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-529"></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-530"></a>                  <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</span> <span class="o">*</span> <span class="n">xcrossv</span><span class="p">(:)</span>
+<a name="ln-531"></a>
+<a name="ln-532"></a>                  <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">L_spin</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</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">idx_child</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">idx_child</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="n">idx_child</span><span class="p">)</span>
+<a name="ln-533"></a>                  <span class="n">colliders</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">mchild</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="n">idx_child</span><span class="p">)</span>
+<a name="ln-534"></a>               <span class="k">end if</span>
+<a name="ln-535"></a>
+<a name="ln-536"></a>               <span class="c">! Merge the child and parent</span>
+<a name="ln-537"></a>               <span class="n">colliders</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="n">colliders</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="n">mchild</span>
+<a name="ln-538"></a>               <span class="n">colliders</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span>
+<a name="ln-539"></a>               <span class="n">colliders</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-540"></a>            <span class="k">end do</span>
+<a name="ln-541"></a><span class="k">         end if</span>
+<a name="ln-542"></a><span class="k">         </span><span class="n">density</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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="n">volume</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-543"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">j</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</span><span class="p">(</span><span class="n">j</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>
+<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">lrotation</span><span class="p">)</span> <span class="n">colliders</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">/</span> <span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-545"></a>
+<a name="ln-546"></a>         <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-547"></a>         <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-548"></a>         <span class="n">mxc</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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="p">(</span><span class="n">colliders</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-549"></a>         <span class="n">mxc</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</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="p">(</span><span class="n">colliders</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="o">-</span> <span class="n">xcom</span><span class="p">(:))</span>
+<a name="ln-550"></a>         <span class="n">vcc</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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-551"></a>         <span class="n">vcc</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">colliders</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="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-552"></a>         <span class="n">colliders</span><span class="p">%</span><span class="n">L_orbit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">mxc</span><span class="p">(:,:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vcc</span><span class="p">(:,:)</span>
+<a name="ln-553"></a>      <span class="k">end do</span>
+<a name="ln-554"></a><span class="k">      </span><span class="n">lflag</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-555"></a>
+<a name="ln-556"></a>      <span class="c">! Destroy the kinship relationships for all members of this colliders%idx</span>
+<a name="ln-557"></a>      <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">reset_kinship</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(:))</span>
+<a name="ln-558"></a>
+<a name="ln-559"></a>      <span class="k">return</span>
+<a name="ln-560"></a><span class="k">   end function </span><span class="n">symba_collision_consolidate_colliders</span>
+<a name="ln-561"></a>
+<a name="ln-562"></a>
+<a name="ln-563"></a>   <span class="k">module subroutine </span><span class="n">symba_collision_encounter_extract_collisions</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-564"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-565"></a>      <span class="c">!! </span>
+<a name="ln-566"></a>      <span class="c">!! Processes the pl-pl encounter list remove only those encounters that led to a collision</span>
+<a name="ln-567"></a>      <span class="c">!!</span>
+<a name="ln-568"></a>      <span class="k">implicit none</span>
+<a name="ln-569"></a>      <span class="c">! Arguments</span>
+<a name="ln-570"></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-571"></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-572"></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-573"></a>      <span class="c">! Internals</span>
+<a name="ln-574"></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">lplpl_collision</span>
+<a name="ln-575"></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">lplpl_unique_parent</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">dimension</span><span class="p">(:),</span> <span class="k">pointer</span>     <span class="kd">::</span> <span class="n">plparent</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">collision_idx</span><span class="p">,</span> <span class="n">unique_parent_idx</span>
+<a name="ln-578"></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">index_coll</span><span class="p">,</span> <span class="n">ncollisions</span><span class="p">,</span> <span class="n">nunique_parent</span><span class="p">,</span> <span class="n">nplplenc</span>
+<a name="ln-579"></a>
+<a name="ln-580"></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-581"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-582"></a>         <span class="k">associate</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">idx1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">idx2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">,</span> <span class="n">plparent</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">%</span><span class="n">parent</span><span class="p">)</span>
+<a name="ln-583"></a>            <span class="n">nplplenc</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-584"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">lplpl_collision</span><span class="p">(</span><span class="n">nplplenc</span><span class="p">))</span>
+<a name="ln-585"></a>            <span class="n">lplpl_collision</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plplenc_list</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">nplplenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">COLLISION</span>
+<a name="ln-586"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">any</span><span class="p">(</span><span class="n">lplpl_collision</span><span class="p">))</span> <span class="k">return</span> 
+<a name="ln-587"></a>            <span class="c">! Collisions have been detected in this step. So we need to determine which of them are between unique bodies.</span>
+<a name="ln-588"></a>
+<a name="ln-589"></a>            <span class="c">! Get the subset of pl-pl encounters that lead to a collision</span>
+<a name="ln-590"></a>            <span class="n">ncollisions</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lplpl_collision</span><span class="p">(:))</span>
+<a name="ln-591"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(</span><span class="n">ncollisions</span><span class="p">))</span>
+<a name="ln-592"></a>            <span class="n">collision_idx</span> <span class="o">=</span> <span class="nb">pack</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">nplplenc</span><span class="p">)],</span> <span class="n">lplpl_collision</span><span class="p">)</span>
+<a name="ln-593"></a>
+<a name="ln-594"></a>            <span class="c">! Get the subset of collisions that involve a unique pair of parents</span>
+<a name="ln-595"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">lplpl_unique_parent</span><span class="p">(</span><span class="n">ncollisions</span><span class="p">))</span>
+<a name="ln-596"></a>
+<a name="ln-597"></a>            <span class="n">lplpl_unique_parent</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:)))</span> <span class="o">/=</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:)))</span>
+<a name="ln-598"></a>            <span class="n">nunique_parent</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lplpl_unique_parent</span><span class="p">(:))</span>
+<a name="ln-599"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(</span><span class="n">nunique_parent</span><span class="p">))</span>
+<a name="ln-600"></a>            <span class="n">unique_parent_idx</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:),</span> <span class="n">lplpl_unique_parent</span><span class="p">(:))</span>
+<a name="ln-601"></a>
+<a name="ln-602"></a>            <span class="c">! Scrub all pl-pl collisions involving unique pairs of parents, which will remove all duplicates and leave behind</span>
+<a name="ln-603"></a>            <span class="c">! all pairs that have themselves as parents but are not part of the unique parent list. This can hapepn in rare cases</span>
+<a name="ln-604"></a>            <span class="c">! due to restructuring of parent/child relationships when there are large numbers of multi-body collisions in a single</span>
+<a name="ln-605"></a>            <span class="c">! step</span>
+<a name="ln-606"></a>            <span class="n">lplpl_unique_parent</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-607"></a>            <span class="k">do </span><span class="n">index_coll</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ncollisions</span>
+<a name="ln-608"></a>               <span class="k">associate</span><span class="p">(</span><span class="n">ip1</span> <span class="o">=&gt;</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(</span><span class="n">index_coll</span><span class="p">))),</span> <span class="n">ip2</span> <span class="o">=&gt;</span> <span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(</span><span class="n">index_coll</span><span class="p">))))</span>
+<a name="ln-609"></a>                  <span class="n">lplpl_unique_parent</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="p">(</span> <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip1</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-610"></a>                                                   <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip1</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-611"></a>                                                   <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip2</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-612"></a>                                                   <span class="nb">any</span><span class="p">(</span><span class="n">plparent</span><span class="p">(</span><span class="n">idx2</span><span class="p">(</span><span class="n">unique_parent_idx</span><span class="p">(:)))</span> <span class="o">==</span> <span class="n">ip2</span><span class="p">)</span> <span class="p">)</span>
+<a name="ln-613"></a>               <span class="k">end associate</span>
+<a name="ln-614"></a><span class="k">            end do</span>
+<a name="ln-615"></a>
+<a name="ln-616"></a>            <span class="c">! Reassemble collision index list to include only those containing the unique pairs of parents, plus all the non-unique pairs that don&#39;t</span>
+<a name="ln-617"></a>            <span class="c">! contain a parent body on the unique parent list.</span>
+<a name="ln-618"></a>            <span class="n">ncollisions</span> <span class="o">=</span> <span class="n">nunique_parent</span> <span class="o">+</span> <span class="nb">count</span><span class="p">(</span><span class="n">lplpl_unique_parent</span><span class="p">)</span>
+<a name="ln-619"></a>            <span class="n">collision_idx</span> <span class="o">=</span> <span class="p">[</span><span class="n">unique_parent_idx</span><span class="p">(:),</span> <span class="nb">pack</span><span class="p">(</span><span class="n">collision_idx</span><span class="p">(:),</span> <span class="n">lplpl_unique_parent</span><span class="p">(:))]</span>
+<a name="ln-620"></a>
+<a name="ln-621"></a>            <span class="c">! Create a mask that contains only the pl-pl encounters that did not result in a collision, and then discard them</span>
+<a name="ln-622"></a>            <span class="n">lplpl_collision</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-623"></a>            <span class="n">lplpl_collision</span><span class="p">(</span><span class="n">collision_idx</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-624"></a>            <span class="k">call </span><span class="n">plplenc_list</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">plplcollision_list</span><span class="p">,</span> <span class="n">lplpl_collision</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> <span class="c">! Extract any encounters that are not collisions from the list.</span>
+<a name="ln-625"></a>         <span class="k">end associate</span>
+<a name="ln-626"></a><span class="k">      end select</span>
+<a name="ln-627"></a>
+<a name="ln-628"></a><span class="k">      return</span>
+<a name="ln-629"></a><span class="k">   end subroutine </span><span class="n">symba_collision_encounter_extract_collisions</span>
+<a name="ln-630"></a>
+<a name="ln-631"></a>
+<a name="ln-632"></a>   <span class="k">module subroutine </span><span class="n">symba_collision_make_colliders_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-633"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton</span>
+<a name="ln-634"></a>      <span class="c">!!</span>
+<a name="ln-635"></a>      <span class="c">!! When a single body is involved in more than one collision in a single step, it becomes part of a colliders%idx.</span>
+<a name="ln-636"></a>      <span class="c">!! The largest body involved in a multi-body collision is the &quot;parent&quot; and all bodies that collide with it are its &quot;children,&quot;</span>
+<a name="ln-637"></a>      <span class="c">!! including those that collide with the children.</span>
+<a name="ln-638"></a>      <span class="c">!! </span>
+<a name="ln-639"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_merge_pl.f90</span>
+<a name="ln-640"></a>      <span class="c">!!</span>
+<a name="ln-641"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_merge.f</span>
+<a name="ln-642"></a>      <span class="k">implicit none</span>
+<a name="ln-643"></a>      <span class="c">! Arguments</span>
+<a name="ln-644"></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-645"></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-646"></a>      <span class="c">! Internals</span>
+<a name="ln-647"></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">index_parent</span><span class="p">,</span> <span class="n">index_child</span><span class="p">,</span> <span class="n">p1</span><span class="p">,</span> <span class="n">p2</span>
+<a name="ln-648"></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_inherit</span><span class="p">,</span> <span class="n">nchild_orig</span><span class="p">,</span> <span class="n">nchild_new</span>
+<a name="ln-649"></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">temp</span>
+<a name="ln-650"></a>
+<a name="ln-651"></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>
+<a name="ln-652"></a>         <span class="n">p1</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">1</span><span class="p">))%</span><span class="n">parent</span>
+<a name="ln-653"></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-654"></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-655"></a>
+<a name="ln-656"></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-657"></a><span class="k">            </span><span class="n">index_parent</span> <span class="o">=</span> <span class="n">p1</span>
+<a name="ln-658"></a>            <span class="n">index_child</span> <span class="o">=</span> <span class="n">p2</span>
+<a name="ln-659"></a>         <span class="k">else</span>
+<a name="ln-660"></a><span class="k">            </span><span class="n">index_parent</span> <span class="o">=</span> <span class="n">p2</span>
+<a name="ln-661"></a>            <span class="n">index_child</span> <span class="o">=</span> <span class="n">p1</span>
+<a name="ln-662"></a>         <span class="k">end if</span>
+<a name="ln-663"></a>
+<a name="ln-664"></a>         <span class="c">! Expand the child array (or create it if necessary) and copy over the previous lists of children</span>
+<a name="ln-665"></a>         <span class="n">nchild_orig</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">index_parent</span><span class="p">)%</span><span class="n">nchild</span>
+<a name="ln-666"></a>         <span class="n">nchild_inherit</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">index_child</span><span class="p">)%</span><span class="n">nchild</span>
+<a name="ln-667"></a>         <span class="n">nchild_new</span> <span class="o">=</span> <span class="n">nchild_orig</span> <span class="o">+</span> <span class="n">nchild_inherit</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-668"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">temp</span><span class="p">(</span><span class="n">nchild_new</span><span class="p">))</span>
+<a name="ln-669"></a>
+<a name="ln-670"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nchild_orig</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">temp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_orig</span><span class="p">)</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">index_parent</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_orig</span><span class="p">)</span>
+<a name="ln-671"></a>         <span class="c">! Find out if the child body has any children of its own. The new parent wil inherit these children</span>
+<a name="ln-672"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nchild_inherit</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-673"></a><span class="k">            </span><span class="n">temp</span><span class="p">(</span><span class="n">nchild_orig</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_orig</span><span class="o">+</span><span class="n">nchild_inherit</span><span class="p">)</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">index_child</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nchild_inherit</span><span class="p">)</span>
+<a name="ln-674"></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">nchild_inherit</span>
+<a name="ln-675"></a>               <span class="n">j</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">index_child</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-676"></a>               <span class="c">! Set the childrens&#39; parent to the new parent</span>
+<a name="ln-677"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">j</span><span class="p">)%</span><span class="n">parent</span> <span class="o">=</span> <span class="n">index_parent</span>
+<a name="ln-678"></a>            <span class="k">end do</span>
+<a name="ln-679"></a><span class="k">         end if</span>
+<a name="ln-680"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">reset_kinship</span><span class="p">([</span><span class="n">index_child</span><span class="p">])</span>
+<a name="ln-681"></a>         <span class="c">! Add the new child to its parent</span>
+<a name="ln-682"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">index_child</span><span class="p">)%</span><span class="n">parent</span> <span class="o">=</span> <span class="n">index_parent</span>
+<a name="ln-683"></a>         <span class="n">temp</span><span class="p">(</span><span class="n">nchild_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">index_child</span>
+<a name="ln-684"></a>         <span class="c">! Save the new child array to the parent</span>
+<a name="ln-685"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">index_parent</span><span class="p">)%</span><span class="n">nchild</span> <span class="o">=</span> <span class="n">nchild_new</span>
+<a name="ln-686"></a>         <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">from</span><span class="o">=</span><span class="n">temp</span><span class="p">,</span> <span class="n">to</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">index_parent</span><span class="p">)%</span><span class="n">child</span><span class="p">)</span>
+<a name="ln-687"></a>      <span class="k">end associate</span>
+<a name="ln-688"></a>
+<a name="ln-689"></a><span class="k">      return</span>
+<a name="ln-690"></a><span class="k">   end subroutine </span><span class="n">symba_collision_make_colliders_pl</span>
+<a name="ln-691"></a>
+<a name="ln-692"></a>
+<a name="ln-693"></a>   <span class="k">subroutine </span><span class="n">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-694"></a>      <span class="c">!! author:  David A. Minton</span>
+<a name="ln-695"></a>      <span class="c">!!</span>
+<a name="ln-696"></a>      <span class="c">!! Fills the pl_discards and pl_adds with removed and added bodies</span>
+<a name="ln-697"></a>      <span class="c">!!  </span>
+<a name="ln-698"></a>      <span class="k">implicit none</span>
+<a name="ln-699"></a>      <span class="c">! Arguments</span>
+<a name="ln-700"></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-701"></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 additions</span>
+<a name="ln-702"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object        </span>
+<a name="ln-703"></a>      <span class="k">class</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object </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="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-705"></a>      <span class="c">! Internals</span>
+<a name="ln-706"></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">ismallest</span><span class="p">,</span> <span class="n">iother</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">ncolliders</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-707"></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-708"></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><span class="p">,</span> <span class="n">plsub</span>
+<a name="ln-709"></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">FRAGFMT</span> <span class="o">=</span> <span class="s1">&#39;(&quot;Newbody&quot;,I0.7)&#39;</span>
+<a name="ln-710"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">newname</span>
+<a name="ln-711"></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">message</span>
+<a name="ln-712"></a>   
+<a name="ln-713"></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-714"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-715"></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-716"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-717"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">info</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">info</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> <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>
+<a name="ln-718"></a>               <span class="c">! Add the colliders%idx bodies to the subtraction list</span>
+<a name="ln-719"></a>               <span class="n">ncolliders</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">ncoll</span>
+<a name="ln-720"></a>               <span class="n">nfrag</span> <span class="o">=</span> <span class="n">frag</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-721"></a>
+<a name="ln-722"></a>               <span class="c">! Setup new bodies</span>
+<a name="ln-723"></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-724"></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-725"></a>               <span class="n">ibiggest</span>  <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</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">colliders</span><span class="p">%</span><span class="n">idx</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-726"></a>               <span class="n">ismallest</span> <span class="o">=</span> <span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="nb">minloc</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">colliders</span><span class="p">%</span><span class="n">idx</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-727"></a>
+<a name="ln-728"></a>               <span class="c">! Copy over identification, information, and physical properties of the new bodies from the fragment list</span>
+<a name="ln-729"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span> 
+<a name="ln-730"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span> 
+<a name="ln-731"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-732"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vb2vh</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-733"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xh2xb</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-734"></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-735"></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">frag</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-736"></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">frag</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-737"></a>               <span class="k">end do</span>
+<a name="ln-738"></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="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-739"></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="n">nfrag</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">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-740"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-741"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span> <span class="o">/</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-742"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">set_rhill</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-743"></a>
+<a name="ln-744"></a>               <span class="k">select case</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-745"></a>               <span class="k">case</span><span class="p">(</span><span class="n">DISRUPTION</span><span class="p">)</span>
+<a name="ln-746"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">NEW_PARTICLE</span>
+<a name="ln-747"></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-748"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">newname</span><span class="p">,</span> <span class="n">FRAGFMT</span><span class="p">)</span> <span class="n">frag</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-749"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">origin_type</span><span class="o">=</span><span class="s2">&quot;Disruption&quot;</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><span class="p">,</span> <span class="n">name</span><span class="o">=</span><span class="n">newname</span><span class="p">,</span> <span class="n">origin_xh</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> <span class="n">origin_vh</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-750"></a>                  <span class="k">end do</span>
+<a name="ln-751"></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">ncolliders</span>
+<a name="ln-752"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ibiggest</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-753"></a><span class="k">                        </span><span class="n">iother</span> <span class="o">=</span> <span class="n">ismallest</span>
+<a name="ln-754"></a>                     <span class="k">else</span>
+<a name="ln-755"></a><span class="k">                        </span><span class="n">iother</span> <span class="o">=</span> <span class="n">ibiggest</span>
+<a name="ln-756"></a>                     <span class="k">end if</span>
+<a name="ln-757"></a><span class="k">                     call </span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;Disruption&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="n">iother</span><span class="p">)</span>
+<a name="ln-758"></a>                  <span class="k">end do</span>
+<a name="ln-759"></a><span class="k">               case</span><span class="p">(</span><span class="n">SUPERCATASTROPHIC</span><span class="p">)</span>
+<a name="ln-760"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">NEW_PARTICLE</span>
+<a name="ln-761"></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-762"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">newname</span><span class="p">,</span> <span class="n">FRAGFMT</span><span class="p">)</span> <span class="n">frag</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-763"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">origin_type</span><span class="o">=</span><span class="s2">&quot;Supercatastrophic&quot;</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><span class="p">,</span> <span class="n">name</span><span class="o">=</span><span class="n">newname</span><span class="p">,</span> <span class="n">origin_xh</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> <span class="n">origin_vh</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-764"></a>                  <span class="k">end do</span>
+<a name="ln-765"></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">ncolliders</span>
+<a name="ln-766"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ibiggest</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-767"></a><span class="k">                        </span><span class="n">iother</span> <span class="o">=</span> <span class="n">ismallest</span>
+<a name="ln-768"></a>                     <span class="k">else</span>
+<a name="ln-769"></a><span class="k">                        </span><span class="n">iother</span> <span class="o">=</span> <span class="n">ibiggest</span>
+<a name="ln-770"></a>                     <span class="k">end if</span>
+<a name="ln-771"></a><span class="k">                     call </span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;Supercatastrophic&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="n">iother</span><span class="p">)</span>
+<a name="ln-772"></a>                  <span class="k">end do</span>
+<a name="ln-773"></a><span class="k">               case</span><span class="p">(</span><span class="n">HIT_AND_RUN_DISRUPT</span><span class="p">)</span>
+<a name="ln-774"></a>                  <span class="k">call </span><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="n">copy</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">ibiggest</span><span class="p">))</span>
+<a name="ln-775"></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">OLD_PARTICLE</span>
+<a name="ln-776"></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">nfrag</span>
+<a name="ln-777"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">newname</span><span class="p">,</span> <span class="n">FRAGFMT</span><span class="p">)</span> <span class="n">frag</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-778"></a>                     <span class="k">call </span><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">set_value</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><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><span class="p">,</span> <span class="n">name</span><span class="o">=</span><span class="n">newname</span><span class="p">,</span> <span class="n">origin_xh</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> <span class="n">origin_vh</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-779"></a>                  <span class="k">end do</span>
+<a name="ln-780"></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">ncolliders</span>
+<a name="ln-781"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ibiggest</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-782"></a><span class="k">                     </span><span class="n">iother</span> <span class="o">=</span> <span class="n">ibiggest</span>
+<a name="ln-783"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;Hit and run fragmention&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="n">iother</span><span class="p">)</span>
+<a name="ln-784"></a>                  <span class="k">end do </span>
+<a name="ln-785"></a><span class="k">               case</span><span class="p">(</span><span class="n">MERGED</span><span class="p">)</span>
+<a name="ln-786"></a>                  <span class="k">call </span><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="n">copy</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">ibiggest</span><span class="p">))</span>
+<a name="ln-787"></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">OLD_PARTICLE</span>
+<a name="ln-788"></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">ncolliders</span>
+<a name="ln-789"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ibiggest</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-790"></a>
+<a name="ln-791"></a><span class="k">                     </span><span class="n">iother</span> <span class="o">=</span> <span class="n">ibiggest</span>
+<a name="ln-792"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;MERGED&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="n">iother</span><span class="p">)</span>
+<a name="ln-793"></a>                  <span class="k">end do </span>
+<a name="ln-794"></a><span class="k">               end select</span>
+<a name="ln-795"></a><span class="k">   </span>
+<a name="ln-796"></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-797"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-798"></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="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">frag</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">nfrag</span><span class="p">)</span>
+<a name="ln-799"></a>               <span class="k">end if</span>
+<a name="ln-800"></a><span class="k">   </span>
+<a name="ln-801"></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-802"></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-803"></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-804"></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-805"></a>               <span class="k">end if</span>
+<a name="ln-806"></a>
+<a name="ln-807"></a>               <span class="c">!Copy over or set integration parameters for new bodies</span>
+<a name="ln-808"></a>               <span class="n">plnew</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">nfrag</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-809"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">ldiscard</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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-810"></a>               <span class="n">plnew</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">nfrag</span><span class="p">)</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="n">ibiggest</span><span class="p">)</span>
+<a name="ln-811"></a>               <span class="n">plnew</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">nfrag</span><span class="p">)</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="n">ibiggest</span><span class="p">)</span>
+<a name="ln-812"></a>
+<a name="ln-813"></a>               <span class="c">! Log the properties of the new bodies</span>
+<a name="ln-814"></a>               <span class="k">call </span><span class="n">fraggle_io_log_pl</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-815"></a>   
+<a name="ln-816"></a>               <span class="c">! Append the new merged body to the list </span>
+<a name="ln-817"></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-818"></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">nfrag</span>
+<a name="ln-819"></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">nfrag</span><span class="p">)])</span>
+<a name="ln-820"></a>               <span class="c">! Record how many bodies were added in this event</span>
+<a name="ln-821"></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-822"></a>
+<a name="ln-823"></a>               <span class="c">! Add the discarded bodies to the discard list</span>
+<a name="ln-824"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">MERGED</span>
+<a name="ln-825"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-826"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-827"></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-828"></a>               <span class="n">lmask</span><span class="p">(</span><span class="n">colliders</span><span class="p">%</span><span class="n">idx</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-829"></a>               
+<a name="ln-830"></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-831"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
+<a name="ln-832"></a>
+<a name="ln-833"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">plsub</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-834"></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">plsub</span><span class="p">,</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">false</span><span class="p">.)</span>
+<a name="ln-835"></a>   
+<a name="ln-836"></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-837"></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">ncolliders</span>
+<a name="ln-838"></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">plsub</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">ncolliders</span><span class="p">)])</span>
+<a name="ln-839"></a>
+<a name="ln-840"></a>               <span class="c">! Record how many bodies were subtracted in this event</span>
+<a name="ln-841"></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">ncolliders</span> 
+<a name="ln-842"></a>   
+<a name="ln-843"></a>               <span class="k">call </span><span class="n">plsub</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-844"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">plsub</span><span class="p">)</span>
+<a name="ln-845"></a>            <span class="k">end associate</span>
+<a name="ln-846"></a><span class="k">         end select</span>
+<a name="ln-847"></a><span class="k">      end select</span>
+<a name="ln-848"></a><span class="k">   </span>
+<a name="ln-849"></a><span class="k">      return</span>
+<a name="ln-850"></a><span class="k">   end subroutine </span><span class="n">symba_collision_mergeaddsub</span>
+<a name="ln-851"></a>
+<a name="ln-852"></a>
+<a name="ln-853"></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-854"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-855"></a>      <span class="c">!! </span>
+<a name="ln-856"></a>      <span class="c">!! Process list of collisions, determine the collisional regime, and then create fragments.</span>
+<a name="ln-857"></a>      <span class="c">!!</span>
+<a name="ln-858"></a>      <span class="k">implicit none</span>
+<a name="ln-859"></a>      <span class="c">! Arguments</span>
+<a name="ln-860"></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-861"></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-862"></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 additions</span>
+<a name="ln-863"></a>      <span class="c">! Internals</span>
+<a name="ln-864"></a>      <span class="c">! Internals</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">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">idx_parent</span>       <span class="c">!! Index of the two bodies considered the &quot;parents&quot; of the collision</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">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">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">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</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">dimension</span><span class="p">(</span><span class="mi">2</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">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-868"></a>      <span class="kt">logical</span>                                     <span class="kd">::</span> <span class="n">lgoodcollision</span>
+<a name="ln-869"></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-870"></a>      <span class="k">type</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object</span>
+<a name="ln-871"></a>      <span class="k">type</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object</span>
+<a name="ln-872"></a>
+<a name="ln-873"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">plplcollision_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ncollisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">idx1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">idx2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span>
+<a name="ln-874"></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-875"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-876"></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-877"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-878"></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">ncollisions</span>
+<a name="ln-879"></a>                  <span class="n">idx_parent</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">kin</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
+<a name="ln-880"></a>                  <span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">)</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">idx2</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
+<a name="ln-881"></a>                  <span class="n">lgoodcollision</span> <span class="o">=</span> <span class="n">symba_collision_consolidate_colliders</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">cb</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">idx_parent</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span> 
+<a name="ln-882"></a>                  <span class="k">if</span> <span class="p">((.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lgoodcollision</span><span class="p">)</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">status</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))</span> <span class="o">/=</span> <span class="n">COLLISION</span><span class="p">))</span> <span class="k">cycle</span>
+<a name="ln-883"></a>
+<a name="ln-884"></a><span class="k">                  call </span><span class="n">colliders</span><span class="p">%</span><span class="n">regime</span><span class="p">(</span><span class="n">frag</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-885"></a>   
+<a name="ln-886"></a>                  <span class="k">select case</span> <span class="p">(</span><span class="n">frag</span><span class="p">%</span><span class="n">regime</span><span class="p">)</span>
+<a name="ln-887"></a>                  <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_DISRUPTION</span><span class="p">,</span> <span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span><span class="p">)</span>
+<a name="ln-888"></a>                     <span class="n">plplcollision_list</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">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-889"></a>                  <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span><span class="p">)</span>
+<a name="ln-890"></a>                     <span class="n">plplcollision_list</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">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-891"></a>                  <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_MERGE</span><span class="p">,</span> <span class="n">COLLRESOLVE_REGIME_GRAZE_AND_MERGE</span><span class="p">)</span>
+<a name="ln-892"></a>                     <span class="n">plplcollision_list</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">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-893"></a>                  <span class="k">case </span><span class="n">default</span> 
+<a name="ln-894"></a>                     <span class="k">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 in symba_collision, unrecognized collision regime&quot;</span>
+<a name="ln-895"></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-896"></a>                  <span class="k">end select</span>
+<a name="ln-897"></a><span class="k">               end do</span>
+<a name="ln-898"></a><span class="k">            end select</span>
+<a name="ln-899"></a><span class="k">         end select</span>
+<a name="ln-900"></a><span class="k">      end associate</span>
+<a name="ln-901"></a>
+<a name="ln-902"></a><span class="k">      return</span>
+<a name="ln-903"></a><span class="k">   end subroutine </span><span class="n">symba_collision_resolve_fragmentations</span>
+<a name="ln-904"></a>
+<a name="ln-905"></a>
+<a name="ln-906"></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-907"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-908"></a>      <span class="c">!! </span>
+<a name="ln-909"></a>      <span class="c">!! Process list of collisions and merge colliding bodies together.</span>
+<a name="ln-910"></a>      <span class="c">!!</span>
+<a name="ln-911"></a>      <span class="k">implicit none</span>
+<a name="ln-912"></a>      <span class="c">! Arguments</span>
+<a name="ln-913"></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-914"></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-915"></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 additions</span>
+<a name="ln-916"></a>      <span class="c">! Internals</span>
+<a name="ln-917"></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="kd">::</span> <span class="n">idx_parent</span>       <span class="c">!! Index of the two bodies considered the &quot;parents&quot; of the collision</span>
+<a name="ln-918"></a>      <span class="kt">real</span><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">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">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-919"></a>      <span class="kt">real</span><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">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Output values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-920"></a>      <span class="kt">logical</span>                                     <span class="kd">::</span> <span class="n">lgoodcollision</span>
+<a name="ln-921"></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-922"></a>      <span class="k">type</span><span class="p">(</span><span class="n">fraggle_colliders</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">colliders</span> <span class="c">!! Fraggle colliders object</span>
+<a name="ln-923"></a>      <span class="k">type</span><span class="p">(</span><span class="n">fraggle_fragments</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">frag</span>      <span class="c">!! Fraggle fragmentation system object</span>
+<a name="ln-924"></a>
+<a name="ln-925"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">plplcollision_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ncollisions</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">idx1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">idx2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span>
+<a name="ln-926"></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-927"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-928"></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-929"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-930"></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">ncollisions</span>
+<a name="ln-931"></a>                  <span class="n">idx_parent</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">kin</span><span class="p">(</span><span class="n">idx1</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
+<a name="ln-932"></a>                  <span class="n">idx_parent</span><span class="p">(</span><span class="mi">2</span><span class="p">)</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">idx2</span><span class="p">(</span><span class="n">i</span><span class="p">))%</span><span class="n">parent</span>
+<a name="ln-933"></a>                  <span class="n">lgoodcollision</span> <span class="o">=</span> <span class="n">symba_collision_consolidate_colliders</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">cb</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">idx_parent</span><span class="p">,</span> <span class="n">colliders</span><span class="p">)</span> 
+<a name="ln-934"></a>                  <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lgoodcollision</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-935"></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">status</span><span class="p">(</span><span class="n">idx_parent</span><span class="p">(:))</span> <span class="o">/=</span> <span class="n">COLLISION</span><span class="p">))</span> <span class="k">cycle</span> <span class="c">! One of these two bodies has already been resolved</span>
+<a name="ln-936"></a> 
+<a name="ln-937"></a>                  <span class="n">frag</span><span class="p">%</span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span>
+<a name="ln-938"></a>                  <span class="n">frag</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">colliders</span><span class="p">%</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-939"></a>                  <span class="n">frag</span><span class="p">%</span><span class="n">xbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span> 
+<a name="ln-940"></a>                  <span class="n">frag</span><span class="p">%</span><span class="n">vbcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">colliders</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">colliders</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">colliders</span><span class="p">%</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">colliders</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="o">/</span> <span class="n">frag</span><span class="p">%</span><span class="n">mtot</span>
+<a name="ln-941"></a>                  <span class="n">plplcollision_list</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">symba_collision_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">colliders</span><span class="p">,</span> <span class="n">frag</span><span class="p">)</span>
+<a name="ln-942"></a>               <span class="k">end do</span>
+<a name="ln-943"></a><span class="k">            end select</span>
+<a name="ln-944"></a><span class="k">         end select</span>
+<a name="ln-945"></a><span class="k">      end associate</span>
+<a name="ln-946"></a>
+<a name="ln-947"></a><span class="k">      return</span>
+<a name="ln-948"></a><span class="k">   end subroutine </span><span class="n">symba_collision_resolve_mergers</span>
+<a name="ln-949"></a>
+<a name="ln-950"></a>
+<a name="ln-951"></a>   <span class="k">module subroutine </span><span class="n">symba_collision_resolve_plplenc</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-952"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-953"></a>      <span class="c">!! </span>
+<a name="ln-954"></a>      <span class="c">!! Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the collision</span>
+<a name="ln-955"></a>      <span class="c">!! </span>
+<a name="ln-956"></a>      <span class="k">implicit none</span>
+<a name="ln-957"></a>      <span class="c">! Arguments</span>
+<a name="ln-958"></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-959"></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-960"></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 with SyMBA additions</span>
+<a name="ln-961"></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-962"></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 simulation step size</span>
+<a name="ln-963"></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-964"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">Eorbit_before</span><span class="p">,</span> <span class="n">Eorbit_after</span>
+<a name="ln-966"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lplpl_collision</span>
+<a name="ln-967"></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">timestr</span>
+<a name="ln-968"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp_param</span>
+<a name="ln-969"></a>   
+<a name="ln-970"></a>      <span class="k">associate</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">plplcollision_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplcollision_list</span><span class="p">)</span>
+<a name="ln-971"></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-972"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-973"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-974"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-975"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">plplcollision_list</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> <span class="c">! No collisions to resolve</span>
+<a name="ln-976"></a>               <span class="c">! Make sure that the heliocentric and barycentric coordinates are consistent with each other</span>
+<a name="ln-977"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vb2vh</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-978"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xh2xb</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-979"></a>   
+<a name="ln-980"></a>               <span class="c">! Get the energy before the collision is resolved</span>
+<a name="ln-981"></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-982"></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-983"></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-984"></a>               <span class="k">end if</span>
+<a name="ln-985"></a>
+<a name="ln-986"></a><span class="k">               do</span>
+<a name="ln-987"></a><span class="k">                  write</span><span class="p">(</span><span class="n">timestr</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-988"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-989"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-990"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;Collision between massive bodies detected at time t = &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">timestr</span><span class="p">)))</span>
+<a name="ln-991"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-992"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">tmp_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-993"></a>                  <span class="n">tmp_param</span><span class="p">%</span><span class="n">t</span> <span class="o">=</span> <span class="n">t</span>
+<a name="ln-994"></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-995"></a><span class="k">                     call </span><span class="n">plplcollision_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-996"></a>                  <span class="k">else</span>
+<a name="ln-997"></a><span class="k">                     call </span><span class="n">plplcollision_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-998"></a>                  <span class="k">end if</span>
+<a name="ln-999"></a>
+<a name="ln-1000"></a>                  <span class="c">! Destroy the collision list now that the collisions are resolved</span>
+<a name="ln-1001"></a>                  <span class="k">call </span><span class="n">plplcollision_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-1002"></a>
+<a name="ln-1003"></a>                  <span class="k">if</span> <span class="p">((</span><span class="nb">system</span><span class="p">%</span><span class="n">pl_adds</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="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_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">exit</span>
+<a name="ln-1004"></a>
+<a name="ln-1005"></a>                  <span class="c">! Save the add/discard information to file</span>
+<a name="ln-1006"></a>                  <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">tmp_param</span><span class="p">)</span>
+<a name="ln-1007"></a>
+<a name="ln-1008"></a>                  <span class="c">! Rearrange the arrays: Remove discarded bodies, add any new bodies, resort, and recompute all indices and encounter lists</span>
+<a name="ln-1009"></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">tmp_param</span><span class="p">)</span>
+<a name="ln-1010"></a>
+<a name="ln-1011"></a>                  <span class="c">! Destroy the add/discard list so that we don&#39;t append the same body multiple times if another collision is detected</span>
+<a name="ln-1012"></a>                  <span class="k">call </span><span class="nb">system</span><span class="p">%</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-1013"></a>                  <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">pl_adds</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-1014"></a>                  <span class="k">deallocate</span><span class="p">(</span><span class="n">tmp_param</span><span class="p">)</span>
+<a name="ln-1015"></a>
+<a name="ln-1016"></a>                  <span class="c">! Check whether or not any of the particles that were just added are themselves in a collision state. This will generate a new plplcollision_list </span>
+<a name="ln-1017"></a>                  <span class="n">lplpl_collision</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">collision_check</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-1018"></a>
+<a name="ln-1019"></a>                  <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lplpl_collision</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-1020"></a><span class="k">               end do</span>
+<a name="ln-1021"></a>
+<a name="ln-1022"></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-1023"></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-1024"></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-1025"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="p">(</span><span class="n">Eorbit_after</span> <span class="o">-</span> <span class="n">Eorbit_before</span><span class="p">)</span>
+<a name="ln-1026"></a>               <span class="k">end if</span>
+<a name="ln-1027"></a>
+<a name="ln-1028"></a><span class="k">            end select </span>
+<a name="ln-1029"></a><span class="k">         end select</span>
+<a name="ln-1030"></a><span class="k">      end associate</span>
+<a name="ln-1031"></a>
+<a name="ln-1032"></a><span class="k">      return</span>
+<a name="ln-1033"></a><span class="k">   end subroutine </span><span class="n">symba_collision_resolve_plplenc</span>
+<a name="ln-1034"></a>
+<a name="ln-1035"></a>
+<a name="ln-1036"></a>   <span class="k">module subroutine </span><span class="n">symba_collision_resolve_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-1037"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1038"></a>      <span class="c">!! </span>
+<a name="ln-1039"></a>      <span class="c">!! Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision</span>
+<a name="ln-1040"></a>      <span class="c">!! </span>
+<a name="ln-1041"></a>      <span class="k">implicit none</span>
+<a name="ln-1042"></a>      <span class="c">! Arguments</span>
+<a name="ln-1043"></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</span>
+<a name="ln-1044"></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-1045"></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 with SyMBA additions</span>
+<a name="ln-1046"></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 tim</span>
+<a name="ln-1047"></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 simulation step size</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">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-1049"></a>      
+<a name="ln-1050"></a>      <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">xh2xb</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-1051"></a>      <span class="k">call </span><span class="nb">system</span><span class="p">%</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-1052"></a>
+<a name="ln-1053"></a>      <span class="k">return</span>
+<a name="ln-1054"></a><span class="k">   end subroutine </span><span class="n">symba_collision_resolve_pltpenc</span>
+<a name="ln-1055"></a>
+<a name="ln-1056"></a><span class="k">end submodule </span><span class="n">s_symba_collision</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_discard.f90.html b/docs/sourcefile/symba_discard.f90.html
index ba143e7c2..8653cf188 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.8% of total for source files.">239 statements</a>
+    title=" 1.7% of total for source files.">274 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_discardf90EfferentGraph" width="641pt" height="255pt"
+ viewBox="0.00 0.00 641.00 255.26" 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 366.74)">
 <title>sourcefile~~symba_discard.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 920,-260.15 920,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 927,-366.74 927,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,-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>
+<polygon fill="none" stroke="black" points="923,-189.48 820,-189.48 820,-165.48 923,-165.48 923,-189.48"/>
+<text text-anchor="middle" x="871.5" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_discard.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.77,-181.67C781.69,-184.82 729.41,-189.14 689.13,-192.47"/>
+<polygon fill="#000000" stroke="#000000" points="688.84,-188.98 679.16,-193.29 689.42,-195.96 688.84,-188.98"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.9,-168.94C811.31,-167.49 802.48,-166 794.14,-164.59"/>
+<polygon fill="#000000" stroke="#000000" points="794.71,-161.14 784.26,-162.93 793.54,-168.04 794.71,-161.14"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_discard.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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -580,317 +632,355 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-20"></a>      <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">j</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">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-23"></a>   
-<a name="ln-24"></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">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-25"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">set_msys</span><span class="p">()</span>
-<a name="ln-26"></a>         <span class="n">rmin2</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-27"></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-28"></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-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>
-<a name="ln-30"></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-31"></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">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">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-32"></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-33"></a><span class="k">                  </span><span class="n">pl</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-34"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-35"></a>                  <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">DISCARDED_RMAX</span>
-<a name="ln-36"></a>                  <span class="k">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;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">i</span><span class="p">),</span> <span class="s2">&quot; too far from the central body at t = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-37"></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-38"></a><span class="k">                  </span><span class="n">pl</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-39"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-40"></a>                  <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">DISCARDED_RMIN</span>
-<a name="ln-41"></a>                  <span class="k">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;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">i</span><span class="p">),</span> <span class="s2">&quot; too close to the central body at t = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-42"></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-43"></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">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">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-44"></a>                  <span class="n">vb2</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-45"></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="nb">system</span><span class="p">%</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-46"></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-47"></a><span class="k">                     </span><span class="n">pl</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-48"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-49"></a>                     <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">DISCARDED_RMAXU</span>
-<a name="ln-50"></a>                     <span class="k">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;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">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">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-51"></a>                  <span class="k">end if</span>
-<a name="ln-52"></a><span class="k">               end if</span>
-<a name="ln-53"></a><span class="k">            end if</span>
-<a name="ln-54"></a><span class="k">         end do</span>
-<a name="ln-55"></a><span class="k">      end associate</span>
-<a name="ln-56"></a><span class="k">   </span>
-<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_discard_cb_pl</span>
-<a name="ln-59"></a>
-<a name="ln-60"></a>
-<a name="ln-61"></a>   <span class="k">subroutine </span><span class="n">symba_discard_conserve_mtm</span><span class="p">(</span><span class="n">pl</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">ipl</span><span class="p">,</span> <span class="n">lescape_body</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">!! Conserves system momentum when a body is lost from the system or collides with central body</span>
-<a name="ln-65"></a>      <span class="k">implicit none</span>
-<a name="ln-66"></a>      <span class="c">! Arguments</span>
-<a name="ln-67"></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">pl</span>
-<a name="ln-68"></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>
-<a name="ln-69"></a><span class="nb">      </span><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>
-<a name="ln-70"></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">ipl</span>
-<a name="ln-71"></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">lescape_body</span>
-<a name="ln-72"></a>      <span class="c">! Internals</span>
-<a name="ln-73"></a>      <span class="kt">real</span><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">Lpl</span><span class="p">,</span> <span class="n">Ltot</span><span class="p">,</span> <span class="n">Lcb</span><span class="p">,</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
-<a name="ln-74"></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="p">,</span> <span class="n">ke_orbit</span><span class="p">,</span> <span class="n">ke_spin</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">oldstat</span>
-<a name="ln-76"></a>   
-<a name="ln-77"></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-78"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
-<a name="ln-79"></a>   
-<a name="ln-80"></a>         <span class="c">! Add the potential and kinetic energy of the lost body to the records</span>
-<a name="ln-81"></a>         <span class="n">pe</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">ipl</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">ipl</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-82"></a>         <span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</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">ipl</span><span class="p">)</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">ipl</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">ipl</span><span class="p">))</span> 
-<a name="ln-83"></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-84"></a><span class="k">            </span><span class="n">ke_spin</span>  <span class="o">=</span> <span class="mf">0.5_DP</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">ipl</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">ipl</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">ipl</span><span class="p">)</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">ipl</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">ipl</span><span class="p">))</span>
-<a name="ln-85"></a>         <span class="k">else</span>
-<a name="ln-86"></a><span class="k">            </span><span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</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 pre-collision ke of the central body to the records</span>
-<a name="ln-90"></a>         <span class="c">! Add planet mass to central body accumulator</span>
-<a name="ln-91"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lescape_body</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-92"></a><span class="k">            </span><span class="nb">system</span><span class="p">%</span><span class="n">Mescape</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Mescape</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">ipl</span><span class="p">)</span>
-<a name="ln-93"></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-94"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">ipl</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-95"></a><span class="k">               </span><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">ipl</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">ipl</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>
-<a name="ln-96"></a>            <span class="k">end do</span>
-<a name="ln-97"></a><span class="k">   </span>
-<a name="ln-98"></a><span class="k">            </span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-99"></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-100"></a>               <span class="n">Lpl</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">xb</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">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-101"></a>               <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lpl</span><span class="p">(:)</span>
-<a name="ln-102"></a>            <span class="k">end do</span>
-<a name="ln-103"></a><span class="k">            </span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</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-104"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">b2h</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-105"></a>            <span class="n">oldstat</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="n">ipl</span><span class="p">)</span>
-<a name="ln-106"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">ipl</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
-<a name="ln-107"></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-108"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">ipl</span><span class="p">)</span> <span class="o">=</span> <span class="n">oldstat</span>
-<a name="ln-109"></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-110"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">ipl</span><span class="p">)</span> <span class="k">cycle</span>
-<a name="ln-111"></a><span class="k">               </span><span class="n">Lpl</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">xb</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">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-112"></a>               <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Lpl</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">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</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-115"></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">Ltot</span><span class="p">(:)</span>
-<a name="ln-116"></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">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="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">ipl</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">ipl</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">ipl</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="n">ipl</span><span class="p">)</span>
-<a name="ln-117"></a>   
-<a name="ln-118"></a>         <span class="k">else</span>
-<a name="ln-119"></a><span class="k">            </span><span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</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">ipl</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">ipl</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="o">/</span> <span class="p">(</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">ipl</span><span class="p">))</span>
-<a name="ln-120"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</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">ipl</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">ipl</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">vb</span><span class="p">(:))</span> <span class="o">/</span> <span class="p">(</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">ipl</span><span class="p">))</span>
-<a name="ln-121"></a>            <span class="n">Lpl</span><span class="p">(:)</span> <span class="o">=</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">ipl</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</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">ipl</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-122"></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="n">Lpl</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">ipl</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">Lpl</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">ipl</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">ipl</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="n">ipl</span><span class="p">))</span>
-<a name="ln-123"></a>     
-<a name="ln-124"></a>            <span class="n">Lcb</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="p">(</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">xcom</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</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="o">-</span> <span class="n">vcom</span><span class="p">(:))</span>
-<a name="ln-125"></a>   
-<a name="ln-126"></a>            <span class="n">ke_orbit</span> <span class="o">=</span> <span class="n">ke_orbit</span> <span class="o">+</span> <span class="mf">0.5_DP</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-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="n">ke_spin</span> <span class="o">=</span> <span class="n">ke_spin</span> <span class="o">+</span> <span class="mf">0.5_DP</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</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-128"></a>            <span class="c">! Update mass of central body to be consistent with its total mass</span>
-<a name="ln-129"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dM</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">dM</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">ipl</span><span class="p">)</span>
-<a name="ln-130"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dR</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">dR</span> <span class="o">+</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span> <span class="o">*</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">ipl</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="p">)</span><span class="o">**</span><span class="mi">3</span> <span class="o">-</span> <span class="mf">2.0_DP</span> <span class="o">/</span> <span class="mf">9.0_DP</span> <span class="o">*</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">ipl</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="p">)</span><span class="o">**</span><span class="mi">6</span>
-<a name="ln-131"></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">M0</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dM</span>
-<a name="ln-132"></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-133"></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">R0</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dR</span>
-<a name="ln-134"></a>            <span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span>
-<a name="ln-135"></a>            <span class="c">! Add planet angular momentum to central body accumulator</span>
-<a name="ln-136"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dL</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lpl</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lcb</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dL</span><span class="p">(:)</span>
-<a name="ln-137"></a>            <span class="c">! Update rotation of central body to by consistent with its angular momentum </span>
-<a name="ln-138"></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-139"></a><span class="k">               </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="p">(</span><span class="n">cb</span><span class="p">%</span><span class="n">L0</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dL</span><span class="p">(:))</span> <span class="o">/</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> <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="p">)</span>        
-<a name="ln-140"></a>               <span class="n">ke_spin</span>  <span class="o">=</span> <span class="n">ke_spin</span> <span class="o">-</span> <span class="mf">0.5_DP</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</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-141"></a>            <span class="k">end if</span>
-<a name="ln-142"></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="n">xcom</span><span class="p">(:)</span>
-<a name="ln-143"></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">vcom</span><span class="p">(:)</span>
-<a name="ln-144"></a>            <span class="n">ke_orbit</span> <span class="o">=</span> <span class="n">ke_orbit</span> <span class="o">-</span> <span class="mf">0.5_DP</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-145"></a>         <span class="k">end if</span>
-<a name="ln-146"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">b2h</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-147"></a>   
-<a name="ln-148"></a>         <span class="c">! We must do this for proper book-keeping, since we can no longer track this body&#39;s contribution to energy directly</span>
-<a name="ln-149"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lescape_body</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-150"></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">ke_orbit</span> <span class="o">+</span> <span class="n">ke_spin</span> <span class="o">+</span> <span class="n">pe</span>
-<a name="ln-151"></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="p">(</span><span class="n">ke_orbit</span> <span class="o">+</span> <span class="n">ke_spin</span> <span class="o">+</span> <span class="n">pe</span><span class="p">)</span>
-<a name="ln-152"></a>         <span class="k">else</span>
-<a name="ln-153"></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-154"></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-155"></a>         <span class="k">end if</span>
-<a name="ln-156"></a><span class="k">   </span>
-<a name="ln-157"></a><span class="k">      end select</span>
-<a name="ln-158"></a><span class="k">      return</span>
-<a name="ln-159"></a><span class="k">   </span>
-<a name="ln-160"></a><span class="k">   end subroutine </span><span class="n">symba_discard_conserve_mtm</span>
-<a name="ln-161"></a>
-<a name="ln-162"></a>
-<a name="ln-163"></a>   <span class="k">subroutine </span><span class="n">symba_discard_nonplpl</span><span class="p">(</span><span class="n">pl</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-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">!! Check to see if planets should be discarded based on their positions or because they are unbound</span>
-<a name="ln-167"></a>      <span class="c">!s</span>
-<a name="ln-168"></a>      <span class="c">!!</span>
-<a name="ln-169"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_discard_pl.f90</span>
-<a name="ln-170"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_massive5.f </span>
-<a name="ln-171"></a>      <span class="k">implicit none</span>
-<a name="ln-172"></a>      <span class="c">! Arguments</span>
-<a name="ln-173"></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">pl</span>     <span class="c">!! SyMBA test particle object</span>
-<a name="ln-174"></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-175"></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-176"></a>    
-<a name="ln-177"></a>      <span class="c">! First check for collisions with the central body</span>
-<a name="ln-178"></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">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-179"></a>         <span class="k">if</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-180"></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-181"></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-182"></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-183"></a>         <span class="k">end if</span>
-<a name="ln-184"></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">then</span>
-<a name="ln-185"></a><span class="k">            call </span><span class="n">symba_discard_cb_pl</span><span class="p">(</span><span class="n">pl</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-186"></a>         <span class="k">end if</span>
-<a name="ln-187"></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="nb">and</span><span class="p">.</span> <span class="n">npl</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">symba_discard_peri_pl</span><span class="p">(</span><span class="n">pl</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">end associate</span>
-<a name="ln-189"></a>
-<a name="ln-190"></a><span class="k">      return</span>
-<a name="ln-191"></a><span class="k">   end subroutine </span><span class="n">symba_discard_nonplpl</span>
-<a name="ln-192"></a>
-<a name="ln-193"></a>
-<a name="ln-194"></a>   <span class="k">subroutine </span><span class="n">symba_discard_nonplpl_conservation</span><span class="p">(</span><span class="n">pl</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-195"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-196"></a>      <span class="c">!!</span>
-<a name="ln-197"></a>      <span class="c">!! If there are any bodies that are removed due to either colliding with the central body or escaping the systme,</span>
-<a name="ln-198"></a>      <span class="c">!! we need to track the conserved quantities with the system bookkeeping terms.</span>
-<a name="ln-199"></a>      <span class="k">implicit none</span>
-<a name="ln-200"></a>      <span class="c">! Arguments</span>
-<a name="ln-201"></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">pl</span>     <span class="c">!! SyMBA test particle object</span>
-<a name="ln-202"></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-203"></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 </span>
-<a name="ln-204"></a>      <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">ndiscard</span><span class="p">,</span> <span class="n">dstat</span>
-<a name="ln-206"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lescape</span>
-<a name="ln-207"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</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">discard_l_pl</span>
-<a name="ln-208"></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">discard_index_list</span>
-<a name="ln-209"></a>
-<a name="ln-210"></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>
-<a name="ln-211"></a>         <span class="n">discard_l_pl</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">ldiscard</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="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">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="c">! These are bodies that are discarded but not flagged as pl-pl collision</span>
-<a name="ln-212"></a>         <span class="n">ndiscard</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">discard_l_pl</span><span class="p">(:))</span> 
-<a name="ln-213"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discard_index_list</span><span class="p">(</span><span class="n">ndiscard</span><span class="p">))</span>
-<a name="ln-214"></a>         <span class="n">discard_index_list</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">npl</span><span class="p">)],</span> <span class="n">discard_l_pl</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-215"></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">ndiscard</span>
-<a name="ln-216"></a>            <span class="n">dstat</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="n">discard_index_list</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> 
-<a name="ln-217"></a>            <span class="k">if</span> <span class="p">((</span><span class="n">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_RMIN</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">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_PERI</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-218"></a><span class="k">               </span><span class="n">lescape</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-219"></a>            <span class="k">else if</span> <span class="p">((</span><span class="n">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_RMAX</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">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_RMAXU</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-220"></a><span class="k">               </span><span class="n">lescape</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-221"></a>            <span class="k">else </span>
-<a name="ln-222"></a><span class="k">               cycle</span>
-<a name="ln-223"></a><span class="k">            end if</span>
-<a name="ln-224"></a>            <span class="c">! Conserve all the quantities</span>
-<a name="ln-225"></a>            <span class="k">call </span><span class="n">symba_discard_conserve_mtm</span><span class="p">(</span><span class="n">pl</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">discard_index_list</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">lescape</span><span class="p">)</span>
-<a name="ln-226"></a>         <span class="k">end do</span>
-<a name="ln-227"></a><span class="k">      end associate</span>
-<a name="ln-228"></a>
-<a name="ln-229"></a><span class="k">      return</span>
-<a name="ln-230"></a><span class="k">   end subroutine </span><span class="n">symba_discard_nonplpl_conservation</span>
-<a name="ln-231"></a>
+<a name="ln-23"></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">idstr</span><span class="p">,</span> <span class="n">timestr</span><span class="p">,</span> <span class="n">message</span>
+<a name="ln-24"></a>   
+<a name="ln-25"></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">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-26"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">set_msys</span><span class="p">()</span>
+<a name="ln-27"></a>         <span class="n">rmin2</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-28"></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-29"></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-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>
+<a name="ln-31"></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-32"></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">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">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-33"></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-34"></a><span class="k">                  </span><span class="n">pl</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-35"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-36"></a>                  <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">DISCARDED_RMAX</span>
+<a name="ln-37"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-38"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-39"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">message</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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span> <span class="s2">&quot; too far from the central body at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-40"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-41"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-42"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-43"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-44"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-45"></a>                  <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_RMAX&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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-46"></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-47"></a><span class="k">                  </span><span class="n">pl</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-48"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-49"></a>                  <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">DISCARDED_RMIN</span>
+<a name="ln-50"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-51"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-52"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">message</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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span> <span class="s2">&quot; too close to the central body at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-53"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-54"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-55"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-56"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-57"></a>                  <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-58"></a>                  <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_RMIN&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="n">cb</span><span class="p">%</span><span class="n">id</span><span class="p">)</span>
+<a name="ln-59"></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-60"></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">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">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-61"></a>                  <span class="n">vb2</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-62"></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="nb">system</span><span class="p">%</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-63"></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-64"></a><span class="k">                     </span><span class="n">pl</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-65"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-66"></a>                     <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">DISCARDED_RMAXU</span>
+<a name="ln-67"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-68"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-69"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">message</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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span> <span class="o">//</span> <span class="s2">&quot; is unbound and too far from barycenter at t = &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">timestr</span><span class="p">))</span>
+<a name="ln-70"></a>                     <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-71"></a>                     <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-72"></a>                     <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="n">message</span><span class="p">)</span>
+<a name="ln-73"></a>                     <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;***********************************************************************************************************************&quot;</span><span class="p">)</span>
+<a name="ln-74"></a>                     <span class="k">call </span><span class="n">fraggle_io_log_one_message</span><span class="p">(</span><span class="s2">&quot;&quot;</span><span class="p">)</span>
+<a name="ln-75"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_RMAXU&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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-76"></a>                  <span class="k">end if</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">         end do</span>
+<a name="ln-80"></a><span class="k">      end associate</span>
+<a name="ln-81"></a><span class="k">   </span>
+<a name="ln-82"></a><span class="k">      return</span>
+<a name="ln-83"></a><span class="k">   end subroutine </span><span class="n">symba_discard_cb_pl</span>
+<a name="ln-84"></a>
+<a name="ln-85"></a>
+<a name="ln-86"></a>   <span class="k">subroutine </span><span class="n">symba_discard_conserve_mtm</span><span class="p">(</span><span class="n">pl</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">ipl</span><span class="p">,</span> <span class="n">lescape_body</span><span class="p">)</span>
+<a name="ln-87"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-88"></a>      <span class="c">!! </span>
+<a name="ln-89"></a>      <span class="c">!! Conserves system momentum when a body is lost from the system or collides with central body</span>
+<a name="ln-90"></a>      <span class="k">implicit none</span>
+<a name="ln-91"></a>      <span class="c">! Arguments</span>
+<a name="ln-92"></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">pl</span>
+<a name="ln-93"></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>
+<a name="ln-94"></a><span class="nb">      </span><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>
+<a name="ln-95"></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">ipl</span>
+<a name="ln-96"></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">lescape_body</span>
+<a name="ln-97"></a>      <span class="c">! Internals</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="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lpl</span><span class="p">,</span> <span class="n">Ltot</span><span class="p">,</span> <span class="n">Lcb</span><span class="p">,</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
+<a name="ln-99"></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="p">,</span> <span class="n">ke_orbit</span><span class="p">,</span> <span class="n">ke_spin</span>
+<a name="ln-100"></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">oldstat</span>
+<a name="ln-101"></a>   
+<a name="ln-102"></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-103"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-104"></a>   
+<a name="ln-105"></a>         <span class="c">! Add the potential and kinetic energy of the lost body to the records</span>
+<a name="ln-106"></a>         <span class="n">pe</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">ipl</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">ipl</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-107"></a>         <span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</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">ipl</span><span class="p">)</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">ipl</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">ipl</span><span class="p">))</span> 
+<a name="ln-108"></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-109"></a><span class="k">            </span><span class="n">ke_spin</span>  <span class="o">=</span> <span class="mf">0.5_DP</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">ipl</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">ipl</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">ipl</span><span class="p">)</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">ipl</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">ipl</span><span class="p">))</span>
+<a name="ln-110"></a>         <span class="k">else</span>
+<a name="ln-111"></a><span class="k">            </span><span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-112"></a>         <span class="k">end if</span>
+<a name="ln-113"></a>   
+<a name="ln-114"></a>         <span class="c">! Add the pre-collision ke of the central body to the records</span>
+<a name="ln-115"></a>         <span class="c">! Add planet mass to central body accumulator</span>
+<a name="ln-116"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lescape_body</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-117"></a><span class="k">            </span><span class="n">param</span><span class="p">%</span><span class="n">GMescape</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GMescape</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">ipl</span><span class="p">)</span>
+<a name="ln-118"></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-119"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">ipl</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-120"></a><span class="k">               </span><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">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">mass</span><span class="p">(</span><span class="n">ipl</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">ipl</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>
+<a name="ln-121"></a>            <span class="k">end do</span>
+<a name="ln-122"></a><span class="k">   </span>
+<a name="ln-123"></a><span class="k">            </span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-124"></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-125"></a>               <span class="n">Lpl</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="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="p">.</span><span class="n">cross</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-126"></a>               <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lpl</span><span class="p">(:)</span>
+<a name="ln-127"></a>            <span class="k">end do</span>
+<a name="ln-128"></a><span class="k">            </span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</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="p">(</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-129"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">b2h</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-130"></a>            <span class="n">oldstat</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="n">ipl</span><span class="p">)</span>
+<a name="ln-131"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">ipl</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-132"></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-133"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">ipl</span><span class="p">)</span> <span class="o">=</span> <span class="n">oldstat</span>
+<a name="ln-134"></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-135"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">ipl</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-136"></a><span class="k">               </span><span class="n">Lpl</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="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="p">.</span><span class="n">cross</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-137"></a>               <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Lpl</span><span class="p">(:)</span> 
+<a name="ln-138"></a>            <span class="k">end do </span>
+<a name="ln-139"></a><span class="k">            </span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot</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="p">(</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-140"></a>            <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Ltot</span><span class="p">(:)</span>
+<a name="ln-141"></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="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</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">ipl</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">ipl</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">ipl</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="n">ipl</span><span class="p">)</span>
+<a name="ln-142"></a>   
+<a name="ln-143"></a>         <span class="k">else</span>
+<a name="ln-144"></a><span class="k">            </span><span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</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">ipl</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">ipl</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="o">/</span> <span class="p">(</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">ipl</span><span class="p">))</span>
+<a name="ln-145"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</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">ipl</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">ipl</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">vb</span><span class="p">(:))</span> <span class="o">/</span> <span class="p">(</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">ipl</span><span class="p">))</span>
+<a name="ln-146"></a>            <span class="n">Lpl</span><span class="p">(:)</span> <span class="o">=</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">ipl</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</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">ipl</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:))</span>
+<a name="ln-147"></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="n">Lpl</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">ipl</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">Lpl</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">ipl</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">ipl</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="n">ipl</span><span class="p">))</span>
+<a name="ln-148"></a>     
+<a name="ln-149"></a>            <span class="n">Lcb</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="p">((</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">xcom</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</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="o">-</span> <span class="n">vcom</span><span class="p">(:)))</span>
+<a name="ln-150"></a>   
+<a name="ln-151"></a>            <span class="n">ke_orbit</span> <span class="o">=</span> <span class="n">ke_orbit</span> <span class="o">+</span> <span class="mf">0.5_DP</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-152"></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="n">ke_spin</span> <span class="o">=</span> <span class="n">ke_spin</span> <span class="o">+</span> <span class="mf">0.5_DP</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</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-153"></a>            <span class="c">! Update mass of central body to be consistent with its total mass</span>
+<a name="ln-154"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dGM</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">dGM</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">ipl</span><span class="p">)</span>
+<a name="ln-155"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dR</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">dR</span> <span class="o">+</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span> <span class="o">*</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">ipl</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="p">)</span><span class="o">**</span><span class="mi">3</span> <span class="o">-</span> <span class="mf">2.0_DP</span> <span class="o">/</span> <span class="mf">9.0_DP</span> <span class="o">*</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">ipl</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="p">)</span><span class="o">**</span><span class="mi">6</span>
+<a name="ln-156"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">GM0</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dGM</span>
+<a name="ln-157"></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">Gmass</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span>
+<a name="ln-158"></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">R0</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dR</span>
+<a name="ln-159"></a>            <span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-160"></a>            <span class="c">! Add planet angular momentum to central body accumulator</span>
+<a name="ln-161"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">dL</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lpl</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lcb</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dL</span><span class="p">(:)</span>
+<a name="ln-162"></a>            <span class="c">! Update rotation of central body to by consistent with its angular momentum </span>
+<a name="ln-163"></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-164"></a><span class="k">               </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="p">(</span><span class="n">cb</span><span class="p">%</span><span class="n">L0</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">dL</span><span class="p">(:))</span> <span class="o">/</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> <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="p">)</span>        
+<a name="ln-165"></a>               <span class="n">ke_spin</span>  <span class="o">=</span> <span class="n">ke_spin</span> <span class="o">-</span> <span class="mf">0.5_DP</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">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</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-166"></a>            <span class="k">end if</span>
+<a name="ln-167"></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="n">xcom</span><span class="p">(:)</span>
+<a name="ln-168"></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">vcom</span><span class="p">(:)</span>
+<a name="ln-169"></a>            <span class="n">ke_orbit</span> <span class="o">=</span> <span class="n">ke_orbit</span> <span class="o">-</span> <span class="mf">0.5_DP</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-170"></a>         <span class="k">end if</span>
+<a name="ln-171"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">b2h</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-172"></a>   
+<a name="ln-173"></a>         <span class="c">! We must do this for proper book-keeping, since we can no longer track this body&#39;s contribution to energy directly</span>
+<a name="ln-174"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lescape_body</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-175"></a><span class="k">            </span><span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span>  <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="n">ke_orbit</span> <span class="o">+</span> <span class="n">ke_spin</span> <span class="o">+</span> <span class="n">pe</span>
+<a name="ln-176"></a>            <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span>  <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">-</span> <span class="p">(</span><span class="n">ke_orbit</span> <span class="o">+</span> <span class="n">ke_spin</span> <span class="o">+</span> <span class="n">pe</span><span class="p">)</span>
+<a name="ln-177"></a>         <span class="k">else</span>
+<a name="ln-178"></a><span class="k">            </span><span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span>  <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="n">pe</span> 
+<a name="ln-179"></a>            <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">-</span> <span class="n">pe</span>
+<a name="ln-180"></a>         <span class="k">end if</span>
+<a name="ln-181"></a><span class="k">   </span>
+<a name="ln-182"></a><span class="k">      end select</span>
+<a name="ln-183"></a><span class="k">      return</span>
+<a name="ln-184"></a><span class="k">   end subroutine </span><span class="n">symba_discard_conserve_mtm</span>
+<a name="ln-185"></a>
+<a name="ln-186"></a>
+<a name="ln-187"></a>   <span class="k">subroutine </span><span class="n">symba_discard_nonplpl</span><span class="p">(</span><span class="n">pl</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="c">!! author: David A. Minton</span>
+<a name="ln-189"></a>      <span class="c">!!</span>
+<a name="ln-190"></a>      <span class="c">!! Check to see if planets should be discarded based on their positions or because they are unbound</span>
+<a name="ln-191"></a>      <span class="c">!s</span>
+<a name="ln-192"></a>      <span class="c">!!</span>
+<a name="ln-193"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_discard_pl.f90</span>
+<a name="ln-194"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_massive5.f </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">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">pl</span>     <span class="c">!! SyMBA test particle object</span>
+<a name="ln-198"></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-199"></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-200"></a>      <span class="c">! Internals</span>
+<a name="ln-201"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</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">ldiscard</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><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">nsub</span>
+<a name="ln-203"></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">plsub</span>
+<a name="ln-204"></a>    
+<a name="ln-205"></a>      <span class="c">! First check for collisions with the central body</span>
+<a name="ln-206"></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">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-207"></a>         <span class="k">if</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-208"></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-209"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-210"></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">then</span>
+<a name="ln-211"></a><span class="k">               call </span><span class="n">symba_discard_cb_pl</span><span class="p">(</span><span class="n">pl</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-212"></a>            <span class="k">end if</span>
+<a name="ln-213"></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">symba_discard_peri_pl</span><span class="p">(</span><span class="n">pl</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-214"></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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)))</span> <span class="k">then</span>
+<a name="ln-215"></a><span class="k">               </span><span class="n">ldiscard</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">ldiscard</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-216"></a>                  
+<a name="ln-217"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">plsub</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-218"></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">plsub</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">false</span><span class="p">.)</span>
+<a name="ln-219"></a>               <span class="n">nsub</span> <span class="o">=</span> <span class="n">plsub</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-220"></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-221"></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">nsub</span>
+<a name="ln-222"></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">plsub</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">nsub</span><span class="p">)])</span>
+<a name="ln-223"></a>   
+<a name="ln-224"></a>               <span class="c">! Record how many bodies were subtracted in this event</span>
+<a name="ln-225"></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">nsub</span>
+<a name="ln-226"></a>            <span class="k">end if</span>
+<a name="ln-227"></a><span class="k">         end select</span>
+<a name="ln-228"></a><span class="k">      end associate</span>
+<a name="ln-229"></a>
+<a name="ln-230"></a><span class="k">      return</span>
+<a name="ln-231"></a><span class="k">   end subroutine </span><span class="n">symba_discard_nonplpl</span>
 <a name="ln-232"></a>
-<a name="ln-233"></a>   <span class="k">subroutine </span><span class="n">symba_discard_peri_pl</span><span class="p">(</span><span class="n">pl</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-234"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-235"></a>      <span class="c">!!</span>
-<a name="ln-236"></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-237"></a>      <span class="c">!!</span>
-<a name="ln-238"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_discard_peri_pl.f90</span>
-<a name="ln-239"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_mass_peri.f</span>
-<a name="ln-240"></a>      <span class="k">implicit none</span>
-<a name="ln-241"></a>      <span class="c">! Arguments</span>
-<a name="ln-242"></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">pl</span>     <span class="c">!! SyMBA massive body object</span>
-<a name="ln-243"></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-244"></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-245"></a>      <span class="c">! Internals</span>
-<a name="ln-246"></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-247"></a>      <span class="kt">logical</span>            <span class="kd">::</span> <span class="n">lfirst_orig</span>
-<a name="ln-248"></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-233"></a>
+<a name="ln-234"></a>   <span class="k">subroutine </span><span class="n">symba_discard_nonplpl_conservation</span><span class="p">(</span><span class="n">pl</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-235"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-236"></a>      <span class="c">!!</span>
+<a name="ln-237"></a>      <span class="c">!! If there are any bodies that are removed due to either colliding with the central body or escaping the systme,</span>
+<a name="ln-238"></a>      <span class="c">!! we need to track the conserved quantities with the system bookkeeping terms.</span>
+<a name="ln-239"></a>      <span class="k">implicit none</span>
+<a name="ln-240"></a>      <span class="c">! Arguments</span>
+<a name="ln-241"></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">pl</span>     <span class="c">!! SyMBA test particle object</span>
+<a name="ln-242"></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-243"></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 </span>
+<a name="ln-244"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ndiscard</span><span class="p">,</span> <span class="n">dstat</span>
+<a name="ln-246"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lescape</span>
+<a name="ln-247"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</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">discard_l_pl</span>
+<a name="ln-248"></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">discard_index_list</span>
 <a name="ln-249"></a>
-<a name="ln-250"></a>
-<a name="ln-251"></a>      <span class="n">lfirst_orig</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span>
-<a name="ln-252"></a>      <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirst</span>
-<a name="ln-253"></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-254"></a><span class="k">         call </span><span class="n">pl</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-255"></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-256"></a>      <span class="k">else</span>
-<a name="ln-257"></a><span class="k">         call </span><span class="n">pl</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-258"></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-259"></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-260"></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="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">pl</span><span class="p">%</span><span class="n">nplenc</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-261"></a><span class="k">                  if</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="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">(</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="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">(</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> <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-262"></a><span class="k">                     </span><span class="n">pl</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-263"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-264"></a>                     <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">DISCARDED_PERI</span>
-<a name="ln-265"></a>                     <span class="k">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">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="s2">&quot; perihelion distance too small at t = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-266"></a>                  <span class="k">end if</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 do</span>
-<a name="ln-270"></a><span class="k">      end if</span>
-<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">   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>   <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>
+<a name="ln-250"></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>
+<a name="ln-251"></a>         <span class="n">discard_l_pl</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">ldiscard</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="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">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="c">! These are bodies that are discarded but not flagged as pl-pl collision</span>
+<a name="ln-252"></a>         <span class="n">ndiscard</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">discard_l_pl</span><span class="p">(:))</span> 
+<a name="ln-253"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discard_index_list</span><span class="p">(</span><span class="n">ndiscard</span><span class="p">))</span>
+<a name="ln-254"></a>         <span class="n">discard_index_list</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">npl</span><span class="p">)],</span> <span class="n">discard_l_pl</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-255"></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">ndiscard</span>
+<a name="ln-256"></a>            <span class="n">dstat</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="n">discard_index_list</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> 
+<a name="ln-257"></a>            <span class="k">if</span> <span class="p">((</span><span class="n">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_RMIN</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">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_PERI</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-258"></a><span class="k">               </span><span class="n">lescape</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-259"></a>            <span class="k">else if</span> <span class="p">((</span><span class="n">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_RMAX</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">dstat</span> <span class="o">==</span> <span class="n">DISCARDED_RMAXU</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-260"></a><span class="k">               </span><span class="n">lescape</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-261"></a>            <span class="k">else </span>
+<a name="ln-262"></a><span class="k">               cycle</span>
+<a name="ln-263"></a><span class="k">            end if</span>
+<a name="ln-264"></a>            <span class="c">! Conserve all the quantities</span>
+<a name="ln-265"></a>            <span class="k">call </span><span class="n">symba_discard_conserve_mtm</span><span class="p">(</span><span class="n">pl</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">discard_index_list</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">lescape</span><span class="p">)</span>
+<a name="ln-266"></a>         <span class="k">end do</span>
+<a name="ln-267"></a><span class="k">      end associate</span>
+<a name="ln-268"></a>
+<a name="ln-269"></a><span class="k">      return</span>
+<a name="ln-270"></a><span class="k">   end subroutine </span><span class="n">symba_discard_nonplpl_conservation</span>
+<a name="ln-271"></a>
+<a name="ln-272"></a>
+<a name="ln-273"></a>   <span class="k">subroutine </span><span class="n">symba_discard_peri_pl</span><span class="p">(</span><span class="n">pl</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-274"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-275"></a>      <span class="c">!!</span>
+<a name="ln-276"></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-277"></a>      <span class="c">!!</span>
+<a name="ln-278"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_discard_peri_pl.f90</span>
+<a name="ln-279"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_mass_peri.f</span>
+<a name="ln-280"></a>      <span class="k">implicit none</span>
+<a name="ln-281"></a>      <span class="c">! Arguments</span>
+<a name="ln-282"></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">pl</span>     <span class="c">!! SyMBA massive body object</span>
+<a name="ln-283"></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-284"></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-285"></a>      <span class="c">! Internals</span>
+<a name="ln-286"></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-287"></a>      <span class="kt">logical</span>            <span class="kd">::</span> <span class="n">lfirst_orig</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="kd">::</span> <span class="n">i</span>
+<a name="ln-289"></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">timestr</span><span class="p">,</span> <span class="n">idstr</span>
+<a name="ln-290"></a>
+<a name="ln-291"></a>
+<a name="ln-292"></a>      <span class="n">lfirst_orig</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span>
+<a name="ln-293"></a>      <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirst</span>
+<a name="ln-294"></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-295"></a><span class="k">         call </span><span class="n">pl</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-296"></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-297"></a>      <span class="k">else</span>
+<a name="ln-298"></a><span class="k">         call </span><span class="n">pl</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-299"></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-300"></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-301"></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="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">pl</span><span class="p">%</span><span class="n">nplenc</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-302"></a><span class="k">                  if</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="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">(</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="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">(</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> <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-303"></a><span class="k">                     </span><span class="n">pl</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-304"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</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-305"></a>                     <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">DISCARDED_PERI</span>
+<a name="ln-306"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">timestr</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">t</span>
+<a name="ln-307"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">idstr</span><span class="p">,</span> <span class="o">*</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>
+<a name="ln-308"></a>                     <span class="k">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">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">name</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; (&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">idstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;) perihelion distance too small at t = &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">timestr</span><span class="p">))</span> 
+<a name="ln-309"></a>                     <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;DISCARDED_PERI&quot;</span><span class="p">,</span> <span class="n">discard_time</span><span class="o">=</span><span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">discard_xh</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="n">discard_vh</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="n">discard_body_id</span><span class="o">=</span><span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">id</span><span class="p">)</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">            end if</span>
+<a name="ln-313"></a><span class="k">         end do</span>
+<a name="ln-314"></a><span class="k">      end if</span>
+<a name="ln-315"></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-316"></a>   
+<a name="ln-317"></a>      <span class="k">return</span>
+<a name="ln-318"></a><span class="k">   end subroutine </span><span class="n">symba_discard_peri_pl</span>
+<a name="ln-319"></a>
+<a name="ln-320"></a>
+<a name="ln-321"></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-322"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-323"></a>      <span class="c">!!</span>
+<a name="ln-324"></a>      <span class="c">!! Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colliding with the central body or escaping the system</span>
+<a name="ln-325"></a>      <span class="k">implicit none</span>
+<a name="ln-326"></a>      <span class="c">! Arguments</span>
+<a name="ln-327"></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-328"></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-329"></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-330"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">Eorbit_before</span><span class="p">,</span> <span class="n">Eorbit_after</span>
+<a name="ln-332"></a>   
+<a name="ln-333"></a>      <span class="k">select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-334"></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-335"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-336"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-337"></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> <span class="n">plplcollision_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplcollision_list</span><span class="p">)</span>
+<a name="ln-338"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vb2vh</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-339"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xh2xb</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-340"></a>               <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="k">write</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-341"></a>
+<a name="ln-342"></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-343"></a>
+<a name="ln-344"></a>               <span class="k">if</span> <span class="p">(.</span><span class="nb">not</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">return</span>
+<a name="ln-345"></a>
+<a name="ln-346"></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-347"></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-348"></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-349"></a>               <span class="k">end if</span>
+<a name="ln-350"></a>
+<a name="ln-351"></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-352"></a>
+<a name="ln-353"></a>               <span class="c">! Save the add/discard information to file</span>
+<a name="ln-354"></a>               <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-355"></a>
+<a name="ln-356"></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-357"></a>
+<a name="ln-358"></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-359"></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-360"></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-361"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="p">(</span><span class="n">Eorbit_after</span> <span class="o">-</span> <span class="n">Eorbit_before</span><span class="p">)</span>
+<a name="ln-362"></a>               <span class="k">end if</span>
+<a name="ln-363"></a>
+<a name="ln-364"></a><span class="k">            end associate</span>
+<a name="ln-365"></a><span class="k">         end select </span>
+<a name="ln-366"></a><span class="k">      end select</span>
+<a name="ln-367"></a>
+<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_discard_pl</span>
+<a name="ln-370"></a>
+<a name="ln-371"></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 f2e7cc061..2f951d83f 100644
--- a/docs/sourcefile/symba_drift.f90.html
+++ b/docs/sourcefile/symba_drift.f90.html
@@ -134,7 +134,7 @@ <h1>symba_drift.f90
      <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.">34 statements</a>
+    title=" 0.2% of total for source files.">38 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_driftf90EfferentGraph" width="641pt" height="260pt"
+ viewBox="0.00 0.00 641.00 260.00" 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.7 0.7) rotate(0) translate(4 366.74)">
 <title>sourcefile~~symba_drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 903,-260.15 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 910,-366.74 910,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,-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>
+<polygon fill="none" stroke="black" points="906,-189.48 820,-189.48 820,-165.48 906,-165.48 906,-189.48"/>
+<text text-anchor="middle" x="863" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_drift.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.99,-181.08C783.55,-184.2 730.37,-188.76 689.29,-192.27"/>
+<polygon fill="#000000" stroke="#000000" points="688.79,-188.8 679.12,-193.14 689.38,-195.78 688.79,-188.8"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.79,-169.81C811.34,-168.27 802.48,-166.66 794.04,-165.12"/>
+<polygon fill="#000000" stroke="#000000" points="794.48,-161.65 784.02,-163.3 793.23,-168.53 794.48,-161.65"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -574,42 +626,44 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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="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-15"></a>
 <a name="ln-16"></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-17"></a>
-<a name="ln-18"></a><span class="k">      select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-19"></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-20"></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="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><span class="nb">and</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="o">==</span> <span class="nb">system</span><span class="p">%</span><span class="n">irec</span>
-<a name="ln-21"></a>         <span class="k">call </span><span class="n">helio_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-22"></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="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-23"></a>      <span class="k">end select</span>
-<a name="ln-24"></a>
-<a name="ln-25"></a><span class="k">      return</span>
-<a name="ln-26"></a><span class="k">   end subroutine </span><span class="n">symba_drift_pl</span>
-<a name="ln-27"></a>
+<a name="ln-17"></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-18"></a>         <span class="k">select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-19"></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-20"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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> <span class="p">.</span><span class="nb">and</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="nb">system</span><span class="p">%</span><span class="n">irec</span>
+<a name="ln-21"></a>            <span class="k">call </span><span class="n">helio_drift_body</span><span class="p">(</span><span class="n">pl</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-22"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-23"></a>         <span class="k">end select</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">symba_drift_pl</span>
 <a name="ln-28"></a>
-<a name="ln-29"></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-30"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-31"></a>      <span class="c">!!</span>
-<a name="ln-32"></a>      <span class="c">!! Wrapper function used to call the body drift routine from a symba_pl structure</span>
-<a name="ln-33"></a>      <span class="k">implicit none</span>
-<a name="ln-34"></a>      <span class="c">! Arguments</span>
-<a name="ln-35"></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-36"></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-37"></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-38"></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-39"></a>
-<a name="ln-40"></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-41"></a>
-<a name="ln-42"></a><span class="k">      select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-43"></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-44"></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="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><span class="nb">and</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="o">==</span> <span class="nb">system</span><span class="p">%</span><span class="n">irec</span>
-<a name="ln-45"></a>         <span class="k">call </span><span class="n">helio_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-46"></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="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-47"></a>      <span class="k">end select</span>
-<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">symba_drift_tp</span>
-<a name="ln-51"></a>
-<a name="ln-52"></a><span class="k">end submodule </span><span class="n">s_symba_drift</span>
+<a name="ln-29"></a>
+<a name="ln-30"></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-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">!! Wrapper function used to call the body drift routine from a symba_pl structure</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_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-37"></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-38"></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-39"></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-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">      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-43"></a>         <span class="k">select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-44"></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-45"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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</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><span class="nb">and</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="nb">system</span><span class="p">%</span><span class="n">irec</span>
+<a name="ln-46"></a>            <span class="k">call </span><span class="n">helio_drift_body</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> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-47"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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</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> 
+<a name="ln-48"></a>         <span class="k">end select</span>
+<a name="ln-49"></a><span class="k">      end associate</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_drift_tp</span>
+<a name="ln-53"></a>
+<a name="ln-54"></a><span class="k">end submodule </span><span class="n">s_symba_drift</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_encounter_check.f90.html b/docs/sourcefile/symba_encounter_check.f90.html
index 8bed2aa25..312115a05 100644
--- a/docs/sourcefile/symba_encounter_check.f90.html
+++ b/docs/sourcefile/symba_encounter_check.f90.html
@@ -134,7 +134,7 @@ <h1>symba_encounter_check.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.3% of total for source files.">170 statements</a>
+    title=" 1.3% of total for source files.">215 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_encounter_checkf90EfferentGraph" width="641pt" height="243pt"
+ viewBox="0.00 0.00 641.00 242.99" 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 366.74)">
 <title>sourcefile~~symba_encounter_check.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 967,-260.15 967,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 974,-366.74 974,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,-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>
+<polygon fill="none" stroke="black" points="970,-189.48 820,-189.48 820,-165.48 970,-165.48 970,-189.48"/>
+<text text-anchor="middle" x="895" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.69,-183.08C778.57,-186.18 728.1,-189.98 689.35,-192.9"/>
+<polygon fill="#000000" stroke="#000000" points="688.96,-189.42 679.25,-193.66 689.49,-196.4 688.96,-189.42"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.67,-167.01C810.99,-165.79 802.38,-164.58 794.36,-163.45"/>
+<polygon fill="#000000" stroke="#000000" points="794.58,-159.94 784.19,-162.01 793.6,-166.87 794.58,-159.94"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_encounter_check.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -562,225 +614,284 @@ <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 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-5"></a><span class="k">   subroutine </span><span class="n">symba_encounter_check_all</span><span class="p">(</span><span class="n">nplplm</span><span class="p">,</span> <span class="n">k_plpl</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">rhill</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">loc_lvdotr</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">!! Check for an encounter between massive bodies.</span>
-<a name="ln-9"></a>      <span class="c">!!</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_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-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="nb">system</span>         <span class="c">!! SyMBA nbody system object</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="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-15"></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-16"></a>      <span class="c">! Result</span>
-<a name="ln-17"></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-18"></a>      <span class="c">! Internals</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">k</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">nenc</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">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-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">lencounter</span><span class="p">,</span> <span class="n">loc_lvdotr</span>
-<a name="ln-23"></a>  
-<a name="ln-24"></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-25"></a>
-<a name="ln-26"></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> <span class="n">nplpl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span>
-<a name="ln-27"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(</span><span class="n">nplpl</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">nplpl</span><span class="p">))</span>
-<a name="ln-28"></a>         <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-29"></a>   
-<a name="ln-30"></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">nplpl</span>
-<a name="ln-31"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">i</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">j</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-32"></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">j</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-33"></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">vh</span><span class="p">(:,</span> <span class="n">j</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-34"></a>               <span class="k">call </span><span class="n">symba_encounter_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">pl</span><span class="p">%</span><span class="n">rhill</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">rhill</span><span class="p">(</span><span class="n">j</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">k</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-35"></a>            <span class="k">end associate</span>
-<a name="ln-36"></a><span class="k">         end do</span>
-<a name="ln-37"></a>
-<a name="ln-38"></a><span class="k">         </span><span class="n">nenc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(:))</span>
-<a name="ln-39"></a>         <span class="n">lany_encounter</span> <span class="o">=</span> <span class="n">nenc</span> <span class="o">&gt;</span> <span class="mi">0</span>
-<a name="ln-40"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-41"></a><span class="k">            associate</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-42"></a>               <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="n">nenc</span><span class="p">)</span>
-<a name="ln-43"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">loc_lvdotr</span><span class="p">(:),</span> <span class="n">lencounter</span><span class="p">(:))</span>
-<a name="ln-44"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</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">lencounter</span><span class="p">(:))</span>
-<a name="ln-45"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</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">lencounter</span><span class="p">(:))</span>
-<a name="ln-46"></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">nenc</span>
-<a name="ln-47"></a>                  <span class="n">plplenc_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-48"></a>                  <span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
-<a name="ln-49"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</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">true</span><span class="p">.</span>
-<a name="ln-50"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</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">true</span><span class="p">.</span>
-<a name="ln-51"></a>               <span class="k">end do</span>
-<a name="ln-52"></a><span class="k">            end associate</span>
-<a name="ln-53"></a><span class="k">         end if</span>
-<a name="ln-54"></a><span class="k">      end associate</span>
-<a name="ln-55"></a><span class="k">      return</span>
-<a name="ln-56"></a><span class="k">   end function </span><span class="n">symba_encounter_check_pl</span>
-<a name="ln-57"></a>
-<a name="ln-58"></a>
-<a name="ln-59"></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-60"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-61"></a>      <span class="c">!!</span>
-<a name="ln-62"></a>      <span class="c">!! Check for an encounter between test particles and massive bodies in the pltpenc list.</span>
-<a name="ln-63"></a>      <span class="c">!! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types.</span>
-<a name="ln-64"></a>      <span class="c">!!</span>
-<a name="ln-65"></a>      <span class="c">!! Adapted from portions of David E. Kaufmann&#39;s Swifter routine: symba_step_recur.f90</span>
-<a name="ln-66"></a>      <span class="k">implicit none</span>
-<a name="ln-67"></a>      <span class="c">! Arguments</span>
-<a name="ln-68"></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-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="nb">system</span>     <span class="c">!! SyMBA nbody system object</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="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-71"></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-72"></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-73"></a>      <span class="c">! Internals</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">k</span>
-<a name="ln-75"></a>      <span class="kt">real</span><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-76"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">isplpl</span>
-<a name="ln-77"></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">rlim2</span><span class="p">,</span> <span class="n">rji2</span>
-<a name="ln-78"></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">lencmask</span>
-<a name="ln-79"></a>
-<a name="ln-80"></a>      <span class="n">lany_encounter</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-81"></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>
-<a name="ln-82"></a>
-<a name="ln-83"></a><span class="k">      select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-84"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
-<a name="ln-85"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-86"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span>
-<a name="ln-87"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-88"></a>      <span class="k">end select</span>
-<a name="ln-89"></a>
-<a name="ln-90"></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-91"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-92"></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-93"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-94"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">lencmask</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">))</span>
-<a name="ln-95"></a>            <span class="n">lencmask</span><span class="p">(:)</span> <span class="o">=</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">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</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">self</span><span class="p">%</span><span class="n">level</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">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">irec</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-96"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">any</span><span class="p">(</span><span class="n">lencmask</span><span class="p">(:)))</span> <span class="k">return</span>
-<a name="ln-97"></a><span class="k">            associate</span><span class="p">(</span><span class="n">ind1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">ind2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span> 
-<a name="ln-98"></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">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lencmask</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-99"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-100"></a><span class="k">                     </span><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">ind2</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-101"></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">ind2</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-102"></a>                     <span class="k">call </span><span class="n">symba_encounter_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">pl</span><span class="p">%</span><span class="n">rhill</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="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</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">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-103"></a>                  <span class="k">else</span>
-<a name="ln-104"></a><span class="k">                     </span><span class="n">xr</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">ind2</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-105"></a>                     <span class="n">vr</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">ind2</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-106"></a>                     <span class="k">call </span><span class="n">symba_encounter_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">pl</span><span class="p">%</span><span class="n">rhill</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="mf">0.0_DP</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">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-107"></a>                  <span class="k">end if</span>
-<a name="ln-108"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-109"></a><span class="k">                     if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-110"></a><span class="k">                        </span><span class="n">rlim2</span> <span class="o">=</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">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><span class="o">**</span><span class="mi">2</span>
-<a name="ln-111"></a>                     <span class="k">else</span>
-<a name="ln-112"></a><span class="k">                        </span><span class="n">rlim2</span> <span class="o">=</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-113"></a>                     <span class="k">end if</span>
-<a name="ln-114"></a><span class="k">                     </span><span class="n">rji2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">xr</span><span class="p">(:),</span> <span class="n">xr</span><span class="p">(:))</span><span class="c">! Check to see if these are physically overlapping bodies first, which we should ignore</span>
-<a name="ln-115"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">&gt;</span> <span class="n">rlim2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-116"></a><span class="k">                        </span><span class="n">lany_encounter</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-117"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">levelg</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">irec</span>
-<a name="ln-118"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">levelm</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="nb">MAX</span><span class="p">(</span><span class="n">irec</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span>
-<a name="ln-119"></a>                        <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-120"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="n">irec</span>
-<a name="ln-121"></a>                           <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="nb">MAX</span><span class="p">(</span><span class="n">irec</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">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span>
-<a name="ln-122"></a>                        <span class="k">else</span>
-<a name="ln-123"></a><span class="k">                           </span><span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="n">irec</span>
-<a name="ln-124"></a>                           <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="nb">MAX</span><span class="p">(</span><span class="n">irec</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">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span>
-<a name="ln-125"></a>                        <span class="k">end if</span>
-<a name="ln-126"></a><span class="k">                        </span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
-<a name="ln-127"></a>                     <span class="k">end if</span>
-<a name="ln-128"></a><span class="k">                  end if   </span>
-<a name="ln-129"></a><span class="k">               end do</span>
-<a name="ln-130"></a><span class="k">            end associate</span>
-<a name="ln-131"></a><span class="k">         end select</span>
-<a name="ln-132"></a><span class="k">      end select</span>
-<a name="ln-133"></a>
-<a name="ln-134"></a><span class="k">      return</span>
-<a name="ln-135"></a><span class="k">   end function </span><span class="n">symba_encounter_check_pltpenc</span>
-<a name="ln-136"></a>
-<a name="ln-137"></a>
-<a name="ln-138"></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-139"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-140"></a>      <span class="c">!!</span>
-<a name="ln-141"></a>      <span class="c">!! Check for an encounter between test particles and massive bodies.</span>
-<a name="ln-142"></a>      <span class="c">!!</span>
-<a name="ln-143"></a>      <span class="k">implicit none</span>
-<a name="ln-144"></a>      <span class="c">! Arguments</span>
-<a name="ln-145"></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-146"></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-147"></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-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">irec</span>           <span class="c">!! Current recursion level</span>
-<a name="ln-149"></a>      <span class="c">! Result</span>
-<a name="ln-150"></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-151"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">r2crit</span><span class="p">,</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">r2</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">tmin</span><span class="p">,</span> <span class="n">r2min</span><span class="p">,</span> <span class="n">term2</span>
-<a name="ln-153"></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">k</span><span class="p">,</span><span class="n">nenc</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="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-155"></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="p">,</span> <span class="n">loc_lvdotr</span>
-<a name="ln-156"></a>  
-<a name="ln-157"></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-158"></a>
-<a name="ln-159"></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">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-160"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(</span><span class="n">ntp</span><span class="p">,</span> <span class="n">npl</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">ntp</span><span class="p">,</span> <span class="n">npl</span><span class="p">))</span>
-<a name="ln-161"></a>         <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-162"></a>   
-<a name="ln-163"></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-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">ntp</span>
-<a name="ln-165"></a>               <span class="n">xr</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-166"></a>               <span class="n">vr</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-167"></a>               <span class="k">call </span><span class="n">symba_encounter_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">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="mf">0.0_DP</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">i</span><span class="p">,</span><span class="n">j</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-168"></a>            <span class="k">end do</span>
-<a name="ln-169"></a><span class="k">         end do</span>
-<a name="ln-170"></a>
-<a name="ln-171"></a><span class="k">         </span><span class="n">nenc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(:,:))</span>
-<a name="ln-172"></a>         <span class="n">lany_encounter</span> <span class="o">=</span> <span class="n">nenc</span> <span class="o">&gt;</span> <span class="mi">0</span>
-<a name="ln-173"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-174"></a><span class="k">            associate</span><span class="p">(</span><span class="n">pltpenc_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">)</span>
-<a name="ln-175"></a>               <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="n">nenc</span><span class="p">)</span>
-<a name="ln-176"></a>               <span class="n">pltpenc_list</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">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-177"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
-<a name="ln-178"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">loc_lvdotr</span><span class="p">(:,:),</span> <span class="n">lencounter</span><span class="p">(:,:))</span>
-<a name="ln-179"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="nb">spread</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">npl</span><span class="p">)],</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">ncopies</span><span class="o">=</span><span class="n">ntp</span><span class="p">),</span> <span class="n">lencounter</span><span class="p">(:,:))</span> 
-<a name="ln-180"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="nb">spread</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">ntp</span><span class="p">)],</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">,</span> <span class="n">ncopies</span><span class="o">=</span><span class="n">npl</span><span class="p">),</span> <span class="n">lencounter</span><span class="p">(:,:))</span>
-<a name="ln-181"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-182"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-183"></a>                  <span class="n">pl</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-184"></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">nenc</span>
-<a name="ln-185"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</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">true</span><span class="p">.</span>
-<a name="ln-186"></a>                  <span class="k">end do</span>
-<a name="ln-187"></a><span class="k">               end select</span>
-<a name="ln-188"></a><span class="k">            end associate</span>
-<a name="ln-189"></a><span class="k">         end if</span>
-<a name="ln-190"></a><span class="k">      end associate</span>
-<a name="ln-191"></a>
-<a name="ln-192"></a><span class="k">      return</span>
-<a name="ln-193"></a><span class="k">   end function </span><span class="n">symba_encounter_check_tp</span>
-<a name="ln-194"></a>
-<a name="ln-195"></a>
-<a name="ln-196"></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-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">!! Check for an encounter.</span>
-<a name="ln-200"></a>      <span class="c">!!</span>
-<a name="ln-201"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_chk.f90</span>
-<a name="ln-202"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_chk.f</span>
-<a name="ln-203"></a>      <span class="k">implicit none</span>
-<a name="ln-204"></a>      <span class="c">! Arguments</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">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-206"></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-207"></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-208"></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-209"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">rcrit</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">,</span> <span class="n">vdotr</span>
-<a name="ln-211"></a>
-<a name="ln-212"></a>      <span class="n">rcrit</span> <span class="o">=</span> <span class="p">(</span><span class="n">rhill1</span> <span class="o">+</span> <span class="n">rhill2</span><span class="p">)</span><span class="o">*</span><span class="n">RHSCALE</span><span class="o">*</span><span class="p">(</span><span class="n">RSHELL</span><span class="o">**</span><span class="p">(</span><span class="n">irec</span><span class="p">))</span>
-<a name="ln-213"></a>      <span class="n">r2crit</span> <span class="o">=</span> <span class="n">rcrit</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-214"></a>      <span class="n">r2</span> <span class="o">=</span> <span class="n">xr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">yr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">zr</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-215"></a>      <span class="n">v2</span> <span class="o">=</span> <span class="n">vxr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vyr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vzr</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-216"></a>      <span class="n">vdotr</span> <span class="o">=</span> <span class="n">xr</span> <span class="o">*</span> <span class="n">vxr</span> <span class="o">+</span> <span class="n">yr</span> <span class="o">*</span> <span class="n">vyr</span> <span class="o">+</span> <span class="n">zr</span> <span class="o">*</span> <span class="n">vzr</span>
-<a name="ln-217"></a>      <span class="n">lencounter</span> <span class="o">=</span> <span class="n">rmvs_chk_ind</span><span class="p">(</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">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">)</span>
-<a name="ln-218"></a>      <span class="n">lvdotr</span> <span class="o">=</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
+<a name="ln-8"></a>      <span class="c">!! Check for encounters between massive bodies. Split off from the main subroutine for performance</span>
+<a name="ln-9"></a>      <span class="k">implicit none</span>
+<a name="ln-10"></a><span class="k">      </span><span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nplplm</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">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">k_plpl</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">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>
+<a name="ln-13"></a>      <span class="kt">real</span><span 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">rhill</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="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>
+<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">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-16"></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">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">loc_lvdotr</span>
+<a name="ln-17"></a>      <span class="c">! Internals</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">k</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</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="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><span class="p">,</span> <span class="n">rhill1</span><span class="p">,</span> <span class="n">rhill2</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a>      <span class="c">!$omp parallel do default(private)&amp;</span>
+<a name="ln-23"></a>      <span class="c">!$omp shared(nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr)</span>
+<a name="ln-24"></a>      <span class="k">do </span><span class="n">k</span> <span class="o">=</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">nplplm</span>
+<a name="ln-25"></a>         <span class="n">i</span> <span class="o">=</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>
+<a name="ln-26"></a>         <span class="n">j</span> <span class="o">=</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-27"></a>         <span class="n">xr</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="n">j</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="n">i</span><span class="p">)</span>
+<a name="ln-28"></a>         <span class="n">yr</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="n">j</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="n">i</span><span class="p">)</span>
+<a name="ln-29"></a>         <span class="n">zr</span> <span class="o">=</span> <span class="n">x</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">x</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-30"></a>         <span class="n">vxr</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="n">j</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="n">i</span><span class="p">)</span>
+<a name="ln-31"></a>         <span class="n">vyr</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="n">j</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="n">i</span><span class="p">)</span>
+<a name="ln-32"></a>         <span class="n">vzr</span> <span class="o">=</span> <span class="n">v</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">v</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-33"></a>         <span class="n">rhill1</span> <span class="o">=</span> <span class="n">rhill</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-34"></a>         <span class="n">rhill2</span> <span class="o">=</span> <span class="n">rhill</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-35"></a>         <span class="n">lencounter</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">false</span><span class="p">.</span>
+<a name="ln-36"></a>         <span class="n">loc_lvdotr</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">false</span><span class="p">.</span>
+<a name="ln-37"></a>         <span class="k">call </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">k</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-38"></a>      <span class="k">end do</span>
+<a name="ln-39"></a>      <span class="c">!$omp end parallel do</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">symba_encounter_check_all</span>
+<a name="ln-43"></a>
+<a name="ln-44"></a>
+<a name="ln-45"></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-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">!! Check for an encounter between massive bodies.</span>
+<a name="ln-49"></a>      <span class="c">!!</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">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-53"></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-54"></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-55"></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-56"></a>      <span class="c">! Result</span>
+<a name="ln-57"></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-58"></a>      <span class="c">! Internals</span>
+<a name="ln-59"></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><span class="p">,</span> <span class="n">nplplm</span>
+<a name="ln-60"></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">nenc</span>
+<a name="ln-61"></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="p">,</span> <span class="n">loc_lvdotr</span>
+<a name="ln-62"></a>  
+<a name="ln-63"></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-64"></a>
+<a name="ln-65"></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>
+<a name="ln-66"></a>         <span class="n">nplplm</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nplplm</span>
+<a name="ln-67"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(</span><span class="n">nplplm</span><span class="p">))</span>
+<a name="ln-68"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">nplplm</span><span class="p">))</span>
+<a name="ln-69"></a>  
+<a name="ln-70"></a>         <span class="k">call </span><span class="n">symba_encounter_check_all</span><span class="p">(</span><span class="n">nplplm</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</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">pl</span><span class="p">%</span><span class="n">vh</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">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">loc_lvdotr</span><span class="p">)</span>
+<a name="ln-71"></a>
+<a name="ln-72"></a>         <span class="c">!$omp parallel workshare</span>
+<a name="ln-73"></a>         <span class="n">nenc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(:))</span>
+<a name="ln-74"></a>         <span class="c">!$omp end parallel workshare</span>
+<a name="ln-75"></a>
+<a name="ln-76"></a>         <span class="n">lany_encounter</span> <span class="o">=</span> <span class="n">nenc</span> <span class="o">&gt;</span> <span class="mi">0</span>
+<a name="ln-77"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-78"></a><span class="k">            associate</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-79"></a>               <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-80"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">loc_lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nplplm</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">nplplm</span><span class="p">))</span>
+<a name="ln-81"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">kidx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">([(</span><span class="n">k</span><span class="p">,</span> <span class="n">k</span> <span class="o">=</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">nplplm</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">nplplm</span><span class="p">))</span>
+<a name="ln-82"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">loc_lvdotr</span><span class="p">)</span>
+<a name="ln-83"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</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">plplenc_list</span><span class="p">%</span><span class="n">kidx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-84"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</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">plplenc_list</span><span class="p">%</span><span class="n">kidx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-85"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</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">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-86"></a>               <span class="n">plplenc_list</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</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">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-87"></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">nenc</span>
+<a name="ln-88"></a>                  <span class="n">i</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-89"></a>                  <span class="n">j</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-90"></a>                  <span class="n">plplenc_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-91"></a>                  <span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-92"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</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-93"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</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-94"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-95"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-96"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-97"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-98"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</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">nplenc</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-99"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">j</span><span class="p">)</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="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-100"></a>               <span class="k">end do</span>
+<a name="ln-101"></a><span class="k">            end associate</span>
+<a name="ln-102"></a><span class="k">         end if</span>
+<a name="ln-103"></a><span class="k">      end associate</span>
+<a name="ln-104"></a><span class="k">      return</span>
+<a name="ln-105"></a><span class="k">   end function </span><span class="n">symba_encounter_check_pl</span>
+<a name="ln-106"></a>
+<a name="ln-107"></a>
+<a name="ln-108"></a>   <span class="k">module function </span><span class="n">symba_encounter_check</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-109"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-110"></a>      <span class="c">!!</span>
+<a name="ln-111"></a>      <span class="c">!! Check for an encounter between test particles and massive bodies in the pltpenc list.</span>
+<a name="ln-112"></a>      <span class="c">!! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types.</span>
+<a name="ln-113"></a>      <span class="c">!!</span>
+<a name="ln-114"></a>      <span class="c">!! Adapted from portions of David E. Kaufmann&#39;s Swifter routine: symba_step_recur.f90</span>
+<a name="ln-115"></a>      <span class="k">implicit none</span>
+<a name="ln-116"></a>      <span class="c">! Arguments</span>
+<a name="ln-117"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-pl encounter list object</span>
+<a name="ln-118"></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-119"></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-120"></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-121"></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-122"></a>      <span class="c">! Internals</span>
+<a name="ln-123"></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">k</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">xr</span><span class="p">,</span> <span class="n">vr</span>
+<a name="ln-125"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">isplpl</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">rlim2</span><span class="p">,</span> <span class="n">rji2</span>
+<a name="ln-127"></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">lencmask</span>
+<a name="ln-128"></a>
+<a name="ln-129"></a>      <span class="n">lany_encounter</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-130"></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>
+<a name="ln-131"></a>
+<a name="ln-132"></a><span class="k">      select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-133"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
+<a name="ln-134"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-135"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span>
+<a name="ln-136"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-137"></a>      <span class="k">end select</span>
+<a name="ln-138"></a>
+<a name="ln-139"></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-140"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-141"></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-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">allocate</span><span class="p">(</span><span class="n">lencmask</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-144"></a>            <span class="n">lencmask</span><span class="p">(:)</span> <span class="o">=</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">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</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">self</span><span class="p">%</span><span class="n">level</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">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">irec</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-145"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">any</span><span class="p">(</span><span class="n">lencmask</span><span class="p">(:)))</span> <span class="k">return</span>
+<a name="ln-146"></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">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lencmask</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-147"></a>               <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-148"></a>               <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-149"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-150"></a><span class="k">                  </span><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">j</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-151"></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">j</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>
+<a name="ln-152"></a>                  <span class="k">call </span><span class="n">symba_encounter_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">pl</span><span class="p">%</span><span class="n">rhill</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">rhill</span><span class="p">(</span><span class="n">j</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">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-153"></a>               <span class="k">else</span>
+<a name="ln-154"></a><span class="k">                  </span><span class="n">xr</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">j</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-155"></a>                  <span class="n">vr</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">j</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>
+<a name="ln-156"></a>                  <span class="k">call </span><span class="n">symba_encounter_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">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="mf">0.0_DP</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">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-157"></a>               <span class="k">end if</span>
+<a name="ln-158"></a><span class="k">               if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-159"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-160"></a><span class="k">                     </span><span class="n">rlim2</span> <span class="o">=</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> <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><span class="o">**</span><span class="mi">2</span>
+<a name="ln-161"></a>                  <span class="k">else</span>
+<a name="ln-162"></a><span class="k">                     </span><span class="n">rlim2</span> <span class="o">=</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><span class="o">**</span><span class="mi">2</span>
+<a name="ln-163"></a>                  <span class="k">end if</span>
+<a name="ln-164"></a><span class="k">                  </span><span class="n">rji2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">xr</span><span class="p">(:),</span> <span class="n">xr</span><span class="p">(:))</span><span class="c">! Check to see if these are physically overlapping bodies first, which we should ignore</span>
+<a name="ln-165"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">&gt;</span> <span class="n">rlim2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-166"></a><span class="k">                     </span><span class="n">lany_encounter</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-167"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-168"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">MAX</span><span class="p">(</span><span class="n">irec</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">i</span><span class="p">))</span>
+<a name="ln-169"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-170"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-171"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="nb">MAX</span><span class="p">(</span><span class="n">irec</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">j</span><span class="p">))</span>
+<a name="ln-172"></a>                     <span class="k">else</span>
+<a name="ln-173"></a><span class="k">                        </span><span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-174"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="nb">MAX</span><span class="p">(</span><span class="n">irec</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">j</span><span class="p">))</span>
+<a name="ln-175"></a>                     <span class="k">end if</span>
+<a name="ln-176"></a><span class="k">                     </span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-177"></a>                  <span class="k">end if</span>
+<a name="ln-178"></a><span class="k">               end if   </span>
+<a name="ln-179"></a><span class="k">            end do</span>
+<a name="ln-180"></a><span class="k">         end select</span>
+<a name="ln-181"></a><span class="k">      end select</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 function </span><span class="n">symba_encounter_check</span>
+<a name="ln-185"></a>
+<a name="ln-186"></a>
+<a name="ln-187"></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-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">!! Check for an encounter between test particles and massive bodies.</span>
+<a name="ln-191"></a>      <span class="c">!!</span>
+<a name="ln-192"></a>      <span class="k">implicit none</span>
+<a name="ln-193"></a>      <span class="c">! Arguments</span>
+<a name="ln-194"></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-195"></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-196"></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-197"></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-198"></a>      <span class="c">! Result</span>
+<a name="ln-199"></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-200"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">r2crit</span><span class="p">,</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">r2</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">tmin</span><span class="p">,</span> <span class="n">r2min</span><span class="p">,</span> <span class="n">term2</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><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">,</span><span class="n">nenc</span><span class="p">,</span> <span class="n">plind</span><span class="p">,</span> <span class="n">tpind</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="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-204"></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="p">,</span> <span class="n">loc_lvdotr</span>
+<a name="ln-205"></a>  
+<a name="ln-206"></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-207"></a>
+<a name="ln-208"></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">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-209"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(</span><span class="n">ntp</span><span class="p">,</span> <span class="n">npl</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">ntp</span><span class="p">,</span> <span class="n">npl</span><span class="p">))</span>
+<a name="ln-210"></a>         <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-211"></a>   
+<a name="ln-212"></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-213"></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-214"></a>               <span class="n">xr</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-215"></a>               <span class="n">vr</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-216"></a>               <span class="k">call </span><span class="n">symba_encounter_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">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="mf">0.0_DP</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">i</span><span class="p">,</span><span class="n">j</span><span class="p">),</span> <span class="n">loc_lvdotr</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-217"></a>            <span class="k">end do</span>
+<a name="ln-218"></a><span class="k">         end do</span>
 <a name="ln-219"></a>
-<a name="ln-220"></a>      <span class="k">return</span>
-<a name="ln-221"></a><span class="k">   end subroutine </span><span class="n">symba_encounter_check_one</span>
-<a name="ln-222"></a>
-<a name="ln-223"></a><span class="k">end submodule </span><span class="n">s_symba_encounter_check</span>
+<a name="ln-220"></a><span class="k">         </span><span class="n">nenc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lencounter</span><span class="p">(:,:))</span>
+<a name="ln-221"></a>         <span class="n">lany_encounter</span> <span class="o">=</span> <span class="n">nenc</span> <span class="o">&gt;</span> <span class="mi">0</span>
+<a name="ln-222"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-223"></a><span class="k">            associate</span><span class="p">(</span><span class="n">pltpenc_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">)</span>
+<a name="ln-224"></a>               <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-225"></a>               <span class="n">pltpenc_list</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">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-226"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-227"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">loc_lvdotr</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="mi">1</span><span class="p">:</span><span class="n">npl</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">ntp</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-228"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="nb">spread</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">npl</span><span class="p">)],</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">ncopies</span><span class="o">=</span><span class="n">ntp</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">ntp</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-229"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="nb">spread</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">ntp</span><span class="p">)],</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">,</span> <span class="n">ncopies</span><span class="o">=</span><span class="n">npl</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">ntp</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-230"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</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">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-231"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</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">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-232"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-233"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-234"></a>                  <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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-235"></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">nenc</span>
+<a name="ln-236"></a>                     <span class="n">plind</span> <span class="o">=</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-237"></a>                     <span class="n">tpind</span> <span class="o">=</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-238"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">plind</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-239"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">plind</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-240"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">plind</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-241"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">tpind</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-242"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">tpind</span><span class="p">)</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-243"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="n">plind</span><span class="p">)</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="n">plind</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-244"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">tpind</span><span class="p">)</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="n">tpind</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-245"></a>                  <span class="k">end do</span>
+<a name="ln-246"></a><span class="k">               end select</span>
+<a name="ln-247"></a><span class="k">            end associate</span>
+<a name="ln-248"></a><span class="k">         end if</span>
+<a name="ln-249"></a><span class="k">      end associate</span>
+<a name="ln-250"></a>
+<a name="ln-251"></a><span class="k">      return</span>
+<a name="ln-252"></a><span class="k">   end function </span><span class="n">symba_encounter_check_tp</span>
+<a name="ln-253"></a>
+<a name="ln-254"></a>
+<a name="ln-255"></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-256"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-257"></a>      <span class="c">!!</span>
+<a name="ln-258"></a>      <span class="c">!! Check for an encounter.</span>
+<a name="ln-259"></a>      <span class="c">!!</span>
+<a name="ln-260"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_chk.f90</span>
+<a name="ln-261"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_chk.f</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="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-265"></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-266"></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-267"></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-268"></a>      <span class="c">! Internals</span>
+<a name="ln-269"></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">rcrit</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">,</span> <span class="n">vdotr</span>
+<a name="ln-270"></a>
+<a name="ln-271"></a>      <span class="n">rcrit</span> <span class="o">=</span> <span class="p">(</span><span class="n">rhill1</span> <span class="o">+</span> <span class="n">rhill2</span><span class="p">)</span><span class="o">*</span><span class="n">RHSCALE</span><span class="o">*</span><span class="p">(</span><span class="n">RSHELL</span><span class="o">**</span><span class="p">(</span><span class="n">irec</span><span class="p">))</span>
+<a name="ln-272"></a>      <span class="n">r2crit</span> <span class="o">=</span> <span class="n">rcrit</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-273"></a>      <span class="n">r2</span> <span class="o">=</span> <span class="n">xr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">yr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">zr</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-274"></a>      <span class="n">v2</span> <span class="o">=</span> <span class="n">vxr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vyr</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">vzr</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-275"></a>      <span class="n">vdotr</span> <span class="o">=</span> <span class="n">xr</span> <span class="o">*</span> <span class="n">vxr</span> <span class="o">+</span> <span class="n">yr</span> <span class="o">*</span> <span class="n">vyr</span> <span class="o">+</span> <span class="n">zr</span> <span class="o">*</span> <span class="n">vzr</span>
+<a name="ln-276"></a>      <span class="n">lencounter</span> <span class="o">=</span> <span class="n">rmvs_chk_ind</span><span class="p">(</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">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">)</span>
+<a name="ln-277"></a>      <span class="n">lvdotr</span> <span class="o">=</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
+<a name="ln-278"></a>
+<a name="ln-279"></a>      <span class="k">return</span>
+<a name="ln-280"></a><span class="k">   end subroutine </span><span class="n">symba_encounter_check_one</span>
+<a name="ln-281"></a>
+<a name="ln-282"></a><span class="k">end submodule </span><span class="n">s_symba_encounter_check</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_fragmentation.f90.html b/docs/sourcefile/symba_fragmentation.f90.html
deleted file mode 100644
index cf0a87a7f..000000000
--- a/docs/sourcefile/symba_fragmentation.f90.html
+++ /dev/null
@@ -1,1088 +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_fragmentation.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>symba_fragmentation.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=" 2.6% of total for source files.">345 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 class="active">symba_fragmentation.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_symba_fragmentation.html">s_symba_fragmentation</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/symba_fragmentation.f90.html#src">symba_fragmentation.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~~symba_fragmentation.f90~~EfferentGraph Pages: 1 -->
-<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,-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,-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~swiftest.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node2" class="node">
-<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~swiftest.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge1" 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,-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~symba_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node3" class="node">
-<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~symba_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge2" 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,-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.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_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~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~helio_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node5" class="node">
-<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~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.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,-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~lambda_function.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node6" class="node">
-<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~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~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node7" class="node">
-<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~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node8" class="node">
-<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~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="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_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,-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_globals.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node10" class="node">
-<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_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~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~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~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_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="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="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~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~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~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge21" 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.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="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_edge24" class="edge">
-<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>
-</div><script>var pansourcefilesymba_fragmentationf90EfferentGraph = svgPanZoom('#sourcefilesymba_fragmentationf90EfferentGraph', {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_symba_fragmentation.html">s_symba_fragmentation</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/symba_fragmentation.f90.html#src">symba_fragmentation.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">symba_classes</span><span class="p">)</span> <span class="n">s_symba_fragmentation</span>
-<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
-<a name="ln-3"></a>
-<a name="ln-4"></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_DISRUPT</span> <span class="o">=</span> <span class="mi">12</span>
-<a name="ln-5"></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_SUPERCAT</span> <span class="o">=</span> <span class="mi">20</span>
-<a name="ln-6"></a><span class="k">contains</span>
-<a name="ln-7"></a>
-<a name="ln-8"></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-9"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-10"></a>      <span class="c">!!</span>
-<a name="ln-11"></a>      <span class="c">!! Create the fragments resulting from a non-catastrophic disruption collision</span>
-<a name="ln-12"></a>      <span class="c">!! </span>
-<a name="ln-13"></a>      <span class="k">implicit none</span>
-<a name="ln-14"></a>      <span class="c">! Arguments</span>
-<a name="ln-15"></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-16"></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-17"></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-18"></a>      <span class="kt">real</span><span 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-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">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-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">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-21"></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-22"></a>      <span class="c">! Result</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="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-24"></a>      <span class="c">! Internals</span>
-<a name="ln-25"></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">istart</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-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><span class="p">,</span> <span class="n">avg_dens</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><span class="p">,</span> <span class="n">Ip_new</span>
-<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">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="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>      <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="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>
-    </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/symba_io.f90.html b/docs/sourcefile/symba_io.f90.html
index 4848402bd..aa90917f4 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=" 2.5% of total for source files.">336 statements</a>
+    title=" 1.4% of total for source files.">230 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_iof90EfferentGraph" width="641pt" height="263pt"
+ viewBox="0.00 0.00 641.00 262.88" 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 366.74)">
 <title>sourcefile~~symba_io.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 893,-260.15 893,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 900,-366.74 900,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,-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>
+<polygon fill="none" stroke="black" points="896,-189.48 820,-189.48 820,-165.48 896,-165.48 896,-189.48"/>
+<text text-anchor="middle" x="858" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.78,-180.74C784.5,-183.83 730.87,-188.52 689.37,-192.15"/>
+<polygon fill="#000000" stroke="#000000" points="689.02,-188.67 679.36,-193.03 689.63,-195.64 689.02,-188.67"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.98,-170.43C811.58,-168.83 802.59,-167.12 794,-165.48"/>
+<polygon fill="#000000" stroke="#000000" points="794.63,-162.04 784.15,-163.61 793.32,-168.91 794.63,-162.04"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_io.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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -562,404 +614,278 @@ <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="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-5"></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-6"></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-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="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-8"></a>      <span class="c">!! Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader.</span>
+<a name="ln-9"></a>      <span class="c">!!</span>
+<a name="ln-10"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
+<a name="ln-11"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</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">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-15"></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-16"></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-17"></a>                                                           <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-18"></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-19"></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-20"></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-21"></a>      <span class="c">! internals</span>
+<a name="ln-22"></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-23"></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-24"></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-25"></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-26"></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-27"></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-28"></a>
+<a name="ln-29"></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-30"></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-31"></a>
+<a name="ln-32"></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-33"></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-34"></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-35"></a>         <span class="k">rewind</span><span class="p">(</span><span class="n">unit</span><span class="p">)</span>
+<a name="ln-36"></a>         <span class="k">do</span>
+<a name="ln-37"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="n">line</span>
+<a name="ln-38"></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-39"></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-40"></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-41"></a><span class="k">               </span><span class="n">ifirst</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-42"></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-43"></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-44"></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-45"></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-46"></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-47"></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-48"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-49"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">)</span>
+<a name="ln-50"></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-51"></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-52"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;GMTINY&quot;</span><span class="p">)</span>
+<a name="ln-53"></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-54"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;MIN_GMFRAG&quot;</span><span class="p">)</span>
+<a name="ln-55"></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">min_GMfrag</span>
+<a name="ln-56"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;SEED&quot;</span><span class="p">)</span>
+<a name="ln-57"></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-58"></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-59"></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-60"></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-61"></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-62"></a><span class="k">                     </span><span class="n">nseeds</span> <span class="o">=</span> <span class="n">nseeds_from_file</span>
+<a name="ln-63"></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-64"></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-65"></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-66"></a>                        <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">2</span>
+<a name="ln-67"></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-68"></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-69"></a>                     <span class="k">end do</span>
+<a name="ln-70"></a><span class="k">                  else</span> <span class="c">! Seed array in file is too small</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">nseeds_from_file</span>
+<a name="ln-72"></a>                        <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">2</span>
+<a name="ln-73"></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-74"></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-75"></a>                     <span class="k">end do</span>
+<a name="ln-76"></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-77"></a>                  <span class="k">end if</span>
+<a name="ln-78"></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-79"></a>               <span class="k">end select</span>
+<a name="ln-80"></a><span class="k">            end if</span>
+<a name="ln-81"></a><span class="k">         end do</span>
+<a name="ln-82"></a><span class="k">         </span><span class="mi">1</span> <span class="k">continue</span>
+<a name="ln-83"></a>
+<a name="ln-84"></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-85"></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-86"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-87"></a>            <span class="k">return</span>
+<a name="ln-88"></a><span class="k">         else</span>
+<a name="ln-89"></a><span class="k">            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-90"></a>         <span class="k">end if</span>
+<a name="ln-91"></a>
+<a name="ln-92"></a><span class="k">         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-93"></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-94"></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-95"></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-96"></a>            <span class="k">else</span>
+<a name="ln-97"></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-98"></a>            <span class="k">end if</span>
+<a name="ln-99"></a><span class="k">            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-100"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">min_GMfrag</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">min_GMfrag</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GMTINY</span>
+<a name="ln-101"></a>            <span class="k">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;MIN_GMFRAG      = &quot;</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">min_GMfrag</span>
+<a name="ln-102"></a>         <span class="k">end if</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">self</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-105"></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-106"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-107"></a>            <span class="k">return</span>
+<a name="ln-108"></a><span class="k">         end if</span>
+<a name="ln-109"></a>         <span class="c">! All reporting of collision information in SyMBA (including mergers) is now recorded in the Fraggle logfile</span>
+<a name="ln-110"></a>         <span class="k">call </span><span class="n">fraggle_io_log_start</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-111"></a>      <span class="k">end associate</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">      </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">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="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-113"></a><span class="k">      </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-114"></a>
+<a name="ln-115"></a>      <span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-116"></a><span class="k">      return</span>
+<a name="ln-117"></a><span class="k">   end subroutine </span><span class="n">symba_io_param_reader</span>
+<a name="ln-118"></a>
+<a name="ln-119"></a>
+<a name="ln-120"></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-121"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-122"></a>      <span class="c">!!</span>
+<a name="ln-123"></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-124"></a>      <span class="c">!!</span>
+<a name="ln-125"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
+<a name="ln-126"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
+<a name="ln-127"></a>      <span class="k">implicit none</span>
+<a name="ln-128"></a>      <span class="c">! Arguments</span>
+<a name="ln-129"></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-130"></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-131"></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-132"></a>                                                         <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-133"></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-134"></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-135"></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-136"></a>      <span class="c">! Internals</span>
+<a name="ln-137"></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-138"></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-139"></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-140"></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-141"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param_name</span>
+<a name="ln-142"></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">param_value</span>
+<a name="ln-143"></a>      <span class="k">type </span><span class="n">character_array</span>
+<a name="ln-144"></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-145"></a><span class="k">      end type </span><span class="n">character_array</span>
+<a name="ln-146"></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-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">nstr</span>
+<a name="ln-148"></a>
+<a name="ln-149"></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-150"></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-151"></a>
+<a name="ln-152"></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-153"></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-154"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-155"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;MIN_GMFRAG&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">min_GMfrag</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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-156"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</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="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="o">*</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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="o">//</span> <span class="nb">trim</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-157"></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-158"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;SEED&quot;</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">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-160"></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-161"></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-162"></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-163"></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-164"></a>            <span class="k">end do</span>
+<a name="ln-165"></a><span class="k">            write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot; &quot;,A32)&#39;</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="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-166"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</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-167"></a>               <span class="n">nstr</span> <span class="o">=</span> <span class="nb">len</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_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-168"></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-169"></a><span class="k">                  write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(A12)&#39;</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="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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_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="o">//</span> <span class="s2">&quot; &quot;</span>
+<a name="ln-170"></a>               <span class="k">else</span>
+<a name="ln-171"></a><span class="k">                  write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(A12)&#39;</span><span class="p">,</span> <span class="n">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">iomsg</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_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-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 if</span>
+<a name="ln-175"></a>
+<a name="ln-176"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-177"></a>      <span class="k">end associate</span>
+<a name="ln-178"></a>
+<a name="ln-179"></a><span class="k">      return</span>
+<a name="ln-180"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-181"></a><span class="k">      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 writing parameter file for SyMBA: &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">iomsg</span><span class="p">))</span>
+<a name="ln-182"></a>   <span class="k">end subroutine </span><span class="n">symba_io_param_writer</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_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-186"></a>      <span class="k">implicit none</span>
+<a name="ln-187"></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-188"></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-189"></a>      <span class="c">! Internals</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="k">parameter</span>   <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">40</span>
+<a name="ln-191"></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">nsub</span><span class="p">,</span> <span class="n">nadd</span>
+<a name="ln-192"></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-193"></a>      <span class="kt">real</span><span 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-194"></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-195"></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-196"></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-197"></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-198"></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-199"></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-200"></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">errmsg</span><span class="p">,</span> <span class="n">out_stat</span>
+<a name="ln-201"></a>
+<a name="ln-202"></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-203"></a>
+<a name="ln-204"></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-205"></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-206"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-207"></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-208"></a>
+<a name="ln-209"></a>            <span class="c">! Record the discarded body metadata information to file</span>
+<a name="ln-210"></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">NETCDF_FLOAT_TYPE</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">out_type</span> <span class="o">==</span> <span class="n">NETCDF_DOUBLE_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-211"></a><span class="k">               call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">open</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-212"></a>               <span class="k">call </span><span class="n">pl_discards</span><span class="p">%</span><span class="n">write_particle_info</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">)</span>
+<a name="ln-213"></a>               <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">nciu</span><span class="p">%</span><span class="k">close</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-214"></a>            <span class="k">end if</span>
+<a name="ln-215"></a>
+<a name="ln-216"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-217"></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-218"></a><span class="k">               </span><span class="n">out_stat</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span>
+<a name="ln-219"></a>            <span class="k">else</span>
+<a name="ln-220"></a><span class="k">               </span><span class="n">out_stat</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span>
+<a name="ln-221"></a>            <span class="k">end if</span>
+<a name="ln-222"></a><span class="k">            select case</span><span class="p">(</span><span class="n">out_stat</span><span class="p">)</span>
+<a name="ln-223"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-224"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-225"></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-226"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</span><span class="p">)</span>
+<a name="ln-227"></a>            <span class="k">case </span><span class="n">default</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="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-229"></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-230"></a>            <span class="k">end select</span>
+<a name="ln-231"></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-232"></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-233"></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-234"></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-235"></a>            <span class="k">end if</span>
+<a name="ln-236"></a>
+<a name="ln-237"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-238"></a>            <span class="n">iadd</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-239"></a>            <span class="n">isub</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-240"></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-241"></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-242"></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-243"></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-244"></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-245"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-246"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-247"></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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-248"></a>                  <span class="k">else </span>
+<a name="ln-249"></a><span class="k">                     exit</span>
+<a name="ln-250"></a><span class="k">                  end if</span>
+<a name="ln-251"></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-252"></a>               <span class="k">end do</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">nsub</span>
+<a name="ln-254"></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-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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-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">err</span> <span class="o">=</span> <span class="mi">667</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">errmsg</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-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">isub</span> <span class="o">=</span> <span class="n">isub</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">            end do</span>
+<a name="ln-264"></a>
+<a name="ln-265"></a><span class="k">            close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
+<a name="ln-266"></a>         <span class="k">end select</span>
+<a name="ln-267"></a><span class="k">      end associate</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">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">      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>
+<a name="ln-269"></a><span class="k">      return</span>
+<a name="ln-270"></a>
+<a name="ln-271"></a><span class="k">      </span><span class="mi">667</span> <span class="k">continue</span>
+<a name="ln-272"></a><span class="k">      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 writing discard 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">errmsg</span><span class="p">))</span>
+<a name="ln-273"></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-274"></a>   <span class="k">end subroutine </span><span class="n">symba_io_write_discard</span>
+<a name="ln-275"></a>
+<a name="ln-276"></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 95ac4aa8e..d36f3e460 100644
--- a/docs/sourcefile/symba_kick.f90.html
+++ b/docs/sourcefile/symba_kick.f90.html
@@ -134,7 +134,7 @@ <h1>symba_kick.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.2% of total for source files.">160 statements</a>
+    title=" 1.2% of total for source files.">193 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_kickf90EfferentGraph" width="641pt" height="260pt"
+ viewBox="0.00 0.00 641.00 260.00" 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.7 0.7) rotate(0) translate(4 366.74)">
 <title>sourcefile~~symba_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 903,-260.15 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 910,-366.74 910,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,-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>
+<polygon fill="none" stroke="black" points="906,-189.48 820,-189.48 820,-165.48 906,-165.48 906,-189.48"/>
+<text text-anchor="middle" x="863" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.99,-181.08C783.55,-184.2 730.37,-188.76 689.29,-192.27"/>
+<polygon fill="#000000" stroke="#000000" points="688.79,-188.8 679.12,-193.14 689.38,-195.78 688.79,-188.8"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_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="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.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"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.79,-169.81C811.34,-168.27 802.48,-166.66 794.04,-165.12"/>
+<polygon fill="#000000" stroke="#000000" points="794.48,-161.65 784.02,-163.3 793.23,-168.53 794.48,-161.65"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -562,202 +614,255 @@ <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_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-5"></a><span class="k">   module subroutine </span><span class="n">symba_kick_getacch_int_pl</span><span class="p">(</span><span class="n">self</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">!! Compute heliocentric accelerations of massive bodies</span>
+<a name="ln-8"></a>      <span class="c">!! Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY</span>
 <a name="ln-9"></a>      <span class="c">!!</span>
-<a name="ln-10"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_kick_getacch.f90</span>
-<a name="ln-11"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_kick_getacch.f</span>
+<a name="ln-10"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_helio_getacch.f</span>
+<a name="ln-11"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine helio_kick_getacch_int.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">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-15"></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-16"></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-17"></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-18"></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-19"></a>      <span class="c">! Internals</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">k</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="kd">::</span> <span class="n">irij3</span><span class="p">,</span> <span class="n">rji2</span><span class="p">,</span> <span class="n">rlim2</span><span class="p">,</span> <span class="n">faci</span><span class="p">,</span> <span class="n">facj</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">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dx</span>
-<a name="ln-23"></a>
-<a name="ln-24"></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-25"></a><span class="k">      select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-26"></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-27"></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">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">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> <span class="n">nplplenc</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><span class="n">nenc</span><span class="p">)</span>
-<a name="ln-28"></a>            <span class="k">call </span><span class="n">helio_kick_getacch_pl</span><span class="p">(</span><span class="n">pl</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-29"></a>            <span class="c">! Remove accelerations from encountering pairs</span>
-<a name="ln-30"></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">nplplenc</span>
-<a name="ln-31"></a>               <span class="k">associate</span><span class="p">(</span><span class="n">i</span> <span class="o">=&gt;</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">),</span> <span class="n">j</span> <span class="o">=&gt;</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-32"></a>                  <span class="n">dx</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> <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-33"></a>                  <span class="n">rji2</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-34"></a>                  <span class="n">irij3</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">rji2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rji2</span><span class="p">))</span>
-<a name="ln-35"></a>                  <span class="n">faci</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">irij3</span>
-<a name="ln-36"></a>                  <span class="n">facj</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">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">irij3</span>
-<a name="ln-37"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">ah</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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">facj</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-38"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-39"></a>               <span class="k">end associate</span>
-<a name="ln-40"></a><span class="k">            end do</span>
-<a name="ln-41"></a><span class="k">         end associate</span>
-<a name="ln-42"></a><span class="k">      end select</span>
-<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">symba_kick_getacch_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">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-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">!! Compute heliocentric accelerations of test particles</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 symba_kick_getacch_tp.f90</span>
-<a name="ln-54"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_kick_getacch.f</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">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-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">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-60"></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-61"></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-62"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">k</span>
-<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="kd">::</span> <span class="n">rji2</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">rlim2</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">dx</span>
-<a name="ln-66"></a>
-<a name="ln-67"></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-68"></a><span class="k">      select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-69"></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-70"></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">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">pltpenc_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">,</span> <span class="n">npltpenc</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
-<a name="ln-71"></a>            <span class="k">call </span><span class="n">helio_kick_getacch_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> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-72"></a>            <span class="c">! Remove accelerations from encountering pairs</span>
-<a name="ln-73"></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">npltpenc</span>
-<a name="ln-74"></a>               <span class="k">associate</span><span class="p">(</span><span class="n">i</span> <span class="o">=&gt;</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">),</span> <span class="n">j</span> <span class="o">=&gt;</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-75"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="k">THEN</span>
-<a name="ln-76"></a><span class="k">                     if</span> <span class="p">(</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-77"></a><span class="k">                        </span><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">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-78"></a>                     <span class="k">else</span>
-<a name="ln-79"></a><span class="k">                        </span><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">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-80"></a>                     <span class="k">end if</span>
-<a name="ln-81"></a><span class="k">                     </span><span class="n">rji2</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-82"></a>                     <span class="n">fac</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="p">(</span><span class="n">rji2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rji2</span><span class="p">))</span>
-<a name="ln-83"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">fac</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-84"></a>                  <span class="k">end IF</span>
-<a name="ln-85"></a><span class="k">               end associate</span>
-<a name="ln-86"></a><span class="k">            end do</span>
-<a name="ln-87"></a><span class="k">         end associate</span>
-<a name="ln-88"></a><span class="k">      end select</span>
-<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_kick_getacch_tp</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_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-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">!! Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.</span>
-<a name="ln-97"></a>      <span class="c">!! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types</span>
-<a name="ln-98"></a>      <span class="c">!!</span>
-<a name="ln-99"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_kick.f90</span>
-<a name="ln-100"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_kick.f</span>
-<a name="ln-101"></a>      <span class="k">implicit none</span>
-<a name="ln-102"></a>      <span class="c">! Arguments</span>
-<a name="ln-103"></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-104"></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-105"></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-106"></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-107"></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-108"></a>      <span class="c">! Internals</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">k</span><span class="p">,</span> <span class="n">irm1</span><span class="p">,</span> <span class="n">irecl</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">r</span><span class="p">,</span> <span class="n">rr</span><span class="p">,</span> <span class="n">ri</span><span class="p">,</span> <span class="n">ris</span><span class="p">,</span> <span class="n">rim1</span><span class="p">,</span> <span class="n">r2</span><span class="p">,</span> <span class="n">ir3</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">faci</span><span class="p">,</span> <span class="n">facj</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="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-112"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">isplpl</span><span class="p">,</span> <span class="n">lgoodlevel</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">nenc</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">      select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-117"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
-<a name="ln-118"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-119"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span>
-<a name="ln-120"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-121"></a>      <span class="k">end select</span>
-<a name="ln-122"></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-123"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-124"></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-125"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-126"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">ind1</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">ind2</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">)</span>
-<a name="ln-127"></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">pl</span><span class="p">%</span><span class="n">lmask</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="o">/=</span> <span class="n">INACTIVE</span>
-<a name="ln-128"></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">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</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-129"></a>
-<a name="ln-130"></a>               <span class="n">irm1</span> <span class="o">=</span> <span class="n">irec</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-131"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">sgn</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-132"></a><span class="k">                  </span><span class="n">irecl</span> <span class="o">=</span> <span class="n">irec</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">irecl</span> <span class="o">=</span> <span class="n">irec</span>
-<a name="ln-135"></a>               <span class="k">end if</span>
-<a name="ln-136"></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">self</span><span class="p">%</span><span class="n">nenc</span>
-<a name="ln-137"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-138"></a><span class="k">                     </span><span class="n">pl</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-139"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-140"></a>                  <span class="k">else</span>
-<a name="ln-141"></a><span class="k">                     </span><span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-142"></a>                  <span class="k">end if</span>
-<a name="ln-143"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-144"></a><span class="k">                     </span><span class="n">lgoodlevel</span> <span class="o">=</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irm1</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">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irm1</span><span class="p">)</span>
-<a name="ln-145"></a>                  <span class="k">else</span>
-<a name="ln-146"></a><span class="k">                     </span><span class="n">lgoodlevel</span> <span class="o">=</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irm1</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">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">&gt;=</span> <span class="n">irm1</span><span class="p">)</span>
-<a name="ln-147"></a>                  <span class="k">end if</span>
-<a name="ln-148"></a><span class="k">                  if</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">k</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lgoodlevel</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-149"></a><span class="k">                     if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-150"></a><span class="k">                        </span><span class="n">ri</span> <span class="o">=</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">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">rhill</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</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">RHSCALE</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">RSHELL</span><span class="o">**</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="n">irecl</span><span class="p">))</span>
-<a name="ln-151"></a>                        <span class="n">rim1</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span> <span class="p">(</span><span class="n">RSHELL</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-152"></a>                        <span class="n">dx</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> <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>
-<a name="ln-153"></a>                     <span class="k">else</span>
-<a name="ln-154"></a><span class="k">                        </span><span class="n">ri</span> <span class="o">=</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">ind1</span><span class="p">(</span><span class="n">k</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">RHSCALE</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">RSHELL</span><span class="o">**</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="n">irecl</span><span class="p">))</span>
-<a name="ln-155"></a>                        <span class="n">rim1</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span> <span class="p">(</span><span class="n">RSHELL</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-156"></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">ind2</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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-157"></a>                     <span class="k">end if</span>
-<a name="ln-158"></a><span class="k">                     </span><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-159"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;</span> <span class="n">rim1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-160"></a><span class="k">                        </span><span class="n">fac</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-161"></a>                     <span class="k">else if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;</span> <span class="n">ri</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-162"></a><span class="k">                        </span><span class="n">ris</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">ri</span><span class="p">)</span>
-<a name="ln-163"></a>                        <span class="n">r</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-164"></a>                        <span class="n">rr</span> <span class="o">=</span> <span class="p">(</span><span class="n">ris</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">ris</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">RSHELL</span><span class="p">))</span>
-<a name="ln-165"></a>                        <span class="n">fac</span> <span class="o">=</span> <span class="p">(</span><span class="n">r2</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="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="mi">3</span> <span class="o">*</span> <span class="p">(</span><span class="n">rr</span><span class="o">**</span><span class="mi">2</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">rr</span><span class="o">**</span><span class="mi">3</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">ir3</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">r2</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-168"></a>                        <span class="n">fac</span> <span class="o">=</span> <span class="n">ir3</span>
-<a name="ln-169"></a>                     <span class="k">end if</span>
-<a name="ln-170"></a><span class="k">                     </span><span class="n">faci</span> <span class="o">=</span> <span class="n">fac</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>
-<a name="ln-171"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-172"></a><span class="k">                        </span><span class="n">facj</span> <span class="o">=</span> <span class="n">fac</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-173"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</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">ah</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">facj</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-174"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind2</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">ah</span><span class="p">(:,</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-175"></a>                     <span class="k">else</span>
-<a name="ln-176"></a><span class="k">                        </span><span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
-<a name="ln-177"></a>                     <span class="k">end if</span>
-<a name="ln-178"></a><span class="k">                  end if</span>
-<a name="ln-179"></a><span class="k">               end do</span>
-<a name="ln-180"></a><span class="k">               if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-181"></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">self</span><span class="p">%</span><span class="n">nenc</span>
-<a name="ln-182"></a>                     <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">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">+</span> <span class="n">sgn</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-183"></a>                     <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> <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> <span class="o">+</span> <span class="n">sgn</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</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-184"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-185"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-186"></a>                  <span class="k">end do</span>
-<a name="ln-187"></a><span class="k">               else</span>
-<a name="ln-188"></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">self</span><span class="p">%</span><span class="n">nenc</span>
-<a name="ln-189"></a>                     <span class="n">tp</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> <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">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">+</span> <span class="n">sgn</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">ah</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-190"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-191"></a>                  <span class="k">end do</span>
-<a name="ln-192"></a><span class="k">               end if</span>
-<a name="ln-193"></a><span class="k">            end associate</span>
-<a name="ln-194"></a><span class="k">         end select</span>
-<a name="ln-195"></a><span class="k">      end select</span>
-<a name="ln-196"></a><span class="k">      </span>
-<a name="ln-197"></a><span class="k">      return</span>
-<a name="ln-198"></a><span class="k">   end subroutine </span><span class="n">symba_kick_pltpenc</span>
-<a name="ln-199"></a>
-<a name="ln-200"></a><span class="k">end submodule </span><span class="n">s_symba_kick</span>
+<a name="ln-14"></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>
+<a name="ln-15"></a>
+<a name="ln-16"></a>      <span class="k">call </span><span class="n">kick_getacch_int_all_pl</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="n">self</span><span class="p">%</span><span class="n">nplplm</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">k_plpl</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">self</span><span class="p">%</span><span class="n">Gmass</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">self</span><span class="p">%</span><span class="n">ah</span><span class="p">)</span>
+<a name="ln-17"></a>
+<a name="ln-18"></a>      <span class="k">return</span>
+<a name="ln-19"></a><span class="k">   end subroutine </span><span class="n">symba_kick_getacch_int_pl</span>
+<a name="ln-20"></a>
+<a name="ln-21"></a>
+<a name="ln-22"></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-23"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-24"></a>      <span class="c">!!</span>
+<a name="ln-25"></a>      <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
+<a name="ln-26"></a>      <span class="c">!!</span>
+<a name="ln-27"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_kick_getacch.f90</span>
+<a name="ln-28"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_kick_getacch.f</span>
+<a name="ln-29"></a>      <span class="k">implicit none</span>
+<a name="ln-30"></a>      <span class="c">! Arguments</span>
+<a name="ln-31"></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-32"></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-33"></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-34"></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-35"></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-36"></a>      <span class="c">! Internals</span>
+<a name="ln-37"></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-38"></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><span class="p">,</span> <span class="n">nplplenc</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="kd">::</span> <span class="n">rjj</span><span class="p">,</span> <span class="n">rlim2</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>
+<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="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ah_enc</span>
+<a name="ln-41"></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_enc</span>
+<a name="ln-42"></a>
+<a name="ln-43"></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-44"></a><span class="k">      select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-45"></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-46"></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> <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> <span class="n">radius</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">)</span>
+<a name="ln-47"></a>            <span class="c">! Apply kicks to all bodies (including those in the encounter list)</span>
+<a name="ln-48"></a>            <span class="k">call </span><span class="n">helio_kick_getacch_pl</span><span class="p">(</span><span class="n">pl</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-49"></a>
+<a name="ln-50"></a>            <span class="c">! Remove kicks from bodies involved currently in the encounter list, as these are dealt with separately.</span>
+<a name="ln-51"></a>            <span class="n">nplplenc</span> <span class="o">=</span> <span class="nb">int</span><span class="p">(</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</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-52"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">k_plpl_enc</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">nplplenc</span><span class="p">))</span>
+<a name="ln-53"></a>            <span class="n">k_plpl_enc</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nplplenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">(:,</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">kidx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nplplenc</span><span class="p">))</span>
+<a name="ln-54"></a>            <span class="n">ah_enc</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-55"></a>            <span class="k">call </span><span class="n">kick_getacch_int_all_pl</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">nplplenc</span><span class="p">,</span> <span class="n">k_plpl_enc</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">pl</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">radius</span><span class="p">,</span> <span class="n">ah_enc</span><span class="p">)</span>
+<a name="ln-56"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">ah</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">ah</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">ah_enc</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-57"></a>
+<a name="ln-58"></a>         <span class="k">end associate</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">symba_kick_getacch_pl</span>
+<a name="ln-63"></a>
+<a name="ln-64"></a>
+<a name="ln-65"></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-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">!! Compute heliocentric accelerations of test particles</span>
+<a name="ln-69"></a>      <span class="c">!!</span>
+<a name="ln-70"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine symba_kick_getacch_tp.f90</span>
+<a name="ln-71"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_kick_getacch.f</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">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-75"></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-76"></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-77"></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-78"></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-79"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">k</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="kd">::</span> <span class="n">rjj</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">rlim2</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dx</span>
+<a name="ln-83"></a>
+<a name="ln-84"></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">      select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-86"></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-87"></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">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">pltpenc_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">,</span> <span class="n">npltpenc</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-88"></a>            <span class="k">call </span><span class="n">helio_kick_getacch_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> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-89"></a>            <span class="c">! Remove accelerations from encountering pairs</span>
+<a name="ln-90"></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">npltpenc</span>
+<a name="ln-91"></a>               <span class="n">i</span> <span class="o">=</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-92"></a>               <span class="n">j</span> <span class="o">=</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-93"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="k">THEN</span>
+<a name="ln-94"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-95"></a><span class="k">                     </span><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">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-96"></a>                  <span class="k">else</span>
+<a name="ln-97"></a><span class="k">                     </span><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">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-98"></a>                  <span class="k">end if</span>
+<a name="ln-99"></a><span class="k">                  </span><span class="n">rjj</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-100"></a>                  <span class="n">fac</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="p">(</span><span class="n">rjj</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rjj</span><span class="p">))</span>
+<a name="ln-101"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">fac</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
+<a name="ln-102"></a>               <span class="k">end IF</span>
+<a name="ln-103"></a><span class="k">            end do</span>
+<a name="ln-104"></a><span class="k">         end associate</span>
+<a name="ln-105"></a><span class="k">      end select</span>
+<a name="ln-106"></a><span class="k">      return</span>
+<a name="ln-107"></a><span class="k">   end subroutine </span><span class="n">symba_kick_getacch_tp</span>
+<a name="ln-108"></a>
+<a name="ln-109"></a>
+<a name="ln-110"></a>   <span class="k">module subroutine </span><span class="n">symba_kick_encounter</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-111"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-112"></a>      <span class="c">!!</span>
+<a name="ln-113"></a>      <span class="c">!! Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.</span>
+<a name="ln-114"></a>      <span class="c">!! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types</span>
+<a name="ln-115"></a>      <span class="c">!!</span>
+<a name="ln-116"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_kick.f90</span>
+<a name="ln-117"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_kick.f</span>
+<a name="ln-118"></a>      <span class="k">implicit none</span>
+<a name="ln-119"></a>      <span class="c">! Arguments</span>
+<a name="ln-120"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">self</span>   <span class="c">!! SyMBA pl-tp encounter list object</span>
+<a name="ln-121"></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-122"></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-123"></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-124"></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-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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">irm1</span><span class="p">,</span> <span class="n">irecl</span><span class="p">,</span> <span class="n">ngood</span>
+<a name="ln-127"></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-128"></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</span><span class="p">,</span> <span class="n">rr</span><span class="p">,</span> <span class="n">ri</span><span class="p">,</span> <span class="n">ris</span><span class="p">,</span> <span class="n">rim1</span><span class="p">,</span> <span class="n">r2</span><span class="p">,</span> <span class="n">ir3</span><span class="p">,</span> <span class="n">fac</span><span class="p">,</span> <span class="n">faci</span><span class="p">,</span> <span class="n">facj</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">dx</span>
+<a name="ln-130"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">isplpl</span>
+<a name="ln-131"></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">lgoodlevel</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">good_idx</span>
+<a name="ln-133"></a>
+<a name="ln-134"></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>
+<a name="ln-135"></a>
+<a name="ln-136"></a>
+<a name="ln-137"></a><span class="k">      select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-138"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_plplenc</span><span class="p">)</span>
+<a name="ln-139"></a>         <span class="n">isplpl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-140"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span>
+<a name="ln-141"></a>         <span class="n">isplpl</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 select</span>
+<a name="ln-143"></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-144"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-145"></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-146"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-147"></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> <span class="n">nenc</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-148"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">npl</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-149"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">ntp</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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</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>
+<a name="ln-150"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">lgoodlevel</span><span class="p">(</span><span class="n">nenc</span><span class="p">))</span>
+<a name="ln-151"></a>
+<a name="ln-152"></a>               <span class="n">irm1</span> <span class="o">=</span> <span class="n">irec</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-153"></a>
+<a name="ln-154"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">sgn</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-155"></a><span class="k">                  </span><span class="n">irecl</span> <span class="o">=</span> <span class="n">irec</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-156"></a>               <span class="k">else</span>
+<a name="ln-157"></a><span class="k">                  </span><span class="n">irecl</span> <span class="o">=</span> <span class="n">irec</span>
+<a name="ln-158"></a>               <span class="k">end if</span>
+<a name="ln-159"></a>
+<a name="ln-160"></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">nenc</span>
+<a name="ln-161"></a>                  <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-162"></a>                  <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-163"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-164"></a><span class="k">                     </span><span class="n">lgoodlevel</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">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&gt;=</span> <span class="n">irm1</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">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&gt;=</span> <span class="n">irm1</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">lgoodlevel</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">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&gt;=</span> <span class="n">irm1</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">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&gt;=</span> <span class="n">irm1</span><span class="p">)</span>
+<a name="ln-167"></a>                  <span class="k">end if</span>
+<a name="ln-168"></a><span class="k">                  </span><span class="n">lgoodlevel</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">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lgoodlevel</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-169"></a>               <span class="k">end do</span>
+<a name="ln-170"></a><span class="k">               </span><span class="n">ngood</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lgoodlevel</span><span class="p">(:))</span>
+<a name="ln-171"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">ngood</span> <span class="o">&gt;</span> <span class="mi">0_I8B</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-172"></a><span class="k">                  allocate</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">ngood</span><span class="p">))</span>
+<a name="ln-173"></a>                  <span class="n">good_idx</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">nenc</span><span class="p">)],</span> <span class="n">lgoodlevel</span><span class="p">(:))</span>
+<a name="ln-174"></a>
+<a name="ln-175"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-176"></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">ngood</span><span class="p">)</span>
+<a name="ln-177"></a>                        <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-178"></a>                        <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-179"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-180"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-181"></a>                     <span class="k">end do</span>
+<a name="ln-182"></a><span class="k">                  else</span>
+<a name="ln-183"></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_I8B</span><span class="p">:</span><span class="n">ngood</span><span class="p">)</span>
+<a name="ln-184"></a>                        <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-185"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-186"></a>                     <span class="k">end do</span>
+<a name="ln-187"></a><span class="k">                  end if</span>
+<a name="ln-188"></a>
+<a name="ln-189"></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">ngood</span>
+<a name="ln-190"></a>                     <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-191"></a>                     <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-192"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-193"></a><span class="k">                        </span><span class="n">ri</span> <span class="o">=</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">i</span><span class="p">)</span>  <span class="o">+</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="o">*</span> <span class="p">(</span><span class="n">RHSCALE</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">RSHELL</span><span class="o">**</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="n">irecl</span><span class="p">))</span>
+<a name="ln-194"></a>                        <span class="n">rim1</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span> <span class="p">(</span><span class="n">RSHELL</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-195"></a>                        <span class="n">dx</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> <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-196"></a>                     <span class="k">else</span>
+<a name="ln-197"></a><span class="k">                        </span><span class="n">ri</span> <span class="o">=</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">i</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">RHSCALE</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">RSHELL</span><span class="o">**</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="n">irecl</span><span class="p">))</span>
+<a name="ln-198"></a>                        <span class="n">rim1</span> <span class="o">=</span> <span class="n">ri</span> <span class="o">*</span> <span class="p">(</span><span class="n">RSHELL</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-199"></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">j</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-200"></a>                     <span class="k">end if</span>
+<a name="ln-201"></a><span class="k">                     </span><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-202"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;</span> <span class="n">rim1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-203"></a><span class="k">                        </span><span class="n">fac</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-204"></a>                        <span class="n">lgoodlevel</span><span class="p">(</span><span class="n">good_idx</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">false</span><span class="p">.</span>
+<a name="ln-205"></a>                        <span class="k">cycle</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">r2</span> <span class="o">&lt;</span> <span class="n">ri</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-208"></a><span class="k">                        </span><span class="n">ris</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">ri</span><span class="p">)</span>
+<a name="ln-209"></a>                        <span class="n">r</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-210"></a>                        <span class="n">rr</span> <span class="o">=</span> <span class="p">(</span><span class="n">ris</span> <span class="o">-</span> <span class="n">r</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">ris</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">RSHELL</span><span class="p">))</span>
+<a name="ln-211"></a>                        <span class="n">fac</span> <span class="o">=</span> <span class="p">(</span><span class="n">r2</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="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="mi">3</span> <span class="o">*</span> <span class="p">(</span><span class="n">rr</span><span class="o">**</span><span class="mi">2</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">rr</span><span class="o">**</span><span class="mi">3</span><span class="p">))</span>
+<a name="ln-212"></a>                     <span class="k">else</span>
+<a name="ln-213"></a><span class="k">                        </span><span class="n">ir3</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">r2</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-214"></a>                        <span class="n">fac</span> <span class="o">=</span> <span class="n">ir3</span>
+<a name="ln-215"></a>                     <span class="k">end if</span>
+<a name="ln-216"></a><span class="k">                     </span><span class="n">faci</span> <span class="o">=</span> <span class="n">fac</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-217"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-218"></a><span class="k">                        </span><span class="n">facj</span> <span class="o">=</span> <span class="n">fac</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">j</span><span class="p">)</span>
+<a name="ln-219"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">facj</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
+<a name="ln-220"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
+<a name="ln-221"></a>                     <span class="k">else</span>
+<a name="ln-222"></a><span class="k">                        </span><span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">faci</span> <span class="o">*</span> <span class="n">dx</span><span class="p">(:)</span>
+<a name="ln-223"></a>                     <span class="k">end if</span>
+<a name="ln-224"></a><span class="k">                  end do</span>
+<a name="ln-225"></a><span class="k">                  </span><span class="n">ngood</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lgoodlevel</span><span class="p">(:))</span>
+<a name="ln-226"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">ngood</span> <span class="o">==</span> <span class="mi">0_I8B</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-227"></a><span class="k">                  </span><span class="n">good_idx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ngood</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</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">nenc</span><span class="p">)],</span> <span class="n">lgoodlevel</span><span class="p">(:))</span>
+<a name="ln-228"></a>
+<a name="ln-229"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isplpl</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-230"></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">ngood</span>
+<a name="ln-231"></a>                        <span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-232"></a>                        <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-233"></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">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">sgn</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-234"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">j</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">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">sgn</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-235"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-236"></a>                        <span class="n">pl</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-237"></a>                     <span class="k">end do</span>
+<a name="ln-238"></a><span class="k">                  else</span>
+<a name="ln-239"></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">ngood</span>
+<a name="ln-240"></a>                        <span class="n">j</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">good_idx</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-241"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">j</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">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">sgn</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-242"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-243"></a>                     <span class="k">end do</span>
+<a name="ln-244"></a><span class="k">                  end if</span>
+<a name="ln-245"></a><span class="k">               end if</span>
+<a name="ln-246"></a><span class="k">            end associate</span>
+<a name="ln-247"></a><span class="k">         end select</span>
+<a name="ln-248"></a><span class="k">      end select</span>
+<a name="ln-249"></a><span class="k">      </span>
+<a name="ln-250"></a><span class="k">      return</span>
+<a name="ln-251"></a><span class="k">   end subroutine </span><span class="n">symba_kick_encounter</span>
+<a name="ln-252"></a>
+<a name="ln-253"></a><span class="k">end submodule </span><span class="n">s_symba_kick</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_setup.f90.html b/docs/sourcefile/symba_setup.f90.html
index a3f97fa8a..204387440 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=" 1.2% of total for source files.">164 statements</a>
+    title=" 0.7% of total for source files.">108 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_setupf90EfferentGraph" width="641pt" height="258pt"
+ viewBox="0.00 0.00 641.00 257.75" 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 366.74)">
 <title>sourcefile~~symba_setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 911,-260.15 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 918,-366.74 918,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,-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>
+<polygon fill="none" stroke="black" points="914,-189.48 820,-189.48 820,-165.48 914,-165.48 914,-189.48"/>
+<text text-anchor="middle" x="867" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.93,-181.36C782.74,-184.49 730.11,-188.92 689.45,-192.35"/>
+<polygon fill="#000000" stroke="#000000" points="689.05,-188.87 679.38,-193.2 689.64,-195.84 689.05,-188.87"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.96,-169.4C811.44,-167.91 802.57,-166.35 794.17,-164.88"/>
+<polygon fill="#000000" stroke="#000000" points="794.66,-161.41 784.21,-163.13 793.45,-168.31 794.66,-161.41"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -562,242 +614,180 @@ <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_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-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-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">!! 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-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">helio_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">call </span><span class="nb">system</span><span class="p">%</span><span class="n">plplcollision_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-24"></a>      <span class="k">end associate</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>
-<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>
-<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-26"></a><span class="k">      return</span>
+<a name="ln-27"></a><span class="k">   end subroutine </span><span class="n">symba_setup_initialize_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">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-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">!! Allocate SyMBA test particle structure</span>
+<a name="ln-34"></a>      <span class="c">!!</span>
+<a name="ln-35"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine symba_setup.f90</span>
+<a name="ln-36"></a>      <span class="k">implicit none</span>
+<a name="ln-37"></a>      <span class="c">! Arguments</span>
+<a name="ln-38"></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-39"></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-40"></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-41"></a>      <span class="c">! Internals</span>
+<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="kd">::</span> <span class="n">i</span>
+<a name="ln-43"></a>
+<a name="ln-44"></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-45"></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-46"></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-47"></a>
+<a name="ln-48"></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-49"></a>
+<a name="ln-50"></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-51"></a>
+<a name="ln-52"></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-53"></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-54"></a>
+<a name="ln-55"></a>      <span class="k">return</span>
+<a name="ln-56"></a><span class="k">   end subroutine </span><span class="n">symba_setup_merger</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a>
+<a name="ln-59"></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-60"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-61"></a>      <span class="c">!!</span>
+<a name="ln-62"></a>      <span class="c">!! Allocate SyMBA test particle structure</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">      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-64"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine symba_setup.f90</span>
+<a name="ln-65"></a>      <span class="k">implicit none</span>
+<a name="ln-66"></a>      <span class="c">! Arguments</span>
+<a name="ln-67"></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-68"></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-69"></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-70"></a>      <span class="c">! Internals</span>
+<a name="ln-71"></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-72"></a>
+<a name="ln-73"></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-74"></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-75"></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-76"></a>
+<a name="ln-77"></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-78"></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-79"></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-80"></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-81"></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-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">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-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">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-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">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-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">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-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">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-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">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-88"></a>
+<a name="ln-89"></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-90"></a>
+<a name="ln-91"></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-92"></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-93"></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-94"></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-95"></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-96"></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-97"></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-98"></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-99"></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-100"></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-101"></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-102"></a>
+<a name="ln-103"></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-104"></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-105"></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-106"></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-107"></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-108"></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-109"></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-110"></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-111"></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-112"></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-113"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">reset_kinship</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-114"></a>      <span class="k">return</span>
+<a name="ln-115"></a><span class="k">   end subroutine </span><span class="n">symba_setup_pl</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>
-<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-117"></a>
+<a name="ln-118"></a>   <span class="k">module subroutine </span><span class="n">symba_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-119"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-120"></a>      <span class="c">!!</span>
+<a name="ln-121"></a>      <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
+<a name="ln-122"></a>      <span class="c">!!</span>
+<a name="ln-123"></a>      <span class="k">implicit none</span>
+<a name="ln-124"></a>      <span class="c">! Arguments</span>
+<a name="ln-125"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-tp encounter structure</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">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-127"></a>
+<a name="ln-128"></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-129"></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-130"></a>
+<a name="ln-131"></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-132"></a>
+<a name="ln-133"></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-134"></a>
+<a name="ln-135"></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-136"></a>
+<a name="ln-137"></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-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-139"></a>      <span class="k">return</span>
+<a name="ln-140"></a><span class="k">   end subroutine </span><span class="n">symba_setup_encounter</span>
+<a name="ln-141"></a>
 <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>
+<a name="ln-143"></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-144"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-145"></a>      <span class="c">!!</span>
+<a name="ln-146"></a>      <span class="c">!! Allocate WHM test particle structure</span>
+<a name="ln-147"></a>      <span class="c">!!</span>
+<a name="ln-148"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine whm_setup.f90</span>
+<a name="ln-149"></a>      <span class="k">implicit none</span>
+<a name="ln-150"></a>      <span class="c">! Arguments</span>
+<a name="ln-151"></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-152"></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-153"></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-154"></a>
+<a name="ln-155"></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-156"></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-157"></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-158"></a>
+<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">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-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">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-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">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-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">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-163"></a>
+<a name="ln-164"></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-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>      <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-170"></a>
+<a name="ln-171"></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-172"></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-173"></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-174"></a>      
+<a name="ln-175"></a>      <span class="k">return</span>
+<a name="ln-176"></a><span class="k">   end subroutine </span><span class="n">symba_setup_tp</span>
+<a name="ln-177"></a>
+<a name="ln-178"></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 54065cf05..21690373a 100644
--- a/docs/sourcefile/symba_step.f90.html
+++ b/docs/sourcefile/symba_step.f90.html
@@ -134,7 +134,7 @@ <h1>symba_step.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.5% of total for source files.">197 statements</a>
+    title=" 1.2% of total for source files.">199 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_stepf90EfferentGraph" width="641pt" height="259pt"
+ viewBox="0.00 0.00 641.00 259.44" 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.7 0.7) rotate(0) translate(4 366.74)">
 <title>sourcefile~~symba_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 905,-260.15 905,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 912,-366.74 912,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,-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>
+<polygon fill="none" stroke="black" points="908,-189.48 820,-189.48 820,-165.48 908,-165.48 908,-189.48"/>
+<text text-anchor="middle" x="864" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_step.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.99,-181.15C783.42,-184.27 730.49,-188.78 689.54,-192.27"/>
+<polygon fill="#000000" stroke="#000000" points="689.07,-188.8 679.4,-193.14 689.66,-195.78 689.07,-188.8"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.77,-169.69C811.37,-168.18 802.58,-166.59 794.22,-165.09"/>
+<polygon fill="#000000" stroke="#000000" points="794.75,-161.63 784.29,-163.3 793.51,-168.52 794.75,-161.63"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -579,175 +631,175 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-19"></a>      <span class="c">! Internals</span>
 <a name="ln-20"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lencounter</span>
 <a name="ln-21"></a>     
-<a name="ln-22"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">reset</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="n">self</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">select type</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>
-<a name="ln-26"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-27"></a>            <span class="n">lencounter</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</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="n">tp</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="mi">0</span><span class="p">)</span>
-<a name="ln-28"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-29"></a><span class="k">               </span><span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span>
-<a name="ln-30"></a>               <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">interp</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-31"></a>               <span class="n">pl</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-32"></a>               <span class="n">tp</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-33"></a>            <span class="k">else</span>
-<a name="ln-34"></a><span class="k">               call </span><span class="n">helio_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-35"></a>            <span class="k">end if</span>
-<a name="ln-36"></a><span class="k">         end select</span>
-<a name="ln-37"></a><span class="k">      end select</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">symba_step_system</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">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-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">!! Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive</span>
-<a name="ln-47"></a>      <span class="c">!!         subroutine to descend to the appropriate level to handle close encounters</span>
-<a name="ln-48"></a>      <span class="c">!!</span>
-<a name="ln-49"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step_interp.f90</span>
-<a name="ln-50"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step_interp.f</span>
-<a name="ln-51"></a>      <span class="k">implicit none</span>
-<a name="ln-52"></a>      <span class="c">! Arguments</span>
-<a name="ln-53"></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-54"></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-55"></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-56"></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-57"></a>      <span class="c">! Internals</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">dth</span>   <span class="c">!! Half step size</span>
-<a name="ln-59"></a>
-<a name="ln-60"></a>      <span class="n">dth</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dt</span>
-<a name="ln-61"></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-62"></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-63"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-64"></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-65"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-66"></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-67"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
-<a name="ln-68"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-69"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vh2vb</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-70"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-71"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</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">call </span><span class="n">pl</span><span class="p">%</span><span class="n">drift</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-73"></a>
-<a name="ln-74"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">vh2vb</span><span class="p">(</span><span class="n">vbcb</span> <span class="o">=</span> <span class="o">-</span><span class="n">cb</span><span class="p">%</span><span class="n">ptbeg</span><span class="p">)</span>
-<a name="ln-75"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-76"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-77"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">drift</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-78"></a>
-<a name="ln-79"></a>                  <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">recursive_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="mi">0</span><span class="p">)</span>
+<a name="ln-22"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-23"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-24"></a>         <span class="k">select type</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>
+<a name="ln-25"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</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="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">reset</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-29"></a>               <span class="n">lencounter</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</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="n">tp</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="mi">0</span><span class="p">)</span>
+<a name="ln-30"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-31"></a><span class="k">                  call </span><span class="n">self</span><span class="p">%</span><span class="n">interp</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-32"></a>                  <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">true</span><span class="p">.</span>
+<a name="ln-33"></a>               <span class="k">else</span>
+<a name="ln-34"></a><span class="k">                  </span><span class="n">self</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-35"></a>                  <span class="k">call </span><span class="n">helio_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-36"></a>               <span class="k">end if</span>
+<a name="ln-37"></a><span class="k">            end select</span>
+<a name="ln-38"></a><span class="k">         end select</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">      return</span>
+<a name="ln-42"></a><span class="k">   end subroutine </span><span class="n">symba_step_system</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">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-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">!! Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive</span>
+<a name="ln-49"></a>      <span class="c">!!         subroutine to descend to the appropriate level to handle close encounters</span>
+<a name="ln-50"></a>      <span class="c">!!</span>
+<a name="ln-51"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step_interp.f90</span>
+<a name="ln-52"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step_interp.f</span>
+<a name="ln-53"></a>      <span class="k">implicit none</span>
+<a name="ln-54"></a>      <span class="c">! Arguments</span>
+<a name="ln-55"></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-56"></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-57"></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-58"></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-59"></a>      <span class="c">! Internals</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">dth</span>   <span class="c">!! Half step size</span>
+<a name="ln-61"></a>
+<a name="ln-62"></a>      <span class="n">dth</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dt</span>
+<a name="ln-63"></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-64"></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-65"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-66"></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-67"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-68"></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-69"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-70"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-71"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vh2vb</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-72"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-73"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</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">call </span><span class="n">pl</span><span class="p">%</span><span class="n">drift</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-75"></a>
+<a name="ln-76"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">vh2vb</span><span class="p">(</span><span class="n">vbcb</span> <span class="o">=</span> <span class="o">-</span><span class="n">cb</span><span class="p">%</span><span class="n">ptbeg</span><span class="p">)</span>
+<a name="ln-77"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-78"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-79"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">drift</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-80"></a>
-<a name="ln-81"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</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">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vb2vh</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">pl</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-84"></a>
-<a name="ln-85"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-86"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">vb2vh</span><span class="p">(</span><span class="n">vbcb</span> <span class="o">=</span> <span class="o">-</span><span class="n">cb</span><span class="p">%</span><span class="n">ptend</span><span class="p">)</span>
-<a name="ln-87"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-88"></a>               <span class="k">end select</span>
-<a name="ln-89"></a><span class="k">            end select</span>
-<a name="ln-90"></a><span class="k">         end select</span>
-<a name="ln-91"></a><span class="k">      end associate</span>
-<a name="ln-92"></a>
-<a name="ln-93"></a><span class="k">      return</span>
-<a name="ln-94"></a><span class="k">   end subroutine </span><span class="n">symba_step_interp_system</span>
-<a name="ln-95"></a>
-<a name="ln-96"></a>
-<a name="ln-97"></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-98"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-99"></a>      <span class="c">!!</span>
-<a name="ln-100"></a>      <span class="c">!! Resets pl, tp,and encounter structures at the start of a new step</span>
-<a name="ln-101"></a>      <span class="c">!! </span>
-<a name="ln-102"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step_recur.f90</span>
-<a name="ln-103"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step_recur.f</span>
-<a name="ln-104"></a>      <span class="k">implicit none</span>
-<a name="ln-105"></a>      <span class="c">! Arguments</span>
-<a name="ln-106"></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-107"></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-108"></a>      <span class="c">! Internals</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">k</span><span class="p">,</span> <span class="n">irecp</span>
-<a name="ln-110"></a>
-<a name="ln-111"></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">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">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>
-<a name="ln-112"></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><span class="n">pl</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">select type</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>
-<a name="ln-115"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-116"></a>               <span class="n">irecp</span> <span class="o">=</span> <span class="n">ireci</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-117"></a>
-<a name="ln-118"></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="k">then</span>
-<a name="ln-119"></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">plplenc_list</span><span class="p">%</span><span class="n">nenc</span>
-<a name="ln-120"></a>                     <span class="k">associate</span><span class="p">(</span><span class="n">i</span> <span class="o">=&gt;</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">),</span> <span class="n">j</span> <span class="o">=&gt;</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-121"></a>                        <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</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">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-122"></a>                        <span class="k">if</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">j</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</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">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-123"></a>                     <span class="k">end associate</span>
-<a name="ln-124"></a><span class="k">                  end do</span>
-<a name="ln-125"></a><span class="k">                  where</span><span class="p">(</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</span><span class="p">)</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-126"></a>               <span class="k">end if</span>
-<a name="ln-127"></a>
-<a name="ln-128"></a><span class="k">               if</span> <span class="p">(</span><span class="n">pltpenc_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="k">then</span>
-<a name="ln-129"></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">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span>
-<a name="ln-130"></a>                     <span class="k">associate</span><span class="p">(</span><span class="n">i</span> <span class="o">=&gt;</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="n">k</span><span class="p">),</span> <span class="n">j</span> <span class="o">=&gt;</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-131"></a>                        <span class="k">if</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">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</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">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-132"></a>                        <span class="k">if</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">j</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</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">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-133"></a>                     <span class="k">end associate</span>
-<a name="ln-134"></a><span class="k">                  end do</span>
-<a name="ln-135"></a><span class="k">                  where</span><span class="p">(</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</span><span class="p">)</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-136"></a>               <span class="k">end if</span>
-<a name="ln-137"></a>
-<a name="ln-138"></a><span class="k">               </span><span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-139"></a>
-<a name="ln-140"></a>            <span class="k">end select</span>
-<a name="ln-141"></a><span class="k">         end select</span>
-<a name="ln-142"></a><span class="k">      end associate</span>
-<a name="ln-143"></a>
-<a name="ln-144"></a><span class="k">      return</span>
-<a name="ln-145"></a><span class="k">   end subroutine </span><span class="n">symba_step_set_recur_levels_system</span>
-<a name="ln-146"></a>
-<a name="ln-147"></a>
-<a name="ln-148"></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-149"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-150"></a>      <span class="c">!!</span>
-<a name="ln-151"></a>      <span class="c">!! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current</span>
-<a name="ln-152"></a>      <span class="c">!!         recursion level, if applicable, and descend to the next deeper level if necessarys</span>
-<a name="ln-153"></a>      <span class="c">!!</span>
-<a name="ln-154"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step_recur.f90</span>
-<a name="ln-155"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step_recur.f</span>
-<a name="ln-156"></a>      <span class="k">implicit none</span>
-<a name="ln-157"></a>      <span class="c">! Arguments</span>
-<a name="ln-158"></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-159"></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-160"></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-161"></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-162"></a>      <span class="c">! Internals</span>
-<a name="ln-163"></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">irecp</span><span class="p">,</span> <span class="n">nloops</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="kd">::</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">dth</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">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-166"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lencounter</span>
-<a name="ln-167"></a>
-<a name="ln-168"></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">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">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>
-<a name="ln-169"></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><span class="n">pl</span><span class="p">)</span>
-<a name="ln-170"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-171"></a>            <span class="k">select type</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>
-<a name="ln-172"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-173"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-174"></a>               <span class="n">dtl</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span> <span class="o">/</span> <span class="p">(</span><span class="n">NTENC</span><span class="o">**</span><span class="n">ireci</span><span class="p">)</span>
-<a name="ln-175"></a>               <span class="n">dth</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dtl</span>
-<a name="ln-176"></a>               <span class="k">IF</span> <span class="p">(</span><span class="n">dtl</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">THEN</span>
-<a name="ln-177"></a><span class="k">                  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 Warning:&quot;</span>
-<a name="ln-178"></a>                  <span class="k">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 symba_step_recur_system, local time step is too small&quot;</span>
-<a name="ln-179"></a>                  <span class="k">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;   Roundoff error will be important!&quot;</span>
-<a name="ln-180"></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-181"></a>               <span class="k">END IF</span>
-<a name="ln-182"></a><span class="k">               </span><span class="n">irecp</span> <span class="o">=</span> <span class="n">ireci</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-183"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">ireci</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-184"></a><span class="k">                  </span><span class="n">nloops</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-185"></a>               <span class="k">else</span>
-<a name="ln-186"></a><span class="k">                  </span><span class="n">nloops</span> <span class="o">=</span> <span class="n">NTENC</span>
-<a name="ln-187"></a>               <span class="k">end if</span>
-<a name="ln-188"></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">nloops</span>
-<a name="ln-189"></a>                  <span class="n">lencounter</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">irecp</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">irecp</span><span class="p">)</span>
-<a name="ln-190"></a>                   
+<a name="ln-81"></a>                  <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">recursive_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="mi">0</span><span class="p">)</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</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="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">vb2vh</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-85"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">kick</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">dth</span><span class="p">,</span> <span class="n">lbeg</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-88"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">vb2vh</span><span class="p">(</span><span class="n">vbcb</span> <span class="o">=</span> <span class="o">-</span><span class="n">cb</span><span class="p">%</span><span class="n">ptend</span><span class="p">)</span>
+<a name="ln-89"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">lindrift</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">lbeg</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="k">end select</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">      return</span>
+<a name="ln-96"></a><span class="k">   end subroutine </span><span class="n">symba_step_interp_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_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-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">!! Resets pl, tp,and encounter structures at the start of a new step</span>
+<a name="ln-103"></a>      <span class="c">!! </span>
+<a name="ln-104"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step_recur.f90</span>
+<a name="ln-105"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step_recur.f</span>
+<a name="ln-106"></a>      <span class="k">implicit none</span>
+<a name="ln-107"></a>      <span class="c">! Arguments</span>
+<a name="ln-108"></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-109"></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-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">k</span><span class="p">,</span> <span class="n">irecp</span>
+<a name="ln-112"></a>
+<a name="ln-113"></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">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">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">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">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-114"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-115"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-116"></a>            <span class="k">select type</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>
+<a name="ln-117"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-118"></a>               <span class="n">irecp</span> <span class="o">=</span> <span class="n">ireci</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-119"></a>
+<a name="ln-120"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">npl</span> <span class="o">&gt;</span><span class="mi">0</span><span class="p">)</span> <span class="k">where</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">irecp</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">ireci</span>
+<a name="ln-121"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">ntp</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">where</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">irecp</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">ireci</span>
+<a name="ln-122"></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="k">where</span><span class="p">(</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</span><span class="p">)</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
+<a name="ln-123"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">pltpenc_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="k">where</span><span class="p">(</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">==</span> <span class="n">irecp</span><span class="p">)</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> <span class="o">=</span> <span class="n">ireci</span>
+<a name="ln-124"></a>
+<a name="ln-125"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="n">ireci</span>
+<a name="ln-126"></a>
+<a name="ln-127"></a>            <span class="k">end select</span>
+<a name="ln-128"></a><span class="k">         end select</span>
+<a name="ln-129"></a><span class="k">      end associate</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_step_set_recur_levels_system</span>
+<a name="ln-133"></a>
+<a name="ln-134"></a>
+<a name="ln-135"></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-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">!! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current</span>
+<a name="ln-139"></a>      <span class="c">!!         recursion level, if applicable, and descend to the next deeper level if necessarys</span>
+<a name="ln-140"></a>      <span class="c">!!</span>
+<a name="ln-141"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step_recur.f90</span>
+<a name="ln-142"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step_recur.f</span>
+<a name="ln-143"></a>      <span class="k">implicit none</span>
+<a name="ln-144"></a>      <span class="c">! Arguments</span>
+<a name="ln-145"></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-146"></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-147"></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>
+<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">ireci</span> <span class="c">!! input recursion level</span>
+<a name="ln-149"></a>      <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="n">nloops</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="kd">::</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">dth</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="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-153"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lplpl_collision</span><span class="p">,</span> <span class="n">lpltp_collision</span>
+<a name="ln-154"></a>
+<a name="ln-155"></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">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">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>
+<a name="ln-156"></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><span class="n">pl</span><span class="p">)</span>
+<a name="ln-157"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-158"></a>            <span class="k">select type</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>
+<a name="ln-159"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-160"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="n">ireci</span>
+<a name="ln-161"></a>               <span class="n">dtl</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span> <span class="o">/</span> <span class="p">(</span><span class="n">NTENC</span><span class="o">**</span><span class="n">ireci</span><span class="p">)</span>
+<a name="ln-162"></a>               <span class="n">dth</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">dtl</span>
+<a name="ln-163"></a>               <span class="k">IF</span> <span class="p">(</span><span class="n">dtl</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span> <span class="o">&lt;</span> <span class="n">VSMALL</span><span class="p">)</span> <span class="k">THEN</span>
+<a name="ln-164"></a><span class="k">                  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 Warning:&quot;</span>
+<a name="ln-165"></a>                  <span class="k">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 symba_step_recur_system, local time step is too small&quot;</span>
+<a name="ln-166"></a>                  <span class="k">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;   Roundoff error will be important!&quot;</span>
+<a name="ln-167"></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-168"></a>               <span class="k">END IF</span>
+<a name="ln-169"></a><span class="k">               </span><span class="n">irecp</span> <span class="o">=</span> <span class="n">ireci</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-170"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">ireci</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-171"></a><span class="k">                  </span><span class="n">nloops</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-172"></a>               <span class="k">else</span>
+<a name="ln-173"></a><span class="k">                  </span><span class="n">nloops</span> <span class="o">=</span> <span class="n">NTENC</span>
+<a name="ln-174"></a>               <span class="k">end if</span>
+<a name="ln-175"></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">nloops</span>
+<a name="ln-176"></a>                  <span class="n">lencounter</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">irecp</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">encounter_check</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">irecp</span><span class="p">)</span>
+<a name="ln-177"></a>                   
+<a name="ln-178"></a>                  <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-179"></a>                  <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-180"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">ireci</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-181"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-182"></a>                     <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</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">                  call </span><span class="n">pl</span><span class="p">%</span><span class="n">drift</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">dtl</span><span class="p">)</span>
+<a name="ln-186"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">drift</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">dtl</span><span class="p">)</span>
+<a name="ln-187"></a>
+<a name="ln-188"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">recursive_step</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">dth</span><span class="p">,</span><span class="n">irecp</span><span class="p">)</span>
+<a name="ln-189"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="n">ireci</span>
+<a name="ln-190"></a>
 <a name="ln-191"></a>                  <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>
 <a name="ln-192"></a>                  <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>
 <a name="ln-193"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">ireci</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
@@ -755,86 +807,89 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-195"></a>                     <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</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">                  call </span><span class="n">pl</span><span class="p">%</span><span class="n">drift</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">dtl</span><span class="p">)</span>
-<a name="ln-199"></a>                  <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">drift</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">dtl</span><span class="p">)</span>
-<a name="ln-200"></a>
-<a name="ln-201"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lencounter</span><span class="p">)</span> <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">recursive_step</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">dth</span><span class="p">,</span><span class="n">irecp</span><span class="p">)</span>
-<a name="ln-202"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">irec</span> <span class="o">=</span> <span class="n">ireci</span>
-<a name="ln-203"></a>
-<a name="ln-204"></a>                  <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-205"></a>                  <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-206"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">ireci</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-207"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-208"></a>                     <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">kick</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">dth</span><span class="p">,</span> <span class="n">irecp</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</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">                  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-212"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">collision_check</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="o">+</span><span class="n">dtl</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span> 
-<a name="ln-213"></a>                     <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">collision_check</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="o">+</span><span class="n">dtl</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span> 
-<a name="ln-214"></a>                  <span class="k">end if</span>
+<a name="ln-198"></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-199"></a><span class="k">                     </span><span class="n">lplpl_collision</span> <span class="o">=</span> <span class="n">plplenc_list</span><span class="p">%</span><span class="n">collision_check</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="o">+</span><span class="n">dtl</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span> 
+<a name="ln-200"></a>                     <span class="n">lpltp_collision</span> <span class="o">=</span> <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">collision_check</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="o">+</span><span class="n">dtl</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span> 
+<a name="ln-201"></a>
+<a name="ln-202"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">lplpl_collision</span><span class="p">)</span> <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resolve_collision</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="o">+</span><span class="n">dtl</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span>
+<a name="ln-203"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">lpltp_collision</span><span class="p">)</span> <span class="k">call </span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">resolve_collision</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="o">+</span><span class="n">dtl</span><span class="p">,</span> <span class="n">dtl</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span>
+<a name="ln-204"></a>                  <span class="k">end if</span>
+<a name="ln-205"></a>
+<a name="ln-206"></a><span class="k">                  call </span><span class="n">self</span><span class="p">%</span><span class="n">set_recur_levels</span><span class="p">(</span><span class="n">ireci</span><span class="p">)</span>
+<a name="ln-207"></a>
+<a name="ln-208"></a>               <span class="k">end do</span>
+<a name="ln-209"></a><span class="k">            end select</span>
+<a name="ln-210"></a><span class="k">         end select</span>
+<a name="ln-211"></a><span class="k">      end associate</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_step_recur_system</span>
 <a name="ln-215"></a>
-<a name="ln-216"></a><span class="k">                  call </span><span class="n">self</span><span class="p">%</span><span class="n">set_recur_levels</span><span class="p">(</span><span class="n">ireci</span><span class="p">)</span>
-<a name="ln-217"></a>
-<a name="ln-218"></a>               <span class="k">end do</span>
-<a name="ln-219"></a><span class="k">            end select</span>
-<a name="ln-220"></a><span class="k">         end select</span>
-<a name="ln-221"></a><span class="k">      end associate</span>
-<a name="ln-222"></a>
-<a name="ln-223"></a><span class="k">      return</span>
-<a name="ln-224"></a><span class="k">   end subroutine </span><span class="n">symba_step_recur_system</span>
-<a name="ln-225"></a>
-<a name="ln-226"></a>
-<a name="ln-227"></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-228"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-229"></a>      <span class="c">!!</span>
-<a name="ln-230"></a>      <span class="c">!! Resets pl, tp,and encounter structures at the start of a new step</span>
-<a name="ln-231"></a>      <span class="c">!! </span>
-<a name="ln-232"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step.f90</span>
-<a name="ln-233"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step.f</span>
-<a name="ln-234"></a>      <span class="k">implicit none</span>
-<a name="ln-235"></a>      <span class="c">! Arguments</span>
-<a name="ln-236"></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-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">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>
-<a name="ln-244"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-245"></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-246"></a><span class="k">                  </span><span class="n">pl</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-247"></a>                  <span class="n">pl</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">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)]</span>
-<a name="ln-248"></a>                  <span class="n">pl</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-249"></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-250"></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="n">i</span><span class="p">)%</span><span class="n">child</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">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">child</span><span class="p">)</span>
-<a name="ln-251"></a>                  <span class="k">end do</span>
-<a name="ln-252"></a><span class="k">                  </span><span class="n">pl</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-253"></a>                  <span class="n">pl</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-254"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-255"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-256"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-257"></a>                  <span class="n">pl</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-258"></a>                  <span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</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">           </span>
-<a name="ln-261"></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-262"></a><span class="k">                  </span><span class="n">tp</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-263"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-264"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<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">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>
-<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">symba_step_reset_system</span>
+<a name="ln-216"></a>
+<a name="ln-217"></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> <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">!! Resets pl, tp,and encounter structures at the start of a new step</span>
+<a name="ln-221"></a>      <span class="c">!! </span>
+<a name="ln-222"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_step.f90</span>
+<a name="ln-223"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine symba5_step.f</span>
+<a name="ln-224"></a>      <span class="k">implicit none</span>
+<a name="ln-225"></a>      <span class="c">! Arguments</span>
+<a name="ln-226"></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-227"></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-228"></a>      <span class="c">! Internals</span>
+<a name="ln-229"></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">nenc_old</span>
+<a name="ln-230"></a>
+<a name="ln-231"></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-232"></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-233"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-234"></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-235"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-236"></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-237"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">npl</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-238"></a><span class="k">                     </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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-239"></a>                     <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">reset_kinship</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">npl</span><span class="p">)])</span>
+<a name="ln-240"></a>                     <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="mi">0</span>
+<a name="ln-241"></a>                     <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="mi">0</span>
+<a name="ln-242"></a>                     <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="o">-</span><span class="mi">1</span>
+<a name="ln-243"></a>                     <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="o">-</span><span class="mi">1</span>
+<a name="ln-244"></a>                     <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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-245"></a>                     <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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-246"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</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-247"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-248"></a>                     <span class="n">nenc_old</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-249"></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-250"></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="n">nenc_old</span><span class="p">)</span>
+<a name="ln-251"></a>                     <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-252"></a>                     <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">plplcollision_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-253"></a>                  <span class="k">end if</span>
+<a name="ln-254"></a><span class="k">            </span>
+<a name="ln-255"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">ntp</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-256"></a><span class="k">                     </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="mi">0</span> 
+<a name="ln-257"></a>                     <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="o">-</span><span class="mi">1</span>
+<a name="ln-258"></a>                     <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="o">-</span><span class="mi">1</span>
+<a name="ln-259"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</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="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-260"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</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-261"></a>                     <span class="n">nenc_old</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-262"></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-263"></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="n">nenc_old</span><span class="p">)</span>
+<a name="ln-264"></a>                     <span class="nb">system</span><span class="p">%</span><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-265"></a>                  <span class="k">end if</span>
+<a name="ln-266"></a>
+<a name="ln-267"></a><span class="k">                  call </span><span class="nb">system</span><span class="p">%</span><span class="n">pl_adds</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-268"></a>                  <span class="k">call </span><span class="nb">system</span><span class="p">%</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-269"></a>
+<a name="ln-270"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span>
+<a name="ln-271"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span>
+<a name="ln-272"></a>               <span class="k">end associate</span>
+<a name="ln-273"></a><span class="k">            end select</span>
+<a name="ln-274"></a><span class="k">         end select</span>
+<a name="ln-275"></a><span class="k">      end associate</span>
 <a name="ln-276"></a>
-<a name="ln-277"></a><span class="k">end submodule </span><span class="n">s_symba_step</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">symba_step_reset_system</span>
+<a name="ln-279"></a>
+<a name="ln-280"></a><span class="k">end submodule </span><span class="n">s_symba_step</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_util.f90.html b/docs/sourcefile/symba_util.f90.html
index fb889ee24..9b84d66ed 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.3% of total for source files.">582 statements</a>
+    title=" 4.1% of total for source files.">673 statements</a>
      </li> 
      
      
@@ -226,244 +226,296 @@ <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="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)">
+<svg id="sourcefilesymba_utilf90EfferentGraph" width="641pt" height="261pt"
+ viewBox="0.00 0.00 641.00 261.15" 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.7 0.7) rotate(0) translate(4 366.74)">
 <title>sourcefile~~symba_util.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 899,-260.15 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-366.74 906,-366.74 906,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,-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>
+<polygon fill="none" stroke="black" points="902,-189.48 820,-189.48 820,-165.48 902,-165.48 902,-189.48"/>
+<text text-anchor="middle" x="861" y="-175.08" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node2" class="node">
-<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>
+<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="679,-209.48 576,-209.48 576,-185.48 679,-185.48 679,-209.48"/>
+<text text-anchor="middle" x="627.5" y="-195.08" 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_edge1" 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,-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"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.94,-180.94C784.03,-184.04 730.81,-188.64 689.6,-192.2"/>
+<polygon fill="#000000" stroke="#000000" points="689.06,-188.74 679.39,-193.08 689.66,-195.71 689.06,-188.74"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node3" class="node">
-<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>
+<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="784,-169.48 718,-169.48 718,-145.48 784,-145.48 784,-169.48"/>
+<text text-anchor="middle" x="751" y="-155.08" 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_edge2" 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,-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.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"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.78,-170.03C811.43,-168.49 802.6,-166.85 794.17,-165.29"/>
+<polygon fill="#000000" stroke="#000000" points="794.63,-161.82 784.16,-163.44 793.35,-168.7 794.63,-161.82"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node4" class="node">
-<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>
+<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.5,-152.48 143.5,-152.48 143.5,-128.48 250.5,-128.48 250.5,-152.48"/>
+<text text-anchor="middle" x="197" y="-138.08" 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_operators.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C466.18,-237.65 461.86,-228.67 442,-218.48 398.12,-195.96 397.07,-164.54 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.08,-209.58C574.24,-221.24 530.37,-237.18 490.5,-237.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node7" class="node">
+<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="537,-209.48 442,-209.48 442,-185.48 537,-185.48 537,-209.48"/>
+<text text-anchor="middle" x="489.5" y="-195.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_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,-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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-197.48C566.54,-197.48 556.76,-197.48 547.27,-197.48"/>
+<polygon fill="#000000" stroke="#000000" points="547.14,-193.98 537.14,-197.48 547.14,-200.98 547.14,-193.98"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-94.48 0,-94.48 0,-70.48 106,-70.48 106,-94.48"/>
+<text text-anchor="middle" x="53" y="-80.08" 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 -->
-<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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.42,-209.64C594.45,-222.56 565.52,-242.35 537,-251.48 465.04,-274.51 265.27,-311.88 198,-277.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_node7" class="node">
-<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>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-129.48 442.5,-129.48 442.5,-105.48 536.5,-105.48 536.5,-129.48"/>
+<text text-anchor="middle" x="489.5" y="-115.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<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,-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"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.03,-185.44C591.3,-181.25 581.62,-176.37 573,-171.48 553.28,-160.29 531.87,-146.22 515.81,-135.25"/>
+<polygon fill="#000000" stroke="#000000" points="517.7,-132.3 507.48,-129.51 513.73,-138.07 517.7,-132.3"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_node8" class="node">
-<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>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-249.48 294.5,-249.48 294.5,-225.48 399.5,-225.48 399.5,-249.48"/>
+<text text-anchor="middle" x="347" y="-235.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-237.48C462.78,-237.67 434.42,-237.71 409.94,-237.68"/>
+<polygon fill="#000000" stroke="#000000" points="409.72,-234.18 399.71,-237.67 409.71,-241.18 409.72,-234.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-168.09C704.62,-172.42 689.18,-177.5 674.87,-182.21"/>
+<polygon fill="#000000" stroke="#000000" points="673.59,-178.95 665.19,-185.4 675.78,-185.6 673.59,-178.95"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_util.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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C503.04,-148.58 471.13,-172.17 348,-159.48"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node5" 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="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>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-131.48 300,-131.48 300,-107.48 394,-107.48 394,-131.48"/>
+<text text-anchor="middle" x="347" y="-117.08" 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_edge8" class="edge">
+<g id="sourcefile~~symba_util.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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C448.85,-67.27 403.57,-86.46 375.38,-102.14"/>
+<polygon fill="#000000" stroke="#000000" points="373.41,-99.24 366.51,-107.28 376.92,-105.3 373.41,-99.24"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_node10" class="node">
-<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>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-54.48 142,-54.48 142,-30.48 252,-30.48 252,-54.48"/>
+<text text-anchor="middle" x="197" y="-40.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C578.48,-154.1 579.4,-119.27 537,-96.48 517.33,-85.91 512.12,-83.05 490.5,-77.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.98,-158.7C693.46,-159.34 658.8,-159.61 628.5,-157.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-77.48C412.12,-57.8 321.53,-49.12 262.06,-45.33"/>
+<polygon fill="#000000" stroke="#000000" points="262.26,-41.84 252.06,-44.72 261.83,-48.83 262.26,-41.84"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C589.99,-154.85 550,-168.78 522.89,-180.91"/>
+<polygon fill="#000000" stroke="#000000" points="521.11,-177.88 513.52,-185.27 524.06,-184.23 521.11,-177.88"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C399.24,-364.16 372.23,-368.76 288,-338.48 242.53,-322.14 240.91,-299.71 198,-277.48"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-72.48 573,-72.48 573,-48.48 682,-48.48 682,-72.48"/>
+<text text-anchor="middle" x="627.5" y="-58.08" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
 </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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.61,-145.2C713.71,-128.5 676.15,-98.52 651.78,-79.07"/>
+<polygon fill="#000000" stroke="#000000" points="653.76,-76.17 643.76,-72.67 649.39,-81.64 653.76,-76.17"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-157.48C592.18,-155.01 554.77,-143.3 527.9,-133.19"/>
+<polygon fill="#000000" stroke="#000000" points="529.08,-129.89 518.5,-129.55 526.56,-136.42 529.08,-129.89"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C537.93,-359.84 421.52,-290.32 371.98,-255.49"/>
+<polygon fill="#000000" stroke="#000000" points="373.96,-252.6 363.8,-249.62 369.88,-258.29 373.96,-252.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.81,-169.67C731.01,-200.38 690.24,-280.98 628.5,-316.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-329.48 288,-329.48 288,-305.48 406,-305.48 406,-329.48"/>
+<text text-anchor="middle" x="347" y="-315.08" 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~~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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-357.48C469.45,-358.91 424.18,-344.81 390.13,-332.96"/>
+<polygon fill="#000000" stroke="#000000" points="391.01,-329.55 380.42,-329.53 388.68,-336.16 391.01,-329.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-316.48C571.77,-347.95 553.46,-352.77 490.5,-357.48"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_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="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"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.58,-128.46C145.16,-119.71 115.94,-107.78 92.64,-98.26"/>
+<polygon fill="#000000" stroke="#000000" points="93.97,-95.02 83.38,-94.48 91.32,-101.5 93.97,-95.02"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.98,-126.01C287.54,-127.78 273.86,-129.72 260.67,-131.59"/>
+<polygon fill="#000000" stroke="#000000" points="260.12,-128.13 250.71,-133 261.11,-135.06 260.12,-128.13"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.05,-107.44C283.42,-97.54 238.46,-84.77 198,-82.48"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge21" 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.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-54.48C138.79,-58.6 122.26,-63.25 106.93,-67.57"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-64.27 97.07,-70.35 107.64,-71.01 105.74,-64.27"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.91,-185.37C454.5,-174.32 429.13,-157.88 406,-145.48 399.79,-142.15 393.07,-138.87 386.49,-135.81"/>
+<polygon fill="#000000" stroke="#000000" points="387.56,-132.46 377,-131.52 384.67,-138.83 387.56,-132.46"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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="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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-277.48C122.95,-240.61 78.69,-146.43 61.83,-103.9"/>
+<polygon fill="#000000" stroke="#000000" points="65.07,-102.57 58.21,-94.49 58.53,-105.08 65.07,-102.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.7,-195.44C400.13,-195.13 338.34,-198.38 288,-216.48 242.53,-232.83 241.14,-299.25 198,-277.48"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge24" class="edge">
-<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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.21,-48.47C508.19,-23.25 303.08,28.89 142,-21.48 115.62,-29.73 90.2,-48.97 73.52,-63.65"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-61.11 66.07,-70.43 75.83,-66.29 71.12,-61.11"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M467.12,-129.53C440.01,-143.47 391.56,-163.97 348,-159.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-159.48C318.02,-156.6 287.15,-152.74 260.87,-149.26"/>
+<polygon fill="#000000" stroke="#000000" points="261.04,-145.75 250.67,-147.89 260.12,-152.69 261.04,-145.75"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.5,-118.14C430.24,-118.31 416.87,-118.5 404.14,-118.68"/>
+<polygon fill="#000000" stroke="#000000" points="404.06,-115.18 394.11,-118.82 404.16,-122.18 404.06,-115.18"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-82.48C169.93,-81.01 141.13,-80.75 116.32,-80.96"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-77.46 106.31,-81.07 116.34,-84.46 116.27,-77.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M442.48,-105.6C430.66,-102.9 417.91,-100.3 406,-98.48 314.35,-84.48 290.57,-87.71 198,-82.48"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.55,-225.39C301.85,-208.55 255.08,-177.89 225.32,-158.39"/>
+<polygon fill="#000000" stroke="#000000" points="226.96,-155.28 216.68,-152.72 223.12,-161.13 226.96,-155.28"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.42,-249.59C281.73,-264.91 219.03,-288.09 198,-277.48"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.79,-307.48C259.67,-301.23 226.04,-291.63 198,-277.48"/>
 </g>
 </g>
 </svg>
@@ -562,860 +614,983 @@ <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">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>
-<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="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">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-5"></a>
+<a name="ln-6"></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-7"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-8"></a>      <span class="c">!!</span>
+<a name="ln-9"></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-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">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-13"></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-14"></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-15"></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-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">nnew</span>
+<a name="ln-18"></a>
+<a name="ln-19"></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-20"></a>
+<a name="ln-21"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-22"></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-23"></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">nnew</span><span class="p">))</span>
+<a name="ln-24"></a>      <span class="k">else</span>
+<a name="ln-25"></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">nnew</span><span class="p">)</span>
+<a name="ln-26"></a>      <span class="k">end if</span>
+<a name="ln-27"></a>
+<a name="ln-28"></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">nnew</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-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><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>            <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-30"></a>      <span class="k">return</span>
+<a name="ln-31"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_arr_kin</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>
+<a name="ln-34"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_encounter</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-35"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-36"></a>      <span class="c">!!</span>
+<a name="ln-37"></a>      <span class="c">!! Append components from one encounter list (pl-pl or pl-tp) body object to another. </span>
+<a name="ln-38"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-39"></a>      <span class="k">implicit none</span>
+<a name="ln-40"></a>      <span class="c">! Arguments</span>
+<a name="ln-41"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA encounter list object</span>
+<a name="ln-42"></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 append</span>
+<a name="ln-43"></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-44"></a>
+<a name="ln-45"></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">nenc</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">nenc</span><span class="p">)</span>
+<a name="ln-46"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-47"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_encounter</span><span class="p">)</span>
+<a name="ln-48"></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">level</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">level</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-49"></a>         <span class="k">end select</span>
+<a name="ln-50"></a><span class="k">         call </span><span class="n">util_append_encounter</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-51"></a>      <span class="k">end associate</span>
+<a name="ln-52"></a>
+<a name="ln-53"></a><span class="k">      return</span>
+<a name="ln-54"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_encounter</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a>
+<a name="ln-57"></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-58"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-59"></a>      <span class="c">!!</span>
+<a name="ln-60"></a>      <span class="c">!! Append components from one massive body object to another. </span>
+<a name="ln-61"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-62"></a>      <span class="k">implicit none</span>
+<a name="ln-63"></a>      <span class="c">!! Arguments</span>
+<a name="ln-64"></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-65"></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-66"></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-67"></a>
+<a name="ln-68"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-69"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-70"></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-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">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-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">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-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">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-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">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-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">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-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">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-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">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-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">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-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">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-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">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-81"></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-82"></a>
+<a name="ln-83"></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-84"></a>         <span class="k">end associate</span>
+<a name="ln-85"></a><span class="k">      class </span><span class="n">default</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="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-87"></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-88"></a>      <span class="k">end select</span>
+<a name="ln-89"></a>
+<a name="ln-90"></a><span class="k">      return</span>
+<a name="ln-91"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_pl</span>
 <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-93"></a>
+<a name="ln-94"></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-95"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-96"></a>      <span class="c">!!</span>
+<a name="ln-97"></a>      <span class="c">!! Append components from one massive body object to another. </span>
+<a name="ln-98"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</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">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-102"></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-103"></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-104"></a>      <span class="c">! Internals</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="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-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">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">nnew</span>
+<a name="ln-107"></a>
+<a name="ln-108"></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-109"></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-110"></a>      <span class="n">nnew</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-111"></a>
+<a name="ln-112"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-113"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-114"></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-115"></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-116"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-117"></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-118"></a>         <span class="n">ncomp_tmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-119"></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-120"></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-121"></a>      <span class="k">class </span><span class="n">default</span>
+<a name="ln-122"></a>         <span class="k">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-123"></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-124"></a>      <span class="k">end select</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-126"></a>      <span class="c">! Save the number of appended bodies </span>
+<a name="ln-127"></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">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">nnew</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>            <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">      </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-129"></a>      <span class="k">return</span>
+<a name="ln-130"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_merger</span>
+<a name="ln-131"></a>
+<a name="ln-132"></a>
+<a name="ln-133"></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-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">!! Append components from test particle object to another. </span>
+<a name="ln-137"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-138"></a>      <span class="k">implicit none</span>
+<a name="ln-139"></a>      <span class="c">!! Arguments</span>
+<a name="ln-140"></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-141"></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-142"></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-143"></a>
+<a name="ln-144"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-145"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-146"></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-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">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-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">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-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">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-150"></a>
+<a name="ln-151"></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-152"></a>         <span class="k">end associate</span>
+<a name="ln-153"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-154"></a>         <span class="k">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-155"></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-156"></a>      <span class="k">end select</span>
+<a name="ln-157"></a>
+<a name="ln-158"></a><span class="k">      return</span>
+<a name="ln-159"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_tp</span>
+<a name="ln-160"></a>
+<a name="ln-161"></a>
+<a name="ln-162"></a>   <span class="k">module subroutine </span><span class="n">symba_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-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">!! Copies elements from the source encounter list into self.</span>
+<a name="ln-166"></a>      <span class="k">implicit none</span>
+<a name="ln-167"></a>      <span class="c">! Arguments</span>
+<a name="ln-168"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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-169"></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-170"></a>  
+<a name="ln-171"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-172"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_encounter</span><span class="p">)</span>
+<a name="ln-173"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-174"></a>            <span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">level</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-175"></a>         <span class="k">end associate</span>
+<a name="ln-176"></a><span class="k">      end select</span>
+<a name="ln-177"></a>
+<a name="ln-178"></a><span class="k">      call </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-179"></a>   
+<a name="ln-180"></a>      <span class="k">return</span>
+<a name="ln-181"></a><span class="k">   end subroutine </span><span class="n">symba_util_copy_encounter</span>
+<a name="ln-182"></a>
+<a name="ln-183"></a>
+<a name="ln-184"></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-185"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-186"></a>      <span class="c">!!</span>
+<a name="ln-187"></a>      <span class="c">!! Performs a fill operation on a single array of particle kinship types</span>
+<a name="ln-188"></a>      <span class="c">!! This is the inverse of a spill operation   </span>
+<a name="ln-189"></a>      <span class="k">implicit none</span>
+<a name="ln-190"></a>      <span class="c">! Arguments</span>
+<a name="ln-191"></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-192"></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-193"></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-194"></a>
+<a name="ln-195"></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-196"></a>
+<a name="ln-197"></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-198"></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-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">symba_util_fill_arr_kin</span>
+<a name="ln-202"></a>
+<a name="ln-203"></a>
+<a name="ln-204"></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-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">!! Insert new SyMBA test particle structure into an old one. </span>
+<a name="ln-208"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-209"></a>      <span class="c">!! </span>
+<a name="ln-210"></a>      <span class="k">implicit none</span>
+<a name="ln-211"></a>      <span class="c">! Arguments</span>
+<a name="ln-212"></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-213"></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-214"></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-215"></a>
+<a name="ln-216"></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-217"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-218"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</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">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-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">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-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">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-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">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-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">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-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">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-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">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-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">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-227"></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-228"></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-229"></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-230"></a>            
+<a name="ln-231"></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-232"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-233"></a>            <span class="k">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-234"></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-235"></a>         <span class="k">end select</span>
+<a name="ln-236"></a><span class="k">      end associate</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-238"></a><span class="k">      return</span>
+<a name="ln-239"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_pl</span>
+<a name="ln-240"></a>
+<a name="ln-241"></a>
+<a name="ln-242"></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-243"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-244"></a>      <span class="c">!!</span>
+<a name="ln-245"></a>      <span class="c">!! Insert new SyMBA test particle structure into an old one. </span>
+<a name="ln-246"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-247"></a>      <span class="c">!! </span>
+<a name="ln-248"></a>      <span class="k">implicit none</span>
+<a name="ln-249"></a>      <span class="c">! Arguments</span>
+<a name="ln-250"></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-251"></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-252"></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-253"></a>
+<a name="ln-254"></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-255"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-256"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</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">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-258"></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-259"></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-260"></a>            
+<a name="ln-261"></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-262"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-263"></a>            <span class="k">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-264"></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-265"></a>         <span class="k">end select</span>
+<a name="ln-266"></a><span class="k">      end associate</span>
+<a name="ln-267"></a>
+<a name="ln-268"></a><span class="k">      return</span>
+<a name="ln-269"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_tp</span>
+<a name="ln-270"></a>
+<a name="ln-271"></a>
+<a name="ln-272"></a>   <span class="k">module subroutine </span><span class="n">symba_util_index_eucl_plpl</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-273"></a>      <span class="c">!! author: Jacob R. Elliott and David A. Minton</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">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">! 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-275"></a>      <span class="c">!! Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the</span>
+<a name="ln-276"></a>      <span class="c">!! number of interactions that excludes semi-interacting bodies with each other (Gmass &lt; GMTINY).</span>
+<a name="ln-277"></a>      <span class="c">!! This method will also sort the bodies in descending order by Mass</span>
+<a name="ln-278"></a>      <span class="c">!!</span>
+<a name="ln-279"></a>      <span class="c">!! Reference:</span>
+<a name="ln-280"></a>      <span class="c">!!</span>
+<a name="ln-281"></a>      <span class="c">!!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
+<a name="ln-282"></a>      <span class="c">!!       2019. hal-0204751</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 massive body 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">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="c">! Internals</span>
+<a name="ln-288"></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">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">counter</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">nplm</span><span class="p">,</span> <span class="n">nplpl</span><span class="p">,</span> <span class="n">nplplm</span>
+<a name="ln-289"></a>
+<a name="ln-290"></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>
+<a name="ln-291"></a>         <span class="n">npl</span> <span class="o">=</span> <span class="nb">int</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="nb">kind</span><span class="o">=</span><span class="n">I8B</span><span class="p">)</span>
+<a name="ln-292"></a>         <span class="n">nplm</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">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>
+<a name="ln-293"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">int</span><span class="p">(</span><span class="n">nplm</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">I4B</span><span class="p">)</span>
+<a name="ln-294"></a>
+<a name="ln-295"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span> <span class="o">=</span> <span class="p">(</span><span class="n">npl</span> <span class="o">*</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="o">/</span> <span class="mi">2</span><span class="p">)</span> <span class="c">! number of entries in a strict lower triangle, npl x npl, minus first column</span>
+<a name="ln-296"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">nplplm</span> <span class="o">=</span> <span class="n">nplm</span> <span class="o">*</span> <span class="n">npl</span> <span class="o">-</span> <span class="n">nplm</span> <span class="o">*</span> <span class="p">(</span><span class="n">nplm</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">/</span> <span class="mi">2</span> <span class="c">! number of entries in a strict lower triangle, npl x npl, minus first column including only mutually interacting bodies</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">k_plpl</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">k_plpl</span><span class="p">)</span> <span class="c">! Reset the index array if it&#39;s been set previously</span>
+<a name="ln-298"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</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">pl</span><span class="p">%</span><span class="n">nplpl</span><span class="p">))</span>
+<a name="ln-299"></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-300"></a>            <span class="n">counter</span> <span class="o">=</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">*</span> <span class="n">npl</span> <span class="o">-</span> <span class="n">i</span> <span class="o">*</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">/</span> <span class="mi">2_I8B</span> <span class="o">+</span> <span class="mi">1_I8B</span>
+<a name="ln-301"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="n">i</span> <span class="o">+</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-302"></a>               <span class="n">self</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">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-303"></a>               <span class="n">self</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">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">j</span>
+<a name="ln-304"></a>               <span class="n">counter</span> <span class="o">=</span> <span class="n">counter</span> <span class="o">+</span> <span class="mi">1_I8B</span>
+<a name="ln-305"></a>            <span class="k">end do</span>
+<a name="ln-306"></a><span class="k">         end do</span>
+<a name="ln-307"></a><span class="k">      end associate</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">symba_util_index_eucl_plpl</span>
+<a name="ln-311"></a>
+<a name="ln-312"></a>
+<a name="ln-313"></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-314"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-315"></a>      <span class="c">!!</span>
+<a name="ln-316"></a>      <span class="c">!! Determine system pericenter passages for planets in SyMBA</span>
+<a name="ln-317"></a>      <span class="c">!!</span>
+<a name="ln-318"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_peri.f90</span>
+<a name="ln-319"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine util_mass_peri.f</span>
+<a name="ln-320"></a>      <span class="k">implicit none</span>
+<a name="ln-321"></a>      <span class="c">! Arguments</span>
+<a name="ln-322"></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-323"></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-324"></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-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>
+<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">vdotr</span><span class="p">,</span> <span class="n">e</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="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-330"></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-331"></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-332"></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-333"></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-334"></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-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">1</span>
+<a name="ln-337"></a>                     <span class="k">else</span>
+<a name="ln-338"></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-339"></a>                     <span class="k">end if</span>
+<a name="ln-340"></a><span class="k">                  end if</span>
+<a name="ln-341"></a><span class="k">               end do</span>
+<a name="ln-342"></a><span class="k">            else</span>
+<a name="ln-343"></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-344"></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-345"></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-346"></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-347"></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-348"></a>                     <span class="k">else</span>
+<a name="ln-349"></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-350"></a>                     <span class="k">end if</span>
+<a name="ln-351"></a><span class="k">                  end if</span>
+<a name="ln-352"></a><span class="k">               end do</span>
+<a name="ln-353"></a><span class="k">            end if</span>
+<a name="ln-354"></a><span class="k">         else</span>
+<a name="ln-355"></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-356"></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-357"></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-358"></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-359"></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-360"></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-361"></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-362"></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-363"></a>                        <span class="k">end if</span>
+<a name="ln-364"></a><span class="k">                     else</span>
+<a name="ln-365"></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-366"></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-367"></a>                        <span class="k">else</span>
+<a name="ln-368"></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-369"></a>                        <span class="k">end if</span>
+<a name="ln-370"></a><span class="k">                     end if</span>
+<a name="ln-371"></a><span class="k">                  end if</span>
+<a name="ln-372"></a><span class="k">               end do</span>
+<a name="ln-373"></a><span class="k">            else</span>
+<a name="ln-374"></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-375"></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-376"></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-377"></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-378"></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-379"></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-380"></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-381"></a>                        <span class="k">end if</span>
+<a name="ln-382"></a><span class="k">                     else</span>
+<a name="ln-383"></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-384"></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-385"></a>                        <span class="k">else</span>
+<a name="ln-386"></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-387"></a>                        <span class="k">end if</span>
+<a name="ln-388"></a><span class="k">                     end if</span>
+<a name="ln-389"></a><span class="k">                  end if</span>
+<a name="ln-390"></a><span class="k">               end do</span>
+<a name="ln-391"></a><span class="k">            end if</span>
+<a name="ln-392"></a><span class="k">         end if</span>
+<a name="ln-393"></a><span class="k">      end associate</span>
+<a name="ln-394"></a><span class="k"> </span>
+<a name="ln-395"></a><span class="k">     return</span>
+<a name="ln-396"></a><span class="k">   end subroutine </span><span class="n">symba_util_peri_pl</span>
+<a name="ln-397"></a>
 <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-399"></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-400"></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-401"></a>      <span class="c">!!</span>
+<a name="ln-402"></a>      <span class="c">!! Clean up the massive body structures to remove discarded bodies and add new bodies</span>
+<a name="ln-403"></a>      <span class="k">implicit none</span>
+<a name="ln-404"></a>      <span class="c">! Arguments</span>
+<a name="ln-405"></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-406"></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-407"></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</span>
+<a name="ln-408"></a>      <span class="c">! Internals</span>
+<a name="ln-409"></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-410"></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">k</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">nadd</span><span class="p">,</span> <span class="n">nencmin</span><span class="p">,</span> <span class="n">nenc_old</span><span class="p">,</span> <span class="n">idnew1</span><span class="p">,</span> <span class="n">idnew2</span><span class="p">,</span> <span class="n">idold1</span><span class="p">,</span> <span class="n">idold2</span>
+<a name="ln-411"></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="p">,</span> <span class="n">ldump_mask</span>
+<a name="ln-412"></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_old</span>
+<a name="ln-413"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lencounter</span>
+<a name="ln-414"></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_orig_pl</span><span class="p">,</span> <span class="n">levelm_orig_pl</span><span class="p">,</span> <span class="n">levelg_orig_tp</span><span class="p">,</span> <span class="n">levelm_orig_tp</span><span class="p">,</span> <span class="n">nplenc_orig_pl</span><span class="p">,</span> <span class="n">nplenc_orig_tp</span><span class="p">,</span> <span class="n">ntpenc_orig_pl</span>
+<a name="ln-415"></a>
+<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="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-417"></a>
+<a name="ln-418"></a>         <span class="n">npl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-419"></a>         <span class="n">nadd</span> <span class="o">=</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-420"></a>         <span class="k">if</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-421"></a>         <span class="c">! Deallocate any temporary variables</span>
+<a name="ln-422"></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-423"></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-424"></a>
+<a name="ln-425"></a>         <span class="c">! Remove the discards and destroy the list, as the system already tracks pl_discards elsewhere</span>
+<a name="ln-426"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lmask</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-427"></a>         <span class="n">lmask</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">ldiscard</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-428"></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">self</span><span class="p">)</span>
+<a name="ln-429"></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-430"></a>         <span class="n">npl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-431"></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-432"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">)</span>
+<a name="ln-433"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">lmask</span><span class="p">)</span>
+<a name="ln-434"></a>
+<a name="ln-435"></a>         <span class="c">! Store the original plplenc list so we don&#39;t remove any of the original encounters</span>
+<a name="ln-436"></a>         <span class="n">nenc_old</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-437"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nenc_old</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-438"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">plplenc_old</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">)</span>
+<a name="ln-439"></a>            <span class="k">call </span><span class="n">plplenc_old</span><span class="p">%</span><span class="n">copy</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">)</span>
+<a name="ln-440"></a>         <span class="k">end if</span>
+<a name="ln-441"></a>
+<a name="ln-442"></a>         <span class="c">! Add in any new bodies</span>
+<a name="ln-443"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nadd</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-444"></a>            <span class="c">! Append the adds to the main pl object</span>
+<a name="ln-445"></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">nadd</span><span class="p">)])</span>
+<a name="ln-446"></a>
+<a name="ln-447"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">ldump_mask</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="n">nadd</span><span class="p">))</span>  <span class="c">! This mask is used only to append the original Fortran binary particle.dat file with new bodies. This is ignored for NetCDF output</span>
+<a name="ln-448"></a>            <span class="n">ldump_mask</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-449"></a>            <span class="n">ldump_mask</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</span><span class="o">+</span><span class="n">nadd</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="n">npl</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">nadd</span><span class="p">)</span> <span class="o">==</span> <span class="n">NEW_PARTICLE</span>
+<a name="ln-450"></a>            <span class="n">npl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-451"></a>         <span class="k">else</span>
+<a name="ln-452"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">ldump_mask</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-453"></a>            <span class="n">ldump_mask</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-454"></a>         <span class="k">end if</span>
+<a name="ln-455"></a>
+<a name="ln-456"></a>         <span class="c">! Reset all of the status flags for this body</span>
+<a name="ln-457"></a>         <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">ACTIVE</span>
+<a name="ln-458"></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-459"></a>            <span class="k">call </span><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">set_value</span><span class="p">(</span><span class="n">status</span><span class="o">=</span><span class="s2">&quot;ACTIVE&quot;</span><span class="p">)</span>
+<a name="ln-460"></a>         <span class="k">end do</span>
+<a name="ln-461"></a><span class="k">         </span><span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</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-462"></a>         <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="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-463"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-464"></a>
+<a name="ln-465"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-466"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-467"></a>            <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</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">&lt;</span> <span class="n">param</span><span class="p">%</span><span class="n">GMTINY</span>
+<a name="ln-468"></a>            <span class="k">where</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>
+<a name="ln-469"></a>               <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="n">particle_type</span> <span class="o">=</span> <span class="n">PL_TINY_TYPE_NAME</span> 
+<a name="ln-470"></a>            <span class="n">elsewhere</span>
+<a name="ln-471"></a>               <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="n">particle_type</span> <span class="o">=</span> <span class="n">PL_TYPE_NAME</span> 
+<a name="ln-472"></a>            <span class="k">end where</span>
+<a name="ln-473"></a><span class="k">         end select</span>
+<a name="ln-474"></a>
+<a name="ln-475"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">dump_particle_info</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">idx</span><span class="o">=</span><span class="nb">pack</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">npl</span><span class="p">)],</span> <span class="n">ldump_mask</span><span class="p">))</span>
+<a name="ln-476"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">ldump_mask</span><span class="p">)</span>
+<a name="ln-477"></a>
+<a name="ln-478"></a>         <span class="c">! Reindex the new list of bodies </span>
+<a name="ln-479"></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-480"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="nb">index</span><span class="p">(</span><span class="n">param</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">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-482"></a>         <span class="c">! Reset the kinship trackers</span>
+<a name="ln-483"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">reset_kinship</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">npl</span><span class="p">)])</span>
+<a name="ln-484"></a>
+<a name="ln-485"></a>         <span class="c">! Re-build the zero-level encounter list, being sure to save the original level information for all bodies</span>
+<a name="ln-486"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">levelg_orig_pl</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">levelg</span><span class="p">)</span>
+<a name="ln-487"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">levelm_orig_pl</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">levelm</span><span class="p">)</span>
+<a name="ln-488"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">nplenc_orig_pl</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">nplenc</span><span class="p">)</span>
+<a name="ln-489"></a>         <span class="n">lencounter</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">encounter_check</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> <span class="mi">0</span><span class="p">)</span> 
+<a name="ln-490"></a>         <span class="k">if</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-491"></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-492"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-493"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">ntpenc_orig_pl</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">ntpenc</span><span class="p">)</span>
+<a name="ln-494"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">levelg_orig_tp</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">levelg</span><span class="p">)</span>
+<a name="ln-495"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">levelm_orig_tp</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">levelm</span><span class="p">)</span>
+<a name="ln-496"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">nplenc_orig_tp</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">nplenc</span><span class="p">)</span>
+<a name="ln-497"></a>               <span class="n">lencounter</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">encounter_check</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> <span class="mi">0</span><span class="p">)</span>
+<a name="ln-498"></a>               <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">levelg_orig_tp</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">)</span>
+<a name="ln-499"></a>               <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">levelm_orig_tp</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">)</span>
+<a name="ln-500"></a>               <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">nplenc_orig_tp</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">)</span>
+<a name="ln-501"></a>               <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">ntpenc_orig_pl</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">)</span>
+<a name="ln-502"></a>            <span class="k">end select</span>
+<a name="ln-503"></a><span class="k">         end if</span>
+<a name="ln-504"></a><span class="k">         call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">levelg_orig_pl</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">)</span>
+<a name="ln-505"></a>         <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">levelm_orig_pl</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">)</span>
+<a name="ln-506"></a>         <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">nplenc_orig_pl</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">)</span>
+<a name="ln-507"></a>
+<a name="ln-508"></a>         <span class="c">! Re-index the encounter list as the index values may have changed</span>
+<a name="ln-509"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nenc_old</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-510"></a><span class="k">            </span><span class="n">nencmin</span> <span class="o">=</span> <span class="nb">min</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span> 
+<a name="ln-511"></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">nencmin</span>
+<a name="ln-512"></a>               <span class="n">idnew1</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-513"></a>               <span class="n">idnew2</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-514"></a>               <span class="n">idold1</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-515"></a>               <span class="n">idold2</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-516"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">idnew1</span> <span class="o">==</span> <span class="n">idold1</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">idnew2</span> <span class="o">==</span> <span class="n">idold2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-517"></a>                  <span class="c">! This is an encounter we already know about, so save the old information</span>
+<a name="ln-518"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</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-519"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> 
+<a name="ln-520"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-521"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-522"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-523"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-524"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-525"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-526"></a>               <span class="k">else if</span> <span class="p">(((</span><span class="n">idnew1</span> <span class="o">==</span> <span class="n">idold2</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">idnew2</span> <span class="o">==</span> <span class="n">idold1</span><span class="p">)))</span> <span class="k">then</span>
+<a name="ln-527"></a>                  <span class="c">! This is an encounter we already know about, but with the order reversed, so save the old information</span>
+<a name="ln-528"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</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-529"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> 
+<a name="ln-530"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-531"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-532"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-533"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-534"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-535"></a>                  <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">plplenc_old</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-536"></a>               <span class="k">end if</span>
+<a name="ln-537"></a><span class="k">            end do</span>
+<a name="ln-538"></a><span class="k">         end if</span>
+<a name="ln-539"></a><span class="k">      end associate</span>
+<a name="ln-540"></a>
+<a name="ln-541"></a><span class="k">      return</span>
+<a name="ln-542"></a><span class="k">   end subroutine </span><span class="n">symba_util_rearray_pl</span>
+<a name="ln-543"></a>
+<a name="ln-544"></a>
+<a name="ln-545"></a>   <span class="k">module subroutine </span><span class="n">symba_util_reset_kinship</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-546"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-547"></a>      <span class="c">!! </span>
+<a name="ln-548"></a>      <span class="c">!! Resets the kinship status of bodies.</span>
+<a name="ln-549"></a>      <span class="c">!!</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">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-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="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">!! Index array of bodies to reset</span>
+<a name="ln-553"></a>      <span class="c">! Internals</span>
+<a name="ln-554"></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-555"></a>
+<a name="ln-556"></a>      <span class="n">self</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="n">parent</span> <span class="o">=</span> <span class="n">idx</span><span class="p">(:)</span>
+<a name="ln-557"></a>      <span class="n">self</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="n">nchild</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-558"></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">size</span><span class="p">(</span><span class="n">idx</span><span class="p">(:))</span>
+<a name="ln-559"></a>         <span class="n">i</span> <span class="o">=</span> <span class="n">idx</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-560"></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="n">i</span><span class="p">)%</span><span class="n">child</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><span class="n">i</span><span class="p">)%</span><span class="n">child</span><span class="p">)</span>
+<a name="ln-561"></a>      <span class="k">end do</span>
+<a name="ln-562"></a>
+<a name="ln-563"></a><span class="k">      return</span>
+<a name="ln-564"></a><span class="k">   end subroutine </span><span class="n">symba_util_reset_kinship</span>
+<a name="ln-565"></a>   
+<a name="ln-566"></a>
+<a name="ln-567"></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-568"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-569"></a>      <span class="c">!!</span>
+<a name="ln-570"></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-571"></a>      <span class="k">implicit none</span>
+<a name="ln-572"></a>      <span class="c">! Arguments</span>
+<a name="ln-573"></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-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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-575"></a>      <span class="c">! Internals</span>
+<a name="ln-576"></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-577"></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-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-579"></a>      <span class="k">if</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-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">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-581"></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-582"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</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">      </span>
+<a name="ln-586"></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-587"></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-588"></a>      <span class="k">else</span>
+<a name="ln-589"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-590"></a>      <span class="k">end if</span>
+<a name="ln-591"></a>
+<a name="ln-592"></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-593"></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-594"></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-595"></a>      <span class="k">else</span>
+<a name="ln-596"></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-597"></a>      <span class="k">end if</span>
+<a name="ln-598"></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-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-600"></a>      <span class="k">return</span>
+<a name="ln-601"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_arr_kin</span>
+<a name="ln-602"></a>
+<a name="ln-603"></a>
+<a name="ln-604"></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-605"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-606"></a>      <span class="c">!!</span>
+<a name="ln-607"></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-608"></a>      <span class="k">implicit none</span>
+<a name="ln-609"></a>      <span class="c">! Arguments</span>
+<a name="ln-610"></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-611"></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-612"></a>
+<a name="ln-613"></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-614"></a>
+<a name="ln-615"></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-616"></a>
+<a name="ln-617"></a>      <span class="k">return</span>
+<a name="ln-618"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_merger</span>
+<a name="ln-619"></a>
 <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-621"></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-622"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-623"></a>      <span class="c">!!</span>
+<a name="ln-624"></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-625"></a>      <span class="k">implicit none</span>
+<a name="ln-626"></a>      <span class="c">! Arguments</span>
+<a name="ln-627"></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-628"></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-629"></a>
+<a name="ln-630"></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-631"></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-632"></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-633"></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-634"></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-635"></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-636"></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-637"></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-638"></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-639"></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-640"></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-641"></a>
+<a name="ln-642"></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-643"></a>
+<a name="ln-644"></a>      <span class="k">return</span>
+<a name="ln-645"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_pl</span>
+<a name="ln-646"></a>
+<a name="ln-647"></a>
+<a name="ln-648"></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-649"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-650"></a>      <span class="c">!!</span>
+<a name="ln-651"></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-652"></a>      <span class="k">implicit none</span>
+<a name="ln-653"></a>      <span class="c">! Arguments</span>
+<a name="ln-654"></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-655"></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-656"></a>
+<a name="ln-657"></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-658"></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-659"></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-660"></a>
+<a name="ln-661"></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-662"></a>
+<a name="ln-663"></a>      <span class="k">return</span>
+<a name="ln-664"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_tp</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-666"></a>
+<a name="ln-667"></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-668"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-669"></a>      <span class="c">!!</span>
+<a name="ln-670"></a>      <span class="c">!! Sort a SyMBA massive body object in-place. </span>
+<a name="ln-671"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-672"></a>      <span class="k">implicit none</span>
+<a name="ln-673"></a>      <span class="c">! Arguments</span>
+<a name="ln-674"></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-675"></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-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">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-677"></a>      <span class="c">! Internals</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">allocatable</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-679"></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-680"></a>
+<a name="ln-681"></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-682"></a>
+<a name="ln-683"></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-684"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-685"></a>      <span class="k">else</span>
+<a name="ln-686"></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-687"></a>      <span class="k">end if</span>
+<a name="ln-688"></a>
+<a name="ln-689"></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-690"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-691"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-692"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nplenc&quot;</span><span class="p">)</span>
+<a name="ln-693"></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-694"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ntpenc&quot;</span><span class="p">)</span>
+<a name="ln-695"></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-696"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelg&quot;</span><span class="p">)</span>
+<a name="ln-697"></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-698"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelm&quot;</span><span class="p">)</span>
+<a name="ln-699"></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-700"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;peri&quot;</span><span class="p">)</span>
+<a name="ln-701"></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-702"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;atp&quot;</span><span class="p">)</span>
+<a name="ln-703"></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-704"></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-705"></a>            <span class="k">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-706"></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-707"></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-708"></a>            <span class="k">return</span>
+<a name="ln-709"></a><span class="k">         end select</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">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">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-711"></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-712"></a>
+<a name="ln-713"></a>      <span class="k">end associate</span>
+<a name="ln-714"></a><span class="k">      return</span>
+<a name="ln-715"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_pl</span>
+<a name="ln-716"></a>
+<a name="ln-717"></a>
+<a name="ln-718"></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-719"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-720"></a>      <span class="c">!!</span>
+<a name="ln-721"></a>      <span class="c">!! Sort a SyMBA test particle object in-place. </span>
+<a name="ln-722"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-723"></a>      <span class="k">implicit none</span>
+<a name="ln-724"></a>      <span class="c">! Arguments</span>
+<a name="ln-725"></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-726"></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-727"></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-728"></a>      <span class="c">! Internals</span>
+<a name="ln-729"></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">ind</span>
+<a name="ln-730"></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-731"></a>
+<a name="ln-732"></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-733"></a>
+<a name="ln-734"></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-735"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-736"></a>      <span class="k">else</span>
+<a name="ln-737"></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-738"></a>      <span class="k">end if</span>
+<a name="ln-739"></a>
+<a name="ln-740"></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-741"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-742"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-743"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nplenc&quot;</span><span class="p">)</span>
+<a name="ln-744"></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-745"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelg&quot;</span><span class="p">)</span>
+<a name="ln-746"></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-747"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelm&quot;</span><span class="p">)</span>
+<a name="ln-748"></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-749"></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-750"></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-751"></a>            <span class="k">return</span>
+<a name="ln-752"></a><span class="k">         end select</span>
+<a name="ln-753"></a>
+<a name="ln-754"></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-755"></a>      <span class="k">end associate</span>
+<a name="ln-756"></a>
+<a name="ln-757"></a><span class="k">      return</span>
+<a name="ln-758"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_tp</span>
+<a name="ln-759"></a>
+<a name="ln-760"></a>
+<a name="ln-761"></a>
+<a name="ln-762"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-763"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-764"></a>      <span class="c">!!</span>
+<a name="ln-765"></a>      <span class="c">!! Rearrange a single array of particle kinship type in-place from an index list.</span>
+<a name="ln-766"></a>      <span class="k">implicit none</span>
+<a name="ln-767"></a>      <span class="c">! Arguments</span>
+<a name="ln-768"></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-769"></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 to rearrange against</span>
+<a name="ln-770"></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 elements in arr and ind to rearrange</span>
+<a name="ln-771"></a>      <span class="c">! Internals</span>
+<a name="ln-772"></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 copy of array used during rearrange operation</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="kd">::</span> <span class="n">i</span><span class="p">,</span><span class="n">j</span>
+<a name="ln-774"></a>
+<a name="ln-775"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-776"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-777"></a>      <span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</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">n</span><span class="p">))</span>
+<a name="ln-778"></a>
+<a name="ln-779"></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">n</span>
+<a name="ln-780"></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">tmp</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">nchild</span>
+<a name="ln-781"></a>            <span class="n">tmp</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">tmp</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-782"></a>         <span class="k">end do</span>
+<a name="ln-783"></a><span class="k">      end do</span>
+<a name="ln-784"></a>
+<a name="ln-785"></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-786"></a>      <span class="k">return</span>
+<a name="ln-787"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_arr_kin</span>
+<a name="ln-788"></a>
+<a name="ln-789"></a>
+<a name="ln-790"></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-791"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-792"></a>      <span class="c">!!</span>
+<a name="ln-793"></a>      <span class="c">!! Rearrange SyMBA massive body structure in-place from an index list.</span>
+<a name="ln-794"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-795"></a>      <span class="k">implicit none</span>
+<a name="ln-796"></a>      <span class="c">! Arguments</span>
+<a name="ln-797"></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-798"></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-799"></a>      <span class="c">! Internals</span>
+<a name="ln-800"></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-801"></a>
+<a name="ln-802"></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-803"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-804"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-805"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-806"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-807"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-808"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-809"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-810"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-811"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-812"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-813"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-814"></a>
+<a name="ln-815"></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-816"></a>      <span class="k">end associate</span>
+<a name="ln-817"></a>
+<a name="ln-818"></a><span class="k">      return</span>
+<a name="ln-819"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_pl</span>
+<a name="ln-820"></a>
+<a name="ln-821"></a>
+<a name="ln-822"></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-823"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-824"></a>      <span class="c">!!</span>
+<a name="ln-825"></a>      <span class="c">!! Rearrange SyMBA test particle object in-place from an index list.</span>
+<a name="ln-826"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-827"></a>      <span class="k">implicit none</span>
+<a name="ln-828"></a>      <span class="c">! Arguments</span>
+<a name="ln-829"></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-830"></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-831"></a>
+<a name="ln-832"></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-833"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-834"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-835"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-836"></a>
+<a name="ln-837"></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-838"></a>      <span class="k">end associate</span>
+<a name="ln-839"></a><span class="k">      </span>
+<a name="ln-840"></a><span class="k">      return</span>
+<a name="ln-841"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_tp</span>
+<a name="ln-842"></a>
+<a name="ln-843"></a>
+<a name="ln-844"></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-845"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-846"></a>      <span class="c">!!</span>
+<a name="ln-847"></a>      <span class="c">!! Performs a spill operation on a single array of particle kinships</span>
+<a name="ln-848"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-849"></a>      <span class="k">implicit none</span>
+<a name="ln-850"></a>      <span class="c">! Arguments</span>
+<a name="ln-851"></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-852"></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-853"></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-854"></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-855"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</span>
 <a name="ln-857"></a>
-<a name="ln-858"></a><span class="k">end submodule </span><span class="n">s_symba_util</span>
+<a name="ln-858"></a>      <span class="n">nkeep</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-859"></a>      <span class="n">nspill</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-860"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-861"></a>
+<a name="ln-862"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-863"></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">then</span>
+<a name="ln-864"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-865"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-866"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-867"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-868"></a>      <span class="k">end if</span>
+<a name="ln-869"></a>
+<a name="ln-870"></a><span class="k">      </span><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="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-871"></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-872"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-873"></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="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-874"></a>         <span class="k">else</span>
+<a name="ln-875"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-876"></a>         <span class="k">end if</span>
+<a name="ln-877"></a><span class="k">      end if</span>
+<a name="ln-878"></a>
+<a name="ln-879"></a><span class="k">      return</span>
+<a name="ln-880"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_arr_kin</span>
+<a name="ln-881"></a>
+<a name="ln-882"></a>
+<a name="ln-883"></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-884"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-885"></a>      <span class="c">!!</span>
+<a name="ln-886"></a>      <span class="c">!! Move spilled (discarded) SyMBA massive body particle structure from active list to discard list</span>
+<a name="ln-887"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-888"></a>      <span class="k">implicit none</span>
+<a name="ln-889"></a>      <span class="c">! Arguments</span>
+<a name="ln-890"></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-891"></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-892"></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-893"></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-894"></a>
+<a name="ln-895"></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-896"></a>      <span class="c">!&gt; Spill all the common components</span>
+<a name="ln-897"></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-898"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-899"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-900"></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-901"></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-902"></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-903"></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-904"></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-905"></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-906"></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-907"></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-908"></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-909"></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-910"></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-911"></a>
+<a name="ln-912"></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-913"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-914"></a>            <span class="k">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-915"></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-916"></a>         <span class="k">end select</span>
+<a name="ln-917"></a><span class="k">      end associate</span>
+<a name="ln-918"></a><span class="k">     </span>
+<a name="ln-919"></a><span class="k">      return</span>
+<a name="ln-920"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_pl</span>
+<a name="ln-921"></a>
+<a name="ln-922"></a>
+<a name="ln-923"></a>   <span class="k">module subroutine </span><span class="n">symba_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-924"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-925"></a>      <span class="c">!!</span>
+<a name="ln-926"></a>      <span class="c">!! Move spilled (discarded) SyMBA encounter structure from active list to discard list</span>
+<a name="ln-927"></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-928"></a>      <span class="k">implicit none</span>
+<a name="ln-929"></a>      <span class="c">! Arguments</span>
+<a name="ln-930"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_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">!! SyMBA pl-tp encounter list </span>
+<a name="ln-931"></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-932"></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-933"></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-934"></a>  
+<a name="ln-935"></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-936"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-937"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_encounter</span><span class="p">)</span>
+<a name="ln-938"></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-939"></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-940"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-941"></a>            <span class="k">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_encounter or its descendents!&quot;</span>
+<a name="ln-942"></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-943"></a>         <span class="k">end select</span>
+<a name="ln-944"></a><span class="k">      end associate</span>
+<a name="ln-945"></a><span class="k">   </span>
+<a name="ln-946"></a><span class="k">      return</span>
+<a name="ln-947"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_encounter</span>
+<a name="ln-948"></a>
+<a name="ln-949"></a>
+<a name="ln-950"></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-951"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-952"></a>      <span class="c">!!</span>
+<a name="ln-953"></a>      <span class="c">!! Move spilled (discarded) SyMBA test particle structure from active list to discard list</span>
+<a name="ln-954"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-955"></a>      <span class="k">implicit none</span>
+<a name="ln-956"></a>      <span class="c">! Arguments</span>
+<a name="ln-957"></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-958"></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-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">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-960"></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-961"></a>
+<a name="ln-962"></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-963"></a>      <span class="c">!&gt; Spill all the common components</span>
+<a name="ln-964"></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-965"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-966"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-967"></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-968"></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-969"></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-970"></a>
+<a name="ln-971"></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-972"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-973"></a>            <span class="k">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-974"></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-975"></a>         <span class="k">end select</span>
+<a name="ln-976"></a><span class="k">      end associate</span>
+<a name="ln-977"></a><span class="k">     </span>
+<a name="ln-978"></a><span class="k">      return</span>
+<a name="ln-979"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_tp</span>
+<a name="ln-980"></a>
+<a name="ln-981"></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 d19dcd01a..c042a9153 100644
--- a/docs/sourcefile/tides_getacch_pl.f90.html
+++ b/docs/sourcefile/tides_getacch_pl.f90.html
@@ -134,7 +134,7 @@ <h1>tides_getacch_pl.f90
      <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.">38 statements</a>
+    title=" 0.2% of total for source files.">38 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefiletides_getacch_plf90EfferentGraph" width="641pt" height="284pt"
+ viewBox="0.00 0.00 641.00 284.06" 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.68 0.68) rotate(0) translate(4 412.12)">
 <title>sourcefile~~tides_getacch_pl.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 928,-301.25 928,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 935,-412.12 935,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,-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>
+<polygon fill="none" stroke="black" points="931,-133.12 820,-133.12 820,-109.12 931,-109.12 931,-133.12"/>
+<text text-anchor="middle" x="875.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M852.17,-109.09C809.84,-87.43 714.42,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.23,-133.21C838.23,-149.83 800.24,-179.92 775.58,-199.45"/>
+<polygon fill="#000000" stroke="#000000" points="773.13,-196.92 767.46,-205.88 777.47,-202.41 773.13,-196.92"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <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_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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7" class="node">
+<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_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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <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_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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~tides_getacch_pl.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_getacch_pl.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~tides_getacch_pl.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -608,8 +662,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-48"></a>            <span class="n">Ftr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">3</span> <span class="o">/</span> <span class="n">rmag</span><span class="o">**</span><span class="mi">7</span> <span class="o">*</span> <span class="p">(</span><span class="n">r5cbterm</span> <span class="o">+</span> <span class="n">r5plterm</span><span class="p">)</span> <span class="o">-</span> <span class="mi">3</span> <span class="o">*</span> <span class="n">vmag</span> <span class="o">/</span> <span class="n">rmag</span> <span class="o">*</span> <span class="p">(</span><span class="n">Ptocb</span> <span class="o">+</span> <span class="n">Ptopl</span><span class="p">)</span>
 <a name="ln-49"></a>
 <a name="ln-50"></a>            <span class="n">F_T</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">Ftr</span> <span class="o">+</span> <span class="p">(</span><span class="n">Ptocb</span> <span class="o">+</span> <span class="n">Ptopl</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v_unit</span><span class="p">,</span> <span class="n">r_unit</span><span class="p">)</span> <span class="o">/</span> <span class="n">rmag</span><span class="p">)</span> <span class="o">*</span> <span class="n">r_unit</span><span class="p">(:)</span>  <span class="p">&amp;</span>
-<a name="ln-51"></a>                      <span class="o">+</span> <span class="n">Ptopl</span> <span class="o">*</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="o">-</span> <span class="n">theta_dot</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">r_unit</span><span class="p">(:)</span>  <span class="p">&amp;</span>
-<a name="ln-52"></a>                      <span class="o">+</span> <span class="n">Ptocb</span> <span class="o">*</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="o">-</span> <span class="n">theta_dot</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">r_unit</span><span class="p">(:)</span>
+<a name="ln-51"></a>                      <span class="o">+</span> <span class="n">Ptopl</span> <span class="o">*</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="o">-</span> <span class="n">theta_dot</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">r_unit</span><span class="p">(:))</span>  <span class="p">&amp;</span>
+<a name="ln-52"></a>                      <span class="o">+</span> <span class="n">Ptocb</span> <span class="o">*</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="o">-</span> <span class="n">theta_dot</span><span class="p">(:))</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">r_unit</span><span class="p">(:))</span>
 <a name="ln-53"></a>            <span class="n">cb</span><span class="p">%</span><span class="n">atide</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">atide</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">F_T</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
 <a name="ln-54"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">F_T</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> 
 <a name="ln-55"></a>         <span class="k">end do </span>
diff --git a/docs/sourcefile/tides_spin_step.f90.html b/docs/sourcefile/tides_spin_step.f90.html
index db2ab2cc7..dfc82b9ee 100644
--- a/docs/sourcefile/tides_spin_step.f90.html
+++ b/docs/sourcefile/tides_spin_step.f90.html
@@ -134,7 +134,7 @@ <h1>tides_spin_step.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for source files.">92 statements</a>
+    title=" 0.6% of total for source files.">92 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefiletides_spin_stepf90EfferentGraph" width="641pt" height="286pt"
+ viewBox="0.00 0.00 641.00 285.89" 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 412.12)">
 <title>sourcefile~~tides_spin_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 922,-301.25 922,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 929,-412.12 929,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,-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>
+<polygon fill="none" stroke="black" points="925,-133.12 820,-133.12 820,-109.12 925,-109.12 925,-133.12"/>
+<text text-anchor="middle" x="872.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M849.46,-109.09C807.67,-87.43 713.47,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M856.37,-133.4C835.8,-150.09 798.86,-180.08 774.9,-199.53"/>
+<polygon fill="#000000" stroke="#000000" points="772.57,-196.91 767.01,-205.93 776.98,-202.35 772.57,-196.91"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <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_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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node7" class="node">
+<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_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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <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_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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~tides_spin_step.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_spin_step.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~tides_spin_step.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_spin_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,-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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~tides_spin_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="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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/user_getacch.f90.html b/docs/sourcefile/user_getacch.f90.html
index 22bc0e126..8c550bfb7 100644
--- a/docs/sourcefile/user_getacch.f90.html
+++ b/docs/sourcefile/user_getacch.f90.html
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileuser_getacchf90EfferentGraph" width="641pt" height="289pt"
+ viewBox="0.00 0.00 641.00 288.98" 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.69 0.69) rotate(0) translate(4 412.12)">
 <title>sourcefile~~user_getacch.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 912,-301.25 912,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 919,-412.12 919,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,-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>
+<polygon fill="none" stroke="black" points="915,-133.12 820,-133.12 820,-109.12 915,-109.12 915,-133.12"/>
+<text text-anchor="middle" x="867.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.95,-109.09C804.07,-87.43 711.88,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M852,-133.4C832.38,-150.02 797.21,-179.82 774.24,-199.27"/>
+<polygon fill="#000000" stroke="#000000" points="771.75,-196.8 766.38,-205.93 776.28,-202.14 771.75,-196.8"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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~~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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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~~user_getacch.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~user_getacch.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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~~user_getacch.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~user_getacch.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~user_getacch.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_append.f90.html b/docs/sourcefile/util_append.f90.html
index a48b92ccf..ca53fbc11 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.2% of total for source files.">161 statements</a>
+    title=" 1.3% of total for source files.">215 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_appendf90EfferentGraph" width="641pt" height="292pt"
+ viewBox="0.00 0.00 641.00 291.83" 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.7 0.7) rotate(0) translate(4 412.12)">
 <title>sourcefile~~util_append.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 903,-301.25 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 910,-412.12 910,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,-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>
+<polygon fill="none" stroke="black" points="906,-133.12 820,-133.12 820,-109.12 906,-109.12 906,-133.12"/>
+<text text-anchor="middle" x="863" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.88,-109.09C800.82,-87.43 710.46,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M848.07,-133.4C829.22,-150.02 795.43,-179.82 773.37,-199.27"/>
+<polygon fill="#000000" stroke="#000000" points="771,-196.69 765.82,-205.93 775.63,-201.94 771,-196.69"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_append.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_append.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_append.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_append.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_append.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -572,235 +626,318 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">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-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">nnew</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-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">source</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-19"></a>
+<a name="ln-20"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-21"></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-22"></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">nnew</span><span class="p">))</span>
+<a name="ln-23"></a>      <span class="k">else</span>
+<a name="ln-24"></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">nnew</span><span class="p">)</span>
+<a name="ln-25"></a>      <span class="k">end if</span>
+<a name="ln-26"></a>
+<a name="ln-27"></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">nnew</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-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><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-29"></a>      <span class="k">return</span>
+<a name="ln-30"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_char_string</span>
+<a name="ln-31"></a>
+<a name="ln-32"></a>
+<a name="ln-33"></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-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">!! 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-37"></a>      <span class="k">implicit none</span>
+<a name="ln-38"></a>      <span class="c">! Arguments</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="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-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="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-41"></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-42"></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-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">nnew</span>
+<a name="ln-45"></a>
+<a name="ln-46"></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-47"></a>
+<a name="ln-48"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-49"></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-50"></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">nnew</span><span class="p">))</span>
+<a name="ln-51"></a>      <span class="k">else</span>
+<a name="ln-52"></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">nnew</span><span class="p">)</span>
+<a name="ln-53"></a>      <span class="k">end if</span>
 <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-55"></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">nnew</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-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">util_append_arr_DP</span>
+<a name="ln-59"></a>
+<a name="ln-60"></a>
+<a name="ln-61"></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-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">!! 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-65"></a>      <span class="k">implicit none</span>
+<a name="ln-66"></a>      <span class="c">! Arguments</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="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-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="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-69"></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-70"></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-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">nnew</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>   <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">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">return</span>
-<a name="ln-104"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_I4B</span>
+<a name="ln-74"></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-75"></a>
+<a name="ln-76"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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>      <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-78"></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">nnew</span><span class="p">))</span>
+<a name="ln-79"></a>      <span class="k">else</span>
+<a name="ln-80"></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">nnew</span><span class="p">)</span>
+<a name="ln-81"></a>      <span class="k">end if</span>
+<a name="ln-82"></a>
+<a name="ln-83"></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">nnew</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-84"></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">nnew</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-85"></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">nnew</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-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">util_append_arr_DPvec</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">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-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">!! 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-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="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-98"></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-99"></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-100"></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-101"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">nnew</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="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</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-106"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-107"></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-108"></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">nnew</span><span class="p">))</span>
+<a name="ln-109"></a>      <span class="k">else</span>
+<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">nold</span> <span class="o">+</span> <span class="n">nnew</span><span class="p">)</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">      </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">nnew</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-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">util_append_arr_I4B</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">      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-118"></a>
+<a name="ln-119"></a>   <span class="k">module subroutine </span><span class="n">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-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 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>
+<a name="ln-123"></a>      <span class="k">implicit none</span>
+<a name="ln-124"></a>      <span class="c">! Arguments</span>
+<a name="ln-125"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-126"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-127"></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-128"></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-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="kd">::</span> <span class="n">nnew</span><span class="p">,</span> <span class="n">i</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="kd">::</span> <span class="n">idx</span>
+<a name="ln-132"></a>
+<a name="ln-133"></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-134"></a>
+<a name="ln-135"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-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">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-137"></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">nnew</span><span class="p">))</span>
+<a name="ln-138"></a>      <span class="k">else</span>
+<a name="ln-139"></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">nnew</span><span class="p">)</span>
+<a name="ln-140"></a>      <span class="k">end if</span>
+<a name="ln-141"></a>
+<a name="ln-142"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">idx</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="n">idx</span> <span class="o">=</span> <span class="nb">pack</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">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-145"></a>
+<a name="ln-146"></a>      <span class="k">call </span><span class="n">util_copy_particle_info_arr</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">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">nnew</span><span class="p">),</span> <span class="n">idx</span><span class="p">)</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">util_append_arr_info</span>
+<a name="ln-150"></a>
+<a name="ln-151"></a>
+<a name="ln-152"></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-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">!! 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-156"></a>      <span class="k">implicit none</span>
+<a name="ln-157"></a>      <span class="c">! Arguments</span>
+<a name="ln-158"></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-159"></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-160"></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-161"></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-162"></a>      <span class="c">! Internals</span>
+<a name="ln-163"></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">nnew</span>
+<a name="ln-164"></a>
+<a name="ln-165"></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-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>
-<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">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><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>
+<a name="ln-167"></a><span class="k">      </span><span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-168"></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-169"></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">nnew</span><span class="p">))</span>
+<a name="ln-170"></a>      <span class="k">else</span>
+<a name="ln-171"></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">nnew</span><span class="p">)</span>
+<a name="ln-172"></a>      <span class="k">end if</span>
+<a name="ln-173"></a>
+<a name="ln-174"></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">nnew</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-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">util_append_arr_logical</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">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-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">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-184"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</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">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-188"></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-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">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-190"></a>      <span class="c">! Internals</span>
+<a name="ln-191"></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><span class="p">,</span> <span class="n">nnew</span>
+<a name="ln-192"></a>
+<a name="ln-193"></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-194"></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-195"></a>      <span class="n">nnew</span> <span class="o">=</span> <span class="nb">count</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-196"></a>
+<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">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-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">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-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">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-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">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-201"></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-202"></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-203"></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-204"></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-205"></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-206"></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-207"></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-208"></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-209"></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-210"></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-211"></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-212"></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-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">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-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">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-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">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-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">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-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">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-218"></a>
+<a name="ln-219"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nnew</span>
+<a name="ln-220"></a>
+<a name="ln-221"></a>      <span class="k">return</span>
+<a name="ln-222"></a><span class="k">   end subroutine </span><span class="n">util_append_body</span>
+<a name="ln-223"></a>
+<a name="ln-224"></a>
+<a name="ln-225"></a>   <span class="k">module subroutine </span><span class="n">util_append_encounter</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-226"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-227"></a>      <span class="c">!!</span>
+<a name="ln-228"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-229"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</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="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 object</span>
+<a name="ln-233"></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 append</span>
+<a name="ln-234"></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-235"></a>      <span class="c">! Internals</span>
+<a name="ln-236"></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-237"></a>
+<a name="ln-238"></a>      <span class="n">nold</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-239"></a>      <span class="n">nsrc</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-240"></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">lvdotr</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lvdotr</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-241"></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-242"></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">index1</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">index1</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-243"></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">index2</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">index2</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-244"></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">id1</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">id1</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-245"></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">id2</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">id2</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-246"></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">x1</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">x1</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-247"></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">x2</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">x2</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-248"></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">v1</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">v1</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-249"></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">v2</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">v2</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-250"></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">t</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">t</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-251"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">nold</span> <span class="o">+</span> <span class="nb">count</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-252"></a>
+<a name="ln-253"></a>      <span class="k">return</span>
+<a name="ln-254"></a><span class="k">   end subroutine </span><span class="n">util_append_encounter</span>
+<a name="ln-255"></a>
+<a name="ln-256"></a>
+<a name="ln-257"></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-258"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-259"></a>      <span class="c">!!</span>
+<a name="ln-260"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-261"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</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">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-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">source</span>       <span class="c">!! Source object to append</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">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-267"></a>
+<a name="ln-268"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-269"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-270"></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-271"></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-272"></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-273"></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-274"></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-275"></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-276"></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-277"></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-278"></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-279"></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-280"></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-281"></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-282"></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-283"></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-284"></a>
+<a name="ln-285"></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">k_plpl</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">k_plpl</span><span class="p">)</span>
+<a name="ln-286"></a>
+<a name="ln-287"></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-288"></a>         <span class="k">end associate</span>
+<a name="ln-289"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-290"></a>         <span class="k">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-291"></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-292"></a>      <span class="k">end select</span>
+<a name="ln-293"></a><span class="k">   </span>
+<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_append_pl</span>
+<a name="ln-296"></a>
+<a name="ln-297"></a>
+<a name="ln-298"></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-299"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-300"></a>      <span class="c">!!</span>
+<a name="ln-301"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-302"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-303"></a>      <span class="k">implicit none</span>
+<a name="ln-304"></a>      <span class="c">! Arguments</span>
+<a name="ln-305"></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-306"></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-307"></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-308"></a>
+<a name="ln-309"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-310"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-311"></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-312"></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-313"></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-314"></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-315"></a>
+<a name="ln-316"></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-317"></a>         <span class="k">end associate</span>
+<a name="ln-318"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-319"></a>         <span class="k">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-320"></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-321"></a>      <span class="k">end select</span>
+<a name="ln-322"></a>
+<a name="ln-323"></a><span class="k">      return</span>
+<a name="ln-324"></a><span class="k">   end subroutine </span><span class="n">util_append_tp</span>
+<a name="ln-325"></a>
+<a name="ln-326"></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 72c555cce..8d4ed3ae4 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.">74 statements</a>
+    title=" 1.0% of total for source files.">169 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_coordf90EfferentGraph" width="641pt" height="295pt"
+ viewBox="0.00 0.00 641.00 294.73" 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 412.12)">
 <title>sourcefile~~util_coord.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 894,-301.25 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 901,-412.12 901,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,-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>
+<polygon fill="none" stroke="black" points="897,-133.12 820,-133.12 820,-109.12 897,-109.12 897,-133.12"/>
+<text text-anchor="middle" x="858.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M836.82,-109.09C797.58,-87.43 709.03,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.14,-133.4C826.14,-149.95 793.94,-179.55 772.77,-199.02"/>
+<polygon fill="#000000" stroke="#000000" points="770.25,-196.59 765.25,-205.93 774.98,-201.74 770.25,-196.59"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_coord.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_coord.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_coord.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_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,-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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_coord.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -605,7 +659,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">!! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</span>
+<a name="ln-48"></a>      <span class="c">!! Convert test particles 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>
@@ -680,8 +734,177 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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>
+<a name="ln-123"></a>
+<a name="ln-124"></a>
+<a name="ln-125"></a>   <span class="k">module subroutine </span><span class="n">util_coord_vb2vh_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-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">!! Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</span>
+<a name="ln-129"></a>      <span class="c">!!</span>
+<a name="ln-130"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vb2vh.f90 </span>
+<a name="ln-131"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vb2vh.f </span>
+<a name="ln-132"></a>      <span class="k">implicit none</span>
+<a name="ln-133"></a>      <span class="c">! Arguments</span>
+<a name="ln-134"></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-135"></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-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="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-140"></a>
+<a name="ln-141"></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-142"></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-143"></a>            <span class="n">cb</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="o">-</span><span class="nb">sum</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">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="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">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-144"></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="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="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">cb</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-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">util_coord_vb2vh_pl</span>
+<a name="ln-150"></a>
+<a name="ln-151"></a>
+<a name="ln-152"></a>   <span class="k">module subroutine </span><span class="n">util_coord_vb2vh_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</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">!! Convert test particles from barycentric to heliocentric coordinates (velocity only)</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 coord_vb2vh_tp.f90 </span>
+<a name="ln-158"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vb2h_tp.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">self</span> <span class="c">!! Swiftest test particle object</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">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">vbcb</span> <span class="c">!! Barycentric velocity of the central body</span>
+<a name="ln-163"></a>
+<a name="ln-164"></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-165"></a>
+<a name="ln-166"></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-167"></a>         <span class="k">where</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-168"></a>            <span class="n">tp</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">ntp</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="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-169"></a>            <span class="n">tp</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">ntp</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="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-170"></a>            <span class="n">tp</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">ntp</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="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-171"></a>         <span class="k">end where</span>
+<a name="ln-172"></a><span class="k">      end associate</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">util_coord_vb2vh_tp</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">util_coord_vh2vb_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-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">!! Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</span>
+<a name="ln-182"></a>      <span class="c">!!</span>
+<a name="ln-183"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vh2vb.f90 </span>
+<a name="ln-184"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vh2b.f </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">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-188"></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-189"></a>      <span class="c">! Internals</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">i</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="kd">::</span> <span class="n">Gmtot</span>
+<a name="ln-192"></a>
+<a name="ln-193"></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-194"></a>
+<a name="ln-195"></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-196"></a>         <span class="n">Gmtot</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="nb">sum</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">npl</span><span class="p">))</span>
+<a name="ln-197"></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-198"></a>            <span class="n">cb</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="o">-</span><span class="nb">sum</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">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="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">Gmtot</span>
+<a name="ln-199"></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="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="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">cb</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-200"></a>         <span class="k">end do</span>
+<a name="ln-201"></a><span class="k">      end associate</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">util_coord_vh2vb_pl</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">util_coord_vh2vb_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">vbcb</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">!! Convert test particles from heliocentric to barycentric coordinates (velocity only)</span>
+<a name="ln-211"></a>      <span class="c">!!</span>
+<a name="ln-212"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_vh2vb_tp.f90</span>
+<a name="ln-213"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_vh2b_tp.f </span>
+<a name="ln-214"></a>      <span class="k">implicit none</span>
+<a name="ln-215"></a>      <span class="c">! Arguments</span>
+<a name="ln-216"></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-217"></a>      <span class="kt">real</span><span 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">vbcb</span> <span class="c">!! Barycentric velocity of the central body</span>
+<a name="ln-218"></a>
+<a name="ln-219"></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-220"></a>
+<a name="ln-221"></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-222"></a>         <span class="k">where</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-223"></a>            <span class="n">tp</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="mi">1</span><span class="p">:</span><span class="n">ntp</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="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-224"></a>            <span class="n">tp</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="mi">1</span><span class="p">:</span><span class="n">ntp</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="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-225"></a>            <span class="n">tp</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="mi">1</span><span class="p">:</span><span class="n">ntp</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="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-226"></a>         <span class="k">end where</span>
+<a name="ln-227"></a><span class="k">      end associate</span>
+<a name="ln-228"></a>
+<a name="ln-229"></a><span class="k">      return</span>
+<a name="ln-230"></a><span class="k">   end subroutine </span><span class="n">util_coord_vh2vb_tp</span>
+<a name="ln-231"></a>   
+<a name="ln-232"></a>
+<a name="ln-233"></a>   <span class="k">module subroutine </span><span class="n">util_coord_xh2xb_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-234"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-235"></a>      <span class="c">!!</span>
+<a name="ln-236"></a>      <span class="c">!! Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only)</span>
+<a name="ln-237"></a>      <span class="c">!!</span>
+<a name="ln-238"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_h2b.f90 </span>
+<a name="ln-239"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_h2b.f </span>
+<a name="ln-240"></a>      <span class="k">implicit none</span>
+<a name="ln-241"></a>      <span class="c">! Arguments</span>
+<a name="ln-242"></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-243"></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-244"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</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="kd">::</span> <span class="n">Gmtot</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="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xtmp</span>
+<a name="ln-248"></a>
+<a name="ln-249"></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-250"></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-251"></a>         <span class="n">Gmtot</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-252"></a>         <span class="n">xtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-253"></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-254"></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-255"></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-256"></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-257"></a>         <span class="k">end do</span>
+<a name="ln-258"></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-259"></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-260"></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-261"></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-262"></a>         <span class="k">end do</span>
+<a name="ln-263"></a><span class="k">      end associate</span>
+<a name="ln-264"></a>
+<a name="ln-265"></a><span class="k">      return</span>
+<a name="ln-266"></a><span class="k">   end subroutine </span><span class="n">util_coord_xh2xb_pl</span>
+<a name="ln-267"></a>
+<a name="ln-268"></a>
+<a name="ln-269"></a>   <span class="k">module subroutine </span><span class="n">util_coord_xh2xb_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-270"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-271"></a>      <span class="c">!!</span>
+<a name="ln-272"></a>      <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (position only)</span>
+<a name="ln-273"></a>      <span class="c">!!</span>
+<a name="ln-274"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_h2b_tp.f90 </span>
+<a name="ln-275"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_h2b_tp.f </span>
+<a name="ln-276"></a>      <span class="k">implicit none</span>
+<a name="ln-277"></a>      <span class="c">! Arguments</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">intent</span><span 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-279"></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-280"></a>      <span class="c">! Internals</span>
+<a name="ln-281"></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-282"></a>
+<a name="ln-283"></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-284"></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-285"></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-286"></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-287"></a>         <span class="k">end do</span>
+<a name="ln-288"></a><span class="k">      end associate</span>
+<a name="ln-289"></a>
+<a name="ln-290"></a><span class="k">      return</span>
+<a name="ln-291"></a><span class="k">   end subroutine </span><span class="n">util_coord_xh2xb_tp</span>
+<a name="ln-292"></a>
+<a name="ln-293"></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 d2d6469ff..01e62e055 100644
--- a/docs/sourcefile/util_copy.f90.html
+++ b/docs/sourcefile/util_copy.f90.html
@@ -134,7 +134,7 @@ <h1>util_copy.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.">21 statements</a>
+    title=" 0.4% of total for source files.">60 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_copyf90EfferentGraph" width="641pt" height="297pt"
+ viewBox="0.00 0.00 641.00 296.70" 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.71 0.71) rotate(0) translate(4 412.12)">
 <title>sourcefile~~util_copy.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 888,-301.25 888,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 895,-412.12 895,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,-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>
+<polygon fill="none" stroke="black" points="891,-133.12 820,-133.12 820,-109.12 891,-109.12 891,-133.12"/>
+<text text-anchor="middle" x="855.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.11,-109.09C795.42,-87.43 708.09,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.52,-133.4C824.04,-149.95 792.75,-179.55 772.18,-199.02"/>
+<polygon fill="#000000" stroke="#000000" points="769.73,-196.52 764.88,-205.93 774.55,-201.6 769.73,-196.52"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_copy.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_copy.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_copy.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_copy.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_copy.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -562,31 +616,103 @@ <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_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-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">!! Copies elements from the source encounter list into self.</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="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-12"></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-5"></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-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">!! Copies elements from the source encounter list into self.</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="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-12"></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-13"></a>
-<a name="ln-14"></a>   <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
-<a name="ln-15"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">n</span>
-<a name="ln-16"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">lvdotr</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-17"></a>      <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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</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">n</span><span class="p">)</span> 
-<a name="ln-18"></a>      <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">index1</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-19"></a>      <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">index2</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-20"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">x1</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-21"></a>      <span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">x2</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-22"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">v1</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-23"></a>      <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">v2</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-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">util_copy_encounter</span>
-<a name="ln-28"></a>
-<a name="ln-29"></a><span class="k">end submodule </span><span class="n">s_util_copy</span>
+<a name="ln-14"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nenc</span><span class="p">)</span>
+<a name="ln-15"></a>         <span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">n</span>
+<a name="ln-16"></a>         <span class="n">self</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">lvdotr</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-17"></a>         <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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</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">n</span><span class="p">)</span> 
+<a name="ln-18"></a>         <span class="n">self</span><span class="p">%</span><span class="n">kidx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">kidx</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-19"></a>         <span class="n">self</span><span class="p">%</span><span class="n">index1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">index1</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-20"></a>         <span class="n">self</span><span class="p">%</span><span class="n">index2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">index2</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-21"></a>         <span class="n">self</span><span class="p">%</span><span class="n">id1</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">id1</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-22"></a>         <span class="n">self</span><span class="p">%</span><span class="n">id2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">id2</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-23"></a>         <span class="n">self</span><span class="p">%</span><span class="n">x1</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">x1</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-24"></a>         <span class="n">self</span><span class="p">%</span><span class="n">x2</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">x2</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-25"></a>         <span class="n">self</span><span class="p">%</span><span class="n">v1</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">v1</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-26"></a>         <span class="n">self</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">v2</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-27"></a>         <span class="n">self</span><span class="p">%</span><span class="n">t</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">t</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-28"></a>      <span class="k">end associate</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">util_copy_encounter</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>
+<a name="ln-34"></a>   <span class="k">module subroutine </span><span class="n">util_copy_particle_info</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-35"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-36"></a>      <span class="c">!!</span>
+<a name="ln-37"></a>      <span class="c">!! Copies one set of information object components into another, component-by-component</span>
+<a name="ln-38"></a>      <span class="k">implicit none</span>
+<a name="ln-39"></a><span class="k">      class</span><span class="p">(</span><span class="n">swiftest_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>
+<a name="ln-40"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_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">source</span>
+<a name="ln-41"></a>
+<a name="ln-42"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">set_value</span><span class="p">(&amp;</span>
+<a name="ln-43"></a>         <span class="n">name</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-44"></a>         <span class="n">particle_type</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">particle_type</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-45"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="p">&amp;</span> 
+<a name="ln-46"></a>         <span class="n">origin_type</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">origin_type</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-47"></a>         <span class="n">origin_time</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">origin_time</span><span class="p">,</span> <span class="p">&amp;</span> 
+<a name="ln-48"></a>         <span class="n">origin_xh</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">origin_xh</span><span class="p">(:),</span> <span class="p">&amp;</span>
+<a name="ln-49"></a>         <span class="n">origin_vh</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">origin_vh</span><span class="p">(:),</span> <span class="p">&amp;</span>
+<a name="ln-50"></a>         <span class="n">discard_time</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">discard_time</span><span class="p">,</span> <span class="p">&amp;</span> 
+<a name="ln-51"></a>         <span class="n">discard_xh</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">discard_xh</span><span class="p">(:),</span> <span class="p">&amp;</span>
+<a name="ln-52"></a>         <span class="n">discard_vh</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">discard_vh</span><span class="p">(:),</span> <span class="p">&amp;</span>
+<a name="ln-53"></a>         <span class="n">discard_body_id</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">discard_body_id</span> <span class="p">&amp;</span>
+<a name="ln-54"></a>      <span class="p">)</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a>      <span class="k">return</span>
+<a name="ln-57"></a><span class="k">   end subroutine </span><span class="n">util_copy_particle_info</span>
+<a name="ln-58"></a>
+<a name="ln-59"></a>
+<a name="ln-60"></a>   <span class="k">module subroutine </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</span><span class="n">source</span><span class="p">,</span> <span class="n">dest</span><span class="p">,</span> <span class="n">idx</span><span class="p">)</span>
+<a name="ln-61"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-62"></a>      <span class="c">!!</span>
+<a name="ln-63"></a>      <span class="c">!! Copies contents from an array of one particle information objects to another.</span>
+<a name="ln-64"></a>      <span class="k">implicit none</span>
+<a name="ln-65"></a><span class="k">      class</span><span class="p">(</span><span class="n">swiftest_particle_info</span><span 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">source</span> <span class="c">!! Source object to copy into</span>
+<a name="ln-66"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_particle_info</span><span 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">dest</span>   <span class="c">!! Swiftest body object with particle metadata information object</span>
+<a name="ln-67"></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="k">optional</span> <span class="kd">::</span> <span class="n">idx</span>    <span class="c">!! Optional array of indices to draw the source object</span>
+<a name="ln-68"></a>      <span class="c">! Internals</span>
+<a name="ln-69"></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">n</span><span class="p">,</span> <span class="n">nsource</span><span class="p">,</span> <span class="n">ndest</span>
+<a name="ln-70"></a>
+<a name="ln-71"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">source</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-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">idx</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-74"></a><span class="k">         </span><span class="n">n</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">idx</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">n</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-77"></a>      <span class="k">end if</span>
+<a name="ln-78"></a>
+<a name="ln-79"></a><span class="k">      </span><span class="n">nsource</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-80"></a>      <span class="n">ndest</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">dest</span><span class="p">)</span>
+<a name="ln-81"></a>
+<a name="ln-82"></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="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">n</span> <span class="o">&gt;</span> <span class="n">ndest</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">n</span> <span class="o">&gt;</span> <span class="n">nsource</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-83"></a><span class="k">         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 info copy operation failed. n, nsource, ndest: &#39;</span><span class="p">,</span><span class="n">n</span><span class="p">,</span> <span class="n">nsource</span><span class="p">,</span> <span class="n">ndest</span>
+<a name="ln-84"></a>         <span class="k">return</span>
+<a name="ln-85"></a><span class="k">      end if</span>
+<a name="ln-86"></a>
+<a name="ln-87"></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">n</span>
+<a name="ln-88"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">idx</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-89"></a><span class="k">            </span><span class="n">j</span> <span class="o">=</span> <span class="n">idx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-90"></a>         <span class="k">else</span>
+<a name="ln-91"></a><span class="k">            </span><span class="n">j</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-92"></a>         <span class="k">end if </span>
+<a name="ln-93"></a><span class="k">         call </span><span class="n">dest</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">copy</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-94"></a>      <span class="k">end do</span>
+<a name="ln-95"></a><span class="k">      </span>
+<a name="ln-96"></a><span class="k">      return</span>
+<a name="ln-97"></a><span class="k">   end subroutine </span><span class="n">util_copy_particle_info_arr</span>
+<a name="ln-98"></a>
+<a name="ln-99"></a>
+<a name="ln-100"></a>
+<a name="ln-101"></a><span class="k">end submodule </span><span class="n">s_util_copy</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_exit.f90.html b/docs/sourcefile/util_exit.f90.html
index d0beba859..367afe841 100644
--- a/docs/sourcefile/util_exit.f90.html
+++ b/docs/sourcefile/util_exit.f90.html
@@ -134,7 +134,7 @@ <h1>util_exit.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.">23 statements</a>
+    title=" 0.1% of total for source files.">23 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_exitf90EfferentGraph" width="641pt" height="298pt"
+ viewBox="0.00 0.00 641.00 298.02" 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 412.12)">
 <title>sourcefile~~util_exit.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 884,-301.25 884,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 891,-412.12 891,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,-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>
+<polygon fill="none" stroke="black" points="887,-133.12 820,-133.12 820,-109.12 887,-109.12 887,-133.12"/>
+<text text-anchor="middle" x="853.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M832.3,-109.09C793.98,-87.43 707.45,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M839.77,-133.4C822.71,-149.87 792.22,-179.29 772.06,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="769.39,-196.47 764.63,-205.93 774.25,-201.51 769.39,-196.47"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_exit.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_exit.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_exit.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_exit.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_exit.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_fill.f90.html b/docs/sourcefile/util_fill.f90.html
index 39daa9b2c..a96c46cab 100644
--- a/docs/sourcefile/util_fill.f90.html
+++ b/docs/sourcefile/util_fill.f90.html
@@ -134,7 +134,7 @@ <h1>util_fill.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.0% of total for source files.">134 statements</a>
+    title=" 0.9% of total for source files.">150 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_fillf90EfferentGraph" width="641pt" height="300pt"
+ viewBox="0.00 0.00 641.00 300.37" 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.72 0.72) rotate(0) translate(4 412.12)">
 <title>sourcefile~~util_fill.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 877,-301.25 877,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 884,-412.12 884,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,-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>
+<polygon fill="none" stroke="black" points="880,-133.12 820,-133.12 820,-109.12 880,-109.12 880,-133.12"/>
+<text text-anchor="middle" x="850" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.14,-109.09C791.46,-87.43 706.35,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M836.71,-133.4C820.24,-149.87 790.82,-179.29 771.36,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="768.78,-196.39 764.19,-205.93 773.73,-201.34 768.78,-196.39"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_fill.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_fill.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_fill.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_fill.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_fill.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -642,141 +696,172 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-82"></a>      <span class="k">return</span>
 <a name="ln-83"></a><span class="k">   end subroutine </span><span class="n">util_fill_arr_I4B</span>
 <a name="ln-84"></a>
-<a name="ln-85"></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-86"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-87"></a>      <span class="c">!!</span>
-<a name="ln-88"></a>      <span class="c">!! Performs a fill operation on a single array of logicals</span>
-<a name="ln-89"></a>      <span class="c">!! This is the inverse of a spill operation</span>
-<a name="ln-90"></a>      <span class="k">implicit none</span>
-<a name="ln-91"></a>      <span class="c">! Arguments</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">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-93"></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-94"></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-95"></a>
-<a name="ln-96"></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-97"></a>
-<a name="ln-98"></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-99"></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-100"></a>
-<a name="ln-101"></a>      <span class="k">return</span>
-<a name="ln-102"></a><span class="k">   end subroutine </span><span class="n">util_fill_arr_logical</span>
-<a name="ln-103"></a>
+<a name="ln-85"></a>
+<a name="ln-86"></a>   <span class="k">module subroutine </span><span class="n">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-87"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-88"></a>      <span class="c">!!</span>
+<a name="ln-89"></a>      <span class="c">!! Performs a fill operation on a single array of particle origin information types</span>
+<a name="ln-90"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-91"></a>      <span class="k">implicit none</span>
+<a name="ln-92"></a>      <span class="c">! Arguments</span>
+<a name="ln-93"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-94"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-95"></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-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="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">insert_idx</span>
+<a name="ln-98"></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">nkeep</span><span class="p">,</span> <span class="n">ninsert</span>
+<a name="ln-99"></a>
+<a name="ln-100"></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-101"></a>
+<a name="ln-102"></a><span class="k">      </span><span class="n">nkeep</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-103"></a>      <span class="n">ninsert</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-104"></a>
-<a name="ln-105"></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-106"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-107"></a>      <span class="c">!!</span>
-<a name="ln-108"></a>      <span class="c">!! Insert new Swiftest generic particle structure into an old one. </span>
-<a name="ln-109"></a>      <span class="c">!! This is the inverse of a spill operation.</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="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-113"></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-114"></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-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="kd">::</span> <span class="n">i</span>
-<a name="ln-117"></a>
-<a name="ln-118"></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-119"></a>      <span class="c">!&gt; Fill all the common components</span>
-<a name="ln-120"></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-121"></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">id</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">lfill_list</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">name</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">name</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">status</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">status</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">ldiscard</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-125"></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">lmask</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-126"></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">mu</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-127"></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">xh</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-128"></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">vh</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-129"></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">xb</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-130"></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">vb</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-131"></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">ah</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-132"></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">aobl</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-133"></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">agr</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-134"></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">atide</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-135"></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">a</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-136"></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">e</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-137"></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">inc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-138"></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">capom</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-139"></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">omega</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-140"></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">capm</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-141"></a>           
-<a name="ln-142"></a>         <span class="c">! This is the base class, so will be the last to be called in the cascade. </span>
-<a name="ln-143"></a>         <span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">id</span><span class="p">(:))</span>
-<a name="ln-144"></a>      <span class="k">end associate</span>
-<a name="ln-145"></a><span class="k">     </span>
-<a name="ln-146"></a><span class="k">      return</span>
-<a name="ln-147"></a><span class="k">   end subroutine </span><span class="n">util_fill_body</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">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-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">!! Insert new Swiftest massive body structure into an old one. </span>
-<a name="ln-154"></a>      <span class="c">!! This is the inverse of a spill operation.</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">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-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">inserts</span>    <span class="c">!! Swiftest body object to be inserted</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">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-160"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span>
-<a name="ln-162"></a>
-<a name="ln-163"></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-164"></a>
-<a name="ln-165"></a>      <span class="k">select type</span> <span class="p">(</span><span class="n">inserts</span><span class="p">)</span> <span class="c">! The standard requires us to select the type of both arguments in order to access all the components</span>
-<a name="ln-166"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
-<a name="ln-167"></a>            <span class="c">!&gt; Fill components specific to the massive body class</span>
-<a name="ln-168"></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">mass</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-169"></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">Gmass</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-170"></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">rhill</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-171"></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">radius</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-172"></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">density</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-173"></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">k2</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-174"></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">Q</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-175"></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">tlag</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-176"></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">xbeg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-177"></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">vbeg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-178"></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">Ip</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-179"></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">rot</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-180"></a>            
-<a name="ln-181"></a>            <span class="k">call </span><span class="n">util_fill_body</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-182"></a>         <span class="k">class </span><span class="n">default</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="s1">&#39;Error! fill method called for incompatible return type on swiftest_pl&#39;</span>
-<a name="ln-184"></a>         <span class="k">end select</span>
-<a name="ln-185"></a><span class="k">      end associate</span>
-<a name="ln-186"></a>
-<a name="ln-187"></a><span class="k">      return</span>
-<a name="ln-188"></a><span class="k">   end subroutine </span><span class="n">util_fill_pl</span>
-<a name="ln-189"></a>
-<a name="ln-190"></a>
-<a name="ln-191"></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-192"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-193"></a>      <span class="c">!!</span>
-<a name="ln-194"></a>      <span class="c">!! Insert new Swiftest test particle structure into an old one. </span>
-<a name="ln-195"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
-<a name="ln-196"></a>      <span class="k">implicit none</span>
-<a name="ln-197"></a>      <span class="c">! Arguments</span>
-<a name="ln-198"></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-199"></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-200"></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-201"></a>
-<a name="ln-202"></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-203"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
-<a name="ln-204"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
-<a name="ln-205"></a>            <span class="c">!&gt; Spill components specific to the test particle class</span>
-<a name="ln-206"></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-207"></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-208"></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-105"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">insert_idx</span><span class="p">(</span><span class="n">ninsert</span><span class="p">))</span>
+<a name="ln-106"></a>
+<a name="ln-107"></a>      <span class="n">insert_idx</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">nkeep</span><span class="p">)],</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-108"></a>      <span class="k">call </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</span><span class="n">inserts</span><span class="p">,</span> <span class="n">keeps</span><span class="p">,</span> <span class="n">insert_idx</span><span class="p">)</span>
+<a name="ln-109"></a>
+<a name="ln-110"></a>      <span class="k">return</span>
+<a name="ln-111"></a><span class="k">   end subroutine </span><span class="n">util_fill_arr_info</span>
+<a name="ln-112"></a>
+<a name="ln-113"></a>
+<a name="ln-114"></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-115"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-116"></a>      <span class="c">!!</span>
+<a name="ln-117"></a>      <span class="c">!! Performs a fill operation on a single array of logicals</span>
+<a name="ln-118"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-119"></a>      <span class="k">implicit none</span>
+<a name="ln-120"></a>      <span class="c">! Arguments</span>
+<a name="ln-121"></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">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-122"></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-123"></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-124"></a>
+<a name="ln-125"></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-126"></a>
+<a name="ln-127"></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-128"></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-129"></a>
+<a name="ln-130"></a>      <span class="k">return</span>
+<a name="ln-131"></a><span class="k">   end subroutine </span><span class="n">util_fill_arr_logical</span>
+<a name="ln-132"></a>
+<a name="ln-133"></a>
+<a name="ln-134"></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-135"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-136"></a>      <span class="c">!!</span>
+<a name="ln-137"></a>      <span class="c">!! Insert new Swiftest generic particle structure into an old one. </span>
+<a name="ln-138"></a>      <span class="c">!! This is the inverse of a spill operation.</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_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-142"></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-143"></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-144"></a>      <span class="c">! internals</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="kd">::</span> <span class="n">i</span>
+<a name="ln-146"></a>
+<a name="ln-147"></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-148"></a>      <span class="c">!&gt; Fill all the common components</span>
+<a name="ln-149"></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-150"></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">id</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-151"></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-152"></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">status</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-153"></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">ldiscard</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-154"></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">lmask</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-155"></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">mu</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-156"></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">xh</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-157"></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">vh</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-158"></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">xb</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-159"></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">vb</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-160"></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">ah</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-161"></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">aobl</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-162"></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">agr</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-163"></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">atide</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-164"></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">a</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-165"></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">e</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-166"></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">inc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-167"></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">capom</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-168"></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">omega</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-169"></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">capm</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-170"></a>           
+<a name="ln-171"></a>         <span class="c">! This is the base class, so will be the last to be called in the cascade. </span>
+<a name="ln-172"></a>         <span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">id</span><span class="p">(:))</span>
+<a name="ln-173"></a>      <span class="k">end associate</span>
+<a name="ln-174"></a><span class="k">     </span>
+<a name="ln-175"></a><span class="k">      return</span>
+<a name="ln-176"></a><span class="k">   end subroutine </span><span class="n">util_fill_body</span>
+<a name="ln-177"></a>
+<a name="ln-178"></a>
+<a name="ln-179"></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-180"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-181"></a>      <span class="c">!!</span>
+<a name="ln-182"></a>      <span class="c">!! Insert new Swiftest massive body structure into an old one. </span>
+<a name="ln-183"></a>      <span class="c">!! This is the inverse of a spill operation.</span>
+<a name="ln-184"></a>      <span class="k">implicit none</span>
+<a name="ln-185"></a>      <span class="c">! Arguments</span>
+<a name="ln-186"></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-187"></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-188"></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-189"></a>      <span class="c">! Internals</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">i</span>
+<a name="ln-191"></a>
+<a name="ln-192"></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-193"></a>
+<a name="ln-194"></a>      <span class="k">select type</span> <span class="p">(</span><span class="n">inserts</span><span class="p">)</span> <span class="c">! The standard requires us to select the type of both arguments in order to access all the components</span>
+<a name="ln-195"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-196"></a>            <span class="c">!&gt; Fill components specific to the massive body class</span>
+<a name="ln-197"></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">mass</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-198"></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">Gmass</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-199"></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">rhill</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-200"></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">radius</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-201"></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">density</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-202"></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">k2</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-203"></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">Q</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-204"></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">tlag</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-205"></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">xbeg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-206"></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">vbeg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-207"></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">Ip</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-208"></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">rot</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-209"></a>
-<a name="ln-210"></a>            <span class="k">call </span><span class="n">util_fill_body</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-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="s1">&#39;Error! fill method called for incompatible return type on swiftest_tp&#39;</span>
-<a name="ln-213"></a>         <span class="k">end select</span>
-<a name="ln-214"></a><span class="k">      end associate</span>
-<a name="ln-215"></a>
-<a name="ln-216"></a><span class="k">      return</span>
-<a name="ln-217"></a><span class="k">   end subroutine </span><span class="n">util_fill_tp</span>
-<a name="ln-218"></a>
-<a name="ln-219"></a><span class="k">end submodule </span><span class="n">s_util_fill</span>
+<a name="ln-210"></a>            <span class="k">if</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="n">k_plpl</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span>
+<a name="ln-211"></a>            
+<a name="ln-212"></a>            <span class="k">call </span><span class="n">util_fill_body</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-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="s1">&#39;Error! fill method called for incompatible return type on swiftest_pl&#39;</span>
+<a name="ln-215"></a>         <span class="k">end select</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">util_fill_pl</span>
+<a name="ln-220"></a>
+<a name="ln-221"></a>
+<a name="ln-222"></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-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">!! Insert new Swiftest test particle structure into an old one. </span>
+<a name="ln-226"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-227"></a>      <span class="k">implicit none</span>
+<a name="ln-228"></a>      <span class="c">! Arguments</span>
+<a name="ln-229"></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-230"></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-231"></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-232"></a>
+<a name="ln-233"></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-234"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-235"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-236"></a>            <span class="c">!&gt; Spill components specific to the test particle class</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">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-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">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-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">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-240"></a>
+<a name="ln-241"></a>            <span class="k">call </span><span class="n">util_fill_body</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-242"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-243"></a>            <span class="k">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! fill method called for incompatible return type on swiftest_tp&#39;</span>
+<a name="ln-244"></a>         <span class="k">end select</span>
+<a name="ln-245"></a><span class="k">      end associate</span>
+<a name="ln-246"></a>
+<a name="ln-247"></a><span class="k">      return</span>
+<a name="ln-248"></a><span class="k">   end subroutine </span><span class="n">util_fill_tp</span>
+<a name="ln-249"></a>
+<a name="ln-250"></a><span class="k">end submodule </span><span class="n">s_util_fill</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_get_energy_momentum.f90.html b/docs/sourcefile/util_get_energy_momentum.f90.html
index 74550a67b..34518460f 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.8% of total for source files.">101 statements</a>
+    title=" 0.6% of total for source files.">100 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_get_energy_momentumf90EfferentGraph" width="641pt" height="269pt"
+ viewBox="0.00 0.00 641.00 268.88" 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 412.12)">
 <title>sourcefile~~util_get_energy_momentum.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 981,-301.25 981,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 988,-412.12 988,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,-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>
+<polygon fill="none" stroke="black" points="984,-133.12 820,-133.12 820,-109.12 984,-109.12 984,-133.12"/>
+<text text-anchor="middle" x="902" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.12,-109.09C828.98,-87.43 722.89,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M882.43,-133.21C856.55,-150.05 809.47,-180.71 779.51,-200.21"/>
+<polygon fill="#000000" stroke="#000000" points="777.27,-197.49 770.8,-205.88 781.09,-203.35 777.27,-197.49"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <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_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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7" class="node">
+<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_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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <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_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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_get_energy_momentum.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_get_energy_momentum.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -574,51 +628,51 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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="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-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><span class="p">,</span> <span class="n">nplpl</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">real</span><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-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">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-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="k">allocatable</span> <span class="kd">::</span> <span class="n">pepl</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="k">allocatable</span> <span class="kd">::</span> <span class="n">lstatpl</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">hx</span><span class="p">,</span> <span class="n">hy</span><span class="p">,</span> <span class="n">hz</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-28"></a>         <span class="n">nplpl</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span>
+<a name="ln-29"></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-30"></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-31"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-32"></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-33"></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-34"></a>
+<a name="ln-35"></a>         <span class="n">kepl</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-36"></a>         <span class="n">Lplorbitx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-37"></a>         <span class="n">Lplorbity</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-38"></a>         <span class="n">Lplorbitz</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-39"></a>         <span class="n">Lplspinx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-40"></a>         <span class="n">Lplspiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-41"></a>         <span class="n">Lplspinz</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-42"></a>
+<a name="ln-43"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-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-45"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">GMtot</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="nb">sum</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">npl</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-46"></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-47"></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="p">(</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-48"></a>
+<a name="ln-49"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-50"></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-51"></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-52"></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-53"></a>
+<a name="ln-54"></a>            <span class="c">! Angular momentum from orbit </span>
+<a name="ln-55"></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-56"></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-57"></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-58"></a>
+<a name="ln-59"></a>            <span class="c">! Kinetic energy from orbit</span>
+<a name="ln-60"></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="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-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>
@@ -626,77 +680,79 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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>
+<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">pl</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-70"></a>               <span class="c">! Currently we assume that the rotation pole is the 3rd principal axis</span>
+<a name="ln-71"></a>               <span class="c">! Angular momentum from spin</span>
+<a name="ln-72"></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">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-73"></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">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-74"></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">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-75"></a>
+<a name="ln-76"></a>               <span class="c">! Kinetic energy from spin</span>
+<a name="ln-77"></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="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-78"></a>            <span class="k">end do</span>
+<a name="ln-79"></a><span class="k">         else</span>
+<a name="ln-80"></a><span class="k">            </span><span class="n">kespincb</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-81"></a>            <span class="n">kespinpl</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-82"></a>         <span class="k">end if</span>
+<a name="ln-83"></a>   
+<a name="ln-84"></a>         <span class="c">! Do the central body potential energy component first</span>
+<a name="ln-85"></a>         <span class="k">where</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">pl</span><span class="p">%</span><span class="n">lmask</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-86"></a>            <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="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-87"></a>         <span class="k">end where</span>
+<a name="ln-88"></a>
+<a name="ln-89"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-90"></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">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> 
+<a name="ln-91"></a>         <span class="k">end do</span>
+<a name="ln-92"></a>   
+<a name="ln-93"></a>         <span class="c">! Do the potential energy between pairs of massive bodies</span>
+<a name="ln-94"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lstatpl</span><span class="p">(</span><span class="n">nplpl</span><span class="p">))</span>
+<a name="ln-95"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pepl</span><span class="p">(</span><span class="n">nplpl</span><span class="p">))</span>
+<a name="ln-96"></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">nplpl</span><span class="p">)</span>
+<a name="ln-97"></a>            <span class="n">i</span> <span class="o">=</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>
+<a name="ln-98"></a>            <span class="n">j</span> <span class="o">=</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-99"></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">pl</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="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">pl</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-100"></a>         <span class="k">end do</span>
+<a name="ln-101"></a>
+<a name="ln-102"></a><span class="k">         where</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lstatpl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nplpl</span><span class="p">))</span> 
+<a name="ln-103"></a>            <span class="n">pepl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nplpl</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-104"></a>         <span class="k">end where</span>
+<a name="ln-105"></a>
+<a name="ln-106"></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">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-107"></a>            <span class="n">i</span> <span class="o">=</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>
+<a name="ln-108"></a>            <span class="n">j</span> <span class="o">=</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-109"></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="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="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-110"></a>         <span class="k">end do</span>
+<a name="ln-111"></a><span class="k">   </span>
+<a name="ln-112"></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">pl</span><span class="p">%</span><span class="n">lmask</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-113"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">lstatpl</span><span class="p">,</span> <span class="n">pepl</span><span class="p">)</span>
+<a name="ln-114"></a>
+<a name="ln-115"></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">pl</span><span class="p">%</span><span class="n">lmask</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-116"></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">pl</span><span class="p">%</span><span class="n">lmask</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-117"></a>   
+<a name="ln-118"></a>         <span class="c">! Potential energy from the oblateness term</span>
+<a name="ln-119"></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-120"></a><span class="k">            call </span><span class="nb">system</span><span class="p">%</span><span class="n">obl_pot</span><span class="p">()</span>
+<a name="ln-121"></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="nb">system</span><span class="p">%</span><span class="n">oblpot</span>
+<a name="ln-122"></a>         <span class="k">end if</span>
+<a name="ln-123"></a><span class="k">   </span>
+<a name="ln-124"></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">pl</span><span class="p">%</span><span class="n">lmask</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">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">pl</span><span class="p">%</span><span class="n">lmask</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>         <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">pl</span><span class="p">%</span><span class="n">lmask</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-127"></a>  
+<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">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-129"></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">pl</span><span class="p">%</span><span class="n">lmask</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">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">pl</span><span class="p">%</span><span class="n">lmask</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="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">pl</span><span class="p">%</span><span class="n">lmask</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-132"></a>         <span class="k">end if</span>
+<a name="ln-133"></a>
+<a name="ln-134"></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-135"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Ltot</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">+</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span>
+<a name="ln-136"></a>      <span class="k">end associate</span>
+<a name="ln-137"></a>
+<a name="ln-138"></a><span class="k">      return</span>
+<a name="ln-139"></a><span class="k">   end subroutine </span><span class="n">util_get_energy_momentum_system</span>
+<a name="ln-140"></a>
+<a name="ln-141"></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_index.f90.html b/docs/sourcefile/util_index.f90.html
new file mode 100644
index 000000000..1849a6303
--- /dev/null
+++ b/docs/sourcefile/util_index.f90.html
@@ -0,0 +1,748 @@
+<!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_index.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_index.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.">48 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_index.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">util_index.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_index.html">s_util_index</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_index.f90.html#src">util_index.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_index.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefileutil_indexf90EfferentGraph" width="641pt" height="295pt"
+ viewBox="0.00 0.00 641.00 295.06" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_index.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 412.12)">
+<title>sourcefile~~util_index.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 900,-412.12 900,4 -4,4"/>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~util_index.f90</title>
+<polygon fill="none" stroke="black" points="896,-133.12 820,-133.12 820,-109.12 896,-109.12 896,-133.12"/>
+<text text-anchor="middle" x="858" y="-118.72" font-family="Helvetica,sans-Serif" font-size="10.50">util_index.f90</text>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M836.37,-109.09C797.22,-87.43 708.87,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M843.7,-133.4C825.79,-149.95 793.74,-179.55 772.67,-199.02"/>
+<polygon fill="#000000" stroke="#000000" points="770.16,-196.58 765.19,-205.93 774.91,-201.72 770.16,-196.58"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_index.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="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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_index.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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_index.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" 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_index.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="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_index.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_index.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_index.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_index.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
+</g>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_index.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="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.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="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.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="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.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="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_index.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="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_index.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefileutil_indexf90EfferentGraph = svgPanZoom('#sourcefileutil_indexf90EfferentGraph', {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_index.html">s_util_index</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_index.f90.html#src">util_index.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_index</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>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">util_index_eucl_plpl</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: Jacob R. Elliott and David A. Minton</span>
+<a name="ln-7"></a>      <span class="c">!!</span>
+<a name="ln-8"></a>      <span class="c">!! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions.</span>
+<a name="ln-9"></a>      <span class="c">!!</span>
+<a name="ln-10"></a>      <span class="c">!! Reference:</span>
+<a name="ln-11"></a>      <span class="c">!!</span>
+<a name="ln-12"></a>      <span class="c">!!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
+<a name="ln-13"></a>      <span class="c">!!       2019. hal-0204751</span>
+<a name="ln-14"></a>      <span class="k">implicit none</span>
+<a name="ln-15"></a>      <span class="c">! Arguments</span>
+<a name="ln-16"></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-17"></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-18"></a>      <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">counter</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-20"></a>
+<a name="ln-21"></a>      <span class="n">npl</span> <span class="o">=</span> <span class="nb">int</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="nb">kind</span><span class="o">=</span><span class="n">I8B</span><span class="p">)</span>
+<a name="ln-22"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nplpl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span>
+<a name="ln-23"></a>         <span class="n">nplpl</span> <span class="o">=</span> <span class="p">(</span><span class="n">npl</span> <span class="o">*</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="o">/</span> <span class="mi">2</span><span class="p">)</span> <span class="c">! number of entries in a strict lower triangle, npl x npl, minus first column</span>
+<a name="ln-24"></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">k_plpl</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">k_plpl</span><span class="p">)</span> <span class="c">! Reset the index array if it&#39;s been set previously</span>
+<a name="ln-25"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</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">nplpl</span><span class="p">))</span>
+<a name="ln-26"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-27"></a>            <span class="n">counter</span> <span class="o">=</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">*</span> <span class="n">npl</span> <span class="o">-</span> <span class="n">i</span> <span class="o">*</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">/</span> <span class="mi">2_I8B</span> <span class="o">+</span> <span class="mi">1_I8B</span>
+<a name="ln-28"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="n">i</span> <span class="o">+</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-29"></a>               <span class="n">self</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">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-30"></a>               <span class="n">self</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">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">j</span>
+<a name="ln-31"></a>               <span class="n">counter</span> <span class="o">=</span> <span class="n">counter</span> <span class="o">+</span> <span class="mi">1_I8B</span>
+<a name="ln-32"></a>            <span class="k">end do</span>
+<a name="ln-33"></a><span class="k">         end do</span>
+<a name="ln-34"></a><span class="k">      end associate</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">util_index_eucl_plpl</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">util_index_eucl_pltp</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">param</span><span class="p">)</span>
+<a name="ln-41"></a>      <span class="c">!! author: Jacob R. Elliott and David A. Minton</span>
+<a name="ln-42"></a>      <span class="c">!!</span>
+<a name="ln-43"></a>      <span class="c">!! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions</span>
+<a name="ln-44"></a>      <span class="c">!!</span>
+<a name="ln-45"></a>      <span class="c">!! Reference:</span>
+<a name="ln-46"></a>      <span class="c">!!</span>
+<a name="ln-47"></a>      <span class="c">!!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. </span>
+<a name="ln-48"></a>      <span class="c">!!       2019. hal-0204751</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_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-52"></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>    <span class="c">!! Swiftest massive body 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">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-54"></a>      <span class="c">! Internals</span>
+<a name="ln-55"></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">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">counter</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-56"></a>
+<a name="ln-57"></a>      <span class="n">ntp</span> <span class="o">=</span> <span class="nb">int</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="nb">kind</span><span class="o">=</span><span class="n">I8B</span><span class="p">)</span>
+<a name="ln-58"></a>      <span class="n">npl</span> <span class="o">=</span> <span class="nb">int</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="nb">kind</span><span class="o">=</span><span class="n">I8B</span><span class="p">)</span>
+<a name="ln-59"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">npltp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">npltp</span><span class="p">)</span>
+<a name="ln-60"></a>         <span class="n">npltp</span> <span class="o">=</span> <span class="n">npl</span> <span class="o">*</span> <span class="n">ntp</span>
+<a name="ln-61"></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">k_pltp</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">k_pltp</span><span class="p">)</span> <span class="c">! Reset the index array if it&#39;s been set previously</span>
+<a name="ln-62"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k_pltp</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">npltp</span><span class="p">))</span>
+<a name="ln-63"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1_I8B</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-64"></a>            <span class="n">counter</span> <span class="o">=</span> <span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">1_I8B</span><span class="p">)</span> <span class="o">*</span> <span class="n">npl</span> <span class="o">+</span> <span class="mi">1_I8B</span>
+<a name="ln-65"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1_I8B</span><span class="p">,</span>  <span class="n">ntp</span>
+<a name="ln-66"></a>               <span class="n">self</span><span class="p">%</span><span class="n">k_pltp</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-67"></a>               <span class="n">self</span><span class="p">%</span><span class="n">k_pltp</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">counter</span><span class="p">)</span> <span class="o">=</span> <span class="n">j</span>
+<a name="ln-68"></a>               <span class="n">counter</span> <span class="o">=</span> <span class="n">counter</span> <span class="o">+</span> <span class="mi">1_I8B</span>
+<a name="ln-69"></a>            <span class="k">end do</span>
+<a name="ln-70"></a><span class="k">         end do</span>
+<a name="ln-71"></a><span class="k">      end associate</span>
+<a name="ln-72"></a>
+<a name="ln-73"></a><span class="k">      return</span>
+<a name="ln-74"></a><span class="k">   end subroutine </span><span class="n">util_index_eucl_pltp</span>
+<a name="ln-75"></a>
+<a name="ln-76"></a><span class="k">end submodule </span><span class="n">s_util_index</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_minimize_bfgs.f90.html b/docs/sourcefile/util_minimize_bfgs.f90.html
index fc4cb75da..e54f17461 100644
--- a/docs/sourcefile/util_minimize_bfgs.f90.html
+++ b/docs/sourcefile/util_minimize_bfgs.f90.html
@@ -134,7 +134,7 @@ <h1>util_minimize_bfgs.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 3.1% of total for source files.">415 statements</a>
+    title=" 2.5% of total for source files.">415 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_minimize_bfgsf90EfferentGraph" width="641pt" height="282pt"
+ viewBox="0.00 0.00 641.00 281.96" 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 412.12)">
 <title>sourcefile~~util_minimize_bfgs.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 935,-301.25 935,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 942,-412.12 942,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,-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>
+<polygon fill="none" stroke="black" points="938,-133.12 820,-133.12 820,-109.12 938,-109.12 938,-133.12"/>
+<text text-anchor="middle" x="879" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.34,-109.09C812.36,-87.43 715.54,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M862.3,-133.21C840.6,-149.91 801.28,-180.18 775.92,-199.7"/>
+<polygon fill="#000000" stroke="#000000" points="773.69,-197 767.9,-205.88 777.96,-202.55 773.69,-197"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <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_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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7" class="node">
+<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_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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <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_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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_minimize_bfgs.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_minimize_bfgs.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -561,587 +615,596 @@ <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_minimize_bfgs</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 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-4"></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">maxloop</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-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">!! This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables.  </span>
 <a name="ln-8"></a>      <span class="c">!! It recieves as input:</span>
 <a name="ln-9"></a>      <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
-<a name="ln-10"></a>      <span class="c">!!   N    :  Number of variables of function f</span>
-<a name="ln-11"></a>      <span class="c">!!   x0   :  Initial starting value of x</span>
-<a name="ln-12"></a>      <span class="c">!!   eps  :  Accuracy of 1 - dimensional minimization at each step</span>
-<a name="ln-13"></a>      <span class="c">!! The outputs include</span>
-<a name="ln-14"></a>      <span class="c">!!   lerr :  Returns .true. if it could not find the minimum</span>
-<a name="ln-15"></a>      <span class="c">!! Returns</span>
-<a name="ln-16"></a>      <span class="c">!!   x1   :  Final minimum (all 0 if none found)</span>
-<a name="ln-17"></a>      <span class="c">!!   0 = No miniumum found</span>
-<a name="ln-18"></a>      <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
-<a name="ln-19"></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-20"></a>      <span class="k">implicit none</span>
-<a name="ln-21"></a>      <span class="c">! Arguments</span>
-<a name="ln-22"></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>
-<a name="ln-23"></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-24"></a>      <span class="kt">real</span><span 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-25"></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-26"></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-27"></a>      <span class="c">! Result</span>
-<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="k">allocatable</span> <span class="kd">::</span> <span class="n">x1</span>
-<a name="ln-29"></a>      <span class="c">! Internals</span>
-<a name="ln-30"></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">k</span><span class="p">,</span> <span class="n">l</span><span class="p">,</span> <span class="n">conv</span><span class="p">,</span> <span class="n">num</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">parameter</span> <span class="kd">::</span> <span class="n">MAXLOOP</span> <span class="o">=</span> <span class="mi">1000</span> <span class="c">!! Maximum number of loops before method is determined to have failed </span>
-<a name="ln-32"></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">graddelta</span> <span class="o">=</span> <span class="mf">1e-4_DP</span> <span class="c">!! Delta x for gradient calculations</span>
-<a name="ln-33"></a>      <span class="kt">real</span><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">S</span>               <span class="c">!! Direction vectors </span>
-<a name="ln-34"></a>      <span class="kt">real</span><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="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">H</span>             <span class="c">!! Approximated inverse Hessian matrix </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="k">dimension</span><span class="p">(</span><span class="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">grad1</span>           <span class="c">!! gradient of f </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="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">grad0</span>           <span class="c">!! old value of gradient </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">astar</span>                         <span class="c">!! 1D minimized value </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="k">dimension</span><span class="p">(</span><span class="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">y</span><span class="p">,</span> <span class="n">P</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">N</span><span class="p">,</span><span class="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">PP</span><span class="p">,</span> <span class="n">PyH</span><span class="p">,</span> <span class="n">HyP</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="kd">::</span> <span class="n">yHy</span><span class="p">,</span> <span class="n">Py</span>
-<a name="ln-41"></a>      <span class="k">type</span><span class="p">(</span><span class="n">ieee_status_type</span><span class="p">)</span> <span class="kd">::</span> <span class="n">original_fpe_status</span>
-<a name="ln-42"></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">fpe_flag</span> 
-<a name="ln-43"></a>
-<a name="ln-44"></a>      <span class="k">call </span><span class="n">ieee_get_status</span><span class="p">(</span><span class="n">original_fpe_status</span><span class="p">)</span> <span class="c">! Save the original floating point exception status</span>
-<a name="ln-45"></a>      <span class="k">call </span><span class="n">ieee_set_flag</span><span class="p">(</span><span class="n">ieee_all</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span> <span class="c">! Set all flags to quiet</span>
-<a name="ln-46"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">)))</span>
-<a name="ln-47"></a>
-<a name="ln-48"></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-49"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">x1</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">x0</span><span class="p">)</span>
-<a name="ln-50"></a>      <span class="c">! Initialize approximate Hessian with the identity matrix (i.e. begin with method of steepest descent) </span>
-<a name="ln-51"></a>      <span class="c">! Get initial gradient and initialize arrays for updated values of gradient and x</span>
-<a name="ln-52"></a>      <span class="n">H</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="nb">reshape</span><span class="p">([((</span><span class="mf">0._DP</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">j</span><span class="o">-</span><span class="mi">1</span><span class="p">),</span> <span class="mf">1._DP</span><span class="p">,</span> <span class="p">(</span><span class="mf">0._DP</span><span class="p">,</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">N</span><span class="p">),</span> <span class="n">j</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">N</span><span class="p">)],</span> <span class="p">[</span><span class="n">N</span><span class="p">,</span><span class="n">N</span><span class="p">])</span>  
-<a name="ln-53"></a>      <span class="n">grad0</span> <span class="o">=</span> <span class="n">gradf</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">graddelta</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-54"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-55"></a><span class="k">         call </span><span class="n">ieee_set_status</span><span class="p">(</span><span class="n">original_fpe_status</span><span class="p">)</span>
-<a name="ln-56"></a>         <span class="k">return</span>
-<a name="ln-57"></a><span class="k">      end if</span>
-<a name="ln-58"></a><span class="k">      </span><span class="n">grad1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">grad0</span><span class="p">(:)</span>
-<a name="ln-59"></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">MAXLOOP</span> 
-<a name="ln-60"></a>         <span class="c">!check for convergence</span>
-<a name="ln-61"></a>         <span class="n">conv</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">grad1</span><span class="p">(:))</span> <span class="o">&gt;</span> <span class="n">eps</span><span class="p">)</span>
-<a name="ln-62"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">conv</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="c">!write(*,*) &quot;BFGS converged on gradient after &quot;,i,&quot; iterations&quot; </span>
-<a name="ln-64"></a>            <span class="k">exit </span>
-<a name="ln-65"></a><span class="k">         end if</span>
-<a name="ln-66"></a><span class="k">         </span><span class="n">S</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="nb">matmul</span><span class="p">(</span><span class="n">H</span><span class="p">(:,:),</span> <span class="n">grad1</span><span class="p">(:))</span>
-<a name="ln-67"></a>         <span class="n">astar</span> <span class="o">=</span> <span class="n">minimize1D</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x1</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">graddelta</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-68"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-69"></a>            <span class="c">!write(*,*) &quot;Exiting BFGS with error in minimize1D step&quot;</span>
-<a name="ln-70"></a>            <span class="k">exit</span>
-<a name="ln-71"></a><span class="k">         end if</span>
-<a name="ln-72"></a>         <span class="c">! Get new x values </span>
-<a name="ln-73"></a>         <span class="n">P</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">astar</span> <span class="o">*</span> <span class="n">S</span><span class="p">(:)</span> 
-<a name="ln-74"></a>         <span class="n">x1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">P</span><span class="p">(:)</span>
-<a name="ln-75"></a>         <span class="c">! Calculate new gradient</span>
-<a name="ln-76"></a>         <span class="n">grad0</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">grad1</span><span class="p">(:)</span>
-<a name="ln-77"></a>         <span class="n">grad1</span> <span class="o">=</span> <span class="n">gradf</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">x1</span><span class="p">,</span> <span class="n">graddelta</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-78"></a>         <span class="n">y</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">grad1</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">grad0</span><span class="p">(:)</span>
-<a name="ln-79"></a>         <span class="n">Py</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">P</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(:))</span>
-<a name="ln-80"></a>         <span class="c">! set up factors for H matrix update </span>
-<a name="ln-81"></a>         <span class="n">yHy</span> <span class="o">=</span> <span class="mf">0._DP</span>
-<a name="ln-82"></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">N</span> 
-<a name="ln-83"></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">N</span>
-<a name="ln-84"></a>               <span class="n">yHy</span> <span class="o">=</span> <span class="n">yHy</span> <span class="o">+</span> <span class="n">y</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">H</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="n">k</span><span class="p">)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
-<a name="ln-85"></a>            <span class="k">end do</span>
-<a name="ln-86"></a><span class="k">         end do</span>
-<a name="ln-87"></a>         <span class="c">! prevent divide by zero (convergence) </span>
-<a name="ln-88"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">Py</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">tiny</span><span class="p">(</span><span class="n">Py</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-89"></a>            <span class="c">!write(*,*) &quot;BFGS Converged on tiny Py after &quot;,i,&quot; iterations&quot;</span>
-<a name="ln-90"></a>            <span class="k">exit</span>
-<a name="ln-91"></a><span class="k">         end if</span>
-<a name="ln-92"></a>         <span class="c">! set up update </span>
-<a name="ln-93"></a>         <span class="n">PyH</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0._DP</span>
-<a name="ln-94"></a>         <span class="n">HyP</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0._DP</span>
-<a name="ln-95"></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">N</span> 
-<a name="ln-96"></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">N</span>
-<a name="ln-97"></a>               <span class="n">PP</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">P</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">P</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
-<a name="ln-98"></a>               <span class="k">do </span><span class="n">l</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">N</span>
-<a name="ln-99"></a>                  <span class="n">PyH</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">PyH</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">+</span> <span class="n">P</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(</span><span class="n">l</span><span class="p">)</span> <span class="o">*</span> <span class="n">H</span><span class="p">(</span><span class="n">l</span><span class="p">,</span><span class="n">k</span><span class="p">)</span>
-<a name="ln-100"></a>                  <span class="n">HyP</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">HyP</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">+</span> <span class="n">P</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(</span><span class="n">l</span><span class="p">)</span> <span class="o">*</span> <span class="n">H</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="n">l</span><span class="p">)</span>
-<a name="ln-101"></a>               <span class="k">end do</span>
-<a name="ln-102"></a><span class="k">            end do</span>
-<a name="ln-103"></a><span class="k">         end do</span>
-<a name="ln-104"></a>         <span class="c">! update H matrix </span>
-<a name="ln-105"></a>         <span class="n">H</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">H</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="n">yHy</span> <span class="o">/</span> <span class="n">Py</span><span class="p">)</span> <span class="o">*</span> <span class="n">PP</span><span class="p">(:,:)</span> <span class="o">-</span> <span class="n">PyH</span><span class="p">(:,:)</span> <span class="o">-</span> <span class="n">HyP</span><span class="p">(:,:))</span> <span class="o">/</span> <span class="n">Py</span>
-<a name="ln-106"></a>         <span class="c">! Normalize to prevent it from blowing up if it takes many iterations to find a solution</span>
-<a name="ln-107"></a>         <span class="n">H</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">H</span><span class="p">(:,:)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">H</span><span class="p">(:,:))</span>
-<a name="ln-108"></a>         <span class="c">! Stop everything if there are any exceptions to allow the routine to fail gracefully</span>
-<a name="ln-109"></a>         <span class="k">call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
-<a name="ln-110"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">))</span> <span class="k">exit </span>
-<a name="ln-111"></a><span class="k">         if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">MAXLOOP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-112"></a><span class="k">            </span><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-113"></a>            <span class="c">!write(*,*) &quot;BFGS ran out of loops!&quot;</span>
-<a name="ln-114"></a>         <span class="k">end if</span>
-<a name="ln-115"></a><span class="k">      end do</span>
-<a name="ln-116"></a><span class="k">      call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
-<a name="ln-117"></a>      <span class="n">lerr</span> <span class="o">=</span> <span class="n">lerr</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">fpe_flag</span><span class="p">)</span>  
-<a name="ln-118"></a>      <span class="c">!if (any(fpe_flag)) write(*,*) &#39;BFGS did not converge due to fpe&#39;</span>
-<a name="ln-119"></a>      <span class="c">!if (lerr) write(*,*) &quot;BFGS did not converge!&quot;</span>
-<a name="ln-120"></a>      <span class="k">call </span><span class="n">ieee_set_status</span><span class="p">(</span><span class="n">original_fpe_status</span><span class="p">)</span>
-<a name="ln-121"></a>
-<a name="ln-122"></a>      <span class="k">return </span>
-<a name="ln-123"></a>
-<a name="ln-124"></a><span class="k">      contains</span>
-<a name="ln-125"></a>
-<a name="ln-126"></a><span class="k">         function </span><span class="n">gradf</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">x1</span><span class="p">,</span> <span class="n">dx</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">grad</span><span class="p">)</span>
-<a name="ln-127"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
-<a name="ln-128"></a>            <span class="c">!! Purpose:  Estimates the gradient of a function using a central difference</span>
-<a name="ln-129"></a>            <span class="c">!! approximation</span>
-<a name="ln-130"></a>            <span class="c">!! Inputs:</span>
-<a name="ln-131"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
-<a name="ln-132"></a>            <span class="c">!!   N    :  number of variables N</span>
-<a name="ln-133"></a>            <span class="c">!!   x1   :  x value array</span>
-<a name="ln-134"></a>            <span class="c">!!   dx   :  step size to use when calculating derivatives</span>
-<a name="ln-135"></a>            <span class="c">!! Outputs: </span>
-<a name="ln-136"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
-<a name="ln-137"></a>            <span class="c">!! Returns</span>
-<a name="ln-138"></a>            <span class="c">!!   grad :  N sized array containing estimated gradient of f at x1</span>
-<a name="ln-139"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </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="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-143"></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-144"></a>            <span class="kt">real</span><span 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">x1</span>
-<a name="ln-145"></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">dx</span>
-<a name="ln-146"></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-147"></a>            <span class="c">! Result</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="n">N</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">grad</span>
-<a name="ln-149"></a>            <span class="c">! Internals</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">i</span><span class="p">,</span> <span class="n">j</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="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xp</span><span class="p">,</span> <span class="n">xm</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="kd">::</span> <span class="n">fp</span><span class="p">,</span> <span class="n">fm</span>
-<a name="ln-153"></a>            <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lerrp</span><span class="p">,</span> <span class="n">lerrm</span>
-<a name="ln-154"></a>
-<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">N</span>
-<a name="ln-156"></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">N</span>
-<a name="ln-157"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">j</span> <span class="o">==</span> <span class="n">i</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-158"></a><span class="k">                     </span><span class="n">xp</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">dx</span>
-<a name="ln-159"></a>                     <span class="n">xm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">dx</span>
-<a name="ln-160"></a>                  <span class="k">else</span>
-<a name="ln-161"></a><span class="k">                     </span><span class="n">xp</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-162"></a>                     <span class="n">xm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-163"></a>                  <span class="k">end if</span>
-<a name="ln-164"></a><span class="k">               end do</span>
-<a name="ln-165"></a><span class="k">               select type</span> <span class="p">(</span><span class="n">f</span><span class="p">)</span>
-<a name="ln-166"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj_err</span><span class="p">)</span>
-<a name="ln-167"></a>                  <span class="n">fp</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xp</span><span class="p">)</span>
-<a name="ln-168"></a>                  <span class="n">lerrp</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">lerr</span>
-<a name="ln-169"></a>                  <span class="n">fm</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xm</span><span class="p">)</span>
-<a name="ln-170"></a>                  <span class="n">lerrm</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">lerr</span>
-<a name="ln-171"></a>                  <span class="n">lerr</span> <span class="o">=</span> <span class="n">lerrp</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">lerrm</span>
-<a name="ln-172"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>
-<a name="ln-173"></a>                  <span class="n">fp</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xp</span><span class="p">)</span>
-<a name="ln-174"></a>                  <span class="n">fm</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xm</span><span class="p">)</span>
-<a name="ln-175"></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-176"></a>               <span class="k">end select</span>
-<a name="ln-177"></a><span class="k">               </span><span class="n">grad</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">fp</span> <span class="o">-</span> <span class="n">fm</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">dx</span><span class="p">)</span>
-<a name="ln-178"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-179"></a><span class="k">            end do</span>
-<a name="ln-180"></a><span class="k">            return </span>
-<a name="ln-181"></a><span class="k">         end function </span><span class="n">gradf</span>
-<a name="ln-182"></a>
-<a name="ln-183"></a>         <span class="k">function </span><span class="n">minimize1D</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</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">astar</span><span class="p">)</span>
-<a name="ln-184"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
-<a name="ln-185"></a>            <span class="c">!! This program find the minimum of a function of N variables in a single direction</span>
-<a name="ln-186"></a>            <span class="c">!! S using in sequence:</span>
-<a name="ln-187"></a>            <span class="c">!!    1.  A Bracketing method</span>
-<a name="ln-188"></a>            <span class="c">!!    2.  The golden section method</span>
-<a name="ln-189"></a>            <span class="c">!!    3.  A quadratic polynomial fit</span>
-<a name="ln-190"></a>            <span class="c">!! Inputs</span>
-<a name="ln-191"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
-<a name="ln-192"></a>            <span class="c">!!   x0   :  Array of size N of initial x values</span>
-<a name="ln-193"></a>            <span class="c">!!   S    :  Array of size N that determines the direction of minimization</span>
-<a name="ln-194"></a>            <span class="c">!!   N    :  Number of variables of function f</span>
-<a name="ln-195"></a>            <span class="c">!!   eps  :  Accuracy of 1 - dimensional minimization at each step</span>
-<a name="ln-196"></a>            <span class="c">!! Output</span>
-<a name="ln-197"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
-<a name="ln-198"></a>            <span class="c">!! Returns</span>
-<a name="ln-199"></a>            <span class="c">!!   astar      :  Final minimum along direction S</span>
-<a name="ln-200"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-201"></a>            <span class="k">implicit none</span>
-<a name="ln-202"></a>            <span class="c">! Arguments</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">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">N</span>
-<a name="ln-204"></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-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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</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">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-207"></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-208"></a>            <span class="c">! Result</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="kd">::</span> <span class="n">astar</span>
-<a name="ln-210"></a>            <span class="c">! Internals</span>
-<a name="ln-211"></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">num</span> <span class="o">=</span> <span class="mi">0</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">parameter</span> <span class="kd">::</span> <span class="n">step</span> <span class="o">=</span> <span class="mf">0.7_DP</span>     <span class="c">!! Bracketing method step size   </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="k">parameter</span> <span class="kd">::</span> <span class="n">gam</span> <span class="o">=</span> <span class="mf">1.2_DP</span>      <span class="c">!! Bracketing method expansion parameter   </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">parameter</span> <span class="kd">::</span> <span class="n">greduce</span> <span class="o">=</span> <span class="mf">0.2_DP</span>  <span class="c">!! Golden section method reduction factor   </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">parameter</span> <span class="kd">::</span> <span class="n">greduce2</span> <span class="o">=</span> <span class="mf">0.1_DP</span> <span class="c">! Secondary golden section method reduction factor   </span>
-<a name="ln-216"></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">alo</span><span class="p">,</span> <span class="n">ahi</span>                     <span class="c">!! High and low values for 1 - D minimization routines   </span>
-<a name="ln-217"></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">a0</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>       <span class="c">!! Initial guess of alpha   </span>
-<a name="ln-218"></a>         
-<a name="ln-219"></a>            <span class="n">alo</span> <span class="o">=</span> <span class="n">a0</span>
-<a name="ln-220"></a>            <span class="k">call </span><span class="n">bracket</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">gam</span><span class="p">,</span> <span class="n">step</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-221"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-222"></a>               <span class="c">!write(*,*) &quot;BFGS bracketing step failed!&quot;</span>
-<a name="ln-223"></a>               <span class="k">return </span>
-<a name="ln-224"></a><span class="k">            end if</span>
-<a name="ln-225"></a><span class="k">            if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">alo</span> <span class="o">-</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-226"></a><span class="k">               </span><span class="n">astar</span> <span class="o">=</span> <span class="n">alo</span>
-<a name="ln-227"></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-228"></a>               <span class="k">return </span>
-<a name="ln-229"></a><span class="k">            end if</span>
-<a name="ln-230"></a><span class="k">            call </span><span class="n">golden</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">greduce</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-231"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-232"></a>               <span class="c">!write(*,*) &quot;BFGS golden section step failed!&quot;</span>
-<a name="ln-233"></a>               <span class="k">return </span>
-<a name="ln-234"></a><span class="k">            end if</span>
-<a name="ln-235"></a><span class="k">            if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">alo</span> <span class="o">-</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-236"></a><span class="k">               </span><span class="n">astar</span> <span class="o">=</span> <span class="n">alo</span>
-<a name="ln-237"></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-238"></a>               <span class="k">return </span>
-<a name="ln-239"></a><span class="k">            end if</span>
-<a name="ln-240"></a><span class="k">            call </span><span class="n">quadfit</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-241"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-242"></a>               <span class="c">!write(*,*) &quot;BFGS quadfit failed!&quot;</span>
-<a name="ln-243"></a>               <span class="k">return </span>
-<a name="ln-244"></a><span class="k">            end if</span>
-<a name="ln-245"></a><span class="k">            if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">alo</span> <span class="o">-</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-246"></a><span class="k">               </span><span class="n">astar</span> <span class="o">=</span> <span class="n">alo</span>
-<a name="ln-247"></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-248"></a>               <span class="k">return </span>
-<a name="ln-249"></a><span class="k">            end if</span> 
-<a name="ln-250"></a>            <span class="c">! Quadratic fit method won&#39;t converge, so finish off with another golden section   </span>
-<a name="ln-251"></a>            <span class="k">call </span><span class="n">golden</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">greduce2</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-252"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lerr</span><span class="p">)</span> <span class="n">astar</span> <span class="o">=</span> <span class="p">(</span><span class="n">alo</span> <span class="o">+</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">/</span> <span class="mf">2.0_DP</span>
-<a name="ln-253"></a>            <span class="k">return </span>
-<a name="ln-254"></a><span class="k">         end function </span><span class="n">minimize1D</span>
-<a name="ln-255"></a>
-<a name="ln-256"></a>         <span class="k">function </span><span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a</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">fnew</span><span class="p">)</span>
-<a name="ln-257"></a>            <span class="k">implicit none</span>
-<a name="ln-258"></a>            <span class="c">! Arguments</span>
-<a name="ln-259"></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>
-<a name="ln-260"></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-261"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</span>
-<a name="ln-262"></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">a</span>
-<a name="ln-263"></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-10"></a>      <span class="c">!!   N       : Number of variables of function f</span>
+<a name="ln-11"></a>      <span class="c">!!   x0      : Initial starting value of x</span>
+<a name="ln-12"></a>      <span class="c">!!   eps     : Accuracy of 1 - dimensional minimization at each step</span>
+<a name="ln-13"></a>      <span class="c">!!   maxloop : Maximum number of loops to attempt to find a solution</span>
+<a name="ln-14"></a>      <span class="c">!! The outputs include</span>
+<a name="ln-15"></a>      <span class="c">!!   lerr :  Returns .true. if it could not find the minimum</span>
+<a name="ln-16"></a>      <span class="c">!! Returns</span>
+<a name="ln-17"></a>      <span class="c">!!   x1   :  Final minimum (all 0 if none found)</span>
+<a name="ln-18"></a>      <span class="c">!!   0 = No miniumum found</span>
+<a name="ln-19"></a>      <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
+<a name="ln-20"></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-21"></a>      <span class="k">implicit none</span>
+<a name="ln-22"></a>      <span class="c">! Arguments</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">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-24"></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-25"></a>      <span class="kt">real</span><span 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-26"></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-27"></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">maxloop</span>
+<a name="ln-28"></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-29"></a>      <span class="c">! Result</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">x1</span>
+<a name="ln-31"></a>      <span class="c">! Internals</span>
+<a name="ln-32"></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">k</span><span class="p">,</span> <span class="n">l</span><span class="p">,</span> <span class="n">conv</span><span class="p">,</span> <span class="n">num</span>
+<a name="ln-33"></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">graddelta</span> <span class="o">=</span> <span class="mf">1e-4_DP</span> <span class="c">!! Delta x for gradient calculations</span>
+<a name="ln-34"></a>      <span class="kt">real</span><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">S</span>               <span class="c">!! Direction vectors </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="k">dimension</span><span class="p">(</span><span class="n">N</span><span class="p">,</span><span class="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">H</span>             <span class="c">!! Approximated inverse Hessian matrix </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="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">grad1</span>           <span class="c">!! gradient of f </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="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">grad0</span>           <span class="c">!! old value of gradient </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">astar</span>                         <span class="c">!! 1D minimized value </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">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">y</span><span class="p">,</span> <span class="n">P</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">N</span><span class="p">,</span><span class="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">PP</span><span class="p">,</span> <span class="n">PyH</span><span class="p">,</span> <span class="n">HyP</span>
+<a name="ln-41"></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">yHy</span><span class="p">,</span> <span class="n">Py</span>
+<a name="ln-42"></a>      <span class="k">type</span><span class="p">(</span><span class="n">ieee_status_type</span><span class="p">)</span> <span class="kd">::</span> <span class="n">original_fpe_status</span>
+<a name="ln-43"></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">fpe_flag</span> 
+<a name="ln-44"></a>
+<a name="ln-45"></a>      <span class="k">call </span><span class="n">ieee_get_status</span><span class="p">(</span><span class="n">original_fpe_status</span><span class="p">)</span> <span class="c">! Save the original floating point exception status</span>
+<a name="ln-46"></a>      <span class="k">call </span><span class="n">ieee_set_flag</span><span class="p">(</span><span class="n">ieee_all</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span> <span class="c">! Set all flags to quiet</span>
+<a name="ln-47"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">)))</span>
+<a name="ln-48"></a>
+<a name="ln-49"></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-50"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">x1</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">x0</span><span class="p">)</span>
+<a name="ln-51"></a>      <span class="c">! Initialize approximate Hessian with the identity matrix (i.e. begin with method of steepest descent) </span>
+<a name="ln-52"></a>      <span class="c">! Get initial gradient and initialize arrays for updated values of gradient and x</span>
+<a name="ln-53"></a>      <span class="n">H</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="nb">reshape</span><span class="p">([((</span><span class="mf">0._DP</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">j</span><span class="o">-</span><span class="mi">1</span><span class="p">),</span> <span class="mf">1._DP</span><span class="p">,</span> <span class="p">(</span><span class="mf">0._DP</span><span class="p">,</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">N</span><span class="p">),</span> <span class="n">j</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">N</span><span class="p">)],</span> <span class="p">[</span><span class="n">N</span><span class="p">,</span><span class="n">N</span><span class="p">])</span>  
+<a name="ln-54"></a>      <span class="n">grad0</span> <span class="o">=</span> <span class="n">gradf</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">graddelta</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-55"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-56"></a><span class="k">         call </span><span class="n">ieee_set_status</span><span class="p">(</span><span class="n">original_fpe_status</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><span class="n">grad1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">grad0</span><span class="p">(:)</span>
+<a name="ln-60"></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">maxloop</span> 
+<a name="ln-61"></a>         <span class="c">!check for convergence</span>
+<a name="ln-62"></a>         <span class="n">conv</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">grad1</span><span class="p">(:))</span> <span class="o">&gt;</span> <span class="n">eps</span><span class="p">)</span>
+<a name="ln-63"></a>         <span class="c">! write(*,*) &#39;loop: &#39;, i</span>
+<a name="ln-64"></a>         <span class="c">! write(*,*) &#39;conv: &#39;, conv</span>
+<a name="ln-65"></a>         <span class="c">! write(*,*) &#39;grad1 / eps&#39;</span>
+<a name="ln-66"></a>         <span class="c">! do j = 1, N</span>
+<a name="ln-67"></a>         <span class="c">!    write(*,*) j, abs(grad1(j)) / eps</span>
+<a name="ln-68"></a>         <span class="c">! end do</span>
+<a name="ln-69"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">conv</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-70"></a>            <span class="c">! write(*,*) &quot;BFGS converged on gradient after &quot;,i,&quot; iterations&quot; </span>
+<a name="ln-71"></a>            <span class="k">exit </span>
+<a name="ln-72"></a><span class="k">         end if</span>
+<a name="ln-73"></a><span class="k">         </span><span class="n">S</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="nb">matmul</span><span class="p">(</span><span class="n">H</span><span class="p">(:,:),</span> <span class="n">grad1</span><span class="p">(:))</span>
+<a name="ln-74"></a>         <span class="n">astar</span> <span class="o">=</span> <span class="n">minimize1D</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x1</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">graddelta</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-75"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-76"></a>            <span class="c">! write(*,*) &quot;Exiting BFGS with error in minimize1D step&quot;</span>
+<a name="ln-77"></a>            <span class="k">exit</span>
+<a name="ln-78"></a><span class="k">         end if</span>
+<a name="ln-79"></a>         <span class="c">! Get new x values </span>
+<a name="ln-80"></a>         <span class="n">P</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">astar</span> <span class="o">*</span> <span class="n">S</span><span class="p">(:)</span> 
+<a name="ln-81"></a>         <span class="n">x1</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">P</span><span class="p">(:)</span>
+<a name="ln-82"></a>         <span class="c">! Calculate new gradient</span>
+<a name="ln-83"></a>         <span class="n">grad0</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">grad1</span><span class="p">(:)</span>
+<a name="ln-84"></a>         <span class="n">grad1</span> <span class="o">=</span> <span class="n">gradf</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">x1</span><span class="p">,</span> <span class="n">graddelta</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-85"></a>         <span class="n">y</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">grad1</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">grad0</span><span class="p">(:)</span>
+<a name="ln-86"></a>         <span class="n">Py</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">P</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(:))</span>
+<a name="ln-87"></a>         <span class="c">! set up factors for H matrix update </span>
+<a name="ln-88"></a>         <span class="n">yHy</span> <span class="o">=</span> <span class="mf">0._DP</span>
+<a name="ln-89"></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">N</span> 
+<a name="ln-90"></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">N</span>
+<a name="ln-91"></a>               <span class="n">yHy</span> <span class="o">=</span> <span class="n">yHy</span> <span class="o">+</span> <span class="n">y</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">H</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="n">k</span><span class="p">)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-92"></a>            <span class="k">end do</span>
+<a name="ln-93"></a><span class="k">         end do</span>
+<a name="ln-94"></a>         <span class="c">! prevent divide by zero (convergence) </span>
+<a name="ln-95"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">Py</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">tiny</span><span class="p">(</span><span class="n">Py</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-96"></a>            <span class="c">! write(*,*) &quot;BFGS Converged on tiny Py after &quot;,i,&quot; iterations&quot;</span>
+<a name="ln-97"></a>            <span class="k">exit</span>
+<a name="ln-98"></a><span class="k">         end if</span>
+<a name="ln-99"></a>         <span class="c">! set up update </span>
+<a name="ln-100"></a>         <span class="n">PyH</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0._DP</span>
+<a name="ln-101"></a>         <span class="n">HyP</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0._DP</span>
+<a name="ln-102"></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">N</span> 
+<a name="ln-103"></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">N</span>
+<a name="ln-104"></a>               <span class="n">PP</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">P</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">P</span><span class="p">(</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-105"></a>               <span class="k">do </span><span class="n">l</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">N</span>
+<a name="ln-106"></a>                  <span class="n">PyH</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">PyH</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">+</span> <span class="n">P</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(</span><span class="n">l</span><span class="p">)</span> <span class="o">*</span> <span class="n">H</span><span class="p">(</span><span class="n">l</span><span class="p">,</span><span class="n">k</span><span class="p">)</span>
+<a name="ln-107"></a>                  <span class="n">HyP</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">HyP</span><span class="p">(</span><span class="n">j</span><span class="p">,</span> <span class="n">k</span><span class="p">)</span> <span class="o">+</span> <span class="n">P</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">*</span> <span class="n">y</span><span class="p">(</span><span class="n">l</span><span class="p">)</span> <span class="o">*</span> <span class="n">H</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="n">l</span><span class="p">)</span>
+<a name="ln-108"></a>               <span class="k">end do</span>
+<a name="ln-109"></a><span class="k">            end do</span>
+<a name="ln-110"></a><span class="k">         end do</span>
+<a name="ln-111"></a>         <span class="c">! update H matrix </span>
+<a name="ln-112"></a>         <span class="n">H</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">H</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="n">yHy</span> <span class="o">/</span> <span class="n">Py</span><span class="p">)</span> <span class="o">*</span> <span class="n">PP</span><span class="p">(:,:)</span> <span class="o">-</span> <span class="n">PyH</span><span class="p">(:,:)</span> <span class="o">-</span> <span class="n">HyP</span><span class="p">(:,:))</span> <span class="o">/</span> <span class="n">Py</span>
+<a name="ln-113"></a>         <span class="c">! Normalize to prevent it from blowing up if it takes many iterations to find a solution</span>
+<a name="ln-114"></a>         <span class="n">H</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">H</span><span class="p">(:,:)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">H</span><span class="p">(:,:))</span>
+<a name="ln-115"></a>         <span class="c">! Stop everything if there are any exceptions to allow the routine to fail gracefully</span>
+<a name="ln-116"></a>         <span class="k">call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
+<a name="ln-117"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">))</span> <span class="k">exit </span>
+<a name="ln-118"></a><span class="k">         if</span> <span class="p">(</span><span class="n">i</span> <span class="o">==</span> <span class="n">maxloop</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-119"></a><span class="k">            </span><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-120"></a>            <span class="c">! write(*,*) &quot;BFGS ran out of loops!&quot;</span>
+<a name="ln-121"></a>         <span class="k">end if</span>
+<a name="ln-122"></a><span class="k">      end do</span>
+<a name="ln-123"></a><span class="k">      call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
+<a name="ln-124"></a>      <span class="n">lerr</span> <span class="o">=</span> <span class="n">lerr</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">fpe_flag</span><span class="p">)</span>  
+<a name="ln-125"></a>      <span class="c">! if (any(fpe_flag)) write(*,*) &#39;BFGS did not converge due to fpe&#39;</span>
+<a name="ln-126"></a>      <span class="c">! if (lerr) write(*,*) &quot;BFGS did not converge!&quot;</span>
+<a name="ln-127"></a>      <span class="k">call </span><span class="n">ieee_set_status</span><span class="p">(</span><span class="n">original_fpe_status</span><span class="p">)</span>
+<a name="ln-128"></a>
+<a name="ln-129"></a>      <span class="k">return </span>
+<a name="ln-130"></a>
+<a name="ln-131"></a><span class="k">      contains</span>
+<a name="ln-132"></a>
+<a name="ln-133"></a><span class="k">         function </span><span class="n">gradf</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">x1</span><span class="p">,</span> <span class="n">dx</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">grad</span><span class="p">)</span>
+<a name="ln-134"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
+<a name="ln-135"></a>            <span class="c">!! Purpose:  Estimates the gradient of a function using a central difference</span>
+<a name="ln-136"></a>            <span class="c">!! approximation</span>
+<a name="ln-137"></a>            <span class="c">!! Inputs:</span>
+<a name="ln-138"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
+<a name="ln-139"></a>            <span class="c">!!   N    :  number of variables N</span>
+<a name="ln-140"></a>            <span class="c">!!   x1   :  x value array</span>
+<a name="ln-141"></a>            <span class="c">!!   dx   :  step size to use when calculating derivatives</span>
+<a name="ln-142"></a>            <span class="c">!! Outputs: </span>
+<a name="ln-143"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
+<a name="ln-144"></a>            <span class="c">!! Returns</span>
+<a name="ln-145"></a>            <span class="c">!!   grad :  N sized array containing estimated gradient of f at x1</span>
+<a name="ln-146"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-147"></a>            <span class="k">implicit none</span>
+<a name="ln-148"></a>            <span class="c">! Arguments</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>
+<a name="ln-150"></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-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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x1</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dx</span>
+<a name="ln-153"></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-154"></a>            <span class="c">! Result</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="n">N</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">grad</span>
+<a name="ln-156"></a>            <span class="c">! Internals</span>
+<a name="ln-157"></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-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="n">N</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xp</span><span class="p">,</span> <span class="n">xm</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="kd">::</span> <span class="n">fp</span><span class="p">,</span> <span class="n">fm</span>
+<a name="ln-160"></a>            <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lerrp</span><span class="p">,</span> <span class="n">lerrm</span>
+<a name="ln-161"></a>
+<a name="ln-162"></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">N</span>
+<a name="ln-163"></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">N</span>
+<a name="ln-164"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">j</span> <span class="o">==</span> <span class="n">i</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-165"></a><span class="k">                     </span><span class="n">xp</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">+</span> <span class="n">dx</span>
+<a name="ln-166"></a>                     <span class="n">xm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">dx</span>
+<a name="ln-167"></a>                  <span class="k">else</span>
+<a name="ln-168"></a><span class="k">                     </span><span class="n">xp</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-169"></a>                     <span class="n">xm</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">x1</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-170"></a>                  <span class="k">end if</span>
+<a name="ln-171"></a><span class="k">               end do</span>
+<a name="ln-172"></a><span class="k">               select type</span> <span class="p">(</span><span class="n">f</span><span class="p">)</span>
+<a name="ln-173"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj_err</span><span class="p">)</span>
+<a name="ln-174"></a>                  <span class="n">fp</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xp</span><span class="p">)</span>
+<a name="ln-175"></a>                  <span class="n">lerrp</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">lerr</span>
+<a name="ln-176"></a>                  <span class="n">fm</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xm</span><span class="p">)</span>
+<a name="ln-177"></a>                  <span class="n">lerrm</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">lerr</span>
+<a name="ln-178"></a>                  <span class="n">lerr</span> <span class="o">=</span> <span class="n">lerrp</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">lerrm</span>
+<a name="ln-179"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>
+<a name="ln-180"></a>                  <span class="n">fp</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xp</span><span class="p">)</span>
+<a name="ln-181"></a>                  <span class="n">fm</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xm</span><span class="p">)</span>
+<a name="ln-182"></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-183"></a>               <span class="k">end select</span>
+<a name="ln-184"></a><span class="k">               </span><span class="n">grad</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">fp</span> <span class="o">-</span> <span class="n">fm</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">dx</span><span class="p">)</span>
+<a name="ln-185"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-186"></a><span class="k">            end do</span>
+<a name="ln-187"></a><span class="k">            return </span>
+<a name="ln-188"></a><span class="k">         end function </span><span class="n">gradf</span>
+<a name="ln-189"></a>
+<a name="ln-190"></a>
+<a name="ln-191"></a>         <span class="k">function </span><span class="n">minimize1D</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</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">astar</span><span class="p">)</span>
+<a name="ln-192"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
+<a name="ln-193"></a>            <span class="c">!! This program find the minimum of a function of N variables in a single direction</span>
+<a name="ln-194"></a>            <span class="c">!! S using in sequence:</span>
+<a name="ln-195"></a>            <span class="c">!!    1.  A Bracketing method</span>
+<a name="ln-196"></a>            <span class="c">!!    2.  The golden section method</span>
+<a name="ln-197"></a>            <span class="c">!!    3.  A quadratic polynomial fit</span>
+<a name="ln-198"></a>            <span class="c">!! Inputs</span>
+<a name="ln-199"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
+<a name="ln-200"></a>            <span class="c">!!   x0   :  Array of size N of initial x values</span>
+<a name="ln-201"></a>            <span class="c">!!   S    :  Array of size N that determines the direction of minimization</span>
+<a name="ln-202"></a>            <span class="c">!!   N    :  Number of variables of function f</span>
+<a name="ln-203"></a>            <span class="c">!!   eps  :  Accuracy of 1 - dimensional minimization at each step</span>
+<a name="ln-204"></a>            <span class="c">!! Output</span>
+<a name="ln-205"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
+<a name="ln-206"></a>            <span class="c">!! Returns</span>
+<a name="ln-207"></a>            <span class="c">!!   astar      :  Final minimum along direction S</span>
+<a name="ln-208"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-209"></a>            <span class="k">implicit none</span>
+<a name="ln-210"></a>            <span class="c">! Arguments</span>
+<a name="ln-211"></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>
+<a name="ln-212"></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-213"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</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">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-215"></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-216"></a>            <span class="c">! Result</span>
+<a name="ln-217"></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">astar</span>
+<a name="ln-218"></a>            <span class="c">! Internals</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">num</span> <span class="o">=</span> <span class="mi">0</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">parameter</span> <span class="kd">::</span> <span class="n">step</span> <span class="o">=</span> <span class="mf">0.7_DP</span>     <span class="c">!! Bracketing method step size   </span>
+<a name="ln-221"></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">gam</span> <span class="o">=</span> <span class="mf">1.2_DP</span>      <span class="c">!! Bracketing method expansion parameter   </span>
+<a name="ln-222"></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">greduce</span> <span class="o">=</span> <span class="mf">0.2_DP</span>  <span class="c">!! Golden section method reduction factor   </span>
+<a name="ln-223"></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">greduce2</span> <span class="o">=</span> <span class="mf">0.1_DP</span> <span class="c">! Secondary golden section method reduction factor   </span>
+<a name="ln-224"></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">alo</span><span class="p">,</span> <span class="n">ahi</span>                     <span class="c">!! High and low values for 1 - D minimization routines   </span>
+<a name="ln-225"></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">a0</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>       <span class="c">!! Initial guess of alpha   </span>
+<a name="ln-226"></a>         
+<a name="ln-227"></a>            <span class="n">alo</span> <span class="o">=</span> <span class="n">a0</span>
+<a name="ln-228"></a>            <span class="k">call </span><span class="n">bracket</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">gam</span><span class="p">,</span> <span class="n">step</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-229"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-230"></a>               <span class="c">!write(*,*) &quot;BFGS bracketing step failed!&quot;</span>
+<a name="ln-231"></a>               <span class="k">return </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="nb">abs</span><span class="p">(</span><span class="n">alo</span> <span class="o">-</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-234"></a><span class="k">               </span><span class="n">astar</span> <span class="o">=</span> <span class="n">alo</span>
+<a name="ln-235"></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-236"></a>               <span class="k">return </span>
+<a name="ln-237"></a><span class="k">            end if</span>
+<a name="ln-238"></a><span class="k">            call </span><span class="n">golden</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">greduce</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-239"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-240"></a>               <span class="c">!write(*,*) &quot;BFGS golden section step failed!&quot;</span>
+<a name="ln-241"></a>               <span class="k">return </span>
+<a name="ln-242"></a><span class="k">            end if</span>
+<a name="ln-243"></a><span class="k">            if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">alo</span> <span class="o">-</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-244"></a><span class="k">               </span><span class="n">astar</span> <span class="o">=</span> <span class="n">alo</span>
+<a name="ln-245"></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-246"></a>               <span class="k">return </span>
+<a name="ln-247"></a><span class="k">            end if</span>
+<a name="ln-248"></a><span class="k">            call </span><span class="n">quadfit</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-249"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-250"></a>               <span class="c">!write(*,*) &quot;BFGS quadfit failed!&quot;</span>
+<a name="ln-251"></a>               <span class="k">return </span>
+<a name="ln-252"></a><span class="k">            end if</span>
+<a name="ln-253"></a><span class="k">            if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">alo</span> <span class="o">-</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-254"></a><span class="k">               </span><span class="n">astar</span> <span class="o">=</span> <span class="n">alo</span>
+<a name="ln-255"></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-256"></a>               <span class="k">return </span>
+<a name="ln-257"></a><span class="k">            end if</span> 
+<a name="ln-258"></a>            <span class="c">! Quadratic fit method won&#39;t converge, so finish off with another golden section   </span>
+<a name="ln-259"></a>            <span class="k">call </span><span class="n">golden</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">greduce2</span><span class="p">,</span> <span class="n">alo</span><span class="p">,</span> <span class="n">ahi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-260"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lerr</span><span class="p">)</span> <span class="n">astar</span> <span class="o">=</span> <span class="p">(</span><span class="n">alo</span> <span class="o">+</span> <span class="n">ahi</span><span class="p">)</span> <span class="o">/</span> <span class="mf">2.0_DP</span>
+<a name="ln-261"></a>            <span class="k">return </span>
+<a name="ln-262"></a><span class="k">         end function </span><span class="n">minimize1D</span>
+<a name="ln-263"></a>
 <a name="ln-264"></a>
-<a name="ln-265"></a>            <span class="c">! Return</span>
-<a name="ln-266"></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">fnew</span>
-<a name="ln-267"></a>            <span class="c">! Internals</span>
-<a name="ln-268"></a>            <span class="kt">real</span><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">xnew</span>
-<a name="ln-269"></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-270"></a>            
-<a name="ln-271"></a>            <span class="n">xnew</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x0</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">a</span> <span class="o">*</span> <span class="n">S</span><span class="p">(:)</span>
-<a name="ln-272"></a>            <span class="n">fnew</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xnew</span><span class="p">(:))</span>
-<a name="ln-273"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">f</span><span class="p">)</span>
-<a name="ln-274"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj_err</span><span class="p">)</span>
-<a name="ln-275"></a>               <span class="n">lerr</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">lerr</span>
-<a name="ln-276"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>
-<a name="ln-277"></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-278"></a>            <span class="k">end select</span>
-<a name="ln-279"></a><span class="k">            return </span>
-<a name="ln-280"></a><span class="k">         end function </span><span class="n">n2one</span>
-<a name="ln-281"></a>
-<a name="ln-282"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-283"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-284"></a>
-<a name="ln-285"></a>         <span class="k">subroutine </span><span class="n">bracket</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">gam</span><span class="p">,</span> <span class="n">step</span><span class="p">,</span> <span class="n">lo</span><span class="p">,</span> <span class="n">hi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-286"></a>            <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
-<a name="ln-287"></a>            <span class="c">!! This subroutine brackets the minimum.  It recieves as input:</span>
-<a name="ln-288"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
-<a name="ln-289"></a>            <span class="c">!!   x0   :  Array of size N of initial x values</span>
-<a name="ln-290"></a>            <span class="c">!!   S    :  Array of size N that determines the direction of minimization</span>
-<a name="ln-291"></a>            <span class="c">!!   gam  :  expansion parameter</span>
-<a name="ln-292"></a>            <span class="c">!!   step :  step size</span>
-<a name="ln-293"></a>            <span class="c">!!   lo   :  initial guess of lo bracket value</span>
-<a name="ln-294"></a>            <span class="c">!! The outputs include</span>
-<a name="ln-295"></a>            <span class="c">!!   lo   :  lo bracket</span>
-<a name="ln-296"></a>            <span class="c">!!   hi   :  hi bracket</span>
-<a name="ln-297"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
-<a name="ln-298"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-299"></a>            <span class="k">implicit none</span>
-<a name="ln-300"></a>            <span class="c">! Arguments</span>
-<a name="ln-301"></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>
-<a name="ln-302"></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-303"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</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">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">gam</span><span class="p">,</span> <span class="n">step</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lo</span>
-<a name="ln-306"></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">hi</span>
-<a name="ln-307"></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-308"></a>            <span class="c">! Internals</span>
-<a name="ln-309"></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">a0</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">atmp</span><span class="p">,</span> <span class="n">da</span>
-<a name="ln-310"></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">f0</span><span class="p">,</span> <span class="n">f1</span><span class="p">,</span> <span class="n">f2</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">j</span>
-<a name="ln-312"></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">MAXLOOP</span> <span class="o">=</span> <span class="mi">100</span> <span class="c">! maximum number of loops before method is determined to have failed   </span>
-<a name="ln-313"></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">eps</span> <span class="o">=</span> <span class="nb">epsilon</span><span class="p">(</span><span class="n">lo</span><span class="p">)</span> <span class="c">! small number precision to test floating point equality   </span>
-<a name="ln-314"></a>
-<a name="ln-315"></a>            <span class="c">! set up initial bracket points   </span>
-<a name="ln-316"></a>            <span class="n">a0</span> <span class="o">=</span>  <span class="n">lo</span>
-<a name="ln-317"></a>            <span class="n">da</span> <span class="o">=</span> <span class="n">step</span>
-<a name="ln-318"></a>            <span class="n">a1</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">+</span> <span class="n">da</span>
-<a name="ln-319"></a>            <span class="n">a2</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">+</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">da</span>
-<a name="ln-320"></a>            <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-321"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-322"></a><span class="k">            </span><span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-323"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-324"></a><span class="k">            </span><span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-325"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-326"></a>            <span class="c">! loop over bracket method until either min is bracketed method fails   </span>
-<a name="ln-327"></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">MAXLOOP</span> 
-<a name="ln-328"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&gt;</span> <span class="n">f1</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">f1</span> <span class="o">&lt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span>  <span class="c">! Minimum was found   </span>
-<a name="ln-329"></a>                  <span class="n">lo</span> <span class="o">=</span> <span class="n">a0</span>
-<a name="ln-330"></a>                  <span class="n">hi</span> <span class="o">=</span> <span class="n">a2</span>
-<a name="ln-331"></a>                  <span class="k">return </span>
-<a name="ln-332"></a><span class="k">               else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&gt;=</span> <span class="n">f1</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">f1</span> <span class="o">&gt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Function appears to decrease   </span>
-<a name="ln-333"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
-<a name="ln-334"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
-<a name="ln-335"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-336"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">a2</span>
-<a name="ln-337"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">atmp</span>
-<a name="ln-338"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">f1</span>
-<a name="ln-339"></a>                  <span class="n">f1</span> <span class="o">=</span> <span class="n">f2</span>
-<a name="ln-340"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-341"></a>               <span class="k">else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&lt;</span> <span class="n">f1</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">f1</span> <span class="o">&lt;=</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Function appears to increase   </span>
+<a name="ln-265"></a>         <span class="k">function </span><span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a</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">fnew</span><span class="p">)</span>
+<a name="ln-266"></a>            <span class="k">implicit none</span>
+<a name="ln-267"></a>            <span class="c">! Arguments</span>
+<a name="ln-268"></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>
+<a name="ln-269"></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-270"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</span>
+<a name="ln-271"></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">a</span>
+<a name="ln-272"></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-273"></a>
+<a name="ln-274"></a>            <span class="c">! Return</span>
+<a name="ln-275"></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">fnew</span>
+<a name="ln-276"></a>            <span class="c">! Internals</span>
+<a name="ln-277"></a>            <span class="kt">real</span><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">xnew</span>
+<a name="ln-278"></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-279"></a>            
+<a name="ln-280"></a>            <span class="n">xnew</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x0</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">a</span> <span class="o">*</span> <span class="n">S</span><span class="p">(:)</span>
+<a name="ln-281"></a>            <span class="n">fnew</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">eval</span><span class="p">(</span><span class="n">xnew</span><span class="p">(:))</span>
+<a name="ln-282"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">f</span><span class="p">)</span>
+<a name="ln-283"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj_err</span><span class="p">)</span>
+<a name="ln-284"></a>               <span class="n">lerr</span> <span class="o">=</span> <span class="n">f</span><span class="p">%</span><span class="n">lerr</span>
+<a name="ln-285"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>
+<a name="ln-286"></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-287"></a>            <span class="k">end select</span>
+<a name="ln-288"></a><span class="k">            return </span>
+<a name="ln-289"></a><span class="k">         end function </span><span class="n">n2one</span>
+<a name="ln-290"></a>
+<a name="ln-291"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-292"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-293"></a>
+<a name="ln-294"></a>         <span class="k">subroutine </span><span class="n">bracket</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">gam</span><span class="p">,</span> <span class="n">step</span><span class="p">,</span> <span class="n">lo</span><span class="p">,</span> <span class="n">hi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-295"></a>            <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
+<a name="ln-296"></a>            <span class="c">!! This subroutine brackets the minimum.  It recieves as input:</span>
+<a name="ln-297"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
+<a name="ln-298"></a>            <span class="c">!!   x0   :  Array of size N of initial x values</span>
+<a name="ln-299"></a>            <span class="c">!!   S    :  Array of size N that determines the direction of minimization</span>
+<a name="ln-300"></a>            <span class="c">!!   gam  :  expansion parameter</span>
+<a name="ln-301"></a>            <span class="c">!!   step :  step size</span>
+<a name="ln-302"></a>            <span class="c">!!   lo   :  initial guess of lo bracket value</span>
+<a name="ln-303"></a>            <span class="c">!! The outputs include</span>
+<a name="ln-304"></a>            <span class="c">!!   lo   :  lo bracket</span>
+<a name="ln-305"></a>            <span class="c">!!   hi   :  hi bracket</span>
+<a name="ln-306"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
+<a name="ln-307"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-308"></a>            <span class="k">implicit none</span>
+<a name="ln-309"></a>            <span class="c">! Arguments</span>
+<a name="ln-310"></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>
+<a name="ln-311"></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-312"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</span>
+<a name="ln-313"></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">gam</span><span class="p">,</span> <span class="n">step</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lo</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">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">hi</span>
+<a name="ln-316"></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-317"></a>            <span class="c">! Internals</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="kd">::</span> <span class="n">a0</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">atmp</span><span class="p">,</span> <span class="n">da</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="kd">::</span> <span class="n">f0</span><span class="p">,</span> <span class="n">f1</span><span class="p">,</span> <span class="n">f2</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</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="k">parameter</span> <span class="kd">::</span> <span class="n">MAXLOOP</span> <span class="o">=</span> <span class="mi">100</span> <span class="c">! maximum number of loops before method is determined to have failed   </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">parameter</span> <span class="kd">::</span> <span class="n">eps</span> <span class="o">=</span> <span class="nb">epsilon</span><span class="p">(</span><span class="n">lo</span><span class="p">)</span> <span class="c">! small number precision to test floating point equality   </span>
+<a name="ln-323"></a>
+<a name="ln-324"></a>            <span class="c">! set up initial bracket points   </span>
+<a name="ln-325"></a>            <span class="n">a0</span> <span class="o">=</span>  <span class="n">lo</span>
+<a name="ln-326"></a>            <span class="n">da</span> <span class="o">=</span> <span class="n">step</span>
+<a name="ln-327"></a>            <span class="n">a1</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">+</span> <span class="n">da</span>
+<a name="ln-328"></a>            <span class="n">a2</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">+</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">da</span>
+<a name="ln-329"></a>            <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-330"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-331"></a><span class="k">            </span><span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-332"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-333"></a><span class="k">            </span><span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-334"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-335"></a>            <span class="c">! loop over bracket method until either min is bracketed method fails   </span>
+<a name="ln-336"></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">MAXLOOP</span> 
+<a name="ln-337"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&gt;</span> <span class="n">f1</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">f1</span> <span class="o">&lt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span>  <span class="c">! Minimum was found   </span>
+<a name="ln-338"></a>                  <span class="n">lo</span> <span class="o">=</span> <span class="n">a0</span>
+<a name="ln-339"></a>                  <span class="n">hi</span> <span class="o">=</span> <span class="n">a2</span>
+<a name="ln-340"></a>                  <span class="k">return </span>
+<a name="ln-341"></a><span class="k">               else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&gt;=</span> <span class="n">f1</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">f1</span> <span class="o">&gt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Function appears to decrease   </span>
 <a name="ln-342"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
-<a name="ln-343"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
-<a name="ln-344"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-345"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">a0</span>
-<a name="ln-346"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">atmp</span>
-<a name="ln-347"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
-<a name="ln-348"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-349"></a>               <span class="k">else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&lt;</span> <span class="n">f1</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">f1</span> <span class="o">&gt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! We are at a peak. Pick the direction that descends the fastest</span>
-<a name="ln-350"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
-<a name="ln-351"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">f2</span> <span class="o">&gt;</span> <span class="n">f0</span><span class="p">)</span> <span class="k">then</span> <span class="c">! LHS is lower than RHS</span>
-<a name="ln-352"></a>                     <span class="n">atmp</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
-<a name="ln-353"></a>                     <span class="n">a0</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-354"></a>                     <span class="n">a1</span> <span class="o">=</span> <span class="n">a2</span>
-<a name="ln-355"></a>                     <span class="n">a2</span> <span class="o">=</span> <span class="n">atmp</span>
-<a name="ln-356"></a>                     <span class="n">f0</span> <span class="o">=</span> <span class="n">f1</span>
-<a name="ln-357"></a>                     <span class="n">f1</span> <span class="o">=</span> <span class="n">f2</span>
-<a name="ln-358"></a>                     <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-359"></a>                  <span class="k">else</span> <span class="c">! RHS is lower than LHS</span>
-<a name="ln-360"></a>                     <span class="n">atmp</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
-<a name="ln-361"></a>                     <span class="n">a2</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-362"></a>                     <span class="n">a1</span> <span class="o">=</span> <span class="n">a0</span>
-<a name="ln-363"></a>                     <span class="n">a0</span> <span class="o">=</span> <span class="n">atmp</span>
-<a name="ln-364"></a>                     <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
-<a name="ln-365"></a>                     <span class="n">f1</span> <span class="o">=</span> <span class="n">f2</span>
-<a name="ln-366"></a>                     <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-367"></a>                  <span class="k">end if</span>
-<a name="ln-368"></a><span class="k">               else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&gt;</span> <span class="n">f1</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">abs</span><span class="p">(</span><span class="n">f2</span> <span class="o">-</span> <span class="n">f1</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">eps</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Decrasging but RHS equal   </span>
-<a name="ln-369"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
-<a name="ln-370"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
-<a name="ln-371"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">atmp</span>
-<a name="ln-372"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-373"></a>               <span class="k">else if</span> <span class="p">((</span><span class="nb">abs</span><span class="p">(</span><span class="n">f0</span> <span class="o">-</span> <span class="n">f1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</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">f1</span> <span class="o">&lt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Increasing but LHS equal   </span>
-<a name="ln-374"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
-<a name="ln-375"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
-<a name="ln-376"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">atmp</span>
-<a name="ln-377"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-378"></a>               <span class="k">else</span>  <span class="c">! all values equal. Expand in either direction and try again</span>
-<a name="ln-379"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
-<a name="ln-380"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
-<a name="ln-381"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-382"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span> <span class="c">! An error occurred while evaluating the function</span>
-<a name="ln-383"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-384"></a>               <span class="k">end if</span>
-<a name="ln-385"></a><span class="k">               if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span> <span class="c">! An error occurred while evaluating the function</span>
-<a name="ln-386"></a>            <span class="k">end do</span>
-<a name="ln-387"></a><span class="k">            </span><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-388"></a>            <span class="k">return</span> <span class="c">! no minimum found   </span>
-<a name="ln-389"></a>         <span class="k">end subroutine </span><span class="n">bracket</span>
-<a name="ln-390"></a>
-<a name="ln-391"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-392"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-393"></a>
-<a name="ln-394"></a>         <span class="k">subroutine </span><span class="n">golden</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">lo</span><span class="p">,</span> <span class="n">hi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> 
-<a name="ln-395"></a>            <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
-<a name="ln-396"></a>            <span class="c">!! This function uses the golden section method to reduce the starting interval lo, hi by some amount sigma.  </span>
-<a name="ln-397"></a>            <span class="c">!! It recieves as input:</span>
-<a name="ln-398"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
-<a name="ln-399"></a>            <span class="c">!!   x0   :  Array of size N of initial x values</span>
-<a name="ln-400"></a>            <span class="c">!!   S    :  Array of size N that determines the direction of minimization</span>
-<a name="ln-401"></a>            <span class="c">!!   gam  :  expansion parameter</span>
-<a name="ln-402"></a>            <span class="c">!!   eps  :  reduction interval in range (0 &lt; sigma &lt; 1) such that:</span>
-<a name="ln-403"></a>            <span class="c">!!             hi(new) - lo(new) = eps * (hi(old) - lo(old))</span>
-<a name="ln-404"></a>            <span class="c">!!   lo   :  initial guess of lo bracket value</span>
-<a name="ln-405"></a>            <span class="c">!! The outputs include</span>
-<a name="ln-406"></a>            <span class="c">!!   lo   :  lo bracket</span>
-<a name="ln-407"></a>            <span class="c">!!   hi   :  hi bracket</span>
-<a name="ln-408"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
-<a name="ln-409"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-410"></a>            <span class="k">implicit none</span>
-<a name="ln-411"></a>            <span class="c">! Arguments</span>
-<a name="ln-412"></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>
-<a name="ln-413"></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-414"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</span>
-<a name="ln-415"></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-416"></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">lo</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">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">hi</span>
-<a name="ln-418"></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-419"></a>            <span class="c">! Internals </span>
-<a name="ln-420"></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">tau</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="nb">sqrt</span><span class="p">(</span><span class="mf">5.0_DP</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span>  <span class="c">! Golden section constant   </span>
-<a name="ln-421"></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">MAXLOOP</span> <span class="o">=</span> <span class="mi">40</span> <span class="c">! maximum number of loops before method is determined to have failed (unlikely, but could occur if no minimum exists between lo and hi)   </span>
-<a name="ln-422"></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">i0</span> <span class="c">! Initial interval value   </span>
-<a name="ln-423"></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">a2</span>
-<a name="ln-424"></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">f1</span><span class="p">,</span> <span class="n">f2</span>
-<a name="ln-425"></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-426"></a>
-<a name="ln-427"></a>            <span class="n">i0</span> <span class="o">=</span>  <span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span>
-<a name="ln-428"></a>            <span class="n">a1</span> <span class="o">=</span>  <span class="n">hi</span> <span class="o">-</span> <span class="n">tau</span> <span class="o">*</span> <span class="n">i0</span>
-<a name="ln-429"></a>            <span class="n">a2</span> <span class="o">=</span>  <span class="n">lo</span> <span class="o">+</span> <span class="n">tau</span> <span class="o">*</span> <span class="n">i0</span>
-<a name="ln-430"></a>            <span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-431"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-432"></a><span class="k">            </span><span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-433"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-434"></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">MAXLOOP</span> 
-<a name="ln-435"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">((</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span> <span class="o">/</span> <span class="n">i0</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">eps</span><span class="p">)</span> <span class="k">return</span> <span class="c">! interval reduced to input amount   </span>
-<a name="ln-436"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">f2</span> <span class="o">&gt;</span> <span class="n">f1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-437"></a><span class="k">                  </span><span class="n">hi</span> <span class="o">=</span> <span class="n">a2</span>
-<a name="ln-438"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-439"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
-<a name="ln-440"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">hi</span> <span class="o">-</span> <span class="n">tau</span> <span class="o">*</span> <span class="p">(</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span>
-<a name="ln-441"></a>                  <span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-442"></a>               <span class="k">else </span>
-<a name="ln-443"></a><span class="k">                  </span><span class="n">lo</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-444"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">a2</span>
-<a name="ln-445"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
-<a name="ln-446"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">hi</span> <span class="o">-</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">tau</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span>
-<a name="ln-447"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-448"></a>               <span class="k">end if</span>
-<a name="ln-449"></a><span class="k">               if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-450"></a><span class="k">            end do</span>
-<a name="ln-451"></a><span class="k">            </span><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-452"></a>            <span class="k">return</span> <span class="c">! search took too many iterations - no minimum found   </span>
-<a name="ln-453"></a>         <span class="k">end subroutine </span><span class="n">golden</span>
-<a name="ln-454"></a>
-<a name="ln-455"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-456"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-457"></a>
-<a name="ln-458"></a>         <span class="k">subroutine </span><span class="n">quadfit</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">lo</span><span class="p">,</span> <span class="n">hi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> 
-<a name="ln-459"></a>            <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
-<a name="ln-460"></a>            <span class="c">!! This function uses a quadratic polynomial fit to locate the minimum of a function</span>
-<a name="ln-461"></a>            <span class="c">!! to some accuracy eps.  It recieves as input:</span>
-<a name="ln-462"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
-<a name="ln-463"></a>            <span class="c">!!   lo    :  low bracket value</span>
-<a name="ln-464"></a>            <span class="c">!!   hi    :  high bracket value</span>
-<a name="ln-465"></a>            <span class="c">!!   eps   :  desired accuracy of final minimum location</span>
-<a name="ln-466"></a>            <span class="c">!! The outputs include</span>
-<a name="ln-467"></a>            <span class="c">!!   lo   :  final minimum location</span>
-<a name="ln-468"></a>            <span class="c">!!   hi   :  final minimum location</span>
-<a name="ln-469"></a>            <span class="c">!! Notes: Uses the ieee_exceptions intrinsic module to allow for graceful failure due to floating point exceptions, which won&#39;t terminate the run.</span>
-<a name="ln-470"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
-<a name="ln-471"></a>            <span class="k">implicit none</span>
-<a name="ln-472"></a>            <span class="c">! Arguments</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">N</span>
-<a name="ln-474"></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-475"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</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">eps</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">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lo</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">hi</span>
-<a name="ln-479"></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-480"></a>            <span class="c">! Internals </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">parameter</span> <span class="kd">::</span> <span class="n">MAXLOOP</span> <span class="o">=</span> <span class="mi">20</span> <span class="c">! maximum number of loops before method is determined to have failed.   </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="kd">::</span> <span class="n">a1</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">a3</span><span class="p">,</span> <span class="n">astar</span>   <span class="c">! three points for the polynomial fit and polynomial minimum   </span>
-<a name="ln-483"></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">f1</span><span class="p">,</span> <span class="n">f2</span><span class="p">,</span> <span class="n">f3</span><span class="p">,</span> <span class="n">fstar</span>   <span class="c">! three function values for the polynomial and polynomial minimum   </span>
-<a name="ln-484"></a>            <span class="kt">real</span><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">3</span><span class="p">)</span> <span class="kd">::</span> <span class="n">row_1</span><span class="p">,</span> <span class="n">row_2</span><span class="p">,</span> <span class="n">row_3</span><span class="p">,</span> <span class="n">rhs</span><span class="p">,</span> <span class="n">soln</span>        <span class="c">! matrix for 3 equation solver (gaussian elimination)   </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="mi">3</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lhs</span>
-<a name="ln-486"></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">d1</span><span class="p">,</span> <span class="n">d2</span><span class="p">,</span> <span class="n">d3</span><span class="p">,</span> <span class="n">aold</span><span class="p">,</span> <span class="n">denom</span><span class="p">,</span> <span class="n">errval</span>
-<a name="ln-487"></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-488"></a>
-<a name="ln-489"></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-490"></a>            <span class="c">! Get initial a1, a2, a3 values   </span>
-<a name="ln-491"></a>            <span class="n">a1</span> <span class="o">=</span>  <span class="n">lo</span>
-<a name="ln-492"></a>            <span class="n">a2</span> <span class="o">=</span>  <span class="n">lo</span> <span class="o">+</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span>
-<a name="ln-493"></a>            <span class="n">a3</span> <span class="o">=</span>  <span class="n">hi</span>
-<a name="ln-494"></a>            <span class="n">aold</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-495"></a>            <span class="n">astar</span> <span class="o">=</span> <span class="n">a2</span>
-<a name="ln-496"></a>            <span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-497"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-498"></a><span class="k">            </span><span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-499"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-500"></a><span class="k">            </span><span class="n">f3</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a3</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-501"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-502"></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">MAXLOOP</span> 
-<a name="ln-503"></a>               <span class="c">! check to see if convergence is reached and exit   </span>
-<a name="ln-504"></a>               <span class="n">errval</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">((</span><span class="n">astar</span> <span class="o">-</span> <span class="n">aold</span><span class="p">)</span> <span class="o">/</span> <span class="n">astar</span><span class="p">)</span>
-<a name="ln-505"></a>               <span class="k">call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
-<a name="ln-506"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-507"></a>                  <span class="c">!write(*,*) &#39;quadfit fpe&#39;</span>
-<a name="ln-508"></a>                  <span class="c">!write(*,*) &#39;aold : &#39;,aold</span>
-<a name="ln-509"></a>                  <span class="c">!write(*,*) &#39;astar: &#39;,astar</span>
-<a name="ln-510"></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-511"></a>                  <span class="k">exit</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">errval</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-514"></a><span class="k">                  </span><span class="n">lo</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-515"></a>                  <span class="n">hi</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-516"></a>                  <span class="k">exit</span>
-<a name="ln-517"></a><span class="k">               end if</span>
-<a name="ln-518"></a>               <span class="c">! Set up system for gaussian elimination equation solver   </span>
-<a name="ln-519"></a>               <span class="n">row_1</span> <span class="o">=</span> <span class="p">[</span><span class="mf">1.0_DP</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">a1</span><span class="o">**</span><span class="mi">2</span><span class="p">]</span>
-<a name="ln-520"></a>               <span class="n">row_2</span> <span class="o">=</span> <span class="p">[</span><span class="mf">1.0_DP</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">a2</span><span class="o">**</span><span class="mi">2</span><span class="p">]</span>
-<a name="ln-521"></a>               <span class="n">row_3</span> <span class="o">=</span> <span class="p">[</span><span class="mf">1.0_DP</span><span class="p">,</span> <span class="n">a3</span><span class="p">,</span> <span class="n">a3</span><span class="o">**</span><span class="mi">2</span><span class="p">]</span>
-<a name="ln-522"></a>               <span class="n">rhs</span> <span class="o">=</span> <span class="p">[</span><span class="n">f1</span><span class="p">,</span> <span class="n">f2</span><span class="p">,</span> <span class="n">f3</span><span class="p">]</span>
-<a name="ln-523"></a>               <span class="n">lhs</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">row_1</span>
-<a name="ln-524"></a>               <span class="n">lhs</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">row_2</span>
-<a name="ln-525"></a>               <span class="n">lhs</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">row_3</span>
-<a name="ln-526"></a>               <span class="c">! Solve system of equations   </span>
-<a name="ln-527"></a>               <span class="n">soln</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">util_solve_linear_system</span><span class="p">(</span><span class="n">lhs</span><span class="p">,</span> <span class="n">rhs</span><span class="p">,</span> <span class="mi">3</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-528"></a>               <span class="k">call </span><span class="n">ieee_set_flag</span><span class="p">(</span><span class="n">ieee_all</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span> <span class="c">! Set all flags back to quiet</span>
-<a name="ln-529"></a>               <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">ieee_divide_by_zero</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-530"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-531"></a>                  <span class="c">!write(*,*) &#39;quadfit fpe:&#39;</span>
-<a name="ln-532"></a>                  <span class="c">!write(*,*) &#39;util_solve_linear_system failed&#39;</span>
-<a name="ln-533"></a>                  <span class="k">exit</span>
-<a name="ln-534"></a><span class="k">               end if</span>
-<a name="ln-535"></a><span class="k">               </span><span class="n">aold</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-536"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">soln</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">==</span> <span class="n">soln</span><span class="p">(</span><span class="mi">3</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Handles the case where they are both 0. 0/0 is an unhandled exception</span>
-<a name="ln-537"></a>                  <span class="n">astar</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span>
-<a name="ln-538"></a>               <span class="k">else</span>
-<a name="ln-539"></a><span class="k">                  </span><span class="n">astar</span> <span class="o">=</span>  <span class="o">-</span><span class="n">soln</span><span class="p">(</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">soln</span><span class="p">(</span><span class="mi">3</span><span class="p">))</span>
-<a name="ln-540"></a>               <span class="k">end if</span>
-<a name="ln-541"></a><span class="k">               call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
-<a name="ln-542"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-543"></a>                  <span class="c">!write(*,*) &#39;quadfit fpe&#39;</span>
-<a name="ln-544"></a>                  <span class="c">!write(*,*) &#39;soln(2:3): &#39;,soln(2:3)</span>
-<a name="ln-545"></a>                  <span class="c">!write(*,*) &#39;a1, a2, a3&#39;</span>
-<a name="ln-546"></a>                  <span class="c">!write(*,*) a1, a2, a3</span>
-<a name="ln-547"></a>                  <span class="c">!write(*,*) &#39;f1, f2, f3&#39;</span>
-<a name="ln-548"></a>                  <span class="c">!write(*,*) f1, f2, f3</span>
-<a name="ln-549"></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-550"></a>                  <span class="k">exit</span>
-<a name="ln-551"></a><span class="k">               end if</span>
-<a name="ln-552"></a><span class="k">               </span><span class="n">fstar</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">astar</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-553"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-554"></a>               <span class="c">! keep the three closest a values to astar and discard the fourth  </span>
-<a name="ln-555"></a>               <span class="n">d1</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">a1</span> <span class="o">-</span> <span class="n">astar</span><span class="p">)</span>
-<a name="ln-556"></a>               <span class="n">d2</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">a2</span> <span class="o">-</span> <span class="n">astar</span><span class="p">)</span>
-<a name="ln-557"></a>               <span class="n">d3</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">a3</span> <span class="o">-</span> <span class="n">astar</span><span class="p">)</span>
-<a name="ln-558"></a>
-<a name="ln-559"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">d1</span> <span class="o">&gt;</span> <span class="n">d2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-560"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">d1</span> <span class="o">&gt;</span> <span class="n">d3</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-561"></a><span class="k">                     </span><span class="n">f1</span> <span class="o">=</span> <span class="n">fstar</span>
-<a name="ln-562"></a>                     <span class="n">a1</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-563"></a>                  <span class="k">else if</span> <span class="p">(</span><span class="n">d3</span> <span class="o">&gt;</span> <span class="n">d2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-564"></a><span class="k">                     </span><span class="n">f3</span> <span class="o">=</span> <span class="n">fstar</span>
-<a name="ln-565"></a>                     <span class="n">a3</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-566"></a>                  <span class="k">end if</span>
-<a name="ln-567"></a><span class="k">               else </span>
-<a name="ln-568"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">d2</span> <span class="o">&gt;</span> <span class="n">d3</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-569"></a><span class="k">                     </span><span class="n">f2</span> <span class="o">=</span> <span class="n">fstar</span>
-<a name="ln-570"></a>                     <span class="n">a2</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-571"></a>                  <span class="k">else if</span> <span class="p">(</span><span class="n">d3</span> <span class="o">&gt;</span> <span class="n">d1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-572"></a><span class="k">                     </span><span class="n">f3</span> <span class="o">=</span> <span class="n">fstar</span>
-<a name="ln-573"></a>                     <span class="n">a3</span> <span class="o">=</span> <span class="n">astar</span>
-<a name="ln-574"></a>                  <span class="k">end if</span>
-<a name="ln-575"></a><span class="k">               end if</span>
-<a name="ln-576"></a><span class="k">            end do</span>
-<a name="ln-577"></a><span class="k">            if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-578"></a><span class="k">            </span><span class="n">lo</span> <span class="o">=</span> <span class="n">a1</span>
-<a name="ln-579"></a>            <span class="n">hi</span> <span class="o">=</span> <span class="n">a3</span>
-<a name="ln-580"></a>            <span class="k">return </span>
-<a name="ln-581"></a><span class="k">         end subroutine </span><span class="n">quadfit</span>
-<a name="ln-582"></a>
-<a name="ln-583"></a>   <span class="k">end function </span><span class="n">util_minimize_bfgs</span>
-<a name="ln-584"></a><span class="k">end submodule </span><span class="n">s_util_minimize_bfgs</span>
+<a name="ln-343"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
+<a name="ln-344"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-345"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">a2</span>
+<a name="ln-346"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">atmp</span>
+<a name="ln-347"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">f1</span>
+<a name="ln-348"></a>                  <span class="n">f1</span> <span class="o">=</span> <span class="n">f2</span>
+<a name="ln-349"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-350"></a>               <span class="k">else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&lt;</span> <span class="n">f1</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">f1</span> <span class="o">&lt;=</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Function appears to increase   </span>
+<a name="ln-351"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
+<a name="ln-352"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
+<a name="ln-353"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-354"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">a0</span>
+<a name="ln-355"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">atmp</span>
+<a name="ln-356"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
+<a name="ln-357"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-358"></a>               <span class="k">else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&lt;</span> <span class="n">f1</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">f1</span> <span class="o">&gt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! We are at a peak. Pick the direction that descends the fastest</span>
+<a name="ln-359"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
+<a name="ln-360"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">f2</span> <span class="o">&gt;</span> <span class="n">f0</span><span class="p">)</span> <span class="k">then</span> <span class="c">! LHS is lower than RHS</span>
+<a name="ln-361"></a>                     <span class="n">atmp</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
+<a name="ln-362"></a>                     <span class="n">a0</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-363"></a>                     <span class="n">a1</span> <span class="o">=</span> <span class="n">a2</span>
+<a name="ln-364"></a>                     <span class="n">a2</span> <span class="o">=</span> <span class="n">atmp</span>
+<a name="ln-365"></a>                     <span class="n">f0</span> <span class="o">=</span> <span class="n">f1</span>
+<a name="ln-366"></a>                     <span class="n">f1</span> <span class="o">=</span> <span class="n">f2</span>
+<a name="ln-367"></a>                     <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-368"></a>                  <span class="k">else</span> <span class="c">! RHS is lower than LHS</span>
+<a name="ln-369"></a>                     <span class="n">atmp</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
+<a name="ln-370"></a>                     <span class="n">a2</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-371"></a>                     <span class="n">a1</span> <span class="o">=</span> <span class="n">a0</span>
+<a name="ln-372"></a>                     <span class="n">a0</span> <span class="o">=</span> <span class="n">atmp</span>
+<a name="ln-373"></a>                     <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
+<a name="ln-374"></a>                     <span class="n">f1</span> <span class="o">=</span> <span class="n">f2</span>
+<a name="ln-375"></a>                     <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-376"></a>                  <span class="k">end if</span>
+<a name="ln-377"></a><span class="k">               else if</span> <span class="p">((</span><span class="n">f0</span> <span class="o">&gt;</span> <span class="n">f1</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">abs</span><span class="p">(</span><span class="n">f2</span> <span class="o">-</span> <span class="n">f1</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">eps</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Decrasging but RHS equal   </span>
+<a name="ln-378"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
+<a name="ln-379"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
+<a name="ln-380"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">atmp</span>
+<a name="ln-381"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-382"></a>               <span class="k">else if</span> <span class="p">((</span><span class="nb">abs</span><span class="p">(</span><span class="n">f0</span> <span class="o">-</span> <span class="n">f1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">eps</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">f1</span> <span class="o">&lt;</span> <span class="n">f2</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Increasing but LHS equal   </span>
+<a name="ln-383"></a>                  <span class="n">da</span> <span class="o">=</span> <span class="n">da</span> <span class="o">*</span> <span class="n">gam</span>
+<a name="ln-384"></a>                  <span class="n">atmp</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
+<a name="ln-385"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">atmp</span>
+<a name="ln-386"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-387"></a>               <span class="k">else</span>  <span class="c">! all values equal. Expand in either direction and try again</span>
+<a name="ln-388"></a>                  <span class="n">a0</span> <span class="o">=</span> <span class="n">a0</span> <span class="o">-</span> <span class="n">da</span>
+<a name="ln-389"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">a2</span> <span class="o">+</span> <span class="n">da</span>
+<a name="ln-390"></a>                  <span class="n">f0</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a0</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-391"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span> <span class="c">! An error occurred while evaluating the function</span>
+<a name="ln-392"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-393"></a>               <span class="k">end if</span>
+<a name="ln-394"></a><span class="k">               if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span> <span class="c">! An error occurred while evaluating the function</span>
+<a name="ln-395"></a>            <span class="k">end do</span>
+<a name="ln-396"></a><span class="k">            </span><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-397"></a>            <span class="k">return</span> <span class="c">! no minimum found   </span>
+<a name="ln-398"></a>         <span class="k">end subroutine </span><span class="n">bracket</span>
+<a name="ln-399"></a>
+<a name="ln-400"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-401"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-402"></a>
+<a name="ln-403"></a>         <span class="k">subroutine </span><span class="n">golden</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">lo</span><span class="p">,</span> <span class="n">hi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> 
+<a name="ln-404"></a>            <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
+<a name="ln-405"></a>            <span class="c">!! This function uses the golden section method to reduce the starting interval lo, hi by some amount sigma.  </span>
+<a name="ln-406"></a>            <span class="c">!! It recieves as input:</span>
+<a name="ln-407"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
+<a name="ln-408"></a>            <span class="c">!!   x0   :  Array of size N of initial x values</span>
+<a name="ln-409"></a>            <span class="c">!!   S    :  Array of size N that determines the direction of minimization</span>
+<a name="ln-410"></a>            <span class="c">!!   gam  :  expansion parameter</span>
+<a name="ln-411"></a>            <span class="c">!!   eps  :  reduction interval in range (0 &lt; sigma &lt; 1) such that:</span>
+<a name="ln-412"></a>            <span class="c">!!             hi(new) - lo(new) = eps * (hi(old) - lo(old))</span>
+<a name="ln-413"></a>            <span class="c">!!   lo   :  initial guess of lo bracket value</span>
+<a name="ln-414"></a>            <span class="c">!! The outputs include</span>
+<a name="ln-415"></a>            <span class="c">!!   lo   :  lo bracket</span>
+<a name="ln-416"></a>            <span class="c">!!   hi   :  hi bracket</span>
+<a name="ln-417"></a>            <span class="c">!!   lerr : .true. if an error occurred. Otherwise returns .false.</span>
+<a name="ln-418"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-419"></a>            <span class="k">implicit none</span>
+<a name="ln-420"></a>            <span class="c">! Arguments</span>
+<a name="ln-421"></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>
+<a name="ln-422"></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-423"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</span>
+<a name="ln-424"></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-425"></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">lo</span>
+<a name="ln-426"></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">hi</span>
+<a name="ln-427"></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-428"></a>            <span class="c">! Internals </span>
+<a name="ln-429"></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">tau</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="nb">sqrt</span><span class="p">(</span><span class="mf">5.0_DP</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span>  <span class="c">! Golden section constant   </span>
+<a name="ln-430"></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">MAXLOOP</span> <span class="o">=</span> <span class="mi">40</span> <span class="c">! maximum number of loops before method is determined to have failed (unlikely, but could occur if no minimum exists between lo and hi)   </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="kd">::</span> <span class="n">i0</span> <span class="c">! Initial interval value   </span>
+<a name="ln-432"></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">a2</span>
+<a name="ln-433"></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">f1</span><span class="p">,</span> <span class="n">f2</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-435"></a>
+<a name="ln-436"></a>            <span class="n">i0</span> <span class="o">=</span>  <span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span>
+<a name="ln-437"></a>            <span class="n">a1</span> <span class="o">=</span>  <span class="n">hi</span> <span class="o">-</span> <span class="n">tau</span> <span class="o">*</span> <span class="n">i0</span>
+<a name="ln-438"></a>            <span class="n">a2</span> <span class="o">=</span>  <span class="n">lo</span> <span class="o">+</span> <span class="n">tau</span> <span class="o">*</span> <span class="n">i0</span>
+<a name="ln-439"></a>            <span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-440"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-441"></a><span class="k">            </span><span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-442"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-443"></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">MAXLOOP</span> 
+<a name="ln-444"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">((</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span> <span class="o">/</span> <span class="n">i0</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">eps</span><span class="p">)</span> <span class="k">return</span> <span class="c">! interval reduced to input amount   </span>
+<a name="ln-445"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">f2</span> <span class="o">&gt;</span> <span class="n">f1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-446"></a><span class="k">                  </span><span class="n">hi</span> <span class="o">=</span> <span class="n">a2</span>
+<a name="ln-447"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-448"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
+<a name="ln-449"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">hi</span> <span class="o">-</span> <span class="n">tau</span> <span class="o">*</span> <span class="p">(</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span>
+<a name="ln-450"></a>                  <span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-451"></a>               <span class="k">else </span>
+<a name="ln-452"></a><span class="k">                  </span><span class="n">lo</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-453"></a>                  <span class="n">a1</span> <span class="o">=</span> <span class="n">a2</span>
+<a name="ln-454"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">f1</span>
+<a name="ln-455"></a>                  <span class="n">a2</span> <span class="o">=</span> <span class="n">hi</span> <span class="o">-</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">tau</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span>
+<a name="ln-456"></a>                  <span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-457"></a>               <span class="k">end if</span>
+<a name="ln-458"></a><span class="k">               if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-459"></a><span class="k">            end do</span>
+<a name="ln-460"></a><span class="k">            </span><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-461"></a>            <span class="k">return</span> <span class="c">! search took too many iterations - no minimum found   </span>
+<a name="ln-462"></a>         <span class="k">end subroutine </span><span class="n">golden</span>
+<a name="ln-463"></a>
+<a name="ln-464"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-465"></a>         <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-466"></a>
+<a name="ln-467"></a>         <span class="k">subroutine </span><span class="n">quadfit</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">lo</span><span class="p">,</span> <span class="n">hi</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> 
+<a name="ln-468"></a>            <span class="c">! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - </span>
+<a name="ln-469"></a>            <span class="c">!! This function uses a quadratic polynomial fit to locate the minimum of a function</span>
+<a name="ln-470"></a>            <span class="c">!! to some accuracy eps.  It recieves as input:</span>
+<a name="ln-471"></a>            <span class="c">!!   f%eval(x) : lambda function object containing the objective function as the eval metho</span>
+<a name="ln-472"></a>            <span class="c">!!   lo    :  low bracket value</span>
+<a name="ln-473"></a>            <span class="c">!!   hi    :  high bracket value</span>
+<a name="ln-474"></a>            <span class="c">!!   eps   :  desired accuracy of final minimum location</span>
+<a name="ln-475"></a>            <span class="c">!! The outputs include</span>
+<a name="ln-476"></a>            <span class="c">!!   lo   :  final minimum location</span>
+<a name="ln-477"></a>            <span class="c">!!   hi   :  final minimum location</span>
+<a name="ln-478"></a>            <span class="c">!! Notes: Uses the ieee_exceptions intrinsic module to allow for graceful failure due to floating point exceptions, which won&#39;t terminate the run.</span>
+<a name="ln-479"></a>            <span class="c">!! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  -   </span>
+<a name="ln-480"></a>            <span class="k">implicit none</span>
+<a name="ln-481"></a>            <span class="c">! Arguments</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">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-483"></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-484"></a>            <span class="kt">real</span><span 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><span class="p">,</span> <span class="n">S</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">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-486"></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">lo</span>
+<a name="ln-487"></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">hi</span>
+<a name="ln-488"></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-489"></a>            <span class="c">! Internals </span>
+<a name="ln-490"></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">MAXLOOP</span> <span class="o">=</span> <span class="mi">20</span> <span class="c">! maximum number of loops before method is determined to have failed.   </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="kd">::</span> <span class="n">a1</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">a3</span><span class="p">,</span> <span class="n">astar</span>   <span class="c">! three points for the polynomial fit and polynomial minimum   </span>
+<a name="ln-492"></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">f1</span><span class="p">,</span> <span class="n">f2</span><span class="p">,</span> <span class="n">f3</span><span class="p">,</span> <span class="n">fstar</span>   <span class="c">! three function values for the polynomial and polynomial minimum   </span>
+<a name="ln-493"></a>            <span class="kt">real</span><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">3</span><span class="p">)</span> <span class="kd">::</span> <span class="n">row_1</span><span class="p">,</span> <span class="n">row_2</span><span class="p">,</span> <span class="n">row_3</span><span class="p">,</span> <span class="n">rhs</span><span class="p">,</span> <span class="n">soln</span>        <span class="c">! matrix for 3 equation solver (gaussian elimination)   </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">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="mi">3</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lhs</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="kd">::</span> <span class="n">d1</span><span class="p">,</span> <span class="n">d2</span><span class="p">,</span> <span class="n">d3</span><span class="p">,</span> <span class="n">aold</span><span class="p">,</span> <span class="n">denom</span><span class="p">,</span> <span class="n">errval</span>
+<a name="ln-496"></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-497"></a>
+<a name="ln-498"></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-499"></a>            <span class="c">! Get initial a1, a2, a3 values   </span>
+<a name="ln-500"></a>            <span class="n">a1</span> <span class="o">=</span>  <span class="n">lo</span>
+<a name="ln-501"></a>            <span class="n">a2</span> <span class="o">=</span>  <span class="n">lo</span> <span class="o">+</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">hi</span> <span class="o">-</span> <span class="n">lo</span><span class="p">)</span>
+<a name="ln-502"></a>            <span class="n">a3</span> <span class="o">=</span>  <span class="n">hi</span>
+<a name="ln-503"></a>            <span class="n">aold</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-504"></a>            <span class="n">astar</span> <span class="o">=</span> <span class="n">a2</span>
+<a name="ln-505"></a>            <span class="n">f1</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-506"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-507"></a><span class="k">            </span><span class="n">f2</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-508"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-509"></a><span class="k">            </span><span class="n">f3</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">a3</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-510"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-511"></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">MAXLOOP</span> 
+<a name="ln-512"></a>               <span class="c">! check to see if convergence is reached and exit   </span>
+<a name="ln-513"></a>               <span class="n">errval</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">((</span><span class="n">astar</span> <span class="o">-</span> <span class="n">aold</span><span class="p">)</span> <span class="o">/</span> <span class="n">astar</span><span class="p">)</span>
+<a name="ln-514"></a>               <span class="k">call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
+<a name="ln-515"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-516"></a>                  <span class="c">!write(*,*) &#39;quadfit fpe&#39;</span>
+<a name="ln-517"></a>                  <span class="c">!write(*,*) &#39;aold : &#39;,aold</span>
+<a name="ln-518"></a>                  <span class="c">!write(*,*) &#39;astar: &#39;,astar</span>
+<a name="ln-519"></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-520"></a>                  <span class="k">exit</span>
+<a name="ln-521"></a><span class="k">               end if</span>
+<a name="ln-522"></a><span class="k">               if</span> <span class="p">(</span><span class="n">errval</span> <span class="o">&lt;</span> <span class="n">eps</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-523"></a><span class="k">                  </span><span class="n">lo</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-524"></a>                  <span class="n">hi</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-525"></a>                  <span class="k">exit</span>
+<a name="ln-526"></a><span class="k">               end if</span>
+<a name="ln-527"></a>               <span class="c">! Set up system for gaussian elimination equation solver   </span>
+<a name="ln-528"></a>               <span class="n">row_1</span> <span class="o">=</span> <span class="p">[</span><span class="mf">1.0_DP</span><span class="p">,</span> <span class="n">a1</span><span class="p">,</span> <span class="n">a1</span><span class="o">**</span><span class="mi">2</span><span class="p">]</span>
+<a name="ln-529"></a>               <span class="n">row_2</span> <span class="o">=</span> <span class="p">[</span><span class="mf">1.0_DP</span><span class="p">,</span> <span class="n">a2</span><span class="p">,</span> <span class="n">a2</span><span class="o">**</span><span class="mi">2</span><span class="p">]</span>
+<a name="ln-530"></a>               <span class="n">row_3</span> <span class="o">=</span> <span class="p">[</span><span class="mf">1.0_DP</span><span class="p">,</span> <span class="n">a3</span><span class="p">,</span> <span class="n">a3</span><span class="o">**</span><span class="mi">2</span><span class="p">]</span>
+<a name="ln-531"></a>               <span class="n">rhs</span> <span class="o">=</span> <span class="p">[</span><span class="n">f1</span><span class="p">,</span> <span class="n">f2</span><span class="p">,</span> <span class="n">f3</span><span class="p">]</span>
+<a name="ln-532"></a>               <span class="n">lhs</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">row_1</span>
+<a name="ln-533"></a>               <span class="n">lhs</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">row_2</span>
+<a name="ln-534"></a>               <span class="n">lhs</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span> <span class="o">=</span> <span class="n">row_3</span>
+<a name="ln-535"></a>               <span class="c">! Solve system of equations   </span>
+<a name="ln-536"></a>               <span class="n">soln</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">util_solve_linear_system</span><span class="p">(</span><span class="n">lhs</span><span class="p">,</span> <span class="n">rhs</span><span class="p">,</span> <span class="mi">3</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-537"></a>               <span class="k">call </span><span class="n">ieee_set_flag</span><span class="p">(</span><span class="n">ieee_all</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span> <span class="c">! Set all flags back to quiet</span>
+<a name="ln-538"></a>               <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">ieee_divide_by_zero</span><span class="p">,</span> <span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-539"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-540"></a>                  <span class="c">!write(*,*) &#39;quadfit fpe:&#39;</span>
+<a name="ln-541"></a>                  <span class="c">!write(*,*) &#39;util_solve_linear_system failed&#39;</span>
+<a name="ln-542"></a>                  <span class="k">exit</span>
+<a name="ln-543"></a><span class="k">               end if</span>
+<a name="ln-544"></a><span class="k">               </span><span class="n">aold</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-545"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">soln</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">==</span> <span class="n">soln</span><span class="p">(</span><span class="mi">3</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Handles the case where they are both 0. 0/0 is an unhandled exception</span>
+<a name="ln-546"></a>                  <span class="n">astar</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.5_DP</span>
+<a name="ln-547"></a>               <span class="k">else</span>
+<a name="ln-548"></a><span class="k">                  </span><span class="n">astar</span> <span class="o">=</span>  <span class="o">-</span><span class="n">soln</span><span class="p">(</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">soln</span><span class="p">(</span><span class="mi">3</span><span class="p">))</span>
+<a name="ln-549"></a>               <span class="k">end if</span>
+<a name="ln-550"></a><span class="k">               call </span><span class="n">ieee_get_flag</span><span class="p">(</span><span class="n">ieee_usual</span><span class="p">,</span> <span class="n">fpe_flag</span><span class="p">)</span>
+<a name="ln-551"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">fpe_flag</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-552"></a>                  <span class="c">!write(*,*) &#39;quadfit fpe&#39;</span>
+<a name="ln-553"></a>                  <span class="c">!write(*,*) &#39;soln(2:3): &#39;,soln(2:3)</span>
+<a name="ln-554"></a>                  <span class="c">!write(*,*) &#39;a1, a2, a3&#39;</span>
+<a name="ln-555"></a>                  <span class="c">!write(*,*) a1, a2, a3</span>
+<a name="ln-556"></a>                  <span class="c">!write(*,*) &#39;f1, f2, f3&#39;</span>
+<a name="ln-557"></a>                  <span class="c">!write(*,*) f1, f2, f3</span>
+<a name="ln-558"></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-559"></a>                  <span class="k">exit</span>
+<a name="ln-560"></a><span class="k">               end if</span>
+<a name="ln-561"></a><span class="k">               </span><span class="n">fstar</span> <span class="o">=</span> <span class="n">n2one</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">S</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">astar</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-562"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-563"></a>               <span class="c">! keep the three closest a values to astar and discard the fourth  </span>
+<a name="ln-564"></a>               <span class="n">d1</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">a1</span> <span class="o">-</span> <span class="n">astar</span><span class="p">)</span>
+<a name="ln-565"></a>               <span class="n">d2</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">a2</span> <span class="o">-</span> <span class="n">astar</span><span class="p">)</span>
+<a name="ln-566"></a>               <span class="n">d3</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">a3</span> <span class="o">-</span> <span class="n">astar</span><span class="p">)</span>
+<a name="ln-567"></a>
+<a name="ln-568"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">d1</span> <span class="o">&gt;</span> <span class="n">d2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-569"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">d1</span> <span class="o">&gt;</span> <span class="n">d3</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-570"></a><span class="k">                     </span><span class="n">f1</span> <span class="o">=</span> <span class="n">fstar</span>
+<a name="ln-571"></a>                     <span class="n">a1</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-572"></a>                  <span class="k">else if</span> <span class="p">(</span><span class="n">d3</span> <span class="o">&gt;</span> <span class="n">d2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-573"></a><span class="k">                     </span><span class="n">f3</span> <span class="o">=</span> <span class="n">fstar</span>
+<a name="ln-574"></a>                     <span class="n">a3</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-575"></a>                  <span class="k">end if</span>
+<a name="ln-576"></a><span class="k">               else </span>
+<a name="ln-577"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">d2</span> <span class="o">&gt;</span> <span class="n">d3</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-578"></a><span class="k">                     </span><span class="n">f2</span> <span class="o">=</span> <span class="n">fstar</span>
+<a name="ln-579"></a>                     <span class="n">a2</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-580"></a>                  <span class="k">else if</span> <span class="p">(</span><span class="n">d3</span> <span class="o">&gt;</span> <span class="n">d1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-581"></a><span class="k">                     </span><span class="n">f3</span> <span class="o">=</span> <span class="n">fstar</span>
+<a name="ln-582"></a>                     <span class="n">a3</span> <span class="o">=</span> <span class="n">astar</span>
+<a name="ln-583"></a>                  <span class="k">end if</span>
+<a name="ln-584"></a><span class="k">               end if</span>
+<a name="ln-585"></a><span class="k">            end do</span>
+<a name="ln-586"></a><span class="k">            if</span> <span class="p">(</span><span class="n">lerr</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-587"></a><span class="k">            </span><span class="n">lo</span> <span class="o">=</span> <span class="n">a1</span>
+<a name="ln-588"></a>            <span class="n">hi</span> <span class="o">=</span> <span class="n">a3</span>
+<a name="ln-589"></a>            <span class="k">return </span>
+<a name="ln-590"></a><span class="k">         end subroutine </span><span class="n">quadfit</span>
+<a name="ln-591"></a>
+<a name="ln-592"></a>   <span class="k">end function </span><span class="n">util_minimize_bfgs</span>
+<a name="ln-593"></a><span class="k">end submodule </span><span class="n">s_util_minimize_bfgs</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_peri.f90.html b/docs/sourcefile/util_peri.f90.html
index 3a61d5b7e..be7dfcf17 100644
--- a/docs/sourcefile/util_peri.f90.html
+++ b/docs/sourcefile/util_peri.f90.html
@@ -134,7 +134,7 @@ <h1>util_peri.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.4% of total for source files.">50 statements</a>
+    title=" 0.3% of total for source files.">50 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_perif90EfferentGraph" width="641pt" height="298pt"
+ viewBox="0.00 0.00 641.00 297.69" 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 412.12)">
 <title>sourcefile~~util_peri.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 885,-301.25 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 892,-412.12 892,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,-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>
+<polygon fill="none" stroke="black" points="888,-133.12 820,-133.12 820,-109.12 888,-109.12 888,-133.12"/>
+<text text-anchor="middle" x="854" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M832.76,-109.09C794.34,-87.43 707.61,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.21,-133.4C823.06,-149.87 792.42,-179.29 772.16,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="769.48,-196.48 764.69,-205.93 774.32,-201.53 769.48,-196.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_peri.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_peri.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_peri.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_peri.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_peri.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_rescale.f90.html b/docs/sourcefile/util_rescale.f90.html
index 6aec62b2d..1e2d8b83d 100644
--- a/docs/sourcefile/util_rescale.f90.html
+++ b/docs/sourcefile/util_rescale.f90.html
@@ -134,7 +134,7 @@ <h1>util_rescale.f90
      <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>
+    title=" 0.2% of total for source files.">37 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- 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)">
+<svg id="sourcefileutil_rescalef90EfferentGraph" width="641pt" height="292pt"
+ viewBox="0.00 0.00 641.00 292.15" 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.7 0.7) rotate(0) translate(4 412.12)">
 <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"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 909,-412.12 909,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>
+<polygon fill="none" stroke="black" points="905,-133.12 820,-133.12 820,-109.12 905,-109.12 905,-133.12"/>
+<text text-anchor="middle" x="862.5" y="-118.72" 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.43,-109.09C800.46,-87.43 710.3,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M847.63,-133.4C828.87,-150.02 795.24,-179.82 773.27,-199.27"/>
+<polygon fill="#000000" stroke="#000000" points="770.92,-196.68 765.76,-205.93 775.56,-201.92 770.92,-196.68"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node7" 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>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node6" 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>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_rescale.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -580,36 +634,38 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-23"></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-24"></a>         <span class="c">! Calculate the inverse speed of light in the system units</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="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-26"></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-27"></a>      <span class="k">end if</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-29"></a><span class="k">      </span><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-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-31"></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-32"></a>
+<a name="ln-33"></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-34"></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-35"></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-36"></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-37"></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-38"></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-39"></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-40"></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-41"></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-42"></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-43"></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-44"></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-45"></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-46"></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-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>
+<a name="ln-48"></a>      <span class="k">end associate</span>
+<a name="ln-49"></a>
+<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_rescale_system</span> 
+<a name="ln-53"></a>
+<a name="ln-54"></a><span class="k">end submodule </span><span class="n">s_util_rescale</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_resize.f90.html b/docs/sourcefile/util_resize.f90.html
index 7d4c42a19..cfea8c661 100644
--- a/docs/sourcefile/util_resize.f90.html
+++ b/docs/sourcefile/util_resize.f90.html
@@ -134,7 +134,7 @@ <h1>util_resize.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.5% of total for source files.">199 statements</a>
+    title=" 1.7% of total for source files.">280 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_resizef90EfferentGraph" width="641pt" height="294pt"
+ viewBox="0.00 0.00 641.00 294.08" 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 412.12)">
 <title>sourcefile~~util_resize.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 896,-301.25 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 903,-412.12 903,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,-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>
+<polygon fill="none" stroke="black" points="899,-133.12 820,-133.12 820,-109.12 899,-109.12 899,-133.12"/>
+<text text-anchor="middle" x="859.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M837.72,-109.09C798.3,-87.43 709.35,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M845.01,-133.4C826.85,-149.95 794.34,-179.55 772.97,-199.02"/>
+<polygon fill="#000000" stroke="#000000" points="770.42,-196.61 765.38,-205.93 775.13,-201.79 770.42,-196.61"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_resize.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_resize.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_resize.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_resize.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_resize.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -565,7 +619,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-8"></a>      <span class="c">!! Resizes an array component of type character string. 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>
@@ -574,288 +628,390 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-17"></a>      <span class="k">if</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>
-<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>
-<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-19"></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-20"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-21"></a>         <span class="k">return</span>
+<a name="ln-22"></a><span class="k">      end if</span>
+<a name="ln-23"></a><span class="k">      </span>
+<a name="ln-24"></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-25"></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-26"></a>      <span class="k">else</span>
+<a name="ln-27"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-28"></a>      <span class="k">end if</span>
+<a name="ln-29"></a>
+<a name="ln-30"></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-31"></a><span class="k">      </span>
+<a name="ln-32"></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-33"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nold</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-34"></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-35"></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-36"></a>            <span class="n">tmp</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">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="s2">&quot;&quot;</span>
+<a name="ln-37"></a>         <span class="k">else</span>
+<a name="ln-38"></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-39"></a>         <span class="k">end if</span>
+<a name="ln-40"></a><span class="k">      else</span>
+<a name="ln-41"></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="s2">&quot;&quot;</span>
+<a name="ln-42"></a>      <span class="k">end if</span>
+<a name="ln-43"></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-44"></a>
+<a name="ln-45"></a>      <span class="k">return</span>
+<a name="ln-46"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_char_string</span>
+<a name="ln-47"></a>
+<a name="ln-48"></a>
+<a name="ln-49"></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-50"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-51"></a>      <span class="c">!!</span>
+<a name="ln-52"></a>      <span class="c">!! Resizes an array component of double precision type. Passing nnew = 0 will deallocate.</span>
+<a name="ln-53"></a>      <span class="k">implicit none</span>
+<a name="ln-54"></a>      <span class="c">! Arguments</span>
+<a name="ln-55"></a>      <span class="kt">real</span><span 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-56"></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-57"></a>      <span class="c">! Internals</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="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-59"></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-60"></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">init_val</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-61"></a>
+<a name="ln-62"></a>      <span class="k">if</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-63"></a>
+<a name="ln-64"></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-65"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-66"></a>         <span class="k">return</span>
+<a name="ln-67"></a><span class="k">      end if</span>
+<a name="ln-68"></a><span class="k">      </span>
+<a name="ln-69"></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-70"></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-71"></a>      <span class="k">else</span>
+<a name="ln-72"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-73"></a>      <span class="k">end if</span>
+<a name="ln-74"></a>
+<a name="ln-75"></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-76"></a><span class="k">      </span>
+<a name="ln-77"></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-78"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nold</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-79"></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-80"></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-81"></a>            <span class="n">tmp</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">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">init_val</span>
+<a name="ln-82"></a>         <span class="k">else</span>
+<a name="ln-83"></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-84"></a>         <span class="k">end if</span>
+<a name="ln-85"></a><span class="k">      else</span>
+<a name="ln-86"></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">init_val</span>
+<a name="ln-87"></a>      <span class="k">end if</span>
+<a name="ln-88"></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-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>
-<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-90"></a>      <span class="k">return</span>
+<a name="ln-91"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_DP</span>
+<a name="ln-92"></a>
+<a name="ln-93"></a>
+<a name="ln-94"></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-95"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-96"></a>      <span class="c">!!</span>
+<a name="ln-97"></a>      <span class="c">!! Resizes an array component of double precision vectors of size (NDIM, n). Passing nnew = 0 will deallocate.</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="kt">real</span><span 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-101"></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-102"></a>      <span class="c">! Internals</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">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-104"></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-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="n">NDIM</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">init_val</span> <span class="o">=</span> <span class="mf">0.0_DP</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">i</span>
+<a name="ln-107"></a>
+<a name="ln-108"></a>      <span class="k">if</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-109"></a>
+<a name="ln-110"></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-111"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-112"></a>         <span class="k">return</span>
+<a name="ln-113"></a><span class="k">      end if</span>
+<a name="ln-114"></a><span class="k">      </span>
+<a name="ln-115"></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-116"></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-117"></a>      <span class="k">else</span>
+<a name="ln-118"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-119"></a>      <span class="k">end if</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-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><span class="k">      </span>
+<a name="ln-123"></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-124"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nold</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-125"></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-126"></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-127"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">nold</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span> <span class="n">nnew</span>
+<a name="ln-128"></a>               <span class="n">tmp</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">init_val</span><span class="p">(:)</span>
+<a name="ln-129"></a>            <span class="k">end do</span>
+<a name="ln-130"></a><span class="k">         else</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">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-132"></a>         <span class="k">end if</span>
+<a name="ln-133"></a><span class="k">      else</span>
+<a name="ln-134"></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">nnew</span>
+<a name="ln-135"></a>            <span class="n">tmp</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">init_val</span><span class="p">(:)</span>
+<a name="ln-136"></a>         <span class="k">end do</span>
+<a name="ln-137"></a><span class="k">      end if</span>
+<a name="ln-138"></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-139"></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>
-<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>
-<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-140"></a>      <span class="k">return</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">util_resize_arr_DPvec</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">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-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">!! Resizes an array component of integer type. Passing nnew = 0 will deallocate.</span>
+<a name="ln-150"></a>      <span class="k">implicit none</span>
+<a name="ln-151"></a>      <span class="c">! Arguments</span>
+<a name="ln-152"></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-153"></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-154"></a>      <span class="c">! Internals</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">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-156"></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-157"></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">init_val</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-158"></a>
+<a name="ln-159"></a>      <span class="k">if</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-160"></a>
+<a name="ln-161"></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-162"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-163"></a>         <span class="k">return</span>
+<a name="ln-164"></a><span class="k">      end if</span>
+<a name="ln-165"></a><span class="k">      </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">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-167"></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-168"></a>      <span class="k">else</span>
+<a name="ln-169"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-170"></a>      <span class="k">end if</span>
+<a name="ln-171"></a>
+<a name="ln-172"></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-173"></a><span class="k">      </span>
+<a name="ln-174"></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-175"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nold</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-176"></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-177"></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-178"></a>            <span class="n">tmp</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">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">init_val</span>
+<a name="ln-179"></a>         <span class="k">else</span>
+<a name="ln-180"></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-181"></a>         <span class="k">end if</span>
+<a name="ln-182"></a><span class="k">      else</span>
+<a name="ln-183"></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">init_val</span>
+<a name="ln-184"></a>      <span class="k">end if</span>
+<a name="ln-185"></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-186"></a>
+<a name="ln-187"></a>      <span class="k">return</span>
+<a name="ln-188"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_I4B</span>
+<a name="ln-189"></a>
+<a name="ln-190"></a>
+<a name="ln-191"></a>   <span class="k">module subroutine </span><span class="n">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-192"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-193"></a>      <span class="c">!!</span>
+<a name="ln-194"></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-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">type</span><span class="p">(</span><span class="n">swiftest_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-198"></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-199"></a>      <span class="c">! Internals</span>
+<a name="ln-200"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-201"></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-202"></a>
+<a name="ln-203"></a>      <span class="k">if</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-204"></a>
+<a name="ln-205"></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-206"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-207"></a>         <span class="k">return</span>
+<a name="ln-208"></a><span class="k">      end if</span>
+<a name="ln-209"></a><span class="k">      </span>
+<a name="ln-210"></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-211"></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-212"></a>      <span class="k">else</span>
+<a name="ln-213"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-214"></a>      <span class="k">end if</span>
+<a name="ln-215"></a>
+<a name="ln-216"></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-217"></a><span class="k">      </span>
+<a name="ln-218"></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-219"></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-220"></a><span class="k">         call </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</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> <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>
+<a name="ln-221"></a>      <span class="k">else</span>
+<a name="ln-222"></a><span class="k">         call </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</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> <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>
+<a name="ln-223"></a>      <span class="k">end if</span>
+<a name="ln-224"></a>
+<a name="ln-225"></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-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>
-<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-227"></a>      <span class="k">return</span>
+<a name="ln-228"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_info</span>
+<a name="ln-229"></a>
+<a name="ln-230"></a>
+<a name="ln-231"></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-232"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-233"></a>      <span class="c">!!</span>
+<a name="ln-234"></a>      <span class="c">!! Resizes an array component of logical type. Passing nnew = 0 will deallocate.</span>
+<a name="ln-235"></a>      <span class="k">implicit none</span>
+<a name="ln-236"></a>      <span class="c">! Arguments</span>
+<a name="ln-237"></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-238"></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-239"></a>      <span class="c">! Internals</span>
+<a name="ln-240"></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-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">nold</span> <span class="c">!! Old size</span>
+<a name="ln-242"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">init_val</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-243"></a>
+<a name="ln-244"></a>      <span class="k">if</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-245"></a>
+<a name="ln-246"></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-247"></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">deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-248"></a>         <span class="k">return</span>
+<a name="ln-249"></a><span class="k">      end if</span>
+<a name="ln-250"></a><span class="k">      </span>
+<a name="ln-251"></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-252"></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-253"></a>      <span class="k">else</span>
+<a name="ln-254"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-255"></a>      <span class="k">end if</span>
+<a name="ln-256"></a>
+<a name="ln-257"></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-258"></a><span class="k">      </span>
+<a name="ln-259"></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-260"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nold</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-261"></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-262"></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-263"></a>            <span class="n">tmp</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">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">init_val</span>
+<a name="ln-264"></a>         <span class="k">else</span>
+<a name="ln-265"></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-266"></a>         <span class="k">end if</span>
+<a name="ln-267"></a><span class="k">      else</span>
+<a name="ln-268"></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">init_val</span>
+<a name="ln-269"></a>      <span class="k">end if</span>
+<a name="ln-270"></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-271"></a>
+<a name="ln-272"></a>      <span class="k">return</span>
+<a name="ln-273"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_logical</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>
-<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>
-<a name="ln-298"></a><span class="k">end submodule </span><span class="n">s_util_resize</span>
+<a name="ln-275"></a>
+<a name="ln-276"></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-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">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-280"></a>      <span class="k">implicit none</span>
+<a name="ln-281"></a>      <span class="c">! Arguments</span>
+<a name="ln-282"></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-283"></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-284"></a>
+<a name="ln-285"></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-286"></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-287"></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-288"></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-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">lmask</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">mu</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">xh</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">vh</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-293"></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-294"></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-295"></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-296"></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-297"></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-298"></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-299"></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-300"></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-301"></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-302"></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-303"></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-304"></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-305"></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-306"></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-307"></a>
+<a name="ln-308"></a>      <span class="k">return</span>
+<a name="ln-309"></a><span class="k">   end subroutine </span><span class="n">util_resize_body</span>
+<a name="ln-310"></a>
+<a name="ln-311"></a>
+<a name="ln-312"></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-313"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-314"></a>      <span class="c">!!</span>
+<a name="ln-315"></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-316"></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-317"></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-318"></a>      <span class="c">!! Memory usage grows by a factor of 2 each time it fills up, but no more. </span>
+<a name="ln-319"></a>      <span class="k">implicit none</span>
+<a name="ln-320"></a>      <span class="c">! Arguments</span>
+<a name="ln-321"></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-322"></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-323"></a>      <span class="c">! Internals</span>
+<a name="ln-324"></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-325"></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-326"></a>      <span class="kt">logical</span>                                <span class="kd">::</span> <span class="n">lmalloc</span>
+<a name="ln-327"></a>
+<a name="ln-328"></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-329"></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-330"></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-331"></a>      <span class="k">else</span>
+<a name="ln-332"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-333"></a>      <span class="k">end if</span>
+<a name="ln-334"></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-335"></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-336"></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-337"></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-338"></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-339"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">)</span>
+<a name="ln-340"></a>         <span class="k">end if</span>
+<a name="ln-341"></a><span class="k">      else</span>
+<a name="ln-342"></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-343"></a>      <span class="k">end if</span>
+<a name="ln-344"></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-345"></a>
+<a name="ln-346"></a>      <span class="k">return</span>
+<a name="ln-347"></a><span class="k">   end subroutine </span><span class="n">util_resize_encounter</span>
+<a name="ln-348"></a>
+<a name="ln-349"></a>
+<a name="ln-350"></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-351"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-352"></a>      <span class="c">!!</span>
+<a name="ln-353"></a>      <span class="c">!! Checks the current size of a Swiftest massive body against the requested size and resizes it if it is too small.</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_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-357"></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-358"></a>
+<a name="ln-359"></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-360"></a>
+<a name="ln-361"></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-362"></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-363"></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-364"></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-365"></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-366"></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-367"></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-368"></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-369"></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-370"></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-371"></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-372"></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-373"></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-374"></a>
+<a name="ln-375"></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">k_plpl</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">k_plpl</span><span class="p">)</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">util_resize_pl</span>
+<a name="ln-379"></a>
+<a name="ln-380"></a>
+<a name="ln-381"></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-382"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-383"></a>      <span class="c">!!</span>
+<a name="ln-384"></a>      <span class="c">!! Checks the current size of a Swiftest test particle against the requested size and resizes it if it is too small.</span>
+<a name="ln-385"></a>      <span class="k">implicit none</span>
+<a name="ln-386"></a>      <span class="c">! Arguments</span>
+<a name="ln-387"></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-388"></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-389"></a>
+<a name="ln-390"></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-391"></a>
+<a name="ln-392"></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-393"></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-394"></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-395"></a>
+<a name="ln-396"></a>      <span class="k">return</span>
+<a name="ln-397"></a><span class="k">   end subroutine </span><span class="n">util_resize_tp</span>
+<a name="ln-398"></a>
+<a name="ln-399"></a>
+<a name="ln-400"></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 0753c6a45..1a7e29e64 100644
--- a/docs/sourcefile/util_set.f90.html
+++ b/docs/sourcefile/util_set.f90.html
@@ -134,7 +134,7 @@ <h1>util_set.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.">77 statements</a>
+    title=" 0.8% of total for source files.">129 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_setf90EfferentGraph" width="641pt" height="299pt"
+ viewBox="0.00 0.00 641.00 299.03" 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 412.12)">
 <title>sourcefile~~util_set.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 881,-301.25 881,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 888,-412.12 888,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,-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>
+<polygon fill="none" stroke="black" points="884,-133.12 820,-133.12 820,-109.12 884,-109.12 884,-133.12"/>
+<text text-anchor="middle" x="852" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M830.95,-109.09C792.9,-87.43 706.98,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M838.46,-133.4C821.65,-149.87 791.62,-179.29 771.76,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="769.13,-196.43 764.44,-205.93 774.03,-201.43 769.13,-196.43"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_set.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_set.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_set.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_set.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_set.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -637,7 +691,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-77"></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-78"></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-79"></a>
-<a name="ln-80"></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="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">(:)</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">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span>
+<a name="ln-80"></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="n">self</span><span class="p">%</span><span class="n">mu</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">nbody</span><span class="p">)</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">self</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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
 <a name="ln-81"></a>
 <a name="ln-82"></a>      <span class="k">return</span>
 <a name="ln-83"></a><span class="k">   end subroutine </span><span class="n">util_set_mu_pl</span>
@@ -652,50 +706,113 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-92"></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-93"></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-94"></a>
-<a name="ln-95"></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="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-96"></a>
-<a name="ln-97"></a>      <span class="k">return</span>
-<a name="ln-98"></a><span class="k">   end subroutine </span><span class="n">util_set_mu_tp</span>
-<a name="ln-99"></a>
+<a name="ln-95"></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-96"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">mu</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">nbody</span><span class="p">)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<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_set_mu_tp</span>
 <a name="ln-100"></a>
-<a name="ln-101"></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-101"></a>   <span class="k">module subroutine </span><span class="n">util_set_particle_info</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">particle_type</span><span class="p">,</span> <span class="n">status</span><span class="p">,</span> <span class="n">origin_type</span><span class="p">,</span> <span class="n">origin_time</span><span class="p">,</span> <span class="n">origin_xh</span><span class="p">,</span> <span class="n">origin_vh</span><span class="p">,</span> <span class="n">discard_time</span><span class="p">,</span> <span class="n">discard_xh</span><span class="p">,</span> <span class="n">discard_vh</span><span class="p">,</span> <span class="n">discard_body_id</span><span class="p">)</span>
 <a name="ln-102"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-103"></a>      <span class="c">!!</span>
-<a name="ln-104"></a>      <span class="c">!! Sets the value of the Hill&#39;s radius</span>
+<a name="ln-104"></a>      <span class="c">!! Sets one or more values of the particle information metadata object</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_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-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">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-109"></a>
-<a name="ln-110"></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-111"></a><span class="k">         call </span><span class="n">self</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-112"></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="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(:)</span> <span class="o">*</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="o">/</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">/</span> <span class="mi">3</span><span class="p">)</span><span class="o">**</span><span class="n">THIRD</span> 
-<a name="ln-113"></a>      <span class="k">end if</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">util_set_rhill</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">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-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">!! Sets the approximate value of the Hill&#39;s radius using the heliocentric radius instead of computing the semimajor axis</span>
-<a name="ln-123"></a>      <span class="k">implicit none</span>
-<a name="ln-124"></a>      <span class="c">! Arguments</span>
-<a name="ln-125"></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-126"></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-127"></a>      <span class="c">! Internals</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="k">allocatable</span> <span class="kd">::</span> <span class="n">rh</span>
-<a name="ln-129"></a>
-<a name="ln-130"></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-131"></a><span class="k">         </span><span class="n">rh</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</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-132"></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="n">rh</span><span class="p">(:)</span> <span class="o">*</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="o">/</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">/</span> <span class="mi">3</span><span class="p">)</span><span class="o">**</span><span class="n">THIRD</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">      return</span>
-<a name="ln-136"></a><span class="k">   end subroutine </span><span class="n">util_set_rhill_approximate</span>
-<a name="ln-137"></a>
-<a name="ln-138"></a><span class="k">end submodule </span><span class="n">s_util_set</span>
+<a name="ln-107"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_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>
+<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">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">name</span>            <span class="c">!! Non-unique name</span>
+<a name="ln-109"></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="k">optional</span> <span class="kd">::</span> <span class="n">particle_type</span>   <span class="c">!! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</span>
+<a name="ln-110"></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="k">optional</span> <span class="kd">::</span> <span class="n">status</span>          <span class="c">!! Particle status description: ACTIVE, MERGED, FRAGMENTED, etc.</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">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">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-112"></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="k">optional</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-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="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">origin_xh</span>       <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s formation</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="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">origin_vh</span>       <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s formation</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">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">discard_time</span>    <span class="c">!! The time of the particle&#39;s discard</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="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">discard_xh</span>      <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s discard</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="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">discard_vh</span>      <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s discard</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">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">discard_body_id</span> <span class="c">!! The id of the other body involved in the discard (0 if no other body involved)</span>
+<a name="ln-119"></a>      <span class="c">! Internals</span>
+<a name="ln-120"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">NAMELEN</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lenstr</span>
+<a name="ln-121"></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">fmtlabel</span>
+<a name="ln-122"></a>
+<a name="ln-123"></a>      <span class="k">write</span><span class="p">(</span><span class="n">lenstr</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">NAMELEN</span>
+<a name="ln-124"></a>      <span class="n">fmtlabel</span> <span class="o">=</span> <span class="s2">&quot;(A&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">lenstr</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot;)&quot;</span>
+<a name="ln-125"></a>
+<a name="ln-126"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">name</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-127"></a><span class="k">         write</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">fmtlabel</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">name</span><span class="p">))</span>
+<a name="ln-128"></a>      <span class="k">end if</span>
+<a name="ln-129"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">particle_type</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="n">self</span><span class="p">%</span><span class="n">particle_type</span><span class="p">,</span> <span class="n">fmtlabel</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">particle_type</span><span class="p">))</span>
+<a name="ln-131"></a>      <span class="k">end if </span>
+<a name="ln-132"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">status</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-133"></a><span class="k">         write</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">fmtlabel</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">status</span><span class="p">))</span>
+<a name="ln-134"></a>      <span class="k">end if</span>
+<a name="ln-135"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">origin_type</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-136"></a><span class="k">         write</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">origin_type</span><span class="p">,</span> <span class="n">fmtlabel</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">origin_type</span><span class="p">))</span>
+<a name="ln-137"></a>      <span class="k">end if</span>
+<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">origin_time</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-139"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">origin_time</span>
+<a name="ln-140"></a>      <span class="k">end if</span>
+<a name="ln-141"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">origin_xh</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-142"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">origin_xh</span><span class="p">(:)</span>
+<a name="ln-143"></a>      <span class="k">end if</span>
+<a name="ln-144"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">origin_vh</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-145"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">origin_vh</span><span class="p">(:)</span>
+<a name="ln-146"></a>      <span class="k">end if</span>
+<a name="ln-147"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">discard_time</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-148"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">discard_time</span> <span class="o">=</span> <span class="n">discard_time</span>
+<a name="ln-149"></a>      <span class="k">end if</span>
+<a name="ln-150"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">discard_xh</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-151"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">discard_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">discard_xh</span><span class="p">(:)</span>
+<a name="ln-152"></a>      <span class="k">end if</span>
+<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">discard_vh</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-154"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">discard_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">discard_vh</span><span class="p">(:)</span>
+<a name="ln-155"></a>      <span class="k">end if</span>
+<a name="ln-156"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">discard_body_id</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-157"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">discard_body_id</span> <span class="o">=</span> <span class="n">discard_body_id</span>
+<a name="ln-158"></a>      <span class="k">end if</span>
+<a name="ln-159"></a>
+<a name="ln-160"></a><span class="k">      return</span>
+<a name="ln-161"></a><span class="k">   end subroutine </span><span class="n">util_set_particle_info</span>
+<a name="ln-162"></a>
+<a name="ln-163"></a>
+<a name="ln-164"></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-165"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-166"></a>      <span class="c">!!</span>
+<a name="ln-167"></a>      <span class="c">!! Sets the value of the Hill&#39;s radius</span>
+<a name="ln-168"></a>      <span class="k">implicit none</span>
+<a name="ln-169"></a>      <span class="c">! Arguments</span>
+<a name="ln-170"></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-171"></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-172"></a>
+<a name="ln-173"></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-174"></a>
+<a name="ln-175"></a><span class="k">      call </span><span class="n">self</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-176"></a>      <span class="n">self</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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="o">=</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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="o">*</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="mi">1</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="o">/</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">/</span> <span class="mi">3</span><span class="p">)</span><span class="o">**</span><span class="n">THIRD</span> 
+<a name="ln-177"></a>
+<a name="ln-178"></a>      <span class="k">return</span>
+<a name="ln-179"></a><span class="k">   end subroutine </span><span class="n">util_set_rhill</span>
+<a name="ln-180"></a>
+<a name="ln-181"></a>
+<a name="ln-182"></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-183"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-184"></a>      <span class="c">!!</span>
+<a name="ln-185"></a>      <span class="c">!! Sets the approximate value of the Hill&#39;s radius using the heliocentric radius instead of computing the semimajor axis</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">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-189"></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-190"></a>      <span class="c">! Internals</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">rh</span>
+<a name="ln-192"></a>
+<a name="ln-193"></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-194"></a>
+<a name="ln-195"></a><span class="k">      </span><span class="n">rh</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">nbody</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">mag</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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-196"></a>      <span class="n">self</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">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="o">=</span> <span class="n">rh</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">nbody</span><span class="p">)</span> <span class="o">*</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="mi">1</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="o">/</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">/</span> <span class="mi">3</span><span class="p">)</span><span class="o">**</span><span class="n">THIRD</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_set_rhill_approximate</span>
+<a name="ln-200"></a>
+<a name="ln-201"></a><span class="k">end submodule </span><span class="n">s_util_set</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_solve.f90.html b/docs/sourcefile/util_solve.f90.html
index fa43cc12f..5feb9bb35 100644
--- a/docs/sourcefile/util_solve.f90.html
+++ b/docs/sourcefile/util_solve.f90.html
@@ -134,7 +134,7 @@ <h1>util_solve.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.2% of total for source files.">162 statements</a>
+    title=" 1.0% of total for source files.">162 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_solvef90EfferentGraph" width="641pt" height="295pt"
+ viewBox="0.00 0.00 641.00 295.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.71 0.71) rotate(0) translate(4 412.12)">
 <title>sourcefile~~util_solve.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 892,-301.25 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 899,-412.12 899,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,-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>
+<polygon fill="none" stroke="black" points="895,-133.12 820,-133.12 820,-109.12 895,-109.12 895,-133.12"/>
+<text text-anchor="middle" x="857.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M835.92,-109.09C796.86,-87.43 708.72,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M843.27,-133.4C825.44,-149.95 793.54,-179.55 772.58,-199.02"/>
+<polygon fill="#000000" stroke="#000000" points="770.08,-196.56 765.13,-205.93 774.84,-201.69 770.08,-196.56"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_solve.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_solve.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_solve.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_solve.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_solve.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_sort.f90.html b/docs/sourcefile/util_sort.f90.html
index 0bce41dbb..693653c09 100644
--- a/docs/sourcefile/util_sort.f90.html
+++ b/docs/sourcefile/util_sort.f90.html
@@ -134,7 +134,7 @@ <h1>util_sort.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.1% of total for source files.">284 statements</a>
+    title=" 2.2% of total for source files.">354 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_sortf90EfferentGraph" width="641pt" height="298pt"
+ viewBox="0.00 0.00 641.00 297.69" 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 412.12)">
 <title>sourcefile~~util_sort.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 885,-301.25 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 892,-412.12 892,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,-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>
+<polygon fill="none" stroke="black" points="888,-133.12 820,-133.12 820,-109.12 888,-109.12 888,-133.12"/>
+<text text-anchor="middle" x="854" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M832.76,-109.09C794.34,-87.43 707.61,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.21,-133.4C823.06,-149.87 792.42,-179.29 772.16,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="769.48,-196.48 764.69,-205.93 774.32,-201.53 769.48,-196.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_sort.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_sort.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_sort.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_sort.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_sort.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -573,410 +627,538 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-13"></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-14"></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-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="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-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">allocatable</span> <span class="kd">::</span> <span class="n">ind</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">direction</span>
 <a name="ln-18"></a>
-<a name="ln-19"></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-20"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-21"></a>      <span class="k">else</span>
-<a name="ln-22"></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-23"></a>      <span class="k">end if</span>
-<a name="ln-24"></a>
-<a name="ln-25"></a><span class="k">      associate</span><span class="p">(</span><span class="n">body</span> <span class="o">=&gt;</span> <span class="n">self</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-26"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-27"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;id&quot;</span><span class="p">)</span>
-<a name="ln-28"></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">body</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> <span class="n">ind</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-29"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;status&quot;</span><span class="p">)</span>
-<a name="ln-30"></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">body</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">n</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">n</span><span class="p">))</span>
-<a name="ln-31"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ir3h&quot;</span><span class="p">)</span>
-<a name="ln-32"></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">body</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</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">n</span><span class="p">))</span>
-<a name="ln-33"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;a&quot;</span><span class="p">)</span>
-<a name="ln-34"></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">body</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> <span class="n">ind</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-35"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;e&quot;</span><span class="p">)</span>
-<a name="ln-36"></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">body</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> <span class="n">ind</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-37"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;inc&quot;</span><span class="p">)</span>
-<a name="ln-38"></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">body</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> <span class="n">ind</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-39"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;capom&quot;</span><span class="p">)</span>
-<a name="ln-40"></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">body</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> <span class="n">ind</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-41"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;mu&quot;</span><span class="p">)</span>
-<a name="ln-42"></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">body</span><span class="p">%</span><span class="n">mu</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</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">n</span><span class="p">))</span>
-<a name="ln-43"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;lfirst&quot;</span><span class="p">,</span> <span class="s2">&quot;nbody&quot;</span><span class="p">,</span> <span class="s2">&quot;ldiscard&quot;</span><span class="p">,</span> <span class="s2">&quot;xh&quot;</span><span class="p">,</span> <span class="s2">&quot;vh&quot;</span><span class="p">,</span> <span class="s2">&quot;xb&quot;</span><span class="p">,</span> <span class="s2">&quot;vb&quot;</span><span class="p">,</span> <span class="s2">&quot;ah&quot;</span><span class="p">,</span> <span class="s2">&quot;aobl&quot;</span><span class="p">,</span> <span class="s2">&quot;atide&quot;</span><span class="p">,</span> <span class="s2">&quot;agr&quot;</span><span class="p">)</span>
-<a name="ln-44"></a>            <span class="k">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-45"></a>         <span class="k">case </span><span class="n">default</span>
-<a name="ln-46"></a>            <span class="k">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 found!&#39;</span>
-<a name="ln-47"></a>            <span class="k">return</span>
-<a name="ln-48"></a><span class="k">         end select</span>
-<a name="ln-49"></a>
-<a name="ln-50"></a><span class="k">         call </span><span class="n">body</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-51"></a>
-<a name="ln-52"></a>      <span class="k">end associate</span>
-<a name="ln-53"></a>
-<a name="ln-54"></a><span class="k">      return</span>
-<a name="ln-55"></a><span class="k">   end subroutine </span><span class="n">util_sort_body</span>
+<a name="ln-19"></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-20"></a>
+<a name="ln-21"></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-22"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-23"></a>      <span class="k">else</span>
+<a name="ln-24"></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-25"></a>      <span class="k">end if</span>
+<a name="ln-26"></a>
+<a name="ln-27"></a><span class="k">      associate</span><span class="p">(</span><span class="n">body</span> <span class="o">=&gt;</span> <span class="n">self</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-28"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-29"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-30"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;id&quot;</span><span class="p">)</span>
+<a name="ln-31"></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">body</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> <span class="n">ind</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-32"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;status&quot;</span><span class="p">)</span>
+<a name="ln-33"></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">body</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">n</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">n</span><span class="p">))</span>
+<a name="ln-34"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ir3h&quot;</span><span class="p">)</span>
+<a name="ln-35"></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">body</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</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">n</span><span class="p">))</span>
+<a name="ln-36"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;a&quot;</span><span class="p">)</span>
+<a name="ln-37"></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">body</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> <span class="n">ind</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-38"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;e&quot;</span><span class="p">)</span>
+<a name="ln-39"></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">body</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> <span class="n">ind</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-40"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;inc&quot;</span><span class="p">)</span>
+<a name="ln-41"></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">body</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> <span class="n">ind</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-42"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;capom&quot;</span><span class="p">)</span>
+<a name="ln-43"></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">body</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> <span class="n">ind</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-44"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;mu&quot;</span><span class="p">)</span>
+<a name="ln-45"></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">body</span><span class="p">%</span><span class="n">mu</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</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">n</span><span class="p">))</span>
+<a name="ln-46"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;lfirst&quot;</span><span class="p">,</span> <span class="s2">&quot;nbody&quot;</span><span class="p">,</span> <span class="s2">&quot;ldiscard&quot;</span><span class="p">,</span> <span class="s2">&quot;xh&quot;</span><span class="p">,</span> <span class="s2">&quot;vh&quot;</span><span class="p">,</span> <span class="s2">&quot;xb&quot;</span><span class="p">,</span> <span class="s2">&quot;vb&quot;</span><span class="p">,</span> <span class="s2">&quot;ah&quot;</span><span class="p">,</span> <span class="s2">&quot;aobl&quot;</span><span class="p">,</span> <span class="s2">&quot;atide&quot;</span><span class="p">,</span> <span class="s2">&quot;agr&quot;</span><span class="p">)</span>
+<a name="ln-47"></a>            <span class="k">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-48"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-49"></a>            <span class="k">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 found!&#39;</span>
+<a name="ln-50"></a>            <span class="k">return</span>
+<a name="ln-51"></a><span class="k">         end select</span>
+<a name="ln-52"></a>
+<a name="ln-53"></a><span class="k">         call </span><span class="n">body</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-54"></a>
+<a name="ln-55"></a>      <span class="k">end associate</span>
 <a name="ln-56"></a>
-<a name="ln-57"></a>
-<a name="ln-58"></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-59"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-60"></a>      <span class="c">!!</span>
-<a name="ln-61"></a>      <span class="c">!! Sort a Swiftest massive body object in-place. </span>
-<a name="ln-62"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-63"></a>      <span class="k">implicit none</span>
-<a name="ln-64"></a>      <span class="c">! Arguments</span>
-<a name="ln-65"></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-66"></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-67"></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-68"></a>      <span class="c">! Internals</span>
-<a name="ln-69"></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-70"></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-71"></a>
-<a name="ln-72"></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-73"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-74"></a>      <span class="k">else</span>
-<a name="ln-75"></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-76"></a>      <span class="k">end if</span>
-<a name="ln-77"></a>
-<a name="ln-78"></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-79"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-80"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;Gmass&quot;</span><span class="p">,</span><span class="s2">&quot;mass&quot;</span><span class="p">)</span>
-<a name="ln-81"></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">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="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-82"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;rhill&quot;</span><span class="p">)</span>
-<a name="ln-83"></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">rhill</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-84"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;radius&quot;</span><span class="p">)</span>
-<a name="ln-85"></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">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="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-86"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;density&quot;</span><span class="p">)</span>
-<a name="ln-87"></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">density</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-88"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;k2&quot;</span><span class="p">)</span>
-<a name="ln-89"></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">k2</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-90"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;Q&quot;</span><span class="p">)</span>
-<a name="ln-91"></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">Q</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-92"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;tlag&quot;</span><span class="p">)</span>
-<a name="ln-93"></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">tlag</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-94"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;xbeg&quot;</span><span class="p">,</span> <span class="s2">&quot;xend&quot;</span><span class="p">,</span> <span class="s2">&quot;vbeg&quot;</span><span class="p">,</span> <span class="s2">&quot;Ip&quot;</span><span class="p">,</span> <span class="s2">&quot;rot&quot;</span><span class="p">,</span> <span class="s2">&quot;k_plpl&quot;</span><span class="p">,</span> <span class="s2">&quot;nplpl&quot;</span><span class="p">)</span>
-<a name="ln-95"></a>            <span class="k">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-96"></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-97"></a>            <span class="k">call </span><span class="n">util_sort_body</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-98"></a>            <span class="k">return</span>
-<a name="ln-99"></a><span class="k">         end select</span>
-<a name="ln-100"></a>
-<a name="ln-101"></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-102"></a>
-<a name="ln-103"></a>      <span class="k">end associate</span>
-<a name="ln-104"></a>
-<a name="ln-105"></a><span class="k">      return</span>
-<a name="ln-106"></a><span class="k">   end subroutine </span><span class="n">util_sort_pl</span>
-<a name="ln-107"></a>
-<a name="ln-108"></a>
-<a name="ln-109"></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-110"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-111"></a>      <span class="c">!!</span>
-<a name="ln-112"></a>      <span class="c">!! Sort a Swiftest test particle object  in-place. </span>
-<a name="ln-113"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-114"></a>      <span class="k">implicit none</span>
-<a name="ln-115"></a>      <span class="c">! Arguments</span>
-<a name="ln-116"></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-117"></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-118"></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-119"></a>      <span class="c">! Internals</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="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-121"></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-122"></a>
-<a name="ln-123"></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-124"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-125"></a>      <span class="k">else</span>
-<a name="ln-126"></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-127"></a>      <span class="k">end if</span>
-<a name="ln-128"></a>
-<a name="ln-129"></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-130"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-131"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;peri&quot;</span><span class="p">)</span>
-<a name="ln-132"></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">peri</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-133"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;atp&quot;</span><span class="p">)</span>
-<a name="ln-134"></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">atp</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-135"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;isperi&quot;</span><span class="p">)</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="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-137"></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-138"></a>            <span class="k">call </span><span class="n">util_sort_body</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-139"></a>            <span class="k">return</span>
-<a name="ln-140"></a><span class="k">         end select</span>
-<a name="ln-141"></a>
-<a name="ln-142"></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-57"></a><span class="k">      return</span>
+<a name="ln-58"></a><span class="k">   end subroutine </span><span class="n">util_sort_body</span>
+<a name="ln-59"></a>
+<a name="ln-60"></a>
+<a name="ln-61"></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-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">!! Sort input double precision array in place into ascending numerical order using insertion sort.</span>
+<a name="ln-65"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</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="kt">real</span><span 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-70"></a>      <span class="c">! Internals</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">tmp</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">n</span><span class="p">,</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="n">n</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-75"></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">n</span>
+<a name="ln-76"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-77"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-78"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-79"></a><span class="k">            </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-80"></a>         <span class="k">end do</span>
+<a name="ln-81"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">tmp</span>
+<a name="ln-82"></a>      <span class="k">end do</span>
+<a name="ln-83"></a>
+<a name="ln-84"></a><span class="k">      return</span>
+<a name="ln-85"></a><span class="k">   end subroutine </span><span class="n">util_sort_dp</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a>
+<a name="ln-88"></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-89"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-90"></a>      <span class="c">!!</span>
+<a name="ln-91"></a>      <span class="c">!! Sort input double precision array by index in ascending numerical order using insertion sort.</span>
+<a name="ln-92"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
+<a name="ln-93"></a>      <span class="c">!!</span>
+<a name="ln-94"></a>      <span class="k">implicit none</span>
+<a name="ln-95"></a>      <span class="c">! Arguments</span>
+<a name="ln-96"></a>      <span class="kt">real</span><span 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-97"></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-98"></a>      <span class="c">! Internals</span>
+<a name="ln-99"></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">tmp</span>
+<a name="ln-100"></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">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-101"></a>
+<a name="ln-102"></a>      <span class="n">n</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-103"></a>      <span class="n">ind</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-104"></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">n</span>
+<a name="ln-105"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-106"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-107"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-108"></a><span class="k">            </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-109"></a>         <span class="k">end do</span>
+<a name="ln-110"></a><span class="k">         </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-111"></a>      <span class="k">end do</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">util_sort_index_dp</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">util_sort_i4b</span><span class="p">(</span><span class="n">arr</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 input integer array in place into ascending numerical order using insertion sort.</span>
+<a name="ln-121"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
+<a name="ln-122"></a>      <span class="c">!!</span>
+<a name="ln-123"></a>      <span class="k">implicit none</span>
+<a name="ln-124"></a>      <span class="c">! Arguments</span>
+<a name="ln-125"></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">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-126"></a>      <span class="c">! Internals</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">tmp</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="kd">::</span> <span class="n">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-129"></a>
+<a name="ln-130"></a>      <span class="n">n</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-131"></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">n</span>
+<a name="ln-132"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-133"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-134"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-135"></a><span class="k">            </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-136"></a>         <span class="k">end do</span>
+<a name="ln-137"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">tmp</span>
+<a name="ln-138"></a>      <span class="k">end do</span>
+<a name="ln-139"></a>
+<a name="ln-140"></a><span class="k">      return</span>
+<a name="ln-141"></a><span class="k">   end subroutine </span><span class="n">util_sort_i4b</span>
+<a name="ln-142"></a>
 <a name="ln-143"></a>
-<a name="ln-144"></a>      <span class="k">end associate</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">util_sort_tp</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">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-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">!! Rearrange Swiftest body structure in-place from an index list.</span>
-<a name="ln-154"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</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">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-158"></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-159"></a>      <span class="c">! Internals</span>
-<a name="ln-160"></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">body_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-161"></a>
-<a name="ln-162"></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-163"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">body_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-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">id</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">id</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">n</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">name</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="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">name</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">n</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">status</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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">status</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">n</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">ldiscard</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="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">ldiscard</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">n</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">xh</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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">xh</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">n</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">vh</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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">vh</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">n</span><span class="p">))</span>
-<a name="ln-170"></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="n">self</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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">xb</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">n</span><span class="p">))</span>
-<a name="ln-171"></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="n">self</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">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">vb</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">n</span><span class="p">))</span>
-<a name="ln-172"></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="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">ah</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">n</span><span class="p">))</span>
-<a name="ln-173"></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="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">ir3h</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">n</span><span class="p">))</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">self</span><span class="p">%</span><span class="n">mu</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="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">mu</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">n</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">self</span><span class="p">%</span><span class="n">lmask</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="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">lmask</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">n</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">self</span><span class="p">%</span><span class="n">a</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">a</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">n</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">self</span><span class="p">%</span><span class="n">e</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">e</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">n</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">self</span><span class="p">%</span><span class="n">inc</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">inc</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">n</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">self</span><span class="p">%</span><span class="n">capom</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">capom</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">n</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">self</span><span class="p">%</span><span class="n">omega</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">omega</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">n</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">self</span><span class="p">%</span><span class="n">capm</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> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">capm</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">n</span><span class="p">))</span>
-<a name="ln-182"></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="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">aobl</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">n</span><span class="p">))</span>
-<a name="ln-183"></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="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">atide</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">n</span><span class="p">))</span>
-<a name="ln-184"></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="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">body_sorted</span><span class="p">%</span><span class="n">agr</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">n</span><span class="p">))</span>
-<a name="ln-185"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">body_sorted</span><span class="p">)</span>
-<a name="ln-186"></a>      <span class="k">end associate</span>
-<a name="ln-187"></a>
-<a name="ln-188"></a><span class="k">      return</span>
-<a name="ln-189"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_body</span>
-<a name="ln-190"></a>
-<a name="ln-191"></a>
-<a name="ln-192"></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-193"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-194"></a>      <span class="c">!!</span>
-<a name="ln-195"></a>      <span class="c">!! Rearrange Swiftest massive body structure in-place from an index list.</span>
-<a name="ln-196"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-197"></a>      <span class="k">implicit none</span>
-<a name="ln-198"></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-199"></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-200"></a>      <span class="c">! Internals</span>
-<a name="ln-201"></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_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-202"></a>
-<a name="ln-203"></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-204"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_body</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-205"></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-206"></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">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="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">mass</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">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">Gmass</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">Gmass</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-208"></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">rhill</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">rhill</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">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="n">pl</span><span class="p">%</span><span class="n">xbeg</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">xbeg</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-210"></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="n">pl</span><span class="p">%</span><span class="n">xend</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">xend</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-211"></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">vbeg</span><span class="p">))</span>    <span class="n">pl</span><span class="p">%</span><span class="n">vbeg</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">vbeg</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-212"></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">radius</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">radius</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-213"></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">density</span><span class="p">))</span> <span class="n">pl</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="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">density</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-214"></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">Ip</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="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">Ip</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-215"></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">rot</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="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">rot</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-216"></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">k2</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">k2</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-217"></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">Q</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">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">Q</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-218"></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">tlag</span><span class="p">))</span>    <span class="n">pl</span><span class="p">%</span><span class="n">tlag</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">tlag</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-219"></a>
-<a name="ln-220"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
-<a name="ln-221"></a>      <span class="k">end associate</span>
-<a name="ln-222"></a>
-<a name="ln-223"></a><span class="k">      return</span>
-<a name="ln-224"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_pl</span>
-<a name="ln-225"></a>
-<a name="ln-226"></a>
-<a name="ln-227"></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-228"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-229"></a>      <span class="c">!!</span>
-<a name="ln-230"></a>      <span class="c">!! Rearrange Swiftest massive body structure in-place from an index list.</span>
-<a name="ln-231"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-232"></a>      <span class="k">implicit none</span>
-<a name="ln-233"></a>      <span class="c">! Arguments</span>
-<a name="ln-234"></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-235"></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-236"></a>      <span class="c">! Internals</span>
-<a name="ln-237"></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_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-238"></a>
-<a name="ln-239"></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-240"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_body</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-241"></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-242"></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">isperi</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="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">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">ntp</span><span class="p">))</span>
-<a name="ln-243"></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">peri</span><span class="p">))</span>    <span class="n">tp</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">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_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">ntp</span><span class="p">))</span>
-<a name="ln-244"></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">atp</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="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">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">ntp</span><span class="p">))</span>
-<a name="ln-245"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">)</span>
-<a name="ln-246"></a>      <span class="k">end associate</span>
-<a name="ln-247"></a>
-<a name="ln-248"></a><span class="k">      return</span>
-<a name="ln-249"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_tp</span>
+<a name="ln-144"></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-145"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-146"></a>      <span class="c">!!</span>
+<a name="ln-147"></a>      <span class="c">!! Sort input integer array by index in ascending numerical order using insertion sort.</span>
+<a name="ln-148"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
+<a name="ln-149"></a>      <span class="c">!!</span>
+<a name="ln-150"></a>      <span class="k">implicit none</span>
+<a name="ln-151"></a>      <span class="c">! Arguments</span>
+<a name="ln-152"></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">arr</span>
+<a name="ln-153"></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-154"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">tmp</span>
+<a name="ln-156"></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">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-157"></a>
+<a name="ln-158"></a>      <span class="n">n</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-159"></a>      <span class="n">ind</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-160"></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">n</span>
+<a name="ln-161"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-162"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-163"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-164"></a><span class="k">            </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-165"></a>         <span class="k">end do</span>
+<a name="ln-166"></a><span class="k">         </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-167"></a>      <span class="k">end do</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_sort_index_i4b</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_sort_sp</span><span class="p">(</span><span class="n">arr</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">!! Sort input single precision array in place into ascending numerical order using insertion sort.</span>
+<a name="ln-177"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
+<a name="ln-178"></a>      <span class="c">!</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="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-182"></a>      <span class="c">! Internals</span>
+<a name="ln-183"></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">tmp</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="kd">::</span> <span class="n">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-185"></a>
+<a name="ln-186"></a>      <span class="n">n</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-187"></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">n</span>
+<a name="ln-188"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-189"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-190"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-191"></a><span class="k">            </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-192"></a>         <span class="k">end do</span>
+<a name="ln-193"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">tmp</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">      return</span>
+<a name="ln-197"></a><span class="k">   end subroutine </span><span class="n">util_sort_sp</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">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-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">!! Sort input single precision array by index in ascending numerical order using insertion sort.</span>
+<a name="ln-204"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</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="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-209"></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-210"></a>      <span class="c">! Internals</span>
+<a name="ln-211"></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">tmp</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">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-213"></a>
+<a name="ln-214"></a>      <span class="n">n</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-215"></a>      <span class="n">ind</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-216"></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">n</span>
+<a name="ln-217"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-218"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-219"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-220"></a><span class="k">            </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-221"></a>         <span class="k">end do</span>
+<a name="ln-222"></a><span class="k">         </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-223"></a>      <span class="k">end do</span>
+<a name="ln-224"></a>
+<a name="ln-225"></a><span class="k">      return</span>
+<a name="ln-226"></a><span class="k">   end subroutine </span><span class="n">util_sort_index_sp</span>
+<a name="ln-227"></a>
+<a name="ln-228"></a>
+<a name="ln-229"></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-230"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-231"></a>      <span class="c">!!</span>
+<a name="ln-232"></a>      <span class="c">!! Sort a Swiftest massive body object in-place. </span>
+<a name="ln-233"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-234"></a>      <span class="k">implicit none</span>
+<a name="ln-235"></a>      <span class="c">! Arguments</span>
+<a name="ln-236"></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-237"></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-238"></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-239"></a>      <span class="c">! Internals</span>
+<a name="ln-240"></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">ind</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">direction</span>
+<a name="ln-242"></a>
+<a name="ln-243"></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-244"></a>
+<a name="ln-245"></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-246"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-247"></a>      <span class="k">else</span>
+<a name="ln-248"></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-249"></a>      <span class="k">end if</span>
 <a name="ln-250"></a>
-<a name="ln-251"></a>
-<a name="ln-252"></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-253"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-254"></a>      <span class="c">!!</span>
-<a name="ln-255"></a>      <span class="c">!! Sort input double precision array in place into ascending numerical order using insertion sort.</span>
-<a name="ln-256"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
-<a name="ln-257"></a>      <span class="c">!!</span>
-<a name="ln-258"></a>      <span class="k">implicit none</span>
-<a name="ln-259"></a>      <span class="c">! Arguments</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="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-261"></a>      <span class="c">! Internals</span>
-<a name="ln-262"></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">tmp</span>
-<a name="ln-263"></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">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-264"></a>
-<a name="ln-265"></a>      <span class="n">n</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-266"></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">n</span>
-<a name="ln-267"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-268"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-269"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-270"></a><span class="k">            </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-271"></a>         <span class="k">end do</span>
-<a name="ln-272"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">tmp</span>
-<a name="ln-273"></a>      <span class="k">end do</span>
+<a name="ln-251"></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-252"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-253"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-254"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;Gmass&quot;</span><span class="p">,</span><span class="s2">&quot;mass&quot;</span><span class="p">)</span>
+<a name="ln-255"></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">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="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-256"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;rhill&quot;</span><span class="p">)</span>
+<a name="ln-257"></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">rhill</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-258"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;radius&quot;</span><span class="p">)</span>
+<a name="ln-259"></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">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="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-260"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;density&quot;</span><span class="p">)</span>
+<a name="ln-261"></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">density</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-262"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;k2&quot;</span><span class="p">)</span>
+<a name="ln-263"></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">k2</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-264"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;Q&quot;</span><span class="p">)</span>
+<a name="ln-265"></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">Q</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-266"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;tlag&quot;</span><span class="p">)</span>
+<a name="ln-267"></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">tlag</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-268"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;xbeg&quot;</span><span class="p">,</span> <span class="s2">&quot;xend&quot;</span><span class="p">,</span> <span class="s2">&quot;vbeg&quot;</span><span class="p">,</span> <span class="s2">&quot;Ip&quot;</span><span class="p">,</span> <span class="s2">&quot;rot&quot;</span><span class="p">,</span> <span class="s2">&quot;k_plpl&quot;</span><span class="p">,</span> <span class="s2">&quot;nplpl&quot;</span><span class="p">)</span>
+<a name="ln-269"></a>            <span class="k">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-270"></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-271"></a>            <span class="k">call </span><span class="n">util_sort_body</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-272"></a>            <span class="k">return</span>
+<a name="ln-273"></a><span class="k">         end select</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_sort_dp</span>
-<a name="ln-277"></a>
+<a name="ln-275"></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-276"></a>
+<a name="ln-277"></a>      <span class="k">end associate</span>
 <a name="ln-278"></a>
-<a name="ln-279"></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-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">!! Sort input double precision array by index in ascending numerical order using insertion sort.</span>
-<a name="ln-283"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
-<a name="ln-284"></a>      <span class="c">!!</span>
-<a name="ln-285"></a>      <span class="k">implicit none</span>
-<a name="ln-286"></a>      <span class="c">! Arguments</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="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-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">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-289"></a>      <span class="c">! Internals</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">tmp</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="kd">::</span> <span class="n">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-292"></a>
-<a name="ln-293"></a>      <span class="n">n</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-294"></a>      <span class="n">ind</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-295"></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">n</span>
-<a name="ln-296"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-297"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-298"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-299"></a><span class="k">            </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-300"></a>         <span class="k">end do</span>
-<a name="ln-301"></a><span class="k">         </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-302"></a>      <span class="k">end do</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_sort_index_dp</span>
-<a name="ln-306"></a>
-<a name="ln-307"></a>
-<a name="ln-308"></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-309"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-310"></a>      <span class="c">!!</span>
-<a name="ln-311"></a>      <span class="c">!! Sort input integer array in place into ascending numerical order using insertion sort.</span>
-<a name="ln-312"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
-<a name="ln-313"></a>      <span class="c">!!</span>
-<a name="ln-314"></a>      <span class="k">implicit none</span>
-<a name="ln-315"></a>      <span class="c">! Arguments</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">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-317"></a>      <span class="c">! Internals</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">tmp</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="kd">::</span> <span class="n">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-279"></a><span class="k">      return</span>
+<a name="ln-280"></a><span class="k">   end subroutine </span><span class="n">util_sort_pl</span>
+<a name="ln-281"></a>
+<a name="ln-282"></a>
+<a name="ln-283"></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-284"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-285"></a>      <span class="c">!!</span>
+<a name="ln-286"></a>      <span class="c">!! Sort a Swiftest test particle object  in-place. </span>
+<a name="ln-287"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-288"></a>      <span class="k">implicit none</span>
+<a name="ln-289"></a>      <span class="c">! Arguments</span>
+<a name="ln-290"></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-291"></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-292"></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-293"></a>      <span class="c">! Internals</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">allocatable</span> <span class="kd">::</span> <span class="n">ind</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="kd">::</span> <span class="n">direction</span>
+<a name="ln-296"></a>
+<a name="ln-297"></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-298"></a>
+<a name="ln-299"></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-300"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-301"></a>      <span class="k">else</span>
+<a name="ln-302"></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-303"></a>      <span class="k">end if</span>
+<a name="ln-304"></a>
+<a name="ln-305"></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-306"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-307"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-308"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;peri&quot;</span><span class="p">)</span>
+<a name="ln-309"></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">peri</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-310"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;atp&quot;</span><span class="p">)</span>
+<a name="ln-311"></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">atp</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-312"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;isperi&quot;</span><span class="p">)</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;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-314"></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-315"></a>            <span class="k">call </span><span class="n">util_sort_body</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-316"></a>            <span class="k">return</span>
+<a name="ln-317"></a><span class="k">         end select</span>
+<a name="ln-318"></a>
+<a name="ln-319"></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-320"></a>
-<a name="ln-321"></a>      <span class="n">n</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-322"></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">n</span>
-<a name="ln-323"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-324"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-325"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-326"></a><span class="k">            </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-327"></a>         <span class="k">end do</span>
-<a name="ln-328"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">tmp</span>
-<a name="ln-329"></a>      <span class="k">end do</span>
-<a name="ln-330"></a>
-<a name="ln-331"></a><span class="k">      return</span>
-<a name="ln-332"></a><span class="k">   end subroutine </span><span class="n">util_sort_i4b</span>
-<a name="ln-333"></a>
-<a name="ln-334"></a>
-<a name="ln-335"></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-336"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-337"></a>      <span class="c">!!</span>
-<a name="ln-338"></a>      <span class="c">!! Sort input integer array by index in ascending numerical order using insertion sort.</span>
-<a name="ln-339"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
-<a name="ln-340"></a>      <span class="c">!!</span>
-<a name="ln-341"></a>      <span class="k">implicit none</span>
-<a name="ln-342"></a>      <span class="c">! Arguments</span>
-<a name="ln-343"></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">arr</span>
-<a name="ln-344"></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-345"></a>      <span class="c">! Internals</span>
-<a name="ln-346"></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">tmp</span>
-<a name="ln-347"></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">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-348"></a>
-<a name="ln-349"></a>      <span class="n">n</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-350"></a>      <span class="n">ind</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-351"></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">n</span>
-<a name="ln-352"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-353"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-354"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-355"></a><span class="k">            </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-356"></a>         <span class="k">end do</span>
-<a name="ln-357"></a><span class="k">         </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-358"></a>      <span class="k">end do</span>
-<a name="ln-359"></a>
-<a name="ln-360"></a><span class="k">      return</span>
-<a name="ln-361"></a><span class="k">   end subroutine </span><span class="n">util_sort_index_i4b</span>
-<a name="ln-362"></a>
+<a name="ln-321"></a>      <span class="k">end associate</span>
+<a name="ln-322"></a>
+<a name="ln-323"></a><span class="k">      return</span>
+<a name="ln-324"></a><span class="k">   end subroutine </span><span class="n">util_sort_tp</span>
+<a name="ln-325"></a>
+<a name="ln-326"></a>
+<a name="ln-327"></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-328"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-329"></a>      <span class="c">!!</span>
+<a name="ln-330"></a>      <span class="c">!! Rearrange Swiftest body structure in-place from an index list.</span>
+<a name="ln-331"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-332"></a>      <span class="k">implicit none</span>
+<a name="ln-333"></a>      <span class="c">! Arguments</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="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-336"></a>
+<a name="ln-337"></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-338"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-339"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-340"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-341"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-342"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-343"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-344"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-345"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-346"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-347"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-348"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-349"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-350"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-351"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-352"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-353"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-354"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-355"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-356"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-357"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-358"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-359"></a>      <span class="k">end associate</span>
+<a name="ln-360"></a>
+<a name="ln-361"></a><span class="k">      return</span>
+<a name="ln-362"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_body</span>
 <a name="ln-363"></a>
-<a name="ln-364"></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-365"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-366"></a>      <span class="c">!!</span>
-<a name="ln-367"></a>      <span class="c">!! Sort input single precision array in place into ascending numerical order using insertion sort.</span>
-<a name="ln-368"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
-<a name="ln-369"></a>      <span class="c">!</span>
-<a name="ln-370"></a>      <span class="k">implicit none</span>
-<a name="ln-371"></a>      <span class="c">! Arguments</span>
-<a name="ln-372"></a>      <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-373"></a>      <span class="c">! Internals</span>
-<a name="ln-374"></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">tmp</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="kd">::</span> <span class="n">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-364"></a>
+<a name="ln-365"></a>   <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-366"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-367"></a>      <span class="c">!!</span>
+<a name="ln-368"></a>      <span class="c">!! Rearrange a single array of character string in-place from an index list.</span>
+<a name="ln-369"></a>      <span class="k">implicit none</span>
+<a name="ln-370"></a>      <span class="c">! Arguments</span>
+<a name="ln-371"></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-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">ind</span> <span class="c">!! Index to rearrange against</span>
+<a name="ln-373"></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 elements in arr and ind to rearrange</span>
+<a name="ln-374"></a>      <span class="c">! Internals</span>
+<a name="ln-375"></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 copy of arry used during rearrange operation</span>
 <a name="ln-376"></a>
-<a name="ln-377"></a>      <span class="n">n</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-378"></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">n</span>
-<a name="ln-379"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-380"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-381"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-382"></a><span class="k">            </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-383"></a>         <span class="k">end do</span>
-<a name="ln-384"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">tmp</span>
-<a name="ln-385"></a>      <span class="k">end do</span>
-<a name="ln-386"></a>
-<a name="ln-387"></a><span class="k">      return</span>
-<a name="ln-388"></a><span class="k">   end subroutine </span><span class="n">util_sort_sp</span>
-<a name="ln-389"></a>
-<a name="ln-390"></a>
-<a name="ln-391"></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-392"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-393"></a>      <span class="c">!!</span>
-<a name="ln-394"></a>      <span class="c">!! Sort input single precision array by index in ascending numerical order using insertion sort.</span>
-<a name="ln-395"></a>      <span class="c">!! This algorithm works well for partially sorted arrays (which is usually the case here)</span>
-<a name="ln-396"></a>      <span class="c">!!</span>
-<a name="ln-397"></a>      <span class="k">implicit none</span>
-<a name="ln-398"></a>      <span class="c">! Arguments</span>
-<a name="ln-399"></a>      <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-400"></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-401"></a>      <span class="c">! Internals</span>
-<a name="ln-402"></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">tmp</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="kd">::</span> <span class="n">n</span><span class="p">,</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-404"></a>
-<a name="ln-405"></a>      <span class="n">n</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-406"></a>      <span class="n">ind</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-407"></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">n</span>
-<a name="ln-408"></a>         <span class="n">tmp</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-409"></a>         <span class="k">do </span><span class="n">j</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="mi">1</span><span class="p">,</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-410"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">))</span> <span class="o">&lt;=</span> <span class="n">tmp</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-411"></a><span class="k">            </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-412"></a>         <span class="k">end do</span>
-<a name="ln-413"></a><span class="k">         </span><span class="n">ind</span><span class="p">(</span><span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-414"></a>      <span class="k">end do</span>
-<a name="ln-415"></a>
-<a name="ln-416"></a><span class="k">      return</span>
-<a name="ln-417"></a><span class="k">   end subroutine </span><span class="n">util_sort_index_sp</span>
+<a name="ln-377"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-378"></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">arr</span><span class="p">)</span>
+<a name="ln-379"></a>      <span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</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">n</span><span class="p">))</span>
+<a name="ln-380"></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-381"></a>
+<a name="ln-382"></a>      <span class="k">return</span>
+<a name="ln-383"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_arr_char_string</span>
+<a name="ln-384"></a>
+<a name="ln-385"></a>
+<a name="ln-386"></a>   <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-387"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-388"></a>      <span class="c">!!</span>
+<a name="ln-389"></a>      <span class="c">!! Rearrange a single array of DP type in-place from an index list.</span>
+<a name="ln-390"></a>      <span class="k">implicit none</span>
+<a name="ln-391"></a>      <span class="c">! Arguments</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">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-393"></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 to rearrange against</span>
+<a name="ln-394"></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 elements in arr and ind to rearrange</span>
+<a name="ln-395"></a>      <span class="c">! Internals</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary copy of array used during rearrange operation</span>
+<a name="ln-397"></a>
+<a name="ln-398"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-399"></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">arr</span><span class="p">)</span>
+<a name="ln-400"></a>      <span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</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">n</span><span class="p">))</span>
+<a name="ln-401"></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-402"></a>
+<a name="ln-403"></a>      <span class="k">return</span>
+<a name="ln-404"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_arr_DP</span>
+<a name="ln-405"></a>
+<a name="ln-406"></a>
+<a name="ln-407"></a>   <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-408"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-409"></a>      <span class="c">!!</span>
+<a name="ln-410"></a>      <span class="c">!! Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list.</span>
+<a name="ln-411"></a>      <span class="k">implicit none</span>
+<a name="ln-412"></a>      <span class="c">! Arguments</span>
+<a name="ln-413"></a>      <span class="kt">real</span><span 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-414"></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 to rearrange against</span>
+<a name="ln-415"></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 elements in arr and ind to rearrange</span>
+<a name="ln-416"></a>      <span class="c">! Internals</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">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary copy of array used during rearrange operation</span>
 <a name="ln-418"></a>
-<a name="ln-419"></a><span class="k">end submodule </span><span class="n">s_util_sort</span>
+<a name="ln-419"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-420"></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">arr</span><span class="p">)</span>
+<a name="ln-421"></a>      <span class="n">tmp</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</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">n</span><span class="p">))</span>
+<a name="ln-422"></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-423"></a>
+<a name="ln-424"></a>      <span class="k">return</span>
+<a name="ln-425"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_arr_DPvec</span>
+<a name="ln-426"></a>
+<a name="ln-427"></a>
+<a name="ln-428"></a>   <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-429"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-430"></a>      <span class="c">!!</span>
+<a name="ln-431"></a>      <span class="c">!! Rearrange a single array of integers in-place from an index list.</span>
+<a name="ln-432"></a>      <span class="k">implicit none</span>
+<a name="ln-433"></a>      <span class="c">! Arguments</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">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-435"></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 to rearrange against</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">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 elements in arr and ind to rearrange</span>
+<a name="ln-437"></a>      <span class="c">! Internals</span>
+<a name="ln-438"></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 copy of array used during rearrange operation</span>
+<a name="ln-439"></a>
+<a name="ln-440"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-441"></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">arr</span><span class="p">)</span>
+<a name="ln-442"></a>      <span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</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">n</span><span class="p">))</span>
+<a name="ln-443"></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-444"></a>
+<a name="ln-445"></a>      <span class="k">return</span>
+<a name="ln-446"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_arr_I4B</span>
+<a name="ln-447"></a>
+<a name="ln-448"></a>
+<a name="ln-449"></a>   <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-450"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-451"></a>      <span class="c">!!</span>
+<a name="ln-452"></a>      <span class="c">!! Rearrange a single array of logicals in-place from an index list.</span>
+<a name="ln-453"></a>      <span class="k">implicit none</span>
+<a name="ln-454"></a>      <span class="c">! Arguments</span>
+<a name="ln-455"></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-456"></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 to rearrange against</span>
+<a name="ln-457"></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 elements in arr and ind to rearrange</span>
+<a name="ln-458"></a>      <span class="c">! Internals</span>
+<a name="ln-459"></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 copy of array used during rearrange operation</span>
+<a name="ln-460"></a>
+<a name="ln-461"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-462"></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">arr</span><span class="p">)</span>
+<a name="ln-463"></a>      <span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</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">n</span><span class="p">))</span>
+<a name="ln-464"></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-465"></a>
+<a name="ln-466"></a>      <span class="k">return</span>
+<a name="ln-467"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_arr_logical</span>
+<a name="ln-468"></a>
+<a name="ln-469"></a>
+<a name="ln-470"></a>   <span class="k">module subroutine </span><span class="n">util_sort_rearrange_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-471"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-472"></a>      <span class="c">!!</span>
+<a name="ln-473"></a>      <span class="c">!! Rearrange a single array of particle information type in-place from an index list.</span>
+<a name="ln-474"></a>      <span class="k">implicit none</span>
+<a name="ln-475"></a>      <span class="c">! Arguments</span>
+<a name="ln-476"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-477"></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 to rearrange against</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">n</span>   <span class="c">!! Number of elements in arr and ind to rearrange</span>
+<a name="ln-479"></a>      <span class="c">! Internals</span>
+<a name="ln-480"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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 copy of array used during rearrange operation</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="kd">::</span> <span class="n">i</span>
+<a name="ln-482"></a>
+<a name="ln-483"></a>
+<a name="ln-484"></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">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-485"></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">arr</span><span class="p">)</span>
+<a name="ln-486"></a>
+<a name="ln-487"></a>      <span class="k">call </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">tmp</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-488"></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-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">util_sort_rearrange_arr_info</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">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-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">!! Rearrange Swiftest massive body structure in-place from an index list.</span>
+<a name="ln-498"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</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_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-501"></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-502"></a>
+<a name="ln-503"></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-504"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-505"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-506"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-507"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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="n">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-508"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span>    <span class="n">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-509"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-510"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-511"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-512"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-513"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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="n">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-514"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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="n">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-515"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span>    <span class="n">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-516"></a>
+<a name="ln-517"></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">k_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-518"></a>
+<a name="ln-519"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_body</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-520"></a>      <span class="k">end associate</span>
+<a name="ln-521"></a>
+<a name="ln-522"></a><span class="k">      return</span>
+<a name="ln-523"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_pl</span>
+<a name="ln-524"></a>
+<a name="ln-525"></a>
+<a name="ln-526"></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-527"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-528"></a>      <span class="c">!!</span>
+<a name="ln-529"></a>      <span class="c">!! Rearrange Swiftest massive body structure in-place from an index list.</span>
+<a name="ln-530"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-531"></a>      <span class="k">implicit none</span>
+<a name="ln-532"></a>      <span class="c">! Arguments</span>
+<a name="ln-533"></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-534"></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-535"></a>
+<a name="ln-536"></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-537"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-538"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</span><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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-539"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">ntp</span><span class="p">)</span>
+<a name="ln-540"></a>
+<a name="ln-541"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_body</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-542"></a>      <span class="k">end associate</span>
+<a name="ln-543"></a>
+<a name="ln-544"></a><span class="k">      return</span>
+<a name="ln-545"></a><span class="k">   end subroutine </span><span class="n">util_sort_rearrange_tp</span>
+<a name="ln-546"></a>
+<a name="ln-547"></a><span class="k">end submodule </span><span class="n">s_util_sort</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_spill.f90.html b/docs/sourcefile/util_spill.f90.html
index 34e1d5ebb..f76af9c66 100644
--- a/docs/sourcefile/util_spill.f90.html
+++ b/docs/sourcefile/util_spill.f90.html
@@ -134,7 +134,7 @@ <h1>util_spill.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.5% of total for source files.">201 statements</a>
+    title=" 2.0% of total for source files.">332 statements</a>
      </li> 
      
      
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_spillf90EfferentGraph" width="641pt" height="298pt"
+ viewBox="0.00 0.00 641.00 297.69" 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 412.12)">
 <title>sourcefile~~util_spill.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 885,-301.25 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 892,-412.12 892,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,-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>
+<polygon fill="none" stroke="black" points="888,-133.12 820,-133.12 820,-109.12 888,-109.12 888,-133.12"/>
+<text text-anchor="middle" x="854" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M832.76,-109.09C794.34,-87.43 707.61,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.21,-133.4C823.06,-149.87 792.42,-179.29 772.16,-198.76"/>
+<polygon fill="#000000" stroke="#000000" points="769.48,-196.48 764.69,-205.93 774.32,-201.53 769.48,-196.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_spill.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_spill.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"/>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_spill.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_spill.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_spill.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -573,291 +627,460 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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="p">,</span> <span 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-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">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
 <a name="ln-15"></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-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">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-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">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-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">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</span>
+<a name="ln-18"></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">!! Array of values to keep </span>
 <a name="ln-19"></a>
-<a name="ln-20"></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-21"></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-22"></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-23"></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-24"></a>         <span class="k">else</span>
-<a name="ln-25"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
-<a name="ln-26"></a>         <span class="k">end if</span>
-<a name="ln-27"></a><span class="k">      end if</span>
-<a name="ln-28"></a>
-<a name="ln-29"></a><span class="k">      return</span>
-<a name="ln-30"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_char_string</span>
+<a name="ln-20"></a>      <span class="n">nkeep</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-21"></a>      <span class="n">nspill</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-22"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-23"></a>
+<a name="ln-24"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-25"></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">then</span>
+<a name="ln-26"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-27"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-28"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-29"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</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">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-33"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-34"></a>      <span class="c">!!</span>
-<a name="ln-35"></a>      <span class="c">!! Performs a spill operation on a single array of type DP</span>
-<a name="ln-36"></a>      <span class="c">!! This is the inverse of a spill operation</span>
-<a name="ln-37"></a>      <span class="k">implicit none</span>
-<a name="ln-38"></a>      <span class="c">! Arguments</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="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-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="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-41"></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-42"></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-43"></a>
-<a name="ln-44"></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-45"></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-32"></a><span class="k">      </span><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="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-33"></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-34"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</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">tmp</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-36"></a>            <span class="n">tmp</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="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-37"></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">keeps</span><span class="p">)</span>
+<a name="ln-38"></a>         <span class="k">else</span>
+<a name="ln-39"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</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>
+<a name="ln-43"></a><span class="k">      return</span>
+<a name="ln-44"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_char_string</span>
+<a name="ln-45"></a>   
 <a name="ln-46"></a>
-<a name="ln-47"></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-48"></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-49"></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-50"></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-51"></a>         <span class="k">else</span>
-<a name="ln-52"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</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 if</span>
-<a name="ln-55"></a>
-<a name="ln-56"></a><span class="k">      return</span>
-<a name="ln-57"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_DP</span>
-<a name="ln-58"></a>
-<a name="ln-59"></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-60"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-61"></a>      <span class="c">!!</span>
-<a name="ln-62"></a>      <span class="c">!! Performs a spill operation on a single array of DP vectors with shape (NDIM, n)</span>
-<a name="ln-63"></a>      <span class="c">!! This is the inverse of a spill operation</span>
-<a name="ln-64"></a>      <span class="k">implicit none</span>
-<a name="ln-65"></a>      <span class="c">! Arguments</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="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-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="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-68"></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-69"></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-70"></a>      <span class="c">! Internals</span>
-<a name="ln-71"></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-72"></a>
-<a name="ln-73"></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-74"></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="n">NDIM</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-75"></a>
-<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">NDIM</span>
-<a name="ln-77"></a>         <span class="n">discards</span><span class="p">(</span><span class="n">i</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">i</span><span class="p">,:),</span> <span class="n">lspill_list</span><span class="p">(:))</span>
-<a name="ln-78"></a>      <span class="k">end do</span>
-<a name="ln-79"></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-80"></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-81"></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-82"></a>               <span class="n">keeps</span><span class="p">(</span><span class="n">i</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">i</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-83"></a>            <span class="k">end do</span>
-<a name="ln-84"></a><span class="k">         end if</span>
-<a name="ln-85"></a><span class="k">      end if</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">util_spill_arr_DPvec</span>
-<a name="ln-89"></a>
-<a name="ln-90"></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-91"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-92"></a>      <span class="c">!!</span>
-<a name="ln-93"></a>      <span class="c">!! Performs a spill operation on a single array of type I4B</span>
-<a name="ln-94"></a>      <span class="c">!! This is the inverse of a spill operation</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="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-98"></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-99"></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-100"></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-101"></a>
-<a name="ln-102"></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-103"></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-104"></a>
-<a name="ln-105"></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-106"></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-107"></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-108"></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-109"></a>         <span class="k">else</span>
-<a name="ln-110"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
-<a name="ln-111"></a>         <span class="k">end if</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">      return</span>
-<a name="ln-115"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_I4B</span>
-<a name="ln-116"></a>
-<a name="ln-117"></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-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">!! Performs a spill operation on a single array of logicals</span>
-<a name="ln-121"></a>      <span class="c">!! This is the inverse of a spill operation</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="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-125"></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-126"></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-127"></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 no</span>
-<a name="ln-128"></a>
-<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="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-130"></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-131"></a>
-<a name="ln-132"></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-133"></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-134"></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-135"></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-136"></a>         <span class="k">else</span>
-<a name="ln-137"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
-<a name="ln-138"></a>         <span class="k">end if</span>
-<a name="ln-139"></a><span class="k">      end if</span>
-<a name="ln-140"></a>
-<a name="ln-141"></a><span class="k">      return</span>
-<a name="ln-142"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_logical</span>
-<a name="ln-143"></a>
-<a name="ln-144"></a>
-<a name="ln-145"></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-146"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-147"></a>      <span class="c">!!</span>
-<a name="ln-148"></a>      <span class="c">!! Move spilled (discarded) Swiftest generic particle structure from active list to discard list</span>
-<a name="ln-149"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-150"></a>      <span class="k">implicit none</span>
-<a name="ln-151"></a>      <span class="c">! Arguments</span>
-<a name="ln-152"></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-153"></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-154"></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-155"></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-156"></a>      <span class="c">! Internals</span>
-<a name="ln-157"></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-158"></a>
-<a name="ln-159"></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-160"></a>      <span class="c">!&gt; Spill all the common components</span>
-<a name="ln-161"></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-162"></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">id</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">id</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-163"></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">name</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">name</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-164"></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">status</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">status</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-165"></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">lmask</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lmask</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-166"></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">ldiscard</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ldiscard</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-167"></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">mu</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">mu</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-168"></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">xh</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xh</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-169"></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">vh</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vh</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-170"></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">xb</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xb</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-171"></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">vb</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vb</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-172"></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">ah</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ah</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-173"></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">aobl</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">aobl</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-174"></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">agr</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">agr</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-175"></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">atide</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">atide</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-176"></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">a</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">a</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-177"></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">e</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">e</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-178"></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">inc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">inc</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-179"></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">capom</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">capom</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-180"></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">omega</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">omega</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-181"></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">capm</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">capm</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-182"></a>
-<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="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>
-<a name="ln-190"></a><span class="k">     </span>
-<a name="ln-191"></a><span class="k">      return</span>
-<a name="ln-192"></a><span class="k">   end subroutine </span><span class="n">util_spill_body</span>
-<a name="ln-193"></a>
-<a name="ln-194"></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-195"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-196"></a>      <span class="c">!!</span>
-<a name="ln-197"></a>      <span class="c">!! Move spilled (discarded) Swiftest encounter structure from active list to discard list</span>
-<a name="ln-198"></a>      <span class="k">implicit none</span>
-<a name="ln-199"></a>      <span class="c">! Arguments</span>
-<a name="ln-200"></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-201"></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-202"></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-203"></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-204"></a>      <span class="c">! Internals</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">i</span>
-<a name="ln-206"></a>  
-<a name="ln-207"></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-208"></a>   
-<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">lvdotr</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lvdotr</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">status</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">status</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">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">index1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">index1</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-212"></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">index2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">index2</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">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">x1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">x1</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-214"></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">x2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">x2</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-215"></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">v1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">v1</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-216"></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">v2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">v2</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-47"></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-48"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-49"></a>      <span class="c">!!</span>
+<a name="ln-50"></a>      <span class="c">!! Performs a spill operation on a single array of type DP</span>
+<a name="ln-51"></a>      <span class="c">!! This is the inverse of a spill operation</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="kt">real</span><span 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-55"></a>      <span class="kt">real</span><span 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-56"></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-57"></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-58"></a>      <span class="c">! Internals</span>
+<a name="ln-59"></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">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</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="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>                <span class="kd">::</span> <span class="n">tmp</span>          <span class="c">!! Array of values to keep </span>
+<a name="ln-61"></a>
+<a name="ln-62"></a>      <span class="n">nkeep</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-63"></a>      <span class="n">nspill</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-64"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</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">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-67"></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">then</span>
+<a name="ln-68"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-69"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-70"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-71"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</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">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="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-75"></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-76"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-77"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-78"></a>            <span class="n">tmp</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="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-79"></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">keeps</span><span class="p">)</span>
+<a name="ln-80"></a>         <span class="k">else</span>
+<a name="ln-81"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-82"></a>         <span class="k">end if</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">util_spill_arr_DP</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">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-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">!! Performs a spill operation on a single array of DP vectors with shape (NDIM, n)</span>
+<a name="ln-93"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-94"></a>      <span class="k">implicit none</span>
+<a name="ln-95"></a>      <span class="c">! Arguments</span>
+<a name="ln-96"></a>      <span class="kt">real</span><span 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-97"></a>      <span class="kt">real</span><span 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-98"></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-99"></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-100"></a>      <span class="c">! Internals</span>
+<a name="ln-101"></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">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</span>
+<a name="ln-102"></a>      <span class="kt">real</span><span 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">!! Array of values to keep </span>
+<a name="ln-103"></a>
+<a name="ln-104"></a>      <span class="n">nkeep</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-105"></a>      <span class="n">nspill</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-106"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-107"></a>
+<a name="ln-108"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<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="nb">allocated</span><span class="p">(</span><span class="n">discards</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-110"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nspill</span><span class="p">))</span>
+<a name="ln-111"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-112"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-113"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nspill</span><span class="p">))</span>
+<a name="ln-114"></a>      <span class="k">end if</span>
+<a name="ln-115"></a>
+<a name="ln-116"></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-117"></a>         <span class="n">discards</span><span class="p">(</span><span class="n">i</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">i</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-118"></a>      <span class="k">end do</span>
+<a name="ln-119"></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-120"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</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">tmp</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-122"></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-123"></a>               <span class="n">tmp</span><span class="p">(</span><span class="n">i</span><span class="p">,</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">i</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-124"></a>            <span class="k">end do</span>
+<a name="ln-125"></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">keeps</span><span class="p">)</span>
+<a name="ln-126"></a>         <span class="k">else</span>
+<a name="ln-127"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-128"></a>         <span class="k">end if</span>
+<a name="ln-129"></a><span class="k">      end if</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">util_spill_arr_DPvec</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">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-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">!! Performs a spill operation on a single array of type I4B</span>
+<a name="ln-139"></a>      <span class="c">!! This is the inverse of a spill operation</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="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-143"></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-144"></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-145"></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-146"></a>      <span class="c">! Internals</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">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</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">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>                <span class="kd">::</span> <span class="n">tmp</span>          <span class="c">!! Array of values to keep </span>
+<a name="ln-149"></a>
+<a name="ln-150"></a>      <span class="n">nkeep</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-151"></a>      <span class="n">nspill</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-152"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-153"></a>
+<a name="ln-154"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-155"></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">then</span>
+<a name="ln-156"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-157"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</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">discards</span><span class="p">)</span>
+<a name="ln-159"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-160"></a>      <span class="k">end if</span>
+<a name="ln-161"></a>
+<a name="ln-162"></a><span class="k">      </span><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="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-163"></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-164"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-165"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-166"></a>            <span class="n">tmp</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="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-167"></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">keeps</span><span class="p">)</span>
+<a name="ln-168"></a>         <span class="k">else</span>
+<a name="ln-169"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</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>
+<a name="ln-173"></a><span class="k">      return</span>
+<a name="ln-174"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_I4B</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">util_spill_arr_I8B</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-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 spill operation on a single array of type I4B</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="kt">integer</span><span class="p">(</span><span class="n">I8B</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="kt">integer</span><span class="p">(</span><span class="n">I8B</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-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">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</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">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</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="kd">::</span> <span class="n">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</span>
+<a name="ln-190"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</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">!! Array of values to keep </span>
+<a name="ln-191"></a>
+<a name="ln-192"></a>      <span class="n">nkeep</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-193"></a>      <span class="n">nspill</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-194"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-195"></a>
+<a name="ln-196"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-197"></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">then</span>
+<a name="ln-198"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-199"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-200"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-201"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-202"></a>      <span class="k">end if</span>
+<a name="ln-203"></a>
+<a name="ln-204"></a><span class="k">      </span><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="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-205"></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-206"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-207"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-208"></a>            <span class="n">tmp</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="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-209"></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">keeps</span><span class="p">)</span>
+<a name="ln-210"></a>         <span class="k">else</span>
+<a name="ln-211"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-212"></a>         <span class="k">end if</span>
+<a name="ln-213"></a><span class="k">      end if</span>
+<a name="ln-214"></a>
+<a name="ln-215"></a><span class="k">      return</span>
+<a name="ln-216"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_I8B</span>
 <a name="ln-217"></a>
-<a name="ln-218"></a>         <span class="c">! This is the base class, so will be the last to be called in the cascade. </span>
-<a name="ln-219"></a>         <span class="c">! Therefore we need to set the nenc values for both the keeps and discareds</span>
-<a name="ln-220"></a>         <span class="n">discards</span><span class="p">%</span><span class="n">nenc</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-221"></a>         <span class="n">keeps</span><span class="p">%</span><span class="n">nenc</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-222"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nenc</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">nenc</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-223"></a>      <span class="k">end associate</span>
-<a name="ln-224"></a><span class="k">   </span>
-<a name="ln-225"></a><span class="k">      return</span>
-<a name="ln-226"></a><span class="k">   end subroutine </span><span class="n">util_spill_encounter</span>
-<a name="ln-227"></a>
-<a name="ln-228"></a>
-<a name="ln-229"></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-230"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-231"></a>      <span class="c">!!</span>
-<a name="ln-232"></a>      <span class="c">!! Move spilled (discarded) Swiftest massive body structure from active list to discard list</span>
-<a name="ln-233"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-234"></a>      <span class="k">implicit none</span>
-<a name="ln-235"></a>      <span class="c">! Arguments</span>
-<a name="ln-236"></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-237"></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-238"></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-239"></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-240"></a>      <span class="c">! Internals</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">i</span>
-<a name="ln-242"></a>
-<a name="ln-243"></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-244"></a>
-<a name="ln-245"></a>         <span class="k">select type</span> <span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="c">! The standard requires us to select the type of both arguments in order to access all the components</span>
-<a name="ln-246"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
-<a name="ln-247"></a>            <span class="c">!&gt; Spill components specific to the massive body class</span>
-<a name="ln-248"></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">mass</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">mass</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-249"></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">Gmass</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">Gmass</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-250"></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">rhill</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">rhill</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-251"></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">radius</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">radius</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-252"></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">density</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">density</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-253"></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">k2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">k2</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-254"></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">Q</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">Q</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-255"></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">tlag</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">tlag</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-256"></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">xbeg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xbeg</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-257"></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">vbeg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vbeg</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-258"></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">Ip</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">Ip</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-259"></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">rot</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">rot</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-260"></a>
-<a name="ln-261"></a>            <span class="k">call </span><span class="n">util_spill_body</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-262"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-263"></a>            <span class="k">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! spill method called for incompatible return type on swiftest_pl&#39;</span>
-<a name="ln-264"></a>         <span class="k">end select</span>
-<a name="ln-265"></a><span class="k">      end associate</span>
+<a name="ln-218"></a>
+<a name="ln-219"></a>   <span class="k">module subroutine </span><span class="n">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-220"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-221"></a>      <span class="c">!!</span>
+<a name="ln-222"></a>      <span class="c">!! Performs a spill operation on a single array of particle origin information types</span>
+<a name="ln-223"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-224"></a>      <span class="k">implicit none</span>
+<a name="ln-225"></a>      <span class="c">! Arguments</span>
+<a name="ln-226"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-227"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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-228"></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-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">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</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="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</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="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">idx</span>
+<a name="ln-233"></a>      <span class="k">type</span><span class="p">(</span><span class="n">swiftest_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>
+<a name="ln-234"></a>
+<a name="ln-235"></a>      <span class="n">nkeep</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-236"></a>      <span class="n">nspill</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-237"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-238"></a>
+<a name="ln-239"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-240"></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">then</span>
+<a name="ln-241"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-242"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-243"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-244"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</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">      allocate</span><span class="p">(</span><span class="n">idx</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-248"></a>      <span class="n">idx</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">nlist</span><span class="p">)],</span> <span class="n">lspill_list</span><span class="p">)</span>
+<a name="ln-249"></a>      <span class="k">call </span><span class="n">util_copy_particle_info_arr</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">idx</span><span class="p">)</span>
+<a name="ln-250"></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-251"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-252"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-253"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">idx</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-254"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-255"></a>            <span class="n">idx</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</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">nlist</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-256"></a>            <span class="k">call </span><span class="n">util_copy_particle_info_arr</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">tmp</span><span class="p">,</span> <span class="n">idx</span><span class="p">)</span>
+<a name="ln-257"></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">keeps</span><span class="p">)</span>
+<a name="ln-258"></a>         <span class="k">else</span>
+<a name="ln-259"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</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>
+<a name="ln-263"></a><span class="k">      return</span>
+<a name="ln-264"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_info</span>
+<a name="ln-265"></a>
 <a name="ln-266"></a>
-<a name="ln-267"></a><span class="k">      return</span>
-<a name="ln-268"></a><span class="k">   end subroutine </span><span class="n">util_spill_pl</span>   
-<a name="ln-269"></a>
-<a name="ln-270"></a>
-<a name="ln-271"></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-272"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-273"></a>      <span class="c">!!</span>
-<a name="ln-274"></a>      <span class="c">!! Move spilled (discarded) Swiftest test particle structure from active list to discard list</span>
-<a name="ln-275"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-276"></a>      <span class="k">implicit none</span>
-<a name="ln-277"></a>      <span class="c">! Arguments</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">intent</span><span 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-279"></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-280"></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 discardse</span>
-<a name="ln-281"></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-282"></a>
-<a name="ln-283"></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> <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-284"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-285"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
-<a name="ln-286"></a>            <span class="c">!&gt; Spill components specific to the test particle class</span>
-<a name="ln-287"></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-288"></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-289"></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-290"></a>
-<a name="ln-291"></a>            <span class="k">call </span><span class="n">util_spill_body</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-292"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-293"></a>            <span class="k">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! spill method called for incompatible return type on swiftest_tp&#39;</span>
-<a name="ln-294"></a>         <span class="k">end select</span>
-<a name="ln-295"></a><span class="k">      end associate</span>
-<a name="ln-296"></a>
-<a name="ln-297"></a><span class="k">      return</span>
-<a name="ln-298"></a><span class="k">   end subroutine </span><span class="n">util_spill_tp</span>
-<a name="ln-299"></a>
-<a name="ln-300"></a><span class="k">end submodule </span><span class="n">s_util_spill</span>
+<a name="ln-267"></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-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">!! Performs a spill operation on a single array of logicals</span>
+<a name="ln-271"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-272"></a>      <span class="k">implicit none</span>
+<a name="ln-273"></a>      <span class="c">! Arguments</span>
+<a name="ln-274"></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">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-275"></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-276"></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-277"></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 no</span>
+<a name="ln-278"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">nspill</span><span class="p">,</span> <span class="n">nkeep</span><span class="p">,</span> <span class="n">nlist</span>
+<a name="ln-280"></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">!! Array of values to keep </span>
+<a name="ln-281"></a>
+<a name="ln-282"></a>      <span class="n">nkeep</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-283"></a>      <span class="n">nspill</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-284"></a>      <span class="n">nlist</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-285"></a>
+<a name="ln-286"></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="n">nspill</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-287"></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">then</span>
+<a name="ln-288"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-289"></a>      <span class="k">else if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="o">/=</span> <span class="n">nspill</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-290"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-291"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="n">nspill</span><span class="p">))</span>
+<a name="ln-292"></a>      <span class="k">end if</span>
+<a name="ln-293"></a>
+<a name="ln-294"></a><span class="k">      </span><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="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">),</span> <span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-295"></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-296"></a><span class="k">         if</span> <span class="p">(</span><span class="n">nkeep</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-297"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nkeep</span><span class="p">))</span>
+<a name="ln-298"></a>            <span class="n">tmp</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="mi">1</span><span class="p">:</span><span class="n">nlist</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><span class="mi">1</span><span class="p">:</span><span class="n">nlist</span><span class="p">))</span>
+<a name="ln-299"></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">keeps</span><span class="p">)</span>
+<a name="ln-300"></a>         <span class="k">else</span>
+<a name="ln-301"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</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>
+<a name="ln-305"></a><span class="k">      return</span>
+<a name="ln-306"></a><span class="k">   end subroutine </span><span class="n">util_spill_arr_logical</span>
+<a name="ln-307"></a>
+<a name="ln-308"></a>
+<a name="ln-309"></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-310"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-311"></a>      <span class="c">!!</span>
+<a name="ln-312"></a>      <span class="c">!! Move spilled (discarded) Swiftest generic particle structure from active list to discard list</span>
+<a name="ln-313"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-314"></a>      <span class="k">implicit none</span>
+<a name="ln-315"></a>      <span class="c">! Arguments</span>
+<a name="ln-316"></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-317"></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-318"></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-319"></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-320"></a>      <span class="c">! Internals</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">nbody_old</span>
+<a name="ln-322"></a>
+<a name="ln-323"></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-324"></a>      <span class="c">!&gt; Spill all the common components</span>
+<a name="ln-325"></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-326"></a>         
+<a name="ln-327"></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">id</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">id</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-328"></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-329"></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">status</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">status</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-330"></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">lmask</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lmask</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-331"></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">ldiscard</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ldiscard</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-332"></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">mu</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">mu</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-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">xh</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xh</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">vh</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vh</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">xb</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xb</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>         <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">vb</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vb</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">ah</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ah</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">aobl</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">aobl</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>         <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">agr</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">agr</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-340"></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">atide</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">atide</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">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">a</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-342"></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">e</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">e</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-343"></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">inc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">inc</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-344"></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">capom</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">capom</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-345"></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">omega</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">omega</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-346"></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">capm</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">capm</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-347"></a>
+<a name="ln-348"></a>         <span class="n">nbody_old</span> <span class="o">=</span> <span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-349"></a>
+<a name="ln-350"></a>         <span class="c">! This is the base class, so will be the last to be called in the cascade. </span>
+<a name="ln-351"></a>         <span class="c">! Therefore we need to set the nbody values for both the keeps and discareds</span>
+<a name="ln-352"></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><span class="mi">1</span><span class="p">:</span><span class="n">nbody_old</span><span class="p">))</span>
+<a name="ln-353"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</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="n">nbody_old</span><span class="o">-</span> <span class="n">discards</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-354"></a>      <span class="k">end associate</span>
+<a name="ln-355"></a><span class="k">     </span>
+<a name="ln-356"></a><span class="k">      return</span>
+<a name="ln-357"></a><span class="k">   end subroutine </span><span class="n">util_spill_body</span>
+<a name="ln-358"></a>
+<a name="ln-359"></a>
+<a name="ln-360"></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-361"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-362"></a>      <span class="c">!!</span>
+<a name="ln-363"></a>      <span class="c">!! Move spilled (discarded) Swiftest encounter structure from active list to discard list</span>
+<a name="ln-364"></a>      <span class="k">implicit none</span>
+<a name="ln-365"></a>      <span class="c">! Arguments</span>
+<a name="ln-366"></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-367"></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-368"></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-369"></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-370"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">nenc_old</span>
+<a name="ln-372"></a>  
+<a name="ln-373"></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-374"></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">lvdotr</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lvdotr</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-375"></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">status</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">status</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-376"></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">kidx</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">kidx</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-377"></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">index1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">index1</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-378"></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">index2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">index2</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-379"></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">id1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">id1</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-380"></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">id2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">id2</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-381"></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">x1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">x1</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-382"></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">x2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">x2</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-383"></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">v1</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">v1</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-384"></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">v2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">v2</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-385"></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">t</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">t</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-386"></a>
+<a name="ln-387"></a>         <span class="n">nenc_old</span> <span class="o">=</span> <span class="n">keeps</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-388"></a>
+<a name="ln-389"></a>         <span class="c">! This is the base class, so will be the last to be called in the cascade. </span>
+<a name="ln-390"></a>         <span class="c">! Therefore we need to set the nenc values for both the keeps and discareds</span>
+<a name="ln-391"></a>         <span class="n">discards</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nenc_old</span><span class="p">))</span>
+<a name="ln-392"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</span><span class="p">)</span> <span class="n">keeps</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">nenc_old</span> <span class="o">-</span> <span class="n">discards</span><span class="p">%</span><span class="n">nenc</span>
+<a name="ln-393"></a>      <span class="k">end associate</span>
+<a name="ln-394"></a><span class="k">   </span>
+<a name="ln-395"></a><span class="k">      return</span>
+<a name="ln-396"></a><span class="k">   end subroutine </span><span class="n">util_spill_encounter</span>
+<a name="ln-397"></a>
+<a name="ln-398"></a>
+<a name="ln-399"></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-400"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-401"></a>      <span class="c">!!</span>
+<a name="ln-402"></a>      <span class="c">!! Move spilled (discarded) Swiftest massive body structure from active list to discard list</span>
+<a name="ln-403"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-404"></a>      <span class="k">implicit none</span>
+<a name="ln-405"></a>      <span class="c">! Arguments</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_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-408"></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-409"></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-410"></a>
+<a name="ln-411"></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-412"></a>         <span class="k">select type</span> <span class="p">(</span><span class="n">discards</span><span class="p">)</span> <span class="c">! The standard requires us to select the type of both arguments in order to access all the components</span>
+<a name="ln-413"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-414"></a>            <span class="c">!&gt; Spill components specific to the massive body class</span>
+<a name="ln-415"></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">mass</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">mass</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-416"></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">Gmass</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">Gmass</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-417"></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">rhill</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">rhill</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-418"></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">radius</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">radius</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-419"></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">density</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">density</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-420"></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">k2</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">k2</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-421"></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">Q</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">Q</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-422"></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">tlag</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">tlag</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-423"></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">xbeg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xbeg</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-424"></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">vbeg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vbeg</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-425"></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">Ip</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">Ip</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-426"></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">rot</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">rot</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-427"></a>
+<a name="ln-428"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</span> <span class="p">.</span><span class="nb">and</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="n">k_plpl</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span>
+<a name="ln-429"></a>
+<a name="ln-430"></a>            <span class="k">call </span><span class="n">util_spill_body</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-431"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-432"></a>            <span class="k">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! spill method called for incompatible return type on swiftest_pl&#39;</span>
+<a name="ln-433"></a>         <span class="k">end select</span>
+<a name="ln-434"></a><span class="k">      end associate</span>
+<a name="ln-435"></a>
+<a name="ln-436"></a><span class="k">      return</span>
+<a name="ln-437"></a><span class="k">   end subroutine </span><span class="n">util_spill_pl</span>   
+<a name="ln-438"></a>
+<a name="ln-439"></a>
+<a name="ln-440"></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-441"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-442"></a>      <span class="c">!!</span>
+<a name="ln-443"></a>      <span class="c">!! Move spilled (discarded) Swiftest test particle structure from active list to discard list</span>
+<a name="ln-444"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-445"></a>      <span class="k">implicit none</span>
+<a name="ln-446"></a>      <span class="c">! Arguments</span>
+<a name="ln-447"></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-448"></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-449"></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 discardse</span>
+<a name="ln-450"></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-451"></a>
+<a name="ln-452"></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> <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-453"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-454"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-455"></a>            <span class="c">!&gt; Spill components specific to the test particle class</span>
+<a name="ln-456"></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-457"></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-458"></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-459"></a>
+<a name="ln-460"></a>            <span class="k">call </span><span class="n">util_spill_body</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-461"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-462"></a>            <span class="k">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! spill method called for incompatible return type on swiftest_tp&#39;</span>
+<a name="ln-463"></a>         <span class="k">end select</span>
+<a name="ln-464"></a><span class="k">      end associate</span>
+<a name="ln-465"></a>
+<a name="ln-466"></a><span class="k">      return</span>
+<a name="ln-467"></a><span class="k">   end subroutine </span><span class="n">util_spill_tp</span>
+<a name="ln-468"></a>
+<a name="ln-469"></a><span class="k">end submodule </span><span class="n">s_util_spill</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_valid.f90.html b/docs/sourcefile/util_valid.f90.html
index 051f5358b..98696a6f8 100644
--- a/docs/sourcefile/util_valid.f90.html
+++ b/docs/sourcefile/util_valid.f90.html
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_validf90EfferentGraph" width="641pt" height="296pt"
+ viewBox="0.00 0.00 641.00 296.37" 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.71 0.71) rotate(0) translate(4 412.12)">
 <title>sourcefile~~util_valid.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 889,-301.25 889,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 896,-412.12 896,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,-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>
+<polygon fill="none" stroke="black" points="892,-133.12 820,-133.12 820,-109.12 892,-109.12 892,-133.12"/>
+<text text-anchor="middle" x="856" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834.56,-109.09C795.78,-87.43 708.24,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.95,-133.4C824.39,-149.95 792.95,-179.55 772.28,-199.02"/>
+<polygon fill="#000000" stroke="#000000" points="769.82,-196.53 764.94,-205.93 774.62,-201.62 769.82,-196.53"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_valid.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_valid.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_valid.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_valid.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_valid.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
@@ -572,7 +626,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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_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-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">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-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>
@@ -594,7 +648,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-37"></a><span class="k">         </span><span class="n">param</span><span class="p">%</span><span class="n">maxid</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">maxid</span><span class="p">,</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>
diff --git a/docs/sourcefile/util_version.f90.html b/docs/sourcefile/util_version.f90.html
index e74c8d323..a1d035034 100644
--- a/docs/sourcefile/util_version.f90.html
+++ b/docs/sourcefile/util_version.f90.html
@@ -226,244 +226,298 @@ <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="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)">
+<svg id="sourcefileutil_versionf90EfferentGraph" width="641pt" height="292pt"
+ viewBox="0.00 0.00 641.00 292.15" 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.7 0.7) rotate(0) translate(4 412.12)">
 <title>sourcefile~~util_version.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 902,-301.25 902,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-412.12 909,-412.12 909,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,-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>
+<polygon fill="none" stroke="black" points="905,-133.12 820,-133.12 820,-109.12 905,-109.12 905,-133.12"/>
+<text text-anchor="middle" x="862.5" y="-118.72" 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_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-210.12 143.5,-210.12 143.5,-186.12 250.5,-186.12 250.5,-210.12"/>
+<text text-anchor="middle" x="197" y="-195.72" 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_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.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.43,-109.09C800.46,-87.43 710.3,-44.12 628.5,-44.12 628.5,-44.12 628.5,-44.12 488.5,-44.12 398.99,-44.12 364.84,-17.2 288,-63.12 244.55,-89.08 217.76,-145.11 205.64,-176.2"/>
+<polygon fill="#000000" stroke="#000000" points="202.31,-175.12 202.09,-185.71 208.87,-177.57 202.31,-175.12"/>
 </g>
 <!-- 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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-230.12 718,-230.12 718,-206.12 784,-206.12 784,-230.12"/>
+<text text-anchor="middle" x="751" y="-215.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M847.63,-133.4C828.87,-150.02 795.24,-179.82 773.27,-199.27"/>
+<polygon fill="#000000" stroke="#000000" points="770.92,-196.68 765.76,-205.93 775.56,-201.92 770.92,-196.68"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node10" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<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>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-328.12 0,-328.12 0,-304.12 106,-304.12 106,-328.12"/>
+<text text-anchor="middle" x="53" y="-313.72" 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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.34,-210.3C156.57,-230.88 106.28,-272.67 76.85,-297.13"/>
+<polygon fill="#000000" stroke="#000000" points="74.25,-294.74 68.79,-303.82 78.72,-300.12 74.25,-294.74"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge4" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.77,-226.77C693.44,-232.54 659.11,-239.09 628.5,-239.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C601.12,-239.14 593.81,-233.66 573,-219.12 552.85,-205.03 558.79,-188.5 537,-177.12 462.16,-138.04 430.8,-141.63 348,-158.12"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~walltime_classes.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>
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-368.12 142,-368.12 142,-344.12 252,-344.12 252,-368.12"/>
+<text text-anchor="middle" x="197" y="-353.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-356.12C319.01,-350.56 288.65,-349.66 262.49,-350.49"/>
+<polygon fill="#000000" stroke="#000000" points="262.16,-347 252.31,-350.9 262.45,-353.99 262.16,-347"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-290.12 300,-290.12 300,-266.12 394,-266.12 394,-290.12"/>
+<text text-anchor="middle" x="347" y="-275.72" 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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <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="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_node6" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<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_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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C585.54,-239.62 577.4,-254.37 537,-261.12 492.74,-268.5 442.08,-272.84 404.36,-275.29"/>
+<polygon fill="#000000" stroke="#000000" points="403.84,-271.81 394.08,-275.93 404.28,-278.8 403.84,-271.81"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node6" 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>
+<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="537,-252.12 442,-252.12 442,-228.12 537,-228.12 537,-252.12"/>
+<text text-anchor="middle" x="489.5" y="-237.72" 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">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge7" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C600.47,-239.44 571.64,-239.67 547.24,-239.82"/>
+<polygon fill="#000000" stroke="#000000" points="547.06,-236.33 537.08,-239.89 547.1,-243.33 547.06,-236.33"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.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="M346,-356.12C279.26,-342.37 266.01,-311.94 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M744.69,-230.42C735.09,-251.37 712.89,-294.12 682,-319.12 610.69,-376.82 582.01,-402.51 490.5,-396.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C472.32,-397.38 363.9,-359.39 348,-356.12"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<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>
+<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="682,-310.12 573,-310.12 573,-286.12 682,-286.12 682,-310.12"/>
+<text text-anchor="middle" x="627.5" y="-295.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.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,-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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.55,-230.27C711.27,-243.62 678.51,-265.19 655.38,-280.42"/>
+<polygon fill="#000000" stroke="#000000" points="653.16,-277.69 646.73,-286.11 657.01,-283.54 653.16,-277.69"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-210.12 442.5,-210.12 442.5,-186.12 536.5,-186.12 536.5,-210.12"/>
+<text text-anchor="middle" x="489.5" y="-195.72" 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_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-239.12C608.12,-239.34 565.03,-225.4 532.24,-213.72"/>
+<polygon fill="#000000" stroke="#000000" points="533.02,-210.28 522.43,-210.18 530.65,-216.87 533.02,-210.28"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node10" 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>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-210.12 576,-210.12 576,-186.12 679,-186.12 679,-210.12"/>
+<text text-anchor="middle" x="627.5" y="-195.72" 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_version.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge11" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-212.81C708.99,-211.37 699.2,-209.76 689.41,-208.14"/>
+<polygon fill="#000000" stroke="#000000" points="689.68,-204.64 679.24,-206.47 688.54,-211.55 689.68,-204.64"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-96.12 294.5,-96.12 294.5,-72.12 399.5,-72.12 399.5,-96.12"/>
+<text text-anchor="middle" x="347" y="-81.72" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_version.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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.92,-206C717.43,-197.59 698.83,-186.29 682,-177.12 618.99,-142.78 605.85,-126.33 537,-106.12 495.71,-93.99 447.51,-88.51 410.12,-86.05"/>
+<polygon fill="#000000" stroke="#000000" points="410.07,-82.54 399.88,-85.44 409.65,-89.53 410.07,-82.54"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-408.12 288,-408.12 288,-384.12 406,-384.12 406,-408.12"/>
+<text text-anchor="middle" x="347" y="-393.72" 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_version.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-396.12C464.97,-394.47 439.17,-394.07 416.18,-394.21"/>
+<polygon fill="#000000" stroke="#000000" points="416.13,-390.71 406.17,-394.3 416.2,-397.71 416.13,-390.71"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.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"/>
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-344.12C138.79,-340 122.26,-335.34 106.93,-331.03"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-327.59 97.07,-328.25 105.74,-334.33 107.64,-327.59"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-266.09C307.9,-261.9 297.39,-257.02 288,-252.12 266.4,-240.85 242.82,-226.62 225.21,-215.6"/>
+<polygon fill="#000000" stroke="#000000" points="226.91,-212.54 216.59,-210.16 223.18,-218.46 226.91,-212.54"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.66,-290.22C284.05,-300.37 238.78,-313.61 198,-316.12"/>
 </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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.04,-252.14C430.85,-255.71 416.24,-259.66 402.48,-263.38"/>
+<polygon fill="#000000" stroke="#000000" points="401.39,-260.05 392.65,-266.04 403.22,-266.81 401.39,-260.05"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-318.12C280.75,-326.44 263.66,-312.08 198,-316.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.04,-252.3C451.41,-272.52 400.03,-311.48 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.94,-300.21C516.73,-302.81 425.9,-308.18 348,-318.12"/>
 </g>
-<!-- sourcefile~whm_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_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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C304.57,-246.51 257.59,-229.09 227.88,-214.66"/>
+<polygon fill="#000000" stroke="#000000" points="229.38,-211.5 218.88,-210.12 226.23,-217.75 229.38,-211.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.2,-210.13C424.05,-219.04 383.92,-230.84 348,-238.12"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_version.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.74,-210.33C452.33,-212.94 446.88,-215.9 442,-219.12 423.88,-231.07 424.14,-240.19 406,-252.12 400.68,-255.62 394.8,-258.86 388.9,-261.79"/>
+<polygon fill="#000000" stroke="#000000" points="387.24,-258.7 379.67,-266.12 390.21,-265.04 387.24,-258.7"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-316.12C169.94,-317.72 141.14,-317.99 116.32,-317.77"/>
+<polygon fill="#000000" stroke="#000000" points="116.35,-314.27 106.31,-317.65 116.27,-321.27 116.35,-314.27"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-238.12C319.41,-243.5 312.44,-245.36 288,-257.12 244.9,-277.85 245.74,-313.18 198,-316.12"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_version.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"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C425.88,-103.88 411.44,-145.48 348,-158.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-158.12C312.49,-164.79 275.38,-174.83 246.7,-183.18"/>
+<polygon fill="#000000" stroke="#000000" points="245.53,-179.87 236.92,-186.05 247.5,-186.59 245.53,-179.87"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge24" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.53,-210.15C572.45,-214.81 555.02,-220.19 539.14,-225.1"/>
+<polygon fill="#000000" stroke="#000000" points="538,-221.79 529.48,-228.08 540.07,-228.47 538,-221.79"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge24" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge25" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M617.73,-185.85C603.14,-166.27 571.97,-127.95 537,-106.12 489.39,-76.39 202.77,-3.87 198,-6.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-6.12C80.77,-52.61 59.04,-231.26 54.95,-294.1"/>
+<polygon fill="#000000" stroke="#000000" points="51.45,-293.93 54.38,-304.11 58.44,-294.33 51.45,-293.93"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-198.12C566.43,-198.12 556.52,-198.12 546.94,-198.12"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-194.62 536.69,-198.12 546.69,-201.62 546.69,-194.62"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.78,-186.06C588.03,-167.48 538.98,-132.69 490.5,-120.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-120.12C461.06,-113 430.59,-105.19 405.06,-98.66"/>
+<polygon fill="#000000" stroke="#000000" points="405.73,-95.22 395.17,-96.13 403.99,-102 405.73,-95.22"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-96.32C304.12,-116.37 252.13,-156.42 221.7,-179.86"/>
+<polygon fill="#000000" stroke="#000000" points="219.51,-177.13 213.72,-186.01 223.78,-182.68 219.51,-177.13"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-71.83C312.53,-44.12 251.06,18.91 198,-6.12"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.57,-398.46C245.82,-398.28 188.95,-394.23 142,-377.12 116.33,-367.76 91.14,-349.05 74.33,-334.8"/>
+<polygon fill="#000000" stroke="#000000" points="76.62,-332.16 66.78,-328.23 72.02,-337.44 76.62,-332.16"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/walltime_classes.f90.html b/docs/sourcefile/walltime_classes.f90.html
new file mode 100644
index 000000000..caaf42c2a
--- /dev/null
+++ b/docs/sourcefile/walltime_classes.f90.html
@@ -0,0 +1,1605 @@
+<!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>walltime_classes.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>walltime_classes.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.5% of total for source files.">81 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">walltime_classes.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="#mods-0">Modules</a></h3></div>
+  <div id="mods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/walltime_classes.html">walltime_classes</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/walltime_classes.f90.html#src">walltime_classes.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~~walltime_classes.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefilewalltime_classesf90EfferentGraph" 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="sourcefile~~walltime_classes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>sourcefile~~walltime_classes.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<polygon fill="none" stroke="black" points="252,-24 142,-24 142,0 252,0 252,-24"/>
+<text text-anchor="middle" x="197" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~EfferentGraph_node2"><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~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.91,-12C133.55,-12 124.86,-12 116.34,-12"/>
+<polygon fill="#000000" stroke="#000000" points="116.06,-8.5 106.06,-12 116.06,-15.5 116.06,-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="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>
+    
+      
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Files dependent on this one</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~~walltime_classes.f90~~AfferentGraph Pages: 1 -->
+<svg id="sourcefilewalltime_classesf90AfferentGraph" width="420pt" height="2804pt"
+ viewBox="0.00 0.00 420.00 2804.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2800)">
+<title>sourcefile~~walltime_classes.f90~~AfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 416,-2800 416,4 -4,4"/>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node1" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<polygon fill="none" stroke="black" points="110,-1410 0,-1410 0,-1386 110,-1386 110,-1410"/>
+<text text-anchor="middle" x="55" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50">walltime_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node2" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="212,-1410 146,-1410 146,-1386 212,-1386 212,-1410"/>
+<text text-anchor="middle" x="179" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.95,-1398C137.94,-1398 129.08,-1398 120.12,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="120.01,-1394.5 110.01,-1398 120.01,-1401.5 120.01,-1394.5"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-2796 255,-2796 255,-2772 405,-2772 405,-2796"/>
+<text text-anchor="middle" x="330" y="-2781.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~~walltime_classes.f90~~AfferentGraph_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="M257.87,-2771.94C254.19,-2769.45 250.84,-2766.49 248,-2763 203.76,-2708.68 183.27,-1592.64 180.36,-1420.27"/>
+<polygon fill="#000000" stroke="#000000" points="183.86,-1420.05 180.19,-1410.11 176.86,-1420.16 183.86,-1420.05"/>
+</g>
+<!-- sourcefile~symba_step.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node4" class="node">
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374,-2754 286,-2754 286,-2730 374,-2730 374,-2754"/>
+<text text-anchor="middle" x="330" y="-2739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.65,-2740.65C271.55,-2737.92 257.18,-2732.26 248,-2721 205.15,-2668.46 183.54,-1589.97 180.4,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="183.9,-1420.07 180.21,-1410.13 176.9,-1420.2 183.9,-1420.07"/>
+</g>
+<!-- sourcefile~fraggle_generate.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386,-2712 274,-2712 274,-2688 386,-2688 386,-2712"/>
+<text text-anchor="middle" x="330" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge5" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.87,-2695.6C263.92,-2692.3 254.62,-2687.1 248,-2679 206.5,-2628.21 183.79,-1586.05 180.44,-1420.17"/>
+<polygon fill="#000000" stroke="#000000" points="183.94,-1420.07 180.24,-1410.14 176.94,-1420.21 183.94,-1420.07"/>
+</g>
+<!-- sourcefile~fraggle_io.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369,-2670 291,-2670 291,-2646 369,-2646 369,-2670"/>
+<text text-anchor="middle" x="330" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.73,-2657.49C275.1,-2655.18 258.31,-2649.59 248,-2637 207.9,-2588.01 184.1,-1583.99 180.48,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="183.98,-1420.05 180.26,-1410.13 176.98,-1420.21 183.98,-1420.05"/>
+</g>
+<!-- sourcefile~whm_util.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366.5,-2628 293.5,-2628 293.5,-2604 366.5,-2604 366.5,-2628"/>
+<text text-anchor="middle" x="330" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.24,-2615.83C276.93,-2613.75 258.87,-2608.25 248,-2595 209.25,-2547.75 184.37,-1579.7 180.52,-1420.17"/>
+<polygon fill="#000000" stroke="#000000" points="184.02,-1420.01 180.28,-1410.1 177.02,-1420.18 184.02,-1420.01"/>
+</g>
+<!-- sourcefile~tides_getacch_pl.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~walltime_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="385.5,-2586 274.5,-2586 274.5,-2562 385.5,-2562 385.5,-2586"/>
+<text text-anchor="middle" x="330" y="-2571.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~~walltime_classes.f90~~AfferentGraph_edge7" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.33,-2569.71C264.21,-2566.42 254.73,-2561.19 248,-2553 173.42,-2462.26 178.36,-1573.17 179.77,-1420.31"/>
+<polygon fill="#000000" stroke="#000000" points="183.27,-1420.28 179.86,-1410.25 176.27,-1420.21 183.27,-1420.28"/>
+</g>
+<!-- sourcefile~helio_kick.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-2544 291.5,-2544 291.5,-2520 368.5,-2520 368.5,-2544"/>
+<text text-anchor="middle" x="330" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.18,-2531.52C275.44,-2529.25 258.44,-2523.67 248,-2511 176.17,-2423.81 178.8,-1570.31 179.82,-1420.42"/>
+<polygon fill="#000000" stroke="#000000" points="183.32,-1420.19 179.89,-1410.16 176.32,-1420.13 183.32,-1420.19"/>
+</g>
+<!-- sourcefile~symba_collision.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node10" class="node">
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="383,-2502 277,-2502 277,-2478 383,-2478 383,-2502"/>
+<text text-anchor="middle" x="330" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.86,-2486.46C265.82,-2483.24 255.31,-2477.85 248,-2469 178.91,-2385.34 179.25,-1567.17 179.87,-1420.47"/>
+<polygon fill="#000000" stroke="#000000" points="183.38,-1420.07 179.92,-1410.05 176.38,-1420.03 183.38,-1420.07"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node11" class="node">
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="389,-2460 271,-2460 271,-2436 389,-2436 389,-2460"/>
+<text text-anchor="middle" x="330" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.66,-2442.37C261.96,-2439.05 253.93,-2434.16 248,-2427 181.65,-2346.86 179.73,-1563.84 179.94,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="183.44,-1420.27 179.96,-1410.27 176.44,-1420.26 183.44,-1420.27"/>
+</g>
+<!-- sourcefile~whm_gr.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node12" class="node">
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-2418 296,-2418 296,-2394 364,-2394 364,-2418"/>
+<text text-anchor="middle" x="330" y="-2403.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~~walltime_classes.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.78,-2406.06C278.87,-2404.22 259.51,-2398.86 248,-2385 184.37,-2308.36 180.22,-1560.16 180,-1420.42"/>
+<polygon fill="#000000" stroke="#000000" points="183.5,-1420.1 179.99,-1410.1 176.5,-1420.11 183.5,-1420.1"/>
+</g>
+<!-- sourcefile~whm_setup.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node13" class="node">
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372.5,-2376 287.5,-2376 287.5,-2352 372.5,-2352 372.5,-2376"/>
+<text text-anchor="middle" x="330" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.47,-2362.86C272.85,-2360.25 257.67,-2354.61 248,-2343 187.08,-2269.85 180.73,-1556.27 180.08,-1420.31"/>
+<polygon fill="#000000" stroke="#000000" points="183.58,-1420.23 180.03,-1410.24 176.58,-1420.26 183.58,-1420.23"/>
+</g>
+<!-- sourcefile~util_exit.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node14" class="node">
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363.5,-2334 296.5,-2334 296.5,-2310 363.5,-2310 363.5,-2334"/>
+<text text-anchor="middle" x="330" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.22,-2322.08C279.23,-2320.27 259.64,-2314.93 248,-2301 189.77,-2231.33 181.26,-1552.05 180.15,-1420.13"/>
+<polygon fill="#000000" stroke="#000000" points="183.65,-1419.99 180.07,-1410.02 176.65,-1420.05 183.65,-1419.99"/>
+</g>
+<!-- sourcefile~util_rescale.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node15" class="node">
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372.5,-2292 287.5,-2292 287.5,-2268 372.5,-2268 372.5,-2292"/>
+<text text-anchor="middle" x="330" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.09,-2278.75C272.61,-2276.1 257.62,-2270.46 248,-2259 192.52,-2192.86 181.83,-1548.92 180.24,-1420.29"/>
+<polygon fill="#000000" stroke="#000000" points="183.74,-1420.04 180.12,-1410.08 176.74,-1420.12 183.74,-1420.04"/>
+</g>
+<!-- sourcefile~rmvs_kick.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node16" class="node">
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369,-2250 291,-2250 291,-2226 369,-2226 369,-2250"/>
+<text text-anchor="middle" x="330" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.9,-2237.35C275.3,-2235.02 258.48,-2229.44 248,-2217 195.25,-2154.37 182.42,-1545.38 180.34,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="183.83,-1420.04 180.17,-1410.1 176.83,-1420.16 183.83,-1420.04"/>
+</g>
+<!-- sourcefile~fraggle_setup.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node17" class="node">
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378,-2208 282,-2208 282,-2184 378,-2184 378,-2208"/>
+<text text-anchor="middle" x="330" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.65,-2193.55C268.96,-2190.54 256.44,-2184.98 248,-2175 197.96,-2115.85 183.04,-1541.44 180.44,-1420.34"/>
+<polygon fill="#000000" stroke="#000000" points="183.94,-1420 180.23,-1410.07 176.94,-1420.14 183.94,-1420"/>
+</g>
+<!-- sourcefile~helio_step.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node18" class="node">
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369.5,-2166 290.5,-2166 290.5,-2142 369.5,-2142 369.5,-2166"/>
+<text text-anchor="middle" x="330" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.11,-2153.18C274.76,-2150.76 258.35,-2145.17 248,-2133 200.7,-2077.38 183.72,-1538.24 180.57,-1420.6"/>
+<polygon fill="#000000" stroke="#000000" points="184.06,-1420.18 180.3,-1410.28 177.06,-1420.37 184.06,-1420.18"/>
+</g>
+<!-- sourcefile~symba_discard.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node19" class="node">
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="381.5,-2124 278.5,-2124 278.5,-2100 381.5,-2100 381.5,-2124"/>
+<text text-anchor="middle" x="330" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.34,-2108.63C266.83,-2105.46 255.74,-2100.05 248,-2091 203.37,-2038.81 184.4,-1533.42 180.69,-1420.36"/>
+<polygon fill="#000000" stroke="#000000" points="184.18,-1420.02 180.37,-1410.14 177.19,-1420.24 184.18,-1420.02"/>
+</g>
+<!-- sourcefile~rmvs_util.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node20" class="node">
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366.5,-2082 293.5,-2082 293.5,-2058 366.5,-2058 366.5,-2082"/>
+<text text-anchor="middle" x="330" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.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="M293.1,-2069.54C276.96,-2067.38 259.09,-2061.88 248,-2049 206.08,-2000.28 185.14,-1529.22 180.84,-1420.37"/>
+<polygon fill="#000000" stroke="#000000" points="184.33,-1420.06 180.45,-1410.21 177.34,-1420.33 184.33,-1420.06"/>
+</g>
+<!-- sourcefile~symba_setup.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node21" class="node">
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="377,-2040 283,-2040 283,-2016 377,-2016 377,-2040"/>
+<text text-anchor="middle" x="330" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.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="M282.64,-2025.62C269.68,-2022.65 256.75,-2017.1 248,-2007 208.75,-1961.72 185.92,-1524.48 181.01,-1420.23"/>
+<polygon fill="#000000" stroke="#000000" points="184.5,-1420.03 180.54,-1410.2 177.51,-1420.35 184.5,-1420.03"/>
+</g>
+<!-- sourcefile~symba_util.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node22" class="node">
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371,-1998 289,-1998 289,-1974 371,-1974 371,-1998"/>
+<text text-anchor="middle" x="330" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.6,-1984.76C273.76,-1982.19 258.13,-1976.59 248,-1965 211.45,-1923.17 186.78,-1520.03 181.2,-1420.25"/>
+<polygon fill="#000000" stroke="#000000" points="184.69,-1419.9 180.64,-1410.11 177.7,-1420.28 184.69,-1419.9"/>
+</g>
+<!-- sourcefile~helio_gr.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node23" class="node">
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-1956 296,-1956 296,-1932 364,-1932 364,-1956"/>
+<text text-anchor="middle" x="330" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.7,-1943.73C278.98,-1941.77 259.82,-1936.4 248,-1923 180.79,-1846.83 178.95,-1510.78 179.7,-1420.43"/>
+<polygon fill="#000000" stroke="#000000" points="183.2,-1420.26 179.8,-1410.23 176.2,-1420.19 183.2,-1420.26"/>
+</g>
+<!-- sourcefile~whm_drift.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node24" class="node">
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1914 291.5,-1914 291.5,-1890 368.5,-1890 368.5,-1914"/>
+<text text-anchor="middle" x="330" y="-1899.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~~walltime_classes.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="M291.23,-1901.07C275.69,-1898.68 258.83,-1893.14 248,-1881 186.09,-1811.61 180.36,-1505.75 179.98,-1420.26"/>
+<polygon fill="#000000" stroke="#000000" points="183.48,-1420.12 179.96,-1410.12 176.48,-1420.13 183.48,-1420.12"/>
+</g>
+<!-- sourcefile~util_solve.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node25" class="node">
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1872 292.5,-1872 292.5,-1848 367.5,-1848 367.5,-1872"/>
+<text text-anchor="middle" x="330" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.13,-1859.12C276.38,-1856.79 259.11,-1851.29 248,-1839 191.44,-1776.43 181.9,-1501.22 180.31,-1420.39"/>
+<polygon fill="#000000" stroke="#000000" points="183.81,-1420.26 180.14,-1410.32 176.81,-1420.38 183.81,-1420.26"/>
+</g>
+<!-- sourcefile~util_coord.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node26" class="node">
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1830 291.5,-1830 291.5,-1806 368.5,-1806 368.5,-1830"/>
+<text text-anchor="middle" x="330" y="-1815.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~~walltime_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.39,-1816.92C275.89,-1814.5 259.01,-1808.98 248,-1797 196.79,-1741.25 183.61,-1496.75 180.72,-1420.68"/>
+<polygon fill="#000000" stroke="#000000" points="184.21,-1420.21 180.36,-1410.34 177.21,-1420.46 184.21,-1420.21"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node27" class="node">
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-1788 290,-1788 290,-1764 370,-1764 370,-1788"/>
+<text text-anchor="middle" x="330" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.84,-1774.54C274.82,-1771.98 258.73,-1766.45 248,-1755 202.04,-1705.93 185.47,-1491.11 181.22,-1420.55"/>
+<polygon fill="#000000" stroke="#000000" points="184.69,-1419.94 180.62,-1410.16 177.7,-1420.34 184.69,-1419.94"/>
+</g>
+<!-- sourcefile~util_set.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node28" class="node">
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362,-1746 298,-1746 298,-1722 362,-1722 362,-1746"/>
+<text text-anchor="middle" x="330" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.76,-1733.52C280.81,-1731.58 260.78,-1726.31 248,-1713 207.25,-1670.54 187.55,-1485.15 181.83,-1420.41"/>
+<polygon fill="#000000" stroke="#000000" points="185.29,-1419.77 180.95,-1410.11 178.31,-1420.37 185.29,-1419.77"/>
+</g>
+<!-- sourcefile~util_get_energy_momentum.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node29" class="node">
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412,-1704 248,-1704 248,-1680 412,-1680 412,-1704"/>
+<text text-anchor="middle" x="330" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge28" 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="M259.75,-1679.93C255.46,-1677.46 251.48,-1674.51 248,-1671 212.4,-1635.06 189.89,-1478.53 182.59,-1420.1"/>
+<polygon fill="#000000" stroke="#000000" points="186.06,-1419.59 181.37,-1410.09 179.11,-1420.44 186.06,-1419.59"/>
+</g>
+<!-- sourcefile~obl.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node30" class="node">
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1662 303,-1662 303,-1638 357,-1638 357,-1662"/>
+<text text-anchor="middle" x="330" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.8,-1649.65C285.14,-1648.03 262.51,-1643.04 248,-1629 188.89,-1571.79 180.47,-1466.05 179.74,-1420.18"/>
+<polygon fill="#000000" stroke="#000000" points="183.24,-1420.1 179.7,-1410.12 176.24,-1420.14 183.24,-1420.1"/>
+</g>
+<!-- sourcefile~helio_drift.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node31" class="node">
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1620 291.5,-1620 291.5,-1596 368.5,-1596 368.5,-1620"/>
+<text text-anchor="middle" x="330" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.12,-1605.74C276.12,-1603.06 259.7,-1597.67 248,-1587 199.12,-1542.41 185.34,-1460.11 181.49,-1420.48"/>
+<polygon fill="#000000" stroke="#000000" points="184.95,-1419.96 180.62,-1410.29 177.98,-1420.55 184.95,-1419.96"/>
+</g>
+<!-- sourcefile~util_append.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node32" class="node">
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-1578 287,-1578 287,-1554 373,-1554 373,-1578"/>
+<text text-anchor="middle" x="330" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.59,-1562.21C273.07,-1559.23 258.82,-1554.03 248,-1545 208.99,-1512.44 191.17,-1452.61 184.07,-1420.22"/>
+<polygon fill="#000000" stroke="#000000" points="187.41,-1419.1 181.98,-1410 180.55,-1420.5 187.41,-1419.1"/>
+</g>
+<!-- sourcefile~util_peri.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node33" class="node">
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-1536 296,-1536 296,-1512 364,-1512 364,-1536"/>
+<text text-anchor="middle" x="330" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.88,-1521.01C280.2,-1518.27 261.9,-1513.03 248,-1503 218.56,-1481.77 198.58,-1443.51 188.25,-1419.5"/>
+<polygon fill="#000000" stroke="#000000" points="191.46,-1418.09 184.42,-1410.18 184.98,-1420.76 191.46,-1418.09"/>
+</g>
+<!-- sourcefile~netcdf.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node34" class="node">
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="360,-1494 300,-1494 300,-1470 360,-1470 360,-1494"/>
+<text text-anchor="middle" x="330" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.97,-1478.05C283.93,-1475.01 264.06,-1469.78 248,-1461 227.93,-1450.03 209.19,-1431.82 196.49,-1417.8"/>
+<polygon fill="#000000" stroke="#000000" points="198.97,-1415.32 189.74,-1410.11 193.7,-1419.93 198.97,-1415.32"/>
+</g>
+<!-- sourcefile~tides_spin_step.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node35" class="node">
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382.5,-1452 277.5,-1452 277.5,-1428 382.5,-1428 382.5,-1452"/>
+<text text-anchor="middle" x="330" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.93,-1427.93C270.07,-1425.09 258.62,-1422.02 248,-1419 239.45,-1416.57 230.34,-1413.85 221.65,-1411.19"/>
+<polygon fill="#000000" stroke="#000000" points="222.67,-1407.84 212.08,-1408.24 220.6,-1414.53 222.67,-1407.84"/>
+</g>
+<!-- sourcefile~setup.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node36" class="node">
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="358.5,-1410 301.5,-1410 301.5,-1386 358.5,-1386 358.5,-1410"/>
+<text text-anchor="middle" x="330" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_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="M301.32,-1398C279.13,-1398 247.62,-1398 222.28,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="222.19,-1394.5 212.19,-1398 222.19,-1401.5 222.19,-1394.5"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node37" class="node">
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1368 291.5,-1368 291.5,-1344 368.5,-1344 368.5,-1368"/>
+<text text-anchor="middle" x="330" y="-1353.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~~walltime_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.4,-1365.37C277.7,-1368.88 262.11,-1372.99 248,-1377 239.45,-1379.43 230.34,-1382.15 221.65,-1384.81"/>
+<polygon fill="#000000" stroke="#000000" points="220.6,-1381.47 212.08,-1387.76 222.67,-1388.16 220.6,-1381.47"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node38" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-1326 296,-1326 296,-1302 364,-1302 364,-1326"/>
+<text text-anchor="middle" x="330" y="-1311.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~~walltime_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.69,-1318.8C280.49,-1321.93 262.66,-1326.98 248,-1335 227.93,-1345.97 209.19,-1364.18 196.49,-1378.2"/>
+<polygon fill="#000000" stroke="#000000" points="193.7,-1376.07 189.74,-1385.89 198.97,-1380.68 193.7,-1376.07"/>
+</g>
+<!-- sourcefile~symba_kick.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node39" class="node">
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-1284 287,-1284 287,-1260 373,-1260 373,-1284"/>
+<text text-anchor="middle" x="330" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.88,-1276.79C273.53,-1279.85 259.31,-1284.84 248,-1293 218.56,-1314.23 198.58,-1352.49 188.25,-1376.5"/>
+<polygon fill="#000000" stroke="#000000" points="184.98,-1375.24 184.42,-1385.82 191.46,-1377.91 184.98,-1375.24"/>
+</g>
+<!-- sourcefile~rmvs_setup.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node40" class="node">
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-1242 287,-1242 287,-1218 373,-1218 373,-1242"/>
+<text text-anchor="middle" x="330" y="-1227.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~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.59,-1233.79C273.07,-1236.77 258.82,-1241.97 248,-1251 208.99,-1283.56 191.17,-1343.39 184.07,-1375.78"/>
+<polygon fill="#000000" stroke="#000000" points="180.55,-1375.5 181.98,-1386 187.41,-1376.9 180.55,-1375.5"/>
+</g>
+<!-- sourcefile~util_valid.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node41" class="node">
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-1200 294,-1200 294,-1176 366,-1176 366,-1200"/>
+<text text-anchor="middle" x="330" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.99,-1189.78C278.25,-1192.27 260.45,-1197.64 248,-1209 199.12,-1253.59 185.34,-1335.89 181.49,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="177.98,-1375.45 180.62,-1385.71 184.95,-1376.04 177.98,-1375.45"/>
+</g>
+<!-- sourcefile~fraggle_set.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node42" class="node">
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1158 288,-1158 288,-1134 372,-1134 372,-1158"/>
+<text text-anchor="middle" x="330" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.89,-1148.47C273.67,-1151.27 258.65,-1156.69 248,-1167 188.89,-1224.21 180.47,-1329.95 179.74,-1375.82"/>
+<polygon fill="#000000" stroke="#000000" points="176.24,-1375.86 179.7,-1385.88 183.24,-1375.9 176.24,-1375.86"/>
+</g>
+<!-- sourcefile~orbel.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node43" class="node">
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357.5,-1116 302.5,-1116 302.5,-1092 357.5,-1092 357.5,-1116"/>
+<text text-anchor="middle" x="330" y="-1101.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~~walltime_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.23,-1104.19C284.54,-1105.77 262.11,-1110.76 248,-1125 212.4,-1160.94 189.89,-1317.47 182.59,-1375.9"/>
+<polygon fill="#000000" stroke="#000000" points="179.11,-1375.56 181.37,-1385.91 186.06,-1376.41 179.11,-1375.56"/>
+</g>
+<!-- sourcefile~util_copy.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node44" class="node">
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-1074 294.5,-1074 294.5,-1050 365.5,-1050 365.5,-1074"/>
+<text text-anchor="middle" x="330" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.11,-1062.95C278.01,-1065.2 259.87,-1070.63 248,-1083 207.25,-1125.46 187.55,-1310.85 181.83,-1375.59"/>
+<polygon fill="#000000" stroke="#000000" points="178.31,-1375.63 180.95,-1385.89 185.29,-1376.23 178.31,-1375.63"/>
+</g>
+<!-- sourcefile~kick.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node45" class="node">
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1032 303,-1032 303,-1008 357,-1008 357,-1032"/>
+<text text-anchor="middle" x="330" y="-1017.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~~walltime_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="M302.74,-1019.88C284.82,-1021.27 261.9,-1026.16 248,-1041 202.04,-1090.07 185.47,-1304.89 181.22,-1375.45"/>
+<polygon fill="#000000" stroke="#000000" points="177.7,-1375.66 180.62,-1385.84 184.69,-1376.06 177.7,-1375.66"/>
+</g>
+<!-- sourcefile~whm_step.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node46" class="node">
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369.5,-990 290.5,-990 290.5,-966 369.5,-966 369.5,-990"/>
+<text text-anchor="middle" x="330" y="-975.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~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.14,-979.29C274.99,-981.8 258.71,-987.34 248,-999 196.79,-1054.75 183.61,-1299.25 180.72,-1375.32"/>
+<polygon fill="#000000" stroke="#000000" points="177.21,-1375.54 180.36,-1385.66 184.21,-1375.79 177.21,-1375.54"/>
+</g>
+<!-- sourcefile~drift.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node47" class="node">
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-948 303,-948 303,-924 357,-924 357,-948"/>
+<text text-anchor="middle" x="330" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_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="M302.96,-935.71C284.91,-936.98 261.74,-941.81 248,-957 191.44,-1019.57 181.9,-1294.78 180.31,-1375.61"/>
+<polygon fill="#000000" stroke="#000000" points="176.81,-1375.62 180.14,-1385.68 183.81,-1375.74 176.81,-1375.62"/>
+</g>
+<!-- sourcefile~discard.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node48" class="node">
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-906 297.5,-906 297.5,-882 362.5,-882 362.5,-906"/>
+<text text-anchor="middle" x="330" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_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="M297.38,-894.14C280.31,-895.96 260.28,-901.23 248,-915 186.09,-984.39 180.36,-1290.25 179.98,-1375.74"/>
+<polygon fill="#000000" stroke="#000000" points="176.48,-1375.87 179.96,-1385.88 183.48,-1375.88 176.48,-1375.87"/>
+</g>
+<!-- sourcefile~helio_setup.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node49" class="node">
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372.5,-864 287.5,-864 287.5,-840 372.5,-840 372.5,-864"/>
+<text text-anchor="middle" x="330" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.39,-853.51C272.95,-856.19 257.9,-861.78 248,-873 180.79,-949.17 178.95,-1285.22 179.7,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="176.2,-1375.81 179.8,-1385.77 183.2,-1375.74 176.2,-1375.81"/>
+</g>
+<!-- sourcefile~fraggle_regime.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node50" class="node">
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="381.5,-822 278.5,-822 278.5,-798 381.5,-798 381.5,-822"/>
+<text text-anchor="middle" x="330" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_regime.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.47,-813.49C266.97,-816.65 255.84,-822.03 248,-831 211.45,-872.83 186.78,-1275.97 181.2,-1375.75"/>
+<polygon fill="#000000" stroke="#000000" points="177.7,-1375.72 180.64,-1385.89 184.69,-1376.1 177.7,-1375.72"/>
+</g>
+<!-- sourcefile~util_spill.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node51" class="node">
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-780 296,-780 296,-756 364,-756 364,-780"/>
+<text text-anchor="middle" x="330" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.61,-768.18C278.86,-770.12 259.7,-775.5 248,-789 208.75,-834.28 185.92,-1271.52 181.01,-1375.77"/>
+<polygon fill="#000000" stroke="#000000" points="177.51,-1375.65 180.54,-1385.8 184.5,-1375.97 177.51,-1375.65"/>
+</g>
+<!-- sourcefile~orbel.f90~2 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node52" class="node">
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357.5,-738 302.5,-738 302.5,-714 357.5,-714 357.5,-738"/>
+<text text-anchor="middle" x="330" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.35,-725.53C284.25,-726.75 261.27,-731.58 248,-747 206.08,-795.72 185.14,-1266.78 180.84,-1375.63"/>
+<polygon fill="#000000" stroke="#000000" points="177.34,-1375.67 180.45,-1385.79 184.33,-1375.94 177.34,-1375.67"/>
+</g>
+<!-- sourcefile~operator_cross.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node53" class="node">
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="381.5,-696 278.5,-696 278.5,-672 381.5,-672 381.5,-696"/>
+<text text-anchor="middle" x="330" y="-681.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.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.34,-687.37C266.83,-690.54 255.74,-695.95 248,-705 203.37,-757.19 184.4,-1262.58 180.69,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="177.19,-1375.76 180.37,-1385.86 184.18,-1375.98 177.19,-1375.76"/>
+</g>
+<!-- sourcefile~io.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node54" class="node">
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-654 303,-654 303,-630 357,-630 357,-654"/>
+<text text-anchor="middle" x="330" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.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="M302.68,-641.46C284.49,-642.61 261.27,-647.4 248,-663 200.7,-718.62 183.72,-1257.76 180.57,-1375.4"/>
+<polygon fill="#000000" stroke="#000000" points="177.06,-1375.63 180.3,-1385.72 184.06,-1375.82 177.06,-1375.63"/>
+</g>
+<!-- sourcefile~symba_drift.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node55" class="node">
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-612 287,-612 287,-588 373,-588 373,-612"/>
+<text text-anchor="middle" x="330" y="-597.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~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.72,-601.37C272.37,-604.06 257.57,-609.69 248,-621 197.96,-680.15 183.04,-1254.56 180.44,-1375.66"/>
+<polygon fill="#000000" stroke="#000000" points="176.94,-1375.86 180.23,-1385.93 183.94,-1376 176.94,-1375.86"/>
+</g>
+<!-- sourcefile~whm_coord.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node56" class="node">
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-570 287,-570 287,-546 373,-546 373,-570"/>
+<text text-anchor="middle" x="330" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.69,-559.35C272.34,-562.03 257.55,-567.67 248,-579 195.25,-641.63 182.42,-1250.62 180.34,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="176.83,-1375.84 180.17,-1385.9 183.83,-1375.96 176.83,-1375.84"/>
+</g>
+<!-- sourcefile~user_getacch.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node57" class="node">
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="377.5,-528 282.5,-528 282.5,-504 377.5,-504 377.5,-528"/>
+<text text-anchor="middle" x="330" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.44,-518.21C269.47,-521.17 256.59,-526.76 248,-537 192.52,-603.14 181.83,-1247.08 180.24,-1375.71"/>
+<polygon fill="#000000" stroke="#000000" points="176.74,-1375.88 180.12,-1385.92 183.74,-1375.96 176.74,-1375.88"/>
+</g>
+<!-- sourcefile~rmvs_encounter_check.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node58" class="node">
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="401,-486 259,-486 259,-462 401,-462 401,-486"/>
+<text text-anchor="middle" x="330" y="-471.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~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.69,-485.67C254.7,-488.24 251.07,-491.32 248,-495 189.77,-564.67 181.26,-1243.95 180.15,-1375.87"/>
+<polygon fill="#000000" stroke="#000000" points="176.65,-1375.95 180.07,-1385.98 183.65,-1376.01 176.65,-1375.95"/>
+</g>
+<!-- sourcefile~util_fill.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node59" class="node">
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="360,-444 300,-444 300,-420 360,-420 360,-444"/>
+<text text-anchor="middle" x="330" 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.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.83,-431.57C282.07,-432.99 260.46,-438.04 248,-453 187.08,-526.15 180.73,-1239.73 180.08,-1375.69"/>
+<polygon fill="#000000" stroke="#000000" points="176.58,-1375.74 180.03,-1385.76 183.58,-1375.77 176.58,-1375.74"/>
+</g>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node60" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-402 288.5,-402 288.5,-378 371.5,-378 371.5,-402"/>
+<text text-anchor="middle" x="330" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.29,-390.98C273.42,-393.52 257.84,-399.15 248,-411 184.37,-487.64 180.22,-1235.84 180,-1375.58"/>
+<polygon fill="#000000" stroke="#000000" points="176.5,-1375.89 179.99,-1385.9 183.5,-1375.9 176.5,-1375.89"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-360 281,-360 281,-336 379,-336 379,-360"/>
+<text text-anchor="middle" x="330" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.67,-350.54C268.27,-353.59 256.15,-359.15 248,-369 181.65,-449.14 179.73,-1232.16 179.94,-1375.52"/>
+<polygon fill="#000000" stroke="#000000" points="176.44,-1375.74 179.96,-1385.73 183.44,-1375.73 176.44,-1375.74"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="377,-318 283,-318 283,-294 377,-294 377,-318"/>
+<text text-anchor="middle" x="330" y="-303.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~~walltime_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.77,-308.03C269.64,-310.96 256.6,-316.58 248,-327 178.91,-410.66 179.25,-1228.83 179.87,-1375.53"/>
+<polygon fill="#000000" stroke="#000000" points="176.38,-1375.97 179.92,-1385.95 183.38,-1375.93 176.38,-1375.97"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-276 292,-276 292,-252 368,-252 368,-276"/>
+<text text-anchor="middle" x="330" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.6,-264.42C275.74,-266.65 258.53,-272.22 248,-285 176.17,-372.19 178.8,-1225.69 179.82,-1375.58"/>
+<polygon fill="#000000" stroke="#000000" points="176.32,-1375.87 179.89,-1385.84 183.32,-1375.81 176.32,-1375.87"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369.5,-234 290.5,-234 290.5,-210 369.5,-210 369.5,-234"/>
+<text text-anchor="middle" x="330" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_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="M290.33,-222.59C274.83,-224.94 258.24,-230.54 248,-243 173.42,-333.74 178.36,-1222.83 179.77,-1375.69"/>
+<polygon fill="#000000" stroke="#000000" points="176.27,-1375.79 179.86,-1385.75 183.27,-1375.72 176.27,-1375.79"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-192 292,-192 292,-168 368,-168 368,-192"/>
+<text text-anchor="middle" x="330" y="-177.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~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.99,-180.34C276.02,-182.53 258.59,-188.08 248,-201 209.25,-248.25 184.37,-1216.3 180.52,-1375.83"/>
+<polygon fill="#000000" stroke="#000000" points="177.02,-1375.82 180.28,-1385.9 184.02,-1375.99 177.02,-1375.82"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="392,-150 268,-150 268,-126 392,-126 392,-150"/>
+<text text-anchor="middle" x="330" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M267.77,-144.72C260.17,-148 253.25,-152.59 248,-159 207.9,-207.99 184.1,-1212.01 180.48,-1375.57"/>
+<polygon fill="#000000" stroke="#000000" points="176.98,-1375.79 180.26,-1385.87 183.98,-1375.95 176.98,-1375.79"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-108 303,-108 303,-84 357,-84 357,-108"/>
+<text text-anchor="middle" x="330" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.88,-95.28C284.55,-96.31 261.05,-101.03 248,-117 206.5,-167.79 183.79,-1209.95 180.44,-1375.83"/>
+<polygon fill="#000000" stroke="#000000" points="176.94,-1375.79 180.24,-1385.86 183.94,-1375.93 176.94,-1375.79"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-66 296,-66 296,-42 364,-42 364,-66"/>
+<text text-anchor="middle" x="330" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.68,-53.86C278.75,-55.68 259.39,-61.04 248,-75 205.15,-127.54 183.54,-1206.03 180.4,-1375.64"/>
+<polygon fill="#000000" stroke="#000000" points="176.9,-1375.8 180.21,-1385.87 183.9,-1375.93 176.9,-1375.8"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~walltime_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372.5,-24 287.5,-24 287.5,0 372.5,0 372.5,-24"/>
+<text text-anchor="middle" x="330" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~walltime_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.33,-13.03C272.7,-15.62 257.54,-21.28 248,-33 203.76,-87.32 183.27,-1203.36 180.36,-1375.73"/>
+<polygon fill="#000000" stroke="#000000" points="176.86,-1375.84 180.19,-1385.89 183.86,-1375.95 176.86,-1375.84"/>
+</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="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="#mods-1">Modules</a></h3></div>
+  <div id="mods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/walltime_classes.html">walltime_classes</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/walltime_classes.f90.html#src">walltime_classes.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">module </span><span class="n">walltime_classes</span>
+<a name="ln-2"></a>   <span class="c">!! author: David A. Minton</span>
+<a name="ln-3"></a>   <span class="c">!!</span>
+<a name="ln-4"></a>   <span class="c">!! Classes and methods used to compute elasped wall time</span>
+<a name="ln-5"></a>   <span class="k">use </span><span class="n">swiftest_globals</span>
+<a name="ln-6"></a>   <span class="k">implicit none</span>
+<a name="ln-7"></a><span class="k">   public</span>
+<a name="ln-8"></a>
+<a name="ln-9"></a><span class="k">   type</span> <span class="kd">::</span> <span class="n">walltimer</span>
+<a name="ln-10"></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">count_rate</span>                 <span class="c">!! Rate at wich the clock ticks</span>
+<a name="ln-11"></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">count_max</span>                  <span class="c">!! Maximum value of the clock ticker</span>
+<a name="ln-12"></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">count_start_main</span>           <span class="c">!! Value of the clock ticker at when the timer is first called</span>
+<a name="ln-13"></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">count_start_step</span>           <span class="c">!! Value of the clock ticker at the start of a timed step</span>
+<a name="ln-14"></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">count_finish_step</span>          <span class="c">!! Value of the clock ticker at the end of a timed step</span>
+<a name="ln-15"></a>      <span class="kt">logical</span>      <span class="kd">::</span> <span class="n">lmain_is_started</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Logical flag indicating whether or not the main timer has been reset or not</span>
+<a name="ln-16"></a>   <span class="k">contains</span>
+<a name="ln-17"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">reset</span>  <span class="o">=&gt;</span> <span class="n">walltime_reset</span>  <span class="c">!! Resets the clock ticker, settting main_start to the current ticker value</span>
+<a name="ln-18"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">start</span>  <span class="o">=&gt;</span> <span class="n">walltime_start</span>  <span class="c">!! Starts the timer, setting step_start to the current ticker value</span>
+<a name="ln-19"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">finish</span> <span class="o">=&gt;</span> <span class="n">walltime_finish</span> <span class="c">!! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</span>
+<a name="ln-20"></a>   <span class="k">end type</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a><span class="k">   interface</span>
+<a name="ln-23"></a><span class="k">      module subroutine </span><span class="n">walltime_finish</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nsubsteps</span><span class="p">,</span> <span class="n">message</span><span class="p">)</span>
+<a name="ln-24"></a>         <span class="k">implicit none</span>
+<a name="ln-25"></a><span class="k">         class</span><span class="p">(</span><span class="n">walltimer</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Walltimer object</span>
+<a name="ln-26"></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">nsubsteps</span> <span class="c">!! Number of substeps used to compute the time per step </span>
+<a name="ln-27"></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">message</span>   <span class="c">!! Message to prepend to the wall time terminal output</span>
+<a name="ln-28"></a>      <span class="k">end subroutine </span><span class="n">walltime_finish</span>
+<a name="ln-29"></a>
+<a name="ln-30"></a>      <span class="k">module subroutine </span><span class="n">walltime_reset</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-31"></a>         <span class="k">implicit none</span>
+<a name="ln-32"></a><span class="k">         class</span><span class="p">(</span><span class="n">walltimer</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Walltimer object</span>
+<a name="ln-33"></a>      <span class="k">end subroutine </span><span class="n">walltime_reset</span> 
+<a name="ln-34"></a>
+<a name="ln-35"></a>      <span class="k">module subroutine </span><span class="n">walltime_start</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-36"></a>         <span class="k">implicit none</span>
+<a name="ln-37"></a><span class="k">         class</span><span class="p">(</span><span class="n">walltimer</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Walltimer object</span>
+<a name="ln-38"></a>      <span class="k">end subroutine </span><span class="n">walltime_start</span>
+<a name="ln-39"></a>   <span class="k">end interface</span>
+<a name="ln-40"></a>
+<a name="ln-41"></a><span class="k">   contains</span>
+<a name="ln-42"></a>
+<a name="ln-43"></a><span class="k">      module subroutine </span><span class="n">walltime_finish</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nsubsteps</span><span class="p">,</span> <span class="n">message</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">!! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</span>
+<a name="ln-47"></a>         <span class="k">use </span><span class="n">swiftest_globals</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">class</span><span class="p">(</span><span class="n">walltimer</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Walltimer object</span>
+<a name="ln-51"></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">nsubsteps</span> <span class="c">!! Number of substeps used to compute the time per step </span>
+<a name="ln-52"></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">message</span>   <span class="c">!! Message to prepend to the wall time terminal output</span>
+<a name="ln-53"></a>         <span class="c">! Internals</span>
+<a name="ln-54"></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-55"></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">fmt</span>
+<a name="ln-56"></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">count_delta_step</span><span class="p">,</span> <span class="n">count_delta_main</span>
+<a name="ln-57"></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">wall_main</span>         <span class="c">!! Value of total elapsed time at the end of a timed step</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">wall_step</span>         <span class="c">!! Value of elapsed time since the start of a timed step</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">wall_per_substep</span>  <span class="c">!! Value of time per substep </span>
+<a name="ln-60"></a>
+<a name="ln-61"></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">lmain_is_started</span><span class="p">)</span> <span class="k">then</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;Wall timer error: The step finish time cannot be calculated because the timer is not started!&quot;</span>
+<a name="ln-63"></a>            <span class="k">return</span>
+<a name="ln-64"></a><span class="k">         end if</span>
+<a name="ln-65"></a>
+<a name="ln-66"></a><span class="k">         call </span><span class="nb">system_clock</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">count_finish_step</span><span class="p">)</span>
+<a name="ln-67"></a>
+<a name="ln-68"></a>         <span class="n">count_delta_step</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">count_finish_step</span> <span class="o">-</span> <span class="n">self</span><span class="p">%</span><span class="n">count_start_step</span>
+<a name="ln-69"></a>         <span class="n">count_delta_main</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">count_finish_step</span> <span class="o">-</span> <span class="n">self</span><span class="p">%</span><span class="n">count_start_main</span>
+<a name="ln-70"></a>         <span class="n">wall_step</span> <span class="o">=</span> <span class="n">count_delta_step</span> <span class="o">/</span> <span class="p">(</span><span class="n">self</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-71"></a>         <span class="n">wall_main</span> <span class="o">=</span> <span class="n">count_delta_main</span> <span class="o">/</span> <span class="p">(</span><span class="n">self</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-72"></a>         <span class="n">wall_per_substep</span> <span class="o">=</span> <span class="n">wall_step</span> <span class="o">/</span> <span class="n">nsubsteps</span>
+<a name="ln-73"></a>
+<a name="ln-74"></a>         <span class="n">fmt</span> <span class="o">=</span> <span class="s1">&#39;(&quot;&#39;</span> <span class="o">//</span>  <span class="nb">adjustl</span><span class="p">(</span><span class="n">message</span><span class="p">)</span> <span class="o">//</span> <span class="s1">&#39;&quot;,&#39;</span> <span class="o">//</span> <span class="n">walltimefmt</span> <span class="o">//</span> <span class="s1">&#39;)&#39;</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="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">fmt</span><span class="p">)))</span> <span class="n">wall_main</span><span class="p">,</span> <span class="n">wall_per_substep</span>
+<a name="ln-76"></a>
+<a name="ln-77"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">start</span><span class="p">()</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">walltime_finish</span>
+<a name="ln-81"></a>
+<a name="ln-82"></a>      <span class="k">module subroutine </span><span class="n">walltime_reset</span><span class="p">(</span><span class="n">self</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">!! Resets the clock ticker, settting main_start to the current ticker value</span>
+<a name="ln-86"></a>         <span class="k">use </span><span class="n">swiftest_globals</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="k">class</span><span class="p">(</span><span class="n">walltimer</span><span class="p">),</span> <span class="k">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-90"></a>         
+<a name="ln-91"></a>         <span class="k">call </span><span class="nb">system_clock</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">count_start_main</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">count_rate</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">count_max</span><span class="p">)</span>
+<a name="ln-92"></a>         <span class="n">self</span><span class="p">%</span><span class="n">lmain_is_started</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="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">start</span><span class="p">()</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">walltime_reset</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">walltime_start</span><span class="p">(</span><span class="n">self</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">!! Starts the timer, setting step_start to the current ticker value</span>
+<a name="ln-103"></a>         <span class="k">use </span><span class="n">swiftest_globals</span>
+<a name="ln-104"></a>         <span class="k">implicit none</span>
+<a name="ln-105"></a>         <span class="c">! Arguments</span>
+<a name="ln-106"></a>         <span class="k">class</span><span class="p">(</span><span class="n">walltimer</span><span class="p">),</span> <span class="k">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-107"></a>
+<a name="ln-108"></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">lmain_is_started</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-109"></a><span class="k">            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;Wall timer error: Cannot start the step time until reset is called at least once!&quot;</span>
+<a name="ln-110"></a>            <span class="k">return</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">         call </span><span class="nb">system_clock</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">count_start_step</span><span class="p">)</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">walltime_start</span>
+<a name="ln-117"></a>
+<a name="ln-118"></a>
+<a name="ln-119"></a><span class="k">end module </span><span class="n">walltime_classes</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/whm_classes.f90.html b/docs/sourcefile/whm_classes.f90.html
index 4efe73a0f..66a08af87 100644
--- a/docs/sourcefile/whm_classes.f90.html
+++ b/docs/sourcefile/whm_classes.f90.html
@@ -134,7 +134,7 @@ <h1>whm_classes.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.">227 statements</a>
+    title=" 1.4% of total for source files.">233 statements</a>
      </li> 
      
      
@@ -324,1135 +324,1255 @@ <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="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)">
+<svg id="sourcefilewhm_classesf90AfferentGraph" width="641pt" height="2667pt"
+ viewBox="0.00 0.00 641.00 2666.71" 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 2800)">
 <title>sourcefile~~whm_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 670,-2464 670,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2800 670,-2800 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,-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>
+<polygon fill="none" stroke="black" points="94,-1431 0,-1431 0,-1407 94,-1407 94,-1431"/>
+<text text-anchor="middle" x="47" y="-1416.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes.f90</text>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~whm_coord.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,-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>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2796 541,-2796 541,-2772 627,-2772 627,-2796"/>
+<text text-anchor="middle" x="584" y="-2781.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~whm_classes.f90 -->
+<!-- sourcefile~whm_coord.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,-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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.71,-2778.02C527.63,-2774.9 513.62,-2770.17 502,-2763 363.66,-2677.72 332.88,-2633.76 261,-2488 70.45,-2101.59 50.36,-1556.99 48.25,-1441.18"/>
+<polygon fill="#000000" stroke="#000000" points="51.75,-1441.01 48.09,-1431.06 44.75,-1441.11 51.75,-1441.01"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node3" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node11" class="node">
 <title>sourcefile~swiftest.f90</title>
-<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>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="466,-1431 400,-1431 400,-1407 466,-1407 466,-1431"/>
+<text text-anchor="middle" x="433" y="-1416.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_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,-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"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.92,-2782.89C526.41,-2780.26 511.45,-2774.6 502,-2763 480.21,-2736.27 440.74,-1614.79 434.77,-1441.41"/>
+<polygon fill="#000000" stroke="#000000" points="438.26,-1441.06 434.42,-1431.18 431.26,-1441.3 438.26,-1441.06"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node3" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-1471 130,-1471 130,-1447 225,-1447 225,-1471"/>
+<text text-anchor="middle" x="177.5" y="-1456.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge2" 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,-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"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.95,-1447C124.98,-1442.96 110.34,-1438.4 96.69,-1434.16"/>
+<polygon fill="#000000" stroke="#000000" points="97.56,-1430.76 86.97,-1431.13 95.48,-1437.45 97.56,-1430.76"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-234 545.5,-234 545.5,-210 622.5,-210 622.5,-234"/>
+<text text-anchor="middle" x="584" y="-219.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~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"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge3" 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.26,-216.25C531.11,-213.07 515.26,-208.25 502,-201 465.85,-181.23 475.1,-135.16 434,-138"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge48" 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,-222.46C529.42,-224.73 512.42,-230.31 502,-243 463.94,-289.35 438.53,-1238.51 434.55,-1396.73"/>
+<polygon fill="#000000" stroke="#000000" points="431.05,-1396.65 434.3,-1406.73 438.05,-1396.82 431.05,-1396.65"/>
+</g>
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<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>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620.5,-192 547.5,-192 547.5,-168 620.5,-168 620.5,-192"/>
+<text text-anchor="middle" x="584" y="-177.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~rmvs_classes.f90 -->
-<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,-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"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge4" 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.42,-171.15C533.25,-167.53 516.81,-163.21 502,-159 471.57,-150.36 465.56,-135.82 434,-138"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<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>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge31" 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,-180.17C530.92,-182.24 512.86,-187.74 502,-201 462.59,-249.09 438.26,-1234.12 434.51,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="431,-1396.61 434.27,-1406.69 438,-1396.77 431,-1396.61"/>
 </g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224.5,-1391 130.5,-1391 130.5,-1367 224.5,-1367 224.5,-1391"/>
+<text text-anchor="middle" x="177.5" y="-1376.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<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,-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~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge3" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.95,-1391C124.98,-1395.04 110.34,-1399.6 96.69,-1403.84"/>
+<polygon fill="#000000" stroke="#000000" points="95.48,-1400.55 86.97,-1406.87 97.56,-1407.24 95.48,-1400.55"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~whm_step.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-150 544.5,-150 544.5,-126 623.5,-126 623.5,-150"/>
+<text text-anchor="middle" x="584" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge5" 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.72,-215.19C527.78,-212.03 513.85,-207.48 502,-201 465.85,-181.23 475.1,-135.16 434,-138"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge6" 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.36,-136.54C514.25,-135.75 471.42,-135.41 434,-138"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.3,-138.57C528.79,-140.91 512.21,-146.52 502,-159 461.24,-208.84 437.99,-1229.87 434.47,-1396.19"/>
+<polygon fill="#000000" stroke="#000000" points="430.96,-1396.59 434.25,-1406.66 437.96,-1396.74 430.96,-1396.59"/>
 </g>
 <!-- sourcefile~whm_gr.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node8" 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>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-108 550,-108 550,-84 618,-84 618,-108"/>
+<text text-anchor="middle" x="584" y="-93.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">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge7" 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.8,-171.76C535.11,-168.02 517.65,-163.44 502,-159 471.57,-150.36 465.56,-135.82 434,-138"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.8,-104.24C535.11,-107.98 517.65,-112.56 502,-117 471.57,-125.64 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">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge36" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.69,-95.86C532.75,-97.68 513.39,-103.05 502,-117 459.85,-168.63 437.69,-1227.87 434.42,-1396.47"/>
+<polygon fill="#000000" stroke="#000000" points="430.92,-1396.59 434.23,-1406.66 437.92,-1396.73 430.92,-1396.59"/>
 </g>
 <!-- sourcefile~whm_kick.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node8" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node9" 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,-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>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-66 545.5,-66 545.5,-42 622.5,-42 622.5,-66"/>
+<text text-anchor="middle" x="584" y="-51.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">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge8" 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.29,-136.56C515.14,-135.76 471.81,-135.38 434,-138"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.26,-59.75C531.11,-62.93 515.26,-67.75 502,-75 465.85,-94.77 475.1,-135.16 434,-138"/>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge62" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge61" 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,-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~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~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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.12,-54.43C529.37,-56.69 512.37,-62.28 502,-75 458.47,-128.41 437.42,-1225.08 434.38,-1396.54"/>
+<polygon fill="#000000" stroke="#000000" points="430.88,-1396.61 434.21,-1406.67 437.88,-1396.74 430.88,-1396.61"/>
 </g>
 <!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node10" class="node">
 <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>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-24 541.5,-24 541.5,0 626.5,0 626.5,-24"/>
+<text text-anchor="middle" x="584" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge9" 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,-60.71C528.08,-63.88 513.98,-68.45 502,-75 465.85,-94.77 475.1,-135.16 434,-138"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-138C158.88,-156.9 63.09,-1228.08 49.69,-1396.75"/>
+<polygon fill="#000000" stroke="#000000" points="46.18,-1396.68 48.89,-1406.92 53.16,-1397.23 46.18,-1396.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.3,-16.7C527.83,-19.74 513.43,-24.76 502,-33 456.91,-65.53 485.09,-116.07 434,-138"/>
 </g>
 <!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge53" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge37" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.33,-13.02C526.69,-15.62 511.54,-21.28 502,-33 479.52,-60.63 440.52,-1220.65 434.73,-1396.71"/>
+<polygon fill="#000000" stroke="#000000" points="431.23,-1396.75 434.4,-1406.86 438.22,-1396.98 431.23,-1396.75"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node11" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge10" 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,-1419C240.09,-1419 157.8,-1419 104.44,-1419"/>
+<polygon fill="#000000" stroke="#000000" points="104.17,-1415.5 94.17,-1419 104.17,-1422.5 104.17,-1415.5"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge12" 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,-1419C276.5,-1419 238.42,-1431.86 212.02,-1443"/>
+<polygon fill="#000000" stroke="#000000" points="210.61,-1439.79 202.84,-1447 213.41,-1446.21 210.61,-1439.79"/>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge10" 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.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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge26" 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,-1419C276.5,-1419 238.42,-1406.14 212.02,-1395"/>
+<polygon fill="#000000" stroke="#000000" points="213.41,-1391.79 202.84,-1391 210.61,-1398.21 213.41,-1391.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.81,-1419C375.98,-1419 342.71,-1419 313.5,-1419"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-1471 261,-1471 261,-1447 364,-1447 364,-1471"/>
+<text text-anchor="middle" x="312.5" y="-1456.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
 </g>
-<!-- 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~eucl.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge103" 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,-1429.82C387.36,-1434.07 372.7,-1439.02 359.06,-1443.62"/>
+<polygon fill="#000000" stroke="#000000" points="357.71,-1440.38 349.35,-1446.9 359.95,-1447.02 357.71,-1440.38"/>
+</g>
+<!-- sourcefile~symba_encounter_check.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>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="659,-2292 509,-2292 509,-2268 659,-2268 659,-2292"/>
+<text text-anchor="middle" x="584" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.99,-2267.84C508.28,-2265.37 504.9,-2262.45 502,-2259 447.86,-2194.58 436.11,-1567.57 434.29,-1441.15"/>
+<polygon fill="#000000" stroke="#000000" points="437.78,-1441.05 434.15,-1431.1 430.79,-1441.15 437.78,-1441.05"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge96" 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="M546.53,-2292.08C513.19,-2300.61 464.54,-2306.38 434,-2280"/>
+</g>
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node13" class="node">
-<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>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="628,-2250 540,-2250 540,-2226 628,-2226 628,-2250"/>
+<text text-anchor="middle" x="584" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.86,-2236.48C525.78,-2233.73 511.37,-2228.1 502,-2217 450.58,-2156.08 436.72,-1563.86 434.39,-1441.18"/>
+<polygon fill="#000000" stroke="#000000" points="437.88,-1441.03 434.2,-1431.09 430.88,-1441.15 437.88,-1441.03"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge98" 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.6,-2248.86C527.41,-2252.02 514.16,-2255.55 502,-2259 471.57,-2267.64 457.94,-2300.68 434,-2280"/>
+</g>
+<!-- sourcefile~fraggle_io.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node14" class="node">
-<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>
+<title>sourcefile~fraggle_io.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/fraggle_io.f90.html" xlink:title="fraggle_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623,-2040 545,-2040 545,-2016 623,-2016 623,-2040"/>
+<text text-anchor="middle" x="584" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.67,-2027.13C529.22,-2024.73 512.59,-2019.16 502,-2007 464.08,-1963.43 440.32,-1542.89 435.09,-1441.1"/>
+<polygon fill="#000000" stroke="#000000" points="438.58,-1440.84 434.58,-1431.03 431.59,-1441.2 438.58,-1440.84"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~fraggle_generate.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node15" class="node">
-<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>
+<title>sourcefile~fraggle_generate.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/fraggle_generate.f90.html" xlink:title="fraggle_generate.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="640,-1998 528,-1998 528,-1974 640,-1974 640,-1998"/>
+<text text-anchor="middle" x="584" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_generate.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~fraggle_generate.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.9,-1981.09C518.07,-1977.82 508.81,-1972.75 502,-1965 432.12,-1885.41 432.28,-1534.03 433.57,-1441.43"/>
+<polygon fill="#000000" stroke="#000000" points="437.08,-1441.29 433.74,-1431.23 430.08,-1441.17 437.08,-1441.29"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node16" class="node">
-<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>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-444 545.5,-444 545.5,-420 622.5,-420 622.5,-444"/>
+<text text-anchor="middle" x="584" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge23" 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.12,-424.66C531.26,-421.33 515.63,-416.82 502,-411 469.33,-397.05 469.44,-366.55 434,-369"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge33" 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,-432.52C529.51,-434.81 512.5,-440.38 502,-453 439.72,-527.89 434.47,-1258.75 434.04,-1396.63"/>
+<polygon fill="#000000" stroke="#000000" points="430.54,-1396.81 434.01,-1406.82 437.54,-1396.83 430.54,-1396.81"/>
+</g>
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node17" class="node">
-<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>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="639.5,-1956 528.5,-1956 528.5,-1932 639.5,-1932 639.5,-1956"/>
+<text text-anchor="middle" x="584" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge32" 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.37,-1939.18C518.38,-1935.91 508.94,-1930.82 502,-1923 437.45,-1850.23 433.64,-1529.35 433.83,-1441.38"/>
+<polygon fill="#000000" stroke="#000000" points="437.33,-1441.2 433.88,-1431.19 430.33,-1441.17 437.33,-1441.2"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node18" class="node">
-<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>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="637,-2208 531,-2208 531,-2184 637,-2184 637,-2208"/>
+<text text-anchor="middle" x="584" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.61,-2192.19C519.71,-2188.97 509.33,-2183.64 502,-2175 453.28,-2117.56 437.35,-1559.75 434.5,-1441.11"/>
+<polygon fill="#000000" stroke="#000000" points="437.99,-1440.95 434.26,-1431.04 430.99,-1441.12 437.99,-1440.95"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge99" 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.99,-2205.42C521.02,-2208.34 510.92,-2212.12 502,-2217 465.85,-2236.77 465.18,-2306.93 434,-2280"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node19" class="node">
-<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>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="643,-1914 525,-1914 525,-1890 643,-1890 643,-1914"/>
+<text text-anchor="middle" x="584" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge35" 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.73,-1895.8C516.13,-1892.54 508.11,-1887.81 502,-1881 442.71,-1814.96 435.1,-1523.97 434.13,-1441.1"/>
+<polygon fill="#000000" stroke="#000000" points="437.63,-1440.99 434.04,-1431.03 430.63,-1441.06 437.63,-1440.99"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node20" class="node">
-<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>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="617.5,-1872 550.5,-1872 550.5,-1848 617.5,-1848 617.5,-1872"/>
+<text text-anchor="middle" x="584" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.28,-1859.63C533.51,-1857.66 514.13,-1852.32 502,-1839 448.07,-1779.8 436.71,-1519.56 434.5,-1441.32"/>
+<polygon fill="#000000" stroke="#000000" points="438,-1441.05 434.24,-1431.15 431,-1441.24 438,-1441.05"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node21" class="node">
-<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>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-1830 541.5,-1830 541.5,-1806 626.5,-1806 626.5,-1830"/>
+<text text-anchor="middle" x="584" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.27,-1816.14C526.98,-1813.41 512.07,-1807.87 502,-1797 453.38,-1744.55 438.49,-1514.57 434.95,-1441.42"/>
+<polygon fill="#000000" stroke="#000000" points="438.43,-1440.91 434.47,-1431.08 431.44,-1441.23 438.43,-1440.91"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node22" class="node">
-<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>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623,-2586 545,-2586 545,-2562 623,-2562 623,-2586"/>
+<text text-anchor="middle" x="584" y="-2571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge19" 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,-2583.47C531.39,-2586.96 515.98,-2591.03 502,-2595 471.57,-2603.64 462.7,-2629.29 434,-2616"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_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="M544.76,-2573.47C529.13,-2571.15 512.34,-2565.56 502,-2553 465.32,-2508.43 438.85,-1596.78 434.6,-1441.42"/>
+<polygon fill="#000000" stroke="#000000" points="438.09,-1441.1 434.32,-1431.2 431.1,-1441.29 438.09,-1441.1"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~fraggle_setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node23" class="node">
-<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>
+<title>sourcefile~fraggle_setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/fraggle_setup.f90.html" xlink:title="fraggle_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="632,-1788 536,-1788 536,-1764 632,-1764 632,-1788"/>
+<text text-anchor="middle" x="584" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~fraggle_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M535.92,-1772.83C523.39,-1769.78 510.89,-1764.39 502,-1755 458.66,-1709.26 440.49,-1509.3 435.51,-1441.55"/>
+<polygon fill="#000000" stroke="#000000" points="438.97,-1440.9 434.77,-1431.17 431.99,-1441.39 438.97,-1440.9"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node24" class="node">
-<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>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-402 544.5,-402 544.5,-378 623.5,-378 623.5,-402"/>
+<text text-anchor="middle" x="584" y="-387.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~~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"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge20" 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.26,-380.04C514.28,-373.42 471.66,-366.39 434,-369"/>
+</g>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge42" 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,-390.63C528.89,-392.99 512.29,-398.59 502,-411 436.94,-489.47 433.97,-1256.54 433.97,-1396.98"/>
+<polygon fill="#000000" stroke="#000000" points="430.47,-1396.99 433.97,-1406.98 437.47,-1396.98 430.47,-1396.99"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node25" class="node">
-<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>
+<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,-2544 547.5,-2544 547.5,-2520 620.5,-2520 620.5,-2544"/>
+<text text-anchor="middle" x="584" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge11" 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,-2537.3C532.64,-2540.47 515.89,-2545.4 502,-2553 465.85,-2572.77 471.39,-2633.31 434,-2616"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.27,-2531.8C530.97,-2529.72 512.91,-2524.22 502,-2511 466.7,-2468.2 439.19,-1593.78 434.66,-1441.51"/>
+<polygon fill="#000000" stroke="#000000" points="438.14,-1441 434.35,-1431.11 431.15,-1441.21 438.14,-1441"/>
+</g>
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node26" class="node">
-<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>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="635.5,-2166 532.5,-2166 532.5,-2142 635.5,-2142 635.5,-2166"/>
+<text text-anchor="middle" x="584" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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~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>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.32,-2150.65C520.82,-2147.48 509.73,-2142.06 502,-2133 456.02,-2079.07 438.04,-1556.35 434.62,-1441.32"/>
+<polygon fill="#000000" stroke="#000000" points="438.12,-1441.11 434.33,-1431.21 431.12,-1441.31 438.12,-1441.11"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge94" 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,-2160.97C521.73,-2164.07 510.95,-2168.54 502,-2175 456.91,-2207.53 476.07,-2316.35 434,-2280"/>
 </g>
 <!-- sourcefile~symba_setup.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node28" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node27" class="node">
 <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>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631,-2124 537,-2124 537,-2100 631,-2100 631,-2124"/>
+<text text-anchor="middle" x="584" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge27" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge45" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.58,-2109.68C523.61,-2106.71 510.7,-2101.14 502,-2091 458.68,-2040.5 438.73,-1551.37 434.75,-1441.04"/>
+<polygon fill="#000000" stroke="#000000" points="438.25,-1440.91 434.4,-1431.04 431.26,-1441.16 438.25,-1440.91"/>
 </g>
 <!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge91" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge95" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.81,-2116.68C524.45,-2119.77 511.81,-2124.81 502,-2133 446.74,-2179.13 488.47,-2327.06 434,-2280"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-2280C369.39,-2225.91 323.69,-1607.3 315,-1481.32"/>
+<polygon fill="#000000" stroke="#000000" points="318.49,-1481.02 314.32,-1471.28 311.51,-1481.5 318.49,-1481.02"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~symba_util.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node28" class="node">
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="625,-2460 543,-2460 543,-2436 625,-2436 625,-2460"/>
+<text text-anchor="middle" x="584" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.71,-2447.1C527.7,-2444.6 511.92,-2438.97 502,-2427 469.44,-2387.73 439.89,-1587 434.78,-1441.56"/>
+<polygon fill="#000000" stroke="#000000" points="438.26,-1441.08 434.42,-1431.21 431.27,-1441.33 438.26,-1441.08"/>
+</g>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge97" 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,-2444.65C528.54,-2441.76 513.38,-2436.5 502,-2427 446.74,-2380.87 488.47,-2327.06 434,-2280"/>
+</g>
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node29" class="node">
-<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>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-360 550,-360 550,-336 618,-336 618,-360"/>
+<text text-anchor="middle" x="584" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge21" 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.71,-354.07C519.6,-359.23 474,-366.23 434,-369"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge47" 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,-347.92C532.84,-349.76 513.48,-355.12 502,-369 434.28,-450.9 433.49,-1251.46 433.9,-1396.52"/>
+<polygon fill="#000000" stroke="#000000" points="430.41,-1396.85 433.94,-1406.84 437.41,-1396.83 430.41,-1396.85"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node30" class="node">
-<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>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node30"><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~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~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"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.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="M546.14,-1732.67C530.58,-1730.23 513.45,-1724.76 502,-1713 463.89,-1673.87 442.75,-1503.43 436.22,-1441.55"/>
+<polygon fill="#000000" stroke="#000000" points="439.67,-1440.91 435.17,-1431.31 432.71,-1441.62 439.67,-1440.91"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node31" class="node">
-<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>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="624,-2502 544,-2502 544,-2478 624,-2478 624,-2502"/>
+<text text-anchor="middle" x="584" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-2616C190.52,-2616 178.76,-1642.17 178.46,-1481.36"/>
+<polygon fill="#000000" stroke="#000000" points="181.96,-1481.21 178.46,-1471.21 174.96,-1481.21 181.96,-1481.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.79,-2494.16C529.62,-2497.14 514.14,-2502.25 502,-2511 456.91,-2543.53 484.45,-2639.36 434,-2616"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.95,-2489.32C528.57,-2486.92 512.18,-2481.32 502,-2469 468.07,-2427.97 439.54,-1590.57 434.72,-1441.57"/>
+<polygon fill="#000000" stroke="#000000" points="438.21,-1441.24 434.39,-1431.36 431.21,-1441.46 438.21,-1441.24"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node32" class="node">
-<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>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-1704 545.5,-1704 545.5,-1680 622.5,-1680 622.5,-1704"/>
+<text text-anchor="middle" x="584" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge50" 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,-1690.27C529.91,-1687.7 513.36,-1682.24 502,-1671 437.77,-1607.4 432.35,-1489.93 433.09,-1441.14"/>
+<polygon fill="#000000" stroke="#000000" points="436.59,-1441.13 433.35,-1431.05 429.59,-1440.95 436.59,-1441.13"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node33" class="node">
-<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>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="616,-1662 552,-1662 552,-1638 616,-1638 616,-1662"/>
+<text text-anchor="middle" x="584" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.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.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~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"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M551.86,-1648.96C535.15,-1646.84 515.32,-1641.55 502,-1629 447.98,-1578.1 436.78,-1484.01 434.52,-1441.22"/>
+<polygon fill="#000000" stroke="#000000" points="438.01,-1440.89 434.11,-1431.05 431.02,-1441.18 438.01,-1440.89"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node34" class="node">
-<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>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~whm_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="666,-1620 502,-1620 502,-1596 666,-1596 666,-1620"/>
+<text text-anchor="middle" x="584" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge53" 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="M515.46,-1595.97C510.61,-1593.5 506.04,-1590.54 502,-1587 458.05,-1548.46 442.08,-1477.38 436.62,-1441.29"/>
+<polygon fill="#000000" stroke="#000000" points="440.08,-1440.71 435.25,-1431.28 433.14,-1441.67 440.08,-1440.71"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node35" class="node">
-<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>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-318 545.5,-318 545.5,-294 622.5,-294 622.5,-318"/>
+<text text-anchor="middle" x="584" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge22" 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.12,-313.34C531.26,-316.67 515.63,-321.18 502,-327 469.33,-340.95 469.44,-366.55 434,-369"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge55" 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,-306.48C529.45,-308.76 512.45,-314.34 502,-327 431.55,-412.42 433.02,-1248.19 433.85,-1396.54"/>
+<polygon fill="#000000" stroke="#000000" points="430.35,-1396.73 433.91,-1406.71 437.35,-1396.69 430.35,-1396.73"/>
+</g>
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node36" class="node">
-<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>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1578 557,-1578 557,-1554 611,-1554 611,-1578"/>
+<text text-anchor="middle" x="584" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.92,-1564.56C539.76,-1562.43 517.66,-1557.28 502,-1545 467.83,-1518.21 448.63,-1469.32 439.88,-1440.95"/>
+<polygon fill="#000000" stroke="#000000" points="443.19,-1439.8 437.03,-1431.18 436.47,-1441.76 443.19,-1439.8"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node37" class="node">
-<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>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-1536 541,-1536 541,-1512 627,-1512 627,-1536"/>
+<text text-anchor="middle" x="584" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.95,-1518.39C527.75,-1515.29 513.6,-1510.47 502,-1503 477.19,-1487.03 457.2,-1458.98 445.47,-1439.72"/>
+<polygon fill="#000000" stroke="#000000" points="448.47,-1437.92 440.39,-1431.06 442.43,-1441.46 448.47,-1437.92"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node38" class="node">
-<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>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-1494 550,-1494 550,-1470 618,-1470 618,-1494"/>
+<text text-anchor="middle" x="584" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.94,-1475.79C534.96,-1472.38 517.23,-1467.5 502,-1461 486.9,-1454.56 471.24,-1445.1 458.76,-1436.79"/>
+<polygon fill="#000000" stroke="#000000" points="460.51,-1433.75 450.28,-1431 456.57,-1439.53 460.51,-1433.75"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~netcdf.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node39" class="node">
-<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>
+<title>sourcefile~netcdf.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/netcdf.f90.html" xlink:title="netcdf.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">netcdf.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~netcdf.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.92,-1435.9C531.83,-1432.79 501.14,-1428.46 476.34,-1424.97"/>
+<polygon fill="#000000" stroke="#000000" points="476.5,-1421.46 466.11,-1423.53 475.52,-1428.39 476.5,-1421.46"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node40" class="node">
-<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>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="636.5,-1410 531.5,-1410 531.5,-1386 636.5,-1386 636.5,-1410"/>
+<text text-anchor="middle" x="584" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge59" 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.31,-1405.29C513.35,-1407.82 493.43,-1410.62 476.32,-1413.04"/>
+<polygon fill="#000000" stroke="#000000" points="475.49,-1409.62 466.07,-1414.48 476.46,-1416.55 475.49,-1409.62"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node41" class="node">
-<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>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="612.5,-1368 555.5,-1368 555.5,-1344 612.5,-1344 612.5,-1368"/>
+<text text-anchor="middle" x="584" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_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="M555.33,-1361.02C539.35,-1364.45 519.1,-1369.7 502,-1377 486.9,-1383.44 471.24,-1392.9 458.76,-1401.21"/>
+<polygon fill="#000000" stroke="#000000" points="456.57,-1398.47 450.28,-1407 460.51,-1404.25 456.57,-1398.47"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node42" class="node">
-<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>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-1326 550,-1326 550,-1302 618,-1302 618,-1326"/>
+<text text-anchor="middle" x="584" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~util_coord.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node43" class="node">
-<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~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"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_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="M549.93,-1317.71C534.44,-1320.62 516.29,-1325.8 502,-1335 477.19,-1350.97 457.2,-1379.02 445.47,-1398.28"/>
+<polygon fill="#000000" stroke="#000000" points="442.43,-1396.54 440.39,-1406.94 448.47,-1400.08 442.43,-1396.54"/>
 </g>
 <!-- sourcefile~symba_kick.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node44" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node43" class="node">
 <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>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2418 541,-2418 541,-2394 627,-2394 627,-2418"/>
+<text text-anchor="middle" x="584" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge45" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge63" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.62,-2404.71C526.26,-2402.04 511.47,-2396.39 502,-2385 439.72,-2310.11 434.47,-1579.25 434.04,-1441.37"/>
+<polygon fill="#000000" stroke="#000000" points="437.54,-1441.17 434.01,-1431.18 430.54,-1441.19 437.54,-1441.17"/>
 </g>
 <!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge85" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge100" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.88,-2401.21C527.53,-2398.15 513.31,-2393.16 502,-2385 456.91,-2352.47 476.07,-2316.35 434,-2280"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node44" class="node">
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2754 541,-2754 541,-2730 627,-2730 627,-2754"/>
+<text text-anchor="middle" x="584" y="-2739.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~~whm_classes.f90~~AfferentGraph_edge17" 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,-2737.21C527.53,-2734.15 513.31,-2729.16 502,-2721 456.91,-2688.47 484.45,-2639.36 434,-2616"/>
+</g>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.93,-2740.88C526.42,-2738.25 511.46,-2732.59 502,-2721 480.89,-2695.14 440.93,-1610.92 434.8,-1441.23"/>
+<polygon fill="#000000" stroke="#000000" points="438.29,-1441.07 434.44,-1431.21 431.3,-1441.33 438.29,-1441.07"/>
+</g>
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node45" class="node">
-<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>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620,-1284 548,-1284 548,-1260 620,-1260 620,-1284"/>
+<text text-anchor="middle" x="584" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge65" 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,-1274.79C532.52,-1277.5 515.03,-1282.78 502,-1293 467.83,-1319.79 448.63,-1368.68 439.88,-1397.05"/>
+<polygon fill="#000000" stroke="#000000" points="436.47,-1396.24 437.03,-1406.82 443.19,-1398.2 436.47,-1396.24"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~fraggle_set.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node46" class="node">
-<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>
+<title>sourcefile~fraggle_set.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/fraggle_set.f90.html" xlink:title="fraggle_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626,-1242 542,-1242 542,-1218 626,-1218 626,-1242"/>
+<text text-anchor="middle" x="584" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_set.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~fraggle_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.59,-1233.22C527.67,-1236.12 512.92,-1241.42 502,-1251 458.05,-1289.54 442.08,-1360.62 436.62,-1396.71"/>
+<polygon fill="#000000" stroke="#000000" points="433.14,-1396.33 435.25,-1406.72 440.08,-1397.29 433.14,-1396.33"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node47" class="node">
-<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>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611.5,-1200 556.5,-1200 556.5,-1176 611.5,-1176 611.5,-1200"/>
+<text text-anchor="middle" x="584" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.15,-1188.55C538.66,-1190.3 516.49,-1195.35 502,-1209 447.98,-1259.9 436.78,-1353.99 434.52,-1396.78"/>
+<polygon fill="#000000" stroke="#000000" points="431.02,-1396.82 434.11,-1406.95 438.01,-1397.11 431.02,-1396.82"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node48" class="node">
-<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>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="619.5,-1158 548.5,-1158 548.5,-1134 619.5,-1134 619.5,-1158"/>
+<text text-anchor="middle" x="584" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.38,-1147.21C532.34,-1149.53 514.18,-1154.94 502,-1167 437.77,-1230.6 432.35,-1348.07 433.09,-1396.86"/>
+<polygon fill="#000000" stroke="#000000" points="429.59,-1397.05 433.35,-1406.95 436.59,-1396.87 429.59,-1397.05"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node49" class="node">
-<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>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1116 557,-1116 557,-1092 611,-1092 611,-1116"/>
+<text text-anchor="middle" x="584" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.92,-1104.05C539.08,-1105.52 516.19,-1110.43 502,-1125 463.89,-1164.13 442.75,-1334.57 436.22,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="432.71,-1396.38 435.17,-1406.69 439.67,-1397.09 432.71,-1396.38"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node50" class="node">
-<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>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node50"><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>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.79,-1061.93C538.9,-1063.34 515.99,-1068.24 502,-1083 458.66,-1128.74 440.49,-1328.7 435.51,-1396.45"/>
+<polygon fill="#000000" stroke="#000000" points="431.99,-1396.61 434.77,-1406.83 438.97,-1397.1 431.99,-1396.61"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~helio_setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node51" class="node">
-<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>
+<title>sourcefile~helio_setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/helio_setup.f90.html" xlink:title="helio_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-276 541.5,-276 541.5,-252 626.5,-252 626.5,-276"/>
+<text text-anchor="middle" x="584" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.37,-269.51C528.05,-272.61 513.73,-277.45 502,-285 461.61,-311 481.92,-365.68 434,-369"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-369C221.73,-383.55 184.19,-1209.52 179.17,-1356.69"/>
+<polygon fill="#000000" stroke="#000000" points="175.67,-1356.68 178.84,-1366.79 182.67,-1356.91 175.67,-1356.68"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~helio_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.4,-265.08C526.77,-267.68 511.6,-273.33 502,-285 428.8,-373.97 432.57,-1245.26 433.79,-1396.64"/>
+<polygon fill="#000000" stroke="#000000" points="430.29,-1397.01 433.88,-1406.98 437.29,-1396.95 430.29,-1397.01"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node52" class="node">
-<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>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="616.5,-1032 551.5,-1032 551.5,-1008 616.5,-1008 616.5,-1032"/>
+<text text-anchor="middle" x="584" y="-1017.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~~whm_classes.f90~~AfferentGraph_edge56" class="edge">
-<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"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M551.18,-1020.36C534.26,-1022.28 514.44,-1027.58 502,-1041 453.38,-1093.45 438.49,-1323.43 434.95,-1396.58"/>
+<polygon fill="#000000" stroke="#000000" points="431.44,-1396.77 434.47,-1406.92 438.43,-1397.09 431.44,-1396.77"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~fraggle_regime.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node53" class="node">
-<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>
+<title>sourcefile~fraggle_regime.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/fraggle_regime.f90.html" xlink:title="fraggle_regime.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">fraggle_regime.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge57" 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,-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~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"/>
+<!-- sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~fraggle_regime.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.3,-981.83C520.94,-985 509.92,-990.3 502,-999 448.07,-1058.2 436.71,-1318.44 434.5,-1396.68"/>
+<polygon fill="#000000" stroke="#000000" points="431,-1396.76 434.24,-1406.85 438,-1396.95 431,-1396.76"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node54" class="node">
-<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>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-948 550,-948 550,-924 618,-924 618,-948"/>
+<text text-anchor="middle" x="584" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge58" class="edge">
-<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"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.79,-936.35C533.1,-938.34 513.94,-943.7 502,-957 442.71,-1023.04 435.1,-1314.03 434.13,-1396.9"/>
+<polygon fill="#000000" stroke="#000000" points="430.63,-1396.94 434.04,-1406.97 437.63,-1397.01 430.63,-1396.94"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~orbel.f90~2 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node55" class="node">
-<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>
+<title>sourcefile~orbel.f90~2</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/orbel.f90~2.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611.5,-906 556.5,-906 556.5,-882 611.5,-882 611.5,-906"/>
+<text text-anchor="middle" x="584" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge59" class="edge">
-<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~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"/>
+<!-- sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~orbel.f90~2&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.49,-893.66C538.46,-894.93 515.5,-899.79 502,-915 437.45,-987.77 433.64,-1308.65 433.83,-1396.62"/>
+<polygon fill="#000000" stroke="#000000" points="430.33,-1396.83 433.88,-1406.81 437.33,-1396.8 430.33,-1396.83"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node56" class="node">
-<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>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="635.5,-864 532.5,-864 532.5,-840 635.5,-840 635.5,-864"/>
+<text text-anchor="middle" x="584" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge60" class="edge">
-<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"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.08,-855.63C520.72,-858.81 509.76,-864.16 502,-873 432.12,-952.59 432.28,-1303.97 433.57,-1396.57"/>
+<polygon fill="#000000" stroke="#000000" points="430.08,-1396.83 433.74,-1406.77 437.08,-1396.71 430.08,-1396.83"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node57" class="node">
-<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>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-822 557,-822 557,-798 611,-798 611,-822"/>
+<text text-anchor="middle" x="584" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- 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~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"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.79,-809.55C538.65,-810.75 515.45,-815.55 502,-831 464.08,-874.57 440.32,-1295.11 435.09,-1396.9"/>
+<polygon fill="#000000" stroke="#000000" points="431.59,-1396.8 434.58,-1406.97 438.58,-1397.16 431.59,-1396.8"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node58" class="node">
-<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>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.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">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.64,-2362.7C526.28,-2360.02 511.49,-2354.38 502,-2343 442.49,-2271.67 435.01,-1576.62 434.12,-1441.64"/>
+<polygon fill="#000000" stroke="#000000" points="437.61,-1441.28 434.05,-1431.3 430.61,-1441.32 437.61,-1441.28"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge102" 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.72,-2357.19C527.78,-2354.03 513.85,-2349.48 502,-2343 465.85,-2323.23 465.18,-2306.93 434,-2280"/>
+</g>
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node59" class="node">
-<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>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631.5,-780 536.5,-780 536.5,-756 631.5,-756 631.5,-780"/>
+<text text-anchor="middle" x="584" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.2,-770.46C523.37,-773.45 510.64,-778.99 502,-789 461.42,-836 439.53,-1290.11 434.92,-1396.69"/>
+<polygon fill="#000000" stroke="#000000" points="431.42,-1396.78 434.49,-1406.92 438.41,-1397.08 431.42,-1396.78"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node60" class="node">
-<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>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~whm_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="655,-2712 513,-2712 513,-2688 655,-2688 655,-2712"/>
+<text text-anchor="middle" x="584" y="-2697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge13" 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,-2687.86C515.35,-2685.41 508.37,-2682.49 502,-2679 465.85,-2659.23 471.39,-2633.31 434,-2616"/>
 </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"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge82" 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.96,-2688.64C508.85,-2686 505.13,-2682.82 502,-2679 481.58,-2654.03 441.16,-1607.95 434.84,-1441.28"/>
+<polygon fill="#000000" stroke="#000000" points="438.33,-1441.07 434.46,-1431.21 431.34,-1441.33 438.33,-1441.07"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~util_fill.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-738 554,-738 554,-714 614,-714 614,-738"/>
+<text text-anchor="middle" x="584" y="-723.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.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.98,-725.7C536.27,-727.16 514.67,-732.22 502,-747 458.68,-797.5 438.73,-1286.63 434.75,-1396.96"/>
+<polygon fill="#000000" stroke="#000000" points="431.26,-1396.84 434.4,-1406.96 438.25,-1397.09 431.26,-1396.84"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge15" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.84,-1459C252.49,-1459 243.78,-1459 235.3,-1459"/>
+<polygon fill="#000000" stroke="#000000" points="235.09,-1455.5 225.09,-1459 235.09,-1462.5 235.09,-1455.5"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node62" class="node">
-<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>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.82,-1446.94C278.52,-1442.71 269.27,-1437.82 261,-1433 241.53,-1421.66 220.27,-1407.7 204.21,-1396.82"/>
+<polygon fill="#000000" stroke="#000000" points="206.1,-1393.87 195.87,-1391.13 202.16,-1399.66 206.1,-1393.87"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node63" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631,-2670 537,-2670 537,-2646 631,-2646 631,-2670"/>
+<text text-anchor="middle" x="584" y="-2655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge67" 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.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"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge16" 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.67,-2648.94C506.56,-2642.09 466.93,-2631.24 434,-2616"/>
 </g>
-<!-- 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"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge86" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.72,-2656.01C523.59,-2653.08 510.56,-2647.45 502,-2637 482.28,-2612.93 441.43,-1605.76 434.89,-1441.53"/>
+<polygon fill="#000000" stroke="#000000" points="438.37,-1441.04 434.48,-1431.19 431.38,-1441.32 438.37,-1441.04"/>
 </g>
-<!-- sourcefile~drift.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node63" class="node">
-<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>
+<!-- sourcefile~fraggle_util.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~fraggle_util.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/fraggle_util.f90.html" xlink:title="fraggle_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="625.5,-696 542.5,-696 542.5,-672 625.5,-672 625.5,-696"/>
+<text text-anchor="middle" x="584" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_util.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~fraggle_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.45,-685.11C527.6,-687.67 511.99,-693.28 502,-705 456.02,-758.93 438.04,-1281.65 434.62,-1396.68"/>
+<polygon fill="#000000" stroke="#000000" points="431.12,-1396.69 434.33,-1406.79 438.12,-1396.89 431.12,-1396.69"/>
 </g>
-<!-- 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>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="633,-654 535,-654 535,-630 633,-630 633,-654"/>
+<text text-anchor="middle" x="584" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.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"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M534.82,-644.67C522.42,-647.72 510.27,-653.25 502,-663 453.28,-720.44 437.35,-1278.25 434.5,-1396.89"/>
+<polygon fill="#000000" stroke="#000000" points="430.99,-1396.88 434.26,-1406.96 437.99,-1397.05 430.99,-1396.88"/>
+</g>
+<!-- sourcefile~util_index.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node66" class="node">
+<title>sourcefile~util_index.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/util_index.f90.html" xlink:title="util_index.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622,-612 546,-612 546,-588 622,-588 622,-612"/>
+<text text-anchor="middle" x="584" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_index.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge87" class="edge">
+<title>sourcefile~util_index.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.74,-600.53C529.91,-602.8 512.68,-608.34 502,-621 450.58,-681.92 436.72,-1274.14 434.39,-1396.82"/>
+<polygon fill="#000000" stroke="#000000" points="430.88,-1396.85 434.2,-1406.91 437.88,-1396.97 430.88,-1396.85"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node67" class="node">
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-570 544.5,-570 544.5,-546 623.5,-546 623.5,-570"/>
+<text text-anchor="middle" x="584" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_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="M544.46,-558.7C528.98,-561.07 512.38,-566.66 502,-579 447.86,-643.42 436.11,-1270.43 434.29,-1396.85"/>
+<polygon fill="#000000" stroke="#000000" points="430.79,-1396.85 434.15,-1406.9 437.78,-1396.95 430.79,-1396.85"/>
+</g>
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node68" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622,-2334 546,-2334 546,-2310 622,-2310 622,-2334"/>
+<text text-anchor="middle" x="584" 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~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge89" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.7,-2321.51C529.86,-2319.25 512.63,-2313.7 502,-2301 445.18,-2233.13 435.55,-1572.2 434.2,-1441.42"/>
+<polygon fill="#000000" stroke="#000000" points="437.69,-1441.02 434.1,-1431.06 430.69,-1441.09 437.69,-1441.02"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge101" 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.8,-2320.2C512.88,-2316.76 465.32,-2307.06 434,-2280"/>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~fraggle_placeholder.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/fraggle_placeholder.f90.html" xlink:title="fraggle_placeholder.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="646,-528 522,-528 522,-504 646,-504 646,-528"/>
+<text text-anchor="middle" x="584" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_placeholder.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge90" class="edge">
+<title>sourcefile~fraggle_placeholder.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M521.89,-522.83C514.28,-526.09 507.32,-530.65 502,-537 445.18,-604.87 435.55,-1265.8 434.2,-1396.58"/>
+<polygon fill="#000000" stroke="#000000" points="430.69,-1396.91 434.1,-1406.94 437.69,-1396.98 430.69,-1396.91"/>
+</g>
+<!-- sourcefile~gr.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node70" class="node">
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node70"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-486 557,-486 557,-462 611,-462 611,-486"/>
+<text text-anchor="middle" x="584" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge91" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.98,-473.36C538.69,-474.43 515.22,-479.16 502,-495 442.49,-566.33 435.01,-1261.38 434.12,-1396.36"/>
+<polygon fill="#000000" stroke="#000000" points="430.61,-1396.68 434.05,-1406.7 437.61,-1396.72 430.61,-1396.68"/>
+</g>
+<!-- sourcefile~rmvs_io.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node71" class="node">
+<title>sourcefile~rmvs_io.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node71"><a xlink:href=".././sourcefile/rmvs_io.f90.html" xlink:title="rmvs_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-2628 550,-2628 550,-2604 618,-2604 618,-2628"/>
+<text text-anchor="middle" x="584" y="-2613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.92,-2623.65C518.55,-2629.2 470.86,-2633.06 434,-2616"/>
+</g>
+<!-- sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge92" class="edge">
+<title>sourcefile~rmvs_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.72,-2616.11C532.79,-2614.28 513.43,-2608.92 502,-2595 482.95,-2571.8 441.62,-1601.35 434.92,-1441.25"/>
+<polygon fill="#000000" stroke="#000000" points="438.42,-1441 434.5,-1431.15 431.42,-1441.29 438.42,-1441"/>
+</g>
+<!-- sourcefile~util_version.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node72" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node72"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-2082 541.5,-2082 541.5,-2058 626.5,-2058 626.5,-2082"/>
+<text text-anchor="middle" x="584" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge93" 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,-2068.6C526.8,-2065.94 511.78,-2060.32 502,-2049 461.42,-2002 439.53,-1547.89 434.92,-1441.31"/>
+<polygon fill="#000000" stroke="#000000" points="438.41,-1440.92 434.49,-1431.08 431.42,-1441.22 438.41,-1440.92"/>
 </g>
 </g>
 </svg>
@@ -1621,8 +1741,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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">swiftest_nbody_system</span><span class="p">)</span> <span class="kd">::</span> <span class="n">whm_nbody_system</span>
 <a name="ln-74"></a>   <span class="k">contains</span>
 <a name="ln-75"></a>      <span class="c">!&gt; Replace the abstract procedures with concrete ones</span>
-<a name="ln-76"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>   <span class="o">=&gt;</span> <span class="n">whm_setup_initialize_system</span>      <span class="c">!! Performs WHM-specific initilization steps, like calculating the Jacobi masses</span>
-<a name="ln-77"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>         <span class="o">=&gt;</span> <span class="n">whm_step_system</span>       <span class="c">!! Advance the WHM nbody system forward in time by one step</span>
+<a name="ln-76"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>   <span class="o">=&gt;</span> <span class="n">whm_setup_initialize_system</span> <span class="c">! Performs WHM-specific initilization steps, like calculating the Jacobi masses</span>
+<a name="ln-77"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>         <span class="o">=&gt;</span> <span class="n">whm_step_system</span>             <span class="c">!! Advance the WHM nbody system forward in time by one step</span>
 <a name="ln-78"></a>   <span class="k">end type </span><span class="n">whm_nbody_system</span>
 <a name="ln-79"></a>
 <a name="ln-80"></a>   <span class="k">interface</span>
@@ -1656,183 +1776,190 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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="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-109"></a>      <span class="k">end subroutine </span><span class="n">whm_drift_pl</span>
 <a name="ln-110"></a>
-<a name="ln-111"></a>      <span class="c">!&gt; Get heliocentric accelration of massive bodies</span>
-<a name="ln-112"></a>      <span class="k">module subroutine </span><span class="n">whm_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-113"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-114"></a>         <span class="k">implicit none</span>
-<a name="ln-115"></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 particle data structure</span>
-<a name="ln-116"></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">!! WHM nbody system object</span>
-<a name="ln-117"></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-118"></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-119"></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-120"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_getacch_pl</span>
-<a name="ln-121"></a>
-<a name="ln-122"></a>      <span class="c">!&gt; Get heliocentric accelration of the test particle</span>
-<a name="ln-123"></a>      <span class="k">module subroutine </span><span class="n">whm_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-124"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-125"></a>         <span class="k">implicit none</span>
-<a name="ln-126"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle data structure</span>
-<a name="ln-127"></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">!! WHM nbody system object</span>
-<a name="ln-128"></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-129"></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-130"></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-131"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_getacch_tp</span>
-<a name="ln-132"></a>
-<a name="ln-133"></a>      <span class="k">module subroutine </span><span class="n">whm_kick_vh_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-134"></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-135"></a>         <span class="k">implicit none</span>
-<a name="ln-136"></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-137"></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-138"></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-139"></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-140"></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-141"></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-142"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_vh_pl</span>
-<a name="ln-143"></a>
-<a name="ln-144"></a>      <span class="k">module subroutine </span><span class="n">whm_kick_vh_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-145"></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-146"></a>         <span class="k">implicit none</span>
-<a name="ln-147"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle object</span>
-<a name="ln-148"></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-149"></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-150"></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-151"></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-152"></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-153"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_vh_tp</span>
-<a name="ln-154"></a>
-<a name="ln-155"></a>      <span class="k">module subroutine </span><span class="n">whm_gr_kick_getacch_pl</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-156"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-157"></a>         <span class="k">implicit none</span>
-<a name="ln-158"></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 particle data structure</span>
-<a name="ln-159"></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-160"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_kick_getacch_pl</span>
+<a name="ln-111"></a>      <span class="k">module subroutine </span><span class="n">whm_util_index_eucl_plpl</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-112"></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-113"></a>         <span class="k">implicit none</span>
+<a name="ln-114"></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-115"></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-116"></a>      <span class="k">end subroutine </span><span class="n">whm_util_index_eucl_plpl</span>
+<a name="ln-117"></a>   
+<a name="ln-118"></a>      <span class="c">!&gt; Get heliocentric accelration of massive bodies</span>
+<a name="ln-119"></a>      <span class="k">module subroutine </span><span class="n">whm_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-120"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-121"></a>         <span class="k">implicit none</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 particle data structure</span>
+<a name="ln-123"></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">!! WHM nbody system object</span>
+<a name="ln-124"></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-125"></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-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">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-127"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_getacch_pl</span>
+<a name="ln-128"></a>
+<a name="ln-129"></a>      <span class="c">!&gt; Get heliocentric accelration of the test particle</span>
+<a name="ln-130"></a>      <span class="k">module subroutine </span><span class="n">whm_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-131"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-132"></a>         <span class="k">implicit none</span>
+<a name="ln-133"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle data structure</span>
+<a name="ln-134"></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">!! WHM nbody system object</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 parameters</span>
+<a name="ln-136"></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-137"></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-138"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_getacch_tp</span>
+<a name="ln-139"></a>
+<a name="ln-140"></a>      <span class="k">module subroutine </span><span class="n">whm_kick_vh_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-141"></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-142"></a>         <span class="k">implicit none</span>
+<a name="ln-143"></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-144"></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-145"></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-146"></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-147"></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-148"></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-149"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_vh_pl</span>
+<a name="ln-150"></a>
+<a name="ln-151"></a>      <span class="k">module subroutine </span><span class="n">whm_kick_vh_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">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-152"></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-153"></a>         <span class="k">implicit none</span>
+<a name="ln-154"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle object</span>
+<a name="ln-155"></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-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 parameters </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">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-158"></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-159"></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-160"></a>      <span class="k">end subroutine </span><span class="n">whm_kick_vh_tp</span>
 <a name="ln-161"></a>
-<a name="ln-162"></a>      <span class="k">module subroutine </span><span class="n">whm_gr_kick_getacch_tp</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-162"></a>      <span class="k">module subroutine </span><span class="n">whm_gr_kick_getacch_pl</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-163"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
 <a name="ln-164"></a>         <span class="k">implicit none</span>
-<a name="ln-165"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle data structure</span>
-<a name="ln-166"></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-167"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_kick_getacch_tp</span>
+<a name="ln-165"></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 particle data structure</span>
+<a name="ln-166"></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-167"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_kick_getacch_pl</span>
 <a name="ln-168"></a>
-<a name="ln-169"></a>      <span class="k">module pure subroutine </span><span class="n">whm_gr_p4_pl</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">dt</span><span class="p">)</span>
-<a name="ln-170"></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-169"></a>      <span class="k">module subroutine </span><span class="n">whm_gr_kick_getacch_tp</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-170"></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_cb</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
 <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">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-173"></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-174"></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-175"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_p4_pl</span>
-<a name="ln-176"></a>
-<a name="ln-177"></a>      <span class="k">module pure subroutine </span><span class="n">whm_gr_p4_tp</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">dt</span><span class="p">)</span>
-<a name="ln-178"></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-179"></a>         <span class="k">implicit none</span>
-<a name="ln-180"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle 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">dt</span>    <span class="c">!! Step size</span>
-<a name="ln-183"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_p4_tp</span>
-<a name="ln-184"></a>
-<a name="ln-185"></a>      <span class="c">!&gt; Reads WHM massive body object in from file</span>
-<a name="ln-186"></a>      <span class="k">module subroutine </span><span class="n">whm_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-187"></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-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">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 objectobject</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="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-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="k">end subroutine </span><span class="n">whm_setup_pl</span>
-<a name="ln-193"></a>
-<a name="ln-194"></a>      <span class="k">module subroutine </span><span class="n">whm_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-195"></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-196"></a>         <span class="k">implicit none</span>
-<a name="ln-197"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM nbody system object</span>
-<a name="ln-198"></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-199"></a>      <span class="k">end subroutine </span><span class="n">whm_setup_initialize_system</span>
+<a name="ln-172"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle data structure</span>
+<a name="ln-173"></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-174"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_kick_getacch_tp</span>
+<a name="ln-175"></a>
+<a name="ln-176"></a>      <span class="k">module pure subroutine </span><span class="n">whm_gr_p4_pl</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">dt</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">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-180"></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-181"></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-182"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_p4_pl</span>
+<a name="ln-183"></a>
+<a name="ln-184"></a>      <span class="k">module pure subroutine </span><span class="n">whm_gr_p4_tp</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">dt</span><span class="p">)</span>
+<a name="ln-185"></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-186"></a>         <span class="k">implicit none</span>
+<a name="ln-187"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle object</span>
+<a name="ln-188"></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-189"></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-190"></a>      <span class="k">end subroutine </span><span class="n">whm_gr_p4_tp</span>
+<a name="ln-191"></a>
+<a name="ln-192"></a>      <span class="c">!&gt; Reads WHM massive body object in from file</span>
+<a name="ln-193"></a>      <span class="k">module subroutine </span><span class="n">whm_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-194"></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-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">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 objectobject</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">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-198"></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-199"></a>      <span class="k">end subroutine </span><span class="n">whm_setup_pl</span>
 <a name="ln-200"></a>
-<a name="ln-201"></a>      <span class="k">module subroutine </span><span class="n">whm_step_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">dt</span><span class="p">)</span>
-<a name="ln-202"></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-201"></a>      <span class="k">module subroutine </span><span class="n">whm_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-202"></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-203"></a>         <span class="k">implicit none</span>
-<a name="ln-204"></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-205"></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-206"></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-207"></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-208"></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-209"></a>      <span class="k">end subroutine </span><span class="n">whm_step_pl</span>
-<a name="ln-210"></a>
-<a name="ln-211"></a>      <span class="k">module subroutine </span><span class="n">whm_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-212"></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-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">whm_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">!! WHM 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">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-216"></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-217"></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-218"></a>      <span class="k">end subroutine </span><span class="n">whm_step_system</span>
-<a name="ln-219"></a>
-<a name="ln-220"></a>      <span class="k">module subroutine </span><span class="n">whm_step_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">dt</span><span class="p">)</span>
-<a name="ln-221"></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-222"></a>         <span class="k">implicit none</span>
-<a name="ln-223"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle data structure</span>
-<a name="ln-224"></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-225"></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-226"></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-227"></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-228"></a>      <span class="k">end subroutine </span><span class="n">whm_step_tp</span>
-<a name="ln-229"></a>
-<a name="ln-230"></a>      <span class="k">module subroutine </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-231"></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-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">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>
-<a name="ln-239"></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-240"></a>         <span class="k">implicit none</span>
-<a name="ln-241"></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-242"></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-243"></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-244"></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-245"></a>      <span class="k">end subroutine </span><span class="n">whm_util_spill_pl</span>
-<a name="ln-246"></a>
-<a name="ln-247"></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-248"></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-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">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-251"></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-252"></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-253"></a>      <span class="k">end subroutine </span><span class="n">whm_util_fill_pl</span>
-<a name="ln-254"></a>
-<a name="ln-255"></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-204"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM nbody system object</span>
+<a name="ln-205"></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-206"></a>      <span class="k">end subroutine </span><span class="n">whm_setup_initialize_system</span>
+<a name="ln-207"></a>
+<a name="ln-208"></a>      <span class="k">module subroutine </span><span class="n">whm_step_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">dt</span><span class="p">)</span>
+<a name="ln-209"></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-210"></a>         <span class="k">implicit none</span>
+<a name="ln-211"></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-212"></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-213"></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-214"></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-215"></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-216"></a>      <span class="k">end subroutine </span><span class="n">whm_step_pl</span>
+<a name="ln-217"></a>
+<a name="ln-218"></a>      <span class="k">module subroutine </span><span class="n">whm_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-219"></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-220"></a>         <span class="k">implicit none</span>
+<a name="ln-221"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM 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="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-224"></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-225"></a>      <span class="k">end subroutine </span><span class="n">whm_step_system</span>
+<a name="ln-226"></a>
+<a name="ln-227"></a>      <span class="k">module subroutine </span><span class="n">whm_step_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">dt</span><span class="p">)</span>
+<a name="ln-228"></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-229"></a>         <span class="k">implicit none</span>
+<a name="ln-230"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_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">!! WHM test particle data structure</span>
+<a name="ln-231"></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-232"></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-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">t</span>      <span class="c">!! Current simulation time</span>
+<a name="ln-234"></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-235"></a>      <span class="k">end subroutine </span><span class="n">whm_step_tp</span>
+<a name="ln-236"></a>
+<a name="ln-237"></a>      <span class="k">module subroutine </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-238"></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-239"></a>         <span class="k">implicit none</span>
+<a name="ln-240"></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-241"></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-242"></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-243"></a>      <span class="k">end subroutine </span><span class="n">whm_util_append_pl</span>
+<a name="ln-244"></a>
+<a name="ln-245"></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-246"></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-247"></a>         <span class="k">implicit none</span>
+<a name="ln-248"></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-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">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </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">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-251"></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-252"></a>      <span class="k">end subroutine </span><span class="n">whm_util_spill_pl</span>
+<a name="ln-253"></a>
+<a name="ln-254"></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-255"></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-256"></a>         <span class="k">implicit none</span>
-<a name="ln-257"></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-258"></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-259"></a>      <span class="k">end subroutine </span><span class="n">whm_util_resize_pl</span>
-<a name="ln-260"></a>
-<a name="ln-261"></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-262"></a>         <span class="k">implicit none</span>
-<a name="ln-263"></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-264"></a>      <span class="k">end subroutine </span><span class="n">whm_util_set_ir3j</span>
-<a name="ln-265"></a>
-<a name="ln-266"></a>      <span class="k">module subroutine </span><span class="n">whm_util_set_mu_eta_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-267"></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_cb</span>
-<a name="ln-268"></a>         <span class="k">implicit none</span>
-<a name="ln-269"></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-270"></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-271"></a>      <span class="k">end subroutine </span><span class="n">whm_util_set_mu_eta_pl</span>
+<a name="ln-257"></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-258"></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-259"></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-260"></a>      <span class="k">end subroutine </span><span class="n">whm_util_fill_pl</span>
+<a name="ln-261"></a>
+<a name="ln-262"></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-263"></a>         <span class="k">implicit none</span>
+<a name="ln-264"></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-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">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-266"></a>      <span class="k">end subroutine </span><span class="n">whm_util_resize_pl</span>
+<a name="ln-267"></a>
+<a name="ln-268"></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-269"></a>         <span class="k">implicit none</span>
+<a name="ln-270"></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-271"></a>      <span class="k">end subroutine </span><span class="n">whm_util_set_ir3j</span>
 <a name="ln-272"></a>
-<a name="ln-273"></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-274"></a>         <span class="k">implicit none</span>
-<a name="ln-275"></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-276"></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-277"></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-278"></a>      <span class="k">end subroutine </span><span class="n">whm_util_sort_pl</span>
+<a name="ln-273"></a>      <span class="k">module subroutine </span><span class="n">whm_util_set_mu_eta_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-274"></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_cb</span>
+<a name="ln-275"></a>         <span class="k">implicit none</span>
+<a name="ln-276"></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-277"></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-278"></a>      <span class="k">end subroutine </span><span class="n">whm_util_set_mu_eta_pl</span>
 <a name="ln-279"></a>
-<a name="ln-280"></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-280"></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-281"></a>         <span class="k">implicit none</span>
-<a name="ln-282"></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-283"></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-284"></a>      <span class="k">end subroutine </span><span class="n">whm_util_sort_rearrange_pl</span>
-<a name="ln-285"></a>   <span class="k">end interface</span>
+<a name="ln-282"></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-283"></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-284"></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-285"></a>      <span class="k">end subroutine </span><span class="n">whm_util_sort_pl</span>
 <a name="ln-286"></a>
-<a name="ln-287"></a><span class="k">end module </span><span class="n">whm_classes</span>
+<a name="ln-287"></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-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">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-290"></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-291"></a>      <span class="k">end subroutine </span><span class="n">whm_util_sort_rearrange_pl</span>
+<a name="ln-292"></a>   <span class="k">end interface</span>
+<a name="ln-293"></a>
+<a name="ln-294"></a><span class="k">end module </span><span class="n">whm_classes</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/whm_coord.f90.html b/docs/sourcefile/whm_coord.f90.html
index c3252e835..422d36c7b 100644
--- a/docs/sourcefile/whm_coord.f90.html
+++ b/docs/sourcefile/whm_coord.f90.html
@@ -134,7 +134,7 @@ <h1>whm_coord.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.">66 statements</a>
+    title=" 0.4% of total for source files.">66 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_coordf90EfferentGraph" width="641pt" height="271pt"
+ viewBox="0.00 0.00 641.00 270.52" 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.7 0.7) rotate(0) translate(4 381.73)">
 <title>sourcefile~~whm_coord.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-289.05 903,-289.05 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 910,-381.73 910,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,-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>
+<polygon fill="none" stroke="black" points="906,-296.73 820,-296.73 820,-272.73 906,-272.73 906,-296.73"/>
+<text text-anchor="middle" x="863" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_coord.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.84,-291.44C744.02,-302.51 579.71,-321.92 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.81,-272.39C826.73,-259.4 798.08,-238.82 777.39,-223.96"/>
+<polygon fill="#000000" stroke="#000000" points="779.23,-220.98 769.07,-217.99 775.15,-226.66 779.23,-220.98"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_coord.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,-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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_coord.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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_coord.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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_coord.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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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.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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_coord.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,-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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_coord.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_coord.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_drift.f90.html b/docs/sourcefile/whm_drift.f90.html
index 107bb37aa..477ea10a1 100644
--- a/docs/sourcefile/whm_drift.f90.html
+++ b/docs/sourcefile/whm_drift.f90.html
@@ -134,7 +134,7 @@ <h1>whm_drift.f90
      <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.">36 statements</a>
+    title=" 0.2% of total for source files.">36 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_driftf90EfferentGraph" width="641pt" height="273pt"
+ viewBox="0.00 0.00 641.00 273.21" 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 381.73)">
 <title>sourcefile~~whm_drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.75 894,-288.75 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 901,-381.73 901,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,-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>
+<polygon fill="none" stroke="black" points="897,-296.73 820,-296.73 820,-272.73 897,-272.73 897,-296.73"/>
+<text text-anchor="middle" x="858.5" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_drift.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.86,-290.81C746.79,-301.7 580.75,-322.04 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.02,-272.39C823.75,-259.46 796.44,-239.01 776.62,-224.16"/>
+<polygon fill="#000000" stroke="#000000" points="778.47,-221.18 768.37,-217.99 774.28,-226.78 778.47,-221.18"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_drift.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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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.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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_drift.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,-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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_drift.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_drift.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_gr.f90.html b/docs/sourcefile/whm_gr.f90.html
index 22a84276e..b31d451a1 100644
--- a/docs/sourcefile/whm_gr.f90.html
+++ b/docs/sourcefile/whm_gr.f90.html
@@ -134,7 +134,7 @@ <h1>whm_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.">65 statements</a>
+    title=" 0.4% of total for source files.">65 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_grf90EfferentGraph" width="641pt" height="276pt"
+ viewBox="0.00 0.00 641.00 275.95" 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 381.73)">
 <title>sourcefile~~whm_gr.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.44 885,-288.44 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 892,-381.73 892,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,-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>
+<polygon fill="none" stroke="black" points="888,-296.73 820,-296.73 820,-272.73 888,-272.73 888,-296.73"/>
+<text text-anchor="middle" x="854" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_gr.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.87,-290.16C749.88,-300.82 581.92,-322.17 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M837.22,-272.39C820.69,-259.46 794.54,-239.01 775.57,-224.16"/>
+<polygon fill="#000000" stroke="#000000" points="777.7,-221.39 767.67,-217.99 773.39,-226.9 777.7,-221.39"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_gr.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,-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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_gr.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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_gr.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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_gr.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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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.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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_gr.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,-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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_gr.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_gr.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_kick.f90.html b/docs/sourcefile/whm_kick.f90.html
index 8e90a0124..d9b29a215 100644
--- a/docs/sourcefile/whm_kick.f90.html
+++ b/docs/sourcefile/whm_kick.f90.html
@@ -134,7 +134,7 @@ <h1>whm_kick.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.">190 statements</a>
+    title=" 1.1% of total for source files.">186 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_kickf90EfferentGraph" width="641pt" height="273pt"
+ viewBox="0.00 0.00 641.00 273.21" 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 381.73)">
 <title>sourcefile~~whm_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.75 894,-288.75 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 901,-381.73 901,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,-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>
+<polygon fill="none" stroke="black" points="897,-296.73 820,-296.73 820,-272.73 897,-272.73 897,-296.73"/>
+<text text-anchor="middle" x="858.5" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_kick.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.86,-290.81C746.79,-301.7 580.75,-322.04 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.02,-272.39C823.75,-259.46 796.44,-239.01 776.62,-224.16"/>
+<polygon fill="#000000" stroke="#000000" points="778.47,-221.18 768.37,-217.99 774.28,-226.78 778.47,-221.18"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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.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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_kick.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_kick.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
@@ -642,17 +694,17 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-80"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">lbeg</span> <span class="o">=</span> <span class="n">lbeg</span>
 <a name="ln-81"></a>
 <a name="ln-82"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-83"></a><span class="k">            </span><span class="n">ah0</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">whm_kick_getacch_ah0</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">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">(:,:),</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-83"></a><span class="k">            </span><span class="n">ah0</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">whm_kick_getacch_ah0</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">npl</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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">npl</span><span class="p">)</span>
 <a name="ln-84"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
 <a name="ln-85"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">ah0</span><span class="p">(:)</span>
 <a name="ln-86"></a>            <span class="k">end do</span>
-<a name="ln-87"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">(:,:),</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-87"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">npl</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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">npl</span><span class="p">)</span>
 <a name="ln-88"></a>         <span class="k">else</span>
-<a name="ln-89"></a><span class="k">            </span><span class="n">ah0</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">whm_kick_getacch_ah0</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">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">(:,:),</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-89"></a><span class="k">            </span><span class="n">ah0</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">whm_kick_getacch_ah0</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">npl</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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">npl</span><span class="p">)</span>
 <a name="ln-90"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
 <a name="ln-91"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">ah0</span><span class="p">(:)</span>
 <a name="ln-92"></a>            <span class="k">end do</span>
-<a name="ln-93"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">(:,:),</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-93"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_int</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">npl</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="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">npl</span><span class="p">)</span>
 <a name="ln-94"></a>         <span class="k">end if</span>
 <a name="ln-95"></a>
 <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">call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel_obl</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
@@ -775,13 +827,13 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-213"></a><span class="k">         if</span> <span class="p">(</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
 <a name="ln-214"></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-215"></a><span class="k">               call </span><span class="n">pl</span><span class="p">%</span><span class="n">h2j</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-216"></a>               <span class="n">pl</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-216"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
 <a name="ln-217"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel</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-218"></a>               <span class="n">pl</span><span class="p">%</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-219"></a>            <span class="k">end if</span>
 <a name="ln-220"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xbeg</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
 <a name="ln-221"></a>         <span class="k">else</span>
-<a name="ln-222"></a><span class="k">            </span><span class="n">pl</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-222"></a><span class="k">            </span><span class="n">pl</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
 <a name="ln-223"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">accel</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-224"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">set_beg_end</span><span class="p">(</span><span class="n">xend</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
 <a name="ln-225"></a>         <span class="k">end if</span>
@@ -816,31 +868,27 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-254"></a>
 <a name="ln-255"></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-256"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-257"></a><span class="k">            where</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-258"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-259"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-260"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-261"></a>            <span class="k">end where</span>
-<a name="ln-262"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel</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="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-263"></a>            <span class="n">tp</span><span class="p">%</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-264"></a>         <span class="k">end if</span>
-<a name="ln-265"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-266"></a><span class="k">            where</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lmask</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-267"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-268"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-269"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</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="mf">0.0_DP</span>
-<a name="ln-270"></a>            <span class="k">end where</span>
-<a name="ln-271"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel</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-272"></a>         <span class="k">end if</span>
-<a name="ln-273"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-274"></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">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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">dt</span>
-<a name="ln-275"></a>         <span class="k">end do</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">whm_kick_vh_tp</span>
-<a name="ln-280"></a>
-<a name="ln-281"></a><span class="k">end submodule </span><span class="n">s_whm_kick</span>
+<a name="ln-257"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-258"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-259"></a>            <span class="k">end do</span>
+<a name="ln-260"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel</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="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-261"></a>            <span class="n">tp</span><span class="p">%</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-262"></a>         <span class="k">end if</span>
+<a name="ln-263"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lbeg</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-264"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-265"></a>               <span class="n">tp</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-266"></a>            <span class="k">end do</span>
+<a name="ln-267"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">accel</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-268"></a>         <span class="k">end if</span>
+<a name="ln-269"></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">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-270"></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">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">ah</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">dt</span>
+<a name="ln-271"></a>         <span class="k">end do</span>
+<a name="ln-272"></a><span class="k">      end associate</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">whm_kick_vh_tp</span>
+<a name="ln-276"></a>
+<a name="ln-277"></a><span class="k">end submodule </span><span class="n">s_whm_kick</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/whm_setup.f90.html b/docs/sourcefile/whm_setup.f90.html
index cd0314d5b..798991087 100644
--- a/docs/sourcefile/whm_setup.f90.html
+++ b/docs/sourcefile/whm_setup.f90.html
@@ -134,7 +134,7 @@ <h1>whm_setup.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.">61 statements</a>
+    title=" 0.4% of total for source files.">63 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_setupf90EfferentGraph" width="641pt" height="271pt"
+ viewBox="0.00 0.00 641.00 270.81" 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.7 0.7) rotate(0) translate(4 381.73)">
 <title>sourcefile~~whm_setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-289.01 902,-289.01 902,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 909,-381.73 909,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,-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>
+<polygon fill="none" stroke="black" points="905,-296.73 820,-296.73 820,-272.73 905,-272.73 905,-296.73"/>
+<text text-anchor="middle" x="862.5" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_setup.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.99,-291.35C744.53,-302.4 579.91,-321.95 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.39,-272.39C826.39,-259.4 797.87,-238.82 777.28,-223.96"/>
+<polygon fill="#000000" stroke="#000000" points="779.15,-221 768.99,-217.99 775.05,-226.68 779.15,-221"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_setup.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_setup.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
@@ -578,7 +630,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-16"></a>
 <a name="ln-17"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
 <a name="ln-18"></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-19"></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-19"></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-20"></a>
 <a name="ln-21"></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">eta</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">eta</span><span class="p">)</span>
 <a name="ln-22"></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">muj</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">muj</span><span class="p">)</span>
@@ -586,76 +638,79 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-24"></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">vj</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">vj</span><span class="p">)</span>
 <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">self</span><span class="p">%</span><span class="n">ir3j</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">ir3j</span><span class="p">)</span>
 <a name="ln-26"></a>
-<a name="ln-27"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
-<a name="ln-28"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
-<a name="ln-29"></a>      <span class="k">allocate</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">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-30"></a>      <span class="k">allocate</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">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-31"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
-<a name="ln-32"></a>
-<a name="ln-33"></a>      <span class="n">self</span><span class="p">%</span><span class="n">eta</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-34"></a>      <span class="n">self</span><span class="p">%</span><span class="n">muj</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-35"></a>      <span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,:)</span>  <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-36"></a>      <span class="n">self</span><span class="p">%</span><span class="n">vj</span><span class="p">(:,:)</span>  <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-37"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</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">whm_setup_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">whm_util_set_mu_eta_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-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">!! Sets the Jacobi mass value eta for all massive bodies</span>
-<a name="ln-47"></a>      <span class="k">implicit none</span>
-<a name="ln-48"></a>      <span class="c">! Arguments</span>
-<a name="ln-49"></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 system object</span>
-<a name="ln-50"></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-51"></a>      <span class="c">! Internals</span>
-<a name="ln-52"></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-53"></a>
-<a name="ln-54"></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-55"></a>         <span class="k">if</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-56"></a><span class="k">         call </span><span class="n">util_set_mu_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-57"></a>         <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="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">Gmass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-58"></a>         <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="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>
-<a name="ln-59"></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">npl</span>
-<a name="ln-60"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">eta</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">eta</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="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-61"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">muj</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">Gmass</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="n">i</span><span class="p">)</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="n">i</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-62"></a>         <span class="k">end do</span>
-<a name="ln-63"></a><span class="k">      end associate</span>
-<a name="ln-64"></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">whm_util_set_mu_eta_pl</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">whm_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-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">!! Initialize a WHM nbody system from files</span>
+<a name="ln-27"></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-28"></a>
+<a name="ln-29"></a><span class="k">      allocate</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">n</span><span class="p">))</span>
+<a name="ln-30"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
+<a name="ln-31"></a>      <span class="k">allocate</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">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-32"></a>      <span class="k">allocate</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">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-33"></a>      <span class="k">allocate</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">n</span><span class="p">))</span>
+<a name="ln-34"></a>
+<a name="ln-35"></a>      <span class="n">self</span><span class="p">%</span><span class="n">eta</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-36"></a>      <span class="n">self</span><span class="p">%</span><span class="n">muj</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-37"></a>      <span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,:)</span>  <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-38"></a>      <span class="n">self</span><span class="p">%</span><span class="n">vj</span><span class="p">(:,:)</span>  <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-39"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</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">whm_setup_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">whm_util_set_mu_eta_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-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">!! Sets the Jacobi mass value eta for all massive bodies</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">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 system object</span>
+<a name="ln-52"></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-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">i</span>
+<a name="ln-55"></a>
+<a name="ln-56"></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-57"></a>         <span class="k">if</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-58"></a><span class="k">         call </span><span class="n">util_set_mu_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-59"></a>         <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="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">Gmass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-60"></a>         <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="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>
+<a name="ln-61"></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">npl</span>
+<a name="ln-62"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">eta</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">eta</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="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-63"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">muj</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">Gmass</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="n">i</span><span class="p">)</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="n">i</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><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">whm_util_set_mu_eta_pl</span>
+<a name="ln-69"></a>
+<a name="ln-70"></a>
+<a name="ln-71"></a>   <span class="k">module subroutine </span><span class="n">whm_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-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="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_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-77"></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-78"></a>
-<a name="ln-79"></a>      <span class="k">call </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-80"></a>      <span class="c">! First we need to make sure that the massive bodies are sorted by heliocentric distance before computing jacobies</span>
-<a name="ln-81"></a>      <span class="k">call </span><span class="n">util_set_ir3h</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<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="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>
-<a name="ln-89"></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">v2pv</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-90"></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">v2pv</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-91"></a>      <span class="k">end if</span>
-<a name="ln-92"></a>
-<a name="ln-93"></a><span class="k">      return</span>
-<a name="ln-94"></a><span class="k">   end subroutine </span><span class="n">whm_setup_initialize_system</span>
+<a name="ln-74"></a>      <span class="c">!! Initialize a WHM nbody system from files</span>
+<a name="ln-75"></a>      <span class="c">!!</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="k">class</span><span class="p">(</span><span class="n">whm_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">!! WHM nbody system object</span>
+<a name="ln-79"></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-80"></a>
+<a name="ln-81"></a>      <span class="k">call </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-82"></a>      <span class="c">! First we need to make sure that the massive bodies are sorted by heliocentric distance before computing jacobies</span>
+<a name="ln-83"></a>      <span class="k">call </span><span class="n">util_set_ir3h</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-84"></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-85"></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="nb">index</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a>      <span class="c">! Make sure that the discard list gets allocated initially</span>
+<a name="ln-88"></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-89"></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-90"></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-91"></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-92"></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">v2pv</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-93"></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">v2pv</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-94"></a>      <span class="k">end if</span>
 <a name="ln-95"></a>
-<a name="ln-96"></a><span class="k">end submodule </span><span class="n">s_whm_setup</span>
+<a name="ln-96"></a><span class="k">      return</span>
+<a name="ln-97"></a><span class="k">   end subroutine </span><span class="n">whm_setup_initialize_system</span>
+<a name="ln-98"></a>
+<a name="ln-99"></a><span class="k">end submodule </span><span class="n">s_whm_setup</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/whm_step.f90.html b/docs/sourcefile/whm_step.f90.html
index 2557ada46..a21c0e2f9 100644
--- a/docs/sourcefile/whm_step.f90.html
+++ b/docs/sourcefile/whm_step.f90.html
@@ -134,7 +134,7 @@ <h1>whm_step.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.">61 statements</a>
+    title=" 0.4% of total for source files.">61 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_stepf90EfferentGraph" width="641pt" height="273pt"
+ viewBox="0.00 0.00 641.00 272.60" 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 381.73)">
 <title>sourcefile~~whm_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.82 896,-288.82 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 903,-381.73 903,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,-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>
+<polygon fill="none" stroke="black" points="899,-296.73 820,-296.73 820,-272.73 899,-272.73 899,-296.73"/>
+<text text-anchor="middle" x="859.5" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_step.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.91,-290.94C746.24,-301.87 580.55,-322.02 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.86,-272.39C824.35,-259.4 796.61,-238.82 776.58,-223.96"/>
+<polygon fill="#000000" stroke="#000000" points="778.64,-221.13 768.52,-217.99 774.47,-226.76 778.64,-221.13"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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.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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_step.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_step.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_util.f90.html b/docs/sourcefile/whm_util.f90.html
index 3710a83e9..48aa926ec 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.">148 statements</a>
+    title=" 0.9% of total for source files.">146 statements</a>
      </li> 
      
      
@@ -226,246 +226,298 @@ <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="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)">
+<svg id="sourcefilewhm_utilf90EfferentGraph" width="641pt" height="274pt"
+ viewBox="0.00 0.00 641.00 274.42" 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.71 0.71) rotate(0) translate(4 381.73)">
 <title>sourcefile~~whm_util.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.62 890,-288.62 890,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-381.73 897,-381.73 897,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,-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>
+<polygon fill="none" stroke="black" points="893,-296.73 820,-296.73 820,-272.73 893,-272.73 893,-296.73"/>
+<text text-anchor="middle" x="856.5" y="-282.33" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util.f90</text>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_classes.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,-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>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-297.73 300,-297.73 300,-273.73 394,-273.73 394,-297.73"/>
+<text text-anchor="middle" x="347" y="-283.33" 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~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.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="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"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.99,-290.5C748.32,-301.29 581.34,-322.1 442,-306.73 429.15,-305.31 415.48,-302.83 402.67,-300.07"/>
+<polygon fill="#000000" stroke="#000000" points="403.13,-296.58 392.61,-297.8 401.59,-303.41 403.13,-296.58"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.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="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>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="784,-217.73 718,-217.73 718,-193.73 784,-193.73 784,-217.73"/>
+<text text-anchor="middle" x="751" y="-203.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.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.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_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,-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"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M839.33,-272.39C822.39,-259.46 795.6,-239.01 776.15,-224.16"/>
+<polygon fill="#000000" stroke="#000000" points="778.13,-221.27 768.06,-217.99 773.88,-226.84 778.13,-221.27"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node4" class="node">
-<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>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250.5,-141.73 143.5,-141.73 143.5,-117.73 250.5,-117.73 250.5,-141.73"/>
+<text text-anchor="middle" x="197" y="-127.33" 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_operators.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_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="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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-273.62C302.79,-269.91 294.7,-265.3 288,-259.73 250.79,-228.81 222.16,-178.86 207.93,-150.73"/>
+<polygon fill="#000000" stroke="#000000" points="211.07,-149.18 203.51,-141.75 204.79,-152.27 211.07,-149.18"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_node5" class="node">
-<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>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-101.73 0,-101.73 0,-77.73 106,-77.73 106,-101.73"/>
+<text text-anchor="middle" x="53" y="-87.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.76,-297.3C268.84,-302.4 228.4,-303.74 198,-285.73"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_node6" class="node">
-<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>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C587.94,-275.49 576.78,-264.95 537,-264.73 494.78,-264.49 483.97,-260.1 442,-264.73 429.15,-266.15 415.48,-268.62 402.67,-271.39"/>
+<polygon fill="#000000" stroke="#000000" points="401.59,-268.05 392.61,-273.66 403.13,-274.88 401.59,-268.05"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.07,-217.92C709.22,-232.66 667.92,-256.61 628.5,-265.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C574.23,-277.82 583.78,-210.99 537,-184.73 525.05,-178.02 355.51,-152.59 260.83,-138.79"/>
+<polygon fill="#000000" stroke="#000000" points="261.19,-135.3 250.79,-137.32 260.18,-142.23 261.19,-135.3"/>
+</g>
+<!-- sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~walltime_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/walltime_classes.f90.html" xlink:title="walltime_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-61.73 142,-61.73 142,-37.73 252,-37.73 252,-61.73"/>
+<text text-anchor="middle" x="197" y="-47.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">walltime_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~walltime_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.12,-193.55C695.17,-164.83 590.72,-94.73 490.5,-87.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C451.58,-79.44 443.32,-72.96 406,-66.73 358.23,-58.76 303.64,-54.47 262.37,-52.2"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-48.7 252.18,-51.67 261.98,-55.69 262.35,-48.7"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_node6" 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,-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>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="537,-297.73 442,-297.73 442,-273.73 537,-273.73 537,-297.73"/>
+<text text-anchor="middle" x="489.5" y="-283.33" 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_edge5" class="edge">
+<g id="sourcefile~~whm_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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C600.89,-272.21 572,-276.82 547.46,-279.98"/>
+<polygon fill="#000000" stroke="#000000" points="546.72,-276.54 537.23,-281.24 547.58,-283.49 546.72,-276.54"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.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="M626.5,-265.73C583.93,-275.82 579.23,-295.27 537,-306.73 455.52,-328.83 432.27,-330.84 348,-325.73"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node8" class="node">
-<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>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="682,-40.73 573,-40.73 573,-16.73 682,-16.73 682,-40.73"/>
+<text text-anchor="middle" x="627.5" y="-26.33" 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_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_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="M745.6,-193.51C736.4,-169.04 713.36,-113.02 682,-73.73 674.09,-63.82 663.74,-54.51 654.24,-46.96"/>
+<polygon fill="#000000" stroke="#000000" points="656.27,-44.11 646.21,-40.8 652.02,-49.66 656.27,-44.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node9" class="node">
-<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>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536.5,-217.73 442.5,-217.73 442.5,-193.73 536.5,-193.73 536.5,-217.73"/>
+<text text-anchor="middle" x="489.5" y="-203.33" 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~~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"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_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="M626.5,-265.73C615.91,-268.41 559.8,-241.28 523.05,-222.61"/>
+<polygon fill="#000000" stroke="#000000" points="524.2,-219.27 513.7,-217.84 521.01,-225.51 524.2,-219.27"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node10" class="node">
-<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>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-217.73 576,-217.73 576,-193.73 679,-193.73 679,-217.73"/>
+<text text-anchor="middle" x="627.5" y="-203.33" 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_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_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="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 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <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="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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.76,-205.73C708.99,-205.73 699.2,-205.73 689.41,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="689.24,-202.23 679.24,-205.73 689.24,-209.23 689.24,-202.23"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_node11" class="node">
+<title>sourcefile~fraggle_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node11"><a xlink:href=".././sourcefile/fraggle_classes.f90.html" xlink:title="fraggle_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="399.5,-99.73 294.5,-99.73 294.5,-75.73 399.5,-75.73 399.5,-99.73"/>
+<text text-anchor="middle" x="347" y="-85.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge13" class="edge">
-<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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-87.73C462.84,-85.94 434.49,-85.62 410.01,-85.87"/>
+<polygon fill="#000000" stroke="#000000" points="409.73,-82.37 399.77,-86.01 409.82,-89.37 409.73,-82.37"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge15" 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,-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"/>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_node12" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node12"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-377.73 288,-377.73 288,-353.73 406,-353.73 406,-377.73"/>
+<text text-anchor="middle" x="347" y="-363.33" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.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"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.5,-265.73C576.6,-278.9 584.26,-318.98 537,-339.73 499.16,-356.35 453.31,-362.94 416.25,-365.34"/>
+<polygon fill="#000000" stroke="#000000" points="415.83,-361.85 406.04,-365.91 416.22,-368.84 415.83,-361.85"/>
 </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"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M153.4,-117.73C138.79,-113.61 122.26,-108.96 106.93,-104.64"/>
+<polygon fill="#000000" stroke="#000000" points="107.64,-101.2 97.07,-101.86 105.74,-107.94 107.64,-101.2"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~walltime_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.4,-61.73C138.79,-65.85 122.26,-70.5 106.93,-74.82"/>
+<polygon fill="#000000" stroke="#000000" points="105.74,-71.52 97.07,-77.6 107.64,-78.26 105.74,-71.52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_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="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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.72,-285.73C429.74,-285.73 416.74,-285.73 404.34,-285.73"/>
+<polygon fill="#000000" stroke="#000000" points="404.1,-282.23 394.1,-285.73 404.1,-289.23 404.1,-282.23"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.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~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.69,-297.8C437.19,-310.49 390.28,-328.29 348,-325.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-325.73C277.99,-321.6 256.62,-320.46 198,-285.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge20" 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,-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"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_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="M572.96,-18.56C481.96,-3.48 292.33,18.28 142,-28.73 115.62,-36.98 90.2,-56.22 73.52,-70.9"/>
+<polygon fill="#000000" stroke="#000000" points="71.12,-68.36 66.07,-77.68 75.83,-73.54 71.12,-68.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_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="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"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_util.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="M465.39,-217.75C457.79,-221.94 449.4,-226.82 442,-231.73 425.11,-242.93 423.37,-249.29 406,-259.73 400.22,-263.21 393.89,-266.5 387.6,-269.51"/>
+<polygon fill="#000000" stroke="#000000" points="386.12,-266.34 378.5,-273.7 389.05,-272.7 386.12,-266.34"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_util.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="M346,-245.73C284.83,-246.51 233.92,-184 211.01,-150.43"/>
+<polygon fill="#000000" stroke="#000000" points="213.75,-148.22 205.31,-141.81 207.91,-152.08 213.75,-148.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-217.74C434.43,-229.33 389.08,-245.2 348,-245.73"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.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"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-285.73C125.85,-244.17 80.46,-152.99 62.6,-111.3"/>
+<polygon fill="#000000" stroke="#000000" points="65.73,-109.72 58.65,-101.83 59.27,-112.41 65.73,-109.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-245.73C328.97,-245.95 212.66,-294.41 198,-285.73"/>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge23" 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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C318.15,-126.06 287.29,-126.17 261,-126.85"/>
+<polygon fill="#000000" stroke="#000000" points="260.68,-123.35 250.79,-127.14 260.88,-130.35 260.68,-123.35"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.84,-217.88C582.85,-231.41 545.5,-253.37 519.56,-268.63"/>
+<polygon fill="#000000" stroke="#000000" points="517.75,-265.64 510.9,-273.73 521.3,-271.67 517.75,-265.64"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge25" 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,-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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346,-127.73C278.21,-123.68 265.79,-93.78 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C429.36,-107.67 410.33,-131.46 348,-127.73"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.86,-205.73C566.43,-205.73 556.52,-205.73 546.94,-205.73"/>
+<polygon fill="#000000" stroke="#000000" points="546.69,-202.23 536.69,-205.73 546.69,-209.23 546.69,-202.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~fraggle_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.33,-193.64C585.82,-175.99 537.16,-143.55 490.5,-127.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.5,-127.73C461.15,-118.45 430.33,-109.51 404.54,-102.45"/>
+<polygon fill="#000000" stroke="#000000" points="405.12,-98.98 394.55,-99.74 403.28,-105.74 405.12,-98.98"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge28" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.59,-99.76C287.02,-104.47 267.86,-109.9 250.44,-114.85"/>
+<polygon fill="#000000" stroke="#000000" points="249.08,-111.59 240.42,-117.69 250.99,-118.33 249.08,-111.59"/>
+</g>
+<!-- sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge29" class="edge">
+<title>sourcefile~fraggle_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.24,-90.28C265.81,-91.22 229.94,-91.64 198,-89.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M196,-89.73C169.94,-88.17 141.14,-87.9 116.32,-88.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.27,-84.62 106.31,-88.24 116.35,-91.62 116.27,-84.62"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge30" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.36,-353.7C307.9,-349.51 297.39,-344.63 288,-339.73 246.64,-318.15 238.13,-309.51 198,-285.73"/>
 </g>
 </g>
 </svg>
@@ -687,101 +739,100 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <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-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="k">allocatable</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-131"></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-132"></a>
+<a name="ln-133"></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-134"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-135"></a>      <span class="k">else</span>
+<a name="ln-136"></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-137"></a>      <span class="k">end if</span>
+<a name="ln-138"></a>
+<a name="ln-139"></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-140"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-141"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-142"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;eta&quot;</span><span class="p">)</span>
+<a name="ln-143"></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-144"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;muj&quot;</span><span class="p">)</span>
+<a name="ln-145"></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-146"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ir3j&quot;</span><span class="p">)</span>
+<a name="ln-147"></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-148"></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-149"></a>            <span class="k">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-150"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-151"></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-152"></a>            <span class="k">return</span>
+<a name="ln-153"></a><span class="k">         end select</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-155"></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-156"></a>      <span class="k">end associate</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-158"></a><span class="k">      return</span>
+<a name="ln-159"></a><span class="k">   end subroutine </span><span class="n">whm_util_sort_pl</span>
+<a name="ln-160"></a>
+<a name="ln-161"></a>
+<a name="ln-162"></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-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">!! Rearrange WHM massive body structure in-place from an index list.</span>
+<a name="ln-166"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</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="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-170"></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-171"></a>
 <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-175"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-176"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-177"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-178"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-179"></a>         <span class="k">call </span><span class="n">util_sort_rearrange</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">ind</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-180"></a>
+<a name="ln-181"></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-182"></a>      <span class="k">end associate</span>
+<a name="ln-183"></a>
+<a name="ln-184"></a><span class="k">      return</span>
+<a name="ln-185"></a><span class="k">   end subroutine </span><span class="n">whm_util_sort_rearrange_pl</span>
+<a name="ln-186"></a>
 <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>
+<a name="ln-188"></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-189"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-190"></a>      <span class="c">!!</span>
+<a name="ln-191"></a>      <span class="c">!! Move spilled (discarded) WHM test particle structure from active list to discard list</span>
+<a name="ln-192"></a>      <span class="c">!! </span>
+<a name="ln-193"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-194"></a>      <span class="k">implicit none</span>
+<a name="ln-195"></a>      <span class="c">! Arguments</span>
+<a name="ln-196"></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-197"></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-198"></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-199"></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-200"></a>      <span class="c">! Internals</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="kd">::</span> <span class="n">i</span>
+<a name="ln-202"></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-203"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-204"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">whm_pl</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">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-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">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-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">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-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">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-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">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-210"></a>
+<a name="ln-211"></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-212"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-213"></a>            <span class="k">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-214"></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-215"></a>         <span class="k">end select</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">whm_util_spill_pl</span>
+<a name="ln-220"></a>   
+<a name="ln-221"></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 9c8044c61..2ee3dafec 100644
--- a/docs/src/discard.f90
+++ b/docs/src/discard.f90
@@ -31,7 +31,7 @@ module subroutine discard_system(self, param)
          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_discards .and. param%lenergy) call self%conservation_report(param, lterminal=.false.)
          if (lpl_check) call pl_discards%setup(0,param) 
          if (ltp_check) call tp_discards%setup(0,param) 
          
@@ -53,7 +53,7 @@ module subroutine discard_pl(self, system, param)
       class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameter
 
       if (self%nbody == 0) return
-      self%ldiscard(:) = .false.
+      self%ldiscard(1:self%nbody) = .false.
 
       return
    end subroutine discard_pl
@@ -73,9 +73,12 @@ module subroutine discard_tp(self, system, param)
       class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameter
       ! Internals
       logical, dimension(:), allocatable :: ldiscard
+      integer(I4B) :: npl, ntp
 
-      associate(tp => self, ntp => self%nbody, cb => system%cb, pl => system%pl, npl => system%pl%nbody)
+      associate(tp => self, cb => system%cb, pl => system%pl)
          if ((ntp == 0) .or. (npl ==0)) return 
+         ntp = tp%nbody
+         npl = pl%nbody
 
          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
@@ -86,9 +89,9 @@ 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)) then
+         if (any(tp%ldiscard(1:ntp))) then
             allocate(ldiscard, source=tp%ldiscard)
-            call tp%spill(system%tp_discards, ldiscard, ldestructive=.true.)
+            call tp%spill(system%tp_discards, ldiscard(1:ntp), ldestructive=.true.)
          end if
       end associate
 
@@ -112,8 +115,9 @@ subroutine discard_cb_tp(tp, system, param)
       ! Internals
       integer(I4B)        :: i
       real(DP)            :: energy, vb2, rb2, rh2, rmin2, rmax2, rmaxu2
+      character(len=STRMAX) :: idstr, timestr
 
-      associate(ntp => tp%nbody, cb => system%cb, t => param%t, Gmtot => system%Gmtot)
+      associate(ntp => tp%nbody, cb => system%cb, Gmtot => system%Gmtot)
          rmin2 = max(param%rmin * param%rmin, cb%radius * cb%radius)
          rmax2 = param%rmax**2
          rmaxu2 = param%rmaxu**2
@@ -122,23 +126,32 @@ subroutine discard_cb_tp(tp, system, param)
                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
+                  write(idstr, *) tp%id(i)
+                  write(timestr, *) param%t
+                  write(*, *) "Particle " // trim(adjustl(tp%info(i)%name)) // " ("  // trim(adjustl(idstr)) // ")" // " too far from the central body at t = " // trim(adjustl(timestr))
                   tp%ldiscard(i) = .true.
                   tp%lmask(i) = .false.
+                  call tp%info(i)%set_value(status="DISCARDED_RMAX", discard_time=param%t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i))
                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
+                  write(idstr, *) tp%id(i)
+                  write(timestr, *) param%t
+                  write(*, *) "Particle " // trim(adjustl(tp%info(i)%name)) // " ("  // trim(adjustl(idstr)) // ")" //  " too close to the central body at t = " // trim(adjustl(timestr))
                   tp%ldiscard(i) = .true.
                   tp%lmask(i) = .false.
+                  call tp%info(i)%set_value(status="DISCARDED_RMIN", discard_time=param%t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i), discard_body_id=cb%id)
                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
+                     write(idstr, *) tp%id(i)
+                     write(timestr, *) param%t
+                     write(*, *) "Particle " // trim(adjustl(tp%info(i)%name)) // " ("  // trim(adjustl(idstr)) // ")" //  " is unbound and too far from barycenter at t = " // trim(adjustl(timestr))
                      tp%ldiscard(i) = .true.
                      tp%lmask(i) = .false.
+                     call tp%info(i)%set_value(status="DISCARDED_RMAXU", discard_time=param%t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i))
                   end if
                end if
             end if
@@ -166,6 +179,7 @@ subroutine discard_peri_tp(tp, system, param)
       integer(I4B)              :: i, j, ih
       real(DP)                  :: r2
       real(DP), dimension(NDIM) :: dx
+      character(len=STRMAX) :: idstr, timestr
    
       associate(cb => system%cb, ntp => tp%nbody, pl => system%pl, npl => system%pl%nbody, t => param%t)
          call tp%get_peri(system, param)
@@ -183,8 +197,11 @@ subroutine discard_peri_tp(tp, system, param)
                         (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
+                        write(idstr, *) tp%id(i)
+                        write(timestr, *) param%t
+                        write(*, *) "Particle " // trim(adjustl(tp%info(i)%name)) // " ("  // trim(adjustl(idstr)) // ")" // " perihelion distance too small at t = " // trim(adjustl(timestr))
                         tp%ldiscard(i) = .true.
+                        call tp%info(i)%set_value(status="DISCARDED_PERI", discard_time=param%t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i), discard_body_id=pl%id(j))
                      end if
                   end if
                end if
@@ -212,6 +229,7 @@ subroutine discard_pl_tp(tp, system, param)
       integer(I4B)              :: i, j, isp
       real(DP)                  :: r2min, radius
       real(DP), dimension(NDIM) :: dx, dv
+      character(len=STRMAX) :: idstri, idstrj, timestr
    
       associate(ntp => tp%nbody, pl => system%pl, npl => system%pl%nbody, t => param%t, dt => param%dt)
          do i = 1, ntp
@@ -225,8 +243,14 @@ subroutine discard_pl_tp(tp, system, param)
                      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
+                     write(idstri, *) tp%id(i)
+                     write(idstrj, *) pl%id(j)
+                     write(timestr, *) param%t
+                     write(*, *) "Test particle " // trim(adjustl(tp%info(i)%name)) // " ("  // trim(adjustl(idstri)) // ")" &
+                                                  // "  too close to massive body " // trim(adjustl(pl%info(i)%name)) // " ("  // trim(adjustl(idstrj)) &
+                                                  // " at t = " // trim(adjustl(timestr))
                      tp%ldiscard(i) = .true.
+                     call tp%info(i)%set_value(status="DISCARDED_PLR", discard_time=param%t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i), discard_body_id=pl%id(j))
                      exit
                   end if
                end do
diff --git a/docs/src/eucl.f90 b/docs/src/eucl.f90
deleted file mode 100644
index af1646e4c..000000000
--- a/docs/src/eucl.f90
+++ /dev/null
@@ -1,38 +0,0 @@
-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
diff --git a/docs/src/fraggle_classes.f90 b/docs/src/fraggle_classes.f90
new file mode 100644
index 000000000..5a8a4a392
--- /dev/null
+++ b/docs/src/fraggle_classes.f90
@@ -0,0 +1,282 @@
+module fraggle_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 Fraggel: The Fragment Generation Model
+   use swiftest_globals
+   use swiftest_classes, only : swiftest_parameters, swiftest_nbody_system, swiftest_cb, swiftest_pl
+   implicit none
+   public
+
+   integer(I4B),     parameter :: FRAGGLE_NMASS_DIST = 3             !! Number of mass bins returned by the regime calculation (largest fragment, second largest, and remainder)  
+   character(len=*), parameter :: FRAGGLE_LOG_OUT    = "fraggle.log" !! Name of log file for Fraggle diagnostic information
+   integer(I4B),     parameter :: FRAGGLE_LOG_UNIT   = 76            !! Unit number for Fraggle log file
+
+   !********************************************************************************************************************************
+   !                                    fraggle_colliders class definitions and method interfaces
+   !*******************************************************************************************************************************
+   !> Class definition for the variables that describe the bodies involved in the collision
+   type :: fraggle_colliders
+      integer(I4B)                                 :: ncoll   !! Number of bodies involved in the collision
+      integer(I4B), dimension(:),      allocatable :: idx     !! Index of bodies involved in the collision
+      real(DP),     dimension(NDIM,2)              :: xb      !! Two-body equivalent position vectors of the collider bodies prior to collision
+      real(DP),     dimension(NDIM,2)              :: vb      !! Two-body equivalent velocity vectors of the collider bodies prior to collision
+      real(DP),     dimension(NDIM,2)              :: rot     !! Two-body equivalent principal axes moments of inertia the collider bodies prior to collision
+      real(DP),     dimension(NDIM,2)              :: L_spin  !! Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision
+      real(DP),     dimension(NDIM,2)              :: L_orbit !! Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision
+      real(DP),     dimension(NDIM,2)              :: Ip      !! Two-body equivalent principal axes moments of inertia the collider bodies prior to collision
+      real(DP),     dimension(2)                   :: mass    !! Two-body equivalent mass of the collider bodies prior to the collision
+      real(DP),     dimension(2)                   :: radius  !! Two-body equivalent radii of the collider bodies prior to the collision
+   contains
+      procedure :: regime => fraggle_regime_colliders !! Determine which fragmentation regime the set of colliders will be
+   end type fraggle_colliders
+
+   !********************************************************************************************************************************
+   !                                    fraggle_fragments class definitions and method interfaces
+   !*******************************************************************************************************************************
+   !> Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates
+   type, extends(swiftest_pl) :: fraggle_fragments
+      real(DP)                                :: mtot      !! Total mass of fragments       
+      real(DP)                                :: Qloss     !! Energy lost during the collision
+      real(DP), dimension(FRAGGLE_NMASS_DIST) :: mass_dist !! Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder)    
+      integer(I4B)                            :: regime    !! Collresolve regime code for this collision
+
+      ! Values in a coordinate frame centered on the collider barycenter and collisional system unit vectors (these are used internally by the fragment generation subroutine)
+      real(DP), dimension(NDIM)              :: xbcom       !! Center of mass position vector of the collider system in system barycentric coordinates
+      real(DP), dimension(NDIM)              :: vbcom       !! Velocity vector of the center of mass of the collider system in system barycentric coordinates
+      real(DP), dimension(NDIM)              :: x_coll_unit !! x-direction unit vector of collisional system
+      real(DP), dimension(NDIM)              :: y_coll_unit !! y-direction unit vector of collisional system
+      real(DP), dimension(NDIM)              :: z_coll_unit !! z-direction unit vector of collisional system
+      real(DP), dimension(:,:), allocatable  :: x_coll      !! Array of fragment position vectors in the collisional coordinate frame
+      real(DP), dimension(:,:), allocatable  :: v_coll      !! Array of fragment velocity vectors in the collisional coordinate frame
+      real(DP), dimension(:,:), allocatable  :: v_r_unit    !! Array of radial direction unit vectors of individual fragments in the collisional coordinate frame
+      real(DP), dimension(:,:), allocatable  :: v_t_unit    !! Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame
+      real(DP), dimension(:,:), allocatable  :: v_n_unit    !! Array of normal direction unit vectors of individual fragments in the collisional coordinate frame
+      real(DP), dimension(:),   allocatable  :: rmag        !! Array of radial distance magnitudes of individual fragments in the collisional coordinate frame 
+      real(DP), dimension(:),   allocatable  :: rotmag      !! Array of rotation magnitudes of individual fragments 
+      real(DP), dimension(:),   allocatable  :: v_r_mag     !! Array of radial direction velocity magnitudes of individual fragments 
+      real(DP), dimension(:),   allocatable  :: v_t_mag     !! Array of tangential direction velocity magnitudes of individual fragments
+
+      ! Energy and momentum book-keeping variables that characterize the whole system of fragments
+      real(DP)                  :: ke_orbit  !! Current orbital kinetic energy of the system of fragments in the collisional frame
+      real(DP)                  :: ke_spin   !! Current spin kinetic energy of the system of fragments in the collisional frame
+      real(DP), dimension(NDIM) :: L_orbit   !! Current orbital angular momentum of the system of fragments in the collisional frame  
+      real(DP), dimension(NDIM) :: L_spin    !! Current spin angular momentum of the system of fragments in the collisional frame
+      real(DP)                  :: ke_budget !! Total kinetic energy budget for the system of fragmens in the collisional frame
+      real(DP), dimension(NDIM) :: L_budget  !! Total angular momentum budget for the system of fragmens in the collisional frame
+
+      ! For the following variables, "before" refers to the *entire* n-body system in its pre-collisional state and "after" refers to the system in its post-collisional state
+      real(DP), dimension(NDIM) :: Lorbit_before, Lorbit_after     !! Before/after orbital angular momentum 
+      real(DP), dimension(NDIM) :: Lspin_before, Lspin_after       !! Before/after spin angular momentum 
+      real(DP), dimension(NDIM) :: Ltot_before, Ltot_after         !! Before/after total system angular momentum 
+      real(DP)                  :: ke_orbit_before, ke_orbit_after !! Before/after orbital kinetic energy
+      real(DP)                  :: ke_spin_before, ke_spin_after   !! Before/after spin kinetic energy
+      real(DP)                  :: pe_before, pe_after             !! Before/after potential energy
+      real(DP)                  :: Etot_before, Etot_after         !! Before/after total system energy
+
+      ! Scale factors used to scale dimensioned quantities to a more "natural" system where important quantities (like kinetic energy, momentum) are of order ~1
+      real(DP) :: dscale !! Distance dimension scale factor
+      real(DP) :: mscale !! Mass scale factor
+      real(DP) :: tscale !! Time scale factor
+      real(DP) :: vscale !! Velocity scale factor (a convenience unit that is derived from dscale and tscale)
+      real(DP) :: Escale !! Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale)
+      real(DP) :: Lscale !! Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale)
+   contains
+      procedure :: generate_fragments      => fraggle_generate_fragments         !! Generates a system of fragments in barycentric coordinates that conserves energy and momentum.
+      procedure :: accel                   => fraggle_placeholder_accel          !! Placeholder subroutine to fulfill requirement for an accel method
+      procedure :: kick                    => fraggle_placeholder_kick           !! Placeholder subroutine to fulfill requirement for a kick method
+      procedure :: step                    => fraggle_placeholder_step           !! Placeholder subroutine to fulfill requirement for a step method
+      procedure :: set_budgets             => fraggle_set_budgets_fragments      !! Sets the energy and momentum budgets of the fragments based on the collider value
+      procedure :: set_coordinate_system   => fraggle_set_coordinate_system      !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. 
+      procedure :: set_mass_dist           => fraggle_set_mass_dist_fragments    !! Sets the distribution of mass among the fragments depending on the regime type
+      procedure :: set_natural_scale       => fraggle_set_natural_scale_factors  !! Scales dimenional quantities to ~O(1) with respect to the collisional system.  
+      procedure :: set_original_scale      => fraggle_set_original_scale_factors !! Restores dimenional quantities back to the original system units
+      procedure :: setup                   => fraggle_setup_fragments            !! Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.
+      procedure :: reset                   => fraggle_setup_reset_fragments      !! Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)
+      procedure :: get_ang_mtm             => fraggle_util_ang_mtm               !! Calcualtes the current angular momentum of the fragments
+      procedure :: get_energy_and_momentum => fraggle_util_get_energy_momentum   !! Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)
+      procedure :: restructure             => fraggle_util_restructure           !! Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints
+   end type fraggle_fragments
+
+   interface
+      module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure)
+         use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object 
+         class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle colliders object containing the two-body equivalent values of the colliding bodies 
+         class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(in)    :: param     !! Current run configuration parameters 
+         logical,                      intent(out)   :: lfailure  !! Answers the question: Should this have been a merger instead?
+      end subroutine fraggle_generate_fragments
+
+      module subroutine fraggle_io_log_generate(frag)
+         implicit none
+         class(fraggle_fragments),   intent(in) :: frag
+      end subroutine fraggle_io_log_generate
+
+      module subroutine fraggle_io_log_one_message(message)
+         implicit none
+         character(len=*), intent(in) :: message
+         character(STRMAX) :: errmsg
+      end subroutine fraggle_io_log_one_message
+
+      module subroutine fraggle_io_log_pl(pl, param)
+         implicit none
+         class(swiftest_pl),         intent(in) :: pl    !! Swiftest massive body object (only the new bodies generated in a collision)
+         class(swiftest_parameters), intent(in) :: param !! Current swiftest run configuration parameters
+      end subroutine fraggle_io_log_pl
+
+      module subroutine fraggle_io_log_regime(colliders, frag)
+         implicit none
+         class(fraggle_colliders),   intent(in) :: colliders
+         class(fraggle_fragments),   intent(in) :: frag
+      end subroutine fraggle_io_log_regime
+
+      module subroutine fraggle_io_log_start(param)
+         implicit none
+         class(swiftest_parameters), intent(in) :: param
+      end subroutine fraggle_io_log_start
+
+      !> The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class
+      module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
+         use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system 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   !! Optional argument that determines whether or not this is the beginning or end of the step
+      end subroutine fraggle_placeholder_accel
+
+      module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
+         use swiftest_classes, only :  swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),     intent(inout) :: self   !! Fraggle fragment system 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 fraggle_placeholder_kick
+
+      module subroutine fraggle_placeholder_step(self, system, param, t, dt)
+         use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),     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     !! Stepsiz
+      end subroutine fraggle_placeholder_step
+
+      module subroutine fraggle_regime_colliders(self, frag, system, param)
+         implicit none 
+         class(fraggle_colliders),     intent(inout) :: self   !! Fraggle colliders object
+         class(fraggle_fragments),     intent(inout) :: frag   !! Fraggle fragment system object
+         class(swiftest_nbody_system), intent(in)    :: system !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(in)    :: param  !! Current Swiftest run configuration parameters
+      end subroutine fraggle_regime_colliders
+
+      module subroutine fraggle_set_budgets_fragments(self, colliders)
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+         class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      end subroutine  fraggle_set_budgets_fragments
+
+      module subroutine fraggle_set_coordinate_system(self, colliders)
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+         class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      end subroutine fraggle_set_coordinate_system
+
+      module subroutine fraggle_set_mass_dist_fragments(self, colliders, param)
+         implicit none
+         class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object
+         class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle collider system object
+         class(swiftest_parameters),   intent(in)    :: param     !! Current Swiftest run configuration parameters
+      end subroutine fraggle_set_mass_dist_fragments
+
+      module subroutine fraggle_set_natural_scale_factors(self, colliders)
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+         class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      end subroutine fraggle_set_natural_scale_factors
+
+      module subroutine fraggle_set_original_scale_factors(self, colliders)
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+         class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      end subroutine fraggle_set_original_scale_factors
+
+      module subroutine fraggle_setup_fragments(self, n, param)
+         implicit none
+         class(fraggle_fragments),   intent(inout) :: self  !! Fraggle fragment system object
+         integer(I4B),               intent(in)    :: n     !! Number of fragments
+         class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameters
+      end subroutine fraggle_setup_fragments
+
+      module subroutine fraggle_setup_reset_fragments(self)
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self
+      end subroutine fraggle_setup_reset_fragments
+
+      module subroutine fraggle_util_add_fragments_to_system(frag, colliders, system, param)
+         use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),     intent(in)    :: frag      !! Fraggle fragment system object
+         class(fraggle_colliders),     intent(in)    :: colliders !! Fraggle collider system object
+         class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(in)    :: param     !! Current swiftest run configuration parameters
+      end subroutine fraggle_util_add_fragments_to_system
+
+      module subroutine fraggle_util_ang_mtm(self) 
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self !! Fraggle fragment system object
+      end subroutine fraggle_util_ang_mtm
+
+      module subroutine fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam)
+         use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),                   intent(in)  :: frag     !! Fraggle fragment system object
+         class(swiftest_nbody_system),               intent(in)  :: system   !! Original swiftest nbody system object
+         class(swiftest_parameters),                 intent(in)  :: param    !! Current swiftest run configuration parameters
+         class(swiftest_nbody_system), allocatable,  intent(out) :: tmpsys   !! Output temporary swiftest nbody system object
+         class(swiftest_parameters),   allocatable,  intent(out) :: tmpparam !! Output temporary configuration run parameters
+      end subroutine fraggle_util_construct_temporary_system
+
+      module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore)
+         use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
+         implicit none
+         class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object
+         class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle collider system object
+         class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(in)    :: param     !! Current swiftest run configuration parameters
+         logical,                      intent(in)    :: lbefore   !! Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa
+      end subroutine fraggle_util_get_energy_momentum
+
+      module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start)
+         implicit none
+         class(fraggle_fragments), intent(inout) :: self        !! Fraggle fragment system object
+         class(fraggle_colliders), intent(in)    :: colliders   !! Fraggle collider system object
+         integer(I4B),             intent(in)    :: try         !! The current number of times Fraggle has tried to find a solution
+         real(DP),                 intent(inout) :: f_spin      !! Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt
+         real(DP),                 intent(inout) :: r_max_start !! The maximum radial distance that the position calculation starts with. This increases after a failed attempt
+      end subroutine fraggle_util_restructure
+
+      module subroutine fraggle_util_shift_vector_to_origin(m_frag, vec_frag)
+         implicit none
+         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
+      end subroutine
+
+      module function fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) 
+         implicit none
+         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
+         real(DP), dimension(:,:), allocatable   :: vb
+      end function fraggle_util_vmag_to_vb
+   end interface
+
+end module fraggle_classes
\ No newline at end of file
diff --git a/docs/src/fraggle_generate.f90 b/docs/src/fraggle_generate.f90
new file mode 100644
index 000000000..6f7ccb7a3
--- /dev/null
+++ b/docs/src/fraggle_generate.f90
@@ -0,0 +1,567 @@
+submodule(fraggle_classes) s_fraggle_generate
+   use swiftest
+
+   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),     parameter :: F_SPIN_FIRST = 0.05_DP !! The initial try value of the fraction of energy or momenum in spin (whichever has the lowest kinetic energy)
+   real(DP), parameter     :: FRAGGLE_LTOL = 10 * epsilon(1.0_DP)
+   real(DP), parameter     :: FRAGGLE_ETOL = 1e-8_DP
+
+contains
+
+   module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure)
+      !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+      !!
+      !! Generates a system of fragments in barycentric coordinates that conserves energy and momentum.
+      use, intrinsic :: ieee_exceptions
+      implicit none
+      ! Arguments
+      class(fraggle_fragments),     intent(inout) :: self      !! Fraggle system object the outputs will be the fragmentation 
+      class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle colliders object containing the two-body equivalent values of the colliding bodies 
+      class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(in)    :: param     !! Current run configuration parameters 
+      logical,                      intent(out)   :: lfailure  !! Answers the question: Should this have been a merger instead?
+      ! Internals
+      integer(I4B)                         :: i
+      integer(I4B)                         :: try
+      real(DP)                             :: r_max_start, f_spin, dEtot, dLmag
+      integer(I4B), parameter              :: MAXTRY = 100
+      logical                              :: lk_plpl
+      logical, dimension(size(IEEE_ALL))   :: fpe_halting_modes, fpe_quiet_modes
+      logical, dimension(size(IEEE_USUAL)) :: fpe_flag 
+      character(len=STRMAX)                :: message
+
+      ! The minimization and linear solvers can sometimes lead to floating point exceptions. Rather than halting the code entirely if this occurs, we
+      ! can simply fail the attempt and try again. So we need to turn off any floating point exception halting modes temporarily 
+      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)
+
+      associate(frag => self, nfrag => self%nbody, pl => system%pl)
+
+         write(message,*) nfrag
+         call fraggle_io_log_one_message("Fraggle generating " // trim(adjustl(message)) // " fragments.")
+         if (nfrag < NFRAG_MIN) then
+            write(message,*) "Fraggle needs at least ",NFRAG_MIN," fragments, but only ",nfrag," were given."
+            call fraggle_io_log_one_message(message)
+            lfailure = .true.
+            return
+         end if
+         f_spin = F_SPIN_FIRST
+
+         lk_plpl = allocated(pl%k_plpl)
+         if (lk_plpl) deallocate(pl%k_plpl)
+
+         call frag%set_natural_scale(colliders)
+
+         call frag%reset()
+
+         ! Calculate the initial energy of the system without the collisional family
+         call frag%get_energy_and_momentum(colliders, system, param, lbefore=.true.)
+        
+         ! Start out the fragments close to the initial separation distance. This will be increased if there is any overlap or we fail to find a solution
+         r_max_start = 1 * norm2(colliders%xb(:,2) - colliders%xb(:,1))
+         lfailure = .false.
+         try = 1
+         do while (try < MAXTRY)
+            write(message,*) try
+            call fraggle_io_log_one_message("Fraggle try " // trim(adjustl(message)))
+            if (lfailure) then
+               call frag%restructure(colliders, try, f_spin, r_max_start)
+               call frag%reset()
+               try = try + 1
+            end if
+
+            lfailure = .false.
+            call ieee_set_flag(ieee_all, .false.) ! Set all fpe flags to quiet
+
+            call fraggle_generate_pos_vec(frag, colliders, r_max_start)
+            call frag%set_coordinate_system(colliders)
+
+            ! Initial velocity guess will be the barycentric velocity of the colliding system so that the budgets are based on the much smaller collisional-frame velocities
+            do concurrent (i = 1:nfrag)
+               frag%vb(:, i) = frag%vbcom(:)
+            end do
+
+            call frag%get_energy_and_momentum(colliders, system, param, lbefore=.false.)
+            call frag%set_budgets(colliders)
+
+            call fraggle_generate_spins(frag, colliders, f_spin, lfailure)
+            if (lfailure) then
+               call fraggle_io_log_one_message("Fraggle failed to find spins")
+               cycle
+            end if
+
+            call fraggle_generate_tan_vel(frag, colliders, lfailure)
+            if (lfailure) then
+               call fraggle_io_log_one_message("Fraggle failed to find tangential velocities")
+               cycle
+            end if
+
+            call fraggle_generate_rad_vel(frag, colliders, lfailure)
+            if (lfailure) then
+               call fraggle_io_log_one_message("Fraggle failed to find radial velocities")
+               cycle
+            end if
+
+            call frag%get_energy_and_momentum(colliders, system, param, lbefore=.false.)
+            dEtot = frag%Etot_after - frag%Etot_before 
+            dLmag = .mag. (frag%Ltot_after(:) - frag%Ltot_before(:))
+
+            lfailure = ((abs(dEtot + frag%Qloss) > FRAGGLE_ETOL) .or. (dEtot > 0.0_DP)) 
+            if (lfailure) then
+               write(message, *) dEtot, abs(dEtot + frag%Qloss) / FRAGGLE_ETOL
+               call fraggle_io_log_one_message("Fraggle failed due to high energy error: " // trim(adjustl(message)))
+               cycle
+            end if
+
+            lfailure = ((abs(dLmag) / (.mag.frag%Ltot_before)) > FRAGGLE_LTOL) 
+            if (lfailure) then
+               write(message,*) dLmag / (.mag.frag%Ltot_before(:))
+               call fraggle_io_log_one_message("Fraggle failed due to high angular momentum error: " // trim(adjustl(message)))
+               cycle
+            end if
+
+            ! Check if any of the usual floating point exceptions happened, and fail the try if so
+            call ieee_get_flag(ieee_usual, fpe_flag)
+            lfailure = any(fpe_flag) 
+            if (.not.lfailure) exit
+            write(message,*) "Fraggle failed due to a floating point exception: ", fpe_flag
+            call fraggle_io_log_one_message(message)
+         end do
+
+         write(message,*) try
+         if (lfailure) then
+            call fraggle_io_log_one_message("Fraggle fragment generation failed after " // trim(adjustl(message)) // " tries")
+         else
+            call fraggle_io_log_one_message("Fraggle fragment generation succeeded after " // trim(adjustl(message)) // " tries")
+            call fraggle_io_log_generate(frag)
+         end if
+
+         call frag%set_original_scale(colliders)
+
+         ! Restore the big array
+         if (lk_plpl) call pl%index(param)
+      end associate
+      call ieee_set_halting_mode(IEEE_ALL,fpe_halting_modes)  ! Save the current halting modes so we can turn them off temporarily
+
+      return 
+   end subroutine fraggle_generate_fragments
+
+
+   subroutine fraggle_generate_pos_vec(frag, colliders, r_max_start)
+      !! 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
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: frag        !! Fraggle fragment system object
+      class(fraggle_colliders), intent(inout) :: colliders   !! Fraggle collider system object
+      real(DP),                 intent(in)    :: r_max_start !! Initial guess for the starting maximum radial distance of fragments
+      ! Internals
+      real(DP)  :: dis, rad, r_max
+      logical, dimension(:), allocatable :: loverlap
+      integer(I4B) :: i, j
+
+      associate(nfrag => frag%nbody)
+         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(colliders%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(frag%x_coll(:,3:nfrag))
+         loverlap(:) = .true.
+         do while (any(loverlap(3:nfrag)))
+            frag%x_coll(:, 1) = colliders%xb(:, 1) - frag%xbcom(:) 
+            frag%x_coll(:, 2) = colliders%xb(:, 2) - frag%xbcom(:)
+            r_max = r_max + 0.1_DP * rad
+            do i = 3, nfrag
+               if (loverlap(i)) then
+                  call random_number(frag%x_coll(:,i))
+                  frag%x_coll(:, i) = 2 * (frag%x_coll(:, i) - 0.5_DP) * r_max 
+               end if
+            end do
+            loverlap(:) = .false.
+            do j = 1, nfrag
+               do i = j + 1, nfrag
+                  dis = norm2(frag%x_coll(:,j) - frag%x_coll(:,i))
+                  loverlap(i) = loverlap(i) .or. (dis <= (frag%radius(i) + frag%radius(j))) 
+               end do
+            end do
+         end do
+         call fraggle_util_shift_vector_to_origin(frag%mass, frag%x_coll)
+         call frag%set_coordinate_system(colliders)
+
+         do i = 1, nfrag
+            frag%xb(:,i) = frag%x_coll(:,i) + frag%xbcom(:)
+         end do
+
+         frag%xbcom(:) = 0.0_DP
+         do i = 1, nfrag
+            frag%xbcom(:) = frag%xbcom(:) + frag%mass(i) * frag%xb(:,i) 
+         end do
+         frag%xbcom(:) = frag%xbcom(:) / frag%mtot
+      end associate
+
+      return
+   end subroutine fraggle_generate_pos_vec
+
+
+   subroutine fraggle_generate_spins(frag, colliders, f_spin, lfailure)
+      !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+      !!
+      !! Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.
+      !!
+      !! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: frag      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(in)    :: colliders !! Fraggle collider system object
+      real(DP),                 intent(in)    :: f_spin    !! Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy)
+      logical,                  intent(out)   :: lfailure  !! Logical flag indicating whether this step fails or succeeds! 
+      ! Internals
+      real(DP), dimension(NDIM) :: L_remainder, rot_L, rot_ke
+      integer(I4B)              :: i
+      character(len=STRMAX)     :: message
+
+      associate(nfrag => frag%nbody)
+         lfailure = .false.
+
+         ! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest
+         L_remainder(:) = frag%L_budget(:)
+         frag%rot(:,:) = 0.0_DP
+
+         frag%ke_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 * frag%ke_budget / (nfrag * frag%mass(i) * frag%radius(i)**2 * frag%Ip(3, i))) * L_remainder(:) / norm2(L_remainder(:))
+            rot_L(:) = f_spin * L_remainder(:) / (nfrag * frag%mass(i) * frag%radius(i)**2 * frag%Ip(3, i))
+            if (norm2(rot_ke) < norm2(rot_L)) then
+               frag%rot(:,i) = rot_ke(:)
+            else
+               frag%rot(:, i) = rot_L(:)
+            end if
+            frag%ke_spin = frag%ke_spin + frag%mass(i) * frag%Ip(3, i) * frag%radius(i)**2 * dot_product(frag%rot(:, i), frag%rot(:, i))
+         end do
+         frag%ke_spin = 0.5_DP * frag%ke_spin
+
+         lfailure = ((frag%ke_budget - frag%ke_spin - frag%ke_orbit) < 0.0_DP)
+
+         if (lfailure) then
+            call fraggle_io_log_one_message(" ")
+            call fraggle_io_log_one_message("Spin failure diagnostics")
+            write(message, *) frag%ke_budget
+            call fraggle_io_log_one_message("ke_budget     : " // trim(adjustl(message)))
+            write(message, *) frag%ke_spin
+            call fraggle_io_log_one_message("ke_spin       : " // trim(adjustl(message)))
+            write(message, *) frag%ke_orbit
+            call fraggle_io_log_one_message("ke_orbit      : " // trim(adjustl(message)))
+            write(message, *) frag%ke_budget - frag%ke_spin - frag%ke_orbit
+            call fraggle_io_log_one_message("ke_remainder  : " // trim(adjustl(message)))
+         end if
+
+      end associate
+
+      return
+   end subroutine fraggle_generate_spins
+
+
+   subroutine fraggle_generate_tan_vel(frag, colliders, lfailure)
+      !! 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 (frag%ke_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
+      class(fraggle_fragments), intent(inout) :: frag      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(in)    :: colliders !! Fraggle collider system object
+      logical,                  intent(out)   :: lfailure  !! Logical flag indicating whether this step fails or succeeds
+      ! Internals
+      integer(I4B) :: i
+      real(DP), parameter                  :: TOL_MIN = 1e-1_DP ! This doesn't have to be very accurate, as we really just want a tangential velocity distribution with less kinetic energy than our initial guess.
+      real(DP), parameter                  :: TOL_INIT = 1e-14_DP
+      real(DP), parameter                  :: VNOISE_MAG = 1e-3_DP !! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure
+      integer(I4B), parameter              :: MAXLOOP = 10
+      real(DP)                             :: tol, ke_remainder
+      real(DP), dimension(:), allocatable  :: v_t_initial
+      real(DP), dimension(frag%nbody)      :: kefrag, vnoise
+      type(lambda_obj)                     :: spinfunc
+      type(lambda_obj_err)                 :: objective_function
+      real(DP), dimension(NDIM)            :: Li, L_remainder, L_frag_tot
+      character(len=STRMAX)                :: message
+
+      associate(nfrag => frag%nbody)
+         lfailure = .false.
+
+         allocate(v_t_initial, mold=frag%v_t_mag)
+         v_t_initial(:) = 0.0_DP
+         frag%v_coll(:,:) = 0.0_DP
+
+         ! 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.
+         call frag%get_ang_mtm()
+         L_remainder(:) = frag%L_budget(:) - frag%L_spin(:)
+         do i = 1, nfrag
+            v_t_initial(i) = norm2(L_remainder(:)) / ((nfrag - i + 1) * frag%mass(i) * norm2(frag%x_coll(:,i)))
+            Li(:) = frag%mass(i) * (frag%x_coll(:,i) .cross. (v_t_initial(i) * frag%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, lfailure)
+
+         tol = TOL_INIT
+         do while(tol < TOL_MIN)
+            frag%v_t_mag(7:nfrag) = util_minimize_bfgs(objective_function, nfrag-6, v_t_initial(7:nfrag), tol, MAXLOOP, lfailure)
+            ! 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) = frag%v_t_mag(7:nfrag)
+            if (.not.lfailure) exit
+            tol = tol * 2_DP ! Keep increasing the tolerance until we converge on a solution
+            call random_number(vnoise(1:nfrag)) ! Adding a bit of noise to the initial conditions helps it find a solution more often
+            vnoise(:) = 1.0_DP + VNOISE_MAG * (2 * vnoise(:) - 1._DP)
+            v_t_initial(:) = v_t_initial(:) * vnoise(:)
+         end do
+         frag%v_t_mag(1:nfrag) = solve_fragment_tan_vel(v_t_mag_input=v_t_initial(7:nfrag), lfailure=lfailure)
+
+         ! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin)
+         frag%vb(:,1:nfrag) = fraggle_util_vmag_to_vb(frag%v_r_mag(1:nfrag), frag%v_r_unit(:,1:nfrag), frag%v_t_mag(1:nfrag), frag%v_t_unit(:,1:nfrag), frag%mass(1:nfrag), frag%vbcom(:)) 
+         do concurrent (i = 1:nfrag)
+            frag%v_coll(:,i) = frag%vb(:,i) - frag%vbcom(:)
+         end do
+
+         ! 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)
+            kefrag(i) = frag%mass(i) * dot_product(frag%vb(:, i), frag%vb(:, i))
+         end do
+         frag%ke_orbit = 0.5_DP * sum(kefrag(:))
+
+         ! If we are over the energy budget, flag this as a failure so we can try again
+         lfailure = ((frag%ke_budget - frag%ke_spin - frag%ke_orbit) < 0.0_DP)
+         if (lfailure) then
+            call fraggle_io_log_one_message(" ")
+            call fraggle_io_log_one_message("Tangential velocity failure diagnostics")
+            call frag%get_ang_mtm()
+            L_frag_tot = frag%L_spin(:) + frag%L_orbit(:)
+            write(message, *) .mag.(frag%L_budget(:) - L_frag_tot(:)) / (.mag.frag%Ltot_before(:))
+            call fraggle_io_log_one_message("|L_remainder| : " // trim(adjustl(message)))
+            write(message, *) frag%ke_budget
+            call fraggle_io_log_one_message("ke_budget     : " // trim(adjustl(message)))
+            write(message, *) frag%ke_spin
+            call fraggle_io_log_one_message("ke_spin       : " // trim(adjustl(message)))
+            write(message, *) frag%ke_orbit
+            call fraggle_io_log_one_message("ke_tangential : " // trim(adjustl(message)))
+            write(message, *) frag%ke_budget - frag%ke_spin - frag%ke_orbit
+            call fraggle_io_log_one_message("ke_radial     : " // trim(adjustl(message)))
+         end if
+      end associate
+
+      return
+
+      contains
+         function solve_fragment_tan_vel(lfailure, 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) :: lfailure            !! 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
+      
+            associate(nfrag => frag%nbody)
+               lfailure = .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) = frag%mass(i) * frag%v_t_unit(:, i) 
+                     A(4:6, i) = frag%mass(i) * frag%rmag(i) * (frag%v_r_unit(:, i) .cross. frag%v_t_unit(:, i))
+                  else if (present(v_t_mag_input)) then
+                     vtmp(:) = v_t_mag_input(i - 6) * frag%v_t_unit(:, i)
+                     L_lin_others(:) = L_lin_others(:) + frag%mass(i) * vtmp(:)
+                     L(:) = frag%mass(i) * (frag%x_coll(:, i) .cross. vtmp(:)) 
+                     L_orb_others(:) = L_orb_others(:) + L(:)
+                  end if
+               end do
+               b(1:3) = -L_lin_others(:)
+               b(4:6) = frag%L_budget(:) - frag%L_spin(:) - L_orb_others(:)
+               allocate(v_t_mag_output(nfrag))
+               v_t_mag_output(1:6) = util_solve_linear_system(A, b, 6, lfailure)
+               if (present(v_t_mag_input)) v_t_mag_output(7:nfrag) = v_t_mag_input(:)
+            end associate
+            return 
+         end function solve_fragment_tan_vel
+
+
+         function tangential_objective_function(v_t_mag_input, lfailure) 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) :: lfailure            !! Error flag
+            ! Result
+            real(DP)                              :: fval
+            ! Internals
+            integer(I4B) :: i
+            real(DP), dimension(NDIM,frag%nbody) :: v_shift
+            real(DP), dimension(frag%nbody) :: v_t_new, kearr
+            real(DP) :: keo
+      
+            associate(nfrag => frag%nbody)
+               lfailure = .false.
+         
+               v_t_new(:) = solve_fragment_tan_vel(v_t_mag_input=v_t_mag_input(:), lfailure=lfailure)
+               v_shift(:,:) = fraggle_util_vmag_to_vb(frag%v_r_mag, frag%v_r_unit, v_t_new, frag%v_t_unit, frag%mass, frag%vbcom) 
+         
+               kearr = 0.0_DP
+               do concurrent(i = 1:nfrag)
+                  kearr(i) = frag%mass(i) * dot_product(v_shift(:, i), v_shift(:, i))
+               end do
+               keo = 0.5_DP * sum(kearr(:))
+               fval = keo 
+               lfailure = .false.
+            end associate
+
+            return
+         end function tangential_objective_function
+
+   end subroutine fraggle_generate_tan_vel
+
+
+   subroutine fraggle_generate_rad_vel(frag, colliders, lfailure)
+      !! 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
+      class(fraggle_fragments), intent(inout) :: frag      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(in)    :: colliders !! Fraggle collider system object
+      logical,                  intent(out)   :: lfailure  !! Logical flag indicating whether this step fails or succeeds! 
+      ! Internals
+      real(DP), parameter                   :: TOL_MIN = FRAGGLE_ETOL   ! This needs to be more accurate than the tangential step, as we are trying to minimize the total residual energy
+      real(DP), parameter                   :: TOL_INIT = 1e-14_DP
+      real(DP), parameter                   :: VNOISE_MAG = 1e-10_DP !! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure
+      integer(I4B), parameter               :: MAXLOOP = 100
+      real(DP)                              :: ke_radial, tol 
+      integer(I4B)                          :: i, j
+      real(DP), dimension(:), allocatable   :: v_r_initial
+      real(DP), dimension(:,:), allocatable :: v_r
+      real(DP), dimension(frag%nbody)       :: vnoise
+      type(lambda_obj)                      :: objective_function
+      character(len=STRMAX)                 :: message
+
+      associate(nfrag => frag%nbody)
+         ! Set the "target" ke for the radial component
+         ke_radial = frag%ke_budget - frag%ke_spin - frag%ke_orbit
+         
+         allocate(v_r_initial, source=frag%v_r_mag)
+         ! Initialize radial velocity magnitudes with a random value that related to equipartition of kinetic energy with some noise
+         call random_number(vnoise(1:nfrag))
+         vnoise(:) = 1.0_DP + VNOISE_MAG * (2 * vnoise(:) - 1.0_DP) 
+         v_r_initial(1:nfrag) = sqrt(abs(2 * ke_radial) / (frag%mass(1:nfrag) * nfrag)) * vnoise(1: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)
+         tol = TOL_INIT
+         do while(tol < TOL_MIN)
+            frag%v_r_mag = util_minimize_bfgs(objective_function, nfrag, v_r_initial, tol, MAXLOOP, lfailure)
+            if (.not.lfailure) exit
+            tol = tol * 2 ! Keep increasing the tolerance until we converge on a solution
+            v_r_initial(:) = frag%v_r_mag(:)
+            call random_number(vnoise(1:nfrag)) ! Adding a bit of noise to the initial conditions helps it find a solution more often
+            vnoise(:) = 1.0_DP + VNOISE_MAG * (2 * vnoise(:) - 1._DP)
+            v_r_initial(:) = v_r_initial(:) * vnoise(:)
+         end do
+         
+         ! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin)
+         frag%ke_orbit = 0.0_DP
+         frag%vb(:,1:nfrag) = fraggle_util_vmag_to_vb(frag%v_r_mag(1:nfrag), frag%v_r_unit(:,1:nfrag), frag%v_t_mag(1:nfrag), frag%v_t_unit(:,1:nfrag), frag%mass(1:nfrag), frag%vbcom(:)) 
+         do i = 1, nfrag
+            frag%v_coll(:, i) = frag%vb(:, i) - frag%vbcom(:)
+            frag%ke_orbit = frag%ke_orbit + frag%mass(i) * dot_product(frag%vb(:, i), frag%vb(:, i))
+         end do
+         frag%ke_orbit = 0.5_DP * frag%ke_orbit
+
+         lfailure = abs((frag%ke_budget - (frag%ke_orbit + frag%ke_spin)) / frag%ke_budget) > FRAGGLE_ETOL
+         if (lfailure) then
+            call fraggle_io_log_one_message(" ")
+            call fraggle_io_log_one_message("Radial velocity failure diagnostics")
+            write(message, *) frag%ke_budget
+            call fraggle_io_log_one_message("ke_budget     : " // trim(adjustl(message)))
+            write(message, *) frag%ke_spin
+            call fraggle_io_log_one_message("ke_spin       : " // trim(adjustl(message)))
+            write(message, *) frag%ke_orbit
+            call fraggle_io_log_one_message("ke_orbit : " // trim(adjustl(message)))
+            write(message, *) frag%ke_budget - (frag%ke_orbit + frag%ke_spin)
+            call fraggle_io_log_one_message("ke_remainder  : " // trim(adjustl(message)))
+         end if
+
+      end associate
+      return
+
+      contains
+         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(frag%nbody)       :: kearr
+            real(DP)                              :: keo, ke_radial
+      
+            associate(nfrag => frag%nbody)
+               allocate(v_shift, mold=frag%vb)
+               v_shift(:,:) = fraggle_util_vmag_to_vb(v_r_mag_input, frag%v_r_unit, frag%v_t_mag, frag%v_t_unit, frag%mass, frag%vbcom) 
+               do concurrent(i = 1:nfrag)
+                  kearr(i) = frag%mass(i) * (frag%Ip(3, i) * frag%radius(i)**2 * dot_product(frag%rot(:, i), frag%rot(:, i)) + dot_product(v_shift(:, i), v_shift(:, i)))
+               end do
+               keo = 2 * frag%ke_budget - sum(kearr(:))
+               ke_radial = frag%ke_budget - frag%ke_orbit - frag%ke_spin
+               ! 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
+            end associate
+      
+            return
+         end function radial_objective_function
+
+      end subroutine fraggle_generate_rad_vel
+
+end submodule s_fraggle_generate
diff --git a/docs/src/fraggle_io.f90 b/docs/src/fraggle_io.f90
new file mode 100644
index 000000000..dbd721216
--- /dev/null
+++ b/docs/src/fraggle_io.f90
@@ -0,0 +1,255 @@
+submodule(fraggle_classes) s_fraggle_io
+   use swiftest
+
+contains
+
+   module subroutine fraggle_io_log_generate(frag)
+      !! author: David A. Minton
+      !!
+      !! Writes a log of the results of the fragment generation
+      implicit none
+      ! Arguments
+      class(fraggle_fragments),   intent(in) :: frag
+      ! Internals
+      integer(I4B) :: i
+      character(STRMAX) :: errmsg
+      character(len=*), parameter :: fmtlabel = "(A14,10(ES11.4,1X,:))"
+
+      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg)
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      write(FRAGGLE_LOG_UNIT, *) "           Fraggle fragment generation results"
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      write(FRAGGLE_LOG_UNIT,    "(' dL_tot should be very small' )")
+      write(FRAGGLE_LOG_UNIT,fmtlabel) ' dL_tot      |', (.mag.(frag%Ltot_after(:) - frag%Ltot_before(:))) / (.mag.frag%Ltot_before(:))
+      write(FRAGGLE_LOG_UNIT,        "(' dE_tot should be negative and equal to Qloss' )")
+      write(FRAGGLE_LOG_UNIT,fmtlabel) ' dE_tot      |', (frag%Etot_after - frag%Etot_before) / abs(frag%Etot_before)
+      write(FRAGGLE_LOG_UNIT,fmtlabel) ' Qloss       |', -frag%Qloss / abs(frag%Etot_before)
+      write(FRAGGLE_LOG_UNIT,fmtlabel) ' dE - Qloss  |', (frag%Etot_after - frag%Etot_before + frag%Qloss) / abs(frag%Etot_before)
+      write(FRAGGLE_LOG_UNIT,        "(' -------------------------------------------------------------------------------------')")
+      write(FRAGGLE_LOG_UNIT, *) "Individual fragment values (collisional system natural units)"
+      write(FRAGGLE_LOG_UNIT, *) "mass"
+      do i = 1, frag%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, frag%mass(i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "x_coll"
+      do i = 1, frag%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, frag%x_coll(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "v_coll"
+      do i = 1, frag%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, frag%v_coll(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "xb"
+      do i = 1, frag%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, frag%xb(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "vb"
+      do i = 1, frag%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, frag%vb(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "rot"
+      do i = 1, frag%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, frag%rot(:,i)
+      end do
+
+      close(FRAGGLE_LOG_UNIT)
+
+      return
+      667 continue
+      write(*,*) "Error writing Fraggle message to log file: " // trim(adjustl(errmsg))
+   end subroutine fraggle_io_log_generate
+
+
+   module subroutine fraggle_io_log_one_message(message)
+      !! author: David A. Minton
+      !!
+      !! Writes a single message to the fraggle log file
+      implicit none
+      ! Arguments
+      character(len=*), intent(in) :: message
+      ! Internals
+      character(STRMAX) :: errmsg
+
+      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(FRAGGLE_LOG_UNIT, *) trim(adjustl(message)) 
+      close(FRAGGLE_LOG_UNIT)
+
+      return
+      667 continue
+      write(*,*) "Error writing Fraggle message to log file: " // trim(adjustl(errmsg))
+   end subroutine fraggle_io_log_one_message
+
+
+   module subroutine fraggle_io_log_pl(pl, param)
+      !! author: David A. Minton
+      !!
+      !! Writes a single message to the fraggle log file
+      implicit none
+      ! Arguments
+      class(swiftest_pl),         intent(in) :: pl    !! Swiftest massive body object (only the new bodies generated in a collision)
+      class(swiftest_parameters), intent(in) :: param !! Current swiftest run configuration parameters
+      ! Internals
+      integer(I4B) :: i
+      character(STRMAX) :: errmsg
+
+      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg)
+
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      write(FRAGGLE_LOG_UNIT, *) "           Fraggle fragment final body properties"
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      write(FRAGGLE_LOG_UNIT, *) "id, name"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%id(i), pl%info(i)%name
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "mass, Gmass"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%mass(i), pl%Gmass(i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "radius"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%radius(i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "xb"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%xb(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "vb"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%vb(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "xh"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%xh(:,i)
+      end do
+      write(FRAGGLE_LOG_UNIT, *) "vh"
+      do i = 1, pl%nbody
+         write(FRAGGLE_LOG_UNIT, *) i, pl%vh(:,i)
+      end do
+
+      if (param%lrotation) then
+         write(FRAGGLE_LOG_UNIT, *) "rot"
+         do i = 1, pl%nbody
+            write(FRAGGLE_LOG_UNIT, *) i, pl%rot(:,i)
+         end do
+         write(FRAGGLE_LOG_UNIT, *) "Ip"
+         do i = 1, pl%nbody
+            write(FRAGGLE_LOG_UNIT, *) i, pl%Ip(:,i)
+         end do
+      end if
+
+      if (param%ltides) then
+         write(FRAGGLE_LOG_UNIT, *) "Q"
+         do i = 1, pl%nbody
+            write(FRAGGLE_LOG_UNIT, *) i, pl%Q(i)
+         end do
+         write(FRAGGLE_LOG_UNIT, *) "k2"
+         do i = 1, pl%nbody
+            write(FRAGGLE_LOG_UNIT, *) i, pl%k2(i)
+         end do
+         write(FRAGGLE_LOG_UNIT, *) "tlag"
+         do i = 1, pl%nbody
+            write(FRAGGLE_LOG_UNIT, *) i, pl%tlag(i)
+         end do
+      end if
+
+      close(FRAGGLE_LOG_UNIT)
+
+      return
+      667 continue
+      write(*,*) "Error writing Fraggle message to log file: " // trim(adjustl(errmsg))
+   end subroutine fraggle_io_log_pl
+
+
+   module subroutine fraggle_io_log_regime(colliders, frag)
+      !! author: David A. Minton
+      !!
+      !! Writes a log of the results of the collisional regime determination
+      implicit none
+      ! Arguments
+      class(fraggle_colliders),   intent(in) :: colliders !! Fraggle collider system object
+      class(fraggle_fragments),   intent(in) :: frag      !! Fraggle fragment object
+      ! Internals
+      character(STRMAX) :: errmsg
+
+      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg)
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      write(FRAGGLE_LOG_UNIT, *) "           Fraggle collisional regime determination results"
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      write(FRAGGLE_LOG_UNIT, *) "----------------------- Collider information -----------------------" 
+      write(FRAGGLE_LOG_UNIT, *) "True number of colliders : ",colliders%ncoll
+      write(FRAGGLE_LOG_UNIT, *) "Index list of true colliders  : ",colliders%idx(1:colliders%ncoll)
+      write(FRAGGLE_LOG_UNIT, *) "-------------------- Two-body equialent values ---------------------"
+      write(FRAGGLE_LOG_UNIT, *) "mass1    : ",colliders%mass(1)
+      write(FRAGGLE_LOG_UNIT, *) "radius1  : ",colliders%radius(1)
+      write(FRAGGLE_LOG_UNIT, *) "xb1      : ",colliders%xb(:,1)
+      write(FRAGGLE_LOG_UNIT, *) "vb1      : ",colliders%vb(:,1)
+      write(FRAGGLE_LOG_UNIT, *) "rot1     : ",colliders%rot(:,1)
+      write(FRAGGLE_LOG_UNIT, *) "Ip1      : ",colliders%Ip(:,1)
+      write(FRAGGLE_LOG_UNIT, *) "L_spin1  : ",colliders%L_spin(:,1)
+      write(FRAGGLE_LOG_UNIT, *) "L_orbit1 : ",colliders%L_orbit(:,1)
+      write(FRAGGLE_LOG_UNIT, *) "mass2    : ",colliders%mass(2)
+      write(FRAGGLE_LOG_UNIT, *) "radius2  : ",colliders%radius(2)
+      write(FRAGGLE_LOG_UNIT, *) "xb2      : ",colliders%xb(:,2)
+      write(FRAGGLE_LOG_UNIT, *) "vb2      : ",colliders%vb(:,2)
+      write(FRAGGLE_LOG_UNIT, *) "rot2     : ",colliders%rot(:,2)
+      write(FRAGGLE_LOG_UNIT, *) "Ip2      : ",colliders%Ip(:,2)
+      write(FRAGGLE_LOG_UNIT, *) "L_spin2  : ",colliders%L_spin(:,2)
+      write(FRAGGLE_LOG_UNIT, *) "L_orbit2 : ",colliders%L_orbit(:,2)
+      write(FRAGGLE_LOG_UNIT, *) "------------------------------ Regime -----------------------------"
+      select case(frag%regime) 
+      case(COLLRESOLVE_REGIME_MERGE)
+         write(FRAGGLE_LOG_UNIT, *) "Merge"
+      case(COLLRESOLVE_REGIME_DISRUPTION)
+         write(FRAGGLE_LOG_UNIT, *) "Disruption"
+      case(COLLRESOLVE_REGIME_SUPERCATASTROPHIC)
+         write(FRAGGLE_LOG_UNIT, *) "Supercatastrophic disruption"
+      case(COLLRESOLVE_REGIME_GRAZE_AND_MERGE)
+         write(FRAGGLE_LOG_UNIT, *) "Graze and merge"
+      case(COLLRESOLVE_REGIME_HIT_AND_RUN)
+         write(FRAGGLE_LOG_UNIT, *) "Hit and run"
+      end select
+      write(FRAGGLE_LOG_UNIT, *) "----------------------- Fragment information ----------------------"
+      write(FRAGGLE_LOG_UNIT, *) "Total mass of fragments      : ", frag%mtot
+      write(FRAGGLE_LOG_UNIT, *) "Largest fragment mass        : ", frag%mass_dist(1)
+      write(FRAGGLE_LOG_UNIT, *) "Second-largest fragment mass : ", frag%mass_dist(2)
+      write(FRAGGLE_LOG_UNIT, *) "Remaining fragment mass      : ", frag%mass_dist(3)
+      write(FRAGGLE_LOG_UNIT, *) "Center of mass position      : ", frag%xbcom(:)
+      write(FRAGGLE_LOG_UNIT, *) "Center of mass velocity      : ", frag%vbcom(:)
+      write(FRAGGLE_LOG_UNIT, *) "Energy loss                  : ", frag%Qloss
+      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
+      close(FRAGGLE_LOG_UNIT)
+
+      return
+      667 continue
+      write(*,*) "Error writing Fraggle regime information to log file: " // trim(adjustl(errmsg))
+   end subroutine fraggle_io_log_regime
+
+
+   module subroutine fraggle_io_log_start(param)
+      !! author: David A. Minton
+      !!
+      !! Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run
+      implicit none
+      ! Arguments
+      class(swiftest_parameters), intent(in) :: param
+      ! Internals
+      character(STRMAX) :: errmsg
+      logical           :: fileExists
+
+      inquire(file=FRAGGLE_LOG_OUT, exist=fileExists)
+      if (.not.param%lrestart .or. .not.fileExists) then
+         open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status="REPLACE", err = 667, iomsg = errmsg)
+         write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg) "Fraggle logfile"
+      end if
+      close(FRAGGLE_LOG_UNIT)
+
+      return
+
+      667 continue
+      write(*,*) "Error writing Fraggle log file: " // trim(adjustl(errmsg))
+   end subroutine fraggle_io_log_start
+
+end submodule s_fraggle_io
\ No newline at end of file
diff --git a/docs/src/fraggle_placeholder.f90 b/docs/src/fraggle_placeholder.f90
new file mode 100644
index 000000000..bbf08bb04
--- /dev/null
+++ b/docs/src/fraggle_placeholder.f90
@@ -0,0 +1,44 @@
+submodule(fraggle_classes) s_fraggle_placeholder
+   use swiftest
+
+contains
+
+   !> The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class
+   module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
+      implicit none
+      class(fraggle_fragments),     intent(inout) :: self   !! Fraggle fragment system 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   !! Optional argument that determines whether or not this is the beginning or end of the step
+      write(*,*) "The type-bound procedure 'accel' is not defined for type fraggle_fragments"
+      return
+   end subroutine fraggle_placeholder_accel
+
+   module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
+      implicit none
+      class(fraggle_fragments),     intent(inout) :: self   !! Fraggle fragment system 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. 
+
+      write(*,*) "The type-bound procedure 'kick' is not defined for type fraggle_fragments"
+      return
+   end subroutine fraggle_placeholder_kick
+
+   module subroutine fraggle_placeholder_step(self, system, param, t, dt)
+      implicit none
+      class(fraggle_fragments),     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
+
+      write(*,*) "The type-bound procedure 'step' is not defined for type fraggle_fragments"
+      return
+   end subroutine fraggle_placeholder_step
+
+
+end submodule s_fraggle_placeholder
\ No newline at end of file
diff --git a/docs/src/fraggle_regime.f90 b/docs/src/fraggle_regime.f90
new file mode 100644
index 000000000..df9265ae7
--- /dev/null
+++ b/docs/src/fraggle_regime.f90
@@ -0,0 +1,368 @@
+submodule(fraggle_classes) s_fraggle_regime
+   use swiftest
+
+contains
+
+   module subroutine fraggle_regime_colliders(self, frag, system, param)
+      !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton 
+      !!
+      !! Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine.
+      !! It converts to SI units prior to calling
+      implicit none 
+      ! Arguments
+      class(fraggle_colliders),     intent(inout) :: self   !! Fraggle colliders object
+      class(fraggle_fragments),     intent(inout) :: frag   !! Fraggle fragment system object
+      class(swiftest_nbody_system), intent(in)    :: system !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(in)    :: param  !! Current Swiftest run configuration parameters
+      ! Internals
+      integer(I4B) :: jtarg, jproj, regime
+      real(DP), dimension(2) :: radius_si, mass_si, density_si
+      real(DP) :: min_mfrag_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
+      logical :: fileExists
+        
+      associate(colliders => self)
+         ! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them to the regime determination subroutine
+         if (colliders%mass(1) > colliders%mass(2)) then
+            jtarg = 1
+            jproj = 2
+         else
+            jtarg = 2
+            jproj = 1
+         end if
+         mass_si(:)    = colliders%mass([jtarg, jproj]) * param%MU2KG         !! The two-body equivalent masses of the collider system
+         radius_si(:)  = colliders%radius([jtarg, jproj]) * param%DU2M        !! The two-body equivalent radii of the collider system
+         density_si(:) = mass_si(:) / (4.0_DP / 3._DP * PI * radius_si(:)**3) !! The two-body equivalent density of the collider system
+         x1_si(:)      = colliders%xb(:,jtarg) * param%DU2M                   !! The first body of the two-body equivalent position vector the collider system
+         v1_si(:)      = colliders%vb(:,jtarg) * param%DU2M / param%TU2S      !! The first body of the two-body equivalent velocity vector the collider system
+         x2_si(:)      = colliders%xb(:,jproj) * param%DU2M                   !! The second body of the two-body equivalent position vector the collider system
+         v2_si(:)      = colliders%vb(:,jproj) * param%DU2M / param%TU2S      !! The second body of the two-body equivalent velocity vector the collider system
+         Mcb_si        = system%cb%mass * param%MU2KG                         !! The central body mass of the system
+         select type(param)
+         class is (symba_parameters)
+            min_mfrag_si  = (param%min_GMfrag / param%GU) * param%MU2KG          !! The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead
+         class default
+            min_mfrag_si = 0.0_DP
+         end select
+      
+         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 fraggle_regime_collresolve(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), min_mfrag_si, frag%regime, mlr, mslr, frag%Qloss)
+
+         frag%mass_dist(1) = min(max(mlr, 0.0_DP), mtot)
+         frag%mass_dist(2) = min(max(mslr, 0.0_DP), mtot)
+         frag%mass_dist(3) = min(max(mtot - mlr - mslr, 0.0_DP), mtot)
+
+         ! Find the center of mass of the collisional system	
+         frag%mtot = sum(colliders%mass(:))
+         frag%xbcom(:) = (colliders%mass(1) * colliders%xb(:,1) + colliders%mass(2) * colliders%xb(:,2)) / frag%mtot 
+         frag%vbcom(:) = (colliders%mass(1) * colliders%vb(:,1) + colliders%mass(2) * colliders%vb(:,2)) / frag%mtot
+
+         ! Convert quantities back to the system units and save them into the fragment system
+         frag%mass_dist(:) = (frag%mass_dist(:) / param%MU2KG) 
+         frag%Qloss = frag%Qloss * (param%TU2S / param%DU2M)**2 / param%MU2KG
+
+         call fraggle_io_log_regime(colliders, frag)
+      end associate
+
+      return
+   end subroutine fraggle_regime_colliders
+
+
+   subroutine fraggle_regime_collresolve(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, min_mfrag, regime, Mlr, Mslr, 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
+      real(DP), intent(in)           :: Mcb, m1, m2, rad1, rad2, den1, den2, min_mfrag 
+      real(DP), dimension(:), intent(in)  :: xh1, xh2, vb1, vb2
+      integer(I4B), intent(out)         :: regime
+      real(DP), intent(out)          :: Mlr, Mslr
+      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 = 1000.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   :: ETA = -1.50_DP !! LS12 eq. (44)
+      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, Mtmp
+      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 = max((1.0_DP - Qr / Qrd_pstar / 2.0_DP) * Mtot, min_mfrag) ! [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 < min_mfrag).or.(m2 < min_mfrag)) then 
+         regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime
+         Mlr = Mtot
+         Mslr = 0.0_DP
+         Qloss = 0.0_DP
+         call fraggle_io_log_one_message("Fragments would have mass below the minimum. Converting this collision into a merger.")
+      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 = max(calc_Qrd_rev(m2, m1, Mint, den1, den2, Vimp, c_star), min_mfrag)
+               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 = max(Mtot * (3.0_DP - BETA) * (1.0_DP - N1 * Mlr / Mtot) / (N2 * BETA), min_mfrag)  ! 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 = max(Mtot * 0.1_DP * (Qr / (Qrd_pstar * SUPERCAT_QRATIO))**(ETA), min_mfrag)   !LS12 eq (44)
+            Mslr = max(Mtot * (3.0_DP - BETA) * (1.0_DP - N1 * Mlr / Mtot) / (N2 * BETA), min_mfrag)  !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 
+
+      if (Mslr > Mlr) then ! The second-largest fragment is actually larger than the largest, so we will swap them
+         Mtmp = Mlr
+         Mlr = Mslr
+         Mslr = Mtmp
+      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 fraggle_regime_collresolve
+
+end submodule s_fraggle_regime
\ No newline at end of file
diff --git a/docs/src/fraggle_set.f90 b/docs/src/fraggle_set.f90
new file mode 100644
index 000000000..d520b2c5d
--- /dev/null
+++ b/docs/src/fraggle_set.f90
@@ -0,0 +1,333 @@
+submodule(fraggle_classes) s_fraggle_set
+   use swiftest
+contains
+
+   module subroutine fraggle_set_budgets_fragments(self, colliders)
+      !! author: David A. Minton
+      !!
+      !! Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      ! Internals
+      real(DP) :: dEtot
+      real(DP), dimension(NDIM) :: dL
+
+      associate(frag => self)
+
+         dEtot = frag%Etot_after - frag%Etot_before 
+         dL(:) = frag%Ltot_after(:) - frag%Ltot_before(:)
+
+         frag%L_budget(:) = -dL(:)
+         frag%ke_budget = -(dEtot - 0.5_DP * frag%mtot * dot_product(frag%vbcom(:), frag%vbcom(:))) - frag%Qloss 
+
+      end associate
+      return
+   end subroutine fraggle_set_budgets_fragments
+
+
+   module subroutine fraggle_set_mass_dist_fragments(self, colliders, param)
+      !! author: David A. Minton
+      !!
+      !! Sets the mass of fragments based on the mass distribution returned by the regime calculation.
+      !! This subroutine must be run after the the setup rourtine has been run on the fragments
+      implicit none
+      ! Arguments
+      class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object
+      class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle collider system object
+      class(swiftest_parameters),   intent(in)    :: param     !! Current Swiftest run configuration parameters
+      ! Internals
+      integer(I4B)              :: i, jproj, jtarg, nfrag, istart
+      real(DP), dimension(2)    :: volume
+      real(DP), dimension(NDIM) :: Ip_avg
+      real(DP) :: mfrag, mremaining, min_mfrag
+      real(DP), parameter :: BETA = 2.85_DP
+      integer(I4B), parameter :: NFRAGMAX = 100  !! Maximum number of fragments that can be generated
+      integer(I4B), parameter :: NFRAGMIN = 7 !! Minimum number of fragments that can be generated (set by the fraggle_generate algorithm for constraining momentum and energy)
+      integer(I4B), parameter :: NFRAG_SIZE_MULTIPLIER = 3 !! Log-space scale factor that scales the number of fragments by the collisional system mass
+      integer(I4B), parameter :: iMlr = 1
+      integer(I4B), parameter :: iMslr = 2
+      integer(I4B), parameter :: iMrem = 3
+     
+      associate(frag => self)
+         ! Get mass weighted mean of Ip and density
+         volume(1:2) = 4._DP / 3._DP * PI * colliders%radius(1:2)**3
+         Ip_avg(:) = (colliders%mass(1) * colliders%Ip(:,1) + colliders%mass(2) * colliders%Ip(:,2)) / frag%mtot
+         if (colliders%mass(1) > colliders%mass(2)) then
+            jtarg = 1
+            jproj = 2
+         else
+            jtarg = 2
+            jproj = 1
+         end if
+
+         select type(param)
+         class is (symba_parameters)
+            min_mfrag = (param%min_GMfrag / param%GU) 
+            ! The number of fragments we generate is bracked by the minimum required by fraggle_generate (7) and the 
+            ! maximum set by the NFRAG_SIZE_MULTIPLIER which limits the total number of fragments to prevent the nbody
+            ! code from getting an overwhelmingly large number of fragments
+            nfrag = ceiling(NFRAG_SIZE_MULTIPLIER  * log(frag%mtot / min_mfrag))
+            nfrag = max(min(nfrag, NFRAGMAX), NFRAGMIN)
+         class default
+            min_mfrag = 0.0_DP
+            nfrag = NFRAGMAX
+         end select
+  
+         select case(frag%regime)
+         case(COLLRESOLVE_REGIME_DISRUPTION, COLLRESOLVE_REGIME_SUPERCATASTROPHIC, COLLRESOLVE_REGIME_HIT_AND_RUN)
+            ! The first two bins of the mass_dist are the largest and second-largest fragments that came out of fraggle_regime.
+            ! The remainder from the third bin will be distributed among nfrag-2 bodies. The following code will determine nfrag based on
+            ! the limits bracketed above and the model size distribution of fragments.
+            ! Check to see if our size distribution would give us a smaller number of fragments than the maximum number
+            i = iMrem
+            mremaining = frag%mass_dist(iMrem)
+            do while (i <= nfrag)
+               mfrag = (1 + i - iMslr)**(-3._DP / BETA) * frag%mass_dist(iMslr)
+               if (mremaining - mfrag < 0.0_DP) exit
+               mremaining = mremaining - mfrag
+               i = i + 1
+            end do
+            if (i < nfrag) nfrag = max(i, NFRAGMIN)  ! The sfd would actually give us fewer fragments than our maximum
+    
+            call frag%setup(nfrag, param)
+         case (COLLRESOLVE_REGIME_MERGE, COLLRESOLVE_REGIME_GRAZE_AND_MERGE) 
+            call frag%setup(1, param)
+            frag%mass(1) = frag%mass_dist(1)
+            frag%radius(1) = colliders%radius(jtarg)
+            frag%density(1) = frag%mass_dist(1) / volume(jtarg)
+            frag%Ip(:, 1) = colliders%Ip(:,1)
+            return
+         case default
+            write(*,*) "fraggle_set_mass_dist_fragments error: Unrecognized regime code",frag%regime
+         end select
+
+         ! Make the first two bins the same as the Mlr and Mslr values that came from fraggle_regime
+         frag%mass(1) = frag%mass_dist(iMlr) 
+         frag%mass(2) = frag%mass_dist(iMslr) 
+
+         ! Distribute the remaining mass the 3:nfrag bodies following the model SFD given by slope BETA 
+         mremaining = frag%mass_dist(iMrem)
+         do i = iMrem, nfrag
+            mfrag = (1 + i - iMslr)**(-3._DP / BETA) * frag%mass_dist(iMslr)
+            frag%mass(i) = mfrag
+            mremaining = mremaining - mfrag
+         end do
+
+         ! If there is any residual mass (either positive or negative) we will distribute remaining mass proportionally among the the fragments
+         if (mremaining < 0.0_DP) then ! If the remainder is negative, this means that that the number of fragments required by the SFD is smaller than our lower limit set by fraggle_generate. 
+            istart = iMrem ! We will reduce the mass of the 3:nfrag bodies to prevent the second-largest fragment from going smaller
+         else ! If the remainder is postiive, this means that the number of fragments required by the SFD is larger than our upper limit set by computational expediency. 
+            istart = iMslr ! We will increase the mass of the 2:nfrag bodies to compensate, which ensures that the second largest fragment remains the second largest
+         end if
+         mfrag = 1._DP + mremaining / sum(frag%mass(istart:nfrag))
+         frag%mass(istart:nfrag) = frag%mass(istart:nfrag) * mfrag
+
+         ! There may still be some small residual due to round-off error. If so, simply add it to the last bin of the mass distribution.
+         mremaining = frag%mtot - sum(frag%mass(1:nfrag))
+         frag%mass(nfrag) = frag%mass(nfrag) + mremaining
+
+         ! Compute physical properties of the new fragments
+         select case(frag%regime)
+         case(COLLRESOLVE_REGIME_HIT_AND_RUN)  ! The hit and run case always preserves the largest body intact, so there is no need to recompute the physical properties of the first fragment
+            frag%radius(1) = colliders%radius(jtarg)
+            frag%density(1) = frag%mass_dist(iMlr) / volume(jtarg)
+            frag%Ip(:, 1) = colliders%Ip(:,1)
+            istart = 2
+         case default
+            istart = 1
+         end select
+         frag%density(istart:nfrag) = frag%mtot / sum(volume(:))
+         frag%radius(istart:nfrag) = (3 * frag%mass(istart:nfrag) / (4 * PI * frag%density(istart:nfrag)))**(1.0_DP / 3.0_DP)
+         do i = istart, nfrag
+            frag%Ip(:, i) = Ip_avg(:)
+         end do
+
+      end associate
+
+      return
+   end subroutine fraggle_set_mass_dist_fragments
+
+
+   module subroutine fraggle_set_coordinate_system(self, colliders)
+      !! author: David A. Minton
+      !!
+      !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      ! Internals
+      integer(I4B) :: i
+      real(DP), dimension(NDIM) ::  x_cross_v, delta_r, delta_v, Ltot
+      real(DP)   :: r_col_norm, v_col_norm
+      real(DP), dimension(NDIM, self%nbody) :: L_sigma
+
+      associate(frag => self, nfrag => self%nbody)
+         delta_v(:) = colliders%vb(:, 2) - colliders%vb(:, 1)
+         v_col_norm = .mag. delta_v(:)
+         delta_r(:) = colliders%xb(:, 2) - colliders%xb(:, 1)
+         r_col_norm = .mag. 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.
+         Ltot = colliders%L_orbit(:,1) + colliders%L_orbit(:,2) + colliders%L_spin(:,1) + colliders%L_spin(:,2)
+         frag%y_coll_unit(:) = delta_r(:) / r_col_norm 
+         frag%z_coll_unit(:) = Ltot(:) / (.mag. Ltot(:))
+         ! The cross product of the y- by z-axis will give us the x-axis
+         frag%x_coll_unit(:) = frag%y_coll_unit(:) .cross. frag%z_coll_unit(:)
+   
+         if (.not.any(frag%x_coll(:,:) > 0.0_DP)) return
+         frag%rmag(:) = .mag. frag%x_coll(:,:)
+   
+         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
+         do concurrent(i = 1:nfrag, frag%rmag(i) > 0.0_DP)
+            frag%v_r_unit(:, i) = frag%x_coll(:, i) / frag%rmag(i)
+            frag%v_n_unit(:, i) = frag%z_coll_unit(:) + 2e-1_DP * (L_sigma(:,i) - 0.5_DP)
+            frag%v_n_unit(:, i) = frag%v_n_unit(:, i) / (.mag. frag%v_n_unit(:, i))
+            frag%v_t_unit(:, i) = frag%v_n_unit(:, i) .cross. frag%v_r_unit(:, i)
+            frag%v_t_unit(:, i) = frag%v_t_unit(:, i) / (.mag. frag%v_t_unit(:, i))
+         end do
+      end associate
+
+      return
+   end subroutine fraggle_set_coordinate_system
+
+
+   ! module subroutine symba_set_collresolve_colliders(self, cb, pl, idx)
+   !    !! author: David A. Minton
+   !    !!
+   !    !! Calculate the two-body equivalent values given a set of input collider indices
+   !    use swiftest_classes, only : swiftest_nbody_system
+   !    implicit none
+   !    ! Arguments
+   !    class(fraggle_colliders),               intent(inout) :: self !! Fraggle collider object
+   !    class(symba_cb),                     intent(in)    :: cb   !! Swiftest central body object system object
+   !    class(symba_pl),                     intent(in)    :: pl   !! Swiftest central body object system object
+   !    integer(I4B),             dimension(:), intent(in)    :: idx  !! Index array of bodies from the pl object to use to calculate a "two-body equivalent" collisional pair
+   !    ! Internals
+   !    real(DP), dimension(NDIM, 2)  :: mxc, vc
+   !    real(DP), dimension(NDIM) :: vcom, xcom
+
+   !    associate(colliders => self)
+
+   !       ! Compute orbital angular momentum of pre-impact system
+   !       xcom(:) = (colliders%mass(1) * colliders%xb(:, 1) + colliders%mass(2) * colliders%xb(:, 2)) / sum(colliders%mass(:))
+   !       vcom(:) = (colliders%mass(1) * colliders%vb(:, 1) + colliders%mass(2) * colliders%vb(:, 2)) / sum(colliders%mass(:))
+   !       mxc(:, 1) = colliders%mass(1) * (colliders%xb(:, 1) - xcom(:))
+   !       mxc(:, 2) = colliders%mass(2) * (colliders%xb(:, 2) - xcom(:))
+   !       vc(:, 1) = colliders%vb(:, 1) - vcom(:)
+   !       vc(:, 2) = colliders%vb(:, 2) - vcom(:)
+
+   !       colliders%L_orbit(:,:) = mxc(:,:) .cross. vc(:,:)
+
+   !    end associate
+
+   !    return
+   ! end subroutine symbe_set_collresolve_colliders
+
+
+   module subroutine fraggle_set_natural_scale_factors(self, colliders)
+      !! 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
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      ! Internals
+      integer(I4B) :: i
+
+      associate(frag => self)
+         ! Set scale factors
+         frag%Escale = 0.5_DP * (colliders%mass(1) * dot_product(colliders%vb(:,1), colliders%vb(:,1)) + colliders%mass(2) * dot_product(colliders%vb(:,2), colliders%vb(:,2)))
+         frag%dscale = sum(colliders%radius(:))
+         frag%mscale = frag%mtot 
+         frag%vscale = sqrt(frag%Escale / frag%mscale) 
+         frag%tscale = frag%dscale / frag%vscale 
+         frag%Lscale = frag%mscale * frag%dscale * frag%vscale
+
+         ! Scale all dimensioned quantities of colliders and fragments
+         frag%xbcom(:) = frag%xbcom(:) / frag%dscale
+         frag%vbcom(:) = frag%vbcom(:) / frag%vscale
+         colliders%xb(:,:) = colliders%xb(:,:) / frag%dscale
+         colliders%vb(:,:) = colliders%vb(:,:) / frag%vscale
+         colliders%mass(:) = colliders%mass(:) / frag%mscale
+         colliders%radius(:) = colliders%radius(:) / frag%dscale
+         colliders%L_spin(:,:) = colliders%L_spin(:,:) / frag%Lscale
+
+         do i = 1, 2
+            colliders%rot(:,i) = colliders%L_spin(:,i) / (colliders%mass(i) * colliders%radius(i)**2 * colliders%Ip(3, i))
+         end do
+
+         frag%mtot = frag%mtot / frag%mscale
+         frag%mass = frag%mass / frag%mscale
+         frag%radius = frag%radius / frag%dscale
+         frag%Qloss = frag%Qloss / frag%Escale
+      end associate
+
+      return
+   end subroutine fraggle_set_natural_scale_factors
+
+
+   module subroutine fraggle_set_original_scale_factors(self, colliders)
+      !! author: David A. Minton
+      !!
+      !! Restores dimenional quantities back to the system units
+      use, intrinsic :: ieee_exceptions
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: self      !! Fraggle fragment system object
+      class(fraggle_colliders), intent(inout) :: colliders !! Fraggle collider system object
+      ! Internals
+      integer(I4B) :: i
+      logical, dimension(size(IEEE_ALL))      :: fpe_halting_modes
+
+      call ieee_get_halting_mode(IEEE_ALL,fpe_halting_modes)  ! Save the current halting modes so we can turn them off temporarily
+      call ieee_set_halting_mode(IEEE_ALL,.false.)
+
+      associate(frag => self)
+
+         ! Restore scale factors
+         frag%xbcom(:) = frag%xbcom(:) * frag%dscale
+         frag%vbcom(:) = frag%vbcom(:) * frag%vscale
+   
+         colliders%mass = colliders%mass * frag%mscale
+         colliders%radius = colliders%radius * frag%dscale
+         colliders%xb = colliders%xb * frag%dscale
+         colliders%vb = colliders%vb * frag%vscale
+         colliders%L_spin = colliders%L_spin * frag%Lscale
+         do i = 1, 2
+            colliders%rot(:,i) = colliders%L_spin(:,i) * (colliders%mass(i) * colliders%radius(i)**2 * colliders%Ip(3, i))
+         end do
+         frag%Qloss = frag%Qloss * frag%Escale
+   
+         frag%mtot = frag%mtot * frag%mscale
+         frag%mass = frag%mass * frag%mscale
+         frag%radius = frag%radius * frag%dscale
+         frag%rot = frag%rot / frag%tscale
+         frag%x_coll = frag%x_coll * frag%dscale
+         frag%v_coll = frag%v_coll * frag%vscale
+   
+         do i = 1, frag%nbody
+            frag%xb(:, i) = frag%x_coll(:, i) + frag%xbcom(:)
+            frag%vb(:, i) = frag%v_coll(:, i) + frag%vbcom(:)
+         end do
+   
+         frag%mscale = 1.0_DP
+         frag%dscale = 1.0_DP
+         frag%vscale = 1.0_DP
+         frag%tscale = 1.0_DP
+         frag%Lscale = 1.0_DP
+         frag%Escale = 1.0_DP
+      end associate
+      call ieee_set_halting_mode(IEEE_ALL,fpe_halting_modes)
+   
+      return
+   end subroutine fraggle_set_original_scale_factors
+
+
+end submodule s_fraggle_set
\ No newline at end of file
diff --git a/docs/src/fraggle_setup.f90 b/docs/src/fraggle_setup.f90
new file mode 100644
index 000000000..65e107b03
--- /dev/null
+++ b/docs/src/fraggle_setup.f90
@@ -0,0 +1,78 @@
+submodule (fraggle_classes) s_fraggle_setup
+   use swiftest
+contains
+
+   module subroutine fraggle_setup_reset_fragments(self)
+      !! author: David A. Minton
+      !!
+      !! Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: self
+
+      self%xb(:,:) = 0.0_DP
+      self%vb(:,:) = 0.0_DP
+      self%rot(:,:) = 0.0_DP
+      self%x_coll(:,:) = 0.0_DP
+      self%v_coll(:,:) = 0.0_DP
+      self%v_r_unit(:,:) = 0.0_DP
+      self%v_t_unit(:,:) = 0.0_DP
+      self%v_n_unit(:,:) = 0.0_DP
+
+      self%rmag(:) = 0.0_DP
+      self%rotmag(:) = 0.0_DP
+      self%v_r_mag(:) = 0.0_DP
+      self%v_t_mag(:) = 0.0_DP
+
+      self%ke_orbit = 0.0_DP
+      self%ke_spin = 0.0_DP
+      self%L_orbit(:) = 0.0_DP
+      self%L_spin(:) = 0.0_DP
+
+      return
+   end subroutine fraggle_setup_reset_fragments
+
+
+   module subroutine fraggle_setup_fragments(self, n, param)
+      !! author: David A. Minton
+      !!
+      !! Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.
+      implicit none
+      ! Arguments
+      class(fraggle_fragments),   intent(inout) :: self 
+      integer(I4B),               intent(in)    :: n
+      class(swiftest_parameters), intent(in) :: param
+
+      call setup_pl(self, n, param)
+      if (n < 0) return
+
+      if (allocated(self%x_coll)) deallocate(self%x_coll)
+      if (allocated(self%v_coll)) deallocate(self%v_coll)
+      if (allocated(self%v_r_unit)) deallocate(self%v_r_unit) 
+      if (allocated(self%v_t_unit)) deallocate(self%v_t_unit) 
+      if (allocated(self%v_n_unit)) deallocate(self%v_n_unit) 
+      if (allocated(self%rmag)) deallocate(self%rmag) 
+      if (allocated(self%rotmag)) deallocate(self%rotmag) 
+      if (allocated(self%v_r_mag)) deallocate(self%v_r_mag) 
+      if (allocated(self%v_t_mag)) deallocate(self%v_t_mag) 
+
+      if (n == 0) return
+
+      allocate(self%x_coll(NDIM,n)) 
+      allocate(self%v_coll(NDIM,n)) 
+      allocate(self%v_r_unit(NDIM,n)) 
+      allocate(self%v_t_unit(NDIM,n)) 
+      allocate(self%v_n_unit(NDIM,n)) 
+      allocate(self%rmag(n)) 
+      allocate(self%rotmag(n)) 
+      allocate(self%v_r_mag(n)) 
+      allocate(self%v_t_mag(n)) 
+
+      call self%reset()
+
+      return
+   end subroutine fraggle_setup_fragments
+
+   
+
+end submodule s_fraggle_setup
\ No newline at end of file
diff --git a/docs/src/fraggle_util.f90 b/docs/src/fraggle_util.f90
new file mode 100644
index 000000000..df8b89c41
--- /dev/null
+++ b/docs/src/fraggle_util.f90
@@ -0,0 +1,316 @@
+submodule(fraggle_classes) s_fraggle_util
+   use swiftest
+contains
+
+   module subroutine fraggle_util_add_fragments_to_system(frag, colliders, system, param)
+      !! Author: David A. Minton
+      !!
+      !! Adds fragments to the temporary system pl object
+      implicit none
+      ! Arguments
+      class(fraggle_fragments),     intent(in)    :: frag      !! Fraggle fragment system object
+      class(fraggle_colliders),     intent(in)    :: colliders !! Fraggle collider system object
+      class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(in)    :: param     !! Current swiftest run configuration parameters
+      ! Internals
+      integer(I4B) :: i, npl_before, npl_after
+      logical, dimension(:), allocatable :: lexclude
+
+      associate(nfrag => frag%nbody, pl => system%pl, cb => system%cb)
+         npl_after = pl%nbody
+         npl_before = npl_after - nfrag
+         allocate(lexclude(npl_after))
+
+         pl%status(npl_before+1:npl_after) = ACTIVE
+         pl%mass(npl_before+1:npl_after) = frag%mass(1:nfrag)
+         pl%Gmass(npl_before+1:npl_after) = frag%mass(1:nfrag) * param%GU
+         pl%radius(npl_before+1:npl_after) = frag%radius(1:nfrag)
+         do concurrent (i = 1:nfrag)
+            pl%xb(:,npl_before+i) =  frag%xb(:,i) 
+            pl%vb(:,npl_before+i) =  frag%vb(:,i) 
+            pl%xh(:,npl_before+i) =  frag%xb(:,i) - cb%xb(:)
+            pl%vh(:,npl_before+i) =  frag%vb(:,i) - cb%vb(:)
+         end do
+         if (param%lrotation) then
+            pl%Ip(:,npl_before+1:npl_after) = frag%Ip(:,1:nfrag)
+            pl%rot(:,npl_before+1:npl_after) = frag%rot(:,1:nfrag)
+         end if
+         ! This will remove the colliders from the system since we've replaced them with fragments
+         lexclude(1:npl_after) = .false.
+         lexclude(colliders%idx(1:colliders%ncoll)) = .true.
+         where(lexclude(1:npl_after)) 
+            pl%status(1:npl_after) = INACTIVE
+         elsewhere
+            pl%status(1:npl_after) = ACTIVE
+         endwhere
+
+      end associate
+
+      return
+   end subroutine fraggle_util_add_fragments_to_system
+   
+
+   module subroutine fraggle_util_ang_mtm(self) 
+      !! Author: David A. Minton
+      !!
+      !! Calcualtes the current angular momentum of the fragments
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout)  :: self !! Fraggle fragment system object
+      ! Internals
+      integer(I4B) :: i
+
+      associate(frag => self, nfrag => self%nbody)
+         frag%L_orbit(:) = 0.0_DP
+         frag%L_spin(:) = 0.0_DP
+   
+         do i = 1, nfrag
+            frag%L_orbit(:) = frag%L_orbit(:) + frag%mass(i) * (frag%x_coll(:, i) .cross. frag%v_coll(:, i))
+            frag%L_spin(:) = frag%L_spin(:) + frag%mass(i) * frag%radius(i)**2 * frag%Ip(:, i) * frag%rot(:, i)
+         end do
+      end associate
+
+      return
+   end subroutine fraggle_util_ang_mtm
+
+
+   module subroutine fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam)
+      !! 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
+      ! Arguments
+      class(fraggle_fragments),                   intent(in)  :: frag     !! Fraggle fragment system object
+      class(swiftest_nbody_system),               intent(in)  :: system   !! Original swiftest nbody system object
+      class(swiftest_parameters),                 intent(in)  :: param    !! Current swiftest run configuration parameters
+      class(swiftest_nbody_system), allocatable,  intent(out) :: tmpsys   !! Output temporary swiftest nbody system object
+      class(swiftest_parameters),   allocatable,  intent(out) :: tmpparam !! Output temporary configuration run parameters
+      ! Internals
+      logical, dimension(:), allocatable :: linclude
+      integer(I4B) :: npl_tot
+
+      associate(nfrag => frag%nbody, pl => system%pl, npl => system%pl%nbody, cb => system%cb)
+         ! Set up a new system based on the original
+         if (allocated(tmpparam)) deallocate(tmpparam)
+         if (allocated(tmpsys)) deallocate(tmpsys)
+         allocate(tmpparam, source=param)
+         call setup_construct_system(tmpsys, tmpparam)
+
+         ! No test particles necessary for energy/momentum calcs
+         call tmpsys%tp%setup(0, param)
+
+         ! Replace the empty central body object with a copy of the original
+         deallocate(tmpsys%cb)
+         allocate(tmpsys%cb, source=cb)
+
+         ! Make space for the fragments
+         npl_tot = npl + nfrag
+         call tmpsys%pl%setup(npl_tot, tmpparam)
+         allocate(linclude(npl_tot))
+
+         ! Fill up the temporary system with all of the original bodies, leaving the spaces for fragments empty until we add them in later
+         linclude(1:npl) = .true.
+         linclude(npl+1:npl_tot) = .false.
+         call tmpsys%pl%fill(pl, linclude)
+
+         ! Scale the temporary system to the natural units of the current Fraggle calculation
+         call tmpsys%rescale(tmpparam, frag%mscale, frag%dscale, frag%tscale)
+
+      end associate
+
+      return
+   end subroutine fraggle_util_construct_temporary_system
+
+
+   module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore)
+      !! Author: David A. Minton
+      !!
+      !! Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)
+      !! This subrourtine works by building a temporary internal massive body object 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 massive body object in a temporary system object called tmpsys to feed it into symba_energy
+      implicit none
+      ! Arguments
+      class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object
+      class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle collider system object
+      class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(in)    :: param     !! Current swiftest run configuration parameters
+      logical,                      intent(in)    :: lbefore   !! Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa
+      ! Internals
+      integer(I4B) :: i, nplm
+      logical, dimension(:), allocatable :: lexclude
+      logical :: lk_plpl
+      logical, save :: ladd_frags
+      class(swiftest_nbody_system), allocatable, save :: tmpsys
+      class(swiftest_parameters), allocatable, save   :: tmpparam
+      integer(I4B)  :: npl_before, npl_after
+
+      associate(frag => self, nfrag => self%nbody, pl => system%pl, cb => system%cb)
+
+         ! Because we're making a copy of the massive body object 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.
+
+         npl_before = pl%nbody
+         npl_after = npl_before + nfrag
+
+         ! Build the exluded body logical mask
+         allocate(lexclude(npl_after))
+         if (lbefore) then
+            lexclude(1:npl_before) = .false.
+            lexclude(npl_before+1:npl_after) = .true.
+            call fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam)
+         else
+            lexclude(1:npl_after) = .false.
+            lexclude(colliders%idx(1:colliders%ncoll)) = .true.
+            if (.not.allocated(tmpsys)) then
+               write(*,*) "Error in fraggle_util_get_energy_momentum. This must be called with lbefore=.true. at least once before calling it with lbefore=.false."
+               call util_exit(FAILURE)
+            end if
+            call fraggle_util_add_fragments_to_system(frag, colliders, tmpsys, tmpparam)
+         end if 
+
+         call tmpsys%pl%index(param)
+
+         call tmpsys%get_energy_and_momentum(param) 
+
+
+         ! Calculate the current fragment energy and momentum balances
+         if (lbefore) then
+            frag%Lorbit_before(:) = tmpsys%Lorbit(:)
+            frag%Lspin_before(:) = tmpsys%Lspin(:)
+            frag%Ltot_before(:) = tmpsys%Ltot(:)
+            frag%ke_orbit_before = tmpsys%ke_orbit
+            frag%ke_spin_before = tmpsys%ke_spin
+            frag%pe_before = tmpsys%pe
+            frag%Etot_before = tmpsys%te
+         else
+            frag%Lorbit_after(:) = tmpsys%Lorbit(:)
+            frag%Lspin_after(:) = tmpsys%Lspin(:)
+            frag%Ltot_after(:) = tmpsys%Ltot(:)
+            frag%ke_orbit_after = tmpsys%ke_orbit
+            frag%ke_spin_after = tmpsys%ke_spin
+            frag%pe_after = tmpsys%pe
+            frag%Etot_after = tmpsys%te
+         end if
+      end associate
+
+      return
+   end subroutine fraggle_util_get_energy_momentum
+
+
+   module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start)
+      !! Author: David A. Minton
+      !!
+      !! Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints
+      implicit none
+      ! Arguments
+      class(fraggle_fragments), intent(inout) :: self        !! Fraggle fragment system object
+      class(fraggle_colliders), intent(in)    :: colliders   !! Fraggle collider system object
+      integer(I4B),             intent(in)    :: try         !! The current number of times Fraggle has tried to find a solution
+      real(DP),                 intent(inout) :: f_spin      !! Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt
+      real(DP),                 intent(inout) :: r_max_start !! The maximum radial distance that the position calculation starts with. This increases after a failed attempt
+      ! Internals
+      integer(I4B) :: i
+      real(DP), save :: ke_tot_deficit, r_max_start_old, ke_avg_deficit_old
+      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, ke_avg_deficit
+      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
+      associate(frag => self)
+         call random_number(delta_r_max)
+         delta_r_max = sum(colliders%radius(:)) * (1.0_DP + 2e-1_DP * (delta_r_max - 0.5_DP))
+         if (try == 1) then
+            ke_tot_deficit = - (frag%ke_budget - frag%ke_orbit - frag%ke_spin)
+            ke_avg_deficit = ke_tot_deficit
+            delta_r = delta_r_max
+         else
+            ! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try
+            ke_tot_deficit = ke_tot_deficit - (frag%ke_budget - frag%ke_orbit - frag%ke_spin)
+            ke_avg_deficit = ke_tot_deficit / 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)
+         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
+         ke_avg_deficit_old = ke_avg_deficit
+   
+         if (f_spin > epsilon(1.0_DP)) then ! Try reducing the fraction in spin
+            f_spin = f_spin / 2
+         else
+            f_spin = 0.0_DP
+         end if
+      end associate 
+
+      return
+   end subroutine fraggle_util_restructure
+
+
+   module subroutine fraggle_util_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, nfrag
+      real(DP) :: mtot
+
+      mvec_frag(:) = 0.0_DP
+      mtot = sum(m_frag)
+      nfrag = size(m_frag)
+
+      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 fraggle_util_shift_vector_to_origin
+
+
+   module function fraggle_util_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, nfrag
+
+      allocate(vb, mold=v_r_unit)
+      ! Make sure the velocity magnitude stays positive
+      nfrag = size(m_frag)
+      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 fraggle_util_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 fraggle_util_vmag_to_vb
+
+
+end submodule s_fraggle_util
diff --git a/docs/src/fragmentation.f90 b/docs/src/fragmentation.f90
deleted file mode 100644
index 73cef6240..000000000
--- a/docs/src/fragmentation.f90
+++ /dev/null
@@ -1,1178 +0,0 @@
-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 = 1000.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
\ No newline at end of file
diff --git a/docs/src/helio_classes.f90 b/docs/src/helio_classes.f90
index 89f4aa055..1c93bdf6b 100644
--- a/docs/src/helio_classes.f90
+++ b/docs/src/helio_classes.f90
@@ -2,7 +2,7 @@ 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
+   !! Adapted from David E. Kaufmann's Swifter routine: module_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
@@ -15,7 +15,8 @@ module helio_classes
    !********************************************************************************************************************************
    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
+      procedure :: step       => helio_step_system             !! Advance the Helio nbody system forward in time by one step
+      procedure :: initialize => helio_setup_initialize_system !! Performs Helio-specific initilization steps, including converting to DH coordinates
    end type helio_nbody_system
 
    !********************************************************************************************************************************
@@ -35,8 +36,6 @@ module helio_classes
    !! 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
@@ -53,8 +52,6 @@ module helio_classes
    !! 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
@@ -65,32 +62,6 @@ module helio_classes
    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
@@ -206,6 +177,13 @@ module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg)
          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_setup_initialize_system(self, param)
+         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 
+      end subroutine helio_setup_initialize_system
+
       module subroutine helio_step_pl(self, system, param, t, dt)
          use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
          implicit none
@@ -234,6 +212,7 @@ module subroutine helio_step_tp(self, system, param, t, dt)
          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
diff --git a/docs/src/helio_coord.f90 b/docs/src/helio_coord.f90
deleted file mode 100644
index f40781810..000000000
--- a/docs/src/helio_coord.f90
+++ /dev/null
@@ -1,113 +0,0 @@
-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
-
diff --git a/docs/src/helio_kick.f90 b/docs/src/helio_kick.f90
index eebd17f53..8e7571a0b 100644
--- a/docs/src/helio_kick.f90
+++ b/docs/src/helio_kick.f90
@@ -65,9 +65,9 @@ module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg)
       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)
+            call tp%accel_int(pl%Gmass(1:npl), pl%xbeg(:,1:npl), npl)
          else
-            call tp%accel_int(pl%Gmass(:), pl%xend(:,:), npl)
+            call tp%accel_int(pl%Gmass(1:npl), pl%xend(:,1:npl), npl)
          end if
          if (param%loblatecb) call tp%accel_obl(system)
          if (param%lextra_force) call tp%accel_user(system, param, t, lbeg)
@@ -99,7 +99,7 @@ module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg)
       if (self%nbody == 0) return
 
       associate(pl => self, npl => self%nbody)
-         pl%ah(:,:) = 0.0_DP
+         pl%ah(:, 1:npl) = 0.0_DP
          call pl%accel(system, param, t, lbeg)
          if (lbeg) then
             call pl%set_beg_end(xbeg = pl%xh)
@@ -136,7 +136,7 @@ module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg)
       if (self%nbody == 0) return
 
       associate(tp => self, ntp => self%nbody)
-         tp%ah(:,:) = 0.0_DP
+         tp%ah(:, 1:ntp) = 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
diff --git a/docs/src/helio_setup.f90 b/docs/src/helio_setup.f90
new file mode 100644
index 000000000..cf5f57d8a
--- /dev/null
+++ b/docs/src/helio_setup.f90
@@ -0,0 +1,24 @@
+submodule(helio_classes) s_helio_setup
+   use swiftest
+contains
+
+   module subroutine helio_setup_initialize_system(self, param)
+      !! author: David A. Minton
+      !!
+      !! Initialize a Helio nbody system from files, converting all heliocentric quantities to barycentric.
+      !!
+      implicit none
+      ! Arguments
+      class(helio_nbody_system),  intent(inout) :: self   !! Helio nbody system object
+      class(swiftest_parameters), intent(inout) :: param  !! Current run configuration parameters 
+
+      call whm_setup_initialize_system(self, param)
+      call self%pl%h2b(self%cb)
+      call self%tp%h2b(self%cb)
+      call self%pl%sort("mass", ascending=.false.)
+      call self%pl%index(param)
+
+      return
+   end subroutine helio_setup_initialize_system
+
+end submodule s_helio_setup
\ No newline at end of file
diff --git a/docs/src/io.f90 b/docs/src/io.f90
index a80d54893..eacaacf48 100644
--- a/docs/src/io.f90
+++ b/docs/src/io.f90
@@ -13,12 +13,11 @@ module subroutine io_conservation_report(self, param, lterminal)
       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
+      real(DP)                        :: GMtot_now
+      real(DP)                        :: Lerror, Merror
+      character(len=STRMAX)           :: errmsg
       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
@@ -27,68 +26,66 @@ module subroutine io_conservation_report(self, param, lterminal)
                                                          "; 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")
+      associate(system => self, pl => self%pl, cb => self%cb, npl => self%pl%nbody)
+         if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE) .and. (param%energy_out /= "")) then
+            if (param%lfirstenergy .and. (param%out_stat /= "OLD")) then
+               open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "replace", action = "write", err = 667, iomsg = errmsg)
+               write(EGYIU,EGYHEADER, err = 667, iomsg = errmsg)
             else
-               open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "old", action = "write", position = "append")
-               write(EGYIU,EGYHEADER)
+               open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "old", action = "write", position = "append", err = 667, iomsg = errmsg)
             end if
          end if
-         call pl%h2b(cb)
+         call pl%vb2vh(cb)
+         call pl%xh2xb(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
+         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.
+         Ltot_now(:) = system%Ltot(:) + param%Lescape(:)
+         GMtot_now = system%GMtot + param%GMescape 
+
+         if (param%lfirstenergy) then
+            param%Eorbit_orig = Eorbit_now
+            param%GMtot_orig = GMtot_now
+            param%Lorbit_orig(:) = Lorbit_now(:)
+            param%Lspin_orig(:) = Lspin_now(:)
+            param%Ltot_orig(:) = Ltot_now(:)
+            param%lfirstenergy = .false.
          end if
 
-         if (param%energy_out /= "") then
-            write(EGYIU,EGYFMT) param%t, Eorbit_now, Ecollisions, Ltot_now, Mtot_now
-            close(EGYIU)
+         if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE) .and. (param%energy_out /= "")) then
+            write(EGYIU,EGYFMT, err = 667, iomsg = errmsg) param%t, Eorbit_now, param%Ecollisions, Ltot_now, GMtot_now
+            close(EGYIU, err = 667, iomsg = errmsg)
          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(*,*)
+
+         if (.not.param%lfirstenergy) then 
+            Lerror = norm2(Ltot_now(:) - param%Ltot_orig(:)) / norm2(param%Ltot_orig(:))
+            Eorbit_error = (Eorbit_now - param%Eorbit_orig) / abs(param%Eorbit_orig)
+            Ecoll_error = param%Ecollisions / abs(param%Eorbit_orig)
+            Etotal_error = (Eorbit_now - param%Ecollisions - param%Eorbit_orig - param%Euntracked) / abs(param%Eorbit_orig)
+            Merror = (GMtot_now - param%GMtot_orig) / param%GMtot_orig
+            if (lterminal) write(*, EGYTERMFMT) Lerror, Ecoll_error, Etotal_error, Merror
+            if (abs(Merror) > 100 * epsilon(Merror)) then
+               write(*,*) "Severe error! Mass not conserved! Halting!"
+               call pl%xv2el(cb)
+               call param%nciu%open(param)
+               call self%write_hdr(param%nciu, param)
+               call cb%write_frame(param%nciu, param)
+               call pl%write_frame(param%nciu, param)
+               call param%nciu%close(param)
+               call util_exit(FAILURE)
             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
 
+      667 continue
+      write(*,*) "Error writing energy and momentum tracking file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine io_conservation_report
 
 
@@ -105,31 +102,120 @@ module subroutine io_dump_param(self, param_file_name)
       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
-      
+      character(STRMAX)        :: errmsg !! Error message in UDIO procedure
+      integer(I4B)             :: ierr
+
+      open(unit = LUN, file = param_file_name, status='replace', form = 'FORMATTED', err = 667, iomsg = errmsg)
       !! 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)
+      call self%writer(LUN, iotype = "none", v_list = [0], iostat = ierr, iomsg = errmsg)
+      if (ierr == 0) then
+         close(LUN, err = 667, iomsg = errmsg)
+         return
       end if
-      close(LUN)
 
-      return
+      667 continue
+      write(*,*) "Error opening parameter dump file " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine io_dump_param
 
 
-   module subroutine io_dump_swiftest(self, param)
+   module subroutine io_dump_particle_info(self, iu)
+      !! author: David A. Minton
+      !!
+      !! Reads in particle information object information from an open file unformatted file
+      implicit none
+      ! Arguments
+      class(swiftest_particle_info), intent(in) :: self !! Particle metadata information object
+      integer(I4B),                  intent(in) :: iu   !! Open file unit number
+      ! Internals
+      character(STRMAX)         :: errmsg
+
+      write(iu, err = 667, iomsg = errmsg) self%name
+      write(iu, err = 667, iomsg = errmsg) self%particle_type
+      write(iu, err = 667, iomsg = errmsg) self%origin_type
+      write(iu, err = 667, iomsg = errmsg) self%origin_time
+      write(iu, err = 667, iomsg = errmsg) self%origin_xh(:)
+      write(iu, err = 667, iomsg = errmsg) self%origin_vh(:)
+
+      return
+
+      667 continue
+      write(*,*) "Error writing particle metadata information from file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_dump_particle_info
+
+
+   module subroutine io_dump_particle_info_base(self, param, idx)
+      !! 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(swiftest_base),                 intent(inout) :: self  !! Swiftest base object (can be cb, pl, or tp)
+      class(swiftest_parameters),           intent(inout) :: param !! Current run configuration parameters 
+      integer(I4B), dimension(:), optional, intent(in)    :: idx   !! Array of test particle indices to append to the particle file
+
+      ! Internals
+      logical, save             :: lfirst = .true.
+      integer(I4B), parameter   :: LUN = 22
+      integer(I4B)              :: i
+      character(STRMAX)         :: errmsg
+
+      !if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
+         if (lfirst) then
+            select case(param%out_stat)
+            case('APPEND')
+               open(unit = LUN, file = param%particle_out, status = 'OLD', position = 'APPEND', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+            case('NEW', 'UNKNOWN', 'REPLACE')
+               open(unit = LUN, file = param%particle_out, status = param%out_stat, form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+            case default
+               write(*,*) 'Invalid status code',trim(adjustl(param%out_stat))
+               call util_exit(FAILURE)
+            end select
+
+            lfirst = .false.
+         else
+            open(unit = LUN, file = param%particle_out, status = 'OLD', position =  'APPEND', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+         end if
+
+         select type(self)
+         class is (swiftest_cb)
+            write(LUN, err = 667, iomsg = errmsg) self%id
+            call self%info%dump(LUN)
+         class is (swiftest_body)
+            if (present(idx)) then
+               do i = 1, size(idx)
+                  write(LUN, err = 667, iomsg = errmsg) self%id(idx(i))
+                  call self%info(idx(i))%dump(LUN) 
+               end do
+            else
+               do i = 1, self%nbody
+                  write(LUN, err = 667, iomsg = errmsg) self%id(i)
+                  call self%info(i)%dump(LUN) 
+               end do
+            end if
+         end select
+
+         close(unit = LUN, err = 667, iomsg = errmsg)
+      !else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+      if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+         call param%nciu%open(param) 
+         call self%write_particle_info(param%nciu)
+         call param%nciu%close(param)
+      end if
+
+      return
+
+      667 continue
+      write(*,*) "Error reading central body file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_dump_particle_info_base
+
+
+   module subroutine io_dump_base(self, param)
       !! author: David A. Minton
       !!
       !! Dump massive body data to files
@@ -145,6 +231,7 @@ module subroutine io_dump_swiftest(self, param)
       integer(I4B),parameter         :: LUN = 7 !! Unit number for dump file
       integer(I4B)                   :: iu = LUN
       character(len=:), allocatable  :: dump_file_name
+      character(STRMAX)              :: errmsg 
 
       select type(self)
       class is(swiftest_cb)
@@ -154,17 +241,22 @@ module subroutine io_dump_swiftest(self, param)
       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)
+      open(unit = iu, file = dump_file_name, form = "UNFORMATTED", status = 'replace', err = 667, iomsg = errmsg)
+      select type(self)
+      class is (swiftest_body)
+         write(iu, err = 667, iomsg = errmsg) self%nbody
+         call io_write_frame_body(self,iu, param)
+      class is (swiftest_cb)
+         call io_write_frame_cb(self,iu, param)
+      end select
+      close(iu, err = 667, iomsg = errmsg)
 
       return
-   end subroutine io_dump_swiftest
+
+      667 continue
+      write(*,*) "Error dumping body data to file " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_dump_base
 
 
    module subroutine io_dump_system(self, param)
@@ -183,47 +275,44 @@ module subroutine io_dump_system(self, param)
       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
+      real(DP)                      :: tfrac
       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)'
+      character(*),     parameter   :: symbastatfmt   = '("Time = ", ES12.5, "; fraction done = ", F6.3, "; Number of active plm, pl, tp = ", I5, ", ", I5, ", ", I5)'
       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.
+         if (param%lenergy) call self%conservation_report(param, lterminal=.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%in_form  = XV
          dump_param%out_stat = 'APPEND'
+         dump_param%in_type = REAL8_TYPE
          dump_param%T0 = param%t
+
          call dump_param%dump(param_file_name)
 
+         dump_param%out_form = XV
          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)
+         call self%pl%dump(dump_param)
+         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)
+         select type(pl => self%pl)
+         class is (symba_pl)
+            write(*, symbastatfmt) param%t, tfrac, pl%nplm, pl%nbody, self%tp%nbody
+         class default
+            write(*, statusfmt) param%t, tfrac, pl%nbody, self%tp%nbody
+         end select
       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
@@ -292,6 +381,45 @@ module function io_get_args(integrator, param_file_name) result(ierr)
    end function io_get_args
 
 
+   module function io_get_old_t_final_system(self, param) result(old_t_final)
+      !! author: David A. Minton
+      !!
+      !! Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.
+      !!
+      implicit none
+      ! Arguments
+      class(swiftest_nbody_system), intent(in) :: self
+      class(swiftest_parameters),   intent(in) :: param
+      ! Result
+      real(DP)                                 :: old_t_final
+      ! Internals
+      class(swiftest_nbody_system), allocatable :: tmpsys
+      class(swiftest_parameters),   allocatable :: tmpparam
+      integer(I4B), parameter :: LUN = 76
+      integer(I4B) :: ierr, iu = LUN
+      character(len=STRMAX)            :: errmsg
+
+      old_t_final = 0.0_DP
+      allocate(tmpsys, source=self)
+      allocate(tmpparam, source=param)
+
+      ierr = 0
+      open(unit = iu, file = param%outfile, status = 'OLD', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+      do 
+         ierr = tmpsys%read_frame(iu, tmpparam)
+         if (ierr /= 0) exit
+      end do
+      if (is_iostat_end(ierr)) then
+         old_t_final = tmpparam%t
+         return
+      end if
+
+      667 continue
+      write(*,*) "Error reading binary output file. " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end function io_get_old_t_final_system
+
+
    module function io_get_token(buffer, ifirst, ilast, ierr) result(token)
       !! author: David A. Minton
       !!
@@ -368,11 +496,12 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
       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
+            read(unit = unit, fmt = linefmt, end = 1, err = 667, iomsg = iomsg) line
             line_trim = trim(adjustl(line))
             ilength = len(line_trim)
             if ((ilength /= 0)) then 
@@ -385,13 +514,13 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                param_value = io_get_token(line_trim, ifirst, ilast, iostat)
                select case (param_name)
                case ("T0")
-                  read(param_value, *) param%t0
+                  read(param_value, *, err = 667, iomsg = iomsg) param%t0
                   t0_set = .true.
                case ("TSTOP")
-                  read(param_value, *) param%tstop
+                  read(param_value, *, err = 667, iomsg = iomsg) param%tstop
                   tstop_set = .true.
                case ("DT")
-                  read(param_value, *) param%dt
+                  read(param_value, *, err = 667, iomsg = iomsg) param%dt
                   dt_set = .true.
                case ("CB_IN")
                   param%incbfile = param_value
@@ -402,6 +531,9 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                case ("IN_TYPE")
                   call io_toupper(param_value)
                   param%in_type = param_value
+               case ("IN_FORM")
+                  call io_toupper(param_value)
+                  param%in_form = param_value
                case ("ISTEP_OUT")
                   read(param_value, *) param%istep_out
                case ("BIN_OUT")
@@ -416,26 +548,26 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                   call io_toupper(param_value)
                   param%out_stat = param_value
                case ("ISTEP_DUMP")
-                  read(param_value, *) param%istep_dump
+                  read(param_value, *, err = 667, iomsg = iomsg) 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
+                  read(param_value, *, err = 667, iomsg = iomsg) param%rmin
                case ("CHK_RMAX")
-                  read(param_value, *) param%rmax
+                  read(param_value, *, err = 667, iomsg = iomsg) param%rmax
                case ("CHK_EJECT")
-                  read(param_value, *) param%rmaxu
+                  read(param_value, *, err = 667, iomsg = iomsg) param%rmaxu
                case ("CHK_QMIN")
-                  read(param_value, *) param%qmin
+                  read(param_value, *, err = 667, iomsg = iomsg) 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
+                  read(param_value, *, err = 667, iomsg = iomsg) param%qmin_alo
                   ifirst = ilast + 1
                   param_value = io_get_token(line, ifirst, ilast, iostat)
-                  read(param_value, *) param%qmin_ahi
+                  read(param_value, *, err = 667, iomsg = iomsg) param%qmin_ahi
                case ("ENC_OUT")
                   param%enc_out = param_value
                case ("DISCARD_OUT")
@@ -452,11 +584,11 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                   call io_toupper(param_value)
                   if (param_value == "YES" .or. param_value == 'T' ) param%lrhill_present = .true.
                case ("MU2KG")
-                  read(param_value, *) param%MU2KG
+                  read(param_value, *, err = 667, iomsg = iomsg) param%MU2KG
                case ("TU2S")
-                  read(param_value, *) param%TU2S
+                  read(param_value, *, err = 667, iomsg = iomsg) param%TU2S
                case ("DU2M")
-                  read(param_value, *) param%DU2M
+                  read(param_value, *, err = 667, iomsg = iomsg) param%DU2M
                case ("ENERGY")
                   call io_toupper(param_value)
                   if (param_value == "YES" .or. param_value == 'T') param%lenergy = .true.
@@ -476,47 +608,50 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                   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 
+                  read(param_value, *, err = 667, iomsg = iomsg) param%Eorbit_orig 
+               case("GMTOT_ORIG")
+                  read(param_value, *, err = 667, iomsg = iomsg) param%GMtot_orig 
                case("LTOT_ORIG")
-                  read(param_value, *) param%Ltot_orig(1)
+                  read(param_value, *, err = 667, iomsg = iomsg) param%Ltot_orig(1)
                   do i = 2, NDIM
-                     ifirst = ilast + 1
+                     ifirst = ilast + 2
                      param_value = io_get_token(line, ifirst, ilast, iostat) 
-                     read(param_value, *) param%Ltot_orig(i)
+                     read(param_value, *, err = 667, iomsg = iomsg) param%Ltot_orig(i)
                   end do
-                     param%Lmag_orig = norm2(param%Ltot_orig(:))
                case("LORBIT_ORIG")
-                  read(param_value, *) param%Lorbit_orig(1)
+                  read(param_value, *, err = 667, iomsg = iomsg) param%Lorbit_orig(1)
                   do i = 2, NDIM
-                     ifirst = ilast + 1
+                     ifirst = ilast + 2
                      param_value = io_get_token(line, ifirst, ilast, iostat) 
-                     read(param_value, *) param%Lorbit_orig(i)
+                     read(param_value, *, err = 667, iomsg = iomsg) param%Lorbit_orig(i)
                   end do
                case("LSPIN_ORIG")
-                  read(param_value, *) param%Lspin_orig(1)
+                  read(param_value, *, err = 667, iomsg = iomsg) param%Lspin_orig(1)
                   do i = 2, NDIM
-                     ifirst = ilast + 1
+                     ifirst = ilast + 2
                      param_value = io_get_token(line, ifirst, ilast, iostat) 
-                     read(param_value, *) param%Lspin_orig(i)
+                     read(param_value, *, err = 667, iomsg = iomsg) param%Lspin_orig(i)
                   end do
                case("LESCAPE")
-                  read(param_value, *) param%Lescape(1)
+                  read(param_value, *, err = 667, iomsg = iomsg) param%Lescape(1)
                   do i = 2, NDIM
-                     ifirst = ilast + 1
+                     ifirst = ilast + 2
                      param_value = io_get_token(line, ifirst, ilast, iostat) 
-                     read(param_value, *) param%Lescape(i)
+                     read(param_value, *, err = 667, iomsg = iomsg) param%Lescape(i)
                   end do
-               case("MESCAPE")
-                  read(param_value, *) param%Mescape 
+               case("GMESCAPE")
+                  read(param_value, *, err = 667, iomsg = iomsg) param%GMescape 
                case("ECOLLISIONS")
-                  read(param_value, *) param%Ecollisions
+                  read(param_value, *, err = 667, iomsg = iomsg) 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
+                  read(param_value, *, err = 667, iomsg = iomsg) param%Euntracked
+               case ("MAXID")
+                  read(param_value, *, err = 667, iomsg = iomsg) param%maxid 
+               case ("PARTICLE_OUT")
+                  param%particle_out = param_value
+               case ("NPLMAX", "NTPMAX", "GMTINY", "MIN_GMFRAG", "FRAGMENTATION", "SEED", "YARKOVSKY", "YORP") ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters
                case default
-                  write(iomsg,*) "Unknown parameter -> ",param_name
+                  write(*,*) "Unknown parameter -> ",param_name
                   iostat = -1
                   return
                end select
@@ -559,12 +694,12 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
          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
+                  (param%out_type /= NETCDF_FLOAT_TYPE)  .and. (param%out_type /= NETCDF_DOUBLE_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
+            if ((param%out_form /= "EL") .and. (param%out_form /= "XV") .and. (param%out_form /= "XVEL")) then
                write(iomsg,*) 'Invalid out_form: ',trim(adjustl(param%out_form))
                iostat = -1
                return
@@ -574,7 +709,6 @@ 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
@@ -605,23 +739,32 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
          write(*,*) "BIN_OUT        = ",trim(adjustl(param%outfile))
          write(*,*) "OUT_TYPE       = ",trim(adjustl(param%out_type))
          write(*,*) "OUT_FORM       = ",trim(adjustl(param%out_form))
+         write(*,*) "IN_FORM        = ",trim(adjustl(param%in_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
+         if (param%rmin > 0.0) then
+            write(*,*) "CHK_RMIN       = ",param%rmin
+         else
+            write(*,*) "! CHK_RMIN value will be the central body radius"
+         end if
+         if (param%rmax > 0.0_DP) write(*,*) "CHK_RMAX       = ",param%rmax
+         if (param%rmaxu > 0.0_DP) write(*,*) "CHK_EJECT      = ",param%rmaxu
+         if ((param%qmin > 0.0_DP) .or. (param%qmin_alo > 0.0_DP) .or. (param%qmin_ahi > 0.0_DP)) write(*,*) "CHK_QMIN_COORD = ",trim(adjustl(param%qmin_coord))
+         if (param%qmin > 0.0_DP) write(*,*) "CHK_QMIN       = ",param%qmin
+         if ((param%qmin_alo > 0.0_DP) .or. (param%qmin_ahi > 0.0_DP))  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
+         if (param%lenergy) write(*,*) "ENERGY_OUT     = ",trim(adjustl(param%energy_out))
          write(*,*) "MU2KG          = ",param%MU2KG       
          write(*,*) "TU2S           = ",param%TU2S        
          write(*,*) "DU2M           = ",param%DU2M        
+         if (trim(adjustl(param%outfile)) == "") then
+            param%outfile = BIN_OUTFILE
+         end if
          if (trim(adjustl(param%enc_out)) /= "") then
             write(*,*) "ENC_OUT        = ",trim(adjustl(param%enc_out))
          else
@@ -632,6 +775,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
             write(*,*) "BIG_DISCARD    = ",param%lbig_discard
          else
             write(*,*) "! DISCARD_OUT not set: Discards will not be recorded to file"
+            param%lbig_discard = .false.
             write(*,*) "! BIG_DISCARD    = ",param%lbig_discard
          end if
 
@@ -643,13 +787,14 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
 
          ! 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)
+         if (param%lgr) then
+            ! 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)
+         end if
 
          associate(integrator => v_list(1))
-            if (integrator == RMVS) then
+            if ((integrator == RMVS) .or. (integrator == SYMBA)) then
                if (.not.param%lclose) then
                   write(iomsg,*) 'This integrator requires CHK_CLOSE to be enabled.'
                   iostat = -1
@@ -670,6 +815,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
          iostat = 0
       end associate
 
+      667 continue
       return 
    end subroutine io_param_reader
 
@@ -693,10 +839,9 @@ module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
       ! 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
+      character(len=NAMELEN) :: param_name
+      character(LEN=STRMAX)  :: param_value, v1, v2, v3
       type character_array
          character(25) :: value
       end type character_array
@@ -704,72 +849,88 @@ module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
       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)
+         write(param_name, *) "T0"; write(param_value,Rfmt) param%t0; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "TSTOP"; write(param_value, Rfmt) param%tstop; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "DT"; write(param_value, Rfmt) param%dt; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "CB_IN"; write(param_value, *) trim(adjustl(param%incbfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "PL_IN"; write(param_value, *) trim(adjustl(param%inplfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "TP_IN"; write(param_value, *) trim(adjustl(param%intpfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "IN_TYPE"; write(param_value, *) trim(adjustl(param%in_type)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "IN_FORM"; write(param_value, *) trim(adjustl(param%in_form)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         if (param%istep_dump > 0) write(param_name, *) "ISTEP_DUMP"; write(param_value, Ifmt) param%istep_dump; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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)
+            write(param_name, *) "ISTEP_OUT"; write(param_value, Ifmt) param%istep_out; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "BIN_OUT"; write(param_value, *) trim(adjustl(param%outfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "OUT_TYPE"; write(param_value, *) trim(adjustl(param%out_type)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "OUT_FORM"; write(param_value, *) trim(adjustl(param%out_form)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "OUT_STAT"; write(param_value, *) "APPEND"; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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)
+         write(param_name, *) "PARTICLE_OUT"; write(param_value, *) trim(adjustl(param%particle_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         if (param%enc_out /= "") then
+            write(param_name, *) "ENC_OUT"; write(param_value, *) trim(adjustl(param%enc_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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)
+         write(param_name, *) "CHK_RMIN"; write(param_value, Rfmt) param%rmin; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "CHK_RMAX"; write(param_value, Rfmt) param%rmax; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "CHK_EJECT"; write(param_value, Rfmt) param%rmaxu; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "CHK_QMIN"; write(param_value, Rfmt) param%qmin; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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)
+            write(param_name, *) "CHK_QMIN_COORD"; write(param_value, *) trim(adjustl(param%qmin_coord)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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)
+            write(param_name, *) "CHK_QMIN_RANGE"; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name), adjustl(param_array(1)%value), adjustl(param_array(2)%value)
+         end if
+         write(param_name, *) "MU2KG"; write(param_value, Rfmt) param%MU2KG; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "TU2S"; write(param_value, Rfmt) param%TU2S ; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "DU2M"; write(param_value, Rfmt) param%DU2M; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "RHILL_PRESENT"; write(param_value, Lfmt) param%lrhill_present; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "EXTRA_FORCE"; write(param_value, Lfmt) param%lextra_force; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         if (param%discard_out /= "") then 
+            write(param_name, *) "DISCARD_OUT"; write(param_value, *) trim(adjustl(param%discard_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         end if
+         if (param%discard_out /= "") then
+            write(param_name, *) "BIG_DISCARD"; write(param_value, Lfmt) param%lbig_discard; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_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)
+         write(param_name, *) "CHK_CLOSE"; write(param_value, Lfmt) param%lclose; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "ENERGY"; write(param_value, Lfmt)  param%lenergy; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         if (param%lenergy .and. (param%energy_out /= "")) then 
+            write(param_name, *) "ENERGY_OUT"; write(param_value, *) trim(adjustl(param%energy_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         end if
+         write(param_name, *) "GR"; write(param_value, Lfmt)  param%lgr; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "ROTATION"; write(param_value, Lfmt)  param%lrotation; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "TIDES"; write(param_value, Lfmt)  param%ltides; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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, *) "FIRSTENERGY"; write(param_value, Lfmt) param%lfirstenergy; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "EORBIT_ORIG"; write(param_value, Rfmt) param%Eorbit_orig; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "GMTOT_ORIG"; write(param_value, Rfmt) param%GMtot_orig; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "LTOT_ORIG"; write(v1, Rfmt) param%Ltot_orig(1); write(v2, Rfmt) param%Ltot_orig(2); write(v3, Rfmt) param%Ltot_orig(3)  
+               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
+            write(param_name, *) "LORBIT_ORIG"; write(v1, Rfmt) param%Lorbit_orig(1); write(v2, Rfmt) param%Lorbit_orig(2); write(v3, Rfmt) param%Lorbit_orig(3)  
+               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
+            write(param_name, *) "LSPIN_ORIG"; write(v1, Rfmt) param%Lspin_orig(1); write(v2, Rfmt) param%Lspin_orig(2); write(v3, Rfmt) param%Lspin_orig(3)  
+               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
+            write(param_name, *) "LESCAPE"; write(v1, Rfmt) param%Lescape(1); write(v2, Rfmt) param%Lescape(2); write(v3, Rfmt) param%Lescape(3)  
+               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
    
-            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)
+            write(param_name, *) "GMESCAPE"; write(param_value, Rfmt) param%GMescape; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "ECOLLISIONS"; write(param_value, Rfmt) param%Ecollisions; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            write(param_name, *) "EUNTRACKED"; write(param_value, Rfmt) param%Euntracked; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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)
+         write(param_name, *) "FIRSTKICK"; write(param_value, Lfmt) param%lfirstkick; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "MAXID"; write(param_value, Ifmt) param%maxid; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
    
-
-
          iostat = 0
          iomsg = "UDIO not implemented"
       end associate
 
+      667 continue
+
       return
    end subroutine io_param_writer
 
 
-   module subroutine io_read_body_in(self, param) 
+   module subroutine io_read_in_body(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 
@@ -783,11 +944,12 @@ module subroutine io_read_body_in(self, param)
       ! Internals
       integer(I4B), parameter       :: LUN = 7              !! Unit number of input file
       integer(I4B)                  :: iu = LUN
-      integer(I4B)                  :: i, ierr, nbody
+      integer(I4B)                  :: i, nbody
       logical                       :: is_ascii, is_pl
       character(len=:), allocatable :: infile
       real(DP)                      :: t
-      real(QP)                      :: val
+      character(STRMAX)             :: errmsg
+      integer(I4B)                  :: ierr
 
       ! Select the appropriate polymorphic class (test particle or massive body)
       select type(self)
@@ -799,70 +961,41 @@ module subroutine io_read_body_in(self, param)
          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
+         open(unit = iu, file = infile, status = 'old', form = 'FORMATTED', err = 667, iomsg = errmsg)
+         read(iu, *, err = 667, iomsg = errmsg) nbody
+      case (REAL4_TYPE, REAL8_TYPE)  
+         open(unit=iu, file=infile, status='old', form='UNFORMATTED', err = 667, iomsg = errmsg)
+         read(iu, err = 667, iomsg = errmsg) nbody
       case default
-         write(*,*) trim(adjustl(param%in_type)) // ' is an unrecognized file type'
-         ierr = -1
+         write(errmsg,*) trim(adjustl(param%in_type)) // ' is an unrecognized file type'
+         goto 667
       end select
-      close(iu)
 
-      100 if (ierr /= 0 ) then
-         write(*,*) 'Error reading in initial conditions from ',trim(adjustl(infile))
-         call util_exit(FAILURE)
+      call self%setup(nbody, param)
+      ierr = 0
+      if (nbody > 0) then
+         ierr = self%read_frame(iu, param)
+         self%status(:) = ACTIVE
+         self%lmask(:) = .true.
+         do i = 1, nbody
+            call self%info(i)%set_value(status="ACTIVE")
+         end do
       end if
+      close(iu, err = 667, iomsg = errmsg)
+
+
+      if (ierr == 0) return
 
+      667 continue
+      write(*,*) 'Error reading in initial conditions file: ',trim(adjustl(errmsg))
       return
-   end subroutine io_read_body_in
+   end subroutine io_read_in_body
 
 
-   module subroutine io_read_cb_in(self, param) 
+   module subroutine io_read_in_cb(self, param) 
       !! author: David A. Minton
       !!
       !! Reads in central body data 
@@ -876,42 +1009,55 @@ module subroutine io_read_cb_in(self, 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
+      character(len=STRMAX)   :: errmsg
+      integer(I4B)            :: ierr, idold
+      character(len=NAMELEN)  :: name
+
+      if (param%in_type == 'ASCII') then
+         self%id = 0
+         param%maxid = 0
+         open(unit = iu, file = param%incbfile, status = 'old', form = 'FORMATTED', err = 667, iomsg = errmsg)
+         read(iu, *, err = 667, iomsg = errmsg) name
+         call self%info%set_value(name=name)
+         read(iu, *, err = 667, iomsg = errmsg) self%Gmass
+         self%mass = real(self%Gmass / param%GU, kind=DP)
+         read(iu, *, err = 667, iomsg = errmsg) self%radius
+         read(iu, *, err = 667, iomsg = errmsg) self%j2rp2
+         read(iu, *, err = 667, iomsg = errmsg) 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)
+            read(iu, *, err = 667, iomsg = errmsg) self%Ip(1), self%Ip(2), self%Ip(3)
+            read(iu, *, err = 667, iomsg = errmsg) self%rot(1), self%rot(2), self%rot(3)
          end if
+         ierr = 0
       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)
+         open(unit = iu, file = param%incbfile, status = 'old', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+         ierr = self%read_frame(iu, param)
       end if
-      if (self%j2rp2 /= 0.0_DP) param%loblatecb = .true.
+      close(iu, err = 667, iomsg = errmsg)
+
+      if (ierr == 0) then
 
+   
+         if (self%j2rp2 /= 0.0_DP) param%loblatecb = .true.
+         if (param%rmin < 0.0) param%rmin = self%radius
+         
+         select type(cb => self)
+         class is (symba_cb)
+            cb%GM0 = cb%Gmass
+            cb%dGM = 0.0_DP
+            cb%R0 = cb%radius
+            cb%L0(:) = cb%Ip(3) * cb%mass * cb%radius**2 * cb%rot(:)
+         end select
+      end if
       return
-   end subroutine io_read_cb_in
+
+      667 continue
+      write(*,*) "Error reading central body file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_read_in_cb
 
 
-   function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, &
+   function io_read_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, &
       xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr)
       !! author: David A. Minton
       !!
@@ -921,8 +1067,8 @@ function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, &
       !! 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
+      integer(I4B),           intent(out) :: id1, id2
+      real(DP),               intent(out) :: t, Gmass1, Gmass2, radius1, radius2
       real(DP), dimension(:), intent(out) :: xh1, xh2, vh1, vh2
       character(*),           intent(in)  :: enc_out, out_type
       ! Result
@@ -947,12 +1093,12 @@ function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, &
          return
       end if
 
-      read(iu, iostat = ierr) name1, xh1(1), xh1(2), xh1(3), vh1(1), vh1(2), vh1(3), mass1, radius1
+      read(iu, iostat = ierr) id1, xh1(1), xh1(2), xh1(3), vh1(1), vh1(2), vh1(3), Gmass1, 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
+      read(iu, iostat = ierr) id2, xh2(2), xh2(2), xh2(3), vh2(2), vh2(2), vh2(3), Gmass2, radius2
       if (ierr /= 0) then
          close(unit = iu, iostat = ierr)
          return
@@ -962,7 +1108,7 @@ function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, &
    end function io_read_encounter
 
 
-   module subroutine io_read_frame_body(self, iu, param, form, ierr)
+   module function io_read_frame_body(self, iu, param) result(ierr)
       !! author: David A. Minton
       !!
       !! Reads a frame of output of either test particle or massive body data from a binary output file
@@ -974,65 +1120,146 @@ module subroutine io_read_frame_body(self, iu, param, form, ierr)
       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
+      ! Result
+      integer(I4B)                              :: ierr  !! Error code: returns 0 if the read is successful
+      ! Internals
+      character(len=STRMAX)   :: errmsg
+      character(len=NAMELEN), dimension(self%nbody)  :: name
+      integer(I4B) :: i
+      real(QP)                      :: val
+
+      if (self%nbody == 0) return
+
+      if ((param%in_form /= EL) .and. (param%in_form /= XV)) then
+         write(errmsg, *) trim(adjustl(param%in_form)) // " is not a recognized format code for input files."
+         goto 667
+      end if
 
       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 (param%in_form == EL) then
             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 if
+
+         select case(param%in_type)
+         case (REAL4_TYPE, REAL8_TYPE)
+            read(iu, err = 667, iomsg = errmsg) self%id(:)
+            read(iu, err = 667, iomsg = errmsg) name(:)
+            do i = 1, n
+               call self%info(i)%set_value(name=name(i))
+            end do
+
+            select case (param%in_form)
+            case (XV)
+               read(iu, err = 667, iomsg = errmsg) self%xh(1, :)
+               read(iu, err = 667, iomsg = errmsg) self%xh(2, :)
+               read(iu, err = 667, iomsg = errmsg) self%xh(3, :)
+               read(iu, err = 667, iomsg = errmsg) self%vh(1, :)
+               read(iu, err = 667, iomsg = errmsg) self%vh(2, :)
+               read(iu, err = 667, iomsg = errmsg) self%vh(3, :)
+            case (EL) 
+               read(iu, err = 667, iomsg = errmsg) self%a(:)
+               read(iu, err = 667, iomsg = errmsg) self%e(:)
+               read(iu, err = 667, iomsg = errmsg) self%inc(:)
+               read(iu, err = 667, iomsg = errmsg) self%capom(:)
+               read(iu, err = 667, iomsg = errmsg) self%omega(:)
+               read(iu, err = 667, iomsg = errmsg) self%capm(:)
+            end select
+
+            select type(pl => self)  
+            class is (swiftest_pl)  ! Additional output if the passed polymorphic object is a massive body
+               read(iu, err = 667, iomsg = errmsg) pl%Gmass(:)
+               pl%mass(:) = pl%Gmass(:) / param%GU 
+               if (param%lrhill_present) read(iu, err = 667, iomsg = errmsg) pl%rhill(:)
+               read(iu, err = 667, iomsg = errmsg) pl%radius(:)
+               if (param%lrotation) then
+                  read(iu, err = 667, iomsg = errmsg) pl%Ip(1, :)
+                  read(iu, err = 667, iomsg = errmsg) pl%Ip(2, :)
+                  read(iu, err = 667, iomsg = errmsg) pl%Ip(3, :)
+                  read(iu, err = 667, iomsg = errmsg) pl%rot(1, :)
+                  read(iu, err = 667, iomsg = errmsg) pl%rot(2, :)
+                  read(iu, err = 667, iomsg = errmsg) pl%rot(3, :)
+               end if
+               if (param%ltides) then
+                  read(iu, err = 667, iomsg = errmsg) pl%k2(:)
+                  read(iu, err = 667, iomsg = errmsg) pl%Q(:)
+               end if
+            end select
+
+            param%maxid = max(param%maxid, maxval(self%id(1:n)))
+
+         case (ASCII_TYPE)
+            do i = 1, n
+               select type(self)
+               class is (swiftest_pl)
+                  if (param%lrhill_present) then
+                     read(iu, *, err = 667, iomsg = errmsg) name(i), val, self%rhill(i)
+                  else
+                     read(iu, *, err = 667, iomsg = errmsg) name(i), val
+                  end if
+                  call self%info(i)%set_value(name=name(i))
+                  self%Gmass(i) = real(val, kind=DP)
+                  self%mass(i) = real(val / param%GU, kind=DP)
+                  read(iu, *, err = 667, iomsg = errmsg) self%radius(i)
+               class is (swiftest_tp)
+                  read(iu, *, err = 667, iomsg = errmsg) self%id(i)
+               end select
+
+               select case(param%in_form)
+               case (XV)
+                  read(iu, *, err = 667, iomsg = errmsg) self%xh(1, i), self%xh(2, i), self%xh(3, i)
+                  read(iu, *, err = 667, iomsg = errmsg) self%vh(1, i), self%vh(2, i), self%vh(3, i)
+               case (EL)
+                  read(iu, *, err = 667, iomsg = errmsg) self%a(i), self%e(i), self%inc(i)
+                  read(iu, *, err = 667, iomsg = errmsg) self%capom(i), self%omega(i), self%capm(i)
+               end select
+
+               select type (self)
+               class is (swiftest_pl)
+                  if (param%lrotation) then
+                     read(iu, *, err = 667, iomsg = errmsg) self%Ip(1, i), self%Ip(2, i), self%Ip(3, i)
+                     read(iu, *, err = 667, iomsg = errmsg) self%rot(1, i), self%rot(2, i), self%rot(3, i)
+                  end if
+                  if (param%ltides) then
+                     read(iu, *, err = 667, iomsg = errmsg) self%k2(i)
+                     read(iu, *, err = 667, iomsg = errmsg) self%Q(i)
+                  end if
+               end select
+               param%maxid = param%maxid + 1
+               self%id(i) = param%maxid
+            end do
          end select
-      end associate
 
-      100 if (ierr /=0) then
-         write(*,*) 'Error reading Swiftest body data'
-         call util_exit(FAILURE)
-      end if
+         if (param%in_form == EL) then
+            self%inc(1:n)   = self%inc(1:n) * DEG2RAD
+            self%capom(1:n) = self%capom(1:n) * DEG2RAD
+            self%omega(1:n) = self%omega(1:n) * DEG2RAD
+            self%capm(1:n)  = self%capm(1:n) * DEG2RAD
+         end if
+      end associate
 
+      ierr = 0
       return
-   end subroutine io_read_frame_body
+
+      667 continue
+      select type (self)
+      class is (swiftest_pl)
+         write(*,*) "Error reading massive body file: " // trim(adjustl(errmsg))
+      class is (swiftest_tp)
+         write(*,*) "Error reading test particle file: " // trim(adjustl(errmsg))
+      class default
+         write(*,*) "Error reading body file: " // trim(adjustl(errmsg))
+      end select
+      call util_exit(FAILURE)
+   end function io_read_frame_body
 
 
-   module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+   module function io_read_frame_cb(self, iu, param) result(ierr)
       !! author: David A. Minton
       !!
       !! Reads a frame of output of central body data to the binary output file
@@ -1044,71 +1271,87 @@ module subroutine io_read_frame_cb(self, iu, param, form, ierr)
       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
+      ! Result
+      integer(I4B)                              :: ierr  !! Error code: returns 0 if the read is successful
+      ! Internals
+      character(len=STRMAX)  :: errmsg
+      character(len=NAMELEN) :: name
 
-      read(iu, iostat=ierr, err=100) self%id
-      !read(iu, iostat=ierr, err=100) self%name
-      read(iu, iostat=ierr, err=100) self%Gmass
+      read(iu, err = 667, iomsg = errmsg) self%id
+      read(iu, err = 667, iomsg = errmsg) name
+      call self%info%set_value(name=name)
+      read(iu, err = 667, iomsg = errmsg) 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 
+      read(iu, err = 667, iomsg = errmsg) self%radius
+      read(iu, err = 667, iomsg = errmsg) self%j2rp2 
+      read(iu, err = 667, iomsg = errmsg) self%j4rp4 
       if (param%lrotation) then
-         read(iu, iostat=ierr, err=100) self%Ip(:)
-         read(iu, iostat=ierr, err=100) self%rot(:)
+         read(iu, err = 667, iomsg = errmsg) self%Ip(1)
+         read(iu, err = 667, iomsg = errmsg) self%Ip(2)
+         read(iu, err = 667, iomsg = errmsg) self%Ip(3)
+         read(iu, err = 667, iomsg = errmsg) self%rot(1)
+         read(iu, err = 667, iomsg = errmsg) self%rot(2)
+         read(iu, err = 667, iomsg = errmsg) self%rot(3)
       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)
+         read(iu, err = 667, iomsg = errmsg) self%k2
+         read(iu, err = 667, iomsg = errmsg) self%Q
       end if
 
+      ierr = 0
       return
-   end subroutine io_read_frame_cb
+
+      667 continue
+      write(*,*) "Error reading central body file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end function io_read_frame_cb
 
 
-   module subroutine io_read_frame_system(self, iu, param, form, ierr)
+   module function io_read_frame_system(self, iu, param) result(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_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
+      ! Result
+      integer(I4B)                              :: ierr  !! Error code: returns 0 if the read is successful
       ! Internals
-      logical, save             :: lfirst = .true.
+      character(len=STRMAX) :: errmsg
+      integer(I4B) :: npl, ntp
 
-      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
+      ierr = io_read_hdr(iu, param%t, npl, ntp, param%out_form, param%out_type)
+      if (is_iostat_end(ierr)) return ! Reached the end of the frames
+      call self%pl%setup(npl, param)
+      call self%tp%setup(ntp, param)
+
+      if (ierr /= 0) then
+         write(errmsg, *) "Cannot read frame header."
+         goto 667
       end if
-      ierr = io_read_hdr(iu, param%t, self%pl%nbody, self%tp%nbody, param%out_form, param%out_type)
+      ierr = self%cb%read_frame(iu, param)
       if (ierr /= 0) then
-         write(*, *) "Swiftest error:"
-         write(*, *) "   Binary output file already exists or cannot be accessed"
-         return
+         write(errmsg, *) "Cannot read central body frame."
+         goto 667
+      end if
+      ierr = self%pl%read_frame(iu, param)
+      if (ierr /= 0) then
+         write(errmsg, *) "Cannot read massive body frame."
+         goto 667
+      end if
+      ierr = self%tp%read_frame(iu, param)
+      if (ierr /= 0) then
+         write(errmsg, *) "Cannot read test particle frame."
+         goto 667
       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
+
+      667 continue
+      write(*,*) "Error reading system frame: " // trim(adjustl(errmsg))
+   end function io_read_frame_system
 
 
    function io_read_hdr(iu, t, npl, ntp, out_form, out_type) result(ierr)
@@ -1122,33 +1365,41 @@ function io_read_hdr(iu, t, npl, ntp, out_form, out_type) result(ierr)
       ! Arguments
       integer(I4B), intent(in)   :: iu
       integer(I4B), intent(out)  :: npl, ntp
-      character(*), intent(out)  ::  out_form
+      character(*), intent(out)  :: out_form
       real(DP),     intent(out)  :: t
       character(*), intent(in)   :: out_type
       ! Result
       integer(I4B)      :: ierr
       ! Internals
-      real(SP)             :: ttmp
+      real(SP)              :: ttmp
+      character(len=STRMAX) :: errmsg
 
       select case (out_type)
-      case (REAL4_TYPE, SWIFTER_REAL4_TYPE)
-         read(iu, iostat = ierr) ttmp, npl, ntp, out_form
-         if (ierr /= 0) return
+      case (REAL4_TYPE)
+         read(iu, iostat = ierr, err = 667, iomsg = errmsg, end = 333) ttmp
          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 (REAL8_TYPE)
+         read(iu, iostat = ierr, err = 667, iomsg = errmsg, end = 333) t
       case default
-         write(*,*) trim(adjustl(out_type)) // ' is an unrecognized file type'
+         write(errmsg,*) trim(adjustl(out_type)) // ' is an unrecognized file type'
          ierr = -1
       end select
+      read(iu, iostat = ierr, err = 667, iomsg = errmsg) npl
+      read(iu, iostat = ierr, err = 667, iomsg = errmsg) ntp
+      read(iu, iostat = ierr, err = 667, iomsg = errmsg) out_form
+
+      return
+
+      667 continue
+      write(*,*) "Error reading header: " // trim(adjustl(errmsg))
+      333 continue
+      return
 
       return
    end function io_read_hdr
 
-   module subroutine io_read_param_in(self, param_file_name) 
+
+   module subroutine io_read_in_param(self, param_file_name) 
       !! author: David A. Minton
       !!
       !! Read in parameters for the integration
@@ -1162,32 +1413,119 @@ module subroutine io_read_param_in(self, param_file_name)
       ! 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
+      character(STRMAX)       :: errmsg           !! 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
+      open(unit = LUN, file = param_file_name, status = 'old', iostat = ierr, err = 667, iomsg = errmsg)
 
       !! 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
+      !read(LUN,'(DT)', iostat= ierr, iomsg = errmsg) param
+      call self%reader(LUN, iotype= "none", v_list = [self%integrator], iostat = ierr, iomsg = errmsg)
+      if (ierr == 0) return
 
-      return 
-   end subroutine io_read_param_in
+      667 continue
+      write(*,*) "Error reading parameter file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_read_in_param
+
+
+   module subroutine io_read_in_particle_info(self, iu)
+      !! author: David A. Minton
+      !!
+      !! Reads in particle information object information from an open file unformatted file
+      implicit none
+      ! Arguments
+      class(swiftest_particle_info), intent(inout) :: self !! Particle metadata information object
+      integer(I4B),                  intent(in)    :: iu   !! Open file unit number
+      ! Internals
+      character(STRMAX)             :: errmsg
+
+      read(iu, err = 667, iomsg = errmsg) self%name
+      read(iu, err = 667, iomsg = errmsg) self%particle_type
+      read(iu, err = 667, iomsg = errmsg) self%origin_type
+      read(iu, err = 667, iomsg = errmsg) self%origin_time
+      read(iu, err = 667, iomsg = errmsg) self%origin_xh(:)
+      read(iu, err = 667, iomsg = errmsg) self%origin_vh(:)
+
+      return
+
+      667 continue
+      write(*,*) "Error reading particle metadata information from file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_read_in_particle_info
+
+
+   module subroutine io_read_particle_info_system(self, param)
+      !! author: David A. Minton
+      !!
+      !! Reads an old particle information file for a restartd run
+      implicit none
+      ! Arguments
+      class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters 
+      ! Internals
+      integer(I4B), parameter       :: LUN = 22
+      integer(I4B)                  :: i,  id, idx
+      logical                       :: lmatch  
+      character(STRMAX)             :: errmsg
+      type(swiftest_particle_info), allocatable :: tmpinfo
+
+      open(unit = LUN, file = param%particle_out, status = 'OLD', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+
+      allocate(tmpinfo, mold=self%cb%info)
+
+      select type(cb => self%cb)
+      class is (swiftest_cb)
+         select type(pl => self%pl)
+         class is (swiftest_pl)
+            select type(tp => self%tp)
+            class is (swiftest_tp)
+               associate(npl => pl%nbody, ntp => tp%nbody)
+                  do 
+                     lmatch = .false.
+                     read(LUN, err = 667, iomsg = errmsg, end = 333) id
+
+                     if (id == cb%id) then
+                        call cb%info%read_in(LUN) 
+                        lmatch = .true.
+                     else 
+                        if (npl > 0) then
+                           idx = findloc(pl%id(1:npl), id, dim=1)
+                           if (idx /= 0) then
+                              call pl%info(idx)%read_in(LUN) 
+                              lmatch = .true.
+                           end if
+                        end if
+                        if (.not.lmatch .and. ntp > 0) then
+                           idx = findloc(tp%id(1:ntp), id, dim=1)
+                           if (idx /= 0) then
+                              call tp%info(idx)%read_in(LUN) 
+                              lmatch = .true.
+                           end if
+                        end if
+                     end if
+                     if (.not.lmatch) then
+                        call tmpinfo%read_in(LUN) 
+                     end if
+                  end do
+               end associate
+               close(unit = LUN, err = 667, iomsg = errmsg)
+            end select
+         end select
+      end select
+
+      333 continue
+      return
+
+      667 continue
+      write(*,*) "Error reading particle information file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_read_particle_info_system
 
 
    module subroutine io_toupper(string)
@@ -1225,10 +1563,10 @@ module subroutine io_write_discard(self, param)
       implicit none
       ! Arguments
       class(swiftest_nbody_system), intent(inout) :: self     !! Swiftest system object
-      class(swiftest_parameters),   intent(in)    :: param   !! Current run configuration parameters 
+      class(swiftest_parameters),   intent(inout) :: param   !! Current run configuration parameters 
       ! Internals
       integer(I4B), parameter   :: LUN = 40
-      integer(I4B)          :: i, ierr
+      integer(I4B)          :: i
       logical, save :: lfirst = .true. 
       real(DP), dimension(:,:), allocatable :: vh
       character(*), parameter :: HDRFMT    = '(E23.16, 1X, I8, 1X, L1)'
@@ -1237,14 +1575,30 @@ module subroutine io_write_discard(self, param)
       character(*), parameter :: NPLFMT    = '(I8)'
       character(*), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))'
       class(swiftest_body), allocatable :: pltemp
+      character(len=STRMAX)   :: errmsg, out_stat
 
       associate(tp_discards => self%tp_discards, nsp => self%tp_discards%nbody, pl => self%pl, npl => self%pl%nbody)
+
+         ! Record the discarded body metadata information to file
+         if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+            call param%nciu%open(param) 
+            call tp_discards%write_particle_info(param%nciu)
+            call param%nciu%close(param)
+         end if
+   
+         if (param%discard_out == "") return
+
          if (nsp == 0) return
-         select case(param%out_stat)
+         if (lfirst) then
+            out_stat = param%out_stat
+         else
+            out_stat = 'APPEND'
+         end if
+         select case(out_stat)
          case('APPEND')
-            open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', iostat = ierr)
+            open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
          case('NEW', 'REPLACE', 'UNKNOWN')
-            open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', iostat = ierr)
+            open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', err = 667, iomsg = errmsg)
          case default
             write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
             call util_exit(FAILURE)
@@ -1254,82 +1608,93 @@ module subroutine io_write_discard(self, 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)
+            write(LUN, NAMEFMT, err = 667, iomsg = errmsg) SUB, tp_discards%id(i), tp_discards%status(i)
+            write(LUN, VECFMT, err = 667, iomsg = errmsg) tp_discards%xh(1, i), tp_discards%xh(2, i), tp_discards%xh(3, i)
+            write(LUN, VECFMT, err = 667, iomsg = errmsg) 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
+            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)
+            write(LUN, NPLFMT) npl
+            do i = 1, npl
+               write(LUN, PLNAMEFMT, err = 667, iomsg = errmsg) pl%id(i), pl%Gmass(i), pl%radius(i)
+               write(LUN, VECFMT, err = 667, iomsg = errmsg) pl%xh(1, i), pl%xh(2, i), pl%xh(3, i)
+               write(LUN, VECFMT, err = 667, iomsg = errmsg) vh(1, i), vh(2, i), vh(3, i)
+            end do
+            deallocate(vh)
          end if
          close(LUN)
       end associate
 
       return
+
+      667 continue
+      write(*,*) "Error writing discard file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    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
+   module subroutine io_write_encounter(self, pl, encbody, param)
       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
+      class(swiftest_encounter),  intent(in) :: self    !! Swiftest encounter list object
+      class(swiftest_pl),         intent(in) :: pl      !! Swiftest massive body object
+      class(swiftest_body),       intent(in) :: encbody !! Encountering body - Swiftest generic body object (pl or tp) 
+      class(swiftest_parameters), intent(in) :: param   !! Current run configuration parameters 
       ! Internals
-      logical , save    :: lfirst = .true.
-      integer(I4B), parameter :: lun = 30
-      integer(I4B)        :: ierr
-      integer(I4B), save    :: iu = lun
+      logical , save          :: lfirst = .true.
+      integer(I4B), parameter :: LUN = 30
+      integer(I4B)            :: k, ierr
+      character(len=STRMAX)   :: errmsg
 
-      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 (param%enc_out == "" .or. self%nenc == 0) return
+
+      open(unit = LUN, file = param%enc_out, status = 'OLD', position = 'APPEND', form = 'UNFORMATTED', iostat = ierr, iomsg = errmsg)
       if (ierr /= 0) then
-         write(*, *) "Swiftest Error:"
-         write(*, *) "   Unable to open binary encounter file"
-         call util_exit(FAILURE)
+         if (lfirst) then
+            open(unit = LUN, file = param%enc_out, status = 'NEW', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+         else
+            goto 667
+         end if
       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
+
+      associate(ind1 => self%index1, ind2 => self%index2)
+         select type(encbody)
+         class is (swiftest_pl)
+            do k = 1, self%nenc
+               call io_write_frame_encounter(LUN, self%t(k), &
+                                             pl%id(ind1(k)),     encbody%id(ind2(k)), &
+                                             pl%Gmass(ind1(k)),  encbody%Gmass(ind2(k)), &
+                                             pl%radius(ind1(k)), encbody%radius(ind2(k)), &
+                                             self%x1(:,k),       self%x2(:,k), &
+                                             self%v1(:,k),       self%v2(:,k))
+            end do
+         class is (swiftest_tp)
+            do k = 1, self%nenc
+               call io_write_frame_encounter(LUN, self%t(k), &
+                                             pl%id(ind1(k)),     encbody%id(ind2(k)), &
+                                             pl%Gmass(ind1(k)),  0.0_DP, &
+                                             pl%radius(ind1(k)), 0.0_DP, &
+                                             self%x1(:,k),       self%x2(:,k), &
+                                             self%v1(:,k),       self%v2(:,k))
+            end do 
+         end select
+      end associate
+
+      close(unit = LUN, err = 667, iomsg = errmsg)
 
       return
+      667 continue
+      write(*,*) "Error writing encounter file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine io_write_encounter
 
 
@@ -1346,48 +1711,53 @@ module subroutine io_write_frame_body(self, iu, param)
       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 
+      ! Internals
+      character(len=STRMAX)   :: errmsg
 
       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
+         write(iu, err = 667, iomsg = errmsg) self%id(1:n)
+         write(iu, err = 667, iomsg = errmsg) self%info(1:n)%name
+         if ((param%out_form == XV) .or. (param%out_form == XVEL)) then
+            write(iu, err = 667, iomsg = errmsg) self%xh(1, 1:n)
+            write(iu, err = 667, iomsg = errmsg) self%xh(2, 1:n)
+            write(iu, err = 667, iomsg = errmsg) self%xh(3, 1:n)
+            write(iu, err = 667, iomsg = errmsg) self%vh(1, 1:n)
+            write(iu, err = 667, iomsg = errmsg) self%vh(2, 1:n)
+            write(iu, err = 667, iomsg = errmsg) self%vh(3, 1:n)
+         end if
+         if ((param%out_form == EL) .or. (param%out_form == XVEL)) then
+            write(iu, err = 667, iomsg = errmsg) self%a(1:n)
+            write(iu, err = 667, iomsg = errmsg) self%e(1:n)
+            write(iu, err = 667, iomsg = errmsg) self%inc(1:n) * RAD2DEG
+            write(iu, err = 667, iomsg = errmsg) self%capom(1:n) * RAD2DEG
+            write(iu, err = 667, iomsg = errmsg) self%omega(1:n) * RAD2DEG
+            write(iu, err = 667, iomsg = errmsg) self%capm(1:n) * RAD2DEG
+         end if
          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)
+            write(iu, err = 667, iomsg = errmsg) pl%Gmass(1:n)
+            if (param%lrhill_present) write(iu, err = 667, iomsg = errmsg) pl%rhill(1:n)
+            write(iu, err = 667, iomsg = errmsg) 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)
+               write(iu, err = 667, iomsg = errmsg) pl%Ip(1, 1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%Ip(2, 1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%Ip(3, 1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%rot(1, 1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%rot(2, 1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%rot(3, 1:n)
             end if
             if (param%ltides) then
-               write(iu) pl%k2(1:n)
-               write(iu) pl%Q(1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%k2(1:n)
+               write(iu, err = 667, iomsg = errmsg) pl%Q(1:n)
             end if
          end select
       end associate
 
       return
+      667 continue
+      write(*,*) "Error writing body frame: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine io_write_frame_body
 
 
@@ -1403,33 +1773,68 @@ module subroutine io_write_frame_cb(self, iu, param)
       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 
+      ! Internals
+      character(len=STRMAX)   :: errmsg
 
       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 
+         write(iu, err = 667, iomsg = errmsg) cb%id
+         write(iu, err = 667, iomsg = errmsg) cb%info%name
+         write(iu, err = 667, iomsg = errmsg) cb%Gmass
+         write(iu, err = 667, iomsg = errmsg) cb%radius
+         write(iu, err = 667, iomsg = errmsg) cb%j2rp2 
+         write(iu, err = 667, iomsg = errmsg) 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)
+            write(iu, err = 667, iomsg = errmsg) cb%Ip(1)
+            write(iu, err = 667, iomsg = errmsg) cb%Ip(2)
+            write(iu, err = 667, iomsg = errmsg) cb%Ip(3)
+            write(iu, err = 667, iomsg = errmsg) cb%rot(1)
+            write(iu, err = 667, iomsg = errmsg) cb%rot(2)
+            write(iu, err = 667, iomsg = errmsg) cb%rot(3)
          end if
          if (param%ltides) then
-            write(iu) cb%k2
-            write(iu) cb%Q
+            write(iu, err = 667, iomsg = errmsg) cb%k2
+            write(iu, err = 667, iomsg = errmsg) cb%Q
          end if
       end associate
 
       return
+      667 continue
+      write(*,*) "Error writing central body frame: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine io_write_frame_cb
 
 
-   module subroutine io_write_frame_system(self, iu, param)
+  module subroutine io_write_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
+      !! author: David A. Minton
+      !!
+      !! Write a single frame of close encounter data to output binary files
+      !!
+      !! 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) :: iu               !! Open file unit number
+      real(DP),               intent(in) :: t                !! Time of encounter
+      integer(I4B),           intent(in) :: id1, id2         !! ids of the two encountering bodies
+      real(DP),               intent(in) :: Gmass1, Gmass2   !! G*mass of the two encountering bodies
+      real(DP),               intent(in) :: radius1, radius2 !! Radii of the two encountering bodies
+      real(DP), dimension(:), intent(in) :: xh1, xh2         !! Heliocentric position vectors of the two encountering bodies 
+      real(DP), dimension(:), intent(in) :: vh1, vh2         !! Heliocentric velocity vectors of the two encountering bodies  
+      ! Internals
+      character(len=STRMAX)   :: errmsg
+
+      write(iu, err = 667, iomsg = errmsg) t
+      write(iu, err = 667, iomsg = errmsg) id1, xh1(1), xh1(2), xh1(3), vh1(1), vh1(2), Gmass1, radius1
+      write(iu, err = 667, iomsg = errmsg) id2, xh2(1), xh2(2), xh2(3), vh2(1), vh2(2), Gmass2, radius2
+
+      return
+      667 continue
+      write(*,*) "Error writing encounter file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine
+
+
+   module subroutine io_write_frame_system(self, 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
@@ -1439,73 +1844,111 @@ module subroutine io_write_frame_system(self, iu, param)
       !! 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 
+      class(swiftest_nbody_system), intent(inout) :: self   !! Swiftest system object
+      class(swiftest_parameters),   intent(inout) :: 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
+      character(len=STRMAX)            :: errmsg
+      integer(I4B)                     :: iu = BINUNIT   !! Unit number for the output file to write frame to
+      logical                          :: fileExists
+
+      if (.not.lfirst .and. param%lenergy) call self%conservation_report(param, lterminal=.true.)
 
       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)
+      
+      if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
+         if (lfirst) then
+            select case(param%out_stat)
+            case('APPEND')
+               open(unit = iu, file = param%outfile, status = 'OLD', position = 'APPEND', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+            case('NEW', 'REPLACE', 'UNKNOWN')
+               open(unit = iu, file = param%outfile, status = param%out_stat, form = 'UNFORMATTED', err = 667, iomsg = errmsg)
+            case default
+               write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
+               call util_exit(FAILURE)
+            end select
+   
+            lfirst = .false.
+         else
+            open(unit = iu, file = param%outfile, status = 'OLD', position =  'APPEND', form = 'UNFORMATTED', err = 667, iomsg = errmsg)
          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)
+      else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+
+         if (lfirst) then
+            inquire(file=param%outfile, exist=fileExists)
+          
+            select case(param%out_stat)
+            case('APPEND')
+               if (.not.fileExists) then
+                  errmsg = param%outfile // " not found! You must specify OUT_STAT = NEW, REPLACE, or UNKNOWN"
+                  goto 667
+               end if
+            case('NEW')
+               if (fileExists) then
+                  errmsg = param%outfile // " Alread Exists! You must specify OUT_STAT = OLD, REPLACE, or UNKNOWN"
+                  goto 667
+               end if
+            case('REPLACE', 'UNKNOWN')
+               if (fileExists) then
+                  open(file=param%outfile, unit=iu, status='OLD')
+                  close (unit=BINUNIT, status="delete")
+               end if
+            end select
+
+            select case(param%out_stat)
+            case('APPEND')
+               call param%nciu%open(param)
+            case('NEW', 'REPLACE', 'UNKNOWN')
+               call param%nciu%initialize(param)
+               call param%nciu%close(param)
+               call param%nciu%open(param)
+            end select
+            lfirst = .false.
+         else
+            call param%nciu%open(param)
          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
+      if ((param%out_form == EL) .or. (param%out_form == XVEL)) 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)
+      if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then
+         call self%write_hdr(iu, param)
+         call cb%write_frame(iu, param)
+         call pl%write_frame(iu, param)
+         call tp%write_frame(iu, param)
+         close(iu, err = 667, iomsg = errmsg)
+      else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+         call self%write_hdr(param%nciu, param)
+         call cb%write_frame(param%nciu, param)
+         call pl%write_frame(param%nciu, param)
+         call tp%write_frame(param%nciu, param)
+         call param%nciu%close(param)
+      end if
 
       return
+
+      667 continue
+      write(*,*) "Error writing system frame: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine io_write_frame_system
 
 
-   subroutine io_write_hdr(iu, t, npl, ntp, out_form, out_type)
+   module subroutine io_write_hdr_system(self, iu, param) ! 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
@@ -1514,36 +1957,27 @@ subroutine io_write_hdr(iu, t, npl, ntp, out_form, out_type)
       !! 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)
+      class(swiftest_nbody_system), intent(in)    :: self  !! Swiftest nbody system object
+      integer(I4B),                 intent(inout) ::  iu    !! Output file unit number
+      class(swiftest_parameters),   intent(in)    :: param !! Current run configuration parameters
       ! Internals
-      integer(I4B)               :: ierr !! Error code
+      character(len=STRMAX) :: errmsg
    
-      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
+      select case (param%out_type)
+      case (REAL4_TYPE)
+         write(iu, err = 667, iomsg = errmsg) real(param%t, kind=SP)
+      case (REAL8_TYPE)
+         write(iu, err = 667, iomsg = errmsg) param%t
       end select
-      write(iu, iostat = ierr) npl
-      write(iu, iostat = ierr) ntp
-      write(iu, iostat = ierr) out_form
+      write(iu, err = 667, iomsg = errmsg) self%pl%nbody
+      write(iu, err = 667, iomsg = errmsg) self%tp%nbody
+      write(iu, err = 667, iomsg = errmsg) param%out_form
    
       return
-   end subroutine io_write_hdr
+
+      667 continue
+      write(*,*) "Error writing header: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
+   end subroutine io_write_hdr_system
 
 end submodule s_io
diff --git a/docs/src/kick.f90 b/docs/src/kick.f90
index 3945a91d0..5c57918e2 100644
--- a/docs/src/kick.f90
+++ b/docs/src/kick.f90
@@ -2,7 +2,7 @@
    use swiftest
 contains
 
-   module pure subroutine kick_getacch_int_pl(self)
+   module subroutine kick_getacch_int_pl(self)
       !! author: David A. Minton
       !!
       !! Compute direct cross (third) term heliocentric accelerations of massive bodies
@@ -12,26 +12,8 @@ module pure subroutine kick_getacch_int_pl(self)
       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
+
+      call kick_getacch_int_all_pl(self%nbody, self%nplpl, self%k_plpl, self%xh, self%Gmass, self%radius, self%ah)
 
       return
    end subroutine kick_getacch_int_pl
@@ -52,21 +34,127 @@ module pure subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
       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
+
+      if ((self%nbody == 0) .or. (npl == 0)) return
 
       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
+         do i = 1, ntp
+            if (tp%lmask(i)) then
+               do j = 1, npl
+                  block
+                     real(DP) :: rji2
+                     real(DP) :: xr, yr, zr
+                     xr = tp%xh(1, i) - xhp(1, j)
+                     yr = tp%xh(2, i) - xhp(1, j)
+                     zr = tp%xh(3, i) - xhp(1, j)
+                     rji2 = xr**2 + yr**2 + zr**2
+                     call kick_getacch_int_one_tp(rji2, xr, yr, zr, GMpl(i), tp%ah(1,i), tp%ah(2,i), tp%ah(3,i))
+                  end block
+               end do
+            end if
          end do
       end associate
       
       return
    end subroutine kick_getacch_int_tp
 
+
+   module subroutine kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc)
+      !! author: David A. Minton
+      !!
+      !! Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization
+      !!
+      !! 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.f9
+      implicit none
+      integer(I4B),                 intent(in)    :: npl    !! Number of massive bodies
+      integer(I8B),                 intent(in)    :: nplpl  !! Number of massive body interactions to compute
+      integer(I4B), dimension(:,:), intent(in)    :: k_plpl !! Array of interaction pair indices (flattened upper triangular matrix)
+      real(DP),     dimension(:,:), intent(in)    :: x      !! Position vector array
+      real(DP),     dimension(:),   intent(in)    :: Gmass  !! Array of massive body G*mass
+      real(DP),     dimension(:),   intent(in)    :: radius !! Array of massive body radii
+      real(DP),     dimension(:,:), intent(inout) :: acc    !! Acceleration vector array 
+      ! Internals
+      integer(I8B)                      :: k
+      real(DP)                          :: rji2, rlim2
+      real(DP)                          :: xr, yr, zr
+      integer(I4B) :: i, j
+      real(DP), dimension(NDIM,npl) :: ahi, ahj
+
+      ahi(:,:) = 0.0_DP
+      ahj(:,:) = 0.0_DP
+      !$omp parallel do default(private)&
+      !$omp shared(nplpl, k_plpl, x, Gmass, radius)  &
+      !$omp reduction(+:ahi) &
+      !$omp reduction(-:ahj) 
+      do k = 1_I8B, nplpl
+         i = k_plpl(1,k)
+         j = k_plpl(2,k)
+         xr = x(1, j) - x(1, i)
+         yr = x(2, j) - x(2, i)
+         zr = x(3, j) - x(3, i)
+         rji2 = xr**2 + yr**2 + zr**2
+         rlim2 = (radius(i) + radius(j))**2
+         if (rji2 > rlim2) call kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmass(i), Gmass(j), ahi(1,i), ahi(2,i), ahi(3,i), ahj(1,j), ahj(2,j), ahj(3,j))
+      end do
+      !$omp end parallel do
+      
+      acc(:,1:npl) = acc(:,1:npl) + ahi(:,1:npl) + ahj(:,1:npl)
+      return
+   end subroutine kick_getacch_int_all_pl
+
+
+   module pure subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
+      !! author: David A. Minton
+      !!
+      !! Compute direct cross (third) term heliocentric accelerations for a single pair 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.f9
+      implicit none
+      real(DP), intent(in)  :: rji2            !! Square of distance between the two bodies
+      real(DP), intent(in)  :: xr, yr, zr      !! Distances between the two bodies in x, y, and z directions
+      real(DP), intent(in)  :: Gmi             !! G*mass of body i
+      real(DP), intent(in)  :: Gmj             !! G*mass of body j
+      real(DP), intent(inout) :: axi, ayi, azi !! Acceleration vector components of body i
+      real(DP), intent(inout) :: axj, ayj, azj !! Acceleration vector components of body j
+      ! Internals
+      real(DP) :: faci, facj, irij3
+
+      irij3 = 1.0_DP / (rji2 * sqrt(rji2))
+      faci = Gmi * irij3
+      facj = Gmj * irij3
+      axi = axi + facj * xr
+      ayi = ayi + facj * yr
+      azi = azi + facj * zr
+      axj = axj - faci * xr
+      ayj = ayj - faci * yr
+      azj = azj - faci * zr
+
+      return
+   end subroutine kick_getacch_int_one_pl
+
+
+   module pure subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, GMpl, ax, ay, az)
+      !! author: David A. Minton
+      !!
+      !! Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair.
+      !!
+      !! 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
+      real(DP), intent(in)  :: rji2         !! Square of distance between the test particle and massive body
+      real(DP), intent(in)  :: xr, yr, zr   !! Distances between the two bodies in x, y, and z directions
+      real(DP), intent(in)  :: Gmpl         !! G*mass of massive body
+      real(DP), intent(inout) :: ax, ay, az !! Acceleration vector components of test particle
+      ! Internals
+      real(DP) :: fac
+
+      fac = GMpl / (rji2 * sqrt(rji2))
+      ax = ax - fac * xr
+      ay = ay - fac * yr
+      az = az - fac * zr
+      return
+   end subroutine kick_getacch_int_one_tp
+
 end submodule s_kick
diff --git a/docs/src/netcdf.f90 b/docs/src/netcdf.f90
new file mode 100644
index 000000000..80bcdcb5d
--- /dev/null
+++ b/docs/src/netcdf.f90
@@ -0,0 +1,500 @@
+submodule (swiftest_classes) s_netcdf
+   use swiftest
+   use netcdf
+contains
+
+   subroutine check(status)
+      !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton
+      !!
+      !! Checks the status of all NetCDF operations to catch errors
+      implicit none
+      ! Arguments
+      integer, intent (in) :: status
+
+      if(status /= nf90_noerr) then
+         write(*,*) trim(nf90_strerror(status))
+         call util_exit(FAILURE)
+      end if
+
+      return
+   end subroutine check
+
+   module subroutine netcdf_close(self, param)
+      !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton
+      !!
+      !! Closes a NetCDF file
+      implicit none
+      ! Arguments
+      class(netcdf_parameters),   intent(inout) :: self   !! Parameters used to identify a particular NetCDF dataset
+      class(swiftest_parameters), intent(in)    :: param  !! Current run configuration parameters
+
+      call check( nf90_close(self%ncid) )
+
+      return
+   end subroutine netcdf_close
+
+
+   module subroutine netcdf_initialize_output(self, param)
+      !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton
+      !!
+      !! Initialize a NetCDF file system and defines all variables.
+      implicit none
+      ! Arguments
+      class(netcdf_parameters),   intent(inout) :: self    !! Parameters used to identify a particular NetCDF dataset
+      class(swiftest_parameters), intent(in)    :: param           !! Current run configuration parameters 
+      ! Internals
+      logical :: fileExists
+      integer(I4B) :: old_mode
+
+      !! Create the new output file, deleting any previously existing output file of the same name
+      call check( nf90_create(param%outfile, NF90_NETCDF4, self%ncid) )
+      call check( nf90_set_fill(self%ncid, nf90_nofill, old_mode) )
+
+      ! Define the NetCDF dimensions with particle name as the record dimension
+      call check( nf90_def_dim(self%ncid, ID_DIMNAME, NF90_UNLIMITED, self%id_dimid) )     ! 'x' dimension
+      call check( nf90_def_dim(self%ncid, TIME_DIMNAME, NF90_UNLIMITED, self%time_dimid) ) ! 'y' dimension
+      call check( nf90_def_dim(self%ncid, STR_DIMNAME, NAMELEN, self%str_dimid) ) ! Dimension for string variables (aka character arrays)
+
+      select case (param%out_type)
+      case(NETCDF_FLOAT_TYPE)
+         self%out_type = NF90_FLOAT
+      case(NETCDF_DOUBLE_TYPE)
+         self%out_type = NF90_DOUBLE
+      end select
+
+      !! Define the variables
+      call check( nf90_def_var(self%ncid, TIME_DIMNAME, self%out_type, self%time_dimid, self%time_varid) )
+      call check( nf90_def_var(self%ncid, ID_DIMNAME, NF90_INT, self%id_dimid, self%id_varid) )
+      call check( nf90_def_var(self%ncid, NPL_VARNAME, NF90_INT, self%time_dimid, self%npl_varid) )
+      call check( nf90_def_var(self%ncid, NTP_VARNAME, NF90_INT, self%time_dimid, self%ntp_varid) )
+      call check( nf90_def_var(self%ncid, NAME_VARNAME, NF90_CHAR, [self%str_dimid, self%id_dimid], self%name_varid) )
+      call check( nf90_def_var(self%ncid, PTYPE_VARNAME, NF90_CHAR, [self%str_dimid, self%id_dimid], self%ptype_varid) )
+      if ((param%out_form == XV) .or. (param%out_form == XVEL)) then
+         call check( nf90_def_var(self%ncid, XHX_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%xhx_varid) )
+         call check( nf90_def_var(self%ncid, XHY_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%xhy_varid) )
+         call check( nf90_def_var(self%ncid, XHZ_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%xhz_varid) )
+         call check( nf90_def_var(self%ncid, VHX_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%vhx_varid) )
+         call check( nf90_def_var(self%ncid, VHY_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%vhy_varid) )
+         call check( nf90_def_var(self%ncid, VHZ_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%vhz_varid) )
+      end if
+   
+      if ((param%out_form == EL) .or. (param%out_form == XVEL)) then
+         call check( nf90_def_var(self%ncid, A_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%a_varid) )
+         call check( nf90_def_var(self%ncid, E_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%e_varid) )
+         call check( nf90_def_var(self%ncid, INC_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%inc_varid) )
+         call check( nf90_def_var(self%ncid, CAPOM_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%capom_varid) )
+         call check( nf90_def_var(self%ncid, OMEGA_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%omega_varid) )
+         call check( nf90_def_var(self%ncid, CAPM_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%capm_varid) )
+      end if
+
+      call check( nf90_def_var(self%ncid, GMASS_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%Gmass_varid) )
+      if (param%lrhill_present) call check( nf90_def_var(self%ncid, RHILL_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%rhill_varid) )
+      if (param%lclose) call check( nf90_def_var(self%ncid, RADIUS_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%radius_varid) )
+      if (param%lrotation) then
+         call check( nf90_def_var(self%ncid, IP1_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%Ip1_varid) )
+         call check( nf90_def_var(self%ncid, IP2_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%Ip2_varid) )
+         call check( nf90_def_var(self%ncid, IP3_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%Ip3_varid) )
+         call check( nf90_def_var(self%ncid, ROTX_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%rotx_varid) )
+         call check( nf90_def_var(self%ncid, ROTY_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%roty_varid) )
+         call check( nf90_def_var(self%ncid, ROTZ_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%rotz_varid) )
+      end if
+      if (param%ltides) then
+         call check( nf90_def_var(self%ncid, K2_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%k2_varid) )
+         call check( nf90_def_var(self%ncid, Q_VARNAME, self%out_type, [self%id_dimid, self%time_dimid], self%Q_varid) )
+      end if
+      if (param%lenergy) then
+         call check( nf90_def_var(self%ncid, KE_ORB_VARNAME, self%out_type, self%time_dimid, self%KE_orb_varid) )
+         call check( nf90_def_var(self%ncid, KE_SPIN_VARNAME, self%out_type, self%time_dimid, self%KE_spin_varid) )
+         call check( nf90_def_var(self%ncid, PE_VARNAME, self%out_type, self%time_dimid, self%PE_varid) )
+         call check( nf90_def_var(self%ncid, L_ORBX_VARNAME, self%out_type, self%time_dimid, self%L_orbx_varid) )
+         call check( nf90_def_var(self%ncid, L_ORBY_VARNAME, self%out_type, self%time_dimid, self%L_orby_varid) )
+         call check( nf90_def_var(self%ncid, L_ORBZ_VARNAME, self%out_type, self%time_dimid, self%L_orbz_varid) )
+         call check( nf90_def_var(self%ncid, L_SPINX_VARNAME, self%out_type, self%time_dimid, self%L_spinx_varid) )
+         call check( nf90_def_var(self%ncid, L_SPINY_VARNAME, self%out_type, self%time_dimid, self%L_spiny_varid) )
+         call check( nf90_def_var(self%ncid, L_SPINZ_VARNAME, self%out_type, self%time_dimid, self%L_spinz_varid) )
+         call check( nf90_def_var(self%ncid, L_ESCAPEX_VARNAME, self%out_type, self%time_dimid, self%L_escapex_varid) )
+         call check( nf90_def_var(self%ncid, L_ESCAPEY_VARNAME, self%out_type, self%time_dimid, self%L_escapey_varid) )
+         call check( nf90_def_var(self%ncid, L_ESCAPEZ_VARNAME, self%out_type, self%time_dimid, self%L_escapez_varid) )
+         call check( nf90_def_var(self%ncid, ECOLLISIONS_VARNAME, self%out_type, self%time_dimid, self%Ecollisions_varid) )
+         call check( nf90_def_var(self%ncid, EUNTRACKED_VARNAME, self%out_type, self%time_dimid, self%Euntracked_varid) )
+         call check( nf90_def_var(self%ncid, GMESCAPE_VARNAME, self%out_type, self%time_dimid, self%GMescape_varid) )
+      end if
+
+      call check( nf90_def_var(self%ncid, STATUS_VARNAME, NF90_CHAR, [self%str_dimid, self%id_dimid], self%status_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_TYPE_VARNAME, NF90_CHAR, [self%str_dimid, self%id_dimid], self%origin_type_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_TIME_VARNAME, self%out_type, self%id_dimid, self%origin_time_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_XHX_VARNAME, self%out_type, self%id_dimid, self%origin_xhx_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_XHY_VARNAME, self%out_type, self%id_dimid, self%origin_xhy_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_XHZ_VARNAME, self%out_type, self%id_dimid, self%origin_xhz_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_VHX_VARNAME, self%out_type, self%id_dimid, self%origin_vhx_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_VHY_VARNAME, self%out_type, self%id_dimid, self%origin_vhy_varid) )
+      call check( nf90_def_var(self%ncid, ORIGIN_VHZ_VARNAME, self%out_type, self%id_dimid,  self%origin_vhz_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_TIME_VARNAME, self%out_type, self%id_dimid, self%discard_time_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_XHX_VARNAME, self%out_type, self%id_dimid, self%discard_xhx_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_XHY_VARNAME, self%out_type, self%id_dimid, self%discard_xhy_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_XHZ_VARNAME, self%out_type, self%id_dimid, self%discard_xhz_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_VHX_VARNAME, self%out_type, self%id_dimid, self%discard_vhx_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_VHY_VARNAME, self%out_type, self%id_dimid, self%discard_vhy_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_VHZ_VARNAME, self%out_type, self%id_dimid,  self%discard_vhz_varid) )
+      call check( nf90_def_var(self%ncid, DISCARD_BODY_ID_VARNAME, NF90_INT, self%id_dimid, self%discard_body_id_varid) )
+
+      return
+   end subroutine netcdf_initialize_output
+
+
+   module subroutine netcdf_open(self, param)
+      !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton
+      !!
+      !! Opens a NetCDF file and does the variable inquiries to activate variable ids
+      implicit none
+      ! Arguments
+      class(netcdf_parameters),   intent(inout) :: self   !! Parameters used to identify a particular NetCDF dataset
+      class(swiftest_parameters), intent(in)    :: param  !! Current run configuration parameters
+      ! Internals
+      integer(I4B) :: old_mode
+
+      call check( nf90_open(param%outfile, nf90_write, self%ncid) )
+      call check( nf90_set_fill(self%ncid, nf90_nofill, old_mode) )
+
+      call check( nf90_inq_varid(self%ncid, TIME_DIMNAME, self%time_varid))
+      call check( nf90_inq_varid(self%ncid, ID_DIMNAME, self%id_varid))
+      call check( nf90_inq_varid(self%ncid, NPL_VARNAME, self%npl_varid))
+      call check( nf90_inq_varid(self%ncid, NTP_VARNAME, self%ntp_varid))
+      call check( nf90_inq_varid(self%ncid, NAME_VARNAME, self%name_varid))
+      call check( nf90_inq_varid(self%ncid, PTYPE_VARNAME, self%ptype_varid))
+
+      if ((param%out_form == XV) .or. (param%out_form == XVEL)) then
+         call check( nf90_inq_varid(self%ncid, XHX_VARNAME, self%xhx_varid))
+         call check( nf90_inq_varid(self%ncid, XHY_VARNAME, self%xhy_varid))
+         call check( nf90_inq_varid(self%ncid, XHZ_VARNAME, self%xhz_varid))
+         call check( nf90_inq_varid(self%ncid, VHX_VARNAME, self%vhx_varid))
+         call check( nf90_inq_varid(self%ncid, VHY_VARNAME, self%vhy_varid))
+         call check( nf90_inq_varid(self%ncid, VHZ_VARNAME, self%vhz_varid))
+      end if
+      if ((param%out_form == EL) .or. (param%out_form == XVEL)) then
+         call check( nf90_inq_varid(self%ncid, A_VARNAME, self%a_varid))
+         call check( nf90_inq_varid(self%ncid, E_VARNAME, self%e_varid))
+         call check( nf90_inq_varid(self%ncid, INC_VARNAME, self%inc_varid))
+         call check( nf90_inq_varid(self%ncid, CAPOM_VARNAME, self%capom_varid))
+         call check( nf90_inq_varid(self%ncid, OMEGA_VARNAME, self%omega_varid))
+         call check( nf90_inq_varid(self%ncid, CAPM_VARNAME, self%capm_varid))
+      end if
+      call check( nf90_inq_varid(self%ncid, GMASS_VARNAME, self%Gmass_varid))
+      if (param%lclose) call check( nf90_inq_varid(self%ncid, RADIUS_VARNAME, self%radius_varid))
+      if (param%lrhill_present) call check( nf90_inq_varid(self%ncid, RHILL_VARNAME, self%rhill_varid))
+
+      if (param%lrotation) then
+         call check( nf90_inq_varid(self%ncid, IP1_VARNAME, self%Ip1_varid))
+         call check( nf90_inq_varid(self%ncid, IP2_VARNAME, self%Ip2_varid))
+         call check( nf90_inq_varid(self%ncid, IP3_VARNAME, self%Ip3_varid))
+         call check( nf90_inq_varid(self%ncid, ROTX_VARNAME, self%rotx_varid))
+         call check( nf90_inq_varid(self%ncid, ROTY_VARNAME, self%roty_varid))
+         call check( nf90_inq_varid(self%ncid, ROTZ_VARNAME, self%rotz_varid))
+      end if
+
+      if (param%ltides) then
+         call check( nf90_inq_varid(self%ncid, K2_VARNAME, self%k2_varid))
+         call check( nf90_inq_varid(self%ncid, Q_VARNAME, self%Q_varid))
+      end if
+
+      if (param%lenergy) then
+         call check( nf90_inq_varid(self%ncid, KE_ORB_VARNAME, self%KE_orb_varid) )
+         call check( nf90_inq_varid(self%ncid, KE_SPIN_VARNAME, self%KE_spin_varid) )
+         call check( nf90_inq_varid(self%ncid, PE_VARNAME, self%PE_varid) )
+         call check( nf90_inq_varid(self%ncid, L_ORBX_VARNAME, self%L_orbx_varid) )
+         call check( nf90_inq_varid(self%ncid, L_ORBY_VARNAME, self%L_orby_varid) )
+         call check( nf90_inq_varid(self%ncid, L_ORBZ_VARNAME, self%L_orbz_varid) )
+         call check( nf90_inq_varid(self%ncid, L_SPINX_VARNAME, self%L_spinx_varid) )
+         call check( nf90_inq_varid(self%ncid, L_SPINY_VARNAME, self%L_spiny_varid) )
+         call check( nf90_inq_varid(self%ncid, L_SPINZ_VARNAME, self%L_spinz_varid) )
+         call check( nf90_inq_varid(self%ncid, L_ESCAPEX_VARNAME, self%L_escapex_varid) )
+         call check( nf90_inq_varid(self%ncid, L_ESCAPEY_VARNAME, self%L_escapey_varid) )
+         call check( nf90_inq_varid(self%ncid, L_ESCAPEZ_VARNAME, self%L_escapez_varid) )
+         call check( nf90_inq_varid(self%ncid, ECOLLISIONS_VARNAME, self%Ecollisions_varid) )
+         call check( nf90_inq_varid(self%ncid, EUNTRACKED_VARNAME, self%Euntracked_varid) )
+         call check( nf90_inq_varid(self%ncid, GMESCAPE_VARNAME, self%GMescape_varid) )
+      end if
+
+      call check( nf90_inq_varid(self%ncid, STATUS_VARNAME, self%status_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_TYPE_VARNAME, self%origin_type_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_TIME_VARNAME, self%origin_time_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_XHX_VARNAME, self%origin_xhx_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_XHY_VARNAME, self%origin_xhy_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_XHZ_VARNAME, self%origin_xhz_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_VHX_VARNAME, self%origin_vhx_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_VHY_VARNAME, self%origin_vhy_varid))
+      call check( nf90_inq_varid(self%ncid, ORIGIN_VHZ_VARNAME, self%origin_vhz_varid))
+
+      call check( nf90_inq_varid(self%ncid, DISCARD_TIME_VARNAME, self%discard_time_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_XHX_VARNAME, self%discard_xhx_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_XHY_VARNAME, self%discard_xhy_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_XHZ_VARNAME, self%discard_xhz_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_VHX_VARNAME, self%discard_vhx_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_VHY_VARNAME, self%discard_vhy_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_VHZ_VARNAME, self%discard_vhz_varid))
+      call check( nf90_inq_varid(self%ncid, DISCARD_BODY_ID_VARNAME, self%discard_body_id_varid))
+
+      return
+   end subroutine netcdf_open
+
+
+   module subroutine netcdf_write_frame_base(self, iu, param)
+      !! author: Carlisle A. Wishard, Dana Singh, and 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
+      implicit none
+      ! Arguments
+      class(swiftest_base),       intent(in)    :: self   !! Swiftest particle object
+      class(netcdf_parameters),   intent(inout) :: iu     !! Parameters used to identify a particular NetCDF dataset
+      class(swiftest_parameters), intent(in)    :: param  !! Current run configuration parameters
+      ! Internals
+      integer(I4B)                              :: i, j, tslot, strlen, idslot
+      integer(I4B), dimension(:), allocatable   :: ind
+      character(len=:), allocatable             :: charstring
+
+      call self%write_particle_info(iu)
+
+      tslot = int(param%ioutput, kind=I4B) + 1
+
+      select type(self)
+         class is (swiftest_body)
+         associate(n => self%nbody)
+            if (n == 0) return
+
+            allocate(ind(n))
+            call util_sort(self%id(1:n), ind)
+
+            do i = 1, n
+               j = ind(i)
+               idslot = self%id(j) + 1
+
+               if ((param%out_form == XV) .or. (param%out_form == XVEL)) then
+                  call check( nf90_put_var(iu%ncid, iu%xhx_varid, self%xh(1, j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%xhy_varid, self%xh(2, j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%xhz_varid, self%xh(3, j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%vhx_varid, self%vh(1, j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%vhy_varid, self%vh(2, j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%vhz_varid, self%vh(3, j), start=[idslot, tslot]) )
+               end if
+
+               if ((param%out_form == EL) .or. (param%out_form == XVEL)) then
+                  call check( nf90_put_var(iu%ncid, iu%a_varid, self%a(j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%e_varid, self%e(j), start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%inc_varid, self%inc(j) * RAD2DEG, start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%capom_varid, self%capom(j) * RAD2DEG, start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%omega_varid, self%omega(j) * RAD2DEG, start=[idslot, tslot]) )
+                  call check( nf90_put_var(iu%ncid, iu%capm_varid, self%capm(j) * RAD2DEG, start=[idslot, tslot]) ) 
+               end if
+
+               select type(self)  
+               class is (swiftest_pl)  ! Additional output if the passed polymorphic object is a massive body
+                  call check( nf90_put_var(iu%ncid, iu%Gmass_varid, self%Gmass(j), start=[idslot, tslot]) )
+                  if (param%lrhill_present) then 
+                     call check( nf90_put_var(iu%ncid, iu%rhill_varid, self%rhill(j), start=[idslot, tslot]) )
+                  end if
+                  if (param%lclose) then
+                     call check( nf90_put_var(iu%ncid, iu%radius_varid, self%radius(j), start=[idslot, tslot]) )
+                  end if
+                  if (param%lrotation) then
+                     call check( nf90_put_var(iu%ncid, iu%Ip1_varid, self%Ip(1, j), start=[idslot, tslot]) )
+                     call check( nf90_put_var(iu%ncid, iu%Ip2_varid, self%Ip(2, j), start=[idslot, tslot]) )
+                     call check( nf90_put_var(iu%ncid, iu%Ip3_varid, self%Ip(3, j), start=[idslot, tslot]) )
+                     call check( nf90_put_var(iu%ncid, iu%rotx_varid, self%rot(1, j), start=[idslot, tslot]) )
+                     call check( nf90_put_var(iu%ncid, iu%roty_varid, self%rot(2, j), start=[idslot, tslot]) )
+                     call check( nf90_put_var(iu%ncid, iu%rotz_varid, self%rot(3, j), start=[idslot, tslot]) )
+                  end if
+                  if (param%ltides) then
+                     call check( nf90_put_var(iu%ncid, iu%k2_varid, self%k2(j), start=[idslot, tslot]) )
+                     call check( nf90_put_var(iu%ncid, iu%Q_varid, self%Q(j), start=[idslot, tslot]) )
+                  end if
+
+               end select
+            end do
+         end associate
+      class is (swiftest_cb)
+         idslot = self%id + 1
+         call check( nf90_put_var(iu%ncid, iu%id_varid, self%id, start=[idslot]) )
+
+         call check( nf90_put_var(iu%ncid, iu%Gmass_varid, self%Gmass, start=[idslot, tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%radius_varid, self%radius, start=[idslot, tslot]) )
+         if (param%lrotation) then
+            call check( nf90_put_var(iu%ncid, iu%Ip1_varid, self%Ip(1), start=[idslot, tslot]) )
+            call check( nf90_put_var(iu%ncid, iu%Ip2_varid, self%Ip(2), start=[idslot, tslot]) )
+            call check( nf90_put_var(iu%ncid, iu%Ip3_varid, self%Ip(3), start=[idslot, tslot]) )
+            call check( nf90_put_var(iu%ncid, iu%rotx_varid, self%rot(1), start=[idslot, tslot]) )
+            call check( nf90_put_var(iu%ncid, iu%roty_varid, self%rot(2), start=[idslot, tslot]) )
+            call check( nf90_put_var(iu%ncid, iu%rotz_varid, self%rot(3), start=[idslot, tslot]) )
+         end if
+         if (param%ltides) then
+            call check( nf90_put_var(iu%ncid, iu%k2_varid, self%k2, start=[idslot, tslot]) )
+            call check( nf90_put_var(iu%ncid, iu%Q_varid, self%Q, start=[idslot, tslot]) )
+         end if
+
+      end select
+
+      return
+   end subroutine netcdf_write_frame_base
+
+   
+   module subroutine netcdf_write_particle_info_base(self, iu)
+      !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton
+      !!
+      !! Write all current particle to file
+      implicit none
+      ! Arguments
+      class(swiftest_base),       intent(in)    :: self   !! Swiftest particle object
+      class(netcdf_parameters),   intent(inout) :: iu     !! Parameters used to identify a particular NetCDF dataset
+      ! Internals
+      integer(I4B)                              :: i, j, tslot, strlen, idslot
+      integer(I4B), dimension(:), allocatable   :: ind
+      character(len=:), allocatable             :: charstring
+      character(len=NAMELEN)                    :: emptystr, lenstr
+      character(len=:), allocatable :: fmtlabel
+
+      ! This string of spaces of length NAMELEN is used to clear out any old data left behind inside the string variables
+      write(lenstr, *) NAMELEN
+      fmtlabel = "(A" // trim(adjustl(lenstr)) // ")"
+      write(emptystr, fmtlabel) " "
+
+      select type(self)
+         class is (swiftest_body)
+         associate(n => self%nbody)
+            if (n == 0) return
+            allocate(ind(n))
+            call util_sort(self%id(1:n), ind)
+
+            do i = 1, n
+               j = ind(i)
+               idslot = self%id(j) + 1
+               call check( nf90_put_var(iu%ncid, iu%id_varid, self%id(j), start=[idslot]) )
+
+               charstring = trim(adjustl(self%info(j)%name))
+               strlen = len(charstring)
+               call check( nf90_put_var(iu%ncid, iu%name_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+               call check( nf90_put_var(iu%ncid, iu%name_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+               charstring = trim(adjustl(self%info(j)%particle_type))
+               strlen = len(charstring)
+               call check( nf90_put_var(iu%ncid, iu%ptype_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+               call check( nf90_put_var(iu%ncid, iu%ptype_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+               charstring = trim(adjustl(self%info(j)%status))
+               strlen = len(charstring)
+               call check( nf90_put_var(iu%ncid, iu%status_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+               call check( nf90_put_var(iu%ncid, iu%status_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+               charstring = trim(adjustl(self%info(j)%origin_type))
+               strlen = len(charstring)
+               call check( nf90_put_var(iu%ncid, iu%origin_type_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_type_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+               call check( nf90_put_var(iu%ncid, iu%origin_time_varid, self%info(j)%origin_time, start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_xhx_varid, self%info(j)%origin_xh(1), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_xhy_varid, self%info(j)%origin_xh(2), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_xhz_varid, self%info(j)%origin_xh(3), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_vhx_varid, self%info(j)%origin_vh(1), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_vhy_varid, self%info(j)%origin_vh(2), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%origin_vhz_varid, self%info(j)%origin_vh(3), start=[idslot]) )
+
+               call check( nf90_put_var(iu%ncid, iu%discard_time_varid, self%info(j)%discard_time, start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%discard_xhx_varid, self%info(j)%discard_xh(1), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%discard_xhy_varid, self%info(j)%discard_xh(2), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%discard_xhz_varid, self%info(j)%discard_xh(3), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%discard_vhx_varid, self%info(j)%discard_vh(1), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%discard_vhy_varid, self%info(j)%discard_vh(2), start=[idslot]) )
+               call check( nf90_put_var(iu%ncid, iu%discard_vhz_varid, self%info(j)%discard_vh(3), start=[idslot]) )
+            end do
+         end associate
+
+      class is (swiftest_cb)
+         idslot = self%id + 1
+         call check( nf90_put_var(iu%ncid, iu%id_varid, self%id, start=[idslot]) )
+
+         charstring = trim(adjustl(self%info%name))
+         strlen = len(charstring)
+         call check( nf90_put_var(iu%ncid, iu%name_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+         call check( nf90_put_var(iu%ncid, iu%name_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+         charstring = trim(adjustl(self%info%particle_type))
+         strlen = len(charstring)
+         call check( nf90_put_var(iu%ncid, iu%ptype_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+         call check( nf90_put_var(iu%ncid, iu%ptype_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+         charstring = trim(adjustl(self%info%status))
+         strlen = len(charstring)
+         call check( nf90_put_var(iu%ncid, iu%status_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+         call check( nf90_put_var(iu%ncid, iu%status_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+         charstring = trim(adjustl(self%info%origin_type))
+         strlen = len(charstring)
+         call check( nf90_put_var(iu%ncid, iu%origin_type_varid, emptystr, start=[1, idslot], count=[NAMELEN, 1]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_type_varid, charstring, start=[1, idslot], count=[strlen, 1]) )
+
+         call check( nf90_put_var(iu%ncid, iu%origin_time_varid, self%info%origin_time, start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_xhx_varid, self%info%origin_xh(1), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_xhy_varid, self%info%origin_xh(2), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_xhz_varid, self%info%origin_xh(3), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_vhx_varid, self%info%origin_vh(1), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_vhy_varid, self%info%origin_vh(2), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%origin_vhz_varid, self%info%origin_vh(3), start=[idslot]) )
+
+         call check( nf90_put_var(iu%ncid, iu%discard_time_varid, self%info%discard_time, start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%discard_xhx_varid, self%info%discard_xh(1), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%discard_xhy_varid, self%info%discard_xh(2), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%discard_xhz_varid, self%info%discard_xh(3), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%discard_vhx_varid, self%info%discard_vh(1), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%discard_vhy_varid, self%info%discard_vh(2), start=[idslot]) )
+         call check( nf90_put_var(iu%ncid, iu%discard_vhz_varid, self%info%discard_vh(3), start=[idslot]) )
+      end select
+
+      return
+   end subroutine netcdf_write_particle_info_base
+
+
+   module subroutine netcdf_write_hdr_system(self, iu, param) 
+      !! author: David A. Minton
+      !!
+      !! Writes header information (variables that change with time, but not particle id). 
+      !! This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that 
+      !! previously were handled as separate output files.
+      implicit none
+      ! Arguments
+      class(swiftest_nbody_system), intent(in)    :: self  !! Swiftest nbody system object
+      class(netcdf_parameters),     intent(inout) :: iu    !! Parameters used to for writing a NetCDF dataset to file
+      class(swiftest_parameters),   intent(in)    :: param !! Current run configuration parameters
+      ! Internals
+      integer(I4B) :: tslot, old_mode
+
+      tslot = int(param%ioutput, kind=I4B) + 1
+
+      call check( nf90_open(param%outfile, nf90_write, iu%ncid) )
+      call check( nf90_set_fill(iu%ncid, nf90_nofill, old_mode) )
+
+      call check( nf90_put_var(iu%ncid, iu%time_varid, param%t, start=[tslot]) )
+      call check( nf90_put_var(iu%ncid, iu%npl_varid, self%pl%nbody, start=[tslot]) )
+      call check( nf90_put_var(iu%ncid, iu%ntp_varid, self%tp%nbody, start=[tslot]) )
+
+      if (param%lenergy) then
+         call check( nf90_put_var(iu%ncid, iu%KE_orb_varid, self%ke_orbit, start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%KE_spin_varid, self%ke_spin, start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%PE_varid, self%pe, start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_orbx_varid, self%Lorbit(1), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_orby_varid, self%Lorbit(2), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_orbz_varid, self%Lorbit(3), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_spinx_varid, self%Lspin(1), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_spiny_varid, self%Lspin(2), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_spinz_varid, self%Lspin(3), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_escapex_varid, param%Lescape(1), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_escapey_varid, param%Lescape(2), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%L_escapez_varid, param%Lescape(3), start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%Ecollisions_varid, param%Ecollisions, start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%Euntracked_varid, param%Euntracked, start=[tslot]) )
+         call check( nf90_put_var(iu%ncid, iu%GMescape_varid, param%GMescape, start=[tslot]) )
+      end if
+
+      return
+   end subroutine netcdf_write_hdr_system
+
+
+end submodule s_netcdf
\ No newline at end of file
diff --git a/docs/src/obl.f90 b/docs/src/obl.f90
index 035a54b18..977fc620c 100644
--- a/docs/src/obl.f90
+++ b/docs/src/obl.f90
@@ -106,7 +106,8 @@ module subroutine obl_acc_tp(self, system)
 
    end subroutine obl_acc_tp
 
-   module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot)
+
+   module subroutine obl_pot_system(self) 
       !! author: David A. Minton
       !!
       !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body
@@ -118,33 +119,59 @@ module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot)
       !! 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
+      class(swiftest_nbody_system), intent(inout)  :: self   !! Swiftest nbody system object
+      ! Internals
+      integer(I4B) :: i
+      real(DP), dimension(self%pl%nbody) :: oblpot_arr
+
+      associate(system => self, pl => self%pl, npl => self%pl%nbody, cb => self%cb)
+         if (.not. any(pl%lmask(1:npl))) return
+         do concurrent (i = 1:npl, pl%lmask(i))
+            oblpot_arr(i) = obl_pot_one(npl, cb%Gmass, pl%Gmass(i), cb%j2rp2, cb%j4rp4, pl%xh(3,i), 1.0_DP / norm2(pl%xh(:,i)))
+         end do
+         system%oblpot = sum(oblpot_arr, pl%lmask(1:npl))
+      end associate
+         
+      return
+   end subroutine obl_pot_system
+
+
+   elemental function obl_pot_one(npl, GMcb, GMpl, j2rp2, j4rp4, zh, irh) result(oblpot)
+      !! author: David A. Minton
+      !!
+      !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive 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    !! Number of massive bodies
+      real(DP),     intent(in)  :: GMcb   !! G*mass of the central body
+      real(DP),     intent(in)  :: GMpl   !! G*mass of the massive body
+      real(DP),     intent(in)  :: j2rp2  !! J_2 / R**2 of the central body
+      real(DP),     intent(in)  :: j4rp4  !! J_2 / R**4 of the central body
+      real(DP),     intent(in)  :: zh     !! z-component of the heliocentric distance vector of the massive body
+      real(DP),     intent(in)  :: irh    !! Inverse of the heliocentric distance magnitude of the massive body
+      ! Result
+      real(DP)                  :: oblpot !! Gravitational potential
          
       ! 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 - 30.0_DP) * t2 + 3.0_DP)
-         oblpot = oblpot + t0 * (t1 * p2 + t3 * p4)
-      end do
+      rinv2 = irh**2
+      t0 = GMcb * GMpl * rinv2 * irh
+      t1 = j2rp2
+      t2 = zh**2 * rinv2
+      t3 = j4rp4 * rinv2
+      p2 = 0.5_DP * (3 * t2 - 1.0_DP)
+      p4 = 0.125_DP * ((35 * t2 - 30.0_DP) * t2 + 3.0_DP)
+      oblpot = t0 * (t1 * p2 + t3 * p4)
          
       return
-   end subroutine obl_pot
-
+   end function obl_pot_one
 
 end submodule s_obl
diff --git a/docs/src/orbel.f90 b/docs/src/orbel.f90
index f1ab88825..59f24e8b2 100644
--- a/docs/src/orbel.f90
+++ b/docs/src/orbel.f90
@@ -1,1016 +1,32 @@
-submodule (swiftest_classes) s_orbel
-   use swiftest
+module orbel
+    use swiftest
+    private
+    public :: xv2el
 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 = 156._DP, a9 = 17160._DP, a7 = 1235520._DP
-      real(DP), parameter :: a5 = 51891840._DP,  a3 = 1037836800._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 = 6227020800._DP * (1._DP - 1._DP / e)
-      a0 = -6227020800._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 / 27._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(1x,i3,3(2x,1p1e22.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
+    pure elemental subroutine xv2el(mu, px, py, pz, vx, vy, vz, a, e, inc, capom, omega, capm)
+        use swiftest_classes, only : orbel_xv2el
+        implicit none
+        ! Arguments
+        real*8, intent(in) :: mu, px, py, pz, vx, vy, vz
+        real*8, intent(out) :: a, e, inc, capom, omega, capm
+        !$f2py intent(in) mu
+        !$f2py intent(in) px
+        !$f2py intent(in) py
+        !$f2py intent(in) pz
+        !$f2py intent(in) vx
+        !$f2py intent(in) vy
+        !$f2py intent(in) vz
+        !$f2py intent(out) a
+        !$f2py intent(out) e
+        !$f2py intent(out) inc
+        !$f2py intent(out) capom
+        !$f2py intent(out) omega
+        !$f2py intent(out) capm
+        ! Internals
+        real*8, dimension(3) :: x, v
+        x = [px, py, pz]
+        v = [vx, vy, vz]
+        call orbel_xv2el(mu, x(:), v(:), a, e, inc, capom, omega, capm)
+        return
+    end subroutine xv2el
+end module orbel
\ No newline at end of file
diff --git a/docs/src/rmvs_classes.f90 b/docs/src/rmvs_classes.f90
index 6ffb7ba1b..0b837ec0a 100644
--- a/docs/src/rmvs_classes.f90
+++ b/docs/src/rmvs_classes.f90
@@ -125,6 +125,14 @@ module function rmvs_encounter_check_tp(self, system, dt) result(lencounter)
          logical                                 :: lencounter !! Returns true if there is at least one close encounter      
       end function rmvs_encounter_check_tp
 
+      module subroutine rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out)
+         implicit none
+         integer(I4B),           intent(in) :: id1, id2
+         real(DP),               intent(in) :: t, Gmass1, Gmass2, radius1, radius2
+         real(DP), dimension(:), intent(in) :: xh1, xh2, vh1, vh2
+         character(*),           intent(in) :: enc_out
+      end subroutine rmvs_io_write_encounter
+
       module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg)
          use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
          implicit none
diff --git a/docs/src/rmvs_discard.f90 b/docs/src/rmvs_discard.f90
index bcdb9f902..b179178dc 100644
--- a/docs/src/rmvs_discard.f90
+++ b/docs/src/rmvs_discard.f90
@@ -16,6 +16,7 @@ module subroutine rmvs_discard_tp(self, system, param)
       class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameters 
       ! Internals
       integer(I4B)                                 :: i
+      character(len=STRMAX) :: timestr, idstri, idstrj
 
       if (self%nbody == 0) return
 
@@ -25,9 +26,15 @@ module subroutine rmvs_discard_tp(self, system, param)
                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
+                     write(idstri, *) tp%id(i)
+                     write(idstrj, *) pl%id(iplperP)
+                     write(timestr, *) t
+                     write(*, *) "Particle "  // trim(adjustl(tp%info(i)%name)) // " (" // trim(adjustl(idstri)) &
+                              // ") q with respect to massive body " // trim(adjustl(pl%info(iplperP)%name)) // " (" // trim(adjustl(idstrj)) &
+                              // ") is too small at t = " // trim(adjustl(timestr))
                      tp%ldiscard(i) = .true.
                      tp%lmask(i) = .false.
+                     call tp%info(i)%set_value(status="DISCARDED_PLQ", discard_time=t, discard_xh=tp%xh(:,i), discard_vh=tp%vh(:,i), discard_body_id=pl%id(iplperP))
                   end if
                end if
             end associate
diff --git a/docs/src/rmvs_encounter_check.f90 b/docs/src/rmvs_encounter_check.f90
index 7837242e0..43e748b41 100644
--- a/docs/src/rmvs_encounter_check.f90
+++ b/docs/src/rmvs_encounter_check.f90
@@ -23,13 +23,14 @@ module function rmvs_encounter_check_tp(self, system, dt) result(lencounter)
       real(DP), dimension(system%pl%nbody)    :: r2crit
       logical                                 :: lflag
 
+      lencounter = .false.
       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
+            r2crit(1:npl) = (rts * pl%rhill(1:npl))**2
+            tp%plencP(1:ntp) = 0
             do j = 1, npl
                do i = 1, ntp
                   if ((.not.tp%lmask(i)).or.(tp%plencP(i) /= 0)) cycle
@@ -38,9 +39,9 @@ module function rmvs_encounter_check_tp(self, system, dt) result(lencounter)
                   lflag = rmvs_chk_ind(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), dt, r2crit(j))
                   if (lflag) tp%plencP(i) = j
                end do
-               pl%nenc(j) = count(tp%plencP(:) == j)
+               pl%nenc(j) = count(tp%plencP(1:ntp) == j)
             end do
-            lencounter = any(pl%nenc(:) > 0)
+            lencounter = any(pl%nenc(1:npl) > 0)
          end associate
       end select
       return
diff --git a/docs/src/rmvs_io.f90 b/docs/src/rmvs_io.f90
new file mode 100644
index 000000000..b85ce2202
--- /dev/null
+++ b/docs/src/rmvs_io.f90
@@ -0,0 +1,48 @@
+submodule (rmvs_classes) s_rmvs_io
+   use swiftest
+contains
+
+   module subroutine rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, &
+                                 xh1, xh2, vh1, vh2, enc_out)
+      !! author: David A. Minton
+      !!
+      !! Write close encounter data from RMVS 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) :: id1, id2
+      real(DP),               intent(in) :: t, Gmass1, Gmass2, radius1, radius2
+      real(DP), dimension(:), intent(in) :: xh1, xh2, vh1, vh2
+      character(*),           intent(in) :: enc_out
+      ! Internals
+      logical , save    :: lfirst = .true.
+      integer(I4B), parameter :: LUN = 30
+      integer(I4B)        :: ierr
+
+      if (enc_out == "") return
+
+      open(unit = LUN, file = enc_out, status = 'OLD', position = 'APPEND', form = 'UNFORMATTED', iostat = ierr)
+      if ((ierr /= 0) .and. lfirst) then
+         open(unit = LUN, 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.
+      call io_write_frame_encounter(LUN, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
+      close(unit = LUN, 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 rmvs_io_write_encounter
+
+end submodule s_rmvs_io
\ No newline at end of file
diff --git a/docs/src/rmvs_kick.f90 b/docs/src/rmvs_kick.f90
index 018ada8f3..5d9514763 100644
--- a/docs/src/rmvs_kick.f90
+++ b/docs/src/rmvs_kick.f90
@@ -61,7 +61,9 @@ module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg)
                         end if
 
                         ! Swap the planetocentric and heliocentric position vectors and central body masses
-                        tp%xh(:,:) = tp%xheliocentric(:,:)
+                        do concurrent(i = 1:ntp, tp%lmask(i))
+                           tp%xh(:, i) = tp%xheliocentric(:, i)
+                        end do
                         GMcb_original = cb%Gmass
                         cb%Gmass = tp%cb_heliocentric%Gmass
 
@@ -71,7 +73,7 @@ module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg)
                         if (param%lgr) call tp%accel_gr(param)
 
                         ! Put everything back the way we found it
-                        tp%xh(:,:) = xh_original(:,:)
+                        call move_alloc(xh_original, tp%xh)
                         cb%Gmass = GMcb_original
 
                      end associate
diff --git a/docs/src/rmvs_setup.f90 b/docs/src/rmvs_setup.f90
index 92043e0fe..e59202cd9 100644
--- a/docs/src/rmvs_setup.f90
+++ b/docs/src/rmvs_setup.f90
@@ -19,7 +19,13 @@ module subroutine rmvs_setup_pl(self, n, param)
       !> Call allocation method for parent class
       associate(pl => self)
          call whm_setup_pl(pl, n, param) 
-         if (n <= 0) return
+         if (n < 0) return
+
+         if (allocated(pl%outer)) deallocate(pl%outer)
+         if (allocated(pl%inner)) deallocate(pl%inner)
+         if (allocated(pl%nenc))  deallocate(pl%nenc)
+
+         if (n == 0) return
 
          allocate(pl%outer(0:NTENC))
          allocate(pl%inner(0:NTPHENC))
@@ -145,12 +151,14 @@ module subroutine rmvs_setup_tp(self, n, param)
 
       !> 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 (n < 0) return
 
       if (allocated(self%lperi)) deallocate(self%lperi)
       if (allocated(self%plperP)) deallocate(self%plperP)
       if (allocated(self%plencP)) deallocate(self%plencP)
 
+      if (n == 0) return
+
       allocate(self%lperi(n))
       allocate(self%plperP(n))
       allocate(self%plencP(n))
diff --git a/docs/src/rmvs_step.f90 b/docs/src/rmvs_step.f90
index 0385aeecc..b8cfcd688 100644
--- a/docs/src/rmvs_step.f90
+++ b/docs/src/rmvs_step.f90
@@ -21,6 +21,8 @@ module subroutine rmvs_step_system(self, param, t, dt)
       real(DP), dimension(:,:), allocatable :: xbeg, xend, vbeg
       integer(I4B) :: i
 
+      if (self%tp%nbody == 0) call whm_step_system(self, param, t, dt)
+
       select type(cb => self%cb)
       class is (rmvs_cb)
          select type(pl => self%pl)
@@ -36,11 +38,11 @@ module subroutine rmvs_step_system(self, param, t, dt)
                   lencounter = tp%encounter_check(system, dt)
                   if (lencounter) then
                      lfirstpl = pl%lfirst
-                     pl%outer(0)%x(:,:) = xbeg(:,:)
-                     pl%outer(0)%v(:,:) = vbeg(:,:)
+                     pl%outer(0)%x(:, 1:npl) = xbeg(:, 1:npl)
+                     pl%outer(0)%v(:, 1:npl) = vbeg(:, 1:npl)
                      call pl%step(system, param, t, dt) 
-                     pl%outer(NTENC)%x(:,:) = pl%xh(:,:)
-                     pl%outer(NTENC)%v(:,:) = pl%vh(:,:)
+                     pl%outer(NTENC)%x(:, 1:npl) = pl%xh(:, 1:npl)
+                     pl%outer(NTENC)%v(:, 1:npl) = pl%vh(:, 1:npl)
                      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)
@@ -89,10 +91,10 @@ subroutine rmvs_interp_out(cb, pl, dt)
          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(:, :)
+         dto(1:npl) = dt / dntenc
+         GMcb(1:npl) = cb%Gmass
+         xtmp(:,1:npl) = pl%outer(0)%x(:, 1:npl)
+         vtmp(:,1:npl) = pl%outer(0)%v(:, 1:npl)
          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), &
@@ -110,11 +112,11 @@ subroutine rmvs_interp_out(cb, pl, dt)
                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(:,:)
+            pl%outer(outer_index)%x(:, 1:npl) = frac * xtmp(:, 1:npl)
+            pl%outer(outer_index)%v(:, 1:npl) = frac * vtmp(:, 1:npl)
          end do
-         xtmp(:,:) = pl%outer(NTENC)%x(:, :)
-         vtmp(:,:) = pl%outer(NTENC)%v(:, :)
+         xtmp(:, 1:npl) = pl%outer(NTENC)%x(:, 1:npl)
+         vtmp(:, 1:npl) = pl%outer(NTENC)%v(:, 1:npl)
          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), &
@@ -132,8 +134,8 @@ subroutine rmvs_interp_out(cb, pl, dt)
                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(:,:)
+            pl%outer(outer_index)%x(:, 1:npl) = pl%outer(outer_index)%x(:, 1:npl) + frac * xtmp(:, 1:npl)
+            pl%outer(outer_index)%v(:, 1:npl) = pl%outer(outer_index)%v(:, 1:npl) + frac * vtmp(:, 1:npl)
          end do
       end associate
 
@@ -165,16 +167,16 @@ subroutine rmvs_step_out(cb, pl, tp, system, param, t, dt)
 
       associate(npl => pl%nbody, ntp => tp%nbody)
          dto = dt / NTENC
-         where(tp%plencP(:) == 0)
-            tp%lmask(:) = .false.
+         where(tp%plencP(1:ntp) == 0)
+            tp%lmask(1:ntp) = .false.
          elsewhere  
-            tp%lperi(:) = .false.
+            tp%lperi(1:ntp) = .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(:, :))
+            call pl%set_beg_end(xbeg = pl%outer(outer_index - 1)%x(:, 1:npl), &
+                                vbeg = pl%outer(outer_index - 1)%v(:, 1:npl), &
+                                xend = pl%outer(outer_index    )%x(:, 1:npl))
             system%rts = RHPSCALE
             lencounter = tp%encounter_check(system, dto) 
             if (lencounter) then
@@ -192,8 +194,8 @@ subroutine rmvs_step_out(cb, pl, tp, system, param, t, dt)
             do j = 1, npl
                if (pl%nenc(j) == 0) cycle
                tp%lfirst = .true.
-               where((tp%plencP(:) == j) .and. (.not.tp%lmask(:)))
-                  tp%lmask(:) = .true.
+               where((tp%plencP(1:ntp) == j) .and. (.not.tp%lmask(1:ntp)))
+                  tp%lmask(1:ntp) = .true.
                end where 
             end do
          end do
@@ -222,7 +224,7 @@ subroutine rmvs_interp_in(cb, pl, system, param, dt, outer_index)
       ! Internals
       integer(I4B)                              :: i, inner_index
       real(DP)                                  :: frac, dntphenc
-      real(DP),     dimension(:,:), allocatable :: xtmp, vtmp, xh_original
+      real(DP),     dimension(:,:), allocatable :: xtmp, vtmp, xh_original, ah_original
       real(DP),     dimension(:),   allocatable :: GMcb, dti
       integer(I4B), dimension(:),   allocatable :: iflag
 
@@ -230,32 +232,33 @@ subroutine rmvs_interp_in(cb, pl, system, param, dt, outer_index)
          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(:, :)
+         pl%inner(0)%x(:, 1:npl) = pl%outer(outer_index - 1)%x(:, 1:npl)
+         pl%inner(0)%v(:, 1:npl) = pl%outer(outer_index - 1)%v(:, 1:npl)
+         pl%inner(NTPHENC)%x(:, 1:npl) = pl%outer(outer_index)%x(:, 1:npl)
+         pl%inner(NTPHENC)%v(:, 1:npl) = pl%outer(outer_index)%v(:, 1:npl)
 
          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(:, :)
+         dti(1:npl) = dt / dntphenc
+         GMcb(1:npl) = cb%Gmass
+         xtmp(:, 1:npl) = pl%inner(0)%x(:, 1:npl)
+         vtmp(:, 1:npl) = pl%inner(0)%v(:, 1:npl)
 
          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
+            allocate(ah_original, source=pl%ah)
+            pl%xh(:, 1:npl) = xtmp(:, 1:npl) ! 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
+            pl%inner(0)%aobl(:, 1:npl) = pl%aobl(:, 1:npl) ! 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
+            pl%inner(0)%atide(:, 1:npl) = pl%atide(:, 1:npl) ! Save the oblateness acceleration on the planet for this substep
          end if
 
          do inner_index = 1, NTPHENC - 1
@@ -275,12 +278,12 @@ subroutine rmvs_interp_in(cb, pl, system, param, dt, outer_index)
                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(:,:)
+            pl%inner(inner_index)%x(:, 1:npl) = frac * xtmp(:, 1:npl)
+            pl%inner(inner_index)%v(:, 1:npl) = frac * vtmp(:, 1:npl)
          end do
 
-         xtmp(:,:) = pl%inner(NTPHENC)%x(:, :)
-         vtmp(:,:) = pl%inner(NTPHENC)%v(:, :)
+         xtmp(:, 1:npl) = pl%inner(NTPHENC)%x(:, 1:npl)
+         vtmp(:, 1:npl) = pl%inner(NTPHENC)%v(:, 1:npl)
 
          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), &
@@ -299,31 +302,32 @@ subroutine rmvs_interp_in(cb, pl, system, param, dt, outer_index)
                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(:, :)
+            pl%inner(inner_index)%x(:, 1:npl) = pl%inner(inner_index)%x(:, 1:npl) + frac * xtmp(:, 1:npl)
+            pl%inner(inner_index)%v(:, 1:npl) = pl%inner(inner_index)%v(:, 1:npl) + frac * vtmp(:, 1:npl)
 
             if (param%loblatecb) then
-               pl%xh(:,:) = pl%inner(inner_index)%x(:, :)
+               pl%xh(:,1:npl) = pl%inner(inner_index)%x(:, 1:npl)
                call pl%accel_obl(system)
-               pl%inner(inner_index)%aobl(:, :) = pl%aobl(:, :) 
+               pl%inner(inner_index)%aobl(:, 1:npl) = pl%aobl(:, 1:npl) 
             end if
             if (param%ltides) then 
                call pl%accel_tides(system)
-               pl%inner(inner_index)%atide(:, :) = pl%atide(:, :)  
+               pl%inner(inner_index)%atide(:, 1:npl) = pl%atide(:, 1:npl)  
             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(:, :)
+            pl%xh(:, 1:npl) = pl%inner(NTPHENC)%x(:, 1:npl)
             call pl%accel_obl(system)
-            pl%inner(NTPHENC)%aobl(:, :) = pl%aobl(:, :) 
+            pl%inner(NTPHENC)%aobl(:, 1:npl) = pl%aobl(:, 1:npl) 
          end if
          if (param%ltides) then
             call pl%accel_tides(system)
-            pl%inner(NTPHENC)%atide(:, :) = pl%atide(:, :) 
+            pl%inner(NTPHENC)%atide(:, 1:npl) = pl%atide(:, 1:npl) 
          end if
-         ! Put the planet positions back into place 
+         ! Put the planet positions and accelerations back into place 
          if (allocated(xh_original)) call move_alloc(xh_original, pl%xh)
+         if (allocated(ah_original)) call move_alloc(ah_original, pl%ah)
       end associate
       return
 
@@ -371,7 +375,7 @@ subroutine rmvs_step_in(cb, pl, tp, param, outer_time, dto)
                            ! 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(:,:)
+                              plenci%xh(:, 1:npl) = plenci%inner(inner_index - 1)%x(:, 1:npl)
                               call plenci%set_beg_end(xbeg = plenci%inner(inner_index - 1)%x, &
                                                       xend = plenci%inner(inner_index)%x)
 
@@ -428,7 +432,7 @@ subroutine rmvs_make_planetocentric(param, cb, pl, tp)
             ! There are inner encounters with this planet
             if (allocated(encmask)) deallocate(encmask)
             allocate(encmask(ntp))
-            encmask(:) = tp%plencP(:) == i
+            encmask(1:ntp) = tp%plencP(1:ntp) == i
             allocate(rmvs_tp :: pl%planetocentric(i)%tp)
             ! Create encountering test particle structure
             select type(cbenci => pl%planetocentric(i)%cb)
@@ -438,51 +442,53 @@ subroutine rmvs_make_planetocentric(param, cb, pl, tp)
                   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)
+                     associate(nenci => pl%nenc(i))
+                        call tpenci%setup(nenci, param)
+                        tpenci%cb_heliocentric = cb
+                        tpenci%ipleP = i
+                        tpenci%lmask(1:nenci) = .true.
+                        tpenci%status(1:nenci) = ACTIVE
+                        ! Grab all the encountering test particles and convert them to a planetocentric frame
+                        tpenci%id(1:nenci) = pack(tp%id(1:ntp), encmask(1:ntp)) 
+                        do j = 1, NDIM 
+                           tpenci%xheliocentric(j, 1:nenci) = pack(tp%xh(j,1:ntp), encmask(:)) 
+                           tpenci%xh(j, 1:nenci) = tpenci%xheliocentric(j, 1:nenci) - pl%inner(0)%x(j, i)
+                           tpenci%vh(j, 1:nenci) = pack(tp%vh(j, 1:ntp), encmask(1:ntp)) - pl%inner(0)%v(j, i)
+                        end do
+                        tpenci%lperi(1:nenci) = pack(tp%lperi(1:ntp), encmask(1:ntp)) 
+                        tpenci%plperP(1:nenci) = pack(tp%plperP(1:ntp), encmask(1:ntp)) 
+                        ! 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
-                     end do
-                     call tpenci%set_mu(cbenci)
+                        call tpenci%set_mu(cbenci)
+                     end associate
                   end select
                end select
             end select
@@ -547,8 +553,7 @@ subroutine rmvs_peri_tp(tp, pl, t, dt, lfirst, inner_index, ipleP, param)
                            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)
+                           call rmvs_io_write_encounter(t, id1, id2, mu, 0.0_DP, rpl, 0.0_DP, xh1(:), xh2(:), vh1(:), vh2(:), param%enc_out)
                         end if
                         if (tp%lperi(i)) then
                            if (peri < tp%peri(i)) then
@@ -600,31 +605,33 @@ subroutine rmvs_end_planetocentric(pl, tp)
                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
+                     associate(nenci => pl%nenc(i))
+                        if (allocated(tpind)) deallocate(tpind)
+                        allocate(tpind(nenci))
+                        ! Index array of encountering test particles
+                        if (allocated(encmask)) deallocate(encmask)
+                        allocate(encmask(ntp))
+                        encmask(1:ntp) = tp%plencP(1:ntp) == i
+                        tpind(1:nenci) = pack([(j,j=1,ntp)], encmask(1:ntp))
+               
+                        ! Copy the results of the integration back over and shift back to heliocentric reference
+                        tp%status(tpind(1:nenci)) = tpenci%status(1:nenci) 
+                        tp%lmask(tpind(1:nenci)) = tpenci%lmask(1:nenci) 
+                        do j = 1, NDIM
+                           tp%xh(j, tpind(1:nenci)) = tpenci%xh(j,1:nenci) + pl%inner(NTPHENC)%x(j, i)
+                           tp%vh(j, tpind(1:nenci)) = tpenci%vh(j,1:nenci) + pl%inner(NTPHENC)%v(j, i)
+                        end do
+                        tp%lperi(tpind(1:nenci)) = tpenci%lperi(1:nenci)
+                        tp%plperP(tpind(1:nenci)) = tpenci%plperP(1:nenci)
+                        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 associate
                   end select
                end select
             end select
diff --git a/docs/src/rmvs_util.f90 b/docs/src/rmvs_util.f90
index ee9ce6932..3b823c190 100644
--- a/docs/src/rmvs_util.f90
+++ b/docs/src/rmvs_util.f90
@@ -189,9 +189,11 @@ module subroutine rmvs_util_sort_pl(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B) :: direction
 
+      if (self%nbody == 0) return
+
       if (ascending) then
          direction = 1
       else
@@ -199,6 +201,7 @@ module subroutine rmvs_util_sort_pl(self, sortby, ascending)
       end if
 
       associate(pl => self, npl => self%nbody)
+         allocate(ind(npl))
          select case(sortby)
          case("nenc")
             call util_sort(direction * pl%nenc(1:npl), ind(1:npl))
@@ -231,8 +234,10 @@ module subroutine rmvs_util_sort_tp(self, sortby, ascending)
       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
+      integer(I4B), dimension(:), allocatable :: ind
+      integer(I4B)                            :: direction
+
+      if (self%nbody == 0) return
 
       if (ascending) then
          direction = 1
@@ -241,6 +246,7 @@ module subroutine rmvs_util_sort_tp(self, sortby, ascending)
       end if
 
       associate(tp => self, ntp => self%nbody)
+         allocate(ind(ntp))
          select case(sortby)
          case("plperP")
             call util_sort(direction * tp%plperP(1:ntp), ind(1:ntp))
@@ -268,19 +274,14 @@ module subroutine rmvs_util_sort_rearrange_pl(self, ind)
       ! 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%nenc, ind, npl)
+         call util_sort_rearrange(pl%tpenc1P, ind, npl)
+         call util_sort_rearrange(pl%plind, ind, npl)
          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
@@ -296,19 +297,15 @@ module subroutine rmvs_util_sort_rearrange_tp(self, ind)
       ! 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%lperi, ind, ntp)
+         call util_sort_rearrange(tp%plperP, ind, ntp)
+         call util_sort_rearrange(tp%plencP, ind, ntp)
+         call util_sort_rearrange(tp%xheliocentric, ind, ntp)
          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
diff --git a/docs/src/setup.f90 b/docs/src/setup.f90
index 8f96c48a1..41c0d9fba 100644
--- a/docs/src/setup.f90
+++ b/docs/src/setup.f90
@@ -10,7 +10,7 @@ module subroutine setup_construct_system(system, param)
       implicit none
       ! Arguments
       class(swiftest_nbody_system),  allocatable,  intent(inout) :: system     !! Swiftest system object
-      class(swiftest_parameters),                  intent(in)    :: param     !! Swiftest parameters
+      class(swiftest_parameters),                  intent(inout) :: param     !! Swiftest parameters
 
       select case(param%integrator)
       case (BS)
@@ -56,8 +56,9 @@ module subroutine setup_construct_system(system, param)
             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)
+            allocate(symba_plplenc :: system%plplenc_list)
+            allocate(symba_plplenc :: system%plplcollision_list)
          end select
       case (RINGMOONS)
          write(*,*) 'RINGMOONS-SyMBA integrator not yet enabled'
@@ -80,40 +81,82 @@ module subroutine setup_encounter(self, n)
       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 (n < 0) return
 
       if (allocated(self%lvdotr)) deallocate(self%lvdotr)
       if (allocated(self%status)) deallocate(self%status)
+      if (allocated(self%kidx)) deallocate(self%kidx)
       if (allocated(self%index1)) deallocate(self%index1)
       if (allocated(self%index2)) deallocate(self%index2)
+      if (allocated(self%id1)) deallocate(self%id1)
+      if (allocated(self%id2)) deallocate(self%id2)
       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)
+      if (allocated(self%t)) deallocate(self%t)
+
+      self%nenc = n
+      if (n == 0) return
 
       allocate(self%lvdotr(n))
       allocate(self%status(n))
+      allocate(self%kidx(n))
       allocate(self%index1(n))
       allocate(self%index2(n))
+      allocate(self%id1(n))
+      allocate(self%id2(n))
       allocate(self%x1(NDIM,n))
       allocate(self%x2(NDIM,n))
       allocate(self%v1(NDIM,n))
       allocate(self%v2(NDIM,n))
+      allocate(self%t(n))
 
       self%lvdotr(:) = .false.
       self%status(:) = INACTIVE
+      self%kidx(:) = 0_I8B
       self%index1(:) = 0
       self%index2(:) = 0
+      self%id1(:) = 0
+      self%id2(:) = 0
       self%x1(:,:) = 0.0_DP
       self%x2(:,:) = 0.0_DP
       self%v1(:,:) = 0.0_DP
       self%v2(:,:) = 0.0_DP
+      self%t(:) = 0.0_DP
 
       return
    end subroutine setup_encounter
 
 
+   module subroutine setup_initialize_particle_info_system(self, param)
+      !! author: David A. Minton
+      !!
+      !! Setup up particle information metadata from initial conditions
+      !
+      implicit none
+      ! Arguments
+      class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters
+      ! Internals
+      integer(I4B) :: i
+
+      associate(cb => self%cb, pl => self%pl, npl => self%pl%nbody, tp => self%tp, ntp => self%tp%nbody)
+
+         call cb%info%set_value(particle_type=CB_TYPE_NAME, status="ACTIVE", origin_type="Initial conditions", origin_time=param%t0, origin_xh=[0.0_DP, 0.0_DP, 0.0_DP], origin_vh=[0.0_DP, 0.0_DP, 0.0_DP])
+         do i = 1, self%pl%nbody
+            call pl%info(i)%set_value(particle_type=PL_TYPE_NAME, status="ACTIVE", origin_type="Initial conditions", origin_time=param%t0, origin_xh=self%pl%xh(:,i), origin_vh=self%pl%vh(:,i))
+         end do
+         do i = 1, self%tp%nbody
+            call tp%info(i)%set_value(particle_type=TP_TYPE_NAME, status="ACTIVE", origin_type="Initial conditions", origin_time=param%t0, origin_xh=self%tp%xh(:,i), origin_vh=self%tp%vh(:,i))
+         end do
+
+      end associate
+
+      return
+   end subroutine setup_initialize_particle_info_system
+
+
    module subroutine setup_initialize_system(self, param)
       !! author: David A. Minton
       !!
@@ -123,16 +166,28 @@ module subroutine setup_initialize_system(self, param)
       ! 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%cb%read_in(param)
+      call self%pl%read_in(param)
+      call self%tp%read_in(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 (param%in_form == EL) then
+         call self%pl%el2xv(self%cb)
+         call self%tp%el2xv(self%cb)
+      end if
+      call self%pl%index(param)
       if (.not.param%lrhill_present) call self%pl%set_rhill(self%cb)
+      self%pl%lfirst = param%lfirstkick
+      self%tp%lfirst = param%lfirstkick
+
+      if (param%lrestart) then
+         call self%read_particle_info(param)
+      else
+         call self%init_particle_info(param)
+      end if
       return
    end subroutine setup_initialize_system
 
@@ -148,39 +203,69 @@ module subroutine setup_body(self, n, param)
       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
+      ! Internals
+      integer(I4B) :: i
+
+      if (n < 0) return
 
-      self%nbody = n
-      if (n <= 0) return
       self%lfirst = .true.
 
+      if (allocated(self%info)) deallocate(self%info)
       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%lmask)) deallocate(self%lmask)
+      if (allocated(self%mu)) deallocate(self%mu)
       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%aobl)) deallocate(self%aobl)
+      if (allocated(self%agr)) deallocate(self%lmask)
+      if (allocated(self%atide)) deallocate(self%lmask)
       if (allocated(self%ir3h)) deallocate(self%ir3h)
-      if (allocated(self%mu)) deallocate(self%mu)
-      if (allocated(self%lmask)) deallocate(self%lmask)
+      if (allocated(self%a)) deallocate(self%a)
+      if (allocated(self%e)) deallocate(self%e)
+      if (allocated(self%e)) deallocate(self%e)
+      if (allocated(self%inc)) deallocate(self%inc)
+      if (allocated(self%capom)) deallocate(self%capom)
+      if (allocated(self%omega)) deallocate(self%omega)
+      if (allocated(self%capm)) deallocate(self%capm)
+
+      self%nbody = n
+      if (n == 0) return
 
+      allocate(self%info(n))
       allocate(self%id(n))
-      allocate(self%name(n))
       allocate(self%status(n))
       allocate(self%ldiscard(n))
+      allocate(self%lmask(n))
+      allocate(self%mu(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%id(:) = 0
+      do i = 1, n
+         call self%info(i)%set_value(&
+            name = "UNNAMED", &
+            particle_type = "UNKNOWN", &
+            status = "INACTIVE", & 
+            origin_type = "UNKNOWN", &
+            origin_time = -huge(1.0_DP), & 
+            origin_xh = [0.0_DP, 0.0_DP, 0.0_DP], &
+            origin_vh = [0.0_DP, 0.0_DP, 0.0_DP], &
+            discard_time = -huge(1.0_DP), & 
+            discard_xh = [0.0_DP, 0.0_DP, 0.0_DP], &
+            discard_vh = [0.0_DP, 0.0_DP, 0.0_DP], &
+            discard_body_id = -1  &
+         )
+      end do
+
       self%status(:) = INACTIVE
       self%lmask(:)  = .false.
       self%ldiscard(:) = .false.
@@ -193,17 +278,14 @@ module subroutine setup_body(self, n, param)
       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
@@ -226,11 +308,20 @@ module subroutine setup_pl(self, n, param)
       !> 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 (n < 0) return 
 
       if (allocated(self%mass)) deallocate(self%mass)
       if (allocated(self%Gmass)) deallocate(self%Gmass)
       if (allocated(self%rhill)) deallocate(self%rhill)
+      if (allocated(self%radius)) deallocate(self%radius)
+      if (allocated(self%density)) deallocate(self%density)
+      if (allocated(self%rot)) deallocate(self%rot)
+      if (allocated(self%Ip)) deallocate(self%Ip)
+      if (allocated(self%k2)) deallocate(self%k2)
+      if (allocated(self%Q)) deallocate(self%Q)
+      if (allocated(self%tlag)) deallocate(self%tlag)
+
+      if (n == 0) return
 
       allocate(self%mass(n))
       allocate(self%Gmass(n))
@@ -243,8 +334,6 @@ module subroutine setup_pl(self, n, param)
       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
@@ -252,8 +341,6 @@ module subroutine setup_pl(self, n, param)
       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
@@ -261,9 +348,6 @@ module subroutine setup_pl(self, n, param)
       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))
@@ -290,12 +374,14 @@ module subroutine setup_tp(self, n, param)
       !> 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 (n < 0) return
 
       if (allocated(self%isperi)) deallocate(self%isperi)
       if (allocated(self%peri)) deallocate(self%peri)
       if (allocated(self%atp)) deallocate(self%atp)
 
+      if (n == 0) return
+
       allocate(self%isperi(n))
       allocate(self%peri(n))
       allocate(self%atp(n))
diff --git a/docs/src/swiftest.f90 b/docs/src/swiftest.f90
index 61d45163c..d3f8996f0 100644
--- a/docs/src/swiftest.f90
+++ b/docs/src/swiftest.f90
@@ -10,7 +10,9 @@ module swiftest
    use rmvs_classes
    use helio_classes
    use symba_classes
+   use fraggle_classes
    use lambda_function
+   use walltime_classes
    !use advisor_annotate
    !$ use omp_lib
    implicit none
diff --git a/docs/src/swiftest_classes.f90 b/docs/src/swiftest_classes.f90
index 2e4bff8a2..82d684f1a 100644
--- a/docs/src/swiftest_classes.f90
+++ b/docs/src/swiftest_classes.f90
@@ -7,6 +7,81 @@ module swiftest_classes
    implicit none
    public
 
+   type :: netcdf_parameters
+      integer(I4B) :: out_type              !! NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter)
+      integer(I4B) :: ncid                  !! NetCDF ID for the output file
+      integer(I4B) :: dimids(3)             !! Dimensions of the NetCDF file
+      integer(I4B) :: time_dimid            !! NetCDF ID for the time dimension 
+      integer(I4B) :: id_dimid              !! NetCDF ID for the particle id dimension
+      integer(I4B) :: str_dimid             !! NetCDF ID for the character string dimension
+      integer(I4B) :: time_varid            !! NetCDF ID for the time variable
+      integer(I4B) :: id_varid              !! NetCDF ID for the particle name variable
+      integer(I4B) :: name_varid            !! NetCDF ID for the namevariable 
+      integer(I4B) :: ptype_varid           !! NetCDF ID for the particle type variable
+      integer(I4B) :: npl_varid             !! NetCDF ID for the number of active massive bodies variable
+      integer(I4B) :: ntp_varid             !! NetCDF ID for the number of active test particles variable
+      integer(I4B) :: a_varid               !! NetCDF ID for the semimajor axis variable 
+      integer(I4B) :: e_varid               !! NetCDF ID for the eccentricity variable 
+      integer(I4B) :: inc_varid             !! NetCDF ID for the inclination variable 
+      integer(I4B) :: capom_varid           !! NetCDF ID for the long. asc. node variable 
+      integer(I4B) :: omega_varid           !! NetCDF ID for the arg. periapsis variable 
+      integer(I4B) :: capm_varid            !! NetCDF ID for the mean anomaly variable 
+      integer(I4B) :: xhx_varid             !! NetCDF ID for the heliocentric position x variable 
+      integer(I4B) :: xhy_varid             !! NetCDF ID for the heliocentric position y variable 
+      integer(I4B) :: xhz_varid             !! NetCDF ID for the heliocentric position z variable 
+      integer(I4B) :: vhx_varid             !! NetCDF ID for the heliocentric velocity x variable 
+      integer(I4B) :: vhy_varid             !! NetCDF ID for the heliocentric velocity y variable 
+      integer(I4B) :: vhz_varid             !! NetCDF ID for the heliocentric velocity z variable 
+      integer(I4B) :: Gmass_varid           !! NetCDF ID for the mass variable
+      integer(I4B) :: rhill_varid           !! NetCDF ID for the hill radius variable
+      integer(I4B) :: radius_varid          !! NetCDF ID for the radius variable
+      integer(I4B) :: Ip1_varid             !! NetCDF ID for the axis 1 principal moment of inertia variable
+      integer(I4B) :: Ip2_varid             !! NetCDF ID for the axis 2 principal moment of inertia variable
+      integer(I4B) :: Ip3_varid             !! NetCDF ID for the axis 3 principal moment of inertia variable
+      integer(I4B) :: rotx_varid            !! NetCDF ID for the rotation x variable
+      integer(I4B) :: roty_varid            !! NetCDF ID for the rotation y variable
+      integer(I4B) :: rotz_varid            !! NetCDF ID for the rotation z variable
+      integer(I4B) :: k2_varid              !! NetCDF ID for the Love number variable
+      integer(I4B) :: Q_varid               !! NetCDF ID for the energy dissipation variable
+      integer(I4B) :: KE_orb_varid          !! NetCDF ID for the system orbital kinetic energy variable
+      integer(I4B) :: KE_spin_varid         !! NetCDF ID for the system spin kinetic energy variable
+      integer(I4B) :: PE_varid              !! NetCDF ID for the system potential energy variable
+      integer(I4B) :: L_orbx_varid          !! NetCDF ID for the system orbital angular momentum x variable
+      integer(I4B) :: L_orby_varid          !! NetCDF ID for the system orbital angular momentum y variable
+      integer(I4B) :: L_orbz_varid          !! NetCDF ID for the system orbital angular momentum z variable
+      integer(I4B) :: L_spinx_varid         !! NetCDF ID for the system spin angular momentum x variable
+      integer(I4B) :: L_spiny_varid         !! NetCDF ID for the system spin angular momentum y variable
+      integer(I4B) :: L_spinz_varid         !! NetCDF ID for the system spin angular momentum z variable
+      integer(I4B) :: L_escapex_varid       !! NetCDF ID for the escaped angular momentum x variable
+      integer(I4B) :: L_escapey_varid       !! NetCDF ID for the escaped angular momentum x variable
+      integer(I4B) :: L_escapez_varid       !! NetCDF ID for the escaped angular momentum x variable
+      integer(I4B) :: Ecollisions_varid     !! NetCDF ID for the energy lost in collisions variable
+      integer(I4B) :: Euntracked_varid      !! NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)
+      integer(I4B) :: GMescape_varid        !! NetCDF ID for the G*Mass of bodies that escape the system
+      integer(I4B) :: status_varid          !! NetCDF ID for the status variable
+      integer(I4B) :: origin_type_varid     !! NetCDF ID for the origin type
+      integer(I4B) :: origin_time_varid     !! NetCDF ID for the origin time
+      integer(I4B) :: origin_xhx_varid      !! NetCDF ID for the origin xh x component
+      integer(I4B) :: origin_xhy_varid      !! NetCDF ID for the origin xh y component
+      integer(I4B) :: origin_xhz_varid      !! NetCDF ID for the origin xh z component
+      integer(I4B) :: origin_vhx_varid      !! NetCDF ID for the origin xh x component
+      integer(I4B) :: origin_vhy_varid      !! NetCDF ID for the origin xh y component
+      integer(I4B) :: origin_vhz_varid      !! NetCDF ID for the origin xh z component
+      integer(I4B) :: discard_time_varid    !! NetCDF ID for the time of discard variable
+      integer(I4B) :: discard_xhx_varid     !! NetCDF ID for the heliocentric position of the body at the time of discard x variable
+      integer(I4B) :: discard_xhy_varid     !! NetCDF ID for the heliocentric position of the body at the time of discard y variable
+      integer(I4B) :: discard_xhz_varid     !! NetCDF ID for the heliocentric position of the body at the time of discard z variable
+      integer(I4B) :: discard_vhx_varid     !! NetCDF ID for the heliocentric velocity of the body at the time of discard x variable
+      integer(I4B) :: discard_vhy_varid     !! NetCDF ID for the heliocentric velocity of the body at the time of discard y variable
+      integer(I4B) :: discard_vhz_varid     !! NetCDF ID for the heliocentric velocity of the body at the time of discard z variable
+      integer(I4B) :: discard_body_id_varid !! NetCDF ID for the id of the other body involved in the discard
+   
+   contains
+      procedure :: close      => netcdf_close             !! Closes an open NetCDF file
+      procedure :: initialize => netcdf_initialize_output !! Initialize a set of parameters used to identify a NetCDF output object
+      procedure :: open       => netcdf_open              !! Opens a NetCDF file
+   end type netcdf_parameters
+
    !********************************************************************************************************************************
    ! swiftest_parameters class definitions 
    !********************************************************************************************************************************
@@ -15,21 +90,23 @@ module swiftest_classes
    !>    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
+      integer(I4B)         :: maxid          = -1                 !! The current maximum particle id number 
       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
+      integer(I8B)         :: ioutput        = 0_I8B              !! Output counter
       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
+      character(STRMAX)    :: in_type        = ASCII_TYPE         !! Data representation type of input data files
+      character(STRMAX)    :: in_form        = XV                 !! Format of input data files (EL or XV)
       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)    :: outfile        = NETCDF_OUTFILE     !! Name of output binary file
+      character(STRMAX)    :: out_type       = NETCDF_DOUBLE_TYPE !! Binary format of output file
+      character(STRMAX)    :: out_form       = XVEL               !! Data to write to output file
       character(STRMAX)    :: out_stat       = 'NEW'              !! Open status for output binary file
+      character(STRMAX)    :: particle_out   = PARTICLE_OUTFILE   !! Name of output particle information 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
@@ -59,14 +136,12 @@ module swiftest_classes
 
       ! 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)                  :: GMtot_orig = 0.0_DP     !! Initial system mass
       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)                  :: GMescape = 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
@@ -77,25 +152,53 @@ module swiftest_classes
       logical :: lgr = .false.               !! Turn on GR
       logical :: lyarkovsky = .false.        !! Turn on Yarkovsky effect
       logical :: lyorp = .false.             !! Turn on YORP effect
+
+      type(netcdf_parameters) :: nciu !! Object containing NetCDF parameters
    contains
-      procedure :: reader         => io_param_reader
-      procedure :: writer         => io_param_writer
-      procedure :: dump           => io_dump_param
-      procedure :: read_from_file => io_read_param_in
+      procedure :: reader  => io_param_reader
+      procedure :: writer  => io_param_writer
+      procedure :: dump    => io_dump_param
+      procedure :: read_in => io_read_in_param
    end type swiftest_parameters
 
+
+   !********************************************************************************************************************************
+   !                                    swiftest_swiftest_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 :: swiftest_particle_info
+      character(len=NAMELEN)    :: name            !! Non-unique name
+      character(len=NAMELEN)    :: particle_type   !! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)
+      character(len=NAMELEN)    :: 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
+      real(DP)                  :: discard_time    !! The time of the particle's discard
+      character(len=NAMELEN)    :: status          !! Particle status description: Active, Merged, Fragmented, etc.
+      real(DP), dimension(NDIM) :: discard_xh      !! The heliocentric distance vector at the time of the particle's discard
+      real(DP), dimension(NDIM) :: discard_vh      !! The heliocentric velocity vector at the time of the particle's discard
+      integer(I4B)              :: discard_body_id !! The id of the other body involved in the discard (0 if no other body involved)
+   contains
+      procedure :: dump      => io_dump_particle_info    !! Dumps contents of particle information to file
+      procedure :: read_in   => io_read_in_particle_info !! Read in a particle information object from an open file
+      procedure :: copy      => util_copy_particle_info  !! Copies one set of information object components into another, component-by-component
+      procedure :: set_value => util_set_particle_info   !! Sets one or more values of the particle information metadata object
+   end type swiftest_particle_info
+
    !********************************************************************************************************************************
    ! 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 
+      !! An abstract superclass for a generic Swiftest object
    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
+      procedure :: dump                       => io_dump_base                 !! Dump contents to file
+      procedure :: dump_particle_info         => io_dump_particle_info_base   !! Dump contents of particle information metadata to file
+      procedure :: write_frame_netcdf         => netcdf_write_frame_base      !! I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  
+      procedure :: write_particle_info_netcdf => netcdf_write_particle_info_base !! Writes out the particle information metadata to NetCDF file
+      generic   :: write_frame                => write_frame_netcdf           !! Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments
+      generic   :: write_particle_info        => write_particle_info_netcdf
    end type swiftest_base
 
    !********************************************************************************************************************************
@@ -103,34 +206,35 @@ module swiftest_classes
    !********************************************************************************************************************************
    !> 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^2 term for central body
-      real(DP)                  :: j4rp4    = 0.0_DP !! J4*R^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
+      type(swiftest_particle_info)               :: info              !! Particle metadata information
+      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^2 term for central body
+      real(DP)                                   :: j4rp4    = 0.0_DP !! J4*R^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
+      procedure :: read_in         => io_read_in_cb     !! 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_bin => io_write_frame_cb !! I/O routine for writing out a single frame of time-series data for the central body
+      generic   :: write_frame     => write_frame_bin   !! Write a frame (either binary or NetCDF, using generic procedures)
    end type swiftest_cb
 
    !********************************************************************************************************************************
@@ -139,29 +243,29 @@ module swiftest_classes
    !> 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
+      logical                                                   :: lfirst = .true. !! Run the current step as a first
+      integer(I4B)                                              :: nbody = 0       !! Number of bodies
+      type(swiftest_particle_info), dimension(:),   allocatable :: info            !! Particle metadata information
+      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              !! Swiftestcentric position
+      real(DP),                     dimension(:,:), allocatable :: vh              !! Swiftestcentric 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
@@ -171,24 +275,25 @@ module swiftest_classes
       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)
+      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 :: read_in         => io_read_in_body              !! 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_bin => 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)
+      generic   :: write_frame     => write_frame_bin              !! Add the generic write frame for Fortran binary files
    end type swiftest_body
       
    !********************************************************************************************************************************
@@ -218,7 +323,7 @@ module swiftest_classes
       ! 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 :: index        => util_index_eucl_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  
@@ -226,6 +331,9 @@ module swiftest_classes
       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 :: vh2vb        => util_coord_vh2vb_pl    !! Convert massive bodies from heliocentric to barycentric coordinates (velocity only)
+      procedure :: vb2vh        => util_coord_vb2vh_pl    !! Convert massive bodies from barycentric to heliocentric coordinates (velocity only)
+      procedure :: xh2xb        => util_coord_xh2xb_pl    !! Convert massive bodies from heliocentric to barycentric coordinates (position only)
       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.
@@ -242,9 +350,11 @@ module swiftest_classes
    !> 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
+      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
+      integer(I4B), dimension(:,:), allocatable :: k_pltp !! Index array used to convert flattened the body-body comparison upper triangular matrix
+      integer(I8B)                              :: npltp  !! Number of pl-tp 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_tp and util_spill_tp
    contains
@@ -257,6 +367,9 @@ module swiftest_classes
       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 :: vb2vh     => util_coord_vb2vh_tp    !! Convert test particles from barycentric to heliocentric coordinates (velocity only)
+      procedure :: vh2vb     => util_coord_vh2vb_tp    !! Convert test particles from heliocentric to barycentric coordinates (velocity only)
+      procedure :: xh2xb     => util_coord_xh2xb_tp    !! Convert test particles from heliocentric to barycentric coordinates (position only)
       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.
@@ -270,62 +383,72 @@ module swiftest_classes
    ! swiftest_nbody_system class definitions and methods
    !********************************************************************************************************************************
    !> An abstract class for a basic Swiftest nbody system 
-   type, abstract, extends(swiftest_base) :: swiftest_nbody_system
+   type, abstract :: 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 
+      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)                        :: oblpot = 0.0_DP      !! System potential energy due to oblateness of the central body
+      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)       :: Ltot = 0.0_DP        !! System angular momentum vector
+      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
    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
+      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 :: get_old_t_final         => io_get_old_t_final_system              !! Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.
+      procedure :: read_frame              => io_read_frame_system                   !! Read in a frame of input data from file
+      procedure :: read_particle_info      => io_read_particle_info_system           !! Read in particle metadata 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 :: write_hdr_bin           => io_write_hdr_system                    !! Write a header for an output frame in Fortran binary format
+      procedure :: write_hdr_netcdf        => netcdf_write_hdr_system                !! Write a header for an output frame in NetCDF format
+      procedure :: obl_pot                 => obl_pot_system                         !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body
+      procedure :: initialize              => setup_initialize_system                !! Initialize the system from input files
+      procedure :: init_particle_info      => setup_initialize_particle_info_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
+      generic   :: write_hdr               => write_hdr_bin, write_hdr_netcdf        !! Generic method call for writing headers
    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(I8B), dimension(:),   allocatable :: kidx   !! index value of the encounter from the master k_plpl encounter list
       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
+      integer(I4B), dimension(:),   allocatable :: id1    !! id of the first body in the encounter
+      integer(I4B), dimension(:),   allocatable :: id2    !! id 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
+      real(DP),     dimension(:),   allocatable :: t      !! Time of encounter
    contains
       procedure :: setup  => setup_encounter       !! A constructor that sets the number of encounters and allocates and initializes all arrays  
+      procedure :: append => util_append_encounter !! Appends elements from one structure to another
       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.
+      procedure :: write  => io_write_encounter    !! Write close encounter data to output binary file
    end type swiftest_encounter
 
    abstract interface
@@ -345,12 +468,6 @@ subroutine abstract_accel(self, system, param, t, lbeg)
          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
@@ -362,14 +479,13 @@ subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
          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)
+      function abstract_read_frame(self, iu, param) result(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
+         integer(I4B)                              :: ierr  !! Error code: returns 0 if the read is successful
+      end function abstract_read_frame
 
       subroutine abstract_set_mu(self, cb) 
          import swiftest_body, swiftest_cb
@@ -395,13 +511,6 @@ subroutine abstract_step_system(self, param, t, dt)
          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
@@ -452,35 +561,18 @@ module pure elemental subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag
          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)
+      module subroutine util_index_eucl_plpl(self, param)
          implicit none
-         class(swiftest_pl), intent(inout) :: self  !! Swiftest massive body object
+         class(swiftest_pl),         intent(inout) :: self  !! Swiftest massive body object
+         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
       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 subroutine util_index_eucl_pltp(self, pl, param)
+         implicit none
+         class(swiftest_tp),         intent(inout) :: self  !! Swiftest test particle object
+         class(swiftest_pl),         intent(in)    :: pl    !! Swiftest massive body object
+         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      end subroutine
 
       module pure subroutine gr_kick_getaccb_ns_body(self, system, param)
          implicit none
@@ -511,9 +603,9 @@ 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)  :: xh    !! Swiftestcentric 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 
+         real(DP), dimension(:),     intent(out) :: vh    !! Swiftestcentric velocity vector 
       end subroutine gr_pseudovel2vel
 
       module pure subroutine gr_pv2vh_body(self, param)
@@ -526,8 +618,8 @@ 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(in)  :: xh    !! Swiftestcentric position vector 
+         real(DP), dimension(:),     intent(in)  :: vh    !! Swiftestcentric velocity vector 
          real(DP), dimension(:),     intent(out) :: pv    !! Pseudovelocity vector - see Saha & Tremain (1994), eq. (32)
       end subroutine gr_vel2pseudovel
 
@@ -550,11 +642,24 @@ 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)
+      module subroutine io_dump_particle_info_base(self, param, idx)
+         implicit none
+         class(swiftest_base),                 intent(inout) :: self  !! Swiftest base object (can be cb, pl, or tp)
+         class(swiftest_parameters),           intent(inout) :: param !! Current run configuration parameters 
+         integer(I4B), dimension(:), optional, intent(in)    :: idx   !! Array of test particle indices to append to the particle file
+      end subroutine io_dump_particle_info_base
+
+      module subroutine io_dump_particle_info(self, iu)
+         implicit none
+         class(swiftest_particle_info), intent(in) :: self !! Swiftest particle info metadata object
+         integer(I4B),                  intent(in) :: iu   !! Open unformatted file unit number
+      end subroutine io_dump_particle_info
+
+      module subroutine io_dump_base(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
+      end subroutine io_dump_base
 
       module subroutine io_dump_system(self, param)
          implicit none
@@ -569,6 +674,13 @@ module function io_get_args(integrator, param_file_name) result(ierr)
          integer(I4B)                  :: ierr             !! I/O error code 
       end function io_get_args
 
+      module function io_get_old_t_final_system(self, param) result(old_t_final)
+         implicit none
+         class(swiftest_nbody_system), intent(in) :: self
+         class(swiftest_parameters),   intent(in) :: param
+         real(DP)                                 :: old_t_final
+      end function io_get_old_t_final_system
+
       module function io_get_token(buffer, ifirst, ilast, ierr) result(token)
          implicit none
          character(len=*), intent(in)    :: buffer         !! Input string buffer
@@ -600,55 +712,64 @@ module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
          character(len=*),           intent(inout) :: iomsg     !! Message to pass if iostat /= 0
       end subroutine io_param_writer
 
-      module subroutine io_read_body_in(self, param) 
+      module subroutine io_read_in_body(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
+      end subroutine io_read_in_body
 
-      module subroutine io_read_cb_in(self, param) 
+      module subroutine io_read_in_cb(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
+      end subroutine io_read_in_cb
 
-      module subroutine io_read_param_in(self, param_file_name) 
+      module subroutine io_read_in_param(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
+      end subroutine io_read_in_param
 
-      module subroutine io_read_frame_body(self, iu, param, form, ierr)
+      module subroutine io_read_in_particle_info(self, iu)
          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
+         class(swiftest_particle_info), intent(inout) :: self !! Particle metadata information object
+         integer(I4B),                  intent(in)    :: iu   !! Open file unit number
+      end subroutine io_read_in_particle_info
 
-      module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+      module function io_read_frame_body(self, iu, param) result(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
+         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 
+         integer(I4B)                              :: ierr  !! Error code: returns 0 if the read is successful
+      end function io_read_frame_body
+
+      module function io_read_frame_cb(self, iu, param) result(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 
+         integer(I4B)                              :: ierr  !! Error code: returns 0 if the read is successful
+      end function io_read_frame_cb
 
-      module subroutine io_read_frame_system(self, iu, param, form, ierr)
+      module function io_read_frame_system(self, iu, param) result(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
+         integer(I4B)                               :: ierr  !! Error code: returns 0 if the read is successful
+      end function io_read_frame_system
+
+      module subroutine io_read_particle_info_system(self, param)
+         implicit none
+         class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters 
+      end subroutine io_read_particle_info_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 
+         class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters 
       end subroutine io_write_discard
 
       module subroutine io_toupper(string)
@@ -656,13 +777,12 @@ module subroutine io_toupper(string)
          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)
+      module subroutine io_write_encounter(self, pl, encbody, param)
          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
+         class(swiftest_encounter),  intent(in) :: self    !! Swiftest encounter list object
+         class(swiftest_pl),         intent(in) :: pl      !! Swiftest massive body object
+         class(swiftest_body),       intent(in) :: encbody !! Encountering body - Swiftest generic body object (pl or tp) 
+         class(swiftest_parameters), intent(in) :: param   !! Current run configuration parameters 
       end subroutine io_write_encounter
 
       module subroutine io_write_frame_body(self, iu, param)
@@ -679,16 +799,62 @@ module subroutine io_write_frame_cb(self, iu, param)
          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)
+      module subroutine io_write_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2)
          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 
+         integer(I4B),           intent(in) :: iu               !! Open file unit number
+         real(DP),               intent(in) :: t                !! Time of encounter
+         integer(I4B),           intent(in) :: id1, id2         !! ids of the two encountering bodies
+         real(DP),               intent(in) :: Gmass1, Gmass2   !! G*mass of the two encountering bodies
+         real(DP),               intent(in) :: radius1, radius2 !! Radii of the two encountering bodies
+         real(DP), dimension(:), intent(in) :: xh1, xh2         !! Swiftestcentric position vectors of the two encountering bodies 
+         real(DP), dimension(:), intent(in) :: vh1, vh2         !! Swiftestcentric velocity vectors of the two encountering bodies 
+      end subroutine io_write_frame_encounter
+
+      module subroutine io_write_frame_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_write_frame_system
 
-      module pure subroutine kick_getacch_int_pl(self)
+      module subroutine io_write_hdr_system(self, iu, param) 
+         implicit none
+         class(swiftest_nbody_system), intent(in)    :: self  !! Swiftest nbody system object
+         integer(I4B),                 intent(inout) :: iu    !! Output file unit number
+         class(swiftest_parameters),   intent(in)    :: param !! Current run configuration parameters
+      end subroutine io_write_hdr_system
+
+      module subroutine kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc)
+         implicit none
+         integer(I4B),                 intent(in)    :: npl    !! Number of massive bodies
+         integer(I8B),                 intent(in)    :: nplpl  !! Number of massive body interactions to compute
+         integer(I4B), dimension(:,:), intent(in)    :: k_plpl !! Array of interaction pair indices (flattened upper triangular matrix)
+         real(DP),     dimension(:,:), intent(in)    :: x      !! Position vector array
+         real(DP),     dimension(:),   intent(in)    :: Gmass  !! Array of massive body G*mass
+         real(DP),     dimension(:),   intent(in)    :: radius !! Array of massive body radii
+         real(DP),     dimension(:,:), intent(inout) :: acc    !! Acceleration vector array 
+      end subroutine kick_getacch_int_all_pl
+
+      module pure subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj)
+         implicit none
+         real(DP), intent(in)  :: rji2            !! Square of distance between the two bodies
+         real(DP), intent(in)  :: xr, yr, zr      !! Distances between the two bodies in x, y, and z directions
+         real(DP), intent(in)  :: Gmi             !! G*mass of body i
+         real(DP), intent(in)  :: Gmj             !! G*mass of body j
+         real(DP), intent(inout) :: axi, ayi, azi !! Acceleration vector components of body i
+         real(DP), intent(inout) :: axj, ayj, azj !! Acceleration vector components of body j
+      end subroutine kick_getacch_int_one_pl
+
+      module pure subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az)
          implicit none
-         class(swiftest_pl), intent(inout) :: self
+         real(DP), intent(in)  :: rji2         !! Square of distance between the test particle and massive body
+         real(DP), intent(in)  :: xr, yr, zr   !! Distances between the two bodies in x, y, and z directions
+         real(DP), intent(in)  :: Gmpl         !! G*mass of massive body
+         real(DP), intent(inout) :: ax, ay, az !! Acceleration vector components of test particle
+      end subroutine kick_getacch_int_one_tp
+
+      module subroutine kick_getacch_int_pl(self)
+         implicit none
+         class(swiftest_pl), intent(inout) :: self !! Swiftest massive body object
       end subroutine kick_getacch_int_pl
 
       module pure subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
@@ -699,6 +865,51 @@ module pure subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
          integer(I4B),             intent(in)    :: npl  !! Number of active massive bodies
       end subroutine kick_getacch_int_tp
 
+      module subroutine netcdf_close(self, param)
+         implicit none
+         class(netcdf_parameters),   intent(inout) :: self   !! Parameters used to identify a particular NetCDF dataset
+         class(swiftest_parameters), intent(in)    :: param  !! Current run configuration parameters
+      end subroutine netcdf_close
+
+      module subroutine netcdf_initialize_output(self, param)
+         implicit none
+         class(netcdf_parameters),     intent(inout) :: self  !! Parameters used to for writing a NetCDF dataset to file
+         class(swiftest_parameters),   intent(in)    :: param !! Current run configuration parameters 
+      end subroutine netcdf_initialize_output
+
+      module subroutine netcdf_open(self, param)
+         implicit none
+         class(netcdf_parameters),   intent(inout) :: self   !! Parameters used to identify a particular NetCDF dataset
+         class(swiftest_parameters), intent(in)    :: param  !! Current run configuration parameters
+      end subroutine netcdf_open
+
+      module subroutine netcdf_write_frame_base(self, iu, param)
+         implicit none
+         class(swiftest_base),       intent(in)    :: self  !! Swiftest base object
+         class(netcdf_parameters),   intent(inout) :: iu    !! Parameters used to for writing a NetCDF dataset to file
+         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters 
+      end subroutine netcdf_write_frame_base
+
+      module subroutine netcdf_write_frame_system(self, iu, param)
+         implicit none
+         class(swiftest_nbody_system),  intent(in)    :: self  !! Swiftest system object
+         integer(I4B),                  intent(inout) :: iu    !! Parameters used to for writing a NetCDF dataset to file
+         class(swiftest_parameters),    intent(in)    :: param !! Current run configuration parameters 
+      end subroutine netcdf_write_frame_system
+
+      module subroutine netcdf_write_hdr_system(self, iu, param) 
+         implicit none
+         class(swiftest_nbody_system), intent(in)    :: self  !! Swiftest nbody system object
+         class(netcdf_parameters),     intent(inout) :: iu    !! Parameters used to for writing a NetCDF dataset to file
+         class(swiftest_parameters),   intent(in)    :: param !! Current run configuration parameters
+      end subroutine netcdf_write_hdr_system
+
+      module subroutine netcdf_write_particle_info_base(self, iu)
+         implicit none
+         class(swiftest_base),       intent(in)    :: self   !! Swiftest particle object
+         class(netcdf_parameters),   intent(inout) :: iu     !! Parameters used to identify a particular NetCDF dataset
+      end subroutine netcdf_write_particle_info_base
+
       module subroutine obl_acc_body(self, system)
          implicit none
          class(swiftest_body),         intent(inout) :: self   !! Swiftest body object 
@@ -717,16 +928,10 @@ module subroutine obl_acc_tp(self, system)
          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)
+      module subroutine obl_pot_system(self)
          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
+         class(swiftest_nbody_system), intent(inout)  :: self   !! Swiftest nbody system object
+      end subroutine obl_pot_system
 
       module subroutine orbel_el2xv_vec(self, cb)
          implicit none
@@ -761,6 +966,19 @@ module pure subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi)
          real(DP),               intent(out) :: tperi !! time of pericenter passage
       end subroutine orbel_xv2aqt
 
+      module pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
+         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) :: inc   !! inclination
+         real(DP),               intent(out) :: capom !! longitude of ascending node
+         real(DP),               intent(out) :: omega !! argument of periapsis
+         real(DP),               intent(out) :: capm  !! mean anomaly
+      end subroutine orbel_xv2el
+
       module subroutine orbel_xv2el_vec(self, cb)
          implicit none
          class(swiftest_body), intent(inout) :: self !! Swiftest body object
@@ -777,7 +995,7 @@ 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
+         class(swiftest_parameters),                 intent(inout) :: param  !! Current run configuration parameters
       end subroutine setup_construct_system
 
       module subroutine setup_encounter(self, n)
@@ -786,6 +1004,12 @@ module subroutine setup_encounter(self, n)
          integer(I4B),              intent(in)    :: n    !! Number of encounters to allocate space for
       end subroutine setup_encounter
 
+      module subroutine setup_initialize_particle_info_system(self, param)
+         implicit none
+         class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters
+      end subroutine setup_initialize_particle_info_system
+
       module subroutine setup_initialize_system(self, param)
          implicit none
          class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest system object
@@ -794,8 +1018,8 @@ 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_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
 
@@ -863,6 +1087,14 @@ module subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
          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_info(arr, source, nold, nsrc, lsource_mask)
+         implicit none
+         type(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
+         type(swiftest_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 util_append_arr_info
+
       module subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
          implicit none
          logical, dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
@@ -875,11 +1107,18 @@ end subroutine util_append_arr_logical
    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
+         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_encounter(self, source, lsource_mask)
+         implicit none
+         class(swiftest_encounter), intent(inout) :: self         !! Swiftest encounter list object
+         class(swiftest_encounter), 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_encounter
+
       module subroutine util_append_pl(self, source, lsource_mask)
          implicit none
          class(swiftest_pl),              intent(inout) :: self         !! Swiftest massive body object
@@ -918,12 +1157,61 @@ module subroutine util_coord_h2b_tp(self, cb)
          class(swiftest_cb), intent(in)    :: cb   !! Swiftest central body object
       end subroutine util_coord_h2b_tp
 
+      module subroutine util_coord_vb2vh_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_vb2vh_pl
+   
+      module subroutine util_coord_vb2vh_tp(self, vbcb)
+         implicit none
+         class(swiftest_tp),     intent(inout) :: self !! Swiftest test particle object
+         real(DP), dimension(:), intent(in)    :: vbcb !! Barycentric velocity of the central body
+      end subroutine util_coord_vb2vh_tp
+   
+      module subroutine util_coord_vh2vb_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_vh2vb_pl
+   
+      module subroutine util_coord_vh2vb_tp(self, vbcb)
+         implicit none
+         class(swiftest_tp),        intent(inout) :: self !! Swiftest test particle object
+         real(DP), dimension(:), intent(in)    :: vbcb !! Barycentric velocity of the central body
+      end subroutine util_coord_vh2vb_tp
+
+      module subroutine util_coord_xh2xb_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_xh2xb_pl
+
+      module subroutine util_coord_xh2xb_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_xh2xb_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_copy_particle_info(self, source)
+         implicit none
+         class(swiftest_particle_info),  intent(inout) :: self
+         class(swiftest_particle_info),  intent(in)    :: source
+      end subroutine util_copy_particle_info
+
+      module subroutine util_copy_particle_info_arr(source, dest, idx)
+         implicit none
+         class(swiftest_particle_info), dimension(:), intent(in)             :: source !! Source object to copy into
+         class(swiftest_particle_info), dimension(:), intent(inout)          :: dest   !! Swiftest body object with particle metadata information object
+         integer(I4B),                  dimension(:), intent(in),   optional :: idx    !! Optional array of indices to draw the source object
+      end subroutine util_copy_particle_info_arr
+
       module subroutine util_exit(code)
          implicit none
          integer(I4B), intent(in) :: code !! Failure exit code
@@ -980,6 +1268,13 @@ module subroutine util_fill_arr_I4B(keeps, inserts, lfill_list)
          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_info(keeps, inserts, lfill_list)
+         implicit none
+         type(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: keeps      !! Array of values to keep 
+         type(swiftest_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 util_fill_arr_info
+
       module subroutine util_fill_arr_logical(keeps, inserts, lfill_list)
          implicit none
          logical, dimension(:), allocatable, intent(inout) :: keeps      !! Array of values to keep 
@@ -996,7 +1291,7 @@ module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
          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)
+      module function util_minimize_bfgs(f, N, x0, eps, maxloop, lerr) result(x1)
          use lambda_function
          implicit none
          integer(I4B),           intent(in)    :: N
@@ -1004,7 +1299,8 @@ module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
          real(DP), dimension(:), intent(in)    :: x0
          real(DP),               intent(in)    :: eps
          logical,                intent(out)   :: lerr
-         real(DP), dimension(:), allocatable :: x1
+         integer(I4B),           intent(in)    :: maxloop
+         real(DP), dimension(:), allocatable   :: x1
       end function util_minimize_bfgs
 
       module subroutine util_peri_tp(self, system, param) 
@@ -1041,6 +1337,12 @@ module subroutine util_resize_arr_I4B(arr, nnew)
          integer(I4B),                            intent(in)    :: nnew !! New size
       end subroutine util_resize_arr_I4B
 
+      module subroutine util_resize_arr_info(arr, nnew)
+         implicit none
+         type(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
+         integer(I4B),                                   intent(in)    :: nnew !! New size
+      end subroutine util_resize_arr_info
+
       module subroutine util_resize_arr_logical(arr, nnew)
          implicit none
          logical, dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -1109,6 +1411,22 @@ module subroutine util_set_mu_tp(self, cb)
          class(swiftest_cb), intent(inout) :: cb   !! Swiftest central body object
       end subroutine util_set_mu_tp
 
+      module subroutine util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
+         implicit none
+         class(swiftest_particle_info), intent(inout)           :: self
+         character(len=*),              intent(in),    optional :: name            !! Non-unique name
+         character(len=*),              intent(in),    optional :: particle_type   !! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)
+         character(len=*),              intent(in),    optional :: status          !! Particle status description: Active, Merged, Fragmented, etc.
+         character(len=*),              intent(in),    optional :: origin_type     !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)
+         real(DP),                      intent(in),    optional :: origin_time     !! The time of the particle's formation
+         real(DP), dimension(:),        intent(in),    optional :: origin_xh       !! The heliocentric distance vector at the time of the particle's formation
+         real(DP), dimension(:),        intent(in),    optional :: origin_vh       !! The heliocentric velocity vector at the time of the particle's formation
+         real(DP),                      intent(in),    optional :: discard_time    !! The time of the particle's discard
+         real(DP), dimension(:),        intent(in),    optional :: discard_xh      !! The heliocentric distance vector at the time of the particle's discard
+         real(DP), dimension(:),        intent(in),    optional :: discard_vh      !! The heliocentric velocity vector at the time of the particle's discard
+         integer(I4B),                  intent(in),    optional :: discard_body_id !! The id of the other body involved in the discard (0 if no other body involved)
+      end subroutine util_set_particle_info
+
       module subroutine util_set_rhill(self,cb)
          implicit none
          class(swiftest_pl), intent(inout) :: self !! Swiftest massive body object
@@ -1190,6 +1508,50 @@ module subroutine util_sort_index_dp(arr,ind)
       end subroutine util_sort_index_dp
    end interface util_sort
 
+   interface util_sort_rearrange
+      module subroutine util_sort_rearrange_arr_char_string(arr, ind, n)
+         implicit none
+         character(len=STRMAX), dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B),          dimension(:),              intent(in)    :: ind !! Index to rearrange against
+         integer(I4B),                                     intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine util_sort_rearrange_arr_char_string
+
+      module subroutine util_sort_rearrange_arr_DP(arr, ind, n)
+         implicit none
+         real(DP),     dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B), dimension(:),              intent(in)  :: ind !! Index to rearrange against
+         integer(I4B),                            intent(in)  :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine util_sort_rearrange_arr_DP
+
+      module subroutine util_sort_rearrange_arr_DPvec(arr, ind, n)
+         implicit none
+         real(DP),     dimension(:,:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B), dimension(:),                intent(in)    :: ind !! Index to rearrange against
+         integer(I4B),                              intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine util_sort_rearrange_arr_DPvec
+
+      module subroutine util_sort_rearrange_arr_I4B(arr, ind, n)
+         implicit none
+         integer(I4B), dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B), dimension(:),              intent(in)    :: ind !! Index to rearrange against
+         integer(I4B),                             intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine util_sort_rearrange_arr_I4B
+
+      module subroutine util_sort_rearrange_arr_info(arr, ind, n)
+         implicit none
+         type(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B),        dimension(:),              intent(in)    :: ind !! Index to rearrange against
+         integer(I4B),                                   intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine util_sort_rearrange_arr_info
+
+      module subroutine util_sort_rearrange_arr_logical(arr, ind, n)
+         implicit none
+         logical,      dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B), dimension(:),              intent(in)    :: ind !! Index to rearrange against
+         integer(I4B),                            intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine util_sort_rearrange_arr_logical
+   end interface util_sort_rearrange
+
    interface
       module subroutine util_sort_rearrange_body(self, ind)
          implicit none
@@ -1264,6 +1626,22 @@ module subroutine util_spill_arr_I4B(keeps, 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_arr_I4B
 
+      module subroutine util_spill_arr_I8B(keeps, discards, lspill_list, ldestructive)
+         implicit none
+         integer(I8B), dimension(:), allocatable, intent(inout) :: keeps        !! Array of values to keep 
+         integer(I8B), 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_I8B
+
+      module subroutine util_spill_arr_info(keeps, discards, lspill_list, ldestructive)
+         implicit none
+         type(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: keeps        !! Array of values to keep 
+         type(swiftest_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 util_spill_arr_info
+
       module subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive)
          implicit none
          logical, dimension(:), allocatable, intent(inout) :: keeps        !! Array of values to keep 
@@ -1309,7 +1687,7 @@ 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
+         class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters
       end subroutine util_valid_id_system
 
       module subroutine util_version()
diff --git a/docs/src/swiftest_driver.f90 b/docs/src/swiftest_driver.f90
index 5e28452e0..b4260f115 100644
--- a/docs/src/swiftest_driver.f90
+++ b/docs/src/swiftest_driver.f90
@@ -17,8 +17,10 @@ program swiftest_driver
    integer(I8B)                               :: iloop            !! Loop counter
    integer(I8B)                               :: idump            !! Dump cadence counter
    integer(I8B)                               :: iout             !! Output cadence counter
+   integer(I8B)                               :: ioutput_t0       !! The output frame counter at time 0
    integer(I8B)                               :: nloops           !! Number of steps to take in the simulation
-   integer(I4B)                               :: iu               !! Unit number of binary file
+   real(DP)                                   :: old_t_final = 0.0_DP !! Output time at which writing should start, in order to prevent duplicate lines being written for restarts
+   type(walltimer)                            :: timer            !! Object used for computing elapsed wall time
 
    ierr = io_get_args(integrator, param_file_name)
    if (ierr /= 0) then
@@ -35,23 +37,32 @@ program swiftest_driver
    param%integrator = integrator
 
    call setup_construct_system(nbody_system, param)
-   call param%read_from_file(param_file_name)
+   call param%read_in(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)  
+             istep_dump => param%istep_dump, &
+             ioutput    => param%ioutput)  
 
       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)
+      nloops = ceiling((tstop - t0) / dt, kind=I8B)
+      ioutput_t0 = int(t0 / dt / istep_out, kind=I8B)
+      ioutput = ioutput_t0
+      ! Prevent duplicate frames from being written if this is a restarted run
+      if ((param%lrestart) .and. ((param%out_type == REAL8_TYPE) .or. param%out_type == REAL4_TYPE)) then
+         old_t_final = nbody_system%get_old_t_final(param)
+      else
+         old_t_final = t0
+         if (istep_out > 0) call nbody_system%write_frame(param)
+         call nbody_system%dump(param)
+      end if
 
       !> Define the maximum number of threads
       nthreads = 1            ! In the *serial* case
@@ -59,6 +70,7 @@ program swiftest_driver
       !$ write(*,'(a)')   ' OpenMP parameters:'
       !$ write(*,'(a)')   ' ------------------'
       !$ write(*,'(a,i3,/)') ' Number of threads  = ', nthreads 
+      call timer%reset()
       write(*, *) " *************** Main Loop *************** "
       do iloop = 1, nloops
          !> Step the system forward in time
@@ -73,7 +85,10 @@ program swiftest_driver
          if (istep_out > 0) then
             iout = iout - 1
             if (iout == 0) then
-               call nbody_system%write_frame(iu, param)
+               ioutput = ioutput_t0 + iloop / istep_out
+               call timer%finish(nsubsteps=istep_out, message="Integration steps:")
+               if (t > old_t_final) call nbody_system%write_frame(param)
+               call timer%finish(nsubsteps=1,         message="File I/O:         ")
                iout = istep_out
             end if
          end if
diff --git a/docs/src/swiftest_globals.f90 b/docs/src/swiftest_globals.f90
index 5ec55f6c6..1f9c6028c 100644
--- a/docs/src/swiftest_globals.f90
+++ b/docs/src/swiftest_globals.f90
@@ -22,7 +22,10 @@ module swiftest_globals
    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 = 180.0_DP/PI !! Definition of conversion factor from degrees to radians
+   real(DP), parameter :: DEG2RAD = PI / 180.0_DP !! Definition of conversion factor from degrees to radians
+   real(DP), parameter :: RAD2DEG = 180.0_DP / PI !! Definition of conversion factor from degrees to radians
+   real(DP), parameter :: GC        = 6.6743E-11_DP   !! Universal gravitational constant in SI units
+   real(DP), parameter :: einsteinC = 299792458.0_DP  !! Speed of light in SI units
 
    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
@@ -41,16 +44,23 @@ module swiftest_globals
    integer(I4B), parameter :: SYMBA              = 8
    integer(I4B), parameter :: RINGMOONS          = 9
 
-   integer(I4B), parameter :: STRMAX = 128 !! Maximum size of character strings
+   integer(I4B), parameter :: STRMAX = 512 !! Maximum size of character strings
+   integer(I4B), parameter :: NAMELEN = 32 !! Maximum size of name 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 :: NETCDF_FLOAT_TYPE   = 'NETCDF_FLOAT' !! Symbolic name for binary file type REAL8
+   character(*), parameter :: NETCDF_DOUBLE_TYPE   = 'NETCDF_DOUBLE' !! Symbolic name for binary file type REAL8
+
+   character(*), parameter :: EL  = 'EL' !! Symbolic name for binary output file contents for orbital elements
+   character(*), parameter :: XV  = 'XV' !! Symbolic name for binary output file contents for cartesian position and velocity vectors
+   character(*), parameter :: XVEL  = 'XVEL' !! Symbolic name for binary output file contents for both cartesian position and velocity and orbital elements
 
-   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
+   character(*), parameter :: CB_TYPE_NAME = "Central Body"
+   character(*), parameter :: PL_TYPE_NAME = "Massive Body"
+   character(*), parameter :: TP_TYPE_NAME = "Test Particle"
+   character(*), parameter :: PL_TINY_TYPE_NAME = "Semi-Interacting Massive Body"
 
    ! OpenMP Parameters
    integer(I4B)            :: nthreads = 1 !! Number of OpenMP threads
@@ -61,7 +71,6 @@ module swiftest_globals
    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>")'
@@ -72,21 +81,24 @@ module swiftest_globals
    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
+   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_DISRUPT = -12
+   integer(I4B), parameter :: HIT_AND_RUN_PURE    = -13
+   integer(I4B), parameter :: COLLISION           = -14
+   integer(I4B), parameter :: NEW_PARTICLE        = -15
+   integer(I4B), parameter :: OLD_PARTICLE        = -16
 
    !>Symbolic names for collisional outcomes from collresolve_resolve:
    integer(I4B), parameter :: COLLRESOLVE_REGIME_MERGE              =  1
@@ -104,24 +116,85 @@ module swiftest_globals
    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']
+   character(*), dimension(2), parameter :: DUMP_PARAM_FILE = ['dump_param1.in',  'dump_param2.in']
 
    !> 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
+   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
+   character(*), parameter :: PARTICLE_OUTFILE = 'particle.dat'
+   integer(I4B), parameter :: PARTICLEUNIT     = 44 !! File unit number for the binary particle info 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 = 299792458.0_DP  !! Speed of light in SI units
+   !> NetCDF variable names and constants
+   character(*), parameter :: NETCDF_OUTFILE          = 'bin.nc'          !! Default output file name
+   character(*), parameter :: TIME_DIMNAME            = "time"            !! NetCDF name of the time dimension 
+   character(*), parameter :: ID_DIMNAME              = "id"              !! NetCDF name of the particle id dimension
+   character(*), parameter :: STR_DIMNAME             = "str"             !! NetCDF name of the particle id dimension
+   character(*), parameter :: PTYPE_VARNAME           = "particle_type"   !! NetCDF name of the particle type variable
+   character(*), parameter :: NAME_VARNAME            = "name"            !! NetCDF name of the particle name variable
+   character(*), parameter :: NPL_VARNAME             = "npl"             !! NetCDF name of the number of active massive bodies variable
+   character(*), parameter :: NTP_VARNAME             = "ntp"             !! NetCDF name of the number of active test particles variable
+   character(*), parameter :: A_VARNAME               = "a"               !! NetCDF name of the semimajor axis variable 
+   character(*), parameter :: E_VARNAME               = "e"               !! NetCDF name of the eccentricity variable 
+   character(*), parameter :: INC_VARNAME             = "inc"             !! NetCDF name of the inclination variable 
+   character(*), parameter :: CAPOM_VARNAME           = "capom"           !! NetCDF name of the long. asc. node variable 
+   character(*), parameter :: OMEGA_VARNAME           = "omega"           !! NetCDF name of the arg. periapsis variable 
+   character(*), parameter :: CAPM_VARNAME            = "capm"            !! NetCDF name of the mean anomaly variable 
+   character(*), parameter :: XHX_VARNAME             = "xhx"             !! NetCDF name of the heliocentric position x variable 
+   character(*), parameter :: XHY_VARNAME             = "xhy"             !! NetCDF name of the heliocentric position y variable 
+   character(*), parameter :: XHZ_VARNAME             = "xhz"             !! NetCDF name of the heliocentric position z variable 
+   character(*), parameter :: VHX_VARNAME             = "vhx"             !! NetCDF name of the heliocentric velocity x variable 
+   character(*), parameter :: VHY_VARNAME             = "vhy"             !! NetCDF name of the heliocentric velocity y variable 
+   character(*), parameter :: VHZ_VARNAME             = "vhz"             !! NetCDF name of the heliocentric velocity z variable 
+   character(*), parameter :: GMASS_VARNAME           = "Gmass"           !! NetCDF name of the mass variable
+   character(*), parameter :: RHILL_VARNAME           = "rhill"           !! NetCDF name of the hill radius variable
+   character(*), parameter :: RADIUS_VARNAME          = "radius"          !! NetCDF name of the radius variable
+   character(*), parameter :: IP1_VARNAME             = "Ip1"             !! NetCDF name of the axis 1 principal moment of inertial variable
+   character(*), parameter :: IP2_VARNAME             = "Ip2"             !! NetCDF name of the axis 2 principal moment of inertial variable
+   character(*), parameter :: IP3_VARNAME             = "Ip3"             !! NetCDF name of the axis 3 principal moment of inertial variable
+   character(*), parameter :: ROTX_VARNAME            = "rotx"            !! NetCDF name of the rotation x variable
+   character(*), parameter :: ROTY_VARNAME            = "roty"            !! NetCDF name of the rotation y variable
+   character(*), parameter :: ROTZ_VARNAME            = "rotz"            !! NetCDF name of the rotation z variable
+   character(*), parameter :: K2_VARNAME              = "k2"              !! NetCDF name of the Love number variable
+   character(*), parameter :: Q_VARNAME               = "Q"               !! NetCDF name of the energy dissipation variable
+   character(*), parameter :: KE_ORB_VARNAME          = "KE_orb"          !! NetCDF name of the system orbital kinetic energy variable
+   character(*), parameter :: KE_SPIN_VARNAME         = "KE_spin"         !! NetCDF name of the system spin kinetic energy variable
+   character(*), parameter :: PE_VARNAME              = "PE"              !! NetCDF name of the system potential energy variable
+   character(*), parameter :: L_ORBX_VARNAME          = "L_orbx"          !! NetCDF name of the orbital angular momentum x variable
+   character(*), parameter :: L_ORBY_VARNAME          = "L_orby"          !! NetCDF name of the orbital angular momentum y variable
+   character(*), parameter :: L_ORBZ_VARNAME          = "L_orbz"          !! NetCDF name of the orbital angular momentum z variable
+   character(*), parameter :: L_SPINX_VARNAME         = "L_spinx"         !! NetCDF name of the spin angular momentum x variable
+   character(*), parameter :: L_SPINY_VARNAME         = "L_spiny"         !! NetCDF name of the spin angular momentum y variable
+   character(*), parameter :: L_SPINZ_VARNAME         = "L_spinz"         !! NetCDF name of the spin angular momentum z variable
+   character(*), parameter :: L_ESCAPEX_VARNAME       = "L_escapex"       !! NetCDF name of the escaped angular momentum x variable
+   character(*), parameter :: L_ESCAPEY_VARNAME       = "L_escapey"       !! NetCDF name of the escaped angular momentum y variable
+   character(*), parameter :: L_ESCAPEZ_VARNAME       = "L_escapez"       !! NetCDF name of the escaped angular momentum z variable                          
+   character(*), parameter :: ECOLLISIONS_VARNAME     = "Ecollisions"     !! NetCDF name of the escaped angular momentum y variable                             
+   character(*), parameter :: EUNTRACKED_VARNAME      = "Euntracked"      !! NetCDF name of the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)
+   character(*), parameter :: GMESCAPE_VARNAME        = "GMescape"        !! NetCDF name of the G*Mass of bodies that escape the system
+   character(*), parameter :: STATUS_VARNAME          = "status"          !! NetCDF name of the current status of the body variable (includes discard type)
+   character(*), parameter :: ORIGIN_TYPE_VARNAME     = "origin_type"     !! NetCDF name of the origin type variable (Initial Conditions, Disruption, etc.)
+   character(*), parameter :: ORIGIN_TIME_VARNAME     = "origin_time"     !! NetCDF name of the time of origin variable
+   character(*), parameter :: ORIGIN_XHX_VARNAME      = "origin_xhx"      !! NetCDF name of the heliocentric position of the body at the time of origin x variable
+   character(*), parameter :: ORIGIN_XHY_VARNAME      = "origin_xhy"      !! NetCDF name of the heliocentric position of the body at the time of origin y variable
+   character(*), parameter :: ORIGIN_XHZ_VARNAME      = "origin_xhz"      !! NetCDF name of the heliocentric position of the body at the time of origin z variable
+   character(*), parameter :: ORIGIN_VHX_VARNAME      = "origin_vhx"      !! NetCDF name of the heliocentric velocity of the body at the time of origin x variable
+   character(*), parameter :: ORIGIN_VHY_VARNAME      = "origin_vhy"      !! NetCDF name of the heliocentric velocity of the body at the time of origin y variable
+   character(*), parameter :: ORIGIN_VHZ_VARNAME      = "origin_vhz"      !! NetCDF name of the heliocentric velocity of the body at the time of origin z variable
+   character(*), parameter :: DISCARD_TIME_VARNAME    = "discard_time"    !! NetCDF name of the time of discard variable
+   character(*), parameter :: DISCARD_XHX_VARNAME     = "discard_xhx"     !! NetCDF name of the heliocentric position of the body at the time of discard x variable
+   character(*), parameter :: DISCARD_XHY_VARNAME     = "discard_xhy"     !! NetCDF name of the heliocentric position of the body at the time of discard y variable
+   character(*), parameter :: DISCARD_XHZ_VARNAME     = "discard_xhz"     !! NetCDF name of the heliocentric position of the body at the time of discard z variable
+   character(*), parameter :: DISCARD_VHX_VARNAME     = "discard_vhx"     !! NetCDF name of the heliocentric velocity of the body at the time of discard x variable
+   character(*), parameter :: DISCARD_VHY_VARNAME     = "discard_vhy"     !! NetCDF name of the heliocentric velocity of the body at the time of discard y variable
+   character(*), parameter :: DISCARD_VHZ_VARNAME     = "discard_vhz"     !! NetCDF name of the heliocentric velocity of the body at the time of discard z variable
+   character(*), parameter :: DISCARD_BODY_ID_VARNAME = "discard_body_id" !! NetCDF name of the id of the other body involved in the discard
 
 end module swiftest_globals
diff --git a/docs/src/symba_classes.f90 b/docs/src/symba_classes.f90
index 4628202f8..21986b920 100644
--- a/docs/src/symba_classes.f90
+++ b/docs/src/symba_classes.f90
@@ -1,12 +1,13 @@
 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
+   !! Definition of classes and methods specific to the SyMBA integrator
+   !! Adapted from David E. Kaufmann's Swifter routine: module_symba.f90
    use swiftest_globals
-   use swiftest_classes, only : swiftest_parameters, swiftest_base, swiftest_encounter
+   use swiftest_classes, only : swiftest_parameters, swiftest_base, swiftest_encounter, swiftest_particle_info, netcdf_parameters
    use helio_classes,    only : helio_cb, helio_pl, helio_tp, helio_nbody_system
    use rmvs_classes,     only : rmvs_chk_ind
+   use fraggle_classes,  only : fraggle_colliders, fraggle_fragments
    implicit none
    public
 
@@ -14,32 +15,17 @@ module symba_classes
    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.
+      real(DP)                                :: GMTINY         = -1.0_DP          !! Smallest G*mass that is fully gravitating
+      real(DP)                                :: min_GMfrag     = -1.0_DP           !! Smallest G*mass that can be produced in a fragmentation event
+      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
    !*******************************************************************************************************************************
@@ -55,11 +41,10 @@ module symba_classes
    !*******************************************************************************************************************************
    !> 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) :: GM0  = 0.0_DP !! Initial G*mass of the central body
+      real(DP) :: dGM  = 0.0_DP !! Change in G*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
 
@@ -81,18 +66,20 @@ module symba_classes
       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 :: make_colliders  => symba_collision_make_colliders_pl !! When a single body is involved in more than one collision in a single step, it becomes part of a family
+      procedure :: index           => symba_util_index_eucl_plpl     !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix
       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_int       => symba_kick_getacch_int_pl      !! Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY
       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 :: reset_kinship   => symba_util_reset_kinship       !! Resets the kinship status of 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
@@ -115,7 +102,6 @@ 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
@@ -129,88 +115,122 @@ module symba_classes
       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_encounter class definitions and method interfaces
+   !*******************************************************************************************************************************
+   !> SyMBA class for tracking close encounters in a step
+   type, extends(swiftest_encounter) :: symba_encounter
+      integer(I4B), dimension(:),   allocatable :: level  !! encounter recursion level
+   contains
+      procedure :: collision_check => symba_collision_check_encounter !! Checks if a test particle is going to collide with a massive body
+      procedure :: encounter_check => symba_encounter_check           !! Checks if massive bodies are going through close encounters with each other
+      procedure :: kick            => symba_kick_encounter            !! Kick barycentric velocities of active test particles within SyMBA recursion
+      procedure :: setup           => symba_setup_encounter           !! A constructor that sets the number of encounters and allocates and initializes all arrays  
+      procedure :: copy            => symba_util_copy_encounter       !! Copies elements from the source encounter list into self.
+      procedure :: spill           => symba_util_spill_encounter      !! "Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)
+      procedure :: append          => symba_util_append_encounter     !! Appends elements from one structure to another
+   end type symba_encounter
+
    !********************************************************************************************************************************
    !                                    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
+   type, extends(symba_encounter) :: symba_pltpenc
    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)
+      procedure :: resolve_collision => symba_collision_resolve_pltpenc !! Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c
    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
+   type, extends(symba_encounter) :: 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
+      procedure :: extract_collisions     => symba_collision_encounter_extract_collisions !! 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
+      procedure :: resolve_collision      => symba_collision_resolve_plplenc              !! Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c
    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
+      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
+      class(symba_plplenc), allocatable :: plplcollision_list !! List of massive body-massive body collisions 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 
+      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)
+      module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
          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
+         class(symba_encounter),       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
+         logical                                   :: lany_collision !! Returns true if cany pair of encounters resulted in a collision n
+      end function symba_collision_check_encounter
 
-      module subroutine symba_collision_encounter_scrub(self, system, param)
+      module subroutine symba_collision_encounter_extract_collisions(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
+         class(swiftest_parameters), intent(in)    :: param  !! Current run configuration parameters
       end subroutine
 
-      module subroutine symba_collision_make_family_pl(self,idx)
+      module subroutine symba_collision_make_colliders_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
+      end subroutine symba_collision_make_colliders_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
+         class(symba_parameters),   intent(inout) :: 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
+         class(symba_parameters),   intent(inout) :: param  !! Current run configuration parameters with SyMBA additions
       end subroutine symba_collision_resolve_mergers
 
+      module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec)
+         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(inout) :: param  !! Current run configuration parameters with SyMBA additions
+         real(DP),                   intent(in)    :: t      !! Current simulation time
+         real(DP),                   intent(in)    :: dt     !! Current simulation step size
+         integer(I4B),               intent(in)    :: irec   !! Current recursion level
+      end subroutine symba_collision_resolve_plplenc
+   
+      module subroutine symba_collision_resolve_pltpenc(self, system, param, t, dt, irec)
+         implicit none
+         class(symba_pltpenc),       intent(inout) :: self   !! SyMBA pl-tp encounter list
+         class(symba_nbody_system),  intent(inout) :: system !! SyMBA nbody system object
+         class(swiftest_parameters), intent(inout) :: param  !! Current run configuration parameters with SyMBA additions
+         real(DP),                   intent(in)    :: t      !! Current simulation time
+         real(DP),                   intent(in)    :: dt     !! Current simulation step size
+         integer(I4B),               intent(in)    :: irec   !! Current recursion level
+      end subroutine symba_collision_resolve_pltpenc
+
       module subroutine symba_discard_pl(self, system, param)
          use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
          implicit none
@@ -254,14 +274,14 @@ module function symba_encounter_check_pl(self, system, dt, irec) result(lany_enc
          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)
+      module function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
          implicit none
-         class(symba_pltpenc),      intent(inout) :: self           !! SyMBA pl-pl encounter list object
+         class(symba_encounter),      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
+      end function symba_encounter_check
 
       module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter)
          implicit none
@@ -272,68 +292,43 @@ module function symba_encounter_check_tp(self, system, dt, irec) result(lany_enc
          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_collision_casedisruption(system, param, colliders, frag) result(status)
+         use fraggle_classes, only : fraggle_colliders, fraggle_fragments
+         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 additions
+         class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+         class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object
+         integer(I4B)                             :: status    !! Status flag assigned to this outcome
+      end function symba_collision_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)
+      module function symba_collision_casehitandrun(system, param, colliders, frag) result(status)
+         use fraggle_classes, only : fraggle_colliders, fraggle_fragments
+         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 additions
+         class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+         class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object
+         integer(I4B)                             :: status    !! Status flag assigned to this outcome
+      end function symba_collision_casehitandrun
+
+      module function symba_collision_casemerge(system, param, colliders, frag) result(status)
+         use fraggle_classes, only : fraggle_colliders, fraggle_fragments
+         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 additions
+         class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+         class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object 
+         integer(I4B)                             :: status    !! Status flag assigned to this outcome
+      end function symba_collision_casemerge
+
+      module subroutine symba_util_index_eucl_plpl(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
+         class(symba_pl),            intent(inout) :: self  !! SyMBA massive body object
+         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      end subroutine symba_util_index_eucl_plpl
 
-      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
@@ -356,11 +351,17 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms
          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)
+      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(inout) :: param !! Current run configuration parameters 
+      end subroutine symba_io_write_discard
+
+      module subroutine symba_kick_getacch_int_pl(self)
          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
+         class(symba_pl), intent(inout) :: self
+      end subroutine symba_kick_getacch_int_pl
 
       module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
          use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
@@ -382,20 +383,14 @@ module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
          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)
+      module subroutine symba_kick_encounter(self, system, dt, irec, sgn)
          implicit none
-         class(symba_pltpenc),      intent(in)    :: self   !! SyMBA pl-tp encounter list object
+         class(symba_encounter),      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
+      end subroutine symba_kick_encounter
 
       module subroutine symba_setup_initialize_system(self, param)
          use swiftest_classes, only : swiftest_parameters
@@ -420,11 +415,11 @@ module subroutine symba_setup_pl(self, n, param)
          class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
       end subroutine symba_setup_pl
 
-      module subroutine symba_setup_pltpenc(self,n)
+      module subroutine symba_setup_encounter(self,n)
          implicit none
-         class(symba_pltpenc), intent(inout) :: self !! SyMBA pl-tp encounter structure
+         class(symba_encounter), 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
+      end subroutine symba_setup_encounter
 
       module subroutine symba_setup_tp(self, n, param)
          use swiftest_classes, only : swiftest_parameters
@@ -463,25 +458,18 @@ module recursive subroutine symba_step_recur_system(self, param, t, ireci)
          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
+         real(DP),                   intent(in)        :: t
+         integer(I4B),               intent(in)        :: ireci !! input recursion level
       end subroutine symba_step_recur_system
 
-      module subroutine symba_step_reset_system(self)
+      module subroutine symba_step_reset_system(self, param)
          implicit none
-         class(symba_nbody_system),  intent(inout) :: self !! SyMBA nbody system object
+         class(symba_nbody_system), intent(inout) :: self  !! SyMBA nbody system object
+         class(symba_parameters),   intent(in)    :: param !! Current run configuration parameters with SyMBA additions
       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 
@@ -492,6 +480,13 @@ end subroutine symba_util_append_arr_kin
    end interface
 
    interface
+      module subroutine symba_util_append_encounter(self, source, lsource_mask)
+         implicit none
+         class(symba_encounter),    intent(inout) :: self         !! SyMBA encounter list object
+         class(swiftest_encounter), 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_encounter
+
       module subroutine symba_util_append_merger(self, source, lsource_mask)
          use swiftest_classes, only : swiftest_body
          implicit none
@@ -515,16 +510,16 @@ module subroutine symba_util_append_tp(self, source, lsource_mask)
          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)
+      module subroutine symba_util_copy_encounter(self, source)
+         use swiftest_classes, only : swiftest_encounter
          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
+         class(symba_encounter),    intent(inout) :: self   !! Encounter list 
+         class(swiftest_encounter), intent(in)    :: source !! Source object to copy into
+      end subroutine symba_util_copy_encounter
+   end interface 
 
+   interface util_fill
       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 
@@ -562,17 +557,19 @@ 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
+         class(symba_parameters),   intent(inout) :: 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)
+      module subroutine symba_util_reset_kinship(self, idx)
          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
+         class(symba_pl),            intent(inout) :: self !! SyMBA massive body object
+         integer(I4B), dimension(:), intent(in)    :: idx  !! Index array of bodies to reset
+         integer(I4B) :: i, j
+      end subroutine symba_util_reset_kinship
+      
+   end interface
 
+   interface util_resize
       module subroutine symba_util_resize_arr_kin(arr, nnew)
          implicit none
          type(symba_kinship), dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -612,7 +609,18 @@ module subroutine symba_util_sort_tp(self, sortby, ascending)
          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
+   end interface
+
+   interface util_sort_rearrange
+      module subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n)
+         implicit none
+         type(symba_kinship),         dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+         integer(I4B), dimension(:),              intent(in)    :: ind !! Index to rearrange against
+         integer(I4B),                            intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      end subroutine symba_util_sort_rearrange_arr_kin
+   end interface util_sort_rearrange
 
+   interface
       module subroutine symba_util_sort_rearrange_pl(self, ind)
          implicit none
          class(symba_pl),               intent(inout) :: self !! SyMBA massive body object
@@ -627,14 +635,6 @@ 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 
@@ -654,14 +654,14 @@ module subroutine symba_util_spill_pl(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 symba_util_spill_pl
 
-      module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+      module subroutine symba_util_spill_encounter(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(symba_encounter),    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
+      end subroutine symba_util_spill_encounter
 
       module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
          use swiftest_classes, only : swiftest_body
diff --git a/docs/src/symba_collision.f90 b/docs/src/symba_collision.f90
index 1910411b9..a3990cabd 100644
--- a/docs/src/symba_collision.f90
+++ b/docs/src/symba_collision.f90
@@ -1,8 +1,256 @@
 submodule (symba_classes) s_symba_collision
    use swiftest
+
 contains
 
-   module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec)
+   module function symba_collision_casedisruption(system, param, colliders, frag)  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(inout) :: param     !! Current run configuration parameters with SyMBA additions
+      class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+      class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object 
+      ! Result
+      integer(I4B)                             :: status    !! Status flag assigned to this outcome
+      ! Internals
+      integer(I4B)          :: i, nfrag
+      logical               :: lfailure
+      character(len=STRMAX) :: message 
+
+      select case(frag%regime)
+      case(COLLRESOLVE_REGIME_DISRUPTION)
+         message = "Disruption between"
+      case(COLLRESOLVE_REGIME_SUPERCATASTROPHIC)
+         message = "Supercatastrophic disruption between"
+      end select
+      call symba_collision_collider_message(system%pl, colliders%idx, message)
+      call fraggle_io_log_one_message(message)
+
+      ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
+      call frag%set_mass_dist(colliders, param)
+
+      ! Generate the position and velocity distributions of the fragments
+      call frag%generate_fragments(colliders, system, param, lfailure)
+
+      if (lfailure) then
+         call fraggle_io_log_one_message("No fragment solution found, so treat as a pure hit-and-run")
+         status = ACTIVE 
+         nfrag = 0
+         select type(pl => system%pl)
+         class is (symba_pl)
+            pl%status(colliders%idx(:)) = status
+            pl%ldiscard(colliders%idx(:)) = .false.
+            pl%lcollision(colliders%idx(:)) = .false.
+         end select
+      else
+         ! Populate the list of new bodies
+         nfrag = frag%nbody
+         write(message, *) nfrag
+         call fraggle_io_log_one_message("Generating " // trim(adjustl(message)) // " fragments")
+         select case(frag%regime)
+         case(COLLRESOLVE_REGIME_DISRUPTION)
+            status = DISRUPTION
+         case(COLLRESOLVE_REGIME_SUPERCATASTROPHIC)
+            status = SUPERCATASTROPHIC
+         end select
+         frag%id(1:nfrag) = [(i, i = param%maxid + 1, param%maxid + nfrag)]
+         param%maxid = frag%id(nfrag)
+         call symba_collision_mergeaddsub(system, param, colliders, frag, status)
+      end if
+
+      return
+   end function symba_collision_casedisruption
+
+
+   module function symba_collision_casehitandrun(system, param, colliders, frag)  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(inout) :: param     !! Current run configuration parameters with SyMBA additions
+      class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+      class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object 
+      ! Result
+      integer(I4B)                             :: status    !! Status flag assigned to this outcom
+      ! Internals
+      integer(I4B)                            :: i, ibiggest, nfrag, jtarg, jproj
+      logical                                 :: lpure 
+      character(len=STRMAX) :: message
+      character(len=NAMELEN) :: idstr
+
+      message = "Hit and run between"
+      call symba_collision_collider_message(system%pl, colliders%idx, message)
+      call fraggle_io_log_one_message(trim(adjustl(message)))
+
+      if (colliders%mass(1) > colliders%mass(2)) then
+         jtarg = 1
+         jproj = 2
+      else
+         jtarg = 2
+         jproj = 1
+      end if
+
+      if (frag%mass_dist(2) > 0.9_DP * colliders%mass(jproj)) then ! Pure hit and run, so we'll just keep the two bodies untouched
+         call fraggle_io_log_one_message("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
+         lpure = .false.
+         call frag%set_mass_dist(colliders, param)
+
+         ! Generate the position and velocity distributions of the fragments
+         call frag%generate_fragments(colliders, system, param, lpure)
+
+         if (lpure) then
+            call fraggle_io_log_one_message("Should have been a pure hit and run instead")
+            nfrag = 0
+         else
+            nfrag = frag%nbody
+            write(message, *) nfrag
+            call fraggle_io_log_one_message("Generating " // trim(adjustl(message)) // " fragments")
+         end if
+      end if
+      if (lpure) then ! Reset these bodies back to being active so that nothing further is done to them
+         status = HIT_AND_RUN_PURE
+         select type(pl => system%pl)
+         class is (symba_pl)
+            pl%status(colliders%idx(:)) = ACTIVE
+            pl%ldiscard(colliders%idx(:)) = .false.
+            pl%lcollision(colliders%idx(:)) = .false.
+         end select
+      else
+         ibiggest = colliders%idx(maxloc(system%pl%Gmass(colliders%idx(:)), dim=1))
+         frag%id(1) = system%pl%id(ibiggest)
+         frag%id(2:nfrag) = [(i, i = param%maxid + 1, param%maxid + nfrag - 1)]
+         param%maxid = frag%id(nfrag)
+         status = HIT_AND_RUN_DISRUPT
+         call symba_collision_mergeaddsub(system, param, colliders, frag, status)
+      end if
+
+      return
+   end function symba_collision_casehitandrun
+
+
+   module function symba_collision_casemerge(system, param, colliders, frag)  result(status)
+      !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+      !!
+      !! Merge massive bodies.
+      !! 
+      !! 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(inout) :: param     !! Current run configuration parameters with SyMBA additions
+      class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+      class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object 
+      ! Result
+      integer(I4B)                             :: status    !! Status flag assigned to this outcome
+      ! Internals
+      integer(I4B)                              :: i, j, k, ibiggest
+      real(DP), dimension(2)                    :: volume, density
+      real(DP)                                  :: pe
+      real(DP), dimension(NDIM)                 :: L_spin_new
+      character(len=NAMELEN) :: idstr
+      character(len=STRMAX) :: message
+
+      message = "Merging"
+      call symba_collision_collider_message(system%pl, colliders%idx, message)
+      call fraggle_io_log_one_message(message)
+
+      select type(pl => system%pl)
+      class is (symba_pl)
+
+         call frag%set_mass_dist(colliders, param)
+         ibiggest = colliders%idx(maxloc(pl%Gmass(colliders%idx(:)), dim=1))
+         frag%id(1) = pl%id(ibiggest)
+         frag%xb(:,1) = frag%xbcom(:)
+         frag%vb(:,1) = frag%vbcom(:)
+
+         if (param%lrotation) then
+            ! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body
+            L_spin_new(:) = colliders%L_orbit(:,1) + colliders%L_orbit(:,2) + colliders%L_spin(:,1) + colliders%L_spin(:,2)  
+
+            ! Assume prinicpal axis rotation on 3rd Ip axis
+            frag%rot(:,1) = L_spin_new(:) / (frag%Ip(3,1) * frag%mass(1) * frag%radius(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
+            param%Lescape(:) = param%Lescape(:) + colliders%L_orbit(:,1) + colliders%L_orbit(:,2) 
+         end if
+
+         ! Keep track of the component of potential energy due to the pre-impact colliders%idx for book-keeping
+         pe = 0.0_DP
+         do j = 1, colliders%ncoll
+            do i = j + 1, colliders%ncoll
+               pe = pe - pl%Gmass(i) * pl%mass(j) / norm2(pl%xb(:, i) - pl%xb(:, j))
+            end do
+         end do
+         param%Ecollisions = param%Ecollisions + pe 
+         param%Euntracked  = param%Euntracked - pe 
+
+         ! Update any encounter lists that have the removed bodies in them so that they instead point to the new 
+         do k = 1, system%plplenc_list%nenc
+            do j = 1, colliders%ncoll
+               i = colliders%idx(j)
+               if (i == ibiggest) cycle
+               if (system%plplenc_list%id1(k) == pl%id(i)) then
+                  system%plplenc_list%id1(k) = pl%id(ibiggest)
+                  system%plplenc_list%index1(k) = i
+               end if
+               if (system%plplenc_list%id2(k) == pl%id(i)) then
+                  system%plplenc_list%id2(k) = pl%id(ibiggest)
+                  system%plplenc_list%index2(k) = i
+               end if
+               if (system%plplenc_list%id1(k) == system%plplenc_list%id2(k)) system%plplenc_list%status(k) = INACTIVE
+            end do
+         end do
+
+         status = MERGED
+         
+         call symba_collision_mergeaddsub(system, param, colliders, frag, status) 
+
+      end select
+
+      return 
+   end function symba_collision_casemerge
+
+
+   subroutine symba_collision_collider_message(pl, collidx, collider_message)
+      !! author: David A. Minton
+      !!
+      !! Prints a nicely formatted message about which bodies collided, including their names and ids.
+      !! This subroutine appends the body names and ids to an input message.
+      implicit none
+      ! Arguments
+      class(swiftest_pl),            intent(in)    :: pl            !! Swiftest massive body object
+      integer(I4B),    dimension(:), intent(in)    :: collidx           !! Index of collisional colliders%idx members
+      character(*),                  intent(inout) :: collider_message !! The message to print to the screen.
+      ! Internals
+      integer(I4B) :: i, n
+      character(len=STRMAX) :: idstr
+      
+      n = size(collidx)
+      if (n == 0) return
+
+      do i = 1, n
+         if (i > 1) collider_message = trim(adjustl(collider_message)) // " and "
+         collider_message = " " // trim(adjustl(collider_message)) // " " // trim(adjustl(pl%info(collidx(i))%name))
+         write(idstr, '(I10)') pl%id(collidx(i))
+         collider_message = trim(adjustl(collider_message)) // " (" // trim(adjustl(idstr)) // ") "
+      end do
+
+      return
+   end subroutine symba_collision_collider_message
+
+
+   module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
       !! author: David A. Minton
       !!
       !! Check for merger between massive bodies and test particles in SyMBA
@@ -12,20 +260,26 @@ module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec
       !! 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
+      class(symba_encounter),     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
+      ! Result
+      logical                                   :: lany_collision !! Returns true if cany pair of encounters resulted in a collision 
       ! Internals
       logical, dimension(:), allocatable        :: lcollision, lmask
       real(DP), dimension(NDIM)                 :: xr, vr
-      integer(I4B)                              :: k
+      integer(I4B)                              :: i, j, k, nenc
       real(DP)                                  :: rlim, Gmtot
       logical                                   :: isplpl
+      character(len=STRMAX)                     :: timestr, idstri, idstrj, message
+       
 
+      lany_collision = .false.
       if (self%nenc == 0) return
+
       select type(self)
       class is (symba_plplenc)
          isplpl = .true.
@@ -37,67 +291,93 @@ module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec
       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
+            nenc = self%nenc
+            nenc = self%nenc
+            allocate(lmask(nenc))
+            lmask(:) = ((self%status(1:nenc) == ACTIVE) .and. (pl%levelg(self%index1(1:nenc)) >= irec))
+            if (isplpl) then
+               lmask(:) = lmask(:) .and. (pl%levelg(self%index2(1:nenc)) >= irec)
+            else
+               lmask(:) = lmask(:) .and. (tp%levelg(self%index2(1:nenc)) >= irec)
+            end if
+            if (.not.any(lmask(:))) return
 
-               allocate(lcollision(nenc))
-               lcollision(:) = .false.
+            allocate(lcollision(nenc))
+            lcollision(:) = .false.
 
+            if (isplpl) then
+               do concurrent(k = 1:nenc, lmask(k))
+                  i = self%index1(k)
+                  j = self%index2(k)
+                  xr(:) = pl%xh(:, i) - pl%xh(:, j) 
+                  vr(:) = pl%vb(:, i) - pl%vb(:, j)
+                  rlim = pl%radius(i) + pl%radius(j)
+                  Gmtot = pl%Gmass(i) + pl%Gmass(j)
+                  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))
+                  i = self%index1(k)
+                  j = self%index2(k)
+                  xr(:) = pl%xh(:, i) - tp%xh(:, j) 
+                  vr(:) = pl%vb(:, i) - tp%vb(:, j)
+                  lcollision(k) = symba_collision_check_one(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), pl%Gmass(i), pl%radius(i), dt, self%lvdotr(k))
+               end do
+            end if
+
+            if (any(lcollision(1:nenc))) call pl%xh2xb(system%cb) ! Update the central body barycenteric position vector to get us out of DH and into bary
+            do k = 1, nenc
+               i = self%index1(k)
+               j = self%index2(k)
+               if (lcollision(k)) self%status(k) = COLLISION
+               self%t(k) = t
+               self%x1(:,k) = pl%xh(:,i) + system%cb%xb(:)
+               self%v1(:,k) = pl%vb(:,i) 
                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
+                  self%x2(:,k) = pl%xh(:,j) + system%cb%xb(:)
+                  self%v2(:,k) = pl%vb(:,j) 
+                  if (lcollision(k)) then
+                     ! Check to see if either of these bodies has been involved with a collision before, and if so, make this a collisional colliders%idx
+                     if (pl%lcollision(i) .or. pl%lcollision(j)) call pl%make_colliders([i,j])
 
-               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
+                     ! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step
+                     pl%lcollision([i, j]) = .true.
+                     pl%status([i, j]) = COLLISION
+                     call pl%info(i)%set_value(status="COLLISION", discard_time=t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i))
+                     call pl%info(j)%set_value(status="COLLISION", discard_time=t, discard_xh=pl%xh(:,j), discard_vh=pl%vh(:,j))
+                  end if
+               else
+                  self%x2(:,k) = tp%xh(:,j) + system%cb%xb(:)
+                  self%v2(:,k) = tp%vb(:,j) 
+                  if (lcollision(k)) then
+                     tp%status(j) = DISCARDED_PLR
+                     tp%ldiscard(j) = .true.
+                     write(idstri, *) pl%id(i)
+                     write(idstrj, *) tp%id(j)
+                     write(timestr, *) t
+                     call tp%info(j)%set_value(status="DISCARDED_PLR", discard_time=t, discard_xh=tp%xh(:,j), discard_vh=tp%vh(:,j))
+                     write(message, *) "Particle " // trim(adjustl(tp%info(j)%name)) // " ("  // trim(adjustl(idstrj)) // ")" &
+                             //  " collided with massive body " // trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstri)) // ")" &
+                             //  " at t = " // trim(adjustl(timestr))
+                     call fraggle_io_log_one_message(message)
+                  end if
                end if
-            end associate
+            end do
          end select
       end select
 
+      lany_collision = any(lcollision(:))
+
+      ! Extract the pl-pl encounter list and return the plplcollision_list
+      if (lany_collision) then
+         select type(plplenc_list => self)
+         class is (symba_plplenc)
+            call plplenc_list%extract_collisions(system, param)
+         end select
+      end if
+
       return 
-   end subroutine symba_collision_check_pltpenc
+   end function symba_collision_check_encounter
 
 
    pure elemental function symba_collision_check_one(xr, yr, zr, vxr, vyr, vzr, Gmtot, rlim, dt, lvdotr) result(lcollision)
@@ -143,32 +423,32 @@ pure elemental function symba_collision_check_one(xr, yr, zr, vxr, vyr, vzr, Gmt
    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)
+   function symba_collision_consolidate_colliders(pl, cb, param, idx_parent, colliders) 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, 
+      !! Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx 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_cb),                                 intent(inout) :: cb               !! SyMBA central 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
+      class(fraggle_colliders),                        intent(out)   :: colliders
       ! Result
-      logical                                                        :: lflag            !! Logical flag indicating whether a family was successfully created or not
+      logical                                                        :: lflag            !! Logical flag indicating whether a colliders%idx was successfully created or not
       ! Internals
-      type family_array
+      type collidx_array
          integer(I4B), dimension(:), allocatable :: id
          integer(I4B), dimension(:), allocatable :: idx
-      end type family_array
-      type(family_array), dimension(2) :: parent_child_index_array
+      end type collidx_array
+      type(collidx_array), dimension(2) :: parent_child_index_array
       integer(I4B), dimension(2)       :: nchild
-      integer(I4B)                     :: i, j, fam_size, idx_child
+      integer(I4B)                     :: i, j, ncolliders, idx_child
       real(DP), dimension(2)           :: volume, density
       real(DP)                         :: mchild, mtot, volchild
       real(DP), dimension(NDIM)        :: xc, vc, xcom, vcom, xchild, vchild, xcrossv
+      real(DP), dimension(NDIM,2)      :: mxc, vcc
 
       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
@@ -176,6 +456,7 @@ function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v
       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. 
+            call pl%reset_kinship([idx_parent(1)])
             return
          end if
          idx_parent(2) = pl%kin(idx_parent(1))%child(nchild(1))
@@ -185,9 +466,9 @@ function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v
          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
+      colliders%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
+      colliders%radius(:) = pl%radius(idx_parent(:))
+      volume(:) =  (4.0_DP / 3.0_DP) * PI * colliders%radius(:)**3
  
       ! Group together the ids and indexes of each collisional parent and its children
       do j = 1, 2
@@ -204,23 +485,24 @@ function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v
          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
+      ! Consolidate the groups of collsional parents with any children they may have into a single "colliders%idx" index array
+      ncolliders = 2 + sum(nchild(:))
+      allocate(colliders%idx(ncolliders))
+      colliders%idx = [parent_child_index_array(1)%idx(:),parent_child_index_array(2)%idx(:)]
+
+      colliders%ncoll = count(pl%lcollision(colliders%idx(:)))
+      colliders%idx = pack(colliders%idx(:), pl%lcollision(colliders%idx(:)))
+      colliders%L_spin(:,:) = 0.0_DP
+      colliders%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))
+         colliders%xb(:, j)  = pl%xh(:, idx_parent(j)) + cb%xb(:)
+         colliders%vb(:, 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))
+            colliders%Ip(:, j) = colliders%mass(j) * pl%Ip(:, idx_parent(j))
+            colliders%L_spin(:, j) = colliders%Ip(3, j) * colliders%radius(j)**2 * pl%rot(:, idx_parent(j))
          end if
 
          if (nchild(j) > 0) then
@@ -228,46 +510,57 @@ function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v
                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)
+               xchild(:) = pl%xh(:, idx_child) + cb%xb(:)
                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(:)
+                  xcom(:) = (colliders%mass(j) * colliders%xb(:,j) + mchild * xchild(:)) / (colliders%mass(j) + mchild)
+                  vcom(:) = (colliders%mass(j) * colliders%vb(:,j) + mchild * vchild(:)) / (colliders%mass(j) + mchild)
+                  xc(:) = colliders%xb(:, j) - xcom(:)
+                  vc(:) = colliders%vb(:, j) - vcom(:)
                   xcrossv(:) = xc(:) .cross. vc(:) 
-                  L_spin(:, j) = L_spin(:, j) + mass(j) * xcrossv(:)
+                  colliders%L_spin(:, j) = colliders%L_spin(:, j) + colliders%mass(j) * xcrossv(:)
    
                   xc(:) = xchild(:) - xcom(:)
                   vc(:) = vchild(:) - vcom(:)
                   xcrossv(:) = xc(:) .cross. vc(:) 
-                  L_spin(:, j) = L_spin(:, j) + mchild * xcrossv(:)
+                  colliders%L_spin(:, j) = colliders%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)
+                  colliders%L_spin(:, j) = colliders%L_spin(:, j) + mchild * pl%Ip(3, idx_child) * pl%radius(idx_child)**2 * pl%rot(:, idx_child)
+                  colliders%Ip(:, j) = colliders%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(:)
+               colliders%mass(j) = colliders%mass(j) + mchild
+               colliders%xb(:, j) = xcom(:)
+               colliders%vb(:, 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)
+         density(j) = colliders%mass(j) / volume(j)
+         colliders%radius(j) = (3 * volume(j) / (4 * PI))**(1.0_DP / 3.0_DP)
+         if (param%lrotation) colliders%Ip(:, j) = colliders%Ip(:, j) / colliders%mass(j)
+
+         xcom(:) = (colliders%mass(1) * colliders%xb(:, 1) + colliders%mass(2) * colliders%xb(:, 2)) / sum(colliders%mass(:))
+         vcom(:) = (colliders%mass(1) * colliders%vb(:, 1) + colliders%mass(2) * colliders%vb(:, 2)) / sum(colliders%mass(:))
+         mxc(:, 1) = colliders%mass(1) * (colliders%xb(:, 1) - xcom(:))
+         mxc(:, 2) = colliders%mass(2) * (colliders%xb(:, 2) - xcom(:))
+         vcc(:, 1) = colliders%vb(:, 1) - vcom(:)
+         vcc(:, 2) = colliders%vb(:, 2) - vcom(:)
+         colliders%L_orbit(:,:) = mxc(:,:) .cross. vcc(:,:)
       end do
       lflag = .true.
 
+      ! Destroy the kinship relationships for all members of this colliders%idx
+      call pl%reset_kinship(colliders%idx(:))
+
       return
-   end function symba_collision_consolidate_familes
+   end function symba_collision_consolidate_colliders
 
 
-   module subroutine symba_collision_encounter_scrub(self, system, param)
+   module subroutine symba_collision_encounter_extract_collisions(self, system, param)
       !! author: David A. Minton
       !! 
       !! Processes the pl-pl encounter list remove only those encounters that led to a collision
@@ -278,67 +571,68 @@ module subroutine symba_collision_encounter_scrub(self, system, param)
       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_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
+      integer(I4B)                            :: i, index_coll, ncollisions, nunique_parent, nplplenc
 
       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)
+         associate(plplenc_list => self, idx1 => self%index1, idx2 => self%index2, plparent => pl%kin%parent)
+            nplplenc = plplenc_list%nenc
+            allocate(lplpl_collision(nplplenc))
             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
+            if (.not.any(lplpl_collision)) return 
+            ! Collisions have been detected in this step. So we need to determine which of them are between unique bodies.
 
-               ! 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(:))]
+            ! 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)
 
-               ! 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.
+            ! 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.
+            call plplenc_list%spill(system%plplcollision_list, lplpl_collision, ldestructive=.true.) ! Extract any encounters that are not collisions from the list.
          end associate
       end select
 
       return
-   end subroutine symba_collision_encounter_scrub
+   end subroutine symba_collision_encounter_extract_collisions
 
 
-   module subroutine symba_collision_make_family_pl(self, idx)
+   module subroutine symba_collision_make_colliders_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.
+      !! When a single body is involved in more than one collision in a single step, it becomes part of a colliders%idx.
       !! 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.
       !! 
@@ -383,8 +677,7 @@ module subroutine symba_collision_make_family_pl(self, idx)
                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
+         call pl%reset_kinship([index_child])
          ! Add the new child to its parent
          pl%kin(index_child)%parent = index_parent
          temp(nchild_new) = index_child
@@ -394,7 +687,167 @@ module subroutine symba_collision_make_family_pl(self, idx)
       end associate
 
       return
-   end subroutine symba_collision_make_family_pl
+   end subroutine symba_collision_make_colliders_pl
+
+
+   subroutine symba_collision_mergeaddsub(system, param, colliders, 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(inout) :: param     !! Current run configuration parameters with SyMBA additions
+      class(fraggle_colliders),  intent(inout) :: colliders !! Fraggle colliders object        
+      class(fraggle_fragments),  intent(inout) :: frag      !! Fraggle fragmentation system object 
+      integer(I4B),              intent(in)    :: status    !! Status flag to assign to adds
+      ! Internals
+      integer(I4B) :: i, ibiggest, ismallest, iother, nstart, nend, ncolliders, nfrag
+      logical, dimension(system%pl%nbody)    :: lmask
+      class(symba_pl), allocatable           :: plnew, plsub
+      character(*), parameter :: FRAGFMT = '("Newbody",I0.7)'
+      character(len=NAMELEN) :: newname
+      character(len=STRMAX) :: message
+   
+      select type(pl => system%pl)
+      class is (symba_pl)
+         select type(pl_discards => system%pl_discards)
+         class is (symba_merger)
+            associate(info => pl%info, pl_adds => system%pl_adds, cb => system%cb, npl => pl%nbody)
+               ! Add the colliders%idx bodies to the subtraction list
+               ncolliders = colliders%ncoll
+               nfrag = frag%nbody
+
+               ! Setup new bodies
+               allocate(plnew, mold=pl)
+               call plnew%setup(nfrag, param)
+               ibiggest  = colliders%idx(maxloc(pl%Gmass(colliders%idx(:)), dim=1))
+               ismallest = colliders%idx(minloc(pl%Gmass(colliders%idx(:)), dim=1))
+
+               ! Copy over identification, information, and physical properties of the new bodies from the fragment list
+               plnew%id(1:nfrag) = frag%id(1:nfrag) 
+               plnew%xb(:, 1:nfrag) = frag%xb(:, 1:nfrag) 
+               plnew%vb(:, 1:nfrag) = frag%vb(:, 1:nfrag)
+               call pl%vb2vh(cb)
+               call pl%xh2xb(cb)
+               do i = 1, nfrag
+                  plnew%xh(:,i) = frag%xb(:, i) - cb%xb(:)
+                  plnew%vh(:,i) = frag%vb(:, i) - cb%vb(:)
+               end do
+               plnew%mass(1:nfrag) = frag%mass(1:nfrag)
+               plnew%Gmass(1:nfrag) = param%GU * frag%mass(1:nfrag)
+               plnew%radius(1:nfrag) = frag%radius(1:nfrag)
+               plnew%density(1:nfrag) = frag%mass(1:nfrag) / frag%radius(1:nfrag)
+               call plnew%set_rhill(cb)
+
+               select case(status)
+               case(DISRUPTION)
+                  plnew%status(1:nfrag) = NEW_PARTICLE
+                  do i = 1, nfrag
+                     write(newname, FRAGFMT) frag%id(i)
+                     call plnew%info(i)%set_value(origin_type="Disruption", origin_time=param%t, name=newname, origin_xh=plnew%xh(:,i), origin_vh=plnew%vh(:,i))
+                  end do
+                  do i = 1, ncolliders
+                     if (colliders%idx(i) == ibiggest) then
+                        iother = ismallest
+                     else
+                        iother = ibiggest
+                     end if
+                     call pl%info(colliders%idx(i))%set_value(status="Disruption", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=iother)
+                  end do
+               case(SUPERCATASTROPHIC)
+                  plnew%status(1:nfrag) = NEW_PARTICLE
+                  do i = 1, nfrag
+                     write(newname, FRAGFMT) frag%id(i)
+                     call plnew%info(i)%set_value(origin_type="Supercatastrophic", origin_time=param%t, name=newname, origin_xh=plnew%xh(:,i), origin_vh=plnew%vh(:,i))
+                  end do
+                  do i = 1, ncolliders
+                     if (colliders%idx(i) == ibiggest) then
+                        iother = ismallest
+                     else
+                        iother = ibiggest
+                     end if
+                     call pl%info(colliders%idx(i))%set_value(status="Supercatastrophic", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=iother)
+                  end do
+               case(HIT_AND_RUN_DISRUPT)
+                  call plnew%info(1)%copy(pl%info(ibiggest))
+                  plnew%status(1) = OLD_PARTICLE
+                  do i = 2, nfrag
+                     write(newname, FRAGFMT) frag%id(i)
+                     call plnew%info(i)%set_value(origin_type="Hit and run fragment", origin_time=param%t, name=newname, origin_xh=plnew%xh(:,i), origin_vh=plnew%vh(:,i))
+                  end do
+                  do i = 1, ncolliders
+                     if (colliders%idx(i) == ibiggest) cycle
+                     iother = ibiggest
+                     call pl%info(colliders%idx(i))%set_value(status="Hit and run fragmention", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=iother)
+                  end do 
+               case(MERGED)
+                  call plnew%info(1)%copy(pl%info(ibiggest))
+                  plnew%status(1) = OLD_PARTICLE
+                  do i = 1, ncolliders
+                     if (colliders%idx(i) == ibiggest) cycle
+
+                     iother = ibiggest
+                     call pl%info(colliders%idx(i))%set_value(status="MERGED", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=iother)
+                  end do 
+               end select
+   
+               if (param%lrotation) then
+                  plnew%Ip(:, 1:nfrag) = frag%Ip(:, 1:nfrag)
+                  plnew%rot(:, 1:nfrag) = frag%rot(:, 1:nfrag)
+               end if
+   
+               if (param%ltides) then
+                  plnew%Q = pl%Q(ibiggest)
+                  plnew%k2 = pl%k2(ibiggest)
+                  plnew%tlag = pl%tlag(ibiggest)
+               end if
+
+               !Copy over or set integration parameters for new bodies
+               plnew%lcollision(1:nfrag) = .false.
+               plnew%ldiscard(1:nfrag) = .false.
+               plnew%levelg(1:nfrag) = pl%levelg(ibiggest)
+               plnew%levelm(1:nfrag) = pl%levelm(ibiggest)
+
+               ! Log the properties of the new bodies
+               call fraggle_io_log_pl(plnew, param)
+   
+               ! Append the new merged body to the list 
+               nstart = pl_adds%nbody + 1
+               nend = pl_adds%nbody + nfrag
+               call pl_adds%append(plnew, lsource_mask=[(.true., i=1, nfrag)])
+               ! Record how many bodies were added in this event
+               pl_adds%ncomp(nstart:nend) = plnew%nbody
+
+               ! Add the discarded bodies to the discard list
+               pl%status(colliders%idx(:)) = MERGED
+               pl%ldiscard(colliders%idx(:)) = .true.
+               pl%lcollision(colliders%idx(:)) = .true.
+               lmask(:) = .false.
+               lmask(colliders%idx(:)) = .true.
+               
+               call plnew%setup(0, param)
+               deallocate(plnew)
+
+               allocate(plsub, mold=pl)
+               call pl%spill(plsub, lmask, ldestructive=.false.)
+   
+               nstart = pl_discards%nbody + 1
+               nend = pl_discards%nbody + ncolliders
+               call pl_discards%append(plsub, lsource_mask=[(.true., i = 1, ncolliders)])
+
+               ! Record how many bodies were subtracted in this event
+               pl_discards%ncomp(nstart:nend) = ncolliders 
+   
+               call plsub%setup(0, param)
+               deallocate(plsub)
+            end associate
+         end select
+      end select
+   
+      return
+   end subroutine symba_collision_mergeaddsub
 
 
    module subroutine symba_collision_resolve_fragmentations(self, system, param)
@@ -406,80 +859,43 @@ module subroutine symba_collision_resolve_fragmentations(self, system, param)
       ! 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
+      class(symba_parameters),   intent(inout) :: 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)
+      integer(I4B)                                :: i
+      type(fraggle_colliders)                     :: colliders !! Fraggle colliders object
+      type(fraggle_fragments)                     :: frag      !! Fraggle fragmentation system object
+
+      associate(plplcollision_list => 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
-
-               ! 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
+            select type (cb => system%cb)
+            class is (symba_cb)
+               do i = 1, ncollisions
+                  idx_parent(1) = pl%kin(idx1(i))%parent
+                  idx_parent(2) = pl%kin(idx2(i))%parent
+                  lgoodcollision = symba_collision_consolidate_colliders(pl, cb, param, idx_parent, colliders) 
+                  if ((.not. lgoodcollision) .or. any(pl%status(idx_parent(:)) /= COLLISION)) cycle
+
+                  call colliders%regime(frag, system, param)
+   
+                  select case (frag%regime)
+                  case (COLLRESOLVE_REGIME_DISRUPTION, COLLRESOLVE_REGIME_SUPERCATASTROPHIC)
+                     plplcollision_list%status(i) = symba_collision_casedisruption(system, param, colliders, frag)
+                  case (COLLRESOLVE_REGIME_HIT_AND_RUN)
+                     plplcollision_list%status(i) = symba_collision_casehitandrun(system, param, colliders, frag)
+                  case (COLLRESOLVE_REGIME_MERGE, COLLRESOLVE_REGIME_GRAZE_AND_MERGE)
+                     plplcollision_list%status(i) = symba_collision_casemerge(system, param, colliders, frag)
+                  case default 
+                     write(*,*) "Error in symba_collision, unrecognized collision regime"
+                     call util_exit(FAILURE)
+                  end select
+               end do
+            end select
          end select
       end associate
 
@@ -496,30 +912,145 @@ module subroutine symba_collision_resolve_mergers(self, system, param)
       ! 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
+      class(symba_parameters),   intent(inout) :: 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
+      integer(I4B)                                :: i
+      type(fraggle_colliders)                     :: colliders !! Fraggle colliders object
+      type(fraggle_fragments)                     :: frag      !! Fraggle fragmentation system object
 
-      associate(plpl_collisions => self, ncollisions => self%nenc, idx1 => self%index1, idx2 => self%index2)
+      associate(plplcollision_list => 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
+            select type(cb => system%cb)
+            class is (symba_cb)
+               do i = 1, ncollisions
+                  idx_parent(1) = pl%kin(idx1(i))%parent
+                  idx_parent(2) = pl%kin(idx2(i))%parent
+                  lgoodcollision = symba_collision_consolidate_colliders(pl, cb, param, idx_parent, colliders) 
+                  if (.not. lgoodcollision) cycle
+                  if (any(pl%status(idx_parent(:)) /= COLLISION)) cycle ! One of these two bodies has already been resolved
+ 
+                  frag%regime = COLLRESOLVE_REGIME_MERGE
+                  frag%mtot = sum(colliders%mass(:))
+                  frag%xbcom(:) = (colliders%mass(1) * colliders%xb(:,1) + colliders%mass(2) * colliders%xb(:,2)) / frag%mtot 
+                  frag%vbcom(:) = (colliders%mass(1) * colliders%vb(:,1) + colliders%mass(2) * colliders%vb(:,2)) / frag%mtot
+                  plplcollision_list%status(i) = symba_collision_casemerge(system, param, colliders, frag)
+               end do
+            end select
          end select
       end associate
 
       return
    end subroutine symba_collision_resolve_mergers
 
+
+   module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec)
+      !! author: David A. Minton
+      !! 
+      !! Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the 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(inout) :: param  !! Current run configuration parameters with SyMBA additions
+      real(DP),                   intent(in)    :: t      !! Current simulation time
+      real(DP),                   intent(in)    :: dt     !! Current simulation step size
+      integer(I4B),               intent(in)    :: irec   !! Current recursion level
+      ! Internals
+      real(DP) :: Eorbit_before, Eorbit_after
+      logical :: lplpl_collision
+      character(len=STRMAX) :: timestr
+      class(symba_parameters), allocatable :: tmp_param
+   
+      associate(plplenc_list => self, plplcollision_list => system%plplcollision_list)
+         select type(pl => system%pl)
+         class is (symba_pl)
+            select type(param)
+            class is (symba_parameters)
+               if (plplcollision_list%nenc == 0) return ! No collisions to resolve
+               ! Make sure that the heliocentric and barycentric coordinates are consistent with each other
+               call pl%vb2vh(system%cb) 
+               call pl%xh2xb(system%cb)
+   
+               ! Get the energy before the collision is resolved
+               if (param%lenergy) then
+                  call system%get_energy_and_momentum(param)
+                  Eorbit_before = system%te
+               end if
+
+               do
+                  write(timestr,*) t
+                  call fraggle_io_log_one_message("")
+                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  call fraggle_io_log_one_message("Collision between massive bodies detected at time t = " // trim(adjustl(timestr)))
+                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  allocate(tmp_param, source=param)
+                  tmp_param%t = t
+                  if (param%lfragmentation) then
+                     call plplcollision_list%resolve_fragmentations(system, param)
+                  else
+                     call plplcollision_list%resolve_mergers(system, param)
+                  end if
+
+                  ! Destroy the collision list now that the collisions are resolved
+                  call plplcollision_list%setup(0)
+
+                  if ((system%pl_adds%nbody == 0) .and. (system%pl_discards%nbody == 0)) exit
+
+                  ! Save the add/discard information to file
+                  call system%write_discard(tmp_param)
+
+                  ! Rearrange the arrays: Remove discarded bodies, add any new bodies, resort, and recompute all indices and encounter lists
+                  call pl%rearray(system, tmp_param)
+
+                  ! Destroy the add/discard list so that we don't append the same body multiple times if another collision is detected
+                  call system%pl_discards%setup(0, param)
+                  call system%pl_adds%setup(0, param)
+                  deallocate(tmp_param)
+
+                  ! Check whether or not any of the particles that were just added are themselves in a collision state. This will generate a new plplcollision_list 
+                  lplpl_collision = plplenc_list%collision_check(system, param, t, dt, irec)
+
+                  if (.not.lplpl_collision) exit
+               end do
+
+               if (param%lenergy) then
+                  call system%get_energy_and_momentum(param)
+                  Eorbit_after = system%te
+                  param%Ecollisions = param%Ecollisions + (Eorbit_after - Eorbit_before)
+               end if
+
+            end select 
+         end select
+      end associate
+
+      return
+   end subroutine symba_collision_resolve_plplenc
+
+
+   module subroutine symba_collision_resolve_pltpenc(self, system, param, t, dt, irec)
+      !! author: David A. Minton
+      !! 
+      !! Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision
+      !! 
+      implicit none
+      ! Arguments
+      class(symba_pltpenc),       intent(inout) :: self   !! SyMBA pl-pl encounter list
+      class(symba_nbody_system),  intent(inout) :: system !! SyMBA nbody system object
+      class(swiftest_parameters), intent(inout) :: param  !! Current run configuration parameters with SyMBA additions
+      real(DP),                   intent(in)    :: t      !! Current simulation tim
+      real(DP),                   intent(in)    :: dt     !! Current simulation step size
+      integer(I4B),               intent(in)    :: irec   !! Current recursion level
+      
+      call system%tp%xh2xb(system%cb)
+      call system%tp%discard(system, param)
+
+      return
+   end subroutine symba_collision_resolve_pltpenc
+
 end submodule s_symba_collision
\ No newline at end of file
diff --git a/docs/src/symba_discard.f90 b/docs/src/symba_discard.f90
index 253fb2700..704d11f85 100644
--- a/docs/src/symba_discard.f90
+++ b/docs/src/symba_discard.f90
@@ -20,11 +20,12 @@ subroutine symba_discard_cb_pl(pl, system, param)
       ! Internals
       integer(I4B) :: i, j
       real(DP)     :: energy, vb2, rb2, rh2, rmin2, rmax2, rmaxu2
+      character(len=STRMAX) :: idstr, timestr, message
    
       associate(npl => pl%nbody, cb => system%cb)
          call system%set_msys()
          rmin2 = param%rmin**2
-         rmax2 = param%rmax*2
+         rmax2 = param%rmax**2
          rmaxu2 = param%rmaxu**2
          do i = 1, npl
             if (pl%status(i) == ACTIVE) then
@@ -33,12 +34,28 @@ subroutine symba_discard_cb_pl(pl, system, param)
                   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
+                  write(idstr, *) pl%id(i)
+                  write(timestr, *) param%t
+                  write(message, *) trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstr)) // ")" // " too far from the central body at t = " // trim(adjustl(timestr))
+                  call fraggle_io_log_one_message("")
+                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  call fraggle_io_log_one_message(message)
+                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  call fraggle_io_log_one_message("")
+                  call pl%info(i)%set_value(status="DISCARDED_RMAX", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i))
                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
+                  write(idstr, *) pl%id(i)
+                  write(timestr, *) param%t
+                  write(message, *) trim(adjustl(pl%info(i)%name)) // " ("  // trim(adjustl(idstr)) // ")" // " too close to the central body at t = " // trim(adjustl(timestr))
+                  call fraggle_io_log_one_message("")
+                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  call fraggle_io_log_one_message(message)
+                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  call fraggle_io_log_one_message("")
+                  call pl%info(i)%set_value(status="DISCARDED_RMIN", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=cb%id)
                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))
@@ -47,7 +64,15 @@ subroutine symba_discard_cb_pl(pl, system, param)
                      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
+                     write(idstr, *) pl%id(i)
+                     write(timestr, *) param%t
+                     write(message, *) trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstr)) // ")" // " is unbound and too far from barycenter at t = " // trim(adjustl(timestr))
+                     call fraggle_io_log_one_message("")
+                     call fraggle_io_log_one_message("***********************************************************************************************************************")
+                     call fraggle_io_log_one_message(message)
+                     call fraggle_io_log_one_message("***********************************************************************************************************************")
+                     call fraggle_io_log_one_message("")
+                     call pl%info(i)%set_value(status="DISCARDED_RMAXU", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i))
                   end if
                end if
             end if
@@ -78,7 +103,7 @@ subroutine symba_discard_conserve_mtm(pl, system, param, ipl, lescape_body)
       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(:))
+         pe = -cb%Gmass * 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))
@@ -89,18 +114,18 @@ subroutine symba_discard_conserve_mtm(pl, system, param, ipl, lescape_body)
          ! 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)
+            param%GMescape = param%GMescape + pl%Gmass(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))
+               pe = pe - pl%Gmass(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)
+               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(:)
+            Ltot(:) = Ltot(:) + cb%mass * (cb%xb(:) .cross. cb%vb(:))
             call pl%b2h(cb)
             oldstat = pl%status(ipl)
             pl%status(ipl) = INACTIVE
@@ -108,28 +133,28 @@ subroutine symba_discard_conserve_mtm(pl, system, param, ipl, lescape_body)
             pl%status(ipl) = oldstat
             do i = 1, pl%nbody
                if (i == ipl) cycle
-               Lpl(:) = pl%mass(i) * pl%xb(:,i) .cross. pl%vb(:, i)
+               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)
+            Ltot(:) = Ltot(:) - cb%mass * (cb%xb(:) .cross. cb%vb(:))
+            param%Lescape(:) = param%Lescape(:) + Ltot(:)
+            if (param%lrotation) param%Lescape(:) = param%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(:)
+            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(:))
+            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%dGM = cb%dGM + pl%Gmass(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%Gmass = cb%GM0 + cb%dGM
+            cb%mass = cb%Gmass / param%GU
             cb%radius = cb%R0 + cb%dR
             param%rmin = cb%radius
             ! Add planet angular momentum to central body accumulator
@@ -147,16 +172,15 @@ subroutine symba_discard_conserve_mtm(pl, system, param, ipl, lescape_body)
    
          ! 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)
+            param%Ecollisions  = param%Ecollisions + ke_orbit + ke_spin + pe
+            param%Euntracked  = param%Euntracked - (ke_orbit + ke_spin + pe)
          else
-            system%Ecollisions  = system%Ecollisions + pe 
-            system%Euntracked = system%Euntracked - pe
+            param%Ecollisions  = param%Ecollisions + pe 
+            param%Euntracked = param%Euntracked - pe
          end if
    
       end select
       return
-   
    end subroutine symba_discard_conserve_mtm
 
 
@@ -173,18 +197,34 @@ subroutine symba_discard_nonplpl(pl, system, param)
       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 
+      ! Internals
+      logical, dimension(pl%nbody) ::  ldiscard
+      integer(I4B) :: i, nstart, nend, nsub
+      class(symba_pl), allocatable            :: plsub
     
       ! 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)
+         select type(pl_discards => system%pl_discards)
+         class is (symba_merger)
+            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) call symba_discard_peri_pl(pl, system, param)
+            if (any(pl%ldiscard(1:npl))) then
+               ldiscard(1:npl) = pl%ldiscard(1:npl)
+                  
+               allocate(plsub, mold=pl)
+               call pl%spill(plsub, ldiscard, ldestructive=.false.)
+               nsub = plsub%nbody
+               nstart = pl_discards%nbody + 1
+               nend = pl_discards%nbody + nsub
+               call pl_discards%append(plsub, lsource_mask=[(.true., i = 1, nsub)])
+   
+               ! Record how many bodies were subtracted in this event
+               pl_discards%ncomp(nstart:nend) = nsub
+            end if
+         end select
       end associate
 
       return
@@ -246,6 +286,7 @@ subroutine symba_discard_peri_pl(pl, system, param)
       logical, save      :: lfirst = .true.
       logical            :: lfirst_orig
       integer(I4B)       :: i
+      character(len=STRMAX) :: timestr, idstr
 
 
       lfirst_orig = pl%lfirst
@@ -262,7 +303,10 @@ subroutine symba_discard_peri_pl(pl, system, param)
                      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
+                     write(timestr, *) param%t
+                     write(idstr, *) pl%id(i)
+                     write(*, *) trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstr)) // ") perihelion distance too small at t = " // trim(adjustl(timestr)) 
+                     call pl%info(i)%set_value(status="DISCARDED_PERI", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=system%cb%id)
                   end if
                end if
             end if
@@ -277,8 +321,7 @@ 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.
+      !! Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colliding with the central body or escaping the system
       implicit none
       ! Arguments
       class(symba_pl),              intent(inout) :: self   !! SyMBA test particle object
@@ -291,36 +334,31 @@ module subroutine symba_discard_pl(self, system, param)
       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) 
+            associate(pl => self, plplenc_list => system%plplenc_list, plplcollision_list => system%plplcollision_list)
+               call pl%vb2vh(system%cb) 
+               call pl%xh2xb(system%cb)
+               call plplenc_list%write(pl, pl, param)
 
-               ! 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 (.not.any(pl%ldiscard(:))) return
 
-               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
+               if (param%lenergy) then
+                  call system%get_energy_and_momentum(param)
+                  Eorbit_before = system%te
                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
+               call symba_discard_nonplpl_conservation(self, system, param)
+
+               ! Save the add/discard information to file
+               call system%write_discard(param)
+
+               call pl%rearray(system, param)
+
+               if (param%lenergy) then
+                  call system%get_energy_and_momentum(param)
+                  Eorbit_after = system%te
+                  param%Ecollisions = param%Ecollisions + (Eorbit_after - Eorbit_before)
                end if
 
             end associate
diff --git a/docs/src/symba_drift.f90 b/docs/src/symba_drift.f90
index c4efee05f..e3bbc3660 100644
--- a/docs/src/symba_drift.f90
+++ b/docs/src/symba_drift.f90
@@ -14,13 +14,14 @@ module subroutine symba_drift_pl(self, system, param, dt)
       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
+      associate(pl => self, npl => self%nbody)
+         select type(system)
+         class is (symba_nbody_system)
+            pl%lmask(1:npl) = pl%status(1:npl) /= INACTIVE .and. pl%levelg(1:npl) == system%irec
+            call helio_drift_body(pl, system, param, dt)
+            pl%lmask(1:npl) = pl%status(1:npl) /= INACTIVE 
+         end select
+      end associate
 
       return
    end subroutine symba_drift_pl
@@ -38,13 +39,14 @@ module subroutine symba_drift_tp(self, system, param, dt)
       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
+      associate (tp => self, ntp => self%nbody)
+         select type(system)
+         class is (symba_nbody_system)
+            tp%lmask(1:ntp) = tp%status(1:ntp) /= INACTIVE .and. tp%levelg(1:ntp) == system%irec
+            call helio_drift_body(tp, system, param, dt)
+            tp%lmask(1:ntp) = tp%status(1:ntp) /= INACTIVE 
+         end select
+      end associate
 
       return
    end subroutine symba_drift_tp
diff --git a/docs/src/symba_encounter_check.f90 b/docs/src/symba_encounter_check.f90
index 4bf0f699b..3445bcfda 100644
--- a/docs/src/symba_encounter_check.f90
+++ b/docs/src/symba_encounter_check.f90
@@ -2,6 +2,46 @@
    use swiftest
 contains
 
+   subroutine symba_encounter_check_all(nplplm, k_plpl, x, v, rhill,  dt, irec, lencounter, loc_lvdotr)
+      !! author: David A. Minton
+      !!
+      !! Check for encounters between massive bodies. Split off from the main subroutine for performance
+      implicit none
+      integer(I8B), intent(in) :: nplplm
+      integer(I4B), dimension(:,:), intent(in) :: k_plpl
+      real(DP), dimension(:,:), intent(in) :: x, v
+      real(DP), dimension(:), intent(in) :: rhill
+      real(DP), intent(in) :: dt
+      integer(I4B), intent(in) :: irec
+      logical, dimension(:), intent(out) :: lencounter, loc_lvdotr
+      ! Internals
+      integer(I8B) :: k
+      integer(I4B) :: i, j
+      real(DP) :: xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2
+
+      !$omp parallel do default(private)&
+      !$omp shared(nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr)
+      do k = 1_I8B, nplplm
+         i = k_plpl(1, k)
+         j = k_plpl(2, k)
+         xr = x(1, j) - x(1, i)
+         yr = x(2, j) - x(2, i)
+         zr = x(3, j) - x(3, i)
+         vxr = v(1, j) - v(1, i)
+         vyr = v(2, j) - v(2, i)
+         vzr = v(3, j) - v(3, i)
+         rhill1 = rhill(i)
+         rhill2 = rhill(j)
+         lencounter(k) = .false.
+         loc_lvdotr(k) = .false.
+         call symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter(k), loc_lvdotr(k))
+      end do
+      !$omp end parallel do
+
+      return
+   end subroutine symba_encounter_check_all
+
+
    module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter)
       !! author: David A. Minton
       !!
@@ -16,38 +56,47 @@ module function symba_encounter_check_pl(self, system, dt, irec) result(lany_enc
       ! 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
+      integer(I8B) :: k, nplplm
+      integer(I4B) :: i, j, nenc
+      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
+      associate(pl => self)
+         nplplm = pl%nplplm
+         allocate(lencounter(nplplm))
+         allocate(loc_lvdotr(nplplm))
+  
+         call symba_encounter_check_all(nplplm, pl%k_plpl, pl%xh, pl%vh, pl%rhill, dt, irec, lencounter, loc_lvdotr)
 
+         !$omp parallel workshare
          nenc = count(lencounter(:))
+         !$omp end parallel workshare
+
          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(:))
+               plplenc_list%lvdotr(1:nenc) = pack(loc_lvdotr(1:nplplm), lencounter(1:nplplm))
+               plplenc_list%kidx(1:nenc) = pack([(k, k = 1_I8B, nplplm)], lencounter(1:nplplm))
+               deallocate(lencounter, loc_lvdotr)
+               plplenc_list%index1(1:nenc) = pl%k_plpl(1,plplenc_list%kidx(1:nenc))
+               plplenc_list%index2(1:nenc) = pl%k_plpl(2,plplenc_list%kidx(1:nenc))
+               plplenc_list%id1(1:nenc) = pl%id(plplenc_list%index1(1:nenc))
+               plplenc_list%id2(1:nenc) = pl%id(plplenc_list%index2(1:nenc))
                do k = 1, nenc
+                  i = plplenc_list%index1(k)
+                  j = plplenc_list%index2(k)
                   plplenc_list%status(k) = ACTIVE
                   plplenc_list%level(k) = irec
-                  pl%lencounter(plplenc_list%index1(k)) = .true.
-                  pl%lencounter(plplenc_list%index2(k)) = .true.
+                  pl%lencounter(i) = .true.
+                  pl%lencounter(j) = .true.
+                  pl%levelg(i) = irec
+                  pl%levelm(i) = irec
+                  pl%levelg(j) = irec
+                  pl%levelm(j) = irec
+                  pl%nplenc(i) = pl%nplenc(i) + 1
+                  pl%nplenc(j) = pl%nplenc(j) + 1
                end do
             end associate
          end if
@@ -56,7 +105,7 @@ module function symba_encounter_check_pl(self, system, dt, irec) result(lany_enc
    end function symba_encounter_check_pl
 
 
-   module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter)
+   module function symba_encounter_check(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.
@@ -65,13 +114,13 @@ module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lan
       !! 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_encounter),      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
+      integer(I4B)              :: i, j,k
       real(DP), dimension(NDIM) :: xr, vr
       logical                   :: lencounter, isplpl
       real(DP)                  :: rlim2, rji2
@@ -94,45 +143,45 @@ module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lan
             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))
+            do concurrent(k = 1:self%nenc, lencmask(k))
+               i = self%index1(k)
+               j = self%index2(k)
+               if (isplpl) then
+                  xr(:) = pl%xh(:,j) - pl%xh(:,i)
+                  vr(:) = pl%vb(:,j) - pl%vb(:,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, self%lvdotr(k))
+               else
+                  xr(:) = tp%xh(:,j) - pl%xh(:,i)
+                  vr(:) = tp%vb(:,j) - pl%vb(:,i)
+                  call symba_encounter_check_one(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), pl%rhill(i), 0.0_DP, dt, irec, lencounter, self%lvdotr(k))
+               end if
+               if (lencounter) then
                   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))
+                     rlim2 = (pl%radius(i) + pl%radius(j))**2
                   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))
+                     rlim2 = (pl%radius(i))**2
                   end if
-                  if (lencounter) then
+                  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(i) = irec
+                     pl%levelm(i) = MAX(irec, pl%levelm(i))
                      if (isplpl) then
-                        rlim2 = (pl%radius(ind1(k)) + pl%radius(ind2(k)))**2
+                        pl%levelg(j) = irec
+                        pl%levelm(j) = MAX(irec, pl%levelm(j))
                      else
-                        rlim2 = (pl%radius(ind1(k)))**2
+                        tp%levelg(j) = irec
+                        tp%levelm(j) = MAX(irec, tp%levelm(j))
                      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
+                     self%level(k) = irec
+                  end if
+               end if   
+            end do
          end select
       end select
 
       return
-   end function symba_encounter_check_pltpenc
+   end function symba_encounter_check
 
 
    module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter)
@@ -150,7 +199,7 @@ module function symba_encounter_check_tp(self, system, dt, irec) result(lany_enc
       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
+      integer(I4B)                              :: i, j, k,nenc, plind, tpind
       real(DP),     dimension(NDIM)             :: xr, vr
       logical,      dimension(:,:), allocatable :: lencounter, loc_lvdotr
   
@@ -175,14 +224,24 @@ module function symba_encounter_check_tp(self, system, dt, irec) result(lany_enc
                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(:,:))
+               pltpenc_list%lvdotr(1:nenc) = pack(loc_lvdotr(1:ntp, 1:npl), lencounter(1:ntp, 1:npl))
+               pltpenc_list%index1(1:nenc) = pack(spread([(i, i = 1, npl)], dim=1, ncopies=ntp), lencounter(1:ntp, 1:npl)) 
+               pltpenc_list%index2(1:nenc) = pack(spread([(i, i = 1, ntp)], dim=2, ncopies=npl), lencounter(1:ntp, 1:npl))
+               pltpenc_list%id1(1:nenc) = pl%id(pltpenc_list%index1(1:nenc))
+               pltpenc_list%id2(1:nenc) = tp%id(pltpenc_list%index2(1:nenc))
                select type(pl)
                class is (symba_pl)
-                  pl%lencounter(:) = .false.
+                  pl%lencounter(1:npl) = .false.
                   do k = 1, nenc
-                     pl%lencounter(pltpenc_list%index1(k)) = .true.
+                     plind = pltpenc_list%index1(k)
+                     tpind = pltpenc_list%index2(k)
+                     pl%lencounter(plind) = .true.
+                     pl%levelg(plind) = irec
+                     pl%levelm(plind) = irec
+                     tp%levelg(tpind) = irec
+                     tp%levelm(tpind) = irec
+                     pl%ntpenc(plind) = pl%ntpenc(plind) + 1
+                     tp%nplenc(tpind) = tp%nplenc(tpind) + 1
                   end do
                end select
             end associate
diff --git a/docs/src/symba_fragmentation.f90 b/docs/src/symba_fragmentation.f90
deleted file mode 100644
index b36c54e9a..000000000
--- a/docs/src/symba_fragmentation.f90
+++ /dev/null
@@ -1,470 +0,0 @@
-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
diff --git a/docs/src/symba_io.f90 b/docs/src/symba_io.f90
index 97e5798c2..c97904079 100644
--- a/docs/src/symba_io.f90
+++ b/docs/src/symba_io.f90
@@ -2,90 +2,6 @@
    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
       !!
@@ -106,9 +22,9 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
       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)'
+      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) 
@@ -118,7 +34,7 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
          allocate(param%seed(nseeds))
          rewind(unit)
          do
-            read(unit = unit, fmt = linefmt, iostat = iostat, end = 1) line
+            read(unit = unit, fmt = linefmt, iostat = iostat, end = 1, err = 667, iomsg = iomsg) line
             line_trim = trim(adjustl(line))
             ilength = len(line_trim)
             if ((ilength /= 0)) then 
@@ -130,13 +46,13 @@ 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.
                case ("GMTINY")
-                  read(param_value, *) param%Gmtiny
+                  read(param_value, *) param%GMTINY
+               case ("MIN_GMFRAG")
+                  read(param_value, *) param%min_GMfrag
                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
@@ -147,13 +63,13 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
                      deallocate(param%seed)
                      allocate(param%seed(nseeds))
                      do i = 1, nseeds
-                        ifirst = ilast + 1
+                        ifirst = ilast + 2
                         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
+                        ifirst = ilast + 2
                         param_value = io_get_token(line, ifirst, ilast, iostat) 
                         read(param_value, *) param%seed(i)
                      end do
@@ -165,6 +81,14 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
          end do
          1 continue
 
+         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
+
          write(*,*) "FRAGMENTATION = ", param%lfragmentation
          if (param%lfragmentation) then
             if (seed_set) then
@@ -173,14 +97,8 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
                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   
+            if (param%min_GMfrag < 0.0_DP) param%min_GMfrag = param%GMTINY
+            write(*,*) "MIN_GMFRAG      = ", self%min_GMfrag
          end if
 
          if (.not.self%lclose) then
@@ -188,10 +106,13 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
             iostat = -1
             return
          end if
+         ! All reporting of collision information in SyMBA (including mergers) is now recorded in the Fraggle logfile
+         call fraggle_io_log_start(param)
       end associate
 
       iostat = 0
 
+      667 continue
       return
    end subroutine symba_io_param_reader
 
@@ -217,36 +138,37 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms
       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
+      character(len=NAMELEN) :: param_name
+      character(len=STRMAX)  :: param_value
       type character_array
          character(25) :: value
       end type character_array
       type(character_array), dimension(:), allocatable :: param_array
-      integer(I4B) :: i
+      integer(I4B) :: i, nstr
 
       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)
+         write(param_name, *) "GMTINY"; write(param_value, Rfmt) param%GMTINY; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "MIN_GMFRAG"; write(param_value, Rfmt) param%min_GMfrag; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         write(param_name, *) "FRAGMENTATION"; write(param_value, Lfmt) param%lfragmentation; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
          if (param%lfragmentation) then
-            write(param_name, Afmt) "SEED"
+            write(param_name, *) "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)
+            write(unit, '(" ",A32)', advance='no', err = 667, iomsg = iomsg) adjustl(param_name)
+            do i = 0, size(param%seed)
+               nstr = len(trim(adjustl(param_array(i)%value)))
                if (i < size(param%seed)) then
-                  write(unit, Afmt, advance='no') adjustl(param_array(i)%value)
+                  write(unit, '(A12)', advance='no', err = 667, iomsg = iomsg) trim(adjustl(param_array(i)%value)) // " "
                else
-                  write(unit, Afmt) adjustl(param_array(i)%value)
+                  write(unit, '(A12)', err = 667, iomsg = iomsg) trim(adjustl(param_array(i)%value))
                end if
             end do
          end if
@@ -255,86 +177,18 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms
       end associate
 
       return
+      667 continue
+      write(*,*) "Error writing parameter file for SyMBA: " // trim(adjustl(iomsg))
    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 
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
       ! Internals
       integer(I4B), parameter   :: LUN = 40
-      integer(I4B)          :: iadd, isub, j, ierr, nsub, nadd
+      integer(I4B)          :: iadd, isub, j, nsub, nadd
       logical, save :: lfirst = .true. 
       real(DP), dimension(:,:), allocatable :: vh
       character(*), parameter :: HDRFMT    = '(E23.16, 1X, I8, 1X, L1)'
@@ -343,17 +197,33 @@ module subroutine symba_io_write_discard(self, param)
       character(*), parameter :: NPLFMT    = '(I8)'
       character(*), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))'
       class(swiftest_body), allocatable :: pltemp
+      character(STRMAX) :: errmsg, out_stat
 
       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)
+
+            ! Record the discarded body metadata information to file
+            if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then
+               call param%nciu%open(param) 
+               call pl_discards%write_particle_info(param%nciu)
+               call param%nciu%close(param)
+            end if
+
+            if (param%discard_out == "") return
+            if (lfirst) then
+               out_stat = param%out_stat
+            else
+               out_stat = 'APPEND'
+            end if
+            select case(out_stat)
             case('APPEND')
-               open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', iostat = ierr)
+               open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
             case('NEW', 'REPLACE', 'UNKNOWN')
-               open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', iostat = ierr)
+               open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', err = 667, iomsg = errmsg)
             case default
                write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
                call util_exit(FAILURE)
@@ -364,7 +234,7 @@ module subroutine symba_io_write_discard(self, param)
                call pl_adds%pv2v(param) 
             end if
 
-            write(LUN, HDRFMT) param%t, pl_discards%nbody, param%lbig_discard
+            write(LUN, HDRFMT, err = 667, iomsg = errmsg) param%t, pl_discards%nbody, param%lbig_discard
             iadd = 1
             isub = 1
             do while (iadd <= pl_adds%nbody)
@@ -372,9 +242,9 @@ module subroutine symba_io_write_discard(self, param)
                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)
+                     write(LUN, NAMEFMT, err = 667, iomsg = errmsg) ADD, pl_adds%id(iadd), pl_adds%status(iadd)
+                     write(LUN, VECFMT, err = 667, iomsg = errmsg) pl_adds%xh(1, iadd), pl_adds%xh(2, iadd), pl_adds%xh(3, iadd)
+                     write(LUN, VECFMT, err = 667, iomsg = errmsg) pl_adds%vh(1, iadd), pl_adds%vh(2, iadd), pl_adds%vh(3, iadd)
                   else 
                      exit
                   end if
@@ -382,9 +252,9 @@ module subroutine symba_io_write_discard(self, param)
                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)
+                     write(LUN, NAMEFMT, err = 667, iomsg = errmsg) SUB, pl_discards%id(isub), pl_discards%status(isub)
+                     write(LUN, VECFMT, err = 667, iomsg = errmsg) pl_discards%xh(1, isub), pl_discards%xh(2, isub), pl_discards%xh(3, isub)
+                     write(LUN, VECFMT, err = 667, iomsg = errmsg) pl_discards%vh(1, isub), pl_discards%vh(2, isub), pl_discards%vh(3, isub)
                   else
                      exit
                   end if
@@ -397,6 +267,10 @@ module subroutine symba_io_write_discard(self, param)
       end associate
 
       return
+
+      667 continue
+      write(*,*) "Error writing discard file: " // trim(adjustl(errmsg))
+      call util_exit(FAILURE)
    end subroutine symba_io_write_discard
 
 end submodule s_symba_io
diff --git a/docs/src/symba_kick.f90 b/docs/src/symba_kick.f90
index 8625b3d81..2c074cb0d 100644
--- a/docs/src/symba_kick.f90
+++ b/docs/src/symba_kick.f90
@@ -2,6 +2,23 @@
    use swiftest
 contains
 
+   module subroutine symba_kick_getacch_int_pl(self)
+      !! author: David A. Minton
+      !!
+      !! Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY
+      !!
+      !! Adapted from Hal Levison's Swift routine symba5_helio_getacch.f
+      !! Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_int.f90
+      implicit none
+      ! Arguments
+      class(symba_pl), intent(inout) :: self
+
+      call kick_getacch_int_all_pl(self%nbody, self%nplplm, self%k_plpl, self%xh, self%Gmass, self%radius, self%ah)
+
+      return
+   end subroutine symba_kick_getacch_int_pl
+
+
    module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
       !! author: David A. Minton
       !!
@@ -17,27 +34,27 @@ module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
       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
+      integer(I4B)              :: i, j
+      integer(I8B)              :: k, nplplenc
+      real(DP)                  :: rjj, rlim2, xr, yr, zr
+      real(DP), dimension(NDIM,self%nbody) :: ah_enc
+      integer(I4B), dimension(:,:), allocatable :: k_plpl_enc
 
       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)
+         associate(pl => self, npl => self%nbody, plplenc_list => system%plplenc_list, radius => self%radius)
+            ! Apply kicks to all bodies (including those in the encounter list)
             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
+
+            ! Remove kicks from bodies involved currently in the encounter list, as these are dealt with separately.
+            nplplenc = int(plplenc_list%nenc, kind=I8B)
+            allocate(k_plpl_enc(2,nplplenc))
+            k_plpl_enc(:,1:nplplenc) = pl%k_plpl(:,plplenc_list%kidx(1:nplplenc))
+            ah_enc(:,:) = 0.0_DP
+            call kick_getacch_int_all_pl(npl, nplplenc, k_plpl_enc, pl%xh, pl%Gmass, pl%radius, ah_enc)
+            pl%ah(:,1:npl) = pl%ah(:,1:npl) - ah_enc(:,1:npl)
+
          end associate
       end select
 
@@ -60,8 +77,8 @@ module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
       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
+      integer(I4B)              :: i, j, k
+      real(DP)                  :: rjj, fac, rlim2
       real(DP), dimension(NDIM) :: dx
 
       if (self%nbody == 0) return
@@ -71,18 +88,18 @@ module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
             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
+               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
+                  rjj = dot_product(dx(:), dx(:))
+                  fac = pl%Gmass(i) / (rjj * sqrt(rjj))
+                  tp%ah(:,j) = tp%ah(:,j) + fac * dx(:)
+               end IF
             end do
          end associate
       end select
@@ -90,7 +107,7 @@ module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
    end subroutine symba_kick_getacch_tp
 
 
-   module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
+   module subroutine symba_kick_encounter(self, system, dt, irec, sgn)
       !! author: David A. Minton
       !!
       !! Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.
@@ -100,19 +117,23 @@ module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
       !! 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_encounter),    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
+      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
+      integer(I4B)              :: i, j, irm1, irecl, ngood
+      integer(I8B)              :: k
       real(DP)                  :: r, rr, ri, ris, rim1, r2, ir3, fac, faci, facj
       real(DP), dimension(NDIM) :: dx
-      logical                   :: isplpl, lgoodlevel
+      logical                   :: isplpl
+      logical, dimension(:), allocatable :: lgoodlevel
+      integer(I4B), dimension(:), allocatable :: good_idx
 
       if (self%nenc == 0) return
 
+
       select type(self)
       class is (symba_plplenc)
          isplpl = .true.
@@ -123,42 +144,67 @@ module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
       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
+            associate(npl => pl%nbody, ntp => tp%nbody, nenc => self%nenc)
+               if (npl > 0) pl%lmask(1:npl) = pl%status(1:npl) /= INACTIVE
+               if (ntp > 0) tp%lmask(1:ntp) = tp%status(1:ntp) /= INACTIVE
+               allocate(lgoodlevel(nenc))
 
                irm1 = irec - 1
+
                if (sgn < 0) then
                   irecl = irec - 1
                else
                   irecl = irec
                end if
-               do k = 1, self%nenc
+
+               do k = 1, nenc
+                  i = self%index1(k)
+                  j = self%index2(k)
                   if (isplpl) then
-                     pl%ah(:,ind1(k)) = 0.0_DP
-                     pl%ah(:,ind2(k)) = 0.0_DP
+                     lgoodlevel(k) = (pl%levelg(i) >= irm1) .and. (pl%levelg(j) >= irm1)
                   else
-                     tp%ah(:,ind2(k)) = 0.0_DP
+                     lgoodlevel(k) = (pl%levelg(i) >= irm1) .and. (tp%levelg(j) >= irm1)
                   end if
+                  lgoodlevel(k) = (self%status(k) == ACTIVE) .and. lgoodlevel(k)
+               end do
+               ngood = count(lgoodlevel(:))
+               if (ngood > 0_I8B) then
+                  allocate(good_idx(ngood))
+                  good_idx(:) = pack([(i, i = 1, nenc)], lgoodlevel(:))
+
                   if (isplpl) then
-                     lgoodlevel = (pl%levelg(ind1(k)) >= irm1) .and. (pl%levelg(ind2(k)) >= irm1)
+                     do concurrent (k = 1:ngood)
+                        i = self%index1(good_idx(k))
+                        j = self%index2(good_idx(k))
+                        pl%ah(:,i) = 0.0_DP
+                        pl%ah(:,j) = 0.0_DP
+                     end do
                   else
-                     lgoodlevel = (pl%levelg(ind1(k)) >= irm1) .and. (tp%levelg(ind2(k)) >= irm1)
+                     do concurrent (k = 1_I8B:ngood)
+                        j = self%index2(good_idx(k))
+                        tp%ah(:,j) = 0.0_DP
+                     end do
                   end if
-                  if ((self%status(k) /= INACTIVE) .and. lgoodlevel) then
+
+                  do k = 1, ngood
+                     i = self%index1(good_idx(k))
+                     j = self%index2(good_idx(k))
                      if (isplpl) then
-                        ri = ((pl%rhill(ind1(k))  + pl%rhill(ind2(k)))**2) * (RHSCALE**2) * (RSHELL**(2*irecl))
+                        ri = ((pl%rhill(i)  + pl%rhill(j))**2) * (RHSCALE**2) * (RSHELL**(2*irecl))
                         rim1 = ri * (RSHELL**2)
-                        dx(:) = pl%xh(:,ind2(k)) - pl%xh(:,ind1(k))
+                        dx(:) = pl%xh(:,j) - pl%xh(:,i)
                      else
-                        ri = ((pl%rhill(ind1(k)))**2) * (RHSCALE**2) * (RSHELL**(2*irecl))
+                        ri = ((pl%rhill(i))**2) * (RHSCALE**2) * (RSHELL**(2*irecl))
                         rim1 = ri * (RSHELL**2)
-                        dx(:) = tp%xh(:,ind2(k)) - pl%xh(:,ind1(k))
+                        dx(:) = tp%xh(:,j) - pl%xh(:,i)
                      end if
                      r2 = dot_product(dx(:), dx(:))
                      if (r2 < rim1) then
                         fac = 0.0_DP
-                     else if (r2 < ri) then
+                        lgoodlevel(good_idx(k)) = .false.
+                        cycle
+                     end if
+                     if (r2 < ri) then
                         ris = sqrt(ri)
                         r = sqrt(r2)
                         rr = (ris - r) / (ris * (1.0_DP - RSHELL))
@@ -167,34 +213,41 @@ module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
                         ir3 = 1.0_DP / (r2 * sqrt(r2))
                         fac = ir3
                      end if
-                     faci = fac * pl%Gmass(ind1(k))
+                     faci = fac * pl%Gmass(i)
                      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(:)
+                        facj = fac * pl%Gmass(j)
+                        pl%ah(:, i) = pl%ah(:, i) + facj * dx(:)
+                        pl%ah(:, j) = pl%ah(:, j) - faci * dx(:)
                      else
-                        tp%ah(:,ind2(k)) = tp%ah(:,ind2(k)) - faci * dx(:)
+                        tp%ah(:, j) = tp%ah(:, j) - 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
+                  ngood = count(lgoodlevel(:))
+                  if (ngood == 0_I8B) return
+                  good_idx(1:ngood) = pack([(i, i = 1, nenc)], lgoodlevel(:))
+
+                  if (isplpl) then
+                     do k = 1, ngood
+                        i = self%index1(good_idx(k))
+                        j = self%index2(good_idx(k))
+                        pl%vb(:,i) = pl%vb(:,i) + sgn * dt * pl%ah(:,i)
+                        pl%vb(:,j) = pl%vb(:,j) + sgn * dt * pl%ah(:,j)
+                        pl%ah(:,i) = 0.0_DP
+                        pl%ah(:,j) = 0.0_DP
+                     end do
+                  else
+                     do k = 1, ngood
+                        j = self%index2(good_idx(k))
+                        tp%vb(:,j) = tp%vb(:,j) + sgn * dt * tp%ah(:,j)
+                        tp%ah(:,j) = 0.0_DP
+                     end do
+                  end if
                end if
             end associate
          end select
       end select
       
       return
-   end subroutine symba_kick_pltpenc
+   end subroutine symba_kick_encounter
 
 end submodule s_symba_kick
\ No newline at end of file
diff --git a/docs/src/symba_setup.f90 b/docs/src/symba_setup.f90
index e06fb20b5..3a0543ee1 100644
--- a/docs/src/symba_setup.f90
+++ b/docs/src/symba_setup.f90
@@ -2,62 +2,6 @@
    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
       !!
@@ -73,23 +17,10 @@ module subroutine symba_setup_initialize_system(self, param)
 
       ! Call parent method
       associate(system => self)
-         call whm_setup_initialize_system(system, param)
+         call helio_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
+         call system%plplcollision_list%setup(0)
       end associate
 
       return
@@ -112,9 +43,12 @@ module subroutine symba_setup_merger(self, n, param)
 
       !> 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 (n < 0) return
 
       if (allocated(self%ncomp)) deallocate(self%ncomp)
+
+      if (n == 0) return
+
       allocate(self%ncomp(n))
       self%ncomp(:) = 0
 
@@ -138,7 +72,7 @@ module subroutine symba_setup_pl(self, n, param)
 
       !> 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 (n < 0) return
 
       if (allocated(self%lcollision)) deallocate(self%lcollision)
       if (allocated(self%lencounter)) deallocate(self%lencounter)
@@ -151,7 +85,8 @@ module subroutine symba_setup_pl(self, n, param)
       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)
+
+      if (n == 0) return
 
       allocate(self%lcollision(n))
       allocate(self%lencounter(n))
@@ -164,7 +99,6 @@ module subroutine symba_setup_pl(self, n, param)
       allocate(self%peri(n))
       allocate(self%atp(n))
       allocate(self%kin(n))
-      allocate(self%info(n))
 
       self%lcollision(:) = .false.
       self%lencounter(:) = .false.
@@ -176,32 +110,34 @@ module subroutine symba_setup_pl(self, n, param)
       self%isperi(:) = 0
       self%peri(:) = 0.0_DP
       self%atp(:) = 0.0_DP
-      self%kin(:)%nchild = 0
-      self%kin(:)%parent = [(i, i=1, n)]
+      call self%reset_kinship([(i, i=1, n)])
       return
    end subroutine symba_setup_pl
 
 
-   module subroutine symba_setup_pltpenc(self, n)
+   module subroutine symba_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(symba_pltpenc), intent(inout) :: self !! SyMBA pl-tp encounter structure
+      class(symba_encounter), 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 (n < 0) return
 
       if (allocated(self%level)) deallocate(self%level)
+
+      if (n ==0) return
+
       allocate(self%level(n))
 
       self%level(:) = -1
 
       return
-   end subroutine symba_setup_pltpenc
+   end subroutine symba_setup_encounter
 
 
    module subroutine symba_setup_tp(self, n, param)
@@ -218,13 +154,15 @@ module subroutine symba_setup_tp(self, n, param)
 
       !> 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 (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)
 
+      if (n == 0) return
+
       allocate(self%nplenc(n))
       allocate(self%levelg(n))
       allocate(self%levelm(n))
diff --git a/docs/src/symba_step.f90 b/docs/src/symba_step.f90
index 7065625b4..9f4508550 100644
--- a/docs/src/symba_step.f90
+++ b/docs/src/symba_step.f90
@@ -19,20 +19,22 @@ module subroutine symba_step_system(self, param, t, dt)
       ! 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
+            select type(param)
+            class is (symba_parameters)
+               call self%reset(param)
+               lencounter = pl%encounter_check(self, dt, 0) .or. tp%encounter_check(self, dt, 0)
+               if (lencounter) then
+                  call self%interp(param, t, dt)
+                  param%lfirstkick = .true.
+               else
+                  self%irec = -1
+                  call helio_step_system(self, param, t, dt)
+               end if
+            end select
          end select
       end select
 
@@ -108,32 +110,17 @@ module subroutine symba_step_set_recur_levels_system(self, ireci)
       ! Internals
       integer(I4B) :: k, irecp
 
-      associate(system => self, plplenc_list => self%plplenc_list, pltpenc_list => self%pltpenc_list)
+      associate(system => self, plplenc_list => self%plplenc_list, pltpenc_list => self%pltpenc_list, npl => self%pl%nbody, ntp => self%tp%nbody)
          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
+               if (npl >0) where(pl%levelg(1:npl) == irecp) pl%levelg(1:npl) = ireci
+               if (ntp > 0) where(tp%levelg(1:ntp) == irecp) tp%levelg(1:ntp) = ireci
+               if (plplenc_list%nenc > 0) where(plplenc_list%level(1:plplenc_list%nenc) == irecp) plplenc_list%level(1:plplenc_list%nenc) = ireci
+               if (pltpenc_list%nenc > 0) where(pltpenc_list%level(1:pltpenc_list%nenc) == irecp) pltpenc_list%level(1:pltpenc_list%nenc) = ireci
 
                system%irec = ireci
 
@@ -157,13 +144,13 @@ module recursive subroutine symba_step_recur_system(self, param, t, ireci)
       ! 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
+      real(DP),                   intent(in)    :: t
+      integer(I4B),               intent(in)    :: ireci !! input recursion level
       ! Internals
       integer(I4B) :: i, j, irecp, nloops
       real(DP) :: dtl, dth
       real(DP), dimension(NDIM) :: xr, vr
-      logical :: lencounter
+      logical :: lencounter, lplpl_collision, lpltp_collision
 
       associate(system => self, plplenc_list => self%plplenc_list, pltpenc_list => self%pltpenc_list)
          select type(pl => self%pl)
@@ -209,8 +196,11 @@ module recursive subroutine symba_step_recur_system(self, param, t, ireci)
                   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) 
+                     lplpl_collision = plplenc_list%collision_check(system, param, t+dtl, dtl, ireci) 
+                     lpltp_collision = pltpenc_list%collision_check(system, param, t+dtl, dtl, ireci) 
+
+                     if (lplpl_collision) call plplenc_list%resolve_collision(system, param, t+dtl, dtl, ireci)
+                     if (lpltp_collision) call pltpenc_list%resolve_collision(system, param, t+dtl, dtl, ireci)
                   end if
 
                   call self%set_recur_levels(ireci)
@@ -224,7 +214,7 @@ module recursive subroutine symba_step_recur_system(self, param, t, ireci)
    end subroutine symba_step_recur_system
 
 
-   module subroutine symba_step_reset_system(self)
+   module subroutine symba_step_reset_system(self, param)
       !! author: David A. Minton
       !!
       !! Resets pl, tp,and encounter structures at the start of a new step
@@ -233,40 +223,53 @@ module subroutine symba_step_reset_system(self)
       !! Adapted from Hal Levison's Swift routine symba5_step.f
       implicit none
       ! Arguments
-      class(symba_nbody_system),  intent(inout) :: self !! SyMBA nbody system object
+      class(symba_nbody_system), intent(inout) :: self  !! SyMBA nbody system object
+      class(symba_parameters),   intent(in)    :: param !! Current run configuration parameters with SyMBA additions
       ! Internals
-      integer(I4B) :: i
+      integer(I4B) :: i, nenc_old
 
-      associate(system => self, pltpenc_list => self%pltpenc_list, plplenc_list => self%plplenc_list, pl_adds => self%pl_adds, pl_discards => self%pl_discards)
+      associate(system => self)
          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
+               associate(npl => pl%nbody, ntp => tp%nbody)
+                  if (npl > 0) then
+                     pl%lcollision(1:npl) = .false.
+                     call pl%reset_kinship([(i, i=1, npl)])
+                     pl%nplenc(1:npl) = 0
+                     pl%ntpenc(1:npl) = 0
+                     pl%levelg(1:npl) = -1
+                     pl%levelm(1:npl) = -1
+                     pl%lencounter(1:npl) = .false.
+                     pl%lcollision(1:npl) = .false.
+                     pl%ldiscard(1:npl) = .false.
+                     pl%lmask(1:npl) = .true.
+                     nenc_old = system%plplenc_list%nenc
+                     call system%plplenc_list%setup(0)
+                     call system%plplenc_list%setup(nenc_old)
+                     system%plplenc_list%nenc = 0
+                     call system%plplcollision_list%setup(0)
+                  end if
+            
+                  if (ntp > 0) then
+                     tp%nplenc(1:ntp) = 0 
+                     tp%levelg(1:ntp) = -1
+                     tp%levelm(1:ntp) = -1
+                     tp%lmask(1:ntp) = .true.
+                     tp%ldiscard(1:npl) = .false.
+                     nenc_old = system%pltpenc_list%nenc
+                     call system%pltpenc_list%setup(0)
+                     call system%pltpenc_list%setup(nenc_old)
+                     system%pltpenc_list%nenc = 0
+                  end if
+
+                  call system%pl_adds%setup(0, param)
+                  call system%pl_discards%setup(0, param)
 
-               call pl_adds%resize(0)
-               call pl_discards%resize(0)
+                  tp%lfirst = param%lfirstkick
+                  pl%lfirst = param%lfirstkick
+               end associate
             end select
          end select
       end associate
diff --git a/docs/src/symba_util.f90 b/docs/src/symba_util.f90
index 4c0f256e3..8b8e48f47 100644
--- a/docs/src/symba_util.f90
+++ b/docs/src/symba_util.f90
@@ -2,30 +2,6 @@
    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
@@ -37,21 +13,47 @@ module subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mas
       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
+      ! Internals
+      integer(I4B) :: nnew
 
       if (.not. allocated(source)) return
 
+      nnew = count(lsource_mask(1:nsrc))
       if (.not.allocated(arr)) then
-         allocate(arr(nold+nsrc))
+         allocate(arr(nold+nnew))
       else
-         call util_resize(arr, nold + nsrc)
+         call util_resize(arr, nold + nnew)
       end if
 
-      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
+      arr(nold + 1:nold + nnew) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine symba_util_append_arr_kin
 
 
+   module subroutine symba_util_append_encounter(self, source, lsource_mask)
+      !! author: David A. Minton
+      !!
+      !! Append components from one encounter list (pl-pl or pl-tp) body object to another. 
+      !! This method will automatically resize the destination body if it is too small
+      implicit none
+      ! Arguments
+      class(symba_encounter),    intent(inout) :: self         !! SyMBA encounter list object
+      class(swiftest_encounter), intent(in)    :: source       !! Source object to append
+      logical, dimension(:),     intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+
+      associate(nold => self%nenc, nsrc => source%nenc)
+         select type(source)
+         class is (symba_encounter)
+            call util_append(self%level, source%level, nold, nsrc, lsource_mask)
+         end select
+         call util_append_encounter(self, source, lsource_mask) 
+      end associate
+
+      return
+   end subroutine symba_util_append_encounter
+
+
    module subroutine symba_util_append_pl(self, source, lsource_mask)
       !! author: David A. Minton
       !!
@@ -77,7 +79,6 @@ module subroutine symba_util_append_pl(self, source, 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
@@ -102,10 +103,12 @@ module subroutine symba_util_append_merger(self, source, lsource_mask)
       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
+      integer(I4B) :: nold, nsrc, nnew
 
       nold = self%nbody
       nsrc = source%nbody
+      nnew = count(lsource_mask)
+
       select type(source)
       class is (symba_merger)
          call util_append(self%ncomp, source%ncomp, nold, nsrc, lsource_mask)
@@ -121,7 +124,7 @@ module subroutine symba_util_append_merger(self, source, lsource_mask)
       end select
 
       ! Save the number of appended bodies 
-      self%ncomp(nold+1:nold+nsrc) = nsrc
+      self%ncomp(nold+1:nold+nnew) = nnew
 
       return
    end subroutine symba_util_append_merger
@@ -144,7 +147,6 @@ module subroutine symba_util_append_tp(self, source, lsource_mask)
             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
@@ -157,24 +159,26 @@ module subroutine symba_util_append_tp(self, source, lsource_mask)
    end subroutine symba_util_append_tp
 
 
-   module subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list)
+   module subroutine symba_util_copy_encounter(self, source)
       !! 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
+      !! Copies elements from the source encounter list into self.
       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
+      class(symba_encounter),    intent(inout) :: self   !! Encounter list 
+      class(swiftest_encounter), intent(in)    :: source !! Source object to copy into
+  
+      select type(source)
+      class is (symba_encounter)
+         associate(n => source%nenc)
+            self%level(1:n) = source%level(1:n) 
+         end associate
+      end select
 
-      keeps(:) = unpack(keeps(:),   .not.lfill_list(:), keeps(:))
-      keeps(:) = unpack(inserts(:),      lfill_list(:), keeps(:))
+      call util_copy_encounter(self, source)
    
       return
-   end subroutine symba_util_fill_arr_info
+   end subroutine symba_util_copy_encounter
 
 
    module subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list)
@@ -223,7 +227,6 @@ module subroutine symba_util_fill_pl(self, inserts, 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
@@ -254,7 +257,6 @@ 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
@@ -267,6 +269,47 @@ module subroutine symba_util_fill_tp(self, inserts, lfill_list)
    end subroutine symba_util_fill_tp
 
 
+   module subroutine symba_util_index_eucl_plpl(self, param)
+      !! author: Jacob R. Elliott and David A. Minton
+      !!
+      !! Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the
+      !! number of interactions that excludes semi-interacting bodies with each other (Gmass < GMTINY).
+      !! This method will also sort the bodies in descending order by Mass
+      !!
+      !! Reference:
+      !!
+      !!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. 
+      !!       2019. hal-0204751
+      implicit none
+      ! Arguments
+      class(symba_pl),            intent(inout) :: self  !! SyMBA massive body object
+      class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      ! Internals
+      integer(I8B) :: i, j, counter, npl, nplm, nplpl, nplplm
+
+      associate(pl => self)
+         npl = int(self%nbody, kind=I8B)
+         nplm = count(.not. pl%lmtiny(1:npl))
+         pl%nplm = int(nplm, kind=I4B)
+
+         pl%nplpl = (npl * (npl - 1) / 2) ! number of entries in a strict lower triangle, npl x npl, minus first column
+         pl%nplplm = nplm * npl - nplm * (nplm + 1) / 2 ! number of entries in a strict lower triangle, npl x npl, minus first column including only mutually interacting bodies
+         if (allocated(self%k_plpl)) deallocate(self%k_plpl) ! Reset the index array if it's been set previously
+         allocate(self%k_plpl(2, pl%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 symba_util_index_eucl_plpl
+
+
    module subroutine symba_util_peri_pl(self, system, param)
       !! author: David A. Minton
       !!
@@ -361,78 +404,165 @@ module subroutine symba_util_rearray_pl(self, system, param)
       ! 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
+      class(symba_parameters),   intent(inout) :: param  !! Current run configuration parameters
       ! Internals
       class(symba_pl), allocatable :: tmp !! The discarded body list.
-      integer(I4B) :: i
-      logical, dimension(:), allocatable :: lmask
+      integer(I4B) :: i, j, k, npl, nadd, nencmin, nenc_old, idnew1, idnew2, idold1, idold2
+      logical, dimension(:), allocatable :: lmask, ldump_mask
+      class(symba_plplenc), allocatable :: plplenc_old
+      logical :: lencounter
+      integer(I4B), dimension(:), allocatable :: levelg_orig_pl, levelm_orig_pl, levelg_orig_tp, levelm_orig_tp, nplenc_orig_pl, nplenc_orig_tp, ntpenc_orig_pl
 
       associate(pl => self, pl_adds => system%pl_adds)
-         allocate(tmp, mold=pl)
+
+         npl = pl%nbody
+         nadd = pl_adds%nbody
+         if (npl == 0) return
+         ! Deallocate any temporary variables
+         if (allocated(pl%xbeg)) deallocate(pl%xbeg)
+         if (allocated(pl%xend)) deallocate(pl%xend)
+
          ! 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
+         allocate(lmask(npl))
+         lmask(1:npl) = pl%ldiscard(1:npl)
+         allocate(tmp, mold=self)
          call pl%spill(tmp, lspill_list=lmask, ldestructive=.true.)
+         npl = pl%nbody
          call tmp%setup(0,param)
          deallocate(tmp)
+         deallocate(lmask)
 
-         ! Deallocate any temporary variables
-         if (allocated(pl%xbeg)) deallocate(pl%xbeg)
-         if (allocated(pl%xend)) deallocate(pl%xend)
+         ! Store the original plplenc list so we don't remove any of the original encounters
+         nenc_old = system%plplenc_list%nenc
+         if (nenc_old > 0) then 
+            allocate(plplenc_old, source=system%plplenc_list)
+            call plplenc_old%copy(system%plplenc_list)
+         end if
 
          ! 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()
+         if (nadd > 0) then
+            ! Append the adds to the main pl object
+            call pl%append(pl_adds, lsource_mask=[(.true., i=1, nadd)])
+
+            allocate(ldump_mask(npl+nadd))  ! This mask is used only to append the original Fortran binary particle.dat file with new bodies. This is ignored for NetCDF output
+            ldump_mask(1:npl) = .false.
+            ldump_mask(npl+1:npl+nadd) = pl%status(npl+1:npl+nadd) == NEW_PARTICLE
+            npl = pl%nbody
+         else
+            allocate(ldump_mask(npl))
+            ldump_mask(:) = .false.
          end if
 
+         ! Reset all of the status flags for this body
+         pl%status(1:npl) = ACTIVE
+         do i = 1, npl
+            call pl%info(i)%set_value(status="ACTIVE")
+         end do
+         pl%ldiscard(1:npl) = .false.
+         pl%lcollision(1:npl) = .false.
+         pl%lmask(1:npl) = .true.
+
+         select type(param)
+         class is (symba_parameters)
+            pl%lmtiny(1:npl) = pl%Gmass(1:npl) < param%GMTINY
+            where(pl%lmtiny(1:npl))
+               pl%info(1:npl)%particle_type = PL_TINY_TYPE_NAME 
+            elsewhere
+               pl%info(1:npl)%particle_type = PL_TYPE_NAME 
+            end where
+         end select
+
+         call pl%dump_particle_info(param, idx=pack([(i, i=1, npl)], ldump_mask))
+         deallocate(ldump_mask)
+
+         ! Reindex the new list of bodies 
+         call pl%sort("mass", ascending=.false.)
+         call pl%index(param)
+
+         ! Reset the kinship trackers
+         call pl%reset_kinship([(i, i=1, npl)])
+
+         ! Re-build the zero-level encounter list, being sure to save the original level information for all bodies
+         allocate(levelg_orig_pl, source=pl%levelg)
+         allocate(levelm_orig_pl, source=pl%levelm)
+         allocate(nplenc_orig_pl, source=pl%nplenc)
+         lencounter = pl%encounter_check(system, param%dt, 0) 
+         if (system%tp%nbody > 0) then
+            select type(tp => system%tp)
+            class is (symba_tp)
+               allocate(ntpenc_orig_pl, source=pl%ntpenc)
+               allocate(levelg_orig_tp, source=tp%levelg)
+               allocate(levelm_orig_tp, source=tp%levelm)
+               allocate(nplenc_orig_tp, source=tp%nplenc)
+               lencounter = tp%encounter_check(system, param%dt, 0)
+               call move_alloc(levelg_orig_tp, tp%levelg)
+               call move_alloc(levelm_orig_tp, tp%levelm)
+               call move_alloc(nplenc_orig_tp, tp%nplenc)
+               call move_alloc(ntpenc_orig_pl, pl%ntpenc)
+            end select
+         end if
+         call move_alloc(levelg_orig_pl, pl%levelg)
+         call move_alloc(levelm_orig_pl, pl%levelm)
+         call move_alloc(nplenc_orig_pl, pl%nplenc)
+
+         ! Re-index the encounter list as the index values may have changed
+         if (nenc_old > 0) then
+            nencmin = min(system%plplenc_list%nenc, plplenc_old%nenc) 
+            do k = 1, nencmin
+               idnew1 = system%plplenc_list%id1(k)
+               idnew2 = system%plplenc_list%id2(k)
+               idold1 = plplenc_old%id1(k)
+               idold2 = plplenc_old%id2(k)
+               if ((idnew1 == idold1) .and. (idnew2 == idold2)) then
+                  ! This is an encounter we already know about, so save the old information
+                  system%plplenc_list%lvdotr(k) = plplenc_old%lvdotr(k) 
+                  system%plplenc_list%status(k) = plplenc_old%status(k) 
+                  system%plplenc_list%x1(:,k) = plplenc_old%x1(:,k)
+                  system%plplenc_list%x2(:,k) = plplenc_old%x2(:,k)
+                  system%plplenc_list%v1(:,k) = plplenc_old%v1(:,k)
+                  system%plplenc_list%v2(:,k) = plplenc_old%v2(:,k)
+                  system%plplenc_list%t(k) = plplenc_old%t(k)
+                  system%plplenc_list%level(k) = plplenc_old%level(k)
+               else if (((idnew1 == idold2) .and. (idnew2 == idold1))) then
+                  ! This is an encounter we already know about, but with the order reversed, so save the old information
+                  system%plplenc_list%lvdotr(k) = plplenc_old%lvdotr(k) 
+                  system%plplenc_list%status(k) = plplenc_old%status(k) 
+                  system%plplenc_list%x1(:,k) = plplenc_old%x2(:,k)
+                  system%plplenc_list%x2(:,k) = plplenc_old%x1(:,k)
+                  system%plplenc_list%v1(:,k) = plplenc_old%v2(:,k)
+                  system%plplenc_list%v2(:,k) = plplenc_old%v1(:,k)
+                  system%plplenc_list%t(k) = plplenc_old%t(k)
+                  system%plplenc_list%level(k) = plplenc_old%level(k)
+               end if
+            end do
+         end if
       end associate
 
       return
    end subroutine symba_util_rearray_pl
 
 
-   module subroutine symba_util_resize_arr_info(arr, nnew)
+   module subroutine symba_util_reset_kinship(self, idx)
       !! author: David A. Minton
+      !! 
+      !! Resets the kinship status of bodies.
       !!
-      !! 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
+      class(symba_pl),            intent(inout) :: self !! SyMBA massive body object
+      integer(I4B), dimension(:), intent(in)    :: idx  !! Index array of bodies to reset
       ! 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
+      integer(I4B) :: i, j
 
-      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)
+      self%kin(idx(:))%parent = idx(:)
+      self%kin(idx(:))%nchild = 0
+      do j = 1, size(idx(:))
+         i = idx(j)
+         if (allocated(self%kin(i)%child)) deallocate(self%kin(i)%child)
+      end do
 
       return
-   end subroutine symba_util_resize_arr_info
-
+   end subroutine symba_util_reset_kinship
+   
 
    module subroutine symba_util_resize_arr_kin(arr, nnew)
       !! author: David A. Minton
@@ -446,16 +576,19 @@ module subroutine symba_util_resize_arr_kin(arr, nnew)
       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) return
 
       if (nnew == 0) then
-         deallocate(arr)
+         if (allocated(arr)) deallocate(arr)
          return
       end if
       
+      if (allocated(arr)) then
+         nold = size(arr)
+      else
+         nold = 0
+      end if
+
       allocate(tmp(nnew))
       if (nnew > nold) then
          tmp(1:nold) = arr(1:nold)
@@ -505,7 +638,6 @@ module subroutine symba_util_resize_pl(self, 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)
 
@@ -525,7 +657,6 @@ module subroutine symba_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)
 
@@ -544,7 +675,7 @@ module subroutine symba_util_sort_pl(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B)                        :: direction
 
       if (self%nbody == 0) return
@@ -556,6 +687,7 @@ module subroutine symba_util_sort_pl(self, sortby, ascending)
       end if
 
       associate(pl => self, npl => self%nbody)
+         allocate(ind(npl))
          select case(sortby)
          case("nplenc")
             call util_sort(direction * pl%nplenc(1:npl), ind(1:npl))
@@ -594,7 +726,7 @@ module subroutine symba_util_sort_tp(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B)                        :: direction
 
       if (self%nbody == 0) return
@@ -606,6 +738,7 @@ module subroutine symba_util_sort_tp(self, sortby, ascending)
       end if
 
       associate(tp => self, ntp => self%nbody)
+         allocate(ind(ntp))
          select case(sortby)
          case("nplenc")
             call util_sort(direction * tp%nplenc(1:ntp), ind(1:ntp))
@@ -625,6 +758,35 @@ module subroutine symba_util_sort_tp(self, sortby, ascending)
    end subroutine symba_util_sort_tp
 
 
+
+   module subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n)
+      !! author: David A. Minton
+      !!
+      !! Rearrange a single array of particle kinship type in-place from an index list.
+      implicit none
+      ! Arguments
+      type(symba_kinship),  dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B),         dimension(:),              intent(in)    :: ind !! Index to rearrange against
+      integer(I4B),                                    intent(in)    :: n   !! Number of elements in arr and ind to rearrange
+      ! Internals
+      type(symba_kinship),  dimension(:), allocatable                :: tmp !! Temporary copy of array used during rearrange operation
+      integer(I4B) :: i,j
+
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, source=arr)
+      tmp(1:n) = arr(ind(1:n))
+
+      do i = 1, n
+         do j = 1, tmp(i)%nchild
+            tmp(i)%child(j) = ind(tmp(i)%child(j))
+         end do
+      end do
+
+      call move_alloc(tmp, arr)
+      return
+   end subroutine symba_util_sort_rearrange_arr_kin
+
+
    module subroutine symba_util_sort_rearrange_pl(self, ind)
       !! author: David A. Minton
       !!
@@ -635,32 +797,22 @@ module subroutine symba_util_sort_rearrange_pl(self, ind)
       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%lcollision, ind, npl)
+         call util_sort_rearrange(pl%lencounter, ind, npl)
+         call util_sort_rearrange(pl%lmtiny,     ind, npl)
+         call util_sort_rearrange(pl%nplenc,     ind, npl)
+         call util_sort_rearrange(pl%ntpenc,     ind, npl)
+         call util_sort_rearrange(pl%levelg,     ind, npl)
+         call util_sort_rearrange(pl%levelm,     ind, npl)
+         call util_sort_rearrange(pl%isperi,     ind, npl)
+         call util_sort_rearrange(pl%peri,       ind, npl)
+         call util_sort_rearrange(pl%atp,        ind, npl)
+         call util_sort_rearrange(pl%kin,        ind, npl)
+
          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
@@ -676,51 +828,19 @@ module subroutine symba_util_sort_rearrange_tp(self, ind)
       ! 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%nplenc, ind, ntp)
+         call util_sort_rearrange(tp%levelg, ind, ntp)
+         call util_sort_rearrange(tp%levelm, ind, ntp)
+
          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
       !!
@@ -732,14 +852,25 @@ module subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestru
       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
+      ! Internals
+      integer(I4B) :: nspill, nkeep, nlist
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
 
-      if (.not.allocated(keeps) .or. count(lspill_list(:)) == 0) return
-      if (.not.allocated(discards)) allocate(discards(count(lspill_list(:))))
-
-      discards(:) = pack(keeps(:), lspill_list(:))
+      discards(:) = pack(keeps(1:nlist), lspill_list(1:nlist))
       if (ldestructive) then
-         if (count(.not.lspill_list(:)) > 0) then
-            keeps(:) = pack(keeps(:), .not. lspill_list(:))
+         if (nkeep > 0) then
+            keeps(:) = pack(keeps(1:nlist), .not. lspill_list(1:nlist))
          else
             deallocate(keeps)
          end if
@@ -760,8 +891,6 @@ module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive)
       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
@@ -778,7 +907,6 @@ module subroutine symba_util_spill_pl(self, discards, 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)
@@ -792,33 +920,31 @@ module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive)
    end subroutine symba_util_spill_pl
 
 
-   module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+   module subroutine symba_util_spill_encounter(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(symba_encounter),      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)
+         class is (symba_encounter)
             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!"
+            write(*,*) "Invalid object passed to the spill method. Source must be of class symba_encounter or its descendents!"
             call util_exit(FAILURE)
          end select
       end associate
    
       return
-   end subroutine symba_util_spill_pltpenc
+   end subroutine symba_util_spill_encounter
 
 
    module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
@@ -832,8 +958,6 @@ module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
       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
@@ -843,7 +967,6 @@ 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
@@ -855,4 +978,4 @@ module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
       return
    end subroutine symba_util_spill_tp
 
-end submodule s_symba_util
\ No newline at end of file
+end submodule s_symba_util
diff --git a/docs/src/tides_getacch_pl.f90 b/docs/src/tides_getacch_pl.f90
index f0bf64cc7..4feb76221 100644
--- a/docs/src/tides_getacch_pl.f90
+++ b/docs/src/tides_getacch_pl.f90
@@ -48,8 +48,8 @@ module subroutine tides_kick_getacch_pl(self, system)
             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(:)
+                      + 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 
diff --git a/docs/src/util_append.f90 b/docs/src/util_append.f90
index dc48f9861..ffe576c85 100644
--- a/docs/src/util_append.f90
+++ b/docs/src/util_append.f90
@@ -12,16 +12,19 @@ module subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_m
       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
+      ! Internals
+      integer(I4B) :: nnew
 
       if (.not. allocated(source)) return
 
+      nnew = count(lsource_mask(1:nsrc))
       if (.not.allocated(arr)) then
-         allocate(arr(nold+nsrc))
+         allocate(arr(nold+nnew))
       else
-         call util_resize(arr, nold + nsrc)
+         call util_resize(arr, nold + nnew)
       end if
 
-      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
+      arr(nold + 1:nold + nnew) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_char_string
@@ -37,16 +40,19 @@ module subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
       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
+      ! Internals
+      integer(I4B) :: nnew
 
       if (.not. allocated(source)) return
 
+      nnew = count(lsource_mask(1:nsrc))
       if (.not.allocated(arr)) then
-         allocate(arr(nold+nsrc))
+         allocate(arr(nold+nnew))
       else
-         call util_resize(arr, nold + nsrc)
+         call util_resize(arr, nold + nnew)
       end if
 
-      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
+      arr(nold + 1:nold + nnew) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_DP
@@ -62,18 +68,21 @@ module subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
       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
+      ! Internals
+      integer(I4B) :: nnew
 
       if (.not. allocated(source)) return
 
+      nnew = count(lsource_mask(1:nsrc))
       if (.not.allocated(arr)) then
-         allocate(arr(NDIM, nold+nsrc))
+         allocate(arr(NDIM,nold+nnew))
       else
-         call util_resize(arr, nold + nsrc)
+         call util_resize(arr, nold + nnew)
       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))
+      arr(1, nold + 1:nold + nnew) = pack(source(1,1:nsrc), lsource_mask(1:nsrc))
+      arr(2, nold + 1:nold + nnew) = pack(source(2,1:nsrc), lsource_mask(1:nsrc))
+      arr(3, nold + 1:nold + nnew) = pack(source(3,1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_DPvec
@@ -89,21 +98,57 @@ module subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
       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
+      ! Internals
+      integer(I4B) :: nnew
 
       if (.not. allocated(source)) return
 
+      nnew = count(lsource_mask(1:nsrc))
       if (.not.allocated(arr)) then
-         allocate(arr(nold+nsrc))
+         allocate(arr(nold+nnew))
       else
-         call util_resize(arr, nold + nsrc)
+         call util_resize(arr, nold + nnew)
       end if
 
-      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
+      arr(nold + 1:nold + nnew) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_I4B
 
 
+   module subroutine 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(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
+      type(swiftest_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
+      ! Internals
+      integer(I4B) :: nnew, i
+      integer(I4B), dimension(:), allocatable :: idx
+
+      if (.not. allocated(source)) return
+
+      nnew = count(lsource_mask(1:nsrc))
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nnew))
+      else
+         call util_resize(arr, nold + nnew)
+      end if
+
+      allocate(idx(nnew))
+
+      idx = pack([(i, i = 1, nsrc)], lsource_mask(1:nsrc))
+
+      call util_copy_particle_info_arr(source(1:nsrc), arr(nold+1:nold+nnew), idx)
+
+      return
+   end subroutine util_append_arr_info
+
+
    module subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
@@ -114,16 +159,19 @@ module subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
       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
+      ! Internals
+      integer(I4B) :: nnew
 
       if (.not. allocated(source)) return
 
+      nnew = count(lsource_mask(1:nsrc))
       if (.not.allocated(arr)) then
-         allocate(arr(nold+nsrc))
+         allocate(arr(nold+nnew))
       else
-         call util_resize(arr, nold + nsrc)
+         call util_resize(arr, nold + nnew)
       end if
 
-      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
+      arr(nold + 1:nold + nnew) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_logical
@@ -136,40 +184,76 @@ module subroutine util_append_body(self, source, lsource_mask)
       !! 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)
+      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
+      ! Internals
+      integer(I4B) :: nold, nsrc, nnew
+
+      nold = self%nbody
+      nsrc = source%nbody
+      nnew = count(lsource_mask(1:nsrc))
+
+      call util_append(self%info, source%info, 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)
+
+      self%nbody = nold + nnew
 
       return
    end subroutine util_append_body
 
 
+   module subroutine util_append_encounter(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_encounter), intent(inout) :: self         !! Swiftest encounter list object
+      class(swiftest_encounter), intent(in)    :: source       !! Source object to append
+      logical, dimension(:),     intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      ! Internals
+      integer(I4B) :: nold, nsrc
+
+      nold = self%nenc
+      nsrc = source%nenc
+      call util_append(self%lvdotr, source%lvdotr, nold, nsrc, lsource_mask)
+      call util_append(self%status, source%status, nold, nsrc, lsource_mask)
+      call util_append(self%index1, source%index1, nold, nsrc, lsource_mask)
+      call util_append(self%index2, source%index2, nold, nsrc, lsource_mask)
+      call util_append(self%id1, source%id1, nold, nsrc, lsource_mask)
+      call util_append(self%id2, source%id2, nold, nsrc, lsource_mask)
+      call util_append(self%x1, source%x1, nold, nsrc, lsource_mask)
+      call util_append(self%x2, source%x2, nold, nsrc, lsource_mask)
+      call util_append(self%v1, source%v1, nold, nsrc, lsource_mask)
+      call util_append(self%v2, source%v2, nold, nsrc, lsource_mask)
+      call util_append(self%t, source%t, nold, nsrc, lsource_mask)
+      self%nenc = nold + count(lsource_mask(1:nsrc))
+
+      return
+   end subroutine util_append_encounter
+
+
    module subroutine util_append_pl(self, source, lsource_mask)
       !! author: David A. Minton
       !!
@@ -181,7 +265,6 @@ module subroutine util_append_pl(self, source, lsource_mask)
       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)
@@ -199,10 +282,10 @@ module subroutine util_append_pl(self, source, lsource_mask)
             call util_append(self%Q, source%Q, nold, nsrc, lsource_mask)
             call util_append(self%tlag, source%tlag, nold, nsrc, lsource_mask)
 
+            if (allocated(self%k_plpl)) deallocate(self%k_plpl)
+
             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)
diff --git a/docs/src/util_coord.f90 b/docs/src/util_coord.f90
index 2a970d0dc..b4a77231c 100644
--- a/docs/src/util_coord.f90
+++ b/docs/src/util_coord.f90
@@ -45,7 +45,7 @@ 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)
+      !! Convert test particles 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 
@@ -120,5 +120,174 @@ module subroutine util_coord_b2h_tp(self, cb)
 
       return
    end subroutine util_coord_b2h_tp
+
+
+   module subroutine util_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(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 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 util_coord_vb2vh_pl
+
+
+   module subroutine util_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(swiftest_tp),     intent(inout) :: self !! Swiftest test particle 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 util_coord_vb2vh_tp
+
+
+   module subroutine util_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(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
+
+      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 util_coord_vh2vb_pl
+
+
+   module subroutine util_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(swiftest_tp),     intent(inout) :: self !! Swiftest test particle 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 util_coord_vh2vb_tp
    
+
+   module subroutine util_coord_xh2xb_pl(self, cb)
+      !! author: David A. Minton
+      !!
+      !! Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only)
+      !!
+      !! 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
+
+      if (self%nbody == 0) return
+      associate(pl => self, npl => self%nbody)
+         Gmtot = cb%Gmass
+         xtmp(:) = 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)
+         end do
+         cb%xb(:) = -xtmp(:) / Gmtot
+         do i = 1, npl
+            if (pl%status(i) == INACTIVE) cycle
+            pl%xb(:,i) = pl%xh(:,i) + cb%xb(:)
+         end do
+      end associate
+
+      return
+   end subroutine util_coord_xh2xb_pl
+
+
+   module subroutine util_coord_xh2xb_tp(self, cb)
+      !! author: David A. Minton
+      !!
+      !! Convert test particles from heliocentric to barycentric coordinates (position only)
+      !!
+      !! 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(:)
+         end do
+      end associate
+
+      return
+   end subroutine util_coord_xh2xb_tp
+
 end submodule s_util_coord
\ No newline at end of file
diff --git a/docs/src/util_copy.f90 b/docs/src/util_copy.f90
index f44777eec..60d93e45e 100644
--- a/docs/src/util_copy.f90
+++ b/docs/src/util_copy.f90
@@ -2,28 +2,100 @@
    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
+   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%kidx(1:n) = source%kidx(1:n)
+         self%index1(1:n) = source%index1(1:n)
+         self%index2(1:n) = source%index2(1:n)
+         self%id1(1:n) = source%id1(1:n)
+         self%id2(1:n) = source%id2(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)
+         self%t(1:n) = source%t(1:n)
+      end associate
+
+      return
+   end subroutine util_copy_encounter
+
+
+   module subroutine util_copy_particle_info(self, source)
+      !! author: David A. Minton
+      !!
+      !! Copies one set of information object components into another, component-by-component
+      implicit none
+      class(swiftest_particle_info),  intent(inout) :: self
+      class(swiftest_particle_info),  intent(in)    :: source
+
+      call self%set_value(&
+         name = source%name, &
+         particle_type = source%particle_type, &
+         status = source%status, & 
+         origin_type = source%origin_type, &
+         origin_time = source%origin_time, & 
+         origin_xh = source%origin_xh(:), &
+         origin_vh = source%origin_vh(:), &
+         discard_time = source%discard_time, & 
+         discard_xh = source%discard_xh(:), &
+         discard_vh = source%discard_vh(:), &
+         discard_body_id = source%discard_body_id &
+      )
+
+      return
+   end subroutine util_copy_particle_info
+
+
+   module subroutine util_copy_particle_info_arr(source, dest, idx)
+      !! author: David A. Minton
+      !!
+      !! Copies contents from an array of one particle information objects to another.
+      implicit none
+      class(swiftest_particle_info), dimension(:), intent(in)             :: source !! Source object to copy into
+      class(swiftest_particle_info), dimension(:), intent(inout)          :: dest   !! Swiftest body object with particle metadata information object
+      integer(I4B),                  dimension(:), intent(in),   optional :: idx    !! Optional array of indices to draw the source object
+      ! Internals
+      integer(I4B) :: i, j, n, nsource, ndest
+
+      if (size(source) == 0) return
+
+      if (present(idx)) then
+         n = size(idx)
+      else
+         n = size(source)
+      end if
+
+      nsource = size(source)
+      ndest = size(dest)
+
+      if ((n == 0) .or. (n > ndest) .or. (n > nsource)) then
+         write(*,*) 'Particle info copy operation failed. n, nsource, ndest: ',n, nsource, ndest
+         return
+      end if
+
+      do i = 1, n
+         if (present(idx)) then
+            j = idx(i)
+         else
+            j = i
+         end if 
+         call dest(i)%copy(source(j))
+      end do
+      
+      return
+   end subroutine util_copy_particle_info_arr
+
+
 
 end submodule s_util_copy
diff --git a/docs/src/util_fill.f90 b/docs/src/util_fill.f90
index 4a5a70311..26b21310e 100644
--- a/docs/src/util_fill.f90
+++ b/docs/src/util_fill.f90
@@ -82,6 +82,35 @@ module subroutine util_fill_arr_I4B(keeps, inserts, lfill_list)
       return
    end subroutine util_fill_arr_I4B
 
+
+   module subroutine 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(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: keeps      !! Array of values to keep 
+      type(swiftest_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
+      ! Internals
+      integer(I4B), dimension(:), allocatable  :: insert_idx
+      integer(I4B) :: i, nkeep, ninsert
+
+      if (.not.allocated(keeps) .or. .not.allocated(inserts)) return
+
+      nkeep = size(keeps)
+      ninsert = count(lfill_list)
+
+      allocate(insert_idx(ninsert))
+
+      insert_idx(:) = pack([(i, i = 1, nkeep)], lfill_list)
+      call util_copy_particle_info_arr(inserts, keeps, insert_idx)
+
+      return
+   end subroutine util_fill_arr_info
+
+
    module subroutine util_fill_arr_logical(keeps, inserts, lfill_list)
       !! author: David A. Minton
       !!
@@ -119,7 +148,7 @@ module subroutine util_fill_body(self, inserts, lfill_list)
       !> 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%info, inserts%info, 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)
@@ -177,6 +206,8 @@ module subroutine util_fill_pl(self, inserts, 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)
+
+            if (allocated(keeps%k_plpl)) deallocate(keeps%k_plpl)
             
             call util_fill_body(keeps, inserts, lfill_list)
          class default
diff --git a/docs/src/util_get_energy_momentum.f90 b/docs/src/util_get_energy_momentum.f90
index fa7cda43d..803b7bac1 100644
--- a/docs/src/util_get_energy_momentum.f90
+++ b/docs/src/util_get_energy_momentum.f90
@@ -14,19 +14,21 @@ module subroutine util_get_energy_momentum_system(self, param)
       class(swiftest_parameters),   intent(in)    :: param    !! Current run configuration parameters
       ! Internals
       integer(I4B) :: i, j
-      integer(I8B) :: k
+      integer(I8B) :: k, nplpl
       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
+      real(DP), dimension(:), allocatable :: pepl 
+      logical, dimension(:), allocatable :: lstatpl
+      real(DP) :: hx, hy, hz
 
       associate(system => self, pl => self%pl, npl => self%pl%nbody, cb => self%cb)
+         nplpl = pl%nplpl
          system%Lorbit(:) = 0.0_DP
          system%Lspin(:) = 0.0_DP
+         system%Ltot(:) = 0.0_DP
          system%ke_orbit = 0.0_DP
          system%ke_spin = 0.0_DP
 
@@ -37,27 +39,25 @@ module subroutine util_get_energy_momentum_system(self, param)
          Lplspinx(:) = 0.0_DP
          Lplspiny(:) = 0.0_DP
          Lplspinz(:) = 0.0_DP
-         lstatus(1:npl) = pl%status(1:npl) /= INACTIVE
 
+         pl%lmask(1:npl) = pl%status(1:npl) /= INACTIVE
+
+         system%GMtot = cb%Gmass + sum(pl%Gmass(1:npl), pl%lmask(1:npl)) 
          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
+         Lcborbit(:) = cb%mass * (cb%xb(:) .cross. cb%vb(:))
+
+         do concurrent (i = 1:npl, pl%lmask(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
+            kepl(i) = pl%mass(i) * dot_product(pl%vb(:,i), pl%vb(:,i)) 
          end do
 
          if (param%lrotation) then
@@ -66,22 +66,15 @@ module subroutine util_get_energy_momentum_system(self, param)
             ! 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
+            do concurrent (i = 1:npl, pl%lmask(i))
+               ! Currently we assume that the rotation pole is the 3rd principal axis
+               ! Angular momentum from spin
+               Lplspinx(i) = pl%mass(i) * pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(1,i)
+               Lplspiny(i) = pl%mass(i) * pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(2,i)  
+               Lplspinz(i) = pl%mass(i) * pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(3,i)  
 
-                  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
+               ! Kinetic energy from spin
+               kespinpl(i) = pl%mass(i) * pl%Ip(3,i) * pl%radius(i)**2 * dot_product(pl%rot(:,i), pl%rot(:,i))
             end do
          else
             kespincb = 0.0_DP
@@ -89,48 +82,57 @@ module subroutine util_get_energy_momentum_system(self, param)
          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
+         where(.not. pl%lmask(1:npl))
+            pecb(1:npl) = 0.0_DP
+         end where
+
+         do concurrent(i = 1:npl, pl%lmask(i))
+            pecb(i) = -cb%Gmass * pl%mass(i) / norm2(pl%xb(:,i)) 
+         end do
    
          ! 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
+         allocate(lstatpl(nplpl))
+         allocate(pepl(nplpl))
+         do concurrent (k = 1:nplpl)
+            i = pl%k_plpl(1,k)
+            j = pl%k_plpl(2,k)
+            lstatpl(k) = (pl%lmask(i) .and. pl%lmask(j))
+         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
+         where(.not.lstatpl(1:nplpl)) 
+            pepl(1:nplpl) = 0.0_DP
+         end where
+
+         do concurrent (k = 1:nplpl, lstatpl(k))
+            i = pl%k_plpl(1,k)
+            j = pl%k_plpl(2,k)
+            pepl(k) = -(pl%Gmass(i) * pl%mass(j)) / norm2(pl%xb(:, i) - pl%xb(:, j))
+         end do
    
-         system%pe = sum(pepl(:), lstatpl(:)) + sum(pecb(1:npl), lstatus(1:npl))
+         system%pe = sum(pepl(:), lstatpl(:)) + sum(pecb(1:npl), pl%lmask(1:npl))
+         deallocate(lstatpl, pepl)
 
-         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(:)))
+         system%ke_orbit = 0.5_DP * (kecb + sum(kepl(1:npl), pl%lmask(1:npl)))
+         if (param%lrotation) system%ke_spin = 0.5_DP * (kespincb + sum(kespinpl(1:npl), pl%lmask(1:npl)))
    
          ! 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
+            call system%obl_pot()
+            system%pe = system%pe + system%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)) 
+         system%Lorbit(1) = Lcborbit(1) + sum(Lplorbitx(1:npl), pl%lmask(1:npl)) 
+         system%Lorbit(2) = Lcborbit(2) + sum(Lplorbity(1:npl), pl%lmask(1:npl)) 
+         system%Lorbit(3) = Lcborbit(3) + sum(Lplorbitz(1:npl), pl%lmask(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)) 
+            system%Lspin(1) = Lcbspin(1) + sum(Lplspinx(1:npl), pl%lmask(1:npl)) 
+            system%Lspin(2) = Lcbspin(2) + sum(Lplspiny(1:npl), pl%lmask(1:npl)) 
+            system%Lspin(3) = Lcbspin(3) + sum(Lplspinz(1:npl), pl%lmask(1:npl)) 
          end if
 
          system%te = system%ke_orbit + system%ke_spin + system%pe
+         system%Ltot(:) = system%Lorbit(:) + system%Lspin(:)
       end associate
 
       return
diff --git a/docs/src/util_index.f90 b/docs/src/util_index.f90
new file mode 100644
index 000000000..0e42ec7c7
--- /dev/null
+++ b/docs/src/util_index.f90
@@ -0,0 +1,76 @@
+submodule (swiftest_classes) s_util_index
+   use swiftest
+contains
+
+   module subroutine util_index_eucl_plpl(self, param)
+      !! author: Jacob R. Elliott and David A. Minton
+      !!
+      !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions.
+      !!
+      !! 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 object
+      class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      ! 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, npl 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_I8B, 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 util_index_eucl_plpl
+
+
+   module subroutine util_index_eucl_pltp(self, pl, param)
+      !! author: Jacob R. Elliott and David A. Minton
+      !!
+      !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions
+      !!
+      !! 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_tp),         intent(inout) :: self  !! Swiftest test particle object
+      class(swiftest_pl),         intent(in)    :: pl    !! Swiftest massive body object
+      class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      ! Internals
+      integer(I8B) :: i, j, counter, npl, ntp
+
+      ntp = int(self%nbody, kind=I8B)
+      npl = int(pl%nbody, kind=I8B)
+      associate(npltp => self%npltp)
+         npltp = npl * ntp
+         if (allocated(self%k_pltp)) deallocate(self%k_pltp) ! Reset the index array if it's been set previously
+         allocate(self%k_pltp(2, npltp))
+         do i = 1_I8B, npl
+            counter = (i - 1_I8B) * npl + 1_I8B
+            do j = 1_I8B,  ntp
+               self%k_pltp(1, counter) = i
+               self%k_pltp(2, counter) = j
+               counter = counter + 1_I8B
+            end do
+         end do
+      end associate
+
+      return
+   end subroutine util_index_eucl_pltp
+
+end submodule s_util_index
diff --git a/docs/src/util_minimize_bfgs.f90 b/docs/src/util_minimize_bfgs.f90
index fbd48c8c2..01b57d868 100644
--- a/docs/src/util_minimize_bfgs.f90
+++ b/docs/src/util_minimize_bfgs.f90
@@ -1,15 +1,16 @@
 submodule (swiftest_classes) s_util_minimize_bfgs
    use swiftest
 contains  
-   module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
+   module function util_minimize_bfgs(f, N, x0, eps, maxloop, 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
+      !!   N       : Number of variables of function f
+      !!   x0      : Initial starting value of x
+      !!   eps     : Accuracy of 1 - dimensional minimization at each step
+      !!   maxloop : Maximum number of loops to attempt to find a solution
       !! The outputs include
       !!   lerr :  Returns .true. if it could not find the minimum
       !! Returns
@@ -23,12 +24,12 @@ module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
       class(lambda_obj),      intent(inout) :: f
       real(DP), dimension(:), intent(in)    :: x0
       real(DP),               intent(in)    :: eps
+      integer(I4B),           intent(in)    :: maxloop
       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 
@@ -56,17 +57,23 @@ module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
          return
       end if
       grad1(:) = grad0(:)
-      do i = 1, MAXLOOP 
+      do i = 1, maxloop 
          !check for convergence
          conv = count(abs(grad1(:)) > eps)
+         ! write(*,*) 'loop: ', i
+         ! write(*,*) 'conv: ', conv
+         ! write(*,*) 'grad1 / eps'
+         ! do j = 1, N
+         !    write(*,*) j, abs(grad1(j)) / eps
+         ! end do
          if (conv == 0) then
-            !write(*,*) "BFGS converged on gradient after ",i," iterations" 
+            ! 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"
+            ! write(*,*) "Exiting BFGS with error in minimize1D step"
             exit
          end if
          ! Get new x values 
@@ -86,7 +93,7 @@ module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
          end do
          ! prevent divide by zero (convergence) 
          if (abs(Py) < tiny(Py)) then
-            !write(*,*) "BFGS Converged on tiny Py after ",i," iterations"
+            ! write(*,*) "BFGS Converged on tiny Py after ",i," iterations"
             exit
          end if
          ! set up update 
@@ -108,15 +115,15 @@ module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
          ! 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
+         if (i == maxloop) then
             lerr = .true.
-            !write(*,*) "BFGS ran out of loops!"
+            ! 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!"
+      ! 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 
@@ -180,6 +187,7 @@ function gradf(f, N, x1, dx, lerr) result(grad)
             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
@@ -253,6 +261,7 @@ function minimize1D(f, x0, S, N, eps, lerr) result(astar)
             return 
          end function minimize1D
 
+
          function n2one(f, x0, S, N, a, lerr) result(fnew)
             implicit none
             ! Arguments
diff --git a/docs/src/util_rescale.f90 b/docs/src/util_rescale.f90
index 62a9409ec..50ebc088c 100644
--- a/docs/src/util_rescale.f90
+++ b/docs/src/util_rescale.f90
@@ -20,9 +20,11 @@ module subroutine util_rescale_system(self, param, mscale, dscale, 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)
+      if (param%lgr) then
+         ! 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)
+      end if
 
       vscale = dscale / tscale
 
diff --git a/docs/src/util_resize.f90 b/docs/src/util_resize.f90
index 80d87209c..dfef8771b 100644
--- a/docs/src/util_resize.f90
+++ b/docs/src/util_resize.f90
@@ -5,7 +5,7 @@
    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.
+      !! Resizes an array component of type character string. nnew = 0 will deallocate.
       implicit none
       ! Arguments
       character(len=STRMAX), dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -14,21 +14,31 @@ module subroutine util_resize_arr_char_string(arr, nnew)
       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) return
 
       if (nnew == 0) then
-         deallocate(arr)
+         if (allocated(arr)) deallocate(arr)
          return
       end if
       
+      if (allocated(arr)) then
+         nold = size(arr)
+      else
+         nold = 0
+      end if
+
+      if (nnew == nold) return
+      
       allocate(tmp(nnew))
-      if (nnew > nold) then
-         tmp(1:nold) = arr(1:nold)
+      if (nold > 0) then
+         if (nnew > nold) then
+            tmp(1:nold) = arr(1:nold)
+            tmp(nold+1:nnew) = ""
+         else
+            tmp(1:nnew) = arr(1:nnew)
+         end if
       else
-         tmp(1:nnew) = arr(1:nnew)
+         tmp(1:nnew) = ""
       end if
       call move_alloc(tmp, arr)
 
@@ -39,7 +49,7 @@ 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.
+      !! Resizes an array component of double precision type. Passing nnew = 0 will deallocate.
       implicit none
       ! Arguments
       real(DP), dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -47,22 +57,33 @@ module subroutine util_resize_arr_DP(arr, nnew)
       ! Internals
       real(DP), dimension(:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated
       integer(I4B) :: nold !! Old size
+      real(DP), parameter :: init_val = 0.0_DP
 
-      if (.not. allocated(arr) .or. nnew < 0) return
-
-      nold = size(arr)
-      if (nnew == nold) return
+      if (nnew < 0) return
 
       if (nnew == 0) then
-         deallocate(arr)
+         if (allocated(arr)) deallocate(arr)
          return
       end if
       
+      if (allocated(arr)) then
+         nold = size(arr)
+      else
+         nold = 0
+      end if
+
+      if (nnew == nold) return
+      
       allocate(tmp(nnew))
-      if (nnew > nold) then
-         tmp(1:nold) = arr(1:nold)
+      if (nold > 0) then
+         if (nnew > nold) then
+            tmp(1:nold) = arr(1:nold)
+            tmp(nold+1:nnew) = init_val
+         else
+            tmp(1:nnew) = arr(1:nnew)
+         end if
       else
-         tmp(1:nnew) = arr(1:nnew)
+         tmp(1:nnew) = init_val
       end if
       call move_alloc(tmp, arr)
 
@@ -73,7 +94,7 @@ 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.
+      !! Resizes an array component of double precision vectors of size (NDIM, n). Passing nnew = 0 will deallocate.
       implicit none
       ! Arguments
       real(DP), dimension(:,:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -81,33 +102,51 @@ module subroutine util_resize_arr_DPvec(arr, nnew)
       ! Internals
       real(DP), dimension(:,:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated
       integer(I4B) :: nold !! Old size
+      real(DP), dimension(NDIM), parameter :: init_val = 0.0_DP
+      integer(I4B) :: i
 
-      if (.not. allocated(arr) .or. nnew < 0) return
-
-      nold = size(arr, dim=2)
-      if (nnew == nold) return
+      if (nnew < 0) return
 
       if (nnew == 0) then
-         deallocate(arr)
+         if (allocated(arr)) deallocate(arr)
          return
       end if
       
+      if (allocated(arr)) then
+         nold = size(arr, dim=2)
+      else
+         nold = 0
+      end if
+
+      if (nnew == nold) return
+      
       allocate(tmp(NDIM, nnew))
-      if (nnew > nold) then
-         tmp(:, 1:nold) = arr(:, 1:nold)
+      if (nold > 0) then
+         if (nnew > nold) then
+            tmp(:,1:nold) = arr(:,1:nold)
+            do i = nold+1, nnew
+               tmp(:,i) = init_val(:)
+            end do
+         else
+            tmp(:,1:nnew) = arr(:,1:nnew)
+         end if
       else
-         tmp(:, 1:nnew) = arr(:, 1:nnew)
+         do i = 1, nnew
+            tmp(:, i) = init_val(:)
+         end do
       end if
       call move_alloc(tmp, arr)
 
       return
+
+      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.
+      !! Resizes an array component of integer type. Passing nnew = 0 will deallocate.
       implicit none
       ! Arguments
       integer(I4B), dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -115,33 +154,84 @@ module subroutine util_resize_arr_I4B(arr, nnew)
       ! Internals
       integer(I4B), dimension(:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated
       integer(I4B) :: nold !! Old size
+      integer(I4B), parameter :: init_val = -1
+
+      if (nnew < 0) return
 
-      if (.not. allocated(arr) .or. nnew < 0) return
+      if (nnew == 0) then
+         if (allocated(arr)) deallocate(arr)
+         return
+      end if
+      
+      if (allocated(arr)) then
+         nold = size(arr)
+      else
+         nold = 0
+      end if
 
-      nold = size(arr)
       if (nnew == nold) return
+      
+      allocate(tmp(nnew))
+      if (nold > 0) then
+         if (nnew > nold) then
+            tmp(1:nold) = arr(1:nold)
+            tmp(nold+1:nnew) = init_val
+         else
+            tmp(1:nnew) = arr(1:nnew)
+         end if
+      else
+         tmp(1:nnew) = init_val
+      end if
+      call move_alloc(tmp, arr)
+
+      return
+   end subroutine util_resize_arr_I4B
+
+
+   module subroutine 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(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
+      integer(I4B),                                         intent(in)    :: nnew !! New size
+      ! Internals
+      type(swiftest_particle_info), dimension(:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated
+      integer(I4B) :: nold !! Old size
+
+      if (nnew < 0) return
 
       if (nnew == 0) then
-         deallocate(arr)
+         if (allocated(arr)) deallocate(arr)
          return
       end if
       
+      if (allocated(arr)) then
+         nold = size(arr)
+      else
+         nold = 0
+      end if
+
+      if (nnew == nold) return
+      
       allocate(tmp(nnew))
       if (nnew > nold) then
-         tmp(1:nold) = arr(1:nold)
+         call util_copy_particle_info_arr(arr(1:nold), tmp(1:nold))
       else
-         tmp(1:nnew) = arr(1:nnew)
+         call util_copy_particle_info_arr(arr(1:nnew), tmp(1:nnew))
       end if
+
       call move_alloc(tmp, arr)
 
       return
-   end subroutine util_resize_arr_I4B
+   end subroutine util_resize_arr_info
 
 
    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.
+      !! Resizes an array component of logical type. Passing nnew = 0 will deallocate.
       implicit none
       ! Arguments
       logical, dimension(:), allocatable, intent(inout) :: arr  !! Array to resize
@@ -149,22 +239,33 @@ module subroutine util_resize_arr_logical(arr, nnew)
       ! Internals
       logical, dimension(:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated
       integer(I4B) :: nold !! Old size
+      logical, parameter :: init_val = .false.
 
-      if (.not. allocated(arr) .or. nnew < 0) return
-
-      nold = size(arr)
-      if (nnew == nold) return
+      if (nnew < 0) return
 
       if (nnew == 0) then
-         deallocate(arr)
+         if (allocated(arr)) deallocate(arr)
          return
       end if
       
+      if (allocated(arr)) then
+         nold = size(arr)
+      else
+         nold = 0
+      end if
+
+      if (nnew == nold) return
+      
       allocate(tmp(nnew))
-      if (nnew > nold) then
-         tmp(1:nold) = arr(1:nold)
+      if (nold > 0) then
+         if (nnew > nold) then
+            tmp(1:nold) = arr(1:nold)
+            tmp(nold+1:nnew) = init_val
+         else
+            tmp(1:nnew) = arr(1:nnew)
+         end if
       else
-         tmp(1:nnew) = arr(1:nnew)
+         tmp(1:nnew) = init_val
       end if
       call move_alloc(tmp, arr)
 
@@ -178,10 +279,10 @@ module subroutine util_resize_body(self, nnew)
       !! 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
+      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%info, nnew)
       call util_resize(self%id, nnew)
       call util_resize(self%status, nnew)
       call util_resize(self%ldiscard, nnew)
@@ -249,7 +350,7 @@ 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.
+      !! Checks the current size of a Swiftest massive 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
@@ -270,7 +371,8 @@ module subroutine util_resize_pl(self, nnew)
       call util_resize(self%k2, nnew)
       call util_resize(self%Q, nnew)
       call util_resize(self%tlag, nnew)
-      call self%eucl_index()
+
+      if (allocated(self%k_plpl)) deallocate(self%k_plpl)
 
       return
    end subroutine util_resize_pl
@@ -279,10 +381,10 @@ 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.
+      !! Checks the current size of a Swiftest test particle 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
+      class(swiftest_tp), intent(inout) :: self  !! Swiftest test particle object
       integer(I4B),       intent(in)    :: nnew  !! New size neded
 
       call util_resize_body(self, nnew)
diff --git a/docs/src/util_set.f90 b/docs/src/util_set.f90
index 86e021ab6..80ed89b1f 100644
--- a/docs/src/util_set.f90
+++ b/docs/src/util_set.f90
@@ -77,7 +77,7 @@ module subroutine util_set_mu_pl(self, cb)
       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(:)
+      if (self%nbody > 0) self%mu(1:self%nbody) = cb%Gmass + self%Gmass(1:self%nbody)
 
       return
    end subroutine util_set_mu_pl
@@ -92,11 +92,74 @@ module subroutine util_set_mu_tp(self, cb)
       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
+      if (self%nbody == 0) return
+      self%mu(1:self%nbody) = cb%Gmass
 
       return
    end subroutine util_set_mu_tp
 
+   module subroutine util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
+      !! author: David A. Minton
+      !!
+      !! Sets one or more values of the particle information metadata object
+      implicit none
+      ! Arguments
+      class(swiftest_particle_info), intent(inout)           :: self
+      character(len=*),              intent(in),    optional :: name            !! Non-unique name
+      character(len=*),              intent(in),    optional :: particle_type   !! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)
+      character(len=*),              intent(in),    optional :: status          !! Particle status description: ACTIVE, MERGED, FRAGMENTED, etc.
+      character(len=*),              intent(in),    optional :: origin_type     !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)
+      real(DP),                      intent(in),    optional :: origin_time     !! The time of the particle's formation
+      real(DP), dimension(:),        intent(in),    optional :: origin_xh       !! The heliocentric distance vector at the time of the particle's formation
+      real(DP), dimension(:),        intent(in),    optional :: origin_vh       !! The heliocentric velocity vector at the time of the particle's formation
+      real(DP),                      intent(in),    optional :: discard_time    !! The time of the particle's discard
+      real(DP), dimension(:),        intent(in),    optional :: discard_xh      !! The heliocentric distance vector at the time of the particle's discard
+      real(DP), dimension(:),        intent(in),    optional :: discard_vh      !! The heliocentric velocity vector at the time of the particle's discard
+      integer(I4B),                  intent(in),    optional :: discard_body_id !! The id of the other body involved in the discard (0 if no other body involved)
+      ! Internals
+      character(len=NAMELEN) :: lenstr
+      character(len=:), allocatable :: fmtlabel
+
+      write(lenstr, *) NAMELEN
+      fmtlabel = "(A" // trim(adjustl(lenstr)) // ")"
+
+      if (present(name)) then
+         write(self%name, fmtlabel) trim(adjustl(name))
+      end if
+      if (present(particle_type)) then
+         write(self%particle_type, fmtlabel) trim(adjustl(particle_type))
+      end if 
+      if (present(status)) then
+         write(self%status, fmtlabel) trim(adjustl(status))
+      end if
+      if (present(origin_type)) then
+         write(self%origin_type, fmtlabel) trim(adjustl(origin_type))
+      end if
+      if (present(origin_time)) then
+         self%origin_time = origin_time
+      end if
+      if (present(origin_xh)) then
+         self%origin_xh(:) = origin_xh(:)
+      end if
+      if (present(origin_vh)) then
+         self%origin_vh(:) = origin_vh(:)
+      end if
+      if (present(discard_time)) then
+         self%discard_time = discard_time
+      end if
+      if (present(discard_xh)) then
+         self%discard_xh(:) = discard_xh(:)
+      end if
+      if (present(discard_vh)) then
+         self%discard_vh(:) = discard_vh(:)
+      end if
+      if (present(discard_body_id)) then
+         self%discard_body_id = discard_body_id
+      end if
+
+      return
+   end subroutine util_set_particle_info
+
 
    module subroutine util_set_rhill(self,cb)
       !! author: David A. Minton
@@ -107,10 +170,10 @@ module subroutine util_set_rhill(self,cb)
       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
+      if (self%nbody == 0) return
+
+      call self%xv2el(cb) 
+      self%rhill(1:self%nbody) = self%a(1:self%nbody) * (self%Gmass(1:self%nbody) / cb%Gmass / 3)**THIRD 
 
       return
    end subroutine util_set_rhill
@@ -127,10 +190,10 @@ module subroutine util_set_rhill_approximate(self,cb)
       ! 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
+      if (self%nbody == 0) return
+
+      rh(1:self%nbody) = .mag. self%xh(:,1:self%nbody)
+      self%rhill(1:self%nbody) = rh(1:self%nbody) * (self%Gmass(1:self%nbody) / cb%Gmass / 3)**THIRD 
 
       return
    end subroutine util_set_rhill_approximate
diff --git a/docs/src/util_sort.f90 b/docs/src/util_sort.f90
index 752e78ab7..b69627b0b 100644
--- a/docs/src/util_sort.f90
+++ b/docs/src/util_sort.f90
@@ -13,9 +13,11 @@ module subroutine util_sort_body(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B)                        :: direction
 
+      if (self%nbody == 0) return
+
       if (ascending) then
          direction = 1
       else
@@ -23,6 +25,7 @@ module subroutine util_sort_body(self, sortby, ascending)
       end if
 
       associate(body => self, n => self%nbody)
+         allocate(ind(n))
          select case(sortby)
          case("id")
             call util_sort(direction * body%id(1:n), ind(1:n))
@@ -55,6 +58,174 @@ module subroutine util_sort_body(self, sortby, ascending)
    end subroutine util_sort_body
 
 
+   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
+
+
    module subroutine util_sort_pl(self, sortby, ascending)
       !! author: David A. Minton
       !!
@@ -66,9 +237,11 @@ module subroutine util_sort_pl(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B)                        :: direction
 
+      if (self%nbody == 0) return
+
       if (ascending) then
          direction = 1
       else
@@ -76,6 +249,7 @@ module subroutine util_sort_pl(self, sortby, ascending)
       end if
 
       associate(pl => self, npl => self%nbody)
+         allocate(ind(npl))
          select case(sortby)
          case("Gmass","mass")
             call util_sort(direction * pl%Gmass(1:npl), ind(1:npl))
@@ -117,9 +291,11 @@ module subroutine util_sort_tp(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B)                        :: direction
 
+      if (self%nbody == 0) return
+
       if (ascending) then
          direction = 1
       else
@@ -127,6 +303,7 @@ module subroutine util_sort_tp(self, sortby, ascending)
       end if
 
       associate(tp => self, ntp => self%nbody)
+         allocate(ind(ntp))
          select case(sortby)
          case("peri")
             call util_sort(direction * tp%peri(1:ntp), ind(1:ntp))
@@ -156,264 +333,215 @@ module subroutine util_sort_rearrange_body(self, ind)
       ! 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)
+         call util_sort_rearrange(self%id,       ind, n)
+         call util_sort_rearrange(self%info,     ind, n)
+         call util_sort_rearrange(self%status,   ind, n)
+         call util_sort_rearrange(self%ldiscard, ind, n)
+         call util_sort_rearrange(self%xh,       ind, n)
+         call util_sort_rearrange(self%vh,       ind, n)
+         call util_sort_rearrange(self%xb,       ind, n)
+         call util_sort_rearrange(self%vb,       ind, n)
+         call util_sort_rearrange(self%ah,       ind, n)
+         call util_sort_rearrange(self%ir3h,     ind, n)
+         call util_sort_rearrange(self%mu,       ind, n)
+         call util_sort_rearrange(self%lmask,    ind, n)
+         call util_sort_rearrange(self%a,        ind, n)
+         call util_sort_rearrange(self%e,        ind, n)
+         call util_sort_rearrange(self%inc,      ind, n)
+         call util_sort_rearrange(self%capom,    ind, n)
+         call util_sort_rearrange(self%omega,    ind, n)
+         call util_sort_rearrange(self%capm,     ind, n)
+         call util_sort_rearrange(self%aobl,     ind, n)
+         call util_sort_rearrange(self%atide,    ind, n)
+         call util_sort_rearrange(self%agr,      ind, n)
       end associate
 
       return
    end subroutine util_sort_rearrange_body
 
 
-   module subroutine util_sort_rearrange_pl(self, ind)
+   module subroutine util_sort_rearrange_arr_char_string(arr, ind, n)
       !! 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.
+      !! Rearrange a single array of character string in-place from an index list.
       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)
+      ! Arguments
+      character(len=STRMAX), dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B),          dimension(:),              intent(in)    :: ind !! Index to rearrange against
+      integer(I4B),                                     intent(in)    :: n   !! Number of elements in arr and ind to rearrange
       ! Internals
-      class(swiftest_pl), allocatable :: pl_sorted  !! Temporary holder for sorted body
+      character(len=STRMAX), dimension(:), allocatable                :: tmp !! Temporary copy of arry used during rearrange operation
 
-      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
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, mold=arr)
+      tmp(1:n) = arr(ind(1:n))
+      call move_alloc(tmp, arr)
 
       return
-   end subroutine util_sort_rearrange_pl
+   end subroutine util_sort_rearrange_arr_char_string
 
 
-   module subroutine util_sort_rearrange_tp(self, ind)
+   module subroutine util_sort_rearrange_arr_DP(arr, ind, n)
       !! 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.
+      !! Rearrange a single array of DP type in-place from an index list.
       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)
+      real(DP),     dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B), dimension(:),              intent(in)  :: ind !! Index to rearrange against
+      integer(I4B),                            intent(in)  :: n   !! Number of elements in arr and ind to rearrange
       ! Internals
-      class(swiftest_tp), allocatable :: tp_sorted  !! Temporary holder for sorted body
+      real(DP), dimension(:), allocatable :: tmp !! Temporary copy of array used during rearrange operation
 
-      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
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, mold=arr)
+      tmp(1:n) = arr(ind(1:n))
+      call move_alloc(tmp, arr)
 
       return
-   end subroutine util_sort_rearrange_tp
+   end subroutine util_sort_rearrange_arr_DP
 
 
-   module subroutine util_sort_dp(arr)
+   module subroutine util_sort_rearrange_arr_DPvec(arr, ind, n)
       !! 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)
-      !!
+      !! Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list.
       implicit none
       ! Arguments
-      real(DP), dimension(:), intent(inout) :: arr
+      real(DP),     dimension(:,:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B), dimension(:),                intent(in)    :: ind !! Index to rearrange against
+      integer(I4B),                              intent(in)    :: n   !! Number of elements in arr and ind to rearrange
       ! Internals
-      real(DP)                :: tmp
-      integer(I4B)            :: n, i, j
+      real(DP), dimension(:,:), allocatable :: tmp !! Temporary copy of array used during rearrange operation
 
-      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
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, mold=arr)
+      tmp(:,1:n) = arr(:, ind(1:n))
+      call move_alloc(tmp, arr)
 
       return
-   end subroutine util_sort_dp
+   end subroutine util_sort_rearrange_arr_DPvec
 
 
-   module subroutine util_sort_index_dp(arr, ind)
+   module subroutine util_sort_rearrange_arr_I4B(arr, ind, n)
       !! 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)
-      !!
+      !! Rearrange a single array of integers in-place from an index list.
       implicit none
       ! Arguments
-      real(DP), dimension(:), intent(in)  :: arr
-      integer(I4B), dimension(:), intent(out) :: ind
+      integer(I4B), dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B), dimension(:),              intent(in)    :: ind !! Index to rearrange against
+      integer(I4B),                             intent(in)    :: n   !! Number of elements in arr and ind to rearrange
       ! Internals
-      real(DP) :: tmp
-      integer(I4B) :: n, i, j
+      integer(I4B), dimension(:), allocatable                :: tmp !! Temporary copy of array used during rearrange operation
 
-      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
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, mold=arr)
+      tmp(1:n) = arr(ind(1:n))
+      call move_alloc(tmp, arr)
 
       return
-   end subroutine util_sort_index_dp
+   end subroutine util_sort_rearrange_arr_I4B
 
 
-   module subroutine util_sort_i4b(arr)
+   module subroutine util_sort_rearrange_arr_logical(arr, ind, n)
       !! 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)
-      !!
+      !! Rearrange a single array of logicals in-place from an index list.
       implicit none
       ! Arguments
-      integer(I4B), dimension(:), intent(inout) :: arr
+      logical,      dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B), dimension(:),              intent(in)    :: ind !! Index to rearrange against
+      integer(I4B),                            intent(in)    :: n   !! Number of elements in arr and ind to rearrange
       ! Internals
-      integer(I4B) :: tmp
-      integer(I4B) :: n, i, j
+      logical, dimension(:), allocatable                :: tmp !! Temporary copy of array used during rearrange operation
 
-      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
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, mold=arr)
+      tmp(1:n) = arr(ind(1:n))
+      call move_alloc(tmp, arr)
 
       return
-   end subroutine util_sort_i4b
+   end subroutine util_sort_rearrange_arr_logical
 
 
-   module subroutine util_sort_index_i4b(arr, ind)
+   module subroutine util_sort_rearrange_arr_info(arr, ind, n)
       !! 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)
-      !!
+      !! Rearrange a single array of particle information type in-place from an index list.
       implicit none
       ! Arguments
-      integer(I4B), dimension(:), intent(in)  :: arr
-      integer(I4B), dimension(:), intent(out) :: ind
+      type(swiftest_particle_info),  dimension(:), allocatable, intent(inout) :: arr !! Destination array 
+      integer(I4B),                  dimension(:),              intent(in)    :: ind !! Index to rearrange against
+      integer(I4B),                                             intent(in)    :: n   !! Number of elements in arr and ind to rearrange
       ! Internals
-      integer(I4B) :: tmp
-      integer(I4B) :: n, i, j
+      type(swiftest_particle_info),  dimension(:), allocatable                :: tmp !! Temporary copy of array used during rearrange operation
+      integer(I4B) :: i
 
-      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
+
+      if (.not. allocated(arr) .or. n <= 0) return
+      allocate(tmp, mold=arr)
+
+      call util_copy_particle_info_arr(arr, tmp, ind)
+      call move_alloc(tmp, arr)
 
       return
-   end subroutine util_sort_index_i4b
+   end subroutine util_sort_rearrange_arr_info
 
 
-   module subroutine util_sort_sp(arr)
+   module subroutine util_sort_rearrange_pl(self, ind)
       !! 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)
-      !
+      !! 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
-      real(SP), dimension(:), intent(inout) :: arr
-      ! Internals
-      real(SP) :: tmp
-      integer(I4B) :: n, i, j
+      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)
 
-      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
+      associate(pl => self, npl => self%nbody)
+         call util_sort_rearrange(pl%mass,    ind, npl)
+         call util_sort_rearrange(pl%Gmass,   ind, npl)
+         call util_sort_rearrange(pl%rhill,   ind, npl)
+         call util_sort_rearrange(pl%xbeg,    ind, npl)
+         call util_sort_rearrange(pl%vbeg,    ind, npl)
+         call util_sort_rearrange(pl%radius,  ind, npl)
+         call util_sort_rearrange(pl%density, ind, npl)
+         call util_sort_rearrange(pl%Ip,      ind, npl)
+         call util_sort_rearrange(pl%rot,     ind, npl)
+         call util_sort_rearrange(pl%k2,      ind, npl)
+         call util_sort_rearrange(pl%Q,       ind, npl)
+         call util_sort_rearrange(pl%tlag,    ind, npl)
+
+         if (allocated(pl%k_plpl)) deallocate(pl%k_plpl)
+
+         call util_sort_rearrange_body(pl, ind)
+      end associate
 
       return
-   end subroutine util_sort_sp
+   end subroutine util_sort_rearrange_pl
 
 
-   module subroutine util_sort_index_sp(arr, ind)
+   module subroutine util_sort_rearrange_tp(self, 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)
-      !!
+      !! 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
-      real(SP), dimension(:), intent(in)  :: arr
-      integer(I4B), dimension(:), intent(out) :: ind
-      ! Internals
-      real(SP) :: tmp
-      integer(I4B) :: n, i, j
+      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)
 
-      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
+      associate(tp => self, ntp => self%nbody)
+         call util_sort_rearrange(tp%isperi, ind, ntp)
+         call util_sort_rearrange(tp%peri,   ind, ntp)
+         call util_sort_rearrange(tp%atp,    ind, ntp)
+
+         call util_sort_rearrange_body(tp, ind)
+      end associate
 
       return
-   end subroutine util_sort_index_sp
+   end subroutine util_sort_rearrange_tp
 
 end submodule s_util_sort
diff --git a/docs/src/util_spill.f90 b/docs/src/util_spill.f90
index 9c76ff5e9..16039c4da 100644
--- a/docs/src/util_spill.f90
+++ b/docs/src/util_spill.f90
@@ -13,14 +13,28 @@ module subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldest
       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
+      ! Internals
+      integer(I4B) :: nspill, nkeep, nlist
+      character(len=STRMAX), dimension(:), allocatable                :: tmp          !! Array of values to keep 
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
 
-      if (.not.allocated(keeps) .or. count(lspill_list(:)) == 0) return
-      if (.not.allocated(discards)) allocate(discards(count(lspill_list(:))))
-
-      discards(:) = pack(keeps(:), lspill_list(:))
+      discards(:) = pack(keeps(1:nlist), lspill_list(1:nlist))
       if (ldestructive) then
-         if (count(.not.lspill_list(:)) > 0) then
-            keeps(:) = pack(keeps(:), .not. lspill_list(:))
+         if (nkeep > 0) then
+            allocate(tmp(nkeep))
+            tmp(:) = pack(keeps(1:nlist), .not. lspill_list(1:nlist))
+            call move_alloc(tmp, keeps)
          else
             deallocate(keeps)
          end if
@@ -28,6 +42,7 @@ module subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldest
 
       return
    end subroutine util_spill_arr_char_string
+   
 
    module subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive)
       !! author: David A. Minton
@@ -40,14 +55,28 @@ module subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive)
       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
+      ! Internals
+      integer(I4B) :: nspill, nkeep, nlist
+      real(DP), dimension(:), allocatable                :: tmp          !! Array of values to keep 
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
 
-      if (.not.allocated(keeps) .or. count(lspill_list(:)) == 0) return
-      if (.not.allocated(discards)) allocate(discards(count(lspill_list(:))))
-
-      discards(:) = pack(keeps(:), lspill_list(:))
+      discards(:) = pack(keeps(1:nlist), lspill_list(1:nlist))
       if (ldestructive) then
-         if (count(.not.lspill_list(:)) > 0) then
-            keeps(:) = pack(keeps(:), .not. lspill_list(:))
+         if (nkeep > 0) then
+            allocate(tmp(nkeep))
+            tmp(:) = pack(keeps(1:nlist), .not. lspill_list(1:nlist))
+            call move_alloc(tmp, keeps)
          else
             deallocate(keeps)
          end if
@@ -56,6 +85,7 @@ module subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive)
       return
    end subroutine util_spill_arr_DP
 
+
    module subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive)
       !! author: David A. Minton
       !!
@@ -68,25 +98,40 @@ module subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructiv
       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(:))))
+      integer(I4B) :: i, nspill, nkeep, nlist
+      real(DP), dimension(:,:), allocatable                :: tmp          !! Array of values to keep 
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(NDIM, nspill))
+      else if (size(discards, dim=2) /= nspill) then
+         deallocate(discards)
+         allocate(discards(NDIM, nspill))
+      end if
 
       do i = 1, NDIM
-         discards(i,:) = pack(keeps(i,:), lspill_list(:))
+         discards(i,:) = pack(keeps(i,1:nlist), lspill_list(1:nlist))
       end do
       if (ldestructive) then
-         if (count(.not.lspill_list(:)) > 0) then
+         if (nkeep > 0) then
+            allocate(tmp(NDIM, nkeep))
             do i = 1, NDIM
-               keeps(i,:) = pack(keeps(i,:), .not. lspill_list(:))
+               tmp(i, :) = pack(keeps(i, 1:nlist), .not. lspill_list(1:nlist))
             end do
+            call move_alloc(tmp, keeps)
+         else
+            deallocate(keeps)
          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
       !!
@@ -98,14 +143,28 @@ module subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive)
       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
+      ! Internals
+      integer(I4B) :: nspill, nkeep, nlist
+      integer(I4B), dimension(:), allocatable                :: tmp          !! Array of values to keep 
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
 
-      if (.not.allocated(keeps) .or. count(lspill_list(:)) == 0) return
-      if (.not.allocated(discards)) allocate(discards(count(lspill_list(:))))
-
-      discards(:) = pack(keeps(:), lspill_list(:))
+      discards(:) = pack(keeps(1:nlist), lspill_list(1:nlist))
       if (ldestructive) then
-         if (count(.not.lspill_list(:)) > 0) then
-            keeps(:) = pack(keeps(:), .not. lspill_list(:))
+         if (nkeep > 0) then
+            allocate(tmp(nkeep))
+            tmp(:) = pack(keeps(1:nlist), .not. lspill_list(1:nlist))
+            call move_alloc(tmp, keeps)
          else
             deallocate(keeps)
          end if
@@ -114,6 +173,97 @@ module subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive)
       return
    end subroutine util_spill_arr_I4B
 
+
+   module subroutine util_spill_arr_I8B(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(I8B), dimension(:), allocatable, intent(inout) :: keeps        !! Array of values to keep 
+      integer(I8B), 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
+      ! Internals
+      integer(I4B) :: nspill, nkeep, nlist
+      integer(I8B), dimension(:), allocatable                :: tmp          !! Array of values to keep 
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
+
+      discards(:) = pack(keeps(1:nlist), lspill_list(1:nlist))
+      if (ldestructive) then
+         if (nkeep > 0) then
+            allocate(tmp(nkeep))
+            tmp(:) = pack(keeps(1:nlist), .not. lspill_list(1:nlist))
+            call move_alloc(tmp, keeps)
+         else
+            deallocate(keeps)
+         end if
+      end if
+
+      return
+   end subroutine util_spill_arr_I8B
+
+
+   module subroutine 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(swiftest_particle_info), dimension(:), allocatable, intent(inout) :: keeps        !! Array of values to keep 
+      type(swiftest_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
+      ! Internals
+      integer(I4B) :: i, nspill, nkeep, nlist
+      integer(I4B), dimension(:), allocatable :: idx
+      type(swiftest_particle_info), dimension(:), allocatable :: tmp
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
+
+      allocate(idx(nspill))
+      idx(:) = pack([(i, i = 1, nlist)], lspill_list)
+      call util_copy_particle_info_arr(keeps, discards, idx)
+      if (ldestructive) then
+         if (nkeep > 0) then
+            deallocate(idx)
+            allocate(idx(nkeep))
+            allocate(tmp(nkeep))
+            idx(:) = pack([(i, i = 1, nlist)], .not. lspill_list)
+            call util_copy_particle_info_arr(keeps, tmp, idx)
+            call move_alloc(tmp, keeps)
+         else
+            deallocate(keeps)
+         end if
+      end if
+
+      return
+   end subroutine util_spill_arr_info
+
+
    module subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive)
       !! author: David A. Minton
       !!
@@ -125,14 +275,28 @@ module subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestruct
       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
+      ! Internals
+      integer(I4B) :: nspill, nkeep, nlist
+      logical, dimension(:), allocatable                :: tmp          !! Array of values to keep 
+
+      nkeep = count(.not.lspill_list(:))
+      nspill = count(lspill_list(:))
+      nlist = size(lspill_list(:))
+
+      if (.not.allocated(keeps) .or. nspill == 0) return
+      if (.not.allocated(discards)) then
+         allocate(discards(nspill))
+      else if (size(discards) /= nspill) then
+         deallocate(discards)
+         allocate(discards(nspill))
+      end if
 
-      if (.not.allocated(keeps) .or. count(lspill_list(:)) == 0) return
-      if (.not.allocated(discards)) allocate(discards(count(lspill_list(:))))
-
-      discards(:) = pack(keeps(:), lspill_list(:))
+      discards(:) = pack(keeps(1:nlist), lspill_list(1:nlist))
       if (ldestructive) then
-         if (count(.not.lspill_list(:)) > 0) then
-            keeps(:) = pack(keeps(:), .not. lspill_list(:))
+         if (nkeep > 0) then
+            allocate(tmp(nkeep))
+            tmp(:) = pack(keeps(1:nlist), .not. lspill_list(1:nlist))
+            call move_alloc(tmp, keeps)
          else
             deallocate(keeps)
          end if
@@ -154,13 +318,14 @@ module subroutine util_spill_body(self, discards, lspill_list, ldestructive)
       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
+      integer(I4B) :: nbody_old
 
       ! 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%info, discards%info, 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)
@@ -180,17 +345,18 @@ module subroutine util_spill_body(self, discards, lspill_list, ldestructive)
          call util_spill(keeps%omega, discards%omega, lspill_list, ldestructive)
          call util_spill(keeps%capm, discards%capm, lspill_list, ldestructive)
 
+         nbody_old = keeps%nbody
+
          ! 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
-
+         discards%nbody = count(lspill_list(1:nbody_old))
+         if (ldestructive) keeps%nbody = nbody_old- discards%nbody
       end associate
      
       return
    end subroutine util_spill_body
 
+
    module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive)
       !! author: David A. Minton
       !!
@@ -202,24 +368,28 @@ module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive
       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
+      integer(I4B) :: nenc_old
   
       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%kidx, discards%kidx, 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%id1, discards%id1, lspill_list, ldestructive)
+         call util_spill(keeps%id2, discards%id2, 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)
+         call util_spill(keeps%t, discards%t, lspill_list, ldestructive)
+
+         nenc_old = keeps%nenc
 
          ! 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
+         discards%nenc = count(lspill_list(1:nenc_old))
+         if (ldestructive) keeps%nenc = nenc_old - discards%nenc
       end associate
    
       return
@@ -237,11 +407,8 @@ module subroutine util_spill_pl(self, discards, lspill_list, ldestructive)
       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
@@ -258,6 +425,8 @@ module subroutine util_spill_pl(self, discards, lspill_list, ldestructive)
             call util_spill(keeps%Ip, discards%Ip, lspill_list, ldestructive)
             call util_spill(keeps%rot, discards%rot, lspill_list, ldestructive)
 
+            if (ldestructive .and. allocated(keeps%k_plpl)) deallocate(keeps%k_plpl)
+
             call util_spill_body(keeps, discards, lspill_list, ldestructive)
          class default
             write(*,*) 'Error! spill method called for incompatible return type on swiftest_pl'
diff --git a/docs/src/util_valid.f90 b/docs/src/util_valid.f90
index f05c81f35..eb6df7577 100644
--- a/docs/src/util_valid.f90
+++ b/docs/src/util_valid.f90
@@ -12,7 +12,7 @@ module subroutine util_valid_id_system(self, param)
       implicit none
       ! Arguments
       class(swiftest_nbody_system), intent(inout) :: self   !! Swiftest nbody system object
-      class(swiftest_parameters),   intent(in)    :: param  !! Current run configuration parameters
+      class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameters
       ! Internals
       integer(I4B)                  :: i
       integer(I4B), dimension(:), allocatable :: idarr
@@ -34,7 +34,7 @@ module subroutine util_valid_id_system(self, param)
                call util_exit(FAILURE)
             end if
          end do
-         self%maxid = maxval(idarr)
+         param%maxid = max(param%maxid, maxval(idarr))
       end associate
 
       return
diff --git a/docs/src/walltime_classes.f90 b/docs/src/walltime_classes.f90
new file mode 100644
index 000000000..6425b5b5f
--- /dev/null
+++ b/docs/src/walltime_classes.f90
@@ -0,0 +1,119 @@
+module walltime_classes
+   !! author: David A. Minton
+   !!
+   !! Classes and methods used to compute elasped wall time
+   use swiftest_globals
+   implicit none
+   public
+
+   type :: walltimer
+      integer(I8B) :: count_rate                 !! Rate at wich the clock ticks
+      integer(I8B) :: count_max                  !! Maximum value of the clock ticker
+      integer(I8B) :: count_start_main           !! Value of the clock ticker at when the timer is first called
+      integer(I8B) :: count_start_step           !! Value of the clock ticker at the start of a timed step
+      integer(I8B) :: count_finish_step          !! Value of the clock ticker at the end of a timed step
+      logical      :: lmain_is_started = .false. !! Logical flag indicating whether or not the main timer has been reset or not
+   contains
+      procedure :: reset  => walltime_reset  !! Resets the clock ticker, settting main_start to the current ticker value
+      procedure :: start  => walltime_start  !! Starts the timer, setting step_start to the current ticker value
+      procedure :: finish => walltime_finish !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal
+   end type
+
+   interface
+      module subroutine walltime_finish(self, nsubsteps, message)
+         implicit none
+         class(walltimer), intent(inout) :: self      !! Walltimer object
+         integer(I4B),     intent(in)    :: nsubsteps !! Number of substeps used to compute the time per step 
+         character(len=*), intent(in)    :: message   !! Message to prepend to the wall time terminal output
+      end subroutine walltime_finish
+
+      module subroutine walltime_reset(self)
+         implicit none
+         class(walltimer), intent(inout) :: self  !! Walltimer object
+      end subroutine walltime_reset 
+
+      module subroutine walltime_start(self)
+         implicit none
+         class(walltimer), intent(inout) :: self  !! Walltimer object
+      end subroutine walltime_start
+   end interface
+
+   contains
+
+      module subroutine walltime_finish(self, nsubsteps, message)
+         !! author: David A. Minton
+         !!
+         !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal
+         use swiftest_globals
+         implicit none
+         ! Arguments
+         class(walltimer), intent(inout) :: self      !! Walltimer object
+         integer(I4B),     intent(in)    :: nsubsteps !! Number of substeps used to compute the time per step 
+         character(len=*), intent(in)    :: message   !! Message to prepend to the wall time terminal output
+         ! Internals
+         character(len=*), parameter     :: walltimefmt = '" Wall time (s): ", es12.5, "; Wall time/step in this interval (s):  ", es12.5'
+         character(len=STRMAX)           :: fmt
+         integer(I8B)                    :: count_delta_step, count_delta_main
+         real(DP)                        :: wall_main         !! Value of total elapsed time at the end of a timed step
+         real(DP)                        :: wall_step         !! Value of elapsed time since the start of a timed step
+         real(DP)                        :: wall_per_substep  !! Value of time per substep 
+
+         if (.not.self%lmain_is_started) then
+            write(*,*) "Wall timer error: The step finish time cannot be calculated because the timer is not started!"
+            return
+         end if
+
+         call system_clock(self%count_finish_step)
+
+         count_delta_step = self%count_finish_step - self%count_start_step
+         count_delta_main = self%count_finish_step - self%count_start_main
+         wall_step = count_delta_step / (self%count_rate * 1.0_DP)
+         wall_main = count_delta_main / (self%count_rate * 1.0_DP)
+         wall_per_substep = wall_step / nsubsteps
+
+         fmt = '("' //  adjustl(message) // '",' // walltimefmt // ')'
+         write(*,trim(adjustl(fmt))) wall_main, wall_per_substep
+
+         call self%start()
+
+         return
+      end subroutine walltime_finish
+
+      module subroutine walltime_reset(self)
+         !! author: David A. Minton
+         !!
+         !! Resets the clock ticker, settting main_start to the current ticker value
+         use swiftest_globals
+         implicit none
+         ! Arguments
+         class(walltimer), intent(inout) :: self
+         
+         call system_clock(self%count_start_main, self%count_rate, self%count_max)
+         self%lmain_is_started = .true.
+         call self%start()
+
+         return
+      end subroutine walltime_reset 
+
+
+      module subroutine walltime_start(self)
+         !! author: David A. Minton
+         !!
+         !! Starts the timer, setting step_start to the current ticker value
+         use swiftest_globals
+         implicit none
+         ! Arguments
+         class(walltimer), intent(inout) :: self
+
+         if (.not.self%lmain_is_started) then
+            write(*,*) "Wall timer error: Cannot start the step time until reset is called at least once!"
+            return
+         end if
+
+         call system_clock(self%count_start_step)
+
+         return 
+      end subroutine walltime_start
+
+
+end module walltime_classes
\ No newline at end of file
diff --git a/docs/src/whm_classes.f90 b/docs/src/whm_classes.f90
index 6d5b26394..9675f289d 100644
--- a/docs/src/whm_classes.f90
+++ b/docs/src/whm_classes.f90
@@ -73,8 +73,8 @@ module whm_classes
    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
+      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
@@ -108,6 +108,13 @@ module subroutine whm_drift_pl(self, system, param, dt)
          real(DP),                     intent(in)    :: dt     !! Stepsize
       end subroutine whm_drift_pl
 
+      module subroutine whm_util_index_eucl_plpl(self, param)
+         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
+      end subroutine whm_util_index_eucl_plpl
+   
       !> 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
diff --git a/docs/src/whm_kick.f90 b/docs/src/whm_kick.f90
index 2da00c332..f831ce15b 100644
--- a/docs/src/whm_kick.f90
+++ b/docs/src/whm_kick.f90
@@ -80,17 +80,17 @@ module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg)
          system%lbeg = lbeg
 
          if (lbeg) then
-            ah0(:) = whm_kick_getacch_ah0(pl%Gmass(:), pl%xbeg(:,:), npl)
+            ah0(:) = whm_kick_getacch_ah0(pl%Gmass(1:npl), pl%xbeg(:, 1:npl), 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)
+            call tp%accel_int(pl%Gmass(1:npl), pl%xbeg(:, 1:npl), npl)
          else
-            ah0(:) = whm_kick_getacch_ah0(pl%Gmass(:), pl%xend(:,:), npl)
+            ah0(:) = whm_kick_getacch_ah0(pl%Gmass(1:npl), pl%xend(:, 1:npl), 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)
+            call tp%accel_int(pl%Gmass(1:npl), pl%xend(:, 1:npl), npl)
          end if
 
          if (param%loblatecb) call tp%accel_obl(system)
@@ -213,13 +213,13 @@ module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg)
          if (lbeg) then
             if (pl%lfirst) then
                call pl%h2j(cb)
-               pl%ah(:,:) = 0.0_DP
+               pl%ah(:, 1:npl) = 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
+            pl%ah(:, 1:npl) = 0.0_DP
             call pl%accel(system, param, t, lbeg)
             call pl%set_beg_end(xend = pl%xh)
          end if
@@ -254,20 +254,16 @@ module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg)
 
       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
+            do concurrent(i = 1:ntp, tp%lmask(i))
+               tp%ah(:, i) = 0.0_DP
+            end do
             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
+            do concurrent(i = 1:ntp, tp%lmask(i))
+               tp%ah(:, i) = 0.0_DP
+            end do
             call tp%accel(system, param, t, lbeg)
          end if
          do concurrent(i = 1:ntp, tp%lmask(i))
diff --git a/docs/src/whm_setup.f90 b/docs/src/whm_setup.f90
index eaed16c14..3c5cdeec3 100644
--- a/docs/src/whm_setup.f90
+++ b/docs/src/whm_setup.f90
@@ -16,7 +16,7 @@ module subroutine whm_setup_pl(self, n, param)
 
       !> Call allocation method for parent class
       call setup_pl(self, n, param) 
-      if (n <= 0) return
+      if (n < 0) return
 
       if (allocated(self%eta)) deallocate(self%eta)
       if (allocated(self%muj)) deallocate(self%muj)
@@ -24,6 +24,8 @@ module subroutine whm_setup_pl(self, n, param)
       if (allocated(self%vj)) deallocate(self%vj)
       if (allocated(self%ir3j)) deallocate(self%ir3j)
 
+      if (n == 0) return
+
       allocate(self%eta(n))
       allocate(self%muj(n))
       allocate(self%xj(NDIM, n))
@@ -73,13 +75,14 @@ module subroutine whm_setup_initialize_system(self, param)
       !!
       implicit none
       ! Arguments
-      class(whm_nbody_system),    intent(inout) :: self    !! Swiftest system object
+      class(whm_nbody_system),    intent(inout) :: self   !! WHM nbody 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.)
+      call self%pl%index(param)
 
       ! Make sure that the discard list gets allocated initially
       call self%tp_discards%setup(0, param)
diff --git a/docs/src/whm_util.f90 b/docs/src/whm_util.f90
index cc84ba3d5..e8ed91854 100644
--- a/docs/src/whm_util.f90
+++ b/docs/src/whm_util.f90
@@ -125,9 +125,11 @@ module subroutine whm_util_sort_pl(self, sortby, ascending)
       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), dimension(:), allocatable :: ind
       integer(I4B) :: direction
 
+      if (self%nbody == 0) return
+
       if (ascending) then
          direction = 1
       else
@@ -135,6 +137,7 @@ module subroutine whm_util_sort_pl(self, sortby, ascending)
       end if
 
       associate(pl => self, npl => self%nbody)
+         allocate(ind(npl))
          select case(sortby)
          case("eta")
             call util_sort(direction * pl%eta(1:npl), ind(1:npl))
@@ -165,21 +168,17 @@ module subroutine whm_util_sort_rearrange_pl(self, ind)
       ! 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%eta,  ind, npl)
+         call util_sort_rearrange(pl%xj,   ind, npl)
+         call util_sort_rearrange(pl%vj,   ind, npl)
+         call util_sort_rearrange(pl%muj,  ind, npl)
+         call util_sort_rearrange(pl%ir3j, ind, npl)
+
          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
diff --git a/docs/tipuesearch/tipuesearch_content.js b/docs/tipuesearch/tipuesearch_content.js
index b35263e4f..9a7ed3ea2 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_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
+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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 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 call kick_getacch_int_all_pl ( self % nbody , self % nplpl , self % k_plpl , self % xh , self % Gmass , self % radius , self % ah ) 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 if (( self % nbody == 0 ) . or . ( npl == 0 )) return associate ( tp => self , ntp => self % nbody ) do i = 1 , ntp if ( tp % lmask ( i )) then do j = 1 , npl block real ( DP ) :: rji2 real ( DP ) :: xr , yr , zr xr = tp % xh ( 1 , i ) - xhp ( 1 , j ) yr = tp % xh ( 2 , i ) - xhp ( 1 , j ) zr = tp % xh ( 3 , i ) - xhp ( 1 , j ) rji2 = xr ** 2 + yr ** 2 + zr ** 2 call kick_getacch_int_one_tp ( rji2 , xr , yr , zr , GMpl ( i ), tp % ah ( 1 , i ), tp % ah ( 2 , i ), tp % ah ( 3 , i )) end block end do end if end do end associate return end subroutine kick_getacch_int_tp module subroutine kick_getacch_int_all_pl ( npl , nplpl , k_plpl , x , Gmass , radius , acc ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization !! !! 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.f9 implicit none integer ( I4B ), intent ( in ) :: npl !! Number of massive bodies integer ( I8B ), intent ( in ) :: nplpl !! Number of massive body interactions to compute integer ( I4B ), dimension (:,:), intent ( in ) :: k_plpl !! Array of interaction pair indices (flattened upper triangular matrix) real ( DP ), dimension (:,:), intent ( in ) :: x !! Position vector array real ( DP ), dimension (:), intent ( in ) :: Gmass !! Array of massive body G*mass real ( DP ), dimension (:), intent ( in ) :: radius !! Array of massive body radii real ( DP ), dimension (:,:), intent ( inout ) :: acc !! Acceleration vector array ! Internals integer ( I8B ) :: k real ( DP ) :: rji2 , rlim2 real ( DP ) :: xr , yr , zr integer ( I4B ) :: i , j real ( DP ), dimension ( NDIM , npl ) :: ahi , ahj ahi (:,:) = 0.0_DP ahj (:,:) = 0.0_DP !$omp parallel do default(private)& !$omp shared(nplpl, k_plpl, x, Gmass, radius)  & !$omp reduction(+:ahi) & !$omp reduction(-:ahj) do k = 1_I8B , nplpl i = k_plpl ( 1 , k ) j = k_plpl ( 2 , k ) xr = x ( 1 , j ) - x ( 1 , i ) yr = x ( 2 , j ) - x ( 2 , i ) zr = x ( 3 , j ) - x ( 3 , i ) rji2 = xr ** 2 + yr ** 2 + zr ** 2 rlim2 = ( radius ( i ) + radius ( j )) ** 2 if ( rji2 > rlim2 ) call kick_getacch_int_one_pl ( rji2 , xr , yr , zr , Gmass ( i ), Gmass ( j ), ahi ( 1 , i ), ahi ( 2 , i ), ahi ( 3 , i ), ahj ( 1 , j ), ahj ( 2 , j ), ahj ( 3 , j )) end do !$omp end parallel do acc (:, 1 : npl ) = acc (:, 1 : npl ) + ahi (:, 1 : npl ) + ahj (:, 1 : npl ) return end subroutine kick_getacch_int_all_pl module pure subroutine kick_getacch_int_one_pl ( rji2 , xr , yr , zr , Gmi , Gmj , axi , ayi , azi , axj , ayj , azj ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations for a single pair 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.f9 implicit none real ( DP ), intent ( in ) :: rji2 !! Square of distance between the two bodies real ( DP ), intent ( in ) :: xr , yr , zr !! Distances between the two bodies in x, y, and z directions real ( DP ), intent ( in ) :: Gmi !! G*mass of body i real ( DP ), intent ( in ) :: Gmj !! G*mass of body j real ( DP ), intent ( inout ) :: axi , ayi , azi !! Acceleration vector components of body i real ( DP ), intent ( inout ) :: axj , ayj , azj !! Acceleration vector components of body j ! Internals real ( DP ) :: faci , facj , irij3 irij3 = 1.0_DP / ( rji2 * sqrt ( rji2 )) faci = Gmi * irij3 facj = Gmj * irij3 axi = axi + facj * xr ayi = ayi + facj * yr azi = azi + facj * zr axj = axj - faci * xr ayj = ayj - faci * yr azj = azj - faci * zr return end subroutine kick_getacch_int_one_pl module pure subroutine kick_getacch_int_one_tp ( rji2 , xr , yr , zr , GMpl , ax , ay , az ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair. !! !! 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 real ( DP ), intent ( in ) :: rji2 !! Square of distance between the test particle and massive body real ( DP ), intent ( in ) :: xr , yr , zr !! Distances between the two bodies in x, y, and z directions real ( DP ), intent ( in ) :: Gmpl !! G*mass of massive body real ( DP ), intent ( inout ) :: ax , ay , az !! Acceleration vector components of test particle ! Internals real ( DP ) :: fac fac = GMpl / ( rji2 * sqrt ( rji2 )) ax = ax - fac * xr ay = ay - fac * yr az = az - fac * zr return end subroutine kick_getacch_int_one_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_system ( self ) !! 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 class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object ! Internals integer ( I4B ) :: i real ( DP ), dimension ( self % pl % nbody ) :: oblpot_arr associate ( system => self , pl => self % pl , npl => self % pl % nbody , cb => self % cb ) if (. not . any ( pl % lmask ( 1 : npl ))) return do concurrent ( i = 1 : npl , pl % lmask ( i )) oblpot_arr ( i ) = obl_pot_one ( npl , cb % Gmass , pl % Gmass ( i ), cb % j2rp2 , cb % j4rp4 , pl % xh ( 3 , i ), 1.0_DP / norm2 ( pl % xh (:, i ))) end do system % oblpot = sum ( oblpot_arr , pl % lmask ( 1 : npl )) end associate return end subroutine obl_pot_system elemental function obl_pot_one ( npl , GMcb , GMpl , j2rp2 , j4rp4 , zh , irh ) result ( oblpot ) !! author: David A. Minton !! !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive 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 !! Number of massive bodies real ( DP ), intent ( in ) :: GMcb !! G*mass of the central body real ( DP ), intent ( in ) :: GMpl !! G*mass of the massive body real ( DP ), intent ( in ) :: j2rp2 !! J_2 / R**2 of the central body real ( DP ), intent ( in ) :: j4rp4 !! J_2 / R**4 of the central body real ( DP ), intent ( in ) :: zh !! z-component of the heliocentric distance vector of the massive body real ( DP ), intent ( in ) :: irh !! Inverse of the heliocentric distance magnitude of the massive body ! Result real ( DP ) :: oblpot !! Gravitational potential ! Internals integer ( I4B ) :: i real ( DP ) :: rinv2 , t0 , t1 , t2 , t3 , p2 , p4 , mu rinv2 = irh ** 2 t0 = GMcb * GMpl * rinv2 * irh t1 = j2rp2 t2 = zh ** 2 * 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 = t0 * ( t1 * p2 + t3 * p4 ) return end function obl_pot_one 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 orbital element vectors into cartesian position and velocity vectors for a Swiftest body object. !! This method deallocates all of the orbital elements after it is finished. 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 concurrent ( 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 deallocate ( self % a , self % e , self % inc , self % capom , self % omega , self % capm ) return 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 ( allocated ( self % a )) deallocate ( self % a ); allocate ( self % a ( self % nbody )) if ( allocated ( self % e )) deallocate ( self % e ); allocate ( self % e ( self % nbody )) if ( allocated ( self % inc )) deallocate ( self % inc ); allocate ( self % inc ( self % nbody )) if ( allocated ( self % capom )) deallocate ( self % capom ); allocate ( self % capom ( self % nbody )) if ( allocated ( self % omega )) deallocate ( self % omega ); allocate ( self % omega ( self % nbody )) if ( allocated ( self % capm )) deallocate ( self % capm ); allocate ( self % capm ( self % nbody )) do concurrent ( 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 module 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 ! 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 ) :: e !! eccentricity real ( DP ), intent ( out ) :: inc !! inclination real ( DP ), intent ( out ) :: capom !! longitude of ascending node real ( DP ), intent ( out ) :: omega !! argument of periapsis real ( DP ), intent ( out ) :: capm !! mean anomaly ! Internals 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 = . mag . x (:) v2 = dot_product ( v (:), v (:)) hvec = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) h = . mag . hvec (:) if ( h2 <= 10 * tiny ( 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~whm_classes.f90 whm_classes.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~whm_classes.f90 whm_classes.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~whm_classes.f90 whm_classes.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_step.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~whm_classes.f90 whm_classes.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 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~whm_classes.f90 whm_classes.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 ( 1 : npl ), pl % xbeg (:, 1 : npl ), npl ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + ah0 (:) end do call tp % accel_int ( pl % Gmass ( 1 : npl ), pl % xbeg (:, 1 : npl ), npl ) else ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass ( 1 : npl ), pl % xend (:, 1 : npl ), npl ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + ah0 (:) end do call tp % accel_int ( pl % Gmass ( 1 : npl ), pl % xend (:, 1 : npl ), 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 (:, 1 : npl ) = 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 (:, 1 : npl ) = 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 do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = 0.0_DP end do call tp % accel ( system , param , t , lbeg = . true .) tp % lfirst = . false . end if if (. not . lbeg ) then do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = 0.0_DP end do 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~whm_classes.f90 whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 ) if ( n == 0 ) return 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 !! WHM nbody 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 .) call self % pl % index ( param ) ! 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~whm_classes.f90 whm_classes.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_util.f90->sourcefile~swiftest.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.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~walltime_classes.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~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 (:), allocatable :: 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 ) allocate ( ind ( npl )) 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) if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call util_sort_rearrange ( pl % eta , ind , npl ) call util_sort_rearrange ( pl % xj , ind , npl ) call util_sort_rearrange ( pl % vj , ind , npl ) call util_sort_rearrange ( pl % muj , ind , npl ) call util_sort_rearrange ( pl % ir3j , ind , npl ) call util_sort_rearrange_pl ( pl , ind ) 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_operators.f90 swiftest_operators.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.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~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 ( 1 : self % nbody ) = cb % Gmass + self % Gmass ( 1 : self % nbody ) 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 ) return self % mu ( 1 : self % nbody ) = cb % Gmass return end subroutine util_set_mu_tp module subroutine util_set_particle_info ( self , name , particle_type , status , origin_type , origin_time , origin_xh , origin_vh , discard_time , discard_xh , discard_vh , discard_body_id ) !! author: David A. Minton !! !! Sets one or more values of the particle information metadata object implicit none ! Arguments class ( swiftest_particle_info ), intent ( inout ) :: self character ( len =* ), intent ( in ), optional :: name !! Non-unique name character ( len =* ), intent ( in ), optional :: particle_type !! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character ( len =* ), intent ( in ), optional :: status !! Particle status description: ACTIVE, MERGED, FRAGMENTED, etc. character ( len =* ), intent ( in ), optional :: origin_type !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real ( DP ), intent ( in ), optional :: origin_time !! The time of the particle's formation real ( DP ), dimension (:), intent ( in ), optional :: origin_xh !! The heliocentric distance vector at the time of the particle's formation real ( DP ), dimension (:), intent ( in ), optional :: origin_vh !! The heliocentric velocity vector at the time of the particle's formation real ( DP ), intent ( in ), optional :: discard_time !! The time of the particle's discard real ( DP ), dimension (:), intent ( in ), optional :: discard_xh !! The heliocentric distance vector at the time of the particle's discard real ( DP ), dimension (:), intent ( in ), optional :: discard_vh !! The heliocentric velocity vector at the time of the particle's discard integer ( I4B ), intent ( in ), optional :: discard_body_id !! The id of the other body involved in the discard (0 if no other body involved) ! Internals character ( len = NAMELEN ) :: lenstr character ( len = :), allocatable :: fmtlabel write ( lenstr , * ) NAMELEN fmtlabel = \"(A\" // trim ( adjustl ( lenstr )) // \")\" if ( present ( name )) then write ( self % name , fmtlabel ) trim ( adjustl ( name )) end if if ( present ( particle_type )) then write ( self % particle_type , fmtlabel ) trim ( adjustl ( particle_type )) end if if ( present ( status )) then write ( self % status , fmtlabel ) trim ( adjustl ( status )) end if if ( present ( origin_type )) then write ( self % origin_type , fmtlabel ) trim ( adjustl ( origin_type )) end if if ( present ( origin_time )) then self % origin_time = origin_time end if if ( present ( origin_xh )) then self % origin_xh (:) = origin_xh (:) end if if ( present ( origin_vh )) then self % origin_vh (:) = origin_vh (:) end if if ( present ( discard_time )) then self % discard_time = discard_time end if if ( present ( discard_xh )) then self % discard_xh (:) = discard_xh (:) end if if ( present ( discard_vh )) then self % discard_vh (:) = discard_vh (:) end if if ( present ( discard_body_id )) then self % discard_body_id = discard_body_id end if return end subroutine util_set_particle_info 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 ) return call self % xv2el ( cb ) self % rhill ( 1 : self % nbody ) = self % a ( 1 : self % nbody ) * ( self % Gmass ( 1 : self % nbody ) / cb % Gmass / 3 ) ** THIRD 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 ) return rh ( 1 : self % nbody ) = . mag . self % xh (:, 1 : self % nbody ) self % rhill ( 1 : self % nbody ) = rh ( 1 : self % nbody ) * ( self % Gmass ( 1 : self % nbody ) / cb % Gmass / 3 ) ** THIRD 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 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 test particles 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 module subroutine util_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 ( 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 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 util_coord_vb2vh_pl module subroutine util_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 ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle 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 util_coord_vb2vh_tp module subroutine util_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 ( 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 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 util_coord_vh2vb_pl module subroutine util_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 ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle 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 util_coord_vh2vb_tp module subroutine util_coord_xh2xb_pl ( self , cb ) !! author: David A. Minton !! !! Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only) !! !! 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 if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) Gmtot = cb % Gmass xtmp (:) = 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 ) end do cb % xb (:) = - xtmp (:) / Gmtot do i = 1 , npl if ( pl % status ( i ) == INACTIVE ) cycle pl % xb (:, i ) = pl % xh (:, i ) + cb % xb (:) end do end associate return end subroutine util_coord_xh2xb_pl module subroutine util_coord_xh2xb_tp ( self , cb ) !! author: David A. Minton !! !! Convert test particles from heliocentric to barycentric coordinates (position only) !! !! 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 (:) end do end associate return end subroutine util_coord_xh2xb_tp end submodule s_util_coord","tags":"","loc":"sourcefile/util_coord.f90.html"},{"title":"util_index.f90 – swiftest","text":"This file depends on sourcefile~~util_index.f90~~EfferentGraph sourcefile~util_index.f90 util_index.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_index.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_index.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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_index Source Code util_index.f90 Source Code submodule ( swiftest_classes ) s_util_index use swiftest contains module subroutine util_index_eucl_plpl ( self , param ) !! author: Jacob R. Elliott and David A. Minton !! !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions. !! !! 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 object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! 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, npl 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_I8B , 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 util_index_eucl_plpl module subroutine util_index_eucl_pltp ( self , pl , param ) !! author: Jacob R. Elliott and David A. Minton !! !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions !! !! 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_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I8B ) :: i , j , counter , npl , ntp ntp = int ( self % nbody , kind = I8B ) npl = int ( pl % nbody , kind = I8B ) associate ( npltp => self % npltp ) npltp = npl * ntp if ( allocated ( self % k_pltp )) deallocate ( self % k_pltp ) ! Reset the index array if it's been set previously allocate ( self % k_pltp ( 2 , npltp )) do i = 1_I8B , npl counter = ( i - 1_I8B ) * npl + 1_I8B do j = 1_I8B , ntp self % k_pltp ( 1 , counter ) = i self % k_pltp ( 2 , counter ) = j counter = counter + 1_I8B end do end do end associate return end subroutine util_index_eucl_pltp end submodule s_util_index","tags":"","loc":"sourcefile/util_index.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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 )) if ( param % lgr ) then ! 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 ) end if 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 (:), allocatable :: ind integer ( I4B ) :: direction if ( self % nbody == 0 ) return if ( ascending ) then direction = 1 else direction = - 1 end if associate ( body => self , n => self % nbody ) allocate ( ind ( n )) 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_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 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 (:), allocatable :: 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 ) allocate ( ind ( npl )) 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 (:), allocatable :: 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 ) allocate ( ind ( ntp )) 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) associate ( n => self % nbody ) call util_sort_rearrange ( self % id , ind , n ) call util_sort_rearrange ( self % info , ind , n ) call util_sort_rearrange ( self % status , ind , n ) call util_sort_rearrange ( self % ldiscard , ind , n ) call util_sort_rearrange ( self % xh , ind , n ) call util_sort_rearrange ( self % vh , ind , n ) call util_sort_rearrange ( self % xb , ind , n ) call util_sort_rearrange ( self % vb , ind , n ) call util_sort_rearrange ( self % ah , ind , n ) call util_sort_rearrange ( self % ir3h , ind , n ) call util_sort_rearrange ( self % mu , ind , n ) call util_sort_rearrange ( self % lmask , ind , n ) call util_sort_rearrange ( self % a , ind , n ) call util_sort_rearrange ( self % e , ind , n ) call util_sort_rearrange ( self % inc , ind , n ) call util_sort_rearrange ( self % capom , ind , n ) call util_sort_rearrange ( self % omega , ind , n ) call util_sort_rearrange ( self % capm , ind , n ) call util_sort_rearrange ( self % aobl , ind , n ) call util_sort_rearrange ( self % atide , ind , n ) call util_sort_rearrange ( self % agr , ind , n ) end associate return end subroutine util_sort_rearrange_body module subroutine util_sort_rearrange_arr_char_string ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of character string in-place from an index list. implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals character ( len = STRMAX ), dimension (:), allocatable :: tmp !! Temporary copy of arry used during rearrange operation if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , mold = arr ) tmp ( 1 : n ) = arr ( ind ( 1 : n )) call move_alloc ( tmp , arr ) return end subroutine util_sort_rearrange_arr_char_string module subroutine util_sort_rearrange_arr_DP ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of DP type in-place from an index list. implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals real ( DP ), dimension (:), allocatable :: tmp !! Temporary copy of array used during rearrange operation if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , mold = arr ) tmp ( 1 : n ) = arr ( ind ( 1 : n )) call move_alloc ( tmp , arr ) return end subroutine util_sort_rearrange_arr_DP module subroutine util_sort_rearrange_arr_DPvec ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list. implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals real ( DP ), dimension (:,:), allocatable :: tmp !! Temporary copy of array used during rearrange operation if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , mold = arr ) tmp (:, 1 : n ) = arr (:, ind ( 1 : n )) call move_alloc ( tmp , arr ) return end subroutine util_sort_rearrange_arr_DPvec module subroutine util_sort_rearrange_arr_I4B ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of integers in-place from an index list. implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals integer ( I4B ), dimension (:), allocatable :: tmp !! Temporary copy of array used during rearrange operation if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , mold = arr ) tmp ( 1 : n ) = arr ( ind ( 1 : n )) call move_alloc ( tmp , arr ) return end subroutine util_sort_rearrange_arr_I4B module subroutine util_sort_rearrange_arr_logical ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of logicals in-place from an index list. implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals logical , dimension (:), allocatable :: tmp !! Temporary copy of array used during rearrange operation if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , mold = arr ) tmp ( 1 : n ) = arr ( ind ( 1 : n )) call move_alloc ( tmp , arr ) return end subroutine util_sort_rearrange_arr_logical module subroutine util_sort_rearrange_arr_info ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of particle information type in-place from an index list. implicit none ! Arguments type ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals type ( swiftest_particle_info ), dimension (:), allocatable :: tmp !! Temporary copy of array used during rearrange operation integer ( I4B ) :: i if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , mold = arr ) call util_copy_particle_info_arr ( arr , tmp , ind ) call move_alloc ( tmp , arr ) return end subroutine util_sort_rearrange_arr_info 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) associate ( pl => self , npl => self % nbody ) call util_sort_rearrange ( pl % mass , ind , npl ) call util_sort_rearrange ( pl % Gmass , ind , npl ) call util_sort_rearrange ( pl % rhill , ind , npl ) call util_sort_rearrange ( pl % xbeg , ind , npl ) call util_sort_rearrange ( pl % vbeg , ind , npl ) call util_sort_rearrange ( pl % radius , ind , npl ) call util_sort_rearrange ( pl % density , ind , npl ) call util_sort_rearrange ( pl % Ip , ind , npl ) call util_sort_rearrange ( pl % rot , ind , npl ) call util_sort_rearrange ( pl % k2 , ind , npl ) call util_sort_rearrange ( pl % Q , ind , npl ) call util_sort_rearrange ( pl % tlag , ind , npl ) if ( allocated ( pl % k_plpl )) deallocate ( pl % k_plpl ) call util_sort_rearrange_body ( pl , ind ) 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) associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange ( tp % isperi , ind , ntp ) call util_sort_rearrange ( tp % peri , ind , ntp ) call util_sort_rearrange ( tp % atp , ind , ntp ) call util_sort_rearrange_body ( tp , ind ) end associate return end subroutine util_sort_rearrange_tp 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 ! Internals integer ( I4B ) :: nspill , nkeep , nlist character ( len = STRMAX ), dimension (:), allocatable :: tmp !! Array of values to keep nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if discards (:) = pack ( keeps ( 1 : nlist ), lspill_list ( 1 : nlist )) if ( ldestructive ) then if ( nkeep > 0 ) then allocate ( tmp ( nkeep )) tmp (:) = pack ( keeps ( 1 : nlist ), . not . lspill_list ( 1 : nlist )) call move_alloc ( tmp , keeps ) 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 ! Internals integer ( I4B ) :: nspill , nkeep , nlist real ( DP ), dimension (:), allocatable :: tmp !! Array of values to keep nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if discards (:) = pack ( keeps ( 1 : nlist ), lspill_list ( 1 : nlist )) if ( ldestructive ) then if ( nkeep > 0 ) then allocate ( tmp ( nkeep )) tmp (:) = pack ( keeps ( 1 : nlist ), . not . lspill_list ( 1 : nlist )) call move_alloc ( tmp , keeps ) 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 , nspill , nkeep , nlist real ( DP ), dimension (:,:), allocatable :: tmp !! Array of values to keep nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( NDIM , nspill )) else if ( size ( discards , dim = 2 ) /= nspill ) then deallocate ( discards ) allocate ( discards ( NDIM , nspill )) end if do i = 1 , NDIM discards ( i ,:) = pack ( keeps ( i , 1 : nlist ), lspill_list ( 1 : nlist )) end do if ( ldestructive ) then if ( nkeep > 0 ) then allocate ( tmp ( NDIM , nkeep )) do i = 1 , NDIM tmp ( i , :) = pack ( keeps ( i , 1 : nlist ), . not . lspill_list ( 1 : nlist )) end do call move_alloc ( tmp , keeps ) else deallocate ( keeps ) 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 ! Internals integer ( I4B ) :: nspill , nkeep , nlist integer ( I4B ), dimension (:), allocatable :: tmp !! Array of values to keep nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if discards (:) = pack ( keeps ( 1 : nlist ), lspill_list ( 1 : nlist )) if ( ldestructive ) then if ( nkeep > 0 ) then allocate ( tmp ( nkeep )) tmp (:) = pack ( keeps ( 1 : nlist ), . not . lspill_list ( 1 : nlist )) call move_alloc ( tmp , keeps ) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_I4B module subroutine util_spill_arr_I8B ( 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 ( I8B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I8B ), 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 ! Internals integer ( I4B ) :: nspill , nkeep , nlist integer ( I8B ), dimension (:), allocatable :: tmp !! Array of values to keep nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if discards (:) = pack ( keeps ( 1 : nlist ), lspill_list ( 1 : nlist )) if ( ldestructive ) then if ( nkeep > 0 ) then allocate ( tmp ( nkeep )) tmp (:) = pack ( keeps ( 1 : nlist ), . not . lspill_list ( 1 : nlist )) call move_alloc ( tmp , keeps ) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_I8B module subroutine 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 ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( swiftest_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 ! Internals integer ( I4B ) :: i , nspill , nkeep , nlist integer ( I4B ), dimension (:), allocatable :: idx type ( swiftest_particle_info ), dimension (:), allocatable :: tmp nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if allocate ( idx ( nspill )) idx (:) = pack ([( i , i = 1 , nlist )], lspill_list ) call util_copy_particle_info_arr ( keeps , discards , idx ) if ( ldestructive ) then if ( nkeep > 0 ) then deallocate ( idx ) allocate ( idx ( nkeep )) allocate ( tmp ( nkeep )) idx (:) = pack ([( i , i = 1 , nlist )], . not . lspill_list ) call util_copy_particle_info_arr ( keeps , tmp , idx ) call move_alloc ( tmp , keeps ) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_info 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 ! Internals integer ( I4B ) :: nspill , nkeep , nlist logical , dimension (:), allocatable :: tmp !! Array of values to keep nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if discards (:) = pack ( keeps ( 1 : nlist ), lspill_list ( 1 : nlist )) if ( ldestructive ) then if ( nkeep > 0 ) then allocate ( tmp ( nkeep )) tmp (:) = pack ( keeps ( 1 : nlist ), . not . lspill_list ( 1 : nlist )) call move_alloc ( tmp , keeps ) 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 ) :: nbody_old ! 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 % info , discards % info , 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 ) nbody_old = keeps % nbody ! 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 ( 1 : nbody_old )) if ( ldestructive ) keeps % nbody = nbody_old - discards % nbody 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 ) :: nenc_old 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 % kidx , discards % kidx , 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 % id1 , discards % id1 , lspill_list , ldestructive ) call util_spill ( keeps % id2 , discards % id2 , 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 ) call util_spill ( keeps % t , discards % t , lspill_list , ldestructive ) nenc_old = keeps % nenc ! 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 ( 1 : nenc_old )) if ( ldestructive ) keeps % nenc = nenc_old - discards % nenc 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 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 ) if ( ldestructive . and . allocated ( keeps % k_plpl )) deallocate ( keeps % k_plpl ) 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 ( inout ) :: 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 param % maxid = max ( param % 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( swiftest_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 ! Internals integer ( I4B ), dimension (:), allocatable :: insert_idx integer ( I4B ) :: i , nkeep , ninsert if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return nkeep = size ( keeps ) ninsert = count ( lfill_list ) allocate ( insert_idx ( ninsert )) insert_idx (:) = pack ([( i , i = 1 , nkeep )], lfill_list ) call util_copy_particle_info_arr ( inserts , keeps , insert_idx ) return end subroutine util_fill_arr_info 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 % info , inserts % info , 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 ) if ( allocated ( keeps % k_plpl )) deallocate ( keeps % k_plpl ) 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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. 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 ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr ) else nold = 0 end if if ( nnew == nold ) return allocate ( tmp ( nnew )) if ( nold > 0 ) then if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) tmp ( nold + 1 : nnew ) = \"\" else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if else tmp ( 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. 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 real ( DP ), parameter :: init_val = 0.0_DP if ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr ) else nold = 0 end if if ( nnew == nold ) return allocate ( tmp ( nnew )) if ( nold > 0 ) then if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) tmp ( nold + 1 : nnew ) = init_val else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if else tmp ( 1 : nnew ) = init_val 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). 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 real ( DP ), dimension ( NDIM ), parameter :: init_val = 0.0_DP integer ( I4B ) :: i if ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr , dim = 2 ) else nold = 0 end if if ( nnew == nold ) return allocate ( tmp ( NDIM , nnew )) if ( nold > 0 ) then if ( nnew > nold ) then tmp (:, 1 : nold ) = arr (:, 1 : nold ) do i = nold + 1 , nnew tmp (:, i ) = init_val (:) end do else tmp (:, 1 : nnew ) = arr (:, 1 : nnew ) end if else do i = 1 , nnew tmp (:, i ) = init_val (:) end do end if call move_alloc ( tmp , arr ) return 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. 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 integer ( I4B ), parameter :: init_val = - 1 if ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr ) else nold = 0 end if if ( nnew == nold ) return allocate ( tmp ( nnew )) if ( nold > 0 ) then if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) tmp ( nold + 1 : nnew ) = init_val else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if else tmp ( 1 : nnew ) = init_val end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_I4B module subroutine 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 ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals type ( swiftest_particle_info ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr ) else nold = 0 end if if ( nnew == nold ) return allocate ( tmp ( nnew )) if ( nnew > nold ) then call util_copy_particle_info_arr ( arr ( 1 : nold ), tmp ( 1 : nold )) else call util_copy_particle_info_arr ( arr ( 1 : nnew ), tmp ( 1 : nnew )) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_info module subroutine util_resize_arr_logical ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of logical type. 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 logical , parameter :: init_val = . false . if ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr ) else nold = 0 end if if ( nnew == nold ) return allocate ( tmp ( nnew )) if ( nold > 0 ) then if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) tmp ( nold + 1 : nnew ) = init_val else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if else tmp ( 1 : nnew ) = init_val 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 % info , 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 massive 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 ) if ( allocated ( self % k_plpl )) deallocate ( self % k_plpl ) return end subroutine util_resize_pl module subroutine util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest test particle against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 % kidx ( 1 : n ) = source % kidx ( 1 : n ) self % index1 ( 1 : n ) = source % index1 ( 1 : n ) self % index2 ( 1 : n ) = source % index2 ( 1 : n ) self % id1 ( 1 : n ) = source % id1 ( 1 : n ) self % id2 ( 1 : n ) = source % id2 ( 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 ) self % t ( 1 : n ) = source % t ( 1 : n ) end associate return end subroutine util_copy_encounter module subroutine util_copy_particle_info ( self , source ) !! author: David A. Minton !! !! Copies one set of information object components into another, component-by-component implicit none class ( swiftest_particle_info ), intent ( inout ) :: self class ( swiftest_particle_info ), intent ( in ) :: source call self % set_value (& name = source % name , & particle_type = source % particle_type , & status = source % status , & origin_type = source % origin_type , & origin_time = source % origin_time , & origin_xh = source % origin_xh (:), & origin_vh = source % origin_vh (:), & discard_time = source % discard_time , & discard_xh = source % discard_xh (:), & discard_vh = source % discard_vh (:), & discard_body_id = source % discard_body_id & ) return end subroutine util_copy_particle_info module subroutine util_copy_particle_info_arr ( source , dest , idx ) !! author: David A. Minton !! !! Copies contents from an array of one particle information objects to another. implicit none class ( swiftest_particle_info ), dimension (:), intent ( in ) :: source !! Source object to copy into class ( swiftest_particle_info ), dimension (:), intent ( inout ) :: dest !! Swiftest body object with particle metadata information object integer ( I4B ), dimension (:), intent ( in ), optional :: idx !! Optional array of indices to draw the source object ! Internals integer ( I4B ) :: i , j , n , nsource , ndest if ( size ( source ) == 0 ) return if ( present ( idx )) then n = size ( idx ) else n = size ( source ) end if nsource = size ( source ) ndest = size ( dest ) if (( n == 0 ) . or . ( n > ndest ) . or . ( n > nsource )) then write ( * , * ) 'Particle info copy operation failed. n, nsource, ndest: ' , n , nsource , ndest return end if do i = 1 , n if ( present ( idx )) then j = idx ( i ) else j = i end if call dest ( i )% copy ( source ( j )) end do return end subroutine util_copy_particle_info_arr 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 , maxloop , 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 !!   maxloop : Maximum number of loops to attempt to find a solution !! 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 integer ( I4B ), intent ( in ) :: maxloop logical , intent ( out ) :: lerr ! Result real ( DP ), dimension (:), allocatable :: x1 ! Internals integer ( I4B ) :: i , j , k , l , conv , num 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 ) ! write(*,*) 'loop: ', i ! write(*,*) 'conv: ', conv ! write(*,*) 'grad1 / eps' ! do j = 1, N !    write(*,*) j, abs(grad1(j)) / eps ! end do 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 , 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 ! Internals integer ( I4B ) :: nnew if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( nold + nnew )) else call util_resize ( arr , nold + nnew ) end if arr ( nold + 1 : nold + nnew ) = 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 ! Internals integer ( I4B ) :: nnew if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( nold + nnew )) else call util_resize ( arr , nold + nnew ) end if arr ( nold + 1 : nold + nnew ) = 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 ! Internals integer ( I4B ) :: nnew if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( NDIM , nold + nnew )) else call util_resize ( arr , nold + nnew ) end if arr ( 1 , nold + 1 : nold + nnew ) = pack ( source ( 1 , 1 : nsrc ), lsource_mask ( 1 : nsrc )) arr ( 2 , nold + 1 : nold + nnew ) = pack ( source ( 2 , 1 : nsrc ), lsource_mask ( 1 : nsrc )) arr ( 3 , nold + 1 : nold + nnew ) = 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 ! Internals integer ( I4B ) :: nnew if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( nold + nnew )) else call util_resize ( arr , nold + nnew ) end if arr ( nold + 1 : nold + nnew ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine util_append_arr_I4B module subroutine 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 ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( swiftest_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 ! Internals integer ( I4B ) :: nnew , i integer ( I4B ), dimension (:), allocatable :: idx if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( nold + nnew )) else call util_resize ( arr , nold + nnew ) end if allocate ( idx ( nnew )) idx = pack ([( i , i = 1 , nsrc )], lsource_mask ( 1 : nsrc )) call util_copy_particle_info_arr ( source ( 1 : nsrc ), arr ( nold + 1 : nold + nnew ), idx ) return end subroutine util_append_arr_info 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 ! Internals integer ( I4B ) :: nnew if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( nold + nnew )) else call util_resize ( arr , nold + nnew ) end if arr ( nold + 1 : nold + nnew ) = 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 ! Internals integer ( I4B ) :: nold , nsrc , nnew nold = self % nbody nsrc = source % nbody nnew = count ( lsource_mask ( 1 : nsrc )) call util_append ( self % info , source % info , 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 ) self % nbody = nold + nnew return end subroutine util_append_body module subroutine util_append_encounter ( 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_encounter ), intent ( inout ) :: self !! Swiftest encounter list object class ( swiftest_encounter ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: nold , nsrc nold = self % nenc nsrc = source % nenc call util_append ( self % lvdotr , source % lvdotr , nold , nsrc , lsource_mask ) call util_append ( self % status , source % status , nold , nsrc , lsource_mask ) call util_append ( self % index1 , source % index1 , nold , nsrc , lsource_mask ) call util_append ( self % index2 , source % index2 , nold , nsrc , lsource_mask ) call util_append ( self % id1 , source % id1 , nold , nsrc , lsource_mask ) call util_append ( self % id2 , source % id2 , nold , nsrc , lsource_mask ) call util_append ( self % x1 , source % x1 , nold , nsrc , lsource_mask ) call util_append ( self % x2 , source % x2 , nold , nsrc , lsource_mask ) call util_append ( self % v1 , source % v1 , nold , nsrc , lsource_mask ) call util_append ( self % v2 , source % v2 , nold , nsrc , lsource_mask ) call util_append ( self % t , source % t , nold , nsrc , lsource_mask ) self % nenc = nold + count ( lsource_mask ( 1 : nsrc )) return end subroutine util_append_encounter 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 ) if ( allocated ( self % k_plpl )) deallocate ( self % k_plpl ) 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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 , nplpl 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 ( NDIM ) :: Lcborbit , Lcbspin real ( DP ), dimension (:), allocatable :: pepl logical , dimension (:), allocatable :: lstatpl real ( DP ) :: hx , hy , hz associate ( system => self , pl => self % pl , npl => self % pl % nbody , cb => self % cb ) nplpl = pl % nplpl system % Lorbit (:) = 0.0_DP system % Lspin (:) = 0.0_DP system % Ltot (:) = 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 pl % lmask ( 1 : npl ) = pl % status ( 1 : npl ) /= INACTIVE system % GMtot = cb % Gmass + sum ( pl % Gmass ( 1 : npl ), pl % lmask ( 1 : npl )) kecb = cb % mass * dot_product ( cb % vb (:), cb % vb (:)) Lcborbit (:) = cb % mass * ( cb % xb (:) . cross . cb % vb (:)) do concurrent ( i = 1 : npl , pl % lmask ( 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 kepl ( i ) = pl % mass ( i ) * dot_product ( pl % vb (:, i ), pl % vb (:, i )) 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 , pl % lmask ( i )) ! Currently we assume that the rotation pole is the 3rd principal axis ! Angular momentum from spin Lplspinx ( i ) = pl % mass ( i ) * pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 1 , i ) Lplspiny ( i ) = pl % mass ( i ) * pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 2 , i ) Lplspinz ( i ) = pl % mass ( i ) * pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 3 , i ) ! Kinetic energy from spin kespinpl ( i ) = pl % mass ( i ) * pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * dot_product ( pl % rot (:, i ), pl % rot (:, i )) end do else kespincb = 0.0_DP kespinpl (:) = 0.0_DP end if ! Do the central body potential energy component first where (. not . pl % lmask ( 1 : npl )) pecb ( 1 : npl ) = 0.0_DP end where do concurrent ( i = 1 : npl , pl % lmask ( i )) pecb ( i ) = - cb % Gmass * pl % mass ( i ) / norm2 ( pl % xb (:, i )) end do ! Do the potential energy between pairs of massive bodies allocate ( lstatpl ( nplpl )) allocate ( pepl ( nplpl )) do concurrent ( k = 1 : nplpl ) i = pl % k_plpl ( 1 , k ) j = pl % k_plpl ( 2 , k ) lstatpl ( k ) = ( pl % lmask ( i ) . and . pl % lmask ( j )) end do where (. not . lstatpl ( 1 : nplpl )) pepl ( 1 : nplpl ) = 0.0_DP end where do concurrent ( k = 1 : nplpl , lstatpl ( k )) i = pl % k_plpl ( 1 , k ) j = pl % k_plpl ( 2 , k ) pepl ( k ) = - ( pl % Gmass ( i ) * pl % mass ( j )) / norm2 ( pl % xb (:, i ) - pl % xb (:, j )) end do system % pe = sum ( pepl (:), lstatpl (:)) + sum ( pecb ( 1 : npl ), pl % lmask ( 1 : npl )) deallocate ( lstatpl , pepl ) system % ke_orbit = 0.5_DP * ( kecb + sum ( kepl ( 1 : npl ), pl % lmask ( 1 : npl ))) if ( param % lrotation ) system % ke_spin = 0.5_DP * ( kespincb + sum ( kespinpl ( 1 : npl ), pl % lmask ( 1 : npl ))) ! Potential energy from the oblateness term if ( param % loblatecb ) then call system % obl_pot () system % pe = system % pe + system % oblpot end if system % Lorbit ( 1 ) = Lcborbit ( 1 ) + sum ( Lplorbitx ( 1 : npl ), pl % lmask ( 1 : npl )) system % Lorbit ( 2 ) = Lcborbit ( 2 ) + sum ( Lplorbity ( 1 : npl ), pl % lmask ( 1 : npl )) system % Lorbit ( 3 ) = Lcborbit ( 3 ) + sum ( Lplorbitz ( 1 : npl ), pl % lmask ( 1 : npl )) if ( param % lrotation ) then system % Lspin ( 1 ) = Lcbspin ( 1 ) + sum ( Lplspinx ( 1 : npl ), pl % lmask ( 1 : npl )) system % Lspin ( 2 ) = Lcbspin ( 2 ) + sum ( Lplspiny ( 1 : npl ), pl % lmask ( 1 : npl )) system % Lspin ( 3 ) = Lcbspin ( 3 ) + sum ( Lplspinz ( 1 : npl ), pl % lmask ( 1 : npl )) end if system % te = system % ke_orbit + system % ke_spin + system % pe system % Ltot (:) = system % Lorbit (:) + system % Lspin (:) 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 , 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 = . false .) 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 ( 1 : self % nbody ) = . 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 integer ( I4B ) :: npl , ntp associate ( tp => self , cb => system % cb , pl => system % pl ) if (( ntp == 0 ) . or . ( npl == 0 )) return ntp = tp % nbody npl = pl % nbody 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 ( 1 : ntp ))) then allocate ( ldiscard , source = tp % ldiscard ) call tp % spill ( system % tp_discards , ldiscard ( 1 : ntp ), 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 character ( len = STRMAX ) :: idstr , timestr associate ( ntp => tp % nbody , cb => system % cb , 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 ( idstr , * ) tp % id ( i ) write ( timestr , * ) param % t write ( * , * ) \"Particle \" // trim ( adjustl ( tp % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" too far from the central body at t = \" // trim ( adjustl ( timestr )) tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . call tp % info ( i )% set_value ( status = \"DISCARDED_RMAX\" , discard_time = param % t , discard_xh = tp % xh (:, i ), discard_vh = tp % vh (:, i )) else if (( param % rmin >= 0.0_DP ) . and . ( rh2 < rmin2 )) then tp % status ( i ) = DISCARDED_RMIN write ( idstr , * ) tp % id ( i ) write ( timestr , * ) param % t write ( * , * ) \"Particle \" // trim ( adjustl ( tp % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" too close to the central body at t = \" // trim ( adjustl ( timestr )) tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . call tp % info ( i )% set_value ( status = \"DISCARDED_RMIN\" , discard_time = param % t , discard_xh = tp % xh (:, i ), discard_vh = tp % vh (:, i ), discard_body_id = cb % id ) 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 ( idstr , * ) tp % id ( i ) write ( timestr , * ) param % t write ( * , * ) \"Particle \" // trim ( adjustl ( tp % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" is unbound and too far from barycenter at t = \" // trim ( adjustl ( timestr )) tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . call tp % info ( i )% set_value ( status = \"DISCARDED_RMAXU\" , discard_time = param % t , discard_xh = tp % xh (:, i ), discard_vh = tp % vh (:, i )) 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 character ( len = STRMAX ) :: idstr , timestr 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 ( idstr , * ) tp % id ( i ) write ( timestr , * ) param % t write ( * , * ) \"Particle \" // trim ( adjustl ( tp % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" perihelion distance too small at t = \" // trim ( adjustl ( timestr )) tp % ldiscard ( i ) = . true . call tp % info ( i )% set_value ( status = \"DISCARDED_PERI\" , discard_time = param % t , discard_xh = tp % xh (:, i ), discard_vh = tp % vh (:, i ), discard_body_id = pl % id ( j )) 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 character ( len = STRMAX ) :: idstri , idstrj , timestr 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 ( idstri , * ) tp % id ( i ) write ( idstrj , * ) pl % id ( j ) write ( timestr , * ) param % t write ( * , * ) \"Test particle \" // trim ( adjustl ( tp % info ( i )% name )) // \" (\" // trim ( adjustl ( idstri )) // \")\" & // \"  too close to massive body \" // trim ( adjustl ( pl % info ( i )% name )) // \" (\" // trim ( adjustl ( idstrj )) & // \" at t = \" // trim ( adjustl ( timestr )) tp % ldiscard ( i ) = . true . call tp % info ( i )% set_value ( status = \"DISCARDED_PLR\" , discard_time = param % t , discard_xh = tp % xh (:, i ), discard_vh = tp % vh (:, i ), discard_body_id = pl % id ( j )) 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.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_setup.f90 – swiftest","text":"This file depends on sourcefile~~helio_setup.f90~~EfferentGraph sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_setup.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_setup.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.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_setup Source Code helio_setup.f90 Source Code submodule ( helio_classes ) s_helio_setup use swiftest contains module subroutine helio_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize a Helio nbody system from files, converting all heliocentric quantities to barycentric. !! implicit none ! Arguments class ( helio_nbody_system ), intent ( inout ) :: self !! Helio nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters call whm_setup_initialize_system ( self , param ) call self % pl % h2b ( self % cb ) call self % tp % h2b ( self % cb ) call self % pl % sort ( \"mass\" , ascending = . false .) call self % pl % index ( param ) return end subroutine helio_setup_initialize_system end submodule s_helio_setup","tags":"","loc":"sourcefile/helio_setup.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.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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~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.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 ( 1 : npl ), pl % xbeg (:, 1 : npl ), npl ) else call tp % accel_int ( pl % Gmass ( 1 : npl ), pl % xend (:, 1 : npl ), 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 (:, 1 : npl ) = 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 (:, 1 : ntp ) = 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_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.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 ) :: ke_orbit_now , ke_spin_now , pe_now , Eorbit_now real ( DP ) :: Eorbit_error , Etotal_error , Ecoll_error real ( DP ) :: GMtot_now real ( DP ) :: Lerror , Merror character ( len = STRMAX ) :: errmsg 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 ) if (( param % out_type == REAL4_TYPE ) . or . ( param % out_type == REAL8_TYPE ) . and . ( param % energy_out /= \"\" )) then if ( param % lfirstenergy . and . ( param % out_stat /= \"OLD\" )) then open ( unit = EGYIU , file = param % energy_out , form = \"formatted\" , status = \"replace\" , action = \"write\" , err = 667 , iomsg = errmsg ) write ( EGYIU , EGYHEADER , err = 667 , iomsg = errmsg ) else open ( unit = EGYIU , file = param % energy_out , form = \"formatted\" , status = \"old\" , action = \"write\" , position = \"append\" , err = 667 , iomsg = errmsg ) end if end if call pl % vb2vh ( cb ) call pl % xh2xb ( 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 (:) = system % Ltot (:) + param % Lescape (:) GMtot_now = system % GMtot + param % GMescape if ( param % lfirstenergy ) then param % Eorbit_orig = Eorbit_now param % GMtot_orig = GMtot_now param % Lorbit_orig (:) = Lorbit_now (:) param % Lspin_orig (:) = Lspin_now (:) param % Ltot_orig (:) = Ltot_now (:) param % lfirstenergy = . false . end if if (( param % out_type == REAL4_TYPE ) . or . ( param % out_type == REAL8_TYPE ) . and . ( param % energy_out /= \"\" )) then write ( EGYIU , EGYFMT , err = 667 , iomsg = errmsg ) param % t , Eorbit_now , param % Ecollisions , Ltot_now , GMtot_now close ( EGYIU , err = 667 , iomsg = errmsg ) end if if (. not . param % lfirstenergy ) then Lerror = norm2 ( Ltot_now (:) - param % Ltot_orig (:)) / norm2 ( param % Ltot_orig (:)) Eorbit_error = ( Eorbit_now - param % Eorbit_orig ) / abs ( param % Eorbit_orig ) Ecoll_error = param % Ecollisions / abs ( param % Eorbit_orig ) Etotal_error = ( Eorbit_now - param % Ecollisions - param % Eorbit_orig - param % Euntracked ) / abs ( param % Eorbit_orig ) Merror = ( GMtot_now - param % GMtot_orig ) / param % GMtot_orig if ( lterminal ) write ( * , EGYTERMFMT ) Lerror , Ecoll_error , Etotal_error , Merror if ( abs ( Merror ) > 100 * epsilon ( Merror )) then write ( * , * ) \"Severe error! Mass not conserved! Halting!\" call pl % xv2el ( cb ) call param % nciu % open ( param ) call self % write_hdr ( param % nciu , param ) call cb % write_frame ( param % nciu , param ) call pl % write_frame ( param % nciu , param ) call param % nciu % close ( param ) call util_exit ( FAILURE ) end if end if end associate return 667 continue write ( * , * ) \"Error writing energy and momentum tracking file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) 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 character ( STRMAX ) :: errmsg !! Error message in UDIO procedure integer ( I4B ) :: ierr open ( unit = LUN , file = param_file_name , status = 'replace' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) !! 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 = errmsg ) if ( ierr == 0 ) then close ( LUN , err = 667 , iomsg = errmsg ) return end if 667 continue write ( * , * ) \"Error opening parameter dump file \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_dump_param module subroutine io_dump_particle_info ( self , iu ) !! author: David A. Minton !! !! Reads in particle information object information from an open file unformatted file implicit none ! Arguments class ( swiftest_particle_info ), intent ( in ) :: self !! Particle metadata information object integer ( I4B ), intent ( in ) :: iu !! Open file unit number ! Internals character ( STRMAX ) :: errmsg write ( iu , err = 667 , iomsg = errmsg ) self % name write ( iu , err = 667 , iomsg = errmsg ) self % particle_type write ( iu , err = 667 , iomsg = errmsg ) self % origin_type write ( iu , err = 667 , iomsg = errmsg ) self % origin_time write ( iu , err = 667 , iomsg = errmsg ) self % origin_xh (:) write ( iu , err = 667 , iomsg = errmsg ) self % origin_vh (:) return 667 continue write ( * , * ) \"Error writing particle metadata information from file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_dump_particle_info module subroutine io_dump_particle_info_base ( self , param , idx ) !! 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 ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object (can be cb, pl, or tp) class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters integer ( I4B ), dimension (:), optional , intent ( in ) :: idx !! Array of test particle indices to append to the particle file ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: LUN = 22 integer ( I4B ) :: i character ( STRMAX ) :: errmsg !if ((param%out_type == REAL4_TYPE) .or. (param%out_type == REAL8_TYPE)) then if ( lfirst ) then select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % particle_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) case ( 'NEW' , 'UNKNOWN' , 'REPLACE' ) open ( unit = LUN , file = param % particle_out , status = param % out_stat , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) case default write ( * , * ) 'Invalid status code' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select lfirst = . false . else open ( unit = LUN , file = param % particle_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) end if select type ( self ) class is ( swiftest_cb ) write ( LUN , err = 667 , iomsg = errmsg ) self % id call self % info % dump ( LUN ) class is ( swiftest_body ) if ( present ( idx )) then do i = 1 , size ( idx ) write ( LUN , err = 667 , iomsg = errmsg ) self % id ( idx ( i )) call self % info ( idx ( i ))% dump ( LUN ) end do else do i = 1 , self % nbody write ( LUN , err = 667 , iomsg = errmsg ) self % id ( i ) call self % info ( i )% dump ( LUN ) end do end if end select close ( unit = LUN , err = 667 , iomsg = errmsg ) !else if ((param%out_type == NETCDF_FLOAT_TYPE) .or. (param%out_type == NETCDF_DOUBLE_TYPE)) then if (( param % out_type == NETCDF_FLOAT_TYPE ) . or . ( param % out_type == NETCDF_DOUBLE_TYPE )) then call param % nciu % open ( param ) call self % write_particle_info ( param % nciu ) call param % nciu % close ( param ) end if return 667 continue write ( * , * ) \"Error reading central body file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_dump_particle_info_base module subroutine io_dump_base ( 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 character ( STRMAX ) :: errmsg 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' , err = 667 , iomsg = errmsg ) select type ( self ) class is ( swiftest_body ) write ( iu , err = 667 , iomsg = errmsg ) self % nbody call io_write_frame_body ( self , iu , param ) class is ( swiftest_cb ) call io_write_frame_cb ( self , iu , param ) end select close ( iu , err = 667 , iomsg = errmsg ) return 667 continue write ( * , * ) \"Error dumping body data to file \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_dump_base 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 ) :: tfrac character ( * ), parameter :: statusfmt = '(\"Time = \", ES12.5, \"; fraction done = \", F6.3, \"; Number of active pl, tp = \", I5, \", \", I5)' character ( * ), parameter :: symbastatfmt = '(\"Time = \", ES12.5, \"; fraction done = \", F6.3, \"; Number of active plm, pl, tp = \", I5, \", \", I5, \", \", I5)' logical , save :: lfirst = . true . if ( lfirst ) then lfirst = . false . if ( param % lenergy ) call self % conservation_report ( param , lterminal = . 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 % in_form = XV dump_param % out_stat = 'APPEND' dump_param % in_type = REAL8_TYPE dump_param % T0 = param % t call dump_param % dump ( param_file_name ) dump_param % out_form = XV call self % cb % dump ( dump_param ) call self % pl % dump ( dump_param ) call self % tp % dump ( dump_param ) idx = idx + 1 if ( idx > NDUMPFILES ) idx = 1 tfrac = ( param % t - param % t0 ) / ( param % tstop - param % t0 ) select type ( pl => self % pl ) class is ( symba_pl ) write ( * , symbastatfmt ) param % t , tfrac , pl % nplm , pl % nbody , self % tp % nbody class default write ( * , statusfmt ) param % t , tfrac , pl % nbody , self % tp % nbody end select end if 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_old_t_final_system ( self , param ) result ( old_t_final ) !! author: David A. Minton !! !! Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. !! implicit none ! Arguments class ( swiftest_nbody_system ), intent ( in ) :: self class ( swiftest_parameters ), intent ( in ) :: param ! Result real ( DP ) :: old_t_final ! Internals class ( swiftest_nbody_system ), allocatable :: tmpsys class ( swiftest_parameters ), allocatable :: tmpparam integer ( I4B ), parameter :: LUN = 76 integer ( I4B ) :: ierr , iu = LUN character ( len = STRMAX ) :: errmsg old_t_final = 0.0_DP allocate ( tmpsys , source = self ) allocate ( tmpparam , source = param ) ierr = 0 open ( unit = iu , file = param % outfile , status = 'OLD' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) do ierr = tmpsys % read_frame ( iu , tmpparam ) if ( ierr /= 0 ) exit end do if ( is_iostat_end ( ierr )) then old_t_final = tmpparam % t return end if 667 continue write ( * , * ) \"Error reading binary output file. \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end function io_get_old_t_final_system 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 , end = 1 , err = 667 , iomsg = iomsg ) 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 , * , err = 667 , iomsg = iomsg ) param % t0 t0_set = . true . case ( \"TSTOP\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % tstop tstop_set = . true . case ( \"DT\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) 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 ( \"IN_FORM\" ) call io_toupper ( param_value ) param % in_form = 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 , * , err = 667 , iomsg = iomsg ) 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 , * , err = 667 , iomsg = iomsg ) param % rmin case ( \"CHK_RMAX\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % rmax case ( \"CHK_EJECT\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % rmaxu case ( \"CHK_QMIN\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % qmin case ( \"CHK_QMIN_COORD\" ) call io_toupper ( param_value ) param % qmin_coord = param_value case ( \"CHK_QMIN_RANGE\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % qmin_alo ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * , err = 667 , iomsg = iomsg ) 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 , * , err = 667 , iomsg = iomsg ) param % MU2KG case ( \"TU2S\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % TU2S case ( \"DU2M\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) 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 , * , err = 667 , iomsg = iomsg ) param % Eorbit_orig case ( \"GMTOT_ORIG\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % GMtot_orig case ( \"LTOT_ORIG\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Ltot_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 2 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Ltot_orig ( i ) end do case ( \"LORBIT_ORIG\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Lorbit_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 2 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Lorbit_orig ( i ) end do case ( \"LSPIN_ORIG\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Lspin_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 2 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Lspin_orig ( i ) end do case ( \"LESCAPE\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Lescape ( 1 ) do i = 2 , NDIM ifirst = ilast + 2 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Lescape ( i ) end do case ( \"GMESCAPE\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % GMescape case ( \"ECOLLISIONS\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Ecollisions case ( \"EUNTRACKED\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % Euntracked case ( \"MAXID\" ) read ( param_value , * , err = 667 , iomsg = iomsg ) param % maxid case ( \"PARTICLE_OUT\" ) param % particle_out = param_value case ( \"NPLMAX\" , \"NTPMAX\" , \"GMTINY\" , \"MIN_GMFRAG\" , \"FRAGMENTATION\" , \"SEED\" , \"YARKOVSKY\" , \"YORP\" ) ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters case default write ( * , * ) \"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 /= NETCDF_FLOAT_TYPE ) . and . ( param % out_type /= NETCDF_DOUBLE_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\" ) . and . ( param % out_form /= \"XVEL\" )) 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 ( * , * ) \"IN_FORM        = \" , trim ( adjustl ( param % in_form )) write ( * , * ) \"OUT_STAT       = \" , trim ( adjustl ( param % out_stat )) write ( * , * ) \"ISTEP_DUMP     = \" , param % istep_dump write ( * , * ) \"CHK_CLOSE      = \" , param % lclose if ( param % rmin > 0.0 ) then write ( * , * ) \"CHK_RMIN       = \" , param % rmin else write ( * , * ) \"! CHK_RMIN value will be the central body radius\" end if if ( param % rmax > 0.0_DP ) write ( * , * ) \"CHK_RMAX       = \" , param % rmax if ( param % rmaxu > 0.0_DP ) write ( * , * ) \"CHK_EJECT      = \" , param % rmaxu if (( param % qmin > 0.0_DP ) . or . ( param % qmin_alo > 0.0_DP ) . or . ( param % qmin_ahi > 0.0_DP )) write ( * , * ) \"CHK_QMIN_COORD = \" , trim ( adjustl ( param % qmin_coord )) if ( param % qmin > 0.0_DP ) write ( * , * ) \"CHK_QMIN       = \" , param % qmin if (( param % qmin_alo > 0.0_DP ) . or . ( param % qmin_ahi > 0.0_DP )) 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 if ( param % lenergy ) write ( * , * ) \"ENERGY_OUT     = \" , trim ( adjustl ( param % energy_out )) write ( * , * ) \"MU2KG          = \" , param % MU2KG write ( * , * ) \"TU2S           = \" , param % TU2S write ( * , * ) \"DU2M           = \" , param % DU2M if ( trim ( adjustl ( param % outfile )) == \"\" ) then param % outfile = BIN_OUTFILE end if 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\" param % lbig_discard = . false . 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 )) if ( param % lgr ) then ! 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 ) end if associate ( integrator => v_list ( 1 )) if (( integrator == RMVS ) . or . ( integrator == SYMBA )) 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 667 continue 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 :: Lfmt = '(L1)' !! Format label for logical values character ( len = NAMELEN ) :: param_name character ( LEN = STRMAX ) :: param_value , v1 , v2 , v3 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 , * ) \"T0\" ; write ( param_value , Rfmt ) param % t0 ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"TSTOP\" ; write ( param_value , Rfmt ) param % tstop ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"DT\" ; write ( param_value , Rfmt ) param % dt ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"CB_IN\" ; write ( param_value , * ) trim ( adjustl ( param % incbfile )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"PL_IN\" ; write ( param_value , * ) trim ( adjustl ( param % inplfile )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"TP_IN\" ; write ( param_value , * ) trim ( adjustl ( param % intpfile )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"IN_TYPE\" ; write ( param_value , * ) trim ( adjustl ( param % in_type )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"IN_FORM\" ; write ( param_value , * ) trim ( adjustl ( param % in_form )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % istep_dump > 0 ) write ( param_name , * ) \"ISTEP_DUMP\" ; write ( param_value , Ifmt ) param % istep_dump ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % istep_out > 0 ) then write ( param_name , * ) \"ISTEP_OUT\" ; write ( param_value , Ifmt ) param % istep_out ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"BIN_OUT\" ; write ( param_value , * ) trim ( adjustl ( param % outfile )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"OUT_TYPE\" ; write ( param_value , * ) trim ( adjustl ( param % out_type )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"OUT_FORM\" ; write ( param_value , * ) trim ( adjustl ( param % out_form )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"OUT_STAT\" ; write ( param_value , * ) \"APPEND\" ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) end if write ( param_name , * ) \"PARTICLE_OUT\" ; write ( param_value , * ) trim ( adjustl ( param % particle_out )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % enc_out /= \"\" ) then write ( param_name , * ) \"ENC_OUT\" ; write ( param_value , * ) trim ( adjustl ( param % enc_out )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) end if write ( param_name , * ) \"CHK_RMIN\" ; write ( param_value , Rfmt ) param % rmin ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"CHK_RMAX\" ; write ( param_value , Rfmt ) param % rmax ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"CHK_EJECT\" ; write ( param_value , Rfmt ) param % rmaxu ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"CHK_QMIN\" ; write ( param_value , Rfmt ) param % qmin ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % qmin >= 0.0_DP ) then write ( param_name , * ) \"CHK_QMIN_COORD\" ; write ( param_value , * ) trim ( adjustl ( param % qmin_coord )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( 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 , * ) \"CHK_QMIN_RANGE\" ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ), adjustl ( param_array ( 1 )% value ), adjustl ( param_array ( 2 )% value ) end if write ( param_name , * ) \"MU2KG\" ; write ( param_value , Rfmt ) param % MU2KG ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"TU2S\" ; write ( param_value , Rfmt ) param % TU2S ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"DU2M\" ; write ( param_value , Rfmt ) param % DU2M ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"RHILL_PRESENT\" ; write ( param_value , Lfmt ) param % lrhill_present ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"EXTRA_FORCE\" ; write ( param_value , Lfmt ) param % lextra_force ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % discard_out /= \"\" ) then write ( param_name , * ) \"DISCARD_OUT\" ; write ( param_value , * ) trim ( adjustl ( param % discard_out )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) end if if ( param % discard_out /= \"\" ) then write ( param_name , * ) \"BIG_DISCARD\" ; write ( param_value , Lfmt ) param % lbig_discard ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) end if write ( param_name , * ) \"CHK_CLOSE\" ; write ( param_value , Lfmt ) param % lclose ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"ENERGY\" ; write ( param_value , Lfmt ) param % lenergy ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % lenergy . and . ( param % energy_out /= \"\" )) then write ( param_name , * ) \"ENERGY_OUT\" ; write ( param_value , * ) trim ( adjustl ( param % energy_out )); write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) end if write ( param_name , * ) \"GR\" ; write ( param_value , Lfmt ) param % lgr ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"ROTATION\" ; write ( param_value , Lfmt ) param % lrotation ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"TIDES\" ; write ( param_value , Lfmt ) param % ltides ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % lenergy ) then write ( param_name , * ) \"FIRSTENERGY\" ; write ( param_value , Lfmt ) param % lfirstenergy ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"EORBIT_ORIG\" ; write ( param_value , Rfmt ) param % Eorbit_orig ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"GMTOT_ORIG\" ; write ( param_value , Rfmt ) param % GMtot_orig ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"LTOT_ORIG\" ; write ( v1 , Rfmt ) param % Ltot_orig ( 1 ); write ( v2 , Rfmt ) param % Ltot_orig ( 2 ); write ( v3 , Rfmt ) param % Ltot_orig ( 3 ) write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( v1 )) // \" \" // trim ( adjustl ( v2 )) // \" \" // trim ( adjustl ( v3 )) write ( param_name , * ) \"LORBIT_ORIG\" ; write ( v1 , Rfmt ) param % Lorbit_orig ( 1 ); write ( v2 , Rfmt ) param % Lorbit_orig ( 2 ); write ( v3 , Rfmt ) param % Lorbit_orig ( 3 ) write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( v1 )) // \" \" // trim ( adjustl ( v2 )) // \" \" // trim ( adjustl ( v3 )) write ( param_name , * ) \"LSPIN_ORIG\" ; write ( v1 , Rfmt ) param % Lspin_orig ( 1 ); write ( v2 , Rfmt ) param % Lspin_orig ( 2 ); write ( v3 , Rfmt ) param % Lspin_orig ( 3 ) write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( v1 )) // \" \" // trim ( adjustl ( v2 )) // \" \" // trim ( adjustl ( v3 )) write ( param_name , * ) \"LESCAPE\" ; write ( v1 , Rfmt ) param % Lescape ( 1 ); write ( v2 , Rfmt ) param % Lescape ( 2 ); write ( v3 , Rfmt ) param % Lescape ( 3 ) write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( v1 )) // \" \" // trim ( adjustl ( v2 )) // \" \" // trim ( adjustl ( v3 )) write ( param_name , * ) \"GMESCAPE\" ; write ( param_value , Rfmt ) param % GMescape ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"ECOLLISIONS\" ; write ( param_value , Rfmt ) param % Ecollisions ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"EUNTRACKED\" ; write ( param_value , Rfmt ) param % Euntracked ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) end if write ( param_name , * ) \"FIRSTKICK\" ; write ( param_value , Lfmt ) param % lfirstkick ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"MAXID\" ; write ( param_value , Ifmt ) param % maxid ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) iostat = 0 iomsg = \"UDIO not implemented\" end associate 667 continue return end subroutine io_param_writer module subroutine io_read_in_body ( 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 , nbody logical :: is_ascii , is_pl character ( len = :), allocatable :: infile real ( DP ) :: t character ( STRMAX ) :: errmsg integer ( I4B ) :: ierr ! 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 is_ascii = ( param % in_type == 'ASCII' ) select case ( param % in_type ) case ( ASCII_TYPE ) open ( unit = iu , file = infile , status = 'old' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) read ( iu , * , err = 667 , iomsg = errmsg ) nbody case ( REAL4_TYPE , REAL8_TYPE ) open ( unit = iu , file = infile , status = 'old' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) read ( iu , err = 667 , iomsg = errmsg ) nbody case default write ( errmsg , * ) trim ( adjustl ( param % in_type )) // ' is an unrecognized file type' goto 667 end select call self % setup ( nbody , param ) ierr = 0 if ( nbody > 0 ) then ierr = self % read_frame ( iu , param ) self % status (:) = ACTIVE self % lmask (:) = . true . do i = 1 , nbody call self % info ( i )% set_value ( status = \"ACTIVE\" ) end do end if close ( iu , err = 667 , iomsg = errmsg ) if ( ierr == 0 ) return 667 continue write ( * , * ) 'Error reading in initial conditions file: ' , trim ( adjustl ( errmsg )) return end subroutine io_read_in_body module subroutine io_read_in_cb ( 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 character ( len = STRMAX ) :: errmsg integer ( I4B ) :: ierr , idold character ( len = NAMELEN ) :: name if ( param % in_type == 'ASCII' ) then self % id = 0 param % maxid = 0 open ( unit = iu , file = param % incbfile , status = 'old' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) read ( iu , * , err = 667 , iomsg = errmsg ) name call self % info % set_value ( name = name ) read ( iu , * , err = 667 , iomsg = errmsg ) self % Gmass self % mass = real ( self % Gmass / param % GU , kind = DP ) read ( iu , * , err = 667 , iomsg = errmsg ) self % radius read ( iu , * , err = 667 , iomsg = errmsg ) self % j2rp2 read ( iu , * , err = 667 , iomsg = errmsg ) self % j4rp4 if ( param % lrotation ) then read ( iu , * , err = 667 , iomsg = errmsg ) self % Ip ( 1 ), self % Ip ( 2 ), self % Ip ( 3 ) read ( iu , * , err = 667 , iomsg = errmsg ) self % rot ( 1 ), self % rot ( 2 ), self % rot ( 3 ) end if ierr = 0 else open ( unit = iu , file = param % incbfile , status = 'old' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) ierr = self % read_frame ( iu , param ) end if close ( iu , err = 667 , iomsg = errmsg ) if ( ierr == 0 ) then if ( self % j2rp2 /= 0.0_DP ) param % loblatecb = . true . if ( param % rmin < 0.0 ) param % rmin = self % radius select type ( cb => self ) class is ( symba_cb ) cb % GM0 = cb % Gmass cb % dGM = 0.0_DP cb % R0 = cb % radius cb % L0 (:) = cb % Ip ( 3 ) * cb % mass * cb % radius ** 2 * cb % rot (:) end select end if return 667 continue write ( * , * ) \"Error reading central body file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_read_in_cb function io_read_encounter ( t , id1 , id2 , Gmass1 , Gmass2 , 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 ) :: id1 , id2 real ( DP ), intent ( out ) :: t , Gmass1 , Gmass2 , 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 ) id1 , xh1 ( 1 ), xh1 ( 2 ), xh1 ( 3 ), vh1 ( 1 ), vh1 ( 2 ), vh1 ( 3 ), Gmass1 , radius1 if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if read ( iu , iostat = ierr ) id2 , xh2 ( 2 ), xh2 ( 2 ), xh2 ( 3 ), vh2 ( 2 ), vh2 ( 2 ), vh2 ( 3 ), Gmass2 , radius2 if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if return end function io_read_encounter module function io_read_frame_body ( self , iu , param ) result ( 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 ! Result integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful ! Internals character ( len = STRMAX ) :: errmsg character ( len = NAMELEN ), dimension ( self % nbody ) :: name integer ( I4B ) :: i real ( QP ) :: val if ( self % nbody == 0 ) return if (( param % in_form /= EL ) . and . ( param % in_form /= XV )) then write ( errmsg , * ) trim ( adjustl ( param % in_form )) // \" is not a recognized format code for input files.\" goto 667 end if associate ( n => self % nbody ) if ( param % in_form == EL ) then 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 )) end if select case ( param % in_type ) case ( REAL4_TYPE , REAL8_TYPE ) read ( iu , err = 667 , iomsg = errmsg ) self % id (:) read ( iu , err = 667 , iomsg = errmsg ) name (:) do i = 1 , n call self % info ( i )% set_value ( name = name ( i )) end do select case ( param % in_form ) case ( XV ) read ( iu , err = 667 , iomsg = errmsg ) self % xh ( 1 , :) read ( iu , err = 667 , iomsg = errmsg ) self % xh ( 2 , :) read ( iu , err = 667 , iomsg = errmsg ) self % xh ( 3 , :) read ( iu , err = 667 , iomsg = errmsg ) self % vh ( 1 , :) read ( iu , err = 667 , iomsg = errmsg ) self % vh ( 2 , :) read ( iu , err = 667 , iomsg = errmsg ) self % vh ( 3 , :) case ( EL ) read ( iu , err = 667 , iomsg = errmsg ) self % a (:) read ( iu , err = 667 , iomsg = errmsg ) self % e (:) read ( iu , err = 667 , iomsg = errmsg ) self % inc (:) read ( iu , err = 667 , iomsg = errmsg ) self % capom (:) read ( iu , err = 667 , iomsg = errmsg ) self % omega (:) read ( iu , err = 667 , iomsg = errmsg ) self % capm (:) end select select type ( pl => self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body read ( iu , err = 667 , iomsg = errmsg ) pl % Gmass (:) pl % mass (:) = pl % Gmass (:) / param % GU if ( param % lrhill_present ) read ( iu , err = 667 , iomsg = errmsg ) pl % rhill (:) read ( iu , err = 667 , iomsg = errmsg ) pl % radius (:) if ( param % lrotation ) then read ( iu , err = 667 , iomsg = errmsg ) pl % Ip ( 1 , :) read ( iu , err = 667 , iomsg = errmsg ) pl % Ip ( 2 , :) read ( iu , err = 667 , iomsg = errmsg ) pl % Ip ( 3 , :) read ( iu , err = 667 , iomsg = errmsg ) pl % rot ( 1 , :) read ( iu , err = 667 , iomsg = errmsg ) pl % rot ( 2 , :) read ( iu , err = 667 , iomsg = errmsg ) pl % rot ( 3 , :) end if if ( param % ltides ) then read ( iu , err = 667 , iomsg = errmsg ) pl % k2 (:) read ( iu , err = 667 , iomsg = errmsg ) pl % Q (:) end if end select param % maxid = max ( param % maxid , maxval ( self % id ( 1 : n ))) case ( ASCII_TYPE ) do i = 1 , n select type ( self ) class is ( swiftest_pl ) if ( param % lrhill_present ) then read ( iu , * , err = 667 , iomsg = errmsg ) name ( i ), val , self % rhill ( i ) else read ( iu , * , err = 667 , iomsg = errmsg ) name ( i ), val end if call self % info ( i )% set_value ( name = name ( i )) self % Gmass ( i ) = real ( val , kind = DP ) self % mass ( i ) = real ( val / param % GU , kind = DP ) read ( iu , * , err = 667 , iomsg = errmsg ) self % radius ( i ) class is ( swiftest_tp ) read ( iu , * , err = 667 , iomsg = errmsg ) self % id ( i ) end select select case ( param % in_form ) case ( XV ) read ( iu , * , err = 667 , iomsg = errmsg ) self % xh ( 1 , i ), self % xh ( 2 , i ), self % xh ( 3 , i ) read ( iu , * , err = 667 , iomsg = errmsg ) self % vh ( 1 , i ), self % vh ( 2 , i ), self % vh ( 3 , i ) case ( EL ) read ( iu , * , err = 667 , iomsg = errmsg ) self % a ( i ), self % e ( i ), self % inc ( i ) read ( iu , * , err = 667 , iomsg = errmsg ) self % capom ( i ), self % omega ( i ), self % capm ( i ) end select select type ( self ) class is ( swiftest_pl ) if ( param % lrotation ) then read ( iu , * , err = 667 , iomsg = errmsg ) self % Ip ( 1 , i ), self % Ip ( 2 , i ), self % Ip ( 3 , i ) read ( iu , * , err = 667 , iomsg = errmsg ) self % rot ( 1 , i ), self % rot ( 2 , i ), self % rot ( 3 , i ) end if if ( param % ltides ) then read ( iu , * , err = 667 , iomsg = errmsg ) self % k2 ( i ) read ( iu , * , err = 667 , iomsg = errmsg ) self % Q ( i ) end if end select param % maxid = param % maxid + 1 self % id ( i ) = param % maxid end do end select if ( param % in_form == EL ) then self % inc ( 1 : n ) = self % inc ( 1 : n ) * DEG2RAD self % capom ( 1 : n ) = self % capom ( 1 : n ) * DEG2RAD self % omega ( 1 : n ) = self % omega ( 1 : n ) * DEG2RAD self % capm ( 1 : n ) = self % capm ( 1 : n ) * DEG2RAD end if end associate ierr = 0 return 667 continue select type ( self ) class is ( swiftest_pl ) write ( * , * ) \"Error reading massive body file: \" // trim ( adjustl ( errmsg )) class is ( swiftest_tp ) write ( * , * ) \"Error reading test particle file: \" // trim ( adjustl ( errmsg )) class default write ( * , * ) \"Error reading body file: \" // trim ( adjustl ( errmsg )) end select call util_exit ( FAILURE ) end function io_read_frame_body module function io_read_frame_cb ( self , iu , param ) result ( 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 ! Result integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful ! Internals character ( len = STRMAX ) :: errmsg character ( len = NAMELEN ) :: name read ( iu , err = 667 , iomsg = errmsg ) self % id read ( iu , err = 667 , iomsg = errmsg ) name call self % info % set_value ( name = name ) read ( iu , err = 667 , iomsg = errmsg ) self % Gmass self % mass = self % Gmass / param % GU read ( iu , err = 667 , iomsg = errmsg ) self % radius read ( iu , err = 667 , iomsg = errmsg ) self % j2rp2 read ( iu , err = 667 , iomsg = errmsg ) self % j4rp4 if ( param % lrotation ) then read ( iu , err = 667 , iomsg = errmsg ) self % Ip ( 1 ) read ( iu , err = 667 , iomsg = errmsg ) self % Ip ( 2 ) read ( iu , err = 667 , iomsg = errmsg ) self % Ip ( 3 ) read ( iu , err = 667 , iomsg = errmsg ) self % rot ( 1 ) read ( iu , err = 667 , iomsg = errmsg ) self % rot ( 2 ) read ( iu , err = 667 , iomsg = errmsg ) self % rot ( 3 ) end if if ( param % ltides ) then read ( iu , err = 667 , iomsg = errmsg ) self % k2 read ( iu , err = 667 , iomsg = errmsg ) self % Q end if ierr = 0 return 667 continue write ( * , * ) \"Error reading central body file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end function io_read_frame_cb module function io_read_frame_system ( self , iu , param ) result ( 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 ! Result integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful ! Internals character ( len = STRMAX ) :: errmsg integer ( I4B ) :: npl , ntp ierr = io_read_hdr ( iu , param % t , npl , ntp , param % out_form , param % out_type ) if ( is_iostat_end ( ierr )) return ! Reached the end of the frames call self % pl % setup ( npl , param ) call self % tp % setup ( ntp , param ) if ( ierr /= 0 ) then write ( errmsg , * ) \"Cannot read frame header.\" goto 667 end if ierr = self % cb % read_frame ( iu , param ) if ( ierr /= 0 ) then write ( errmsg , * ) \"Cannot read central body frame.\" goto 667 end if ierr = self % pl % read_frame ( iu , param ) if ( ierr /= 0 ) then write ( errmsg , * ) \"Cannot read massive body frame.\" goto 667 end if ierr = self % tp % read_frame ( iu , param ) if ( ierr /= 0 ) then write ( errmsg , * ) \"Cannot read test particle frame.\" goto 667 end if return 667 continue write ( * , * ) \"Error reading system frame: \" // trim ( adjustl ( errmsg )) end function 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 character ( len = STRMAX ) :: errmsg select case ( out_type ) case ( REAL4_TYPE ) read ( iu , iostat = ierr , err = 667 , iomsg = errmsg , end = 333 ) ttmp t = ttmp case ( REAL8_TYPE ) read ( iu , iostat = ierr , err = 667 , iomsg = errmsg , end = 333 ) t case default write ( errmsg , * ) trim ( adjustl ( out_type )) // ' is an unrecognized file type' ierr = - 1 end select read ( iu , iostat = ierr , err = 667 , iomsg = errmsg ) npl read ( iu , iostat = ierr , err = 667 , iomsg = errmsg ) ntp read ( iu , iostat = ierr , err = 667 , iomsg = errmsg ) out_form return 667 continue write ( * , * ) \"Error reading header: \" // trim ( adjustl ( errmsg )) 333 continue return return end function io_read_hdr module subroutine io_read_in_param ( 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 ) :: errmsg !! 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 , err = 667 , iomsg = errmsg ) !! 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 = errmsg) param call self % reader ( LUN , iotype = \"none\" , v_list = [ self % integrator ], iostat = ierr , iomsg = errmsg ) if ( ierr == 0 ) return 667 continue write ( * , * ) \"Error reading parameter file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_read_in_param module subroutine io_read_in_particle_info ( self , iu ) !! author: David A. Minton !! !! Reads in particle information object information from an open file unformatted file implicit none ! Arguments class ( swiftest_particle_info ), intent ( inout ) :: self !! Particle metadata information object integer ( I4B ), intent ( in ) :: iu !! Open file unit number ! Internals character ( STRMAX ) :: errmsg read ( iu , err = 667 , iomsg = errmsg ) self % name read ( iu , err = 667 , iomsg = errmsg ) self % particle_type read ( iu , err = 667 , iomsg = errmsg ) self % origin_type read ( iu , err = 667 , iomsg = errmsg ) self % origin_time read ( iu , err = 667 , iomsg = errmsg ) self % origin_xh (:) read ( iu , err = 667 , iomsg = errmsg ) self % origin_vh (:) return 667 continue write ( * , * ) \"Error reading particle metadata information from file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_read_in_particle_info module subroutine io_read_particle_info_system ( self , param ) !! author: David A. Minton !! !! Reads an old particle information file for a restartd run implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 22 integer ( I4B ) :: i , id , idx logical :: lmatch character ( STRMAX ) :: errmsg type ( swiftest_particle_info ), allocatable :: tmpinfo open ( unit = LUN , file = param % particle_out , status = 'OLD' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) allocate ( tmpinfo , mold = self % cb % info ) select type ( cb => self % cb ) class is ( swiftest_cb ) select type ( pl => self % pl ) class is ( swiftest_pl ) select type ( tp => self % tp ) class is ( swiftest_tp ) associate ( npl => pl % nbody , ntp => tp % nbody ) do lmatch = . false . read ( LUN , err = 667 , iomsg = errmsg , end = 333 ) id if ( id == cb % id ) then call cb % info % read_in ( LUN ) lmatch = . true . else if ( npl > 0 ) then idx = findloc ( pl % id ( 1 : npl ), id , dim = 1 ) if ( idx /= 0 ) then call pl % info ( idx )% read_in ( LUN ) lmatch = . true . end if end if if (. not . lmatch . and . ntp > 0 ) then idx = findloc ( tp % id ( 1 : ntp ), id , dim = 1 ) if ( idx /= 0 ) then call tp % info ( idx )% read_in ( LUN ) lmatch = . true . end if end if end if if (. not . lmatch ) then call tmpinfo % read_in ( LUN ) end if end do end associate close ( unit = LUN , err = 667 , iomsg = errmsg ) end select end select end select 333 continue return 667 continue write ( * , * ) \"Error reading particle information file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_read_particle_info_system 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 ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 40 integer ( I4B ) :: i 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 character ( len = STRMAX ) :: errmsg , out_stat associate ( tp_discards => self % tp_discards , nsp => self % tp_discards % nbody , pl => self % pl , npl => self % pl % nbody ) ! Record the discarded body metadata information to file if (( param % out_type == NETCDF_FLOAT_TYPE ) . or . ( param % out_type == NETCDF_DOUBLE_TYPE )) then call param % nciu % open ( param ) call tp_discards % write_particle_info ( param % nciu ) call param % nciu % close ( param ) end if if ( param % discard_out == \"\" ) return if ( nsp == 0 ) return if ( lfirst ) then out_stat = param % out_stat else out_stat = 'APPEND' end if select case ( out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % discard_out , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = LUN , file = param % discard_out , status = param % out_stat , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) 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 , err = 667 , iomsg = errmsg ) SUB , tp_discards % id ( i ), tp_discards % status ( i ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) tp_discards % xh ( 1 , i ), tp_discards % xh ( 2 , i ), tp_discards % xh ( 3 , i ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) 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 , err = 667 , iomsg = errmsg ) pl % id ( i ), pl % Gmass ( i ), pl % radius ( i ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) pl % xh ( 1 , i ), pl % xh ( 2 , i ), pl % xh ( 3 , i ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) vh ( 1 , i ), vh ( 2 , i ), vh ( 3 , i ) end do deallocate ( vh ) end if close ( LUN ) end associate return 667 continue write ( * , * ) \"Error writing discard file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_write_discard module subroutine io_write_encounter ( self , pl , encbody , param ) implicit none ! Arguments class ( swiftest_encounter ), intent ( in ) :: self !! Swiftest encounter list object class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: encbody !! Encountering body - Swiftest generic body object (pl or tp) class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: LUN = 30 integer ( I4B ) :: k , ierr character ( len = STRMAX ) :: errmsg if ( param % enc_out == \"\" . or . self % nenc == 0 ) return open ( unit = LUN , file = param % enc_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr , iomsg = errmsg ) if ( ierr /= 0 ) then if ( lfirst ) then open ( unit = LUN , file = param % enc_out , status = 'NEW' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) else goto 667 end if end if lfirst = . false . associate ( ind1 => self % index1 , ind2 => self % index2 ) select type ( encbody ) class is ( swiftest_pl ) do k = 1 , self % nenc call io_write_frame_encounter ( LUN , self % t ( k ), & pl % id ( ind1 ( k )), encbody % id ( ind2 ( k )), & pl % Gmass ( ind1 ( k )), encbody % Gmass ( ind2 ( k )), & pl % radius ( ind1 ( k )), encbody % radius ( ind2 ( k )), & self % x1 (:, k ), self % x2 (:, k ), & self % v1 (:, k ), self % v2 (:, k )) end do class is ( swiftest_tp ) do k = 1 , self % nenc call io_write_frame_encounter ( LUN , self % t ( k ), & pl % id ( ind1 ( k )), encbody % id ( ind2 ( k )), & pl % Gmass ( ind1 ( k )), 0.0_DP , & pl % radius ( ind1 ( k )), 0.0_DP , & self % x1 (:, k ), self % x2 (:, k ), & self % v1 (:, k ), self % v2 (:, k )) end do end select end associate close ( unit = LUN , err = 667 , iomsg = errmsg ) return 667 continue write ( * , * ) \"Error writing encounter file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) 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 ! Internals character ( len = STRMAX ) :: errmsg associate ( n => self % nbody ) if ( n == 0 ) return write ( iu , err = 667 , iomsg = errmsg ) self % id ( 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % info ( 1 : n )% name if (( param % out_form == XV ) . or . ( param % out_form == XVEL )) then write ( iu , err = 667 , iomsg = errmsg ) self % xh ( 1 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % xh ( 2 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % xh ( 3 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % vh ( 1 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % vh ( 2 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % vh ( 3 , 1 : n ) end if if (( param % out_form == EL ) . or . ( param % out_form == XVEL )) then write ( iu , err = 667 , iomsg = errmsg ) self % a ( 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % e ( 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) self % inc ( 1 : n ) * RAD2DEG write ( iu , err = 667 , iomsg = errmsg ) self % capom ( 1 : n ) * RAD2DEG write ( iu , err = 667 , iomsg = errmsg ) self % omega ( 1 : n ) * RAD2DEG write ( iu , err = 667 , iomsg = errmsg ) self % capm ( 1 : n ) * RAD2DEG end if select type ( pl => self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body write ( iu , err = 667 , iomsg = errmsg ) pl % Gmass ( 1 : n ) if ( param % lrhill_present ) write ( iu , err = 667 , iomsg = errmsg ) pl % rhill ( 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % radius ( 1 : n ) if ( param % lrotation ) then write ( iu , err = 667 , iomsg = errmsg ) pl % Ip ( 1 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % Ip ( 2 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % Ip ( 3 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % rot ( 1 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % rot ( 2 , 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % rot ( 3 , 1 : n ) end if if ( param % ltides ) then write ( iu , err = 667 , iomsg = errmsg ) pl % k2 ( 1 : n ) write ( iu , err = 667 , iomsg = errmsg ) pl % Q ( 1 : n ) end if end select end associate return 667 continue write ( * , * ) \"Error writing body frame: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) 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 ! Internals character ( len = STRMAX ) :: errmsg associate ( cb => self ) write ( iu , err = 667 , iomsg = errmsg ) cb % id write ( iu , err = 667 , iomsg = errmsg ) cb % info % name write ( iu , err = 667 , iomsg = errmsg ) cb % Gmass write ( iu , err = 667 , iomsg = errmsg ) cb % radius write ( iu , err = 667 , iomsg = errmsg ) cb % j2rp2 write ( iu , err = 667 , iomsg = errmsg ) cb % j4rp4 if ( param % lrotation ) then write ( iu , err = 667 , iomsg = errmsg ) cb % Ip ( 1 ) write ( iu , err = 667 , iomsg = errmsg ) cb % Ip ( 2 ) write ( iu , err = 667 , iomsg = errmsg ) cb % Ip ( 3 ) write ( iu , err = 667 , iomsg = errmsg ) cb % rot ( 1 ) write ( iu , err = 667 , iomsg = errmsg ) cb % rot ( 2 ) write ( iu , err = 667 , iomsg = errmsg ) cb % rot ( 3 ) end if if ( param % ltides ) then write ( iu , err = 667 , iomsg = errmsg ) cb % k2 write ( iu , err = 667 , iomsg = errmsg ) cb % Q end if end associate return 667 continue write ( * , * ) \"Error writing central body frame: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_write_frame_cb module subroutine io_write_frame_encounter ( iu , t , id1 , id2 , Gmass1 , Gmass2 , radius1 , radius2 , xh1 , xh2 , vh1 , vh2 ) !! author: David A. Minton !! !! Write a single frame of close encounter data to output binary files !! !! 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 ) :: iu !! Open file unit number real ( DP ), intent ( in ) :: t !! Time of encounter integer ( I4B ), intent ( in ) :: id1 , id2 !! ids of the two encountering bodies real ( DP ), intent ( in ) :: Gmass1 , Gmass2 !! G*mass of the two encountering bodies real ( DP ), intent ( in ) :: radius1 , radius2 !! Radii of the two encountering bodies real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 !! Heliocentric position vectors of the two encountering bodies real ( DP ), dimension (:), intent ( in ) :: vh1 , vh2 !! Heliocentric velocity vectors of the two encountering bodies ! Internals character ( len = STRMAX ) :: errmsg write ( iu , err = 667 , iomsg = errmsg ) t write ( iu , err = 667 , iomsg = errmsg ) id1 , xh1 ( 1 ), xh1 ( 2 ), xh1 ( 3 ), vh1 ( 1 ), vh1 ( 2 ), Gmass1 , radius1 write ( iu , err = 667 , iomsg = errmsg ) id2 , xh2 ( 1 ), xh2 ( 2 ), xh2 ( 3 ), vh2 ( 1 ), vh2 ( 2 ), Gmass2 , radius2 return 667 continue write ( * , * ) \"Error writing encounter file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine module subroutine io_write_frame_system ( self , 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 ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals logical , save :: lfirst = . true . !! Flag to determine if this is the first call of this method 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 character ( len = STRMAX ) :: errmsg integer ( I4B ) :: iu = BINUNIT !! Unit number for the output file to write frame to logical :: fileExists if (. not . lfirst . and . param % lenergy ) call self % conservation_report ( param , lterminal = . true .) allocate ( cb , source = self % cb ) allocate ( pl , source = self % pl ) allocate ( tp , source = self % tp ) iu = BINUNIT if (( param % out_type == REAL4_TYPE ) . or . ( param % out_type == REAL8_TYPE )) then if ( lfirst ) then select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = iu , file = param % outfile , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = iu , file = param % outfile , status = param % out_stat , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select lfirst = . false . else open ( unit = iu , file = param % outfile , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , err = 667 , iomsg = errmsg ) end if else if (( param % out_type == NETCDF_FLOAT_TYPE ) . or . ( param % out_type == NETCDF_DOUBLE_TYPE )) then if ( lfirst ) then inquire ( file = param % outfile , exist = fileExists ) select case ( param % out_stat ) case ( 'APPEND' ) if (. not . fileExists ) then errmsg = param % outfile // \" not found! You must specify OUT_STAT = NEW, REPLACE, or UNKNOWN\" goto 667 end if case ( 'NEW' ) if ( fileExists ) then errmsg = param % outfile // \" Alread Exists! You must specify OUT_STAT = OLD, REPLACE, or UNKNOWN\" goto 667 end if case ( 'REPLACE' , 'UNKNOWN' ) if ( fileExists ) then open ( file = param % outfile , unit = iu , status = 'OLD' ) close ( unit = BINUNIT , status = \"delete\" ) end if end select select case ( param % out_stat ) case ( 'APPEND' ) call param % nciu % open ( param ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) call param % nciu % initialize ( param ) call param % nciu % close ( param ) call param % nciu % open ( param ) end select lfirst = . false . else call param % nciu % open ( param ) end if end if if ( param % lgr ) then call pl % pv2v ( param ) call tp % pv2v ( param ) end if if (( param % out_form == EL ) . or . ( param % out_form == XVEL )) 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 if (( param % out_type == REAL4_TYPE ) . or . ( param % out_type == REAL8_TYPE )) then call self % write_hdr ( iu , param ) call cb % write_frame ( iu , param ) call pl % write_frame ( iu , param ) call tp % write_frame ( iu , param ) close ( iu , err = 667 , iomsg = errmsg ) else if (( param % out_type == NETCDF_FLOAT_TYPE ) . or . ( param % out_type == NETCDF_DOUBLE_TYPE )) then call self % write_hdr ( param % nciu , param ) call cb % write_frame ( param % nciu , param ) call pl % write_frame ( param % nciu , param ) call tp % write_frame ( param % nciu , param ) call param % nciu % close ( param ) end if return 667 continue write ( * , * ) \"Error writing system frame: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_write_frame_system module subroutine io_write_hdr_system ( self , iu , param ) ! 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 class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest nbody system object integer ( I4B ), intent ( inout ) :: iu !! Output file unit number class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals character ( len = STRMAX ) :: errmsg select case ( param % out_type ) case ( REAL4_TYPE ) write ( iu , err = 667 , iomsg = errmsg ) real ( param % t , kind = SP ) case ( REAL8_TYPE ) write ( iu , err = 667 , iomsg = errmsg ) param % t end select write ( iu , err = 667 , iomsg = errmsg ) self % pl % nbody write ( iu , err = 667 , iomsg = errmsg ) self % tp % nbody write ( iu , err = 667 , iomsg = errmsg ) param % out_form return 667 continue write ( * , * ) \"Error writing header: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) end subroutine io_write_hdr_system 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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 ( inout ) :: 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_pltpenc :: system % pltpenc_list ) allocate ( symba_plplenc :: system % plplenc_list ) allocate ( symba_plplenc :: system % plplcollision_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 if ( n < 0 ) return if ( allocated ( self % lvdotr )) deallocate ( self % lvdotr ) if ( allocated ( self % status )) deallocate ( self % status ) if ( allocated ( self % kidx )) deallocate ( self % kidx ) if ( allocated ( self % index1 )) deallocate ( self % index1 ) if ( allocated ( self % index2 )) deallocate ( self % index2 ) if ( allocated ( self % id1 )) deallocate ( self % id1 ) if ( allocated ( self % id2 )) deallocate ( self % id2 ) 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 ) if ( allocated ( self % t )) deallocate ( self % t ) self % nenc = n if ( n == 0 ) return allocate ( self % lvdotr ( n )) allocate ( self % status ( n )) allocate ( self % kidx ( n )) allocate ( self % index1 ( n )) allocate ( self % index2 ( n )) allocate ( self % id1 ( n )) allocate ( self % id2 ( n )) allocate ( self % x1 ( NDIM , n )) allocate ( self % x2 ( NDIM , n )) allocate ( self % v1 ( NDIM , n )) allocate ( self % v2 ( NDIM , n )) allocate ( self % t ( n )) self % lvdotr (:) = . false . self % status (:) = INACTIVE self % kidx (:) = 0_I8B self % index1 (:) = 0 self % index2 (:) = 0 self % id1 (:) = 0 self % id2 (:) = 0 self % x1 (:,:) = 0.0_DP self % x2 (:,:) = 0.0_DP self % v1 (:,:) = 0.0_DP self % v2 (:,:) = 0.0_DP self % t (:) = 0.0_DP return end subroutine setup_encounter module subroutine setup_initialize_particle_info_system ( self , param ) !! author: David A. Minton !! !! Setup up particle information metadata from initial conditions ! implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i associate ( cb => self % cb , pl => self % pl , npl => self % pl % nbody , tp => self % tp , ntp => self % tp % nbody ) call cb % info % set_value ( particle_type = CB_TYPE_NAME , status = \"ACTIVE\" , origin_type = \"Initial conditions\" , origin_time = param % t0 , origin_xh = [ 0.0_DP , 0.0_DP , 0.0_DP ], origin_vh = [ 0.0_DP , 0.0_DP , 0.0_DP ]) do i = 1 , self % pl % nbody call pl % info ( i )% set_value ( particle_type = PL_TYPE_NAME , status = \"ACTIVE\" , origin_type = \"Initial conditions\" , origin_time = param % t0 , origin_xh = self % pl % xh (:, i ), origin_vh = self % pl % vh (:, i )) end do do i = 1 , self % tp % nbody call tp % info ( i )% set_value ( particle_type = TP_TYPE_NAME , status = \"ACTIVE\" , origin_type = \"Initial conditions\" , origin_time = param % t0 , origin_xh = self % tp % xh (:, i ), origin_vh = self % tp % vh (:, i )) end do end associate return end subroutine setup_initialize_particle_info_system 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 % read_in ( param ) call self % pl % read_in ( param ) call self % tp % read_in ( param ) call self % validate_ids ( param ) call self % set_msys () call self % pl % set_mu ( self % cb ) call self % tp % set_mu ( self % cb ) if ( param % in_form == EL ) then call self % pl % el2xv ( self % cb ) call self % tp % el2xv ( self % cb ) end if call self % pl % index ( param ) if (. not . param % lrhill_present ) call self % pl % set_rhill ( self % cb ) self % pl % lfirst = param % lfirstkick self % tp % lfirst = param % lfirstkick if ( param % lrestart ) then call self % read_particle_info ( param ) else call self % init_particle_info ( param ) end if 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 ! Internals integer ( I4B ) :: i if ( n < 0 ) return self % lfirst = . true . if ( allocated ( self % info )) deallocate ( self % info ) if ( allocated ( self % id )) deallocate ( self % id ) if ( allocated ( self % status )) deallocate ( self % status ) if ( allocated ( self % ldiscard )) deallocate ( self % ldiscard ) if ( allocated ( self % lmask )) deallocate ( self % lmask ) if ( allocated ( self % mu )) deallocate ( self % mu ) 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 % aobl )) deallocate ( self % aobl ) if ( allocated ( self % agr )) deallocate ( self % lmask ) if ( allocated ( self % atide )) deallocate ( self % lmask ) if ( allocated ( self % ir3h )) deallocate ( self % ir3h ) if ( allocated ( self % a )) deallocate ( self % a ) if ( allocated ( self % e )) deallocate ( self % e ) if ( allocated ( self % e )) deallocate ( self % e ) if ( allocated ( self % inc )) deallocate ( self % inc ) if ( allocated ( self % capom )) deallocate ( self % capom ) if ( allocated ( self % omega )) deallocate ( self % omega ) if ( allocated ( self % capm )) deallocate ( self % capm ) self % nbody = n if ( n == 0 ) return allocate ( self % info ( n )) allocate ( self % id ( n )) allocate ( self % status ( n )) allocate ( self % ldiscard ( n )) allocate ( self % lmask ( n )) allocate ( self % mu ( 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 )) self % id (:) = 0 do i = 1 , n call self % info ( i )% set_value (& name = \"UNNAMED\" , & particle_type = \"UNKNOWN\" , & status = \"INACTIVE\" , & origin_type = \"UNKNOWN\" , & origin_time = - huge ( 1.0_DP ), & origin_xh = [ 0.0_DP , 0.0_DP , 0.0_DP ], & origin_vh = [ 0.0_DP , 0.0_DP , 0.0_DP ], & discard_time = - huge ( 1.0_DP ), & discard_xh = [ 0.0_DP , 0.0_DP , 0.0_DP ], & discard_vh = [ 0.0_DP , 0.0_DP , 0.0_DP ], & discard_body_id = - 1 & ) end do 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 allocate ( self % aobl ( NDIM , n )) self % aobl (:,:) = 0.0_DP end if if ( param % ltides ) then allocate ( self % atide ( NDIM , n )) self % atide (:,:) = 0.0_DP end if if ( param % lgr ) then 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 ) if ( allocated ( self % radius )) deallocate ( self % radius ) if ( allocated ( self % density )) deallocate ( self % density ) if ( allocated ( self % rot )) deallocate ( self % rot ) if ( allocated ( self % Ip )) deallocate ( self % Ip ) if ( allocated ( self % k2 )) deallocate ( self % k2 ) if ( allocated ( self % Q )) deallocate ( self % Q ) if ( allocated ( self % tlag )) deallocate ( self % tlag ) if ( n == 0 ) return 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 allocate ( self % radius ( n )) allocate ( self % density ( n )) self % radius (:) = 0.0_DP self % density (:) = 1.0_DP end if if ( param % lrotation ) then 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 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 ) if ( n == 0 ) return 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":"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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 ! Internals integer ( I4B ) :: nnew if (. not . allocated ( source )) return nnew = count ( lsource_mask ( 1 : nsrc )) if (. not . allocated ( arr )) then allocate ( arr ( nold + nnew )) else call util_resize ( arr , nold + nnew ) end if arr ( nold + 1 : nold + nnew ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine symba_util_append_arr_kin module subroutine symba_util_append_encounter ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one encounter list (pl-pl or pl-tp) body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( symba_encounter ), intent ( inout ) :: self !! SyMBA encounter list object class ( swiftest_encounter ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to associate ( nold => self % nenc , nsrc => source % nenc ) select type ( source ) class is ( symba_encounter ) call util_append ( self % level , source % level , nold , nsrc , lsource_mask ) end select call util_append_encounter ( self , source , lsource_mask ) end associate return end subroutine symba_util_append_encounter 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_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 , nnew nold = self % nbody nsrc = source % nbody nnew = count ( lsource_mask ) 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 + nnew ) = nnew 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_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_copy_encounter ( self , source ) !! author: David A. Minton !! !! Copies elements from the source encounter list into self. implicit none ! Arguments class ( symba_encounter ), intent ( inout ) :: self !! Encounter list class ( swiftest_encounter ), intent ( in ) :: source !! Source object to copy into select type ( source ) class is ( symba_encounter ) associate ( n => source % nenc ) self % level ( 1 : n ) = source % level ( 1 : n ) end associate end select call util_copy_encounter ( self , source ) return end subroutine symba_util_copy_encounter 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_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_index_eucl_plpl ( self , param ) !! author: Jacob R. Elliott and David A. Minton !! !! Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the !! number of interactions that excludes semi-interacting bodies with each other (Gmass < GMTINY). !! This method will also sort the bodies in descending order by Mass !! !! Reference: !! !!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. !!       2019. hal-0204751 implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I8B ) :: i , j , counter , npl , nplm , nplpl , nplplm associate ( pl => self ) npl = int ( self % nbody , kind = I8B ) nplm = count (. not . pl % lmtiny ( 1 : npl )) pl % nplm = int ( nplm , kind = I4B ) pl % nplpl = ( npl * ( npl - 1 ) / 2 ) ! number of entries in a strict lower triangle, npl x npl, minus first column pl % nplplm = nplm * npl - nplm * ( nplm + 1 ) / 2 ! number of entries in a strict lower triangle, npl x npl, minus first column including only mutually interacting bodies if ( allocated ( self % k_plpl )) deallocate ( self % k_plpl ) ! Reset the index array if it's been set previously allocate ( self % k_plpl ( 2 , pl % 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 symba_util_index_eucl_plpl 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 ( inout ) :: param !! Current run configuration parameters ! Internals class ( symba_pl ), allocatable :: tmp !! The discarded body list. integer ( I4B ) :: i , j , k , npl , nadd , nencmin , nenc_old , idnew1 , idnew2 , idold1 , idold2 logical , dimension (:), allocatable :: lmask , ldump_mask class ( symba_plplenc ), allocatable :: plplenc_old logical :: lencounter integer ( I4B ), dimension (:), allocatable :: levelg_orig_pl , levelm_orig_pl , levelg_orig_tp , levelm_orig_tp , nplenc_orig_pl , nplenc_orig_tp , ntpenc_orig_pl associate ( pl => self , pl_adds => system % pl_adds ) npl = pl % nbody nadd = pl_adds % nbody if ( npl == 0 ) return ! Deallocate any temporary variables if ( allocated ( pl % xbeg )) deallocate ( pl % xbeg ) if ( allocated ( pl % xend )) deallocate ( pl % xend ) ! Remove the discards and destroy the list, as the system already tracks pl_discards elsewhere allocate ( lmask ( npl )) lmask ( 1 : npl ) = pl % ldiscard ( 1 : npl ) allocate ( tmp , mold = self ) call pl % spill ( tmp , lspill_list = lmask , ldestructive = . true .) npl = pl % nbody call tmp % setup ( 0 , param ) deallocate ( tmp ) deallocate ( lmask ) ! Store the original plplenc list so we don't remove any of the original encounters nenc_old = system % plplenc_list % nenc if ( nenc_old > 0 ) then allocate ( plplenc_old , source = system % plplenc_list ) call plplenc_old % copy ( system % plplenc_list ) end if ! Add in any new bodies if ( nadd > 0 ) then ! Append the adds to the main pl object call pl % append ( pl_adds , lsource_mask = [(. true ., i = 1 , nadd )]) allocate ( ldump_mask ( npl + nadd )) ! This mask is used only to append the original Fortran binary particle.dat file with new bodies. This is ignored for NetCDF output ldump_mask ( 1 : npl ) = . false . ldump_mask ( npl + 1 : npl + nadd ) = pl % status ( npl + 1 : npl + nadd ) == NEW_PARTICLE npl = pl % nbody else allocate ( ldump_mask ( npl )) ldump_mask (:) = . false . end if ! Reset all of the status flags for this body pl % status ( 1 : npl ) = ACTIVE do i = 1 , npl call pl % info ( i )% set_value ( status = \"ACTIVE\" ) end do pl % ldiscard ( 1 : npl ) = . false . pl % lcollision ( 1 : npl ) = . false . pl % lmask ( 1 : npl ) = . true . select type ( param ) class is ( symba_parameters ) pl % lmtiny ( 1 : npl ) = pl % Gmass ( 1 : npl ) < param % GMTINY where ( pl % lmtiny ( 1 : npl )) pl % info ( 1 : npl )% particle_type = PL_TINY_TYPE_NAME elsewhere pl % info ( 1 : npl )% particle_type = PL_TYPE_NAME end where end select call pl % dump_particle_info ( param , idx = pack ([( i , i = 1 , npl )], ldump_mask )) deallocate ( ldump_mask ) ! Reindex the new list of bodies call pl % sort ( \"mass\" , ascending = . false .) call pl % index ( param ) ! Reset the kinship trackers call pl % reset_kinship ([( i , i = 1 , npl )]) ! Re-build the zero-level encounter list, being sure to save the original level information for all bodies allocate ( levelg_orig_pl , source = pl % levelg ) allocate ( levelm_orig_pl , source = pl % levelm ) allocate ( nplenc_orig_pl , source = pl % nplenc ) lencounter = pl % encounter_check ( system , param % dt , 0 ) if ( system % tp % nbody > 0 ) then select type ( tp => system % tp ) class is ( symba_tp ) allocate ( ntpenc_orig_pl , source = pl % ntpenc ) allocate ( levelg_orig_tp , source = tp % levelg ) allocate ( levelm_orig_tp , source = tp % levelm ) allocate ( nplenc_orig_tp , source = tp % nplenc ) lencounter = tp % encounter_check ( system , param % dt , 0 ) call move_alloc ( levelg_orig_tp , tp % levelg ) call move_alloc ( levelm_orig_tp , tp % levelm ) call move_alloc ( nplenc_orig_tp , tp % nplenc ) call move_alloc ( ntpenc_orig_pl , pl % ntpenc ) end select end if call move_alloc ( levelg_orig_pl , pl % levelg ) call move_alloc ( levelm_orig_pl , pl % levelm ) call move_alloc ( nplenc_orig_pl , pl % nplenc ) ! Re-index the encounter list as the index values may have changed if ( nenc_old > 0 ) then nencmin = min ( system % plplenc_list % nenc , plplenc_old % nenc ) do k = 1 , nencmin idnew1 = system % plplenc_list % id1 ( k ) idnew2 = system % plplenc_list % id2 ( k ) idold1 = plplenc_old % id1 ( k ) idold2 = plplenc_old % id2 ( k ) if (( idnew1 == idold1 ) . and . ( idnew2 == idold2 )) then ! This is an encounter we already know about, so save the old information system % plplenc_list % lvdotr ( k ) = plplenc_old % lvdotr ( k ) system % plplenc_list % status ( k ) = plplenc_old % status ( k ) system % plplenc_list % x1 (:, k ) = plplenc_old % x1 (:, k ) system % plplenc_list % x2 (:, k ) = plplenc_old % x2 (:, k ) system % plplenc_list % v1 (:, k ) = plplenc_old % v1 (:, k ) system % plplenc_list % v2 (:, k ) = plplenc_old % v2 (:, k ) system % plplenc_list % t ( k ) = plplenc_old % t ( k ) system % plplenc_list % level ( k ) = plplenc_old % level ( k ) else if ((( idnew1 == idold2 ) . and . ( idnew2 == idold1 ))) then ! This is an encounter we already know about, but with the order reversed, so save the old information system % plplenc_list % lvdotr ( k ) = plplenc_old % lvdotr ( k ) system % plplenc_list % status ( k ) = plplenc_old % status ( k ) system % plplenc_list % x1 (:, k ) = plplenc_old % x2 (:, k ) system % plplenc_list % x2 (:, k ) = plplenc_old % x1 (:, k ) system % plplenc_list % v1 (:, k ) = plplenc_old % v2 (:, k ) system % plplenc_list % v2 (:, k ) = plplenc_old % v1 (:, k ) system % plplenc_list % t ( k ) = plplenc_old % t ( k ) system % plplenc_list % level ( k ) = plplenc_old % level ( k ) end if end do end if end associate return end subroutine symba_util_rearray_pl module subroutine symba_util_reset_kinship ( self , idx ) !! author: David A. Minton !! !! Resets the kinship status of bodies. !! implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: idx !! Index array of bodies to reset ! Internals integer ( I4B ) :: i , j self % kin ( idx (:))% parent = idx (:) self % kin ( idx (:))% nchild = 0 do j = 1 , size ( idx (:)) i = idx ( j ) if ( allocated ( self % kin ( i )% child )) deallocate ( self % kin ( i )% child ) end do return end subroutine symba_util_reset_kinship 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 ( nnew < 0 ) return if ( nnew == 0 ) then if ( allocated ( arr )) deallocate ( arr ) return end if if ( allocated ( arr )) then nold = size ( arr ) else nold = 0 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_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_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 (:), allocatable :: 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 ) allocate ( ind ( npl )) 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 (:), allocatable :: 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 ) allocate ( ind ( ntp )) 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_arr_kin ( arr , ind , n ) !! author: David A. Minton !! !! Rearrange a single array of particle kinship type in-place from an index list. implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange ! Internals type ( symba_kinship ), dimension (:), allocatable :: tmp !! Temporary copy of array used during rearrange operation integer ( I4B ) :: i , j if (. not . allocated ( arr ) . or . n <= 0 ) return allocate ( tmp , source = arr ) tmp ( 1 : n ) = arr ( ind ( 1 : n )) do i = 1 , n do j = 1 , tmp ( i )% nchild tmp ( i )% child ( j ) = ind ( tmp ( i )% child ( j )) end do end do call move_alloc ( tmp , arr ) return end subroutine symba_util_sort_rearrange_arr_kin 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 integer ( I4B ) :: i , j associate ( pl => self , npl => self % nbody ) call util_sort_rearrange ( pl % lcollision , ind , npl ) call util_sort_rearrange ( pl % lencounter , ind , npl ) call util_sort_rearrange ( pl % lmtiny , ind , npl ) call util_sort_rearrange ( pl % nplenc , ind , npl ) call util_sort_rearrange ( pl % ntpenc , ind , npl ) call util_sort_rearrange ( pl % levelg , ind , npl ) call util_sort_rearrange ( pl % levelm , ind , npl ) call util_sort_rearrange ( pl % isperi , ind , npl ) call util_sort_rearrange ( pl % peri , ind , npl ) call util_sort_rearrange ( pl % atp , ind , npl ) call util_sort_rearrange ( pl % kin , ind , npl ) call util_sort_rearrange_pl ( pl , ind ) 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) associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange ( tp % nplenc , ind , ntp ) call util_sort_rearrange ( tp % levelg , ind , ntp ) call util_sort_rearrange ( tp % levelm , ind , ntp ) call util_sort_rearrange_tp ( tp , ind ) end associate return end subroutine symba_util_sort_rearrange_tp 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 ! Internals integer ( I4B ) :: nspill , nkeep , nlist nkeep = count (. not . lspill_list (:)) nspill = count ( lspill_list (:)) nlist = size ( lspill_list (:)) if (. not . allocated ( keeps ) . or . nspill == 0 ) return if (. not . allocated ( discards )) then allocate ( discards ( nspill )) else if ( size ( discards ) /= nspill ) then deallocate ( discards ) allocate ( discards ( nspill )) end if discards (:) = pack ( keeps ( 1 : nlist ), lspill_list ( 1 : nlist )) if ( ldestructive ) then if ( nkeep > 0 ) then keeps (:) = pack ( keeps ( 1 : nlist ), . not . lspill_list ( 1 : nlist )) 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 ! 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 % 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_encounter ( 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_encounter ), 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 associate ( keeps => self ) select type ( discards ) class is ( symba_encounter ) 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_encounter or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_encounter 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 ! 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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 function symba_collision_casedisruption ( system , param , colliders , frag ) 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , nfrag logical :: lfailure character ( len = STRMAX ) :: message select case ( frag % regime ) case ( COLLRESOLVE_REGIME_DISRUPTION ) message = \"Disruption between\" case ( COLLRESOLVE_REGIME_SUPERCATASTROPHIC ) message = \"Supercatastrophic disruption between\" end select call symba_collision_collider_message ( system % pl , colliders % idx , message ) call fraggle_io_log_one_message ( message ) ! Collisional fragments will be uniformly distributed around the pre-impact barycenter call frag % set_mass_dist ( colliders , param ) ! Generate the position and velocity distributions of the fragments call frag % generate_fragments ( colliders , system , param , lfailure ) if ( lfailure ) then call fraggle_io_log_one_message ( \"No fragment solution found, so treat as a pure hit-and-run\" ) status = ACTIVE nfrag = 0 select type ( pl => system % pl ) class is ( symba_pl ) pl % status ( colliders % idx (:)) = status pl % ldiscard ( colliders % idx (:)) = . false . pl % lcollision ( colliders % idx (:)) = . false . end select else ! Populate the list of new bodies nfrag = frag % nbody write ( message , * ) nfrag call fraggle_io_log_one_message ( \"Generating \" // trim ( adjustl ( message )) // \" fragments\" ) select case ( frag % regime ) case ( COLLRESOLVE_REGIME_DISRUPTION ) status = DISRUPTION case ( COLLRESOLVE_REGIME_SUPERCATASTROPHIC ) status = SUPERCATASTROPHIC end select frag % id ( 1 : nfrag ) = [( i , i = param % maxid + 1 , param % maxid + nfrag )] param % maxid = frag % id ( nfrag ) call symba_collision_mergeaddsub ( system , param , colliders , frag , status ) end if return end function symba_collision_casedisruption module function symba_collision_casehitandrun ( system , param , colliders , frag ) 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object ! Result integer ( I4B ) :: status !! Status flag assigned to this outcom ! Internals integer ( I4B ) :: i , ibiggest , nfrag , jtarg , jproj logical :: lpure character ( len = STRMAX ) :: message character ( len = NAMELEN ) :: idstr message = \"Hit and run between\" call symba_collision_collider_message ( system % pl , colliders % idx , message ) call fraggle_io_log_one_message ( trim ( adjustl ( message ))) if ( colliders % mass ( 1 ) > colliders % mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if if ( frag % mass_dist ( 2 ) > 0.9_DP * colliders % mass ( jproj )) then ! Pure hit and run, so we'll just keep the two bodies untouched call fraggle_io_log_one_message ( \"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 lpure = . false . call frag % set_mass_dist ( colliders , param ) ! Generate the position and velocity distributions of the fragments call frag % generate_fragments ( colliders , system , param , lpure ) if ( lpure ) then call fraggle_io_log_one_message ( \"Should have been a pure hit and run instead\" ) nfrag = 0 else nfrag = frag % nbody write ( message , * ) nfrag call fraggle_io_log_one_message ( \"Generating \" // trim ( adjustl ( message )) // \" fragments\" ) end if end if if ( lpure ) then ! Reset these bodies back to being active so that nothing further is done to them status = HIT_AND_RUN_PURE select type ( pl => system % pl ) class is ( symba_pl ) pl % status ( colliders % idx (:)) = ACTIVE pl % ldiscard ( colliders % idx (:)) = . false . pl % lcollision ( colliders % idx (:)) = . false . end select else ibiggest = colliders % idx ( maxloc ( system % pl % Gmass ( colliders % idx (:)), dim = 1 )) frag % id ( 1 ) = system % pl % id ( ibiggest ) frag % id ( 2 : nfrag ) = [( i , i = param % maxid + 1 , param % maxid + nfrag - 1 )] param % maxid = frag % id ( nfrag ) status = HIT_AND_RUN_DISRUPT call symba_collision_mergeaddsub ( system , param , colliders , frag , status ) end if return end function symba_collision_casehitandrun module function symba_collision_casemerge ( system , param , colliders , frag ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Merge massive bodies. !! !! 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , j , k , ibiggest real ( DP ), dimension ( 2 ) :: volume , density real ( DP ) :: pe real ( DP ), dimension ( NDIM ) :: L_spin_new character ( len = NAMELEN ) :: idstr character ( len = STRMAX ) :: message message = \"Merging\" call symba_collision_collider_message ( system % pl , colliders % idx , message ) call fraggle_io_log_one_message ( message ) select type ( pl => system % pl ) class is ( symba_pl ) call frag % set_mass_dist ( colliders , param ) ibiggest = colliders % idx ( maxloc ( pl % Gmass ( colliders % idx (:)), dim = 1 )) frag % id ( 1 ) = pl % id ( ibiggest ) frag % xb (:, 1 ) = frag % xbcom (:) frag % vb (:, 1 ) = frag % vbcom (:) if ( param % lrotation ) then ! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body L_spin_new (:) = colliders % L_orbit (:, 1 ) + colliders % L_orbit (:, 2 ) + colliders % L_spin (:, 1 ) + colliders % L_spin (:, 2 ) ! Assume prinicpal axis rotation on 3rd Ip axis frag % rot (:, 1 ) = L_spin_new (:) / ( frag % Ip ( 3 , 1 ) * frag % mass ( 1 ) * frag % radius ( 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 param % Lescape (:) = param % Lescape (:) + colliders % L_orbit (:, 1 ) + colliders % L_orbit (:, 2 ) end if ! Keep track of the component of potential energy due to the pre-impact colliders%idx for book-keeping pe = 0.0_DP do j = 1 , colliders % ncoll do i = j + 1 , colliders % ncoll pe = pe - pl % Gmass ( i ) * pl % mass ( j ) / norm2 ( pl % xb (:, i ) - pl % xb (:, j )) end do end do param % Ecollisions = param % Ecollisions + pe param % Euntracked = param % Euntracked - pe ! Update any encounter lists that have the removed bodies in them so that they instead point to the new do k = 1 , system % plplenc_list % nenc do j = 1 , colliders % ncoll i = colliders % idx ( j ) if ( i == ibiggest ) cycle if ( system % plplenc_list % id1 ( k ) == pl % id ( i )) then system % plplenc_list % id1 ( k ) = pl % id ( ibiggest ) system % plplenc_list % index1 ( k ) = i end if if ( system % plplenc_list % id2 ( k ) == pl % id ( i )) then system % plplenc_list % id2 ( k ) = pl % id ( ibiggest ) system % plplenc_list % index2 ( k ) = i end if if ( system % plplenc_list % id1 ( k ) == system % plplenc_list % id2 ( k )) system % plplenc_list % status ( k ) = INACTIVE end do end do status = MERGED call symba_collision_mergeaddsub ( system , param , colliders , frag , status ) end select return end function symba_collision_casemerge subroutine symba_collision_collider_message ( pl , collidx , collider_message ) !! author: David A. Minton !! !! Prints a nicely formatted message about which bodies collided, including their names and ids. !! This subroutine appends the body names and ids to an input message. implicit none ! Arguments class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object integer ( I4B ), dimension (:), intent ( in ) :: collidx !! Index of collisional colliders%idx members character ( * ), intent ( inout ) :: collider_message !! The message to print to the screen. ! Internals integer ( I4B ) :: i , n character ( len = STRMAX ) :: idstr n = size ( collidx ) if ( n == 0 ) return do i = 1 , n if ( i > 1 ) collider_message = trim ( adjustl ( collider_message )) // \" and \" collider_message = \" \" // trim ( adjustl ( collider_message )) // \" \" // trim ( adjustl ( pl % info ( collidx ( i ))% name )) write ( idstr , '(I10)' ) pl % id ( collidx ( i )) collider_message = trim ( adjustl ( collider_message )) // \" (\" // trim ( adjustl ( idstr )) // \") \" end do return end subroutine symba_collision_collider_message module function symba_collision_check_encounter ( self , system , param , t , dt , irec ) result ( lany_collision ) !! 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_encounter ), 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 ! Result logical :: lany_collision !! Returns true if cany pair of encounters resulted in a collision ! Internals logical , dimension (:), allocatable :: lcollision , lmask real ( DP ), dimension ( NDIM ) :: xr , vr integer ( I4B ) :: i , j , k , nenc real ( DP ) :: rlim , Gmtot logical :: isplpl character ( len = STRMAX ) :: timestr , idstri , idstrj , message lany_collision = . false . 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 ) nenc = self % nenc nenc = self % nenc allocate ( lmask ( nenc )) lmask (:) = (( self % status ( 1 : nenc ) == ACTIVE ) . and . ( pl % levelg ( self % index1 ( 1 : nenc )) >= irec )) if ( isplpl ) then lmask (:) = lmask (:) . and . ( pl % levelg ( self % index2 ( 1 : nenc )) >= irec ) else lmask (:) = lmask (:) . and . ( tp % levelg ( self % index2 ( 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 )) i = self % index1 ( k ) j = self % index2 ( k ) xr (:) = pl % xh (:, i ) - pl % xh (:, j ) vr (:) = pl % vb (:, i ) - pl % vb (:, j ) rlim = pl % radius ( i ) + pl % radius ( j ) Gmtot = pl % Gmass ( i ) + pl % Gmass ( j ) 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 )) i = self % index1 ( k ) j = self % index2 ( k ) xr (:) = pl % xh (:, i ) - tp % xh (:, j ) vr (:) = pl % vb (:, i ) - tp % vb (:, j ) lcollision ( k ) = symba_collision_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % Gmass ( i ), pl % radius ( i ), dt , self % lvdotr ( k )) end do end if if ( any ( lcollision ( 1 : nenc ))) call pl % xh2xb ( system % cb ) ! Update the central body barycenteric position vector to get us out of DH and into bary do k = 1 , nenc i = self % index1 ( k ) j = self % index2 ( k ) if ( lcollision ( k )) self % status ( k ) = COLLISION self % t ( k ) = t self % x1 (:, k ) = pl % xh (:, i ) + system % cb % xb (:) self % v1 (:, k ) = pl % vb (:, i ) if ( isplpl ) then self % x2 (:, k ) = pl % xh (:, j ) + system % cb % xb (:) self % v2 (:, k ) = pl % vb (:, j ) if ( lcollision ( k )) then ! Check to see if either of these bodies has been involved with a collision before, and if so, make this a collisional colliders%idx if ( pl % lcollision ( i ) . or . pl % lcollision ( j )) call pl % make_colliders ([ i , j ]) ! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step pl % lcollision ([ i , j ]) = . true . pl % status ([ i , j ]) = COLLISION call pl % info ( i )% set_value ( status = \"COLLISION\" , discard_time = t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i )) call pl % info ( j )% set_value ( status = \"COLLISION\" , discard_time = t , discard_xh = pl % xh (:, j ), discard_vh = pl % vh (:, j )) end if else self % x2 (:, k ) = tp % xh (:, j ) + system % cb % xb (:) self % v2 (:, k ) = tp % vb (:, j ) if ( lcollision ( k )) then tp % status ( j ) = DISCARDED_PLR tp % ldiscard ( j ) = . true . write ( idstri , * ) pl % id ( i ) write ( idstrj , * ) tp % id ( j ) write ( timestr , * ) t call tp % info ( j )% set_value ( status = \"DISCARDED_PLR\" , discard_time = t , discard_xh = tp % xh (:, j ), discard_vh = tp % vh (:, j )) write ( message , * ) \"Particle \" // trim ( adjustl ( tp % info ( j )% name )) // \" (\" // trim ( adjustl ( idstrj )) // \")\" & // \" collided with massive body \" // trim ( adjustl ( pl % info ( i )% name )) // \" (\" // trim ( adjustl ( idstri )) // \")\" & // \" at t = \" // trim ( adjustl ( timestr )) call fraggle_io_log_one_message ( message ) end if end if end do end select end select lany_collision = any ( lcollision (:)) ! Extract the pl-pl encounter list and return the plplcollision_list if ( lany_collision ) then select type ( plplenc_list => self ) class is ( symba_plplenc ) call plplenc_list % extract_collisions ( system , param ) end select end if return end function symba_collision_check_encounter 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_colliders ( pl , cb , param , idx_parent , colliders ) result ( lflag ) !! author: David A. Minton !! !! Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx 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_cb ), intent ( inout ) :: cb !! SyMBA central 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 class ( fraggle_colliders ), intent ( out ) :: colliders ! Result logical :: lflag !! Logical flag indicating whether a colliders%idx was successfully created or not ! Internals type collidx_array integer ( I4B ), dimension (:), allocatable :: id integer ( I4B ), dimension (:), allocatable :: idx end type collidx_array type ( collidx_array ), dimension ( 2 ) :: parent_child_index_array integer ( I4B ), dimension ( 2 ) :: nchild integer ( I4B ) :: i , j , ncolliders , idx_child real ( DP ), dimension ( 2 ) :: volume , density real ( DP ) :: mchild , mtot , volchild real ( DP ), dimension ( NDIM ) :: xc , vc , xcom , vcom , xchild , vchild , xcrossv real ( DP ), dimension ( NDIM , 2 ) :: mxc , vcc 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 . call pl % reset_kinship ([ idx_parent ( 1 )]) 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 colliders % 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 colliders % radius (:) = pl % radius ( idx_parent (:)) volume (:) = ( 4.0_DP / 3.0_DP ) * PI * colliders % 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 \"colliders%idx\" index array ncolliders = 2 + sum ( nchild (:)) allocate ( colliders % idx ( ncolliders )) colliders % idx = [ parent_child_index_array ( 1 )% idx (:), parent_child_index_array ( 2 )% idx (:)] colliders % ncoll = count ( pl % lcollision ( colliders % idx (:))) colliders % idx = pack ( colliders % idx (:), pl % lcollision ( colliders % idx (:))) colliders % L_spin (:,:) = 0.0_DP colliders % Ip (:,:) = 0.0_DP ! Find the barycenter of each body along with its children, if it has any do j = 1 , 2 colliders % xb (:, j ) = pl % xh (:, idx_parent ( j )) + cb % xb (:) colliders % vb (:, j ) = pl % vb (:, idx_parent ( j )) ! Assume principal axis rotation about axis corresponding to highest moment of inertia (3rd Ip) if ( param % lrotation ) then colliders % Ip (:, j ) = colliders % mass ( j ) * pl % Ip (:, idx_parent ( j )) colliders % L_spin (:, j ) = colliders % Ip ( 3 , j ) * colliders % 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 % xh (:, idx_child ) + cb % xb (:) 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 (:) = ( colliders % mass ( j ) * colliders % xb (:, j ) + mchild * xchild (:)) / ( colliders % mass ( j ) + mchild ) vcom (:) = ( colliders % mass ( j ) * colliders % vb (:, j ) + mchild * vchild (:)) / ( colliders % mass ( j ) + mchild ) xc (:) = colliders % xb (:, j ) - xcom (:) vc (:) = colliders % vb (:, j ) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) colliders % L_spin (:, j ) = colliders % L_spin (:, j ) + colliders % mass ( j ) * xcrossv (:) xc (:) = xchild (:) - xcom (:) vc (:) = vchild (:) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) colliders % L_spin (:, j ) = colliders % L_spin (:, j ) + mchild * xcrossv (:) colliders % L_spin (:, j ) = colliders % L_spin (:, j ) + mchild * pl % Ip ( 3 , idx_child ) * pl % radius ( idx_child ) ** 2 * pl % rot (:, idx_child ) colliders % Ip (:, j ) = colliders % Ip (:, j ) + mchild * pl % Ip (:, idx_child ) end if ! Merge the child and parent colliders % mass ( j ) = colliders % mass ( j ) + mchild colliders % xb (:, j ) = xcom (:) colliders % vb (:, j ) = vcom (:) end do end if density ( j ) = colliders % mass ( j ) / volume ( j ) colliders % radius ( j ) = ( 3 * volume ( j ) / ( 4 * PI )) ** ( 1.0_DP / 3.0_DP ) if ( param % lrotation ) colliders % Ip (:, j ) = colliders % Ip (:, j ) / colliders % mass ( j ) xcom (:) = ( colliders % mass ( 1 ) * colliders % xb (:, 1 ) + colliders % mass ( 2 ) * colliders % xb (:, 2 )) / sum ( colliders % mass (:)) vcom (:) = ( colliders % mass ( 1 ) * colliders % vb (:, 1 ) + colliders % mass ( 2 ) * colliders % vb (:, 2 )) / sum ( colliders % mass (:)) mxc (:, 1 ) = colliders % mass ( 1 ) * ( colliders % xb (:, 1 ) - xcom (:)) mxc (:, 2 ) = colliders % mass ( 2 ) * ( colliders % xb (:, 2 ) - xcom (:)) vcc (:, 1 ) = colliders % vb (:, 1 ) - vcom (:) vcc (:, 2 ) = colliders % vb (:, 2 ) - vcom (:) colliders % L_orbit (:,:) = mxc (:,:) . cross . vcc (:,:) end do lflag = . true . ! Destroy the kinship relationships for all members of this colliders%idx call pl % reset_kinship ( colliders % idx (:)) return end function symba_collision_consolidate_colliders module subroutine symba_collision_encounter_extract_collisions ( 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 (:), allocatable :: 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 , nplplenc select type ( pl => system % pl ) class is ( symba_pl ) associate ( plplenc_list => self , idx1 => self % index1 , idx2 => self % index2 , plparent => pl % kin % parent ) nplplenc = plplenc_list % nenc allocate ( lplpl_collision ( nplplenc )) lplpl_collision (:) = plplenc_list % status ( 1 : nplplenc ) == COLLISION if (. not . any ( lplpl_collision )) return ! 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 . call plplenc_list % spill ( system % plplcollision_list , lplpl_collision , ldestructive = . true .) ! Extract any encounters that are not collisions from the list. end associate end select return end subroutine symba_collision_encounter_extract_collisions module subroutine symba_collision_make_colliders_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 colliders%idx. !! 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 call pl % reset_kinship ([ index_child ]) ! 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_colliders_pl subroutine symba_collision_mergeaddsub ( system , param , colliders , 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object integer ( I4B ), intent ( in ) :: status !! Status flag to assign to adds ! Internals integer ( I4B ) :: i , ibiggest , ismallest , iother , nstart , nend , ncolliders , nfrag logical , dimension ( system % pl % nbody ) :: lmask class ( symba_pl ), allocatable :: plnew , plsub character ( * ), parameter :: FRAGFMT = '(\"Newbody\",I0.7)' character ( len = NAMELEN ) :: newname character ( len = STRMAX ) :: message select type ( pl => system % pl ) class is ( symba_pl ) select type ( pl_discards => system % pl_discards ) class is ( symba_merger ) associate ( info => pl % info , pl_adds => system % pl_adds , cb => system % cb , npl => pl % nbody ) ! Add the colliders%idx bodies to the subtraction list ncolliders = colliders % ncoll nfrag = frag % nbody ! Setup new bodies allocate ( plnew , mold = pl ) call plnew % setup ( nfrag , param ) ibiggest = colliders % idx ( maxloc ( pl % Gmass ( colliders % idx (:)), dim = 1 )) ismallest = colliders % idx ( minloc ( pl % Gmass ( colliders % idx (:)), dim = 1 )) ! Copy over identification, information, and physical properties of the new bodies from the fragment list plnew % id ( 1 : nfrag ) = frag % id ( 1 : nfrag ) plnew % xb (:, 1 : nfrag ) = frag % xb (:, 1 : nfrag ) plnew % vb (:, 1 : nfrag ) = frag % vb (:, 1 : nfrag ) call pl % vb2vh ( cb ) call pl % xh2xb ( cb ) do i = 1 , nfrag plnew % xh (:, i ) = frag % xb (:, i ) - cb % xb (:) plnew % vh (:, i ) = frag % vb (:, i ) - cb % vb (:) end do plnew % mass ( 1 : nfrag ) = frag % mass ( 1 : nfrag ) plnew % Gmass ( 1 : nfrag ) = param % GU * frag % mass ( 1 : nfrag ) plnew % radius ( 1 : nfrag ) = frag % radius ( 1 : nfrag ) plnew % density ( 1 : nfrag ) = frag % mass ( 1 : nfrag ) / frag % radius ( 1 : nfrag ) call plnew % set_rhill ( cb ) select case ( status ) case ( DISRUPTION ) plnew % status ( 1 : nfrag ) = NEW_PARTICLE do i = 1 , nfrag write ( newname , FRAGFMT ) frag % id ( i ) call plnew % info ( i )% set_value ( origin_type = \"Disruption\" , origin_time = param % t , name = newname , origin_xh = plnew % xh (:, i ), origin_vh = plnew % vh (:, i )) end do do i = 1 , ncolliders if ( colliders % idx ( i ) == ibiggest ) then iother = ismallest else iother = ibiggest end if call pl % info ( colliders % idx ( i ))% set_value ( status = \"Disruption\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i ), discard_body_id = iother ) end do case ( SUPERCATASTROPHIC ) plnew % status ( 1 : nfrag ) = NEW_PARTICLE do i = 1 , nfrag write ( newname , FRAGFMT ) frag % id ( i ) call plnew % info ( i )% set_value ( origin_type = \"Supercatastrophic\" , origin_time = param % t , name = newname , origin_xh = plnew % xh (:, i ), origin_vh = plnew % vh (:, i )) end do do i = 1 , ncolliders if ( colliders % idx ( i ) == ibiggest ) then iother = ismallest else iother = ibiggest end if call pl % info ( colliders % idx ( i ))% set_value ( status = \"Supercatastrophic\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i ), discard_body_id = iother ) end do case ( HIT_AND_RUN_DISRUPT ) call plnew % info ( 1 )% copy ( pl % info ( ibiggest )) plnew % status ( 1 ) = OLD_PARTICLE do i = 2 , nfrag write ( newname , FRAGFMT ) frag % id ( i ) call plnew % info ( i )% set_value ( origin_type = \"Hit and run fragment\" , origin_time = param % t , name = newname , origin_xh = plnew % xh (:, i ), origin_vh = plnew % vh (:, i )) end do do i = 1 , ncolliders if ( colliders % idx ( i ) == ibiggest ) cycle iother = ibiggest call pl % info ( colliders % idx ( i ))% set_value ( status = \"Hit and run fragmention\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i ), discard_body_id = iother ) end do case ( MERGED ) call plnew % info ( 1 )% copy ( pl % info ( ibiggest )) plnew % status ( 1 ) = OLD_PARTICLE do i = 1 , ncolliders if ( colliders % idx ( i ) == ibiggest ) cycle iother = ibiggest call pl % info ( colliders % idx ( i ))% set_value ( status = \"MERGED\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i ), discard_body_id = iother ) end do end select if ( param % lrotation ) then plnew % Ip (:, 1 : nfrag ) = frag % Ip (:, 1 : nfrag ) plnew % rot (:, 1 : nfrag ) = frag % rot (:, 1 : nfrag ) end if if ( param % ltides ) then plnew % Q = pl % Q ( ibiggest ) plnew % k2 = pl % k2 ( ibiggest ) plnew % tlag = pl % tlag ( ibiggest ) end if !Copy over or set integration parameters for new bodies plnew % lcollision ( 1 : nfrag ) = . false . plnew % ldiscard ( 1 : nfrag ) = . false . plnew % levelg ( 1 : nfrag ) = pl % levelg ( ibiggest ) plnew % levelm ( 1 : nfrag ) = pl % levelm ( ibiggest ) ! Log the properties of the new bodies call fraggle_io_log_pl ( plnew , param ) ! Append the new merged body to the list nstart = pl_adds % nbody + 1 nend = pl_adds % nbody + nfrag call pl_adds % append ( plnew , lsource_mask = [(. true ., i = 1 , nfrag )]) ! Record how many bodies were added in this event pl_adds % ncomp ( nstart : nend ) = plnew % nbody ! Add the discarded bodies to the discard list pl % status ( colliders % idx (:)) = MERGED pl % ldiscard ( colliders % idx (:)) = . true . pl % lcollision ( colliders % idx (:)) = . true . lmask (:) = . false . lmask ( colliders % idx (:)) = . true . call plnew % setup ( 0 , param ) deallocate ( plnew ) allocate ( plsub , mold = pl ) call pl % spill ( plsub , lmask , ldestructive = . false .) nstart = pl_discards % nbody + 1 nend = pl_discards % nbody + ncolliders call pl_discards % append ( plsub , lsource_mask = [(. true ., i = 1 , ncolliders )]) ! Record how many bodies were subtracted in this event pl_discards % ncomp ( nstart : nend ) = ncolliders call plsub % setup ( 0 , param ) deallocate ( plsub ) end associate end select end select return end subroutine symba_collision_mergeaddsub 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions ! Internals ! Internals 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 type ( fraggle_colliders ) :: colliders !! Fraggle colliders object type ( fraggle_fragments ) :: frag !! Fraggle fragmentation system object associate ( plplcollision_list => self , ncollisions => self % nenc , idx1 => self % index1 , idx2 => self % index2 ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( cb => system % cb ) class is ( symba_cb ) do i = 1 , ncollisions idx_parent ( 1 ) = pl % kin ( idx1 ( i ))% parent idx_parent ( 2 ) = pl % kin ( idx2 ( i ))% parent lgoodcollision = symba_collision_consolidate_colliders ( pl , cb , param , idx_parent , colliders ) if ((. not . lgoodcollision ) . or . any ( pl % status ( idx_parent (:)) /= COLLISION )) cycle call colliders % regime ( frag , system , param ) select case ( frag % regime ) case ( COLLRESOLVE_REGIME_DISRUPTION , COLLRESOLVE_REGIME_SUPERCATASTROPHIC ) plplcollision_list % status ( i ) = symba_collision_casedisruption ( system , param , colliders , frag ) case ( COLLRESOLVE_REGIME_HIT_AND_RUN ) plplcollision_list % status ( i ) = symba_collision_casehitandrun ( system , param , colliders , frag ) case ( COLLRESOLVE_REGIME_MERGE , COLLRESOLVE_REGIME_GRAZE_AND_MERGE ) plplcollision_list % status ( i ) = symba_collision_casemerge ( system , param , colliders , frag ) case default write ( * , * ) \"Error in symba_collision, unrecognized collision regime\" call util_exit ( FAILURE ) end select end do end select 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions ! Internals 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 type ( fraggle_colliders ) :: colliders !! Fraggle colliders object type ( fraggle_fragments ) :: frag !! Fraggle fragmentation system object associate ( plplcollision_list => self , ncollisions => self % nenc , idx1 => self % index1 , idx2 => self % index2 ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( cb => system % cb ) class is ( symba_cb ) do i = 1 , ncollisions idx_parent ( 1 ) = pl % kin ( idx1 ( i ))% parent idx_parent ( 2 ) = pl % kin ( idx2 ( i ))% parent lgoodcollision = symba_collision_consolidate_colliders ( pl , cb , param , idx_parent , colliders ) if (. not . lgoodcollision ) cycle if ( any ( pl % status ( idx_parent (:)) /= COLLISION )) cycle ! One of these two bodies has already been resolved frag % regime = COLLRESOLVE_REGIME_MERGE frag % mtot = sum ( colliders % mass (:)) frag % xbcom (:) = ( colliders % mass ( 1 ) * colliders % xb (:, 1 ) + colliders % mass ( 2 ) * colliders % xb (:, 2 )) / frag % mtot frag % vbcom (:) = ( colliders % mass ( 1 ) * colliders % vb (:, 1 ) + colliders % mass ( 2 ) * colliders % vb (:, 2 )) / frag % mtot plplcollision_list % status ( i ) = symba_collision_casemerge ( system , param , colliders , frag ) end do end select end select end associate return end subroutine symba_collision_resolve_mergers module subroutine symba_collision_resolve_plplenc ( self , system , param , t , dt , irec ) !! author: David A. Minton !! !! Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current simulation step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Internals real ( DP ) :: Eorbit_before , Eorbit_after logical :: lplpl_collision character ( len = STRMAX ) :: timestr class ( symba_parameters ), allocatable :: tmp_param associate ( plplenc_list => self , plplcollision_list => system % plplcollision_list ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( param ) class is ( symba_parameters ) if ( plplcollision_list % nenc == 0 ) return ! No collisions to resolve ! Make sure that the heliocentric and barycentric coordinates are consistent with each other call pl % vb2vh ( system % cb ) call pl % xh2xb ( system % cb ) ! Get the energy before the collision is resolved if ( param % lenergy ) then call system % get_energy_and_momentum ( param ) Eorbit_before = system % te end if do write ( timestr , * ) t call fraggle_io_log_one_message ( \"\" ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( \"Collision between massive bodies detected at time t = \" // trim ( adjustl ( timestr ))) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) allocate ( tmp_param , source = param ) tmp_param % t = t if ( param % lfragmentation ) then call plplcollision_list % resolve_fragmentations ( system , param ) else call plplcollision_list % resolve_mergers ( system , param ) end if ! Destroy the collision list now that the collisions are resolved call plplcollision_list % setup ( 0 ) if (( system % pl_adds % nbody == 0 ) . and . ( system % pl_discards % nbody == 0 )) exit ! Save the add/discard information to file call system % write_discard ( tmp_param ) ! Rearrange the arrays: Remove discarded bodies, add any new bodies, resort, and recompute all indices and encounter lists call pl % rearray ( system , tmp_param ) ! Destroy the add/discard list so that we don't append the same body multiple times if another collision is detected call system % pl_discards % setup ( 0 , param ) call system % pl_adds % setup ( 0 , param ) deallocate ( tmp_param ) ! Check whether or not any of the particles that were just added are themselves in a collision state. This will generate a new plplcollision_list lplpl_collision = plplenc_list % collision_check ( system , param , t , dt , irec ) if (. not . lplpl_collision ) exit end do if ( param % lenergy ) then call system % get_energy_and_momentum ( param ) Eorbit_after = system % te param % Ecollisions = param % Ecollisions + ( Eorbit_after - Eorbit_before ) end if end select end select end associate return end subroutine symba_collision_resolve_plplenc module subroutine symba_collision_resolve_pltpenc ( self , system , param , t , dt , irec ) !! author: David A. Minton !! !! Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision !! implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters with SyMBA additions real ( DP ), intent ( in ) :: t !! Current simulation tim real ( DP ), intent ( in ) :: dt !! Current simulation step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level call system % tp % xh2xb ( system % cb ) call system % tp % discard ( system , param ) return end subroutine symba_collision_resolve_pltpenc 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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 helio_setup_initialize_system ( system , param ) call system % pltpenc_list % setup ( 0 ) call system % plplenc_list % setup ( 0 ) call system % plplcollision_list % setup ( 0 ) 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 ) if ( n == 0 ) return 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 ( n == 0 ) return 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 )) 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 call self % reset_kinship ([( i , i = 1 , n )]) return end subroutine symba_setup_pl module subroutine symba_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 ( symba_encounter ), 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 ) if ( n == 0 ) return allocate ( self % level ( n )) self % level (:) = - 1 return end subroutine symba_setup_encounter 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 ) if ( n == 0 ) return 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~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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_int_pl ( self ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY !! !! Adapted from Hal Levison's Swift routine symba5_helio_getacch.f !! Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_int.f90 implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self call kick_getacch_int_all_pl ( self % nbody , self % nplplm , self % k_plpl , self % xh , self % Gmass , self % radius , self % ah ) return end subroutine symba_kick_getacch_int_pl 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 ) :: i , j integer ( I8B ) :: k , nplplenc real ( DP ) :: rjj , rlim2 , xr , yr , zr real ( DP ), dimension ( NDIM , self % nbody ) :: ah_enc integer ( I4B ), dimension (:,:), allocatable :: k_plpl_enc if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) associate ( pl => self , npl => self % nbody , plplenc_list => system % plplenc_list , radius => self % radius ) ! Apply kicks to all bodies (including those in the encounter list) call helio_kick_getacch_pl ( pl , system , param , t , lbeg ) ! Remove kicks from bodies involved currently in the encounter list, as these are dealt with separately. nplplenc = int ( plplenc_list % nenc , kind = I8B ) allocate ( k_plpl_enc ( 2 , nplplenc )) k_plpl_enc (:, 1 : nplplenc ) = pl % k_plpl (:, plplenc_list % kidx ( 1 : nplplenc )) ah_enc (:,:) = 0.0_DP call kick_getacch_int_all_pl ( npl , nplplenc , k_plpl_enc , pl % xh , pl % Gmass , pl % radius , ah_enc ) pl % ah (:, 1 : npl ) = pl % ah (:, 1 : npl ) - ah_enc (:, 1 : npl ) 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 ) :: i , j , k real ( DP ) :: rjj , 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 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 rjj = dot_product ( dx (:), dx (:)) fac = pl % Gmass ( i ) / ( rjj * sqrt ( rjj )) tp % ah (:, j ) = tp % ah (:, j ) + fac * dx (:) end IF end do end associate end select return end subroutine symba_kick_getacch_tp module subroutine symba_kick_encounter ( 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_encounter ), 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 ) :: i , j , irm1 , irecl , ngood integer ( I8B ) :: k real ( DP ) :: r , rr , ri , ris , rim1 , r2 , ir3 , fac , faci , facj real ( DP ), dimension ( NDIM ) :: dx logical :: isplpl logical , dimension (:), allocatable :: lgoodlevel integer ( I4B ), dimension (:), allocatable :: good_idx 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 ( npl => pl % nbody , ntp => tp % nbody , nenc => self % nenc ) if ( npl > 0 ) pl % lmask ( 1 : npl ) = pl % status ( 1 : npl ) /= INACTIVE if ( ntp > 0 ) tp % lmask ( 1 : ntp ) = tp % status ( 1 : ntp ) /= INACTIVE allocate ( lgoodlevel ( nenc )) irm1 = irec - 1 if ( sgn < 0 ) then irecl = irec - 1 else irecl = irec end if do k = 1 , nenc i = self % index1 ( k ) j = self % index2 ( k ) if ( isplpl ) then lgoodlevel ( k ) = ( pl % levelg ( i ) >= irm1 ) . and . ( pl % levelg ( j ) >= irm1 ) else lgoodlevel ( k ) = ( pl % levelg ( i ) >= irm1 ) . and . ( tp % levelg ( j ) >= irm1 ) end if lgoodlevel ( k ) = ( self % status ( k ) == ACTIVE ) . and . lgoodlevel ( k ) end do ngood = count ( lgoodlevel (:)) if ( ngood > 0_I8B ) then allocate ( good_idx ( ngood )) good_idx (:) = pack ([( i , i = 1 , nenc )], lgoodlevel (:)) if ( isplpl ) then do concurrent ( k = 1 : ngood ) i = self % index1 ( good_idx ( k )) j = self % index2 ( good_idx ( k )) pl % ah (:, i ) = 0.0_DP pl % ah (:, j ) = 0.0_DP end do else do concurrent ( k = 1_I8B : ngood ) j = self % index2 ( good_idx ( k )) tp % ah (:, j ) = 0.0_DP end do end if do k = 1 , ngood i = self % index1 ( good_idx ( k )) j = self % index2 ( good_idx ( k )) if ( isplpl ) then ri = (( pl % rhill ( i ) + pl % rhill ( j )) ** 2 ) * ( RHSCALE ** 2 ) * ( RSHELL ** ( 2 * irecl )) rim1 = ri * ( RSHELL ** 2 ) dx (:) = pl % xh (:, j ) - pl % xh (:, i ) else ri = (( pl % rhill ( i )) ** 2 ) * ( RHSCALE ** 2 ) * ( RSHELL ** ( 2 * irecl )) rim1 = ri * ( RSHELL ** 2 ) dx (:) = tp % xh (:, j ) - pl % xh (:, i ) end if r2 = dot_product ( dx (:), dx (:)) if ( r2 < rim1 ) then fac = 0.0_DP lgoodlevel ( good_idx ( k )) = . false . cycle end if 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 ( i ) if ( isplpl ) then facj = fac * pl % Gmass ( j ) pl % ah (:, i ) = pl % ah (:, i ) + facj * dx (:) pl % ah (:, j ) = pl % ah (:, j ) - faci * dx (:) else tp % ah (:, j ) = tp % ah (:, j ) - faci * dx (:) end if end do ngood = count ( lgoodlevel (:)) if ( ngood == 0_I8B ) return good_idx ( 1 : ngood ) = pack ([( i , i = 1 , nenc )], lgoodlevel (:)) if ( isplpl ) then do k = 1 , ngood i = self % index1 ( good_idx ( k )) j = self % index2 ( good_idx ( k )) pl % vb (:, i ) = pl % vb (:, i ) + sgn * dt * pl % ah (:, i ) pl % vb (:, j ) = pl % vb (:, j ) + sgn * dt * pl % ah (:, j ) pl % ah (:, i ) = 0.0_DP pl % ah (:, j ) = 0.0_DP end do else do k = 1 , ngood j = self % index2 ( good_idx ( k )) tp % vb (:, j ) = tp % vb (:, j ) + sgn * dt * tp % ah (:, j ) tp % ah (:, j ) = 0.0_DP end do end if end if end associate end select end select return end subroutine symba_kick_encounter end submodule s_symba_kick","tags":"","loc":"sourcefile/symba_kick.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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 subroutine symba_encounter_check_all ( nplplm , k_plpl , x , v , rhill , dt , irec , lencounter , loc_lvdotr ) !! author: David A. Minton !! !! Check for encounters between massive bodies. Split off from the main subroutine for performance implicit none integer ( I8B ), intent ( in ) :: nplplm integer ( I4B ), dimension (:,:), intent ( in ) :: k_plpl real ( DP ), dimension (:,:), intent ( in ) :: x , v real ( DP ), dimension (:), intent ( in ) :: rhill real ( DP ), intent ( in ) :: dt integer ( I4B ), intent ( in ) :: irec logical , dimension (:), intent ( out ) :: lencounter , loc_lvdotr ! Internals integer ( I8B ) :: k integer ( I4B ) :: i , j real ( DP ) :: xr , yr , zr , vxr , vyr , vzr , rhill1 , rhill2 !$omp parallel do default(private)& !$omp shared(nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr) do k = 1_I8B , nplplm i = k_plpl ( 1 , k ) j = k_plpl ( 2 , k ) xr = x ( 1 , j ) - x ( 1 , i ) yr = x ( 2 , j ) - x ( 2 , i ) zr = x ( 3 , j ) - x ( 3 , i ) vxr = v ( 1 , j ) - v ( 1 , i ) vyr = v ( 2 , j ) - v ( 2 , i ) vzr = v ( 3 , j ) - v ( 3 , i ) rhill1 = rhill ( i ) rhill2 = rhill ( j ) lencounter ( k ) = . false . loc_lvdotr ( k ) = . false . call symba_encounter_check_one ( xr , yr , zr , vxr , vyr , vzr , rhill1 , rhill2 , dt , irec , lencounter ( k ), loc_lvdotr ( k )) end do !$omp end parallel do return end subroutine symba_encounter_check_all 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 , nplplm integer ( I4B ) :: i , j , nenc logical , dimension (:), allocatable :: lencounter , loc_lvdotr if ( self % nbody == 0 ) return associate ( pl => self ) nplplm = pl % nplplm allocate ( lencounter ( nplplm )) allocate ( loc_lvdotr ( nplplm )) call symba_encounter_check_all ( nplplm , pl % k_plpl , pl % xh , pl % vh , pl % rhill , dt , irec , lencounter , loc_lvdotr ) !$omp parallel workshare nenc = count ( lencounter (:)) !$omp end parallel workshare 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 ( 1 : nplplm ), lencounter ( 1 : nplplm )) plplenc_list % kidx ( 1 : nenc ) = pack ([( k , k = 1_I8B , nplplm )], lencounter ( 1 : nplplm )) deallocate ( lencounter , loc_lvdotr ) plplenc_list % index1 ( 1 : nenc ) = pl % k_plpl ( 1 , plplenc_list % kidx ( 1 : nenc )) plplenc_list % index2 ( 1 : nenc ) = pl % k_plpl ( 2 , plplenc_list % kidx ( 1 : nenc )) plplenc_list % id1 ( 1 : nenc ) = pl % id ( plplenc_list % index1 ( 1 : nenc )) plplenc_list % id2 ( 1 : nenc ) = pl % id ( plplenc_list % index2 ( 1 : nenc )) do k = 1 , nenc i = plplenc_list % index1 ( k ) j = plplenc_list % index2 ( k ) plplenc_list % status ( k ) = ACTIVE plplenc_list % level ( k ) = irec pl % lencounter ( i ) = . true . pl % lencounter ( j ) = . true . pl % levelg ( i ) = irec pl % levelm ( i ) = irec pl % levelg ( j ) = irec pl % levelm ( j ) = irec pl % nplenc ( i ) = pl % nplenc ( i ) + 1 pl % nplenc ( j ) = pl % nplenc ( j ) + 1 end do end associate end if end associate return end function symba_encounter_check_pl module function symba_encounter_check ( 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_encounter ), 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 ) :: i , j , 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 do concurrent ( k = 1 : self % nenc , lencmask ( k )) i = self % index1 ( k ) j = self % index2 ( k ) if ( isplpl ) then xr (:) = pl % xh (:, j ) - pl % xh (:, i ) vr (:) = pl % vb (:, j ) - pl % vb (:, 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 , self % lvdotr ( k )) else xr (:) = tp % xh (:, j ) - pl % xh (:, i ) vr (:) = tp % vb (:, j ) - pl % vb (:, i ) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( i ), 0.0_DP , dt , irec , lencounter , self % lvdotr ( k )) end if if ( lencounter ) then if ( isplpl ) then rlim2 = ( pl % radius ( i ) + pl % radius ( j )) ** 2 else rlim2 = ( pl % radius ( i )) ** 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 ( i ) = irec pl % levelm ( i ) = MAX ( irec , pl % levelm ( i )) if ( isplpl ) then pl % levelg ( j ) = irec pl % levelm ( j ) = MAX ( irec , pl % levelm ( j )) else tp % levelg ( j ) = irec tp % levelm ( j ) = MAX ( irec , tp % levelm ( j )) end if self % level ( k ) = irec end if end if end do end select end select return end function symba_encounter_check 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 , plind , tpind 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 ( 1 : ntp , 1 : npl ), lencounter ( 1 : ntp , 1 : npl )) pltpenc_list % index1 ( 1 : nenc ) = pack ( spread ([( i , i = 1 , npl )], dim = 1 , ncopies = ntp ), lencounter ( 1 : ntp , 1 : npl )) pltpenc_list % index2 ( 1 : nenc ) = pack ( spread ([( i , i = 1 , ntp )], dim = 2 , ncopies = npl ), lencounter ( 1 : ntp , 1 : npl )) pltpenc_list % id1 ( 1 : nenc ) = pl % id ( pltpenc_list % index1 ( 1 : nenc )) pltpenc_list % id2 ( 1 : nenc ) = tp % id ( pltpenc_list % index2 ( 1 : nenc )) select type ( pl ) class is ( symba_pl ) pl % lencounter ( 1 : npl ) = . false . do k = 1 , nenc plind = pltpenc_list % index1 ( k ) tpind = pltpenc_list % index2 ( k ) pl % lencounter ( plind ) = . true . pl % levelg ( plind ) = irec pl % levelm ( plind ) = irec tp % levelg ( tpind ) = irec tp % levelm ( tpind ) = irec pl % ntpenc ( plind ) = pl % ntpenc ( plind ) + 1 tp % nplenc ( tpind ) = tp % nplenc ( tpind ) + 1 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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_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 , err = 667 , iomsg = iomsg ) 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 ( \"GMTINY\" ) read ( param_value , * ) param % GMTINY case ( \"MIN_GMFRAG\" ) read ( param_value , * ) param % min_GMfrag 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 + 2 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 + 2 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 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 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 (:) if ( param % min_GMfrag < 0.0_DP ) param % min_GMfrag = param % GMTINY write ( * , * ) \"MIN_GMFRAG      = \" , self % min_GMfrag end if if (. not . self % lclose ) then write ( iomsg , * ) 'This integrator requires CHK_CLOSE to be enabled.' iostat = - 1 return end if ! All reporting of collision information in SyMBA (including mergers) is now recorded in the Fraggle logfile call fraggle_io_log_start ( param ) end associate iostat = 0 667 continue 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 = NAMELEN ) :: param_name character ( len = STRMAX ) :: param_value type character_array character ( 25 ) :: value end type character_array type ( character_array ), dimension (:), allocatable :: param_array integer ( I4B ) :: i , nstr 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 , * ) \"GMTINY\" ; write ( param_value , Rfmt ) param % GMTINY ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"MIN_GMFRAG\" ; write ( param_value , Rfmt ) param % min_GMfrag ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) write ( param_name , * ) \"FRAGMENTATION\" ; write ( param_value , Lfmt ) param % lfragmentation ; write ( unit , * , err = 667 , iomsg = iomsg ) adjustl ( param_name ) // trim ( adjustl ( param_value )) if ( param % lfragmentation ) then write ( param_name , * ) \"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 , '(\" \",A32)' , advance = 'no' , err = 667 , iomsg = iomsg ) adjustl ( param_name ) do i = 0 , size ( param % seed ) nstr = len ( trim ( adjustl ( param_array ( i )% value ))) if ( i < size ( param % seed )) then write ( unit , '(A12)' , advance = 'no' , err = 667 , iomsg = iomsg ) trim ( adjustl ( param_array ( i )% value )) // \" \" else write ( unit , '(A12)' , err = 667 , iomsg = iomsg ) trim ( adjustl ( param_array ( i )% value )) end if end do end if iostat = 0 end associate return 667 continue write ( * , * ) \"Error writing parameter file for SyMBA: \" // trim ( adjustl ( iomsg )) end subroutine symba_io_param_writer 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 ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 40 integer ( I4B ) :: iadd , isub , j , 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 character ( STRMAX ) :: errmsg , out_stat 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 ! Record the discarded body metadata information to file if (( param % out_type == NETCDF_FLOAT_TYPE ) . or . ( param % out_type == NETCDF_DOUBLE_TYPE )) then call param % nciu % open ( param ) call pl_discards % write_particle_info ( param % nciu ) call param % nciu % close ( param ) end if if ( param % discard_out == \"\" ) return if ( lfirst ) then out_stat = param % out_stat else out_stat = 'APPEND' end if select case ( out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % discard_out , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = LUN , file = param % discard_out , status = param % out_stat , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) 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 , err = 667 , iomsg = errmsg ) 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 , err = 667 , iomsg = errmsg ) ADD , pl_adds % id ( iadd ), pl_adds % status ( iadd ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) pl_adds % xh ( 1 , iadd ), pl_adds % xh ( 2 , iadd ), pl_adds % xh ( 3 , iadd ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) 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 , err = 667 , iomsg = errmsg ) SUB , pl_discards % id ( isub ), pl_discards % status ( isub ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) pl_discards % xh ( 1 , isub ), pl_discards % xh ( 2 , isub ), pl_discards % xh ( 3 , isub ) write ( LUN , VECFMT , err = 667 , iomsg = errmsg ) 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 667 continue write ( * , * ) \"Error writing discard file: \" // trim ( adjustl ( errmsg )) call util_exit ( FAILURE ) 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~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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 character ( len = STRMAX ) :: idstr , timestr , message 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 ( idstr , * ) pl % id ( i ) write ( timestr , * ) param % t write ( message , * ) trim ( adjustl ( pl % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" too far from the central body at t = \" // trim ( adjustl ( timestr )) call fraggle_io_log_one_message ( \"\" ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( message ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( \"\" ) call pl % info ( i )% set_value ( status = \"DISCARDED_RMAX\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i )) 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 ( idstr , * ) pl % id ( i ) write ( timestr , * ) param % t write ( message , * ) trim ( adjustl ( pl % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" too close to the central body at t = \" // trim ( adjustl ( timestr )) call fraggle_io_log_one_message ( \"\" ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( message ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( \"\" ) call pl % info ( i )% set_value ( status = \"DISCARDED_RMIN\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i ), discard_body_id = cb % id ) 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 ( idstr , * ) pl % id ( i ) write ( timestr , * ) param % t write ( message , * ) trim ( adjustl ( pl % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \")\" // \" is unbound and too far from barycenter at t = \" // trim ( adjustl ( timestr )) call fraggle_io_log_one_message ( \"\" ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( message ) call fraggle_io_log_one_message ( \"***********************************************************************************************************************\" ) call fraggle_io_log_one_message ( \"\" ) call pl % info ( i )% set_value ( status = \"DISCARDED_RMAXU\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i )) 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 % Gmass * 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 param % GMescape = param % GMescape + pl % Gmass ( ipl ) do i = 1 , pl % nbody if ( i == ipl ) cycle pe = pe - pl % Gmass ( 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 (:)) param % Lescape (:) = param % Lescape (:) + Ltot (:) if ( param % lrotation ) param % Lescape (:) = param % 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 % dGM = cb % dGM + pl % Gmass ( 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 % Gmass = cb % GM0 + cb % dGM cb % mass = cb % Gmass / param % GU 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 param % Ecollisions = param % Ecollisions + ke_orbit + ke_spin + pe param % Euntracked = param % Euntracked - ( ke_orbit + ke_spin + pe ) else param % Ecollisions = param % Ecollisions + pe param % Euntracked = param % 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 ! Internals logical , dimension ( pl % nbody ) :: ldiscard integer ( I4B ) :: i , nstart , nend , nsub class ( symba_pl ), allocatable :: plsub ! First check for collisions with the central body associate ( npl => pl % nbody , cb => system % cb ) if ( npl == 0 ) return select type ( pl_discards => system % pl_discards ) class is ( symba_merger ) 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 ) call symba_discard_peri_pl ( pl , system , param ) if ( any ( pl % ldiscard ( 1 : npl ))) then ldiscard ( 1 : npl ) = pl % ldiscard ( 1 : npl ) allocate ( plsub , mold = pl ) call pl % spill ( plsub , ldiscard , ldestructive = . false .) nsub = plsub % nbody nstart = pl_discards % nbody + 1 nend = pl_discards % nbody + nsub call pl_discards % append ( plsub , lsource_mask = [(. true ., i = 1 , nsub )]) ! Record how many bodies were subtracted in this event pl_discards % ncomp ( nstart : nend ) = nsub end if end select 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 character ( len = STRMAX ) :: timestr , idstr 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 ( timestr , * ) param % t write ( idstr , * ) pl % id ( i ) write ( * , * ) trim ( adjustl ( pl % info ( i )% name )) // \" (\" // trim ( adjustl ( idstr )) // \") perihelion distance too small at t = \" // trim ( adjustl ( timestr )) call pl % info ( i )% set_value ( status = \"DISCARDED_PERI\" , discard_time = param % t , discard_xh = pl % xh (:, i ), discard_vh = pl % vh (:, i ), discard_body_id = system % cb % id ) 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 colliding with the central body or escaping the system 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 , plplcollision_list => system % plplcollision_list ) call pl % vb2vh ( system % cb ) call pl % xh2xb ( system % cb ) call plplenc_list % write ( pl , pl , param ) call symba_discard_nonplpl ( self , system , param ) if (. not . any ( pl % ldiscard (:))) return 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 ) ! Save the add/discard information to file call system % write_discard ( param ) call pl % rearray ( system , param ) if ( param % lenergy ) then call system % get_energy_and_momentum ( param ) Eorbit_after = system % te param % Ecollisions = param % Ecollisions + ( Eorbit_after - Eorbit_before ) 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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) select type ( param ) class is ( symba_parameters ) call self % reset ( param ) lencounter = pl % encounter_check ( self , dt , 0 ) . or . tp % encounter_check ( self , dt , 0 ) if ( lencounter ) then call self % interp ( param , t , dt ) param % lfirstkick = . true . else self % irec = - 1 call helio_step_system ( self , param , t , dt ) end if end select 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 , npl => self % pl % nbody , ntp => self % tp % nbody ) select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) irecp = ireci + 1 if ( npl > 0 ) where ( pl % levelg ( 1 : npl ) == irecp ) pl % levelg ( 1 : npl ) = ireci if ( ntp > 0 ) where ( tp % levelg ( 1 : ntp ) == irecp ) tp % levelg ( 1 : ntp ) = ireci if ( plplenc_list % nenc > 0 ) where ( plplenc_list % level ( 1 : plplenc_list % nenc ) == irecp ) plplenc_list % level ( 1 : plplenc_list % nenc ) = ireci if ( pltpenc_list % nenc > 0 ) where ( pltpenc_list % level ( 1 : pltpenc_list % nenc ) == irecp ) pltpenc_list % level ( 1 : pltpenc_list % nenc ) = ireci 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 ), intent ( in ) :: t integer ( I4B ), intent ( in ) :: ireci !! input recursion level ! Internals integer ( I4B ) :: i , j , irecp , nloops real ( DP ) :: dtl , dth real ( DP ), dimension ( NDIM ) :: xr , vr logical :: lencounter , lplpl_collision , lpltp_collision 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 lplpl_collision = plplenc_list % collision_check ( system , param , t + dtl , dtl , ireci ) lpltp_collision = pltpenc_list % collision_check ( system , param , t + dtl , dtl , ireci ) if ( lplpl_collision ) call plplenc_list % resolve_collision ( system , param , t + dtl , dtl , ireci ) if ( lpltp_collision ) call pltpenc_list % resolve_collision ( 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 , param ) !! 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 class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions ! Internals integer ( I4B ) :: i , nenc_old associate ( system => self ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) associate ( npl => pl % nbody , ntp => tp % nbody ) if ( npl > 0 ) then pl % lcollision ( 1 : npl ) = . false . call pl % reset_kinship ([( i , i = 1 , npl )]) pl % nplenc ( 1 : npl ) = 0 pl % ntpenc ( 1 : npl ) = 0 pl % levelg ( 1 : npl ) = - 1 pl % levelm ( 1 : npl ) = - 1 pl % lencounter ( 1 : npl ) = . false . pl % lcollision ( 1 : npl ) = . false . pl % ldiscard ( 1 : npl ) = . false . pl % lmask ( 1 : npl ) = . true . nenc_old = system % plplenc_list % nenc call system % plplenc_list % setup ( 0 ) call system % plplenc_list % setup ( nenc_old ) system % plplenc_list % nenc = 0 call system % plplcollision_list % setup ( 0 ) end if if ( ntp > 0 ) then tp % nplenc ( 1 : ntp ) = 0 tp % levelg ( 1 : ntp ) = - 1 tp % levelm ( 1 : ntp ) = - 1 tp % lmask ( 1 : ntp ) = . true . tp % ldiscard ( 1 : npl ) = . false . nenc_old = system % pltpenc_list % nenc call system % pltpenc_list % setup ( 0 ) call system % pltpenc_list % setup ( nenc_old ) system % pltpenc_list % nenc = 0 end if call system % pl_adds % setup ( 0 , param ) call system % pl_discards % setup ( 0 , param ) tp % lfirst = param % lfirstkick pl % lfirst = param % lfirstkick end associate 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~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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 associate ( pl => self , npl => self % nbody ) select type ( system ) class is ( symba_nbody_system ) pl % lmask ( 1 : npl ) = pl % status ( 1 : npl ) /= INACTIVE . and . pl % levelg ( 1 : npl ) == system % irec call helio_drift_body ( pl , system , param , dt ) pl % lmask ( 1 : npl ) = pl % status ( 1 : npl ) /= INACTIVE end select end associate 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 associate ( tp => self , ntp => self % nbody ) select type ( system ) class is ( symba_nbody_system ) tp % lmask ( 1 : ntp ) = tp % status ( 1 : ntp ) /= INACTIVE . and . tp % levelg ( 1 : ntp ) == system % irec call helio_drift_body ( tp , system , param , dt ) tp % lmask ( 1 : ntp ) = tp % status ( 1 : ntp ) /= INACTIVE end select end associate return end subroutine symba_drift_tp end submodule s_symba_drift","tags":"","loc":"sourcefile/symba_drift.f90.html"},{"title":"orbel.f90 – swiftest","text":"This file depends on sourcefile~~orbel.f90~2~~EfferentGraph sourcefile~orbel.f90~2 orbel.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~orbel.f90~2->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~orbel.f90~2->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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 Modules orbel Source Code orbel.f90 Source Code module orbel use swiftest private public :: xv2el contains pure elemental subroutine xv2el ( mu , px , py , pz , vx , vy , vz , a , e , inc , capom , omega , capm ) use swiftest_classes , only : orbel_xv2el implicit none ! Arguments real * 8 , intent ( in ) :: mu , px , py , pz , vx , vy , vz real * 8 , intent ( out ) :: a , e , inc , capom , omega , capm !$f2py intent(in) mu !$f2py intent(in) px !$f2py intent(in) py !$f2py intent(in) pz !$f2py intent(in) vx !$f2py intent(in) vy !$f2py intent(in) vz !$f2py intent(out) a !$f2py intent(out) e !$f2py intent(out) inc !$f2py intent(out) capom !$f2py intent(out) omega !$f2py intent(out) capm ! Internals real * 8 , dimension ( 3 ) :: x , v x = [ px , py , pz ] v = [ vx , vy , vz ] call orbel_xv2el ( mu , x (:), v (:), a , e , inc , capom , omega , capm ) return end subroutine xv2el end module orbel","tags":"","loc":"sourcefile/orbel.f90~2.html"},{"title":"netcdf.f90 – swiftest","text":"This file depends on sourcefile~~netcdf.f90~~EfferentGraph sourcefile~netcdf.f90 netcdf.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~netcdf.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~netcdf.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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_netcdf Source Code netcdf.f90 Source Code submodule ( swiftest_classes ) s_netcdf use swiftest use netcdf contains subroutine check ( status ) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Checks the status of all NetCDF operations to catch errors implicit none ! Arguments integer , intent ( in ) :: status if ( status /= nf90_noerr ) then write ( * , * ) trim ( nf90_strerror ( status )) call util_exit ( FAILURE ) end if return end subroutine check module subroutine netcdf_close ( self , param ) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Closes a NetCDF file implicit none ! Arguments class ( netcdf_parameters ), intent ( inout ) :: self !! Parameters used to identify a particular NetCDF dataset class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters call check ( nf90_close ( self % ncid ) ) return end subroutine netcdf_close module subroutine netcdf_initialize_output ( self , param ) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Initialize a NetCDF file system and defines all variables. implicit none ! Arguments class ( netcdf_parameters ), intent ( inout ) :: self !! Parameters used to identify a particular NetCDF dataset class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical :: fileExists integer ( I4B ) :: old_mode !! Create the new output file, deleting any previously existing output file of the same name call check ( nf90_create ( param % outfile , NF90_NETCDF4 , self % ncid ) ) call check ( nf90_set_fill ( self % ncid , nf90_nofill , old_mode ) ) ! Define the NetCDF dimensions with particle name as the record dimension call check ( nf90_def_dim ( self % ncid , ID_DIMNAME , NF90_UNLIMITED , self % id_dimid ) ) ! 'x' dimension call check ( nf90_def_dim ( self % ncid , TIME_DIMNAME , NF90_UNLIMITED , self % time_dimid ) ) ! 'y' dimension call check ( nf90_def_dim ( self % ncid , STR_DIMNAME , NAMELEN , self % str_dimid ) ) ! Dimension for string variables (aka character arrays) select case ( param % out_type ) case ( NETCDF_FLOAT_TYPE ) self % out_type = NF90_FLOAT case ( NETCDF_DOUBLE_TYPE ) self % out_type = NF90_DOUBLE end select !! Define the variables call check ( nf90_def_var ( self % ncid , TIME_DIMNAME , self % out_type , self % time_dimid , self % time_varid ) ) call check ( nf90_def_var ( self % ncid , ID_DIMNAME , NF90_INT , self % id_dimid , self % id_varid ) ) call check ( nf90_def_var ( self % ncid , NPL_VARNAME , NF90_INT , self % time_dimid , self % npl_varid ) ) call check ( nf90_def_var ( self % ncid , NTP_VARNAME , NF90_INT , self % time_dimid , self % ntp_varid ) ) call check ( nf90_def_var ( self % ncid , NAME_VARNAME , NF90_CHAR , [ self % str_dimid , self % id_dimid ], self % name_varid ) ) call check ( nf90_def_var ( self % ncid , PTYPE_VARNAME , NF90_CHAR , [ self % str_dimid , self % id_dimid ], self % ptype_varid ) ) if (( param % out_form == XV ) . or . ( param % out_form == XVEL )) then call check ( nf90_def_var ( self % ncid , XHX_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % xhx_varid ) ) call check ( nf90_def_var ( self % ncid , XHY_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % xhy_varid ) ) call check ( nf90_def_var ( self % ncid , XHZ_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % xhz_varid ) ) call check ( nf90_def_var ( self % ncid , VHX_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % vhx_varid ) ) call check ( nf90_def_var ( self % ncid , VHY_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % vhy_varid ) ) call check ( nf90_def_var ( self % ncid , VHZ_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % vhz_varid ) ) end if if (( param % out_form == EL ) . or . ( param % out_form == XVEL )) then call check ( nf90_def_var ( self % ncid , A_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % a_varid ) ) call check ( nf90_def_var ( self % ncid , E_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % e_varid ) ) call check ( nf90_def_var ( self % ncid , INC_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % inc_varid ) ) call check ( nf90_def_var ( self % ncid , CAPOM_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % capom_varid ) ) call check ( nf90_def_var ( self % ncid , OMEGA_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % omega_varid ) ) call check ( nf90_def_var ( self % ncid , CAPM_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % capm_varid ) ) end if call check ( nf90_def_var ( self % ncid , GMASS_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % Gmass_varid ) ) if ( param % lrhill_present ) call check ( nf90_def_var ( self % ncid , RHILL_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % rhill_varid ) ) if ( param % lclose ) call check ( nf90_def_var ( self % ncid , RADIUS_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % radius_varid ) ) if ( param % lrotation ) then call check ( nf90_def_var ( self % ncid , IP1_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % Ip1_varid ) ) call check ( nf90_def_var ( self % ncid , IP2_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % Ip2_varid ) ) call check ( nf90_def_var ( self % ncid , IP3_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % Ip3_varid ) ) call check ( nf90_def_var ( self % ncid , ROTX_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % rotx_varid ) ) call check ( nf90_def_var ( self % ncid , ROTY_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % roty_varid ) ) call check ( nf90_def_var ( self % ncid , ROTZ_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % rotz_varid ) ) end if if ( param % ltides ) then call check ( nf90_def_var ( self % ncid , K2_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % k2_varid ) ) call check ( nf90_def_var ( self % ncid , Q_VARNAME , self % out_type , [ self % id_dimid , self % time_dimid ], self % Q_varid ) ) end if if ( param % lenergy ) then call check ( nf90_def_var ( self % ncid , KE_ORB_VARNAME , self % out_type , self % time_dimid , self % KE_orb_varid ) ) call check ( nf90_def_var ( self % ncid , KE_SPIN_VARNAME , self % out_type , self % time_dimid , self % KE_spin_varid ) ) call check ( nf90_def_var ( self % ncid , PE_VARNAME , self % out_type , self % time_dimid , self % PE_varid ) ) call check ( nf90_def_var ( self % ncid , L_ORBX_VARNAME , self % out_type , self % time_dimid , self % L_orbx_varid ) ) call check ( nf90_def_var ( self % ncid , L_ORBY_VARNAME , self % out_type , self % time_dimid , self % L_orby_varid ) ) call check ( nf90_def_var ( self % ncid , L_ORBZ_VARNAME , self % out_type , self % time_dimid , self % L_orbz_varid ) ) call check ( nf90_def_var ( self % ncid , L_SPINX_VARNAME , self % out_type , self % time_dimid , self % L_spinx_varid ) ) call check ( nf90_def_var ( self % ncid , L_SPINY_VARNAME , self % out_type , self % time_dimid , self % L_spiny_varid ) ) call check ( nf90_def_var ( self % ncid , L_SPINZ_VARNAME , self % out_type , self % time_dimid , self % L_spinz_varid ) ) call check ( nf90_def_var ( self % ncid , L_ESCAPEX_VARNAME , self % out_type , self % time_dimid , self % L_escapex_varid ) ) call check ( nf90_def_var ( self % ncid , L_ESCAPEY_VARNAME , self % out_type , self % time_dimid , self % L_escapey_varid ) ) call check ( nf90_def_var ( self % ncid , L_ESCAPEZ_VARNAME , self % out_type , self % time_dimid , self % L_escapez_varid ) ) call check ( nf90_def_var ( self % ncid , ECOLLISIONS_VARNAME , self % out_type , self % time_dimid , self % Ecollisions_varid ) ) call check ( nf90_def_var ( self % ncid , EUNTRACKED_VARNAME , self % out_type , self % time_dimid , self % Euntracked_varid ) ) call check ( nf90_def_var ( self % ncid , GMESCAPE_VARNAME , self % out_type , self % time_dimid , self % GMescape_varid ) ) end if call check ( nf90_def_var ( self % ncid , STATUS_VARNAME , NF90_CHAR , [ self % str_dimid , self % id_dimid ], self % status_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_TYPE_VARNAME , NF90_CHAR , [ self % str_dimid , self % id_dimid ], self % origin_type_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_TIME_VARNAME , self % out_type , self % id_dimid , self % origin_time_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_XHX_VARNAME , self % out_type , self % id_dimid , self % origin_xhx_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_XHY_VARNAME , self % out_type , self % id_dimid , self % origin_xhy_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_XHZ_VARNAME , self % out_type , self % id_dimid , self % origin_xhz_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_VHX_VARNAME , self % out_type , self % id_dimid , self % origin_vhx_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_VHY_VARNAME , self % out_type , self % id_dimid , self % origin_vhy_varid ) ) call check ( nf90_def_var ( self % ncid , ORIGIN_VHZ_VARNAME , self % out_type , self % id_dimid , self % origin_vhz_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_TIME_VARNAME , self % out_type , self % id_dimid , self % discard_time_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_XHX_VARNAME , self % out_type , self % id_dimid , self % discard_xhx_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_XHY_VARNAME , self % out_type , self % id_dimid , self % discard_xhy_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_XHZ_VARNAME , self % out_type , self % id_dimid , self % discard_xhz_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_VHX_VARNAME , self % out_type , self % id_dimid , self % discard_vhx_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_VHY_VARNAME , self % out_type , self % id_dimid , self % discard_vhy_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_VHZ_VARNAME , self % out_type , self % id_dimid , self % discard_vhz_varid ) ) call check ( nf90_def_var ( self % ncid , DISCARD_BODY_ID_VARNAME , NF90_INT , self % id_dimid , self % discard_body_id_varid ) ) return end subroutine netcdf_initialize_output module subroutine netcdf_open ( self , param ) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Opens a NetCDF file and does the variable inquiries to activate variable ids implicit none ! Arguments class ( netcdf_parameters ), intent ( inout ) :: self !! Parameters used to identify a particular NetCDF dataset class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: old_mode call check ( nf90_open ( param % outfile , nf90_write , self % ncid ) ) call check ( nf90_set_fill ( self % ncid , nf90_nofill , old_mode ) ) call check ( nf90_inq_varid ( self % ncid , TIME_DIMNAME , self % time_varid )) call check ( nf90_inq_varid ( self % ncid , ID_DIMNAME , self % id_varid )) call check ( nf90_inq_varid ( self % ncid , NPL_VARNAME , self % npl_varid )) call check ( nf90_inq_varid ( self % ncid , NTP_VARNAME , self % ntp_varid )) call check ( nf90_inq_varid ( self % ncid , NAME_VARNAME , self % name_varid )) call check ( nf90_inq_varid ( self % ncid , PTYPE_VARNAME , self % ptype_varid )) if (( param % out_form == XV ) . or . ( param % out_form == XVEL )) then call check ( nf90_inq_varid ( self % ncid , XHX_VARNAME , self % xhx_varid )) call check ( nf90_inq_varid ( self % ncid , XHY_VARNAME , self % xhy_varid )) call check ( nf90_inq_varid ( self % ncid , XHZ_VARNAME , self % xhz_varid )) call check ( nf90_inq_varid ( self % ncid , VHX_VARNAME , self % vhx_varid )) call check ( nf90_inq_varid ( self % ncid , VHY_VARNAME , self % vhy_varid )) call check ( nf90_inq_varid ( self % ncid , VHZ_VARNAME , self % vhz_varid )) end if if (( param % out_form == EL ) . or . ( param % out_form == XVEL )) then call check ( nf90_inq_varid ( self % ncid , A_VARNAME , self % a_varid )) call check ( nf90_inq_varid ( self % ncid , E_VARNAME , self % e_varid )) call check ( nf90_inq_varid ( self % ncid , INC_VARNAME , self % inc_varid )) call check ( nf90_inq_varid ( self % ncid , CAPOM_VARNAME , self % capom_varid )) call check ( nf90_inq_varid ( self % ncid , OMEGA_VARNAME , self % omega_varid )) call check ( nf90_inq_varid ( self % ncid , CAPM_VARNAME , self % capm_varid )) end if call check ( nf90_inq_varid ( self % ncid , GMASS_VARNAME , self % Gmass_varid )) if ( param % lclose ) call check ( nf90_inq_varid ( self % ncid , RADIUS_VARNAME , self % radius_varid )) if ( param % lrhill_present ) call check ( nf90_inq_varid ( self % ncid , RHILL_VARNAME , self % rhill_varid )) if ( param % lrotation ) then call check ( nf90_inq_varid ( self % ncid , IP1_VARNAME , self % Ip1_varid )) call check ( nf90_inq_varid ( self % ncid , IP2_VARNAME , self % Ip2_varid )) call check ( nf90_inq_varid ( self % ncid , IP3_VARNAME , self % Ip3_varid )) call check ( nf90_inq_varid ( self % ncid , ROTX_VARNAME , self % rotx_varid )) call check ( nf90_inq_varid ( self % ncid , ROTY_VARNAME , self % roty_varid )) call check ( nf90_inq_varid ( self % ncid , ROTZ_VARNAME , self % rotz_varid )) end if if ( param % ltides ) then call check ( nf90_inq_varid ( self % ncid , K2_VARNAME , self % k2_varid )) call check ( nf90_inq_varid ( self % ncid , Q_VARNAME , self % Q_varid )) end if if ( param % lenergy ) then call check ( nf90_inq_varid ( self % ncid , KE_ORB_VARNAME , self % KE_orb_varid ) ) call check ( nf90_inq_varid ( self % ncid , KE_SPIN_VARNAME , self % KE_spin_varid ) ) call check ( nf90_inq_varid ( self % ncid , PE_VARNAME , self % PE_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_ORBX_VARNAME , self % L_orbx_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_ORBY_VARNAME , self % L_orby_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_ORBZ_VARNAME , self % L_orbz_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_SPINX_VARNAME , self % L_spinx_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_SPINY_VARNAME , self % L_spiny_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_SPINZ_VARNAME , self % L_spinz_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_ESCAPEX_VARNAME , self % L_escapex_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_ESCAPEY_VARNAME , self % L_escapey_varid ) ) call check ( nf90_inq_varid ( self % ncid , L_ESCAPEZ_VARNAME , self % L_escapez_varid ) ) call check ( nf90_inq_varid ( self % ncid , ECOLLISIONS_VARNAME , self % Ecollisions_varid ) ) call check ( nf90_inq_varid ( self % ncid , EUNTRACKED_VARNAME , self % Euntracked_varid ) ) call check ( nf90_inq_varid ( self % ncid , GMESCAPE_VARNAME , self % GMescape_varid ) ) end if call check ( nf90_inq_varid ( self % ncid , STATUS_VARNAME , self % status_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_TYPE_VARNAME , self % origin_type_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_TIME_VARNAME , self % origin_time_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_XHX_VARNAME , self % origin_xhx_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_XHY_VARNAME , self % origin_xhy_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_XHZ_VARNAME , self % origin_xhz_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_VHX_VARNAME , self % origin_vhx_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_VHY_VARNAME , self % origin_vhy_varid )) call check ( nf90_inq_varid ( self % ncid , ORIGIN_VHZ_VARNAME , self % origin_vhz_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_TIME_VARNAME , self % discard_time_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_XHX_VARNAME , self % discard_xhx_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_XHY_VARNAME , self % discard_xhy_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_XHZ_VARNAME , self % discard_xhz_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_VHX_VARNAME , self % discard_vhx_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_VHY_VARNAME , self % discard_vhy_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_VHZ_VARNAME , self % discard_vhz_varid )) call check ( nf90_inq_varid ( self % ncid , DISCARD_BODY_ID_VARNAME , self % discard_body_id_varid )) return end subroutine netcdf_open module subroutine netcdf_write_frame_base ( self , iu , param ) !! author: Carlisle A. Wishard, Dana Singh, and 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 implicit none ! Arguments class ( swiftest_base ), intent ( in ) :: self !! Swiftest particle object class ( netcdf_parameters ), intent ( inout ) :: iu !! Parameters used to identify a particular NetCDF dataset class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j , tslot , strlen , idslot integer ( I4B ), dimension (:), allocatable :: ind character ( len = :), allocatable :: charstring call self % write_particle_info ( iu ) tslot = int ( param % ioutput , kind = I4B ) + 1 select type ( self ) class is ( swiftest_body ) associate ( n => self % nbody ) if ( n == 0 ) return allocate ( ind ( n )) call util_sort ( self % id ( 1 : n ), ind ) do i = 1 , n j = ind ( i ) idslot = self % id ( j ) + 1 if (( param % out_form == XV ) . or . ( param % out_form == XVEL )) then call check ( nf90_put_var ( iu % ncid , iu % xhx_varid , self % xh ( 1 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % xhy_varid , self % xh ( 2 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % xhz_varid , self % xh ( 3 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % vhx_varid , self % vh ( 1 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % vhy_varid , self % vh ( 2 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % vhz_varid , self % vh ( 3 , j ), start = [ idslot , tslot ]) ) end if if (( param % out_form == EL ) . or . ( param % out_form == XVEL )) then call check ( nf90_put_var ( iu % ncid , iu % a_varid , self % a ( j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % e_varid , self % e ( j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % inc_varid , self % inc ( j ) * RAD2DEG , start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % capom_varid , self % capom ( j ) * RAD2DEG , start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % omega_varid , self % omega ( j ) * RAD2DEG , start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % capm_varid , self % capm ( j ) * RAD2DEG , start = [ idslot , tslot ]) ) end if select type ( self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body call check ( nf90_put_var ( iu % ncid , iu % Gmass_varid , self % Gmass ( j ), start = [ idslot , tslot ]) ) if ( param % lrhill_present ) then call check ( nf90_put_var ( iu % ncid , iu % rhill_varid , self % rhill ( j ), start = [ idslot , tslot ]) ) end if if ( param % lclose ) then call check ( nf90_put_var ( iu % ncid , iu % radius_varid , self % radius ( j ), start = [ idslot , tslot ]) ) end if if ( param % lrotation ) then call check ( nf90_put_var ( iu % ncid , iu % Ip1_varid , self % Ip ( 1 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Ip2_varid , self % Ip ( 2 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Ip3_varid , self % Ip ( 3 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % rotx_varid , self % rot ( 1 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % roty_varid , self % rot ( 2 , j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % rotz_varid , self % rot ( 3 , j ), start = [ idslot , tslot ]) ) end if if ( param % ltides ) then call check ( nf90_put_var ( iu % ncid , iu % k2_varid , self % k2 ( j ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Q_varid , self % Q ( j ), start = [ idslot , tslot ]) ) end if end select end do end associate class is ( swiftest_cb ) idslot = self % id + 1 call check ( nf90_put_var ( iu % ncid , iu % id_varid , self % id , start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Gmass_varid , self % Gmass , start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % radius_varid , self % radius , start = [ idslot , tslot ]) ) if ( param % lrotation ) then call check ( nf90_put_var ( iu % ncid , iu % Ip1_varid , self % Ip ( 1 ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Ip2_varid , self % Ip ( 2 ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Ip3_varid , self % Ip ( 3 ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % rotx_varid , self % rot ( 1 ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % roty_varid , self % rot ( 2 ), start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % rotz_varid , self % rot ( 3 ), start = [ idslot , tslot ]) ) end if if ( param % ltides ) then call check ( nf90_put_var ( iu % ncid , iu % k2_varid , self % k2 , start = [ idslot , tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Q_varid , self % Q , start = [ idslot , tslot ]) ) end if end select return end subroutine netcdf_write_frame_base module subroutine netcdf_write_particle_info_base ( self , iu ) !! author: Carlisle A. Wishard, Dana Singh, and David A. Minton !! !! Write all current particle to file implicit none ! Arguments class ( swiftest_base ), intent ( in ) :: self !! Swiftest particle object class ( netcdf_parameters ), intent ( inout ) :: iu !! Parameters used to identify a particular NetCDF dataset ! Internals integer ( I4B ) :: i , j , tslot , strlen , idslot integer ( I4B ), dimension (:), allocatable :: ind character ( len = :), allocatable :: charstring character ( len = NAMELEN ) :: emptystr , lenstr character ( len = :), allocatable :: fmtlabel ! This string of spaces of length NAMELEN is used to clear out any old data left behind inside the string variables write ( lenstr , * ) NAMELEN fmtlabel = \"(A\" // trim ( adjustl ( lenstr )) // \")\" write ( emptystr , fmtlabel ) \" \" select type ( self ) class is ( swiftest_body ) associate ( n => self % nbody ) if ( n == 0 ) return allocate ( ind ( n )) call util_sort ( self % id ( 1 : n ), ind ) do i = 1 , n j = ind ( i ) idslot = self % id ( j ) + 1 call check ( nf90_put_var ( iu % ncid , iu % id_varid , self % id ( j ), start = [ idslot ]) ) charstring = trim ( adjustl ( self % info ( j )% name )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % name_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % name_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) charstring = trim ( adjustl ( self % info ( j )% particle_type )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % ptype_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % ptype_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) charstring = trim ( adjustl ( self % info ( j )% status )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % status_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % status_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) charstring = trim ( adjustl ( self % info ( j )% origin_type )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % origin_type_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_type_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_time_varid , self % info ( j )% origin_time , start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_xhx_varid , self % info ( j )% origin_xh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_xhy_varid , self % info ( j )% origin_xh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_xhz_varid , self % info ( j )% origin_xh ( 3 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_vhx_varid , self % info ( j )% origin_vh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_vhy_varid , self % info ( j )% origin_vh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_vhz_varid , self % info ( j )% origin_vh ( 3 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_time_varid , self % info ( j )% discard_time , start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_xhx_varid , self % info ( j )% discard_xh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_xhy_varid , self % info ( j )% discard_xh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_xhz_varid , self % info ( j )% discard_xh ( 3 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_vhx_varid , self % info ( j )% discard_vh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_vhy_varid , self % info ( j )% discard_vh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_vhz_varid , self % info ( j )% discard_vh ( 3 ), start = [ idslot ]) ) end do end associate class is ( swiftest_cb ) idslot = self % id + 1 call check ( nf90_put_var ( iu % ncid , iu % id_varid , self % id , start = [ idslot ]) ) charstring = trim ( adjustl ( self % info % name )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % name_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % name_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) charstring = trim ( adjustl ( self % info % particle_type )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % ptype_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % ptype_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) charstring = trim ( adjustl ( self % info % status )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % status_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % status_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) charstring = trim ( adjustl ( self % info % origin_type )) strlen = len ( charstring ) call check ( nf90_put_var ( iu % ncid , iu % origin_type_varid , emptystr , start = [ 1 , idslot ], count = [ NAMELEN , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_type_varid , charstring , start = [ 1 , idslot ], count = [ strlen , 1 ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_time_varid , self % info % origin_time , start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_xhx_varid , self % info % origin_xh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_xhy_varid , self % info % origin_xh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_xhz_varid , self % info % origin_xh ( 3 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_vhx_varid , self % info % origin_vh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_vhy_varid , self % info % origin_vh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % origin_vhz_varid , self % info % origin_vh ( 3 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_time_varid , self % info % discard_time , start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_xhx_varid , self % info % discard_xh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_xhy_varid , self % info % discard_xh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_xhz_varid , self % info % discard_xh ( 3 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_vhx_varid , self % info % discard_vh ( 1 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_vhy_varid , self % info % discard_vh ( 2 ), start = [ idslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % discard_vhz_varid , self % info % discard_vh ( 3 ), start = [ idslot ]) ) end select return end subroutine netcdf_write_particle_info_base module subroutine netcdf_write_hdr_system ( self , iu , param ) !! author: David A. Minton !! !! Writes header information (variables that change with time, but not particle id). !! This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that !! previously were handled as separate output files. implicit none ! Arguments class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest nbody system object class ( netcdf_parameters ), intent ( inout ) :: iu !! Parameters used to for writing a NetCDF dataset to file class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: tslot , old_mode tslot = int ( param % ioutput , kind = I4B ) + 1 call check ( nf90_open ( param % outfile , nf90_write , iu % ncid ) ) call check ( nf90_set_fill ( iu % ncid , nf90_nofill , old_mode ) ) call check ( nf90_put_var ( iu % ncid , iu % time_varid , param % t , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % npl_varid , self % pl % nbody , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % ntp_varid , self % tp % nbody , start = [ tslot ]) ) if ( param % lenergy ) then call check ( nf90_put_var ( iu % ncid , iu % KE_orb_varid , self % ke_orbit , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % KE_spin_varid , self % ke_spin , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % PE_varid , self % pe , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_orbx_varid , self % Lorbit ( 1 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_orby_varid , self % Lorbit ( 2 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_orbz_varid , self % Lorbit ( 3 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_spinx_varid , self % Lspin ( 1 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_spiny_varid , self % Lspin ( 2 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_spinz_varid , self % Lspin ( 3 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_escapex_varid , param % Lescape ( 1 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_escapey_varid , param % Lescape ( 2 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % L_escapez_varid , param % Lescape ( 3 ), start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Ecollisions_varid , param % Ecollisions , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % Euntracked_varid , param % Euntracked , start = [ tslot ]) ) call check ( nf90_put_var ( iu % ncid , iu % GMescape_varid , param % GMescape , start = [ tslot ]) ) end if return end subroutine netcdf_write_hdr_system end submodule s_netcdf","tags":"","loc":"sourcefile/netcdf.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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 ) :: ioutput_t0 !! The output frame counter at time 0 integer ( I8B ) :: nloops !! Number of steps to take in the simulation real ( DP ) :: old_t_final = 0.0_DP !! Output time at which writing should start, in order to prevent duplicate lines being written for restarts type ( walltimer ) :: timer !! Object used for computing elapsed wall time 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_in ( 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 , & ioutput => param % ioutput ) call nbody_system % initialize ( param ) t = t0 iloop = 0 iout = istep_out idump = istep_dump nloops = ceiling (( tstop - t0 ) / dt , kind = I8B ) ioutput_t0 = int ( t0 / dt / istep_out , kind = I8B ) ioutput = ioutput_t0 ! Prevent duplicate frames from being written if this is a restarted run if (( param % lrestart ) . and . (( param % out_type == REAL8_TYPE ) . or . param % out_type == REAL4_TYPE )) then old_t_final = nbody_system % get_old_t_final ( param ) else old_t_final = t0 if ( istep_out > 0 ) call nbody_system % write_frame ( param ) call nbody_system % dump ( param ) end if !> 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 call timer % reset () 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 ioutput = ioutput_t0 + iloop / istep_out call timer % finish ( nsubsteps = istep_out , message = \"Integration steps:\" ) if ( t > old_t_final ) call nbody_system % write_frame ( param ) call timer % finish ( nsubsteps = 1 , message = \"File I/O:         \" ) 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~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_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.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 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_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_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_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~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.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~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.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_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.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~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.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~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->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~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.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~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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_io_write_encounter ( t , id1 , id2 , Gmass1 , Gmass2 , radius1 , radius2 , xh1 , xh2 , vh1 , vh2 , enc_out ) implicit none integer ( I4B ), intent ( in ) :: id1 , id2 real ( DP ), intent ( in ) :: t , Gmass1 , Gmass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out end subroutine rmvs_io_write_encounter 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_classes.f90 swiftest_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_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~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.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_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.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_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_generate.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~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~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~helio_kick.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~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~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~whm_gr.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~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~util_exit.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~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_setup.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~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_util.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_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.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~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~helio_gr.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~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~whm_drift.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~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.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_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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~obl.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~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~util_append.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~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest_classes.f90 sourcefile~netcdf.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~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~setup.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~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~whm_kick.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_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.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~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~orbel.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~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~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~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~helio_classes.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_regime.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~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest_classes.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~io.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~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.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~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~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_util.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~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest_classes.f90 sourcefile~util_index.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~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_io.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 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 :: DEG2RAD = PI / 18 0.0_DP !! Definition of conversion factor from degrees to radians real ( DP ), parameter :: RAD2DEG = 18 0.0_DP / PI !! Definition of conversion factor from degrees to radians 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 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 = 512 !! Maximum size of character strings integer ( I4B ), parameter :: NAMELEN = 32 !! Maximum size of name 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 :: NETCDF_FLOAT_TYPE = 'NETCDF_FLOAT' !! Symbolic name for binary file type REAL8 character ( * ), parameter :: NETCDF_DOUBLE_TYPE = 'NETCDF_DOUBLE' !! Symbolic name for binary file type REAL8 character ( * ), parameter :: EL = 'EL' !! Symbolic name for binary output file contents for orbital elements character ( * ), parameter :: XV = 'XV' !! Symbolic name for binary output file contents for cartesian position and velocity vectors character ( * ), parameter :: XVEL = 'XVEL' !! Symbolic name for binary output file contents for both cartesian position and velocity and orbital elements character ( * ), parameter :: CB_TYPE_NAME = \"Central Body\" character ( * ), parameter :: PL_TYPE_NAME = \"Massive Body\" character ( * ), parameter :: TP_TYPE_NAME = \"Test Particle\" character ( * ), parameter :: PL_TINY_TYPE_NAME = \"Semi-Interacting Massive Body\" ! 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_DISRUPT = - 12 integer ( I4B ), parameter :: HIT_AND_RUN_PURE = - 13 integer ( I4B ), parameter :: COLLISION = - 14 integer ( I4B ), parameter :: NEW_PARTICLE = - 15 integer ( I4B ), parameter :: OLD_PARTICLE = - 16 !>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.in' , 'dump_param2.in' ] !> Default file names that can be changed by the user in the parameters file 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 character ( * ), parameter :: PARTICLE_OUTFILE = 'particle.dat' integer ( I4B ), parameter :: PARTICLEUNIT = 44 !! File unit number for the binary particle info 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 !> NetCDF variable names and constants character ( * ), parameter :: NETCDF_OUTFILE = 'bin.nc' !! Default output file name character ( * ), parameter :: TIME_DIMNAME = \"time\" !! NetCDF name of the time dimension character ( * ), parameter :: ID_DIMNAME = \"id\" !! NetCDF name of the particle id dimension character ( * ), parameter :: STR_DIMNAME = \"str\" !! NetCDF name of the particle id dimension character ( * ), parameter :: PTYPE_VARNAME = \"particle_type\" !! NetCDF name of the particle type variable character ( * ), parameter :: NAME_VARNAME = \"name\" !! NetCDF name of the particle name variable character ( * ), parameter :: NPL_VARNAME = \"npl\" !! NetCDF name of the number of active massive bodies variable character ( * ), parameter :: NTP_VARNAME = \"ntp\" !! NetCDF name of the number of active test particles variable character ( * ), parameter :: A_VARNAME = \"a\" !! NetCDF name of the semimajor axis variable character ( * ), parameter :: E_VARNAME = \"e\" !! NetCDF name of the eccentricity variable character ( * ), parameter :: INC_VARNAME = \"inc\" !! NetCDF name of the inclination variable character ( * ), parameter :: CAPOM_VARNAME = \"capom\" !! NetCDF name of the long. asc. node variable character ( * ), parameter :: OMEGA_VARNAME = \"omega\" !! NetCDF name of the arg. periapsis variable character ( * ), parameter :: CAPM_VARNAME = \"capm\" !! NetCDF name of the mean anomaly variable character ( * ), parameter :: XHX_VARNAME = \"xhx\" !! NetCDF name of the heliocentric position x variable character ( * ), parameter :: XHY_VARNAME = \"xhy\" !! NetCDF name of the heliocentric position y variable character ( * ), parameter :: XHZ_VARNAME = \"xhz\" !! NetCDF name of the heliocentric position z variable character ( * ), parameter :: VHX_VARNAME = \"vhx\" !! NetCDF name of the heliocentric velocity x variable character ( * ), parameter :: VHY_VARNAME = \"vhy\" !! NetCDF name of the heliocentric velocity y variable character ( * ), parameter :: VHZ_VARNAME = \"vhz\" !! NetCDF name of the heliocentric velocity z variable character ( * ), parameter :: GMASS_VARNAME = \"Gmass\" !! NetCDF name of the mass variable character ( * ), parameter :: RHILL_VARNAME = \"rhill\" !! NetCDF name of the hill radius variable character ( * ), parameter :: RADIUS_VARNAME = \"radius\" !! NetCDF name of the radius variable character ( * ), parameter :: IP1_VARNAME = \"Ip1\" !! NetCDF name of the axis 1 principal moment of inertial variable character ( * ), parameter :: IP2_VARNAME = \"Ip2\" !! NetCDF name of the axis 2 principal moment of inertial variable character ( * ), parameter :: IP3_VARNAME = \"Ip3\" !! NetCDF name of the axis 3 principal moment of inertial variable character ( * ), parameter :: ROTX_VARNAME = \"rotx\" !! NetCDF name of the rotation x variable character ( * ), parameter :: ROTY_VARNAME = \"roty\" !! NetCDF name of the rotation y variable character ( * ), parameter :: ROTZ_VARNAME = \"rotz\" !! NetCDF name of the rotation z variable character ( * ), parameter :: K2_VARNAME = \"k2\" !! NetCDF name of the Love number variable character ( * ), parameter :: Q_VARNAME = \"Q\" !! NetCDF name of the energy dissipation variable character ( * ), parameter :: KE_ORB_VARNAME = \"KE_orb\" !! NetCDF name of the system orbital kinetic energy variable character ( * ), parameter :: KE_SPIN_VARNAME = \"KE_spin\" !! NetCDF name of the system spin kinetic energy variable character ( * ), parameter :: PE_VARNAME = \"PE\" !! NetCDF name of the system potential energy variable character ( * ), parameter :: L_ORBX_VARNAME = \"L_orbx\" !! NetCDF name of the orbital angular momentum x variable character ( * ), parameter :: L_ORBY_VARNAME = \"L_orby\" !! NetCDF name of the orbital angular momentum y variable character ( * ), parameter :: L_ORBZ_VARNAME = \"L_orbz\" !! NetCDF name of the orbital angular momentum z variable character ( * ), parameter :: L_SPINX_VARNAME = \"L_spinx\" !! NetCDF name of the spin angular momentum x variable character ( * ), parameter :: L_SPINY_VARNAME = \"L_spiny\" !! NetCDF name of the spin angular momentum y variable character ( * ), parameter :: L_SPINZ_VARNAME = \"L_spinz\" !! NetCDF name of the spin angular momentum z variable character ( * ), parameter :: L_ESCAPEX_VARNAME = \"L_escapex\" !! NetCDF name of the escaped angular momentum x variable character ( * ), parameter :: L_ESCAPEY_VARNAME = \"L_escapey\" !! NetCDF name of the escaped angular momentum y variable character ( * ), parameter :: L_ESCAPEZ_VARNAME = \"L_escapez\" !! NetCDF name of the escaped angular momentum z variable character ( * ), parameter :: ECOLLISIONS_VARNAME = \"Ecollisions\" !! NetCDF name of the escaped angular momentum y variable character ( * ), parameter :: EUNTRACKED_VARNAME = \"Euntracked\" !! NetCDF name of the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies) character ( * ), parameter :: GMESCAPE_VARNAME = \"GMescape\" !! NetCDF name of the G*Mass of bodies that escape the system character ( * ), parameter :: STATUS_VARNAME = \"status\" !! NetCDF name of the current status of the body variable (includes discard type) character ( * ), parameter :: ORIGIN_TYPE_VARNAME = \"origin_type\" !! NetCDF name of the origin type variable (Initial Conditions, Disruption, etc.) character ( * ), parameter :: ORIGIN_TIME_VARNAME = \"origin_time\" !! NetCDF name of the time of origin variable character ( * ), parameter :: ORIGIN_XHX_VARNAME = \"origin_xhx\" !! NetCDF name of the heliocentric position of the body at the time of origin x variable character ( * ), parameter :: ORIGIN_XHY_VARNAME = \"origin_xhy\" !! NetCDF name of the heliocentric position of the body at the time of origin y variable character ( * ), parameter :: ORIGIN_XHZ_VARNAME = \"origin_xhz\" !! NetCDF name of the heliocentric position of the body at the time of origin z variable character ( * ), parameter :: ORIGIN_VHX_VARNAME = \"origin_vhx\" !! NetCDF name of the heliocentric velocity of the body at the time of origin x variable character ( * ), parameter :: ORIGIN_VHY_VARNAME = \"origin_vhy\" !! NetCDF name of the heliocentric velocity of the body at the time of origin y variable character ( * ), parameter :: ORIGIN_VHZ_VARNAME = \"origin_vhz\" !! NetCDF name of the heliocentric velocity of the body at the time of origin z variable character ( * ), parameter :: DISCARD_TIME_VARNAME = \"discard_time\" !! NetCDF name of the time of discard variable character ( * ), parameter :: DISCARD_XHX_VARNAME = \"discard_xhx\" !! NetCDF name of the heliocentric position of the body at the time of discard x variable character ( * ), parameter :: DISCARD_XHY_VARNAME = \"discard_xhy\" !! NetCDF name of the heliocentric position of the body at the time of discard y variable character ( * ), parameter :: DISCARD_XHZ_VARNAME = \"discard_xhz\" !! NetCDF name of the heliocentric position of the body at the time of discard z variable character ( * ), parameter :: DISCARD_VHX_VARNAME = \"discard_vhx\" !! NetCDF name of the heliocentric velocity of the body at the time of discard x variable character ( * ), parameter :: DISCARD_VHY_VARNAME = \"discard_vhy\" !! NetCDF name of the heliocentric velocity of the body at the time of discard y variable character ( * ), parameter :: DISCARD_VHZ_VARNAME = \"discard_vhz\" !! NetCDF name of the heliocentric velocity of the body at the time of discard z variable character ( * ), parameter :: DISCARD_BODY_ID_VARNAME = \"discard_body_id\" !! NetCDF name of the id of the other body involved in the discard end module swiftest_globals","tags":"","loc":"sourcefile/swiftest_globals.f90.html"},{"title":"walltime_classes.f90 – swiftest","text":"This file depends on sourcefile~~walltime_classes.f90~~EfferentGraph sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~walltime_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~~walltime_classes.f90~~AfferentGraph sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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 walltime_classes Source Code walltime_classes.f90 Source Code module walltime_classes !! author: David A. Minton !! !! Classes and methods used to compute elasped wall time use swiftest_globals implicit none public type :: walltimer integer ( I8B ) :: count_rate !! Rate at wich the clock ticks integer ( I8B ) :: count_max !! Maximum value of the clock ticker integer ( I8B ) :: count_start_main !! Value of the clock ticker at when the timer is first called integer ( I8B ) :: count_start_step !! Value of the clock ticker at the start of a timed step integer ( I8B ) :: count_finish_step !! Value of the clock ticker at the end of a timed step logical :: lmain_is_started = . false . !! Logical flag indicating whether or not the main timer has been reset or not contains procedure :: reset => walltime_reset !! Resets the clock ticker, settting main_start to the current ticker value procedure :: start => walltime_start !! Starts the timer, setting step_start to the current ticker value procedure :: finish => walltime_finish !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal end type interface module subroutine walltime_finish ( self , nsubsteps , message ) implicit none class ( walltimer ), intent ( inout ) :: self !! Walltimer object integer ( I4B ), intent ( in ) :: nsubsteps !! Number of substeps used to compute the time per step character ( len =* ), intent ( in ) :: message !! Message to prepend to the wall time terminal output end subroutine walltime_finish module subroutine walltime_reset ( self ) implicit none class ( walltimer ), intent ( inout ) :: self !! Walltimer object end subroutine walltime_reset module subroutine walltime_start ( self ) implicit none class ( walltimer ), intent ( inout ) :: self !! Walltimer object end subroutine walltime_start end interface contains module subroutine walltime_finish ( self , nsubsteps , message ) !! author: David A. Minton !! !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal use swiftest_globals implicit none ! Arguments class ( walltimer ), intent ( inout ) :: self !! Walltimer object integer ( I4B ), intent ( in ) :: nsubsteps !! Number of substeps used to compute the time per step character ( len =* ), intent ( in ) :: message !! Message to prepend to the wall time terminal output ! Internals character ( len =* ), parameter :: walltimefmt = '\" Wall time (s): \", es12.5, \"; Wall time/step in this interval (s):  \", es12.5' character ( len = STRMAX ) :: fmt integer ( I8B ) :: count_delta_step , count_delta_main real ( DP ) :: wall_main !! Value of total elapsed time at the end of a timed step real ( DP ) :: wall_step !! Value of elapsed time since the start of a timed step real ( DP ) :: wall_per_substep !! Value of time per substep if (. not . self % lmain_is_started ) then write ( * , * ) \"Wall timer error: The step finish time cannot be calculated because the timer is not started!\" return end if call system_clock ( self % count_finish_step ) count_delta_step = self % count_finish_step - self % count_start_step count_delta_main = self % count_finish_step - self % count_start_main wall_step = count_delta_step / ( self % count_rate * 1.0_DP ) wall_main = count_delta_main / ( self % count_rate * 1.0_DP ) wall_per_substep = wall_step / nsubsteps fmt = '(\"' // adjustl ( message ) // '\",' // walltimefmt // ')' write ( * , trim ( adjustl ( fmt ))) wall_main , wall_per_substep call self % start () return end subroutine walltime_finish module subroutine walltime_reset ( self ) !! author: David A. Minton !! !! Resets the clock ticker, settting main_start to the current ticker value use swiftest_globals implicit none ! Arguments class ( walltimer ), intent ( inout ) :: self call system_clock ( self % count_start_main , self % count_rate , self % count_max ) self % lmain_is_started = . true . call self % start () return end subroutine walltime_reset module subroutine walltime_start ( self ) !! author: David A. Minton !! !! Starts the timer, setting step_start to the current ticker value use swiftest_globals implicit none ! Arguments class ( walltimer ), intent ( inout ) :: self if (. not . self % lmain_is_started ) then write ( * , * ) \"Wall timer error: Cannot start the step time until reset is called at least once!\" return end if call system_clock ( self % count_start_step ) return end subroutine walltime_start end module walltime_classes","tags":"","loc":"sourcefile/walltime_classes.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~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_step.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_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~helio_drift.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~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~helio_classes.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_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~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.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~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.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~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_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_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.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~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->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~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.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~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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: module_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 procedure :: initialize => helio_setup_initialize_system !! Performs Helio-specific initilization steps, including converting to DH coordinates 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 :: 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 :: 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_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_setup_initialize_system ( self , param ) 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 end subroutine helio_setup_initialize_system 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_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_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~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.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_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_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_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~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.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~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.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~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.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~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.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~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_util.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~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_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~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.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~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~helio_classes.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.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~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.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~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_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~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.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~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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 module subroutine whm_util_index_eucl_plpl ( self , param ) 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 end subroutine whm_util_index_eucl_plpl !> 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":"fraggle_classes.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_classes.f90~~EfferentGraph sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_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~~fraggle_classes.f90~~AfferentGraph sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_setup.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_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.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~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.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~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_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_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.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~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->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~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.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~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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 fraggle_classes Source Code fraggle_classes.f90 Source Code module fraggle_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 Fraggel: The Fragment Generation Model use swiftest_globals use swiftest_classes , only : swiftest_parameters , swiftest_nbody_system , swiftest_cb , swiftest_pl implicit none public integer ( I4B ), parameter :: FRAGGLE_NMASS_DIST = 3 !! Number of mass bins returned by the regime calculation (largest fragment, second largest, and remainder) character ( len =* ), parameter :: FRAGGLE_LOG_OUT = \"fraggle.log\" !! Name of log file for Fraggle diagnostic information integer ( I4B ), parameter :: FRAGGLE_LOG_UNIT = 76 !! Unit number for Fraggle log file !******************************************************************************************************************************** !                                    fraggle_colliders class definitions and method interfaces !******************************************************************************************************************************* !> Class definition for the variables that describe the bodies involved in the collision type :: fraggle_colliders integer ( I4B ) :: ncoll !! Number of bodies involved in the collision integer ( I4B ), dimension (:), allocatable :: idx !! Index of bodies involved in the collision real ( DP ), dimension ( NDIM , 2 ) :: xb !! Two-body equivalent position vectors of the collider bodies prior to collision real ( DP ), dimension ( NDIM , 2 ) :: vb !! Two-body equivalent velocity vectors of the collider bodies prior to collision real ( DP ), dimension ( NDIM , 2 ) :: rot !! Two-body equivalent principal axes moments of inertia the collider bodies prior to collision real ( DP ), dimension ( NDIM , 2 ) :: L_spin !! Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision real ( DP ), dimension ( NDIM , 2 ) :: L_orbit !! Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision real ( DP ), dimension ( NDIM , 2 ) :: Ip !! Two-body equivalent principal axes moments of inertia the collider bodies prior to collision real ( DP ), dimension ( 2 ) :: mass !! Two-body equivalent mass of the collider bodies prior to the collision real ( DP ), dimension ( 2 ) :: radius !! Two-body equivalent radii of the collider bodies prior to the collision contains procedure :: regime => fraggle_regime_colliders !! Determine which fragmentation regime the set of colliders will be end type fraggle_colliders !******************************************************************************************************************************** !                                    fraggle_fragments class definitions and method interfaces !******************************************************************************************************************************* !> Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates type , extends ( swiftest_pl ) :: fraggle_fragments real ( DP ) :: mtot !! Total mass of fragments real ( DP ) :: Qloss !! Energy lost during the collision real ( DP ), dimension ( FRAGGLE_NMASS_DIST ) :: mass_dist !! Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder) integer ( I4B ) :: regime !! Collresolve regime code for this collision ! Values in a coordinate frame centered on the collider barycenter and collisional system unit vectors (these are used internally by the fragment generation subroutine) real ( DP ), dimension ( NDIM ) :: xbcom !! Center of mass position vector of the collider system in system barycentric coordinates real ( DP ), dimension ( NDIM ) :: vbcom !! Velocity vector of the center of mass of the collider system in system barycentric coordinates real ( DP ), dimension ( NDIM ) :: x_coll_unit !! x-direction unit vector of collisional system real ( DP ), dimension ( NDIM ) :: y_coll_unit !! y-direction unit vector of collisional system real ( DP ), dimension ( NDIM ) :: z_coll_unit !! z-direction unit vector of collisional system real ( DP ), dimension (:,:), allocatable :: x_coll !! Array of fragment position vectors in the collisional coordinate frame real ( DP ), dimension (:,:), allocatable :: v_coll !! Array of fragment velocity vectors in the collisional coordinate frame real ( DP ), dimension (:,:), allocatable :: v_r_unit !! Array of radial direction unit vectors of individual fragments in the collisional coordinate frame real ( DP ), dimension (:,:), allocatable :: v_t_unit !! Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame real ( DP ), dimension (:,:), allocatable :: v_n_unit !! Array of normal direction unit vectors of individual fragments in the collisional coordinate frame real ( DP ), dimension (:), allocatable :: rmag !! Array of radial distance magnitudes of individual fragments in the collisional coordinate frame real ( DP ), dimension (:), allocatable :: rotmag !! Array of rotation magnitudes of individual fragments real ( DP ), dimension (:), allocatable :: v_r_mag !! Array of radial direction velocity magnitudes of individual fragments real ( DP ), dimension (:), allocatable :: v_t_mag !! Array of tangential direction velocity magnitudes of individual fragments ! Energy and momentum book-keeping variables that characterize the whole system of fragments real ( DP ) :: ke_orbit !! Current orbital kinetic energy of the system of fragments in the collisional frame real ( DP ) :: ke_spin !! Current spin kinetic energy of the system of fragments in the collisional frame real ( DP ), dimension ( NDIM ) :: L_orbit !! Current orbital angular momentum of the system of fragments in the collisional frame real ( DP ), dimension ( NDIM ) :: L_spin !! Current spin angular momentum of the system of fragments in the collisional frame real ( DP ) :: ke_budget !! Total kinetic energy budget for the system of fragmens in the collisional frame real ( DP ), dimension ( NDIM ) :: L_budget !! Total angular momentum budget for the system of fragmens in the collisional frame ! For the following variables, \"before\" refers to the *entire* n-body system in its pre-collisional state and \"after\" refers to the system in its post-collisional state real ( DP ), dimension ( NDIM ) :: Lorbit_before , Lorbit_after !! Before/after orbital angular momentum real ( DP ), dimension ( NDIM ) :: Lspin_before , Lspin_after !! Before/after spin angular momentum real ( DP ), dimension ( NDIM ) :: Ltot_before , Ltot_after !! Before/after total system angular momentum real ( DP ) :: ke_orbit_before , ke_orbit_after !! Before/after orbital kinetic energy real ( DP ) :: ke_spin_before , ke_spin_after !! Before/after spin kinetic energy real ( DP ) :: pe_before , pe_after !! Before/after potential energy real ( DP ) :: Etot_before , Etot_after !! Before/after total system energy ! Scale factors used to scale dimensioned quantities to a more \"natural\" system where important quantities (like kinetic energy, momentum) are of order ~1 real ( DP ) :: dscale !! Distance dimension scale factor real ( DP ) :: mscale !! Mass scale factor real ( DP ) :: tscale !! Time scale factor real ( DP ) :: vscale !! Velocity scale factor (a convenience unit that is derived from dscale and tscale) real ( DP ) :: Escale !! Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale) real ( DP ) :: Lscale !! Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale) contains procedure :: generate_fragments => fraggle_generate_fragments !! Generates a system of fragments in barycentric coordinates that conserves energy and momentum. procedure :: accel => fraggle_placeholder_accel !! Placeholder subroutine to fulfill requirement for an accel method procedure :: kick => fraggle_placeholder_kick !! Placeholder subroutine to fulfill requirement for a kick method procedure :: step => fraggle_placeholder_step !! Placeholder subroutine to fulfill requirement for a step method procedure :: set_budgets => fraggle_set_budgets_fragments !! Sets the energy and momentum budgets of the fragments based on the collider value procedure :: set_coordinate_system => fraggle_set_coordinate_system !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. procedure :: set_mass_dist => fraggle_set_mass_dist_fragments !! Sets the distribution of mass among the fragments depending on the regime type procedure :: set_natural_scale => fraggle_set_natural_scale_factors !! Scales dimenional quantities to ~O(1) with respect to the collisional system. procedure :: set_original_scale => fraggle_set_original_scale_factors !! Restores dimenional quantities back to the original system units procedure :: setup => fraggle_setup_fragments !! Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays. procedure :: reset => fraggle_setup_reset_fragments !! Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate) procedure :: get_ang_mtm => fraggle_util_ang_mtm !! Calcualtes the current angular momentum of the fragments procedure :: get_energy_and_momentum => fraggle_util_get_energy_momentum !! Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.) procedure :: restructure => fraggle_util_restructure !! Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints end type fraggle_fragments interface module subroutine fraggle_generate_fragments ( self , colliders , system , param , lfailure ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object containing the two-body equivalent values of the colliding bodies class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters logical , intent ( out ) :: lfailure !! Answers the question: Should this have been a merger instead? end subroutine fraggle_generate_fragments module subroutine fraggle_io_log_generate ( frag ) implicit none class ( fraggle_fragments ), intent ( in ) :: frag end subroutine fraggle_io_log_generate module subroutine fraggle_io_log_one_message ( message ) implicit none character ( len =* ), intent ( in ) :: message character ( STRMAX ) :: errmsg end subroutine fraggle_io_log_one_message module subroutine fraggle_io_log_pl ( pl , param ) implicit none class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object (only the new bodies generated in a collision) class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters end subroutine fraggle_io_log_pl module subroutine fraggle_io_log_regime ( colliders , frag ) implicit none class ( fraggle_colliders ), intent ( in ) :: colliders class ( fraggle_fragments ), intent ( in ) :: frag end subroutine fraggle_io_log_regime module subroutine fraggle_io_log_start ( param ) implicit none class ( swiftest_parameters ), intent ( in ) :: param end subroutine fraggle_io_log_start !> The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class module subroutine fraggle_placeholder_accel ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system 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 !! Optional argument that determines whether or not this is the beginning or end of the step end subroutine fraggle_placeholder_accel module subroutine fraggle_placeholder_kick ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system 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 fraggle_placeholder_kick module subroutine fraggle_placeholder_step ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), 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 !! Stepsiz end subroutine fraggle_placeholder_step module subroutine fraggle_regime_colliders ( self , frag , system , param ) implicit none class ( fraggle_colliders ), intent ( inout ) :: self !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragment system object class ( swiftest_nbody_system ), intent ( in ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current Swiftest run configuration parameters end subroutine fraggle_regime_colliders module subroutine fraggle_set_budgets_fragments ( self , colliders ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object end subroutine fraggle_set_budgets_fragments module subroutine fraggle_set_coordinate_system ( self , colliders ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object end subroutine fraggle_set_coordinate_system module subroutine fraggle_set_mass_dist_fragments ( self , colliders , param ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object class ( swiftest_parameters ), intent ( in ) :: param !! Current Swiftest run configuration parameters end subroutine fraggle_set_mass_dist_fragments module subroutine fraggle_set_natural_scale_factors ( self , colliders ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object end subroutine fraggle_set_natural_scale_factors module subroutine fraggle_set_original_scale_factors ( self , colliders ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object end subroutine fraggle_set_original_scale_factors module subroutine fraggle_setup_fragments ( self , n , param ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object integer ( I4B ), intent ( in ) :: n !! Number of fragments class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters end subroutine fraggle_setup_fragments module subroutine fraggle_setup_reset_fragments ( self ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self end subroutine fraggle_setup_reset_fragments module subroutine fraggle_util_add_fragments_to_system ( frag , colliders , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), intent ( in ) :: frag !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters end subroutine fraggle_util_add_fragments_to_system module subroutine fraggle_util_ang_mtm ( self ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object end subroutine fraggle_util_ang_mtm module subroutine fraggle_util_construct_temporary_system ( frag , system , param , tmpsys , tmpparam ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), intent ( in ) :: frag !! Fraggle fragment system object class ( swiftest_nbody_system ), intent ( in ) :: system !! Original swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters class ( swiftest_nbody_system ), allocatable , intent ( out ) :: tmpsys !! Output temporary swiftest nbody system object class ( swiftest_parameters ), allocatable , intent ( out ) :: tmpparam !! Output temporary configuration run parameters end subroutine fraggle_util_construct_temporary_system module subroutine fraggle_util_get_energy_momentum ( self , colliders , system , param , lbefore ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters logical , intent ( in ) :: lbefore !! Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa end subroutine fraggle_util_get_energy_momentum module subroutine fraggle_util_restructure ( self , colliders , try , f_spin , r_max_start ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object integer ( I4B ), intent ( in ) :: try !! The current number of times Fraggle has tried to find a solution real ( DP ), intent ( inout ) :: f_spin !! Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real ( DP ), intent ( inout ) :: r_max_start !! The maximum radial distance that the position calculation starts with. This increases after a failed attempt end subroutine fraggle_util_restructure module subroutine fraggle_util_shift_vector_to_origin ( m_frag , vec_frag ) implicit none 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 end subroutine module function fraggle_util_vmag_to_vb ( v_r_mag , v_r_unit , v_t_mag , v_t_unit , m_frag , vcom ) result ( vb ) implicit none 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 real ( DP ), dimension (:,:), allocatable :: vb end function fraggle_util_vmag_to_vb end interface end module fraggle_classes","tags":"","loc":"sourcefile/fraggle_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~fraggle_classes.f90 fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_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~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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~~symba_classes.f90~~AfferentGraph sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_discard.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~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_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.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_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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 SyMBA integrator !! Adapted from David E. Kaufmann's Swifter routine: module_symba.f90 use swiftest_globals use swiftest_classes , only : swiftest_parameters , swiftest_base , swiftest_encounter , swiftest_particle_info , netcdf_parameters use helio_classes , only : helio_cb , helio_pl , helio_tp , helio_nbody_system use rmvs_classes , only : rmvs_chk_ind use fraggle_classes , only : fraggle_colliders , fraggle_fragments 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 type , extends ( swiftest_parameters ) :: symba_parameters real ( DP ) :: GMTINY = - 1.0_DP !! Smallest G*mass that is fully gravitating real ( DP ) :: min_GMfrag = - 1.0_DP !! Smallest G*mass that can be produced in a fragmentation event 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_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 ) :: GM0 = 0.0_DP !! Initial G*mass of the central body real ( DP ) :: dGM = 0.0_DP !! Change in G*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_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 contains procedure :: make_colliders => symba_collision_make_colliders_pl !! When a single body is involved in more than one collision in a single step, it becomes part of a family procedure :: index => symba_util_index_eucl_plpl !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix 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_int => symba_kick_getacch_int_pl !! Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY 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 :: reset_kinship => symba_util_reset_kinship !! Resets the kinship status of 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_encounter class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA class for tracking close encounters in a step type , extends ( swiftest_encounter ) :: symba_encounter integer ( I4B ), dimension (:), allocatable :: level !! encounter recursion level contains procedure :: collision_check => symba_collision_check_encounter !! Checks if a test particle is going to collide with a massive body procedure :: encounter_check => symba_encounter_check !! Checks if massive bodies are going through close encounters with each other procedure :: kick => symba_kick_encounter !! Kick barycentric velocities of active test particles within SyMBA recursion procedure :: setup => symba_setup_encounter !! A constructor that sets the number of encounters and allocates and initializes all arrays procedure :: copy => symba_util_copy_encounter !! Copies elements from the source encounter list into self. procedure :: spill => symba_util_spill_encounter !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure :: append => symba_util_append_encounter !! Appends elements from one structure to another end type symba_encounter !******************************************************************************************************************************** !                                    symba_pltpenc class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA class for tracking pl-tp close encounters in a step type , extends ( symba_encounter ) :: symba_pltpenc contains procedure :: resolve_collision => symba_collision_resolve_pltpenc !! Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c 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_encounter ) :: symba_plplenc contains procedure :: extract_collisions => symba_collision_encounter_extract_collisions !! 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 procedure :: resolve_collision => symba_collision_resolve_plplenc !! Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c 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 class ( symba_plplenc ), allocatable :: plplcollision_list !! List of massive body-massive body collisions 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 function symba_collision_check_encounter ( self , system , param , t , dt , irec ) result ( lany_collision ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_encounter ), 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 logical :: lany_collision !! Returns true if cany pair of encounters resulted in a collision n end function symba_collision_check_encounter module subroutine symba_collision_encounter_extract_collisions ( 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 parameters end subroutine module subroutine symba_collision_make_colliders_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_colliders_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 ( inout ) :: 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_collision_resolve_mergers module subroutine symba_collision_resolve_plplenc ( self , system , param , t , dt , irec ) 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current simulation step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level end subroutine symba_collision_resolve_plplenc module subroutine symba_collision_resolve_pltpenc ( self , system , param , t , dt , irec ) implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters with SyMBA additions real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current simulation step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level end subroutine symba_collision_resolve_pltpenc 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 ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_encounter ), 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 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_collision_casedisruption ( system , param , colliders , frag ) result ( status ) use fraggle_classes , only : fraggle_colliders , fraggle_fragments 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 additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_collision_casedisruption module function symba_collision_casehitandrun ( system , param , colliders , frag ) result ( status ) use fraggle_classes , only : fraggle_colliders , fraggle_fragments 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 additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_collision_casehitandrun module function symba_collision_casemerge ( system , param , colliders , frag ) result ( status ) use fraggle_classes , only : fraggle_colliders , fraggle_fragments 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 additions class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragmentation system object integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_collision_casemerge module subroutine symba_util_index_eucl_plpl ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_util_index_eucl_plpl 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_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 ( inout ) :: param !! Current run configuration parameters end subroutine symba_io_write_discard module subroutine symba_kick_getacch_int_pl ( self ) implicit none class ( symba_pl ), intent ( inout ) :: self end subroutine symba_kick_getacch_int_pl 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_encounter ( self , system , dt , irec , sgn ) implicit none class ( symba_encounter ), 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_encounter 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_encounter ( self , n ) implicit none class ( symba_encounter ), intent ( inout ) :: self !! SyMBA pl-tp encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for end subroutine symba_setup_encounter 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 ), intent ( in ) :: t integer ( I4B ), intent ( in ) :: ireci !! input recursion level end subroutine symba_step_recur_system module subroutine symba_step_reset_system ( self , param ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_step_reset_system end interface interface util_append 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_encounter ( self , source , lsource_mask ) implicit none class ( symba_encounter ), intent ( inout ) :: self !! SyMBA encounter list object class ( swiftest_encounter ), 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_encounter 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 module subroutine symba_util_copy_encounter ( self , source ) use swiftest_classes , only : swiftest_encounter implicit none class ( symba_encounter ), intent ( inout ) :: self !! Encounter list class ( swiftest_encounter ), intent ( in ) :: source !! Source object to copy into end subroutine symba_util_copy_encounter end interface interface util_fill 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 ( inout ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_util_rearray_pl module subroutine symba_util_reset_kinship ( self , idx ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: idx !! Index array of bodies to reset integer ( I4B ) :: i , j end subroutine symba_util_reset_kinship end interface interface util_resize 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 end interface interface util_sort_rearrange module subroutine symba_util_sort_rearrange_arr_kin ( arr , ind , n ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine symba_util_sort_rearrange_arr_kin end interface util_sort_rearrange interface 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_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_encounter ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_encounter implicit none class ( symba_encounter ), 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_encounter 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_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~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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 fraggle_classes use lambda_function use walltime_classes !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~whm_classes.f90 whm_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~tides_getacch_pl.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_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~util_exit.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~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~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~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~util_coord.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_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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~obl.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~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest_classes.f90 sourcefile~netcdf.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~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~setup.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_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~orbel.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~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest_classes.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~io.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_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest_classes.f90 sourcefile~util_index.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~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~gr.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~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~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90->sourcefile~fraggle_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~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90->sourcefile~helio_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~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~whm_gr.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~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90->sourcefile~fraggle_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~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.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~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_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_classes.f90->sourcefile~whm_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~swiftest.f90 sourcefile~helio_gr.f90->sourcefile~helio_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~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90->sourcefile~helio_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~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_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~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90->sourcefile~fraggle_classes.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90->sourcefile~helio_classes.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90->sourcefile~fraggle_classes.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~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.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~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.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~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90->sourcefile~fraggle_classes.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.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 type :: netcdf_parameters integer ( I4B ) :: out_type !! NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter) integer ( I4B ) :: ncid !! NetCDF ID for the output file integer ( I4B ) :: dimids ( 3 ) !! Dimensions of the NetCDF file integer ( I4B ) :: time_dimid !! NetCDF ID for the time dimension integer ( I4B ) :: id_dimid !! NetCDF ID for the particle id dimension integer ( I4B ) :: str_dimid !! NetCDF ID for the character string dimension integer ( I4B ) :: time_varid !! NetCDF ID for the time variable integer ( I4B ) :: id_varid !! NetCDF ID for the particle name variable integer ( I4B ) :: name_varid !! NetCDF ID for the namevariable integer ( I4B ) :: ptype_varid !! NetCDF ID for the particle type variable integer ( I4B ) :: npl_varid !! NetCDF ID for the number of active massive bodies variable integer ( I4B ) :: ntp_varid !! NetCDF ID for the number of active test particles variable integer ( I4B ) :: a_varid !! NetCDF ID for the semimajor axis variable integer ( I4B ) :: e_varid !! NetCDF ID for the eccentricity variable integer ( I4B ) :: inc_varid !! NetCDF ID for the inclination variable integer ( I4B ) :: capom_varid !! NetCDF ID for the long. asc. node variable integer ( I4B ) :: omega_varid !! NetCDF ID for the arg. periapsis variable integer ( I4B ) :: capm_varid !! NetCDF ID for the mean anomaly variable integer ( I4B ) :: xhx_varid !! NetCDF ID for the heliocentric position x variable integer ( I4B ) :: xhy_varid !! NetCDF ID for the heliocentric position y variable integer ( I4B ) :: xhz_varid !! NetCDF ID for the heliocentric position z variable integer ( I4B ) :: vhx_varid !! NetCDF ID for the heliocentric velocity x variable integer ( I4B ) :: vhy_varid !! NetCDF ID for the heliocentric velocity y variable integer ( I4B ) :: vhz_varid !! NetCDF ID for the heliocentric velocity z variable integer ( I4B ) :: Gmass_varid !! NetCDF ID for the mass variable integer ( I4B ) :: rhill_varid !! NetCDF ID for the hill radius variable integer ( I4B ) :: radius_varid !! NetCDF ID for the radius variable integer ( I4B ) :: Ip1_varid !! NetCDF ID for the axis 1 principal moment of inertia variable integer ( I4B ) :: Ip2_varid !! NetCDF ID for the axis 2 principal moment of inertia variable integer ( I4B ) :: Ip3_varid !! NetCDF ID for the axis 3 principal moment of inertia variable integer ( I4B ) :: rotx_varid !! NetCDF ID for the rotation x variable integer ( I4B ) :: roty_varid !! NetCDF ID for the rotation y variable integer ( I4B ) :: rotz_varid !! NetCDF ID for the rotation z variable integer ( I4B ) :: k2_varid !! NetCDF ID for the Love number variable integer ( I4B ) :: Q_varid !! NetCDF ID for the energy dissipation variable integer ( I4B ) :: KE_orb_varid !! NetCDF ID for the system orbital kinetic energy variable integer ( I4B ) :: KE_spin_varid !! NetCDF ID for the system spin kinetic energy variable integer ( I4B ) :: PE_varid !! NetCDF ID for the system potential energy variable integer ( I4B ) :: L_orbx_varid !! NetCDF ID for the system orbital angular momentum x variable integer ( I4B ) :: L_orby_varid !! NetCDF ID for the system orbital angular momentum y variable integer ( I4B ) :: L_orbz_varid !! NetCDF ID for the system orbital angular momentum z variable integer ( I4B ) :: L_spinx_varid !! NetCDF ID for the system spin angular momentum x variable integer ( I4B ) :: L_spiny_varid !! NetCDF ID for the system spin angular momentum y variable integer ( I4B ) :: L_spinz_varid !! NetCDF ID for the system spin angular momentum z variable integer ( I4B ) :: L_escapex_varid !! NetCDF ID for the escaped angular momentum x variable integer ( I4B ) :: L_escapey_varid !! NetCDF ID for the escaped angular momentum x variable integer ( I4B ) :: L_escapez_varid !! NetCDF ID for the escaped angular momentum x variable integer ( I4B ) :: Ecollisions_varid !! NetCDF ID for the energy lost in collisions variable integer ( I4B ) :: Euntracked_varid !! NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies) integer ( I4B ) :: GMescape_varid !! NetCDF ID for the G*Mass of bodies that escape the system integer ( I4B ) :: status_varid !! NetCDF ID for the status variable integer ( I4B ) :: origin_type_varid !! NetCDF ID for the origin type integer ( I4B ) :: origin_time_varid !! NetCDF ID for the origin time integer ( I4B ) :: origin_xhx_varid !! NetCDF ID for the origin xh x component integer ( I4B ) :: origin_xhy_varid !! NetCDF ID for the origin xh y component integer ( I4B ) :: origin_xhz_varid !! NetCDF ID for the origin xh z component integer ( I4B ) :: origin_vhx_varid !! NetCDF ID for the origin xh x component integer ( I4B ) :: origin_vhy_varid !! NetCDF ID for the origin xh y component integer ( I4B ) :: origin_vhz_varid !! NetCDF ID for the origin xh z component integer ( I4B ) :: discard_time_varid !! NetCDF ID for the time of discard variable integer ( I4B ) :: discard_xhx_varid !! NetCDF ID for the heliocentric position of the body at the time of discard x variable integer ( I4B ) :: discard_xhy_varid !! NetCDF ID for the heliocentric position of the body at the time of discard y variable integer ( I4B ) :: discard_xhz_varid !! NetCDF ID for the heliocentric position of the body at the time of discard z variable integer ( I4B ) :: discard_vhx_varid !! NetCDF ID for the heliocentric velocity of the body at the time of discard x variable integer ( I4B ) :: discard_vhy_varid !! NetCDF ID for the heliocentric velocity of the body at the time of discard y variable integer ( I4B ) :: discard_vhz_varid !! NetCDF ID for the heliocentric velocity of the body at the time of discard z variable integer ( I4B ) :: discard_body_id_varid !! NetCDF ID for the id of the other body involved in the discard contains procedure :: close => netcdf_close !! Closes an open NetCDF file procedure :: initialize => netcdf_initialize_output !! Initialize a set of parameters used to identify a NetCDF output object procedure :: open => netcdf_open !! Opens a NetCDF file end type netcdf_parameters !******************************************************************************************************************************** ! 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 ) :: maxid = - 1 !! The current maximum particle id number 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 integer ( I8B ) :: ioutput = 0_I8B !! Output counter 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 !! Data representation type of input data files character ( STRMAX ) :: in_form = XV !! Format of input data files (EL or XV) integer ( I4B ) :: istep_out = - 1 !! Number of time steps between binary outputs character ( STRMAX ) :: outfile = NETCDF_OUTFILE !! Name of output binary file character ( STRMAX ) :: out_type = NETCDF_DOUBLE_TYPE !! Binary format of output file character ( STRMAX ) :: out_form = XVEL !! Data to write to output file character ( STRMAX ) :: out_stat = 'NEW' !! Open status for output binary file character ( STRMAX ) :: particle_out = PARTICLE_OUTFILE !! Name of output particle information 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 ) :: GMtot_orig = 0.0_DP !! Initial system mass 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 ) :: Lescape = 0.0_DP !! Angular momentum of bodies that escaped the system (used for bookeeping) real ( DP ) :: GMescape = 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 type ( netcdf_parameters ) :: nciu !! Object containing NetCDF parameters contains procedure :: reader => io_param_reader procedure :: writer => io_param_writer procedure :: dump => io_dump_param procedure :: read_in => io_read_in_param end type swiftest_parameters !******************************************************************************************************************************** !                                    swiftest_swiftest_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 :: swiftest_particle_info character ( len = NAMELEN ) :: name !! Non-unique name character ( len = NAMELEN ) :: particle_type !! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character ( len = NAMELEN ) :: 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 real ( DP ) :: discard_time !! The time of the particle's discard character ( len = NAMELEN ) :: status !! Particle status description: Active, Merged, Fragmented, etc. real ( DP ), dimension ( NDIM ) :: discard_xh !! The heliocentric distance vector at the time of the particle's discard real ( DP ), dimension ( NDIM ) :: discard_vh !! The heliocentric velocity vector at the time of the particle's discard integer ( I4B ) :: discard_body_id !! The id of the other body involved in the discard (0 if no other body involved) contains procedure :: dump => io_dump_particle_info !! Dumps contents of particle information to file procedure :: read_in => io_read_in_particle_info !! Read in a particle information object from an open file procedure :: copy => util_copy_particle_info !! Copies one set of information object components into another, component-by-component procedure :: set_value => util_set_particle_info !! Sets one or more values of the particle information metadata object end type swiftest_particle_info !******************************************************************************************************************************** ! swiftest_base class definitions and methods !******************************************************************************************************************************** type , abstract :: swiftest_base !! An abstract superclass for a generic Swiftest object contains !! The minimal methods that all systems must have procedure :: dump => io_dump_base !! Dump contents to file procedure :: dump_particle_info => io_dump_particle_info_base !! Dump contents of particle information metadata to file procedure :: write_frame_netcdf => netcdf_write_frame_base !! I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure :: write_particle_info_netcdf => netcdf_write_particle_info_base !! Writes out the particle information metadata to NetCDF file generic :: write_frame => write_frame_netcdf !! Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments generic :: write_particle_info => write_particle_info_netcdf 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 type ( swiftest_particle_info ) :: info !! Particle metadata information 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 :: read_in => io_read_in_cb !! 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_bin => io_write_frame_cb !! I/O routine for writing out a single frame of time-series data for the central body generic :: write_frame => write_frame_bin !! Write a frame (either binary or NetCDF, using generic procedures) 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 type ( swiftest_particle_info ), dimension (:), allocatable :: info !! Particle metadata information 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 !! Swiftestcentric position real ( DP ), dimension (:,:), allocatable :: vh !! Swiftestcentric 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 :: read_in => io_read_in_body !! 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_bin => 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) generic :: write_frame => write_frame_bin !! Add the generic write frame for Fortran binary files 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 :: index => util_index_eucl_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 :: vh2vb => util_coord_vh2vb_pl !! Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure :: vb2vh => util_coord_vb2vh_pl !! Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure :: xh2xb => util_coord_xh2xb_pl !! Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 integer ( I4B ), dimension (:,:), allocatable :: k_pltp !! Index array used to convert flattened the body-body comparison upper triangular matrix integer ( I8B ) :: npltp !! Number of pl-tp 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_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 :: vb2vh => util_coord_vb2vh_tp !! Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure :: vh2vb => util_coord_vh2vb_tp !! Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure :: xh2xb => util_coord_xh2xb_tp !! Convert test particles from heliocentric to barycentric coordinates (position only) 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 :: 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 ) :: oblpot = 0.0_DP !! System potential energy due to oblateness of the central body 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 ) :: Ltot = 0.0_DP !! System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system !! Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. procedure :: read_frame => io_read_frame_system !! Read in a frame of input data from file procedure :: read_particle_info => io_read_particle_info_system !! Read in particle metadata 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 :: write_hdr_bin => io_write_hdr_system !! Write a header for an output frame in Fortran binary format procedure :: write_hdr_netcdf => netcdf_write_hdr_system !! Write a header for an output frame in NetCDF format procedure :: obl_pot => obl_pot_system !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body procedure :: initialize => setup_initialize_system !! Initialize the system from input files procedure :: init_particle_info => setup_initialize_particle_info_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 generic :: write_hdr => write_hdr_bin , write_hdr_netcdf !! Generic method call for writing headers 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 ( I8B ), dimension (:), allocatable :: kidx !! index value of the encounter from the master k_plpl encounter list 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 integer ( I4B ), dimension (:), allocatable :: id1 !! id of the first body in the encounter integer ( I4B ), dimension (:), allocatable :: id2 !! id 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 real ( DP ), dimension (:), allocatable :: t !! Time of encounter contains procedure :: setup => setup_encounter !! A constructor that sets the number of encounters and allocates and initializes all arrays procedure :: append => util_append_encounter !! Appends elements from one structure to another 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. procedure :: write => io_write_encounter !! Write close encounter data to output binary file 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_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 function abstract_read_frame ( self , iu , param ) result ( 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 integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful end function 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 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 util_index_eucl_plpl ( self , param ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine module subroutine util_index_eucl_pltp ( self , pl , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine 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 !! Swiftestcentric position vector real ( DP ), dimension (:), intent ( in ) :: pv !! Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real ( DP ), dimension (:), intent ( out ) :: vh !! Swiftestcentric 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 !! Swiftestcentric position vector real ( DP ), dimension (:), intent ( in ) :: vh !! Swiftestcentric 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_particle_info_base ( self , param , idx ) implicit none class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object (can be cb, pl, or tp) class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters integer ( I4B ), dimension (:), optional , intent ( in ) :: idx !! Array of test particle indices to append to the particle file end subroutine io_dump_particle_info_base module subroutine io_dump_particle_info ( self , iu ) implicit none class ( swiftest_particle_info ), intent ( in ) :: self !! Swiftest particle info metadata object integer ( I4B ), intent ( in ) :: iu !! Open unformatted file unit number end subroutine io_dump_particle_info module subroutine io_dump_base ( 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_base 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_old_t_final_system ( self , param ) result ( old_t_final ) implicit none class ( swiftest_nbody_system ), intent ( in ) :: self class ( swiftest_parameters ), intent ( in ) :: param real ( DP ) :: old_t_final end function io_get_old_t_final_system 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_in_body ( 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_in_body module subroutine io_read_in_cb ( 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_in_cb module subroutine io_read_in_param ( 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_in_param module subroutine io_read_in_particle_info ( self , iu ) implicit none class ( swiftest_particle_info ), intent ( inout ) :: self !! Particle metadata information object integer ( I4B ), intent ( in ) :: iu !! Open file unit number end subroutine io_read_in_particle_info module function io_read_frame_body ( self , iu , param ) result ( 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 integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful end function io_read_frame_body module function io_read_frame_cb ( self , iu , param ) result ( 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 integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful end function io_read_frame_cb module function io_read_frame_system ( self , iu , param ) result ( 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 integer ( I4B ) :: ierr !! Error code: returns 0 if the read is successful end function io_read_frame_system module subroutine io_read_particle_info_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_read_particle_info_system module subroutine io_write_discard ( 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_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 ( self , pl , encbody , param ) implicit none class ( swiftest_encounter ), intent ( in ) :: self !! Swiftest encounter list object class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: encbody !! Encountering body - Swiftest generic body object (pl or tp) class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters 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_encounter ( iu , t , id1 , id2 , Gmass1 , Gmass2 , radius1 , radius2 , xh1 , xh2 , vh1 , vh2 ) implicit none integer ( I4B ), intent ( in ) :: iu !! Open file unit number real ( DP ), intent ( in ) :: t !! Time of encounter integer ( I4B ), intent ( in ) :: id1 , id2 !! ids of the two encountering bodies real ( DP ), intent ( in ) :: Gmass1 , Gmass2 !! G*mass of the two encountering bodies real ( DP ), intent ( in ) :: radius1 , radius2 !! Radii of the two encountering bodies real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 !! Swiftestcentric position vectors of the two encountering bodies real ( DP ), dimension (:), intent ( in ) :: vh1 , vh2 !! Swiftestcentric velocity vectors of the two encountering bodies end subroutine io_write_frame_encounter module subroutine io_write_frame_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_write_frame_system module subroutine io_write_hdr_system ( self , iu , param ) implicit none class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest nbody system object integer ( I4B ), intent ( inout ) :: iu !! Output file unit number class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_hdr_system module subroutine kick_getacch_int_all_pl ( npl , nplpl , k_plpl , x , Gmass , radius , acc ) implicit none integer ( I4B ), intent ( in ) :: npl !! Number of massive bodies integer ( I8B ), intent ( in ) :: nplpl !! Number of massive body interactions to compute integer ( I4B ), dimension (:,:), intent ( in ) :: k_plpl !! Array of interaction pair indices (flattened upper triangular matrix) real ( DP ), dimension (:,:), intent ( in ) :: x !! Position vector array real ( DP ), dimension (:), intent ( in ) :: Gmass !! Array of massive body G*mass real ( DP ), dimension (:), intent ( in ) :: radius !! Array of massive body radii real ( DP ), dimension (:,:), intent ( inout ) :: acc !! Acceleration vector array end subroutine kick_getacch_int_all_pl module pure subroutine kick_getacch_int_one_pl ( rji2 , xr , yr , zr , Gmi , Gmj , axi , ayi , azi , axj , ayj , azj ) implicit none real ( DP ), intent ( in ) :: rji2 !! Square of distance between the two bodies real ( DP ), intent ( in ) :: xr , yr , zr !! Distances between the two bodies in x, y, and z directions real ( DP ), intent ( in ) :: Gmi !! G*mass of body i real ( DP ), intent ( in ) :: Gmj !! G*mass of body j real ( DP ), intent ( inout ) :: axi , ayi , azi !! Acceleration vector components of body i real ( DP ), intent ( inout ) :: axj , ayj , azj !! Acceleration vector components of body j end subroutine kick_getacch_int_one_pl module pure subroutine kick_getacch_int_one_tp ( rji2 , xr , yr , zr , Gmpl , ax , ay , az ) implicit none real ( DP ), intent ( in ) :: rji2 !! Square of distance between the test particle and massive body real ( DP ), intent ( in ) :: xr , yr , zr !! Distances between the two bodies in x, y, and z directions real ( DP ), intent ( in ) :: Gmpl !! G*mass of massive body real ( DP ), intent ( inout ) :: ax , ay , az !! Acceleration vector components of test particle end subroutine kick_getacch_int_one_tp module subroutine kick_getacch_int_pl ( self ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object 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 netcdf_close ( self , param ) implicit none class ( netcdf_parameters ), intent ( inout ) :: self !! Parameters used to identify a particular NetCDF dataset class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine netcdf_close module subroutine netcdf_initialize_output ( self , param ) implicit none class ( netcdf_parameters ), intent ( inout ) :: self !! Parameters used to for writing a NetCDF dataset to file class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine netcdf_initialize_output module subroutine netcdf_open ( self , param ) implicit none class ( netcdf_parameters ), intent ( inout ) :: self !! Parameters used to identify a particular NetCDF dataset class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine netcdf_open module subroutine netcdf_write_frame_base ( self , iu , param ) implicit none class ( swiftest_base ), intent ( in ) :: self !! Swiftest base object class ( netcdf_parameters ), intent ( inout ) :: iu !! Parameters used to for writing a NetCDF dataset to file class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine netcdf_write_frame_base module subroutine netcdf_write_frame_system ( self , iu , param ) implicit none class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Parameters used to for writing a NetCDF dataset to file class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine netcdf_write_frame_system module subroutine netcdf_write_hdr_system ( self , iu , param ) implicit none class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest nbody system object class ( netcdf_parameters ), intent ( inout ) :: iu !! Parameters used to for writing a NetCDF dataset to file class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine netcdf_write_hdr_system module subroutine netcdf_write_particle_info_base ( self , iu ) implicit none class ( swiftest_base ), intent ( in ) :: self !! Swiftest particle object class ( netcdf_parameters ), intent ( inout ) :: iu !! Parameters used to identify a particular NetCDF dataset end subroutine netcdf_write_particle_info_base 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_system ( self ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object end subroutine obl_pot_system 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 pure subroutine orbel_xv2el ( mu , x , v , a , e , inc , capom , omega , capm ) 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 ) :: inc !! inclination real ( DP ), intent ( out ) :: capom !! longitude of ascending node real ( DP ), intent ( out ) :: omega !! argument of periapsis real ( DP ), intent ( out ) :: capm !! mean anomaly end subroutine orbel_xv2el 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 ( inout ) :: 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_particle_info_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine setup_initialize_particle_info_system 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_info ( arr , source , nold , nsrc , lsource_mask ) implicit none type ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( swiftest_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 util_append_arr_info 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_encounter ( self , source , lsource_mask ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list object class ( swiftest_encounter ), 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_encounter 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_coord_vb2vh_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_vb2vh_pl module subroutine util_coord_vb2vh_tp ( self , vbcb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body end subroutine util_coord_vb2vh_tp module subroutine util_coord_vh2vb_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_vh2vb_pl module subroutine util_coord_vh2vb_tp ( self , vbcb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body end subroutine util_coord_vh2vb_tp module subroutine util_coord_xh2xb_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_xh2xb_pl module subroutine util_coord_xh2xb_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_xh2xb_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_copy_particle_info ( self , source ) implicit none class ( swiftest_particle_info ), intent ( inout ) :: self class ( swiftest_particle_info ), intent ( in ) :: source end subroutine util_copy_particle_info module subroutine util_copy_particle_info_arr ( source , dest , idx ) implicit none class ( swiftest_particle_info ), dimension (:), intent ( in ) :: source !! Source object to copy into class ( swiftest_particle_info ), dimension (:), intent ( inout ) :: dest !! Swiftest body object with particle metadata information object integer ( I4B ), dimension (:), intent ( in ), optional :: idx !! Optional array of indices to draw the source object end subroutine util_copy_particle_info_arr 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_info ( keeps , inserts , lfill_list ) implicit none type ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( swiftest_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 util_fill_arr_info 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 , maxloop , 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 integer ( I4B ), intent ( in ) :: maxloop 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_info ( arr , nnew ) implicit none type ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_info 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_particle_info ( self , name , particle_type , status , origin_type , origin_time , origin_xh , origin_vh , discard_time , discard_xh , discard_vh , discard_body_id ) implicit none class ( swiftest_particle_info ), intent ( inout ) :: self character ( len =* ), intent ( in ), optional :: name !! Non-unique name character ( len =* ), intent ( in ), optional :: particle_type !! String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character ( len =* ), intent ( in ), optional :: status !! Particle status description: Active, Merged, Fragmented, etc. character ( len =* ), intent ( in ), optional :: origin_type !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real ( DP ), intent ( in ), optional :: origin_time !! The time of the particle's formation real ( DP ), dimension (:), intent ( in ), optional :: origin_xh !! The heliocentric distance vector at the time of the particle's formation real ( DP ), dimension (:), intent ( in ), optional :: origin_vh !! The heliocentric velocity vector at the time of the particle's formation real ( DP ), intent ( in ), optional :: discard_time !! The time of the particle's discard real ( DP ), dimension (:), intent ( in ), optional :: discard_xh !! The heliocentric distance vector at the time of the particle's discard real ( DP ), dimension (:), intent ( in ), optional :: discard_vh !! The heliocentric velocity vector at the time of the particle's discard integer ( I4B ), intent ( in ), optional :: discard_body_id !! The id of the other body involved in the discard (0 if no other body involved) end subroutine util_set_particle_info 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 util_sort_rearrange module subroutine util_sort_rearrange_arr_char_string ( arr , ind , n ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine util_sort_rearrange_arr_char_string module subroutine util_sort_rearrange_arr_DP ( arr , ind , n ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine util_sort_rearrange_arr_DP module subroutine util_sort_rearrange_arr_DPvec ( arr , ind , n ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine util_sort_rearrange_arr_DPvec module subroutine util_sort_rearrange_arr_I4B ( arr , ind , n ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine util_sort_rearrange_arr_I4B module subroutine util_sort_rearrange_arr_info ( arr , ind , n ) implicit none type ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine util_sort_rearrange_arr_info module subroutine util_sort_rearrange_arr_logical ( arr , ind , n ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index to rearrange against integer ( I4B ), intent ( in ) :: n !! Number of elements in arr and ind to rearrange end subroutine util_sort_rearrange_arr_logical end interface util_sort_rearrange 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_I8B ( keeps , discards , lspill_list , ldestructive ) implicit none integer ( I8B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I8B ), 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_I8B module subroutine util_spill_arr_info ( keeps , discards , lspill_list , ldestructive ) implicit none type ( swiftest_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( swiftest_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 util_spill_arr_info 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 ( inout ) :: 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~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.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~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~netcdf.f90 netcdf.f90 sourcefile~netcdf.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_setup.f90 helio_setup.f90 sourcefile~helio_setup.f90->sourcefile~swiftest.f90 sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90~2 orbel.f90 sourcefile~orbel.f90~2->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~util_index.f90 util_index.f90 sourcefile~util_index.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.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":"fraggle_util.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_util.f90~~EfferentGraph sourcefile~fraggle_util.f90 fraggle_util.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_util.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_util Source Code fraggle_util.f90 Source Code submodule ( fraggle_classes ) s_fraggle_util use swiftest contains module subroutine fraggle_util_add_fragments_to_system ( frag , colliders , system , param ) !! Author: David A. Minton !! !! Adds fragments to the temporary system pl object implicit none ! Arguments class ( fraggle_fragments ), intent ( in ) :: frag !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters ! Internals integer ( I4B ) :: i , npl_before , npl_after logical , dimension (:), allocatable :: lexclude associate ( nfrag => frag % nbody , pl => system % pl , cb => system % cb ) npl_after = pl % nbody npl_before = npl_after - nfrag allocate ( lexclude ( npl_after )) pl % status ( npl_before + 1 : npl_after ) = ACTIVE pl % mass ( npl_before + 1 : npl_after ) = frag % mass ( 1 : nfrag ) pl % Gmass ( npl_before + 1 : npl_after ) = frag % mass ( 1 : nfrag ) * param % GU pl % radius ( npl_before + 1 : npl_after ) = frag % radius ( 1 : nfrag ) do concurrent ( i = 1 : nfrag ) pl % xb (:, npl_before + i ) = frag % xb (:, i ) pl % vb (:, npl_before + i ) = frag % vb (:, i ) pl % xh (:, npl_before + i ) = frag % xb (:, i ) - cb % xb (:) pl % vh (:, npl_before + i ) = frag % vb (:, i ) - cb % vb (:) end do if ( param % lrotation ) then pl % Ip (:, npl_before + 1 : npl_after ) = frag % Ip (:, 1 : nfrag ) pl % rot (:, npl_before + 1 : npl_after ) = frag % rot (:, 1 : nfrag ) end if ! This will remove the colliders from the system since we've replaced them with fragments lexclude ( 1 : npl_after ) = . false . lexclude ( colliders % idx ( 1 : colliders % ncoll )) = . true . where ( lexclude ( 1 : npl_after )) pl % status ( 1 : npl_after ) = INACTIVE elsewhere pl % status ( 1 : npl_after ) = ACTIVE endwhere end associate return end subroutine fraggle_util_add_fragments_to_system module subroutine fraggle_util_ang_mtm ( self ) !! Author: David A. Minton !! !! Calcualtes the current angular momentum of the fragments implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object ! Internals integer ( I4B ) :: i associate ( frag => self , nfrag => self % nbody ) frag % L_orbit (:) = 0.0_DP frag % L_spin (:) = 0.0_DP do i = 1 , nfrag frag % L_orbit (:) = frag % L_orbit (:) + frag % mass ( i ) * ( frag % x_coll (:, i ) . cross . frag % v_coll (:, i )) frag % L_spin (:) = frag % L_spin (:) + frag % mass ( i ) * frag % radius ( i ) ** 2 * frag % Ip (:, i ) * frag % rot (:, i ) end do end associate return end subroutine fraggle_util_ang_mtm module subroutine fraggle_util_construct_temporary_system ( frag , system , param , tmpsys , tmpparam ) !! 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 ! Arguments class ( fraggle_fragments ), intent ( in ) :: frag !! Fraggle fragment system object class ( swiftest_nbody_system ), intent ( in ) :: system !! Original swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters class ( swiftest_nbody_system ), allocatable , intent ( out ) :: tmpsys !! Output temporary swiftest nbody system object class ( swiftest_parameters ), allocatable , intent ( out ) :: tmpparam !! Output temporary configuration run parameters ! Internals logical , dimension (:), allocatable :: linclude integer ( I4B ) :: npl_tot associate ( nfrag => frag % nbody , pl => system % pl , npl => system % pl % nbody , cb => system % cb ) ! Set up a new system based on the original if ( allocated ( tmpparam )) deallocate ( tmpparam ) if ( allocated ( tmpsys )) deallocate ( tmpsys ) allocate ( tmpparam , source = param ) call setup_construct_system ( tmpsys , tmpparam ) ! No test particles necessary for energy/momentum calcs call tmpsys % tp % setup ( 0 , param ) ! Replace the empty central body object with a copy of the original deallocate ( tmpsys % cb ) allocate ( tmpsys % cb , source = cb ) ! Make space for the fragments npl_tot = npl + nfrag call tmpsys % pl % setup ( npl_tot , tmpparam ) allocate ( linclude ( npl_tot )) ! Fill up the temporary system with all of the original bodies, leaving the spaces for fragments empty until we add them in later linclude ( 1 : npl ) = . true . linclude ( npl + 1 : npl_tot ) = . false . call tmpsys % pl % fill ( pl , linclude ) ! Scale the temporary system to the natural units of the current Fraggle calculation call tmpsys % rescale ( tmpparam , frag % mscale , frag % dscale , frag % tscale ) end associate return end subroutine fraggle_util_construct_temporary_system module subroutine fraggle_util_get_energy_momentum ( self , colliders , system , param , lbefore ) !! Author: David A. Minton !! !! Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.) !! This subrourtine works by building a temporary internal massive body object 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 massive body object in a temporary system object called tmpsys to feed it into symba_energy implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters logical , intent ( in ) :: lbefore !! Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa ! Internals integer ( I4B ) :: i , nplm logical , dimension (:), allocatable :: lexclude logical :: lk_plpl logical , save :: ladd_frags class ( swiftest_nbody_system ), allocatable , save :: tmpsys class ( swiftest_parameters ), allocatable , save :: tmpparam integer ( I4B ) :: npl_before , npl_after associate ( frag => self , nfrag => self % nbody , pl => system % pl , cb => system % cb ) ! Because we're making a copy of the massive body object 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. npl_before = pl % nbody npl_after = npl_before + nfrag ! Build the exluded body logical mask allocate ( lexclude ( npl_after )) if ( lbefore ) then lexclude ( 1 : npl_before ) = . false . lexclude ( npl_before + 1 : npl_after ) = . true . call fraggle_util_construct_temporary_system ( frag , system , param , tmpsys , tmpparam ) else lexclude ( 1 : npl_after ) = . false . lexclude ( colliders % idx ( 1 : colliders % ncoll )) = . true . if (. not . allocated ( tmpsys )) then write ( * , * ) \"Error in fraggle_util_get_energy_momentum. This must be called with lbefore=.true. at least once before calling it with lbefore=.false.\" call util_exit ( FAILURE ) end if call fraggle_util_add_fragments_to_system ( frag , colliders , tmpsys , tmpparam ) end if call tmpsys % pl % index ( param ) call tmpsys % get_energy_and_momentum ( param ) ! Calculate the current fragment energy and momentum balances if ( lbefore ) then frag % Lorbit_before (:) = tmpsys % Lorbit (:) frag % Lspin_before (:) = tmpsys % Lspin (:) frag % Ltot_before (:) = tmpsys % Ltot (:) frag % ke_orbit_before = tmpsys % ke_orbit frag % ke_spin_before = tmpsys % ke_spin frag % pe_before = tmpsys % pe frag % Etot_before = tmpsys % te else frag % Lorbit_after (:) = tmpsys % Lorbit (:) frag % Lspin_after (:) = tmpsys % Lspin (:) frag % Ltot_after (:) = tmpsys % Ltot (:) frag % ke_orbit_after = tmpsys % ke_orbit frag % ke_spin_after = tmpsys % ke_spin frag % pe_after = tmpsys % pe frag % Etot_after = tmpsys % te end if end associate return end subroutine fraggle_util_get_energy_momentum module subroutine fraggle_util_restructure ( self , colliders , try , f_spin , r_max_start ) !! Author: David A. Minton !! !! Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object integer ( I4B ), intent ( in ) :: try !! The current number of times Fraggle has tried to find a solution real ( DP ), intent ( inout ) :: f_spin !! Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real ( DP ), intent ( inout ) :: r_max_start !! The maximum radial distance that the position calculation starts with. This increases after a failed attempt ! Internals integer ( I4B ) :: i real ( DP ), save :: ke_tot_deficit , r_max_start_old , ke_avg_deficit_old 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 , ke_avg_deficit 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 associate ( frag => self ) call random_number ( delta_r_max ) delta_r_max = sum ( colliders % radius (:)) * ( 1.0_DP + 2e-1_DP * ( delta_r_max - 0.5_DP )) if ( try == 1 ) then ke_tot_deficit = - ( frag % ke_budget - frag % ke_orbit - frag % ke_spin ) ke_avg_deficit = ke_tot_deficit delta_r = delta_r_max else ! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try ke_tot_deficit = ke_tot_deficit - ( frag % ke_budget - frag % ke_orbit - frag % ke_spin ) ke_avg_deficit = ke_tot_deficit / 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 ) 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 ke_avg_deficit_old = ke_avg_deficit if ( f_spin > epsilon ( 1.0_DP )) then ! Try reducing the fraction in spin f_spin = f_spin / 2 else f_spin = 0.0_DP end if end associate return end subroutine fraggle_util_restructure module subroutine fraggle_util_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 , nfrag real ( DP ) :: mtot mvec_frag (:) = 0.0_DP mtot = sum ( m_frag ) nfrag = size ( m_frag ) 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 fraggle_util_shift_vector_to_origin module function fraggle_util_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 , nfrag allocate ( vb , mold = v_r_unit ) ! Make sure the velocity magnitude stays positive nfrag = size ( m_frag ) 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 fraggle_util_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 fraggle_util_vmag_to_vb end submodule s_fraggle_util","tags":"","loc":"sourcefile/fraggle_util.f90.html"},{"title":"fraggle_io.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_io.f90~~EfferentGraph sourcefile~fraggle_io.f90 fraggle_io.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_io.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_io.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_io Source Code fraggle_io.f90 Source Code submodule ( fraggle_classes ) s_fraggle_io use swiftest contains module subroutine fraggle_io_log_generate ( frag ) !! author: David A. Minton !! !! Writes a log of the results of the fragment generation implicit none ! Arguments class ( fraggle_fragments ), intent ( in ) :: frag ! Internals integer ( I4B ) :: i character ( STRMAX ) :: errmsg character ( len =* ), parameter :: fmtlabel = \"(A14,10(ES11.4,1X,:))\" open ( unit = FRAGGLE_LOG_UNIT , file = FRAGGLE_LOG_OUT , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"           Fraggle fragment generation results\" write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" write ( FRAGGLE_LOG_UNIT , \"(' dL_tot should be very small' )\" ) write ( FRAGGLE_LOG_UNIT , fmtlabel ) ' dL_tot      |' , (. mag .( frag % Ltot_after (:) - frag % Ltot_before (:))) / (. mag . frag % Ltot_before (:)) write ( FRAGGLE_LOG_UNIT , \"(' dE_tot should be negative and equal to Qloss' )\" ) write ( FRAGGLE_LOG_UNIT , fmtlabel ) ' dE_tot      |' , ( frag % Etot_after - frag % Etot_before ) / abs ( frag % Etot_before ) write ( FRAGGLE_LOG_UNIT , fmtlabel ) ' Qloss       |' , - frag % Qloss / abs ( frag % Etot_before ) write ( FRAGGLE_LOG_UNIT , fmtlabel ) ' dE - Qloss  |' , ( frag % Etot_after - frag % Etot_before + frag % Qloss ) / abs ( frag % Etot_before ) write ( FRAGGLE_LOG_UNIT , \"(' -------------------------------------------------------------------------------------')\" ) write ( FRAGGLE_LOG_UNIT , * ) \"Individual fragment values (collisional system natural units)\" write ( FRAGGLE_LOG_UNIT , * ) \"mass\" do i = 1 , frag % nbody write ( FRAGGLE_LOG_UNIT , * ) i , frag % mass ( i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"x_coll\" do i = 1 , frag % nbody write ( FRAGGLE_LOG_UNIT , * ) i , frag % x_coll (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"v_coll\" do i = 1 , frag % nbody write ( FRAGGLE_LOG_UNIT , * ) i , frag % v_coll (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"xb\" do i = 1 , frag % nbody write ( FRAGGLE_LOG_UNIT , * ) i , frag % xb (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"vb\" do i = 1 , frag % nbody write ( FRAGGLE_LOG_UNIT , * ) i , frag % vb (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"rot\" do i = 1 , frag % nbody write ( FRAGGLE_LOG_UNIT , * ) i , frag % rot (:, i ) end do close ( FRAGGLE_LOG_UNIT ) return 667 continue write ( * , * ) \"Error writing Fraggle message to log file: \" // trim ( adjustl ( errmsg )) end subroutine fraggle_io_log_generate module subroutine fraggle_io_log_one_message ( message ) !! author: David A. Minton !! !! Writes a single message to the fraggle log file implicit none ! Arguments character ( len =* ), intent ( in ) :: message ! Internals character ( STRMAX ) :: errmsg open ( unit = FRAGGLE_LOG_UNIT , file = FRAGGLE_LOG_OUT , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * ) trim ( adjustl ( message )) close ( FRAGGLE_LOG_UNIT ) return 667 continue write ( * , * ) \"Error writing Fraggle message to log file: \" // trim ( adjustl ( errmsg )) end subroutine fraggle_io_log_one_message module subroutine fraggle_io_log_pl ( pl , param ) !! author: David A. Minton !! !! Writes a single message to the fraggle log file implicit none ! Arguments class ( swiftest_pl ), intent ( in ) :: pl !! Swiftest massive body object (only the new bodies generated in a collision) class ( swiftest_parameters ), intent ( in ) :: param !! Current swiftest run configuration parameters ! Internals integer ( I4B ) :: i character ( STRMAX ) :: errmsg open ( unit = FRAGGLE_LOG_UNIT , file = FRAGGLE_LOG_OUT , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"           Fraggle fragment final body properties\" write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"id, name\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % id ( i ), pl % info ( i )% name end do write ( FRAGGLE_LOG_UNIT , * ) \"mass, Gmass\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % mass ( i ), pl % Gmass ( i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"radius\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % radius ( i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"xb\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % xb (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"vb\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % vb (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"xh\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % xh (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"vh\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % vh (:, i ) end do if ( param % lrotation ) then write ( FRAGGLE_LOG_UNIT , * ) \"rot\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % rot (:, i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"Ip\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % Ip (:, i ) end do end if if ( param % ltides ) then write ( FRAGGLE_LOG_UNIT , * ) \"Q\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % Q ( i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"k2\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % k2 ( i ) end do write ( FRAGGLE_LOG_UNIT , * ) \"tlag\" do i = 1 , pl % nbody write ( FRAGGLE_LOG_UNIT , * ) i , pl % tlag ( i ) end do end if close ( FRAGGLE_LOG_UNIT ) return 667 continue write ( * , * ) \"Error writing Fraggle message to log file: \" // trim ( adjustl ( errmsg )) end subroutine fraggle_io_log_pl module subroutine fraggle_io_log_regime ( colliders , frag ) !! author: David A. Minton !! !! Writes a log of the results of the collisional regime determination implicit none ! Arguments class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object class ( fraggle_fragments ), intent ( in ) :: frag !! Fraggle fragment object ! Internals character ( STRMAX ) :: errmsg open ( unit = FRAGGLE_LOG_UNIT , file = FRAGGLE_LOG_OUT , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"           Fraggle collisional regime determination results\" write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"----------------------- Collider information -----------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"True number of colliders : \" , colliders % ncoll write ( FRAGGLE_LOG_UNIT , * ) \"Index list of true colliders  : \" , colliders % idx ( 1 : colliders % ncoll ) write ( FRAGGLE_LOG_UNIT , * ) \"-------------------- Two-body equialent values ---------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"mass1    : \" , colliders % mass ( 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"radius1  : \" , colliders % radius ( 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"xb1      : \" , colliders % xb (:, 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"vb1      : \" , colliders % vb (:, 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"rot1     : \" , colliders % rot (:, 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"Ip1      : \" , colliders % Ip (:, 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"L_spin1  : \" , colliders % L_spin (:, 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"L_orbit1 : \" , colliders % L_orbit (:, 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"mass2    : \" , colliders % mass ( 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"radius2  : \" , colliders % radius ( 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"xb2      : \" , colliders % xb (:, 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"vb2      : \" , colliders % vb (:, 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"rot2     : \" , colliders % rot (:, 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"Ip2      : \" , colliders % Ip (:, 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"L_spin2  : \" , colliders % L_spin (:, 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"L_orbit2 : \" , colliders % L_orbit (:, 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"------------------------------ Regime -----------------------------\" select case ( frag % regime ) case ( COLLRESOLVE_REGIME_MERGE ) write ( FRAGGLE_LOG_UNIT , * ) \"Merge\" case ( COLLRESOLVE_REGIME_DISRUPTION ) write ( FRAGGLE_LOG_UNIT , * ) \"Disruption\" case ( COLLRESOLVE_REGIME_SUPERCATASTROPHIC ) write ( FRAGGLE_LOG_UNIT , * ) \"Supercatastrophic disruption\" case ( COLLRESOLVE_REGIME_GRAZE_AND_MERGE ) write ( FRAGGLE_LOG_UNIT , * ) \"Graze and merge\" case ( COLLRESOLVE_REGIME_HIT_AND_RUN ) write ( FRAGGLE_LOG_UNIT , * ) \"Hit and run\" end select write ( FRAGGLE_LOG_UNIT , * ) \"----------------------- Fragment information ----------------------\" write ( FRAGGLE_LOG_UNIT , * ) \"Total mass of fragments      : \" , frag % mtot write ( FRAGGLE_LOG_UNIT , * ) \"Largest fragment mass        : \" , frag % mass_dist ( 1 ) write ( FRAGGLE_LOG_UNIT , * ) \"Second-largest fragment mass : \" , frag % mass_dist ( 2 ) write ( FRAGGLE_LOG_UNIT , * ) \"Remaining fragment mass      : \" , frag % mass_dist ( 3 ) write ( FRAGGLE_LOG_UNIT , * ) \"Center of mass position      : \" , frag % xbcom (:) write ( FRAGGLE_LOG_UNIT , * ) \"Center of mass velocity      : \" , frag % vbcom (:) write ( FRAGGLE_LOG_UNIT , * ) \"Energy loss                  : \" , frag % Qloss write ( FRAGGLE_LOG_UNIT , * ) \"--------------------------------------------------------------------\" close ( FRAGGLE_LOG_UNIT ) return 667 continue write ( * , * ) \"Error writing Fraggle regime information to log file: \" // trim ( adjustl ( errmsg )) end subroutine fraggle_io_log_regime module subroutine fraggle_io_log_start ( param ) !! author: David A. Minton !! !! Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param ! Internals character ( STRMAX ) :: errmsg logical :: fileExists inquire ( file = FRAGGLE_LOG_OUT , exist = fileExists ) if (. not . param % lrestart . or . . not . fileExists ) then open ( unit = FRAGGLE_LOG_UNIT , file = FRAGGLE_LOG_OUT , status = \"REPLACE\" , err = 667 , iomsg = errmsg ) write ( FRAGGLE_LOG_UNIT , * , err = 667 , iomsg = errmsg ) \"Fraggle logfile\" end if close ( FRAGGLE_LOG_UNIT ) return 667 continue write ( * , * ) \"Error writing Fraggle log file: \" // trim ( adjustl ( errmsg )) end subroutine fraggle_io_log_start end submodule s_fraggle_io","tags":"","loc":"sourcefile/fraggle_io.f90.html"},{"title":"fraggle_generate.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_generate.f90~~EfferentGraph sourcefile~fraggle_generate.f90 fraggle_generate.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_generate.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_generate.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_generate Source Code fraggle_generate.f90 Source Code submodule ( fraggle_classes ) s_fraggle_generate use swiftest 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 ), parameter :: F_SPIN_FIRST = 0.05_DP !! The initial try value of the fraction of energy or momenum in spin (whichever has the lowest kinetic energy) real ( DP ), parameter :: FRAGGLE_LTOL = 10 * epsilon ( 1.0_DP ) real ( DP ), parameter :: FRAGGLE_ETOL = 1e-8_DP contains module subroutine fraggle_generate_fragments ( self , colliders , system , param , lfailure ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Generates a system of fragments in barycentric coordinates that conserves energy and momentum. use , intrinsic :: ieee_exceptions implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle system object the outputs will be the fragmentation class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle colliders object containing the two-body equivalent values of the colliding bodies class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters logical , intent ( out ) :: lfailure !! Answers the question: Should this have been a merger instead? ! Internals integer ( I4B ) :: i integer ( I4B ) :: try real ( DP ) :: r_max_start , f_spin , dEtot , dLmag integer ( I4B ), parameter :: MAXTRY = 100 logical :: lk_plpl logical , dimension ( size ( IEEE_ALL )) :: fpe_halting_modes , fpe_quiet_modes logical , dimension ( size ( IEEE_USUAL )) :: fpe_flag character ( len = STRMAX ) :: message ! The minimization and linear solvers can sometimes lead to floating point exceptions. Rather than halting the code entirely if this occurs, we ! can simply fail the attempt and try again. So we need to turn off any floating point exception halting modes temporarily 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 ) associate ( frag => self , nfrag => self % nbody , pl => system % pl ) write ( message , * ) nfrag call fraggle_io_log_one_message ( \"Fraggle generating \" // trim ( adjustl ( message )) // \" fragments.\" ) if ( nfrag < NFRAG_MIN ) then write ( message , * ) \"Fraggle needs at least \" , NFRAG_MIN , \" fragments, but only \" , nfrag , \" were given.\" call fraggle_io_log_one_message ( message ) lfailure = . true . return end if f_spin = F_SPIN_FIRST lk_plpl = allocated ( pl % k_plpl ) if ( lk_plpl ) deallocate ( pl % k_plpl ) call frag % set_natural_scale ( colliders ) call frag % reset () ! Calculate the initial energy of the system without the collisional family call frag % get_energy_and_momentum ( colliders , system , param , lbefore = . true .) ! Start out the fragments close to the initial separation distance. This will be increased if there is any overlap or we fail to find a solution r_max_start = 1 * norm2 ( colliders % xb (:, 2 ) - colliders % xb (:, 1 )) lfailure = . false . try = 1 do while ( try < MAXTRY ) write ( message , * ) try call fraggle_io_log_one_message ( \"Fraggle try \" // trim ( adjustl ( message ))) if ( lfailure ) then call frag % restructure ( colliders , try , f_spin , r_max_start ) call frag % reset () try = try + 1 end if lfailure = . false . call ieee_set_flag ( ieee_all , . false .) ! Set all fpe flags to quiet call fraggle_generate_pos_vec ( frag , colliders , r_max_start ) call frag % set_coordinate_system ( colliders ) ! Initial velocity guess will be the barycentric velocity of the colliding system so that the budgets are based on the much smaller collisional-frame velocities do concurrent ( i = 1 : nfrag ) frag % vb (:, i ) = frag % vbcom (:) end do call frag % get_energy_and_momentum ( colliders , system , param , lbefore = . false .) call frag % set_budgets ( colliders ) call fraggle_generate_spins ( frag , colliders , f_spin , lfailure ) if ( lfailure ) then call fraggle_io_log_one_message ( \"Fraggle failed to find spins\" ) cycle end if call fraggle_generate_tan_vel ( frag , colliders , lfailure ) if ( lfailure ) then call fraggle_io_log_one_message ( \"Fraggle failed to find tangential velocities\" ) cycle end if call fraggle_generate_rad_vel ( frag , colliders , lfailure ) if ( lfailure ) then call fraggle_io_log_one_message ( \"Fraggle failed to find radial velocities\" ) cycle end if call frag % get_energy_and_momentum ( colliders , system , param , lbefore = . false .) dEtot = frag % Etot_after - frag % Etot_before dLmag = . mag . ( frag % Ltot_after (:) - frag % Ltot_before (:)) lfailure = (( abs ( dEtot + frag % Qloss ) > FRAGGLE_ETOL ) . or . ( dEtot > 0.0_DP )) if ( lfailure ) then write ( message , * ) dEtot , abs ( dEtot + frag % Qloss ) / FRAGGLE_ETOL call fraggle_io_log_one_message ( \"Fraggle failed due to high energy error: \" // trim ( adjustl ( message ))) cycle end if lfailure = (( abs ( dLmag ) / (. mag . frag % Ltot_before )) > FRAGGLE_LTOL ) if ( lfailure ) then write ( message , * ) dLmag / (. mag . frag % Ltot_before (:)) call fraggle_io_log_one_message ( \"Fraggle failed due to high angular momentum error: \" // trim ( adjustl ( message ))) cycle end if ! Check if any of the usual floating point exceptions happened, and fail the try if so call ieee_get_flag ( ieee_usual , fpe_flag ) lfailure = any ( fpe_flag ) if (. not . lfailure ) exit write ( message , * ) \"Fraggle failed due to a floating point exception: \" , fpe_flag call fraggle_io_log_one_message ( message ) end do write ( message , * ) try if ( lfailure ) then call fraggle_io_log_one_message ( \"Fraggle fragment generation failed after \" // trim ( adjustl ( message )) // \" tries\" ) else call fraggle_io_log_one_message ( \"Fraggle fragment generation succeeded after \" // trim ( adjustl ( message )) // \" tries\" ) call fraggle_io_log_generate ( frag ) end if call frag % set_original_scale ( colliders ) ! Restore the big array if ( lk_plpl ) call pl % index ( param ) end associate call ieee_set_halting_mode ( IEEE_ALL , fpe_halting_modes ) ! Save the current halting modes so we can turn them off temporarily return end subroutine fraggle_generate_fragments subroutine fraggle_generate_pos_vec ( frag , colliders , r_max_start ) !! 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 ! Arguments class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object real ( DP ), intent ( in ) :: r_max_start !! Initial guess for the starting maximum radial distance of fragments ! Internals real ( DP ) :: dis , rad , r_max logical , dimension (:), allocatable :: loverlap integer ( I4B ) :: i , j associate ( nfrag => frag % nbody ) 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 ( colliders % 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 ( frag % x_coll (:, 3 : nfrag )) loverlap (:) = . true . do while ( any ( loverlap ( 3 : nfrag ))) frag % x_coll (:, 1 ) = colliders % xb (:, 1 ) - frag % xbcom (:) frag % x_coll (:, 2 ) = colliders % xb (:, 2 ) - frag % xbcom (:) r_max = r_max + 0.1_DP * rad do i = 3 , nfrag if ( loverlap ( i )) then call random_number ( frag % x_coll (:, i )) frag % x_coll (:, i ) = 2 * ( frag % x_coll (:, i ) - 0.5_DP ) * r_max end if end do loverlap (:) = . false . do j = 1 , nfrag do i = j + 1 , nfrag dis = norm2 ( frag % x_coll (:, j ) - frag % x_coll (:, i )) loverlap ( i ) = loverlap ( i ) . or . ( dis <= ( frag % radius ( i ) + frag % radius ( j ))) end do end do end do call fraggle_util_shift_vector_to_origin ( frag % mass , frag % x_coll ) call frag % set_coordinate_system ( colliders ) do i = 1 , nfrag frag % xb (:, i ) = frag % x_coll (:, i ) + frag % xbcom (:) end do frag % xbcom (:) = 0.0_DP do i = 1 , nfrag frag % xbcom (:) = frag % xbcom (:) + frag % mass ( i ) * frag % xb (:, i ) end do frag % xbcom (:) = frag % xbcom (:) / frag % mtot end associate return end subroutine fraggle_generate_pos_vec subroutine fraggle_generate_spins ( frag , colliders , f_spin , lfailure ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget. !! !! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution. implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object real ( DP ), intent ( in ) :: f_spin !! Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy) logical , intent ( out ) :: lfailure !! Logical flag indicating whether this step fails or succeeds! ! Internals real ( DP ), dimension ( NDIM ) :: L_remainder , rot_L , rot_ke integer ( I4B ) :: i character ( len = STRMAX ) :: message associate ( nfrag => frag % nbody ) lfailure = . false . ! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest L_remainder (:) = frag % L_budget (:) frag % rot (:,:) = 0.0_DP frag % ke_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 * frag % ke_budget / ( nfrag * frag % mass ( i ) * frag % radius ( i ) ** 2 * frag % Ip ( 3 , i ))) * L_remainder (:) / norm2 ( L_remainder (:)) rot_L (:) = f_spin * L_remainder (:) / ( nfrag * frag % mass ( i ) * frag % radius ( i ) ** 2 * frag % Ip ( 3 , i )) if ( norm2 ( rot_ke ) < norm2 ( rot_L )) then frag % rot (:, i ) = rot_ke (:) else frag % rot (:, i ) = rot_L (:) end if frag % ke_spin = frag % ke_spin + frag % mass ( i ) * frag % Ip ( 3 , i ) * frag % radius ( i ) ** 2 * dot_product ( frag % rot (:, i ), frag % rot (:, i )) end do frag % ke_spin = 0.5_DP * frag % ke_spin lfailure = (( frag % ke_budget - frag % ke_spin - frag % ke_orbit ) < 0.0_DP ) if ( lfailure ) then call fraggle_io_log_one_message ( \" \" ) call fraggle_io_log_one_message ( \"Spin failure diagnostics\" ) write ( message , * ) frag % ke_budget call fraggle_io_log_one_message ( \"ke_budget     : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_spin call fraggle_io_log_one_message ( \"ke_spin       : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_orbit call fraggle_io_log_one_message ( \"ke_orbit      : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_budget - frag % ke_spin - frag % ke_orbit call fraggle_io_log_one_message ( \"ke_remainder  : \" // trim ( adjustl ( message ))) end if end associate return end subroutine fraggle_generate_spins subroutine fraggle_generate_tan_vel ( frag , colliders , lfailure ) !! 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 (frag%ke_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 class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object logical , intent ( out ) :: lfailure !! Logical flag indicating whether this step fails or succeeds ! Internals integer ( I4B ) :: i real ( DP ), parameter :: TOL_MIN = 1e-1_DP ! This doesn't have to be very accurate, as we really just want a tangential velocity distribution with less kinetic energy than our initial guess. real ( DP ), parameter :: TOL_INIT = 1e-14_DP real ( DP ), parameter :: VNOISE_MAG = 1e-3_DP !! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure integer ( I4B ), parameter :: MAXLOOP = 10 real ( DP ) :: tol , ke_remainder real ( DP ), dimension (:), allocatable :: v_t_initial real ( DP ), dimension ( frag % nbody ) :: kefrag , vnoise type ( lambda_obj ) :: spinfunc type ( lambda_obj_err ) :: objective_function real ( DP ), dimension ( NDIM ) :: Li , L_remainder , L_frag_tot character ( len = STRMAX ) :: message associate ( nfrag => frag % nbody ) lfailure = . false . allocate ( v_t_initial , mold = frag % v_t_mag ) v_t_initial (:) = 0.0_DP frag % v_coll (:,:) = 0.0_DP ! 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. call frag % get_ang_mtm () L_remainder (:) = frag % L_budget (:) - frag % L_spin (:) do i = 1 , nfrag v_t_initial ( i ) = norm2 ( L_remainder (:)) / (( nfrag - i + 1 ) * frag % mass ( i ) * norm2 ( frag % x_coll (:, i ))) Li (:) = frag % mass ( i ) * ( frag % x_coll (:, i ) . cross . ( v_t_initial ( i ) * frag % 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 , lfailure ) tol = TOL_INIT do while ( tol < TOL_MIN ) frag % v_t_mag ( 7 : nfrag ) = util_minimize_bfgs ( objective_function , nfrag - 6 , v_t_initial ( 7 : nfrag ), tol , MAXLOOP , lfailure ) ! 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 ) = frag % v_t_mag ( 7 : nfrag ) if (. not . lfailure ) exit tol = tol * 2_DP ! Keep increasing the tolerance until we converge on a solution call random_number ( vnoise ( 1 : nfrag )) ! Adding a bit of noise to the initial conditions helps it find a solution more often vnoise (:) = 1.0_DP + VNOISE_MAG * ( 2 * vnoise (:) - 1._DP ) v_t_initial (:) = v_t_initial (:) * vnoise (:) end do frag % v_t_mag ( 1 : nfrag ) = solve_fragment_tan_vel ( v_t_mag_input = v_t_initial ( 7 : nfrag ), lfailure = lfailure ) ! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin) frag % vb (:, 1 : nfrag ) = fraggle_util_vmag_to_vb ( frag % v_r_mag ( 1 : nfrag ), frag % v_r_unit (:, 1 : nfrag ), frag % v_t_mag ( 1 : nfrag ), frag % v_t_unit (:, 1 : nfrag ), frag % mass ( 1 : nfrag ), frag % vbcom (:)) do concurrent ( i = 1 : nfrag ) frag % v_coll (:, i ) = frag % vb (:, i ) - frag % vbcom (:) end do ! 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 ) kefrag ( i ) = frag % mass ( i ) * dot_product ( frag % vb (:, i ), frag % vb (:, i )) end do frag % ke_orbit = 0.5_DP * sum ( kefrag (:)) ! If we are over the energy budget, flag this as a failure so we can try again lfailure = (( frag % ke_budget - frag % ke_spin - frag % ke_orbit ) < 0.0_DP ) if ( lfailure ) then call fraggle_io_log_one_message ( \" \" ) call fraggle_io_log_one_message ( \"Tangential velocity failure diagnostics\" ) call frag % get_ang_mtm () L_frag_tot = frag % L_spin (:) + frag % L_orbit (:) write ( message , * ) . mag .( frag % L_budget (:) - L_frag_tot (:)) / (. mag . frag % Ltot_before (:)) call fraggle_io_log_one_message ( \"|L_remainder| : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_budget call fraggle_io_log_one_message ( \"ke_budget     : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_spin call fraggle_io_log_one_message ( \"ke_spin       : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_orbit call fraggle_io_log_one_message ( \"ke_tangential : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_budget - frag % ke_spin - frag % ke_orbit call fraggle_io_log_one_message ( \"ke_radial     : \" // trim ( adjustl ( message ))) end if end associate return contains function solve_fragment_tan_vel ( lfailure , 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 ) :: lfailure !! 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 associate ( nfrag => frag % nbody ) lfailure = . 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 ) = frag % mass ( i ) * frag % v_t_unit (:, i ) A ( 4 : 6 , i ) = frag % mass ( i ) * frag % rmag ( i ) * ( frag % v_r_unit (:, i ) . cross . frag % v_t_unit (:, i )) else if ( present ( v_t_mag_input )) then vtmp (:) = v_t_mag_input ( i - 6 ) * frag % v_t_unit (:, i ) L_lin_others (:) = L_lin_others (:) + frag % mass ( i ) * vtmp (:) L (:) = frag % mass ( i ) * ( frag % x_coll (:, i ) . cross . vtmp (:)) L_orb_others (:) = L_orb_others (:) + L (:) end if end do b ( 1 : 3 ) = - L_lin_others (:) b ( 4 : 6 ) = frag % L_budget (:) - frag % L_spin (:) - L_orb_others (:) allocate ( v_t_mag_output ( nfrag )) v_t_mag_output ( 1 : 6 ) = util_solve_linear_system ( A , b , 6 , lfailure ) if ( present ( v_t_mag_input )) v_t_mag_output ( 7 : nfrag ) = v_t_mag_input (:) end associate return end function solve_fragment_tan_vel function tangential_objective_function ( v_t_mag_input , lfailure ) 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 ) :: lfailure !! Error flag ! Result real ( DP ) :: fval ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM , frag % nbody ) :: v_shift real ( DP ), dimension ( frag % nbody ) :: v_t_new , kearr real ( DP ) :: keo associate ( nfrag => frag % nbody ) lfailure = . false . v_t_new (:) = solve_fragment_tan_vel ( v_t_mag_input = v_t_mag_input (:), lfailure = lfailure ) v_shift (:,:) = fraggle_util_vmag_to_vb ( frag % v_r_mag , frag % v_r_unit , v_t_new , frag % v_t_unit , frag % mass , frag % vbcom ) kearr = 0.0_DP do concurrent ( i = 1 : nfrag ) kearr ( i ) = frag % mass ( i ) * dot_product ( v_shift (:, i ), v_shift (:, i )) end do keo = 0.5_DP * sum ( kearr (:)) fval = keo lfailure = . false . end associate return end function tangential_objective_function end subroutine fraggle_generate_tan_vel subroutine fraggle_generate_rad_vel ( frag , colliders , lfailure ) !! 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 class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragment system object class ( fraggle_colliders ), intent ( in ) :: colliders !! Fraggle collider system object logical , intent ( out ) :: lfailure !! Logical flag indicating whether this step fails or succeeds! ! Internals real ( DP ), parameter :: TOL_MIN = FRAGGLE_ETOL ! This needs to be more accurate than the tangential step, as we are trying to minimize the total residual energy real ( DP ), parameter :: TOL_INIT = 1e-14_DP real ( DP ), parameter :: VNOISE_MAG = 1e-10_DP !! Magnitude of the noise to apply to initial conditions to help minimizer find a solution in case of failure integer ( I4B ), parameter :: MAXLOOP = 100 real ( DP ) :: ke_radial , tol integer ( I4B ) :: i , j real ( DP ), dimension (:), allocatable :: v_r_initial real ( DP ), dimension (:,:), allocatable :: v_r real ( DP ), dimension ( frag % nbody ) :: vnoise type ( lambda_obj ) :: objective_function character ( len = STRMAX ) :: message associate ( nfrag => frag % nbody ) ! Set the \"target\" ke for the radial component ke_radial = frag % ke_budget - frag % ke_spin - frag % ke_orbit allocate ( v_r_initial , source = frag % v_r_mag ) ! Initialize radial velocity magnitudes with a random value that related to equipartition of kinetic energy with some noise call random_number ( vnoise ( 1 : nfrag )) vnoise (:) = 1.0_DP + VNOISE_MAG * ( 2 * vnoise (:) - 1.0_DP ) v_r_initial ( 1 : nfrag ) = sqrt ( abs ( 2 * ke_radial ) / ( frag % mass ( 1 : nfrag ) * nfrag )) * vnoise ( 1 : 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 ) tol = TOL_INIT do while ( tol < TOL_MIN ) frag % v_r_mag = util_minimize_bfgs ( objective_function , nfrag , v_r_initial , tol , MAXLOOP , lfailure ) if (. not . lfailure ) exit tol = tol * 2 ! Keep increasing the tolerance until we converge on a solution v_r_initial (:) = frag % v_r_mag (:) call random_number ( vnoise ( 1 : nfrag )) ! Adding a bit of noise to the initial conditions helps it find a solution more often vnoise (:) = 1.0_DP + VNOISE_MAG * ( 2 * vnoise (:) - 1._DP ) v_r_initial (:) = v_r_initial (:) * vnoise (:) end do ! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin) frag % ke_orbit = 0.0_DP frag % vb (:, 1 : nfrag ) = fraggle_util_vmag_to_vb ( frag % v_r_mag ( 1 : nfrag ), frag % v_r_unit (:, 1 : nfrag ), frag % v_t_mag ( 1 : nfrag ), frag % v_t_unit (:, 1 : nfrag ), frag % mass ( 1 : nfrag ), frag % vbcom (:)) do i = 1 , nfrag frag % v_coll (:, i ) = frag % vb (:, i ) - frag % vbcom (:) frag % ke_orbit = frag % ke_orbit + frag % mass ( i ) * dot_product ( frag % vb (:, i ), frag % vb (:, i )) end do frag % ke_orbit = 0.5_DP * frag % ke_orbit lfailure = abs (( frag % ke_budget - ( frag % ke_orbit + frag % ke_spin )) / frag % ke_budget ) > FRAGGLE_ETOL if ( lfailure ) then call fraggle_io_log_one_message ( \" \" ) call fraggle_io_log_one_message ( \"Radial velocity failure diagnostics\" ) write ( message , * ) frag % ke_budget call fraggle_io_log_one_message ( \"ke_budget     : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_spin call fraggle_io_log_one_message ( \"ke_spin       : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_orbit call fraggle_io_log_one_message ( \"ke_orbit : \" // trim ( adjustl ( message ))) write ( message , * ) frag % ke_budget - ( frag % ke_orbit + frag % ke_spin ) call fraggle_io_log_one_message ( \"ke_remainder  : \" // trim ( adjustl ( message ))) end if end associate return contains 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 ( frag % nbody ) :: kearr real ( DP ) :: keo , ke_radial associate ( nfrag => frag % nbody ) allocate ( v_shift , mold = frag % vb ) v_shift (:,:) = fraggle_util_vmag_to_vb ( v_r_mag_input , frag % v_r_unit , frag % v_t_mag , frag % v_t_unit , frag % mass , frag % vbcom ) do concurrent ( i = 1 : nfrag ) kearr ( i ) = frag % mass ( i ) * ( frag % Ip ( 3 , i ) * frag % radius ( i ) ** 2 * dot_product ( frag % rot (:, i ), frag % rot (:, i )) + dot_product ( v_shift (:, i ), v_shift (:, i ))) end do keo = 2 * frag % ke_budget - sum ( kearr (:)) ke_radial = frag % ke_budget - frag % ke_orbit - frag % ke_spin ! 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 end associate return end function radial_objective_function end subroutine fraggle_generate_rad_vel end submodule s_fraggle_generate","tags":"","loc":"sourcefile/fraggle_generate.f90.html"},{"title":"fraggle_regime.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_regime.f90~~EfferentGraph sourcefile~fraggle_regime.f90 fraggle_regime.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_regime.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_regime.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_regime Source Code fraggle_regime.f90 Source Code submodule ( fraggle_classes ) s_fraggle_regime use swiftest contains module subroutine fraggle_regime_colliders ( self , frag , system , param ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine. !! It converts to SI units prior to calling implicit none ! Arguments class ( fraggle_colliders ), intent ( inout ) :: self !! Fraggle colliders object class ( fraggle_fragments ), intent ( inout ) :: frag !! Fraggle fragment system object class ( swiftest_nbody_system ), intent ( in ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current Swiftest run configuration parameters ! Internals integer ( I4B ) :: jtarg , jproj , regime real ( DP ), dimension ( 2 ) :: radius_si , mass_si , density_si real ( DP ) :: min_mfrag_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 logical :: fileExists associate ( colliders => self ) ! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them to the regime determination subroutine if ( colliders % mass ( 1 ) > colliders % mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if mass_si (:) = colliders % mass ([ jtarg , jproj ]) * param % MU2KG !! The two-body equivalent masses of the collider system radius_si (:) = colliders % radius ([ jtarg , jproj ]) * param % DU2M !! The two-body equivalent radii of the collider system density_si (:) = mass_si (:) / ( 4.0_DP / 3._DP * PI * radius_si (:) ** 3 ) !! The two-body equivalent density of the collider system x1_si (:) = colliders % xb (:, jtarg ) * param % DU2M !! The first body of the two-body equivalent position vector the collider system v1_si (:) = colliders % vb (:, jtarg ) * param % DU2M / param % TU2S !! The first body of the two-body equivalent velocity vector the collider system x2_si (:) = colliders % xb (:, jproj ) * param % DU2M !! The second body of the two-body equivalent position vector the collider system v2_si (:) = colliders % vb (:, jproj ) * param % DU2M / param % TU2S !! The second body of the two-body equivalent velocity vector the collider system Mcb_si = system % cb % mass * param % MU2KG !! The central body mass of the system select type ( param ) class is ( symba_parameters ) min_mfrag_si = ( param % min_GMfrag / param % GU ) * param % MU2KG !! The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead class default min_mfrag_si = 0.0_DP end select 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 fraggle_regime_collresolve ( 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 ), min_mfrag_si , frag % regime , mlr , mslr , frag % Qloss ) frag % mass_dist ( 1 ) = min ( max ( mlr , 0.0_DP ), mtot ) frag % mass_dist ( 2 ) = min ( max ( mslr , 0.0_DP ), mtot ) frag % mass_dist ( 3 ) = min ( max ( mtot - mlr - mslr , 0.0_DP ), mtot ) ! Find the center of mass of the collisional system frag % mtot = sum ( colliders % mass (:)) frag % xbcom (:) = ( colliders % mass ( 1 ) * colliders % xb (:, 1 ) + colliders % mass ( 2 ) * colliders % xb (:, 2 )) / frag % mtot frag % vbcom (:) = ( colliders % mass ( 1 ) * colliders % vb (:, 1 ) + colliders % mass ( 2 ) * colliders % vb (:, 2 )) / frag % mtot ! Convert quantities back to the system units and save them into the fragment system frag % mass_dist (:) = ( frag % mass_dist (:) / param % MU2KG ) frag % Qloss = frag % Qloss * ( param % TU2S / param % DU2M ) ** 2 / param % MU2KG call fraggle_io_log_regime ( colliders , frag ) end associate return end subroutine fraggle_regime_colliders subroutine fraggle_regime_collresolve ( Mcb , m1 , m2 , rad1 , rad2 , xh1 , xh2 , vb1 , vb2 , den1 , den2 , min_mfrag , regime , Mlr , Mslr , 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 real ( DP ), intent ( in ) :: Mcb , m1 , m2 , rad1 , rad2 , den1 , den2 , min_mfrag real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vb1 , vb2 integer ( I4B ), intent ( out ) :: regime real ( DP ), intent ( out ) :: Mlr , Mslr 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 :: ETA = - 1.50_DP !! LS12 eq. (44) 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 , Mtmp 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 = max (( 1.0_DP - Qr / Qrd_pstar / 2.0_DP ) * Mtot , min_mfrag ) ! [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 < min_mfrag ). or .( m2 < min_mfrag )) then regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP call fraggle_io_log_one_message ( \"Fragments would have mass below the minimum. Converting this collision into a merger.\" ) 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 = max ( calc_Qrd_rev ( m2 , m1 , Mint , den1 , den2 , Vimp , c_star ), min_mfrag ) 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 = max ( Mtot * ( 3.0_DP - BETA ) * ( 1.0_DP - N1 * Mlr / Mtot ) / ( N2 * BETA ), min_mfrag ) ! 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 = max ( Mtot * 0.1_DP * ( Qr / ( Qrd_pstar * SUPERCAT_QRATIO )) ** ( ETA ), min_mfrag ) !LS12 eq (44) Mslr = max ( Mtot * ( 3.0_DP - BETA ) * ( 1.0_DP - N1 * Mlr / Mtot ) / ( N2 * BETA ), min_mfrag ) !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 if ( Mslr > Mlr ) then ! The second-largest fragment is actually larger than the largest, so we will swap them Mtmp = Mlr Mlr = Mslr Mslr = Mtmp 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 fraggle_regime_collresolve end submodule s_fraggle_regime","tags":"","loc":"sourcefile/fraggle_regime.f90.html"},{"title":"fraggle_placeholder.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_placeholder.f90~~EfferentGraph sourcefile~fraggle_placeholder.f90 fraggle_placeholder.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_placeholder.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_placeholder.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_placeholder Source Code fraggle_placeholder.f90 Source Code submodule ( fraggle_classes ) s_fraggle_placeholder use swiftest contains !> The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class module subroutine fraggle_placeholder_accel ( self , system , param , t , lbeg ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system 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 !! Optional argument that determines whether or not this is the beginning or end of the step write ( * , * ) \"The type-bound procedure 'accel' is not defined for type fraggle_fragments\" return end subroutine fraggle_placeholder_accel module subroutine fraggle_placeholder_kick ( self , system , param , t , dt , lbeg ) implicit none class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system 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. write ( * , * ) \"The type-bound procedure 'kick' is not defined for type fraggle_fragments\" return end subroutine fraggle_placeholder_kick module subroutine fraggle_placeholder_step ( self , system , param , t , dt ) implicit none class ( fraggle_fragments ), 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 write ( * , * ) \"The type-bound procedure 'step' is not defined for type fraggle_fragments\" return end subroutine fraggle_placeholder_step end submodule s_fraggle_placeholder","tags":"","loc":"sourcefile/fraggle_placeholder.f90.html"},{"title":"fraggle_setup.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_setup.f90~~EfferentGraph sourcefile~fraggle_setup.f90 fraggle_setup.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_setup.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_setup Source Code fraggle_setup.f90 Source Code submodule ( fraggle_classes ) s_fraggle_setup use swiftest contains module subroutine fraggle_setup_reset_fragments ( self ) !! author: David A. Minton !! !! Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate) implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self self % xb (:,:) = 0.0_DP self % vb (:,:) = 0.0_DP self % rot (:,:) = 0.0_DP self % x_coll (:,:) = 0.0_DP self % v_coll (:,:) = 0.0_DP self % v_r_unit (:,:) = 0.0_DP self % v_t_unit (:,:) = 0.0_DP self % v_n_unit (:,:) = 0.0_DP self % rmag (:) = 0.0_DP self % rotmag (:) = 0.0_DP self % v_r_mag (:) = 0.0_DP self % v_t_mag (:) = 0.0_DP self % ke_orbit = 0.0_DP self % ke_spin = 0.0_DP self % L_orbit (:) = 0.0_DP self % L_spin (:) = 0.0_DP return end subroutine fraggle_setup_reset_fragments module subroutine fraggle_setup_fragments ( self , n , param ) !! author: David A. Minton !! !! Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays. implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self integer ( I4B ), intent ( in ) :: n class ( swiftest_parameters ), intent ( in ) :: param call setup_pl ( self , n , param ) if ( n < 0 ) return if ( allocated ( self % x_coll )) deallocate ( self % x_coll ) if ( allocated ( self % v_coll )) deallocate ( self % v_coll ) if ( allocated ( self % v_r_unit )) deallocate ( self % v_r_unit ) if ( allocated ( self % v_t_unit )) deallocate ( self % v_t_unit ) if ( allocated ( self % v_n_unit )) deallocate ( self % v_n_unit ) if ( allocated ( self % rmag )) deallocate ( self % rmag ) if ( allocated ( self % rotmag )) deallocate ( self % rotmag ) if ( allocated ( self % v_r_mag )) deallocate ( self % v_r_mag ) if ( allocated ( self % v_t_mag )) deallocate ( self % v_t_mag ) if ( n == 0 ) return allocate ( self % x_coll ( NDIM , n )) allocate ( self % v_coll ( NDIM , n )) allocate ( self % v_r_unit ( NDIM , n )) allocate ( self % v_t_unit ( NDIM , n )) allocate ( self % v_n_unit ( NDIM , n )) allocate ( self % rmag ( n )) allocate ( self % rotmag ( n )) allocate ( self % v_r_mag ( n )) allocate ( self % v_t_mag ( n )) call self % reset () return end subroutine fraggle_setup_fragments end submodule s_fraggle_setup","tags":"","loc":"sourcefile/fraggle_setup.f90.html"},{"title":"fraggle_set.f90 – swiftest","text":"This file depends on sourcefile~~fraggle_set.f90~~EfferentGraph sourcefile~fraggle_set.f90 fraggle_set.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~fraggle_set.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fraggle_set.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 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~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.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~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.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_fraggle_set Source Code fraggle_set.f90 Source Code submodule ( fraggle_classes ) s_fraggle_set use swiftest contains module subroutine fraggle_set_budgets_fragments ( self , colliders ) !! author: David A. Minton !! !! Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object ! Internals real ( DP ) :: dEtot real ( DP ), dimension ( NDIM ) :: dL associate ( frag => self ) dEtot = frag % Etot_after - frag % Etot_before dL (:) = frag % Ltot_after (:) - frag % Ltot_before (:) frag % L_budget (:) = - dL (:) frag % ke_budget = - ( dEtot - 0.5_DP * frag % mtot * dot_product ( frag % vbcom (:), frag % vbcom (:))) - frag % Qloss end associate return end subroutine fraggle_set_budgets_fragments module subroutine fraggle_set_mass_dist_fragments ( self , colliders , param ) !! author: David A. Minton !! !! Sets the mass of fragments based on the mass distribution returned by the regime calculation. !! This subroutine must be run after the the setup rourtine has been run on the fragments implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object class ( swiftest_parameters ), intent ( in ) :: param !! Current Swiftest run configuration parameters ! Internals integer ( I4B ) :: i , jproj , jtarg , nfrag , istart real ( DP ), dimension ( 2 ) :: volume real ( DP ), dimension ( NDIM ) :: Ip_avg real ( DP ) :: mfrag , mremaining , min_mfrag real ( DP ), parameter :: BETA = 2.85_DP integer ( I4B ), parameter :: NFRAGMAX = 100 !! Maximum number of fragments that can be generated integer ( I4B ), parameter :: NFRAGMIN = 7 !! Minimum number of fragments that can be generated (set by the fraggle_generate algorithm for constraining momentum and energy) integer ( I4B ), parameter :: NFRAG_SIZE_MULTIPLIER = 3 !! Log-space scale factor that scales the number of fragments by the collisional system mass integer ( I4B ), parameter :: iMlr = 1 integer ( I4B ), parameter :: iMslr = 2 integer ( I4B ), parameter :: iMrem = 3 associate ( frag => self ) ! Get mass weighted mean of Ip and density volume ( 1 : 2 ) = 4._DP / 3._DP * PI * colliders % radius ( 1 : 2 ) ** 3 Ip_avg (:) = ( colliders % mass ( 1 ) * colliders % Ip (:, 1 ) + colliders % mass ( 2 ) * colliders % Ip (:, 2 )) / frag % mtot if ( colliders % mass ( 1 ) > colliders % mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if select type ( param ) class is ( symba_parameters ) min_mfrag = ( param % min_GMfrag / param % GU ) ! The number of fragments we generate is bracked by the minimum required by fraggle_generate (7) and the ! maximum set by the NFRAG_SIZE_MULTIPLIER which limits the total number of fragments to prevent the nbody ! code from getting an overwhelmingly large number of fragments nfrag = ceiling ( NFRAG_SIZE_MULTIPLIER * log ( frag % mtot / min_mfrag )) nfrag = max ( min ( nfrag , NFRAGMAX ), NFRAGMIN ) class default min_mfrag = 0.0_DP nfrag = NFRAGMAX end select select case ( frag % regime ) case ( COLLRESOLVE_REGIME_DISRUPTION , COLLRESOLVE_REGIME_SUPERCATASTROPHIC , COLLRESOLVE_REGIME_HIT_AND_RUN ) ! The first two bins of the mass_dist are the largest and second-largest fragments that came out of fraggle_regime. ! The remainder from the third bin will be distributed among nfrag-2 bodies. The following code will determine nfrag based on ! the limits bracketed above and the model size distribution of fragments. ! Check to see if our size distribution would give us a smaller number of fragments than the maximum number i = iMrem mremaining = frag % mass_dist ( iMrem ) do while ( i <= nfrag ) mfrag = ( 1 + i - iMslr ) ** ( - 3._DP / BETA ) * frag % mass_dist ( iMslr ) if ( mremaining - mfrag < 0.0_DP ) exit mremaining = mremaining - mfrag i = i + 1 end do if ( i < nfrag ) nfrag = max ( i , NFRAGMIN ) ! The sfd would actually give us fewer fragments than our maximum call frag % setup ( nfrag , param ) case ( COLLRESOLVE_REGIME_MERGE , COLLRESOLVE_REGIME_GRAZE_AND_MERGE ) call frag % setup ( 1 , param ) frag % mass ( 1 ) = frag % mass_dist ( 1 ) frag % radius ( 1 ) = colliders % radius ( jtarg ) frag % density ( 1 ) = frag % mass_dist ( 1 ) / volume ( jtarg ) frag % Ip (:, 1 ) = colliders % Ip (:, 1 ) return case default write ( * , * ) \"fraggle_set_mass_dist_fragments error: Unrecognized regime code\" , frag % regime end select ! Make the first two bins the same as the Mlr and Mslr values that came from fraggle_regime frag % mass ( 1 ) = frag % mass_dist ( iMlr ) frag % mass ( 2 ) = frag % mass_dist ( iMslr ) ! Distribute the remaining mass the 3:nfrag bodies following the model SFD given by slope BETA mremaining = frag % mass_dist ( iMrem ) do i = iMrem , nfrag mfrag = ( 1 + i - iMslr ) ** ( - 3._DP / BETA ) * frag % mass_dist ( iMslr ) frag % mass ( i ) = mfrag mremaining = mremaining - mfrag end do ! If there is any residual mass (either positive or negative) we will distribute remaining mass proportionally among the the fragments if ( mremaining < 0.0_DP ) then ! If the remainder is negative, this means that that the number of fragments required by the SFD is smaller than our lower limit set by fraggle_generate. istart = iMrem ! We will reduce the mass of the 3:nfrag bodies to prevent the second-largest fragment from going smaller else ! If the remainder is postiive, this means that the number of fragments required by the SFD is larger than our upper limit set by computational expediency. istart = iMslr ! We will increase the mass of the 2:nfrag bodies to compensate, which ensures that the second largest fragment remains the second largest end if mfrag = 1._DP + mremaining / sum ( frag % mass ( istart : nfrag )) frag % mass ( istart : nfrag ) = frag % mass ( istart : nfrag ) * mfrag ! There may still be some small residual due to round-off error. If so, simply add it to the last bin of the mass distribution. mremaining = frag % mtot - sum ( frag % mass ( 1 : nfrag )) frag % mass ( nfrag ) = frag % mass ( nfrag ) + mremaining ! Compute physical properties of the new fragments select case ( frag % regime ) case ( COLLRESOLVE_REGIME_HIT_AND_RUN ) ! The hit and run case always preserves the largest body intact, so there is no need to recompute the physical properties of the first fragment frag % radius ( 1 ) = colliders % radius ( jtarg ) frag % density ( 1 ) = frag % mass_dist ( iMlr ) / volume ( jtarg ) frag % Ip (:, 1 ) = colliders % Ip (:, 1 ) istart = 2 case default istart = 1 end select frag % density ( istart : nfrag ) = frag % mtot / sum ( volume (:)) frag % radius ( istart : nfrag ) = ( 3 * frag % mass ( istart : nfrag ) / ( 4 * PI * frag % density ( istart : nfrag ))) ** ( 1.0_DP / 3.0_DP ) do i = istart , nfrag frag % Ip (:, i ) = Ip_avg (:) end do end associate return end subroutine fraggle_set_mass_dist_fragments module subroutine fraggle_set_coordinate_system ( self , colliders ) !! author: David A. Minton !! !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: x_cross_v , delta_r , delta_v , Ltot real ( DP ) :: r_col_norm , v_col_norm real ( DP ), dimension ( NDIM , self % nbody ) :: L_sigma associate ( frag => self , nfrag => self % nbody ) delta_v (:) = colliders % vb (:, 2 ) - colliders % vb (:, 1 ) v_col_norm = . mag . delta_v (:) delta_r (:) = colliders % xb (:, 2 ) - colliders % xb (:, 1 ) r_col_norm = . mag . 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. Ltot = colliders % L_orbit (:, 1 ) + colliders % L_orbit (:, 2 ) + colliders % L_spin (:, 1 ) + colliders % L_spin (:, 2 ) frag % y_coll_unit (:) = delta_r (:) / r_col_norm frag % z_coll_unit (:) = Ltot (:) / (. mag . Ltot (:)) ! The cross product of the y- by z-axis will give us the x-axis frag % x_coll_unit (:) = frag % y_coll_unit (:) . cross . frag % z_coll_unit (:) if (. not . any ( frag % x_coll (:,:) > 0.0_DP )) return frag % rmag (:) = . mag . frag % x_coll (:,:) 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 do concurrent ( i = 1 : nfrag , frag % rmag ( i ) > 0.0_DP ) frag % v_r_unit (:, i ) = frag % x_coll (:, i ) / frag % rmag ( i ) frag % v_n_unit (:, i ) = frag % z_coll_unit (:) + 2e-1_DP * ( L_sigma (:, i ) - 0.5_DP ) frag % v_n_unit (:, i ) = frag % v_n_unit (:, i ) / (. mag . frag % v_n_unit (:, i )) frag % v_t_unit (:, i ) = frag % v_n_unit (:, i ) . cross . frag % v_r_unit (:, i ) frag % v_t_unit (:, i ) = frag % v_t_unit (:, i ) / (. mag . frag % v_t_unit (:, i )) end do end associate return end subroutine fraggle_set_coordinate_system ! module subroutine symba_set_collresolve_colliders(self, cb, pl, idx) !    !! author: David A. Minton !    !! !    !! Calculate the two-body equivalent values given a set of input collider indices !    use swiftest_classes, only : swiftest_nbody_system !    implicit none !    ! Arguments !    class(fraggle_colliders),               intent(inout) :: self !! Fraggle collider object !    class(symba_cb),                     intent(in)    :: cb   !! Swiftest central body object system object !    class(symba_pl),                     intent(in)    :: pl   !! Swiftest central body object system object !    integer(I4B),             dimension(:), intent(in)    :: idx  !! Index array of bodies from the pl object to use to calculate a \"two-body equivalent\" collisional pair !    ! Internals !    real(DP), dimension(NDIM, 2)  :: mxc, vc !    real(DP), dimension(NDIM) :: vcom, xcom !    associate(colliders => self) !       ! Compute orbital angular momentum of pre-impact system !       xcom(:) = (colliders%mass(1) * colliders%xb(:, 1) + colliders%mass(2) * colliders%xb(:, 2)) / sum(colliders%mass(:)) !       vcom(:) = (colliders%mass(1) * colliders%vb(:, 1) + colliders%mass(2) * colliders%vb(:, 2)) / sum(colliders%mass(:)) !       mxc(:, 1) = colliders%mass(1) * (colliders%xb(:, 1) - xcom(:)) !       mxc(:, 2) = colliders%mass(2) * (colliders%xb(:, 2) - xcom(:)) !       vc(:, 1) = colliders%vb(:, 1) - vcom(:) !       vc(:, 2) = colliders%vb(:, 2) - vcom(:) !       colliders%L_orbit(:,:) = mxc(:,:) .cross. vc(:,:) !    end associate !    return ! end subroutine symbe_set_collresolve_colliders module subroutine fraggle_set_natural_scale_factors ( self , colliders ) !! 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 ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object ! Internals integer ( I4B ) :: i associate ( frag => self ) ! Set scale factors frag % Escale = 0.5_DP * ( colliders % mass ( 1 ) * dot_product ( colliders % vb (:, 1 ), colliders % vb (:, 1 )) + colliders % mass ( 2 ) * dot_product ( colliders % vb (:, 2 ), colliders % vb (:, 2 ))) frag % dscale = sum ( colliders % radius (:)) frag % mscale = frag % mtot frag % vscale = sqrt ( frag % Escale / frag % mscale ) frag % tscale = frag % dscale / frag % vscale frag % Lscale = frag % mscale * frag % dscale * frag % vscale ! Scale all dimensioned quantities of colliders and fragments frag % xbcom (:) = frag % xbcom (:) / frag % dscale frag % vbcom (:) = frag % vbcom (:) / frag % vscale colliders % xb (:,:) = colliders % xb (:,:) / frag % dscale colliders % vb (:,:) = colliders % vb (:,:) / frag % vscale colliders % mass (:) = colliders % mass (:) / frag % mscale colliders % radius (:) = colliders % radius (:) / frag % dscale colliders % L_spin (:,:) = colliders % L_spin (:,:) / frag % Lscale do i = 1 , 2 colliders % rot (:, i ) = colliders % L_spin (:, i ) / ( colliders % mass ( i ) * colliders % radius ( i ) ** 2 * colliders % Ip ( 3 , i )) end do frag % mtot = frag % mtot / frag % mscale frag % mass = frag % mass / frag % mscale frag % radius = frag % radius / frag % dscale frag % Qloss = frag % Qloss / frag % Escale end associate return end subroutine fraggle_set_natural_scale_factors module subroutine fraggle_set_original_scale_factors ( self , colliders ) !! author: David A. Minton !! !! Restores dimenional quantities back to the system units use , intrinsic :: ieee_exceptions implicit none ! Arguments class ( fraggle_fragments ), intent ( inout ) :: self !! Fraggle fragment system object class ( fraggle_colliders ), intent ( inout ) :: colliders !! Fraggle collider system object ! Internals integer ( I4B ) :: i logical , dimension ( size ( IEEE_ALL )) :: fpe_halting_modes call ieee_get_halting_mode ( IEEE_ALL , fpe_halting_modes ) ! Save the current halting modes so we can turn them off temporarily call ieee_set_halting_mode ( IEEE_ALL ,. false .) associate ( frag => self ) ! Restore scale factors frag % xbcom (:) = frag % xbcom (:) * frag % dscale frag % vbcom (:) = frag % vbcom (:) * frag % vscale colliders % mass = colliders % mass * frag % mscale colliders % radius = colliders % radius * frag % dscale colliders % xb = colliders % xb * frag % dscale colliders % vb = colliders % vb * frag % vscale colliders % L_spin = colliders % L_spin * frag % Lscale do i = 1 , 2 colliders % rot (:, i ) = colliders % L_spin (:, i ) * ( colliders % mass ( i ) * colliders % radius ( i ) ** 2 * colliders % Ip ( 3 , i )) end do frag % Qloss = frag % Qloss * frag % Escale frag % mtot = frag % mtot * frag % mscale frag % mass = frag % mass * frag % mscale frag % radius = frag % radius * frag % dscale frag % rot = frag % rot / frag % tscale frag % x_coll = frag % x_coll * frag % dscale frag % v_coll = frag % v_coll * frag % vscale do i = 1 , frag % nbody frag % xb (:, i ) = frag % x_coll (:, i ) + frag % xbcom (:) frag % vb (:, i ) = frag % v_coll (:, i ) + frag % vbcom (:) end do frag % mscale = 1.0_DP frag % dscale = 1.0_DP frag % vscale = 1.0_DP frag % tscale = 1.0_DP frag % Lscale = 1.0_DP frag % Escale = 1.0_DP end associate call ieee_set_halting_mode ( IEEE_ALL , fpe_halting_modes ) return end subroutine fraggle_set_original_scale_factors end submodule s_fraggle_set","tags":"","loc":"sourcefile/fraggle_set.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~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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 character ( len = STRMAX ) :: timestr , idstri , idstrj 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 ( idstri , * ) tp % id ( i ) write ( idstrj , * ) pl % id ( iplperP ) write ( timestr , * ) t write ( * , * ) \"Particle \" // trim ( adjustl ( tp % info ( i )% name )) // \" (\" // trim ( adjustl ( idstri )) & // \") q with respect to massive body \" // trim ( adjustl ( pl % info ( iplperP )% name )) // \" (\" // trim ( adjustl ( idstrj )) & // \") is too small at t = \" // trim ( adjustl ( timestr )) tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . call tp % info ( i )% set_value ( status = \"DISCARDED_PLQ\" , discard_time = t , discard_xh = tp % xh (:, i ), discard_vh = tp % vh (:, i ), discard_body_id = pl % id ( iplperP )) 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~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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 (:), 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 (:), allocatable :: 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 ) allocate ( ind ( npl )) 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 (:), allocatable :: 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 ) allocate ( ind ( ntp )) 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) if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call util_sort_rearrange ( pl % nenc , ind , npl ) call util_sort_rearrange ( pl % tpenc1P , ind , npl ) call util_sort_rearrange ( pl % plind , ind , npl ) call util_sort_rearrange_pl ( pl , ind ) 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) if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange ( tp % lperi , ind , ntp ) call util_sort_rearrange ( tp % plperP , ind , ntp ) call util_sort_rearrange ( tp % plencP , ind , ntp ) call util_sort_rearrange ( tp % xheliocentric , ind , ntp ) call util_sort_rearrange_tp ( tp , ind ) 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~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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % xh (:, i ) = tp % xheliocentric (:, i ) end do 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 call move_alloc ( xh_original , tp % xh ) 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_io.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_io.f90~~EfferentGraph sourcefile~rmvs_io.f90 rmvs_io.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_io.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_io.f90->sourcefile~swiftest.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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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_io Source Code rmvs_io.f90 Source Code submodule ( rmvs_classes ) s_rmvs_io use swiftest contains module subroutine rmvs_io_write_encounter ( t , id1 , id2 , Gmass1 , Gmass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out ) !! author: David A. Minton !! !! Write close encounter data from RMVS 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 ) :: id1 , id2 real ( DP ), intent ( in ) :: t , Gmass1 , Gmass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: LUN = 30 integer ( I4B ) :: ierr if ( enc_out == \"\" ) return open ( unit = LUN , file = enc_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) if (( ierr /= 0 ) . and . lfirst ) then open ( unit = LUN , 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 . call io_write_frame_encounter ( LUN , t , id1 , id2 , Gmass1 , Gmass2 , radius1 , radius2 , xh1 , xh2 , vh1 , vh2 ) close ( unit = LUN , 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 rmvs_io_write_encounter end submodule s_rmvs_io","tags":"","loc":"sourcefile/rmvs_io.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~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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 if ( allocated ( pl % outer )) deallocate ( pl % outer ) if ( allocated ( pl % inner )) deallocate ( pl % inner ) if ( allocated ( pl % nenc )) deallocate ( pl % nenc ) 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 ) if ( n == 0 ) return 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~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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 if ( self % tp % nbody == 0 ) call whm_step_system ( self , param , t , dt ) 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 (:, 1 : npl ) = xbeg (:, 1 : npl ) pl % outer ( 0 )% v (:, 1 : npl ) = vbeg (:, 1 : npl ) call pl % step ( system , param , t , dt ) pl % outer ( NTENC )% x (:, 1 : npl ) = pl % xh (:, 1 : npl ) pl % outer ( NTENC )% v (:, 1 : npl ) = pl % vh (:, 1 : npl ) 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 ( 1 : npl ) = dt / dntenc GMcb ( 1 : npl ) = cb % Gmass xtmp (:, 1 : npl ) = pl % outer ( 0 )% x (:, 1 : npl ) vtmp (:, 1 : npl ) = pl % outer ( 0 )% v (:, 1 : npl ) 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 (:, 1 : npl ) = frac * xtmp (:, 1 : npl ) pl % outer ( outer_index )% v (:, 1 : npl ) = frac * vtmp (:, 1 : npl ) end do xtmp (:, 1 : npl ) = pl % outer ( NTENC )% x (:, 1 : npl ) vtmp (:, 1 : npl ) = pl % outer ( NTENC )% v (:, 1 : npl ) 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 (:, 1 : npl ) = pl % outer ( outer_index )% x (:, 1 : npl ) + frac * xtmp (:, 1 : npl ) pl % outer ( outer_index )% v (:, 1 : npl ) = pl % outer ( outer_index )% v (:, 1 : npl ) + frac * vtmp (:, 1 : npl ) 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 ( 1 : ntp ) == 0 ) tp % lmask ( 1 : ntp ) = . false . elsewhere tp % lperi ( 1 : ntp ) = . 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 (:, 1 : npl ), & vbeg = pl % outer ( outer_index - 1 )% v (:, 1 : npl ), & xend = pl % outer ( outer_index )% x (:, 1 : npl )) 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 ( 1 : ntp ) == j ) . and . (. not . tp % lmask ( 1 : ntp ))) tp % lmask ( 1 : ntp ) = . 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 , ah_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 (:, 1 : npl ) = pl % outer ( outer_index - 1 )% x (:, 1 : npl ) pl % inner ( 0 )% v (:, 1 : npl ) = pl % outer ( outer_index - 1 )% v (:, 1 : npl ) pl % inner ( NTPHENC )% x (:, 1 : npl ) = pl % outer ( outer_index )% x (:, 1 : npl ) pl % inner ( NTPHENC )% v (:, 1 : npl ) = pl % outer ( outer_index )% v (:, 1 : npl ) allocate ( xtmp , mold = pl % xh ) allocate ( vtmp , mold = pl % vh ) allocate ( GMcb ( npl )) allocate ( dti ( npl )) allocate ( iflag ( npl )) dti ( 1 : npl ) = dt / dntphenc GMcb ( 1 : npl ) = cb % Gmass xtmp (:, 1 : npl ) = pl % inner ( 0 )% x (:, 1 : npl ) vtmp (:, 1 : npl ) = pl % inner ( 0 )% v (:, 1 : npl ) if (( param % loblatecb ) . or . ( param % ltides )) then allocate ( xh_original , source = pl % xh ) allocate ( ah_original , source = pl % ah ) pl % xh (:, 1 : npl ) = xtmp (:, 1 : npl ) ! 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 (:, 1 : npl ) = pl % aobl (:, 1 : npl ) ! 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 (:, 1 : npl ) = pl % atide (:, 1 : npl ) ! 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 (:, 1 : npl ) = frac * xtmp (:, 1 : npl ) pl % inner ( inner_index )% v (:, 1 : npl ) = frac * vtmp (:, 1 : npl ) end do xtmp (:, 1 : npl ) = pl % inner ( NTPHENC )% x (:, 1 : npl ) vtmp (:, 1 : npl ) = pl % inner ( NTPHENC )% v (:, 1 : npl ) 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 (:, 1 : npl ) = pl % inner ( inner_index )% x (:, 1 : npl ) + frac * xtmp (:, 1 : npl ) pl % inner ( inner_index )% v (:, 1 : npl ) = pl % inner ( inner_index )% v (:, 1 : npl ) + frac * vtmp (:, 1 : npl ) if ( param % loblatecb ) then pl % xh (:, 1 : npl ) = pl % inner ( inner_index )% x (:, 1 : npl ) call pl % accel_obl ( system ) pl % inner ( inner_index )% aobl (:, 1 : npl ) = pl % aobl (:, 1 : npl ) end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( inner_index )% atide (:, 1 : npl ) = pl % atide (:, 1 : npl ) end if end do if ( param % loblatecb ) then ! Calculate the final value of oblateness accelerations at the final inner substep pl % xh (:, 1 : npl ) = pl % inner ( NTPHENC )% x (:, 1 : npl ) call pl % accel_obl ( system ) pl % inner ( NTPHENC )% aobl (:, 1 : npl ) = pl % aobl (:, 1 : npl ) end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( NTPHENC )% atide (:, 1 : npl ) = pl % atide (:, 1 : npl ) end if ! Put the planet positions and accelerations back into place if ( allocated ( xh_original )) call move_alloc ( xh_original , pl % xh ) if ( allocated ( ah_original )) call move_alloc ( ah_original , pl % ah ) 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 (:, 1 : npl ) = plenci % inner ( inner_index - 1 )% x (:, 1 : npl ) 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 ( 1 : ntp ) = tp % plencP ( 1 : ntp ) == 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 . associate ( nenci => pl % nenc ( i )) call tpenci % setup ( nenci , param ) tpenci % cb_heliocentric = cb tpenci % ipleP = i tpenci % lmask ( 1 : nenci ) = . true . tpenci % status ( 1 : nenci ) = ACTIVE ! Grab all the encountering test particles and convert them to a planetocentric frame tpenci % id ( 1 : nenci ) = pack ( tp % id ( 1 : ntp ), encmask ( 1 : ntp )) do j = 1 , NDIM tpenci % xheliocentric ( j , 1 : nenci ) = pack ( tp % xh ( j , 1 : ntp ), encmask (:)) tpenci % xh ( j , 1 : nenci ) = tpenci % xheliocentric ( j , 1 : nenci ) - pl % inner ( 0 )% x ( j , i ) tpenci % vh ( j , 1 : nenci ) = pack ( tp % vh ( j , 1 : ntp ), encmask ( 1 : ntp )) - pl % inner ( 0 )% v ( j , i ) end do tpenci % lperi ( 1 : nenci ) = pack ( tp % lperi ( 1 : ntp ), encmask ( 1 : ntp )) tpenci % plperP ( 1 : nenci ) = pack ( tp % plperP ( 1 : ntp ), encmask ( 1 : ntp )) ! 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 associate 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 rmvs_io_write_encounter ( t , id1 , id2 , mu , 0.0_DP , rpl , 0.0_DP , xh1 (:), xh2 (:), vh1 (:), vh2 (:), param % enc_out ) 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 ) associate ( nenci => pl % nenc ( i )) if ( allocated ( tpind )) deallocate ( tpind ) allocate ( tpind ( nenci )) ! Index array of encountering test particles if ( allocated ( encmask )) deallocate ( encmask ) allocate ( encmask ( ntp )) encmask ( 1 : ntp ) = tp % plencP ( 1 : ntp ) == i tpind ( 1 : nenci ) = pack ([( j , j = 1 , ntp )], encmask ( 1 : ntp )) ! Copy the results of the integration back over and shift back to heliocentric reference tp % status ( tpind ( 1 : nenci )) = tpenci % status ( 1 : nenci ) tp % lmask ( tpind ( 1 : nenci )) = tpenci % lmask ( 1 : nenci ) do j = 1 , NDIM tp % xh ( j , tpind ( 1 : nenci )) = tpenci % xh ( j , 1 : nenci ) + pl % inner ( NTPHENC )% x ( j , i ) tp % vh ( j , tpind ( 1 : nenci )) = tpenci % vh ( j , 1 : nenci ) + pl % inner ( NTPHENC )% v ( j , i ) end do tp % lperi ( tpind ( 1 : nenci )) = tpenci % lperi ( 1 : nenci ) tp % plperP ( tpind ( 1 : nenci )) = tpenci % plperP ( 1 : nenci ) 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 associate 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~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~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~walltime_classes.f90 walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~walltime_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.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~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~fraggle_classes.f90 fraggle_classes.f90 sourcefile~swiftest.f90->sourcefile~fraggle_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~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~walltime_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.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~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~symba_classes.f90->sourcefile~fraggle_classes.f90 sourcefile~fraggle_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fraggle_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 lencounter = . false . 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 ( 1 : npl ) = ( rts * pl % rhill ( 1 : npl )) ** 2 tp % plencP ( 1 : ntp ) = 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 ( 1 : ntp ) == j ) end do lencounter = any ( pl % nenc ( 1 : npl ) > 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_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_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body->type~swiftest_base type~swiftest_body->type~swiftest_particle_info info 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 cb pl tp tp_discards pl_discards GMtot ke_orbit ke_spin pe te oblpot Lorbit Lspin Ltot lbeg lplanetocentric rts vbeg Type-Bound Procedures discard conservation_report dump get_old_t_final read_frame read_particle_info write_discard write_frame write_hdr_bin write_hdr_netcdf obl_pot init_particle_info step_spin set_msys get_energy_and_momentum rescale validate_ids write_hdr initialize step Components Type Visibility Attributes Name Initial 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. interface public module function io_get_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata from file interface public module subroutine io_read_particle_info_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(inout) :: param Current run configuration parameters 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(inout) :: 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, 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format interface public module subroutine io_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format interface public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body interface public module subroutine obl_pot_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object procedure, public :: init_particle_info => setup_initialize_particle_info_system Initialize the system from input files interface public module subroutine setup_initialize_particle_info_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(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(inout) :: param Current run configuration parameters generic, public :: write_hdr => write_hdr_bin , write_hdr_netcdf Generic method call for writing headers public interface io_write_hdr_system () Arguments None public interface netcdf_write_hdr_system () Arguments None 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~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 type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info 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 info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info read_in read_frame write_frame_bin write_frame Components Type Visibility Attributes Name Initial type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None procedure, public :: read_in => io_read_in_cb I/O routine for reading in central body data interface public module subroutine io_read_in_cb(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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_cb () Arguments None","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~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_tp swiftest_tp type~whm_tp->type~swiftest_tp 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_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body->type~swiftest_base type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp k_pltp npltp lperi plperP plencP cb_heliocentric xheliocentric index ipleP lplanetocentric Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info drift v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame accel_int accel_obl h2b b2h vb2vh vh2vb xh2xb 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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~whm_pl whm_pl type~rmvs_pl->type~whm_pl type~rmvs_interp rmvs_interp type~rmvs_pl->type~rmvs_interp outer, inner 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_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_cb->type~swiftest_base type~swiftest_cb->type~swiftest_particle_info info 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 lfirst nbody info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user write_frame discard index accel_int accel_obl accel_tides h2b b2h vh2vb vb2vh xh2xb 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: index => util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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":"walltimer – swiftest ","text":"type, public :: walltimer Contents Variables count_rate count_max count_start_main count_start_step count_finish_step lmain_is_started Type-Bound Procedures reset start finish Components Type Visibility Attributes Name Initial integer(kind=I8B), public :: count_rate Rate at wich the clock ticks integer(kind=I8B), public :: count_max Maximum value of the clock ticker integer(kind=I8B), public :: count_start_main Value of the clock ticker at when the timer is first called integer(kind=I8B), public :: count_start_step Value of the clock ticker at the start of a timed step integer(kind=I8B), public :: count_finish_step Value of the clock ticker at the end of a timed step logical, public :: lmain_is_started = .false. Logical flag indicating whether or not the main timer has been reset or not Type-Bound Procedures procedure, public :: reset => walltime_reset Resets the clock ticker, settting main_start to the current ticker value interface public subroutine walltime_reset(self) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object procedure, public :: start => walltime_start Starts the timer, setting step_start to the current ticker value interface public subroutine walltime_start(self) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object procedure, public :: finish => walltime_finish Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal interface public subroutine walltime_finish(self, nsubsteps, message) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object integer(kind=I4B), intent(in) :: nsubsteps Number of substeps used to compute the time per step character(len=*), intent(in) :: message Message to prepend to the wall time terminal output","tags":"","loc":"type/walltimer.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_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_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body->type~swiftest_base type~swiftest_body->type~swiftest_particle_info info 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 cb pl tp tp_discards pl_discards GMtot ke_orbit ke_spin pe te oblpot Lorbit Lspin Ltot lbeg Type-Bound Procedures discard conservation_report dump get_old_t_final read_frame read_particle_info write_discard write_frame write_hdr_bin write_hdr_netcdf obl_pot init_particle_info step_spin set_msys get_energy_and_momentum rescale validate_ids write_hdr step initialize Components Type Visibility Attributes Name Initial 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. interface public module function io_get_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata from file interface public module subroutine io_read_particle_info_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(inout) :: param Current run configuration parameters 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(inout) :: 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, 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format interface public module subroutine io_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format interface public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body interface public module subroutine obl_pot_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object procedure, public :: init_particle_info => setup_initialize_particle_info_system Initialize the system from input files interface public module subroutine setup_initialize_particle_info_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(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(inout) :: param Current run configuration parameters generic, public :: write_hdr => write_hdr_bin , write_hdr_netcdf Generic method call for writing headers public interface io_write_hdr_system () Arguments None public interface netcdf_write_hdr_system () Arguments None 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 procedure, public :: initialize => helio_setup_initialize_system Performs Helio-specific initilization steps, including converting to DH coordinates interface public module subroutine helio_setup_initialize_system(self, param) 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","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 type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info 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 info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info read_in read_frame write_frame_bin write_frame Components Type Visibility Attributes Name Initial type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None procedure, public :: read_in => io_read_in_cb I/O routine for reading in central body data interface public module subroutine io_read_in_cb(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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_cb () Arguments None","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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard index accel_int accel_obl setup accel_tides append h2b b2h vh2vb vb2vh xh2xb fill resize set_beg_end set_mu set_rhill sort rearrange spill drift lindrift accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: index => util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: 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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp k_pltp npltp Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard accel_int accel_obl setup append h2b b2h vb2vh vh2vb xh2xb fill get_peri resize set_mu sort rearrange spill lindrift drift accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: 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 type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info 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 info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info read_in read_frame write_frame_bin write_frame Components Type Visibility Attributes Name Initial type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None procedure, public :: read_in => io_read_in_cb I/O routine for reading in central body data interface public module subroutine io_read_in_cb(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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_cb () Arguments None","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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user write_frame discard index accel_int accel_obl accel_tides h2b b2h vh2vb vb2vh xh2xb 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: index => util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp k_pltp npltp Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info drift v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard accel_int accel_obl setup append h2b b2h vb2vh vh2vb xh2xb 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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_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_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body->type~swiftest_base type~swiftest_body->type~swiftest_particle_info info 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~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_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 cb pl tp tp_discards pl_discards GMtot ke_orbit ke_spin pe te oblpot Lorbit Lspin Ltot lbeg Type-Bound Procedures discard conservation_report dump get_old_t_final read_frame read_particle_info write_discard write_frame write_hdr_bin write_hdr_netcdf obl_pot init_particle_info step_spin set_msys get_energy_and_momentum rescale validate_ids write_hdr initialize step Components Type Visibility Attributes Name Initial 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. interface public module function io_get_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata from file interface public module subroutine io_read_particle_info_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(inout) :: param Current run configuration parameters 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(inout) :: 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, 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format interface public module subroutine io_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format interface public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body interface public module subroutine obl_pot_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object procedure, public :: init_particle_info => setup_initialize_particle_info_system Initialize the system from input files interface public module subroutine setup_initialize_particle_info_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(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(inout) :: param Current run configuration parameters generic, public :: write_hdr => write_hdr_bin , write_hdr_netcdf Generic method call for writing headers public interface io_write_hdr_system () Arguments None public interface netcdf_write_hdr_system () Arguments None procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones 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":"fraggle_colliders – swiftest ","text":"type, public :: fraggle_colliders Class definition for the variables that describe the bodies involved in the collision Contents Variables ncoll idx xb vb rot L_spin L_orbit Ip mass radius Type-Bound Procedures regime Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: ncoll Number of bodies involved in the collision integer(kind=I4B), public, dimension(:), allocatable :: idx Index of bodies involved in the collision real(kind=DP), public, dimension(NDIM,2) :: xb Two-body equivalent position vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: vb Two-body equivalent velocity vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: rot Two-body equivalent principal axes moments of inertia the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: L_spin Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: L_orbit Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: Ip Two-body equivalent principal axes moments of inertia the collider bodies prior to collision real(kind=DP), public, dimension(2) :: mass Two-body equivalent mass of the collider bodies prior to the collision real(kind=DP), public, dimension(2) :: radius Two-body equivalent radii of the collider bodies prior to the collision Type-Bound Procedures procedure, public :: regime => fraggle_regime_colliders Determine which fragmentation regime the set of colliders will be interface public module subroutine fraggle_regime_colliders(self, frag, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(inout) :: self Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters","tags":"","loc":"type/fraggle_colliders.html"},{"title":"fraggle_fragments – swiftest ","text":"type, public, extends( swiftest_pl ) :: fraggle_fragments Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates Inherits type~~fraggle_fragments~~InheritsGraph type~fraggle_fragments fraggle_fragments type~swiftest_pl swiftest_pl type~fraggle_fragments->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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info 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 mtot Qloss mass_dist regime xbcom vbcom x_coll_unit y_coll_unit z_coll_unit x_coll v_coll v_r_unit v_t_unit v_n_unit rmag rotmag v_r_mag v_t_mag ke_orbit ke_spin L_orbit L_spin ke_budget L_budget Lorbit_before Lorbit_after Lspin_before Lspin_after Ltot_before Ltot_after ke_orbit_before ke_orbit_after ke_spin_before ke_spin_after pe_before pe_after Etot_before Etot_after dscale mscale tscale vscale Escale Lscale Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info drift v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard index accel_int accel_obl accel_tides append h2b b2h vh2vb vb2vh xh2xb fill resize set_beg_end set_mu set_rhill sort rearrange spill generate_fragments accel kick step set_budgets set_coordinate_system set_mass_dist set_natural_scale set_original_scale setup reset get_ang_mtm get_energy_and_momentum restructure Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 :: mtot Total mass of fragments real(kind=DP), public :: Qloss Energy lost during the collision real(kind=DP), public, dimension(FRAGGLE_NMASS_DIST) :: mass_dist Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder) integer(kind=I4B), public :: regime Collresolve regime code for this collision real(kind=DP), public, dimension(NDIM) :: xbcom Center of mass position vector of the collider system in system barycentric coordinates real(kind=DP), public, dimension(NDIM) :: vbcom Velocity vector of the center of mass of the collider system in system barycentric coordinates real(kind=DP), public, dimension(NDIM) :: x_coll_unit x-direction unit vector of collisional system real(kind=DP), public, dimension(NDIM) :: y_coll_unit y-direction unit vector of collisional system real(kind=DP), public, dimension(NDIM) :: z_coll_unit z-direction unit vector of collisional system real(kind=DP), public, dimension(:,:), allocatable :: x_coll Array of fragment position vectors in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_coll Array of fragment velocity vectors in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_r_unit Array of radial direction unit vectors of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_t_unit Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_n_unit Array of normal direction unit vectors of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:), allocatable :: rmag Array of radial distance magnitudes of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:), allocatable :: rotmag Array of rotation magnitudes of individual fragments real(kind=DP), public, dimension(:), allocatable :: v_r_mag Array of radial direction velocity magnitudes of individual fragments real(kind=DP), public, dimension(:), allocatable :: v_t_mag Array of tangential direction velocity magnitudes of individual fragments real(kind=DP), public :: ke_orbit Current orbital kinetic energy of the system of fragments in the collisional frame real(kind=DP), public :: ke_spin Current spin kinetic energy of the system of fragments in the collisional frame real(kind=DP), public, dimension(NDIM) :: L_orbit Current orbital angular momentum of the system of fragments in the collisional frame real(kind=DP), public, dimension(NDIM) :: L_spin Current spin angular momentum of the system of fragments in the collisional frame real(kind=DP), public :: ke_budget Total kinetic energy budget for the system of fragmens in the collisional frame real(kind=DP), public, dimension(NDIM) :: L_budget Total angular momentum budget for the system of fragmens in the collisional frame real(kind=DP), public, dimension(NDIM) :: Lorbit_before Before/after orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lorbit_after Before/after orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_before Before/after spin angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_after Before/after spin angular momentum real(kind=DP), public, dimension(NDIM) :: Ltot_before Before/after total system angular momentum real(kind=DP), public, dimension(NDIM) :: Ltot_after Before/after total system angular momentum real(kind=DP), public :: ke_orbit_before Before/after orbital kinetic energy real(kind=DP), public :: ke_orbit_after Before/after orbital kinetic energy real(kind=DP), public :: ke_spin_before Before/after spin kinetic energy real(kind=DP), public :: ke_spin_after Before/after spin kinetic energy real(kind=DP), public :: pe_before Before/after potential energy real(kind=DP), public :: pe_after Before/after potential energy real(kind=DP), public :: Etot_before Before/after total system energy real(kind=DP), public :: Etot_after Before/after total system energy real(kind=DP), public :: dscale Distance dimension scale factor real(kind=DP), public :: mscale Mass scale factor real(kind=DP), public :: tscale Time scale factor real(kind=DP), public :: vscale Velocity scale factor (a convenience unit that is derived from dscale and tscale) real(kind=DP), public :: Escale Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale) real(kind=DP), public :: Lscale Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale) Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: index => util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object 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 :: 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: generate_fragments => fraggle_generate_fragments Generates a system of fragments in barycentric coordinates that conserves energy and momentum. interface public module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object containing the two-body equivalent values of the colliding bodies class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead? procedure, public :: accel => fraggle_placeholder_accel Placeholder subroutine to fulfill requirement for an accel method interface public module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg) Implementation → The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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 Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: kick => fraggle_placeholder_kick Placeholder subroutine to fulfill requirement for a kick method interface public module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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, public :: step => fraggle_placeholder_step Placeholder subroutine to fulfill requirement for a step method interface public module subroutine fraggle_placeholder_step(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), 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 Stepsiz procedure, public :: set_budgets => fraggle_set_budgets_fragments Sets the energy and momentum budgets of the fragments based on the collider value interface public module subroutine fraggle_set_budgets_fragments(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object procedure, public :: set_coordinate_system => fraggle_set_coordinate_system Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. interface public module subroutine fraggle_set_coordinate_system(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object procedure, public :: set_mass_dist => fraggle_set_mass_dist_fragments Sets the distribution of mass among the fragments depending on the regime type interface public module subroutine fraggle_set_mass_dist_fragments(self, colliders, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters procedure, public :: set_natural_scale => fraggle_set_natural_scale_factors Scales dimenional quantities to ~O(1) with respect to the collisional system. interface public module subroutine fraggle_set_natural_scale_factors(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object procedure, public :: set_original_scale => fraggle_set_original_scale_factors Restores dimenional quantities back to the original system units interface public module subroutine fraggle_set_original_scale_factors(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object procedure, public :: setup => fraggle_setup_fragments Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays. interface public module subroutine fraggle_setup_fragments(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object integer(kind=I4B), intent(in) :: n Number of fragments class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters procedure, public :: reset => fraggle_setup_reset_fragments Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate) interface public module subroutine fraggle_setup_reset_fragments(self) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self procedure, public :: get_ang_mtm => fraggle_util_ang_mtm Calcualtes the current angular momentum of the fragments interface public module subroutine fraggle_util_ang_mtm(self) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object procedure, public :: get_energy_and_momentum => fraggle_util_get_energy_momentum Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.) interface public module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters logical, intent(in) :: lbefore Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa procedure, public :: restructure => fraggle_util_restructure Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints interface public module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object integer(kind=I4B), intent(in) :: try The current number of times Fraggle has tried to find a solution real(kind=DP), intent(inout) :: f_spin Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real(kind=DP), intent(inout) :: r_max_start The maximum radial distance that the position calculation starts with. This increases after a failed attempt","tags":"","loc":"type/fraggle_fragments.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 type~netcdf_parameters netcdf_parameters type~swiftest_parameters->type~netcdf_parameters nciu 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 maxid t0 t tstop dt ioutput incbfile inplfile intpfile in_type in_form istep_out outfile out_type out_form out_stat particle_out 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 GMtot_orig Ltot_orig Lorbit_orig Lspin_orig Lescape GMescape Ecollisions Euntracked lfirstenergy lfirstkick lrestart lgr lyarkovsky lyorp nciu GMTINY min_GMfrag seed lfragmentation Type-Bound Procedures dump read_in 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 :: maxid = -1 The current maximum particle id number 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 integer(kind=I8B), public :: ioutput = 0_I8B Output counter 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 Data representation type of input data files character(len=STRMAX), public :: in_form = XV Format of input data files (EL or XV) integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = NETCDF_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = NETCDF_DOUBLE_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XVEL Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file character(len=STRMAX), public :: particle_out = PARTICLE_OUTFILE Name of output particle information 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 :: GMtot_orig = 0.0_DP Initial system mass 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) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: GMescape = 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( netcdf_parameters ), public :: nciu Object containing NetCDF parameters real(kind=DP), public :: GMTINY = -1.0_DP Smallest G*mass that is fully gravitating real(kind=DP), public :: min_GMfrag = -1.0_DP Smallest G*mass that can be produced in a fragmentation event 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_in => io_read_in_param interface public module subroutine io_read_in_param(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_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~swiftest_cb swiftest_cb type~helio_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info 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 info 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 GM0 dGM R0 dR Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info read_in read_frame write_frame_bin write_frame Components Type Visibility Attributes Name Initial type( swiftest_particle_info ), public :: info Particle metadata information 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 :: GM0 = 0.0_DP Initial G*mass of the central body real(kind=DP), public :: dGM = 0.0_DP Change in G*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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None procedure, public :: read_in => io_read_in_cb I/O routine for reading in central body data interface public module subroutine io_read_in_cb(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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_cb () Arguments None","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~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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info 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 Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame accel_obl accel_tides h2b b2h vh2vb vb2vh xh2xb set_beg_end set_mu set_rhill lindrift accel_gr gr_pos_kick kick step make_colliders index discard drift encounter_check accel_int accel setup append fill get_peri rearray reset_kinship resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: 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_colliders => symba_collision_make_colliders_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_colliders_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 :: index => symba_util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine symba_util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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_int => symba_kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY interface public module subroutine symba_kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self 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(inout) :: param Current run configuration parameters with SyMBA additions procedure, public :: reset_kinship => symba_util_reset_kinship Resets the kinship status of bodies interface public module subroutine symba_util_reset_kinship(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(:) :: idx Index array of bodies to reset 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~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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info 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 ncomp Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame accel_obl accel_tides h2b b2h vh2vb vb2vh xh2xb set_beg_end set_mu set_rhill lindrift accel_gr gr_pos_kick kick step make_colliders index discard drift encounter_check accel_int accel fill get_peri rearray reset_kinship sort rearrange spill append resize setup Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:), allocatable :: ncomp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: 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_colliders => symba_collision_make_colliders_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_colliders_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 :: index => symba_util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine symba_util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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_int => symba_kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY interface public module subroutine symba_kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self 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(inout) :: param Current run configuration parameters with SyMBA additions procedure, public :: reset_kinship => symba_util_reset_kinship Resets the kinship status of bodies interface public module subroutine symba_util_reset_kinship(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(:) :: idx Index array of bodies to reset 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~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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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 lfirst nbody info id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp k_pltp npltp nplenc levelg levelm Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard accel_int accel_obl h2b b2h vb2vh vh2vb xh2xb get_peri set_mu 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: 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_encounter – swiftest ","text":"type, public, extends( swiftest_encounter ) :: symba_encounter SyMBA class for tracking close encounters in a step Inherits type~~symba_encounter~~InheritsGraph type~symba_encounter symba_encounter type~swiftest_encounter swiftest_encounter type~symba_encounter->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_encounter~~InheritedByGraph type~symba_encounter symba_encounter type~symba_pltpenc symba_pltpenc type~symba_pltpenc->type~symba_encounter type~symba_plplenc symba_plplenc type~symba_plplenc->type~symba_encounter 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, plplcollision_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 kidx index1 index2 id1 id2 x1 x2 v1 v2 t level Type-Bound Procedures resize write collision_check encounter_check kick setup copy spill append 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures 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 :: write => io_write_encounter Write close encounter data to output binary file interface public module subroutine io_write_encounter(self, pl, encbody, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: collision_check => symba_collision_check_encounter Checks if a test particle is going to collide with a massive body interface public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision n procedure, public :: encounter_check => symba_encounter_check Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_encounter(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: copy => symba_util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine symba_util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: spill => symba_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 symba_util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 :: append => symba_util_append_encounter Appends elements from one structure to another interface public module subroutine symba_util_append_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"type/symba_encounter.html"},{"title":"symba_pltpenc – swiftest ","text":"type, public, extends( symba_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~symba_encounter symba_encounter type~symba_pltpenc->type~symba_encounter type~swiftest_encounter swiftest_encounter type~symba_encounter->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 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 kidx index1 index2 id1 id2 x1 x2 v1 v2 t level Type-Bound Procedures resize write collision_check encounter_check kick setup copy spill append resolve_collision 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures 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 :: write => io_write_encounter Write close encounter data to output binary file interface public module subroutine io_write_encounter(self, pl, encbody, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: collision_check => symba_collision_check_encounter Checks if a test particle is going to collide with a massive body interface public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision n procedure, public :: encounter_check => symba_encounter_check Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_encounter(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: copy => symba_util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine symba_util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: spill => symba_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 symba_util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 :: append => symba_util_append_encounter Appends elements from one structure to another interface public module subroutine symba_util_append_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: resolve_collision => symba_collision_resolve_pltpenc Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c interface public module subroutine symba_collision_resolve_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 class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level","tags":"","loc":"type/symba_pltpenc.html"},{"title":"symba_plplenc – swiftest ","text":"type, public, extends( symba_encounter ) :: 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_encounter symba_encounter type~symba_plplenc->type~symba_encounter type~swiftest_encounter swiftest_encounter type~symba_encounter->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, plplcollision_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 kidx index1 index2 id1 id2 x1 x2 v1 v2 t level Type-Bound Procedures resize write collision_check encounter_check kick setup copy spill append extract_collisions resolve_fragmentations resolve_mergers resolve_collision 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures 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 :: write => io_write_encounter Write close encounter data to output binary file interface public module subroutine io_write_encounter(self, pl, encbody, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: collision_check => symba_collision_check_encounter Checks if a test particle is going to collide with a massive body interface public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision n procedure, public :: encounter_check => symba_encounter_check Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_encounter(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: copy => symba_util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine symba_util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: spill => symba_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 symba_util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 :: append => symba_util_append_encounter Appends elements from one structure to another interface public module subroutine symba_util_append_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: extract_collisions => symba_collision_encounter_extract_collisions Processes the pl-pl encounter list remove only those encounters that led to a collision interface public module subroutine symba_collision_encounter_extract_collisions(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 parameters 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(inout) :: 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(inout) :: param Current run configuration parameters with SyMBA additions procedure, public :: resolve_collision => symba_collision_resolve_plplenc Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c interface public module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec) 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(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level","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 pl_adds type~symba_plplenc symba_plplenc type~symba_nbody_system->type~symba_plplenc plplenc_list, plplcollision_list type~whm_nbody_system whm_nbody_system type~helio_nbody_system->type~whm_nbody_system type~symba_encounter symba_encounter type~symba_pltpenc->type~symba_encounter type~symba_pl symba_pl type~symba_merger->type~symba_pl type~symba_plplenc->type~symba_encounter type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~swiftest_encounter swiftest_encounter type~symba_encounter->type~swiftest_encounter type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system 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_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_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body->type~swiftest_base type~swiftest_body->type~swiftest_particle_info info 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 cb pl tp tp_discards pl_discards GMtot ke_orbit ke_spin pe te oblpot Lorbit Lspin Ltot lbeg pl_adds pltpenc_list plplenc_list plplcollision_list irec Type-Bound Procedures discard conservation_report dump get_old_t_final read_frame read_particle_info write_frame write_hdr_bin write_hdr_netcdf obl_pot init_particle_info step_spin set_msys get_energy_and_momentum rescale validate_ids write_hdr write_discard initialize step interp set_recur_levels recursive_step reset Components Type Visibility Attributes Name Initial 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 class( symba_plplenc ), public, allocatable :: plplcollision_list List of massive body-massive body collisions 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. interface public module function io_get_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata from file interface public module subroutine io_read_particle_info_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(inout) :: 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, 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format interface public module subroutine io_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format interface public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body interface public module subroutine obl_pot_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object procedure, public :: init_particle_info => setup_initialize_particle_info_system Initialize the system from input files interface public module subroutine setup_initialize_particle_info_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(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(inout) :: param Current run configuration parameters generic, public :: write_hdr => write_hdr_bin , write_hdr_netcdf Generic method call for writing headers public interface io_write_hdr_system () Arguments None public interface netcdf_write_hdr_system () Arguments None 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(inout) :: 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), intent(in) :: t integer(kind=I4B), intent(in) :: 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, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"type/symba_nbody_system.html"},{"title":"netcdf_parameters – swiftest ","text":"type, public :: netcdf_parameters Inherited by type~~netcdf_parameters~~InheritedByGraph type~netcdf_parameters netcdf_parameters type~swiftest_parameters swiftest_parameters type~swiftest_parameters->type~netcdf_parameters nciu 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 out_type ncid dimids time_dimid id_dimid str_dimid time_varid id_varid name_varid ptype_varid npl_varid ntp_varid a_varid e_varid inc_varid capom_varid omega_varid capm_varid xhx_varid xhy_varid xhz_varid vhx_varid vhy_varid vhz_varid Gmass_varid rhill_varid radius_varid Ip1_varid Ip2_varid Ip3_varid rotx_varid roty_varid rotz_varid k2_varid Q_varid KE_orb_varid KE_spin_varid PE_varid L_orbx_varid L_orby_varid L_orbz_varid L_spinx_varid L_spiny_varid L_spinz_varid L_escapex_varid L_escapey_varid L_escapez_varid Ecollisions_varid Euntracked_varid GMescape_varid status_varid origin_type_varid origin_time_varid origin_xhx_varid origin_xhy_varid origin_xhz_varid origin_vhx_varid origin_vhy_varid origin_vhz_varid discard_time_varid discard_xhx_varid discard_xhy_varid discard_xhz_varid discard_vhx_varid discard_vhy_varid discard_vhz_varid discard_body_id_varid Type-Bound Procedures close initialize open Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: out_type NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter) integer(kind=I4B), public :: ncid NetCDF ID for the output file integer(kind=I4B), public :: dimids (3) Dimensions of the NetCDF file integer(kind=I4B), public :: time_dimid NetCDF ID for the time dimension integer(kind=I4B), public :: id_dimid NetCDF ID for the particle id dimension integer(kind=I4B), public :: str_dimid NetCDF ID for the character string dimension integer(kind=I4B), public :: time_varid NetCDF ID for the time variable integer(kind=I4B), public :: id_varid NetCDF ID for the particle name variable integer(kind=I4B), public :: name_varid NetCDF ID for the namevariable integer(kind=I4B), public :: ptype_varid NetCDF ID for the particle type variable integer(kind=I4B), public :: npl_varid NetCDF ID for the number of active massive bodies variable integer(kind=I4B), public :: ntp_varid NetCDF ID for the number of active test particles variable integer(kind=I4B), public :: a_varid NetCDF ID for the semimajor axis variable integer(kind=I4B), public :: e_varid NetCDF ID for the eccentricity variable integer(kind=I4B), public :: inc_varid NetCDF ID for the inclination variable integer(kind=I4B), public :: capom_varid NetCDF ID for the long. asc. node variable integer(kind=I4B), public :: omega_varid NetCDF ID for the arg. periapsis variable integer(kind=I4B), public :: capm_varid NetCDF ID for the mean anomaly variable integer(kind=I4B), public :: xhx_varid NetCDF ID for the heliocentric position x variable integer(kind=I4B), public :: xhy_varid NetCDF ID for the heliocentric position y variable integer(kind=I4B), public :: xhz_varid NetCDF ID for the heliocentric position z variable integer(kind=I4B), public :: vhx_varid NetCDF ID for the heliocentric velocity x variable integer(kind=I4B), public :: vhy_varid NetCDF ID for the heliocentric velocity y variable integer(kind=I4B), public :: vhz_varid NetCDF ID for the heliocentric velocity z variable integer(kind=I4B), public :: Gmass_varid NetCDF ID for the mass variable integer(kind=I4B), public :: rhill_varid NetCDF ID for the hill radius variable integer(kind=I4B), public :: radius_varid NetCDF ID for the radius variable integer(kind=I4B), public :: Ip1_varid NetCDF ID for the axis 1 principal moment of inertia variable integer(kind=I4B), public :: Ip2_varid NetCDF ID for the axis 2 principal moment of inertia variable integer(kind=I4B), public :: Ip3_varid NetCDF ID for the axis 3 principal moment of inertia variable integer(kind=I4B), public :: rotx_varid NetCDF ID for the rotation x variable integer(kind=I4B), public :: roty_varid NetCDF ID for the rotation y variable integer(kind=I4B), public :: rotz_varid NetCDF ID for the rotation z variable integer(kind=I4B), public :: k2_varid NetCDF ID for the Love number variable integer(kind=I4B), public :: Q_varid NetCDF ID for the energy dissipation variable integer(kind=I4B), public :: KE_orb_varid NetCDF ID for the system orbital kinetic energy variable integer(kind=I4B), public :: KE_spin_varid NetCDF ID for the system spin kinetic energy variable integer(kind=I4B), public :: PE_varid NetCDF ID for the system potential energy variable integer(kind=I4B), public :: L_orbx_varid NetCDF ID for the system orbital angular momentum x variable integer(kind=I4B), public :: L_orby_varid NetCDF ID for the system orbital angular momentum y variable integer(kind=I4B), public :: L_orbz_varid NetCDF ID for the system orbital angular momentum z variable integer(kind=I4B), public :: L_spinx_varid NetCDF ID for the system spin angular momentum x variable integer(kind=I4B), public :: L_spiny_varid NetCDF ID for the system spin angular momentum y variable integer(kind=I4B), public :: L_spinz_varid NetCDF ID for the system spin angular momentum z variable integer(kind=I4B), public :: L_escapex_varid NetCDF ID for the escaped angular momentum x variable integer(kind=I4B), public :: L_escapey_varid NetCDF ID for the escaped angular momentum x variable integer(kind=I4B), public :: L_escapez_varid NetCDF ID for the escaped angular momentum x variable integer(kind=I4B), public :: Ecollisions_varid NetCDF ID for the energy lost in collisions variable integer(kind=I4B), public :: Euntracked_varid NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies) integer(kind=I4B), public :: GMescape_varid NetCDF ID for the G*Mass of bodies that escape the system integer(kind=I4B), public :: status_varid NetCDF ID for the status variable integer(kind=I4B), public :: origin_type_varid NetCDF ID for the origin type integer(kind=I4B), public :: origin_time_varid NetCDF ID for the origin time integer(kind=I4B), public :: origin_xhx_varid NetCDF ID for the origin xh x component integer(kind=I4B), public :: origin_xhy_varid NetCDF ID for the origin xh y component integer(kind=I4B), public :: origin_xhz_varid NetCDF ID for the origin xh z component integer(kind=I4B), public :: origin_vhx_varid NetCDF ID for the origin xh x component integer(kind=I4B), public :: origin_vhy_varid NetCDF ID for the origin xh y component integer(kind=I4B), public :: origin_vhz_varid NetCDF ID for the origin xh z component integer(kind=I4B), public :: discard_time_varid NetCDF ID for the time of discard variable integer(kind=I4B), public :: discard_xhx_varid NetCDF ID for the heliocentric position of the body at the time of discard x variable integer(kind=I4B), public :: discard_xhy_varid NetCDF ID for the heliocentric position of the body at the time of discard y variable integer(kind=I4B), public :: discard_xhz_varid NetCDF ID for the heliocentric position of the body at the time of discard z variable integer(kind=I4B), public :: discard_vhx_varid NetCDF ID for the heliocentric velocity of the body at the time of discard x variable integer(kind=I4B), public :: discard_vhy_varid NetCDF ID for the heliocentric velocity of the body at the time of discard y variable integer(kind=I4B), public :: discard_vhz_varid NetCDF ID for the heliocentric velocity of the body at the time of discard z variable integer(kind=I4B), public :: discard_body_id_varid NetCDF ID for the id of the other body involved in the discard Type-Bound Procedures procedure, public :: close => netcdf_close Closes an open NetCDF file interface public module subroutine netcdf_close(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => netcdf_initialize_output Initialize a set of parameters used to identify a NetCDF output object interface public module subroutine netcdf_initialize_output(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: open => netcdf_open Opens a NetCDF file interface public module subroutine netcdf_open(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/netcdf_parameters.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. Inherits type~~swiftest_parameters~~InheritsGraph type~swiftest_parameters swiftest_parameters type~netcdf_parameters netcdf_parameters type~swiftest_parameters->type~netcdf_parameters nciu 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_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 maxid t0 t tstop dt ioutput incbfile inplfile intpfile in_type in_form istep_out outfile out_type out_form out_stat particle_out 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 GMtot_orig Ltot_orig Lorbit_orig Lspin_orig Lescape GMescape Ecollisions Euntracked lfirstenergy lfirstkick lrestart lgr lyarkovsky lyorp nciu Type-Bound Procedures reader writer dump read_in Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: maxid = -1 The current maximum particle id number 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 integer(kind=I8B), public :: ioutput = 0_I8B Output counter 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 Data representation type of input data files character(len=STRMAX), public :: in_form = XV Format of input data files (EL or XV) integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = NETCDF_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = NETCDF_DOUBLE_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XVEL Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file character(len=STRMAX), public :: particle_out = PARTICLE_OUTFILE Name of output particle information 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 :: GMtot_orig = 0.0_DP Initial system mass 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) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: GMescape = 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( netcdf_parameters ), public :: nciu Object containing NetCDF parameters 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_in => io_read_in_param interface public module subroutine io_read_in_param(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_particle_info – swiftest ","text":"type, public :: swiftest_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. Inherited by type~~swiftest_particle_info~~InheritedByGraph type~swiftest_particle_info swiftest_particle_info type~swiftest_cb swiftest_cb type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body swiftest_body type~swiftest_body->type~swiftest_particle_info info 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~swiftest_pl swiftest_pl 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_pl->type~swiftest_body type~swiftest_tp->type~swiftest_body type~whm_cb whm_cb type~whm_cb->type~swiftest_cb type~symba_cb symba_cb type~symba_cb->type~helio_cb type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~fraggle_fragments fraggle_fragments type~fraggle_fragments->type~swiftest_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~symba_tp symba_tp type~symba_tp->type~helio_tp 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_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric type~rmvs_tp->type~whm_tp 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 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 name particle_type origin_type origin_time origin_xh origin_vh discard_time status discard_xh discard_vh discard_body_id Type-Bound Procedures dump read_in copy set_value Components Type Visibility Attributes Name Initial character(len=NAMELEN), public :: name Non-unique name character(len=NAMELEN), public :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=NAMELEN), 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 real(kind=DP), public :: discard_time The time of the particle's discard character(len=NAMELEN), public :: status Particle status description: Active, Merged, Fragmented, etc. real(kind=DP), public, dimension(NDIM) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), public, dimension(NDIM) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), public :: discard_body_id The id of the other body involved in the discard (0 if no other body involved) Type-Bound Procedures procedure, public :: dump => io_dump_particle_info Dumps contents of particle information to file interface public module subroutine io_dump_particle_info(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in) :: self Swiftest particle info metadata object integer(kind=I4B), intent(in) :: iu Open unformatted file unit number procedure, public :: read_in => io_read_in_particle_info Read in a particle information object from an open file interface public module subroutine io_read_in_particle_info(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number procedure, public :: copy => util_copy_particle_info Copies one set of information object components into another, component-by-component interface public module subroutine util_copy_particle_info(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self class( swiftest_particle_info ), intent(in) :: source procedure, public :: set_value => util_set_particle_info Sets one or more values of the particle information metadata object interface public module subroutine util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self character(len=*), intent(in), optional :: name Non-unique name character(len=*), intent(in), optional :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=*), intent(in), optional :: status Particle status description: Active, Merged, Fragmented, etc. character(len=*), intent(in), optional :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), intent(in), optional :: origin_time The time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_vh The heliocentric velocity vector at the time of the particle's formation real(kind=DP), intent(in), optional :: discard_time The time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), intent(in), optional :: discard_body_id The id of the other body involved in the discard (0 if no other body involved)","tags":"","loc":"type/swiftest_particle_info.html"},{"title":"swiftest_base – swiftest ","text":"type, public, abstract :: swiftest_base An abstract 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~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~swiftest_pl swiftest_pl 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_pl->type~swiftest_body type~swiftest_tp->type~swiftest_body type~whm_cb whm_cb type~whm_cb->type~swiftest_cb type~symba_cb symba_cb type~symba_cb->type~helio_cb type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~fraggle_fragments fraggle_fragments type~fraggle_fragments->type~swiftest_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~symba_tp symba_tp type~symba_tp->type~helio_tp 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_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric type~rmvs_tp->type~whm_tp 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 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 Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_frame write_particle_info Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_frame => write_frame_netcdf Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments public interface netcdf_write_frame_base () Arguments None generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None","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 type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info 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~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~symba_cb symba_cb type~symba_cb->type~helio_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_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~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_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 info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info read_in read_frame write_frame_bin write_frame Components Type Visibility Attributes Name Initial type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None procedure, public :: read_in => io_read_in_cb I/O routine for reading in central body data interface public module subroutine io_read_in_cb(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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_cb () Arguments None","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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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_pl whm_pl type~whm_pl->type~swiftest_pl 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, pl_discards type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~fraggle_fragments fraggle_fragments type~fraggle_fragments->type~swiftest_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~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_tp rmvs_tp type~rmvs_tp->type~whm_tp type~symba_tp symba_tp type~symba_tp->type~helio_tp type~symba_merger symba_merger type~symba_merger->type~symba_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_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger pl_adds 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 lfirst nbody info id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info discard kick set_mu step accel drift v2pv pv2v read_in read_frame write_frame_bin accel_obl el2xv xv2el setup accel_user append fill resize set_ir3 sort rearrange spill write_frame Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None","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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~fraggle_fragments fraggle_fragments type~fraggle_fragments->type~swiftest_pl type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards 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~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~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 lfirst nbody info 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 dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info kick step accel drift v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard index accel_int accel_obl setup accel_tides append h2b b2h vh2vb vb2vh xh2xb fill resize set_beg_end set_mu set_rhill sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: index => util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_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 :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_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 :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 type~swiftest_particle_info swiftest_particle_info type~swiftest_body->type~swiftest_particle_info info 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~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~symba_tp symba_tp type~symba_tp->type~helio_tp type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp 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~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_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 lfirst nbody info id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp k_pltp npltp Type-Bound Procedures dump dump_particle_info write_frame_netcdf write_particle_info_netcdf write_particle_info kick step accel drift v2pv pv2v read_in read_frame write_frame_bin el2xv xv2el accel_user set_ir3 write_frame discard accel_int accel_obl setup append h2b b2h vb2vh vh2vb xh2xb fill get_peri resize set_mu sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file interface public module subroutine io_dump_base(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 :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file interface public module subroutine io_dump_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset generic, public :: write_particle_info => write_particle_info_netcdf public interface netcdf_write_particle_info_base () Arguments None 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 :: read_in => io_read_in_body Read in body initial conditions from a file interface public module subroutine io_read_in_body(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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: write_frame_bin => 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 generic, public :: write_frame => write_frame_netcdf , write_frame_bin Add the generic write frame for Fortran binary files public interface netcdf_write_frame_base () Arguments None public interface io_write_frame_body () Arguments None 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine util_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine util_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) interface public module subroutine util_coord_xh2xb_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 :: 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_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_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_particle_info swiftest_particle_info type~swiftest_cb->type~swiftest_particle_info info type~swiftest_body->type~swiftest_base type~swiftest_body->type~swiftest_particle_info info 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~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_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 cb pl tp tp_discards pl_discards GMtot ke_orbit ke_spin pe te oblpot Lorbit Lspin Ltot lbeg Type-Bound Procedures step discard conservation_report dump get_old_t_final read_frame read_particle_info write_discard write_frame write_hdr_bin write_hdr_netcdf obl_pot initialize init_particle_info step_spin set_msys get_energy_and_momentum rescale validate_ids write_hdr Components Type Visibility Attributes Name Initial 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. interface public module function io_get_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata from file interface public module subroutine io_read_particle_info_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(inout) :: param Current run configuration parameters 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(inout) :: 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, 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format interface public module subroutine io_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format interface public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body interface public module subroutine obl_pot_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object 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 :: init_particle_info => setup_initialize_particle_info_system Initialize the system from input files interface public module subroutine setup_initialize_particle_info_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(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(inout) :: param Current run configuration parameters generic, public :: write_hdr => write_hdr_bin , write_hdr_netcdf Generic method call for writing headers public interface io_write_hdr_system () Arguments None public interface netcdf_write_hdr_system () Arguments None","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_encounter symba_encounter type~symba_encounter->type~swiftest_encounter type~symba_pltpenc symba_pltpenc type~symba_pltpenc->type~symba_encounter type~symba_plplenc symba_plplenc type~symba_plplenc->type~symba_encounter 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, plplcollision_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 kidx index1 index2 id1 id2 x1 x2 v1 v2 t Type-Bound Procedures setup append copy spill resize write 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of 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 :: append => util_append_encounter Appends elements from one structure to another interface public module subroutine util_append_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list object class( swiftest_encounter ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to 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 procedure, public :: write => io_write_encounter Write close encounter data to output binary file interface public module subroutine io_write_encounter(self, pl, encbody, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","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_err lambda_obj_err type~lambda_obj_err->type~lambda_obj type~lambda_obj_tvar lambda_obj_tvar 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 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_read_frame – swiftest","text":"abstract interface public function abstract_read_frame(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful","tags":"","loc":"interface/abstract_read_frame.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_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_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":"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":"obl_pot_one – swiftest","text":"elemental function obl_pot_one(npl, GMcb, GMpl, j2rp2, j4rp4, zh, irh) result(oblpot) Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive 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 Number of massive bodies real(kind=DP), intent(in) :: GMcb G*mass of the central body real(kind=DP), intent(in) :: GMpl G*mass of the massive body real(kind=DP), intent(in) :: j2rp2 J_2 / R**2 of the central body real(kind=DP), intent(in) :: j4rp4 J_2 / R**4 of the central body real(kind=DP), intent(in) :: zh z-component of the heliocentric distance vector of the massive body real(kind=DP), intent(in) :: irh Inverse of the heliocentric distance magnitude of the massive body Return Value real(kind=DP) Gravitational potential Called by proc~~obl_pot_one~~CalledByGraph proc~obl_pot_one obl_pot_one proc~obl_pot_system obl_pot_system proc~obl_pot_system->proc~obl_pot_one interface~obl_pot_system obl_pot_system interface~obl_pot_system->proc~obl_pot_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_one.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_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 interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid 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 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 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_esolmd->interface~orbel_scget 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_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":"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 module~swiftest swiftest proc~solve_wbs->module~swiftest ieee_exceptions ieee_exceptions proc~solve_wbs->ieee_exceptions module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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. 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 module~swiftest swiftest proc~ge_wpp->module~swiftest ieee_exceptions ieee_exceptions proc~ge_wpp->ieee_exceptions module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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. 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, id1, id2, Gmass1, Gmass2, 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) :: id1 integer(kind=I4B), intent(out) :: id2 real(kind=DP), intent(out) :: Gmass1 real(kind=DP), intent(out) :: Gmass2 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":"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_guess drift_kepu_guess proc~drift_kepu->proc~drift_kepu_guess 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_stumpff drift_kepu_stumpff proc~drift_kepu_new->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_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_new drift_kepu_new proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu->proc~drift_kepu_guess 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_stumpff drift_kepu_stumpff proc~drift_kepu_new->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_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 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_encounter symba_collision_check_encounter proc~symba_collision_check_encounter->proc~symba_collision_check_one interface~symba_collision_check_encounter symba_collision_check_encounter interface~symba_collision_check_encounter->proc~symba_collision_check_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/symba_collision_check_one.html"},{"title":"symba_collision_consolidate_colliders – swiftest","text":"function symba_collision_consolidate_colliders(pl, cb, param, idx_parent, colliders) result(lflag) Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx 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_cb ), intent(inout) :: cb SyMBA central 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 class( fraggle_colliders ), intent(out) :: colliders Return Value logical Logical flag indicating whether a colliders%idx was successfully created or not Calls proc~~symba_collision_consolidate_colliders~~CallsGraph proc~symba_collision_consolidate_colliders symba_collision_consolidate_colliders id_arr id_arr proc~symba_collision_consolidate_colliders->id_arr idx_arr idx_arr proc~symba_collision_consolidate_colliders->idx_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_colliders~~CalledByGraph proc~symba_collision_consolidate_colliders symba_collision_consolidate_colliders proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_colliders proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_colliders interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers 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_consolidate_colliders.html"},{"title":"symba_collision_collider_message – swiftest","text":"subroutine symba_collision_collider_message(pl, collidx, collider_message) Prints a nicely formatted message about which bodies collided, including their names and ids.\n This subroutine appends the body names and ids to an input message. Arguments Type Intent Optional Attributes Name class(swiftest_pl), intent(in) :: pl Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: collidx Index of collisional colliders%idx members character(len=*), intent(inout) :: collider_message The message to print to the screen. Called by proc~~symba_collision_collider_message~~CalledByGraph proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_casehitandrun->proc~symba_collision_collider_message proc~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_casedisruption->proc~symba_collision_collider_message proc~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_casemerge->proc~symba_collision_collider_message interface~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption->proc~symba_collision_casedisruption interface~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun->proc~symba_collision_casehitandrun interface~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_collision_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_collision_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_collision_casemerge interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers 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_collider_message.html"},{"title":"symba_collision_mergeaddsub – swiftest","text":"subroutine symba_collision_mergeaddsub(system, param, colliders, 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object integer(kind=I4B), intent(in) :: status Status flag to assign to adds Calls proc~~symba_collision_mergeaddsub~~CallsGraph proc~symba_collision_mergeaddsub symba_collision_mergeaddsub fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_mergeaddsub~~CalledByGraph proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_casehitandrun->proc~symba_collision_mergeaddsub proc~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_casedisruption->proc~symba_collision_mergeaddsub proc~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub interface~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption->proc~symba_collision_casedisruption interface~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun->proc~symba_collision_casehitandrun interface~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_collision_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_collision_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_collision_casemerge interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers 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_mergeaddsub.html"},{"title":"symba_encounter_check_all – swiftest","text":"subroutine symba_encounter_check_all(nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr) Check for encounters between massive bodies. Split off from the main subroutine for performance Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in) :: nplplm integer(kind=I4B), intent(in), dimension(:,:) :: k_plpl real(kind=DP), intent(in), dimension(:,:) :: x real(kind=DP), intent(in), dimension(:,:) :: v real(kind=DP), intent(in), dimension(:) :: rhill real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out), dimension(:) :: lencounter logical, intent(out), dimension(:) :: loc_lvdotr Called by proc~~symba_encounter_check_all~~CalledByGraph proc~symba_encounter_check_all symba_encounter_check_all proc~symba_encounter_check_pl symba_encounter_check_pl proc~symba_encounter_check_pl->proc~symba_encounter_check_all 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_all.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 Calls proc~~symba_discard_cb_pl~~CallsGraph proc~symba_discard_cb_pl symba_discard_cb_pl fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_discard_cb_pl->fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_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 fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_discard_cb_pl->fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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":"xv2el – swiftest","text":"public pure elemental subroutine xv2el(mu, px, py, pz, vx, vy, vz, a, e, inc, capom, omega, capm) Uses swiftest_classes proc~~xv2el~~UsesGraph proc~xv2el xv2el module~swiftest_classes swiftest_classes proc~xv2el->module~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. Arguments Type Intent Optional Attributes Name real(kind=8), intent(in) :: mu real(kind=8), intent(in) :: px real(kind=8), intent(in) :: py real(kind=8), intent(in) :: pz real(kind=8), intent(in) :: vx real(kind=8), intent(in) :: vy real(kind=8), intent(in) :: vz real(kind=8), intent(out) :: a real(kind=8), intent(out) :: e real(kind=8), intent(out) :: inc real(kind=8), intent(out) :: capom real(kind=8), intent(out) :: omega real(kind=8), intent(out) :: capm Contents None","tags":"","loc":"proc/xv2el.html"},{"title":"check – swiftest","text":"subroutine check(status) Checks the status of all NetCDF operations to catch errors Arguments Type Intent Optional Attributes Name integer, intent(in) :: status Calls proc~~check~~CallsGraph proc~check check nf90_strerror nf90_strerror proc~check->nf90_strerror interface~util_exit util_exit proc~check->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/check.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~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one 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. 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_io_write_encounter – swiftest","text":"interface Calls interface~~rmvs_io_write_encounter~~CallsGraph interface~rmvs_io_write_encounter rmvs_io_write_encounter proc~rmvs_io_write_encounter rmvs_io_write_encounter interface~rmvs_io_write_encounter->proc~rmvs_io_write_encounter util_exit util_exit proc~rmvs_io_write_encounter->util_exit io_write_frame_encounter io_write_frame_encounter proc~rmvs_io_write_encounter->io_write_frame_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 rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: id1 integer(kind=I4B), intent(in) :: id2 real(kind=DP), intent(in) :: Gmass1 real(kind=DP), intent(in) :: Gmass2 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","tags":"","loc":"interface/rmvs_io_write_encounter.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 whm_util_append_pl whm_util_append_pl proc~rmvs_util_append_pl->whm_util_append_pl util_exit util_exit proc~rmvs_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 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_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), 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 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 util_exit util_exit proc~rmvs_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 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 util_fill proc~rmvs_util_fill_tp->util_fill 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 util_resize util_resize proc~rmvs_util_resize_pl->util_resize whm_util_resize_pl whm_util_resize_pl proc~rmvs_util_resize_pl->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. 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 util_resize proc~rmvs_util_resize_tp->util_resize util_resize_tp util_resize_tp proc~rmvs_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 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 util_sort_rearrange util_sort_rearrange proc~rmvs_util_sort_rearrange_pl->util_sort_rearrange Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 util_sort_rearrange util_sort_rearrange proc~rmvs_util_sort_rearrange_tp->util_sort_rearrange Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_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 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_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in util_exit util_exit proc~rmvs_interp_out->util_exit 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 proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_interp_in->util_exit 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":"walltime_finish – swiftest","text":"public subroutine walltime_finish(self, nsubsteps, message) Uses swiftest_globals proc~~walltime_finish~~UsesGraph proc~walltime_finish walltime_finish module~swiftest_globals swiftest_globals proc~walltime_finish->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. Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object integer(kind=I4B), intent(in) :: nsubsteps Number of substeps used to compute the time per step character(len=*), intent(in) :: message Message to prepend to the wall time terminal output Contents None","tags":"","loc":"proc/walltime_finish.html"},{"title":"walltime_reset – swiftest","text":"public subroutine walltime_reset(self) Uses swiftest_globals proc~~walltime_reset~~UsesGraph proc~walltime_reset walltime_reset module~swiftest_globals swiftest_globals proc~walltime_reset->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. Resets the clock ticker, settting main_start to the current ticker value Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Contents None","tags":"","loc":"proc/walltime_reset.html"},{"title":"walltime_start – swiftest","text":"public subroutine walltime_start(self) Uses swiftest_globals proc~~walltime_start~~UsesGraph proc~walltime_start walltime_start module~swiftest_globals swiftest_globals proc~walltime_start->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. Starts the timer, setting step_start to the current ticker value Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Contents None","tags":"","loc":"proc/walltime_start.html"},{"title":"walltime_finish – swiftest","text":"interface public subroutine walltime_finish(self, nsubsteps, message) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object integer(kind=I4B), intent(in) :: nsubsteps Number of substeps used to compute the time per step character(len=*), intent(in) :: message Message to prepend to the wall time terminal output","tags":"","loc":"interface/walltime_finish.html"},{"title":"walltime_reset – swiftest","text":"interface public subroutine walltime_reset(self) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object","tags":"","loc":"interface/walltime_reset.html"},{"title":"walltime_start – swiftest","text":"interface public subroutine walltime_start(self) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object","tags":"","loc":"interface/walltime_start.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_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_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_setup_initialize_system – swiftest","text":"interface Calls interface~~helio_setup_initialize_system~~CallsGraph interface~helio_setup_initialize_system helio_setup_initialize_system proc~helio_setup_initialize_system helio_setup_initialize_system interface~helio_setup_initialize_system->proc~helio_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~helio_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 helio_setup_initialize_system(self, param) 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","tags":"","loc":"interface/helio_setup_initialize_system.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 vj vj proc~whm_coord_h2j_pl->vj vh vh proc~whm_coord_h2j_pl->vh xj xj proc~whm_coord_h2j_pl->xj xh xh proc~whm_coord_h2j_pl->xh gmpl gmpl proc~whm_coord_h2j_pl->gmpl eta eta proc~whm_coord_h2j_pl->eta Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 vj vj proc~whm_coord_j2h_pl->vj vh vh proc~whm_coord_j2h_pl->vh xj xj proc~whm_coord_j2h_pl->xj xh xh proc~whm_coord_j2h_pl->xh gmpl gmpl proc~whm_coord_j2h_pl->gmpl eta eta proc~whm_coord_j2h_pl->eta Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 eta eta proc~whm_coord_vh2vj_pl->eta vj vj proc~whm_coord_vh2vj_pl->vj gmpl gmpl proc~whm_coord_vh2vj_pl->gmpl 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_util_index_eucl_plpl – swiftest","text":"interface public subroutine whm_util_index_eucl_plpl(self, param) 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","tags":"","loc":"interface/whm_util_index_eucl_plpl.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 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_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), 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_spill_pl util_spill_pl proc~whm_util_spill_pl->util_spill_pl util_exit util_exit proc~whm_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 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_fill util_fill proc~whm_util_fill_pl->util_fill 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 util_resize proc~whm_util_resize_pl->util_resize util_resize_pl util_resize_pl proc~whm_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 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 util_sort_rearrange util_sort_rearrange proc~whm_util_sort_rearrange_pl->util_sort_rearrange Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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":"fraggle_util_vmag_to_vb – swiftest","text":"interface Calls interface~~fraggle_util_vmag_to_vb~~CallsGraph interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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~~fraggle_util_vmag_to_vb~~CalledByGraph interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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 fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: v_r_mag Unknown radial component of fragment velocity vector real(kind=DP), intent(in), dimension(:,:) :: v_r_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: v_t_mag Tangential component of velocity vector set previously by angular momentum constraint real(kind=DP), intent(in), dimension(:,:) :: v_t_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(in), dimension(:) :: vcom Barycentric velocity of collisional system center of mass Return Value real(kind=DP),\n  dimension(:,:),allocatable","tags":"","loc":"interface/fraggle_util_vmag_to_vb.html"},{"title":"fraggle_generate_fragments – swiftest","text":"interface Calls interface~~fraggle_generate_fragments~~CallsGraph interface~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel proc~fraggle_generate_pos_vec fraggle_generate_pos_vec proc~fraggle_generate_fragments->proc~fraggle_generate_pos_vec proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_spins fraggle_generate_spins proc~fraggle_generate_fragments->proc~fraggle_generate_spins interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_generate_fragments->interface~fraggle_io_log_one_message interface~fraggle_io_log_generate fraggle_io_log_generate proc~fraggle_generate_fragments->interface~fraggle_io_log_generate proc~fraggle_generate_tan_vel->interface~fraggle_io_log_one_message util_minimize_bfgs util_minimize_bfgs proc~fraggle_generate_tan_vel->util_minimize_bfgs interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb lambda_obj lambda_obj proc~fraggle_generate_tan_vel->lambda_obj interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_generate_pos_vec->interface~fraggle_util_shift_vector_to_origin proc~fraggle_generate_rad_vel->interface~fraggle_io_log_one_message proc~fraggle_generate_rad_vel->util_minimize_bfgs proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel->lambda_obj proc~fraggle_generate_spins->interface~fraggle_io_log_one_message proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message proc~fraggle_io_log_generate fraggle_io_log_generate interface~fraggle_io_log_generate->proc~fraggle_io_log_generate proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object containing the two-body equivalent values of the colliding bodies class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead?","tags":"","loc":"interface/fraggle_generate_fragments.html"},{"title":"fraggle_io_log_generate – swiftest","text":"interface Calls interface~~fraggle_io_log_generate~~CallsGraph interface~fraggle_io_log_generate fraggle_io_log_generate proc~fraggle_io_log_generate fraggle_io_log_generate interface~fraggle_io_log_generate->proc~fraggle_io_log_generate Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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~~fraggle_io_log_generate~~CalledByGraph interface~fraggle_io_log_generate fraggle_io_log_generate proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->interface~fraggle_io_log_generate interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_io_log_generate(frag) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag","tags":"","loc":"interface/fraggle_io_log_generate.html"},{"title":"fraggle_io_log_one_message – swiftest","text":"interface Calls interface~~fraggle_io_log_one_message~~CallsGraph interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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~~fraggle_io_log_one_message~~CalledByGraph interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_tan_vel->interface~fraggle_io_log_one_message proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_rad_vel->interface~fraggle_io_log_one_message proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->interface~fraggle_io_log_one_message proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_spins fraggle_generate_spins proc~fraggle_generate_fragments->proc~fraggle_generate_spins proc~fraggle_generate_spins->interface~fraggle_io_log_one_message proc~fraggle_regime_collresolve fraggle_regime_collresolve proc~fraggle_regime_collresolve->interface~fraggle_io_log_one_message interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_io_log_one_message(message) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: message","tags":"","loc":"interface/fraggle_io_log_one_message.html"},{"title":"fraggle_io_log_pl – swiftest","text":"interface Calls interface~~fraggle_io_log_pl~~CallsGraph interface~fraggle_io_log_pl fraggle_io_log_pl proc~fraggle_io_log_pl fraggle_io_log_pl interface~fraggle_io_log_pl->proc~fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_io_log_pl(pl, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl Swiftest massive body object (only the new bodies generated in a collision) class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters","tags":"","loc":"interface/fraggle_io_log_pl.html"},{"title":"fraggle_io_log_regime – swiftest","text":"interface Calls interface~~fraggle_io_log_regime~~CallsGraph interface~fraggle_io_log_regime fraggle_io_log_regime proc~fraggle_io_log_regime fraggle_io_log_regime interface~fraggle_io_log_regime->proc~fraggle_io_log_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. Called by interface~~fraggle_io_log_regime~~CalledByGraph interface~fraggle_io_log_regime fraggle_io_log_regime proc~fraggle_regime_colliders fraggle_regime_colliders proc~fraggle_regime_colliders->interface~fraggle_io_log_regime interface~fraggle_regime_colliders fraggle_regime_colliders interface~fraggle_regime_colliders->proc~fraggle_regime_colliders Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_io_log_regime(colliders, frag) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(in) :: colliders class( fraggle_fragments ), intent(in) :: frag","tags":"","loc":"interface/fraggle_io_log_regime.html"},{"title":"fraggle_io_log_start – swiftest","text":"interface Calls interface~~fraggle_io_log_start~~CallsGraph interface~fraggle_io_log_start fraggle_io_log_start proc~fraggle_io_log_start fraggle_io_log_start interface~fraggle_io_log_start->proc~fraggle_io_log_start Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_io_log_start(param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param","tags":"","loc":"interface/fraggle_io_log_start.html"},{"title":"fraggle_placeholder_accel – swiftest","text":"interface Calls interface~~fraggle_placeholder_accel~~CallsGraph interface~fraggle_placeholder_accel fraggle_placeholder_accel proc~fraggle_placeholder_accel fraggle_placeholder_accel interface~fraggle_placeholder_accel->proc~fraggle_placeholder_accel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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 Optional argument that determines whether or not this is the beginning or end of the step Description The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class","tags":"","loc":"interface/fraggle_placeholder_accel.html"},{"title":"fraggle_placeholder_kick – swiftest","text":"interface Calls interface~~fraggle_placeholder_kick~~CallsGraph interface~fraggle_placeholder_kick fraggle_placeholder_kick proc~fraggle_placeholder_kick fraggle_placeholder_kick interface~fraggle_placeholder_kick->proc~fraggle_placeholder_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 module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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/fraggle_placeholder_kick.html"},{"title":"fraggle_placeholder_step – swiftest","text":"interface Calls interface~~fraggle_placeholder_step~~CallsGraph interface~fraggle_placeholder_step fraggle_placeholder_step proc~fraggle_placeholder_step fraggle_placeholder_step interface~fraggle_placeholder_step->proc~fraggle_placeholder_step Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_placeholder_step(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), 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 Stepsiz","tags":"","loc":"interface/fraggle_placeholder_step.html"},{"title":"fraggle_regime_colliders – swiftest","text":"interface Calls interface~~fraggle_regime_colliders~~CallsGraph interface~fraggle_regime_colliders fraggle_regime_colliders proc~fraggle_regime_colliders fraggle_regime_colliders interface~fraggle_regime_colliders->proc~fraggle_regime_colliders interface~fraggle_io_log_regime fraggle_io_log_regime proc~fraggle_regime_colliders->interface~fraggle_io_log_regime proc~fraggle_io_log_regime fraggle_io_log_regime interface~fraggle_io_log_regime->proc~fraggle_io_log_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 fraggle_regime_colliders(self, frag, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(inout) :: self Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters","tags":"","loc":"interface/fraggle_regime_colliders.html"},{"title":"fraggle_set_budgets_fragments – swiftest","text":"interface Calls interface~~fraggle_set_budgets_fragments~~CallsGraph interface~fraggle_set_budgets_fragments fraggle_set_budgets_fragments proc~fraggle_set_budgets_fragments fraggle_set_budgets_fragments interface~fraggle_set_budgets_fragments->proc~fraggle_set_budgets_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_set_budgets_fragments(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object","tags":"","loc":"interface/fraggle_set_budgets_fragments.html"},{"title":"fraggle_set_coordinate_system – swiftest","text":"interface Calls interface~~fraggle_set_coordinate_system~~CallsGraph interface~fraggle_set_coordinate_system fraggle_set_coordinate_system proc~fraggle_set_coordinate_system fraggle_set_coordinate_system interface~fraggle_set_coordinate_system->proc~fraggle_set_coordinate_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 fraggle_set_coordinate_system(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object","tags":"","loc":"interface/fraggle_set_coordinate_system.html"},{"title":"fraggle_set_mass_dist_fragments – swiftest","text":"interface Calls interface~~fraggle_set_mass_dist_fragments~~CallsGraph interface~fraggle_set_mass_dist_fragments fraggle_set_mass_dist_fragments proc~fraggle_set_mass_dist_fragments fraggle_set_mass_dist_fragments interface~fraggle_set_mass_dist_fragments->proc~fraggle_set_mass_dist_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_set_mass_dist_fragments(self, colliders, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters","tags":"","loc":"interface/fraggle_set_mass_dist_fragments.html"},{"title":"fraggle_set_natural_scale_factors – swiftest","text":"interface Calls interface~~fraggle_set_natural_scale_factors~~CallsGraph interface~fraggle_set_natural_scale_factors fraggle_set_natural_scale_factors proc~fraggle_set_natural_scale_factors fraggle_set_natural_scale_factors interface~fraggle_set_natural_scale_factors->proc~fraggle_set_natural_scale_factors Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_set_natural_scale_factors(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object","tags":"","loc":"interface/fraggle_set_natural_scale_factors.html"},{"title":"fraggle_set_original_scale_factors – swiftest","text":"interface Calls interface~~fraggle_set_original_scale_factors~~CallsGraph interface~fraggle_set_original_scale_factors fraggle_set_original_scale_factors proc~fraggle_set_original_scale_factors fraggle_set_original_scale_factors interface~fraggle_set_original_scale_factors->proc~fraggle_set_original_scale_factors Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_set_original_scale_factors(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object","tags":"","loc":"interface/fraggle_set_original_scale_factors.html"},{"title":"fraggle_setup_fragments – swiftest","text":"interface Calls interface~~fraggle_setup_fragments~~CallsGraph interface~fraggle_setup_fragments fraggle_setup_fragments proc~fraggle_setup_fragments fraggle_setup_fragments interface~fraggle_setup_fragments->proc~fraggle_setup_fragments setup_pl setup_pl proc~fraggle_setup_fragments->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 fraggle_setup_fragments(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object integer(kind=I4B), intent(in) :: n Number of fragments class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters","tags":"","loc":"interface/fraggle_setup_fragments.html"},{"title":"fraggle_setup_reset_fragments – swiftest","text":"interface Calls interface~~fraggle_setup_reset_fragments~~CallsGraph interface~fraggle_setup_reset_fragments fraggle_setup_reset_fragments proc~fraggle_setup_reset_fragments fraggle_setup_reset_fragments interface~fraggle_setup_reset_fragments->proc~fraggle_setup_reset_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_setup_reset_fragments(self) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self","tags":"","loc":"interface/fraggle_setup_reset_fragments.html"},{"title":"fraggle_util_add_fragments_to_system – swiftest","text":"interface Calls interface~~fraggle_util_add_fragments_to_system~~CallsGraph interface~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system proc~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system interface~fraggle_util_add_fragments_to_system->proc~fraggle_util_add_fragments_to_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 interface~~fraggle_util_add_fragments_to_system~~CalledByGraph interface~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum proc~fraggle_util_get_energy_momentum->interface~fraggle_util_add_fragments_to_system interface~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum->proc~fraggle_util_get_energy_momentum Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_util_add_fragments_to_system(frag, colliders, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters","tags":"","loc":"interface/fraggle_util_add_fragments_to_system.html"},{"title":"fraggle_util_ang_mtm – swiftest","text":"interface Calls interface~~fraggle_util_ang_mtm~~CallsGraph interface~fraggle_util_ang_mtm fraggle_util_ang_mtm proc~fraggle_util_ang_mtm fraggle_util_ang_mtm interface~fraggle_util_ang_mtm->proc~fraggle_util_ang_mtm Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_util_ang_mtm(self) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object","tags":"","loc":"interface/fraggle_util_ang_mtm.html"},{"title":"fraggle_util_construct_temporary_system – swiftest","text":"interface Calls interface~~fraggle_util_construct_temporary_system~~CallsGraph interface~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system proc~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system interface~fraggle_util_construct_temporary_system->proc~fraggle_util_construct_temporary_system setup_construct_system setup_construct_system proc~fraggle_util_construct_temporary_system->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. Called by interface~~fraggle_util_construct_temporary_system~~CalledByGraph interface~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum proc~fraggle_util_get_energy_momentum->interface~fraggle_util_construct_temporary_system interface~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum->proc~fraggle_util_get_energy_momentum Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Original swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters class( swiftest_nbody_system ), intent(out), allocatable :: tmpsys Output temporary swiftest nbody system object class( swiftest_parameters ), intent(out), allocatable :: tmpparam Output temporary configuration run parameters","tags":"","loc":"interface/fraggle_util_construct_temporary_system.html"},{"title":"fraggle_util_get_energy_momentum – swiftest","text":"interface Calls interface~~fraggle_util_get_energy_momentum~~CallsGraph interface~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum->proc~fraggle_util_get_energy_momentum interface~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system proc~fraggle_util_get_energy_momentum->interface~fraggle_util_construct_temporary_system interface~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system proc~fraggle_util_get_energy_momentum->interface~fraggle_util_add_fragments_to_system util_exit util_exit proc~fraggle_util_get_energy_momentum->util_exit proc~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system interface~fraggle_util_construct_temporary_system->proc~fraggle_util_construct_temporary_system proc~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system interface~fraggle_util_add_fragments_to_system->proc~fraggle_util_add_fragments_to_system setup_construct_system setup_construct_system proc~fraggle_util_construct_temporary_system->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. public module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters logical, intent(in) :: lbefore Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa","tags":"","loc":"interface/fraggle_util_get_energy_momentum.html"},{"title":"fraggle_util_restructure – swiftest","text":"interface Calls interface~~fraggle_util_restructure~~CallsGraph interface~fraggle_util_restructure fraggle_util_restructure proc~fraggle_util_restructure fraggle_util_restructure interface~fraggle_util_restructure->proc~fraggle_util_restructure Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object integer(kind=I4B), intent(in) :: try The current number of times Fraggle has tried to find a solution real(kind=DP), intent(inout) :: f_spin Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real(kind=DP), intent(inout) :: r_max_start The maximum radial distance that the position calculation starts with. This increases after a failed attempt","tags":"","loc":"interface/fraggle_util_restructure.html"},{"title":"fraggle_util_shift_vector_to_origin – swiftest","text":"interface Calls interface~~fraggle_util_shift_vector_to_origin~~CallsGraph interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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~~fraggle_util_shift_vector_to_origin~~CalledByGraph interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_generate_pos_vec fraggle_generate_pos_vec proc~fraggle_generate_pos_vec->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_pos_vec proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fraggle_util_shift_vector_to_origin(m_frag, vec_frag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(inout), dimension(:,:) :: vec_frag Fragment positions or velocities in the center of mass frame","tags":"","loc":"interface/fraggle_util_shift_vector_to_origin.html"},{"title":"symba_collision_check_encounter – swiftest","text":"interface Calls interface~~symba_collision_check_encounter~~CallsGraph interface~symba_collision_check_encounter symba_collision_check_encounter proc~symba_collision_check_encounter symba_collision_check_encounter interface~symba_collision_check_encounter->proc~symba_collision_check_encounter fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_check_encounter->fraggle_io_log_one_message proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_encounter->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 function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision n","tags":"","loc":"interface/symba_collision_check_encounter.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 proc~symba_encounter_check_all symba_encounter_check_all proc~symba_encounter_check_pl->proc~symba_encounter_check_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 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 – swiftest","text":"interface Calls interface~~symba_encounter_check~~CallsGraph interface~symba_encounter_check symba_encounter_check proc~symba_encounter_check symba_encounter_check interface~symba_encounter_check->proc~symba_encounter_check Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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.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_collision_casedisruption – swiftest","text":"interface Calls interface~~symba_collision_casedisruption~~CallsGraph interface~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption->proc~symba_collision_casedisruption proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casedisruption->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casedisruption->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casedisruption->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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_collision_casedisruption~~CalledByGraph interface~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_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_collision_casedisruption(system, param, colliders, frag) result(status) 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_collision_casedisruption.html"},{"title":"symba_collision_casehitandrun – swiftest","text":"interface Calls interface~~symba_collision_casehitandrun~~CallsGraph interface~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun->proc~symba_collision_casehitandrun proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casehitandrun->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casehitandrun->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casehitandrun->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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_collision_casehitandrun~~CalledByGraph interface~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_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_collision_casehitandrun(system, param, colliders, frag) result(status) 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_collision_casehitandrun.html"},{"title":"symba_collision_casemerge – swiftest","text":"interface Calls interface~~symba_collision_casemerge~~CallsGraph interface~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casemerge->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casemerge->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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_collision_casemerge~~CalledByGraph interface~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_collision_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_casemerge interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers 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_collision_casemerge(system, param, colliders, frag) result(status) 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_collision_casemerge.html"},{"title":"symba_collision_encounter_extract_collisions – swiftest","text":"interface Calls interface~~symba_collision_encounter_extract_collisions~~CallsGraph interface~symba_collision_encounter_extract_collisions symba_collision_encounter_extract_collisions proc~symba_collision_encounter_extract_collisions symba_collision_encounter_extract_collisions interface~symba_collision_encounter_extract_collisions->proc~symba_collision_encounter_extract_collisions idx2 idx2 proc~symba_collision_encounter_extract_collisions->idx2 idx1 idx1 proc~symba_collision_encounter_extract_collisions->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_extract_collisions(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 parameters","tags":"","loc":"interface/symba_collision_encounter_extract_collisions.html"},{"title":"symba_collision_make_colliders_pl – swiftest","text":"interface Calls interface~~symba_collision_make_colliders_pl~~CallsGraph interface~symba_collision_make_colliders_pl symba_collision_make_colliders_pl proc~symba_collision_make_colliders_pl symba_collision_make_colliders_pl interface~symba_collision_make_colliders_pl->proc~symba_collision_make_colliders_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_colliders_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_colliders_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 proc~symba_collision_consolidate_colliders symba_collision_consolidate_colliders proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_colliders idx2 idx2 proc~symba_collision_resolve_fragmentations->idx2 idx1 idx1 proc~symba_collision_resolve_fragmentations->idx1 interface~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_resolve_fragmentations->interface~symba_collision_casemerge interface~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_collision_casedisruption interface~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_collision_casehitandrun util_exit util_exit proc~symba_collision_resolve_fragmentations->util_exit id_arr id_arr proc~symba_collision_consolidate_colliders->id_arr idx_arr idx_arr proc~symba_collision_consolidate_colliders->idx_arr proc~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption->proc~symba_collision_casedisruption proc~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun->proc~symba_collision_casehitandrun proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casehitandrun->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casehitandrun->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casehitandrun->fraggle_io_log_one_message proc~symba_collision_casedisruption->proc~symba_collision_collider_message proc~symba_collision_casedisruption->proc~symba_collision_mergeaddsub proc~symba_collision_casedisruption->fraggle_io_log_one_message proc~symba_collision_casemerge->proc~symba_collision_collider_message proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub proc~symba_collision_casemerge->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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(inout) :: 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 proc~symba_collision_consolidate_colliders symba_collision_consolidate_colliders proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_colliders idx2 idx2 proc~symba_collision_resolve_mergers->idx2 idx1 idx1 proc~symba_collision_resolve_mergers->idx1 interface~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_resolve_mergers->interface~symba_collision_casemerge id_arr id_arr proc~symba_collision_consolidate_colliders->id_arr idx_arr idx_arr proc~symba_collision_consolidate_colliders->idx_arr proc~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casemerge->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casemerge->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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(inout) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_collision_resolve_mergers.html"},{"title":"symba_collision_resolve_plplenc – swiftest","text":"interface Calls interface~~symba_collision_resolve_plplenc~~CallsGraph interface~symba_collision_resolve_plplenc symba_collision_resolve_plplenc proc~symba_collision_resolve_plplenc symba_collision_resolve_plplenc interface~symba_collision_resolve_plplenc->proc~symba_collision_resolve_plplenc fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_resolve_plplenc->fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_plplenc(self, system, param, t, dt, irec) 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(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level","tags":"","loc":"interface/symba_collision_resolve_plplenc.html"},{"title":"symba_collision_resolve_pltpenc – swiftest","text":"interface Calls interface~~symba_collision_resolve_pltpenc~~CallsGraph interface~symba_collision_resolve_pltpenc symba_collision_resolve_pltpenc proc~symba_collision_resolve_pltpenc symba_collision_resolve_pltpenc interface~symba_collision_resolve_pltpenc->proc~symba_collision_resolve_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. public module subroutine symba_collision_resolve_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 class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level","tags":"","loc":"interface/symba_collision_resolve_pltpenc.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_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl->proc~symba_discard_nonplpl proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_discard_cb_pl->fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_util_index_eucl_plpl – swiftest","text":"interface Calls interface~~symba_util_index_eucl_plpl~~CallsGraph interface~symba_util_index_eucl_plpl symba_util_index_eucl_plpl proc~symba_util_index_eucl_plpl symba_util_index_eucl_plpl interface~symba_util_index_eucl_plpl->proc~symba_util_index_eucl_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 symba_util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_util_index_eucl_plpl.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 fraggle_io_log_start fraggle_io_log_start proc~symba_io_param_reader->fraggle_io_log_start io_param_reader io_param_reader proc~symba_io_param_reader->io_param_reader io_toupper io_toupper proc~symba_io_param_reader->io_toupper 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_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(inout) :: param Current run configuration parameters","tags":"","loc":"interface/symba_io_write_discard.html"},{"title":"symba_kick_getacch_int_pl – swiftest","text":"interface Calls interface~~symba_kick_getacch_int_pl~~CallsGraph interface~symba_kick_getacch_int_pl symba_kick_getacch_int_pl proc~symba_kick_getacch_int_pl symba_kick_getacch_int_pl interface~symba_kick_getacch_int_pl->proc~symba_kick_getacch_int_pl kick_getacch_int_all_pl kick_getacch_int_all_pl proc~symba_kick_getacch_int_pl->kick_getacch_int_all_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self","tags":"","loc":"interface/symba_kick_getacch_int_pl.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 kick_getacch_int_all_pl kick_getacch_int_all_pl proc~symba_kick_getacch_pl->kick_getacch_int_all_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_encounter – swiftest","text":"interface Calls interface~~symba_kick_encounter~~CallsGraph interface~symba_kick_encounter symba_kick_encounter proc~symba_kick_encounter symba_kick_encounter interface~symba_kick_encounter->proc~symba_kick_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_kick_encounter(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter.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 helio_setup_initialize_system helio_setup_initialize_system proc~symba_setup_initialize_system->helio_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_encounter – swiftest","text":"interface Calls interface~~symba_setup_encounter~~CallsGraph interface~symba_setup_encounter symba_setup_encounter proc~symba_setup_encounter symba_setup_encounter interface~symba_setup_encounter->proc~symba_setup_encounter setup_encounter setup_encounter proc~symba_setup_encounter->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_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter.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), intent(in) :: t integer(kind=I4B), intent(in) :: 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, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","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_encounter symba_util_append_encounter proc~symba_util_append_encounter->interface~util_append proc~symba_util_append_pl symba_util_append_pl proc~symba_util_append_pl->interface~util_append proc~symba_util_append_tp symba_util_append_tp proc~symba_util_append_tp->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 interface~symba_util_append_pl->proc~symba_util_append_pl interface~symba_util_append_encounter symba_util_append_encounter interface~symba_util_append_encounter->proc~symba_util_append_encounter 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_kin Subroutines 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_encounter – swiftest","text":"interface Calls interface~~symba_util_append_encounter~~CallsGraph interface~symba_util_append_encounter symba_util_append_encounter proc~symba_util_append_encounter symba_util_append_encounter interface~symba_util_append_encounter->proc~symba_util_append_encounter interface~util_append util_append proc~symba_util_append_encounter->interface~util_append util_append_encounter util_append_encounter proc~symba_util_append_encounter->util_append_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_util_append_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), 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_encounter.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~util_append util_append 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 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), 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 interface~util_append util_append proc~symba_util_append_pl->interface~util_append util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl 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), 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), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_tp.html"},{"title":"symba_util_copy_encounter – swiftest","text":"interface Calls interface~~symba_util_copy_encounter~~CallsGraph interface~symba_util_copy_encounter symba_util_copy_encounter proc~symba_util_copy_encounter symba_util_copy_encounter interface~symba_util_copy_encounter->proc~symba_util_copy_encounter util_copy_encounter util_copy_encounter proc~symba_util_copy_encounter->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 symba_util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into","tags":"","loc":"interface/symba_util_copy_encounter.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_kin Subroutines 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(inout) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_util_rearray_pl.html"},{"title":"symba_util_reset_kinship – swiftest","text":"interface Calls interface~~symba_util_reset_kinship~~CallsGraph interface~symba_util_reset_kinship symba_util_reset_kinship proc~symba_util_reset_kinship symba_util_reset_kinship interface~symba_util_reset_kinship->proc~symba_util_reset_kinship Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_reset_kinship(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(:) :: idx Index array of bodies to reset","tags":"","loc":"interface/symba_util_reset_kinship.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_tp symba_util_resize_tp proc~symba_util_resize_tp->interface~util_resize proc~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize 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 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 Subroutines symba_util_resize_arr_kin Subroutines 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 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":"util_sort_rearrange – swiftest","text":"public interface util_sort_rearrange Called by interface~~util_sort_rearrange~~CalledByGraph interface~util_sort_rearrange util_sort_rearrange proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp->interface~util_sort_rearrange proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl->interface~util_sort_rearrange interface~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp->proc~symba_util_sort_rearrange_tp 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 Subroutines symba_util_sort_rearrange_arr_kin Subroutines public subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange","tags":"","loc":"interface/util_sort_rearrange.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 interface~util_sort_rearrange util_sort_rearrange proc~symba_util_sort_rearrange_pl->interface~util_sort_rearrange 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 interface~util_sort_rearrange util_sort_rearrange proc~symba_util_sort_rearrange_tp->interface~util_sort_rearrange 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_tp symba_util_spill_tp proc~symba_util_spill_tp->interface~util_spill proc~symba_util_spill_encounter symba_util_spill_encounter proc~symba_util_spill_encounter->interface~util_spill proc~symba_util_spill_pl symba_util_spill_pl proc~symba_util_spill_pl->interface~util_spill interface~symba_util_spill_encounter symba_util_spill_encounter interface~symba_util_spill_encounter->proc~symba_util_spill_encounter 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_kin Subroutines 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_encounter – swiftest","text":"interface Calls interface~~symba_util_spill_encounter~~CallsGraph interface~symba_util_spill_encounter symba_util_spill_encounter proc~symba_util_spill_encounter symba_util_spill_encounter interface~symba_util_spill_encounter->proc~symba_util_spill_encounter interface~util_spill util_spill proc~symba_util_spill_encounter->interface~util_spill util_spill_encounter util_spill_encounter proc~symba_util_spill_encounter->util_spill_encounter util_exit util_exit proc~symba_util_spill_encounter->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_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_encounter.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~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_old_t_final_system – swiftest","text":"interface Calls interface~~io_get_old_t_final_system~~CallsGraph interface~io_get_old_t_final_system io_get_old_t_final_system proc~io_get_old_t_final_system io_get_old_t_final_system interface~io_get_old_t_final_system->proc~io_get_old_t_final_system interface~util_exit util_exit proc~io_get_old_t_final_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 function io_get_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP)","tags":"","loc":"interface/io_get_old_t_final_system.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":"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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful","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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful","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 function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful","tags":"","loc":"interface/io_read_frame_system.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":"util_index_eucl_plpl – swiftest","text":"interface Calls interface~~util_index_eucl_plpl~~CallsGraph interface~util_index_eucl_plpl util_index_eucl_plpl proc~util_index_eucl_plpl util_index_eucl_plpl interface~util_index_eucl_plpl->proc~util_index_eucl_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 util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_index_eucl_plpl.html"},{"title":"util_index_eucl_pltp – swiftest","text":"interface Calls interface~~util_index_eucl_pltp~~CallsGraph interface~util_index_eucl_pltp util_index_eucl_pltp proc~util_index_eucl_pltp util_index_eucl_pltp interface~util_index_eucl_pltp->proc~util_index_eucl_pltp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_index_eucl_pltp(self, pl, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_index_eucl_pltp.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 Swiftestcentric 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 Swiftestcentric 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 Swiftestcentric position vector real(kind=DP), intent(in), dimension(:) :: vh Swiftestcentric 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 interface~util_exit util_exit proc~io_conservation_report->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_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_particle_info_base – swiftest","text":"interface Calls interface~~io_dump_particle_info_base~~CallsGraph interface~io_dump_particle_info_base io_dump_particle_info_base proc~io_dump_particle_info_base io_dump_particle_info_base interface~io_dump_particle_info_base->proc~io_dump_particle_info_base interface~util_exit util_exit proc~io_dump_particle_info_base->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_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file","tags":"","loc":"interface/io_dump_particle_info_base.html"},{"title":"io_dump_particle_info – swiftest","text":"interface Calls interface~~io_dump_particle_info~~CallsGraph interface~io_dump_particle_info io_dump_particle_info proc~io_dump_particle_info io_dump_particle_info interface~io_dump_particle_info->proc~io_dump_particle_info interface~util_exit util_exit proc~io_dump_particle_info->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_particle_info(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in) :: self Swiftest particle info metadata object integer(kind=I4B), intent(in) :: iu Open unformatted file unit number","tags":"","loc":"interface/io_dump_particle_info.html"},{"title":"io_dump_base – swiftest","text":"interface Calls interface~~io_dump_base~~CallsGraph interface~io_dump_base io_dump_base proc~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base interface~io_write_frame_cb io_write_frame_cb proc~io_dump_base->interface~io_write_frame_cb interface~io_write_frame_body io_write_frame_body proc~io_dump_base->interface~io_write_frame_body interface~util_exit util_exit proc~io_dump_base->interface~util_exit proc~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb->proc~io_write_frame_cb proc~io_write_frame_body io_write_frame_body interface~io_write_frame_body->proc~io_write_frame_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~io_write_frame_cb->interface~util_exit proc~io_write_frame_body->interface~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_base(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_base.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_cb_file dump_cb_file proc~io_dump_system->dump_cb_file 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_in_body – swiftest","text":"interface Calls interface~~io_read_in_body~~CallsGraph interface~io_read_in_body io_read_in_body proc~io_read_in_body io_read_in_body interface~io_read_in_body->proc~io_read_in_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_read_in_body(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_in_body.html"},{"title":"io_read_in_cb – swiftest","text":"interface Calls interface~~io_read_in_cb~~CallsGraph interface~io_read_in_cb io_read_in_cb proc~io_read_in_cb io_read_in_cb interface~io_read_in_cb->proc~io_read_in_cb interface~util_exit util_exit proc~io_read_in_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_in_cb(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_in_cb.html"},{"title":"io_read_in_param – swiftest","text":"interface Calls interface~~io_read_in_param~~CallsGraph interface~io_read_in_param io_read_in_param proc~io_read_in_param io_read_in_param interface~io_read_in_param->proc~io_read_in_param interface~util_exit util_exit proc~io_read_in_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_read_in_param(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_in_param.html"},{"title":"io_read_in_particle_info – swiftest","text":"interface Calls interface~~io_read_in_particle_info~~CallsGraph interface~io_read_in_particle_info io_read_in_particle_info proc~io_read_in_particle_info io_read_in_particle_info interface~io_read_in_particle_info->proc~io_read_in_particle_info interface~util_exit util_exit proc~io_read_in_particle_info->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_in_particle_info(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number","tags":"","loc":"interface/io_read_in_particle_info.html"},{"title":"io_read_particle_info_system – swiftest","text":"interface Calls interface~~io_read_particle_info_system~~CallsGraph interface~io_read_particle_info_system io_read_particle_info_system proc~io_read_particle_info_system io_read_particle_info_system interface~io_read_particle_info_system->proc~io_read_particle_info_system interface~util_exit util_exit proc~io_read_particle_info_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 io_read_particle_info_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(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_read_particle_info_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(inout) :: 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_param_reader io_param_reader proc~io_param_reader->interface~io_toupper proc~io_get_args io_get_args proc~io_get_args->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 ind1 ind1 proc~io_write_encounter->ind1 interface~util_exit util_exit proc~io_write_encounter->interface~util_exit ind2 ind2 proc~io_write_encounter->ind2 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(self, pl, encbody, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","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 interface~util_exit util_exit proc~io_write_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 interface~~io_write_frame_body~~CalledByGraph interface~io_write_frame_body io_write_frame_body proc~io_dump_base io_dump_base proc~io_dump_base->interface~io_write_frame_body interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 interface~util_exit util_exit proc~io_write_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 interface~~io_write_frame_cb~~CalledByGraph interface~io_write_frame_cb io_write_frame_cb proc~io_dump_base io_dump_base proc~io_dump_base->interface~io_write_frame_cb interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_encounter – swiftest","text":"interface Calls interface~~io_write_frame_encounter~~CallsGraph interface~io_write_frame_encounter io_write_frame_encounter proc~io_write_frame_encounter io_write_frame_encounter interface~io_write_frame_encounter->proc~io_write_frame_encounter interface~util_exit util_exit proc~io_write_frame_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_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Open file unit number real(kind=DP), intent(in) :: t Time of encounter integer(kind=I4B), intent(in) :: id1 ids of the two encountering bodies integer(kind=I4B), intent(in) :: id2 ids of the two encountering bodies real(kind=DP), intent(in) :: Gmass1 G*mass of the two encountering bodies real(kind=DP), intent(in) :: Gmass2 G*mass of the two encountering bodies real(kind=DP), intent(in) :: radius1 Radii of the two encountering bodies real(kind=DP), intent(in) :: radius2 Radii of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh1 Swiftestcentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh2 Swiftestcentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh1 Swiftestcentric velocity vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh2 Swiftestcentric velocity vectors of the two encountering bodies","tags":"","loc":"interface/io_write_frame_encounter.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 interface~util_exit util_exit proc~io_write_frame_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 io_write_frame_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_write_frame_system.html"},{"title":"io_write_hdr_system – swiftest","text":"interface Calls interface~~io_write_hdr_system~~CallsGraph interface~io_write_hdr_system io_write_hdr_system proc~io_write_hdr_system io_write_hdr_system interface~io_write_hdr_system->proc~io_write_hdr_system interface~util_exit util_exit proc~io_write_hdr_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 io_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_hdr_system.html"},{"title":"kick_getacch_int_all_pl – swiftest","text":"interface Calls interface~~kick_getacch_int_all_pl~~CallsGraph interface~kick_getacch_int_all_pl kick_getacch_int_all_pl proc~kick_getacch_int_all_pl kick_getacch_int_all_pl interface~kick_getacch_int_all_pl->proc~kick_getacch_int_all_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could 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~~kick_getacch_int_all_pl~~CalledByGraph interface~kick_getacch_int_all_pl kick_getacch_int_all_pl proc~kick_getacch_int_pl kick_getacch_int_pl proc~kick_getacch_int_pl->interface~kick_getacch_int_all_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. public module subroutine kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I8B), intent(in) :: nplpl Number of massive body interactions to compute integer(kind=I4B), intent(in), dimension(:,:) :: k_plpl Array of interaction pair indices (flattened upper triangular matrix) real(kind=DP), intent(in), dimension(:,:) :: x Position vector array real(kind=DP), intent(in), dimension(:) :: Gmass Array of massive body G*mass real(kind=DP), intent(in), dimension(:) :: radius Array of massive body radii real(kind=DP), intent(inout), dimension(:,:) :: acc Acceleration vector array","tags":"","loc":"interface/kick_getacch_int_all_pl.html"},{"title":"kick_getacch_int_one_pl – swiftest","text":"interface Calls interface~~kick_getacch_int_one_pl~~CallsGraph interface~kick_getacch_int_one_pl kick_getacch_int_one_pl proc~kick_getacch_int_one_pl kick_getacch_int_one_pl interface~kick_getacch_int_one_pl->proc~kick_getacch_int_one_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This 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_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the two bodies real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmi G*mass of body i real(kind=DP), intent(in) :: Gmj G*mass of body j real(kind=DP), intent(inout) :: axi Acceleration vector components of body i real(kind=DP), intent(inout) :: ayi Acceleration vector components of body i real(kind=DP), intent(inout) :: azi Acceleration vector components of body i real(kind=DP), intent(inout) :: axj Acceleration vector components of body j real(kind=DP), intent(inout) :: ayj Acceleration vector components of body j real(kind=DP), intent(inout) :: azj Acceleration vector components of body j","tags":"","loc":"interface/kick_getacch_int_one_pl.html"},{"title":"kick_getacch_int_one_tp – swiftest","text":"interface Calls interface~~kick_getacch_int_one_tp~~CallsGraph interface~kick_getacch_int_one_tp kick_getacch_int_one_tp proc~kick_getacch_int_one_tp kick_getacch_int_one_tp interface~kick_getacch_int_one_tp->proc~kick_getacch_int_one_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_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the test particle and massive body real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmpl G*mass of massive body real(kind=DP), intent(inout) :: ax Acceleration vector components of test particle real(kind=DP), intent(inout) :: ay Acceleration vector components of test particle real(kind=DP), intent(inout) :: az Acceleration vector components of test particle","tags":"","loc":"interface/kick_getacch_int_one_tp.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 interface~kick_getacch_int_all_pl kick_getacch_int_all_pl proc~kick_getacch_int_pl->interface~kick_getacch_int_all_pl proc~kick_getacch_int_all_pl kick_getacch_int_all_pl interface~kick_getacch_int_all_pl->proc~kick_getacch_int_all_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object","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":"netcdf_close – swiftest","text":"interface Calls interface~~netcdf_close~~CallsGraph interface~netcdf_close netcdf_close proc~netcdf_close netcdf_close interface~netcdf_close->proc~netcdf_close nf90_close nf90_close proc~netcdf_close->nf90_close Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine netcdf_close(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/netcdf_close.html"},{"title":"netcdf_initialize_output – swiftest","text":"interface Calls interface~~netcdf_initialize_output~~CallsGraph interface~netcdf_initialize_output netcdf_initialize_output proc~netcdf_initialize_output netcdf_initialize_output interface~netcdf_initialize_output->proc~netcdf_initialize_output nf90_create nf90_create proc~netcdf_initialize_output->nf90_create nf90_def_dim nf90_def_dim proc~netcdf_initialize_output->nf90_def_dim nf90_set_fill nf90_set_fill proc~netcdf_initialize_output->nf90_set_fill nf90_def_var nf90_def_var proc~netcdf_initialize_output->nf90_def_var Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine netcdf_initialize_output(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/netcdf_initialize_output.html"},{"title":"netcdf_open – swiftest","text":"interface Calls interface~~netcdf_open~~CallsGraph interface~netcdf_open netcdf_open proc~netcdf_open netcdf_open interface~netcdf_open->proc~netcdf_open nf90_inq_varid nf90_inq_varid proc~netcdf_open->nf90_inq_varid nf90_set_fill nf90_set_fill proc~netcdf_open->nf90_set_fill nf90_open nf90_open proc~netcdf_open->nf90_open Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine netcdf_open(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/netcdf_open.html"},{"title":"netcdf_write_frame_base – swiftest","text":"interface Calls interface~~netcdf_write_frame_base~~CallsGraph interface~netcdf_write_frame_base netcdf_write_frame_base proc~netcdf_write_frame_base netcdf_write_frame_base interface~netcdf_write_frame_base->proc~netcdf_write_frame_base interface~util_sort util_sort proc~netcdf_write_frame_base->interface~util_sort nf90_put_var nf90_put_var proc~netcdf_write_frame_base->nf90_put_var Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/netcdf_write_frame_base.html"},{"title":"netcdf_write_frame_system – swiftest","text":"interface public subroutine netcdf_write_frame_system(self, iu, param) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/netcdf_write_frame_system.html"},{"title":"netcdf_write_hdr_system – swiftest","text":"interface Calls interface~~netcdf_write_hdr_system~~CallsGraph interface~netcdf_write_hdr_system netcdf_write_hdr_system proc~netcdf_write_hdr_system netcdf_write_hdr_system interface~netcdf_write_hdr_system->proc~netcdf_write_hdr_system nf90_set_fill nf90_set_fill proc~netcdf_write_hdr_system->nf90_set_fill nf90_put_var nf90_put_var proc~netcdf_write_hdr_system->nf90_put_var nf90_open nf90_open proc~netcdf_write_hdr_system->nf90_open Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/netcdf_write_hdr_system.html"},{"title":"netcdf_write_particle_info_base – swiftest","text":"interface Calls interface~~netcdf_write_particle_info_base~~CallsGraph interface~netcdf_write_particle_info_base netcdf_write_particle_info_base proc~netcdf_write_particle_info_base netcdf_write_particle_info_base interface~netcdf_write_particle_info_base->proc~netcdf_write_particle_info_base interface~util_sort util_sort proc~netcdf_write_particle_info_base->interface~util_sort nf90_put_var nf90_put_var proc~netcdf_write_particle_info_base->nf90_put_var Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset","tags":"","loc":"interface/netcdf_write_particle_info_base.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_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_system – swiftest","text":"interface Calls interface~~obl_pot_system~~CallsGraph interface~obl_pot_system obl_pot_system proc~obl_pot_system obl_pot_system interface~obl_pot_system->proc~obl_pot_system proc~obl_pot_one obl_pot_one proc~obl_pot_system->proc~obl_pot_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 module subroutine obl_pot_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object","tags":"","loc":"interface/obl_pot_system.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 interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid 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 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 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_esolmd->interface~orbel_scget 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~orbel_el2xv orbel_el2xv proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid 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_ehybrid->proc~orbel_esolmd proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehybrid->proc~orbel_ehie 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~drift_dan drift_dan proc~drift_dan->proc~drift_kepu 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. 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 – swiftest","text":"interface Calls interface~~orbel_xv2el~~CallsGraph interface~orbel_xv2el orbel_xv2el proc~orbel_xv2el orbel_xv2el interface~orbel_xv2el->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 interface~~orbel_xv2el~~CalledByGraph interface~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el_vec->interface~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. public pure module subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm) 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) :: inc inclination real(kind=DP), intent(out) :: capom longitude of ascending node real(kind=DP), intent(out) :: omega argument of periapsis real(kind=DP), intent(out) :: capm mean anomaly","tags":"","loc":"interface/orbel_xv2el.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 interface~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec->interface~orbel_xv2el proc~orbel_xv2el orbel_xv2el interface~orbel_xv2el->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_pl setup_pl proc~setup_pl->interface~setup_body proc~setup_tp setup_tp proc~setup_tp->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(inout) :: 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_particle_info_system – swiftest","text":"interface Calls interface~~setup_initialize_particle_info_system~~CallsGraph interface~setup_initialize_particle_info_system setup_initialize_particle_info_system proc~setup_initialize_particle_info_system setup_initialize_particle_info_system interface~setup_initialize_particle_info_system->proc~setup_initialize_particle_info_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_particle_info_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(inout) :: param Current run configuration parameters","tags":"","loc":"interface/setup_initialize_particle_info_system.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_encounter util_append_encounter proc~util_append_encounter->interface~util_append~2 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_encounter util_append_encounter interface~util_append_encounter->proc~util_append_encounter interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~util_append_body->proc~util_append_body 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 Subroutines util_append_arr_char_string util_append_arr_DP util_append_arr_DPvec util_append_arr_I4B util_append_arr_info 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_info(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( swiftest_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 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_pl util_append_pl interface~util_append_pl->proc~util_append_pl 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. 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_encounter – swiftest","text":"interface Calls interface~~util_append_encounter~~CallsGraph interface~util_append_encounter util_append_encounter proc~util_append_encounter util_append_encounter interface~util_append_encounter->proc~util_append_encounter interface~util_append~2 util_append proc~util_append_encounter->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_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list object class( swiftest_encounter ), 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_encounter.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), 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), 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_coord_vb2vh_pl – swiftest","text":"interface Calls interface~~util_coord_vb2vh_pl~~CallsGraph interface~util_coord_vb2vh_pl util_coord_vb2vh_pl proc~util_coord_vb2vh_pl util_coord_vb2vh_pl interface~util_coord_vb2vh_pl->proc~util_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 util_coord_vb2vh_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_vb2vh_pl.html"},{"title":"util_coord_vb2vh_tp – swiftest","text":"interface Calls interface~~util_coord_vb2vh_tp~~CallsGraph interface~util_coord_vb2vh_tp util_coord_vb2vh_tp proc~util_coord_vb2vh_tp util_coord_vb2vh_tp interface~util_coord_vb2vh_tp->proc~util_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 util_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"interface/util_coord_vb2vh_tp.html"},{"title":"util_coord_vh2vb_pl – swiftest","text":"interface Calls interface~~util_coord_vh2vb_pl~~CallsGraph interface~util_coord_vh2vb_pl util_coord_vh2vb_pl proc~util_coord_vh2vb_pl util_coord_vh2vb_pl interface~util_coord_vh2vb_pl->proc~util_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 util_coord_vh2vb_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_vh2vb_pl.html"},{"title":"util_coord_vh2vb_tp – swiftest","text":"interface Calls interface~~util_coord_vh2vb_tp~~CallsGraph interface~util_coord_vh2vb_tp util_coord_vh2vb_tp proc~util_coord_vh2vb_tp util_coord_vh2vb_tp interface~util_coord_vh2vb_tp->proc~util_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 util_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"interface/util_coord_vh2vb_tp.html"},{"title":"util_coord_xh2xb_pl – swiftest","text":"interface Calls interface~~util_coord_xh2xb_pl~~CallsGraph interface~util_coord_xh2xb_pl util_coord_xh2xb_pl proc~util_coord_xh2xb_pl util_coord_xh2xb_pl interface~util_coord_xh2xb_pl->proc~util_coord_xh2xb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_xh2xb_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_xh2xb_pl.html"},{"title":"util_coord_xh2xb_tp – swiftest","text":"interface Calls interface~~util_coord_xh2xb_tp~~CallsGraph interface~util_coord_xh2xb_tp util_coord_xh2xb_tp proc~util_coord_xh2xb_tp util_coord_xh2xb_tp interface~util_coord_xh2xb_tp->proc~util_coord_xh2xb_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_xh2xb_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_xh2xb_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_copy_particle_info – swiftest","text":"interface Calls interface~~util_copy_particle_info~~CallsGraph interface~util_copy_particle_info util_copy_particle_info proc~util_copy_particle_info util_copy_particle_info interface~util_copy_particle_info->proc~util_copy_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 util_copy_particle_info(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self class( swiftest_particle_info ), intent(in) :: source","tags":"","loc":"interface/util_copy_particle_info.html"},{"title":"util_copy_particle_info_arr – swiftest","text":"interface Calls interface~~util_copy_particle_info_arr~~CallsGraph interface~util_copy_particle_info_arr util_copy_particle_info_arr proc~util_copy_particle_info_arr util_copy_particle_info_arr interface~util_copy_particle_info_arr->proc~util_copy_particle_info_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 interface~~util_copy_particle_info_arr~~CalledByGraph interface~util_copy_particle_info_arr util_copy_particle_info_arr proc~util_fill_arr_info util_fill_arr_info proc~util_fill_arr_info->interface~util_copy_particle_info_arr proc~util_spill_arr_info util_spill_arr_info proc~util_spill_arr_info->interface~util_copy_particle_info_arr proc~util_sort_rearrange_arr_info util_sort_rearrange_arr_info proc~util_sort_rearrange_arr_info->interface~util_copy_particle_info_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. public module subroutine util_copy_particle_info_arr(source, dest, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in), dimension(:) :: source Source object to copy into class( swiftest_particle_info ), intent(inout), dimension(:) :: dest Swiftest body object with particle metadata information object integer(kind=I4B), intent(in), optional dimension(:) :: idx Optional array of indices to draw the source object","tags":"","loc":"interface/util_copy_particle_info_arr.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_write_hdr_system io_write_hdr_system proc~io_write_hdr_system->interface~util_exit proc~io_dump_base io_dump_base proc~io_dump_base->interface~util_exit interface~io_write_frame_body io_write_frame_body proc~io_dump_base->interface~io_write_frame_body interface~io_write_frame_cb io_write_frame_cb proc~io_dump_base->interface~io_write_frame_cb proc~io_get_args io_get_args proc~io_get_args->interface~util_exit proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->interface~util_exit proc~io_dump_particle_info_base io_dump_particle_info_base proc~io_dump_particle_info_base->interface~util_exit proc~io_write_frame_body io_write_frame_body proc~io_write_frame_body->interface~util_exit proc~io_write_encounter io_write_encounter proc~io_write_encounter->interface~util_exit proc~io_write_frame_encounter io_write_frame_encounter proc~io_write_frame_encounter->interface~util_exit proc~io_dump_particle_info io_dump_particle_info proc~io_dump_particle_info->interface~util_exit proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_exit proc~util_valid_id_system util_valid_id_system proc~util_valid_id_system->interface~util_exit proc~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45->interface~util_exit proc~io_read_particle_info_system io_read_particle_info_system proc~io_read_particle_info_system->interface~util_exit proc~io_read_in_cb io_read_in_cb proc~io_read_in_cb->interface~util_exit proc~io_read_frame_body io_read_frame_body proc~io_read_frame_body->interface~util_exit proc~io_read_in_particle_info io_read_in_particle_info proc~io_read_in_particle_info->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~check check proc~check->interface~util_exit proc~io_conservation_report io_conservation_report proc~io_conservation_report->interface~util_exit proc~io_write_frame_cb io_write_frame_cb proc~io_write_frame_cb->interface~util_exit proc~setup_construct_system setup_construct_system proc~setup_construct_system->interface~util_exit proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_exit proc~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb->interface~util_exit proc~io_get_old_t_final_system io_get_old_t_final_system proc~io_get_old_t_final_system->interface~util_exit proc~io_dump_param io_dump_param proc~io_dump_param->interface~util_exit proc~io_read_in_param io_read_in_param proc~io_read_in_param->interface~util_exit interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~io_write_hdr_system io_write_hdr_system interface~io_write_hdr_system->proc~io_write_hdr_system interface~io_write_frame_body->proc~io_write_frame_body interface~io_write_frame_encounter io_write_frame_encounter interface~io_write_frame_encounter->proc~io_write_frame_encounter interface~io_read_particle_info_system io_read_particle_info_system interface~io_read_particle_info_system->proc~io_read_particle_info_system interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_get_old_t_final_system io_get_old_t_final_system interface~io_get_old_t_final_system->proc~io_get_old_t_final_system interface~io_write_frame_cb->proc~io_write_frame_cb interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~io_dump_particle_info io_dump_particle_info interface~io_dump_particle_info->proc~io_dump_particle_info interface~io_read_in_cb io_read_in_cb interface~io_read_in_cb->proc~io_read_in_cb interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 interface~io_conservation_report io_conservation_report interface~io_conservation_report->proc~io_conservation_report interface~io_dump_particle_info_base io_dump_particle_info_base interface~io_dump_particle_info_base->proc~io_dump_particle_info_base interface~io_read_in_param io_read_in_param interface~io_read_in_param->proc~io_read_in_param interface~io_read_in_particle_info io_read_in_particle_info interface~io_read_in_particle_info->proc~io_read_in_particle_info 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_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_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 proc~util_fill_pl->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_info 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_info(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 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, maxloop, 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 integer(kind=I4B), intent(in) :: maxloop 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_append_arr_char_string util_append_arr_char_string proc~util_append_arr_char_string->interface~util_resize~2 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_i4b util_append_arr_I4B proc~util_append_arr_i4b->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_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_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_info util_append_arr_info proc~util_append_arr_info->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_info 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_info(arr, nnew) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), 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_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_body util_resize_body proc~util_resize_pl->interface~util_resize_body interface~util_resize~2 util_resize proc~util_resize_pl->interface~util_resize~2 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_body util_resize_body proc~util_resize_tp->interface~util_resize_body interface~util_resize~2 util_resize proc~util_resize_tp->interface~util_resize~2 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_particle_info – swiftest","text":"interface Calls interface~~util_set_particle_info~~CallsGraph interface~util_set_particle_info util_set_particle_info proc~util_set_particle_info util_set_particle_info interface~util_set_particle_info->proc~util_set_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 util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self character(len=*), intent(in), optional :: name Non-unique name character(len=*), intent(in), optional :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=*), intent(in), optional :: status Particle status description: Active, Merged, Fragmented, etc. character(len=*), intent(in), optional :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), intent(in), optional :: origin_time The time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_vh The heliocentric velocity vector at the time of the particle's formation real(kind=DP), intent(in), optional :: discard_time The time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), intent(in), optional :: discard_body_id The id of the other body involved in the discard (0 if no other body involved)","tags":"","loc":"interface/util_set_particle_info.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 proc~netcdf_write_frame_base netcdf_write_frame_base proc~netcdf_write_frame_base->interface~util_sort proc~netcdf_write_particle_info_base netcdf_write_particle_info_base proc~netcdf_write_particle_info_base->interface~util_sort interface~netcdf_write_frame_base netcdf_write_frame_base interface~netcdf_write_frame_base->proc~netcdf_write_frame_base interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system interface~netcdf_write_particle_info_base netcdf_write_particle_info_base interface~netcdf_write_particle_info_base->proc~netcdf_write_particle_info_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This 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 – swiftest","text":"public interface util_sort_rearrange Called by interface~~util_sort_rearrange~2~~CalledByGraph interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_body->interface~util_sort_rearrange~2 proc~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp->interface~util_sort_rearrange~2 interface~util_sort_rearrange_body util_sort_rearrange_body 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~2 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_body->proc~util_sort_rearrange_body 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 Subroutines util_sort_rearrange_arr_char_string util_sort_rearrange_arr_DP util_sort_rearrange_arr_DPvec util_sort_rearrange_arr_I4B util_sort_rearrange_arr_info util_sort_rearrange_arr_logical Subroutines public subroutine util_sort_rearrange_arr_char_string(arr, ind, n) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_DP(arr, ind, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_DPvec(arr, ind, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_I4B(arr, ind, n) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_info(arr, ind, n) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_logical(arr, ind, n) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange","tags":"","loc":"interface/util_sort_rearrange~2.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 interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_body->interface~util_sort_rearrange~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_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 interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_pl->interface~util_sort_rearrange~2 proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body proc~util_sort_rearrange_body->interface~util_sort_rearrange~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_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 interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_tp->interface~util_sort_rearrange~2 proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body proc~util_sort_rearrange_body->interface~util_sort_rearrange~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_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_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 proc~util_spill_body util_spill_body proc~util_spill_body->interface~util_spill~2 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_body->proc~util_spill_body 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 Subroutines util_spill_arr_char_string util_spill_arr_DP util_spill_arr_DPvec util_spill_arr_I4B util_spill_arr_I8B util_spill_arr_info 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_I8B(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I8B), 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_info(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 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~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_sort util_sort proc~util_valid_id_system->interface~util_sort interface~util_exit util_exit proc~util_valid_id_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 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(inout) :: 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_tvar lambda_init_tvar interface~lambda_obj~2->proc~lambda_init_tvar proc~lambda_init_0_err lambda_init_0_err 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 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":"fraggle_generate_pos_vec – swiftest","text":"subroutine fraggle_generate_pos_vec(frag, colliders, r_max_start) Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the \n pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.\n The initial positions do not conserve energy or momentum, so these need to be adjusted later. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object real(kind=DP), intent(in) :: r_max_start Initial guess for the starting maximum radial distance of fragments Calls proc~~fraggle_generate_pos_vec~~CallsGraph proc~fraggle_generate_pos_vec fraggle_generate_pos_vec interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_generate_pos_vec->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fraggle_generate_pos_vec~~CalledByGraph proc~fraggle_generate_pos_vec fraggle_generate_pos_vec proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_pos_vec interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_generate_pos_vec.html"},{"title":"fraggle_generate_spins – swiftest","text":"subroutine fraggle_generate_spins(frag, colliders, f_spin, lfailure) Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget. A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object real(kind=DP), intent(in) :: f_spin Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy) logical, intent(out) :: lfailure Logical flag indicating whether this step fails or succeeds! Calls proc~~fraggle_generate_spins~~CallsGraph proc~fraggle_generate_spins fraggle_generate_spins interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_generate_spins->interface~fraggle_io_log_one_message proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fraggle_generate_spins~~CalledByGraph proc~fraggle_generate_spins fraggle_generate_spins proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_spins interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_generate_spins.html"},{"title":"fraggle_generate_tan_vel – swiftest","text":"subroutine fraggle_generate_tan_vel(frag, colliders, lfailure) Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.\n 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\n our fragment kinetic energy (frag%ke_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\n tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them.\n 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\n conserving momentum. A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object logical, intent(out) :: lfailure Logical flag indicating whether this step fails or succeeds Calls proc~~fraggle_generate_tan_vel~~CallsGraph proc~fraggle_generate_tan_vel fraggle_generate_tan_vel util_minimize_bfgs util_minimize_bfgs proc~fraggle_generate_tan_vel->util_minimize_bfgs interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb lambda_obj lambda_obj proc~fraggle_generate_tan_vel->lambda_obj interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_generate_tan_vel->interface~fraggle_io_log_one_message proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fraggle_generate_tan_vel~~CalledByGraph proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_generate_tan_vel.html"},{"title":"fraggle_generate_rad_vel – swiftest","text":"subroutine fraggle_generate_rad_vel(frag, colliders, lfailure) 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 Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object logical, intent(out) :: lfailure Logical flag indicating whether this step fails or succeeds! Calls proc~~fraggle_generate_rad_vel~~CallsGraph proc~fraggle_generate_rad_vel fraggle_generate_rad_vel util_minimize_bfgs util_minimize_bfgs proc~fraggle_generate_rad_vel->util_minimize_bfgs interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb lambda_obj lambda_obj proc~fraggle_generate_rad_vel->lambda_obj interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_generate_rad_vel->interface~fraggle_io_log_one_message proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fraggle_generate_rad_vel~~CalledByGraph proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_generate_rad_vel.html"},{"title":"fraggle_regime_collresolve – swiftest","text":"subroutine fraggle_regime_collresolve(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, min_mfrag, regime, Mlr, Mslr, Qloss) 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 real(kind=DP), intent(in) :: min_mfrag integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(out) :: Qloss The residual energy after the collision Calls proc~~fraggle_regime_collresolve~~CallsGraph proc~fraggle_regime_collresolve fraggle_regime_collresolve interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_regime_collresolve->interface~fraggle_io_log_one_message proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_regime_collresolve.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_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in 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 proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric util_exit util_exit proc~rmvs_interp_in->util_exit 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_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_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":"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 Calls proc~~kick_getacch_int_pl~~CallsGraph proc~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_all_pl kick_getacch_int_all_pl proc~kick_getacch_int_pl->interface~kick_getacch_int_all_pl proc~kick_getacch_int_all_pl kick_getacch_int_all_pl interface~kick_getacch_int_all_pl->proc~kick_getacch_int_all_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. 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":"kick_getacch_int_all_pl – swiftest","text":"module subroutine kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc) Interface → Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization 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.f9 Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I8B), intent(in) :: nplpl Number of massive body interactions to compute integer(kind=I4B), intent(in), dimension(:,:) :: k_plpl Array of interaction pair indices (flattened upper triangular matrix) real(kind=DP), intent(in), dimension(:,:) :: x Position vector array real(kind=DP), intent(in), dimension(:) :: Gmass Array of massive body G*mass real(kind=DP), intent(in), dimension(:) :: radius Array of massive body radii real(kind=DP), intent(inout), dimension(:,:) :: acc Acceleration vector array Called by proc~~kick_getacch_int_all_pl~~CalledByGraph proc~kick_getacch_int_all_pl kick_getacch_int_all_pl interface~kick_getacch_int_all_pl kick_getacch_int_all_pl interface~kick_getacch_int_all_pl->proc~kick_getacch_int_all_pl proc~kick_getacch_int_pl kick_getacch_int_pl proc~kick_getacch_int_pl->interface~kick_getacch_int_all_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_all_pl.html"},{"title":"kick_getacch_int_one_pl – swiftest","text":"pure module subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj) Interface → Compute direct cross (third) term heliocentric accelerations for a single pair 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.f9 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the two bodies real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmi G*mass of body i real(kind=DP), intent(in) :: Gmj G*mass of body j real(kind=DP), intent(inout) :: axi Acceleration vector components of body i real(kind=DP), intent(inout) :: ayi Acceleration vector components of body i real(kind=DP), intent(inout) :: azi Acceleration vector components of body i real(kind=DP), intent(inout) :: axj Acceleration vector components of body j real(kind=DP), intent(inout) :: ayj Acceleration vector components of body j real(kind=DP), intent(inout) :: azj Acceleration vector components of body j Called by proc~~kick_getacch_int_one_pl~~CalledByGraph proc~kick_getacch_int_one_pl kick_getacch_int_one_pl interface~kick_getacch_int_one_pl kick_getacch_int_one_pl interface~kick_getacch_int_one_pl->proc~kick_getacch_int_one_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_one_pl.html"},{"title":"kick_getacch_int_one_tp – swiftest","text":"pure module subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az) Interface → Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair. 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 real(kind=DP), intent(in) :: rji2 Square of distance between the test particle and massive body real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmpl G*mass of massive body real(kind=DP), intent(inout) :: ax Acceleration vector components of test particle real(kind=DP), intent(inout) :: ay Acceleration vector components of test particle real(kind=DP), intent(inout) :: az Acceleration vector components of test particle Called by proc~~kick_getacch_int_one_tp~~CalledByGraph proc~kick_getacch_int_one_tp kick_getacch_int_one_tp interface~kick_getacch_int_one_tp kick_getacch_int_one_tp interface~kick_getacch_int_one_tp->proc~kick_getacch_int_one_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_one_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_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_system – swiftest","text":"module subroutine obl_pot_system(self) 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 class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object Calls proc~~obl_pot_system~~CallsGraph proc~obl_pot_system obl_pot_system proc~obl_pot_one obl_pot_one proc~obl_pot_system->proc~obl_pot_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. Called by proc~~obl_pot_system~~CalledByGraph proc~obl_pot_system obl_pot_system interface~obl_pot_system obl_pot_system interface~obl_pot_system->proc~obl_pot_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_system.html"},{"title":"orbel_el2xv_vec – swiftest","text":"module subroutine orbel_el2xv_vec(self, cb) Interface → A wrapper method that converts all of the orbital element vectors into cartesian position and velocity vectors for a Swiftest body object.\n This method deallocates all of the orbital elements after it is finished. 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 interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid 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 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 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_esolmd->interface~orbel_scget 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~orbel_el2xv orbel_el2xv proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid 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_ehybrid->proc~orbel_esolmd proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehybrid->proc~orbel_ehie 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~drift_dan drift_dan proc~drift_dan->proc~drift_kepu 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_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 interface~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec->interface~orbel_xv2el proc~orbel_xv2el orbel_xv2el interface~orbel_xv2el->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":"orbel_xv2el – swiftest","text":"pure module subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm) Interface → 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 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) :: inc inclination real(kind=DP), intent(out) :: capom longitude of ascending node real(kind=DP), intent(out) :: omega argument of periapsis real(kind=DP), intent(out) :: capm mean anomaly Called by proc~~orbel_xv2el~~CalledByGraph proc~orbel_xv2el orbel_xv2el interface~orbel_xv2el orbel_xv2el interface~orbel_xv2el->proc~orbel_xv2el proc~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el_vec->interface~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_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 vj vj proc~whm_coord_h2j_pl->vj vh vh proc~whm_coord_h2j_pl->vh xj xj proc~whm_coord_h2j_pl->xj xh xh proc~whm_coord_h2j_pl->xh gmpl gmpl proc~whm_coord_h2j_pl->gmpl eta eta proc~whm_coord_h2j_pl->eta Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 vj vj proc~whm_coord_j2h_pl->vj vh vh proc~whm_coord_j2h_pl->vh xj xj proc~whm_coord_j2h_pl->xj xh xh proc~whm_coord_j2h_pl->xh gmpl gmpl proc~whm_coord_j2h_pl->gmpl eta eta proc~whm_coord_j2h_pl->eta Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 eta eta proc~whm_coord_vh2vj_pl->eta vj vj proc~whm_coord_vh2vj_pl->vj gmpl gmpl proc~whm_coord_vh2vj_pl->gmpl 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 WHM nbody 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_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_pl util_fill_pl proc~whm_util_fill_pl->util_fill_pl util_fill util_fill proc~whm_util_fill_pl->util_fill 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 util_resize proc~whm_util_resize_pl->util_resize util_resize_pl util_resize_pl proc~whm_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~~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 util_sort_rearrange util_sort_rearrange proc~whm_util_sort_rearrange_pl->util_sort_rearrange Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_spill_pl util_spill_pl proc~whm_util_spill_pl->util_spill_pl util_exit util_exit proc~whm_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~~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_particle_info – swiftest","text":"module subroutine util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id) Interface → Sets one or more values of the particle information metadata object Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self character(len=*), intent(in), optional :: name Non-unique name character(len=*), intent(in), optional :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=*), intent(in), optional :: status Particle status description: ACTIVE, MERGED, FRAGMENTED, etc. character(len=*), intent(in), optional :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), intent(in), optional :: origin_time The time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_vh The heliocentric velocity vector at the time of the particle's formation real(kind=DP), intent(in), optional :: discard_time The time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), intent(in), optional :: discard_body_id The id of the other body involved in the discard (0 if no other body involved) Called by proc~~util_set_particle_info~~CalledByGraph proc~util_set_particle_info util_set_particle_info interface~util_set_particle_info util_set_particle_info interface~util_set_particle_info->proc~util_set_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/util_set_particle_info.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 test particles 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_coord_vb2vh_pl – swiftest","text":"module subroutine util_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( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_coord_vb2vh_pl~~CalledByGraph proc~util_coord_vb2vh_pl util_coord_vb2vh_pl interface~util_coord_vb2vh_pl util_coord_vb2vh_pl interface~util_coord_vb2vh_pl->proc~util_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/util_coord_vb2vh_pl.html"},{"title":"util_coord_vb2vh_tp – swiftest","text":"module subroutine util_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( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body Called by proc~~util_coord_vb2vh_tp~~CalledByGraph proc~util_coord_vb2vh_tp util_coord_vb2vh_tp interface~util_coord_vb2vh_tp util_coord_vb2vh_tp interface~util_coord_vb2vh_tp->proc~util_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/util_coord_vb2vh_tp.html"},{"title":"util_coord_vh2vb_pl – swiftest","text":"module subroutine util_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( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_coord_vh2vb_pl~~CalledByGraph proc~util_coord_vh2vb_pl util_coord_vh2vb_pl interface~util_coord_vh2vb_pl util_coord_vh2vb_pl interface~util_coord_vh2vb_pl->proc~util_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/util_coord_vh2vb_pl.html"},{"title":"util_coord_vh2vb_tp – swiftest","text":"module subroutine util_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( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body Called by proc~~util_coord_vh2vb_tp~~CalledByGraph proc~util_coord_vh2vb_tp util_coord_vh2vb_tp interface~util_coord_vh2vb_tp util_coord_vh2vb_tp interface~util_coord_vh2vb_tp->proc~util_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/util_coord_vh2vb_tp.html"},{"title":"util_coord_xh2xb_pl – swiftest","text":"module subroutine util_coord_xh2xb_pl(self, cb) Interface → Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only) 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_xh2xb_pl~~CalledByGraph proc~util_coord_xh2xb_pl util_coord_xh2xb_pl interface~util_coord_xh2xb_pl util_coord_xh2xb_pl interface~util_coord_xh2xb_pl->proc~util_coord_xh2xb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_xh2xb_pl.html"},{"title":"util_coord_xh2xb_tp – swiftest","text":"module subroutine util_coord_xh2xb_tp(self, cb) Interface → Convert test particles from heliocentric to barycentric coordinates (position only) 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_xh2xb_tp~~CalledByGraph proc~util_coord_xh2xb_tp util_coord_xh2xb_tp interface~util_coord_xh2xb_tp util_coord_xh2xb_tp interface~util_coord_xh2xb_tp->proc~util_coord_xh2xb_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_xh2xb_tp.html"},{"title":"util_index_eucl_plpl – swiftest","text":"module subroutine util_index_eucl_plpl(self, param) Interface → Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions. 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 object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~util_index_eucl_plpl~~CalledByGraph proc~util_index_eucl_plpl util_index_eucl_plpl interface~util_index_eucl_plpl util_index_eucl_plpl interface~util_index_eucl_plpl->proc~util_index_eucl_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/util_index_eucl_plpl.html"},{"title":"util_index_eucl_pltp – swiftest","text":"module subroutine util_index_eucl_pltp(self, pl, param) Interface → Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions 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_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~util_index_eucl_pltp~~CalledByGraph proc~util_index_eucl_pltp util_index_eucl_pltp interface~util_index_eucl_pltp util_index_eucl_pltp interface~util_index_eucl_pltp->proc~util_index_eucl_pltp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_index_eucl_pltp.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_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_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_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) Calls proc~~util_sort_rearrange_body~~CallsGraph proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_body->interface~util_sort_rearrange~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_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_arr_char_string – swiftest","text":"subroutine util_sort_rearrange_arr_char_string(arr, ind, n) Rearrange a single array of character string in-place from an index list. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Contents None","tags":"","loc":"proc/util_sort_rearrange_arr_char_string.html"},{"title":"util_sort_rearrange_arr_DP – swiftest","text":"subroutine util_sort_rearrange_arr_DP(arr, ind, n) Rearrange a single array of DP type in-place from an index list. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Contents None","tags":"","loc":"proc/util_sort_rearrange_arr_dp.html"},{"title":"util_sort_rearrange_arr_DPvec – swiftest","text":"subroutine util_sort_rearrange_arr_DPvec(arr, ind, n) Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Contents None","tags":"","loc":"proc/util_sort_rearrange_arr_dpvec.html"},{"title":"util_sort_rearrange_arr_I4B – swiftest","text":"subroutine util_sort_rearrange_arr_I4B(arr, ind, n) Rearrange a single array of integers in-place from an index list. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Contents None","tags":"","loc":"proc/util_sort_rearrange_arr_i4b.html"},{"title":"util_sort_rearrange_arr_logical – swiftest","text":"subroutine util_sort_rearrange_arr_logical(arr, ind, n) Rearrange a single array of logicals in-place from an index list. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Contents None","tags":"","loc":"proc/util_sort_rearrange_arr_logical.html"},{"title":"util_sort_rearrange_arr_info – swiftest","text":"subroutine util_sort_rearrange_arr_info(arr, ind, n) Rearrange a single array of particle information type in-place from an index list. Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Calls proc~~util_sort_rearrange_arr_info~~CallsGraph proc~util_sort_rearrange_arr_info util_sort_rearrange_arr_info interface~util_copy_particle_info_arr util_copy_particle_info_arr proc~util_sort_rearrange_arr_info->interface~util_copy_particle_info_arr proc~util_copy_particle_info_arr util_copy_particle_info_arr interface~util_copy_particle_info_arr->proc~util_copy_particle_info_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. Contents None","tags":"","loc":"proc/util_sort_rearrange_arr_info.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 interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_pl->interface~util_sort_rearrange~2 proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body proc~util_sort_rearrange_body->interface~util_sort_rearrange~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_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 interface~util_sort_rearrange~2 util_sort_rearrange proc~util_sort_rearrange_tp->interface~util_sort_rearrange~2 proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body proc~util_sort_rearrange_body->interface~util_sort_rearrange~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_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_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_I8B – swiftest","text":"subroutine util_spill_arr_I8B(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=I8B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I8B), 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_i8b.html"},{"title":"util_spill_arr_info – swiftest","text":"subroutine 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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 Calls proc~~util_spill_arr_info~~CallsGraph proc~util_spill_arr_info util_spill_arr_info interface~util_copy_particle_info_arr util_copy_particle_info_arr proc~util_spill_arr_info->interface~util_copy_particle_info_arr proc~util_copy_particle_info_arr util_copy_particle_info_arr interface~util_copy_particle_info_arr->proc~util_copy_particle_info_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. Contents None","tags":"","loc":"proc/util_spill_arr_info.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~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(inout) :: param Current run configuration parameters Calls proc~~util_valid_id_system~~CallsGraph proc~util_valid_id_system util_valid_id_system interface~util_sort util_sort proc~util_valid_id_system->interface~util_sort interface~util_exit util_exit proc~util_valid_id_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~~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_write_hdr_system io_write_hdr_system proc~io_write_hdr_system->interface~util_exit proc~io_dump_base io_dump_base proc~io_dump_base->interface~util_exit interface~io_write_frame_body io_write_frame_body proc~io_dump_base->interface~io_write_frame_body interface~io_write_frame_cb io_write_frame_cb proc~io_dump_base->interface~io_write_frame_cb proc~io_get_args io_get_args proc~io_get_args->interface~util_exit proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->interface~util_exit proc~io_dump_particle_info_base io_dump_particle_info_base proc~io_dump_particle_info_base->interface~util_exit proc~io_write_frame_body io_write_frame_body proc~io_write_frame_body->interface~util_exit proc~io_write_encounter io_write_encounter proc~io_write_encounter->interface~util_exit proc~io_write_frame_encounter io_write_frame_encounter proc~io_write_frame_encounter->interface~util_exit proc~io_dump_particle_info io_dump_particle_info proc~io_dump_particle_info->interface~util_exit proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_exit proc~util_valid_id_system util_valid_id_system proc~util_valid_id_system->interface~util_exit proc~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45->interface~util_exit proc~io_read_particle_info_system io_read_particle_info_system proc~io_read_particle_info_system->interface~util_exit proc~io_read_in_cb io_read_in_cb proc~io_read_in_cb->interface~util_exit proc~io_read_frame_body io_read_frame_body proc~io_read_frame_body->interface~util_exit proc~io_read_in_particle_info io_read_in_particle_info proc~io_read_in_particle_info->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~check check proc~check->interface~util_exit proc~io_conservation_report io_conservation_report proc~io_conservation_report->interface~util_exit proc~io_write_frame_cb io_write_frame_cb proc~io_write_frame_cb->interface~util_exit proc~setup_construct_system setup_construct_system proc~setup_construct_system->interface~util_exit proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_exit proc~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb->interface~util_exit proc~io_get_old_t_final_system io_get_old_t_final_system proc~io_get_old_t_final_system->interface~util_exit proc~io_dump_param io_dump_param proc~io_dump_param->interface~util_exit proc~io_read_in_param io_read_in_param proc~io_read_in_param->interface~util_exit interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~io_write_hdr_system io_write_hdr_system interface~io_write_hdr_system->proc~io_write_hdr_system interface~io_write_frame_body->proc~io_write_frame_body interface~io_write_frame_encounter io_write_frame_encounter interface~io_write_frame_encounter->proc~io_write_frame_encounter interface~io_read_particle_info_system io_read_particle_info_system interface~io_read_particle_info_system->proc~io_read_particle_info_system interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_get_old_t_final_system io_get_old_t_final_system interface~io_get_old_t_final_system->proc~io_get_old_t_final_system interface~io_write_frame_cb->proc~io_write_frame_cb interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~io_dump_particle_info io_dump_particle_info interface~io_dump_particle_info->proc~io_dump_particle_info interface~io_read_in_cb io_read_in_cb interface~io_read_in_cb->proc~io_read_in_cb interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 interface~io_conservation_report io_conservation_report interface~io_conservation_report->proc~io_conservation_report interface~io_dump_particle_info_base io_dump_particle_info_base interface~io_dump_particle_info_base->proc~io_dump_particle_info_base interface~io_read_in_param io_read_in_param interface~io_read_in_param->proc~io_read_in_param interface~io_read_in_particle_info io_read_in_particle_info interface~io_read_in_particle_info->proc~io_read_in_particle_info 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_info – swiftest","text":"subroutine 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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 Calls proc~~util_fill_arr_info~~CallsGraph proc~util_fill_arr_info util_fill_arr_info interface~util_copy_particle_info_arr util_copy_particle_info_arr proc~util_fill_arr_info->interface~util_copy_particle_info_arr proc~util_copy_particle_info_arr util_copy_particle_info_arr interface~util_copy_particle_info_arr->proc~util_copy_particle_info_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. Contents None","tags":"","loc":"proc/util_fill_arr_info.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. 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. 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). 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. 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_info – swiftest","text":"subroutine 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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_info.html"},{"title":"util_resize_arr_logical – swiftest","text":"subroutine util_resize_arr_logical(arr, nnew) Resizes an array component of logical type. 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_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 massive 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_body util_resize_body proc~util_resize_pl->interface~util_resize_body interface~util_resize~2 util_resize proc~util_resize_pl->interface~util_resize~2 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 test particle 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 test particle 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_body util_resize_body proc~util_resize_tp->interface~util_resize_body interface~util_resize~2 util_resize proc~util_resize_tp->interface~util_resize~2 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_copy_particle_info – swiftest","text":"module subroutine util_copy_particle_info(self, source) Interface → Copies one set of information object components into another, component-by-component Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self class( swiftest_particle_info ), intent(in) :: source Called by proc~~util_copy_particle_info~~CalledByGraph proc~util_copy_particle_info util_copy_particle_info interface~util_copy_particle_info util_copy_particle_info interface~util_copy_particle_info->proc~util_copy_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/util_copy_particle_info.html"},{"title":"util_copy_particle_info_arr – swiftest","text":"module subroutine util_copy_particle_info_arr(source, dest, idx) Interface → Copies contents from an array of one particle information objects to another. Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in), dimension(:) :: source Source object to copy into class( swiftest_particle_info ), intent(inout), dimension(:) :: dest Swiftest body object with particle metadata information object integer(kind=I4B), intent(in), optional dimension(:) :: idx Optional array of indices to draw the source object Called by proc~~util_copy_particle_info_arr~~CalledByGraph proc~util_copy_particle_info_arr util_copy_particle_info_arr interface~util_copy_particle_info_arr util_copy_particle_info_arr interface~util_copy_particle_info_arr->proc~util_copy_particle_info_arr proc~util_fill_arr_info util_fill_arr_info proc~util_fill_arr_info->interface~util_copy_particle_info_arr proc~util_spill_arr_info util_spill_arr_info proc~util_spill_arr_info->interface~util_copy_particle_info_arr proc~util_sort_rearrange_arr_info util_sort_rearrange_arr_info proc~util_sort_rearrange_arr_info->interface~util_copy_particle_info_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. Contents None","tags":"","loc":"proc/util_copy_particle_info_arr.html"},{"title":"util_minimize_bfgs – swiftest","text":"module function util_minimize_bfgs(f, N, x0, eps, maxloop, 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   maxloop : Maximum number of loops to attempt to find a solution\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 integer(kind=I4B), intent(in) :: maxloop 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_info – swiftest","text":"subroutine 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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( swiftest_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~~util_append_arr_info~~CallsGraph proc~util_append_arr_info util_append_arr_info interface~util_resize~2 util_resize proc~util_append_arr_info->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_info.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_pl util_append_pl interface~util_append_pl->proc~util_append_pl 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_body.html"},{"title":"util_append_encounter – swiftest","text":"module subroutine util_append_encounter(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_encounter ), intent(inout) :: self Swiftest encounter list object class( swiftest_encounter ), 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_encounter~~CallsGraph proc~util_append_encounter util_append_encounter interface~util_append~2 util_append proc~util_append_encounter->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_encounter~~CalledByGraph proc~util_append_encounter util_append_encounter interface~util_append_encounter util_append_encounter interface~util_append_encounter->proc~util_append_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_append_encounter.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_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), 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 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 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_setup_initialize_system – swiftest","text":"module subroutine helio_setup_initialize_system(self, param) Interface → Initialize a Helio nbody system from files, converting all heliocentric quantities to barycentric. 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 Calls proc~~helio_setup_initialize_system~~CallsGraph proc~helio_setup_initialize_system helio_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~helio_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~~helio_setup_initialize_system~~CalledByGraph proc~helio_setup_initialize_system helio_setup_initialize_system interface~helio_setup_initialize_system helio_setup_initialize_system interface~helio_setup_initialize_system->proc~helio_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/helio_setup_initialize_system.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_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_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~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_old_t_final_system – swiftest","text":"module function io_get_old_t_final_system(self, param) result(old_t_final) Interface → Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) Calls proc~~io_get_old_t_final_system~~CallsGraph proc~io_get_old_t_final_system io_get_old_t_final_system interface~util_exit util_exit proc~io_get_old_t_final_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~~io_get_old_t_final_system~~CalledByGraph proc~io_get_old_t_final_system io_get_old_t_final_system interface~io_get_old_t_final_system io_get_old_t_final_system interface~io_get_old_t_final_system->proc~io_get_old_t_final_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_get_old_t_final_system.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_read_frame_body – swiftest","text":"module function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful 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 function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful 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 function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful 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_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 interface~util_exit util_exit proc~io_conservation_report->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_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_particle_info – swiftest","text":"module subroutine io_dump_particle_info(self, iu) Interface → Reads in particle information object information from an open file unformatted file Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number Calls proc~~io_dump_particle_info~~CallsGraph proc~io_dump_particle_info io_dump_particle_info interface~util_exit util_exit proc~io_dump_particle_info->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_particle_info~~CalledByGraph proc~io_dump_particle_info io_dump_particle_info interface~io_dump_particle_info io_dump_particle_info interface~io_dump_particle_info->proc~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/io_dump_particle_info.html"},{"title":"io_dump_particle_info_base – swiftest","text":"module subroutine io_dump_particle_info_base(self, param, idx) 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( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file Calls proc~~io_dump_particle_info_base~~CallsGraph proc~io_dump_particle_info_base io_dump_particle_info_base interface~util_exit util_exit proc~io_dump_particle_info_base->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_particle_info_base~~CalledByGraph proc~io_dump_particle_info_base io_dump_particle_info_base interface~io_dump_particle_info_base io_dump_particle_info_base interface~io_dump_particle_info_base->proc~io_dump_particle_info_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_particle_info_base.html"},{"title":"io_dump_base – swiftest","text":"module subroutine io_dump_base(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_base~~CallsGraph proc~io_dump_base io_dump_base interface~io_write_frame_cb io_write_frame_cb proc~io_dump_base->interface~io_write_frame_cb interface~io_write_frame_body io_write_frame_body proc~io_dump_base->interface~io_write_frame_body interface~util_exit util_exit proc~io_dump_base->interface~util_exit proc~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb->proc~io_write_frame_cb proc~io_write_frame_body io_write_frame_body interface~io_write_frame_body->proc~io_write_frame_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~io_write_frame_cb->interface~util_exit proc~io_write_frame_body->interface~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_base~~CalledByGraph proc~io_dump_base io_dump_base interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_base.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_cb_file dump_cb_file proc~io_dump_system->dump_cb_file 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_in_body – swiftest","text":"module subroutine io_read_in_body(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 Called by proc~~io_read_in_body~~CalledByGraph proc~io_read_in_body io_read_in_body interface~io_read_in_body io_read_in_body interface~io_read_in_body->proc~io_read_in_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_in_body.html"},{"title":"io_read_in_cb – swiftest","text":"module subroutine io_read_in_cb(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_in_cb~~CallsGraph proc~io_read_in_cb io_read_in_cb interface~util_exit util_exit proc~io_read_in_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_in_cb~~CalledByGraph proc~io_read_in_cb io_read_in_cb interface~io_read_in_cb io_read_in_cb interface~io_read_in_cb->proc~io_read_in_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_in_cb.html"},{"title":"io_read_in_param – swiftest","text":"module subroutine io_read_in_param(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_in_param~~CallsGraph proc~io_read_in_param io_read_in_param interface~util_exit util_exit proc~io_read_in_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_read_in_param~~CalledByGraph proc~io_read_in_param io_read_in_param interface~io_read_in_param io_read_in_param interface~io_read_in_param->proc~io_read_in_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_read_in_param.html"},{"title":"io_read_in_particle_info – swiftest","text":"module subroutine io_read_in_particle_info(self, iu) Interface → Reads in particle information object information from an open file unformatted file Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number Calls proc~~io_read_in_particle_info~~CallsGraph proc~io_read_in_particle_info io_read_in_particle_info interface~util_exit util_exit proc~io_read_in_particle_info->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_in_particle_info~~CalledByGraph proc~io_read_in_particle_info io_read_in_particle_info interface~io_read_in_particle_info io_read_in_particle_info interface~io_read_in_particle_info->proc~io_read_in_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/io_read_in_particle_info.html"},{"title":"io_read_particle_info_system – swiftest","text":"module subroutine io_read_particle_info_system(self, param) Interface → Reads an old particle information file for a restartd run 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 Calls proc~~io_read_particle_info_system~~CallsGraph proc~io_read_particle_info_system io_read_particle_info_system interface~util_exit util_exit proc~io_read_particle_info_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~~io_read_particle_info_system~~CalledByGraph proc~io_read_particle_info_system io_read_particle_info_system interface~io_read_particle_info_system io_read_particle_info_system interface~io_read_particle_info_system->proc~io_read_particle_info_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_particle_info_system.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_param_reader io_param_reader proc~io_param_reader->interface~io_toupper proc~io_get_args io_get_args proc~io_get_args->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(inout) :: 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(self, pl, encbody, param) Interface → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~io_write_encounter~~CallsGraph proc~io_write_encounter io_write_encounter ind1 ind1 proc~io_write_encounter->ind1 interface~util_exit util_exit proc~io_write_encounter->interface~util_exit ind2 ind2 proc~io_write_encounter->ind2 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 Calls proc~~io_write_frame_body~~CallsGraph proc~io_write_frame_body io_write_frame_body interface~util_exit util_exit proc~io_write_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_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 proc~io_dump_base io_dump_base proc~io_dump_base->interface~io_write_frame_body interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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 Calls proc~~io_write_frame_cb~~CallsGraph proc~io_write_frame_cb io_write_frame_cb interface~util_exit util_exit proc~io_write_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_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 proc~io_dump_base io_dump_base proc~io_dump_base->interface~io_write_frame_cb interface~io_dump_base io_dump_base interface~io_dump_base->proc~io_dump_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_encounter – swiftest","text":"module subroutine io_write_frame_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2) Interface → Write a single frame of close encounter data to output binary files 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 integer(kind=I4B), intent(in) :: iu Open file unit number real(kind=DP), intent(in) :: t Time of encounter integer(kind=I4B), intent(in) :: id1 ids of the two encountering bodies integer(kind=I4B), intent(in) :: id2 ids of the two encountering bodies real(kind=DP), intent(in) :: Gmass1 G*mass of the two encountering bodies real(kind=DP), intent(in) :: Gmass2 G*mass of the two encountering bodies real(kind=DP), intent(in) :: radius1 Radii of the two encountering bodies real(kind=DP), intent(in) :: radius2 Radii of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh1 Heliocentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh2 Heliocentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh1 Heliocentric velocity vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh2 Heliocentric velocity vectors of the two encountering bodies Calls proc~~io_write_frame_encounter~~CallsGraph proc~io_write_frame_encounter io_write_frame_encounter interface~util_exit util_exit proc~io_write_frame_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_frame_encounter~~CalledByGraph proc~io_write_frame_encounter io_write_frame_encounter interface~io_write_frame_encounter io_write_frame_encounter interface~io_write_frame_encounter->proc~io_write_frame_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_frame_encounter.html"},{"title":"io_write_frame_system – swiftest","text":"module subroutine io_write_frame_system(self, 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(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~io_write_frame_system~~CallsGraph proc~io_write_frame_system io_write_frame_system interface~util_exit util_exit proc~io_write_frame_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~~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":"io_write_hdr_system – swiftest","text":"module subroutine io_write_hdr_system(self, iu, param) Interface → 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 class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~io_write_hdr_system~~CallsGraph proc~io_write_hdr_system io_write_hdr_system interface~util_exit util_exit proc~io_write_hdr_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~~io_write_hdr_system~~CalledByGraph proc~io_write_hdr_system io_write_hdr_system interface~io_write_hdr_system io_write_hdr_system interface~io_write_hdr_system->proc~io_write_hdr_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_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(inout) :: 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_particle_info_system – swiftest","text":"module subroutine setup_initialize_particle_info_system(self, param) Interface → Setup up particle information metadata from initial conditions 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 Called by proc~~setup_initialize_particle_info_system~~CalledByGraph proc~setup_initialize_particle_info_system setup_initialize_particle_info_system interface~setup_initialize_particle_info_system setup_initialize_particle_info_system interface~setup_initialize_particle_info_system->proc~setup_initialize_particle_info_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_particle_info_system.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_pl setup_pl proc~setup_pl->interface~setup_body proc~setup_tp setup_tp proc~setup_tp->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":"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_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_encounter – swiftest","text":"module subroutine symba_util_append_encounter(self, source, lsource_mask) Interface → Append components from one encounter list (pl-pl or pl-tp) 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_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), 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_encounter~~CallsGraph proc~symba_util_append_encounter symba_util_append_encounter interface~util_append util_append proc~symba_util_append_encounter->interface~util_append util_append_encounter util_append_encounter proc~symba_util_append_encounter->util_append_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_util_append_encounter~~CalledByGraph proc~symba_util_append_encounter symba_util_append_encounter interface~symba_util_append_encounter symba_util_append_encounter interface~symba_util_append_encounter->proc~symba_util_append_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/symba_util_append_encounter.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 interface~util_append util_append proc~symba_util_append_pl->interface~util_append util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl 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), 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~util_append util_append 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 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), 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_copy_encounter – swiftest","text":"module subroutine symba_util_copy_encounter(self, source) Interface → Copies elements from the source encounter list into self. Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into Calls proc~~symba_util_copy_encounter~~CallsGraph proc~symba_util_copy_encounter symba_util_copy_encounter util_copy_encounter util_copy_encounter proc~symba_util_copy_encounter->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. Called by proc~~symba_util_copy_encounter~~CalledByGraph proc~symba_util_copy_encounter symba_util_copy_encounter interface~symba_util_copy_encounter symba_util_copy_encounter interface~symba_util_copy_encounter->proc~symba_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/symba_util_copy_encounter.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_index_eucl_plpl – swiftest","text":"module subroutine symba_util_index_eucl_plpl(self, param) Interface → Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the\n number of interactions that excludes semi-interacting bodies with each other (Gmass < GMTINY).\n This method will also sort the bodies in descending order by Mass 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( symba_pl ), intent(inout) :: self SyMBA massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~symba_util_index_eucl_plpl~~CalledByGraph proc~symba_util_index_eucl_plpl symba_util_index_eucl_plpl interface~symba_util_index_eucl_plpl symba_util_index_eucl_plpl interface~symba_util_index_eucl_plpl->proc~symba_util_index_eucl_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/symba_util_index_eucl_plpl.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(inout) :: 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_reset_kinship – swiftest","text":"module subroutine symba_util_reset_kinship(self, idx) Interface → Resets the kinship status of bodies. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: idx Index array of bodies to reset Called by proc~~symba_util_reset_kinship~~CalledByGraph proc~symba_util_reset_kinship symba_util_reset_kinship interface~symba_util_reset_kinship symba_util_reset_kinship interface~symba_util_reset_kinship->proc~symba_util_reset_kinship Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_reset_kinship.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 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_arr_kin – swiftest","text":"subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n) Rearrange a single array of particle kinship type in-place from an index list. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange Contents None","tags":"","loc":"proc/symba_util_sort_rearrange_arr_kin.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 interface~util_sort_rearrange util_sort_rearrange proc~symba_util_sort_rearrange_pl->interface~util_sort_rearrange 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 interface~util_sort_rearrange util_sort_rearrange proc~symba_util_sort_rearrange_tp->interface~util_sort_rearrange 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_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_encounter – swiftest","text":"module subroutine symba_util_spill_encounter(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_encounter ), 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_encounter~~CallsGraph proc~symba_util_spill_encounter symba_util_spill_encounter interface~util_spill util_spill proc~symba_util_spill_encounter->interface~util_spill util_spill_encounter util_spill_encounter proc~symba_util_spill_encounter->util_spill_encounter util_exit util_exit proc~symba_util_spill_encounter->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_encounter~~CalledByGraph proc~symba_util_spill_encounter symba_util_spill_encounter interface~symba_util_spill_encounter symba_util_spill_encounter interface~symba_util_spill_encounter->proc~symba_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/symba_util_spill_encounter.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_casedisruption – swiftest","text":"module function symba_collision_casedisruption(system, param, colliders, frag) 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_collision_casedisruption~~CallsGraph proc~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casedisruption->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casedisruption->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casedisruption->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_casedisruption~~CalledByGraph proc~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption->proc~symba_collision_casedisruption proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_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_collision_casedisruption.html"},{"title":"symba_collision_casehitandrun – swiftest","text":"module function symba_collision_casehitandrun(system, param, colliders, frag) 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcom Calls proc~~symba_collision_casehitandrun~~CallsGraph proc~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casehitandrun->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casehitandrun->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casehitandrun->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_casehitandrun~~CalledByGraph proc~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun->proc~symba_collision_casehitandrun proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_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_collision_casehitandrun.html"},{"title":"symba_collision_casemerge – swiftest","text":"module function symba_collision_casemerge(system, param, colliders, frag) result(status) Interface → Merge massive bodies. 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_collision_casemerge~~CallsGraph proc~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casemerge->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casemerge->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_casemerge~~CalledByGraph proc~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_collision_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_collision_casemerge interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers 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_casemerge.html"},{"title":"symba_collision_check_encounter – swiftest","text":"module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision) 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_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision Calls proc~~symba_collision_check_encounter~~CallsGraph proc~symba_collision_check_encounter symba_collision_check_encounter fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_check_encounter->fraggle_io_log_one_message proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_encounter->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_encounter~~CalledByGraph proc~symba_collision_check_encounter symba_collision_check_encounter interface~symba_collision_check_encounter symba_collision_check_encounter interface~symba_collision_check_encounter->proc~symba_collision_check_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/symba_collision_check_encounter.html"},{"title":"symba_collision_encounter_extract_collisions – swiftest","text":"module subroutine symba_collision_encounter_extract_collisions(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_extract_collisions~~CallsGraph proc~symba_collision_encounter_extract_collisions symba_collision_encounter_extract_collisions idx2 idx2 proc~symba_collision_encounter_extract_collisions->idx2 idx1 idx1 proc~symba_collision_encounter_extract_collisions->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_extract_collisions~~CalledByGraph proc~symba_collision_encounter_extract_collisions symba_collision_encounter_extract_collisions interface~symba_collision_encounter_extract_collisions symba_collision_encounter_extract_collisions interface~symba_collision_encounter_extract_collisions->proc~symba_collision_encounter_extract_collisions Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_extract_collisions.html"},{"title":"symba_collision_make_colliders_pl – swiftest","text":"module subroutine symba_collision_make_colliders_pl(self, idx) Interface → When a single body is involved in more than one collision in a single step, it becomes part of a colliders%idx.\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_colliders_pl~~CalledByGraph proc~symba_collision_make_colliders_pl symba_collision_make_colliders_pl interface~symba_collision_make_colliders_pl symba_collision_make_colliders_pl interface~symba_collision_make_colliders_pl->proc~symba_collision_make_colliders_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_colliders_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. 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(inout) :: param Current run configuration parameters with SyMBA additions Calls proc~~symba_collision_resolve_fragmentations~~CallsGraph proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_consolidate_colliders symba_collision_consolidate_colliders proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_colliders idx2 idx2 proc~symba_collision_resolve_fragmentations->idx2 idx1 idx1 proc~symba_collision_resolve_fragmentations->idx1 interface~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_resolve_fragmentations->interface~symba_collision_casemerge interface~symba_collision_casedisruption symba_collision_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_collision_casedisruption interface~symba_collision_casehitandrun symba_collision_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_collision_casehitandrun util_exit util_exit proc~symba_collision_resolve_fragmentations->util_exit id_arr id_arr proc~symba_collision_consolidate_colliders->id_arr idx_arr idx_arr proc~symba_collision_consolidate_colliders->idx_arr proc~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_casedisruption symba_collision_casedisruption interface~symba_collision_casedisruption->proc~symba_collision_casedisruption proc~symba_collision_casehitandrun symba_collision_casehitandrun interface~symba_collision_casehitandrun->proc~symba_collision_casehitandrun proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casehitandrun->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casehitandrun->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casehitandrun->fraggle_io_log_one_message proc~symba_collision_casedisruption->proc~symba_collision_collider_message proc~symba_collision_casedisruption->proc~symba_collision_mergeaddsub proc~symba_collision_casedisruption->fraggle_io_log_one_message proc~symba_collision_casemerge->proc~symba_collision_collider_message proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub proc~symba_collision_casemerge->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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(inout) :: param Current run configuration parameters with SyMBA additions Calls proc~~symba_collision_resolve_mergers~~CallsGraph proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_consolidate_colliders symba_collision_consolidate_colliders proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_colliders idx2 idx2 proc~symba_collision_resolve_mergers->idx2 idx1 idx1 proc~symba_collision_resolve_mergers->idx1 interface~symba_collision_casemerge symba_collision_casemerge proc~symba_collision_resolve_mergers->interface~symba_collision_casemerge id_arr id_arr proc~symba_collision_consolidate_colliders->id_arr idx_arr idx_arr proc~symba_collision_consolidate_colliders->idx_arr proc~symba_collision_casemerge symba_collision_casemerge interface~symba_collision_casemerge->proc~symba_collision_casemerge proc~symba_collision_collider_message symba_collision_collider_message proc~symba_collision_casemerge->proc~symba_collision_collider_message proc~symba_collision_mergeaddsub symba_collision_mergeaddsub proc~symba_collision_casemerge->proc~symba_collision_mergeaddsub fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_casemerge->fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_pl proc~symba_collision_mergeaddsub->fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_collision_resolve_plplenc – swiftest","text":"module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec) Interface → Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the 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(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level Calls proc~~symba_collision_resolve_plplenc~~CallsGraph proc~symba_collision_resolve_plplenc symba_collision_resolve_plplenc fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_collision_resolve_plplenc->fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_plplenc~~CalledByGraph proc~symba_collision_resolve_plplenc symba_collision_resolve_plplenc interface~symba_collision_resolve_plplenc symba_collision_resolve_plplenc interface~symba_collision_resolve_plplenc->proc~symba_collision_resolve_plplenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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_plplenc.html"},{"title":"symba_collision_resolve_pltpenc – swiftest","text":"module subroutine symba_collision_resolve_pltpenc(self, system, param, t, dt, irec) Interface → Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation tim real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level Called by proc~~symba_collision_resolve_pltpenc~~CalledByGraph proc~symba_collision_resolve_pltpenc symba_collision_resolve_pltpenc interface~symba_collision_resolve_pltpenc symba_collision_resolve_pltpenc interface~symba_collision_resolve_pltpenc->proc~symba_collision_resolve_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_resolve_pltpenc.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 helio_setup_initialize_system helio_setup_initialize_system proc~symba_setup_initialize_system->helio_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_encounter – swiftest","text":"module subroutine symba_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( symba_encounter ), 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_encounter~~CallsGraph proc~symba_setup_encounter symba_setup_encounter setup_encounter setup_encounter proc~symba_setup_encounter->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_encounter~~CalledByGraph proc~symba_setup_encounter symba_setup_encounter interface~symba_setup_encounter symba_setup_encounter interface~symba_setup_encounter->proc~symba_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/symba_setup_encounter.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_int_pl – swiftest","text":"module subroutine symba_kick_getacch_int_pl(self) Interface → Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY Adapted from Hal Levison's Swift routine symba5_helio_getacch.f\n Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_int.f90 Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Calls proc~~symba_kick_getacch_int_pl~~CallsGraph proc~symba_kick_getacch_int_pl symba_kick_getacch_int_pl kick_getacch_int_all_pl kick_getacch_int_all_pl proc~symba_kick_getacch_int_pl->kick_getacch_int_all_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_int_pl~~CalledByGraph proc~symba_kick_getacch_int_pl symba_kick_getacch_int_pl interface~symba_kick_getacch_int_pl symba_kick_getacch_int_pl interface~symba_kick_getacch_int_pl->proc~symba_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/symba_kick_getacch_int_pl.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 kick_getacch_int_all_pl kick_getacch_int_all_pl proc~symba_kick_getacch_pl->kick_getacch_int_all_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_encounter – swiftest","text":"module subroutine symba_kick_encounter(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_encounter ), 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 Called by proc~~symba_kick_encounter~~CalledByGraph proc~symba_kick_encounter symba_kick_encounter interface~symba_kick_encounter symba_kick_encounter interface~symba_kick_encounter->proc~symba_kick_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/symba_kick_encounter.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 Calls proc~~symba_encounter_check_pl~~CallsGraph proc~symba_encounter_check_pl symba_encounter_check_pl proc~symba_encounter_check_all symba_encounter_check_all proc~symba_encounter_check_pl->proc~symba_encounter_check_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~~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 – swiftest","text":"module function symba_encounter_check(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_encounter ), 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 Called by proc~~symba_encounter_check~~CalledByGraph proc~symba_encounter_check symba_encounter_check interface~symba_encounter_check symba_encounter_check interface~symba_encounter_check->proc~symba_encounter_check Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module 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.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_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 fraggle_io_log_start fraggle_io_log_start proc~symba_io_param_reader->fraggle_io_log_start io_param_reader io_param_reader proc~symba_io_param_reader->io_param_reader io_toupper io_toupper proc~symba_io_param_reader->io_toupper 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_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(inout) :: 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 colliding with the central body or escaping the system 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_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl->proc~symba_discard_nonplpl proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl fraggle_io_log_one_message fraggle_io_log_one_message proc~symba_discard_cb_pl->fraggle_io_log_one_message Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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), intent(in) :: t integer(kind=I4B), intent(in) :: 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, param) 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 class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions 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":"netcdf_close – swiftest","text":"module subroutine netcdf_close(self, param) Interface → Closes a NetCDF file Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~netcdf_close~~CallsGraph proc~netcdf_close netcdf_close nf90_close nf90_close proc~netcdf_close->nf90_close Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~netcdf_close~~CalledByGraph proc~netcdf_close netcdf_close interface~netcdf_close netcdf_close interface~netcdf_close->proc~netcdf_close Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/netcdf_close.html"},{"title":"netcdf_initialize_output – swiftest","text":"module subroutine netcdf_initialize_output(self, param) Interface → Initialize a NetCDF file system and defines all variables.\n Define the variables Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~netcdf_initialize_output~~CallsGraph proc~netcdf_initialize_output netcdf_initialize_output nf90_create nf90_create proc~netcdf_initialize_output->nf90_create nf90_def_dim nf90_def_dim proc~netcdf_initialize_output->nf90_def_dim nf90_set_fill nf90_set_fill proc~netcdf_initialize_output->nf90_set_fill nf90_def_var nf90_def_var proc~netcdf_initialize_output->nf90_def_var Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~netcdf_initialize_output~~CalledByGraph proc~netcdf_initialize_output netcdf_initialize_output interface~netcdf_initialize_output netcdf_initialize_output interface~netcdf_initialize_output->proc~netcdf_initialize_output Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/netcdf_initialize_output.html"},{"title":"netcdf_open – swiftest","text":"module subroutine netcdf_open(self, param) Interface → Opens a NetCDF file and does the variable inquiries to activate variable ids Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~netcdf_open~~CallsGraph proc~netcdf_open netcdf_open nf90_inq_varid nf90_inq_varid proc~netcdf_open->nf90_inq_varid nf90_set_fill nf90_set_fill proc~netcdf_open->nf90_set_fill nf90_open nf90_open proc~netcdf_open->nf90_open Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~netcdf_open~~CalledByGraph proc~netcdf_open netcdf_open interface~netcdf_open netcdf_open interface~netcdf_open->proc~netcdf_open Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/netcdf_open.html"},{"title":"netcdf_write_frame_base – swiftest","text":"module subroutine netcdf_write_frame_base(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 Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~netcdf_write_frame_base~~CallsGraph proc~netcdf_write_frame_base netcdf_write_frame_base interface~util_sort util_sort proc~netcdf_write_frame_base->interface~util_sort nf90_put_var nf90_put_var proc~netcdf_write_frame_base->nf90_put_var Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~netcdf_write_frame_base~~CalledByGraph proc~netcdf_write_frame_base netcdf_write_frame_base interface~netcdf_write_frame_base netcdf_write_frame_base interface~netcdf_write_frame_base->proc~netcdf_write_frame_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/netcdf_write_frame_base.html"},{"title":"netcdf_write_particle_info_base – swiftest","text":"module subroutine netcdf_write_particle_info_base(self, iu) Interface → Write all current particle to file Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset Calls proc~~netcdf_write_particle_info_base~~CallsGraph proc~netcdf_write_particle_info_base netcdf_write_particle_info_base interface~util_sort util_sort proc~netcdf_write_particle_info_base->interface~util_sort nf90_put_var nf90_put_var proc~netcdf_write_particle_info_base->nf90_put_var Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~netcdf_write_particle_info_base~~CalledByGraph proc~netcdf_write_particle_info_base netcdf_write_particle_info_base interface~netcdf_write_particle_info_base netcdf_write_particle_info_base interface~netcdf_write_particle_info_base->proc~netcdf_write_particle_info_base Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/netcdf_write_particle_info_base.html"},{"title":"netcdf_write_hdr_system – swiftest","text":"module subroutine netcdf_write_hdr_system(self, iu, param) Interface → Writes header information (variables that change with time, but not particle id). \n This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that \n previously were handled as separate output files. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~netcdf_write_hdr_system~~CallsGraph proc~netcdf_write_hdr_system netcdf_write_hdr_system nf90_set_fill nf90_set_fill proc~netcdf_write_hdr_system->nf90_set_fill nf90_put_var nf90_put_var proc~netcdf_write_hdr_system->nf90_put_var nf90_open nf90_open proc~netcdf_write_hdr_system->nf90_open Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~netcdf_write_hdr_system~~CalledByGraph proc~netcdf_write_hdr_system netcdf_write_hdr_system interface~netcdf_write_hdr_system netcdf_write_hdr_system interface~netcdf_write_hdr_system->proc~netcdf_write_hdr_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/netcdf_write_hdr_system.html"},{"title":"fraggle_util_vmag_to_vb – swiftest","text":"module function fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) Interface → Converts radial and tangential velocity magnitudes into barycentric velocity Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: v_r_mag Unknown radial component of fragment velocity vector real(kind=DP), intent(in), dimension(:,:) :: v_r_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: v_t_mag Tangential component of velocity vector set previously by angular momentum constraint real(kind=DP), intent(in), dimension(:,:) :: v_t_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(in), dimension(:) :: vcom Barycentric velocity of collisional system center of mass Return Value real(kind=DP),\n  dimension(:,:),allocatable Calls proc~~fraggle_util_vmag_to_vb~~CallsGraph proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fraggle_util_vmag_to_vb~~CalledByGraph proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_vmag_to_vb.html"},{"title":"fraggle_util_add_fragments_to_system – swiftest","text":"module subroutine fraggle_util_add_fragments_to_system(frag, colliders, system, param) Interface → Adds fragments to the temporary system pl object Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters Called by proc~~fraggle_util_add_fragments_to_system~~CalledByGraph proc~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system interface~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system interface~fraggle_util_add_fragments_to_system->proc~fraggle_util_add_fragments_to_system proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum proc~fraggle_util_get_energy_momentum->interface~fraggle_util_add_fragments_to_system interface~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum->proc~fraggle_util_get_energy_momentum Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_add_fragments_to_system.html"},{"title":"fraggle_util_ang_mtm – swiftest","text":"module subroutine fraggle_util_ang_mtm(self) Interface → Calcualtes the current angular momentum of the fragments Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object Called by proc~~fraggle_util_ang_mtm~~CalledByGraph proc~fraggle_util_ang_mtm fraggle_util_ang_mtm interface~fraggle_util_ang_mtm fraggle_util_ang_mtm interface~fraggle_util_ang_mtm->proc~fraggle_util_ang_mtm Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_ang_mtm.html"},{"title":"fraggle_util_construct_temporary_system – swiftest","text":"module subroutine fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam) Interface → 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\n and optionally including fragments. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Original swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters class( swiftest_nbody_system ), intent(out), allocatable :: tmpsys Output temporary swiftest nbody system object class( swiftest_parameters ), intent(out), allocatable :: tmpparam Output temporary configuration run parameters Calls proc~~fraggle_util_construct_temporary_system~~CallsGraph proc~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system setup_construct_system setup_construct_system proc~fraggle_util_construct_temporary_system->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. Called by proc~~fraggle_util_construct_temporary_system~~CalledByGraph proc~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system interface~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system interface~fraggle_util_construct_temporary_system->proc~fraggle_util_construct_temporary_system proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum proc~fraggle_util_get_energy_momentum->interface~fraggle_util_construct_temporary_system interface~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum->proc~fraggle_util_get_energy_momentum Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_construct_temporary_system.html"},{"title":"fraggle_util_get_energy_momentum – swiftest","text":"module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore) Interface → Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)\n This subrourtine works by building a temporary internal massive body object out of the non-excluded bodies and optionally with fragments appended. \n 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. \n This will temporarily expand the massive body object in a temporary system object called tmpsys to feed it into symba_energy Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters logical, intent(in) :: lbefore Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa Calls proc~~fraggle_util_get_energy_momentum~~CallsGraph proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system proc~fraggle_util_get_energy_momentum->interface~fraggle_util_construct_temporary_system interface~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system proc~fraggle_util_get_energy_momentum->interface~fraggle_util_add_fragments_to_system util_exit util_exit proc~fraggle_util_get_energy_momentum->util_exit proc~fraggle_util_construct_temporary_system fraggle_util_construct_temporary_system interface~fraggle_util_construct_temporary_system->proc~fraggle_util_construct_temporary_system proc~fraggle_util_add_fragments_to_system fraggle_util_add_fragments_to_system interface~fraggle_util_add_fragments_to_system->proc~fraggle_util_add_fragments_to_system setup_construct_system setup_construct_system proc~fraggle_util_construct_temporary_system->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. Called by proc~~fraggle_util_get_energy_momentum~~CalledByGraph proc~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum fraggle_util_get_energy_momentum interface~fraggle_util_get_energy_momentum->proc~fraggle_util_get_energy_momentum Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_get_energy_momentum.html"},{"title":"fraggle_util_restructure – swiftest","text":"module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start) Interface → Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object integer(kind=I4B), intent(in) :: try The current number of times Fraggle has tried to find a solution real(kind=DP), intent(inout) :: f_spin Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real(kind=DP), intent(inout) :: r_max_start The maximum radial distance that the position calculation starts with. This increases after a failed attempt Called by proc~~fraggle_util_restructure~~CalledByGraph proc~fraggle_util_restructure fraggle_util_restructure interface~fraggle_util_restructure fraggle_util_restructure interface~fraggle_util_restructure->proc~fraggle_util_restructure Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_restructure.html"},{"title":"fraggle_util_shift_vector_to_origin – swiftest","text":"module subroutine fraggle_util_shift_vector_to_origin(m_frag, vec_frag) Interface → Adjusts the position or velocity of the fragments as needed to align them with the origin Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(inout), dimension(:,:) :: vec_frag Fragment positions or velocities in the center of mass frame Called by proc~~fraggle_util_shift_vector_to_origin~~CalledByGraph proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin proc~fraggle_generate_pos_vec fraggle_generate_pos_vec proc~fraggle_generate_pos_vec->interface~fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->proc~fraggle_generate_pos_vec proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_util_shift_vector_to_origin.html"},{"title":"fraggle_io_log_generate – swiftest","text":"module subroutine fraggle_io_log_generate(frag) Interface → Writes a log of the results of the fragment generation Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Called by proc~~fraggle_io_log_generate~~CalledByGraph proc~fraggle_io_log_generate fraggle_io_log_generate interface~fraggle_io_log_generate fraggle_io_log_generate interface~fraggle_io_log_generate->proc~fraggle_io_log_generate proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->interface~fraggle_io_log_generate interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_io_log_generate.html"},{"title":"fraggle_io_log_one_message – swiftest","text":"module subroutine fraggle_io_log_one_message(message) Interface → Writes a single message to the fraggle log file Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: message Called by proc~~fraggle_io_log_one_message~~CalledByGraph proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_tan_vel->interface~fraggle_io_log_one_message proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_rad_vel->interface~fraggle_io_log_one_message proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_fragments->interface~fraggle_io_log_one_message proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_spins fraggle_generate_spins proc~fraggle_generate_fragments->proc~fraggle_generate_spins proc~fraggle_generate_spins->interface~fraggle_io_log_one_message proc~fraggle_regime_collresolve fraggle_regime_collresolve proc~fraggle_regime_collresolve->interface~fraggle_io_log_one_message interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_io_log_one_message.html"},{"title":"fraggle_io_log_pl – swiftest","text":"module subroutine fraggle_io_log_pl(pl, param) Interface → Writes a single message to the fraggle log file Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl Swiftest massive body object (only the new bodies generated in a collision) class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters Called by proc~~fraggle_io_log_pl~~CalledByGraph proc~fraggle_io_log_pl fraggle_io_log_pl interface~fraggle_io_log_pl fraggle_io_log_pl interface~fraggle_io_log_pl->proc~fraggle_io_log_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_io_log_pl.html"},{"title":"fraggle_io_log_regime – swiftest","text":"module subroutine fraggle_io_log_regime(colliders, frag) Interface → Writes a log of the results of the collisional regime determination Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object class( fraggle_fragments ), intent(in) :: frag Fraggle fragment object Called by proc~~fraggle_io_log_regime~~CalledByGraph proc~fraggle_io_log_regime fraggle_io_log_regime interface~fraggle_io_log_regime fraggle_io_log_regime interface~fraggle_io_log_regime->proc~fraggle_io_log_regime proc~fraggle_regime_colliders fraggle_regime_colliders proc~fraggle_regime_colliders->interface~fraggle_io_log_regime interface~fraggle_regime_colliders fraggle_regime_colliders interface~fraggle_regime_colliders->proc~fraggle_regime_colliders Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_io_log_regime.html"},{"title":"fraggle_io_log_start – swiftest","text":"module subroutine fraggle_io_log_start(param) Interface → Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Called by proc~~fraggle_io_log_start~~CalledByGraph proc~fraggle_io_log_start fraggle_io_log_start interface~fraggle_io_log_start fraggle_io_log_start interface~fraggle_io_log_start->proc~fraggle_io_log_start Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_io_log_start.html"},{"title":"fraggle_generate_fragments – swiftest","text":"module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure) Interface → Uses ieee_exceptions proc~~fraggle_generate_fragments~~UsesGraph proc~fraggle_generate_fragments fraggle_generate_fragments ieee_exceptions ieee_exceptions proc~fraggle_generate_fragments->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. Generates a system of fragments in barycentric coordinates that conserves energy and momentum. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle system object the outputs will be the fragmentation class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object containing the two-body equivalent values of the colliding bodies class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead? Calls proc~~fraggle_generate_fragments~~CallsGraph proc~fraggle_generate_fragments fraggle_generate_fragments proc~fraggle_generate_tan_vel fraggle_generate_tan_vel proc~fraggle_generate_fragments->proc~fraggle_generate_tan_vel proc~fraggle_generate_pos_vec fraggle_generate_pos_vec proc~fraggle_generate_fragments->proc~fraggle_generate_pos_vec proc~fraggle_generate_rad_vel fraggle_generate_rad_vel proc~fraggle_generate_fragments->proc~fraggle_generate_rad_vel proc~fraggle_generate_spins fraggle_generate_spins proc~fraggle_generate_fragments->proc~fraggle_generate_spins interface~fraggle_io_log_one_message fraggle_io_log_one_message proc~fraggle_generate_fragments->interface~fraggle_io_log_one_message interface~fraggle_io_log_generate fraggle_io_log_generate proc~fraggle_generate_fragments->interface~fraggle_io_log_generate proc~fraggle_generate_tan_vel->interface~fraggle_io_log_one_message util_minimize_bfgs util_minimize_bfgs proc~fraggle_generate_tan_vel->util_minimize_bfgs interface~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb proc~fraggle_generate_tan_vel->interface~fraggle_util_vmag_to_vb lambda_obj lambda_obj proc~fraggle_generate_tan_vel->lambda_obj interface~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin proc~fraggle_generate_pos_vec->interface~fraggle_util_shift_vector_to_origin proc~fraggle_generate_rad_vel->interface~fraggle_io_log_one_message proc~fraggle_generate_rad_vel->util_minimize_bfgs proc~fraggle_generate_rad_vel->interface~fraggle_util_vmag_to_vb proc~fraggle_generate_rad_vel->lambda_obj proc~fraggle_generate_spins->interface~fraggle_io_log_one_message proc~fraggle_io_log_one_message fraggle_io_log_one_message interface~fraggle_io_log_one_message->proc~fraggle_io_log_one_message proc~fraggle_io_log_generate fraggle_io_log_generate interface~fraggle_io_log_generate->proc~fraggle_io_log_generate proc~fraggle_util_shift_vector_to_origin fraggle_util_shift_vector_to_origin interface~fraggle_util_shift_vector_to_origin->proc~fraggle_util_shift_vector_to_origin proc~fraggle_util_vmag_to_vb fraggle_util_vmag_to_vb interface~fraggle_util_vmag_to_vb->proc~fraggle_util_vmag_to_vb proc~fraggle_util_vmag_to_vb->interface~fraggle_util_shift_vector_to_origin Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fraggle_generate_fragments~~CalledByGraph proc~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments fraggle_generate_fragments interface~fraggle_generate_fragments->proc~fraggle_generate_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_generate_fragments.html"},{"title":"fraggle_regime_colliders – swiftest","text":"module subroutine fraggle_regime_colliders(self, frag, system, param) Interface → Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine.\n It converts to SI units prior to calling\n The two-body equivalent masses of the collider system\n The two-body equivalent radii of the collider system\n The two-body equivalent density of the collider system\n The first body of the two-body equivalent position vector the collider system\n The first body of the two-body equivalent velocity vector the collider system\n The second body of the two-body equivalent position vector the collider system\n The second body of the two-body equivalent velocity vector the collider system\n The central body mass of the system\n The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead\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( fraggle_colliders ), intent(inout) :: self Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters Calls proc~~fraggle_regime_colliders~~CallsGraph proc~fraggle_regime_colliders fraggle_regime_colliders interface~fraggle_io_log_regime fraggle_io_log_regime proc~fraggle_regime_colliders->interface~fraggle_io_log_regime proc~fraggle_io_log_regime fraggle_io_log_regime interface~fraggle_io_log_regime->proc~fraggle_io_log_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. Called by proc~~fraggle_regime_colliders~~CalledByGraph proc~fraggle_regime_colliders fraggle_regime_colliders interface~fraggle_regime_colliders fraggle_regime_colliders interface~fraggle_regime_colliders->proc~fraggle_regime_colliders Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_regime_colliders.html"},{"title":"fraggle_placeholder_accel – swiftest","text":"module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg) Interface → The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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 Optional argument that determines whether or not this is the beginning or end of the step Called by proc~~fraggle_placeholder_accel~~CalledByGraph proc~fraggle_placeholder_accel fraggle_placeholder_accel interface~fraggle_placeholder_accel fraggle_placeholder_accel interface~fraggle_placeholder_accel->proc~fraggle_placeholder_accel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_placeholder_accel.html"},{"title":"fraggle_placeholder_kick – swiftest","text":"module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg) Interface → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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. Called by proc~~fraggle_placeholder_kick~~CalledByGraph proc~fraggle_placeholder_kick fraggle_placeholder_kick interface~fraggle_placeholder_kick fraggle_placeholder_kick interface~fraggle_placeholder_kick->proc~fraggle_placeholder_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/fraggle_placeholder_kick.html"},{"title":"fraggle_placeholder_step – swiftest","text":"module subroutine fraggle_placeholder_step(self, system, param, t, dt) Interface → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), 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 Called by proc~~fraggle_placeholder_step~~CalledByGraph proc~fraggle_placeholder_step fraggle_placeholder_step interface~fraggle_placeholder_step fraggle_placeholder_step interface~fraggle_placeholder_step->proc~fraggle_placeholder_step Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_placeholder_step.html"},{"title":"fraggle_setup_reset_fragments – swiftest","text":"module subroutine fraggle_setup_reset_fragments(self) Interface → Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate) Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Called by proc~~fraggle_setup_reset_fragments~~CalledByGraph proc~fraggle_setup_reset_fragments fraggle_setup_reset_fragments interface~fraggle_setup_reset_fragments fraggle_setup_reset_fragments interface~fraggle_setup_reset_fragments->proc~fraggle_setup_reset_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_setup_reset_fragments.html"},{"title":"fraggle_setup_fragments – swiftest","text":"module subroutine fraggle_setup_fragments(self, n, param) Interface → Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self integer(kind=I4B), intent(in) :: n class( swiftest_parameters ), intent(in) :: param Calls proc~~fraggle_setup_fragments~~CallsGraph proc~fraggle_setup_fragments fraggle_setup_fragments setup_pl setup_pl proc~fraggle_setup_fragments->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~~fraggle_setup_fragments~~CalledByGraph proc~fraggle_setup_fragments fraggle_setup_fragments interface~fraggle_setup_fragments fraggle_setup_fragments interface~fraggle_setup_fragments->proc~fraggle_setup_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_setup_fragments.html"},{"title":"fraggle_set_budgets_fragments – swiftest","text":"module subroutine fraggle_set_budgets_fragments(self, colliders) Interface → Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object Called by proc~~fraggle_set_budgets_fragments~~CalledByGraph proc~fraggle_set_budgets_fragments fraggle_set_budgets_fragments interface~fraggle_set_budgets_fragments fraggle_set_budgets_fragments interface~fraggle_set_budgets_fragments->proc~fraggle_set_budgets_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_set_budgets_fragments.html"},{"title":"fraggle_set_mass_dist_fragments – swiftest","text":"module subroutine fraggle_set_mass_dist_fragments(self, colliders, param) Interface → Sets the mass of fragments based on the mass distribution returned by the regime calculation.\n This subroutine must be run after the the setup rourtine has been run on the fragments Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters Called by proc~~fraggle_set_mass_dist_fragments~~CalledByGraph proc~fraggle_set_mass_dist_fragments fraggle_set_mass_dist_fragments interface~fraggle_set_mass_dist_fragments fraggle_set_mass_dist_fragments interface~fraggle_set_mass_dist_fragments->proc~fraggle_set_mass_dist_fragments Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_set_mass_dist_fragments.html"},{"title":"fraggle_set_coordinate_system – swiftest","text":"module subroutine fraggle_set_coordinate_system(self, colliders) Interface → Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object Called by proc~~fraggle_set_coordinate_system~~CalledByGraph proc~fraggle_set_coordinate_system fraggle_set_coordinate_system interface~fraggle_set_coordinate_system fraggle_set_coordinate_system interface~fraggle_set_coordinate_system->proc~fraggle_set_coordinate_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/fraggle_set_coordinate_system.html"},{"title":"fraggle_set_natural_scale_factors – swiftest","text":"module subroutine fraggle_set_natural_scale_factors(self, colliders) Interface → Scales dimenional quantities to ~O(1) with respect to the collisional system. \n This scaling makes it easier for the non-linear minimization to converge on a solution Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object Called by proc~~fraggle_set_natural_scale_factors~~CalledByGraph proc~fraggle_set_natural_scale_factors fraggle_set_natural_scale_factors interface~fraggle_set_natural_scale_factors fraggle_set_natural_scale_factors interface~fraggle_set_natural_scale_factors->proc~fraggle_set_natural_scale_factors Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_set_natural_scale_factors.html"},{"title":"fraggle_set_original_scale_factors – swiftest","text":"module subroutine fraggle_set_original_scale_factors(self, colliders) Interface → Uses ieee_exceptions proc~~fraggle_set_original_scale_factors~~UsesGraph proc~fraggle_set_original_scale_factors fraggle_set_original_scale_factors ieee_exceptions ieee_exceptions proc~fraggle_set_original_scale_factors->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. Restores dimenional quantities back to the system units Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object Called by proc~~fraggle_set_original_scale_factors~~CalledByGraph proc~fraggle_set_original_scale_factors fraggle_set_original_scale_factors interface~fraggle_set_original_scale_factors fraggle_set_original_scale_factors interface~fraggle_set_original_scale_factors->proc~fraggle_set_original_scale_factors Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fraggle_set_original_scale_factors.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_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 util_exit util_exit proc~rmvs_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~~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_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 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 util_exit util_exit proc~rmvs_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~~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 util_fill proc~rmvs_util_fill_tp->util_fill 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 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 util_resize util_resize proc~rmvs_util_resize_pl->util_resize whm_util_resize_pl whm_util_resize_pl proc~rmvs_util_resize_pl->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. 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 util_resize proc~rmvs_util_resize_tp->util_resize util_resize_tp util_resize_tp proc~rmvs_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~~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 util_sort_rearrange util_sort_rearrange proc~rmvs_util_sort_rearrange_pl->util_sort_rearrange Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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 util_sort_rearrange util_sort_rearrange proc~rmvs_util_sort_rearrange_tp->util_sort_rearrange Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Solid arrows point from a procedure to one which it calls. Dashed \n    arrows point from an interface to procedures which implement that interface.\n    This could include 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_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 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_io_write_encounter – swiftest","text":"module subroutine rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out) Interface → Write close encounter data from RMVS 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) :: id1 integer(kind=I4B), intent(in) :: id2 real(kind=DP), intent(in) :: Gmass1 real(kind=DP), intent(in) :: Gmass2 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 Calls proc~~rmvs_io_write_encounter~~CallsGraph proc~rmvs_io_write_encounter rmvs_io_write_encounter util_exit util_exit proc~rmvs_io_write_encounter->util_exit io_write_frame_encounter io_write_frame_encounter proc~rmvs_io_write_encounter->io_write_frame_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~~rmvs_io_write_encounter~~CalledByGraph proc~rmvs_io_write_encounter rmvs_io_write_encounter interface~rmvs_io_write_encounter rmvs_io_write_encounter interface~rmvs_io_write_encounter->proc~rmvs_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/rmvs_io_write_encounter.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_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in util_exit util_exit proc~rmvs_interp_out->util_exit 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 proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_interp_in->util_exit 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~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~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one 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_chk_ind.html"},{"title":"orbel – swiftest","text":"Uses swiftest module~~orbel~~UsesGraph module~orbel orbel module~swiftest swiftest module~orbel->module~swiftest module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 xv2el Subroutines public pure elemental subroutine xv2el (mu, px, py, pz, vx, vy, vz, a, e, inc, capom, omega, capm) Arguments Type Intent Optional Attributes Name real(kind=8), intent(in) :: mu real(kind=8), intent(in) :: px real(kind=8), intent(in) :: py real(kind=8), intent(in) :: pz real(kind=8), intent(in) :: vx real(kind=8), intent(in) :: vy real(kind=8), intent(in) :: vz real(kind=8), intent(out) :: a real(kind=8), intent(out) :: e real(kind=8), intent(out) :: inc real(kind=8), intent(out) :: capom real(kind=8), intent(out) :: omega real(kind=8), intent(out) :: capm","tags":"","loc":"module/orbel.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_io s_rmvs_kick s_rmvs_setup s_rmvs_step s_rmvs_util module~~rmvs_classes~~UsedByGraph module~rmvs_classes rmvs_classes module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~rmvs_classes module~swiftest swiftest module~s_rmvs_setup->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_chk s_rmvs_chk module~s_rmvs_chk->module~rmvs_classes module~s_rmvs_chk->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_discard s_rmvs_discard module~s_rmvs_discard->module~rmvs_classes 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_io s_rmvs_io module~s_rmvs_io->module~rmvs_classes module~s_rmvs_io->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~rmvs_classes module~s_rmvs_kick->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes 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_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->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 proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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_io_write_encounter 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_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: id1 integer(kind=I4B), intent(in) :: id2 real(kind=DP), intent(in) :: Gmass1 real(kind=DP), intent(in) :: Gmass2 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 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 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body procedure, public :: init_particle_info => setup_initialize_particle_info_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 generic, public :: write_hdr => write_hdr_bin, write_hdr_netcdf Generic method call for writing headers 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 type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf procedure, public :: read_in => io_read_in_cb 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_bin => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body generic, public :: write_frame => write_frame_netcdf, write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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 generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: index => util_index_eucl_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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 DEG2RAD RAD2DEG GC einsteinC LOWERCASE_BEGIN LOWERCASE_END UPPERCASE_OFFSET VERSION_NUMBER UNKNOWN_INTEGRATOR BS HELIO RA15 TU4 WHM RMVS SYMBA RINGMOONS STRMAX NAMELEN ASCII_TYPE REAL4_TYPE REAL8_TYPE NETCDF_FLOAT_TYPE NETCDF_DOUBLE_TYPE EL XV XVEL CB_TYPE_NAME PL_TYPE_NAME TP_TYPE_NAME PL_TINY_TYPE_NAME 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_DISRUPT HIT_AND_RUN_PURE COLLISION NEW_PARTICLE OLD_PARTICLE 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 CB_INFILE PL_INFILE TP_INFILE BIN_OUTFILE BINUNIT PARTICLE_OUTFILE PARTICLEUNIT NDIM NDIM2 VSMALL NETCDF_OUTFILE TIME_DIMNAME ID_DIMNAME STR_DIMNAME PTYPE_VARNAME NAME_VARNAME NPL_VARNAME NTP_VARNAME A_VARNAME E_VARNAME INC_VARNAME CAPOM_VARNAME OMEGA_VARNAME CAPM_VARNAME XHX_VARNAME XHY_VARNAME XHZ_VARNAME VHX_VARNAME VHY_VARNAME VHZ_VARNAME GMASS_VARNAME RHILL_VARNAME RADIUS_VARNAME IP1_VARNAME IP2_VARNAME IP3_VARNAME ROTX_VARNAME ROTY_VARNAME ROTZ_VARNAME K2_VARNAME Q_VARNAME KE_ORB_VARNAME KE_SPIN_VARNAME PE_VARNAME L_ORBX_VARNAME L_ORBY_VARNAME L_ORBZ_VARNAME L_SPINX_VARNAME L_SPINY_VARNAME L_SPINZ_VARNAME L_ESCAPEX_VARNAME L_ESCAPEY_VARNAME L_ESCAPEZ_VARNAME ECOLLISIONS_VARNAME EUNTRACKED_VARNAME GMESCAPE_VARNAME STATUS_VARNAME ORIGIN_TYPE_VARNAME ORIGIN_TIME_VARNAME ORIGIN_XHX_VARNAME ORIGIN_XHY_VARNAME ORIGIN_XHZ_VARNAME ORIGIN_VHX_VARNAME ORIGIN_VHY_VARNAME ORIGIN_VHZ_VARNAME DISCARD_TIME_VARNAME DISCARD_XHX_VARNAME DISCARD_XHY_VARNAME DISCARD_XHZ_VARNAME DISCARD_VHX_VARNAME DISCARD_VHY_VARNAME DISCARD_VHZ_VARNAME DISCARD_BODY_ID_VARNAME 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 :: DEG2RAD = PI/180.0_DP Definition of conversion factor from degrees to radians real(kind=DP), public, parameter :: RAD2DEG = 180.0_DP/PI Definition of conversion factor from degrees to radians 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 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 = 512 Maximum size of character strings integer(kind=I4B), public, parameter :: NAMELEN = 32 Maximum size of name 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 :: NETCDF_FLOAT_TYPE = 'NETCDF_FLOAT' Symbolic name for binary file type REAL8 character(len=*), public, parameter :: NETCDF_DOUBLE_TYPE = 'NETCDF_DOUBLE' Symbolic name for binary file type REAL8 character(len=*), public, parameter :: EL = 'EL' Symbolic name for binary output file contents for orbital elements character(len=*), public, parameter :: XV = 'XV' Symbolic name for binary output file contents for cartesian position and velocity vectors character(len=*), public, parameter :: XVEL = 'XVEL' Symbolic name for binary output file contents for both cartesian position and velocity and orbital elements character(len=*), public, parameter :: CB_TYPE_NAME = \"Central Body\" character(len=*), public, parameter :: PL_TYPE_NAME = \"Massive Body\" character(len=*), public, parameter :: TP_TYPE_NAME = \"Test Particle\" character(len=*), public, parameter :: PL_TINY_TYPE_NAME = \"Semi-Interacting Massive Body\" 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_DISRUPT = -12 integer(kind=I4B), public, parameter :: HIT_AND_RUN_PURE = -13 integer(kind=I4B), public, parameter :: COLLISION = -14 integer(kind=I4B), public, parameter :: NEW_PARTICLE = -15 integer(kind=I4B), public, parameter :: OLD_PARTICLE = -16 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.in', 'dump_param2.in'] character(len=*), public, parameter :: CB_INFILE = 'cb.in' Default file names that can be changed by the user in the parameters file 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 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 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 character(len=*), public, parameter :: NETCDF_OUTFILE = 'bin.nc' NetCDF variable names and constants\n Default output file name character(len=*), public, parameter :: TIME_DIMNAME = \"time\" NetCDF name of the time dimension character(len=*), public, parameter :: ID_DIMNAME = \"id\" NetCDF name of the particle id dimension character(len=*), public, parameter :: STR_DIMNAME = \"str\" NetCDF name of the particle id dimension character(len=*), public, parameter :: PTYPE_VARNAME = \"particle_type\" NetCDF name of the particle type variable character(len=*), public, parameter :: NAME_VARNAME = \"name\" NetCDF name of the particle name variable character(len=*), public, parameter :: NPL_VARNAME = \"npl\" NetCDF name of the number of active massive bodies variable character(len=*), public, parameter :: NTP_VARNAME = \"ntp\" NetCDF name of the number of active test particles variable character(len=*), public, parameter :: A_VARNAME = \"a\" NetCDF name of the semimajor axis variable character(len=*), public, parameter :: E_VARNAME = \"e\" NetCDF name of the eccentricity variable character(len=*), public, parameter :: INC_VARNAME = \"inc\" NetCDF name of the inclination variable character(len=*), public, parameter :: CAPOM_VARNAME = \"capom\" NetCDF name of the long. asc. node variable character(len=*), public, parameter :: OMEGA_VARNAME = \"omega\" NetCDF name of the arg. periapsis variable character(len=*), public, parameter :: CAPM_VARNAME = \"capm\" NetCDF name of the mean anomaly variable character(len=*), public, parameter :: XHX_VARNAME = \"xhx\" NetCDF name of the heliocentric position x variable character(len=*), public, parameter :: XHY_VARNAME = \"xhy\" NetCDF name of the heliocentric position y variable character(len=*), public, parameter :: XHZ_VARNAME = \"xhz\" NetCDF name of the heliocentric position z variable character(len=*), public, parameter :: VHX_VARNAME = \"vhx\" NetCDF name of the heliocentric velocity x variable character(len=*), public, parameter :: VHY_VARNAME = \"vhy\" NetCDF name of the heliocentric velocity y variable character(len=*), public, parameter :: VHZ_VARNAME = \"vhz\" NetCDF name of the heliocentric velocity z variable character(len=*), public, parameter :: GMASS_VARNAME = \"Gmass\" NetCDF name of the mass variable character(len=*), public, parameter :: RHILL_VARNAME = \"rhill\" NetCDF name of the hill radius variable character(len=*), public, parameter :: RADIUS_VARNAME = \"radius\" NetCDF name of the radius variable character(len=*), public, parameter :: IP1_VARNAME = \"Ip1\" NetCDF name of the axis 1 principal moment of inertial variable character(len=*), public, parameter :: IP2_VARNAME = \"Ip2\" NetCDF name of the axis 2 principal moment of inertial variable character(len=*), public, parameter :: IP3_VARNAME = \"Ip3\" NetCDF name of the axis 3 principal moment of inertial variable character(len=*), public, parameter :: ROTX_VARNAME = \"rotx\" NetCDF name of the rotation x variable character(len=*), public, parameter :: ROTY_VARNAME = \"roty\" NetCDF name of the rotation y variable character(len=*), public, parameter :: ROTZ_VARNAME = \"rotz\" NetCDF name of the rotation z variable character(len=*), public, parameter :: K2_VARNAME = \"k2\" NetCDF name of the Love number variable character(len=*), public, parameter :: Q_VARNAME = \"Q\" NetCDF name of the energy dissipation variable character(len=*), public, parameter :: KE_ORB_VARNAME = \"KE_orb\" NetCDF name of the system orbital kinetic energy variable character(len=*), public, parameter :: KE_SPIN_VARNAME = \"KE_spin\" NetCDF name of the system spin kinetic energy variable character(len=*), public, parameter :: PE_VARNAME = \"PE\" NetCDF name of the system potential energy variable character(len=*), public, parameter :: L_ORBX_VARNAME = \"L_orbx\" NetCDF name of the orbital angular momentum x variable character(len=*), public, parameter :: L_ORBY_VARNAME = \"L_orby\" NetCDF name of the orbital angular momentum y variable character(len=*), public, parameter :: L_ORBZ_VARNAME = \"L_orbz\" NetCDF name of the orbital angular momentum z variable character(len=*), public, parameter :: L_SPINX_VARNAME = \"L_spinx\" NetCDF name of the spin angular momentum x variable character(len=*), public, parameter :: L_SPINY_VARNAME = \"L_spiny\" NetCDF name of the spin angular momentum y variable character(len=*), public, parameter :: L_SPINZ_VARNAME = \"L_spinz\" NetCDF name of the spin angular momentum z variable character(len=*), public, parameter :: L_ESCAPEX_VARNAME = \"L_escapex\" NetCDF name of the escaped angular momentum x variable character(len=*), public, parameter :: L_ESCAPEY_VARNAME = \"L_escapey\" NetCDF name of the escaped angular momentum y variable character(len=*), public, parameter :: L_ESCAPEZ_VARNAME = \"L_escapez\" NetCDF name of the escaped angular momentum z variable character(len=*), public, parameter :: ECOLLISIONS_VARNAME = \"Ecollisions\" NetCDF name of the escaped angular momentum y variable character(len=*), public, parameter :: EUNTRACKED_VARNAME = \"Euntracked\" NetCDF name of the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies) character(len=*), public, parameter :: GMESCAPE_VARNAME = \"GMescape\" NetCDF name of the G*Mass of bodies that escape the system character(len=*), public, parameter :: STATUS_VARNAME = \"status\" NetCDF name of the current status of the body variable (includes discard type) character(len=*), public, parameter :: ORIGIN_TYPE_VARNAME = \"origin_type\" NetCDF name of the origin type variable (Initial Conditions, Disruption, etc.) character(len=*), public, parameter :: ORIGIN_TIME_VARNAME = \"origin_time\" NetCDF name of the time of origin variable character(len=*), public, parameter :: ORIGIN_XHX_VARNAME = \"origin_xhx\" NetCDF name of the heliocentric position of the body at the time of origin x variable character(len=*), public, parameter :: ORIGIN_XHY_VARNAME = \"origin_xhy\" NetCDF name of the heliocentric position of the body at the time of origin y variable character(len=*), public, parameter :: ORIGIN_XHZ_VARNAME = \"origin_xhz\" NetCDF name of the heliocentric position of the body at the time of origin z variable character(len=*), public, parameter :: ORIGIN_VHX_VARNAME = \"origin_vhx\" NetCDF name of the heliocentric velocity of the body at the time of origin x variable character(len=*), public, parameter :: ORIGIN_VHY_VARNAME = \"origin_vhy\" NetCDF name of the heliocentric velocity of the body at the time of origin y variable character(len=*), public, parameter :: ORIGIN_VHZ_VARNAME = \"origin_vhz\" NetCDF name of the heliocentric velocity of the body at the time of origin z variable character(len=*), public, parameter :: DISCARD_TIME_VARNAME = \"discard_time\" NetCDF name of the time of discard variable character(len=*), public, parameter :: DISCARD_XHX_VARNAME = \"discard_xhx\" NetCDF name of the heliocentric position of the body at the time of discard x variable character(len=*), public, parameter :: DISCARD_XHY_VARNAME = \"discard_xhy\" NetCDF name of the heliocentric position of the body at the time of discard y variable character(len=*), public, parameter :: DISCARD_XHZ_VARNAME = \"discard_xhz\" NetCDF name of the heliocentric position of the body at the time of discard z variable character(len=*), public, parameter :: DISCARD_VHX_VARNAME = \"discard_vhx\" NetCDF name of the heliocentric velocity of the body at the time of discard x variable character(len=*), public, parameter :: DISCARD_VHY_VARNAME = \"discard_vhy\" NetCDF name of the heliocentric velocity of the body at the time of discard y variable character(len=*), public, parameter :: DISCARD_VHZ_VARNAME = \"discard_vhz\" NetCDF name of the heliocentric velocity of the body at the time of discard z variable character(len=*), public, parameter :: DISCARD_BODY_ID_VARNAME = \"discard_body_id\" NetCDF name of the id of the other body involved in the discard","tags":"","loc":"module/swiftest_globals.html"},{"title":"walltime_classes – swiftest","text":"Classes and methods used to compute elasped wall time Uses swiftest_globals module~~walltime_classes~~UsesGraph module~walltime_classes walltime_classes module~swiftest_globals swiftest_globals module~walltime_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 module~~walltime_classes~~UsedByGraph module~walltime_classes walltime_classes module~swiftest swiftest module~swiftest->module~walltime_classes module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->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 proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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 walltime_finish walltime_reset walltime_start Derived Types walltimer Subroutines walltime_finish walltime_reset walltime_start Interfaces interface public subroutine walltime_finish(self, nsubsteps, message) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object integer(kind=I4B), intent(in) :: nsubsteps Number of substeps used to compute the time per step character(len=*), intent(in) :: message Message to prepend to the wall time terminal output interface public subroutine walltime_reset(self) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object interface public subroutine walltime_start(self) Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object Derived Types type, public :: walltimer Components Type Visibility Attributes Name Initial integer(kind=I8B), public :: count_rate Rate at wich the clock ticks integer(kind=I8B), public :: count_max Maximum value of the clock ticker integer(kind=I8B), public :: count_start_main Value of the clock ticker at when the timer is first called integer(kind=I8B), public :: count_start_step Value of the clock ticker at the start of a timed step integer(kind=I8B), public :: count_finish_step Value of the clock ticker at the end of a timed step logical, public :: lmain_is_started = .false. Logical flag indicating whether or not the main timer has been reset or not Type-Bound Procedures procedure, public :: reset => walltime_reset Resets the clock ticker, settting main_start to the current ticker value procedure, public :: start => walltime_start Starts the timer, setting step_start to the current ticker value procedure, public :: finish => walltime_finish Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal Subroutines public subroutine walltime_finish (self, nsubsteps, message) Author David A. Minton Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self Walltimer object integer(kind=I4B), intent(in) :: nsubsteps Number of substeps used to compute the time per step character(len=*), intent(in) :: message Message to prepend to the wall time terminal output public subroutine walltime_reset (self) Author David A. Minton Resets the clock ticker, settting main_start to the current ticker value Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self public subroutine walltime_start (self) Author David A. Minton Starts the timer, setting step_start to the current ticker value Arguments Type Intent Optional Attributes Name class( walltimer ), intent(inout) :: self","tags":"","loc":"module/walltime_classes.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_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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: module_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_drift s_helio_gr s_helio_kick s_helio_setup s_helio_step module~~helio_classes~~UsedByGraph module~helio_classes helio_classes module~s_helio_setup s_helio_setup module~s_helio_setup->module~helio_classes module~swiftest swiftest module~s_helio_setup->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_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_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->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_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->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_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->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 proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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_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_setup_initialize_system 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_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_setup_initialize_system(self, param) 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 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 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body procedure, public :: init_particle_info => setup_initialize_particle_info_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 generic, public :: write_hdr => write_hdr_bin, write_hdr_netcdf Generic method call for writing headers procedure, public :: step => helio_step_system Advance the Helio nbody system forward in time by one step procedure, public :: initialize => helio_setup_initialize_system Performs Helio-specific initilization steps, including converting to DH coordinates type, public, extends( swiftest_cb ) :: helio_cb Helio central body particle class Components Type Visibility Attributes Name Initial type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf procedure, public :: read_in => io_read_in_cb 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_bin => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body generic, public :: write_frame => write_frame_netcdf, write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) type, public, extends( swiftest_pl ) :: helio_pl Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: index => util_index_eucl_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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 :: 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) 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 :: 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~rmvs_classes rmvs_classes module~rmvs_classes->module~whm_classes module~s_whm_util s_whm_util module~s_whm_util->module~whm_classes module~swiftest swiftest module~s_whm_util->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_setup s_whm_setup module~s_whm_setup->module~whm_classes module~s_whm_setup->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~whm_classes module~s_whm_coord->module~swiftest module~helio_classes helio_classes module~helio_classes->module~whm_classes module~s_whm_step s_whm_step module~s_whm_step->module~whm_classes module~s_whm_step->module~swiftest module~whm_drift whm_drift module~whm_drift->module~whm_classes module~whm_drift->module~swiftest module~swiftest->module~whm_classes module~swiftest->module~rmvs_classes module~swiftest->module~helio_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~s_whm_kick s_whm_kick module~s_whm_kick->module~whm_classes module~s_whm_kick->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~helio_classes module~s_helio_setup->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~rmvs_classes module~s_rmvs_step->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~rmvs_classes module~s_rmvs_chk->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->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_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_helio_gr s_helio_gr module~s_helio_gr->module~helio_classes module~s_helio_gr->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->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_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~rmvs_classes module~s_rmvs_discard->module~swiftest module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~rmvs_classes module~s_rmvs_util->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~rmvs_classes module~s_rmvs_io->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~rmvs_classes module~s_rmvs_kick->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~rmvs_classes module~s_rmvs_setup->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->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 proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_coord s_util_coord module~s_util_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_util_set s_util_set module~s_util_set->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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 whm_coord_h2j_pl whm_coord_j2h_pl whm_coord_vh2vj_pl whm_drift_pl whm_util_index_eucl_plpl 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 subroutine whm_util_index_eucl_plpl(self, param) 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 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 type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf procedure, public :: read_in => io_read_in_cb 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_bin => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body generic, public :: write_frame => write_frame_netcdf, write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) type, public, extends( swiftest_pl ) :: whm_pl WHM massive body particle class Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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 generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: index => util_index_eucl_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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) 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 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body procedure, public :: init_particle_info => setup_initialize_particle_info_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 generic, public :: write_hdr => write_hdr_bin, write_hdr_netcdf Generic method call for writing headers procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones procedure, public :: step => whm_step_system Advance the WHM nbody system forward in time by one step","tags":"","loc":"module/whm_classes.html"},{"title":"fraggle_classes – swiftest","text":"Definition of classes and methods specific to Fraggel: The Fragment Generation Model fraggle_fragments class definitions and method interfaces Uses swiftest_globals swiftest_classes module~~fraggle_classes~~UsesGraph module~fraggle_classes fraggle_classes module~swiftest_globals swiftest_globals module~fraggle_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~fraggle_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_fraggle_generate s_fraggle_io s_fraggle_placeholder s_fraggle_regime s_fraggle_set s_fraggle_setup s_fraggle_util module~~fraggle_classes~~UsedByGraph module~fraggle_classes fraggle_classes module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~fraggle_classes module~swiftest swiftest module~s_fraggle_placeholder->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->module~fraggle_classes module~s_fraggle_generate->module~swiftest module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~fraggle_classes module~s_fraggle_regime->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~fraggle_classes module~s_fraggle_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~fraggle_classes module~s_fraggle_set->module~swiftest module~swiftest->module~fraggle_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~symba_classes->module~fraggle_classes module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~fraggle_classes module~s_fraggle_io->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->module~fraggle_classes module~s_fraggle_util->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes 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_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->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 proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_setup s_setup module~s_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_version s_util_version module~s_util_version->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 FRAGGLE_NMASS_DIST FRAGGLE_LOG_OUT FRAGGLE_LOG_UNIT Interfaces fraggle_util_vmag_to_vb fraggle_generate_fragments fraggle_io_log_generate fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_regime fraggle_io_log_start fraggle_placeholder_accel fraggle_placeholder_kick fraggle_placeholder_step fraggle_regime_colliders fraggle_set_budgets_fragments fraggle_set_coordinate_system fraggle_set_mass_dist_fragments fraggle_set_natural_scale_factors fraggle_set_original_scale_factors fraggle_setup_fragments fraggle_setup_reset_fragments fraggle_util_add_fragments_to_system fraggle_util_ang_mtm fraggle_util_construct_temporary_system fraggle_util_get_energy_momentum fraggle_util_restructure fraggle_util_shift_vector_to_origin Derived Types fraggle_colliders fraggle_fragments Variables Type Visibility Attributes Name Initial integer(kind=I4B), public, parameter :: FRAGGLE_NMASS_DIST = 3 Number of mass bins returned by the regime calculation (largest fragment, second largest, and remainder) character(len=*), public, parameter :: FRAGGLE_LOG_OUT = \"fraggle.log\" Name of log file for Fraggle diagnostic information integer(kind=I4B), public, parameter :: FRAGGLE_LOG_UNIT = 76 Unit number for Fraggle log file fraggle_colliders class definitions and method interfaces Interfaces interface public module function fraggle_util_vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: v_r_mag Unknown radial component of fragment velocity vector real(kind=DP), intent(in), dimension(:,:) :: v_r_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: v_t_mag Tangential component of velocity vector set previously by angular momentum constraint real(kind=DP), intent(in), dimension(:,:) :: v_t_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(in), dimension(:) :: vcom Barycentric velocity of collisional system center of mass Return Value real(kind=DP),\n  dimension(:,:), allocatable interface public module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object containing the two-body equivalent values of the colliding bodies class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead? interface public module subroutine fraggle_io_log_generate(frag) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag interface public module subroutine fraggle_io_log_one_message(message) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: message interface public module subroutine fraggle_io_log_pl(pl, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl Swiftest massive body object (only the new bodies generated in a collision) class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters interface public module subroutine fraggle_io_log_regime(colliders, frag) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(in) :: colliders class( fraggle_fragments ), intent(in) :: frag interface public module subroutine fraggle_io_log_start(param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param interface public module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg) Implementation → The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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 Optional argument that determines whether or not this is the beginning or end of the step interface public module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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. interface public module subroutine fraggle_placeholder_step(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), 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 Stepsiz interface public module subroutine fraggle_regime_colliders(self, frag, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(inout) :: self Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters interface public module subroutine fraggle_set_budgets_fragments(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object interface public module subroutine fraggle_set_coordinate_system(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object interface public module subroutine fraggle_set_mass_dist_fragments(self, colliders, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters interface public module subroutine fraggle_set_natural_scale_factors(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object interface public module subroutine fraggle_set_original_scale_factors(self, colliders) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object interface public module subroutine fraggle_setup_fragments(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object integer(kind=I4B), intent(in) :: n Number of fragments class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters interface public module subroutine fraggle_setup_reset_fragments(self) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self interface public module subroutine fraggle_util_add_fragments_to_system(frag, colliders, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters interface public module subroutine fraggle_util_ang_mtm(self) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object interface public module subroutine fraggle_util_construct_temporary_system(frag, system, param, tmpsys, tmpparam) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Original swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters class( swiftest_nbody_system ), intent(out), allocatable :: tmpsys Output temporary swiftest nbody system object class( swiftest_parameters ), intent(out), allocatable :: tmpparam Output temporary configuration run parameters interface public module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters logical, intent(in) :: lbefore Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa interface public module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start) Implementation → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object integer(kind=I4B), intent(in) :: try The current number of times Fraggle has tried to find a solution real(kind=DP), intent(inout) :: f_spin Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real(kind=DP), intent(inout) :: r_max_start The maximum radial distance that the position calculation starts with. This increases after a failed attempt interface public module subroutine fraggle_util_shift_vector_to_origin(m_frag, vec_frag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(inout), dimension(:,:) :: vec_frag Fragment positions or velocities in the center of mass frame Derived Types type, public :: fraggle_colliders Class definition for the variables that describe the bodies involved in the collision Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: ncoll Number of bodies involved in the collision integer(kind=I4B), public, dimension(:), allocatable :: idx Index of bodies involved in the collision real(kind=DP), public, dimension(NDIM,2) :: xb Two-body equivalent position vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: vb Two-body equivalent velocity vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: rot Two-body equivalent principal axes moments of inertia the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: L_spin Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: L_orbit Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision real(kind=DP), public, dimension(NDIM,2) :: Ip Two-body equivalent principal axes moments of inertia the collider bodies prior to collision real(kind=DP), public, dimension(2) :: mass Two-body equivalent mass of the collider bodies prior to the collision real(kind=DP), public, dimension(2) :: radius Two-body equivalent radii of the collider bodies prior to the collision Type-Bound Procedures procedure, public :: regime => fraggle_regime_colliders Determine which fragmentation regime the set of colliders will be type, public, extends( swiftest_pl ) :: fraggle_fragments Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 :: mtot Total mass of fragments real(kind=DP), public :: Qloss Energy lost during the collision real(kind=DP), public, dimension(FRAGGLE_NMASS_DIST) :: mass_dist Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder) integer(kind=I4B), public :: regime Collresolve regime code for this collision real(kind=DP), public, dimension(NDIM) :: xbcom Center of mass position vector of the collider system in system barycentric coordinates real(kind=DP), public, dimension(NDIM) :: vbcom Velocity vector of the center of mass of the collider system in system barycentric coordinates real(kind=DP), public, dimension(NDIM) :: x_coll_unit x-direction unit vector of collisional system real(kind=DP), public, dimension(NDIM) :: y_coll_unit y-direction unit vector of collisional system real(kind=DP), public, dimension(NDIM) :: z_coll_unit z-direction unit vector of collisional system real(kind=DP), public, dimension(:,:), allocatable :: x_coll Array of fragment position vectors in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_coll Array of fragment velocity vectors in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_r_unit Array of radial direction unit vectors of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_t_unit Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:,:), allocatable :: v_n_unit Array of normal direction unit vectors of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:), allocatable :: rmag Array of radial distance magnitudes of individual fragments in the collisional coordinate frame real(kind=DP), public, dimension(:), allocatable :: rotmag Array of rotation magnitudes of individual fragments real(kind=DP), public, dimension(:), allocatable :: v_r_mag Array of radial direction velocity magnitudes of individual fragments real(kind=DP), public, dimension(:), allocatable :: v_t_mag Array of tangential direction velocity magnitudes of individual fragments real(kind=DP), public :: ke_orbit Current orbital kinetic energy of the system of fragments in the collisional frame real(kind=DP), public :: ke_spin Current spin kinetic energy of the system of fragments in the collisional frame real(kind=DP), public, dimension(NDIM) :: L_orbit Current orbital angular momentum of the system of fragments in the collisional frame real(kind=DP), public, dimension(NDIM) :: L_spin Current spin angular momentum of the system of fragments in the collisional frame real(kind=DP), public :: ke_budget Total kinetic energy budget for the system of fragmens in the collisional frame real(kind=DP), public, dimension(NDIM) :: L_budget Total angular momentum budget for the system of fragmens in the collisional frame real(kind=DP), public, dimension(NDIM) :: Lorbit_before Before/after orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lorbit_after Before/after orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_before Before/after spin angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_after Before/after spin angular momentum real(kind=DP), public, dimension(NDIM) :: Ltot_before Before/after total system angular momentum real(kind=DP), public, dimension(NDIM) :: Ltot_after Before/after total system angular momentum real(kind=DP), public :: ke_orbit_before Before/after orbital kinetic energy real(kind=DP), public :: ke_orbit_after Before/after orbital kinetic energy real(kind=DP), public :: ke_spin_before Before/after spin kinetic energy real(kind=DP), public :: ke_spin_after Before/after spin kinetic energy real(kind=DP), public :: pe_before Before/after potential energy real(kind=DP), public :: pe_after Before/after potential energy real(kind=DP), public :: Etot_before Before/after total system energy real(kind=DP), public :: Etot_after Before/after total system energy real(kind=DP), public :: dscale Distance dimension scale factor real(kind=DP), public :: mscale Mass scale factor real(kind=DP), public :: tscale Time scale factor real(kind=DP), public :: vscale Velocity scale factor (a convenience unit that is derived from dscale and tscale) real(kind=DP), public :: Escale Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale) real(kind=DP), public :: Lscale Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale) Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: index => util_index_eucl_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 :: 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 :: generate_fragments => fraggle_generate_fragments Generates a system of fragments in barycentric coordinates that conserves energy and momentum. procedure, public :: accel => fraggle_placeholder_accel Placeholder subroutine to fulfill requirement for an accel method procedure, public :: kick => fraggle_placeholder_kick Placeholder subroutine to fulfill requirement for a kick method procedure, public :: step => fraggle_placeholder_step Placeholder subroutine to fulfill requirement for a step method procedure, public :: set_budgets => fraggle_set_budgets_fragments Sets the energy and momentum budgets of the fragments based on the collider value procedure, public :: set_coordinate_system => fraggle_set_coordinate_system Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. procedure, public :: set_mass_dist => fraggle_set_mass_dist_fragments Sets the distribution of mass among the fragments depending on the regime type procedure, public :: set_natural_scale => fraggle_set_natural_scale_factors Scales dimenional quantities to ~O(1) with respect to the collisional system. procedure, public :: set_original_scale => fraggle_set_original_scale_factors Restores dimenional quantities back to the original system units procedure, public :: setup => fraggle_setup_fragments Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays. procedure, public :: reset => fraggle_setup_reset_fragments Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate) procedure, public :: get_ang_mtm => fraggle_util_ang_mtm Calcualtes the current angular momentum of the fragments procedure, public :: get_energy_and_momentum => fraggle_util_get_energy_momentum Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.) procedure, public :: restructure => fraggle_util_restructure Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints","tags":"","loc":"module/fraggle_classes.html"},{"title":"symba_classes – swiftest","text":"Definition of classes and methods specific to the SyMBA integrator\n Adapted from David E. Kaufmann's Swifter routine: module_symba.f90 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_encounter 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 fraggle_classes module~~symba_classes~~UsesGraph module~symba_classes symba_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~fraggle_classes fraggle_classes module~symba_classes->module~fraggle_classes module~helio_classes helio_classes module~symba_classes->module~helio_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_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_symba_collision s_symba_discard s_symba_drift s_symba_encounter_check 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_kick s_symba_kick module~s_symba_kick->module~symba_classes module~swiftest swiftest module~s_symba_kick->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_io s_symba_io module~s_symba_io->module~symba_classes module~s_symba_io->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_collision s_symba_collision module~s_symba_collision->module~symba_classes module~s_symba_collision->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_setup s_symba_setup module~s_symba_setup->module~symba_classes module~s_symba_setup->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_discard s_symba_discard module~s_symba_discard->module~symba_classes module~s_symba_discard->module~swiftest module~swiftest->module~symba_classes module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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 Interfaces symba_collision_check_encounter symba_encounter_check_pl symba_encounter_check symba_encounter_check_tp symba_collision_casedisruption symba_collision_casehitandrun symba_collision_casemerge symba_collision_encounter_extract_collisions symba_collision_make_colliders_pl symba_collision_resolve_fragmentations symba_collision_resolve_mergers symba_collision_resolve_plplenc symba_collision_resolve_pltpenc symba_discard_pl symba_drift_pl symba_drift_tp symba_encounter_check_one symba_util_index_eucl_plpl symba_io_param_reader symba_io_param_writer symba_io_write_discard symba_kick_getacch_int_pl symba_kick_getacch_pl symba_kick_getacch_tp symba_kick_encounter symba_setup_initialize_system symba_setup_merger symba_setup_pl symba_setup_encounter 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_encounter symba_util_append_merger symba_util_append_pl symba_util_append_tp symba_util_copy_encounter util_fill symba_util_fill_pl symba_util_fill_tp symba_util_peri_pl symba_util_rearray_pl symba_util_reset_kinship util_resize symba_util_resize_merger symba_util_resize_pl symba_util_resize_tp symba_util_sort_pl symba_util_sort_tp util_sort_rearrange symba_util_sort_rearrange_pl symba_util_sort_rearrange_tp util_spill symba_util_spill_pl symba_util_spill_encounter symba_util_spill_tp Derived Types symba_parameters symba_kinship symba_cb symba_pl symba_merger symba_tp symba_encounter 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 Interfaces interface public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision n 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(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_collision_casedisruption(system, param, colliders, frag) result(status) 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_collision_casehitandrun(system, param, colliders, frag) result(status) 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_collision_casemerge(system, param, colliders, frag) result(status) 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module subroutine symba_collision_encounter_extract_collisions(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 parameters interface public module subroutine symba_collision_make_colliders_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(inout) :: 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(inout) :: param Current run configuration parameters with SyMBA additions interface public module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec) 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(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level interface public module subroutine symba_collision_resolve_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 class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level 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_util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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_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(inout) :: param Current run configuration parameters interface public module subroutine symba_kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self 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_encounter(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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_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_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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), intent(in) :: t integer(kind=I4B), intent(in) :: ireci input recursion level interface public module subroutine symba_step_reset_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions public interface util_append 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_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), 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_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 interface public module subroutine symba_util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into public interface util_fill 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(inout) :: param Current run configuration parameters with SyMBA additions interface public module subroutine symba_util_reset_kinship(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(:) :: idx Index array of bodies to reset public interface util_resize 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 public interface util_sort_rearrange public subroutine symba_util_sort_rearrange_arr_kin(arr, ind, n) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange 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_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_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_encounter ), 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 :: maxid = -1 The current maximum particle id number 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 integer(kind=I8B), public :: ioutput = 0_I8B Output counter 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 Data representation type of input data files character(len=STRMAX), public :: in_form = XV Format of input data files (EL or XV) integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = NETCDF_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = NETCDF_DOUBLE_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XVEL Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file character(len=STRMAX), public :: particle_out = PARTICLE_OUTFILE Name of output particle information 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 :: GMtot_orig = 0.0_DP Initial system mass 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) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: GMescape = 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( netcdf_parameters ), public :: nciu Object containing NetCDF parameters real(kind=DP), public :: GMTINY = -1.0_DP Smallest G*mass that is fully gravitating real(kind=DP), public :: min_GMfrag = -1.0_DP Smallest G*mass that can be produced in a fragmentation event 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_in => io_read_in_param procedure, public :: reader => symba_io_param_reader procedure, public :: writer => symba_io_param_writer 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 type( swiftest_particle_info ), public :: info Particle metadata information 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 :: GM0 = 0.0_DP Initial G*mass of the central body real(kind=DP), public :: dGM = 0.0_DP Change in G*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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf procedure, public :: read_in => io_read_in_cb 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_bin => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body generic, public :: write_frame => write_frame_netcdf, write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) type, public, extends( helio_pl ) :: symba_pl SyMBA massive body class Components Type Visibility Attributes Name Initial logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 :: 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_colliders => symba_collision_make_colliders_pl When a single body is involved in more than one collision in a single step, it becomes part of a family procedure, public :: index => symba_util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix 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_int => symba_kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY 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 :: reset_kinship => symba_util_reset_kinship Resets the kinship status of 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:), allocatable :: ncomp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 :: 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_colliders => symba_collision_make_colliders_pl When a single body is involved in more than one collision in a single step, it becomes part of a family procedure, public :: index => symba_util_index_eucl_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix 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_int => symba_kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY 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 :: reset_kinship => symba_util_reset_kinship Resets the kinship status of 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) 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 :: 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_encounter SyMBA class for tracking 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures 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 :: write => io_write_encounter Write close encounter data to output binary file procedure, public :: collision_check => symba_collision_check_encounter Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_encounter Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: copy => symba_util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: spill => symba_util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: append => symba_util_append_encounter Appends elements from one structure to another type, public, extends( symba_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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures 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 :: write => io_write_encounter Write close encounter data to output binary file procedure, public :: collision_check => symba_collision_check_encounter Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_encounter Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: copy => symba_util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: spill => symba_util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: append => symba_util_append_encounter Appends elements from one structure to another procedure, public :: resolve_collision => symba_collision_resolve_pltpenc Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c type, public, extends( symba_encounter ) :: 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures 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 :: write => io_write_encounter Write close encounter data to output binary file procedure, public :: collision_check => symba_collision_check_encounter Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_encounter Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: copy => symba_util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: spill => symba_util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: append => symba_util_append_encounter Appends elements from one structure to another procedure, public :: extract_collisions => symba_collision_encounter_extract_collisions 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 procedure, public :: resolve_collision => symba_collision_resolve_plplenc Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c type, public, extends( helio_nbody_system ) :: symba_nbody_system Components Type Visibility Attributes Name Initial 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 class( symba_plplenc ), public, allocatable :: plplcollision_list List of massive body-massive body collisions 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata from file procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body procedure, public :: init_particle_info => setup_initialize_particle_info_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 generic, public :: write_hdr => write_hdr_bin, write_hdr_netcdf Generic method call for writing headers 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 fraggle_classes lambda_function walltime_classes 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_swiftest_particle_info class definitions and method interfaces 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_gr s_io s_kick s_netcdf 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_index 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_util_exit s_util_exit module~s_util_exit->module~swiftest_classes module~swiftest swiftest module~s_util_exit->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest_classes module~s_netcdf->module~swiftest module~fraggle_classes fraggle_classes module~fraggle_classes->module~swiftest_classes module~s_util_solve s_util_solve module~s_util_solve->module~swiftest_classes module~s_util_solve->module~swiftest module~s_io s_io module~s_io->module~swiftest_classes module~s_io->module~swiftest module~helio_classes helio_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~symba_classes symba_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~s_util_append s_util_append module~s_util_append->module~swiftest_classes module~s_util_append->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest_classes module~s_util_fill->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_obl s_obl module~s_obl->module~swiftest_classes module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest_classes module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest_classes module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest_classes module~drift_implementation->module~swiftest module~whm_classes->module~swiftest_classes module~s_gr s_gr module~s_gr->module~swiftest_classes module~s_gr->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_rescale s_util_rescale module~s_util_rescale->module~swiftest_classes module~s_util_rescale->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_kick s_kick module~s_kick->module~swiftest_classes module~s_kick->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest_classes module~s_util_index->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_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_peri s_util_peri module~s_util_peri->module~swiftest_classes module~s_util_peri->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~swiftest->module~swiftest_classes module~swiftest->module~fraggle_classes module~swiftest->module~helio_classes module~swiftest->module~symba_classes module~swiftest->module~whm_classes module~swiftest->module~rmvs_classes module~s_util_spill s_util_spill module~s_util_spill->module~swiftest_classes module~s_util_spill->module~swiftest proc~xv2el xv2el proc~xv2el->module~swiftest_classes module~s_util_copy s_util_copy module~s_util_copy->module~swiftest_classes module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest_classes module~s_orbel->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_setup s_setup module~s_setup->module~swiftest_classes module~s_setup->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_version s_util_version module~s_util_version->module~swiftest_classes module~s_util_version->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_drift s_symba_drift module~s_symba_drift->module~symba_classes module~s_symba_drift->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~whm_classes module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~helio_classes module~s_helio_setup->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~whm_classes module~s_whm_setup->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_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~symba_classes module~s_symba_encounter_check->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->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_util s_symba_util module~s_symba_util->module~symba_classes module~s_symba_util->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_rmvs_chk->module~rmvs_classes module~s_helio_kick s_helio_kick module~s_helio_kick->module~helio_classes module~s_helio_kick->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~symba_classes module~s_symba_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_discard s_symba_discard module~s_symba_discard->module~symba_classes module~s_symba_discard->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~whm_classes module~s_whm_step->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_rmvs_discard->module~rmvs_classes module~whm_drift whm_drift module~whm_drift->module~whm_classes module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_rmvs_util->module~rmvs_classes module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~fraggle_classes module~s_fraggle_io->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_rmvs_io->module~rmvs_classes module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_rmvs_kick->module~rmvs_classes module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~fraggle_classes module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_rmvs_setup->module~rmvs_classes module~s_whm_gr s_whm_gr module~s_whm_gr->module~whm_classes module~s_whm_gr->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->module~fraggle_classes module~s_fraggle_generate->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~symba_classes module~s_symba_setup->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~fraggle_classes module~s_fraggle_setup->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->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_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~whm_classes module~s_whm_kick->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~symba_classes module~s_symba_io->module~swiftest module~rmvs_classes->module~whm_classes module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~fraggle_classes module~s_fraggle_regime->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~fraggle_classes module~s_fraggle_set->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->module~fraggle_classes module~s_fraggle_util->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 io_get_args io_get_old_t_final_system io_get_token io_read_frame_body io_read_frame_cb io_read_frame_system discard_pl discard_system discard_tp drift_all drift_body drift_one util_index_eucl_plpl util_index_eucl_pltp 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_particle_info_base io_dump_particle_info io_dump_base io_dump_system io_param_reader io_param_writer io_read_in_body io_read_in_cb io_read_in_param io_read_in_particle_info io_read_particle_info_system io_write_discard io_toupper io_write_encounter io_write_frame_body io_write_frame_cb io_write_frame_encounter io_write_frame_system io_write_hdr_system kick_getacch_int_all_pl kick_getacch_int_one_pl kick_getacch_int_one_tp kick_getacch_int_pl kick_getacch_int_tp netcdf_close netcdf_initialize_output netcdf_open netcdf_write_frame_base netcdf_write_frame_system netcdf_write_hdr_system netcdf_write_particle_info_base obl_acc_body obl_acc_pl obl_acc_tp obl_pot_system orbel_el2xv_vec orbel_scget orbel_xv2aeq orbel_xv2aqt orbel_xv2el orbel_xv2el_vec setup_body setup_construct_system setup_encounter setup_initialize_particle_info_system 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_encounter util_append_pl util_append_tp util_coord_b2h_pl util_coord_b2h_tp util_coord_h2b_pl util_coord_h2b_tp util_coord_vb2vh_pl util_coord_vb2vh_tp util_coord_vh2vb_pl util_coord_vh2vb_tp util_coord_xh2xb_pl util_coord_xh2xb_tp util_copy_encounter util_copy_particle_info util_copy_particle_info_arr 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_particle_info util_set_rhill util_set_rhill_approximate util_solve_linear_system util_solve_rkf45 util_sort util_sort_rearrange 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_read_frame abstract_discard_body abstract_accel abstract_kick_body abstract_set_mu abstract_step_body abstract_step_system Derived Types netcdf_parameters swiftest_parameters swiftest_particle_info 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_old_t_final_system(self, param) result(old_t_final) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) 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 function io_read_frame_body(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful interface public module function io_read_frame_cb(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful interface public module function io_read_frame_system(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful 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 util_index_eucl_plpl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine util_index_eucl_pltp(self, pl, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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 Swiftestcentric 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 Swiftestcentric 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 Swiftestcentric position vector real(kind=DP), intent(in), dimension(:) :: vh Swiftestcentric 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_particle_info_base(self, param, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file interface public module subroutine io_dump_particle_info(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in) :: self Swiftest particle info metadata object integer(kind=I4B), intent(in) :: iu Open unformatted file unit number interface public module subroutine io_dump_base(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_in_body(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_in_cb(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_in_param(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_in_particle_info(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number interface public module subroutine io_read_particle_info_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(inout) :: param Current run configuration parameters 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(inout) :: 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(self, pl, encbody, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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_encounter(iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Open file unit number real(kind=DP), intent(in) :: t Time of encounter integer(kind=I4B), intent(in) :: id1 ids of the two encountering bodies integer(kind=I4B), intent(in) :: id2 ids of the two encountering bodies real(kind=DP), intent(in) :: Gmass1 G*mass of the two encountering bodies real(kind=DP), intent(in) :: Gmass2 G*mass of the two encountering bodies real(kind=DP), intent(in) :: radius1 Radii of the two encountering bodies real(kind=DP), intent(in) :: radius2 Radii of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh1 Swiftestcentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh2 Swiftestcentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh1 Swiftestcentric velocity vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh2 Swiftestcentric velocity vectors of the two encountering bodies interface public module subroutine io_write_frame_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_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine kick_getacch_int_all_pl(npl, nplpl, k_plpl, x, Gmass, radius, acc) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I8B), intent(in) :: nplpl Number of massive body interactions to compute integer(kind=I4B), intent(in), dimension(:,:) :: k_plpl Array of interaction pair indices (flattened upper triangular matrix) real(kind=DP), intent(in), dimension(:,:) :: x Position vector array real(kind=DP), intent(in), dimension(:) :: Gmass Array of massive body G*mass real(kind=DP), intent(in), dimension(:) :: radius Array of massive body radii real(kind=DP), intent(inout), dimension(:,:) :: acc Acceleration vector array interface public pure module subroutine kick_getacch_int_one_pl(rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the two bodies real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmi G*mass of body i real(kind=DP), intent(in) :: Gmj G*mass of body j real(kind=DP), intent(inout) :: axi Acceleration vector components of body i real(kind=DP), intent(inout) :: ayi Acceleration vector components of body i real(kind=DP), intent(inout) :: azi Acceleration vector components of body i real(kind=DP), intent(inout) :: axj Acceleration vector components of body j real(kind=DP), intent(inout) :: ayj Acceleration vector components of body j real(kind=DP), intent(inout) :: azj Acceleration vector components of body j interface public pure module subroutine kick_getacch_int_one_tp(rji2, xr, yr, zr, Gmpl, ax, ay, az) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the test particle and massive body real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmpl G*mass of massive body real(kind=DP), intent(inout) :: ax Acceleration vector components of test particle real(kind=DP), intent(inout) :: ay Acceleration vector components of test particle real(kind=DP), intent(inout) :: az Acceleration vector components of test particle interface public module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object 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 netcdf_close(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine netcdf_initialize_output(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine netcdf_open(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine netcdf_write_frame_base(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public subroutine netcdf_write_frame_system(self, iu, param) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine netcdf_write_hdr_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine netcdf_write_particle_info_base(self, iu) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset 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_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object 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 pure module subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm) 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) :: inc inclination real(kind=DP), intent(out) :: capom longitude of ascending node real(kind=DP), intent(out) :: omega argument of periapsis real(kind=DP), intent(out) :: capm mean anomaly 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(inout) :: 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_particle_info_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(inout) :: param Current run configuration parameters 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_info(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( swiftest_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 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_encounter(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list object class( swiftest_encounter ), 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_coord_vb2vh_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_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body interface public module subroutine util_coord_vh2vb_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_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body interface public module subroutine util_coord_xh2xb_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_xh2xb_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_copy_particle_info(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self class( swiftest_particle_info ), intent(in) :: source interface public module subroutine util_copy_particle_info_arr(source, dest, idx) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in), dimension(:) :: source Source object to copy into class( swiftest_particle_info ), intent(inout), dimension(:) :: dest Swiftest body object with particle metadata information object integer(kind=I4B), intent(in), optional dimension(:) :: idx Optional array of indices to draw the source object 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_info(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 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, maxloop, 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 integer(kind=I4B), intent(in) :: maxloop 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_info(arr, nnew) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), 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_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self character(len=*), intent(in), optional :: name Non-unique name character(len=*), intent(in), optional :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=*), intent(in), optional :: status Particle status description: Active, Merged, Fragmented, etc. character(len=*), intent(in), optional :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), intent(in), optional :: origin_time The time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_vh The heliocentric velocity vector at the time of the particle's formation real(kind=DP), intent(in), optional :: discard_time The time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), intent(in), optional :: discard_body_id The id of the other body involved in the discard (0 if no other body involved) 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 public interface util_sort_rearrange public subroutine util_sort_rearrange_arr_char_string(arr, ind, n) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_DP(arr, ind, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_DPvec(arr, ind, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_I4B(arr, ind, n) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_info(arr, ind, n) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange public subroutine util_sort_rearrange_arr_logical(arr, ind, n) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange 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_I8B(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I8B), 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_info(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 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(inout) :: param Current run configuration parameters interface public module subroutine util_version() Implementation → Arguments None Abstract Interfaces abstract interface public function abstract_read_frame(self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful 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_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_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 Derived Types type, public :: netcdf_parameters Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: out_type NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter) integer(kind=I4B), public :: ncid NetCDF ID for the output file integer(kind=I4B), public :: dimids (3) Dimensions of the NetCDF file integer(kind=I4B), public :: time_dimid NetCDF ID for the time dimension integer(kind=I4B), public :: id_dimid NetCDF ID for the particle id dimension integer(kind=I4B), public :: str_dimid NetCDF ID for the character string dimension integer(kind=I4B), public :: time_varid NetCDF ID for the time variable integer(kind=I4B), public :: id_varid NetCDF ID for the particle name variable integer(kind=I4B), public :: name_varid NetCDF ID for the namevariable integer(kind=I4B), public :: ptype_varid NetCDF ID for the particle type variable integer(kind=I4B), public :: npl_varid NetCDF ID for the number of active massive bodies variable integer(kind=I4B), public :: ntp_varid NetCDF ID for the number of active test particles variable integer(kind=I4B), public :: a_varid NetCDF ID for the semimajor axis variable integer(kind=I4B), public :: e_varid NetCDF ID for the eccentricity variable integer(kind=I4B), public :: inc_varid NetCDF ID for the inclination variable integer(kind=I4B), public :: capom_varid NetCDF ID for the long. asc. node variable integer(kind=I4B), public :: omega_varid NetCDF ID for the arg. periapsis variable integer(kind=I4B), public :: capm_varid NetCDF ID for the mean anomaly variable integer(kind=I4B), public :: xhx_varid NetCDF ID for the heliocentric position x variable integer(kind=I4B), public :: xhy_varid NetCDF ID for the heliocentric position y variable integer(kind=I4B), public :: xhz_varid NetCDF ID for the heliocentric position z variable integer(kind=I4B), public :: vhx_varid NetCDF ID for the heliocentric velocity x variable integer(kind=I4B), public :: vhy_varid NetCDF ID for the heliocentric velocity y variable integer(kind=I4B), public :: vhz_varid NetCDF ID for the heliocentric velocity z variable integer(kind=I4B), public :: Gmass_varid NetCDF ID for the mass variable integer(kind=I4B), public :: rhill_varid NetCDF ID for the hill radius variable integer(kind=I4B), public :: radius_varid NetCDF ID for the radius variable integer(kind=I4B), public :: Ip1_varid NetCDF ID for the axis 1 principal moment of inertia variable integer(kind=I4B), public :: Ip2_varid NetCDF ID for the axis 2 principal moment of inertia variable integer(kind=I4B), public :: Ip3_varid NetCDF ID for the axis 3 principal moment of inertia variable integer(kind=I4B), public :: rotx_varid NetCDF ID for the rotation x variable integer(kind=I4B), public :: roty_varid NetCDF ID for the rotation y variable integer(kind=I4B), public :: rotz_varid NetCDF ID for the rotation z variable integer(kind=I4B), public :: k2_varid NetCDF ID for the Love number variable integer(kind=I4B), public :: Q_varid NetCDF ID for the energy dissipation variable integer(kind=I4B), public :: KE_orb_varid NetCDF ID for the system orbital kinetic energy variable integer(kind=I4B), public :: KE_spin_varid NetCDF ID for the system spin kinetic energy variable integer(kind=I4B), public :: PE_varid NetCDF ID for the system potential energy variable integer(kind=I4B), public :: L_orbx_varid NetCDF ID for the system orbital angular momentum x variable integer(kind=I4B), public :: L_orby_varid NetCDF ID for the system orbital angular momentum y variable integer(kind=I4B), public :: L_orbz_varid NetCDF ID for the system orbital angular momentum z variable integer(kind=I4B), public :: L_spinx_varid NetCDF ID for the system spin angular momentum x variable integer(kind=I4B), public :: L_spiny_varid NetCDF ID for the system spin angular momentum y variable integer(kind=I4B), public :: L_spinz_varid NetCDF ID for the system spin angular momentum z variable integer(kind=I4B), public :: L_escapex_varid NetCDF ID for the escaped angular momentum x variable integer(kind=I4B), public :: L_escapey_varid NetCDF ID for the escaped angular momentum x variable integer(kind=I4B), public :: L_escapez_varid NetCDF ID for the escaped angular momentum x variable integer(kind=I4B), public :: Ecollisions_varid NetCDF ID for the energy lost in collisions variable integer(kind=I4B), public :: Euntracked_varid NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies) integer(kind=I4B), public :: GMescape_varid NetCDF ID for the G*Mass of bodies that escape the system integer(kind=I4B), public :: status_varid NetCDF ID for the status variable integer(kind=I4B), public :: origin_type_varid NetCDF ID for the origin type integer(kind=I4B), public :: origin_time_varid NetCDF ID for the origin time integer(kind=I4B), public :: origin_xhx_varid NetCDF ID for the origin xh x component integer(kind=I4B), public :: origin_xhy_varid NetCDF ID for the origin xh y component integer(kind=I4B), public :: origin_xhz_varid NetCDF ID for the origin xh z component integer(kind=I4B), public :: origin_vhx_varid NetCDF ID for the origin xh x component integer(kind=I4B), public :: origin_vhy_varid NetCDF ID for the origin xh y component integer(kind=I4B), public :: origin_vhz_varid NetCDF ID for the origin xh z component integer(kind=I4B), public :: discard_time_varid NetCDF ID for the time of discard variable integer(kind=I4B), public :: discard_xhx_varid NetCDF ID for the heliocentric position of the body at the time of discard x variable integer(kind=I4B), public :: discard_xhy_varid NetCDF ID for the heliocentric position of the body at the time of discard y variable integer(kind=I4B), public :: discard_xhz_varid NetCDF ID for the heliocentric position of the body at the time of discard z variable integer(kind=I4B), public :: discard_vhx_varid NetCDF ID for the heliocentric velocity of the body at the time of discard x variable integer(kind=I4B), public :: discard_vhy_varid NetCDF ID for the heliocentric velocity of the body at the time of discard y variable integer(kind=I4B), public :: discard_vhz_varid NetCDF ID for the heliocentric velocity of the body at the time of discard z variable integer(kind=I4B), public :: discard_body_id_varid NetCDF ID for the id of the other body involved in the discard Type-Bound Procedures procedure, public :: close => netcdf_close Closes an open NetCDF file procedure, public :: initialize => netcdf_initialize_output Initialize a set of parameters used to identify a NetCDF output object procedure, public :: open => netcdf_open Opens a NetCDF file 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 :: maxid = -1 The current maximum particle id number 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 integer(kind=I8B), public :: ioutput = 0_I8B Output counter 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 Data representation type of input data files character(len=STRMAX), public :: in_form = XV Format of input data files (EL or XV) integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = NETCDF_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = NETCDF_DOUBLE_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XVEL Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file character(len=STRMAX), public :: particle_out = PARTICLE_OUTFILE Name of output particle information 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 :: GMtot_orig = 0.0_DP Initial system mass 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) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: GMescape = 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( netcdf_parameters ), public :: nciu Object containing NetCDF parameters Type-Bound Procedures procedure, public :: reader => io_param_reader procedure, public :: writer => io_param_writer procedure, public :: dump => io_dump_param procedure, public :: read_in => io_read_in_param type, public :: swiftest_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=NAMELEN), public :: name Non-unique name character(len=NAMELEN), public :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=NAMELEN), 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 real(kind=DP), public :: discard_time The time of the particle's discard character(len=NAMELEN), public :: status Particle status description: Active, Merged, Fragmented, etc. real(kind=DP), public, dimension(NDIM) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), public, dimension(NDIM) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), public :: discard_body_id The id of the other body involved in the discard (0 if no other body involved) Type-Bound Procedures procedure, public :: dump => io_dump_particle_info Dumps contents of particle information to file procedure, public :: read_in => io_read_in_particle_info Read in a particle information object from an open file procedure, public :: copy => util_copy_particle_info Copies one set of information object components into another, component-by-component procedure, public :: set_value => util_set_particle_info Sets one or more values of the particle information metadata object type, public, abstract :: swiftest_base An abstract superclass for a generic Swiftest object\n The minimal methods that all systems must have Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_frame => write_frame_netcdf Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments generic, public :: write_particle_info => write_particle_info_netcdf 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 type( swiftest_particle_info ), public :: info Particle metadata information 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf procedure, public :: read_in => io_read_in_cb 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_bin => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body generic, public :: write_frame => write_frame_netcdf, write_frame_bin Write a frame (either binary or NetCDF, using generic procedures) 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: index => util_index_eucl_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 :: vh2vb => util_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => util_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_pl Convert massive bodies from heliocentric to barycentric coordinates (position only) 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 :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies type( swiftest_particle_info ), public, dimension(:), allocatable :: info Particle metadata information 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 Swiftestcentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Swiftestcentric 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 integer(kind=I4B), public, dimension(:,:), allocatable :: k_pltp Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: npltp Number of pl-tp 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_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_base Dump contents to file procedure, public :: dump_particle_info => io_dump_particle_info_base Dump contents of particle information metadata to file procedure, public :: write_frame_netcdf => netcdf_write_frame_base I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format procedure, public :: write_particle_info_netcdf => netcdf_write_particle_info_base Writes out the particle information metadata to NetCDF file generic, public :: write_particle_info => write_particle_info_netcdf 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 :: read_in => io_read_in_body 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_bin => 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) generic, public :: write_frame => write_frame_netcdf, write_frame_bin Add the generic write frame for Fortran binary files 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 :: vb2vh => util_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: vh2vb => util_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: xh2xb => util_coord_xh2xb_tp Convert test particles from heliocentric to barycentric coordinates (position only) 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 :: 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 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 :: oblpot = 0.0_DP System potential energy due to oblateness of the central body 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) :: Ltot = 0.0_DP System angular momentum vector 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 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 :: get_old_t_final => io_get_old_t_final_system Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: read_particle_info => io_read_particle_info_system Read in particle metadata 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 :: write_hdr_bin => io_write_hdr_system Write a header for an output frame in Fortran binary format procedure, public :: write_hdr_netcdf => netcdf_write_hdr_system Write a header for an output frame in NetCDF format procedure, public :: obl_pot => obl_pot_system Compute the contribution to the total gravitational potential due solely to the oblateness of the central body procedure, public :: initialize => setup_initialize_system Initialize the system from input files procedure, public :: init_particle_info => setup_initialize_particle_info_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 generic, public :: write_hdr => write_hdr_bin, write_hdr_netcdf Generic method call for writing headers 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=I8B), public, dimension(:), allocatable :: kidx index value of the encounter from the master k_plpl encounter list 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 integer(kind=I4B), public, dimension(:), allocatable :: id1 id of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: id2 id 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 real(kind=DP), public, dimension(:), allocatable :: t Time of 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 :: append => util_append_encounter Appends elements from one structure to another 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. procedure, public :: write => io_write_encounter Write close encounter data to output binary file","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_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_helio_setup s_helio_setup module~s_helio_setup->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_netcdf s_netcdf module~s_netcdf->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~orbel orbel module~orbel->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_fraggle_io s_fraggle_io module~s_fraggle_io->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_rmvs_io s_rmvs_io module~s_rmvs_io->module~swiftest module~s_fraggle_placeholder s_fraggle_placeholder module~s_fraggle_placeholder->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_fraggle_generate s_fraggle_generate module~s_fraggle_generate->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 proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_fraggle_setup s_fraggle_setup module~s_fraggle_setup->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_util_index s_util_index module~s_util_index->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->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_peri s_util_peri module~s_util_peri->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_fraggle_regime s_fraggle_regime module~s_fraggle_regime->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_fraggle_set s_fraggle_set module~s_fraggle_set->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_fraggle_util s_fraggle_util module~s_fraggle_util->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 swiftest module~s_kick->module~swiftest module~swiftest_classes swiftest_classes module~s_kick->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 kick_getacch_int_all_pl kick_getacch_int_one_pl kick_getacch_int_one_tp Module Subroutines 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 module subroutine kick_getacch_int_all_pl (npl, nplpl, k_plpl, x, Gmass, radius, acc) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations for massive bodies, with parallelization Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I8B), intent(in) :: nplpl Number of massive body interactions to compute integer(kind=I4B), intent(in), dimension(:,:) :: k_plpl Array of interaction pair indices (flattened upper triangular matrix) real(kind=DP), intent(in), dimension(:,:) :: x Position vector array real(kind=DP), intent(in), dimension(:) :: Gmass Array of massive body G*mass real(kind=DP), intent(in), dimension(:) :: radius Array of massive body radii real(kind=DP), intent(inout), dimension(:,:) :: acc Acceleration vector array pure module subroutine kick_getacch_int_one_pl (rji2, xr, yr, zr, Gmi, Gmj, axi, ayi, azi, axj, ayj, azj) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations for a single pair of massive bodies Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the two bodies real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmi G*mass of body i real(kind=DP), intent(in) :: Gmj G*mass of body j real(kind=DP), intent(inout) :: axi Acceleration vector components of body i real(kind=DP), intent(inout) :: ayi Acceleration vector components of body i real(kind=DP), intent(inout) :: azi Acceleration vector components of body i real(kind=DP), intent(inout) :: axj Acceleration vector components of body j real(kind=DP), intent(inout) :: ayj Acceleration vector components of body j real(kind=DP), intent(inout) :: azj Acceleration vector components of body j pure module subroutine kick_getacch_int_one_tp (rji2, xr, yr, zr, Gmpl, ax, ay, az) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations of a single test particle massive body pair. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: rji2 Square of distance between the test particle and massive body real(kind=DP), intent(in) :: xr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: yr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: zr Distances between the two bodies in x, y, and z directions real(kind=DP), intent(in) :: Gmpl G*mass of massive body real(kind=DP), intent(inout) :: ax Acceleration vector components of test particle real(kind=DP), intent(inout) :: ay Acceleration vector components of test particle real(kind=DP), intent(inout) :: az Acceleration vector components of test particle","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 swiftest module~s_tides_kick_getacch->module~swiftest module~swiftest_classes swiftest_classes module~s_tides_kick_getacch->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_tides_step_spin->module~swiftest module~swiftest_classes swiftest_classes module~s_tides_step_spin->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_obl->module~swiftest module~swiftest_classes swiftest_classes module~s_obl->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 obl_pot_one Module Subroutines obl_acc_body obl_acc_pl obl_acc_tp obl_pot_system Functions elemental function obl_pot_one (npl, GMcb, GMpl, j2rp2, j4rp4, zh, irh) result(oblpot) Author David A. Minton Compute the contribution to the total gravitational potential due solely to the oblateness of the central body from a single massive 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 Number of massive bodies real(kind=DP), intent(in) :: GMcb G*mass of the central body real(kind=DP), intent(in) :: GMpl G*mass of the massive body real(kind=DP), intent(in) :: j2rp2 J_2 / R**2 of the central body real(kind=DP), intent(in) :: j4rp4 J_2 / R**4 of the central body real(kind=DP), intent(in) :: zh z-component of the heliocentric distance vector of the massive body real(kind=DP), intent(in) :: irh Inverse of the heliocentric distance magnitude of the massive body Return Value real(kind=DP) Gravitational potential 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_system (self) 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 class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object","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 swiftest module~s_orbel->module~swiftest module~swiftest_classes swiftest_classes module~s_orbel->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 Module Subroutines orbel_el2xv_vec orbel_scget orbel_xv2aeq orbel_xv2aqt orbel_xv2el_vec orbel_xv2el 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 Module Subroutines module subroutine orbel_el2xv_vec (self, cb) Interface → Author David A. Minton A wrapper method that converts all of the orbital element vectors into cartesian position and velocity vectors for a Swiftest body object.\n This method deallocates all of the orbital elements after it is finished. 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 pure module subroutine orbel_xv2el (mu, x, v, a, e, inc, capom, omega, capm) Interface → 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 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) :: inc inclination real(kind=DP), intent(out) :: capom longitude of ascending node real(kind=DP), intent(out) :: omega argument of periapsis real(kind=DP), intent(out) :: capm mean anomaly","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~swiftest swiftest module~s_whm_coord->module~swiftest module~whm_classes whm_classes module~s_whm_coord->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~swiftest swiftest module~s_whm_gr->module~swiftest module~whm_classes whm_classes module~s_whm_gr->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~swiftest swiftest module~s_whm_step->module~swiftest module~whm_classes whm_classes module~s_whm_step->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~swiftest swiftest module~whm_drift->module~swiftest module~whm_classes whm_classes module~whm_drift->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~swiftest swiftest module~s_whm_kick->module~swiftest module~whm_classes whm_classes module~s_whm_kick->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~swiftest swiftest module~s_whm_setup->module~swiftest module~whm_classes whm_classes module~s_whm_setup->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 WHM nbody 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~swiftest swiftest module~s_whm_util->module~swiftest module~whm_classes whm_classes module~s_whm_util->module~whm_classes module~swiftest->module~whm_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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), 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~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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 swiftest module~s_util_solve->module~swiftest module~swiftest_classes swiftest_classes module~s_util_solve->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_util_set->module~swiftest module~swiftest_classes swiftest_classes module~s_util_set->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_particle_info 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_particle_info (self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id) Interface → Author David A. Minton Sets one or more values of the particle information metadata object Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self character(len=*), intent(in), optional :: name Non-unique name character(len=*), intent(in), optional :: particle_type String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle) character(len=*), intent(in), optional :: status Particle status description: ACTIVE, MERGED, FRAGMENTED, etc. character(len=*), intent(in), optional :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), intent(in), optional :: origin_time The time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), intent(in), optional dimension(:) :: origin_vh The heliocentric velocity vector at the time of the particle's formation real(kind=DP), intent(in), optional :: discard_time The time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_xh The heliocentric distance vector at the time of the particle's discard real(kind=DP), intent(in), optional dimension(:) :: discard_vh The heliocentric velocity vector at the time of the particle's discard integer(kind=I4B), intent(in), optional :: discard_body_id The id of the other body involved in the discard (0 if no other body involved) 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 swiftest module~s_util_peri->module~swiftest module~swiftest_classes swiftest_classes module~s_util_peri->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_util_coord->module~swiftest module~swiftest_classes swiftest_classes module~s_util_coord->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 util_coord_vb2vh_pl util_coord_vb2vh_tp util_coord_vh2vb_pl util_coord_vh2vb_tp util_coord_xh2xb_pl util_coord_xh2xb_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 test particles 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 module subroutine util_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( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_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( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body module subroutine util_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( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_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( swiftest_tp ), intent(inout) :: self Swiftest test particle object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body module subroutine util_coord_xh2xb_pl (self, cb) Interface → Author David A. Minton Convert position vectors of massive bodies from heliocentric to barycentric coordinates (position only) 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_xh2xb_tp (self, cb) Interface → Author David A. Minton Convert test particles from heliocentric to barycentric coordinates (position only) 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","tags":"","loc":"module/s_util_coord.html"},{"title":"s_util_index – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_index~~UsesGraph module~s_util_index s_util_index module~swiftest swiftest module~s_util_index->module~swiftest module~swiftest_classes swiftest_classes module~s_util_index->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_index_eucl_plpl util_index_eucl_pltp Module Subroutines module subroutine util_index_eucl_plpl (self, param) Interface → Author Jacob R. Elliott and David A. Minton Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine util_index_eucl_pltp (self, pl, param) Interface → Author Jacob R. Elliott and David A. Minton Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_util_index.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 swiftest module~s_util_rescale->module~swiftest module~swiftest_classes swiftest_classes module~s_util_rescale->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_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 swiftest module~s_util_version->module~swiftest module~swiftest_classes swiftest_classes module~s_util_version->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_util_sort->module~swiftest module~swiftest_classes swiftest_classes module~s_util_sort->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_dp util_sort_index_dp util_sort_i4b util_sort_index_i4b util_sort_sp util_sort_index_sp util_sort_pl util_sort_tp util_sort_rearrange_body util_sort_rearrange_arr_char_string util_sort_rearrange_arr_DP util_sort_rearrange_arr_DPvec util_sort_rearrange_arr_I4B util_sort_rearrange_arr_logical util_sort_rearrange_arr_info util_sort_rearrange_pl util_sort_rearrange_tp 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 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 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) subroutine util_sort_rearrange_arr_char_string (arr, ind, n) Author David A. Minton Rearrange a single array of character string in-place from an index list. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange subroutine util_sort_rearrange_arr_DP (arr, ind, n) Author David A. Minton Rearrange a single array of DP type in-place from an index list. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange subroutine util_sort_rearrange_arr_DPvec (arr, ind, n) Author David A. Minton Rearrange a single array of (NDIM,n) DP-type vectors in-place from an index list. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange subroutine util_sort_rearrange_arr_I4B (arr, ind, n) Author David A. Minton Rearrange a single array of integers in-place from an index list. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange subroutine util_sort_rearrange_arr_logical (arr, ind, n) Author David A. Minton Rearrange a single array of logicals in-place from an index list. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange subroutine util_sort_rearrange_arr_info (arr, ind, n) Author David A. Minton Rearrange a single array of particle information type in-place from an index list. Arguments Type Intent Optional Attributes Name type( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange 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)","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 swiftest module~s_util_spill->module~swiftest module~swiftest_classes swiftest_classes module~s_util_spill->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_I8B util_spill_arr_info 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_I8B (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=I8B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I8B), 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_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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 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 swiftest module~s_util_valid->module~swiftest module~swiftest_classes swiftest_classes module~s_util_valid->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_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(inout) :: 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 swiftest module~s_util_exit->module~swiftest module~swiftest_classes swiftest_classes module~s_util_exit->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_util_fill->module~swiftest module~swiftest_classes swiftest_classes module~s_util_fill->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_info 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_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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( swiftest_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 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 swiftest module~s_util_resize->module~swiftest module~swiftest_classes swiftest_classes module~s_util_resize->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_info 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. 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. 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). 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. 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_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( swiftest_particle_info ), 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. 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 massive 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 test particle 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 test particle 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 swiftest module~s_util_copy->module~swiftest module~swiftest_classes swiftest_classes module~s_util_copy->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 util_copy_particle_info util_copy_particle_info_arr 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 module subroutine util_copy_particle_info (self, source) Interface → Author David A. Minton Copies one set of information object components into another, component-by-component Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self class( swiftest_particle_info ), intent(in) :: source module subroutine util_copy_particle_info_arr (source, dest, idx) Interface → Author David A. Minton Copies contents from an array of one particle information objects to another. Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in), dimension(:) :: source Source object to copy into class( swiftest_particle_info ), intent(inout), dimension(:) :: dest Swiftest body object with particle metadata information object integer(kind=I4B), intent(in), optional dimension(:) :: idx Optional array of indices to draw the source object","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 swiftest module~s_util_minimize_bfgs->module~swiftest module~swiftest_classes swiftest_classes module~s_util_minimize_bfgs->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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, maxloop, 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   maxloop : Maximum number of loops to attempt to find a solution\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 integer(kind=I4B), intent(in) :: maxloop 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 swiftest module~s_util_append->module~swiftest module~swiftest_classes swiftest_classes module~s_util_append->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_info util_append_arr_logical util_append_body util_append_encounter 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_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( swiftest_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( swiftest_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 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_encounter (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_encounter ), intent(inout) :: self Swiftest encounter list object class( swiftest_encounter ), 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 swiftest module~s_util_get_energy_momentum->module~swiftest module~swiftest_classes swiftest_classes module~s_util_get_energy_momentum->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_gr->module~swiftest module~swiftest_classes swiftest_classes module~s_gr->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~s_discard->module~swiftest module~swiftest_classes swiftest_classes module~s_discard->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_setup – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_setup~~UsesGraph module~s_helio_setup s_helio_setup module~helio_classes helio_classes module~s_helio_setup->module~helio_classes module~swiftest swiftest module~s_helio_setup->module~swiftest 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 swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 helio_setup_initialize_system Module Subroutines module subroutine helio_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize a Helio nbody system from files, converting all heliocentric quantities to barycentric. 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","tags":"","loc":"module/s_helio_setup.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~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_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~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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 swiftest module~s_io->module~swiftest module~swiftest_classes swiftest_classes module~s_io->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 Module Functions io_get_args io_get_old_t_final_system io_get_token io_read_frame_body io_read_frame_cb io_read_frame_system Module Subroutines io_conservation_report io_dump_param io_dump_particle_info io_dump_particle_info_base io_dump_base io_dump_system io_param_reader io_param_writer io_read_in_body io_read_in_cb io_read_in_param io_read_in_particle_info io_read_particle_info_system io_toupper io_write_discard io_write_encounter io_write_frame_body io_write_frame_cb io_write_frame_encounter io_write_frame_system io_write_hdr_system Functions function io_read_encounter (t, id1, id2, Gmass1, Gmass2, 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) :: id1 integer(kind=I4B), intent(out) :: id2 real(kind=DP), intent(out) :: Gmass1 real(kind=DP), intent(out) :: Gmass2 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) 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_old_t_final_system (self, param) result(old_t_final) Interface → Author David A. Minton Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self class( swiftest_parameters ), intent(in) :: param Return Value real(kind=DP) 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 function io_read_frame_body (self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful module function io_read_frame_cb (self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful module function io_read_frame_system (self, iu, param) result(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 Return Value integer(kind=I4B) Error code: returns 0 if the read is successful 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_particle_info (self, iu) Interface → Author David A. Minton Reads in particle information object information from an open file unformatted file Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(in) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number module subroutine io_dump_particle_info_base (self, param, idx) 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( swiftest_base ), intent(inout) :: self Swiftest base object (can be cb, pl, or tp) class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters integer(kind=I4B), intent(in), optional dimension(:) :: idx Array of test particle indices to append to the particle file module subroutine io_dump_base (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_in_body (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_in_cb (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_in_param (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_read_in_particle_info (self, iu) Interface → Author David A. Minton Reads in particle information object information from an open file unformatted file Arguments Type Intent Optional Attributes Name class( swiftest_particle_info ), intent(inout) :: self Particle metadata information object integer(kind=I4B), intent(in) :: iu Open file unit number module subroutine io_read_particle_info_system (self, param) Interface → Author David A. Minton Reads an old particle information file for a restartd run 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 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(inout) :: param Current run configuration parameters module subroutine io_write_encounter (self, pl, encbody, param) Interface → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(in) :: self Swiftest encounter list object class( swiftest_pl ), intent(in) :: pl Swiftest massive body object class( swiftest_body ), intent(in) :: encbody Encountering body - Swiftest generic body object (pl or tp) class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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_encounter (iu, t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2) Interface → Author David A. Minton Write a single frame of close encounter data to output binary files Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Open file unit number real(kind=DP), intent(in) :: t Time of encounter integer(kind=I4B), intent(in) :: id1 ids of the two encountering bodies integer(kind=I4B), intent(in) :: id2 ids of the two encountering bodies real(kind=DP), intent(in) :: Gmass1 G*mass of the two encountering bodies real(kind=DP), intent(in) :: Gmass2 G*mass of the two encountering bodies real(kind=DP), intent(in) :: radius1 Radii of the two encountering bodies real(kind=DP), intent(in) :: radius2 Radii of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh1 Heliocentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: xh2 Heliocentric position vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh1 Heliocentric velocity vectors of the two encountering bodies real(kind=DP), intent(in), dimension(:) :: vh2 Heliocentric velocity vectors of the two encountering bodies module subroutine io_write_frame_system (self, 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(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine io_write_hdr_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 frame header to output binary file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object integer(kind=I4B), intent(inout) :: iu Output file unit number 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 swiftest module~s_setup->module~swiftest module~swiftest_classes swiftest_classes module~s_setup->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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_particle_info_system 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(inout) :: 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_particle_info_system (self, param) Interface → Author David A. Minton Setup up particle information metadata from initial conditions 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 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_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 swiftest module~s_user_kick_getacch->module~swiftest module~swiftest_classes swiftest_classes module~s_user_kick_getacch->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 swiftest module~drift_implementation->module~swiftest module~swiftest_classes swiftest_classes module~drift_implementation->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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~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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 symba_util_append_arr_kin symba_util_append_encounter symba_util_append_pl symba_util_append_merger symba_util_append_tp symba_util_copy_encounter symba_util_fill_arr_kin symba_util_fill_pl symba_util_fill_tp symba_util_index_eucl_plpl symba_util_peri_pl symba_util_rearray_pl symba_util_reset_kinship 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_arr_kin symba_util_sort_rearrange_pl symba_util_sort_rearrange_tp symba_util_spill_arr_kin symba_util_spill_pl symba_util_spill_encounter symba_util_spill_tp Module Subroutines 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_encounter (self, source, lsource_mask) Interface → Author David A. Minton Append components from one encounter list (pl-pl or pl-tp) 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_encounter ), intent(inout) :: self SyMBA encounter list object class( swiftest_encounter ), 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_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 module subroutine symba_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( symba_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into 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_index_eucl_plpl (self, param) Interface → Author Jacob R. Elliott and David A. Minton Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the\n number of interactions that excludes semi-interacting bodies with each other (Gmass < GMTINY).\n This method will also sort the bodies in descending order by Mass Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters 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(inout) :: param Current run configuration parameters module subroutine symba_util_reset_kinship (self, idx) Interface → Author David A. Minton Resets the kinship status of bodies. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: idx Index array of bodies to reset 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 subroutine symba_util_sort_rearrange_arr_kin (arr, ind, n) Author David A. Minton Rearrange a single array of particle kinship type in-place from an index list. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:) :: ind Index to rearrange against integer(kind=I4B), intent(in) :: n Number of elements in arr and ind to rearrange 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_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_encounter (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_encounter ), 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 symba_collision_check_one symba_collision_consolidate_colliders Subroutines symba_collision_collider_message symba_collision_mergeaddsub Module Functions symba_collision_casedisruption symba_collision_casehitandrun symba_collision_casemerge symba_collision_check_encounter Module Subroutines symba_collision_encounter_extract_collisions symba_collision_make_colliders_pl symba_collision_resolve_fragmentations symba_collision_resolve_mergers symba_collision_resolve_plplenc symba_collision_resolve_pltpenc 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_colliders (pl, cb, param, idx_parent, colliders) result(lflag) Author David A. Minton Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all colliders%idx 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_cb ), intent(inout) :: cb SyMBA central 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 class( fraggle_colliders ), intent(out) :: colliders Return Value logical Logical flag indicating whether a colliders%idx was successfully created or not Subroutines subroutine symba_collision_collider_message (pl, collidx, collider_message) Author David A. Minton Prints a nicely formatted message about which bodies collided, including their names and ids.\n This subroutine appends the body names and ids to an input message. Arguments Type Intent Optional Attributes Name class(swiftest_pl), intent(in) :: pl Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: collidx Index of collisional colliders%idx members character(len=*), intent(inout) :: collider_message The message to print to the screen. subroutine symba_collision_mergeaddsub (system, param, colliders, 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object integer(kind=I4B), intent(in) :: status Status flag to assign to adds Module Functions module function symba_collision_casedisruption (system, param, colliders, frag) 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_collision_casehitandrun (system, param, colliders, frag) 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(inout) :: param Current run configuration parameters with SyMBA additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcom module function symba_collision_casemerge (system, param, colliders, frag) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Merge massive bodies. Read more… 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 additions class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragmentation system object Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_collision_check_encounter (self, system, param, t, dt, irec) result(lany_collision) 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_encounter ), 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 Return Value logical Returns true if cany pair of encounters resulted in a collision Module Subroutines module subroutine symba_collision_encounter_extract_collisions (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_colliders_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 colliders%idx.\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. 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(inout) :: 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(inout) :: param Current run configuration parameters with SyMBA additions module subroutine symba_collision_resolve_plplenc (self, system, param, t, dt, irec) Interface → Author David A. Minton Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the 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(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level module subroutine symba_collision_resolve_pltpenc (self, system, param, t, dt, irec) Interface → Author David A. Minton Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the collision Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA additions real(kind=DP), intent(in) :: t Current simulation tim real(kind=DP), intent(in) :: dt Current simulation step size integer(kind=I4B), intent(in) :: irec Current recursion level","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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 symba_setup_initialize_system symba_setup_merger symba_setup_pl symba_setup_encounter 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_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( symba_encounter ), 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 symba_kick_getacch_int_pl symba_kick_getacch_pl symba_kick_getacch_tp symba_kick_encounter Module Subroutines module subroutine symba_kick_getacch_int_pl (self) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations of massive bodies, with no mutual interactions between bodies below GMTINY Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self 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_encounter (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_encounter ), 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_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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 symba_encounter_check_all Module Functions symba_encounter_check_pl symba_encounter_check symba_encounter_check_tp Module Subroutines symba_encounter_check_one Subroutines subroutine symba_encounter_check_all (nplplm, k_plpl, x, v, rhill, dt, irec, lencounter, loc_lvdotr) Author David A. Minton Check for encounters between massive bodies. Split off from the main subroutine for performance Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in) :: nplplm integer(kind=I4B), intent(in), dimension(:,:) :: k_plpl real(kind=DP), intent(in), dimension(:,:) :: x real(kind=DP), intent(in), dimension(:,:) :: v real(kind=DP), intent(in), dimension(:) :: rhill real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out), dimension(:) :: lencounter logical, intent(out), dimension(:) :: loc_lvdotr 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 (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_encounter ), 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 symba_io_param_reader symba_io_param_writer symba_io_write_discard Module Subroutines 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_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(inout) :: 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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 colliding with the central body or escaping the system 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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), intent(in) :: t integer(kind=I4B), intent(in) :: ireci input recursion level module subroutine symba_step_reset_system (self, param) 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 class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_netcdf – swiftest","text":"Uses swiftest netcdf Ancestors: swiftest_classes module~~s_netcdf~~UsesGraph module~s_netcdf s_netcdf module~swiftest swiftest module~s_netcdf->module~swiftest netcdf netcdf module~s_netcdf->netcdf module~swiftest_classes swiftest_classes module~s_netcdf->module~swiftest_classes module~swiftest->module~swiftest_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~fraggle_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_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 module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 check Module Subroutines netcdf_close netcdf_initialize_output netcdf_open netcdf_write_frame_base netcdf_write_particle_info_base netcdf_write_hdr_system Subroutines subroutine check (status) Author Carlisle A. Wishard, Dana Singh, and David A. Minton Checks the status of all NetCDF operations to catch errors Arguments Type Intent Optional Attributes Name integer, intent(in) :: status Module Subroutines module subroutine netcdf_close (self, param) Interface → Author Carlisle A. Wishard, Dana Singh, and David A. Minton Closes a NetCDF file Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine netcdf_initialize_output (self, param) Interface → Author Carlisle A. Wishard, Dana Singh, and David A. Minton Initialize a NetCDF file system and defines all variables.\n Define the variables Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine netcdf_open (self, param) Interface → Author Carlisle A. Wishard, Dana Singh, and David A. Minton Opens a NetCDF file and does the variable inquiries to activate variable ids Arguments Type Intent Optional Attributes Name class( netcdf_parameters ), intent(inout) :: self Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine netcdf_write_frame_base (self, iu, param) Interface → Author Carlisle A. Wishard, Dana Singh, and 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 Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine netcdf_write_particle_info_base (self, iu) Interface → Author Carlisle A. Wishard, Dana Singh, and David A. Minton Write all current particle to file Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest particle object class( netcdf_parameters ), intent(inout) :: iu Parameters used to identify a particular NetCDF dataset module subroutine netcdf_write_hdr_system (self, iu, param) Interface → Author David A. Minton Writes header information (variables that change with time, but not particle id). \n This subroutine significantly improves the output over the original binary file, allowing us to track energy, momentum, and other quantities that \n previously were handled as separate output files. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest nbody system object class( netcdf_parameters ), intent(inout) :: iu Parameters used to for writing a NetCDF dataset to file class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_netcdf.html"},{"title":"s_fraggle_util – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_util~~UsesGraph module~s_fraggle_util s_fraggle_util module~swiftest swiftest module~s_fraggle_util->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_util->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 fraggle_util_vmag_to_vb Module Subroutines fraggle_util_add_fragments_to_system fraggle_util_ang_mtm fraggle_util_construct_temporary_system fraggle_util_get_energy_momentum fraggle_util_restructure fraggle_util_shift_vector_to_origin Module Functions module function fraggle_util_vmag_to_vb (v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) Interface → Author David A. Minton Converts radial and tangential velocity magnitudes into barycentric velocity Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: v_r_mag Unknown radial component of fragment velocity vector real(kind=DP), intent(in), dimension(:,:) :: v_r_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: v_t_mag Tangential component of velocity vector set previously by angular momentum constraint real(kind=DP), intent(in), dimension(:,:) :: v_t_unit Radial and tangential unit vectors for each fragment real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(in), dimension(:) :: vcom Barycentric velocity of collisional system center of mass Return Value real(kind=DP),\n  dimension(:,:), allocatable Module Subroutines module subroutine fraggle_util_add_fragments_to_system (frag, colliders, system, param) Interface → Author David A. Minton Adds fragments to the temporary system pl object Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters module subroutine fraggle_util_ang_mtm (self) Interface → Author David A. Minton Calcualtes the current angular momentum of the fragments Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object module subroutine fraggle_util_construct_temporary_system (frag, system, param, tmpsys, tmpparam) Interface → 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\n and optionally including fragments. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Original swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters class( swiftest_nbody_system ), intent(out), allocatable :: tmpsys Output temporary swiftest nbody system object class( swiftest_parameters ), intent(out), allocatable :: tmpparam Output temporary configuration run parameters module subroutine fraggle_util_get_energy_momentum (self, colliders, system, param, lbefore) Interface → Author David A. Minton Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)\n This subrourtine works by building a temporary internal massive body object out of the non-excluded bodies and optionally with fragments appended. \n 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. \n This will temporarily expand the massive body object in a temporary system object called tmpsys to feed it into symba_energy Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters logical, intent(in) :: lbefore Flag indicating that this the \"before\" state of the system, with colliders included and fragments excluded or vice versa module subroutine fraggle_util_restructure (self, colliders, try, f_spin, r_max_start) Interface → Author David A. Minton Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object integer(kind=I4B), intent(in) :: try The current number of times Fraggle has tried to find a solution real(kind=DP), intent(inout) :: f_spin Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt real(kind=DP), intent(inout) :: r_max_start The maximum radial distance that the position calculation starts with. This increases after a failed attempt module subroutine fraggle_util_shift_vector_to_origin (m_frag, vec_frag) Interface → 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 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: m_frag Fragment masses real(kind=DP), intent(inout), dimension(:,:) :: vec_frag Fragment positions or velocities in the center of mass frame","tags":"","loc":"module/s_fraggle_util.html"},{"title":"s_fraggle_io – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_io~~UsesGraph module~s_fraggle_io s_fraggle_io module~swiftest swiftest module~s_fraggle_io->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_io->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 fraggle_io_log_generate fraggle_io_log_one_message fraggle_io_log_pl fraggle_io_log_regime fraggle_io_log_start Module Subroutines module subroutine fraggle_io_log_generate (frag) Interface → Author David A. Minton Writes a log of the results of the fragment generation Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(in) :: frag module subroutine fraggle_io_log_one_message (message) Interface → Author David A. Minton Writes a single message to the fraggle log file Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: message module subroutine fraggle_io_log_pl (pl, param) Interface → Author David A. Minton Writes a single message to the fraggle log file Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl Swiftest massive body object (only the new bodies generated in a collision) class( swiftest_parameters ), intent(in) :: param Current swiftest run configuration parameters module subroutine fraggle_io_log_regime (colliders, frag) Interface → Author David A. Minton Writes a log of the results of the collisional regime determination Arguments Type Intent Optional Attributes Name class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object class( fraggle_fragments ), intent(in) :: frag Fraggle fragment object module subroutine fraggle_io_log_start (param) Interface → Author David A. Minton Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param","tags":"","loc":"module/s_fraggle_io.html"},{"title":"s_fraggle_generate – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_generate~~UsesGraph module~s_fraggle_generate s_fraggle_generate module~swiftest swiftest module~s_fraggle_generate->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_generate->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 NFRAG_MIN F_SPIN_FIRST FRAGGLE_LTOL FRAGGLE_ETOL Subroutines fraggle_generate_pos_vec fraggle_generate_spins fraggle_generate_tan_vel fraggle_generate_rad_vel Module Subroutines fraggle_generate_fragments Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, 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(kind=DP), private, parameter :: F_SPIN_FIRST = 0.05_DP The initial try value of the fraction of energy or momenum in spin (whichever has the lowest kinetic energy) real(kind=DP), private, parameter :: FRAGGLE_LTOL = 10*epsilon(1.0_DP) real(kind=DP), private, parameter :: FRAGGLE_ETOL = 1e-8_DP Subroutines subroutine fraggle_generate_pos_vec (frag, colliders, r_max_start) 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 \n pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.\n The initial positions do not conserve energy or momentum, so these need to be adjusted later. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object real(kind=DP), intent(in) :: r_max_start Initial guess for the starting maximum radial distance of fragments subroutine fraggle_generate_spins (frag, colliders, f_spin, lfailure) Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Calculates the spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget. Read more… Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object real(kind=DP), intent(in) :: f_spin Fraction of energy or momentum that goes into spin (whichever gives the lowest kinetic energy) logical, intent(out) :: lfailure Logical flag indicating whether this step fails or succeeds! subroutine fraggle_generate_tan_vel (frag, colliders, lfailure) 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.\n 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\n our fragment kinetic energy (frag%ke_budget) that we can put into the radial velocity distribution. Read more… Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object logical, intent(out) :: lfailure Logical flag indicating whether this step fails or succeeds subroutine fraggle_generate_rad_vel (frag, colliders, lfailure) 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 Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( fraggle_colliders ), intent(in) :: colliders Fraggle collider system object logical, intent(out) :: lfailure Logical flag indicating whether this step fails or succeeds! Module Subroutines module subroutine fraggle_generate_fragments (self, colliders, system, param, lfailure) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Generates a system of fragments in barycentric coordinates that conserves energy and momentum. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle system object the outputs will be the fragmentation class( fraggle_colliders ), intent(inout) :: colliders Fraggle colliders object containing the two-body equivalent values of the colliding bodies class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead?","tags":"","loc":"module/s_fraggle_generate.html"},{"title":"s_fraggle_regime – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_regime~~UsesGraph module~s_fraggle_regime s_fraggle_regime module~swiftest swiftest module~s_fraggle_regime->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_regime->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 fraggle_regime_collresolve Module Subroutines fraggle_regime_colliders Subroutines subroutine fraggle_regime_collresolve (Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, min_mfrag, regime, Mlr, Mslr, Qloss) 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 real(kind=DP), intent(in) :: min_mfrag integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(out) :: Qloss The residual energy after the collision Module Subroutines module subroutine fraggle_regime_colliders (self, frag, system, param) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Determine which fragmentation regime the set of colliders will be. This subroutine is a wrapper for the non-polymorphic raggle_regime_collresolve subroutine.\n It converts to SI units prior to calling\n The two-body equivalent masses of the collider system\n The two-body equivalent radii of the collider system\n The two-body equivalent density of the collider system\n The first body of the two-body equivalent position vector the collider system\n The first body of the two-body equivalent velocity vector the collider system\n The second body of the two-body equivalent position vector the collider system\n The second body of the two-body equivalent velocity vector the collider system\n The central body mass of the system\n The minimum fragment mass to generate. Collider systems that would otherwise generate less massive fragments than this value will be forced to merge instead\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( fraggle_colliders ), intent(inout) :: self Fraggle colliders object class( fraggle_fragments ), intent(inout) :: frag Fraggle fragment system object class( swiftest_nbody_system ), intent(in) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters","tags":"","loc":"module/s_fraggle_regime.html"},{"title":"s_fraggle_placeholder – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_placeholder~~UsesGraph module~s_fraggle_placeholder s_fraggle_placeholder module~swiftest swiftest module~s_fraggle_placeholder->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_placeholder->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 fraggle_placeholder_accel fraggle_placeholder_kick fraggle_placeholder_step Module Subroutines module subroutine fraggle_placeholder_accel (self, system, param, t, lbeg) Interface → The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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 Optional argument that determines whether or not this is the beginning or end of the step module subroutine fraggle_placeholder_kick (self, system, param, t, dt, lbeg) Interface → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system 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. module subroutine fraggle_placeholder_step (self, system, param, t, dt) Interface → Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), 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":"module/s_fraggle_placeholder.html"},{"title":"s_fraggle_setup – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_setup~~UsesGraph module~s_fraggle_setup s_fraggle_setup module~swiftest swiftest module~s_fraggle_setup->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_setup->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 fraggle_setup_reset_fragments fraggle_setup_fragments Module Subroutines module subroutine fraggle_setup_reset_fragments (self) Interface → Author David A. Minton Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate) Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self module subroutine fraggle_setup_fragments (self, n, param) Interface → Author David A. Minton Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self integer(kind=I4B), intent(in) :: n class( swiftest_parameters ), intent(in) :: param","tags":"","loc":"module/s_fraggle_setup.html"},{"title":"s_fraggle_set – swiftest","text":"Uses swiftest Ancestors: fraggle_classes module~~s_fraggle_set~~UsesGraph module~s_fraggle_set s_fraggle_set module~swiftest swiftest module~s_fraggle_set->module~swiftest module~fraggle_classes fraggle_classes module~s_fraggle_set->module~fraggle_classes module~swiftest->module~fraggle_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~fraggle_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 fraggle_set_budgets_fragments fraggle_set_mass_dist_fragments fraggle_set_coordinate_system fraggle_set_natural_scale_factors fraggle_set_original_scale_factors Module Subroutines module subroutine fraggle_set_budgets_fragments (self, colliders) Interface → Author David A. Minton Sets the energy and momentum budgets of the fragments based on the collider values and the before/after values of energy and momentum Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object module subroutine fraggle_set_mass_dist_fragments (self, colliders, param) Interface → Author David A. Minton Sets the mass of fragments based on the mass distribution returned by the regime calculation.\n This subroutine must be run after the the setup rourtine has been run on the fragments Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object class( swiftest_parameters ), intent(in) :: param Current Swiftest run configuration parameters module subroutine fraggle_set_coordinate_system (self, colliders) Interface → Author David A. Minton Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object module subroutine fraggle_set_natural_scale_factors (self, colliders) Interface → Author David A. Minton Scales dimenional quantities to ~O(1) with respect to the collisional system. \n This scaling makes it easier for the non-linear minimization to converge on a solution Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object module subroutine fraggle_set_original_scale_factors (self, colliders) Interface → Author David A. Minton Restores dimenional quantities back to the system units Arguments Type Intent Optional Attributes Name class( fraggle_fragments ), intent(inout) :: self Fraggle fragment system object class( fraggle_colliders ), intent(inout) :: colliders Fraggle collider system object","tags":"","loc":"module/s_fraggle_set.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_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_io – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_io~~UsesGraph module~s_rmvs_io s_rmvs_io module~swiftest swiftest module~s_rmvs_io->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_io->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 rmvs_io_write_encounter Module Subroutines module subroutine rmvs_io_write_encounter (t, id1, id2, Gmass1, Gmass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out) Interface → Author David A. Minton Write close encounter data from RMVS 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) :: id1 integer(kind=I4B), intent(in) :: id2 real(kind=DP), intent(in) :: Gmass1 real(kind=DP), intent(in) :: Gmass2 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","tags":"","loc":"module/s_rmvs_io.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_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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 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_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~fraggle_classes fraggle_classes module~swiftest->module~fraggle_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~walltime_classes walltime_classes module~swiftest->module~walltime_classes module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_globals module~fraggle_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~symba_classes->module~rmvs_classes module~symba_classes->module~fraggle_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~lambda_function->module~swiftest_globals module~walltime_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. 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 io_get_args io_get_args program~swiftest_driver->io_get_args 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 ioutput_t0 nloops old_t_final timer 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) :: ioutput_t0 The output frame counter at time 0 integer(kind=I8B) :: nloops Number of steps to take in the simulation real(kind=DP) :: old_t_final = 0.0_DP Output time at which writing should start, in order to prevent duplicate lines being written for restarts type(walltimer) :: timer Object used for computing elapsed wall time","tags":"","loc":"program/swiftest_driver.html"}]}
\ No newline at end of file
diff --git a/docs/type/fraggle_colliders.html b/docs/type/fraggle_colliders.html
new file mode 100644
index 000000000..36b3412b2
--- /dev/null
+++ b/docs/type/fraggle_colliders.html
@@ -0,0 +1,671 @@
+<!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>fraggle_colliders &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>fraggle_colliders
+    <small>Derived Type</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="<p> 1.9% of total for derived types.</p>Including implementation: 14 statements,  1.6% of total for derived types.">14 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_colliders</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-ncoll">ncoll</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-idx">idx</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-xb~3">xb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-vb~3">vb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-rot~3">rot</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-l_spin">L_spin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-l_orbit">L_orbit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-ip~3">Ip</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-mass~3">mass</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-radius~3">radius</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/fraggle_colliders.html#boundprocedure-regime">regime</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public :: fraggle_colliders</h2>
+    <p>Class definition for the variables that describe the bodies involved in the collision</p>
+    
+    
+    
+    <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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-ncoll">ncoll</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-idx">idx</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-xb~3">xb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-vb~3">vb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-rot~3">rot</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-l_spin">L_spin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-l_orbit">L_orbit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-ip~3">Ip</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-mass~3">mass</a>
+      
+      <a class="list-group-item" href="../type/fraggle_colliders.html#variable-radius~3">radius</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/fraggle_colliders.html#boundprocedure-regime">regime</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    <section>
+    <h2>Components</h2>
+    
+<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-ncoll"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ncoll</strong></td><td></td><td></td><td><p>Number of bodies involved in the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-idx"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>idx</strong></td><td></td><td></td><td><p>Index of bodies involved in the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xb~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>xb</strong></td><td></td><td></td><td><p>Two-body equivalent position vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vb~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>vb</strong></td><td></td><td></td><td><p>Two-body equivalent velocity vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rot~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>rot</strong></td><td></td><td></td><td><p>Two-body equivalent principal axes moments of inertia the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spin"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>L_spin</strong></td><td></td><td></td><td><p>Two-body equivalent spin angular momentum vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orbit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>L_orbit</strong></td><td></td><td></td><td><p>Two-body equivalent orbital angular momentum vectors of the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM,2)</td><td>::</td>
+  <td><strong>Ip</strong></td><td></td><td></td><td><p>Two-body equivalent principal axes moments of inertia the collider bodies prior to collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mass~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(2)</td><td>::</td>
+  <td><strong>mass</strong></td><td></td><td></td><td><p>Two-body equivalent mass of the collider bodies prior to the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(2)</td><td>::</td>
+  <td><strong>radius</strong></td><td></td><td></td><td><p>Two-body equivalent radii of the collider bodies prior to the collision</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-regime"></span><h3>procedure, public :: <strong>regime</strong>  => <a href='../interface/fraggle_regime_colliders.html'>fraggle_regime_colliders</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Determine which fragmentation regime the set of colliders will be</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_regime_colliders(self, frag, system, param)
+    
+    
+   
+   <a href='../proc/fraggle_regime_colliders.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/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle colliders object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>frag</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</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 Swiftest run configuration parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</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/type/fraggle_fragments.html b/docs/type/fraggle_fragments.html
new file mode 100644
index 000000000..80b90c604
--- /dev/null
+++ b/docs/type/fraggle_fragments.html
@@ -0,0 +1,7157 @@
+<!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>fraggle_fragments &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>fraggle_fragments
+    <small>Derived Type</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="<p> 7.4% of total for derived types.</p>Including implementation: 54 statements,  6.1% of total for derived types.">54 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/fraggle_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/fraggle_classes.f90.html'>fraggle_classes.f90</a></li>
+    
+     <li><a href='../module/fraggle_classes.html'>fraggle_classes</a></li>
+    
+  
+     <li class="active">fraggle_fragments</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lfirst">lfirst</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-nbody">nbody</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-info~2">info</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-id~2">id</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-status">status</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ldiscard">ldiscard</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lmask">lmask</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mu">mu</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xh">xh</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vh">vh</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xb~2">xb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vb~2">vb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ah">ah</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-aobl~3">aobl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-atide~3">atide</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-agr~2">agr</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ir3h">ir3h</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-a">a</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-e">e</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-inc">inc</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-capom">capom</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-omega">omega</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-capm">capm</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mass~2">mass</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-gmass~2">Gmass</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rhill">rhill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-radius~2">radius</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xbeg~2">xbeg</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xend~2">xend</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vbeg~2">vbeg</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-density~2">density</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ip~2">Ip</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rot~2">rot</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-k2~2">k2</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-q~2">Q</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-tlag~2">tlag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-k_plpl">k_plpl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-nplpl">nplpl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mtot">mtot</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-qloss">Qloss</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mass_dist">mass_dist</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-regime~2">regime</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xbcom">xbcom</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vbcom">vbcom</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-x_coll_unit">x_coll_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-y_coll_unit">y_coll_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-z_coll_unit">z_coll_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-x_coll">x_coll</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_coll">v_coll</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_r_unit">v_r_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_t_unit">v_t_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_n_unit">v_n_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rmag">rmag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rotmag">rotmag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_r_mag">v_r_mag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_t_mag">v_t_mag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_orbit~2">ke_orbit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_spin~2">ke_spin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-l_orbit~2">L_orbit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-l_spin~2">L_spin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_budget">ke_budget</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-l_budget">L_budget</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lorbit_before">Lorbit_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lorbit_after">Lorbit_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lspin_before">Lspin_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lspin_after">Lspin_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ltot_before">Ltot_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ltot_after">Ltot_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_orbit_before">ke_orbit_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_orbit_after">ke_orbit_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_spin_before">ke_spin_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_spin_after">ke_spin_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-pe_before">pe_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-pe_after">pe_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-etot_before">Etot_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-etot_after">Etot_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-dscale">dscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mscale">mscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-tscale">tscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vscale">vscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-escale">Escale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lscale">Lscale</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/fraggle_fragments.html#boundprocedure-dump~2">dump</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_particle_info~10">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-drift">drift</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-v2pv">v2pv</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-pv2v">pv2v</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-read_in~2">read_in</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-read_frame~3">read_frame</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-el2xv">el2xv</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-xv2el">xv2el</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_user">accel_user</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_ir3">set_ir3</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_frame~11">write_frame</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-discard~3">discard</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-index~2">index</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_int~2">accel_int</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_obl~2">accel_obl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_tides">accel_tides</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-append~3">append</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-h2b~2">h2b</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-b2h~2">b2h</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-fill~3">fill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-resize~3">resize</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_beg_end">set_beg_end</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_mu~3">set_mu</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_rhill">set_rhill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-sort~3">sort</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-rearrange~3">rearrange</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-spill~3">spill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-generate_fragments">generate_fragments</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel~6">accel</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-kick~5">kick</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-step~8">step</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_budgets">set_budgets</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_coordinate_system">set_coordinate_system</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_mass_dist">set_mass_dist</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_natural_scale">set_natural_scale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_original_scale">set_original_scale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-setup~6">setup</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-reset~2">reset</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-get_ang_mtm">get_ang_mtm</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-get_energy_and_momentum~2">get_energy_and_momentum</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-restructure">restructure</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/swiftest_pl.html'>swiftest_pl</a>) :: fraggle_fragments</h2>
+    <p>Class definition for the variables that describe a collection of fragments by Fraggle barycentric coordinates</p>
+    <br>
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</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~~fraggle_fragments~~InheritsGraph Pages: 1 -->
+<svg id="typefraggle_fragmentsInheritsGraph" width="485pt" height="74pt"
+ viewBox="0.00 0.00 485.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~fraggle_fragments~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>type~~fraggle_fragments~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 481,-70 481,4 -4,4"/>
+<!-- type~fraggle_fragments -->
+<g id="type~~fraggle_fragments~~InheritsGraph_node1" class="node">
+<title>type~fraggle_fragments</title>
+<polygon fill="none" stroke="black" points="477,-45 377,-45 377,-21 477,-21 477,-45"/>
+<text text-anchor="middle" x="427" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">fraggle_fragments</text>
+</g>
+<!-- type~swiftest_pl -->
+<g id="type~~fraggle_fragments~~InheritsGraph_node2" class="node">
+<title>type~swiftest_pl</title>
+<g id="a_type~~fraggle_fragments~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340,-45 278,-45 278,-21 340,-21 340,-45"/>
+<text text-anchor="middle" x="309" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+</a>
+</g>
+</g>
+<!-- type~fraggle_fragments&#45;&gt;type~swiftest_pl -->
+<g id="type~~fraggle_fragments~~InheritsGraph_edge1" class="edge">
+<title>type~fraggle_fragments&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M376.81,-33C367.94,-33 358.79,-33 350.21,-33"/>
+<polygon fill="#000000" stroke="#000000" points="350.1,-29.5 340.1,-33 350.1,-36.5 350.1,-29.5"/>
+</g>
+<!-- type~swiftest_body -->
+<g id="type~~fraggle_fragments~~InheritsGraph_node3" class="node">
+<title>type~swiftest_body</title>
+<g id="a_type~~fraggle_fragments~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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~~fraggle_fragments~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M277.77,-33C269.45,-33 260.22,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.09,-29.5 241.09,-33 251.09,-36.5 251.09,-29.5"/>
+</g>
+<!-- type~swiftest_base -->
+<g id="type~~fraggle_fragments~~InheritsGraph_node4" class="node">
+<title>type~swiftest_base</title>
+<g id="a_type~~fraggle_fragments~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~fraggle_fragments~~InheritsGraph_edge4" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~fraggle_fragments~~InheritsGraph_node5" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~fraggle_fragments~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~fraggle_fragments~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</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>
+</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>
+</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>
+    
+    
+    <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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lfirst">lfirst</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-nbody">nbody</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-info~2">info</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-id~2">id</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-status">status</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ldiscard">ldiscard</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lmask">lmask</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mu">mu</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xh">xh</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vh">vh</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xb~2">xb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vb~2">vb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ah">ah</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-aobl~3">aobl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-atide~3">atide</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-agr~2">agr</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ir3h">ir3h</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-a">a</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-e">e</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-inc">inc</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-capom">capom</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-omega">omega</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-capm">capm</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mass~2">mass</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-gmass~2">Gmass</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rhill">rhill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-radius~2">radius</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xbeg~2">xbeg</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xend~2">xend</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vbeg~2">vbeg</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-density~2">density</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ip~2">Ip</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rot~2">rot</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-k2~2">k2</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-q~2">Q</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-tlag~2">tlag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-k_plpl">k_plpl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-nplpl">nplpl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mtot">mtot</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-qloss">Qloss</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mass_dist">mass_dist</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-regime~2">regime</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-xbcom">xbcom</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vbcom">vbcom</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-x_coll_unit">x_coll_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-y_coll_unit">y_coll_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-z_coll_unit">z_coll_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-x_coll">x_coll</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_coll">v_coll</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_r_unit">v_r_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_t_unit">v_t_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_n_unit">v_n_unit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rmag">rmag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-rotmag">rotmag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_r_mag">v_r_mag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-v_t_mag">v_t_mag</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_orbit~2">ke_orbit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_spin~2">ke_spin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-l_orbit~2">L_orbit</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-l_spin~2">L_spin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_budget">ke_budget</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-l_budget">L_budget</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lorbit_before">Lorbit_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lorbit_after">Lorbit_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lspin_before">Lspin_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lspin_after">Lspin_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ltot_before">Ltot_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ltot_after">Ltot_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_orbit_before">ke_orbit_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_orbit_after">ke_orbit_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_spin_before">ke_spin_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-ke_spin_after">ke_spin_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-pe_before">pe_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-pe_after">pe_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-etot_before">Etot_before</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-etot_after">Etot_after</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-dscale">dscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-mscale">mscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-tscale">tscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-vscale">vscale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-escale">Escale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#variable-lscale">Lscale</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/fraggle_fragments.html#boundprocedure-dump~2">dump</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_particle_info~10">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-drift">drift</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-v2pv">v2pv</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-pv2v">pv2v</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-read_in~2">read_in</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-read_frame~3">read_frame</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-el2xv">el2xv</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-xv2el">xv2el</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_user">accel_user</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_ir3">set_ir3</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-write_frame~11">write_frame</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-discard~3">discard</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-index~2">index</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_int~2">accel_int</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_obl~2">accel_obl</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel_tides">accel_tides</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-append~3">append</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-h2b~2">h2b</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-b2h~2">b2h</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-fill~3">fill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-resize~3">resize</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_beg_end">set_beg_end</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_mu~3">set_mu</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_rhill">set_rhill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-sort~3">sort</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-rearrange~3">rearrange</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-spill~3">spill</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-generate_fragments">generate_fragments</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-accel~6">accel</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-kick~5">kick</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-step~8">step</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_budgets">set_budgets</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_coordinate_system">set_coordinate_system</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_mass_dist">set_mass_dist</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_natural_scale">set_natural_scale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-set_original_scale">set_original_scale</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-setup~6">setup</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-reset~2">reset</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-get_ang_mtm">get_ang_mtm</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-get_energy_and_momentum~2">get_energy_and_momentum</a>
+      
+      <a class="list-group-item" href="../type/fraggle_fragments.html#boundprocedure-restructure">restructure</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    <section>
+    <h2>Components</h2>
+    
+<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-lfirst"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lfirst</strong></td><td> =</td><td>.true.</td><td><p>Run the current step as a first</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nbody"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nbody</strong></td><td> =</td><td>0</td><td><p>Number of bodies</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id~2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id</strong></td><td></td><td></td><td><p>External identifier (unique)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>An integrator-specific status indicator </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ldiscard"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>ldiscard</strong></td><td></td><td></td><td><p>Body should be discarded</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lmask"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>lmask</strong></td><td></td><td></td><td><p>Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mu"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>mu</strong></td><td></td><td></td><td><p>G * (Mcb + [m])</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xb~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xb</strong></td><td></td><td></td><td><p>Barycentric position</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vb~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vb</strong></td><td></td><td></td><td><p>Barycentric velocity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ah"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>ah</strong></td><td></td><td></td><td><p>Total heliocentric acceleration</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-aobl~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>aobl</strong></td><td></td><td></td><td><p>Barycentric accelerations of bodies due to central body oblatenes</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-atide~3"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>atide</strong></td><td></td><td></td><td><p>Tanngential component of acceleration of bodies due to tides</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-agr~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>agr</strong></td><td></td><td></td><td><p>Acceleration due to post-Newtonian correction</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ir3h"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>ir3h</strong></td><td></td><td></td><td><p>Inverse heliocentric radius term (1/rh**3)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-a"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>a</strong></td><td></td><td></td><td><p>Semimajor axis (pericentric distance for a parabolic orbit)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-e"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>e</strong></td><td></td><td></td><td><p>Eccentricity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inc"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inc</strong></td><td></td><td></td><td><p>Inclination</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>capom</strong></td><td></td><td></td><td><p>Longitude of ascending node</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-omega"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>omega</strong></td><td></td><td></td><td><p>Argument of pericenter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capm"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>capm</strong></td><td></td><td></td><td><p>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</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mass~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>mass</strong></td><td></td><td></td><td><p>Body mass (units MU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>Gmass</strong></td><td></td><td></td><td><p>Mass gravitational term G * mass (units GU * MU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rhill"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>rhill</strong></td><td></td><td></td><td><p>Body mass (units MU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>radius</strong></td><td></td><td></td><td><p>Body radius (units DU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xbeg~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xbeg</strong></td><td></td><td></td><td><p>Position at beginning of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xend~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>xend</strong></td><td></td><td></td><td><p>Position at end of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vbeg~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>vbeg</strong></td><td></td><td></td><td><p>Velocity at beginning of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-density~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>density</strong></td><td></td><td></td><td><p>Body mass density - calculated internally (units MU / DU**3)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>Ip</strong></td><td></td><td></td><td><p>Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rot~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>rot</strong></td><td></td><td></td><td><p>Body rotation vector in inertial coordinate frame (units rad / TU)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k2~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>k2</strong></td><td></td><td></td><td><p>Tidal Love number</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-q~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>Q</strong></td><td></td><td></td><td><p>Tidal quality factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tlag~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>tlag</strong></td><td></td><td></td><td><p>Tidal phase lag</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_plpl"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_plpl</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nplpl"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nplpl</strong></td><td></td><td></td><td><p>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</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mtot"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>mtot</strong></td><td></td><td></td><td><p>Total mass of fragments       </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-qloss"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Qloss</strong></td><td></td><td></td><td><p>Energy lost during the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mass_dist"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(FRAGGLE_NMASS_DIST)</td><td>::</td>
+  <td><strong>mass_dist</strong></td><td></td><td></td><td><p>Distribution of fragment mass determined by the regime calculation (largest fragment, second largest, and remainder)    </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-regime~2"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>regime</strong></td><td></td><td></td><td><p>Collresolve regime code for this collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xbcom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>xbcom</strong></td><td></td><td></td><td><p>Center of mass position vector of the collider system in system barycentric coordinates</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vbcom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>vbcom</strong></td><td></td><td></td><td><p>Velocity vector of the center of mass of the collider system in system barycentric coordinates</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x_coll_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>x_coll_unit</strong></td><td></td><td></td><td><p>x-direction unit vector of collisional system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-y_coll_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>y_coll_unit</strong></td><td></td><td></td><td><p>y-direction unit vector of collisional system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-z_coll_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>z_coll_unit</strong></td><td></td><td></td><td><p>z-direction unit vector of collisional system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x_coll"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>x_coll</strong></td><td></td><td></td><td><p>Array of fragment position vectors in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_coll"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_coll</strong></td><td></td><td></td><td><p>Array of fragment velocity vectors in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_r_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_r_unit</strong></td><td></td><td></td><td><p>Array of radial direction unit vectors of individual fragments in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_t_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_t_unit</strong></td><td></td><td></td><td><p>Array of tangential direction unit vectors of individual fragments in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_n_unit"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v_n_unit</strong></td><td></td><td></td><td><p>Array of normal direction unit vectors of individual fragments in the collisional coordinate frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rmag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>rmag</strong></td><td></td><td></td><td><p>Array of radial distance magnitudes of individual fragments in the collisional coordinate frame </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rotmag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>rotmag</strong></td><td></td><td></td><td><p>Array of rotation magnitudes of individual fragments </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_r_mag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>v_r_mag</strong></td><td></td><td></td><td><p>Array of radial direction velocity magnitudes of individual fragments </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v_t_mag"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>v_t_mag</strong></td><td></td><td></td><td><p>Array of tangential direction velocity magnitudes of individual fragments</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orbit~2"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_orbit</strong></td><td></td><td></td><td><p>Current orbital kinetic energy of the system of fragments in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin~2"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_spin</strong></td><td></td><td></td><td><p>Current spin kinetic energy of the system of fragments in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orbit~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>L_orbit</strong></td><td></td><td></td><td><p>Current orbital angular momentum of the system of fragments in the collisional frame  </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spin~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>L_spin</strong></td><td></td><td></td><td><p>Current spin angular momentum of the system of fragments in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_budget"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_budget</strong></td><td></td><td></td><td><p>Total kinetic energy budget for the system of fragmens in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_budget"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>L_budget</strong></td><td></td><td></td><td><p>Total angular momentum budget for the system of fragmens in the collisional frame</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lorbit_before"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lorbit_before</strong></td><td></td><td></td><td><p>Before/after orbital angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lorbit_after"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lorbit_after</strong></td><td></td><td></td><td><p>Before/after orbital angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lspin_before"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lspin_before</strong></td><td></td><td></td><td><p>Before/after spin angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lspin_after"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Lspin_after</strong></td><td></td><td></td><td><p>Before/after spin angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ltot_before"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot_before</strong></td><td></td><td></td><td><p>Before/after total system angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ltot_after"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot_after</strong></td><td></td><td></td><td><p>Before/after total system angular momentum </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orbit_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_orbit_before</strong></td><td></td><td></td><td><p>Before/after orbital kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orbit_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_orbit_after</strong></td><td></td><td></td><td><p>Before/after orbital kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_spin_before</strong></td><td></td><td></td><td><p>Before/after spin kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ke_spin_after</strong></td><td></td><td></td><td><p>Before/after spin kinetic energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pe_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>pe_before</strong></td><td></td><td></td><td><p>Before/after potential energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pe_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>pe_after</strong></td><td></td><td></td><td><p>Before/after potential energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-etot_before"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Etot_before</strong></td><td></td><td></td><td><p>Before/after total system energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-etot_after"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Etot_after</strong></td><td></td><td></td><td><p>Before/after total system energy</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td></td><td></td><td><p>Distance dimension scale factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-mscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td></td><td></td><td><p>Mass scale factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td></td><td></td><td><p>Time scale factor</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>vscale</strong></td><td></td><td></td><td><p>Velocity scale factor (a convenience unit that is derived from dscale and tscale)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-escale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Escale</strong></td><td></td><td></td><td><p>Energy scale factor (a convenience unit that is derived from dscale, tscale, and mscale)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lscale"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Lscale</strong></td><td></td><td></td><td><p>Angular momentum scale factor (a convenience unit that is derived from dscale, tscale, and mscale)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_base(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_base.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_base.html'>swiftest_base</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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_particle_info_base(self, param, idx)
+    
+    
+   
+   <a href='../proc/io_dump_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</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_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_frame_base(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_frame_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~10"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine drift_body(self, system, param, dt)
+    
+    
+   
+   <a href='../proc/drift_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_vh2pv_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_vh2pv_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_pv2vh_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_pv2vh_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Read in body initial conditions from a file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_body(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_body(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_body(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert position and velocity vectors to orbital  elements </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_xv2el_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_xv2el_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add user-supplied heliocentric accelerations to planets</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/user_kick_getacch_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_ir3h(self)
+    
+    
+   
+   <a href='../proc/util_set_ir3h.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</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~11"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Placeholder method for discarding massive bodies </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine discard_pl(self, system, param)
+    
+    
+   
+   <a href='../proc/discard_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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</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 parameter</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~2"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/util_index_eucl_plpl.html'>util_index_eucl_plpl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/util_index_eucl_plpl.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_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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine kick_getacch_int_pl(self)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_acc_pl(self, system)
+    
+    
+   
+   <a href='../proc/obl_acc_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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine tides_kick_getacch_pl(self, system)
+    
+    
+   
+   <a href='../proc/tides_kick_getacch_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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~3"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_pl.html'>util_append_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Appends elements from one structure to another</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_append_pl(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/util_append_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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_h2b_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_h2b_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="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_b2h_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_b2h_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="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_vh2vb_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_vh2vb_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="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_vb2vh_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_vb2vh_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="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_xh2xb_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_xh2xb_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="boundprocedure-fill~3"></span><h3>procedure, public :: <strong>fill</strong>  => <a href='../interface/util_fill_pl.html'>util_fill_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>"Fills" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_fill_pl(self, inserts, lfill_list)
+    
+    
+   
+   <a href='../proc/util_fill_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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>inserts</strong></td><td><p>Swiftest body object to be inserted</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lfill_list</strong></td><td><p>Logical array of bodies to merge into the keeps</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resize~3"></span><h3>procedure, public :: <strong>resize</strong>  => <a href='../interface/util_resize_pl.html'>util_resize_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_resize_pl(self, nnew)
+    
+    
+   
+   <a href='../proc/util_resize_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>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nnew</strong></td><td><p>New size neded</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_beg_end"></span><h3>procedure, public :: <strong>set_beg_end</strong>  => <a href='../interface/util_set_beg_end_pl.html'>util_set_beg_end_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the beginning and ending positions and velocities of planets.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
+    
+    
+   
+   <a href='../proc/util_set_beg_end_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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu~3"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_pl.html'>util_set_mu_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Method used to construct the vectorized form of the central body mass</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <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="boundprocedure-set_rhill"></span><h3>procedure, public :: <strong>set_rhill</strong>  => <a href='../interface/util_set_rhill.html'>util_set_rhill</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Calculates the Hill's radii for each body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <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>
+    
+    
+    <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="boundprocedure-sort~3"></span><h3>procedure, public :: <strong>sort</strong>  => <a href='../interface/util_sort_pl.html'>util_sort_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sorts body arrays by a sortable component</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_sort_pl(self, sortby, ascending)
+    
+    
+   
+   <a href='../proc/util_sort_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 body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>sortby</strong></td><td><p>Sorting attribute</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ascending</strong></td><td><p>Logical flag indicating whether or not the sorting should be in ascending or descending order</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-rearrange~3"></span><h3>procedure, public :: <strong>rearrange</strong>  => <a href='../interface/util_sort_rearrange_pl.html'>util_sort_rearrange_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Rearranges the order of array elements of body based on an input index array. Used in sorting methods</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_sort_rearrange_pl(self, ind)
+    
+    
+   
+   <a href='../proc/util_sort_rearrange_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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>ind</strong></td><td><p>Index array used to restructure the body (should contain all 1:n index values in the desired order)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-spill~3"></span><h3>procedure, public :: <strong>spill</strong>  => <a href='../interface/util_spill_pl.html'>util_spill_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive)
+    
+    
+   
+   <a href='../proc/util_spill_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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter the keeps array or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-generate_fragments"></span><h3>procedure, public :: <strong>generate_fragments</strong>  => <a href='../interface/fraggle_generate_fragments.html'>fraggle_generate_fragments</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Generates a system of fragments in barycentric coordinates that conserves energy and momentum.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_generate_fragments(self, colliders, system, param, lfailure)
+    
+    
+   
+   <a href='../proc/fraggle_generate_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle colliders object containing the two-body equivalent values of the colliding bodies </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~6"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/fraggle_placeholder_accel.html'>fraggle_placeholder_accel</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Placeholder subroutine to fulfill requirement for an accel method</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_accel.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+
+
+
+<p>The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class</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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~5"></span><h3>procedure, public :: <strong>kick</strong>  => <a href='../interface/fraggle_placeholder_kick.html'>fraggle_placeholder_kick</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Placeholder subroutine to fulfill requirement for a kick method</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_kick.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nbody system objec</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current 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>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~8"></span><h3>procedure, public :: <strong>step</strong>  => <a href='../interface/fraggle_placeholder_step.html'>fraggle_placeholder_step</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Placeholder subroutine to fulfill requirement for a step method</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_placeholder_step(self, system, param, t, dt)
+    
+    
+   
+   <a href='../proc/fraggle_placeholder_step.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Helio massive body particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nboody system</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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation 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>dt</strong></td><td><p>Stepsiz</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_budgets"></span><h3>procedure, public :: <strong>set_budgets</strong>  => <a href='../interface/fraggle_set_budgets_fragments.html'>fraggle_set_budgets_fragments</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the energy and momentum budgets of the fragments based on the collider value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_set_budgets_fragments(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_budgets_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_coordinate_system"></span><h3>procedure, public :: <strong>set_coordinate_system</strong>  => <a href='../interface/fraggle_set_coordinate_system.html'>fraggle_set_coordinate_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_set_coordinate_system(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_coordinate_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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mass_dist"></span><h3>procedure, public :: <strong>set_mass_dist</strong>  => <a href='../interface/fraggle_set_mass_dist_fragments.html'>fraggle_set_mass_dist_fragments</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the distribution of mass among the fragments depending on the regime type</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_set_mass_dist_fragments(self, colliders, param)
+    
+    
+   
+   <a href='../proc/fraggle_set_mass_dist_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider 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 Swiftest 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-set_natural_scale"></span><h3>procedure, public :: <strong>set_natural_scale</strong>  => <a href='../interface/fraggle_set_natural_scale_factors.html'>fraggle_set_natural_scale_factors</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Scales dimenional quantities to ~O(1) with respect to the collisional system.  </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_set_natural_scale_factors(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_natural_scale_factors.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_original_scale"></span><h3>procedure, public :: <strong>set_original_scale</strong>  => <a href='../interface/fraggle_set_original_scale_factors.html'>fraggle_set_original_scale_factors</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Restores dimenional quantities back to the original system units</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_set_original_scale_factors(self, colliders)
+    
+    
+   
+   <a href='../proc/fraggle_set_original_scale_factors.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~6"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/fraggle_setup_fragments.html'>fraggle_setup_fragments</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Allocates arrays for n fragments in a Fraggle system. Passing n = 0 deallocates all arrays.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_setup_fragments(self, n, param)
+    
+    
+   
+   <a href='../proc/fraggle_setup_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</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>n</strong></td><td><p>Number of fragments</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 swiftest 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-reset~2"></span><h3>procedure, public :: <strong>reset</strong>  => <a href='../interface/fraggle_setup_reset_fragments.html'>fraggle_setup_reset_fragments</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Resets all position and velocity-dependent fragment quantities in order to do a fresh calculation (does not reset mass, radius, or other values that get set prior to the call to fraggle_generate)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_setup_reset_fragments(self)
+    
+    
+   
+   <a href='../proc/fraggle_setup_reset_fragments.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_ang_mtm"></span><h3>procedure, public :: <strong>get_ang_mtm</strong>  => <a href='../interface/fraggle_util_ang_mtm.html'>fraggle_util_ang_mtm</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Calcualtes the current angular momentum of the fragments</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_util_ang_mtm(self)
+    
+    
+   
+   <a href='../proc/fraggle_util_ang_mtm.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_energy_and_momentum~2"></span><h3>procedure, public :: <strong>get_energy_and_momentum</strong>  => <a href='../interface/fraggle_util_get_energy_momentum.html'>fraggle_util_get_energy_momentum</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Calculates total system energy in either the pre-collision outcome state (lbefore = .true.) or the post-collision outcome state (lbefore = .false.)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_util_get_energy_momentum(self, colliders, system, param, lbefore)
+    
+    
+   
+   <a href='../proc/fraggle_util_get_energy_momentum.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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 swiftest run configuration parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbefore</strong></td><td><p>Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-restructure"></span><h3>procedure, public :: <strong>restructure</strong>  => <a href='../interface/fraggle_util_restructure.html'>fraggle_util_restructure</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Restructure the inputs after a failed attempt failed to find a set of positions and velocities that satisfy the energy and momentum constraints</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine fraggle_util_restructure(self, colliders, try, f_spin, r_max_start)
+    
+    
+   
+   <a href='../proc/fraggle_util_restructure.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/fraggle_fragments.html'>fraggle_fragments</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Fraggle fragment system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/fraggle_colliders.html'>fraggle_colliders</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>colliders</strong></td><td><p>Fraggle collider system object</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>try</strong></td><td><p>The current number of times Fraggle has tried to find a solution</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>f_spin</strong></td><td><p>Fraction of energy/momentum that goes into spin. This decreases ater a failed attempt</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>r_max_start</strong></td><td><p>The maximum radial distance that the position calculation starts with. This increases after a failed attempt</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</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/type/helio_cb.html b/docs/type/helio_cb.html
index adc772447..7a1fb844c 100644
--- a/docs/type/helio_cb.html
+++ b/docs/type/helio_cb.html
@@ -134,7 +134,7 @@ <h1>helio_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.9% of total for derived types.</p>Including implementation: 5 statements,  0.7% of total for derived types.">5 statements</a>
+    title="<p> 0.7% of total for derived types.</p>Including implementation: 5 statements,  0.6% of total for derived types.">5 statements</a>
      </li> 
      
      
@@ -179,9 +179,7 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/helio_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/helio_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/helio_cb.html#variable-id">id</a>
       
@@ -261,11 +259,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_particle_info~4">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame~5">write_frame</a>
       
     </div>
   </div>
@@ -295,46 +303,62 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~helio_cb~~InheritsGraph Pages: 1 -->
-<svg id="typehelio_cbInheritsGraph" width="276pt" height="32pt"
- viewBox="0.00 0.00 276.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~helio_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typehelio_cbInheritsGraph" width="328pt" height="74pt"
+ viewBox="0.00 0.00 328.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~helio_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~helio_cb~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 272,-28 272,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 324,-70 324,4 -4,4"/>
 <!-- type~helio_cb -->
 <g id="type~~helio_cb~~InheritsGraph_node1" class="node">
 <title>type~helio_cb</title>
-<polygon fill="none" stroke="black" 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">helio_cb</text>
+<polygon fill="none" stroke="black" points="320,-45 266,-45 266,-21 320,-21 320,-45"/>
+<text text-anchor="middle" x="293" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_cb</text>
 </g>
 <!-- type~swiftest_cb -->
 <g id="type~~helio_cb~~InheritsGraph_node2" class="node">
 <title>type~swiftest_cb</title>
 <g id="a_type~~helio_cb~~InheritsGraph_node2"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="229,-45 164,-45 164,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="196.5" y="-30.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~~helio_cb~~InheritsGraph_edge1" 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="M265.93,-33C257.67,-33 248.33,-33 239.26,-33"/>
+<polygon fill="#000000" stroke="#000000" points="239.21,-29.5 229.21,-33 239.21,-36.5 239.21,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~helio_cb~~InheritsGraph_node3" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~helio_cb~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~helio_cb~~InheritsGraph_edge2" class="edge">
+<g id="type~~helio_cb~~InheritsGraph_edge3" 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="M163.73,-37.82C146.18,-40.48 124.04,-43.84 104.48,-46.8"/>
+<polygon fill="#000000" stroke="#000000" points="103.89,-43.35 94.52,-48.31 104.94,-50.27 103.89,-43.35"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~helio_cb~~InheritsGraph_node4" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~helio_cb~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~helio_cb~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.73,-28.18C151.33,-26.3 136.65,-24.08 122.2,-21.89"/>
+<polygon fill="#000000" stroke="#000000" points="122.67,-18.42 112.26,-20.38 121.62,-25.34 122.67,-18.42"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -468,9 +492,7 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/helio_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/helio_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/helio_cb.html#variable-id">id</a>
       
@@ -550,11 +572,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_particle_info~4">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/helio_cb.html#boundprocedure-write_frame~5">write_frame</a>
       
     </div>
   </div>
@@ -586,25 +618,11 @@ <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -975,10 +993,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -992,11 +1017,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1061,7 +1086,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~2"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_cb_in.html'>io_read_cb_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1069,7 +1094,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading in central body data</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1085,11 +1110,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_cb_in(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1113,12 +1138,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1133,7 +1158,22 @@ <h4>Arguments</h4>
   <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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1154,7 +1194,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1162,7 +1202,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1178,11 +1218,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1206,12 +1246,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>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1221,12 +1261,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1237,7 +1277,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1245,18 +1285,302 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</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>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~4"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_cb.html'>io_read_in_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading in central body data</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_cb(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_cb(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1267,11 +1591,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></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>
 
@@ -1282,6 +1621,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1292,7 +1640,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~2"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
     
   </h3></div>
   
@@ -1392,6 +1740,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~5"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a frame (either binary or NetCDF, using generic procedures)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/helio_nbody_system.html b/docs/type/helio_nbody_system.html
index fb77daf25..82578efa0 100644
--- a/docs/type/helio_nbody_system.html
+++ b/docs/type/helio_nbody_system.html
@@ -134,7 +134,7 @@ <h1>helio_nbody_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.7% of total for derived types.</p>Including implementation: 4 statements,  0.6% of total for derived types.">4 statements</a>
+    title="<p> 0.7% of total for derived types.</p>Including implementation: 5 statements,  0.6% of total for derived types.">5 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/helio_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-pl">pl</a>
@@ -191,7 +189,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -201,22 +199,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-maxid">maxid</a>
-      
     </div>
   </div>
 </div>
@@ -249,12 +241,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -265,10 +269,12 @@ <h3>Contents</h3>
       
       <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-write_hdr~2">write_hdr</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-step~4">step</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-initialize~2">initialize</a>
+      
     </div>
   </div>
 </div>
@@ -297,141 +303,159 @@ <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="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)">
+<svg id="typehelio_nbody_systemInheritsGraph" width="641pt" height="96pt"
+ viewBox="0.00 0.00 641.00 95.59" 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.74 0.74) rotate(0) translate(4 125)">
 <title>type~~helio_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 875,-120 875,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-125 861,-125 861,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,-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>
+<polygon fill="none" stroke="black" points="857,-66 747,-66 747,-42 857,-42 857,-66"/>
+<text text-anchor="middle" x="802" y="-51.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="710,-66 600,-66 600,-42 710,-42 710,-66"/>
+<text text-anchor="middle" x="655" y="-51.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,-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"/>
+<path fill="none" stroke="#000000" d="M746.59,-54C738.05,-54 729.14,-54 720.39,-54"/>
+<polygon fill="#000000" stroke="#000000" points="720.23,-50.5 710.23,-54 720.23,-57.5 720.23,-50.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563,-66 440,-66 440,-42 563,-42 563,-66"/>
+<text text-anchor="middle" x="501.5" y="-51.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,-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"/>
+<path fill="none" stroke="#000000" d="M599.73,-54C591.1,-54 582.05,-54 573.11,-54"/>
+<polygon fill="#000000" stroke="#000000" points="573.07,-50.5 563.07,-54 573.07,-57.5 573.07,-50.5"/>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node4" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-24 278,-24 278,0 341,0 341,-24"/>
+<text text-anchor="middle" x="309.5" y="-9.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_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_base -->
-<g id="type~~helio_nbody_system~~InheritsGraph_node5" class="node">
-<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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.05,-41.96C415.81,-35.28 378.82,-27.1 351.13,-20.98"/>
+<polygon fill="#000000" stroke="#000000" points="351.52,-17.48 341,-18.74 350.01,-24.32 351.52,-17.48"/>
+<text text-anchor="middle" x="390.5" y="-37.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~helio_nbody_system~~InheritsGraph_node6" class="node">
+<g id="type~~helio_nbody_system~~InheritsGraph_node5" 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,-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>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-66 278.5,-66 278.5,-42 340.5,-42 340.5,-66"/>
+<text text-anchor="middle" x="309.5" y="-51.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,-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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.86,-54C410.75,-54 376.66,-54 350.79,-54"/>
+<polygon fill="#000000" stroke="#000000" points="350.59,-50.5 340.59,-54 350.59,-57.5 350.59,-50.5"/>
+<text text-anchor="middle" x="390.5" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~swiftest_cb -->
-<g id="type~~helio_nbody_system~~InheritsGraph_node7" class="node">
+<g id="type~~helio_nbody_system~~InheritsGraph_node6" class="node">
 <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>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-114 170,-114 170,-90 235,-90 235,-114"/>
+<text text-anchor="middle" x="202.5" y="-99.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~~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.67,-64.99C433.7,-66.02 427.73,-67.04 422,-68 360.48,-78.27 289.03,-89.2 245.05,-95.81"/>
+<polygon fill="#000000" stroke="#000000" points="244.38,-92.37 235.02,-97.32 245.42,-99.3 244.38,-92.37"/>
+<text text-anchor="middle" x="309.5" y="-92.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">
+<g id="type~~helio_nbody_system~~InheritsGraph_node9" 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,-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>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node9"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-66 164,-66 164,-42 241,-42 241,-66"/>
+<text text-anchor="middle" x="202.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~~helio_nbody_system~~InheritsGraph_edge7" class="edge">
+<g id="type~~helio_nbody_system~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M289.21,-24.15C285.36,-26.89 281.44,-29.9 278,-33 268.86,-41.22 272.05,-51.57 260,-54"/>
+<path fill="none" stroke="#000000" d="M259,-54C256.48,-54.51 253.88,-54.91 251.25,-55.22"/>
+<polygon fill="#000000" stroke="#000000" points="250.72,-51.75 241.02,-56.02 251.26,-58.73 250.72,-51.75"/>
 </g>
 <!-- type~swiftest_pl&#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_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M278.3,-52.15C272.2,-52.29 265.86,-52.82 260,-54"/>
+</g>
+<!-- type~swiftest_base -->
+<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="94.5,-121 17.5,-121 17.5,-97 94.5,-97 94.5,-121"/>
+<text text-anchor="middle" x="56" y="-106.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~~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"/>
+<path fill="none" stroke="#000000" d="M169.82,-104.49C162.03,-105.05 153.72,-105.59 146,-106 132.72,-106.7 118.32,-107.27 105.05,-107.72"/>
+<polygon fill="#000000" stroke="#000000" points="104.57,-104.23 94.69,-108.05 104.8,-111.23 104.57,-104.23"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~helio_nbody_system~~InheritsGraph_node8" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-69 0,-69 0,-45 112,-45 112,-69"/>
+<text text-anchor="middle" x="56" y="-54.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~helio_nbody_system~~InheritsGraph_edge8" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-92.12C150.93,-86.25 126.61,-78.68 105.39,-72.07"/>
+<polygon fill="#000000" stroke="#000000" points="106.17,-68.65 95.58,-69.01 104.09,-75.33 106.17,-68.65"/>
+<text text-anchor="middle" x="138" y="-85.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge10" class="edge">
+<g id="type~~helio_nbody_system~~InheritsGraph_edge11" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M163.72,-64.65C152.75,-68.01 140.81,-71.91 130,-76 117.07,-80.89 103.17,-86.96 91,-92.56"/>
+<polygon fill="#000000" stroke="#000000" points="89.26,-89.51 81.67,-96.91 92.22,-95.85 89.26,-89.51"/>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~helio_nbody_system~~InheritsGraph_edge10" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.1,-41.94C158.79,-40.3 152.26,-38.88 146,-38 130.11,-35.76 112.82,-38.28 97.74,-42.15"/>
+<polygon fill="#000000" stroke="#000000" points="96.37,-38.9 87.7,-45 98.28,-45.63 96.37,-38.9"/>
+<text text-anchor="middle" x="138" y="-40.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -565,8 +589,6 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-pl">pl</a>
@@ -577,7 +599,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -587,22 +609,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-maxid">maxid</a>
-      
     </div>
   </div>
 </div>
@@ -635,12 +651,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -651,10 +679,12 @@ <h3>Contents</h3>
       
       <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-write_hdr~2">write_hdr</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-step~4">step</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-initialize~2">initialize</a>
+      
     </div>
   </div>
 </div>
@@ -683,20 +713,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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -773,7 +789,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -839,11 +855,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -853,11 +869,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -867,39 +883,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -909,11 +897,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -933,20 +921,6 @@ <h2>Components</h2>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1258,7 +1232,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_old_t_final"></span><h3>procedure, public :: <strong>get_old_t_final</strong>  => <a href='../interface/io_get_old_t_final_system.html'>io_get_old_t_final_system</a> 
     
   </h3></div>
   
@@ -1266,7 +1240,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in a frame of input data from file</p>
+    <p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p>
   </div>
   
   <ul class="list-group">
@@ -1282,11 +1256,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public module function io_get_old_t_final_system(self, param) result(old_t_final)
     
     
    
-   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_get_old_t_final_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1311,26 +1285,11 @@ <h4>Arguments</h4>
 <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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</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></td>
   
 </tr>
 
@@ -1341,41 +1300,11 @@ <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></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></td>
   
 </tr>
 
@@ -1386,6 +1315,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  
+    
+
         
       
       </li>
@@ -1396,7 +1334,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
     
   </h3></div>
   
@@ -1404,7 +1342,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Write out information about discarded test particles</p>
+    <p>Read in a frame of input data from file</p>
   </div>
   
   <ul class="list-group">
@@ -1420,11 +1358,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_discard(self, param)
+public module function io_read_frame_system(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1461,10 +1399,25 @@ <h4>Arguments</h4>
   
   
   
+<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>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1479,6 +1432,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1489,7 +1451,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_particle_info"></span><h3>procedure, public :: <strong>read_particle_info</strong>  => <a href='../interface/io_read_particle_info_system.html'>io_read_particle_info_system</a> 
     
   </h3></div>
   
@@ -1497,7 +1459,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Append a frame of output data to file</p>
+    <p>Read in particle metadata from file</p>
   </div>
   
   <ul class="list-group">
@@ -1513,11 +1475,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine io_read_particle_info_system(self, param)
     
     
    
-   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1542,26 +1504,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system 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>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1572,7 +1519,7 @@ <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>
@@ -1597,7 +1544,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step_spin"></span><h3>procedure, public :: <strong>step_spin</strong>  => <a href='../interface/tides_step_spin_system.html'>tides_step_spin_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
     
   </h3></div>
   
@@ -1605,7 +1552,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Steps the spins of the massive &amp; central bodies due to tides.</p>
+    <p>Write out information about discarded test particles</p>
   </div>
   
   <ul class="list-group">
@@ -1621,11 +1568,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine tides_step_spin_system(self, param, t, dt)
+public module subroutine io_write_discard(self, param)
     
     
    
-   <a href='../proc/tides_step_spin_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1654,7 +1601,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -1665,7 +1612,7 @@ <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>
@@ -1673,25 +1620,598 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Append a frame of output data to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_system(self, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_bin"></span><h3>procedure, public :: <strong>write_hdr_bin</strong>  => <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in Fortran binary format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_hdr_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(in)</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>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_netcdf"></span><h3>procedure, public :: <strong>write_hdr_netcdf</strong>  => <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in NetCDF format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_hdr_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(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-obl_pot"></span><h3>procedure, public :: <strong>obl_pot</strong>  => <a href='../interface/obl_pot_system.html'>obl_pot_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init_particle_info"></span><h3>procedure, public :: <strong>init_particle_info</strong>  => <a href='../interface/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Initialize the system from input files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine setup_initialize_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/setup_initialize_particle_info_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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step_spin"></span><h3>procedure, public :: <strong>step_spin</strong>  => <a href='../interface/tides_step_spin_system.html'>tides_step_spin_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Steps the spins of the massive &amp; central bodies due to tides.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine tides_step_spin_system(self, param, t, dt)
+    
+    
+   
+   <a href='../proc/tides_step_spin_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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Simulation 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>t</strong></td><td><p>Simulation time</p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
@@ -2097,7 +2617,7 @@ <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>
@@ -2122,7 +2642,72 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~4"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/whm_setup_initialize_system.html'>whm_setup_initialize_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr~2"></span><h3>generic, public :: <strong>write_hdr</strong>  => <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin'>write_hdr_bin</a>, <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Generic method call for writing headers</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~4"></span><h3>procedure, public :: <strong>step</strong>  => <a href='../interface/helio_step_system.html'>helio_step_system</a> 
     
   </h3></div>
   
@@ -2130,8 +2715,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Replace the abstract procedures with concrete ones
- Performs WHM-specific initilization steps, like calculating the Jacobi masses</p>
+    <p>Advance the Helio nbody system forward in time by one step</p>
   </div>
   
   <ul class="list-group">
@@ -2147,11 +2731,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine whm_setup_initialize_system(self, param)
+public module subroutine helio_step_system(self, param, t, dt)
     
     
    
-   <a href='../proc/whm_setup_initialize_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/helio_step_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2175,12 +2759,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/helio_nbody_system.html'>helio_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>WHM nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Helio nbody system object</p></td>
   
 </tr>
 
@@ -2195,7 +2779,37 @@ <h4>Arguments</h4>
   <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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Simulation 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>dt</strong></td><td><p>Current stepsize</p></td>
   
 </tr>
 
@@ -2216,7 +2830,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~4"></span><h3>procedure, public :: <strong>step</strong>  => <a href='../interface/helio_step_system.html'>helio_step_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~2"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/helio_setup_initialize_system.html'>helio_setup_initialize_system</a> 
     
   </h3></div>
   
@@ -2224,7 +2838,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Advance the Helio nbody system forward in time by one step</p>
+    <p>Performs Helio-specific initilization steps, including converting to DH coordinates</p>
   </div>
   
   <ul class="list-group">
@@ -2240,11 +2854,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_step_system(self, param, t, dt)
+public module subroutine helio_setup_initialize_system(self, param)
     
     
    
-   <a href='../proc/helio_step_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/helio_setup_initialize_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2288,37 +2902,7 @@ <h4>Arguments</h4>
   <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>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Simulation 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>dt</strong></td><td><p>Current stepsize</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
diff --git a/docs/type/helio_pl.html b/docs/type/helio_pl.html
index 996cf80a6..587b02949 100644
--- a/docs/type/helio_pl.html
+++ b/docs/type/helio_pl.html
@@ -134,7 +134,7 @@ <h1>helio_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 2.2% of total for derived types.</p>Including implementation: 12 statements,  1.7% of total for derived types.">12 statements</a>
+    title="<p> 1.4% of total for derived types.</p>Including implementation: 10 statements,  1.1% of total for derived types.">10 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/helio_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/helio_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#variable-id~2">id</a>
       
@@ -285,15 +283,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_particle_info~5">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -303,9 +309,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame~6">write_frame</a>
+      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -321,6 +329,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-fill~3">fill</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-resize~3">resize</a>
@@ -337,10 +351,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-spill~3">spill</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vh2vb">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vb2vh">vb2vh</a>
-      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-drift~3">drift</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-lindrift">lindrift</a>
@@ -383,61 +393,77 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~helio_pl~~InheritsGraph Pages: 1 -->
-<svg id="typehelio_plInheritsGraph" width="386pt" height="32pt"
- viewBox="0.00 0.00 386.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~helio_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typehelio_plInheritsGraph" width="439pt" height="74pt"
+ viewBox="0.00 0.00 439.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~helio_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~helio_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 382,-28 382,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 435,-70 435,4 -4,4"/>
 <!-- type~helio_pl -->
 <g id="type~~helio_pl~~InheritsGraph_node1" class="node">
 <title>type~helio_pl</title>
-<polygon fill="none" stroke="black" points="378,-24 324,-24 324,0 378,0 378,-24"/>
-<text text-anchor="middle" x="351" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_pl</text>
+<polygon fill="none" stroke="black" points="431,-45 377,-45 377,-21 431,-21 431,-45"/>
+<text text-anchor="middle" x="404" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_pl</text>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~helio_pl~~InheritsGraph_node2" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~helio_pl~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="288,-24 226,-24 226,0 288,0 288,-24"/>
-<text text-anchor="middle" x="257" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340,-45 278,-45 278,-21 340,-21 340,-45"/>
+<text text-anchor="middle" x="309" y="-30.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~~helio_pl~~InheritsGraph_edge1" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M323.88,-12C315.86,-12 306.85,-12 298.12,-12"/>
-<polygon fill="#000000" stroke="#000000" points="298.08,-8.5 288.08,-12 298.08,-15.5 298.08,-8.5"/>
+<path fill="none" stroke="#000000" d="M376.6,-33C368.42,-33 359.21,-33 350.3,-33"/>
+<polygon fill="#000000" stroke="#000000" points="350.07,-29.5 340.07,-33 350.07,-36.5 350.07,-29.5"/>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~helio_pl~~InheritsGraph_node3" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~helio_pl~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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~~helio_pl~~InheritsGraph_edge2" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M225.79,-12C217.81,-12 209,-12 200.34,-12"/>
-<polygon fill="#000000" stroke="#000000" points="200.3,-8.5 190.3,-12 200.3,-15.5 200.3,-8.5"/>
+<path fill="none" stroke="#000000" d="M277.77,-33C269.45,-33 260.22,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.09,-29.5 241.09,-33 251.09,-36.5 251.09,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~helio_pl~~InheritsGraph_node4" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~helio_pl~~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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~helio_pl~~InheritsGraph_edge3" class="edge">
+<g id="type~~helio_pl~~InheritsGraph_edge4" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~helio_pl~~InheritsGraph_node5" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~helio_pl~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~helio_pl~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -602,13 +628,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/helio_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/helio_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#variable-id~2">id</a>
       
@@ -708,15 +732,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_particle_info~5">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -726,9 +758,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-write_frame~6">write_frame</a>
+      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -744,6 +778,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-fill~3">fill</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-resize~3">resize</a>
@@ -760,10 +800,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-spill~3">spill</a>
       
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vh2vb">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-vb2vh">vb2vh</a>
-      
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-drift~3">drift</a>
       
       <a class="list-group-item" href="../type/helio_pl.html#boundprocedure-lindrift">lindrift</a>
@@ -806,20 +842,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-lfirst"></span>logical,</td>
@@ -850,11 +872,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -938,7 +960,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -952,7 +974,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1369,10 +1391,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1386,11 +1415,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1455,7 +1484,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1463,7 +1492,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1479,11 +1508,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1507,12 +1536,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1523,11 +1552,26 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1548,7 +1592,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1556,7 +1600,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1572,11 +1616,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1600,12 +1644,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1641,7 +1700,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1649,7 +1708,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1665,11 +1724,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1693,12 +1752,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1708,12 +1767,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1734,7 +1793,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~5"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -1742,7 +1836,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1758,11 +1852,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1791,22 +1885,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1817,41 +1896,11 @@ <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></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</p></td>
   
 </tr>
 
@@ -1872,7 +1921,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
     
   </h3></div>
   
@@ -1880,7 +1929,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1896,11 +1945,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_pv2vh_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1925,26 +1974,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1980,7 +2014,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -1988,7 +2022,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -2004,11 +2038,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2047,12 +2081,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2073,7 +2107,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -2081,7 +2115,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2097,11 +2131,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2140,12 +2174,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></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>
 
@@ -2156,6 +2205,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2166,7 +2224,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2174,7 +2232,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2190,11 +2248,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2219,11 +2277,586 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert position and velocity vectors to orbital  elements </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_xv2el_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_xv2el_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add user-supplied heliocentric accelerations to planets</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/user_kick_getacch_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_ir3h(self)
+    
+    
+   
+   <a href='../proc/util_set_ir3h.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</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~6"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Placeholder method for discarding massive bodies </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine discard_pl(self, system, param)
+    
+    
+   
+   <a href='../proc/discard_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 particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2238,7 +2871,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>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2249,26 +2882,89 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameter</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~2"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/util_index_eucl_plpl.html'>util_index_eucl_plpl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/util_index_eucl_plpl.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>real(kind=DP),</td>
-  <td>intent(in)</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>t</strong></td><td><p>Current time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2278,12 +2974,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2304,7 +3000,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
     
   </h3></div>
   
@@ -2312,7 +3008,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2328,11 +3024,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine kick_getacch_int_pl(self)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2356,12 +3052,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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 body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2382,7 +3078,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
     
   </h3></div>
   
@@ -2390,7 +3086,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Placeholder method for discarding massive bodies </p>
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2406,11 +3102,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_pl(self, system, param)
+public module subroutine obl_acc_pl(self, system)
     
     
    
-   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2458,21 +3154,6 @@ <h4>Arguments</h4>
   
 </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 parameter</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -2490,7 +3171,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-eucl_index"></span><h3>procedure, public :: <strong>eucl_index</strong>  => <a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~3"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_pl.html'>setup_pl</a> 
     
   </h3></div>
   
@@ -2498,7 +3179,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+    <p>A base constructor that sets the number of bodies and allocates and initializes all arrays  </p>
   </div>
   
   <ul class="list-group">
@@ -2514,11 +3195,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine setup_pl(self, n, param)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2551,6 +3232,36 @@ <h4>Arguments</h4>
   
 </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><p>Number of particles to allocate space for</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>
 
@@ -2568,7 +3279,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
     
   </h3></div>
   
@@ -2576,7 +3287,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
+    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2592,11 +3303,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine tides_kick_getacch_pl(self, system)
     
     
    
-   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2625,7 +3336,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2646,7 +3372,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~3"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_pl.html'>util_append_pl</a> 
     
   </h3></div>
   
@@ -2654,7 +3380,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Appends elements from one structure to another</p>
   </div>
   
   <ul class="list-group">
@@ -2670,11 +3396,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_pl(self, system)
+public module subroutine util_append_pl(self, source, lsource_mask)
     
     
    
-   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2713,12 +3439,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
   
 </tr>
 
@@ -2739,7 +3480,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~3"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_pl.html'>setup_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
     
   </h3></div>
   
@@ -2747,7 +3488,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>A base constructor that sets the number of bodies and allocates and initializes all arrays  </p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2763,11 +3504,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine setup_pl(self, n, param)
+public module subroutine util_coord_h2b_pl(self, cb)
     
     
    
-   <a href='../proc/setup_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2806,27 +3547,12 @@ <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>n</strong></td><td><p>Number of particles to allocate space for</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><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>param</strong></td><td><p>Current run configuration parameters</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2847,7 +3573,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
     
   </h3></div>
   
@@ -2855,7 +3581,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2871,11 +3597,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine tides_kick_getacch_pl(self, system)
+public module subroutine util_coord_b2h_pl(self, cb)
     
     
    
-   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2914,12 +3640,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2940,7 +3666,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~3"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_pl.html'>util_append_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
     
   </h3></div>
   
@@ -2948,7 +3674,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Appends elements from one structure to another</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2964,11 +3690,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_append_pl(self, source, lsource_mask)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/util_append_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3007,27 +3733,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
+  <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>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</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>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3048,7 +3759,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
     
   </h3></div>
   
@@ -3056,7 +3767,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3072,11 +3783,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_pl(self, cb)
+public module subroutine util_coord_vb2vh_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3141,7 +3852,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
     
   </h3></div>
   
@@ -3149,7 +3860,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -3165,11 +3876,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_pl(self, cb)
+public module subroutine util_coord_xh2xb_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4060,192 +4771,6 @@ <h4>Arguments</h4>
 
         
       
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/helio_coord_vh2vb_pl.html'>helio_coord_vh2vb_pl</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine helio_coord_vh2vb_pl(self, cb)
-    
-    
-   
-   <a href='../proc/helio_coord_vh2vb_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/helio_pl.html'>helio_pl</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio 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="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/helio_coord_vb2vh_pl.html'>helio_coord_vb2vh_pl</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine helio_coord_vb2vh_pl(self, cb)
-    
-    
-   
-   <a href='../proc/helio_coord_vb2vh_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/helio_pl.html'>helio_pl</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio 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>
diff --git a/docs/type/helio_tp.html b/docs/type/helio_tp.html
index d50e24894..463ad4b85 100644
--- a/docs/type/helio_tp.html
+++ b/docs/type/helio_tp.html
@@ -134,7 +134,7 @@ <h1>helio_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 2.2% of total for derived types.</p>Including implementation: 12 statements,  1.7% of total for derived types.">12 statements</a>
+    title="<p> 1.4% of total for derived types.</p>Including implementation: 10 statements,  1.1% of total for derived types.">10 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/helio_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/helio_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#variable-id~2">id</a>
       
@@ -233,6 +231,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#variable-npltp">npltp</a>
+      
     </div>
   </div>
 </div>
@@ -261,15 +263,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_particle_info~6">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -279,6 +289,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame~7">write_frame</a>
+      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -293,6 +305,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-fill~4">fill</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-get_peri">get_peri</a>
@@ -307,10 +325,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-spill~4">spill</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vh2vb~2">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vb2vh~2">vb2vh</a>
-      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-lindrift~2">lindrift</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-drift~4">drift</a>
@@ -353,61 +367,77 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~helio_tp~~InheritsGraph Pages: 1 -->
-<svg id="typehelio_tpInheritsGraph" width="387pt" height="32pt"
- viewBox="0.00 0.00 387.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~helio_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typehelio_tpInheritsGraph" 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="type~~helio_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~helio_tp~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 383,-28 383,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 436,-70 436,4 -4,4"/>
 <!-- type~helio_tp -->
 <g id="type~~helio_tp~~InheritsGraph_node1" class="node">
 <title>type~helio_tp</title>
-<polygon fill="none" stroke="black" 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">helio_tp</text>
+<polygon fill="none" stroke="black" points="432,-45 378,-45 378,-21 432,-21 432,-45"/>
+<text text-anchor="middle" x="405" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_tp</text>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~helio_tp~~InheritsGraph_node2" class="node">
 <title>type~swiftest_tp</title>
 <g id="a_type~~helio_tp~~InheritsGraph_node2"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-45 278,-45 278,-21 341,-21 341,-45"/>
+<text text-anchor="middle" x="309.5" y="-30.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~~helio_tp~~InheritsGraph_edge1" 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="M377.96,-33C369.63,-33 360.21,-33 351.11,-33"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-29.5 341.04,-33 351.04,-36.5 351.04,-29.5"/>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~helio_tp~~InheritsGraph_node3" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~helio_tp~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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_tp~~InheritsGraph_edge2" 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="M277.85,-33C269.49,-33 260.24,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.08,-29.5 241.08,-33 251.08,-36.5 251.08,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~helio_tp~~InheritsGraph_node4" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~helio_tp~~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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~helio_tp~~InheritsGraph_edge3" class="edge">
+<g id="type~~helio_tp~~InheritsGraph_edge4" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~helio_tp~~InheritsGraph_node5" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~helio_tp~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~helio_tp~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -541,13 +571,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/helio_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/helio_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/helio_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#variable-id~2">id</a>
       
@@ -595,6 +623,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#variable-npltp">npltp</a>
+      
     </div>
   </div>
 </div>
@@ -623,15 +655,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_particle_info~6">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -641,6 +681,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-write_frame~7">write_frame</a>
+      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -655,6 +697,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-fill~4">fill</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-get_peri">get_peri</a>
@@ -669,10 +717,6 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-spill~4">spill</a>
       
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vh2vb~2">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-vb2vh~2">vb2vh</a>
-      
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-lindrift~2">lindrift</a>
       
       <a class="list-group-item" href="../type/helio_tp.html#boundprocedure-drift~4">drift</a>
@@ -715,20 +759,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-lfirst"></span>logical,</td>
@@ -759,11 +789,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -847,7 +877,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -861,7 +891,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1087,7 +1117,35 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -1110,10 +1168,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1127,11 +1192,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1196,7 +1261,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1204,7 +1269,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1220,11 +1285,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1248,12 +1313,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1264,11 +1329,26 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1289,7 +1369,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1297,7 +1377,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1313,11 +1393,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1341,12 +1421,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1382,7 +1477,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1390,7 +1485,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1406,11 +1501,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1434,12 +1529,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1449,12 +1544,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1475,7 +1570,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~6"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -1483,7 +1613,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1499,11 +1629,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1532,22 +1662,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1558,41 +1673,11 @@ <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></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</p></td>
   
 </tr>
 
@@ -1613,7 +1698,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
     
   </h3></div>
   
@@ -1621,7 +1706,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1637,11 +1722,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_pv2vh_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1666,26 +1751,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1721,7 +1791,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -1729,7 +1799,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -1745,11 +1815,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1788,12 +1858,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -1814,7 +1884,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -1822,7 +1892,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -1838,11 +1908,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1881,23 +1951,622 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
-</tbody>
+  
+  
+  
+  
+<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>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_body(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert position and velocity vectors to orbital  elements </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_xv2el_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_xv2el_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add user-supplied heliocentric accelerations to planets</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/user_kick_getacch_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_ir3h(self)
+    
+    
+   
+   <a href='../proc/util_set_ir3h.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</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~7"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
       
       </li>
     
@@ -1907,7 +2576,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~4"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_tp.html'>discard_tp</a> 
     
   </h3></div>
   
@@ -1915,7 +2584,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -1931,11 +2600,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine discard_tp(self, system, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1959,12 +2628,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -1979,7 +2648,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>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1990,26 +2659,89 @@ <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>
+  <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-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_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>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>t</strong></td><td><p>Current time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle</p></td>
   
 </tr>
 
@@ -2019,12 +2751,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>GMpl</strong></td><td><p>Massive body masses</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>xhp</strong></td><td><p>Massive body position 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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>npl</strong></td><td><p>Number of active massive bodies</p></td>
   
 </tr>
 
@@ -2045,7 +2807,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
     
   </h3></div>
   
@@ -2053,7 +2815,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2069,11 +2831,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine obl_acc_tp(self, system)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2097,12 +2859,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest body object</p></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>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2123,7 +2900,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~4"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_tp.html'>discard_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~4"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_tp.html'>setup_tp</a> 
     
   </h3></div>
   
@@ -2131,7 +2908,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p>
+    <p>A base constructor that sets the number of bodies and </p>
   </div>
   
   <ul class="list-group">
@@ -2147,11 +2924,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_tp(self, system, param)
+public module subroutine setup_tp(self, n, param)
     
     
    
-   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2190,12 +2967,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
   
 </tr>
 
@@ -2206,11 +2983,11 @@ <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>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 parametersr</p></td>
   
 </tr>
 
@@ -2231,7 +3008,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~4"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_tp.html'>util_append_tp</a> 
     
   </h3></div>
   
@@ -2239,7 +3016,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
+    <p>Appends elements from one structure to another</p>
   </div>
   
   <ul class="list-group">
@@ -2255,11 +3032,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+public module subroutine util_append_tp(self, source, lsource_mask)
     
     
    
-   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2288,7 +3065,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -2298,12 +3075,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>GMpl</strong></td><td><p>Massive body masses</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -2313,27 +3090,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xhp</strong></td><td><p>Massive body position 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>npl</strong></td><td><p>Number of active massive bodies</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -2354,7 +3116,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
     
   </h3></div>
   
@@ -2362,7 +3124,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2378,11 +3140,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_tp(self, system)
+public module subroutine util_coord_h2b_tp(self, cb)
     
     
    
-   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2421,12 +3183,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2447,7 +3209,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~4"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_tp.html'>setup_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
     
   </h3></div>
   
@@ -2455,7 +3217,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>A base constructor that sets the number of bodies and </p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2471,11 +3233,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine setup_tp(self, n, param)
+public module subroutine util_coord_b2h_tp(self, cb)
     
     
    
-   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2514,27 +3276,12 @@ <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>n</strong></td><td><p>Number of particles to allocate space for</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parametersr</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2555,7 +3302,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~4"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_tp.html'>util_append_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_tp.html'>util_coord_vb2vh_tp</a> 
     
   </h3></div>
   
@@ -2563,7 +3310,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Appends elements from one structure to another</p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2579,11 +3326,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_append_tp(self, source, lsource_mask)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2622,27 +3369,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</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>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -2663,7 +3395,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_tp.html'>util_coord_vh2vb_tp</a> 
     
   </h3></div>
   
@@ -2671,7 +3403,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2687,11 +3419,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_tp(self, cb)
+public module subroutine util_coord_vh2vb_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2730,12 +3462,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(in)</td>
+  <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>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -2756,7 +3488,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_tp.html'>util_coord_xh2xb_tp</a> 
     
   </h3></div>
   
@@ -2764,7 +3496,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -2780,11 +3512,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_tp(self, cb)
+public module subroutine util_coord_xh2xb_tp(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3567,192 +4299,6 @@ <h4>Arguments</h4>
 
         
       
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/helio_coord_vh2vb_tp.html'>helio_coord_vh2vb_tp</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine helio_coord_vh2vb_tp(self, vbcb)
-    
-    
-   
-   <a href='../proc/helio_coord_vh2vb_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/helio_tp.html'>helio_tp</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/helio_coord_vb2vh_tp.html'>helio_coord_vb2vh_tp</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine helio_coord_vb2vh_tp(self, vbcb)
-    
-    
-   
-   <a href='../proc/helio_coord_vb2vh_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/helio_tp.html'>helio_tp</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Helio massive body object</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>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
       </li>
     
   </ul>
diff --git a/docs/type/lambda_obj.html b/docs/type/lambda_obj.html
index 3091a0145..250ef97c9 100644
--- a/docs/type/lambda_obj.html
+++ b/docs/type/lambda_obj.html
@@ -134,7 +134,7 @@ <h1>lambda_obj
      <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: 41 statements,  5.9% of total for derived types.">10 statements</a>
+    title="<p> 2.0% of total for derived types.</p>Including implementation: 41 statements,  4.6% of total for derived types.">10 statements</a>
      </li> 
      
      
@@ -279,35 +279,35 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="none" stroke="black" points="68,-45 0,-45 0,-21 68,-21 68,-45"/>
 <text text-anchor="middle" x="34" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">lambda_obj</text>
 </g>
-<!-- type~lambda_obj_tvar -->
+<!-- type~lambda_obj_err -->
 <g id="type~~lambda_obj~~InheritedByGraph_node2" class="node">
-<title>type~lambda_obj_tvar</title>
-<g id="a_type~~lambda_obj~~InheritedByGraph_node2"><a xlink:href=".././type/lambda_obj_tvar.html" xlink:title="lambda_obj_tvar">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="196,-66 104,-66 104,-42 196,-42 196,-66"/>
-<text text-anchor="middle" x="150" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
+<title>type~lambda_obj_err</title>
+<g id="a_type~~lambda_obj~~InheritedByGraph_node2"><a xlink:href=".././type/lambda_obj_err.html" xlink:title="lambda_obj_err">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="194,-66 106,-66 106,-42 194,-42 194,-66"/>
+<text text-anchor="middle" x="150" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_err</text>
 </a>
 </g>
 </g>
-<!-- type~lambda_obj_tvar&#45;&gt;type~lambda_obj -->
+<!-- type~lambda_obj_err&#45;&gt;type~lambda_obj -->
 <g id="type~~lambda_obj~~InheritedByGraph_edge1" class="edge">
-<title>type~lambda_obj_tvar&#45;&gt;type~lambda_obj</title>
-<path fill="none" stroke="#000000" d="M103.94,-45.7C95.45,-44.14 86.58,-42.5 78.15,-40.95"/>
-<polygon fill="#000000" stroke="#000000" points="78.6,-37.47 68.13,-39.1 77.33,-44.36 78.6,-37.47"/>
+<title>type~lambda_obj_err&#45;&gt;type~lambda_obj</title>
+<path fill="none" stroke="#000000" d="M105.9,-46.06C96.83,-44.39 87.26,-42.63 78.19,-40.96"/>
+<polygon fill="#000000" stroke="#000000" points="78.67,-37.49 68.21,-39.12 77.41,-44.37 78.67,-37.49"/>
 </g>
-<!-- type~lambda_obj_err -->
+<!-- type~lambda_obj_tvar -->
 <g id="type~~lambda_obj~~InheritedByGraph_node3" class="node">
-<title>type~lambda_obj_err</title>
-<g id="a_type~~lambda_obj~~InheritedByGraph_node3"><a xlink:href=".././type/lambda_obj_err.html" xlink:title="lambda_obj_err">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="194,-24 106,-24 106,0 194,0 194,-24"/>
-<text text-anchor="middle" x="150" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_err</text>
+<title>type~lambda_obj_tvar</title>
+<g id="a_type~~lambda_obj~~InheritedByGraph_node3"><a xlink:href=".././type/lambda_obj_tvar.html" xlink:title="lambda_obj_tvar">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="196,-24 104,-24 104,0 196,0 196,-24"/>
+<text text-anchor="middle" x="150" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
 </a>
 </g>
 </g>
-<!-- type~lambda_obj_err&#45;&gt;type~lambda_obj -->
+<!-- type~lambda_obj_tvar&#45;&gt;type~lambda_obj -->
 <g id="type~~lambda_obj~~InheritedByGraph_edge2" class="edge">
-<title>type~lambda_obj_err&#45;&gt;type~lambda_obj</title>
-<path fill="none" stroke="#000000" d="M105.9,-19.94C96.83,-21.61 87.26,-23.37 78.19,-25.04"/>
-<polygon fill="#000000" stroke="#000000" points="77.41,-21.63 68.21,-26.88 78.67,-28.51 77.41,-21.63"/>
+<title>type~lambda_obj_tvar&#45;&gt;type~lambda_obj</title>
+<path fill="none" stroke="#000000" d="M103.94,-20.3C95.45,-21.86 86.58,-23.5 78.15,-25.05"/>
+<polygon fill="#000000" stroke="#000000" points="77.33,-21.64 68.13,-26.9 78.6,-28.53 77.33,-21.64"/>
 </g>
 </g>
 </svg>
diff --git a/docs/type/lambda_obj_err.html b/docs/type/lambda_obj_err.html
index 90d0449d9..78499511a 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.1% of total for derived types.">8 statements</a>
+    title="<p> 1.1% of total for derived types.</p>Including implementation: 50 statements,  5.6% of total for derived types.">8 statements</a>
      </li> 
      
      
diff --git a/docs/type/lambda_obj_tvar.html b/docs/type/lambda_obj_tvar.html
index a86e58913..8434b8078 100644
--- a/docs/type/lambda_obj_tvar.html
+++ b/docs/type/lambda_obj_tvar.html
@@ -134,7 +134,7 @@ <h1>lambda_obj_tvar
      <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: 59 statements,  8.4% of total for derived types.">7 statements</a>
+    title="<p> 1.0% of total for derived types.</p>Including implementation: 59 statements,  6.6% of total for derived types.">7 statements</a>
      </li> 
      
      
diff --git a/docs/type/netcdf_parameters.html b/docs/type/netcdf_parameters.html
new file mode 100644
index 000000000..c8508941e
--- /dev/null
+++ b/docs/type/netcdf_parameters.html
@@ -0,0 +1,1954 @@
+<!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>netcdf_parameters &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>netcdf_parameters
+    <small>Derived Type</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="<p>10.0% of total for derived types.</p>Including implementation: 73 statements,  8.2% of total for derived types.">73 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">netcdf_parameters</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-out_type~2">out_type</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ncid">ncid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-dimids">dimids</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-time_dimid">time_dimid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-id_dimid">id_dimid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-str_dimid">str_dimid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-time_varid">time_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-id_varid">id_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-name_varid">name_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ptype_varid">ptype_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-npl_varid">npl_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ntp_varid">ntp_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-a_varid">a_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-e_varid">e_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-inc_varid">inc_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-capom_varid">capom_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-omega_varid">omega_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-capm_varid">capm_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-xhx_varid">xhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-xhy_varid">xhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-xhz_varid">xhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-vhx_varid">vhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-vhy_varid">vhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-vhz_varid">vhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-gmass_varid">Gmass_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-rhill_varid">rhill_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-radius_varid">radius_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ip1_varid">Ip1_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ip2_varid">Ip2_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ip3_varid">Ip3_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-rotx_varid">rotx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-roty_varid">roty_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-rotz_varid">rotz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-k2_varid">k2_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-q_varid">Q_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ke_orb_varid">KE_orb_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ke_spin_varid">KE_spin_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-pe_varid">PE_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_orbx_varid">L_orbx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_orby_varid">L_orby_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_orbz_varid">L_orbz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_spinx_varid">L_spinx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_spiny_varid">L_spiny_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_spinz_varid">L_spinz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_escapex_varid">L_escapex_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_escapey_varid">L_escapey_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_escapez_varid">L_escapez_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ecollisions_varid">Ecollisions_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-euntracked_varid">Euntracked_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-gmescape_varid">GMescape_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-status_varid">status_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_type_varid">origin_type_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_time_varid">origin_time_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_xhx_varid">origin_xhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_xhy_varid">origin_xhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_xhz_varid">origin_xhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_vhx_varid">origin_vhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_vhy_varid">origin_vhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_vhz_varid">origin_vhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_time_varid">discard_time_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_xhx_varid">discard_xhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_xhy_varid">discard_xhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_xhz_varid">discard_xhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_vhx_varid">discard_vhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_vhy_varid">discard_vhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_vhz_varid">discard_vhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_body_id_varid">discard_body_id_varid</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/netcdf_parameters.html#boundprocedure-close">close</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#boundprocedure-initialize~5">initialize</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#boundprocedure-open">open</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public :: netcdf_parameters</h2>
+    
+    <br>
+    
+    
+    <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~~netcdf_parameters~~InheritedByGraph Pages: 1 -->
+<svg id="typenetcdf_parametersInheritedByGraph" width="416pt" height="32pt"
+ viewBox="0.00 0.00 416.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~netcdf_parameters~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~netcdf_parameters~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 412,-28 412,4 -4,4"/>
+<!-- type~netcdf_parameters -->
+<g id="type~~netcdf_parameters~~InheritedByGraph_node1" class="node">
+<title>type~netcdf_parameters</title>
+<polygon fill="none" stroke="black" points="103,-24 0,-24 0,0 103,0 103,-24"/>
+<text text-anchor="middle" x="51.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">netcdf_parameters</text>
+</g>
+<!-- type~swiftest_parameters -->
+<g id="type~~netcdf_parameters~~InheritedByGraph_node2" class="node">
+<title>type~swiftest_parameters</title>
+<g id="a_type~~netcdf_parameters~~InheritedByGraph_node2"><a xlink:href=".././type/swiftest_parameters.html" xlink:title="swiftest_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="266,-24 157,-24 157,0 266,0 266,-24"/>
+<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_parameters</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_parameters&#45;&gt;type~netcdf_parameters -->
+<g id="type~~netcdf_parameters~~InheritedByGraph_edge1" class="edge">
+<title>type~swiftest_parameters&#45;&gt;type~netcdf_parameters</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.57,-12C142.68,-12 127.65,-12 113.44,-12"/>
+<polygon fill="#000000" stroke="#000000" points="113.26,-8.5 103.26,-12 113.26,-15.5 113.26,-8.5"/>
+<text text-anchor="middle" x="130" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">nciu</text>
+</g>
+<!-- type~symba_parameters -->
+<g id="type~~netcdf_parameters~~InheritedByGraph_node3" class="node">
+<title>type~symba_parameters</title>
+<g id="a_type~~netcdf_parameters~~InheritedByGraph_node3"><a xlink:href=".././type/symba_parameters.html" xlink:title="symba_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="408,-24 303,-24 303,0 408,0 408,-24"/>
+<text text-anchor="middle" x="355.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_parameters</text>
+</a>
+</g>
+</g>
+<!-- type~symba_parameters&#45;&gt;type~swiftest_parameters -->
+<g id="type~~netcdf_parameters~~InheritedByGraph_edge2" class="edge">
+<title>type~symba_parameters&#45;&gt;type~swiftest_parameters</title>
+<path fill="none" stroke="#000000" d="M302.83,-12C294.28,-12 285.33,-12 276.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="276.28,-8.5 266.28,-12 276.28,-15.5 276.28,-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>
+</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>
+</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>
+    
+    <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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-out_type~2">out_type</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ncid">ncid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-dimids">dimids</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-time_dimid">time_dimid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-id_dimid">id_dimid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-str_dimid">str_dimid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-time_varid">time_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-id_varid">id_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-name_varid">name_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ptype_varid">ptype_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-npl_varid">npl_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ntp_varid">ntp_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-a_varid">a_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-e_varid">e_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-inc_varid">inc_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-capom_varid">capom_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-omega_varid">omega_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-capm_varid">capm_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-xhx_varid">xhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-xhy_varid">xhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-xhz_varid">xhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-vhx_varid">vhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-vhy_varid">vhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-vhz_varid">vhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-gmass_varid">Gmass_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-rhill_varid">rhill_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-radius_varid">radius_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ip1_varid">Ip1_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ip2_varid">Ip2_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ip3_varid">Ip3_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-rotx_varid">rotx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-roty_varid">roty_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-rotz_varid">rotz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-k2_varid">k2_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-q_varid">Q_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ke_orb_varid">KE_orb_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ke_spin_varid">KE_spin_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-pe_varid">PE_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_orbx_varid">L_orbx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_orby_varid">L_orby_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_orbz_varid">L_orbz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_spinx_varid">L_spinx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_spiny_varid">L_spiny_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_spinz_varid">L_spinz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_escapex_varid">L_escapex_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_escapey_varid">L_escapey_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-l_escapez_varid">L_escapez_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-ecollisions_varid">Ecollisions_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-euntracked_varid">Euntracked_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-gmescape_varid">GMescape_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-status_varid">status_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_type_varid">origin_type_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_time_varid">origin_time_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_xhx_varid">origin_xhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_xhy_varid">origin_xhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_xhz_varid">origin_xhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_vhx_varid">origin_vhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_vhy_varid">origin_vhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-origin_vhz_varid">origin_vhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_time_varid">discard_time_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_xhx_varid">discard_xhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_xhy_varid">discard_xhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_xhz_varid">discard_xhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_vhx_varid">discard_vhx_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_vhy_varid">discard_vhy_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_vhz_varid">discard_vhz_varid</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#variable-discard_body_id_varid">discard_body_id_varid</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/netcdf_parameters.html#boundprocedure-close">close</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#boundprocedure-initialize~5">initialize</a>
+      
+      <a class="list-group-item" href="../type/netcdf_parameters.html#boundprocedure-open">open</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    <section>
+    <h2>Components</h2>
+    
+<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-out_type~2"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>out_type</strong></td><td></td><td></td><td><p>NetCDF output type (will be assigned either NF90_DOUBLE or NF90_FLOAT, depending on the user parameter)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ncid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ncid</strong></td><td></td><td></td><td><p>NetCDF ID for the output file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-dimids"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>dimids</strong>(3)</td><td></td><td></td><td><p>Dimensions of the NetCDF file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-time_dimid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>time_dimid</strong></td><td></td><td></td><td><p>NetCDF ID for the time dimension </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id_dimid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>id_dimid</strong></td><td></td><td></td><td><p>NetCDF ID for the particle id dimension</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-str_dimid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>str_dimid</strong></td><td></td><td></td><td><p>NetCDF ID for the character string dimension</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-time_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>time_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the time variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>id_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the particle name variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-name_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>name_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the namevariable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ptype_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ptype_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the particle type variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npl_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npl_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the number of active massive bodies variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ntp_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>ntp_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the number of active test particles variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-a_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>a_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the semimajor axis variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-e_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>e_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the eccentricity variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inc_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>inc_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the inclination variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capom_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>capom_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the long. asc. node variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-omega_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>omega_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the arg. periapsis variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capm_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>capm_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the mean anomaly variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xhx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>xhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position x variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>xhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position y variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>xhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position z variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vhx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>vhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity x variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>vhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity y variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>vhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity z variable </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmass_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Gmass_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the mass variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rhill_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>rhill_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the hill radius variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-radius_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>radius_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the radius variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip1_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Ip1_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the axis 1 principal moment of inertia variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip2_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Ip2_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the axis 2 principal moment of inertia variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip3_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Ip3_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the axis 3 principal moment of inertia variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rotx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>rotx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the rotation x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-roty_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>roty_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the rotation y variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rotz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>rotz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the rotation z variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k2_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>k2_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the Love number variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-q_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Q_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the energy dissipation variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_orb_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>KE_orb_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital kinetic energy variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ke_spin_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>KE_spin_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin kinetic energy variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-pe_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>PE_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system potential energy variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orbx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_orbx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital angular momentum x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orby_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_orby_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital angular momentum y variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_orbz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_orbz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system orbital angular momentum z variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spinx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_spinx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin angular momentum x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spiny_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_spiny_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin angular momentum y variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_spinz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_spinz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the system spin angular momentum z variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_escapex_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_escapex_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the escaped angular momentum x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_escapey_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_escapey_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the escaped angular momentum x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-l_escapez_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>L_escapez_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the escaped angular momentum x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ecollisions_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Ecollisions_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the energy lost in collisions variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-euntracked_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>Euntracked_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the energy that is untracked due to loss (untracked potential energy due to mergers and body energy for escaped bodies)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-gmescape_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>GMescape_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the G*Mass of bodies that escape the system</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>status_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the status variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_type_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_type_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin type</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_time_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_time_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_xhx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_xhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh x component</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_xhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_xhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh y component</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_xhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_xhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh z component</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_vhx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_vhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh x component</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_vhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_vhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh y component</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_vhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_vhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the origin xh z component</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_time_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_time_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the time of discard variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xhx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_xhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position of the body at the time of discard x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_xhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position of the body at the time of discard y variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_xhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric position of the body at the time of discard z variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vhx_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_vhx_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity of the body at the time of discard x variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vhy_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_vhy_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity of the body at the time of discard y variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vhz_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_vhz_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the heliocentric velocity of the body at the time of discard z variable</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_body_id_varid"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_body_id_varid</strong></td><td></td><td></td><td><p>NetCDF ID for the id of the other body involved in the discard</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-close"></span><h3>procedure, public :: <strong>close</strong>  => <a href='../interface/netcdf_close.html'>netcdf_close</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Closes an open NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_close(self, param)
+    
+    
+   
+   <a href='../proc/netcdf_close.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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+
+    
+     
+<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/netcdf_initialize_output.html'>netcdf_initialize_output</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Initialize a set of parameters used to identify a NetCDF output object</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_initialize_output(self, param)
+    
+    
+   
+   <a href='../proc/netcdf_initialize_output.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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-open"></span><h3>procedure, public :: <strong>open</strong>  => <a href='../interface/netcdf_open.html'>netcdf_open</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Opens a NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_open(self, param)
+    
+    
+   
+   <a href='../proc/netcdf_open.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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+    
+    
+    
+    
+    </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/type/rmvs_cb.html b/docs/type/rmvs_cb.html
index 0da9aff21..fae68ea9a 100644
--- a/docs/type/rmvs_cb.html
+++ b/docs/type/rmvs_cb.html
@@ -134,7 +134,7 @@ <h1>rmvs_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.9% of total for derived types.</p>Including implementation: 5 statements,  0.7% of total for derived types.">5 statements</a>
+    title="<p> 0.7% of total for derived types.</p>Including implementation: 5 statements,  0.6% of total for derived types.">5 statements</a>
      </li> 
      
      
@@ -179,9 +179,7 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/rmvs_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/rmvs_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/rmvs_cb.html#variable-id">id</a>
       
@@ -263,10 +261,20 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_particle_info">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
       <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_frame~2">write_frame</a>
       
     </div>
@@ -297,77 +305,93 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~rmvs_cb~~InheritsGraph Pages: 1 -->
-<svg id="typermvs_cbInheritsGraph" width="432pt" height="74pt"
- viewBox="0.00 0.00 432.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~rmvs_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<svg id="typermvs_cbInheritsGraph" width="482pt" height="95pt"
+ viewBox="0.00 0.00 482.00 95.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~rmvs_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 91)">
 <title>type~~rmvs_cb~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 428,-70 428,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-91 478,-91 478,4 -4,4"/>
 <!-- type~rmvs_cb -->
 <g id="type~~rmvs_cb~~InheritsGraph_node1" class="node">
 <title>type~rmvs_cb</title>
-<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>
+<polygon fill="none" stroke="black" 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">rmvs_cb</text>
 </g>
 <!-- type~rmvs_interp -->
 <g id="type~~rmvs_cb~~InheritsGraph_node2" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="335,-87 266,-87 266,-63 335,-63 335,-87"/>
+<text text-anchor="middle" x="300.5" y="-72.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_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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.83,-57.8C399.05,-60.82 369.54,-65.11 345.19,-68.65"/>
+<polygon fill="#000000" stroke="#000000" points="344.51,-65.21 335.11,-70.11 345.51,-72.14 344.51,-65.21"/>
+<text text-anchor="middle" x="377.5" y="-68.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
 <!-- type~whm_cb -->
 <g id="type~~rmvs_cb~~InheritsGraph_node3" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="327.5,-45 273.5,-45 273.5,-21 327.5,-21 327.5,-45"/>
+<text text-anchor="middle" x="300.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</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.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"/>
+<path fill="none" stroke="#000000" d="M419.83,-50.2C396.96,-46.87 363.51,-42.01 338,-38.3"/>
+<polygon fill="#000000" stroke="#000000" points="338.36,-34.82 327.96,-36.85 337.35,-41.75 338.36,-34.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="229,-45 164,-45 164,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="196.5" y="-30.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,-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"/>
+<path fill="none" stroke="#000000" d="M273.5,-33C263.19,-33 251.08,-33 239.59,-33"/>
+<polygon fill="#000000" stroke="#000000" points="239.29,-29.5 229.29,-33 239.29,-36.5 239.29,-29.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~rmvs_cb~~InheritsGraph_edge4" class="edge">
+<g id="type~~rmvs_cb~~InheritsGraph_edge5" class="edge">
 <title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M163.73,-37.82C146.18,-40.48 124.04,-43.84 104.48,-46.8"/>
+<polygon fill="#000000" stroke="#000000" points="103.89,-43.35 94.52,-48.31 104.94,-50.27 103.89,-43.35"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~rmvs_cb~~InheritsGraph_node6" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~rmvs_cb~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_cb~~InheritsGraph_edge4" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.73,-28.18C151.33,-26.3 136.65,-24.08 122.2,-21.89"/>
+<polygon fill="#000000" stroke="#000000" points="122.67,-18.42 112.26,-20.38 121.62,-25.34 122.67,-18.42"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -502,9 +526,7 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/rmvs_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/rmvs_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/rmvs_cb.html#variable-id">id</a>
       
@@ -586,10 +608,20 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_particle_info">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
+      <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
       <a class="list-group-item" href="../type/rmvs_cb.html#boundprocedure-write_frame~2">write_frame</a>
       
     </div>
@@ -622,25 +654,11 @@ <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1025,10 +1043,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1042,11 +1067,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1111,7 +1136,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~2"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_cb_in.html'>io_read_cb_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1119,7 +1144,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading in central body data</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1135,11 +1160,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_cb_in(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1163,12 +1188,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1183,7 +1208,22 @@ <h4>Arguments</h4>
   <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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1204,7 +1244,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1212,7 +1252,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1228,11 +1268,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1256,12 +1296,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>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1271,12 +1311,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1287,7 +1327,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1295,18 +1335,302 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</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>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_cb.html'>io_read_in_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading in central body data</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_cb(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_cb(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1317,11 +1641,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></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>
 
@@ -1332,6 +1671,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1342,7 +1690,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~2"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
     
   </h3></div>
   
@@ -1442,6 +1790,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~2"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a frame (either binary or NetCDF, using generic procedures)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/rmvs_interp.html b/docs/type/rmvs_interp.html
index 09241c654..3f0db6dc3 100644
--- a/docs/type/rmvs_interp.html
+++ b/docs/type/rmvs_interp.html
@@ -134,7 +134,7 @@ <h1>rmvs_interp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.1% of total for derived types.</p>Including implementation: 6 statements,  0.9% of total for derived types.">6 statements</a>
+    title="<p> 0.8% of total for derived types.</p>Including implementation: 6 statements,  0.7% of total for derived types.">6 statements</a>
      </li> 
      
      
@@ -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,-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>
+<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>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~rmvs_cb -->
 <g id="type~~rmvs_interp~~InheritedByGraph_node2" class="node">
-<title>type~rmvs_pl</title>
-<g id="a_type~~rmvs_interp~~InheritedByGraph_node2"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<title>type~rmvs_cb</title>
+<g id="a_type~~rmvs_interp~~InheritedByGraph_node2"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
 <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_pl</text>
+<text text-anchor="middle" x="181" y="-51.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.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>
+<!-- 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>
 </g>
-<!-- type~rmvs_cb -->
+<!-- type~rmvs_pl -->
 <g id="type~~rmvs_interp~~InheritedByGraph_node3" class="node">
-<title>type~rmvs_cb</title>
-<g id="a_type~~rmvs_interp~~InheritedByGraph_node3"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<title>type~rmvs_pl</title>
+<g id="a_type~~rmvs_interp~~InheritedByGraph_node3"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
 <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_cb</text>
+<text text-anchor="middle" x="181" y="-9.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.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>
+<!-- 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>
 </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,-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>
+<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>
 </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,-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>
+<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>
 </g>
 </g>
 </svg>
diff --git a/docs/type/rmvs_nbody_system.html b/docs/type/rmvs_nbody_system.html
index 059dbe0e6..fc2f71265 100644
--- a/docs/type/rmvs_nbody_system.html
+++ b/docs/type/rmvs_nbody_system.html
@@ -134,7 +134,7 @@ <h1>rmvs_nbody_system
      <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: 8 statements,  1.1% of total for derived types.">8 statements</a>
+    title="<p> 1.1% of total for derived types.</p>Including implementation: 8 statements,  0.9% of total for derived types.">8 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/rmvs_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-pl">pl</a>
@@ -191,7 +189,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -201,22 +199,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-maxid">maxid</a>
-      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lplanetocentric">lplanetocentric</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-rts">rts</a>
@@ -255,12 +247,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -271,6 +275,8 @@ <h3>Contents</h3>
       
       <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-write_hdr">write_hdr</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>
@@ -303,141 +309,159 @@ <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="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)">
+<svg id="typermvs_nbody_systemInheritsGraph" width="641pt" height="95pt"
+ viewBox="0.00 0.00 641.00 95.48" 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.74 0.74) rotate(0) translate(4 125)">
 <title>type~~rmvs_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 876,-120 876,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-125 862,-125 862,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,-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>
+<polygon fill="none" stroke="black" points="858,-66 747,-66 747,-42 858,-42 858,-66"/>
+<text text-anchor="middle" x="802.5" y="-51.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="710,-66 600,-66 600,-42 710,-42 710,-66"/>
+<text text-anchor="middle" x="655" y="-51.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,-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"/>
+<path fill="none" stroke="#000000" d="M746.91,-54C738.33,-54 729.39,-54 720.61,-54"/>
+<polygon fill="#000000" stroke="#000000" points="720.41,-50.5 710.41,-54 720.41,-57.5 720.41,-50.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563,-66 440,-66 440,-42 563,-42 563,-66"/>
+<text text-anchor="middle" x="501.5" y="-51.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,-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"/>
+<path fill="none" stroke="#000000" d="M599.73,-54C591.1,-54 582.05,-54 573.11,-54"/>
+<polygon fill="#000000" stroke="#000000" points="573.07,-50.5 563.07,-54 573.07,-57.5 573.07,-50.5"/>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node4" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-24 278,-24 278,0 341,0 341,-24"/>
+<text text-anchor="middle" x="309.5" y="-9.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_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_base -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_node5" class="node">
-<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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.05,-41.96C415.81,-35.28 378.82,-27.1 351.13,-20.98"/>
+<polygon fill="#000000" stroke="#000000" points="351.52,-17.48 341,-18.74 350.01,-24.32 351.52,-17.48"/>
+<text text-anchor="middle" x="390.5" y="-37.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_node6" class="node">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_node5" 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,-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>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-66 278.5,-66 278.5,-42 340.5,-42 340.5,-66"/>
+<text text-anchor="middle" x="309.5" y="-51.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,-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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.86,-54C410.75,-54 376.66,-54 350.79,-54"/>
+<polygon fill="#000000" stroke="#000000" points="350.59,-50.5 340.59,-54 350.59,-57.5 350.59,-50.5"/>
+<text text-anchor="middle" x="390.5" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~swiftest_cb -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_node7" class="node">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_node6" class="node">
 <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>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-114 170,-114 170,-90 235,-90 235,-114"/>
+<text text-anchor="middle" x="202.5" y="-99.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_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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.67,-64.99C433.7,-66.02 427.73,-67.04 422,-68 360.48,-78.27 289.03,-89.2 245.05,-95.81"/>
+<polygon fill="#000000" stroke="#000000" points="244.38,-92.37 235.02,-97.32 245.42,-99.3 244.38,-92.37"/>
+<text text-anchor="middle" x="309.5" y="-92.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">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_node9" 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,-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>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node9"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-66 164,-66 164,-42 241,-42 241,-66"/>
+<text text-anchor="middle" x="202.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~~rmvs_nbody_system~~InheritsGraph_edge7" class="edge">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M289.21,-24.15C285.36,-26.89 281.44,-29.9 278,-33 268.86,-41.22 272.05,-51.57 260,-54"/>
+<path fill="none" stroke="#000000" d="M259,-54C256.48,-54.51 253.88,-54.91 251.25,-55.22"/>
+<polygon fill="#000000" stroke="#000000" points="250.72,-51.75 241.02,-56.02 251.26,-58.73 250.72,-51.75"/>
 </g>
 <!-- type~swiftest_pl&#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_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M278.3,-52.15C272.2,-52.29 265.86,-52.82 260,-54"/>
+</g>
+<!-- type~swiftest_base -->
+<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="94.5,-121 17.5,-121 17.5,-97 94.5,-97 94.5,-121"/>
+<text text-anchor="middle" x="56" y="-106.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_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"/>
+<path fill="none" stroke="#000000" d="M169.82,-104.49C162.03,-105.05 153.72,-105.59 146,-106 132.72,-106.7 118.32,-107.27 105.05,-107.72"/>
+<polygon fill="#000000" stroke="#000000" points="104.57,-104.23 94.69,-108.05 104.8,-111.23 104.57,-104.23"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_node8" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-69 0,-69 0,-45 112,-45 112,-69"/>
+<text text-anchor="middle" x="56" y="-54.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge8" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-92.12C150.93,-86.25 126.61,-78.68 105.39,-72.07"/>
+<polygon fill="#000000" stroke="#000000" points="106.17,-68.65 95.58,-69.01 104.09,-75.33 106.17,-68.65"/>
+<text text-anchor="middle" x="138" y="-85.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge10" class="edge">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge11" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M163.72,-64.65C152.75,-68.01 140.81,-71.91 130,-76 117.07,-80.89 103.17,-86.96 91,-92.56"/>
+<polygon fill="#000000" stroke="#000000" points="89.26,-89.51 81.67,-96.91 92.22,-95.85 89.26,-89.51"/>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge10" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.1,-41.94C158.79,-40.3 152.26,-38.88 146,-38 130.11,-35.76 112.82,-38.28 97.74,-42.15"/>
+<polygon fill="#000000" stroke="#000000" points="96.37,-38.9 87.7,-45 98.28,-45.63 96.37,-38.9"/>
+<text text-anchor="middle" x="138" y="-40.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -572,8 +596,6 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-pl">pl</a>
@@ -584,7 +606,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -594,22 +616,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-maxid">maxid</a>
-      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-lplanetocentric">lplanetocentric</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-rts">rts</a>
@@ -648,12 +664,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -664,6 +692,8 @@ <h3>Contents</h3>
       
       <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-write_hdr">write_hdr</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>
@@ -696,20 +726,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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -786,7 +802,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -852,11 +868,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -866,11 +882,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -880,39 +896,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -922,11 +910,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -950,20 +938,6 @@ <h2>Components</h2>
   
   
   
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" id="variable-lplanetocentric"></span>logical,</td>
@@ -1314,7 +1288,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_old_t_final"></span><h3>procedure, public :: <strong>get_old_t_final</strong>  => <a href='../interface/io_get_old_t_final_system.html'>io_get_old_t_final_system</a> 
     
   </h3></div>
   
@@ -1322,7 +1296,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in a frame of input data from file</p>
+    <p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p>
   </div>
   
   <ul class="list-group">
@@ -1338,11 +1312,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public module function io_get_old_t_final_system(self, param) result(old_t_final)
     
     
    
-   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_get_old_t_final_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1367,26 +1341,11 @@ <h4>Arguments</h4>
 <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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</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></td>
   
 </tr>
 
@@ -1397,41 +1356,11 @@ <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></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></td>
   
 </tr>
 
@@ -1442,6 +1371,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  
+    
+
         
       
       </li>
@@ -1452,7 +1390,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
     
   </h3></div>
   
@@ -1460,7 +1398,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Write out information about discarded test particles</p>
+    <p>Read in a frame of input data from file</p>
   </div>
   
   <ul class="list-group">
@@ -1476,11 +1414,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_discard(self, param)
+public module function io_read_frame_system(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1517,10 +1455,25 @@ <h4>Arguments</h4>
   
   
   
+<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>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1535,6 +1488,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1545,7 +1507,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_particle_info"></span><h3>procedure, public :: <strong>read_particle_info</strong>  => <a href='../interface/io_read_particle_info_system.html'>io_read_particle_info_system</a> 
     
   </h3></div>
   
@@ -1553,7 +1515,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Append a frame of output data to file</p>
+    <p>Read in particle metadata from file</p>
   </div>
   
   <ul class="list-group">
@@ -1569,11 +1531,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine io_read_particle_info_system(self, param)
     
     
    
-   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1598,26 +1560,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system 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>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1628,7 +1575,7 @@ <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>
@@ -1653,7 +1600,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step_spin"></span><h3>procedure, public :: <strong>step_spin</strong>  => <a href='../interface/tides_step_spin_system.html'>tides_step_spin_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
     
   </h3></div>
   
@@ -1661,7 +1608,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Steps the spins of the massive &amp; central bodies due to tides.</p>
+    <p>Write out information about discarded test particles</p>
   </div>
   
   <ul class="list-group">
@@ -1677,11 +1624,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine tides_step_spin_system(self, param, t, dt)
+public module subroutine io_write_discard(self, param)
     
     
    
-   <a href='../proc/tides_step_spin_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1710,7 +1657,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -1721,7 +1668,7 @@ <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>
@@ -1729,25 +1676,598 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Append a frame of output data to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_system(self, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_bin"></span><h3>procedure, public :: <strong>write_hdr_bin</strong>  => <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in Fortran binary format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_hdr_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(in)</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>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_netcdf"></span><h3>procedure, public :: <strong>write_hdr_netcdf</strong>  => <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in NetCDF format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_hdr_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(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-obl_pot"></span><h3>procedure, public :: <strong>obl_pot</strong>  => <a href='../interface/obl_pot_system.html'>obl_pot_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init_particle_info"></span><h3>procedure, public :: <strong>init_particle_info</strong>  => <a href='../interface/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Initialize the system from input files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine setup_initialize_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/setup_initialize_particle_info_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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step_spin"></span><h3>procedure, public :: <strong>step_spin</strong>  => <a href='../interface/tides_step_spin_system.html'>tides_step_spin_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Steps the spins of the massive &amp; central bodies due to tides.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine tides_step_spin_system(self, param, t, dt)
+    
+    
+   
+   <a href='../proc/tides_step_spin_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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Simulation 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>t</strong></td><td><p>Simulation time</p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
@@ -2153,7 +2673,7 @@ <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>
@@ -2170,6 +2690,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr"></span><h3>generic, public :: <strong>write_hdr</strong>  => <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin'>write_hdr_bin</a>, <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Generic method call for writing headers</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/rmvs_pl.html b/docs/type/rmvs_pl.html
index 95cafa6d0..0c48531f3 100644
--- a/docs/type/rmvs_pl.html
+++ b/docs/type/rmvs_pl.html
@@ -134,7 +134,7 @@ <h1>rmvs_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 3.1% of total for derived types.</p>Including implementation: 17 statements,  2.4% of total for derived types.">17 statements</a>
+    title="<p> 2.3% of total for derived types.</p>Including implementation: 17 statements,  1.9% of total for derived types.">17 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/rmvs_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#variable-id~2">id</a>
       
@@ -309,15 +307,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_particle_info~3">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -325,9 +331,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-accel_user">accel_user</a>
       
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame~4">write_frame</a>
+      
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -339,6 +347,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-set_rhill">set_rhill</a>
@@ -407,195 +421,212 @@ <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="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)">
+<svg id="typermvs_plInheritsGraph" width="641pt" height="108pt"
+ viewBox="0.00 0.00 641.00 107.93" 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.6 0.6) rotate(0) translate(4 176)">
 <title>type~~rmvs_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-188 1079,-188 1079,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-176 1065,-176 1065,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,-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>
+<polygon fill="none" stroke="black" points="1061,-64 1007,-64 1007,-40 1061,-40 1061,-64"/>
+<text text-anchor="middle" x="1034" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_pl</text>
 </g>
-<!-- type~rmvs_interp -->
+<!-- type~whm_pl -->
 <g id="type~~rmvs_pl~~InheritsGraph_node2" class="node">
-<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>
+<title>type~whm_pl</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node2"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="782,-63 728,-63 728,-39 782,-39 782,-63"/>
+<text text-anchor="middle" x="755" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</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.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>
+<!-- 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="M1006.94,-51.91C957.34,-51.73 849.27,-51.34 792.5,-51.13"/>
+<polygon fill="#000000" stroke="#000000" points="792.2,-47.63 782.19,-51.09 792.18,-54.63 792.2,-47.63"/>
 </g>
-<!-- type~whm_pl -->
+<!-- type~rmvs_interp -->
 <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,-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>
+<title>type~rmvs_interp</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node3"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="890,-24 821,-24 821,0 890,0 890,-24"/>
+<text text-anchor="middle" x="855.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</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.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"/>
+<!-- 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="M1014.43,-39.83C1006.84,-35.41 997.78,-30.81 989,-28 960.26,-18.8 926.48,-14.82 900.22,-13.13"/>
+<polygon fill="#000000" stroke="#000000" points="900.37,-9.63 890.19,-12.57 899.98,-16.62 900.37,-9.63"/>
+<text text-anchor="middle" x="959" y="-30.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
 <!-- type~rmvs_nbody_system -->
 <g id="type~~rmvs_pl~~InheritsGraph_node4" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="911,-104 800,-104 800,-80 911,-80 911,-104"/>
+<text text-anchor="middle" x="855.5" y="-89.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~~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1006.62,-60.93C1000.85,-62.74 994.75,-64.53 989,-66 967.14,-71.6 942.99,-76.67 921.36,-80.81"/>
+<polygon fill="#000000" stroke="#000000" points="920.47,-77.41 911.29,-82.7 921.76,-84.29 920.47,-77.41"/>
+<text text-anchor="middle" x="959" y="-80.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">
+<g id="type~~rmvs_pl~~InheritsGraph_node5" class="node">
 <title>type~swiftest_pl</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-138 292.5,-138 292.5,-114 354.5,-114 354.5,-138"/>
-<text text-anchor="middle" x="323.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-75 278.5,-75 278.5,-51 340.5,-51 340.5,-75"/>
+<text text-anchor="middle" x="309.5" y="-60.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
 <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,-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"/>
+<path fill="none" stroke="#000000" d="M727.91,-51.71C653.52,-53.72 439.97,-59.5 350.59,-61.92"/>
+<polygon fill="#000000" stroke="#000000" points="350.48,-58.42 340.58,-62.19 350.67,-65.41 350.48,-58.42"/>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~rmvs_pl~~InheritsGraph_node5" class="node">
+<g id="type~~rmvs_pl~~InheritsGraph_node6" 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>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node6"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="710,-106 600,-106 600,-82 710,-82 710,-106"/>
+<text text-anchor="middle" x="655" y="-91.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">
-<title>type~swiftest_nbody_system</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-89 454,-89 454,-65 577,-65 577,-89"/>
-<text text-anchor="middle" x="515.5" y="-74.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_pl~~InheritsGraph_edge6" class="edge">
-<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M613.73,-85.99C605.1,-85.19 596.05,-84.35 587.11,-83.52"/>
-<polygon fill="#000000" stroke="#000000" points="587.35,-80.03 577.07,-82.6 586.71,-87 587.35,-80.03"/>
+<path fill="none" stroke="#000000" d="M800,-92.55C775.27,-92.8 745.87,-93.09 720.09,-93.35"/>
+<polygon fill="#000000" stroke="#000000" points="720,-89.85 710.04,-93.46 720.07,-96.85 720,-89.85"/>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~rmvs_pl~~InheritsGraph_node7" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~rmvs_pl~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-96 114,-96 114,-72 191,-72 191,-96"/>
-<text text-anchor="middle" x="152.5" y="-81.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-117 164,-117 164,-93 241,-93 241,-117"/>
+<text text-anchor="middle" x="202.5" y="-102.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~~rmvs_pl~~InheritsGraph_edge7" class="edge">
+<g id="type~~rmvs_pl~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M292.49,-115.98C277.64,-111.57 259.33,-106.96 242.5,-105"/>
+<path fill="none" stroke="#000000" d="M259,-105C256.48,-105.51 253.88,-105.91 251.25,-106.22"/>
+<polygon fill="#000000" stroke="#000000" points="250.72,-102.75 241.02,-107.02 251.26,-109.73 250.72,-102.75"/>
+<path fill="none" stroke="#000000" d="M289.21,-75.15C285.36,-77.89 281.44,-80.9 278,-84 268.86,-92.22 272.05,-102.57 260,-105"/>
+</g>
+<!-- type~swiftest_nbody_system -->
+<g id="type~~rmvs_pl~~InheritsGraph_node8" class="node">
+<title>type~swiftest_nbody_system</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563,-125 440,-125 440,-101 563,-101 563,-125"/>
+<text text-anchor="middle" x="501.5" y="-110.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_pl~~InheritsGraph_edge7" class="edge">
+<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
+<path fill="none" stroke="#000000" d="M599.73,-100.81C591.1,-101.89 582.05,-103.02 573.11,-104.14"/>
+<polygon fill="#000000" stroke="#000000" points="572.56,-100.69 563.07,-105.4 573.43,-107.63 572.56,-100.69"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~rmvs_pl~~InheritsGraph_node10" class="node">
+<g id="type~~rmvs_pl~~InheritsGraph_node9" class="node">
 <title>type~swiftest_base</title>
-<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>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node9"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-172 17.5,-172 17.5,-148 94.5,-148 94.5,-172"/>
+<text text-anchor="middle" x="56" y="-157.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~~rmvs_pl~~InheritsGraph_edge8" class="edge">
+<g id="type~~rmvs_pl~~InheritsGraph_edge9" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M133.43,-71.77C127.22,-67.48 120.26,-62.6 114,-58 105.83,-52 105.99,-45.7 96,-44"/>
-</g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge10" class="edge">
-<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, pl_discards</text>
+<path fill="none" stroke="#000000" d="M163.72,-115.65C152.75,-119.01 140.81,-122.91 130,-127 117.07,-131.89 103.17,-137.96 91,-143.56"/>
+<polygon fill="#000000" stroke="#000000" points="89.26,-140.51 81.67,-147.91 92.22,-146.85 89.26,-140.51"/>
 </g>
-<!-- type~swiftest_tp -->
-<g id="type~~rmvs_pl~~InheritsGraph_node9" class="node">
-<title>type~swiftest_tp</title>
-<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>
+<!-- type~swiftest_particle_info -->
+<g id="type~~rmvs_pl~~InheritsGraph_node10" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node10"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-120 0,-120 0,-96 112,-96 112,-120"/>
+<text text-anchor="middle" x="56" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge11" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.85,-75.89C428.8,-75.83 399.48,-76.27 373,-78 370.48,-78.16 367.89,-78.37 365.29,-78.61"/>
-<polygon fill="#000000" stroke="#000000" points="364.82,-75.14 355.24,-79.65 365.55,-82.1 364.82,-75.14"/>
-<text text-anchor="middle" x="404.5" y="-80.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge8" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.1,-92.94C158.79,-91.3 152.26,-89.88 146,-89 130.11,-86.76 112.82,-89.28 97.74,-93.15"/>
+<polygon fill="#000000" stroke="#000000" points="96.37,-89.9 87.7,-96 98.28,-96.63 96.37,-89.9"/>
+<text text-anchor="middle" x="138" y="-91.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge12" class="edge">
-<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"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge11" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.51,-100.9C422.73,-92.54 380.89,-81.52 350.5,-73.53"/>
+<polygon fill="#000000" stroke="#000000" points="351.23,-70.1 340.67,-70.94 349.45,-76.87 351.23,-70.1"/>
+<text text-anchor="middle" x="390.5" y="-92.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- 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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-165 170,-165 170,-141 235,-141 235,-165"/>
+<text text-anchor="middle" x="202.5" y="-150.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">
+<g id="type~~rmvs_pl~~InheritsGraph_edge10" 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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.68,-121.19C381.57,-129.02 295.55,-140.6 244.94,-147.42"/>
+<polygon fill="#000000" stroke="#000000" points="244.45,-143.95 235.01,-148.76 245.39,-150.89 244.45,-143.95"/>
+<text text-anchor="middle" x="309.5" y="-144.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_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"/>
+<!-- type~swiftest_tp -->
+<g id="type~~rmvs_pl~~InheritsGraph_node12" class="node">
+<title>type~swiftest_tp</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node12"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-117 278,-117 278,-93 341,-93 341,-117"/>
+<text text-anchor="middle" x="309.5" y="-102.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_tp -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge12" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.86,-110.45C410.94,-109.23 377.11,-107.8 351.3,-106.72"/>
+<polygon fill="#000000" stroke="#000000" points="351.26,-103.21 341.12,-106.29 350.96,-110.21 351.26,-103.21"/>
+<text text-anchor="middle" x="390.5" y="-111.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </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"/>
+<path fill="none" stroke="#000000" d="M169.82,-155.49C162.03,-156.05 153.72,-156.59 146,-157 132.72,-157.7 118.32,-158.27 105.05,-158.72"/>
+<polygon fill="#000000" stroke="#000000" points="104.57,-155.23 94.69,-159.05 104.8,-162.23 104.57,-155.23"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge13" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-143.12C150.93,-137.25 126.61,-129.68 105.39,-123.07"/>
+<polygon fill="#000000" stroke="#000000" points="106.17,-119.65 95.58,-120.01 104.09,-126.33 106.17,-119.65"/>
+<text text-anchor="middle" x="138" y="-136.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge15" class="edge">
+<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M277.79,-103.16C271.84,-103.32 265.7,-103.85 260,-105"/>
 </g>
 </g>
 </svg>
@@ -652,13 +683,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/rmvs_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#variable-id~2">id</a>
       
@@ -782,15 +811,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_particle_info~3">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -798,9 +835,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-accel_user">accel_user</a>
       
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-write_frame~4">write_frame</a>
+      
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -812,6 +851,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/rmvs_pl.html#boundprocedure-set_rhill">set_rhill</a>
@@ -880,20 +925,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-lfirst"></span>logical,</td>
@@ -924,11 +955,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1012,7 +1043,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -1026,7 +1057,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1613,10 +1644,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1630,11 +1668,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1699,7 +1737,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1707,7 +1745,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1723,11 +1761,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1751,12 +1789,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1767,11 +1805,26 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1792,7 +1845,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1800,7 +1853,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1816,11 +1869,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1844,12 +1897,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1885,7 +1953,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1893,7 +1961,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1909,11 +1977,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1937,12 +2005,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1952,12 +2020,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1978,7 +2046,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~3"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -1986,7 +2089,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -2002,11 +2105,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2035,7 +2138,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2045,12 +2148,501 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</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>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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_pv2vh_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_pv2vh_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Read in body initial conditions from a file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_body(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_body(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_body(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2060,10 +2652,211 @@ <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/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="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert position and velocity vectors to orbital  elements </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_xv2el_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_xv2el_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add user-supplied heliocentric accelerations to planets</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/user_kick_getacch_body.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_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
   
@@ -2075,12 +2868,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></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>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -2090,12 +2883,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -2106,7 +2899,72 @@ <h4>Arguments</h4>
     
     
 
-        
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~4"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
       
       </li>
     
@@ -2116,7 +2974,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
     
   </h3></div>
   
@@ -2124,7 +2982,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Placeholder method for discarding massive bodies </p>
   </div>
   
   <ul class="list-group">
@@ -2140,11 +2998,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public module subroutine discard_pl(self, system, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2168,12 +3026,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</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 body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2183,12 +3041,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2199,11 +3057,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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameter</p></td>
   
 </tr>
 
@@ -2224,7 +3082,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~2"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/util_index_eucl_plpl.html'>util_index_eucl_plpl</a> 
     
   </h3></div>
   
@@ -2232,7 +3090,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
   </div>
   
   <ul class="list-group">
@@ -2248,11 +3106,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine util_index_eucl_plpl(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_index_eucl_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2276,12 +3134,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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 body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2291,12 +3149,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>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</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>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2317,7 +3175,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
     
   </h3></div>
   
@@ -2325,7 +3183,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2341,11 +3199,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module subroutine kick_getacch_int_pl(self)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2369,27 +3227,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2410,7 +3253,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
     
   </h3></div>
   
@@ -2418,7 +3261,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2434,11 +3277,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine obl_acc_pl(self, system)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2462,12 +3305,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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 massive body particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2482,52 +3325,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2548,7 +3346,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
     
   </h3></div>
   
@@ -2556,7 +3354,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Placeholder method for discarding massive bodies </p>
+    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2572,11 +3370,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_pl(self, system, param)
+public module subroutine tides_kick_getacch_pl(self, system)
     
     
    
-   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2624,21 +3422,6 @@ <h4>Arguments</h4>
   
 </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 parameter</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -2656,7 +3439,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-eucl_index"></span><h3>procedure, public :: <strong>eucl_index</strong>  => <a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
     
   </h3></div>
   
@@ -2664,7 +3447,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2680,11 +3463,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine util_coord_h2b_pl(self, cb)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2717,81 +3500,18 @@ <h4>Arguments</h4>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public pure module subroutine kick_getacch_int_pl(self)
-    
-    
-   
-   <a href='../proc/kick_getacch_int_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><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>self</strong></td><td></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2812,7 +3532,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
     
   </h3></div>
   
@@ -2820,7 +3540,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2836,11 +3556,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_pl(self, system)
+public module subroutine util_coord_b2h_pl(self, cb)
     
     
    
-   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2879,12 +3599,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2905,7 +3625,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
     
   </h3></div>
   
@@ -2913,7 +3633,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2929,11 +3649,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine tides_kick_getacch_pl(self, system)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2972,12 +3692,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2998,7 +3718,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
     
   </h3></div>
   
@@ -3006,7 +3726,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3022,11 +3742,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_pl(self, cb)
+public module subroutine util_coord_vb2vh_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3091,7 +3811,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
     
   </h3></div>
   
@@ -3099,7 +3819,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -3115,11 +3835,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_pl(self, cb)
+public module subroutine util_coord_xh2xb_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/rmvs_tp.html b/docs/type/rmvs_tp.html
index d418bc818..6df54234a 100644
--- a/docs/type/rmvs_tp.html
+++ b/docs/type/rmvs_tp.html
@@ -134,7 +134,7 @@ <h1>rmvs_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 3.9% of total for derived types.</p>Including implementation: 21 statements,  3.0% of total for derived types.">21 statements</a>
+    title="<p> 2.9% of total for derived types.</p>Including implementation: 21 statements,  2.4% of total for derived types.">21 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/rmvs_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-id~2">id</a>
       
@@ -233,6 +231,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#variable-npltp">npltp</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-lperi">lperi</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-plperp">plperP</a>
@@ -277,17 +279,25 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_particle_info~2">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-drift">drift</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -297,6 +307,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-accel_int">accel_int</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-accel_obl">accel_obl</a>
@@ -305,6 +317,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-get_peri">get_peri</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-set_mu">set_mu</a>
@@ -366,148 +384,171 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~rmvs_tp~~InheritsGraph Pages: 1 -->
-<svg id="typermvs_tpInheritsGraph" width="598pt" height="116pt"
- viewBox="0.00 0.00 598.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~rmvs_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<svg id="typermvs_tpInheritsGraph" width="641pt" height="115pt"
+ viewBox="0.00 0.00 641.00 114.75" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~rmvs_tp~~InheritsGraph" class="graph" transform="scale(0.99 0.99) rotate(0) translate(4 112)">
 <title>type~~rmvs_tp~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 594,-112 594,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 644,-112 644,4 -4,4"/>
 <!-- type~rmvs_tp -->
 <g id="type~~rmvs_tp~~InheritsGraph_node1" class="node">
 <title>type~rmvs_tp</title>
-<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~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"/>
+<polygon fill="none" stroke="black" points="640,-44 586,-44 586,-20 640,-20 640,-44"/>
+<text text-anchor="middle" x="613" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_tp</text>
 </g>
 <!-- type~rmvs_cb -->
-<g id="type~~rmvs_tp~~InheritsGraph_node3" class="node">
+<g id="type~~rmvs_tp~~InheritsGraph_node2" class="node">
 <title>type~rmvs_cb</title>
-<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>
+<g id="a_type~~rmvs_tp~~InheritsGraph_node2"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="486,-66 432,-66 432,-42 486,-42 486,-66"/>
+<text text-anchor="middle" x="459" y="-51.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~~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.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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.87,-35.78C561.11,-39.37 523.7,-44.78 496.1,-48.78"/>
+<polygon fill="#000000" stroke="#000000" points="495.44,-45.33 486.04,-50.23 496.44,-52.26 495.44,-45.33"/>
+<text text-anchor="middle" x="536" y="-49.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
 </g>
-<!-- type~swiftest_tp -->
-<g id="type~~rmvs_tp~~InheritsGraph_node4" class="node">
-<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>
+<!-- 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="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">whm_tp</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- 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="M585.87,-28.56C561.11,-25.3 523.7,-20.38 496.1,-16.75"/>
+<polygon fill="#000000" stroke="#000000" points="496.41,-13.26 486.04,-15.43 495.5,-20.2 496.41,-13.26"/>
 </g>
 <!-- type~rmvs_interp -->
 <g id="type~~rmvs_tp~~InheritsGraph_node5" class="node">
 <title>type~rmvs_interp</title>
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="347,-66 278,-66 278,-42 347,-42 347,-66"/>
+<text text-anchor="middle" x="312.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_edge4" class="edge">
+<g id="type~~rmvs_tp~~InheritsGraph_edge3" 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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M431.83,-54C411.05,-54 381.54,-54 357.19,-54"/>
+<polygon fill="#000000" stroke="#000000" points="357.11,-50.5 347.11,-54 357.11,-57.5 357.11,-50.5"/>
+<text text-anchor="middle" x="389.5" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
 <!-- 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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="339.5,-108 285.5,-108 285.5,-84 339.5,-84 339.5,-108"/>
+<text text-anchor="middle" x="312.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge5" class="edge">
+<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.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"/>
+<path fill="none" stroke="#000000" d="M431.99,-62.45C426.09,-64.32 419.84,-66.26 414,-68 392.67,-74.36 368.65,-81.07 349.45,-86.33"/>
+<polygon fill="#000000" stroke="#000000" points="348.33,-83 339.6,-89.01 350.17,-89.76 348.33,-83"/>
+</g>
+<!-- type~swiftest_tp -->
+<g id="type~~rmvs_tp~~InheritsGraph_node4" class="node">
+<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="344,-24 281,-24 281,0 344,0 344,-24"/>
+<text text-anchor="middle" x="312.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+</a>
+</g>
+</g>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<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="M431.83,-12C410.27,-12 379.31,-12 354.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="354.24,-8.5 344.24,-12 354.24,-15.5 354.24,-8.5"/>
 </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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-24 164,-24 164,0 241,0 241,-24"/>
+<text text-anchor="middle" x="202.5" y="-9.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_edge6" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M280.84,-12C271.68,-12 261.4,-12 251.41,-12"/>
+<polygon fill="#000000" stroke="#000000" points="251.15,-8.5 241.15,-12 251.15,-15.5 251.15,-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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-107 170,-107 170,-83 235,-83 235,-107"/>
+<text text-anchor="middle" x="202.5" y="-92.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"/>
+<path fill="none" stroke="#000000" d="M285.36,-95.76C273.32,-95.65 258.74,-95.51 245.23,-95.39"/>
+<polygon fill="#000000" stroke="#000000" points="245.21,-91.89 235.18,-95.29 245.15,-98.89 245.21,-91.89"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~rmvs_tp~~InheritsGraph_node9" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~rmvs_tp~~InheritsGraph_node9"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-102 0,-102 0,-78 77,-78 77,-102"/>
-<text text-anchor="middle" x="38.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-96 17.5,-96 17.5,-72 94.5,-72 94.5,-96"/>
+<text text-anchor="middle" x="56" y="-81.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_tp~~InheritsGraph_edge8" class="edge">
+<g id="type~~rmvs_tp~~InheritsGraph_edge9" class="edge">
 <title>type~swiftest_cb&#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="M169.79,-92.59C150.73,-91.13 126.1,-89.26 104.72,-87.63"/>
+<polygon fill="#000000" stroke="#000000" points="104.76,-84.13 94.52,-86.86 104.23,-91.11 104.76,-84.13"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~rmvs_tp~~InheritsGraph_node10" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~rmvs_tp~~InheritsGraph_node10"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-44 0,-44 0,-20 112,-20 112,-44"/>
+<text text-anchor="middle" x="56" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_tp~~InheritsGraph_edge8" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173.64,-82.85C151.05,-73 119.01,-59.04 94.22,-48.23"/>
+<polygon fill="#000000" stroke="#000000" points="95.34,-44.9 84.78,-44.11 92.54,-51.31 95.34,-44.9"/>
+<text text-anchor="middle" x="138" y="-71.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge9" class="edge">
+<g id="type~~rmvs_tp~~InheritsGraph_edge11" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.99,-88.01C107.93,-88.26 101.77,-88.86 96,-90"/>
+<path fill="none" stroke="#000000" d="M177.31,-24.05C153.56,-35.89 117.11,-54.05 90.56,-67.28"/>
+<polygon fill="#000000" stroke="#000000" points="88.65,-64.32 81.26,-71.91 91.78,-70.58 88.65,-64.32"/>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~rmvs_tp~~InheritsGraph_edge10" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.9,-10.83C152.93,-10.95 140.95,-11.52 130,-13 122.15,-14.06 113.94,-15.68 105.97,-17.54"/>
+<polygon fill="#000000" stroke="#000000" points="104.92,-14.19 96.05,-19.99 106.6,-20.98 104.92,-14.19"/>
+<text text-anchor="middle" x="138" y="-15.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </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 pantypermvs_tpInheritsGraph = svgPanZoom('#typermvs_tpInheritsGraph', {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"
@@ -560,13 +601,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/rmvs_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-id~2">id</a>
       
@@ -614,6 +653,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#variable-npltp">npltp</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-lperi">lperi</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#variable-plperp">plperP</a>
@@ -658,17 +701,25 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_particle_info~2">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-drift">drift</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -678,6 +729,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-accel_int">accel_int</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-accel_obl">accel_obl</a>
@@ -686,6 +739,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-get_peri">get_peri</a>
       
       <a class="list-group-item" href="../type/rmvs_tp.html#boundprocedure-set_mu">set_mu</a>
@@ -746,20 +805,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-lfirst"></span>logical,</td>
@@ -790,11 +835,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -878,7 +923,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -892,7 +937,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1118,7 +1163,35 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -1253,10 +1326,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1270,11 +1350,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1339,7 +1419,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1347,7 +1427,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1363,11 +1443,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine drift_body(self, system, param, dt)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1391,27 +1471,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <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 base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1422,11 +1487,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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1436,12 +1501,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</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>dt</strong></td><td><p>Stepsize</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1462,7 +1527,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1470,7 +1535,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1486,11 +1551,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1514,12 +1579,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1534,7 +1614,7 @@ <h4>Arguments</h4>
   <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>
 
@@ -1555,7 +1635,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1563,7 +1643,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1579,11 +1659,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1607,8 +1687,8 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1622,12 +1702,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1648,7 +1728,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~2"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
     
   </h3></div>
   
@@ -1656,7 +1771,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
   </div>
   
   <ul class="list-group">
@@ -1672,11 +1787,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine drift_body(self, system, param, dt)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1705,7 +1820,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
   
 </tr>
 
@@ -1715,15 +1830,45 @@ <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/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><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>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -1741,7 +1886,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -1749,7 +1894,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1765,11 +1910,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1798,22 +1943,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1824,41 +1954,11 @@ <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></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</p></td>
   
 </tr>
 
@@ -1879,7 +1979,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
     
   </h3></div>
   
@@ -1887,7 +1987,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1903,11 +2003,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_pv2vh_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1932,26 +2032,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1987,7 +2072,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -1995,7 +2080,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -2011,11 +2096,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2054,12 +2139,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2080,7 +2165,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -2088,7 +2173,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2104,11 +2189,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2147,12 +2232,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></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>
 
@@ -2163,6 +2263,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2173,7 +2282,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2181,7 +2290,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2197,11 +2306,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2226,11 +2335,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2240,12 +2349,12 @@ <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>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -2264,36 +2373,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -2311,7 +2390,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
     
   </h3></div>
   
@@ -2319,7 +2398,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Convert orbital elements to position and velocity vectors</p>
   </div>
   
   <ul class="list-group">
@@ -2335,11 +2414,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine orbel_el2xv_vec(self, cb)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2372,6 +2451,21 @@ <h4>Arguments</h4>
   
 </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>
 
@@ -2389,7 +2483,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
     
   </h3></div>
   
@@ -2397,7 +2491,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
+    <p>Convert position and velocity vectors to orbital  elements </p>
   </div>
   
   <ul class="list-group">
@@ -2413,11 +2507,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+public module subroutine orbel_xv2el_vec(self, cb)
     
     
    
-   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2441,42 +2535,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_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle</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>GMpl</strong></td><td><p>Massive body masses</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>xhp</strong></td><td><p>Massive body position vectors</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2486,12 +2550,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(in)</td>
+  <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>npl</strong></td><td><p>Number of active massive bodies</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2512,7 +2576,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
     
   </h3></div>
   
@@ -2520,7 +2584,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Add user-supplied heliocentric accelerations to planets</p>
   </div>
   
   <ul class="list-group">
@@ -2536,11 +2600,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_tp(self, system)
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2564,12 +2628,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_body.html'>swiftest_body</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>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
   
 </tr>
 
@@ -2584,18 +2648,515 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-        
+  
+  
+  
+  
+<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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_ir3h(self)
+    
+    
+   
+   <a href='../proc/util_set_ir3h.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</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~3"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+    
+    
+   
+   <a href='../proc/kick_getacch_int_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</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>GMpl</strong></td><td><p>Massive body masses</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>xhp</strong></td><td><p>Massive body position 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>npl</strong></td><td><p>Number of active massive bodies</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_acc_tp(self, system)
+    
+    
+   
+   <a href='../proc/obl_acc_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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_h2b_tp(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_h2b_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(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
       
       </li>
     
@@ -2605,7 +3166,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
     
   </h3></div>
   
@@ -2613,7 +3174,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2629,11 +3190,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_tp(self, cb)
+public module subroutine util_coord_b2h_tp(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2698,7 +3259,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_tp.html'>util_coord_vb2vh_tp</a> 
     
   </h3></div>
   
@@ -2706,7 +3267,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2722,11 +3283,197 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_tp(self, cb)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_tp.html'>util_coord_vh2vb_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_vh2vb_tp(self, vbcb)
+    
+    
+   
+   <a href='../proc/util_coord_vh2vb_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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_tp.html'>util_coord_xh2xb_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert test particles from heliocentric to barycentric coordinates (position only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_xh2xb_tp(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/swiftest_base.html b/docs/type/swiftest_base.html
index 98a1967f5..a897956c6 100644
--- a/docs/type/swiftest_base.html
+++ b/docs/type/swiftest_base.html
@@ -134,7 +134,7 @@ <h1>swiftest_base
      <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: 8 statements,  1.1% of total for derived types.">8 statements</a>
+    title="<p> 1.2% of total for derived types.</p>Including implementation: 9 statements,  1.0% of total for derived types.">9 statements</a>
      </li> 
      
      
@@ -174,18 +174,6 @@ <h3>Contents</h3>
 
 
 
-<div class="panel panel-primary">
-  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
-  <div id="vars-0" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../type/swiftest_base.html#variable-lintegrate">lintegrate</a>
-      
-    </div>
-  </div>
-</div>
-
-
 
 
 
@@ -209,11 +197,15 @@ <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~6">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</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_particle_info_netcdf">write_particle_info_netcdf</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~4">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~16">write_frame</a>
+      
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_particle_info~15">write_particle_info</a>
       
     </div>
   </div>
@@ -229,7 +221,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
       <h2>type, public, abstract :: swiftest_base</h2>
-    <p>An superclass for a generic Swiftest object
+    <p>An abstract superclass for a generic Swiftest object
  The minimal methods that all systems must have</p>
     <br>
     
@@ -245,387 +237,396 @@ <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="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)">
+<svg id="typeswiftest_baseInheritedByGraph" width="641pt" height="181pt"
+ viewBox="0.00 0.00 641.00 181.07" 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 320)">
 <title>type~~swiftest_base~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.3 1143,-282.3 1143,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-320 1143,-320 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,-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>
+<polygon fill="none" stroke="black" points="77,-191 0,-191 0,-167 77,-167 77,-191"/>
+<text text-anchor="middle" x="38.5" y="-176.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_base</text>
 </g>
-<!-- type~swiftest_nbody_system -->
+<!-- type~swiftest_cb -->
 <g id="type~~swiftest_base~~InheritedByGraph_node2" class="node">
-<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>
+<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,-191 120,-191 120,-167 185,-167 185,-191"/>
+<text text-anchor="middle" x="152.5" y="-176.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_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"/>
+<!-- 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="M119.92,-177.08C112.06,-177.13 103.68,-177.63 96,-179"/>
 </g>
-<!-- type~swiftest_cb -->
+<!-- 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,-149 114,-149 114,-125 191,-125 191,-149"/>
+<text text-anchor="middle" x="152.5" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</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="M126.88,-149.14C122.41,-151.8 117.93,-154.78 114,-158 104.49,-165.79 108.1,-176.84 96,-179"/>
+<path fill="none" stroke="#000000" d="M95,-179C92.51,-179.44 89.95,-179.8 87.35,-180.07"/>
+<polygon fill="#000000" stroke="#000000" points="87,-176.59 77.27,-180.79 87.5,-183.57 87,-176.59"/>
+</g>
+<!-- type~helio_cb -->
 <g id="type~~swiftest_base~~InheritedByGraph_node4" class="node">
-<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>
+<title>type~helio_cb</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node4"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="286.5,-274 232.5,-274 232.5,-250 286.5,-250 286.5,-274"/>
+<text text-anchor="middle" x="259.5" y="-259.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
 </a>
 </g>
 </g>
-<!-- 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>
+<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge4" class="edge">
+<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M209,-283C179.4,-265.47 164.74,-226.11 158.16,-201.15"/>
+<polygon fill="#000000" stroke="#000000" points="161.5,-200.04 155.75,-191.14 154.69,-201.68 161.5,-200.04"/>
+<path fill="none" stroke="#000000" d="M239.31,-274.04C228.14,-280.32 215.25,-286.11 210,-283"/>
 </g>
-<!-- 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>
+<!-- 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="513,-148 390,-148 390,-124 513,-124 513,-148"/>
+<text text-anchor="middle" x="451.5" y="-133.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_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>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge3" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M389.83,-134.81C344.7,-135.13 281.86,-138.12 228,-150 214.63,-152.95 200.51,-157.93 188.19,-162.94"/>
+<polygon fill="#000000" stroke="#000000" points="186.6,-159.81 178.75,-166.93 189.32,-166.26 186.6,-159.81"/>
+<text text-anchor="middle" x="259.5" y="-152.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_node9" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node6" class="node">
 <title>type~swiftest_pl</title>
-<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>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node6"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="290.5,-105 228.5,-105 228.5,-81 290.5,-81 290.5,-105"/>
+<text text-anchor="middle" x="259.5" y="-90.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_base~~InheritedByGraph_edge17" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge10" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.55,-123.95C391.77,-121.6 381.57,-119.19 372,-117 348.44,-111.62 322.01,-105.91 300.79,-101.41"/>
+<polygon fill="#000000" stroke="#000000" points="301.34,-97.95 290.83,-99.31 299.89,-104.8 301.34,-97.95"/>
+<text text-anchor="middle" x="340.5" y="-119.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </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,-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>
+<!-- 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,-193 228,-193 228,-169 291,-169 291,-193"/>
+<text text-anchor="middle" x="259.5" y="-178.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</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="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_node5" class="node">
-<title>type~helio_cb</title>
-<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>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge14" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.1,-148.02C391.45,-150.35 381.41,-152.76 372,-155 348.57,-160.57 322.34,-166.69 301.21,-171.59"/>
+<polygon fill="#000000" stroke="#000000" points="300.23,-168.23 291.28,-173.9 301.81,-175.05 300.23,-168.23"/>
+<text text-anchor="middle" x="340.5" y="-171.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge7" class="edge">
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M229.81,-105.02C218,-109.97 204.16,-115.77 191.53,-121.07"/>
+<polygon fill="#000000" stroke="#000000" points="190.03,-117.9 182.16,-124.99 192.73,-124.35 190.03,-117.9"/>
 </g>
-<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
-<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="M244.26,-212.21C230.69,-200.75 212.03,-185.15 210,-184.3"/>
+<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge6" class="edge">
+<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M229.81,-168.98C218,-164.03 204.16,-158.23 191.53,-152.93"/>
+<polygon fill="#000000" stroke="#000000" points="192.73,-149.65 182.16,-149.01 190.03,-156.1 192.73,-149.65"/>
 </g>
 <!-- type~whm_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_node6" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node8" class="node">
 <title>type~whm_cb</title>
-<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>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node8"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="286.5,-316 232.5,-316 232.5,-292 286.5,-292 286.5,-316"/>
+<text text-anchor="middle" x="259.5" y="-301.6" 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_edge9" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge5" class="edge">
 <title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M232.48,-294.16C225.03,-290.97 217.03,-287.16 210,-283"/>
+</g>
+<!-- type~symba_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_node9" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node9"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="482,-274 421,-274 421,-250 482,-250 482,-274"/>
+<text text-anchor="middle" x="451.5" y="-259.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
+</a>
 </g>
-<!-- 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~symba_cb&#45;&gt;type~helio_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge8" class="edge">
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M420.81,-262C387.28,-262 332.71,-262 296.7,-262"/>
+<polygon fill="#000000" stroke="#000000" points="296.62,-258.5 286.62,-262 296.62,-265.5 296.62,-258.5"/>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node8" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node10" class="node">
 <title>type~whm_nbody_system</title>
-<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>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node10"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="723,-148 613,-148 613,-124 723,-124 723,-148"/>
+<text text-anchor="middle" x="668" y="-133.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_base~~InheritedByGraph_edge4" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge9" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M612.87,-136C585.67,-136 552.37,-136 523.18,-136"/>
+<polygon fill="#000000" stroke="#000000" points="523.04,-132.5 513.04,-136 523.04,-139.5 523.04,-132.5"/>
 </g>
-<!-- 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~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>
+<!-- type~whm_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_node11" class="node">
+<title>type~whm_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node11"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="795,-24 741,-24 741,0 795,0 795,-24"/>
+<text text-anchor="middle" x="768" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge11" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M339.5,-52C320.57,-56.46 301.15,-66.45 286.31,-75.45"/>
+<polygon fill="#000000" stroke="#000000" points="284.3,-72.57 277.7,-80.86 288.03,-78.5 284.3,-72.57"/>
+<path fill="none" stroke="#000000" d="M740.96,-10.16C679.11,-6.47 518.91,-0.89 390,-31 367.13,-36.34 364.36,-46.62 341.5,-52"/>
 </g>
 <!-- type~helio_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_node11" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node12" 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>
+<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="478.5,-190 424.5,-190 424.5,-166 478.5,-166 478.5,-190"/>
+<text text-anchor="middle" x="451.5" y="-175.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_base~~InheritedByGraph_edge14" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge15" 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~rmvs_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node12" class="node">
-<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~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"/>
+<path fill="none" stroke="#000000" d="M424.41,-186.57C394.88,-196.09 349.78,-210.01 341.5,-209"/>
+<path fill="none" stroke="#000000" d="M339.5,-209C324.39,-207.16 308.44,-202.14 294.85,-196.86"/>
+<polygon fill="#000000" stroke="#000000" points="296.01,-193.55 285.43,-193.01 293.36,-200.03 296.01,-193.55"/>
 </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="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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-316 424.5,-316 424.5,-292 478.5,-292 478.5,-316"/>
+<text text-anchor="middle" x="451.5" y="-301.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_base~~InheritedByGraph_edge11" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge17" class="edge">
 <title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M424.48,-304C391.46,-304 334.31,-304 296.95,-304"/>
+<polygon fill="#000000" stroke="#000000" points="296.51,-300.5 286.51,-304 296.51,-307.5 296.51,-300.5"/>
 </g>
-<!-- type~whm_pl -->
+<!-- type~whm_tp -->
 <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>
+<title>type~whm_tp</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node14"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-232 424.5,-232 424.5,-208 478.5,-208 478.5,-232"/>
+<text text-anchor="middle" x="451.5" y="-217.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
 </a>
 </g>
 </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"/>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge16" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M424.48,-217.68C402.37,-215.64 369.82,-212.46 341.5,-209"/>
 </g>
-<!-- type~symba_cb -->
+<!-- type~helio_pl -->
 <g id="type~~swiftest_base~~InheritedByGraph_node15" class="node">
-<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>
+<title>type~helio_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node15"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-106 424.5,-106 424.5,-82 478.5,-82 478.5,-106"/>
+<text text-anchor="middle" x="451.5" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge13" class="edge">
+<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M424.44,-85.43C413.71,-81.78 401.19,-77.36 390,-73 368.11,-64.48 364.36,-46.62 341.5,-52"/>
 </g>
-<!-- type~helio_nbody_system -->
+<!-- type~fraggle_fragments -->
 <g id="type~~swiftest_base~~InheritedByGraph_node16" class="node">
-<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>
+<title>type~fraggle_fragments</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node16"><a xlink:href=".././type/fraggle_fragments.html" xlink:title="fraggle_fragments">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="501.5,-64 401.5,-64 401.5,-40 501.5,-40 501.5,-64"/>
+<text text-anchor="middle" x="451.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_fragments</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~fraggle_fragments&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge12" class="edge">
+<title>type~fraggle_fragments&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M401.38,-47.24C382.45,-46.63 360.75,-47.47 341.5,-52"/>
 </g>
-<!-- type~helio_pl -->
+<!-- type~rmvs_pl -->
 <g id="type~~swiftest_base~~InheritedByGraph_node17" class="node">
-<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>
+<title>type~rmvs_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node17"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1106.5,-67 1052.5,-67 1052.5,-43 1106.5,-43 1106.5,-67"/>
+<text text-anchor="middle" x="1079.5" y="-52.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge20" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
+<path fill="none" stroke="#000000" d="M1052.29,-50.67C1021.59,-45.65 969.17,-37.28 924,-31 883.35,-25.35 836.57,-19.74 805.13,-16.1"/>
+<polygon fill="#000000" stroke="#000000" points="805.42,-12.61 795.09,-14.94 804.62,-19.56 805.42,-12.61"/>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node18" class="node">
-<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>
+<!-- type~rmvs_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_node22" class="node">
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node22"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="924,-106 813,-106 813,-82 924,-82 924,-106"/>
+<text text-anchor="middle" x="868.5" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- 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"/>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge27" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1052.27,-55.23C1024.54,-55.94 979.71,-58.48 942,-67 938.43,-67.81 924.73,-72.83 910.19,-78.33"/>
+<polygon fill="#000000" stroke="#000000" points="908.71,-75.15 900.61,-81.97 911.2,-81.69 908.71,-75.15"/>
+<text text-anchor="middle" x="972" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
-<!-- 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>
+<!-- type~symba_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_node18" class="node">
+<title>type~symba_tp</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node18"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="697.5,-190 638.5,-190 638.5,-166 697.5,-166 697.5,-190"/>
+<text text-anchor="middle" x="668" y="-175.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
 </a>
 </g>
 </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="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>
+<!-- type~symba_tp&#45;&gt;type~helio_tp -->
+<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="M638.07,-178C599.38,-178 530.79,-178 488.72,-178"/>
+<polygon fill="#000000" stroke="#000000" points="488.62,-174.5 478.62,-178 488.62,-181.5 488.62,-174.5"/>
 </g>
-<!-- type~rmvs_tp -->
+<!-- type~symba_pl -->
 <g id="type~~swiftest_base~~InheritedByGraph_node19" class="node">
-<title>type~rmvs_tp</title>
-<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>
+<title>type~symba_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node19"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="697,-106 639,-106 639,-82 697,-82 697,-106"/>
+<text text-anchor="middle" x="668" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
-<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="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>
+<!-- type~symba_pl&#45;&gt;type~helio_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge24" class="edge">
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M638.96,-94C600.43,-94 531.1,-94 488.7,-94"/>
+<polygon fill="#000000" stroke="#000000" points="488.53,-90.5 478.53,-94 488.53,-97.5 488.53,-90.5"/>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~helio_nbody_system -->
 <g id="type~~swiftest_base~~InheritedByGraph_node20" class="node">
-<title>type~rmvs_pl</title>
-<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>
+<title>type~helio_nbody_system</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node20"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="923.5,-148 813.5,-148 813.5,-124 923.5,-124 923.5,-148"/>
+<text text-anchor="middle" x="868.5" y="-133.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~rmvs_nbody_system -->
+<!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge18" class="edge">
+<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M813.46,-134C798.99,-134.01 783.37,-134.51 769,-136"/>
+</g>
+<!-- type~rmvs_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_node21" 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="695,-280 641,-280 641,-256 695,-256 695,-280"/>
+<text text-anchor="middle" x="668" y="-265.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_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="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>
+<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.7,-272.41C602.56,-278.81 531.78,-290.69 488.73,-297.92"/>
+<polygon fill="#000000" stroke="#000000" points="487.96,-294.5 478.68,-299.61 489.12,-301.4 487.96,-294.5"/>
+<text text-anchor="middle" x="563" y="-292.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</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"/>
+<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge23" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
+<path fill="none" stroke="#000000" d="M640.7,-262.11C602.48,-253.56 531.48,-237.67 488.46,-228.05"/>
+<polygon fill="#000000" stroke="#000000" points="489.2,-224.63 478.68,-225.86 487.68,-231.46 489.2,-224.63"/>
 </g>
-<!-- type~symba_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_node21" class="node">
-<title>type~symba_tp</title>
-<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>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge19" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M835.06,-106.03C827.76,-108.86 820.08,-111.95 813,-115 793.1,-123.57 790.55,-133.77 769,-136"/>
+<path fill="none" stroke="#000000" d="M767,-136C756.12,-137.12 744.52,-137.68 733.25,-137.89"/>
+<polygon fill="#000000" stroke="#000000" points="732.98,-134.39 723.02,-137.99 733.05,-141.39 732.98,-134.39"/>
+</g>
+<!-- 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,-64 826,-64 826,-40 911,-40 911,-64"/>
+<text text-anchor="middle" x="868.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
 </a>
 </g>
 </g>
-<!-- type~symba_tp&#45;&gt;type~helio_tp -->
-<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="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"/>
+<!-- type~symba_merger&#45;&gt;type~symba_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge25" class="edge">
+<title>type~symba_merger&#45;&gt;type~symba_pl</title>
+<path fill="none" stroke="#000000" d="M825.89,-60.8C790.86,-68.22 741.17,-78.73 707.15,-85.93"/>
+<polygon fill="#000000" stroke="#000000" points="706.19,-82.55 697.13,-88.05 707.64,-89.4 706.19,-82.55"/>
 </g>
-<!-- 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>
+<!-- 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="1139,-121 1020,-121 1020,-97 1139,-97 1139,-121"/>
+<text text-anchor="middle" x="1079.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~helio_pl -->
+<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
 <g id="type~~swiftest_base~~InheritedByGraph_edge26" class="edge">
-<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"/>
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M1019.73,-116.59C992.96,-120.05 961.21,-124.15 933.81,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="933.01,-124.27 923.54,-129.02 933.91,-131.21 933.01,-124.27"/>
 </g>
-<!-- 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"/>
+<!-- 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="M1021.38,-96.97C996.8,-91.45 967.84,-84.46 942,-77 932.12,-74.15 921.6,-70.74 911.73,-67.37"/>
+<polygon fill="#000000" stroke="#000000" points="912.71,-64.01 902.12,-64.04 910.42,-70.62 912.71,-64.01"/>
+<text text-anchor="middle" x="972" y="-94.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -676,18 +677,6 @@ <h3>Contents</h3>
 
 
 
-<div class="panel panel-primary">
-  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-1">Variables</a></h3></div>
-  <div id="vars-1" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../type/swiftest_base.html#variable-lintegrate">lintegrate</a>
-      
-    </div>
-  </div>
-</div>
-
-
 
 
 
@@ -711,11 +700,15 @@ <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~6">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</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_particle_info_netcdf">write_particle_info_netcdf</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~4">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~16">write_frame</a>
+      
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_particle_info~15">write_particle_info</a>
       
     </div>
   </div>
@@ -729,38 +722,6 @@ <h3>Contents</h3>
     <br class="visible-xs visible-sm hidden-md">
 
     
-    <section>
-    <h2>Components</h2>
-    
-<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>
-
-</tbody>
-</table>
-
-    </section>
-    <br>
-    
     
     
     
@@ -772,10 +733,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -789,11 +757,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -858,23 +826,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <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>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_initialize(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -901,7 +883,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -920,6 +902,21 @@ <h4>Arguments</h4>
   
 </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -927,7 +924,7 @@ <h4>Arguments</h4>
     
     
 
-         
+        
       
       </li>
     
@@ -937,23 +934,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <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>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_read_frame(self, iu, param, form, ierr)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -976,7 +987,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -990,12 +1001,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1006,41 +1017,11 @@ <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></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 </p></td>
   
 </tr>
 
@@ -1051,7 +1032,7 @@ <h4>Arguments</h4>
     
     
 
-         
+        
       
       </li>
     
@@ -1061,23 +1042,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <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>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_write_frame(self, iu, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -1104,7 +1099,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1114,34 +1109,96 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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~16"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a> 
+    
+  </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Set up generic procedure that will switch between NetCDF or Fortran binary depending on arguments</p>
+  </div>
   
-  
-  
-<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>
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
 
-</tbody>
-</table>
+         
+      
+      </li>
+    
+  </ul>
+</div>
 
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~15"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
       
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
     
     
 
diff --git a/docs/type/swiftest_body.html b/docs/type/swiftest_body.html
index 15811e5a4..703ab1513 100644
--- a/docs/type/swiftest_body.html
+++ b/docs/type/swiftest_body.html
@@ -134,7 +134,7 @@ <h1>swiftest_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 9.1% of total for derived types.</p>Including implementation: 49 statements,  7.0% of total for derived types.">49 statements</a>
+    title="<p> 6.8% of total for derived types.</p>Including implementation: 50 statements,  5.6% of total for derived types.">50 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_body.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_body.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#variable-id~2">id</a>
       
@@ -255,15 +253,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_particle_info~17">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-discard~6">discard</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-kick~6">kick</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-kick~7">kick</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-set_mu~4">set_mu</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-step~9">step</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-step~10">step</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel~8">accel</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel~9">accel</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-drift">drift</a>
       
@@ -271,11 +277,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel_obl~3">accel_obl</a>
       
@@ -283,11 +289,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-xv2el">xv2el</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-setup~10">setup</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-setup~11">setup</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel_user">accel_user</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-append~9">append</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-append~10">append</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-fill~8">fill</a>
       
@@ -301,6 +307,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-spill~9">spill</a>
       
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame~18">write_frame</a>
+      
     </div>
   </div>
 </div>
@@ -330,31 +338,47 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_body~~InheritsGraph Pages: 1 -->
-<svg id="typeswiftest_bodyInheritsGraph" width="198pt" height="32pt"
- viewBox="0.00 0.00 198.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_body~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typeswiftest_bodyInheritsGraph" width="249pt" height="74pt"
+ viewBox="0.00 0.00 249.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_body~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~swiftest_body~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 194,-28 194,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 245,-70 245,4 -4,4"/>
 <!-- type~swiftest_body -->
 <g id="type~~swiftest_body~~InheritsGraph_node1" class="node">
 <title>type~swiftest_body</title>
-<polygon fill="none" stroke="black" 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">swiftest_body</text>
+<polygon fill="none" stroke="black" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_body</text>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~swiftest_body~~InheritsGraph_node2" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~swiftest_body~~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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~swiftest_body~~InheritsGraph_edge1" class="edge">
+<g id="type~~swiftest_body~~InheritsGraph_edge2" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~swiftest_body~~InheritsGraph_node3" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~swiftest_body~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_body~~InheritsGraph_edge1" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -416,52 +440,52 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- type~swiftest_body -->
 <g id="type~~swiftest_body~~InheritedByGraph_node1" class="node">
 <title>type~swiftest_body</title>
-<polygon fill="none" stroke="black" points="77,-132 0,-132 0,-108 77,-108 77,-132"/>
-<text text-anchor="middle" x="38.5" y="-117.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_body</text>
+<polygon fill="none" stroke="black" points="77,-181 0,-181 0,-157 77,-157 77,-181"/>
+<text text-anchor="middle" x="38.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_body</text>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~swiftest_body~~InheritedByGraph_node2" class="node">
 <title>type~swiftest_tp</title>
 <g id="a_type~~swiftest_body~~InheritedByGraph_node2"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="177,-132 114,-132 114,-108 177,-108 177,-132"/>
-<text text-anchor="middle" x="145.5" y="-117.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="177,-181 114,-181 114,-157 177,-157 177,-181"/>
+<text text-anchor="middle" x="145.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge1" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M113.79,-118.16C107.84,-118.32 101.7,-118.85 96,-120"/>
+<path fill="none" stroke="#000000" d="M113.79,-167.16C107.84,-167.32 101.7,-167.85 96,-169"/>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_node3" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~swiftest_body~~InheritedByGraph_node3"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="176.5,-90 114.5,-90 114.5,-66 176.5,-66 176.5,-90"/>
-<text text-anchor="middle" x="145.5" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="176.5,-139 114.5,-139 114.5,-115 176.5,-115 176.5,-139"/>
+<text text-anchor="middle" x="145.5" y="-124.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- 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="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"/>
+<path fill="none" stroke="#000000" d="M95,-169C92.48,-169.51 89.88,-169.91 87.25,-170.22"/>
+<polygon fill="#000000" stroke="#000000" points="86.72,-166.75 77.02,-171.02 87.26,-173.73 86.72,-166.75"/>
+<path fill="none" stroke="#000000" d="M125.21,-139.15C121.36,-141.89 117.44,-144.9 114,-148 104.86,-156.22 108.05,-166.57 96,-169"/>
 </g>
-<!-- type~whm_tp -->
+<!-- type~whm_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_node4" class="node">
-<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">whm_tp</text>
+<title>type~whm_pl</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node4"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="618,-122 564,-122 564,-98 618,-98 618,-122"/>
+<text text-anchor="middle" x="591" y="-107.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</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"/>
+<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge7" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M563.78,-106.14C491.17,-95.88 288.82,-70.28 227.5,-94"/>
 </g>
 <!-- type~helio_tp -->
 <g id="type~~swiftest_body~~InheritedByGraph_node5" class="node">
@@ -473,213 +497,227 @@ <h3 class="panel-title">Inherited by</h3>
 </g>
 </g>
 <!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge5" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge4" class="edge">
 <title>type~helio_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"/>
-</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"/>
+<path fill="none" stroke="#000000" d="M310.39,-184.99C280.85,-194.95 235.73,-209.45 227.5,-208"/>
+<path fill="none" stroke="#000000" d="M225.5,-208C206.54,-204.65 187.13,-195.16 172.29,-186.39"/>
+<polygon fill="#000000" stroke="#000000" points="174.03,-183.35 163.69,-181.08 170.36,-189.31 174.03,-183.35"/>
 </g>
 <!-- type~swiftest_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_node7" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node6" class="node">
 <title>type~swiftest_nbody_system</title>
-<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>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node6"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="399,-146 276,-146 276,-122 399,-122 399,-146"/>
+<text text-anchor="middle" x="337.5" y="-131.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_tp -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge3" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.86,-103.66C246.94,-107.31 213.11,-111.59 187.3,-114.85"/>
-<polygon fill="#000000" stroke="#000000" points="186.6,-111.41 177.12,-116.13 187.48,-118.35 186.6,-111.41"/>
-<text text-anchor="middle" x="226.5" y="-115.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.86,-145.17C246.94,-150.5 213.11,-156.73 187.3,-161.48"/>
+<polygon fill="#000000" stroke="#000000" points="186.32,-158.11 177.12,-163.36 187.59,-164.99 186.32,-158.11"/>
+<text text-anchor="middle" x="226.5" y="-161.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge6" class="edge">
 <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, pl_discards</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.86,-131.77C246.75,-130.69 212.66,-129.44 186.79,-128.48"/>
+<polygon fill="#000000" stroke="#000000" points="186.72,-124.98 176.59,-128.11 186.46,-131.97 186.72,-124.98"/>
+<text text-anchor="middle" x="226.5" y="-132.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
+</g>
+<!-- type~whm_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_node7" class="node">
+<title>type~whm_tp</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node7"><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">whm_tp</text>
+</a>
+</g>
+</g>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge5" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M310.35,-216.83C288.17,-215.54 255.57,-212.96 227.5,-208"/>
 </g>
 <!-- type~helio_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_node8" class="node">
 <title>type~helio_pl</title>
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="364.5,-66 310.5,-66 310.5,-42 364.5,-42 364.5,-66"/>
+<text text-anchor="middle" x="337.5" y="-51.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">
+<g id="type~~swiftest_body~~InheritedByGraph_edge9" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M310.42,-63.28C288.28,-71.24 255.7,-83.09 227.5,-94"/>
 </g>
-<!-- type~rmvs_tp -->
+<!-- type~fraggle_fragments -->
 <g id="type~~swiftest_body~~InheritedByGraph_node9" class="node">
-<title>type~rmvs_tp</title>
-<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>
+<title>type~fraggle_fragments</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node9"><a xlink:href=".././type/fraggle_fragments.html" xlink:title="fraggle_fragments">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="387.5,-24 287.5,-24 287.5,0 387.5,0 387.5,-24"/>
+<text text-anchor="middle" x="337.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_fragments</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
-<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,-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"/>
+<!-- type~fraggle_fragments&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge8" class="edge">
+<title>type~fraggle_fragments&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M292.09,-24.11C286.42,-26.59 280.9,-29.53 276,-33 247.74,-53.03 259.8,-81.51 227.5,-94"/>
+<path fill="none" stroke="#000000" d="M225.5,-94C211.78,-99.31 196.86,-105.44 183.72,-110.97"/>
+<polygon fill="#000000" stroke="#000000" points="182.35,-107.75 174.51,-114.87 185.08,-114.2 182.35,-107.75"/>
 </g>
 <!-- type~rmvs_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_node10" class="node">
 <title>type~rmvs_pl</title>
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="929.5,-132 875.5,-132 875.5,-108 929.5,-108 929.5,-132"/>
+<text text-anchor="middle" x="902.5" y="-117.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_edge11" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge10" class="edge">
 <title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M875.38,-119.16C820.27,-117.38 692,-113.23 628.69,-111.19"/>
+<polygon fill="#000000" stroke="#000000" points="628.49,-107.68 618.38,-110.85 628.26,-114.67 628.49,-107.68"/>
 </g>
 <!-- type~rmvs_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_node16" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node17" class="node">
 <title>type~rmvs_nbody_system</title>
-<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>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node17"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="747,-166 636,-166 636,-142 747,-142 747,-166"/>
+<text text-anchor="middle" x="691.5" y="-151.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_edge19" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge20" class="edge">
 <title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M875.45,-124.24C846,-129.03 796.94,-137.01 757.04,-143.5"/>
+<polygon fill="#000000" stroke="#000000" points="756.42,-140.06 747.11,-145.12 757.54,-146.96 756.42,-140.06"/>
+<text text-anchor="middle" x="795" y="-144.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_node12" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node11" class="node">
 <title>type~whm_nbody_system</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node12"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="546,-108 436,-108 436,-84 546,-84 546,-108"/>
-<text text-anchor="middle" x="491" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node11"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="546,-146 436,-146 436,-122 546,-122 546,-146"/>
+<text text-anchor="middle" x="491" y="-131.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_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"/>
+<path fill="none" stroke="#000000" d="M435.73,-134C427.1,-134 418.05,-134 409.11,-134"/>
+<polygon fill="#000000" stroke="#000000" points="409.07,-130.5 399.07,-134 409.07,-137.5 409.07,-130.5"/>
 </g>
 <!-- type~symba_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_node13" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node12" 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,-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>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node12"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="520,-56 462,-56 462,-32 520,-32 520,-56"/>
+<text text-anchor="middle" x="491" y="-41.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_edge13" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge14" class="edge">
 <title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M461.86,-45.86C437.31,-47.48 401.53,-49.84 374.83,-51.6"/>
+<polygon fill="#000000" stroke="#000000" points="374.46,-48.12 364.72,-52.27 374.93,-55.1 374.46,-48.12"/>
 </g>
-<!-- type~helio_nbody_system -->
+<!-- type~rmvs_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_node13" class="node">
+<title>type~rmvs_tp</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node13"><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_edge13" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
+<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~symba_tp -->
 <g id="type~~swiftest_body~~InheritedByGraph_node14" class="node">
-<title>type~helio_nbody_system</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node14"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="746.5,-66 636.5,-66 636.5,-42 746.5,-42 746.5,-66"/>
-<text text-anchor="middle" x="691.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
+<title>type~symba_tp</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node14"><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~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"/>
+<!-- type~symba_tp&#45;&gt;type~helio_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge11" 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~symba_merger -->
 <g id="type~~swiftest_body~~InheritedByGraph_node15" class="node">
 <title>type~symba_merger</title>
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="734,-44 649,-44 649,-20 734,-20 734,-44"/>
+<text text-anchor="middle" x="691.5" y="-29.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_body~~InheritedByGraph_edge16" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge17" class="edge">
 <title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M648.89,-34.52C613.86,-36.63 564.17,-39.64 530.15,-41.69"/>
+<polygon fill="#000000" stroke="#000000" points="529.9,-38.2 520.13,-42.3 530.33,-45.19 529.9,-38.2"/>
 </g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<!-- type~helio_nbody_system -->
+<g id="type~~swiftest_body~~InheritedByGraph_node16" class="node">
+<title>type~helio_nbody_system</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node16"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="746.5,-86 636.5,-86 636.5,-62 746.5,-62 746.5,-86"/>
+<text text-anchor="middle" x="691.5" y="-71.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_body~~InheritedByGraph_edge15" class="edge">
+<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M636.25,-78.36C613.49,-81.26 587.02,-86.07 564,-94 547.96,-99.53 531.33,-108.52 518.09,-116.58"/>
+<polygon fill="#000000" stroke="#000000" points="516.13,-113.68 509.52,-121.96 519.85,-119.61 516.13,-113.68"/>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge16" 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"/>
+<path fill="none" stroke="#000000" d="M636,-148.51C611.27,-146.02 581.87,-143.05 556.09,-140.46"/>
+<polygon fill="#000000" stroke="#000000" points="556.34,-136.96 546.04,-139.44 555.64,-143.93 556.34,-136.96"/>
 </g>
 <!-- type~symba_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_node17" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node18" 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="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>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node18"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="962,-78 843,-78 843,-54 962,-54 962,-78"/>
+<text text-anchor="middle" x="902.5" y="-63.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="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_edge18" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.73,-56.44C811.84,-51.41 774.31,-45.31 744.49,-40.46"/>
+<polygon fill="#000000" stroke="#000000" points="744.72,-36.95 734.29,-38.8 743.59,-43.86 744.72,-36.95"/>
+<text text-anchor="middle" x="795" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
+</g>
+<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge19" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M842.73,-68.25C815.96,-69.27 784.21,-70.49 756.81,-71.54"/>
+<polygon fill="#000000" stroke="#000000" points="756.4,-68.05 746.54,-71.93 756.67,-75.05 756.4,-68.05"/>
 </g>
 </g>
 </svg>
@@ -735,13 +773,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_body.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_body.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#variable-id~2">id</a>
       
@@ -811,15 +847,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_particle_info~17">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-discard~6">discard</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-kick~6">kick</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-kick~7">kick</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-set_mu~4">set_mu</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-step~9">step</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-step~10">step</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel~8">accel</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel~9">accel</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-drift">drift</a>
       
@@ -827,11 +871,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel_obl~3">accel_obl</a>
       
@@ -839,11 +883,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-xv2el">xv2el</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-setup~10">setup</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-setup~11">setup</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-accel_user">accel_user</a>
       
-      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-append~9">append</a>
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-append~10">append</a>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-fill~8">fill</a>
       
@@ -857,6 +901,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-spill~9">spill</a>
       
+      <a class="list-group-item" href="../type/swiftest_body.html#boundprocedure-write_frame~18">write_frame</a>
+      
     </div>
   </div>
 </div>
@@ -885,20 +931,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-lfirst"></span>logical,</td>
@@ -929,11 +961,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1017,7 +1049,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -1031,7 +1063,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1153,11 +1185,255 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-e"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-e"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>e</strong></td><td></td><td></td><td><p>Eccentricity</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-inc"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>inc</strong></td><td></td><td></td><td><p>Inclination</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capom"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>capom</strong></td><td></td><td></td><td><p>Longitude of ascending node</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-omega"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>omega</strong></td><td></td><td></td><td><p>Argument of pericenter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-capm"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>capm</strong></td><td></td><td></td><td><p>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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_base(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_base.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_base.html'>swiftest_base</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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_particle_info_base(self, param, idx)
+    
+    
+   
+   <a href='../proc/io_dump_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</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>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>e</strong></td><td></td><td></td><td><p>Eccentricity</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1167,25 +1443,90 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-inc"></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>inc</strong></td><td></td><td></td><td><p>Inclination</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</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_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_frame_base(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_frame_base.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" id="variable-capom"></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
   
-  <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>capom</strong></td><td></td><td></td><td><p>Longitude of ascending node</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1195,11 +1536,12 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-omega"></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>omega</strong></td><td></td><td></td><td><p>Argument of pericenter</p></td>
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1209,37 +1551,43 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-capm"></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>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>capm</strong></td><td></td><td></td><td><p>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</p></td>
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
 </tbody>
 </table>
 
-    </section>
-    <br>
-    
-    
-    
+      
     
     
+
+        
+      
+      </li>
     
-     
-    <section>
-    <h2>Type-Bound Procedures</h2>
+  </ul>
+</div>
+
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1253,11 +1601,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1282,11 +1630,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1296,12 +1644,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1314,6 +1662,41 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~17"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
@@ -1416,7 +1799,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~6"></span><h3>procedure(<a href='../interface/abstract_kick_body.html'>abstract_kick_body</a>), public, deferred :: <strong>kick</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~7"></span><h3>procedure(<a href='../interface/abstract_kick_body.html'>abstract_kick_body</a>), public, deferred :: <strong>kick</strong>  
     
   </h3></div>
   
@@ -1634,7 +2017,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~9"></span><h3>procedure(<a href='../interface/abstract_step_body.html'>abstract_step_body</a>), public, deferred :: <strong>step</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~10"></span><h3>procedure(<a href='../interface/abstract_step_body.html'>abstract_step_body</a>), public, deferred :: <strong>step</strong>  
     
   </h3></div>
   
@@ -1758,7 +2141,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~8"></span><h3>procedure(<a href='../interface/abstract_accel.html'>abstract_accel</a>), public, deferred :: <strong>accel</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~9"></span><h3>procedure(<a href='../interface/abstract_accel.html'>abstract_accel</a>), public, deferred :: <strong>accel</strong>  
     
   </h3></div>
   
@@ -2191,7 +2574,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -2215,11 +2598,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2308,7 +2691,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
@@ -2375,36 +2758,6 @@ <h4>Arguments</h4>
   
 </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>
 
@@ -2412,6 +2765,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2422,7 +2784,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2809,7 +3171,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~10"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_body.html'>setup_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~11"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_body.html'>setup_body</a> 
     
   </h3></div>
   
@@ -3055,7 +3417,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~9"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_body.html'>util_append_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~10"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_body.html'>util_append_body</a> 
     
   </h3></div>
   
@@ -3758,6 +4120,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~18"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/swiftest_cb.html b/docs/type/swiftest_cb.html
index 07d5118c0..e5ce39bad 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.5% of total for derived types.</p>Including implementation: 30 statements,  4.3% of total for derived types.">30 statements</a>
+    title="<p> 4.2% of total for derived types.</p>Including implementation: 31 statements,  3.5% of total for derived types.">31 statements</a>
      </li> 
      
      
@@ -179,9 +179,7 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/swiftest_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/swiftest_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/swiftest_cb.html#variable-id">id</a>
       
@@ -257,11 +255,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_particle_info~16">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame~17">write_frame</a>
       
     </div>
   </div>
@@ -291,31 +299,47 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_cb~~InheritsGraph Pages: 1 -->
-<svg id="typeswiftest_cbInheritsGraph" width="186pt" height="32pt"
- viewBox="0.00 0.00 186.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typeswiftest_cbInheritsGraph" width="237pt" height="74pt"
+ viewBox="0.00 0.00 237.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~swiftest_cb~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 182,-28 182,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 233,-70 233,4 -4,4"/>
 <!-- type~swiftest_cb -->
 <g id="type~~swiftest_cb~~InheritsGraph_node1" class="node">
 <title>type~swiftest_cb</title>
-<polygon fill="none" stroke="black" 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">swiftest_cb</text>
+<polygon fill="none" stroke="black" points="229,-45 164,-45 164,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="196.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_cb</text>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~swiftest_cb~~InheritsGraph_node2" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~swiftest_cb~~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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~swiftest_cb~~InheritsGraph_edge1" class="edge">
+<g id="type~~swiftest_cb~~InheritsGraph_edge2" 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="M163.73,-37.82C146.18,-40.48 124.04,-43.84 104.48,-46.8"/>
+<polygon fill="#000000" stroke="#000000" points="103.89,-43.35 94.52,-48.31 104.94,-50.27 103.89,-43.35"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~swiftest_cb~~InheritsGraph_node3" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~swiftest_cb~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_cb~~InheritsGraph_edge1" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.73,-28.18C151.33,-26.3 136.65,-24.08 122.2,-21.89"/>
+<polygon fill="#000000" stroke="#000000" points="122.67,-18.42 112.26,-20.38 121.62,-25.34 122.67,-18.42"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -426,25 +450,10 @@ <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~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">
+<g id="type~~swiftest_cb~~InheritedByGraph_node5" class="node">
 <title>type~rmvs_cb</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node6"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<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,-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>
@@ -456,6 +465,21 @@ <h3 class="panel-title">Inherited by</h3>
 <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~symba_cb -->
+<g id="type~~swiftest_cb~~InheritedByGraph_node6" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node6"><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~whm_nbody_system -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node7" class="node">
 <title>type~whm_nbody_system</title>
@@ -485,10 +509,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_tp -->
+<!-- type~rmvs_nbody_system -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node9" 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">
+<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>
+</g>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_cb~~InheritedByGraph_edge9" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M503.72,-24.02C496.25,-26.91 488.33,-30.02 481,-33 459.05,-41.93 455.58,-51.68 432,-54"/>
+<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_node9"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<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,-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>
@@ -501,26 +541,25 @@ <h3 class="panel-title">Inherited by</h3>
 <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_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>
+<!-- type~symba_nbody_system -->
+<g id="type~~swiftest_cb~~InheritedByGraph_node11" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node11"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="807,-66 688,-66 688,-42 807,-42 807,-66"/>
+<text text-anchor="middle" x="747.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~swiftest_cb~~InheritedByGraph_edge9" class="edge">
-<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M503.72,-24.02C496.25,-26.91 488.33,-30.02 481,-33 459.05,-41.93 455.58,-51.68 432,-54"/>
-<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"/>
+<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<g id="type~~swiftest_cb~~InheritedByGraph_edge10" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M687.73,-54C660.96,-54 629.21,-54 601.81,-54"/>
+<polygon fill="#000000" stroke="#000000" points="601.54,-50.5 591.54,-54 601.54,-57.5 601.54,-50.5"/>
 </g>
 <!-- type~rmvs_pl -->
-<g id="type~~swiftest_cb~~InheritedByGraph_node11" class="node">
+<g id="type~~swiftest_cb~~InheritedByGraph_node12" class="node">
 <title>type~rmvs_pl</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node11"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node12"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="774.5,-24 720.5,-24 720.5,0 774.5,0 774.5,-24"/>
 <text text-anchor="middle" x="747.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
@@ -533,21 +572,6 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="602.11,-8.5 592.11,-12 602.11,-15.5 602.11,-8.5"/>
 <text text-anchor="middle" x="640" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~swiftest_cb~~InheritedByGraph_node12" class="node">
-<title>type~symba_nbody_system</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node12"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="807,-66 688,-66 688,-42 807,-42 807,-66"/>
-<text text-anchor="middle" x="747.5" y="-51.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_cb~~InheritedByGraph_edge10" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M687.73,-54C660.96,-54 629.21,-54 601.81,-54"/>
-<polygon fill="#000000" stroke="#000000" points="601.54,-50.5 591.54,-54 601.54,-57.5 601.54,-50.5"/>
-</g>
 </g>
 </svg>
 </div><script>var pantypeswiftest_cbInheritedByGraph = svgPanZoom('#typeswiftest_cbInheritedByGraph', {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">
@@ -602,9 +626,7 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/swiftest_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/swiftest_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/swiftest_cb.html#variable-id">id</a>
       
@@ -680,11 +702,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_particle_info~16">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/swiftest_cb.html#boundprocedure-write_frame~17">write_frame</a>
       
     </div>
   </div>
@@ -716,25 +748,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lintegrate"></span>logical,</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</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-name"></span>character(len=STRMAX),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1077,10 +1095,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1094,11 +1119,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1163,7 +1188,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~2"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_cb_in.html'>io_read_cb_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1171,7 +1196,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading in central body data</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1187,11 +1212,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_cb_in(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1215,12 +1240,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1235,7 +1260,22 @@ <h4>Arguments</h4>
   <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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1256,7 +1296,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1264,7 +1304,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1280,11 +1320,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1308,12 +1348,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>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1323,12 +1363,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1339,7 +1379,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1347,18 +1387,302 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</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>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~16"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_cb.html'>io_read_in_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading in central body data</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_cb(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_cb(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1369,11 +1693,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</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>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1384,6 +1723,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1394,7 +1742,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~2"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
     
   </h3></div>
   
@@ -1494,6 +1842,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~17"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a frame (either binary or NetCDF, using generic procedures)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/swiftest_encounter.html b/docs/type/swiftest_encounter.html
index d1969a8a4..acefbe230 100644
--- a/docs/type/swiftest_encounter.html
+++ b/docs/type/swiftest_encounter.html
@@ -134,7 +134,7 @@ <h1>swiftest_encounter
      <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.0% of total for derived types.</p>Including implementation: 22 statements,  2.5% of total for derived types.">22 statements</a>
      </li> 
      
      
@@ -185,10 +185,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-status~2">status</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-kidx">kidx</a>
+      
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-index1">index1</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-index2">index2</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-id2">id2</a>
+      
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-x1">x1</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-x2">x2</a>
@@ -197,6 +203,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-v2">v2</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-t~2">t</a>
+      
     </div>
   </div>
 </div>
@@ -223,14 +231,18 @@ <h3>Contents</h3>
   <div id="boundprocs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-setup~11">setup</a>
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-setup~12">setup</a>
+      
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-append~11">append</a>
       
-      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-copy">copy</a>
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-copy~3">copy</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-spill~10">spill</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-resize~9">resize</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-write">write</a>
+      
     </div>
   </div>
 </div>
@@ -260,73 +272,88 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_encounter~~InheritedByGraph Pages: 1 -->
-<svg id="typeswiftest_encounterInheritedByGraph" width="556pt" height="80pt"
- viewBox="0.00 0.00 556.00 80.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_encounter~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 76)">
+<svg id="typeswiftest_encounterInheritedByGraph" width="641pt" height="74pt"
+ viewBox="0.00 0.00 641.00 73.88" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_encounter~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~swiftest_encounter~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-76 552,-76 552,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 638,-70 638,4 -4,4"/>
 <!-- type~swiftest_encounter -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_node1" class="node">
 <title>type~swiftest_encounter</title>
-<polygon fill="none" stroke="black" points="102,-72 0,-72 0,-48 102,-48 102,-72"/>
-<text text-anchor="middle" x="51" y="-57.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_encounter</text>
+<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">swiftest_encounter</text>
 </g>
-<!-- type~symba_pltpenc -->
+<!-- type~symba_encounter -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_node2" class="node">
-<title>type~symba_pltpenc</title>
-<g id="a_type~~swiftest_encounter~~InheritedByGraph_node2"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="224,-72 139,-72 139,-48 224,-48 224,-72"/>
-<text text-anchor="middle" x="181.5" y="-57.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
+<title>type~symba_encounter</title>
+<g id="a_type~~swiftest_encounter~~InheritedByGraph_node2"><a xlink:href=".././type/symba_encounter.html" xlink:title="symba_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="237,-66 139,-66 139,-42 237,-42 237,-66"/>
+<text text-anchor="middle" x="188" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
+<!-- type~symba_encounter&#45;&gt;type~swiftest_encounter -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_edge1" class="edge">
-<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
-<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"/>
+<title>type~symba_encounter&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M138.64,-54C130.16,-54 121.24,-54 112.47,-54"/>
+<polygon fill="#000000" stroke="#000000" points="112.3,-50.5 102.3,-54 112.3,-57.5 112.3,-50.5"/>
 </g>
-<!-- type~symba_nbody_system -->
+<!-- type~symba_pltpenc -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_node3" class="node">
-<title>type~symba_nbody_system</title>
-<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>
+<title>type~symba_pltpenc</title>
+<g id="a_type~~swiftest_encounter~~InheritedByGraph_node3"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="359,-66 274,-66 274,-42 359,-42 359,-66"/>
+<text text-anchor="middle" x="316.5" y="-51.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 -->
+<!-- type~symba_pltpenc&#45;&gt;type~symba_encounter -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_edge2" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
-<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>
+<title>type~symba_pltpenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M273.74,-52.25C267.76,-52.51 261.71,-53.05 256,-54"/>
 </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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="358.5,-24 274.5,-24 274.5,0 358.5,0 358.5,-24"/>
+<text text-anchor="middle" x="316.5" 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 -->
+<!-- type~symba_plplenc&#45;&gt;type~symba_encounter -->
+<g id="type~~swiftest_encounter~~InheritedByGraph_edge3" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M287.78,-24.1C282.98,-26.72 278.19,-29.71 274,-33 264.33,-40.59 268.12,-51.97 256,-54"/>
+<path fill="none" stroke="#000000" d="M255,-54C252.48,-54.42 249.9,-54.77 247.28,-55.05"/>
+<polygon fill="#000000" stroke="#000000" points="246.79,-51.58 237.1,-55.86 247.34,-58.56 246.79,-51.58"/>
+</g>
+<!-- type~symba_nbody_system -->
+<g id="type~~swiftest_encounter~~InheritedByGraph_node5" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~swiftest_encounter~~InheritedByGraph_node5"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="634,-44 515,-44 515,-20 634,-20 634,-44"/>
+<text text-anchor="middle" x="574.5" y="-29.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_pltpenc -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_edge4" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428.93,-28.34C405.29,-25.25 378.24,-21.71 355.37,-18.72"/>
-<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>
+<title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.77,-37.05C470.86,-40.82 411.38,-45.93 369.25,-49.55"/>
+<polygon fill="#000000" stroke="#000000" points="368.86,-46.07 359.2,-50.42 369.46,-53.05 368.86,-46.07"/>
+<text text-anchor="middle" x="437" y="-51.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_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"/>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
+<g id="type~~swiftest_encounter~~InheritedByGraph_edge5" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.72,-21.22C508.75,-20.36 502.76,-19.6 497,-19 453.95,-14.52 404.81,-12.84 368.85,-12.24"/>
+<polygon fill="#000000" stroke="#000000" points="368.65,-8.74 358.6,-12.09 368.55,-15.74 368.65,-8.74"/>
+<text text-anchor="middle" x="437" y="-21.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list, plplcollision_list</text>
 </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 pantypeswiftest_encounterInheritedByGraph = svgPanZoom('#typeswiftest_encounterInheritedByGraph', {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"
@@ -384,10 +411,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-status~2">status</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-kidx">kidx</a>
+      
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-index1">index1</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-index2">index2</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-id2">id2</a>
+      
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-x1">x1</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-x2">x2</a>
@@ -396,6 +429,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#variable-v2">v2</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#variable-t~2">t</a>
+      
     </div>
   </div>
 </div>
@@ -422,14 +457,18 @@ <h3>Contents</h3>
   <div id="boundprocs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-setup~11">setup</a>
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-setup~12">setup</a>
+      
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-append~11">append</a>
       
-      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-copy">copy</a>
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-copy~3">copy</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-spill~10">spill</a>
       
       <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-resize~9">resize</a>
       
+      <a class="list-group-item" href="../type/swiftest_encounter.html#boundprocedure-write">write</a>
+      
     </div>
   </div>
 </div>
@@ -500,6 +539,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
@@ -528,6 +581,34 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
@@ -580,6 +661,20 @@ <h2>Components</h2>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -597,7 +692,7 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~11"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_encounter.html'>setup_encounter</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~12"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_encounter.html'>setup_encounter</a> 
     
   </h3></div>
   
@@ -690,7 +785,115 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/util_copy_encounter.html'>util_copy_encounter</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~11"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_encounter.html'>util_append_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Appends elements from one structure to another</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_append_encounter(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/util_append_encounter.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_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy~3"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/util_copy_encounter.html'>util_copy_encounter</a> 
     
   </h3></div>
   
@@ -991,6 +1194,129 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write"></span><h3>procedure, public :: <strong>write</strong>  => <a href='../interface/io_write_encounter.html'>io_write_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write close encounter data to output binary file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_encounter(self, pl, encbody, param)
+    
+    
+   
+   <a href='../proc/io_write_encounter.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_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </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_nbody_system.html b/docs/type/swiftest_nbody_system.html
index b0de6ff36..e20cc8520 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> 6.3% of total for derived types.</p>Including implementation: 34 statements,  4.9% of total for derived types.">34 statements</a>
+    title="<p> 5.2% of total for derived types.</p>Including implementation: 38 statements,  4.3% of total for derived types.">38 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/swiftest_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-pl">pl</a>
@@ -191,7 +189,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -201,22 +199,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-maxid">maxid</a>
-      
     </div>
   </div>
 </div>
@@ -243,7 +235,7 @@ <h3>Contents</h3>
   <div id="boundprocs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step~10">step</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step~11">step</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-discard">discard</a>
       
@@ -251,13 +243,25 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <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~7">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-initialize~6">initialize</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
@@ -269,6 +273,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_hdr~5">write_hdr</a>
+      
     </div>
   </div>
 </div>
@@ -282,7 +288,7 @@ <h3>Contents</h3>
     </div>
     
     <div class="col-md-9" id='text'>
-      <h2>type, public, abstract, extends(<a href='../type/swiftest_base.html'>swiftest_base</a>) :: swiftest_nbody_system</h2>
+      <h2>type, public, abstract :: swiftest_nbody_system</h2>
     <p>An abstract class for a basic Swiftest nbody system 
   This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb)</p>
     <br>
@@ -298,111 +304,129 @@ <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="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)">
+<svg id="typeswiftest_nbody_systemInheritsGraph" width="571pt" height="129pt"
+ viewBox="0.00 0.00 571.00 129.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 125)">
 <title>type~~swiftest_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 581,-120 581,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-125 567,-125 567,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,-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>
+<polygon fill="none" stroke="black" points="563,-66 440,-66 440,-42 563,-42 563,-66"/>
+<text text-anchor="middle" x="501.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_nbody_system</text>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node2" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-24 278,-24 278,0 341,0 341,-24"/>
+<text text-anchor="middle" x="309.5" y="-9.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_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_base -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_node3" class="node">
-<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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.05,-41.96C415.81,-35.28 378.82,-27.1 351.13,-20.98"/>
+<polygon fill="#000000" stroke="#000000" points="351.52,-17.48 341,-18.74 350.01,-24.32 351.52,-17.48"/>
+<text text-anchor="middle" x="390.5" y="-37.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_node4" class="node">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_node3" 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,-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>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-66 278.5,-66 278.5,-42 340.5,-42 340.5,-66"/>
+<text text-anchor="middle" x="309.5" y="-51.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,-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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.86,-54C410.75,-54 376.66,-54 350.79,-54"/>
+<polygon fill="#000000" stroke="#000000" points="350.59,-50.5 340.59,-54 350.59,-57.5 350.59,-50.5"/>
+<text text-anchor="middle" x="390.5" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~swiftest_cb -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_node5" class="node">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_node4" class="node">
 <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>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-114 170,-114 170,-90 235,-90 235,-114"/>
+<text text-anchor="middle" x="202.5" y="-99.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~~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.67,-64.99C433.7,-66.02 427.73,-67.04 422,-68 360.48,-78.27 289.03,-89.2 245.05,-95.81"/>
+<polygon fill="#000000" stroke="#000000" points="244.38,-92.37 235.02,-97.32 245.42,-99.3 244.38,-92.37"/>
+<text text-anchor="middle" x="309.5" y="-92.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">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_node7" 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,-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>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-66 164,-66 164,-42 241,-42 241,-66"/>
+<text text-anchor="middle" x="202.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~~swiftest_nbody_system~~InheritsGraph_edge5" class="edge">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge4" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M259,-54C256.48,-54.51 253.88,-54.91 251.25,-55.22"/>
+<polygon fill="#000000" stroke="#000000" points="250.72,-51.75 241.02,-56.02 251.26,-58.73 250.72,-51.75"/>
+<path fill="none" stroke="#000000" d="M289.21,-24.15C285.36,-26.89 281.44,-29.9 278,-33 268.86,-41.22 272.05,-51.57 260,-54"/>
 </g>
 <!-- type~swiftest_pl&#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_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M278.3,-52.15C272.2,-52.29 265.86,-52.82 260,-54"/>
+</g>
+<!-- type~swiftest_base -->
+<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="94.5,-121 17.5,-121 17.5,-97 94.5,-97 94.5,-121"/>
+<text text-anchor="middle" x="56" y="-106.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~~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"/>
+<path fill="none" stroke="#000000" d="M169.82,-104.49C162.03,-105.05 153.72,-105.59 146,-106 132.72,-106.7 118.32,-107.27 105.05,-107.72"/>
+<polygon fill="#000000" stroke="#000000" points="104.57,-104.23 94.69,-108.05 104.8,-111.23 104.57,-104.23"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_node6" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-69 0,-69 0,-45 112,-45 112,-69"/>
+<text text-anchor="middle" x="56" y="-54.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge6" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-92.12C150.93,-86.25 126.61,-78.68 105.39,-72.07"/>
+<polygon fill="#000000" stroke="#000000" points="106.17,-68.65 95.58,-69.01 104.09,-75.33 106.17,-68.65"/>
+<text text-anchor="middle" x="138" y="-85.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge8" class="edge">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge9" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M163.72,-64.65C152.75,-68.01 140.81,-71.91 130,-76 117.07,-80.89 103.17,-86.96 91,-92.56"/>
+<polygon fill="#000000" stroke="#000000" points="89.26,-89.51 81.67,-96.91 92.22,-95.85 89.26,-89.51"/>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge8" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.1,-41.94C158.79,-40.3 152.26,-38.88 146,-38 130.11,-35.76 112.82,-38.28 97.74,-42.15"/>
+<polygon fill="#000000" stroke="#000000" points="96.37,-38.9 87.7,-45 98.28,-45.63 96.37,-38.9"/>
+<text text-anchor="middle" x="138" y="-40.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -512,10 +536,25 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" d="M288,-54C285.51,-54.35 282.96,-54.64 280.39,-54.88"/>
 <polygon fill="#000000" stroke="#000000" points="280.09,-51.4 270.36,-55.6 280.59,-58.38 280.09,-51.4"/>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~symba_nbody_system -->
 <g id="type~~swiftest_nbody_system~~InheritedByGraph_node5" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~swiftest_nbody_system~~InheritedByGraph_node5"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="633,-66 514,-66 514,-42 633,-42 633,-66"/>
+<text text-anchor="middle" x="573.5" y="-51.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_nbody_system~~InheritedByGraph_edge4" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M513.73,-54C486.96,-54 455.21,-54 427.81,-54"/>
+<polygon fill="#000000" stroke="#000000" points="427.54,-50.5 417.54,-54 427.54,-57.5 427.54,-50.5"/>
+</g>
+<!-- type~rmvs_pl -->
+<g id="type~~swiftest_nbody_system~~InheritedByGraph_node6" class="node">
 <title>type~rmvs_pl</title>
-<g id="a_type~~swiftest_nbody_system~~InheritedByGraph_node5"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<g id="a_type~~swiftest_nbody_system~~InheritedByGraph_node6"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="600.5,-24 546.5,-24 546.5,0 600.5,0 600.5,-24"/>
 <text text-anchor="middle" x="573.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
@@ -528,21 +567,6 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="428.11,-8.5 418.11,-12 428.11,-15.5 428.11,-8.5"/>
 <text text-anchor="middle" x="466" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~swiftest_nbody_system~~InheritedByGraph_node6" class="node">
-<title>type~symba_nbody_system</title>
-<g id="a_type~~swiftest_nbody_system~~InheritedByGraph_node6"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="633,-66 514,-66 514,-42 633,-42 633,-66"/>
-<text text-anchor="middle" x="573.5" y="-51.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_nbody_system~~InheritedByGraph_edge4" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M513.73,-54C486.96,-54 455.21,-54 427.81,-54"/>
-<polygon fill="#000000" stroke="#000000" points="427.54,-50.5 417.54,-54 427.54,-57.5 427.54,-50.5"/>
-</g>
 </g>
 </svg>
 </div><script>var pantypeswiftest_nbody_systemInheritedByGraph = svgPanZoom('#typeswiftest_nbody_systemInheritedByGraph', {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">
@@ -597,8 +621,6 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-pl">pl</a>
@@ -609,7 +631,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -619,22 +641,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-maxid">maxid</a>
-      
     </div>
   </div>
 </div>
@@ -661,7 +677,7 @@ <h3>Contents</h3>
   <div id="boundprocs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step~10">step</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step~11">step</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-discard">discard</a>
       
@@ -669,13 +685,25 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <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~7">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-initialize~6">initialize</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
@@ -687,6 +715,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_hdr~5">write_hdr</a>
+      
     </div>
   </div>
 </div>
@@ -715,20 +745,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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -805,7 +821,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -871,11 +887,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -885,11 +901,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -899,39 +915,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -941,11 +929,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -965,20 +953,6 @@ <h2>Components</h2>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -996,7 +970,7 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~10"></span><h3>procedure(<a href='../interface/abstract_step_system.html'>abstract_step_system</a>), public, deferred :: <strong>step</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~11"></span><h3>procedure(<a href='../interface/abstract_step_system.html'>abstract_step_system</a>), public, deferred :: <strong>step</strong>  
     
   </h3></div>
   
@@ -1406,7 +1380,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_old_t_final"></span><h3>procedure, public :: <strong>get_old_t_final</strong>  => <a href='../interface/io_get_old_t_final_system.html'>io_get_old_t_final_system</a> 
     
   </h3></div>
   
@@ -1414,7 +1388,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in a frame of input data from file</p>
+    <p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p>
   </div>
   
   <ul class="list-group">
@@ -1430,11 +1404,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public module function io_get_old_t_final_system(self, param) result(old_t_final)
     
     
    
-   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_get_old_t_final_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1459,26 +1433,11 @@ <h4>Arguments</h4>
 <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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</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></td>
   
 </tr>
 
@@ -1489,41 +1448,11 @@ <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></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></td>
   
 </tr>
 
@@ -1534,6 +1463,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  
+    
+
         
       
       </li>
@@ -1544,7 +1482,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
     
   </h3></div>
   
@@ -1552,7 +1490,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Write out information about discarded test particles</p>
+    <p>Read in a frame of input data from file</p>
   </div>
   
   <ul class="list-group">
@@ -1568,11 +1506,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_discard(self, param)
+public module function io_read_frame_system(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1609,10 +1547,25 @@ <h4>Arguments</h4>
   
   
   
+<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>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1627,6 +1580,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1637,7 +1599,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_particle_info"></span><h3>procedure, public :: <strong>read_particle_info</strong>  => <a href='../interface/io_read_particle_info_system.html'>io_read_particle_info_system</a> 
     
   </h3></div>
   
@@ -1645,7 +1607,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Append a frame of output data to file</p>
+    <p>Read in particle metadata from file</p>
   </div>
   
   <ul class="list-group">
@@ -1661,11 +1623,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine io_read_particle_info_system(self, param)
     
     
    
-   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1690,11 +1652,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</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 nbody system object</p></td>
   
 </tr>
 
@@ -1704,27 +1666,492 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <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>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 </p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write out information about discarded test particles</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_discard(self, param)
+    
+    
+   
+   <a href='../proc/io_write_discard.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>
+
+  
+  
+  
+  
+<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-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Append a frame of output data to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_system(self, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_bin"></span><h3>procedure, public :: <strong>write_hdr_bin</strong>  => <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in Fortran binary format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_hdr_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(in)</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>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_netcdf"></span><h3>procedure, public :: <strong>write_hdr_netcdf</strong>  => <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in NetCDF format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_hdr_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(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-obl_pot"></span><h3>procedure, public :: <strong>obl_pot</strong>  => <a href='../interface/obl_pot_system.html'>obl_pot_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_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>
 
@@ -1745,7 +2172,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <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> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~6"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/setup_initialize_system.html'>setup_initialize_system</a> 
     
   </h3></div>
   
@@ -1830,6 +2257,99 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init_particle_info"></span><h3>procedure, public :: <strong>init_particle_info</strong>  => <a href='../interface/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Initialize the system from input files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine setup_initialize_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/setup_initialize_particle_info_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</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
@@ -2338,7 +2858,7 @@ <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>
@@ -2355,6 +2875,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr~5"></span><h3>generic, public :: <strong>write_hdr</strong>  => <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin'>write_hdr_bin</a>, <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Generic method call for writing headers</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/swiftest_parameters.html b/docs/type/swiftest_parameters.html
index 4e3601216..7122f21cd 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.8% of total for derived types.</p>Including implementation: 64 statements,  9.1% of total for derived types.">64 statements</a>
+    title="<p> 8.9% of total for derived types.</p>Including implementation: 65 statements,  7.3% of total for derived types.">65 statements</a>
      </li> 
      
      
@@ -181,9 +181,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-integrator">integrator</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-nplmax">nplmax</a>
-      
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ntpmax">ntpmax</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-maxid">maxid</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-t0">t0</a>
       
@@ -193,6 +191,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-dt~2">dt</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ioutput">ioutput</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-incbfile">incbfile</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-inplfile">inplfile</a>
@@ -201,6 +201,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-in_type">in_type</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-in_form">in_form</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-istep_out">istep_out</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-outfile">outfile</a>
@@ -211,6 +213,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-out_stat">out_stat</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-particle_out">particle_out</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-istep_dump">istep_dump</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-rmin">rmin</a>
@@ -261,9 +265,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-eorbit_orig">Eorbit_orig</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-mtot_orig">Mtot_orig</a>
-      
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lmag_orig">Lmag_orig</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-gmtot_orig">GMtot_orig</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ltot_orig">Ltot_orig</a>
       
@@ -271,15 +273,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lspin_orig">Lspin_orig</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ltot">Ltot</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lescape">Lescape</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lescape~2">Lescape</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-gmescape">GMescape</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-mescape~2">Mescape</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ecollisions">Ecollisions</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ecollisions~2">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-euntracked~2">Euntracked</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-euntracked">Euntracked</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lfirstenergy">lfirstenergy</a>
       
@@ -293,6 +293,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lyorp">lyorp</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-nciu">nciu</a>
+      
     </div>
   </div>
 </div>
@@ -325,7 +327,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#boundprocedure-dump~3">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#boundprocedure-read_from_file">read_from_file</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#boundprocedure-read_in~3">read_in</a>
       
     </div>
   </div>
@@ -345,6 +347,84 @@ <h2>type, public :: swiftest_parameters</h2>
     Each paramter is initialized to a default values. </p>
     <br>
     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</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~~swiftest_parameters~~InheritsGraph Pages: 1 -->
+<svg id="typeswiftest_parametersInheritsGraph" width="274pt" height="32pt"
+ viewBox="0.00 0.00 274.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_parameters~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~swiftest_parameters~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 270,-28 270,4 -4,4"/>
+<!-- type~swiftest_parameters -->
+<g id="type~~swiftest_parameters~~InheritsGraph_node1" class="node">
+<title>type~swiftest_parameters</title>
+<polygon fill="none" stroke="black" points="266,-24 157,-24 157,0 266,0 266,-24"/>
+<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_parameters</text>
+</g>
+<!-- type~netcdf_parameters -->
+<g id="type~~swiftest_parameters~~InheritsGraph_node2" class="node">
+<title>type~netcdf_parameters</title>
+<g id="a_type~~swiftest_parameters~~InheritsGraph_node2"><a xlink:href=".././type/netcdf_parameters.html" xlink:title="netcdf_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="103,-24 0,-24 0,0 103,0 103,-24"/>
+<text text-anchor="middle" x="51.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_parameters</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_parameters&#45;&gt;type~netcdf_parameters -->
+<g id="type~~swiftest_parameters~~InheritsGraph_edge1" class="edge">
+<title>type~swiftest_parameters&#45;&gt;type~netcdf_parameters</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.57,-12C142.68,-12 127.65,-12 113.44,-12"/>
+<polygon fill="#000000" stroke="#000000" points="113.26,-8.5 103.26,-12 113.26,-15.5 113.26,-8.5"/>
+<text text-anchor="middle" x="130" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">nciu</text>
+</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>
+</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>
+</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">
@@ -439,9 +519,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-integrator">integrator</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-nplmax">nplmax</a>
-      
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ntpmax">ntpmax</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-maxid">maxid</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-t0">t0</a>
       
@@ -451,6 +529,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-dt~2">dt</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ioutput">ioutput</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-incbfile">incbfile</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-inplfile">inplfile</a>
@@ -459,6 +539,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-in_type">in_type</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-in_form">in_form</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-istep_out">istep_out</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-outfile">outfile</a>
@@ -469,6 +551,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-out_stat">out_stat</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-particle_out">particle_out</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-istep_dump">istep_dump</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-rmin">rmin</a>
@@ -519,9 +603,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-eorbit_orig">Eorbit_orig</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-mtot_orig">Mtot_orig</a>
-      
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lmag_orig">Lmag_orig</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-gmtot_orig">GMtot_orig</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ltot_orig">Ltot_orig</a>
       
@@ -529,15 +611,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lspin_orig">Lspin_orig</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ltot">Ltot</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lescape">Lescape</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lescape~2">Lescape</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-gmescape">GMescape</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-mescape~2">Mescape</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ecollisions">Ecollisions</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ecollisions~2">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-euntracked~2">Euntracked</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-euntracked">Euntracked</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lfirstenergy">lfirstenergy</a>
       
@@ -551,6 +631,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lyorp">lyorp</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-nciu">nciu</a>
+      
     </div>
   </div>
 </div>
@@ -583,7 +665,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#boundprocedure-dump~3">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#boundprocedure-read_from_file">read_from_file</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#boundprocedure-read_in~3">read_in</a>
       
     </div>
   </div>
@@ -629,11 +711,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nplmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of massive bodies</p></td>
+  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
   
 </tr>
 
@@ -643,11 +725,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ntpmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ntpmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of test particles</p></td>
+  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
   
 </tr>
 
@@ -657,11 +739,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
+  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
   
 </tr>
 
@@ -671,11 +753,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
+  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
   
 </tr>
 
@@ -685,11 +767,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
+  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
   
 </tr>
 
@@ -699,11 +781,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ioutput"></span>integer(kind=I8B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
+  <td><strong>ioutput</strong></td><td> =</td><td>0_I8B</td><td><p>Output counter</p></td>
   
 </tr>
 
@@ -759,7 +841,21 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Format of input data files</p></td>
+  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Data representation type of input data files</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-in_form"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>in_form</strong></td><td> =</td><td>XV</td><td><p>Format of input data files (EL or XV)</p></td>
   
 </tr>
 
@@ -787,7 +883,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>outfile</strong></td><td> =</td><td>BIN_OUTFILE</td><td><p>Name of output binary file</p></td>
+  <td><strong>outfile</strong></td><td> =</td><td>NETCDF_OUTFILE</td><td><p>Name of output binary file</p></td>
   
 </tr>
 
@@ -801,7 +897,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td> =</td><td>REAL8_TYPE</td><td><p>Binary format of output file</p></td>
+  <td><strong>out_type</strong></td><td> =</td><td>NETCDF_DOUBLE_TYPE</td><td><p>Binary format of output file</p></td>
   
 </tr>
 
@@ -815,7 +911,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_form</strong></td><td> =</td><td>XV</td><td><p>Data to write to output file</p></td>
+  <td><strong>out_form</strong></td><td> =</td><td>XVEL</td><td><p>Data to write to output file</p></td>
   
 </tr>
 
@@ -837,6 +933,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-istep_dump"></span>integer(kind=I4B),</td>
@@ -1189,25 +1299,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtot_orig"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtot_orig"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Mtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lmag_orig"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Lmag_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial total angular momentum magnitude</p></td>
+  <td><strong>GMtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
   
 </tr>
 
@@ -1259,21 +1355,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
@@ -1287,11 +1369,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmescape"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
+  <td><strong>GMescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
   
 </tr>
 
@@ -1301,7 +1383,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ecollisions~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -1315,7 +1397,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -1407,6 +1489,20 @@ <h2>Components</h2>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nciu"></span>type(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nciu</strong></td><td></td><td></td><td><p>Object containing NetCDF parameters</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -1804,7 +1900,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_from_file"></span><h3>procedure, public :: <strong>read_from_file</strong>  => <a href='../interface/io_read_param_in.html'>io_read_param_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~3"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_param.html'>io_read_in_param</a> 
     
   </h3></div>
   
@@ -1821,11 +1917,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_param_in(self, param_file_name)
+public module subroutine io_read_in_param(self, param_file_name)
     
     
    
-   <a href='../proc/io_read_param_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_param.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/swiftest_particle_info.html b/docs/type/swiftest_particle_info.html
new file mode 100644
index 000000000..939d1f554
--- /dev/null
+++ b/docs/type/swiftest_particle_info.html
@@ -0,0 +1,1545 @@
+<!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>swiftest_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>swiftest_particle_info
+    <small>Derived Type</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="<p> 2.5% of total for derived types.</p>Including implementation: 18 statements,  2.0% of total for derived types.">18 statements</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/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+    
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+    
+  
+     <li class="active">swiftest_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>
+ 
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-name">name</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-particle_type">particle_type</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_type">origin_type</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_time">origin_time</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_xh">origin_xh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_vh">origin_vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_time">discard_time</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-status~3">status</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_xh">discard_xh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_vh">discard_vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_body_id">discard_body_id</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/swiftest_particle_info.html#boundprocedure-dump~4">dump</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#boundprocedure-read_in~4">read_in</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#boundprocedure-copy~2">copy</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#boundprocedure-set_value">set_value</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public :: swiftest_particle_info</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">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~~swiftest_particle_info~~InheritedByGraph Pages: 1 -->
+<svg id="typeswiftest_particle_infoInheritedByGraph" width="641pt" height="174pt"
+ viewBox="0.00 0.00 641.00 173.50" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_particle_info~~InheritedByGraph" class="graph" transform="scale(0.54 0.54) rotate(0) translate(4 320)">
+<title>type~~swiftest_particle_info~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-320 1193,-320 1193,4 -4,4"/>
+<!-- type~swiftest_particle_info -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node1" class="node">
+<title>type~swiftest_particle_info</title>
+<polygon fill="none" stroke="black" points="112,-169 0,-169 0,-145 112,-145 112,-169"/>
+<text text-anchor="middle" x="56" y="-154.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_particle_info</text>
+</g>
+<!-- type~swiftest_cb -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node2" class="node">
+<title>type~swiftest_cb</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node2"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-191 170,-191 170,-167 235,-167 235,-191"/>
+<text text-anchor="middle" x="202.5" y="-176.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_particle_info -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge1" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-174.17C155.82,-172.05 138.87,-169.46 122.39,-166.96"/>
+<polygon fill="#000000" stroke="#000000" points="122.64,-163.45 112.23,-165.41 121.59,-170.37 122.64,-163.45"/>
+<text text-anchor="middle" x="138" y="-171.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~swiftest_body -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node3" class="node">
+<title>type~swiftest_body</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node3"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-149 164,-149 164,-125 241,-125 241,-149"/>
+<text text-anchor="middle" x="202.5" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge2" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.96,-140.12C152.99,-141.18 141,-142.48 130,-144 127.49,-144.35 124.93,-144.72 122.35,-145.1"/>
+<polygon fill="#000000" stroke="#000000" points="121.67,-141.67 112.33,-146.68 122.75,-148.58 121.67,-141.67"/>
+<text text-anchor="middle" x="138" y="-146.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~helio_cb -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node4" class="node">
+<title>type~helio_cb</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node4"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="336.5,-274 282.5,-274 282.5,-250 336.5,-250 336.5,-274"/>
+<text text-anchor="middle" x="309.5" y="-259.6" 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_particle_info~~InheritedByGraph_edge4" class="edge">
+<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M289.31,-274.04C278.14,-280.32 265.25,-286.11 260,-283"/>
+<path fill="none" stroke="#000000" d="M259,-283C229.4,-265.47 214.74,-226.11 208.16,-201.15"/>
+<polygon fill="#000000" stroke="#000000" points="211.5,-200.04 205.75,-191.14 204.69,-201.68 211.5,-200.04"/>
+</g>
+<!-- type~swiftest_nbody_system -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node5" class="node">
+<title>type~swiftest_nbody_system</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node5"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563,-148 440,-148 440,-124 563,-124 563,-148"/>
+<text text-anchor="middle" x="501.5" y="-133.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_cb -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge3" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.83,-134.81C394.7,-135.13 331.86,-138.12 278,-150 264.63,-152.95 250.51,-157.93 238.19,-162.94"/>
+<polygon fill="#000000" stroke="#000000" points="236.6,-159.81 228.75,-166.93 239.32,-166.26 236.6,-159.81"/>
+<text text-anchor="middle" x="309.5" y="-152.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+</g>
+<!-- type~swiftest_pl -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node6" class="node">
+<title>type~swiftest_pl</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node6"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-105 278.5,-105 278.5,-81 340.5,-81 340.5,-105"/>
+<text text-anchor="middle" x="309.5" y="-90.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_particle_info~~InheritedByGraph_edge10" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.55,-123.95C441.77,-121.6 431.57,-119.19 422,-117 398.44,-111.62 372.01,-105.91 350.79,-101.41"/>
+<polygon fill="#000000" stroke="#000000" points="351.34,-97.95 340.83,-99.31 349.89,-104.8 351.34,-97.95"/>
+<text text-anchor="middle" x="390.5" y="-119.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
+</g>
+<!-- type~swiftest_tp -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node7" class="node">
+<title>type~swiftest_tp</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node7"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-193 278,-193 278,-169 341,-169 341,-193"/>
+<text text-anchor="middle" x="309.5" y="-178.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_tp -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge14" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.1,-148.02C441.45,-150.35 431.41,-152.76 422,-155 398.57,-160.57 372.34,-166.69 351.21,-171.59"/>
+<polygon fill="#000000" stroke="#000000" points="350.23,-168.23 341.28,-173.9 351.81,-175.05 350.23,-168.23"/>
+<text text-anchor="middle" x="390.5" y="-171.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+</g>
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge7" class="edge">
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M279.81,-105.02C268,-109.97 254.16,-115.77 241.53,-121.07"/>
+<polygon fill="#000000" stroke="#000000" points="240.03,-117.9 232.16,-124.99 242.73,-124.35 240.03,-117.9"/>
+</g>
+<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge6" class="edge">
+<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M279.81,-168.98C268,-164.03 254.16,-158.23 241.53,-152.93"/>
+<polygon fill="#000000" stroke="#000000" points="242.73,-149.65 232.16,-149.01 240.03,-156.1 242.73,-149.65"/>
+</g>
+<!-- type~whm_cb -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node8" class="node">
+<title>type~whm_cb</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node8"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="336.5,-316 282.5,-316 282.5,-292 336.5,-292 336.5,-316"/>
+<text text-anchor="middle" x="309.5" y="-301.6" 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_particle_info~~InheritedByGraph_edge5" class="edge">
+<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M282.48,-294.16C275.03,-290.97 267.03,-287.16 260,-283"/>
+</g>
+<!-- type~symba_cb -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node9" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node9"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="532,-274 471,-274 471,-250 532,-250 532,-274"/>
+<text text-anchor="middle" x="501.5" y="-259.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_particle_info~~InheritedByGraph_edge8" class="edge">
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M470.81,-262C437.28,-262 382.71,-262 346.7,-262"/>
+<polygon fill="#000000" stroke="#000000" points="346.62,-258.5 336.62,-262 346.62,-265.5 346.62,-258.5"/>
+</g>
+<!-- type~whm_nbody_system -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node10" class="node">
+<title>type~whm_nbody_system</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node10"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="773,-148 663,-148 663,-124 773,-124 773,-148"/>
+<text text-anchor="middle" x="718" y="-133.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_particle_info~~InheritedByGraph_edge9" class="edge">
+<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
+<path fill="none" stroke="#000000" d="M662.87,-136C635.67,-136 602.37,-136 573.18,-136"/>
+<polygon fill="#000000" stroke="#000000" points="573.04,-132.5 563.04,-136 573.04,-139.5 573.04,-132.5"/>
+</g>
+<!-- type~whm_pl -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node11" class="node">
+<title>type~whm_pl</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node11"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="845,-24 791,-24 791,0 845,0 845,-24"/>
+<text text-anchor="middle" x="818" 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_particle_info~~InheritedByGraph_edge11" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M389.5,-52C370.57,-56.46 351.15,-66.45 336.31,-75.45"/>
+<polygon fill="#000000" stroke="#000000" points="334.3,-72.57 327.7,-80.86 338.03,-78.5 334.3,-72.57"/>
+<path fill="none" stroke="#000000" d="M790.96,-10.16C729.11,-6.47 568.91,-0.89 440,-31 417.13,-36.34 414.36,-46.62 391.5,-52"/>
+</g>
+<!-- type~helio_tp -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node12" class="node">
+<title>type~helio_tp</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node12"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="528.5,-190 474.5,-190 474.5,-166 528.5,-166 528.5,-190"/>
+<text text-anchor="middle" x="501.5" y="-175.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_particle_info~~InheritedByGraph_edge15" class="edge">
+<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M474.41,-186.57C444.88,-196.09 399.78,-210.01 391.5,-209"/>
+<path fill="none" stroke="#000000" d="M389.5,-209C374.39,-207.16 358.44,-202.14 344.85,-196.86"/>
+<polygon fill="#000000" stroke="#000000" points="346.01,-193.55 335.43,-193.01 343.36,-200.03 346.01,-193.55"/>
+</g>
+<!-- type~rmvs_cb -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node13" class="node">
+<title>type~rmvs_cb</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node13"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="528.5,-316 474.5,-316 474.5,-292 528.5,-292 528.5,-316"/>
+<text text-anchor="middle" x="501.5" y="-301.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_particle_info~~InheritedByGraph_edge17" class="edge">
+<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
+<path fill="none" stroke="#000000" d="M474.48,-304C441.46,-304 384.31,-304 346.95,-304"/>
+<polygon fill="#000000" stroke="#000000" points="346.51,-300.5 336.51,-304 346.51,-307.5 346.51,-300.5"/>
+</g>
+<!-- type~whm_tp -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node14" class="node">
+<title>type~whm_tp</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node14"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="528.5,-232 474.5,-232 474.5,-208 528.5,-208 528.5,-232"/>
+<text text-anchor="middle" x="501.5" y="-217.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_particle_info~~InheritedByGraph_edge16" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M474.48,-217.68C452.37,-215.64 419.82,-212.46 391.5,-209"/>
+</g>
+<!-- type~helio_pl -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node15" class="node">
+<title>type~helio_pl</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node15"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="528.5,-106 474.5,-106 474.5,-82 528.5,-82 528.5,-106"/>
+<text text-anchor="middle" x="501.5" y="-91.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_particle_info~~InheritedByGraph_edge13" class="edge">
+<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M474.44,-85.43C463.71,-81.78 451.19,-77.36 440,-73 418.11,-64.48 414.36,-46.62 391.5,-52"/>
+</g>
+<!-- type~fraggle_fragments -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node16" class="node">
+<title>type~fraggle_fragments</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node16"><a xlink:href=".././type/fraggle_fragments.html" xlink:title="fraggle_fragments">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="551.5,-64 451.5,-64 451.5,-40 551.5,-40 551.5,-64"/>
+<text text-anchor="middle" x="501.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_fragments</text>
+</a>
+</g>
+</g>
+<!-- type~fraggle_fragments&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge12" class="edge">
+<title>type~fraggle_fragments&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M451.38,-47.24C432.45,-46.63 410.75,-47.47 391.5,-52"/>
+</g>
+<!-- type~rmvs_pl -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node17" class="node">
+<title>type~rmvs_pl</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node17"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1156.5,-67 1102.5,-67 1102.5,-43 1156.5,-43 1156.5,-67"/>
+<text text-anchor="middle" x="1129.5" y="-52.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_particle_info~~InheritedByGraph_edge20" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
+<path fill="none" stroke="#000000" d="M1102.29,-50.67C1071.59,-45.65 1019.17,-37.28 974,-31 933.35,-25.35 886.57,-19.74 855.13,-16.1"/>
+<polygon fill="#000000" stroke="#000000" points="855.42,-12.61 845.09,-14.94 854.62,-19.56 855.42,-12.61"/>
+</g>
+<!-- type~rmvs_nbody_system -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node22" class="node">
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node22"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="974,-106 863,-106 863,-82 974,-82 974,-106"/>
+<text text-anchor="middle" x="918.5" y="-91.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_particle_info~~InheritedByGraph_edge27" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1102.27,-55.23C1074.54,-55.94 1029.71,-58.48 992,-67 988.43,-67.81 974.73,-72.83 960.19,-78.33"/>
+<polygon fill="#000000" stroke="#000000" points="958.71,-75.15 950.61,-81.97 961.2,-81.69 958.71,-75.15"/>
+<text text-anchor="middle" x="1022" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+</g>
+<!-- type~symba_tp -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node18" class="node">
+<title>type~symba_tp</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node18"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="747.5,-190 688.5,-190 688.5,-166 747.5,-166 747.5,-190"/>
+<text text-anchor="middle" x="718" y="-175.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_particle_info~~InheritedByGraph_edge21" class="edge">
+<title>type~symba_tp&#45;&gt;type~helio_tp</title>
+<path fill="none" stroke="#000000" d="M688.07,-178C649.38,-178 580.79,-178 538.72,-178"/>
+<polygon fill="#000000" stroke="#000000" points="538.62,-174.5 528.62,-178 538.62,-181.5 538.62,-174.5"/>
+</g>
+<!-- type~symba_pl -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node19" class="node">
+<title>type~symba_pl</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node19"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="747,-106 689,-106 689,-82 747,-82 747,-106"/>
+<text text-anchor="middle" x="718" y="-91.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_particle_info~~InheritedByGraph_edge24" class="edge">
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M688.96,-94C650.43,-94 581.1,-94 538.7,-94"/>
+<polygon fill="#000000" stroke="#000000" points="538.53,-90.5 528.53,-94 538.53,-97.5 538.53,-90.5"/>
+</g>
+<!-- type~helio_nbody_system -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node20" class="node">
+<title>type~helio_nbody_system</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node20"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="973.5,-148 863.5,-148 863.5,-124 973.5,-124 973.5,-148"/>
+<text text-anchor="middle" x="918.5" y="-133.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_particle_info~~InheritedByGraph_edge18" class="edge">
+<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M863.46,-134C848.99,-134.01 833.37,-134.51 819,-136"/>
+</g>
+<!-- type~rmvs_tp -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node21" class="node">
+<title>type~rmvs_tp</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node21"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="745,-280 691,-280 691,-256 745,-256 745,-280"/>
+<text text-anchor="middle" x="718" y="-265.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_particle_info~~InheritedByGraph_edge22" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.7,-272.41C652.56,-278.81 581.78,-290.69 538.73,-297.92"/>
+<polygon fill="#000000" stroke="#000000" points="537.96,-294.5 528.68,-299.61 539.12,-301.4 537.96,-294.5"/>
+<text text-anchor="middle" x="613" y="-292.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_particle_info~~InheritedByGraph_edge23" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
+<path fill="none" stroke="#000000" d="M690.7,-262.11C652.48,-253.56 581.48,-237.67 538.46,-228.05"/>
+<polygon fill="#000000" stroke="#000000" points="539.2,-224.63 528.68,-225.86 537.68,-231.46 539.2,-224.63"/>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_edge19" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M817,-136C806.12,-137.12 794.52,-137.68 783.25,-137.89"/>
+<polygon fill="#000000" stroke="#000000" points="782.98,-134.39 773.02,-137.99 783.05,-141.39 782.98,-134.39"/>
+<path fill="none" stroke="#000000" d="M885.06,-106.03C877.76,-108.86 870.08,-111.95 863,-115 843.1,-123.57 840.55,-133.77 819,-136"/>
+</g>
+<!-- type~symba_merger -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node23" class="node">
+<title>type~symba_merger</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node23"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="961,-64 876,-64 876,-40 961,-40 961,-64"/>
+<text text-anchor="middle" x="918.5" y="-49.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_particle_info~~InheritedByGraph_edge25" class="edge">
+<title>type~symba_merger&#45;&gt;type~symba_pl</title>
+<path fill="none" stroke="#000000" d="M875.89,-60.8C840.86,-68.22 791.17,-78.73 757.15,-85.93"/>
+<polygon fill="#000000" stroke="#000000" points="756.19,-82.55 747.13,-88.05 757.64,-89.4 756.19,-82.55"/>
+</g>
+<!-- type~symba_nbody_system -->
+<g id="type~~swiftest_particle_info~~InheritedByGraph_node24" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~swiftest_particle_info~~InheritedByGraph_node24"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1189,-121 1070,-121 1070,-97 1189,-97 1189,-121"/>
+<text text-anchor="middle" x="1129.5" y="-106.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_particle_info~~InheritedByGraph_edge26" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M1069.73,-116.59C1042.96,-120.05 1011.21,-124.15 983.81,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="983.01,-124.27 973.54,-129.02 983.91,-131.21 983.01,-124.27"/>
+</g>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
+<g id="type~~swiftest_particle_info~~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="M1071.38,-96.97C1046.8,-91.45 1017.84,-84.46 992,-77 982.12,-74.15 971.6,-70.74 961.73,-67.37"/>
+<polygon fill="#000000" stroke="#000000" points="962.71,-64.01 952.12,-64.04 960.42,-70.62 962.71,-64.01"/>
+<text text-anchor="middle" x="1022" y="-94.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
+</g>
+</g>
+</svg>
+</div><script>var pantypeswiftest_particle_infoInheritedByGraph = svgPanZoom('#typeswiftest_particle_infoInheritedByGraph', {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="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>
+</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>
+</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>
+    
+    <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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-name">name</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-particle_type">particle_type</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_type">origin_type</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_time">origin_time</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_xh">origin_xh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-origin_vh">origin_vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_time">discard_time</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-status~3">status</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_xh">discard_xh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_vh">discard_vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#variable-discard_body_id">discard_body_id</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/swiftest_particle_info.html#boundprocedure-dump~4">dump</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#boundprocedure-read_in~4">read_in</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#boundprocedure-copy~2">copy</a>
+      
+      <a class="list-group-item" href="../type/swiftest_particle_info.html#boundprocedure-set_value">set_value</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    <section>
+    <h2>Components</h2>
+    
+<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-name"></span>character(len=NAMELEN),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_type"></span>character(len=NAMELEN),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>particle_type</strong></td><td></td><td></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_type"></span>character(len=NAMELEN),</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_time"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td></td><td></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~3"></span>character(len=NAMELEN),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>Particle status description: Active, Merged, Fragmented, etc.</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_xh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td></td><td></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_vh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td></td><td></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-discard_body_id"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>discard_body_id</strong></td><td></td><td></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <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/io_dump_particle_info.html'>io_dump_particle_info</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dumps contents of particle information to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_particle_info(self, iu)
+    
+    
+   
+   <a href='../proc/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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle info metadata object</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>iu</strong></td><td><p>Open unformatted file unit number</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~4"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_particle_info.html'>io_read_in_particle_info</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Read in a particle information object from an open file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_particle_info(self, iu)
+    
+    
+   
+   <a href='../proc/io_read_in_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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Particle metadata information object</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>iu</strong></td><td><p>Open file unit number</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy~2"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/util_copy_particle_info.html'>util_copy_particle_info</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Copies one set of information object components into another, component-by-component</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_copy_particle_info(self, source)
+    
+    
+   
+   <a href='../proc/util_copy_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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_value"></span><h3>procedure, public :: <strong>set_value</strong>  => <a href='../interface/util_set_particle_info.html'>util_set_particle_info</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets one or more values of the particle information metadata object</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_particle_info(self, name, particle_type, status, origin_type, origin_time, origin_xh, origin_vh, discard_time, discard_xh, discard_vh, discard_body_id)
+    
+    
+   
+   <a href='../proc/util_set_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/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>name</strong></td><td><p>Non-unique name</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>particle_type</strong></td><td><p>String containing a description of the particle type (e.g. Central Body, Massive Body, Test Particle)</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>status</strong></td><td><p>Particle status description: Active, Merged, Fragmented, etc.</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>origin_type</strong></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" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>origin_time</strong></td><td><p>The time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>origin_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_time</strong></td><td><p>The time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_xh</strong></td><td><p>The heliocentric distance vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>discard_vh</strong></td><td><p>The heliocentric velocity vector at the time of the particle's discard</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td></td><td>::</td>
+  <td><strong>discard_body_id</strong></td><td><p>The id of the other body involved in the discard (0 if no other body involved)</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</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/type/swiftest_pl.html b/docs/type/swiftest_pl.html
index 903e79706..3ae4add79 100644
--- a/docs/type/swiftest_pl.html
+++ b/docs/type/swiftest_pl.html
@@ -134,7 +134,7 @@ <h1>swiftest_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 6.5% of total for derived types.</p>Including implementation: 35 statements,  5.0% of total for derived types.">35 statements</a>
+    title="<p> 5.2% of total for derived types.</p>Including implementation: 38 statements,  4.3% of total for derived types.">38 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#variable-id~2">id</a>
       
@@ -285,11 +283,19 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-kick~6">kick</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_particle_info~18">write_particle_info</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-step~9">step</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-kick~7">kick</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-accel~8">accel</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-step~10">step</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-accel~9">accel</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-drift">drift</a>
       
@@ -297,11 +303,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -311,9 +317,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame~19">write_frame</a>
+      
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -329,6 +337,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-fill~3">fill</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-resize~3">resize</a>
@@ -374,46 +388,62 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_pl~~InheritsGraph Pages: 1 -->
-<svg id="typeswiftest_plInheritsGraph" width="296pt" height="32pt"
- viewBox="0.00 0.00 296.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typeswiftest_plInheritsGraph" width="348pt" height="74pt"
+ viewBox="0.00 0.00 348.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~swiftest_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 292,-28 292,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 344,-70 344,4 -4,4"/>
 <!-- type~swiftest_pl -->
 <g id="type~~swiftest_pl~~InheritsGraph_node1" class="node">
 <title>type~swiftest_pl</title>
-<polygon fill="none" stroke="black" points="288,-24 226,-24 226,0 288,0 288,-24"/>
-<text text-anchor="middle" x="257" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_pl</text>
+<polygon fill="none" stroke="black" points="340,-45 278,-45 278,-21 340,-21 340,-45"/>
+<text text-anchor="middle" x="309" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_pl</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~swiftest_pl~~InheritsGraph_node2" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~swiftest_pl~~InheritsGraph_node2"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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~~swiftest_pl~~InheritsGraph_edge1" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M225.79,-12C217.81,-12 209,-12 200.34,-12"/>
-<polygon fill="#000000" stroke="#000000" points="200.3,-8.5 190.3,-12 200.3,-15.5 200.3,-8.5"/>
+<path fill="none" stroke="#000000" d="M277.77,-33C269.45,-33 260.22,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.09,-29.5 241.09,-33 251.09,-36.5 251.09,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~swiftest_pl~~InheritsGraph_node3" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~swiftest_pl~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~swiftest_pl~~InheritsGraph_edge2" class="edge">
+<g id="type~~swiftest_pl~~InheritsGraph_edge3" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~swiftest_pl~~InheritsGraph_node4" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~swiftest_pl~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_pl~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -467,181 +497,196 @@ <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="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)">
+<svg id="typeswiftest_plInheritedByGraph" width="641pt" height="119pt"
+ viewBox="0.00 0.00 641.00 119.48" 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 155)">
 <title>type~~swiftest_pl~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-131 849,-131 849,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-155 849,-155 849,4 -4,4"/>
 <!-- type~swiftest_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node1" class="node">
 <title>type~swiftest_pl</title>
-<polygon fill="none" stroke="black" points="62,-85 0,-85 0,-61 62,-61 62,-85"/>
-<text text-anchor="middle" x="31" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_pl</text>
+<polygon fill="none" stroke="black" points="62,-111 0,-111 0,-87 62,-87 62,-111"/>
+<text text-anchor="middle" x="31" y="-96.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_pl</text>
 </g>
-<!-- type~helio_pl -->
+<!-- type~whm_pl -->
 <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="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>
+<title>type~whm_pl</title>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node2"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="501,-151 447,-151 447,-127 501,-127 501,-151"/>
+<text text-anchor="middle" x="474" y="-136.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
 </a>
 </g>
 </g>
-<!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
+<!-- type~whm_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="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"/>
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M446.93,-137.67C393.1,-134.87 265.75,-127.96 159,-120 123.85,-117.38 114.64,-119.52 80,-113 77.37,-112.51 74.68,-111.93 71.98,-111.29"/>
+<polygon fill="#000000" stroke="#000000" points="72.81,-107.89 62.25,-108.79 71.07,-114.67 72.81,-107.89"/>
 </g>
-<!-- type~whm_pl -->
+<!-- type~fraggle_fragments -->
 <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="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>
+<title>type~fraggle_fragments</title>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node3"><a xlink:href=".././type/fraggle_fragments.html" xlink:title="fraggle_fragments">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="270.5,-24 170.5,-24 170.5,0 270.5,0 270.5,-24"/>
+<text text-anchor="middle" x="220.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fraggle_fragments</text>
 </a>
 </g>
 </g>
-<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<!-- type~fraggle_fragments&#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="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"/>
+<title>type~fraggle_fragments&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M183.17,-24.07C175.16,-26.88 166.76,-29.94 159,-33 137.52,-41.46 133.17,-46.04 111.5,-54"/>
+<path fill="none" stroke="#000000" d="M109.5,-54C90.99,-60.79 71.82,-71.89 57.18,-81.36"/>
+<polygon fill="#000000" stroke="#000000" points="55.08,-78.55 48.69,-86.99 58.96,-84.38 55.08,-78.55"/>
 </g>
-<!-- type~swiftest_nbody_system -->
+<!-- type~helio_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node4" class="node">
+<title>type~helio_pl</title>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node4"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="247.5,-66 193.5,-66 193.5,-42 247.5,-42 247.5,-66"/>
+<text text-anchor="middle" x="220.5" y="-51.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_edge4" class="edge">
+<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M193.31,-49.08C170.88,-46 138.08,-44.24 111.5,-54"/>
+</g>
+<!-- type~swiftest_nbody_system -->
+<g id="type~~swiftest_pl~~InheritedByGraph_node5" 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="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>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node5"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="282,-111 159,-111 159,-87 282,-87 282,-111"/>
+<text text-anchor="middle" x="220.5" y="-96.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="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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.88,-99C130.61,-99 97.72,-99 72.52,-99"/>
+<polygon fill="#000000" stroke="#000000" points="72.22,-95.5 62.22,-99 72.22,-102.5 72.22,-95.5"/>
+<text text-anchor="middle" x="110.5" y="-101.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
+</g>
+<!-- type~symba_pl -->
+<g id="type~~swiftest_pl~~InheritedByGraph_node6" 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="403,-42 345,-42 345,-18 403,-18 403,-42"/>
+<text text-anchor="middle" x="374" y="-27.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_edge6" class="edge">
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M344.86,-34.46C320.31,-38.35 284.53,-44.01 257.83,-48.25"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-44.83 247.72,-49.85 258.14,-51.74 257.05,-44.83"/>
 </g>
 <!-- type~rmvs_pl -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node5" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node7" 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>
+<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="812.5,-120 758.5,-120 758.5,-96 812.5,-96 812.5,-120"/>
+<text text-anchor="middle" x="785.5" y="-105.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"/>
+<path fill="none" stroke="#000000" d="M758.33,-111.68C743.57,-113.7 724.77,-116.15 708,-118 638.53,-125.67 557.16,-132.52 511.29,-136.18"/>
+<polygon fill="#000000" stroke="#000000" points="510.93,-132.7 501.24,-136.98 511.49,-139.68 510.93,-132.7"/>
 </g>
 <!-- type~rmvs_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node10" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node11" 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>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node11"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="630,-111 519,-111 519,-87 630,-87 630,-111"/>
+<text text-anchor="middle" x="574.5" y="-96.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">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge13" 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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M758.45,-106.88C729.06,-105.61 680.15,-103.51 640.29,-101.79"/>
+<polygon fill="#000000" stroke="#000000" points="640.25,-98.29 630.11,-101.35 639.95,-105.28 640.25,-98.29"/>
+<text text-anchor="middle" x="678" y="-106.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">
+<g id="type~~swiftest_pl~~InheritedByGraph_node8" class="node">
 <title>type~whm_nbody_system</title>
-<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>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node8"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="429,-111 319,-111 319,-87 429,-87 429,-111"/>
+<text text-anchor="middle" x="374" y="-96.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">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge7" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<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_node7" class="node">
-<title>type~symba_pl</title>
-<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="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"/>
+<path fill="none" stroke="#000000" d="M318.73,-99C310.1,-99 301.05,-99 292.11,-99"/>
+<polygon fill="#000000" stroke="#000000" points="292.07,-95.5 282.07,-99 292.07,-102.5 292.07,-95.5"/>
 </g>
 <!-- type~helio_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node8" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node9" 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="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>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node9"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="629.5,-69 519.5,-69 519.5,-45 629.5,-45 629.5,-69"/>
+<text text-anchor="middle" x="574.5" y="-54.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">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge9" class="edge">
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M519.46,-71C504.99,-71.01 489.37,-71.51 475,-73"/>
+<path fill="none" stroke="#000000" d="M473,-99C462.12,-100.12 450.52,-100.68 439.25,-100.89"/>
+<polygon fill="#000000" stroke="#000000" points="438.98,-97.39 429.02,-100.99 439.05,-104.39 438.98,-97.39"/>
+<path fill="none" stroke="#000000" d="M541.06,-69.03C533.76,-71.86 526.08,-74.95 519,-78 499.1,-86.57 496.55,-96.77 475,-99"/>
 </g>
 <!-- type~symba_merger -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node9" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node10" class="node">
 <title>type~symba_merger</title>
-<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>
+<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="617,-27 532,-27 532,-3 617,-3 617,-27"/>
+<text text-anchor="middle" x="574.5" y="-12.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">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge8" class="edge">
 <title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M531.89,-18.14C496.86,-20.79 447.17,-24.55 413.15,-27.12"/>
+<polygon fill="#000000" stroke="#000000" points="412.84,-23.63 403.13,-27.87 413.37,-30.61 412.84,-23.63"/>
 </g>
 <!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_edge8" class="edge">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge10" 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"/>
+<path fill="none" stroke="#000000" d="M518.95,-97C504.62,-97.02 489.2,-97.53 475,-99"/>
 </g>
 <!-- type~symba_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node11" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node12" 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="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>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node12"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="845,-66 726,-66 726,-42 845,-42 845,-66"/>
+<text text-anchor="middle" x="785.5" y="-51.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">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge11" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M725.73,-54.84C698.96,-55.23 667.21,-55.68 639.81,-56.08"/>
+<polygon fill="#000000" stroke="#000000" points="639.49,-52.58 629.54,-56.22 639.59,-59.58 639.49,-52.58"/>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~swiftest_pl~~InheritedByGraph_edge11" class="edge">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge12" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.73,-43.03C694.84,-37.27 657.31,-30.27 627.49,-24.7"/>
+<polygon fill="#000000" stroke="#000000" points="627.76,-21.19 617.29,-22.8 626.47,-28.07 627.76,-21.19"/>
+<text text-anchor="middle" x="678" y="-42.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -697,13 +742,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#variable-id~2">id</a>
       
@@ -803,11 +846,19 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-kick~6">kick</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_particle_info~18">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-kick~7">kick</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-step~9">step</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-step~10">step</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-accel~8">accel</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-accel~9">accel</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-drift">drift</a>
       
@@ -815,11 +866,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -829,9 +880,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-write_frame~19">write_frame</a>
+      
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -847,6 +900,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-fill~3">fill</a>
       
       <a class="list-group-item" href="../type/swiftest_pl.html#boundprocedure-resize~3">resize</a>
@@ -891,20 +950,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-lfirst"></span>logical,</td>
@@ -935,11 +980,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1023,7 +1068,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -1037,7 +1082,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1454,10 +1499,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1471,11 +1523,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1540,23 +1592,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~6"></span><h3>procedure(<a href='../interface/abstract_kick_body.html'>abstract_kick_body</a>), public, deferred :: <strong>kick</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -1578,12 +1644,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1593,12 +1659,12 @@ <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_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system objec</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1608,27 +1674,90 @@ <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><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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</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_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_frame_base(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_frame_base.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>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1638,12 +1767,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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1653,12 +1782,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</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>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1669,7 +1798,7 @@ <h4>Arguments</h4>
     
     
 
-         
+        
       
       </li>
     
@@ -1679,23 +1808,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~9"></span><h3>procedure(<a href='../interface/abstract_step_body.html'>abstract_step_body</a>), public, deferred :: <strong>step</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_step_body(self, system, param, t, dt)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -1717,12 +1860,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1732,26 +1875,140 @@ <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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</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>
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~18"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~7"></span><h3>procedure(<a href='../interface/abstract_kick_body.html'>abstract_kick_body</a>), public, deferred :: <strong>kick</strong>  
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
+    
+    
+   
+<small>Prototype</small></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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nbody system objec</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>
@@ -1767,7 +2024,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Simulation time</p></td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -1782,7 +2039,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
   
 </tr>
 
@@ -1803,7 +2075,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~8"></span><h3>procedure(<a href='../interface/abstract_accel.html'>abstract_accel</a>), public, deferred :: <strong>accel</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~10"></span><h3>procedure(<a href='../interface/abstract_step_body.html'>abstract_step_body</a>), public, deferred :: <strong>step</strong>  
     
   </h3></div>
   
@@ -1815,7 +2087,7 @@ <h4>Arguments</h4>
             
     
     <h3>
-subroutine abstract_accel(self, system, param, t, lbeg)
+subroutine abstract_step_body(self, system, param, t, dt)
     
     
    
@@ -1846,7 +2118,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -1861,7 +2133,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>system</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -1872,7 +2144,7 @@ <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>
@@ -1891,7 +2163,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  <td><strong>t</strong></td><td><p>Simulation time</p></td>
   
 </tr>
 
@@ -1901,12 +2173,538 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~9"></span><h3>procedure(<a href='../interface/abstract_accel.html'>abstract_accel</a>), public, deferred :: <strong>accel</strong>  
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+subroutine abstract_accel(self, system, param, t, lbeg)
+    
+    
+   
+<small>Prototype</small></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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine drift_body(self, system, param, dt)
+    
+    
+   
+   <a href='../proc/drift_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_vh2pv_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_vh2pv_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_pv2vh_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_pv2vh_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Read in body initial conditions from a file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_body(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
 
@@ -1917,7 +2715,7 @@ <h4>Arguments</h4>
     
     
 
-         
+        
       
       </li>
     
@@ -1927,7 +2725,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -1935,7 +2733,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -1951,11 +2749,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine drift_body(self, system, param, dt)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1984,7 +2782,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -1994,12 +2792,12 @@ <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>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -2010,26 +2808,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></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>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -2040,6 +2823,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2050,7 +2842,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2058,7 +2850,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2074,11 +2866,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2103,11 +2895,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -2122,7 +2929,7 @@ <h4>Arguments</h4>
   <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>
 
@@ -2143,7 +2950,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
     
   </h3></div>
   
@@ -2151,7 +2958,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>Convert orbital elements to position and velocity vectors</p>
   </div>
   
   <ul class="list-group">
@@ -2167,11 +2974,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine orbel_el2xv_vec(self, cb)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2200,7 +3007,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2210,12 +3017,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2236,7 +3043,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
     
   </h3></div>
   
@@ -2244,7 +3051,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Convert position and velocity vectors to orbital  elements </p>
   </div>
   
   <ul class="list-group">
@@ -2260,11 +3067,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine orbel_xv2el_vec(self, cb)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2303,12 +3110,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2329,7 +3136,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
     
   </h3></div>
   
@@ -2337,7 +3144,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Add user-supplied heliocentric accelerations to planets</p>
   </div>
   
   <ul class="list-group">
@@ -2353,11 +3160,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2386,7 +3193,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
   
 </tr>
 
@@ -2396,12 +3203,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
   
 </tr>
 
@@ -2412,7 +3219,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -2426,12 +3233,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></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>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -2441,12 +3248,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -2467,7 +3274,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
     
   </h3></div>
   
@@ -2475,7 +3282,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
   </div>
   
   <ul class="list-group">
@@ -2491,11 +3298,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public module subroutine util_set_ir3h(self)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2520,41 +3327,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2575,7 +3352,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~19"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
     
   </h3></div>
   
@@ -2583,82 +3360,54 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Add the generic write frame for Fortran binary files</p>
   </div>
   
   <ul class="list-group">
     
       <li class="list-group-item">
       
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
+         
+            
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
     
     
    
-   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest 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>
+      <em>None</em>
+    
+    
 
+         
+      
+      </li>
+    
+      <li class="list-group-item">
       
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
     
     
 
-        
+         
       
       </li>
     
@@ -2668,7 +3417,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
     
   </h3></div>
   
@@ -2676,7 +3425,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>Placeholder method for discarding massive bodies </p>
   </div>
   
   <ul class="list-group">
@@ -2692,11 +3441,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module subroutine discard_pl(self, system, param)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2720,12 +3469,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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 body 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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2735,12 +3499,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameter</p></td>
   
 </tr>
 
@@ -2761,7 +3525,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~2"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/util_index_eucl_plpl.html'>util_index_eucl_plpl</a> 
     
   </h3></div>
   
@@ -2769,7 +3533,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
   </div>
   
   <ul class="list-group">
@@ -2785,11 +3549,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine util_index_eucl_plpl(self, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_index_eucl_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2813,27 +3577,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2848,37 +3597,7 @@ <h4>Arguments</h4>
   <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>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2899,7 +3618,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
     
   </h3></div>
   
@@ -2907,7 +3626,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2923,11 +3642,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine kick_getacch_int_pl(self)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2951,12 +3670,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</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 body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2977,7 +3696,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
     
   </h3></div>
   
@@ -2985,7 +3704,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Placeholder method for discarding massive bodies </p>
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
   </div>
   
   <ul class="list-group">
@@ -3001,11 +3720,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_pl(self, system, param)
+public module subroutine obl_acc_pl(self, system)
     
     
    
-   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3053,21 +3772,6 @@ <h4>Arguments</h4>
   
 </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 parameter</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -3085,7 +3789,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-eucl_index"></span><h3>procedure, public :: <strong>eucl_index</strong>  => <a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~3"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_pl.html'>setup_pl</a> 
     
   </h3></div>
   
@@ -3093,7 +3797,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+    <p>A base constructor that sets the number of bodies and allocates and initializes all arrays  </p>
   </div>
   
   <ul class="list-group">
@@ -3109,11 +3813,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine setup_pl(self, n, param)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3146,6 +3850,36 @@ <h4>Arguments</h4>
   
 </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><p>Number of particles to allocate space for</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>
 
@@ -3163,7 +3897,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
     
   </h3></div>
   
@@ -3171,7 +3905,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
+    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
   </div>
   
   <ul class="list-group">
@@ -3187,11 +3921,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine tides_kick_getacch_pl(self, system)
     
     
    
-   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3220,7 +3954,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></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_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -3241,7 +3990,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~3"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_pl.html'>util_append_pl</a> 
     
   </h3></div>
   
@@ -3249,7 +3998,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Appends elements from one structure to another</p>
   </div>
   
   <ul class="list-group">
@@ -3265,11 +4014,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_pl(self, system)
+public module subroutine util_append_pl(self, source, lsource_mask)
     
     
    
-   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3308,12 +4057,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
   
 </tr>
 
@@ -3334,7 +4098,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~3"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_pl.html'>setup_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
     
   </h3></div>
   
@@ -3342,7 +4106,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>A base constructor that sets the number of bodies and allocates and initializes all arrays  </p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -3358,11 +4122,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine setup_pl(self, n, param)
+public module subroutine util_coord_h2b_pl(self, cb)
     
     
    
-   <a href='../proc/setup_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3401,27 +4165,12 @@ <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>n</strong></td><td><p>Number of particles to allocate space for</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><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>param</strong></td><td><p>Current run configuration parameters</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3442,7 +4191,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
     
   </h3></div>
   
@@ -3450,7 +4199,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -3466,11 +4215,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine tides_kick_getacch_pl(self, system)
+public module subroutine util_coord_b2h_pl(self, cb)
     
     
    
-   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3509,12 +4258,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3535,7 +4284,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~3"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_pl.html'>util_append_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
     
   </h3></div>
   
@@ -3543,7 +4292,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Appends elements from one structure to another</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3559,11 +4308,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_append_pl(self, source, lsource_mask)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/util_append_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3602,27 +4351,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
+  <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>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</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>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3643,7 +4377,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
     
   </h3></div>
   
@@ -3651,7 +4385,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3667,11 +4401,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_pl(self, cb)
+public module subroutine util_coord_vb2vh_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3736,7 +4470,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
     
   </h3></div>
   
@@ -3744,7 +4478,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -3760,11 +4494,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_pl(self, cb)
+public module subroutine util_coord_xh2xb_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/swiftest_tp.html b/docs/type/swiftest_tp.html
index d8f347ffb..f9385a037 100644
--- a/docs/type/swiftest_tp.html
+++ b/docs/type/swiftest_tp.html
@@ -134,7 +134,7 @@ <h1>swiftest_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 3.7% of total for derived types.</p>Including implementation: 20 statements,  2.9% of total for derived types.">20 statements</a>
+    title="<p> 3.4% of total for derived types.</p>Including implementation: 25 statements,  2.8% of total for derived types.">25 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-id~2">id</a>
       
@@ -233,6 +231,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/swiftest_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#variable-npltp">npltp</a>
+      
     </div>
   </div>
 </div>
@@ -261,11 +263,19 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-kick~6">kick</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-step~9">step</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-accel~8">accel</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_particle_info~19">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-kick~7">kick</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-step~10">step</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-accel~9">accel</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-drift">drift</a>
       
@@ -273,11 +283,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -287,6 +297,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame~20">write_frame</a>
+      
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -301,6 +313,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-fill~4">fill</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-get_peri">get_peri</a>
@@ -344,46 +362,62 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_tp~~InheritsGraph Pages: 1 -->
-<svg id="typeswiftest_tpInheritsGraph" width="297pt" height="32pt"
- viewBox="0.00 0.00 297.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typeswiftest_tpInheritsGraph" width="349pt" height="74pt"
+ viewBox="0.00 0.00 349.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~swiftest_tp~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 293,-28 293,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 345,-70 345,4 -4,4"/>
 <!-- type~swiftest_tp -->
 <g id="type~~swiftest_tp~~InheritsGraph_node1" class="node">
 <title>type~swiftest_tp</title>
-<polygon fill="none" stroke="black" 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">swiftest_tp</text>
+<polygon fill="none" stroke="black" points="341,-45 278,-45 278,-21 341,-21 341,-45"/>
+<text text-anchor="middle" x="309.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_tp</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~swiftest_tp~~InheritsGraph_node2" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~swiftest_tp~~InheritsGraph_node2"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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_tp~~InheritsGraph_edge1" 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="M277.85,-33C269.49,-33 260.24,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.08,-29.5 241.08,-33 251.08,-36.5 251.08,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~swiftest_tp~~InheritsGraph_node3" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~swiftest_tp~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~swiftest_tp~~InheritsGraph_edge2" class="edge">
+<g id="type~~swiftest_tp~~InheritsGraph_edge3" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~swiftest_tp~~InheritsGraph_node4" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~swiftest_tp~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~swiftest_tp~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -448,32 +482,32 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="none" stroke="black" points="63,-108 0,-108 0,-84 63,-84 63,-108"/>
 <text text-anchor="middle" x="31.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_tp</text>
 </g>
-<!-- type~whm_tp -->
+<!-- type~helio_tp -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node2" class="node">
-<title>type~whm_tp</title>
-<g id="a_type~~swiftest_tp~~InheritedByGraph_node2"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<title>type~helio_tp</title>
+<g id="a_type~~swiftest_tp~~InheritedByGraph_node2"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="250.5,-150 196.5,-150 196.5,-126 250.5,-126 250.5,-150"/>
-<text text-anchor="middle" x="223.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
+<text text-anchor="middle" x="223.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
 </a>
 </g>
 </g>
-<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
 <g id="type~~swiftest_tp~~InheritedByGraph_edge2" class="edge">
-<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
 <path fill="none" stroke="#000000" d="M196.22,-131.96C174.24,-127.15 141.98,-120.63 113.5,-117"/>
 </g>
-<!-- type~helio_tp -->
+<!-- type~whm_tp -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node3" class="node">
-<title>type~helio_tp</title>
-<g id="a_type~~swiftest_tp~~InheritedByGraph_node3"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<title>type~whm_tp</title>
+<g id="a_type~~swiftest_tp~~InheritedByGraph_node3"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="250.5,-108 196.5,-108 196.5,-84 250.5,-84 250.5,-108"/>
-<text text-anchor="middle" x="223.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
+<text text-anchor="middle" x="223.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
 </a>
 </g>
 </g>
-<!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
 <g id="type~~swiftest_tp~~InheritedByGraph_edge3" class="edge">
-<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
 <path fill="none" stroke="#000000" d="M111.5,-117C98.85,-115.39 85.35,-112.32 73.15,-109.02"/>
 <polygon fill="#000000" stroke="#000000" points="73.84,-105.57 63.26,-106.22 71.93,-112.31 73.84,-105.57"/>
 <path fill="none" stroke="#000000" d="M196.22,-105.84C174.24,-112.92 141.98,-120.63 113.5,-117"/>
@@ -494,50 +528,50 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="72.01,-83.68 63,-89.26 73.52,-90.52 72.01,-83.68"/>
 <text text-anchor="middle" x="112.5" y="-86.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~whm_nbody_system -->
+<!-- type~symba_tp -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node5" class="node">
-<title>type~whm_nbody_system</title>
-<g id="a_type~~swiftest_tp~~InheritedByGraph_node5"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="432,-66 322,-66 322,-42 432,-42 432,-66"/>
-<text text-anchor="middle" x="377" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<title>type~symba_tp</title>
+<g id="a_type~~swiftest_tp~~InheritedByGraph_node5"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="406.5,-150 347.5,-150 347.5,-126 406.5,-126 406.5,-150"/>
+<text text-anchor="middle" x="377" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
 </a>
 </g>
 </g>
-<!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
-<g id="type~~swiftest_tp~~InheritedByGraph_edge6" class="edge">
-<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M321.73,-54C313.1,-54 304.05,-54 295.11,-54"/>
-<polygon fill="#000000" stroke="#000000" points="295.07,-50.5 285.07,-54 295.07,-57.5 295.07,-50.5"/>
+<!-- type~symba_tp&#45;&gt;type~helio_tp -->
+<g id="type~~swiftest_tp~~InheritedByGraph_edge4" class="edge">
+<title>type~symba_tp&#45;&gt;type~helio_tp</title>
+<path fill="none" stroke="#000000" d="M347.15,-138C322.59,-138 287.19,-138 260.73,-138"/>
+<polygon fill="#000000" stroke="#000000" points="260.71,-134.5 250.71,-138 260.71,-141.5 260.71,-134.5"/>
 </g>
 <!-- type~rmvs_tp -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node6" class="node">
 <title>type~rmvs_tp</title>
 <g id="a_type~~swiftest_tp~~InheritedByGraph_node6"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="404,-150 350,-150 350,-126 404,-126 404,-150"/>
-<text text-anchor="middle" x="377" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="404,-108 350,-108 350,-84 404,-84 404,-108"/>
+<text text-anchor="middle" x="377" 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~whm_tp -->
-<g id="type~~swiftest_tp~~InheritedByGraph_edge4" class="edge">
+<g id="type~~swiftest_tp~~InheritedByGraph_edge5" class="edge">
 <title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
-<path fill="none" stroke="#000000" d="M349.96,-138C325.35,-138 288.22,-138 260.73,-138"/>
-<polygon fill="#000000" stroke="#000000" points="260.71,-134.5 250.71,-138 260.71,-141.5 260.71,-134.5"/>
+<path fill="none" stroke="#000000" d="M349.96,-96C325.35,-96 288.22,-96 260.73,-96"/>
+<polygon fill="#000000" stroke="#000000" points="260.71,-92.5 250.71,-96 260.71,-99.5 260.71,-92.5"/>
 </g>
-<!-- type~symba_tp -->
+<!-- type~whm_nbody_system -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node7" class="node">
-<title>type~symba_tp</title>
-<g id="a_type~~swiftest_tp~~InheritedByGraph_node7"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="406.5,-108 347.5,-108 347.5,-84 406.5,-84 406.5,-108"/>
-<text text-anchor="middle" x="377" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
+<title>type~whm_nbody_system</title>
+<g id="a_type~~swiftest_tp~~InheritedByGraph_node7"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="432,-66 322,-66 322,-42 432,-42 432,-66"/>
+<text text-anchor="middle" x="377" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~symba_tp&#45;&gt;type~helio_tp -->
-<g id="type~~swiftest_tp~~InheritedByGraph_edge5" class="edge">
-<title>type~symba_tp&#45;&gt;type~helio_tp</title>
-<path fill="none" stroke="#000000" d="M347.15,-96C322.59,-96 287.19,-96 260.73,-96"/>
-<polygon fill="#000000" stroke="#000000" points="260.71,-92.5 250.71,-96 260.71,-99.5 260.71,-92.5"/>
+<!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
+<g id="type~~swiftest_tp~~InheritedByGraph_edge6" class="edge">
+<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
+<path fill="none" stroke="#000000" d="M321.73,-54C313.1,-54 304.05,-54 295.11,-54"/>
+<polygon fill="#000000" stroke="#000000" points="295.07,-50.5 285.07,-54 295.07,-57.5 295.07,-50.5"/>
 </g>
 <!-- type~helio_nbody_system -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node8" class="node">
@@ -569,10 +603,25 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" d="M450,-54C447.51,-54.35 444.96,-54.64 442.39,-54.88"/>
 <polygon fill="#000000" stroke="#000000" points="442.09,-51.4 432.36,-55.6 442.59,-58.38 442.09,-51.4"/>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~symba_nbody_system -->
 <g id="type~~swiftest_tp~~InheritedByGraph_node10" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~swiftest_tp~~InheritedByGraph_node10"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="795,-66 676,-66 676,-42 795,-42 795,-66"/>
+<text text-anchor="middle" x="735.5" y="-51.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_tp~~InheritedByGraph_edge9" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M675.73,-54C648.96,-54 617.21,-54 589.81,-54"/>
+<polygon fill="#000000" stroke="#000000" points="589.54,-50.5 579.54,-54 589.54,-57.5 589.54,-50.5"/>
+</g>
+<!-- type~rmvs_pl -->
+<g id="type~~swiftest_tp~~InheritedByGraph_node11" class="node">
 <title>type~rmvs_pl</title>
-<g id="a_type~~swiftest_tp~~InheritedByGraph_node10"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<g id="a_type~~swiftest_tp~~InheritedByGraph_node11"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="762.5,-24 708.5,-24 708.5,0 762.5,0 762.5,-24"/>
 <text text-anchor="middle" x="735.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
@@ -585,21 +634,6 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="590.11,-8.5 580.11,-12 590.11,-15.5 590.11,-8.5"/>
 <text text-anchor="middle" x="628" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~swiftest_tp~~InheritedByGraph_node11" class="node">
-<title>type~symba_nbody_system</title>
-<g id="a_type~~swiftest_tp~~InheritedByGraph_node11"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="795,-66 676,-66 676,-42 795,-42 795,-66"/>
-<text text-anchor="middle" x="735.5" y="-51.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_tp~~InheritedByGraph_edge9" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M675.73,-54C648.96,-54 617.21,-54 589.81,-54"/>
-<polygon fill="#000000" stroke="#000000" points="589.54,-50.5 579.54,-54 589.54,-57.5 589.54,-50.5"/>
-</g>
 </g>
 </svg>
 </div><script>var pantypeswiftest_tpInheritedByGraph = svgPanZoom('#typeswiftest_tpInheritedByGraph', {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">
@@ -654,13 +688,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-id~2">id</a>
       
@@ -708,6 +740,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/swiftest_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#variable-npltp">npltp</a>
+      
     </div>
   </div>
 </div>
@@ -736,11 +772,19 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-kick~6">kick</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_particle_info~19">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-kick~7">kick</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-step~9">step</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-step~10">step</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-accel~8">accel</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-accel~9">accel</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-drift">drift</a>
       
@@ -748,11 +792,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -762,6 +806,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-write_frame~20">write_frame</a>
+      
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -776,6 +822,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-fill~4">fill</a>
       
       <a class="list-group-item" href="../type/swiftest_tp.html#boundprocedure-get_peri">get_peri</a>
@@ -818,20 +870,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-lfirst"></span>logical,</td>
@@ -862,11 +900,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -950,7 +988,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -964,7 +1002,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1190,7 +1228,35 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -1213,10 +1279,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1230,11 +1303,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1299,23 +1372,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~6"></span><h3>procedure(<a href='../interface/abstract_kick_body.html'>abstract_kick_body</a>), public, deferred :: <strong>kick</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -1337,27 +1424,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system objec</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1368,7 +1440,7 @@ <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>
@@ -1382,42 +1454,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current 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>dt</strong></td><td><p>Stepsize</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</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>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1428,7 +1470,7 @@ <h4>Arguments</h4>
     
     
 
-         
+        
       
       </li>
     
@@ -1438,23 +1480,37 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~9"></span><h3>procedure(<a href='../interface/abstract_step_body.html'>abstract_step_body</a>), public, deferred :: <strong>step</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-         
-            
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
     
     <h3>
-subroutine abstract_step_body(self, system, param, t, dt)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-<small>Prototype</small></h3>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
     
     
     <h4>Arguments</h4>
@@ -1476,12 +1532,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1491,12 +1547,12 @@ <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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1507,9 +1563,231 @@ <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>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~19"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~7"></span><h3>procedure(<a href='../interface/abstract_kick_body.html'>abstract_kick_body</a>), public, deferred :: <strong>kick</strong>  
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
+    
+    
+   
+<small>Prototype</small></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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest generic body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nbody system objec</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>
   
@@ -1526,7 +1804,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Simulation time</p></td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -1541,7 +1819,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Current stepsize</p></td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Logical flag indicating whether this is the beginning of the half step or not. </p></td>
   
 </tr>
 
@@ -1562,7 +1855,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~8"></span><h3>procedure(<a href='../interface/abstract_accel.html'>abstract_accel</a>), public, deferred :: <strong>accel</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~10"></span><h3>procedure(<a href='../interface/abstract_step_body.html'>abstract_step_body</a>), public, deferred :: <strong>step</strong>  
     
   </h3></div>
   
@@ -1574,7 +1867,7 @@ <h4>Arguments</h4>
             
     
     <h3>
-subroutine abstract_accel(self, system, param, t, lbeg)
+subroutine abstract_step_body(self, system, param, t, dt)
     
     
    
@@ -1605,39 +1898,565 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
-  
-  
-  
-  
-<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>system</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 </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>t</strong></td><td><p>Simulation 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>dt</strong></td><td><p>Current stepsize</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~9"></span><h3>procedure(<a href='../interface/abstract_accel.html'>abstract_accel</a>), public, deferred :: <strong>accel</strong>  
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+subroutine abstract_accel(self, system, param, t, lbeg)
+    
+    
+   
+<small>Prototype</small></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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine drift_body(self, system, param, dt)
+    
+    
+   
+   <a href='../proc/drift_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_vh2pv_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_vh2pv_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_pv2vh_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_pv2vh_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle 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>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Read in body initial conditions from a file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_body(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_body.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>
+
 
-  
-  
-  
-  
-<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>
 
   
   
@@ -1645,12 +2464,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current simulation time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -1660,12 +2479,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
+  <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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -1676,7 +2495,7 @@ <h4>Arguments</h4>
     
     
 
-         
+        
       
       </li>
     
@@ -1686,7 +2505,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -1694,7 +2513,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -1710,11 +2529,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine drift_body(self, system, param, dt)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1743,7 +2562,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -1753,12 +2572,12 @@ <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>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -1769,26 +2588,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></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>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1799,6 +2603,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1809,7 +2622,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -1817,7 +2630,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -1833,11 +2646,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1862,11 +2675,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -1881,7 +2709,7 @@ <h4>Arguments</h4>
   <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>
 
@@ -1902,7 +2730,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
     
   </h3></div>
   
@@ -1910,7 +2738,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>Convert orbital elements to position and velocity vectors</p>
   </div>
   
   <ul class="list-group">
@@ -1926,11 +2754,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine orbel_el2xv_vec(self, cb)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1959,7 +2787,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -1969,12 +2797,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1995,7 +2823,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
     
   </h3></div>
   
@@ -2003,7 +2831,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Convert position and velocity vectors to orbital  elements </p>
   </div>
   
   <ul class="list-group">
@@ -2019,11 +2847,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine orbel_xv2el_vec(self, cb)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2062,12 +2890,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/swiftest_cb.html'>swiftest_cb</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>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2088,7 +2916,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
     
   </h3></div>
   
@@ -2096,7 +2924,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Add user-supplied heliocentric accelerations to planets</p>
   </div>
   
   <ul class="list-group">
@@ -2112,11 +2940,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2145,7 +2973,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
   
 </tr>
 
@@ -2155,12 +2983,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
   
 </tr>
 
@@ -2171,7 +2999,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -2185,12 +3013,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></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>t</strong></td><td><p>Current time</p></td>
   
 </tr>
 
@@ -2200,12 +3028,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -2226,7 +3054,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
     
   </h3></div>
   
@@ -2234,7 +3062,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
   </div>
   
   <ul class="list-group">
@@ -2250,11 +3078,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public module subroutine util_set_ir3h(self)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2279,41 +3107,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2334,7 +3132,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~20"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
     
   </h3></div>
   
@@ -2342,82 +3140,54 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Add the generic write frame for Fortran binary files</p>
   </div>
   
   <ul class="list-group">
     
       <li class="list-group-item">
       
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
+         
+            
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
     
     
    
-   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest 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>
+      <em>None</em>
+    
+    
 
+         
       
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
     
     
 
-        
+         
       
       </li>
     
@@ -2427,7 +3197,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~4"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_tp.html'>discard_tp</a> 
     
   </h3></div>
   
@@ -2435,7 +3205,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2451,11 +3221,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module subroutine discard_tp(self, system, param)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2479,12 +3249,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -2494,12 +3264,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>system</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</p></td>
   
 </tr>
 
@@ -2520,7 +3305,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
     
   </h3></div>
   
@@ -2528,7 +3313,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2544,11 +3329,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2572,27 +3357,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <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 test particle</p></td>
   
 </tr>
 
@@ -2602,12 +3372,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>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>dimension(:)</td><td>::</td>
+  <td><strong>GMpl</strong></td><td><p>Massive body masses</p></td>
   
 </tr>
 
@@ -2618,11 +3388,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xhp</strong></td><td><p>Massive body position vectors</p></td>
   
 </tr>
 
@@ -2632,12 +3402,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>npl</strong></td><td><p>Number of active massive bodies</p></td>
   
 </tr>
 
@@ -2658,7 +3428,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
     
   </h3></div>
   
@@ -2666,7 +3436,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2682,11 +3452,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine obl_acc_tp(self, system)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2710,12 +3480,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest body object</p></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>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2736,7 +3521,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~4"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_tp.html'>discard_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~4"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_tp.html'>setup_tp</a> 
     
   </h3></div>
   
@@ -2744,7 +3529,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p>
+    <p>A base constructor that sets the number of bodies and </p>
   </div>
   
   <ul class="list-group">
@@ -2760,11 +3545,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_tp(self, system, param)
+public module subroutine setup_tp(self, n, param)
     
     
    
-   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2803,12 +3588,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
   
 </tr>
 
@@ -2819,11 +3604,11 @@ <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>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 parametersr</p></td>
   
 </tr>
 
@@ -2844,7 +3629,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~4"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_tp.html'>util_append_tp</a> 
     
   </h3></div>
   
@@ -2852,7 +3637,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
+    <p>Appends elements from one structure to another</p>
   </div>
   
   <ul class="list-group">
@@ -2868,11 +3653,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+public module subroutine util_append_tp(self, source, lsource_mask)
     
     
    
-   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2901,7 +3686,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -2911,12 +3696,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>GMpl</strong></td><td><p>Massive body masses</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -2926,27 +3711,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xhp</strong></td><td><p>Massive body position 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>npl</strong></td><td><p>Number of active massive bodies</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -2967,7 +3737,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
     
   </h3></div>
   
@@ -2975,7 +3745,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2991,11 +3761,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_tp(self, system)
+public module subroutine util_coord_h2b_tp(self, cb)
     
     
    
-   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3034,12 +3804,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3060,7 +3830,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~4"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_tp.html'>setup_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
     
   </h3></div>
   
@@ -3068,7 +3838,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>A base constructor that sets the number of bodies and </p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -3084,11 +3854,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine setup_tp(self, n, param)
+public module subroutine util_coord_b2h_tp(self, cb)
     
     
    
-   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3127,27 +3897,12 @@ <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>n</strong></td><td><p>Number of particles to allocate space for</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parametersr</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3168,7 +3923,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~4"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_tp.html'>util_append_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_tp.html'>util_coord_vb2vh_tp</a> 
     
   </h3></div>
   
@@ -3176,7 +3931,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Appends elements from one structure to another</p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3192,11 +3947,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_append_tp(self, source, lsource_mask)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3235,27 +3990,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</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>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -3276,7 +4016,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_tp.html'>util_coord_vh2vb_tp</a> 
     
   </h3></div>
   
@@ -3284,7 +4024,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3300,11 +4040,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_tp(self, cb)
+public module subroutine util_coord_vh2vb_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3343,12 +4083,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(in)</td>
+  <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>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -3369,7 +4109,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_tp.html'>util_coord_xh2xb_tp</a> 
     
   </h3></div>
   
@@ -3377,7 +4117,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -3393,11 +4133,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_tp(self, cb)
+public module subroutine util_coord_xh2xb_tp(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/symba_cb.html b/docs/type/symba_cb.html
index 396df07d2..e01e70269 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.5% of total for derived types.</p>Including implementation: 8 statements,  1.1% of total for derived types.">8 statements</a>
+    title="<p> 1.0% of total for derived types.</p>Including implementation: 7 statements,  0.8% of total for derived types.">7 statements</a>
      </li> 
      
      
@@ -179,9 +179,7 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/symba_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/symba_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-id">id</a>
       
@@ -233,16 +231,14 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-ptend">ptend</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#variable-m0">M0</a>
+      <a class="list-group-item" href="../type/symba_cb.html#variable-gm0">GM0</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#variable-dm">dM</a>
+      <a class="list-group-item" href="../type/symba_cb.html#variable-dgm">dGM</a>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-r0">R0</a>
       
       <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>
@@ -271,11 +267,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_particle_info~11">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame~12">write_frame</a>
       
     </div>
   </div>
@@ -305,77 +311,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="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">
+<svg id="typesymba_cbInheritsGraph" width="426pt" height="74pt"
+ viewBox="0.00 0.00 426.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,-70 441,-70 441,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 422,-70 422,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="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>
+<polygon fill="none" stroke="black" points="418,-45 357,-45 357,-21 418,-21 418,-45"/>
+<text text-anchor="middle" x="387.5" y="-30.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="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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="320,-45 266,-45 266,-21 320,-21 320,-45"/>
+<text text-anchor="middle" x="293" y="-30.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_edge2" class="edge">
-<title>type~symba_cb&#45;&gt;type~helio_cb</title>
-<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~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>
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M356.98,-33C348.47,-33 339.08,-33 330.21,-33"/>
+<polygon fill="#000000" stroke="#000000" points="330.12,-29.5 320.12,-33 330.12,-36.5 330.12,-29.5"/>
 </g>
 <!-- type~swiftest_cb -->
-<g id="type~~symba_cb~~InheritsGraph_node4" class="node">
+<g id="type~~symba_cb~~InheritsGraph_node3" class="node">
 <title>type~swiftest_cb</title>
-<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>
+<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="229,-45 164,-45 164,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="196.5" y="-30.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_edge3" class="edge">
+<g id="type~~symba_cb~~InheritsGraph_edge2" class="edge">
 <title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M265.93,-33C257.67,-33 248.33,-33 239.26,-33"/>
+<polygon fill="#000000" stroke="#000000" points="239.21,-29.5 229.21,-33 239.21,-36.5 239.21,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~symba_cb~~InheritsGraph_node5" class="node">
+<g id="type~~symba_cb~~InheritsGraph_node4" class="node">
 <title>type~swiftest_base</title>
-<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>
+<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="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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_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="M163.73,-37.82C146.18,-40.48 124.04,-43.84 104.48,-46.8"/>
+<polygon fill="#000000" stroke="#000000" points="103.89,-43.35 94.52,-48.31 104.94,-50.27 103.89,-43.35"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~symba_cb~~InheritsGraph_node5" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~symba_cb~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~symba_cb~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.73,-28.18C151.33,-26.3 136.65,-24.08 122.2,-21.89"/>
+<polygon fill="#000000" stroke="#000000" points="122.67,-18.42 112.26,-20.38 121.62,-25.34 122.67,-18.42"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -432,9 +438,7 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/symba_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/symba_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-id">id</a>
       
@@ -486,16 +490,14 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-ptend">ptend</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#variable-m0">M0</a>
+      <a class="list-group-item" href="../type/symba_cb.html#variable-gm0">GM0</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#variable-dm">dM</a>
+      <a class="list-group-item" href="../type/symba_cb.html#variable-dgm">dGM</a>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-r0">R0</a>
       
       <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>
@@ -524,11 +526,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_particle_info~11">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/symba_cb.html#boundprocedure-write_frame~12">write_frame</a>
       
     </div>
   </div>
@@ -560,25 +572,11 @@ <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -938,11 +936,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m0"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gm0"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>M0</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial mass of the central body</p></td>
+  <td><strong>GM0</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial G*mass of the central body</p></td>
   
 </tr>
 
@@ -952,11 +950,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dm"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dgm"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dM</strong></td><td> =</td><td>0.0_DP</td><td><p>Change in mass of the central body</p></td>
+  <td><strong>dGM</strong></td><td> =</td><td>0.0_DP</td><td><p>Change in G*mass of the central body</p></td>
   
 </tr>
 
@@ -988,41 +986,127 @@ <h2>Components</h2>
   
 </tr>
 
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_base(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_base.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" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</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>public</td>
   <td></td><td>::</td>
-  <td><strong>info</strong></td><td></td><td></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
 </tbody>
 </table>
 
-    </section>
-    <br>
-    
-    
-    
+      
     
     
+
+        
+      
+      </li>
     
-     
-    <section>
-    <h2>Type-Bound Procedures</h2>
+  </ul>
+</div>
+
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1036,11 +1120,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1069,7 +1153,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1088,6 +1172,21 @@ <h4>Arguments</h4>
   
 </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -1105,7 +1204,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~2"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_cb_in.html'>io_read_cb_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1113,7 +1212,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading in central body data</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1129,11 +1228,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_cb_in(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1157,12 +1256,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1173,11 +1287,104 @@ <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>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1198,7 +1405,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~11"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_cb.html'>io_read_in_cb</a> 
     
   </h3></div>
   
@@ -1206,7 +1448,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+    <p>I/O routine for reading in central body data</p>
   </div>
   
   <ul class="list-group">
@@ -1222,11 +1464,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public module subroutine io_read_in_cb(self, param)
     
     
    
-   <a href='../proc/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1265,27 +1507,90 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <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>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</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~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_cb(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_cb.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_parameters.html'>swiftest_parameters</a>),</td>
+  <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>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1295,12 +1600,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -1310,12 +1615,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <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>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1326,6 +1631,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1336,7 +1650,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~2"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
     
   </h3></div>
   
@@ -1436,6 +1750,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~12"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a frame (either binary or NetCDF, using generic procedures)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/symba_encounter.html b/docs/type/symba_encounter.html
new file mode 100644
index 000000000..e80f47c96
--- /dev/null
+++ b/docs/type/symba_encounter.html
@@ -0,0 +1,1909 @@
+<!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_encounter &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_encounter
+    <small>Derived Type</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="<p> 1.5% of total for derived types.</p>Including implementation: 11 statements,  1.2% of total for derived types.">11 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_encounter</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-nenc~2">nenc</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-lvdotr">lvdotr</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-status~2">status</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-kidx">kidx</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-index1">index1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-index2">index2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-id2">id2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-x1">x1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-x2">x2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-v1">v1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-v2">v2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-t~2">t</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-level">level</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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_encounter.html#boundprocedure-resize~9">resize</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-write">write</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-collision_check">collision_check</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-encounter_check~4">encounter_check</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-kick~6">kick</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-setup~10">setup</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-copy">copy</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-spill~8">spill</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-append~9">append</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public, extends(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>) :: symba_encounter</h2>
+    <p>SyMBA class for tracking close encounters in a step</p>
+    <br>
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Inherits</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_encounter~~InheritsGraph Pages: 1 -->
+<svg id="typesymba_encounterInheritsGraph" width="244pt" height="32pt"
+ viewBox="0.00 0.00 244.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_encounter~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>type~~symba_encounter~~InheritsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 240,-28 240,4 -4,4"/>
+<!-- type~symba_encounter -->
+<g id="type~~symba_encounter~~InheritsGraph_node1" class="node">
+<title>type~symba_encounter</title>
+<polygon fill="none" stroke="black" points="236,-24 138,-24 138,0 236,0 236,-24"/>
+<text text-anchor="middle" x="187" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter</text>
+</g>
+<!-- type~swiftest_encounter -->
+<g id="type~~symba_encounter~~InheritsGraph_node2" class="node">
+<title>type~swiftest_encounter</title>
+<g id="a_type~~symba_encounter~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="102,-24 0,-24 0,0 102,0 102,-24"/>
+<text text-anchor="middle" x="51" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
+</a>
+</g>
+</g>
+<!-- type~symba_encounter&#45;&gt;type~swiftest_encounter -->
+<g id="type~~symba_encounter~~InheritsGraph_edge1" class="edge">
+<title>type~symba_encounter&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M137.62,-12C129.42,-12 120.8,-12 112.33,-12"/>
+<polygon fill="#000000" stroke="#000000" points="112.11,-8.5 102.11,-12 112.11,-15.5 112.11,-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>
+</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>
+</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_encounter~~InheritedByGraph Pages: 1 -->
+<svg id="typesymba_encounterInheritedByGraph" width="503pt" height="74pt"
+ viewBox="0.00 0.00 503.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_encounter~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>type~~symba_encounter~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 499,-70 499,4 -4,4"/>
+<!-- type~symba_encounter -->
+<g id="type~~symba_encounter~~InheritedByGraph_node1" class="node">
+<title>type~symba_encounter</title>
+<polygon fill="none" stroke="black" points="98,-66 0,-66 0,-42 98,-42 98,-66"/>
+<text text-anchor="middle" x="49" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter</text>
+</g>
+<!-- type~symba_pltpenc -->
+<g id="type~~symba_encounter~~InheritedByGraph_node2" class="node">
+<title>type~symba_pltpenc</title>
+<g id="a_type~~symba_encounter~~InheritedByGraph_node2"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="220,-66 135,-66 135,-42 220,-42 220,-66"/>
+<text text-anchor="middle" x="177.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
+</a>
+</g>
+</g>
+<!-- type~symba_pltpenc&#45;&gt;type~symba_encounter -->
+<g id="type~~symba_encounter~~InheritedByGraph_edge1" class="edge">
+<title>type~symba_pltpenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M134.74,-52.25C128.76,-52.51 122.71,-53.05 117,-54"/>
+</g>
+<!-- type~symba_plplenc -->
+<g id="type~~symba_encounter~~InheritedByGraph_node3" class="node">
+<title>type~symba_plplenc</title>
+<g id="a_type~~symba_encounter~~InheritedByGraph_node3"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="219.5,-24 135.5,-24 135.5,0 219.5,0 219.5,-24"/>
+<text text-anchor="middle" x="177.5" 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_encounter -->
+<g id="type~~symba_encounter~~InheritedByGraph_edge2" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M148.78,-24.1C143.98,-26.72 139.19,-29.71 135,-33 125.33,-40.59 129.12,-51.97 117,-54"/>
+<path fill="none" stroke="#000000" d="M116,-54C113.48,-54.42 110.9,-54.77 108.28,-55.05"/>
+<polygon fill="#000000" stroke="#000000" points="107.79,-51.58 98.1,-55.86 108.34,-58.56 107.79,-51.58"/>
+</g>
+<!-- type~symba_nbody_system -->
+<g id="type~~symba_encounter~~InheritedByGraph_node4" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~symba_encounter~~InheritedByGraph_node4"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="495,-44 376,-44 376,-20 495,-20 495,-44"/>
+<text text-anchor="middle" x="435.5" y="-29.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_pltpenc -->
+<g id="type~~symba_encounter~~InheritedByGraph_edge3" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.77,-37.05C331.86,-40.82 272.38,-45.93 230.25,-49.55"/>
+<polygon fill="#000000" stroke="#000000" points="229.86,-46.07 220.2,-50.42 230.46,-53.05 229.86,-46.07"/>
+<text text-anchor="middle" x="298" y="-51.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
+</g>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
+<g id="type~~symba_encounter~~InheritedByGraph_edge4" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.72,-21.22C369.75,-20.36 363.76,-19.6 358,-19 314.95,-14.52 265.81,-12.84 229.85,-12.24"/>
+<polygon fill="#000000" stroke="#000000" points="229.65,-8.74 219.6,-12.09 229.55,-15.74 229.65,-8.74"/>
+<text text-anchor="middle" x="298" y="-21.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list, plplcollision_list</text>
+</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>
+</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>
+</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>
+    
+    <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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-nenc~2">nenc</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-lvdotr">lvdotr</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-status~2">status</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-kidx">kidx</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-index1">index1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-index2">index2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-id2">id2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-x1">x1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-x2">x2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-v1">v1</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-v2">v2</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-t~2">t</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#variable-level">level</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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_encounter.html#boundprocedure-resize~9">resize</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-write">write</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-collision_check">collision_check</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-encounter_check~4">encounter_check</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-kick~6">kick</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-setup~10">setup</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-copy">copy</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-spill~8">spill</a>
+      
+      <a class="list-group-item" href="../type/symba_encounter.html#boundprocedure-append~9">append</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    <section>
+    <h2>Components</h2>
+    
+<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-nenc~2"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nenc</strong></td><td></td><td></td><td><p>Total number of encounters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lvdotr"></span>logical,</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>lvdotr</strong></td><td></td><td></td><td><p>relative vdotr flag</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>status</strong></td><td></td><td></td><td><p>status of the interaction</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>index1</strong></td><td></td><td></td><td><p>position of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-index2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>index2</strong></td><td></td><td></td><td><p>position of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>x1</strong></td><td></td><td></td><td><p>the position of body 1 in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-x2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>x2</strong></td><td></td><td></td><td><p>the position of body 2 in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v1"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v1</strong></td><td></td><td></td><td><p>the velocity of body 1 in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-v2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>v2</strong></td><td></td><td></td><td><p>the velocity of body 2 in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-level"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>level</strong></td><td></td><td></td><td><p>encounter recursion level</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resize~9"></span><h3>procedure, public :: <strong>resize</strong>  => <a href='../interface/util_resize_encounter.html'>util_resize_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>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.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_resize_encounter(self, nnew)
+    
+    
+   
+   <a href='../proc/util_resize_encounter.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_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list </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>nnew</strong></td><td><p>New size of list needed</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write"></span><h3>procedure, public :: <strong>write</strong>  => <a href='../interface/io_write_encounter.html'>io_write_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write close encounter data to output binary file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_encounter(self, pl, encbody, param)
+    
+    
+   
+   <a href='../proc/io_write_encounter.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_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-collision_check"></span><h3>procedure, public :: <strong>collision_check</strong>  => <a href='../interface/symba_collision_check_encounter.html'>symba_collision_check_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Checks if a test particle is going to collide with a massive body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
+    
+    
+   
+   <a href='../proc/symba_collision_check_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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/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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>current 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>dt</strong></td><td><p>step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if cany pair of encounters resulted in a collision n</p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-encounter_check~4"></span><h3>procedure, public :: <strong>encounter_check</strong>  => <a href='../interface/symba_encounter_check.html'>symba_encounter_check</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Checks if massive bodies are going through close encounters with each other</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
+    
+    
+   
+   <a href='../proc/symba_encounter_check.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</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>irec</strong></td><td><p>Current recursion level </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if there is at least one close encounter      </p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~6"></span><h3>procedure, public :: <strong>kick</strong>  => <a href='../interface/symba_kick_encounter.html'>symba_kick_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Kick barycentric velocities of active test particles within SyMBA recursion</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_kick_encounter(self, system, dt, irec, sgn)
+    
+    
+   
+   <a href='../proc/symba_kick_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt</strong></td><td><p>step size</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>irec</strong></td><td><p>Current recursion level</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>sgn</strong></td><td><p>sign to be applied to acceleration</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~10"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_encounter.html'>symba_setup_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>A constructor that sets the number of encounters and allocates and initializes all arrays  </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_setup_encounter(self, n)
+    
+    
+   
+   <a href='../proc/symba_setup_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter structure</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>n</strong></td><td><p>Number of encounters to allocate space for</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/symba_util_copy_encounter.html'>symba_util_copy_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Copies elements from the source encounter list into self.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_copy_encounter(self, source)
+    
+    
+   
+   <a href='../proc/symba_util_copy_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-spill~8"></span><h3>procedure, public :: <strong>spill</strong>  => <a href='../interface/symba_util_spill_encounter.html'>symba_util_spill_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>"Spills" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_spill_encounter(self, discards, lspill_list, ldestructive)
+    
+    
+   
+   <a href='../proc/symba_util_spill_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>discards</strong></td><td><p>Discarded object </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lspill_list</strong></td><td><p>Logical array of bodies to spill into the discards</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>ldestructive</strong></td><td><p>Logical flag indicating whether or not this operation should alter body by removing the discard list</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~9"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/symba_util_append_encounter.html'>symba_util_append_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Appends elements from one structure to another</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_append_encounter(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/symba_util_append_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</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/type/symba_kinship.html b/docs/type/symba_kinship.html
index 96562f835..c576cf0ed 100644
--- a/docs/type/symba_kinship.html
+++ b/docs/type/symba_kinship.html
@@ -134,7 +134,7 @@ <h1>symba_kinship
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.9% of total for derived types.</p>Including implementation: 5 statements,  0.7% of total for derived types.">5 statements</a>
+    title="<p> 0.7% of total for derived types.</p>Including implementation: 5 statements,  0.6% of total for derived types.">5 statements</a>
      </li> 
      
      
diff --git a/docs/type/symba_merger.html b/docs/type/symba_merger.html
index 1ae47ed8d..1f549be81 100644
--- a/docs/type/symba_merger.html
+++ b/docs/type/symba_merger.html
@@ -134,7 +134,7 @@ <h1>symba_merger
      <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.0% of total for derived types.</p>Including implementation: 7 statements,  0.8% of total for derived types.">7 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_merger.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_merger.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#variable-name~2">name</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-id~2">id</a>
       
@@ -283,8 +281,6 @@ <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~2">info</a>
-      
       <a class="list-group-item" href="../type/symba_merger.html#variable-ncomp">ncomp</a>
       
     </div>
@@ -315,15 +311,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_particle_info~13">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-el2xv">el2xv</a>
       
@@ -333,9 +337,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_ir3">set_ir3</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-eucl_index">eucl_index</a>
-      
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_int~2">accel_int</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame~14">write_frame</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_obl~2">accel_obl</a>
       
@@ -345,16 +347,18 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_mu~3">set_mu</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_rhill">set_rhill</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vh2vb">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vb2vh">vb2vh</a>
-      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-lindrift">lindrift</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_gr~3">accel_gr</a>
@@ -365,7 +369,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-step~5">step</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-make_family">make_family</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-make_colliders">make_colliders</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-index~3">index</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-discard~5">discard</a>
       
@@ -373,7 +379,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-encounter_check~2">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel~6">accel</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_int~3">accel_int</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel~7">accel</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-fill~6">fill</a>
       
@@ -381,6 +389,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-rearray">rearray</a>
       
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-reset_kinship">reset_kinship</a>
+      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-sort~6">sort</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-rearrange~6">rearrange</a>
@@ -391,7 +401,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-resize~7">resize</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-setup~7">setup</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-setup~8">setup</a>
       
     </div>
   </div>
@@ -421,123 +431,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="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)">
+<svg id="typesymba_mergerInheritsGraph" width="641pt" height="87pt"
+ viewBox="0.00 0.00 641.00 87.37" 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.92 0.92) rotate(0) translate(4 91)">
 <title>type~~symba_merger~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 671,-112 671,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-91 693,-91 693,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="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>
+<polygon fill="none" stroke="black" points="689,-36 604,-36 604,-12 689,-12 689,-36"/>
+<text text-anchor="middle" x="646.5" y="-21.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="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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="567,-36 509,-36 509,-12 567,-12 567,-36"/>
+<text text-anchor="middle" x="538" y="-21.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="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"/>
+<path fill="none" stroke="#000000" d="M603.71,-24C595.01,-24 585.89,-24 577.32,-24"/>
+<polygon fill="#000000" stroke="#000000" points="577.21,-20.5 567.21,-24 577.21,-27.5 577.21,-20.5"/>
 </g>
 <!-- type~helio_pl -->
 <g id="type~~symba_merger~~InheritsGraph_node3" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="445.5,-66 391.5,-66 391.5,-42 445.5,-42 445.5,-66"/>
+<text text-anchor="middle" x="418.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~symba_merger~~InheritsGraph_edge4" class="edge">
+<g id="type~~symba_merger~~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"/>
+<path fill="none" stroke="#000000" d="M508.86,-31.19C493,-35.23 473.02,-40.34 455.97,-44.69"/>
+<polygon fill="#000000" stroke="#000000" points="454.63,-41.42 445.8,-47.28 456.36,-48.2 454.63,-41.42"/>
 </g>
 <!-- type~symba_kinship -->
 <g id="type~~symba_merger~~InheritsGraph_node4" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="460,-24 377,-24 377,0 460,0 460,-24"/>
+<text text-anchor="middle" x="418.5" y="-9.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~~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="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="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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M508.86,-21.13C497.28,-19.94 483.5,-18.54 470.27,-17.19"/>
+<polygon fill="#000000" stroke="#000000" points="470.61,-13.7 460.31,-16.17 469.9,-20.67 470.61,-13.7"/>
+<text text-anchor="middle" x="484.5" y="-22.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~symba_merger~~InheritsGraph_node6" class="node">
+<g id="type~~symba_merger~~InheritsGraph_node5" 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,-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>
+<g id="a_type~~symba_merger~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340,-66 278,-66 278,-42 340,-42 340,-66"/>
+<text text-anchor="middle" x="309" y="-51.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">
+<g id="type~~symba_merger~~InheritsGraph_edge4" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M391.48,-54C379.2,-54 364.26,-54 350.54,-54"/>
+<polygon fill="#000000" stroke="#000000" points="350.36,-50.5 340.36,-54 350.36,-57.5 350.36,-50.5"/>
 </g>
 <!-- type~swiftest_body -->
-<g id="type~~symba_merger~~InheritsGraph_node7" class="node">
+<g id="type~~symba_merger~~InheritsGraph_node6" class="node">
 <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>
+<g id="a_type~~symba_merger~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-66 164,-66 164,-42 241,-42 241,-66"/>
+<text text-anchor="middle" x="202.5" y="-51.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~~symba_merger~~InheritsGraph_edge6" class="edge">
+<g id="type~~symba_merger~~InheritsGraph_edge5" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M277.77,-54C269.45,-54 260.22,-54 251.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="251.09,-50.5 241.09,-54 251.09,-57.5 251.09,-50.5"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~symba_merger~~InheritsGraph_node8" class="node">
+<g id="type~~symba_merger~~InheritsGraph_node7" class="node">
 <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>
+<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="94.5,-87 17.5,-87 17.5,-63 94.5,-63 94.5,-87"/>
+<text text-anchor="middle" x="56" y="-72.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_merger~~InheritsGraph_edge7" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M163.91,-59.46C145.84,-62.09 123.97,-65.27 104.73,-68.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-64.63 94.65,-69.53 105.05,-71.55 104.04,-64.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~symba_merger~~InheritsGraph_node8" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~symba_merger~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" 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" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~symba_merger~~InheritsGraph_edge6" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-48.54C151.19,-46.69 136.6,-44.57 122.36,-42.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-38.98 112.09,-41.01 121.48,-45.91 122.49,-38.98"/>
+<text text-anchor="middle" x="138" y="-48.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -672,13 +682,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_merger.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_merger.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#variable-name~2">name</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-id~2">id</a>
       
@@ -776,8 +784,6 @@ <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~2">info</a>
-      
       <a class="list-group-item" href="../type/symba_merger.html#variable-ncomp">ncomp</a>
       
     </div>
@@ -808,15 +814,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_particle_info~13">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-el2xv">el2xv</a>
       
@@ -826,9 +840,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_ir3">set_ir3</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-eucl_index">eucl_index</a>
-      
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_int~2">accel_int</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-write_frame~14">write_frame</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_obl~2">accel_obl</a>
       
@@ -838,16 +850,18 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_mu~3">set_mu</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-set_rhill">set_rhill</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vh2vb">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-vb2vh">vb2vh</a>
-      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-lindrift">lindrift</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_gr~3">accel_gr</a>
@@ -858,7 +872,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-step~5">step</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-make_family">make_family</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-make_colliders">make_colliders</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-index~3">index</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-discard~5">discard</a>
       
@@ -866,7 +882,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-encounter_check~2">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel~6">accel</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel_int~3">accel_int</a>
+      
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-accel~7">accel</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-fill~6">fill</a>
       
@@ -874,6 +892,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-rearray">rearray</a>
       
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-reset_kinship">reset_kinship</a>
+      
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-sort~6">sort</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-rearrange~6">rearrange</a>
@@ -884,7 +904,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-resize~7">resize</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-setup~7">setup</a>
+      <a class="list-group-item" href="../type/symba_merger.html#boundprocedure-setup~8">setup</a>
       
     </div>
   </div>
@@ -914,20 +934,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-lfirst"></span>logical,</td>
@@ -958,11 +964,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1046,7 +1052,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -1060,7 +1066,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1646,20 +1652,6 @@ <h2>Components</h2>
   
   
   
-<tr>
-  
-  <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>
-  <td><strong>info</strong></td><td></td><td></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" id="variable-ncomp"></span>integer(kind=I4B),</td>
@@ -1687,10 +1679,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1704,11 +1703,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1773,7 +1772,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1781,7 +1780,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1797,11 +1796,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1825,12 +1824,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1841,11 +1840,26 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1866,7 +1880,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1874,7 +1888,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1890,11 +1904,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1918,12 +1932,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1959,7 +1988,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1967,7 +1996,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1983,11 +2012,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2011,12 +2040,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2026,12 +2055,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -2052,7 +2081,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~13"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -2060,7 +2124,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -2076,11 +2140,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2109,22 +2173,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2135,41 +2184,11 @@ <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></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</p></td>
   
 </tr>
 
@@ -2190,7 +2209,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
     
   </h3></div>
   
@@ -2198,7 +2217,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -2214,11 +2233,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_pv2vh_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2243,26 +2262,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2298,7 +2302,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -2306,7 +2310,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -2322,11 +2326,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2365,12 +2369,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2391,7 +2395,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -2399,7 +2403,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2415,11 +2419,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2458,12 +2462,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></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>
 
@@ -2474,6 +2493,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2484,7 +2512,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2492,7 +2520,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2508,11 +2536,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2537,11 +2565,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2551,12 +2579,12 @@ <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>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -2575,18 +2603,81 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2596,12 +2687,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
+  <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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2622,7 +2713,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
     
   </h3></div>
   
@@ -2630,7 +2721,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Convert position and velocity vectors to orbital  elements </p>
   </div>
   
   <ul class="list-group">
@@ -2646,11 +2737,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine orbel_xv2el_vec(self, cb)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2683,6 +2774,21 @@ <h4>Arguments</h4>
   
 </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>
 
@@ -2700,7 +2806,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-eucl_index"></span><h3>procedure, public :: <strong>eucl_index</strong>  => <a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
     
   </h3></div>
   
@@ -2708,7 +2814,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+    <p>Add user-supplied heliocentric accelerations to planets</p>
   </div>
   
   <ul class="list-group">
@@ -2724,11 +2830,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2752,12 +2858,72 @@ <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(<a href='../type/swiftest_body.html'>swiftest_body</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>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -2778,7 +2944,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
     
   </h3></div>
   
@@ -2786,7 +2952,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
   </div>
   
   <ul class="list-group">
@@ -2802,11 +2968,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine util_set_ir3h(self)
     
     
    
-   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2830,12 +2996,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(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2848,6 +3014,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~14"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
@@ -3228,7 +3459,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_beg_end"></span><h3>procedure, public :: <strong>set_beg_end</strong>  => <a href='../interface/util_set_beg_end_pl.html'>util_set_beg_end_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
     
   </h3></div>
   
@@ -3236,7 +3467,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the beginning and ending positions and velocities of planets.</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3252,11 +3483,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/util_set_beg_end_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3295,27 +3526,90 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></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="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_vb2vh_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_vb2vh_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>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -3325,12 +3619,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3351,7 +3645,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu~3"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_pl.html'>util_set_mu_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
     
   </h3></div>
   
@@ -3359,7 +3653,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Method used to construct the vectorized form of the central body mass</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -3375,11 +3669,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_mu_pl(self, cb)
+public module subroutine util_coord_xh2xb_pl(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_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3444,7 +3738,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_rhill"></span><h3>procedure, public :: <strong>set_rhill</strong>  => <a href='../interface/util_set_rhill.html'>util_set_rhill</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_beg_end"></span><h3>procedure, public :: <strong>set_beg_end</strong>  => <a href='../interface/util_set_beg_end_pl.html'>util_set_beg_end_pl</a> 
     
   </h3></div>
   
@@ -3452,7 +3746,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Calculates the Hill's radii for each body</p>
+    <p>Sets the beginning and ending positions and velocities of planets.</p>
   </div>
   
   <ul class="list-group">
@@ -3468,11 +3762,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_rhill(self, cb)
+public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
     
     
    
-   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_beg_end_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3511,12 +3805,42 @@ <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></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></td>
+  
+</tr>
+
+  
   
-  <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
   
 </tr>
 
@@ -3537,7 +3861,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/helio_coord_vh2vb_pl.html'>helio_coord_vh2vb_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu~3"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_pl.html'>util_set_mu_pl</a> 
     
   </h3></div>
   
@@ -3545,7 +3869,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
+    <p>Method used to construct the vectorized form of the central body mass</p>
   </div>
   
   <ul class="list-group">
@@ -3561,11 +3885,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_coord_vh2vb_pl(self, cb)
+public module subroutine util_set_mu_pl(self, cb)
     
     
    
-   <a href='../proc/helio_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_mu_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3589,12 +3913,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_pl.html'>helio_pl</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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -3630,7 +3954,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/helio_coord_vb2vh_pl.html'>helio_coord_vb2vh_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_rhill"></span><h3>procedure, public :: <strong>set_rhill</strong>  => <a href='../interface/util_set_rhill.html'>util_set_rhill</a> 
     
   </h3></div>
   
@@ -3638,7 +3962,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
+    <p>Calculates the Hill's radii for each body</p>
   </div>
   
   <ul class="list-group">
@@ -3654,11 +3978,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_coord_vb2vh_pl(self, cb)
+public module subroutine util_set_rhill(self, cb)
     
     
    
-   <a href='../proc/helio_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3682,12 +4006,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_pl.html'>helio_pl</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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -4338,7 +4662,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-make_family"></span><h3>procedure, public :: <strong>make_family</strong>  => <a href='../interface/symba_collision_make_family_pl.html'>symba_collision_make_family_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-make_colliders"></span><h3>procedure, public :: <strong>make_colliders</strong>  => <a href='../interface/symba_collision_make_colliders_pl.html'>symba_collision_make_colliders_pl</a> 
     
   </h3></div>
   
@@ -4362,11 +4686,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_collision_make_family_pl(self, idx)
+public module subroutine symba_collision_make_colliders_pl(self, idx)
     
     
    
-   <a href='../proc/symba_collision_make_family_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_make_colliders_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4423,6 +4747,99 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~3"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/symba_util_index_eucl_plpl.html'>symba_util_index_eucl_plpl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/symba_util_index_eucl_plpl.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_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body 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>
@@ -4794,7 +5211,85 @@ <h4>Return Value <small>logical
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~6"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/symba_kick_getacch_pl.html'>symba_kick_getacch_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~3"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/symba_kick_getacch_int_pl.html'>symba_kick_getacch_int_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_kick_getacch_int_pl(self)
+    
+    
+   
+   <a href='../proc/symba_kick_getacch_int_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/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~7"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/symba_kick_getacch_pl.html'>symba_kick_getacch_pl</a> 
     
   </h3></div>
   
@@ -5231,7 +5726,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -5248,6 +5743,99 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reset_kinship"></span><h3>procedure, public :: <strong>reset_kinship</strong>  => <a href='../interface/symba_util_reset_kinship.html'>symba_util_reset_kinship</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Resets the kinship status of bodies</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_reset_kinship(self, idx)
+    
+    
+   
+   <a href='../proc/symba_util_reset_kinship.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_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</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>idx</strong></td><td><p>Index array of bodies to reset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
@@ -5781,7 +6369,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~7"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_merger.html'>symba_setup_merger</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~8"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_merger.html'>symba_setup_merger</a> 
     
   </h3></div>
   
diff --git a/docs/type/symba_nbody_system.html b/docs/type/symba_nbody_system.html
index 74bd5a752..cb65c10a1 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.6% of total for derived types.</p>Including implementation: 14 statements,  2.0% of total for derived types.">14 statements</a>
+    title="<p> 2.0% of total for derived types.</p>Including implementation: 15 statements,  1.7% of total for derived types.">15 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_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pl">pl</a>
@@ -191,7 +189,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -201,28 +199,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <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-pl_adds">pl_adds</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pltpenc_list">pltpenc_list</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-plplenc_list">plplenc_list</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-plplcollision_list">plplcollision_list</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-irec">irec</a>
       
     </div>
@@ -257,10 +251,22 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -271,11 +277,13 @@ <h3>Contents</h3>
       
       <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_hdr~4">write_hdr</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~5">initialize</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-initialize~4">initialize</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step~8">step</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step~9">step</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-interp">interp</a>
       
@@ -283,7 +291,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-recursive_step">recursive_step</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-reset">reset</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-reset~3">reset</a>
       
     </div>
   </div>
@@ -313,294 +321,310 @@ <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="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)">
+<svg id="typesymba_nbody_systemInheritsGraph" width="641pt" height="139pt"
+ viewBox="0.00 0.00 641.00 139.11" 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.56 0.56) rotate(0) translate(4 246)">
 <title>type~~symba_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-233 1093,-233 1093,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-246 1148,-246 1148,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="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~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>
+<polygon fill="none" stroke="black" points="1144,-86 1025,-86 1025,-62 1144,-62 1144,-86"/>
+<text text-anchor="middle" x="1084.5" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_nbody_system</text>
 </g>
 <!-- type~helio_nbody_system -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node3" class="node">
+<g id="type~~symba_nbody_system~~InheritsGraph_node2" class="node">
 <title>type~helio_nbody_system</title>
-<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>
+<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="869,-151 759,-151 759,-127 869,-127 869,-151"/>
+<text text-anchor="middle" x="814" y="-136.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="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>
+<path fill="none" stroke="#000000" d="M1056.32,-86.14C1041.9,-92.2 1023.74,-99.24 1007,-104 965.14,-115.9 916.96,-124.67 879.34,-130.45"/>
+<polygon fill="#000000" stroke="#000000" points="878.39,-127.06 869.02,-132.01 879.43,-133.98 878.39,-127.06"/>
 </g>
 <!-- type~symba_pltpenc -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node5" class="node">
+<g id="type~~symba_nbody_system~~InheritsGraph_node3" class="node">
 <title>type~symba_pltpenc</title>
-<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>
+<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="856.5,-66 771.5,-66 771.5,-42 856.5,-42 856.5,-66"/>
+<text text-anchor="middle" x="814" y="-51.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="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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1024.72,-63.21C1018.75,-62.35 1012.76,-61.59 1007,-61 959.84,-56.15 905.86,-54.53 867.17,-54.05"/>
+<polygon fill="#000000" stroke="#000000" points="866.72,-50.54 856.68,-53.94 866.65,-57.54 866.72,-50.54"/>
+<text text-anchor="middle" x="947" y="-63.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </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="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>
+<!-- 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="856.5,-108 771.5,-108 771.5,-84 856.5,-84 856.5,-108"/>
+<text text-anchor="middle" x="814" y="-93.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_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"/>
+<!-- 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="M1024.91,-78.8C977.81,-82.66 912.27,-88.03 867.01,-91.74"/>
+<polygon fill="#000000" stroke="#000000" points="866.5,-88.27 856.82,-92.57 867.07,-95.24 866.5,-88.27"/>
+<text text-anchor="middle" x="947" y="-92.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</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="856,-24 772,-24 772,0 856,0 856,-24"/>
+<text text-anchor="middle" x="814" 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_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="M1060.68,-61.88C1045.79,-54.47 1025.71,-45.41 1007,-40 960.36,-26.51 905.38,-19.34 866.24,-15.64"/>
+<polygon fill="#000000" stroke="#000000" points="866.41,-12.14 856.14,-14.73 865.79,-19.11 866.41,-12.14"/>
+<text text-anchor="middle" x="947" y="-42.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list, plplcollision_list</text>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node6" class="node">
+<g id="type~~symba_nbody_system~~InheritsGraph_node8" 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="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>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="722,-154 612,-154 612,-130 722,-130 722,-154"/>
+<text text-anchor="middle" x="667" y="-139.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_edge6" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge5" class="edge">
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M758.59,-140.13C750.05,-140.3 741.14,-140.49 732.39,-140.67"/>
+<polygon fill="#000000" stroke="#000000" points="732.15,-137.17 722.23,-140.88 732.3,-144.17 732.15,-137.17"/>
 </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 -->
+<!-- type~symba_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="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>
+<title>type~symba_encounter</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/symba_encounter.html" xlink:title="symba_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="716,-57 618,-57 618,-33 716,-33 716,-57"/>
+<text text-anchor="middle" x="667" y="-42.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge8" class="edge">
-<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"/>
+<!-- type~symba_pltpenc&#45;&gt;type~symba_encounter -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge6" class="edge">
+<title>type~symba_pltpenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M771.49,-49C761.5,-48.38 750.87,-48.21 741,-49"/>
 </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="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>
+<!-- type~symba_pl -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node6" class="node">
+<title>type~symba_pl</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="696,-108 638,-108 638,-84 696,-84 696,-108"/>
+<text text-anchor="middle" x="667" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</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="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"/>
+<!-- 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="M771.45,-96C750.92,-96 726.33,-96 706.27,-96"/>
+<polygon fill="#000000" stroke="#000000" points="706.24,-92.5 696.24,-96 706.24,-99.5 706.24,-92.5"/>
+</g>
+<!-- type~symba_plplenc&#45;&gt;type~symba_encounter -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge8" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M740,-49C735.53,-49.36 730.9,-49.54 726.24,-49.58"/>
+<polygon fill="#000000" stroke="#000000" points="726.08,-46.08 716.05,-49.48 726.01,-53.08 726.08,-46.08"/>
+<path fill="none" stroke="#000000" d="M776.71,-24.05C770.61,-26.65 764.49,-29.64 759,-33 749.87,-38.58 751.67,-48.14 741,-49"/>
 </g>
 <!-- type~helio_pl -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node9" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="528.5,-139 474.5,-139 474.5,-115 528.5,-115 528.5,-139"/>
+<text text-anchor="middle" x="501.5" y="-124.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge12" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge10" 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"/>
+<path fill="none" stroke="#000000" d="M637.89,-101.33C610.45,-106.53 568.57,-114.47 538.66,-120.14"/>
+<polygon fill="#000000" stroke="#000000" points="537.79,-116.75 528.62,-122.05 539.1,-123.62 537.79,-116.75"/>
 </g>
 <!-- type~symba_kinship -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node10" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="543,-97 460,-97 460,-73 543,-73 543,-97"/>
+<text text-anchor="middle" x="501.5" y="-82.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~~symba_nbody_system~~InheritsGraph_edge10" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge9" 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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M637.89,-94.11C614.64,-92.54 581.01,-90.28 553.09,-88.4"/>
+<polygon fill="#000000" stroke="#000000" points="553.3,-84.91 543.09,-87.73 552.83,-91.89 553.3,-84.91"/>
+<text text-anchor="middle" x="587.5" y="-92.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="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>
+<!-- type~swiftest_encounter -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node12" class="node">
+<title>type~swiftest_encounter</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node12"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="552.5,-55 450.5,-55 450.5,-31 552.5,-31 552.5,-55"/>
+<text text-anchor="middle" x="501.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
+<!-- type~symba_encounter&#45;&gt;type~swiftest_encounter -->
 <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="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>
+<title>type~symba_encounter&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M617.83,-44.41C600.58,-44.2 580.92,-43.96 562.78,-43.74"/>
+<polygon fill="#000000" stroke="#000000" points="562.64,-40.24 552.6,-43.61 562.55,-47.23 562.64,-40.24"/>
+</g>
+<!-- type~swiftest_nbody_system -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node11" class="node">
+<title>type~swiftest_nbody_system</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node11"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563,-193 440,-193 440,-169 563,-169 563,-193"/>
+<text text-anchor="middle" x="501.5" y="-178.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_edge12" class="edge">
+<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
+<path fill="none" stroke="#000000" d="M615.61,-154.02C598.98,-157.99 580.31,-162.44 563.01,-166.57"/>
+<polygon fill="#000000" stroke="#000000" points="561.92,-163.23 553,-168.95 563.54,-170.04 561.92,-163.23"/>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node15" class="node">
+<g id="type~~symba_nbody_system~~InheritsGraph_node14" 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,-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>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node14"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-145 278.5,-145 278.5,-121 340.5,-121 340.5,-145"/>
+<text text-anchor="middle" x="309.5" y="-130.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="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"/>
+<path fill="none" stroke="#000000" d="M474.48,-127.82C442.52,-128.83 387.97,-130.55 350.63,-131.73"/>
+<polygon fill="#000000" stroke="#000000" points="350.47,-128.24 340.59,-132.05 350.69,-135.23 350.47,-128.24"/>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node13" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-187 278,-187 278,-163 341,-163 341,-187"/>
+<text text-anchor="middle" x="309.5" y="-172.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_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_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node14" class="node">
-<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_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge17" class="edge">
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.86,-179.09C410.94,-178.17 377.11,-177.1 351.3,-176.29"/>
+<polygon fill="#000000" stroke="#000000" points="351.22,-172.78 341.12,-175.97 351,-179.78 351.22,-172.78"/>
+<text text-anchor="middle" x="390.5" y="-180.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <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="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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.55,-168.89C421.09,-160.94 380.4,-150.66 350.64,-143.14"/>
+<polygon fill="#000000" stroke="#000000" points="351.16,-139.66 340.61,-140.61 349.44,-146.45 351.16,-139.66"/>
+<text text-anchor="middle" x="390.5" y="-161.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~swiftest_cb -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node16" class="node">
+<g id="type~~symba_nbody_system~~InheritsGraph_node15" 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>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node15"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-235 170,-235 170,-211 235,-211 235,-235"/>
+<text text-anchor="middle" x="202.5" y="-220.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~~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.68,-189.6C381.57,-197.82 295.55,-209.98 244.94,-217.14"/>
+<polygon fill="#000000" stroke="#000000" points="244.42,-213.68 235.01,-218.54 245.4,-220.61 244.42,-213.68"/>
+<text text-anchor="middle" x="309.5" y="-214.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">
+<g id="type~~symba_nbody_system~~InheritsGraph_node18" 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,-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>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node18"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-187 164,-187 164,-163 241,-163 241,-187"/>
+<text text-anchor="middle" x="202.5" y="-172.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_edge18" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge17" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M277.79,-173.16C271.84,-173.32 265.7,-173.85 260,-175"/>
 </g>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge19" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge18" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M292.49,-162.98C277.64,-158.57 259.33,-153.96 242.5,-152"/>
+<path fill="none" stroke="#000000" d="M259,-175C256.48,-175.51 253.88,-175.91 251.25,-176.22"/>
+<polygon fill="#000000" stroke="#000000" points="250.72,-172.75 241.02,-177.02 251.26,-179.73 250.72,-172.75"/>
+<path fill="none" stroke="#000000" d="M289.21,-145.15C285.36,-147.89 281.44,-150.9 278,-154 268.86,-162.22 272.05,-172.57 260,-175"/>
+</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="94.5,-242 17.5,-242 17.5,-218 94.5,-218 94.5,-242"/>
+<text text-anchor="middle" x="56" y="-227.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_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"/>
+<path fill="none" stroke="#000000" d="M169.82,-225.49C162.03,-226.05 153.72,-226.59 146,-227 132.72,-227.7 118.32,-228.27 105.05,-228.72"/>
+<polygon fill="#000000" stroke="#000000" points="104.57,-225.23 94.69,-229.05 104.8,-232.23 104.57,-225.23"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node17" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node17"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-190 0,-190 0,-166 112,-166 112,-190"/>
+<text text-anchor="middle" x="56" y="-175.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge19" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-213.12C150.93,-207.25 126.61,-199.68 105.39,-193.07"/>
+<polygon fill="#000000" stroke="#000000" points="106.17,-189.65 95.58,-190.01 104.09,-196.33 106.17,-189.65"/>
+<text text-anchor="middle" x="138" y="-206.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge21" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge22" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M163.72,-185.65C152.75,-189.01 140.81,-192.91 130,-197 117.07,-201.89 103.17,-207.96 91,-213.56"/>
+<polygon fill="#000000" stroke="#000000" points="89.26,-210.51 81.67,-217.91 92.22,-216.85 89.26,-210.51"/>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge21" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.1,-162.94C158.79,-161.3 152.26,-159.88 146,-159 130.11,-156.76 112.82,-159.28 97.74,-163.15"/>
+<polygon fill="#000000" stroke="#000000" points="96.37,-159.9 87.7,-166 98.28,-166.63 96.37,-159.9"/>
+<text text-anchor="middle" x="138" y="-161.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -657,8 +681,6 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pl">pl</a>
@@ -669,7 +691,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -679,28 +701,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <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-pl_adds">pl_adds</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pltpenc_list">pltpenc_list</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-plplenc_list">plplenc_list</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-plplcollision_list">plplcollision_list</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-irec">irec</a>
       
     </div>
@@ -735,10 +753,22 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -749,11 +779,13 @@ <h3>Contents</h3>
       
       <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_hdr~4">write_hdr</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~5">initialize</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-initialize~4">initialize</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step~8">step</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step~9">step</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-interp">interp</a>
       
@@ -761,7 +793,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-recursive_step">recursive_step</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-reset">reset</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-reset~3">reset</a>
       
     </div>
   </div>
@@ -791,20 +823,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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -881,7 +899,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -947,11 +965,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -961,11 +979,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -975,39 +993,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -1017,11 +1007,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -1047,11 +1037,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</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></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_adds</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
   
 </tr>
 
@@ -1061,11 +1051,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl_adds"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-pltpenc_list"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>pl_adds</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
+  <td><strong>pltpenc_list</strong></td><td></td><td></td><td><p>List of massive body-test particle encounters in a single step </p></td>
   
 </tr>
 
@@ -1075,11 +1065,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pltpenc_list"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-plplenc_list"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>pltpenc_list</strong></td><td></td><td></td><td><p>List of massive body-test particle encounters in a single step </p></td>
+  <td><strong>plplenc_list</strong></td><td></td><td></td><td><p>List of massive body-massive body encounters in a single step</p></td>
   
 </tr>
 
@@ -1089,11 +1079,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-plplenc_list"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
+  <td><span class="anchor" id="variable-plplcollision_list"></span>class(<a href='../type/symba_plplenc.html'>symba_plplenc</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>plplenc_list</strong></td><td></td><td></td><td><p>List of massive body-massive body encounters in a single step</p></td>
+  <td><strong>plplcollision_list</strong></td><td></td><td></td><td><p>List of massive body-massive body collisions in a single step</p></td>
   
 </tr>
 
@@ -1122,13 +1112,526 @@ <h2>Components</h2>
     
     
     
-     
-    <section>
-    <h2>Type-Bound Procedures</h2>
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_system.html'>discard_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Perform a discard step on the system</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine discard_system(self, param)
+    
+    
+   
+   <a href='../proc/discard_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-conservation_report"></span><h3>procedure, public :: <strong>conservation_report</strong>  => <a href='../interface/io_conservation_report.html'>io_conservation_report</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute energy and momentum and print out the change with time</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_conservation_report(self, param, lterminal)
+    
+    
+   
+   <a href='../proc/io_conservation_report.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>Input colleciton of user-defined parameters</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lterminal</strong></td><td><p>Indicates whether to output information to the terminal screen</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_system.html'>io_dump_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump the state of the system to a file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_system(self, param)
+    
+    
+   
+   <a href='../proc/io_dump_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_old_t_final"></span><h3>procedure, public :: <strong>get_old_t_final</strong>  => <a href='../interface/io_get_old_t_final_system.html'>io_get_old_t_final_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_get_old_t_final_system(self, param) result(old_t_final)
+    
+    
+   
+   <a href='../proc/io_get_old_t_final_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(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></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></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Read in a frame of input data from file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_system(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_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 system 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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_system.html'>discard_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_particle_info"></span><h3>procedure, public :: <strong>read_particle_info</strong>  => <a href='../interface/io_read_particle_info_system.html'>io_read_particle_info_system</a> 
     
   </h3></div>
   
@@ -1136,7 +1639,7 @@ <h2>Type-Bound Procedures</h2>
     
 
 
-    <p>Perform a discard step on the system</p>
+    <p>Read in particle metadata from file</p>
   </div>
   
   <ul class="list-group">
@@ -1152,11 +1655,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_system(self, param)
+public module subroutine io_read_particle_info_system(self, param)
     
     
    
-   <a href='../proc/discard_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1185,7 +1688,7 @@ <h4>Arguments</h4>
   <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 nbody system object</p></td>
   
 </tr>
 
@@ -1221,7 +1724,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-conservation_report"></span><h3>procedure, public :: <strong>conservation_report</strong>  => <a href='../interface/io_conservation_report.html'>io_conservation_report</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
     
   </h3></div>
   
@@ -1229,7 +1732,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute energy and momentum and print out the change with time</p>
+    <p>Append a frame of output data to file</p>
   </div>
   
   <ul class="list-group">
@@ -1245,11 +1748,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_conservation_report(self, param, lterminal)
+public module subroutine io_write_frame_system(self, param)
     
     
    
-   <a href='../proc/io_conservation_report.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1278,7 +1781,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
   
 </tr>
 
@@ -1293,22 +1796,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Input colleciton of user-defined parameters</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lterminal</strong></td><td><p>Indicates whether to output information to the terminal screen</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1329,7 +1817,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_system.html'>io_dump_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_bin"></span><h3>procedure, public :: <strong>write_hdr_bin</strong>  => <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a> 
     
   </h3></div>
   
@@ -1337,7 +1825,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Dump the state of the system to a file</p>
+    <p>Write a header for an output frame in Fortran binary format</p>
   </div>
   
   <ul class="list-group">
@@ -1353,11 +1841,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_system(self, param)
+public module subroutine io_write_hdr_system(self, iu, param)
     
     
    
-   <a href='../proc/io_dump_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_hdr_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1382,11 +1870,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(in)</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>integer(kind=I4B),</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>iu</strong></td><td><p>Output file unit number</p></td>
   
 </tr>
 
@@ -1397,11 +1900,11 @@ <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>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>
 
@@ -1422,7 +1925,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_netcdf"></span><h3>procedure, public :: <strong>write_hdr_netcdf</strong>  => <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a> 
     
   </h3></div>
   
@@ -1430,7 +1933,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in a frame of input data from file</p>
+    <p>Write a header for an output frame in NetCDF format</p>
   </div>
   
   <ul class="list-group">
@@ -1446,11 +1949,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public module subroutine netcdf_write_hdr_system(self, iu, param)
     
     
    
-   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_hdr_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1475,11 +1978,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</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 nbody system object</p></td>
   
 </tr>
 
@@ -1489,12 +1992,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1505,28 +2008,76 @@ <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>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>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-obl_pot"></span><h3>procedure, public :: <strong>obl_pot</strong>  => <a href='../interface/obl_pot_system.html'>obl_pot_system</a> 
+    
+  </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p>
+  </div>
   
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
   
-  
-<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>
+          
+          
+    
+    <h3>
+public module subroutine obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_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>
 
   
   
@@ -1534,12 +2085,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</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>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1560,7 +2111,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init_particle_info"></span><h3>procedure, public :: <strong>init_particle_info</strong>  => <a href='../interface/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_system</a> 
     
   </h3></div>
   
@@ -1568,7 +2119,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Append a frame of output data to file</p>
+    <p>Initialize the system from input files</p>
   </div>
   
   <ul class="list-group">
@@ -1584,11 +2135,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine setup_initialize_particle_info_system(self, param)
     
     
    
-   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_initialize_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1613,26 +2164,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system 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>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1643,11 +2179,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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2168,7 +2704,7 @@ <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>
@@ -2185,6 +2721,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr~4"></span><h3>generic, public :: <strong>write_hdr</strong>  => <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin'>write_hdr_bin</a>, <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Generic method call for writing headers</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
@@ -2261,7 +2862,7 @@ <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>
@@ -2286,7 +2887,7 @@ <h4>Arguments</h4>
     
      
 <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_setup_initialize_system.html'>symba_setup_initialize_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~4"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/symba_setup_initialize_system.html'>symba_setup_initialize_system</a> 
     
   </h3></div>
   
@@ -2379,7 +2980,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~8"></span><h3>procedure, public :: <strong>step</strong>  => <a href='../interface/symba_step_system.html'>symba_step_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-step~9"></span><h3>procedure, public :: <strong>step</strong>  => <a href='../interface/symba_step_system.html'>symba_step_system</a> 
     
   </h3></div>
   
@@ -2801,10 +3402,10 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>t</strong></td><td></td>
   
 </tr>
@@ -2816,10 +3417,10 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td></td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>value</td><td>::</td>
+  <td></td><td>::</td>
   <td><strong>ireci</strong></td><td><p>input recursion level</p></td>
   
 </tr>
@@ -2841,7 +3442,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reset"></span><h3>procedure, public :: <strong>reset</strong>  => <a href='../interface/symba_step_reset_system.html'>symba_step_reset_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reset~3"></span><h3>procedure, public :: <strong>reset</strong>  => <a href='../interface/symba_step_reset_system.html'>symba_step_reset_system</a> 
     
   </h3></div>
   
@@ -2865,7 +3466,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_step_reset_system(self)
+public module subroutine symba_step_reset_system(self, param)
     
     
    
@@ -2902,6 +3503,21 @@ <h4>Arguments</h4>
   
 </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>
+
 </tbody>
 </table>
 
diff --git a/docs/type/symba_parameters.html b/docs/type/symba_parameters.html
index fd25454ec..92d85d9f8 100644
--- a/docs/type/symba_parameters.html
+++ b/docs/type/symba_parameters.html
@@ -134,7 +134,7 @@ <h1>symba_parameters
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.7% of total for derived types.</p>Including implementation: 9 statements,  1.3% of total for derived types.">9 statements</a>
+    title="<p> 1.2% of total for derived types.</p>Including implementation: 9 statements,  1.0% of total for derived types.">9 statements</a>
      </li> 
      
      
@@ -181,9 +181,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-integrator">integrator</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-nplmax">nplmax</a>
-      
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ntpmax">ntpmax</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-maxid">maxid</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-t0">t0</a>
       
@@ -193,6 +191,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-dt~2">dt</a>
       
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-ioutput">ioutput</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-incbfile">incbfile</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-inplfile">inplfile</a>
@@ -201,6 +201,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-in_type">in_type</a>
       
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-in_form">in_form</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-istep_out">istep_out</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-outfile">outfile</a>
@@ -211,6 +213,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-out_stat">out_stat</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-istep_dump">istep_dump</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-rmin">rmin</a>
@@ -261,9 +265,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-eorbit_orig">Eorbit_orig</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-mtot_orig">Mtot_orig</a>
-      
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-lmag_orig">Lmag_orig</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-gmtot_orig">GMtot_orig</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-ltot_orig">Ltot_orig</a>
       
@@ -271,15 +273,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lspin_orig">Lspin_orig</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ltot">Ltot</a>
-      
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-lescape~2">Lescape</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-lescape">Lescape</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-mescape~2">Mescape</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-gmescape">GMescape</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ecollisions~2">Ecollisions</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-ecollisions">Ecollisions</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-euntracked~2">Euntracked</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-euntracked">Euntracked</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lfirstenergy">lfirstenergy</a>
       
@@ -293,10 +293,12 @@ <h3>Contents</h3>
       
       <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_out">particle_out</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-nciu">nciu</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-min_gmfrag">min_GMfrag</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-seed">seed</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lfragmentation">lfragmentation</a>
@@ -329,7 +331,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-dump~3">dump</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-read_from_file">read_from_file</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-read_in~3">read_in</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-reader">reader</a>
       
@@ -363,31 +365,47 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_parameters~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_parametersInheritsGraph" width="258pt" height="32pt"
- viewBox="0.00 0.00 258.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_parametersInheritsGraph" width="416pt" height="32pt"
+ viewBox="0.00 0.00 416.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_parameters~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_parameters~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 254,-28 254,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 412,-28 412,4 -4,4"/>
 <!-- type~symba_parameters -->
 <g id="type~~symba_parameters~~InheritsGraph_node1" class="node">
 <title>type~symba_parameters</title>
-<polygon fill="none" stroke="black" points="250,-24 145,-24 145,0 250,0 250,-24"/>
-<text text-anchor="middle" x="197.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_parameters</text>
+<polygon fill="none" stroke="black" points="408,-24 303,-24 303,0 408,0 408,-24"/>
+<text text-anchor="middle" x="355.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_parameters</text>
 </g>
 <!-- type~swiftest_parameters -->
 <g id="type~~symba_parameters~~InheritsGraph_node2" class="node">
 <title>type~swiftest_parameters</title>
 <g id="a_type~~symba_parameters~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_parameters.html" xlink:title="swiftest_parameters">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="109,-24 0,-24 0,0 109,0 109,-24"/>
-<text text-anchor="middle" x="54.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_parameters</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="266,-24 157,-24 157,0 266,0 266,-24"/>
+<text text-anchor="middle" x="211.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_parameters</text>
 </a>
 </g>
 </g>
 <!-- type~symba_parameters&#45;&gt;type~swiftest_parameters -->
 <g id="type~~symba_parameters~~InheritsGraph_edge1" class="edge">
 <title>type~symba_parameters&#45;&gt;type~swiftest_parameters</title>
-<path fill="none" stroke="#000000" d="M144.8,-12C136.44,-12 127.7,-12 119.09,-12"/>
-<polygon fill="#000000" stroke="#000000" points="119.09,-8.5 109.09,-12 119.09,-15.5 119.09,-8.5"/>
+<path fill="none" stroke="#000000" d="M302.83,-12C294.28,-12 285.33,-12 276.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="276.28,-8.5 266.28,-12 276.28,-15.5 276.28,-8.5"/>
+</g>
+<!-- type~netcdf_parameters -->
+<g id="type~~symba_parameters~~InheritsGraph_node3" class="node">
+<title>type~netcdf_parameters</title>
+<g id="a_type~~symba_parameters~~InheritsGraph_node3"><a xlink:href=".././type/netcdf_parameters.html" xlink:title="netcdf_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="103,-24 0,-24 0,0 103,0 103,-24"/>
+<text text-anchor="middle" x="51.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">netcdf_parameters</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_parameters&#45;&gt;type~netcdf_parameters -->
+<g id="type~~symba_parameters~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_parameters&#45;&gt;type~netcdf_parameters</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.57,-12C142.68,-12 127.65,-12 113.44,-12"/>
+<polygon fill="#000000" stroke="#000000" points="113.26,-8.5 103.26,-12 113.26,-15.5 113.26,-8.5"/>
+<text text-anchor="middle" x="130" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">nciu</text>
 </g>
 </g>
 </svg>
@@ -446,9 +464,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-integrator">integrator</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-nplmax">nplmax</a>
-      
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ntpmax">ntpmax</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-maxid">maxid</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-t0">t0</a>
       
@@ -458,6 +474,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-dt~2">dt</a>
       
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-ioutput">ioutput</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-incbfile">incbfile</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-inplfile">inplfile</a>
@@ -466,6 +484,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-in_type">in_type</a>
       
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-in_form">in_form</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-istep_out">istep_out</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-outfile">outfile</a>
@@ -476,6 +496,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-out_stat">out_stat</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-istep_dump">istep_dump</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-rmin">rmin</a>
@@ -526,9 +548,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-eorbit_orig">Eorbit_orig</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-mtot_orig">Mtot_orig</a>
-      
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-lmag_orig">Lmag_orig</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-gmtot_orig">GMtot_orig</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-ltot_orig">Ltot_orig</a>
       
@@ -536,15 +556,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lspin_orig">Lspin_orig</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ltot">Ltot</a>
-      
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-lescape~2">Lescape</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-lescape">Lescape</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-mescape~2">Mescape</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-gmescape">GMescape</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ecollisions~2">Ecollisions</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-ecollisions">Ecollisions</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-euntracked~2">Euntracked</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-euntracked">Euntracked</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lfirstenergy">lfirstenergy</a>
       
@@ -558,10 +576,12 @@ <h3>Contents</h3>
       
       <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_out">particle_out</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-nciu">nciu</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-min_gmfrag">min_GMfrag</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-seed">seed</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lfragmentation">lfragmentation</a>
@@ -594,7 +614,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-dump~3">dump</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-read_from_file">read_from_file</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-read_in~3">read_in</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#boundprocedure-reader">reader</a>
       
@@ -644,11 +664,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nplmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of massive bodies</p></td>
+  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
   
 </tr>
 
@@ -658,11 +678,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ntpmax"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ntpmax</strong></td><td> =</td><td>-1</td><td><p>Maximum allowed number of test particles</p></td>
+  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
   
 </tr>
 
@@ -672,11 +692,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t0"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t0</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration start time</p></td>
+  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
   
 </tr>
 
@@ -686,11 +706,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-t"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration current time</p></td>
+  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
   
 </tr>
 
@@ -700,11 +720,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tstop"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>tstop</strong></td><td> =</td><td>-1.0_DP</td><td><p>Integration stop time</p></td>
+  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
   
 </tr>
 
@@ -714,11 +734,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-dt~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ioutput"></span>integer(kind=I8B),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>dt</strong></td><td> =</td><td>-1.0_DP</td><td><p>Time step</p></td>
+  <td><strong>ioutput</strong></td><td> =</td><td>0_I8B</td><td><p>Output counter</p></td>
   
 </tr>
 
@@ -774,7 +794,21 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Format of input data files</p></td>
+  <td><strong>in_type</strong></td><td> =</td><td>ASCII_TYPE</td><td><p>Data representation type of input data files</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-in_form"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>in_form</strong></td><td> =</td><td>XV</td><td><p>Format of input data files (EL or XV)</p></td>
   
 </tr>
 
@@ -802,7 +836,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>outfile</strong></td><td> =</td><td>BIN_OUTFILE</td><td><p>Name of output binary file</p></td>
+  <td><strong>outfile</strong></td><td> =</td><td>NETCDF_OUTFILE</td><td><p>Name of output binary file</p></td>
   
 </tr>
 
@@ -816,7 +850,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_type</strong></td><td> =</td><td>REAL8_TYPE</td><td><p>Binary format of output file</p></td>
+  <td><strong>out_type</strong></td><td> =</td><td>NETCDF_DOUBLE_TYPE</td><td><p>Binary format of output file</p></td>
   
 </tr>
 
@@ -830,7 +864,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>out_form</strong></td><td> =</td><td>XV</td><td><p>Data to write to output file</p></td>
+  <td><strong>out_form</strong></td><td> =</td><td>XVEL</td><td><p>Data to write to output file</p></td>
   
 </tr>
 
@@ -852,6 +886,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-istep_dump"></span>integer(kind=I4B),</td>
@@ -1204,25 +1252,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtot_orig"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtot_orig"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Mtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lmag_orig"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Lmag_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial total angular momentum magnitude</p></td>
+  <td><strong>GMtot_orig</strong></td><td> =</td><td>0.0_DP</td><td><p>Initial system mass</p></td>
   
 </tr>
 
@@ -1274,21 +1308,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
@@ -1302,11 +1322,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mescape~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmescape"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
+  <td><strong>GMescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
   
 </tr>
 
@@ -1316,7 +1336,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ecollisions~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -1330,7 +1350,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
@@ -1428,11 +1448,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-nciu"></span>type(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  <td><strong>nciu</strong></td><td></td><td></td><td><p>Object containing NetCDF parameters</p></td>
   
 </tr>
 
@@ -1446,7 +1466,21 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>GMTINY</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 G*mass that is fully gravitating</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-min_gmfrag"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>min_GMfrag</strong></td><td> =</td><td>-1.0_DP</td><td><p>Smallest G*mass that can be produced in a fragmentation event</p></td>
   
 </tr>
 
@@ -1581,7 +1615,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_from_file"></span><h3>procedure, public :: <strong>read_from_file</strong>  => <a href='../interface/io_read_param_in.html'>io_read_param_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~3"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_param.html'>io_read_in_param</a> 
     
   </h3></div>
   
@@ -1598,11 +1632,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_param_in(self, param_file_name)
+public module subroutine io_read_in_param(self, param_file_name)
     
     
    
-   <a href='../proc/io_read_param_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_param.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/symba_particle_info.html b/docs/type/symba_particle_info.html
deleted file mode 100644
index cb63a8207..000000000
--- a/docs/type/symba_particle_info.html
+++ /dev/null
@@ -1,553 +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_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_particle_info
-    <small>Derived Type</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="<p> 1.3% of total for derived types.</p>Including implementation: 7 statements,  1.0% of total for derived types.">7 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_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>
- 
-
-
-
-<div class="panel panel-primary">
-  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#vars-0">Variables</a></h3></div>
-  <div id="vars-0" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <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>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_xh">origin_xh</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_vh">origin_vh</a>
-      
-    </div>
-  </div>
-</div>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-</div>
-
-    </div>
-    
-    <div class="col-md-9" id='text'>
-      <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">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="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~~InheritedByGraph_node1" class="node">
-<title>type~symba_particle_info</title>
-<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~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_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>
-<!-- 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>
-<!-- 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_node4" class="node">
-<title>type~symba_pl</title>
-<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_edge2" class="edge">
-<title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<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_node5" class="node">
-<title>type~symba_merger</title>
-<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_edge4" class="edge">
-<title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<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_node6" class="node">
-<title>type~symba_nbody_system</title>
-<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_edge5" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<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>
-</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>
-</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>
-</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>
-    
-    <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="#vars-1">Variables</a></h3></div>
-  <div id="vars-1" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <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>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_xh">origin_xh</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_vh">origin_vh</a>
-      
-    </div>
-  </div>
-</div>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-    </section>
-    <br class="visible-xs visible-sm hidden-md">
-
-    
-    <section>
-    <h2>Components</h2>
-    
-<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>
-
-    </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/type/symba_pl.html b/docs/type/symba_pl.html
index ab3de72c6..4db60172f 100644
--- a/docs/type/symba_pl.html
+++ b/docs/type/symba_pl.html
@@ -134,7 +134,7 @@ <h1>symba_pl
      <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> 4.5% of total for derived types.</p>Including implementation: 33 statements,  3.7% of total for derived types.">33 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/symba_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#variable-id~2">id</a>
       
@@ -283,8 +281,6 @@ <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~2">info</a>
-      
     </div>
   </div>
 </div>
@@ -313,15 +309,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_particle_info~12">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -331,9 +335,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_ir3">set_ir3</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-eucl_index">eucl_index</a>
-      
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_int~2">accel_int</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame~13">write_frame</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_obl~2">accel_obl</a>
       
@@ -343,16 +345,18 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_mu~3">set_mu</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_rhill">set_rhill</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vh2vb">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vb2vh">vb2vh</a>
-      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-lindrift">lindrift</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_gr~3">accel_gr</a>
@@ -363,7 +367,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-step~5">step</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-make_family">make_family</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-make_colliders">make_colliders</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-index~3">index</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-discard~5">discard</a>
       
@@ -371,9 +377,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-encounter_check~2">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel~6">accel</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_int~3">accel_int</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel~7">accel</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-setup~6">setup</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-setup~7">setup</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-append~6">append</a>
       
@@ -383,6 +391,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-rearray">rearray</a>
       
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-reset_kinship">reset_kinship</a>
+      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-resize~6">resize</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-sort~6">sort</a>
@@ -419,108 +429,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="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)">
+<svg id="typesymba_plInheritsGraph" width="575pt" height="95pt"
+ viewBox="0.00 0.00 575.00 95.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 91)">
 <title>type~~symba_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 549,-112 549,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-91 571,-91 571,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="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>
+<polygon fill="none" stroke="black" points="567,-36 509,-36 509,-12 567,-12 567,-36"/>
+<text text-anchor="middle" x="538" y="-21.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pl</text>
 </g>
 <!-- type~helio_pl -->
 <g id="type~~symba_pl~~InheritsGraph_node2" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="445.5,-66 391.5,-66 391.5,-42 445.5,-42 445.5,-66"/>
+<text text-anchor="middle" x="418.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~symba_pl~~InheritsGraph_edge3" class="edge">
+<g id="type~~symba_pl~~InheritsGraph_edge2" 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"/>
+<path fill="none" stroke="#000000" d="M508.86,-31.19C493,-35.23 473.02,-40.34 455.97,-44.69"/>
+<polygon fill="#000000" stroke="#000000" points="454.63,-41.42 445.8,-47.28 456.36,-48.2 454.63,-41.42"/>
 </g>
 <!-- type~symba_kinship -->
 <g id="type~~symba_pl~~InheritsGraph_node3" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="460,-24 377,-24 377,0 460,0 460,-24"/>
+<text text-anchor="middle" x="418.5" y="-9.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~~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="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="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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M508.86,-21.13C497.28,-19.94 483.5,-18.54 470.27,-17.19"/>
+<polygon fill="#000000" stroke="#000000" points="470.61,-13.7 460.31,-16.17 469.9,-20.67 470.61,-13.7"/>
+<text text-anchor="middle" x="484.5" y="-22.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~symba_pl~~InheritsGraph_node5" class="node">
+<g id="type~~symba_pl~~InheritsGraph_node4" 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,-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>
+<g id="a_type~~symba_pl~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340,-66 278,-66 278,-42 340,-42 340,-66"/>
+<text text-anchor="middle" x="309" y="-51.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">
+<g id="type~~symba_pl~~InheritsGraph_edge3" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M391.48,-54C379.2,-54 364.26,-54 350.54,-54"/>
+<polygon fill="#000000" stroke="#000000" points="350.36,-50.5 340.36,-54 350.36,-57.5 350.36,-50.5"/>
 </g>
 <!-- type~swiftest_body -->
-<g id="type~~symba_pl~~InheritsGraph_node6" class="node">
+<g id="type~~symba_pl~~InheritsGraph_node5" class="node">
 <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>
+<g id="a_type~~symba_pl~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-66 164,-66 164,-42 241,-42 241,-66"/>
+<text text-anchor="middle" x="202.5" y="-51.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~~symba_pl~~InheritsGraph_edge5" class="edge">
+<g id="type~~symba_pl~~InheritsGraph_edge4" class="edge">
 <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"/>
+<path fill="none" stroke="#000000" d="M277.77,-54C269.45,-54 260.22,-54 251.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="251.09,-50.5 241.09,-54 251.09,-57.5 251.09,-50.5"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~symba_pl~~InheritsGraph_node7" class="node">
+<g id="type~~symba_pl~~InheritsGraph_node6" class="node">
 <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>
+<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="94.5,-87 17.5,-87 17.5,-63 94.5,-63 94.5,-87"/>
+<text text-anchor="middle" x="56" y="-72.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_pl~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M163.91,-59.46C145.84,-62.09 123.97,-65.27 104.73,-68.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-64.63 94.65,-69.53 105.05,-71.55 104.04,-64.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~symba_pl~~InheritsGraph_node7" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~symba_pl~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" 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" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~symba_pl~~InheritsGraph_edge5" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-48.54C151.19,-46.69 136.6,-44.57 122.36,-42.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-38.98 112.09,-41.01 121.48,-45.91 122.49,-38.98"/>
+<text text-anchor="middle" x="138" y="-48.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -670,13 +680,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/symba_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#variable-id~2">id</a>
       
@@ -774,8 +782,6 @@ <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~2">info</a>
-      
     </div>
   </div>
 </div>
@@ -804,15 +810,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_particle_info~12">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -822,9 +836,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_ir3">set_ir3</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-eucl_index">eucl_index</a>
-      
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_int~2">accel_int</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-write_frame~13">write_frame</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_obl~2">accel_obl</a>
       
@@ -834,16 +846,18 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_mu~3">set_mu</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-set_rhill">set_rhill</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vh2vb">vh2vb</a>
-      
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-vb2vh">vb2vh</a>
-      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-lindrift">lindrift</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_gr~3">accel_gr</a>
@@ -854,7 +868,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-step~5">step</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-make_family">make_family</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-make_colliders">make_colliders</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-index~3">index</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-discard~5">discard</a>
       
@@ -862,9 +878,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-encounter_check~2">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel~6">accel</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel_int~3">accel_int</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-setup~6">setup</a>
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-accel~7">accel</a>
+      
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-setup~7">setup</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-append~6">append</a>
       
@@ -874,6 +892,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-rearray">rearray</a>
       
+      <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-reset_kinship">reset_kinship</a>
+      
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-resize~6">resize</a>
       
       <a class="list-group-item" href="../type/symba_pl.html#boundprocedure-sort~6">sort</a>
@@ -910,20 +930,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-lfirst"></span>logical,</td>
@@ -954,11 +960,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -1042,7 +1048,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -1056,7 +1062,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1638,20 +1644,6 @@ <h2>Components</h2>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <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>
-  <td><strong>info</strong></td><td></td><td></td><td></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1669,10 +1661,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1686,11 +1685,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1755,7 +1754,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1763,7 +1762,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1779,11 +1778,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1807,12 +1806,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1823,11 +1822,26 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1848,7 +1862,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1856,7 +1870,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1872,11 +1886,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1900,12 +1914,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1941,7 +1970,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1949,7 +1978,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1965,11 +1994,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1993,12 +2022,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2008,12 +2037,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -2034,7 +2063,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~12"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -2042,7 +2106,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -2058,11 +2122,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2091,22 +2155,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2117,41 +2166,11 @@ <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></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</p></td>
   
 </tr>
 
@@ -2172,7 +2191,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
     
   </h3></div>
   
@@ -2180,7 +2199,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -2196,11 +2215,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_pv2vh_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2225,26 +2244,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2280,7 +2284,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -2288,7 +2292,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -2304,11 +2308,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2347,12 +2351,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2373,7 +2377,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -2381,7 +2385,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2397,11 +2401,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2440,12 +2444,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></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>
 
@@ -2456,6 +2475,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2466,7 +2494,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2474,7 +2502,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2490,11 +2518,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2519,11 +2547,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2533,12 +2561,12 @@ <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>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody_system_object</p></td>
+  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
   
 </tr>
 
@@ -2557,18 +2585,81 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2578,12 +2669,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in)</td>
+  <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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2604,7 +2695,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
     
   </h3></div>
   
@@ -2612,7 +2703,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Convert position and velocity vectors to orbital  elements </p>
   </div>
   
   <ul class="list-group">
@@ -2628,11 +2719,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine orbel_xv2el_vec(self, cb)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2665,6 +2756,21 @@ <h4>Arguments</h4>
   
 </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>
 
@@ -2682,7 +2788,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-eucl_index"></span><h3>procedure, public :: <strong>eucl_index</strong>  => <a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
     
   </h3></div>
   
@@ -2690,7 +2796,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+    <p>Add user-supplied heliocentric accelerations to planets</p>
   </div>
   
   <ul class="list-group">
@@ -2706,11 +2812,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2734,12 +2840,72 @@ <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(<a href='../type/swiftest_body.html'>swiftest_body</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>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
   
 </tr>
 
@@ -2760,7 +2926,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
     
   </h3></div>
   
@@ -2768,7 +2934,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
   </div>
   
   <ul class="list-group">
@@ -2784,11 +2950,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine util_set_ir3h(self)
     
     
    
-   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2812,12 +2978,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(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
   
 </tr>
 
@@ -2830,6 +2996,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~13"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
@@ -3210,7 +3441,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_beg_end"></span><h3>procedure, public :: <strong>set_beg_end</strong>  => <a href='../interface/util_set_beg_end_pl.html'>util_set_beg_end_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
     
   </h3></div>
   
@@ -3218,7 +3449,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the beginning and ending positions and velocities of planets.</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -3234,11 +3465,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/util_set_beg_end_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3277,27 +3508,90 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></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="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_vb2vh_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_coord_vb2vh_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>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -3307,12 +3601,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3333,7 +3627,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu~3"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_pl.html'>util_set_mu_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
     
   </h3></div>
   
@@ -3341,7 +3635,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Method used to construct the vectorized form of the central body mass</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -3357,11 +3651,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_mu_pl(self, cb)
+public module subroutine util_coord_xh2xb_pl(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_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3426,7 +3720,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_rhill"></span><h3>procedure, public :: <strong>set_rhill</strong>  => <a href='../interface/util_set_rhill.html'>util_set_rhill</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_beg_end"></span><h3>procedure, public :: <strong>set_beg_end</strong>  => <a href='../interface/util_set_beg_end_pl.html'>util_set_beg_end_pl</a> 
     
   </h3></div>
   
@@ -3434,7 +3728,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Calculates the Hill's radii for each body</p>
+    <p>Sets the beginning and ending positions and velocities of planets.</p>
   </div>
   
   <ul class="list-group">
@@ -3450,11 +3744,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_rhill(self, cb)
+public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg)
     
     
    
-   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_beg_end_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3493,12 +3787,42 @@ <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></td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xbeg</strong></td><td><p>Position vectors at beginning of step</p></td>
+  
+</tr>
+
+  
   
-  <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xend</strong></td><td><p>Positions vectors at end of step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vbeg</strong></td><td><p>vbeg is an unused variable to keep this method forward compatible with RMVS</p></td>
   
 </tr>
 
@@ -3519,7 +3843,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/helio_coord_vh2vb_pl.html'>helio_coord_vh2vb_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu~3"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_pl.html'>util_set_mu_pl</a> 
     
   </h3></div>
   
@@ -3527,7 +3851,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
+    <p>Method used to construct the vectorized form of the central body mass</p>
   </div>
   
   <ul class="list-group">
@@ -3543,11 +3867,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_coord_vh2vb_pl(self, cb)
+public module subroutine util_set_mu_pl(self, cb)
     
     
    
-   <a href='../proc/helio_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_mu_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3571,12 +3895,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_pl.html'>helio_pl</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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -3612,7 +3936,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/helio_coord_vb2vh_pl.html'>helio_coord_vb2vh_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_rhill"></span><h3>procedure, public :: <strong>set_rhill</strong>  => <a href='../interface/util_set_rhill.html'>util_set_rhill</a> 
     
   </h3></div>
   
@@ -3620,7 +3944,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
+    <p>Calculates the Hill's radii for each body</p>
   </div>
   
   <ul class="list-group">
@@ -3636,11 +3960,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_coord_vb2vh_pl(self, cb)
+public module subroutine util_set_rhill(self, cb)
     
     
    
-   <a href='../proc/helio_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3664,12 +3988,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_pl.html'>helio_pl</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>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -4320,7 +4644,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-make_family"></span><h3>procedure, public :: <strong>make_family</strong>  => <a href='../interface/symba_collision_make_family_pl.html'>symba_collision_make_family_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-make_colliders"></span><h3>procedure, public :: <strong>make_colliders</strong>  => <a href='../interface/symba_collision_make_colliders_pl.html'>symba_collision_make_colliders_pl</a> 
     
   </h3></div>
   
@@ -4344,11 +4668,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_collision_make_family_pl(self, idx)
+public module subroutine symba_collision_make_colliders_pl(self, idx)
     
     
    
-   <a href='../proc/symba_collision_make_family_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_make_colliders_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4405,6 +4729,99 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~3"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/symba_util_index_eucl_plpl.html'>symba_util_index_eucl_plpl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/symba_util_index_eucl_plpl.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_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body 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>
@@ -4776,7 +5193,85 @@ <h4>Return Value <small>logical
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~6"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/symba_kick_getacch_pl.html'>symba_kick_getacch_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~3"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/symba_kick_getacch_int_pl.html'>symba_kick_getacch_int_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodiess, with no mutual interactions between bodies below GMTINY</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_kick_getacch_int_pl(self)
+    
+    
+   
+   <a href='../proc/symba_kick_getacch_int_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/symba_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~7"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/symba_kick_getacch_pl.html'>symba_kick_getacch_pl</a> 
     
   </h3></div>
   
@@ -4914,7 +5409,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~6"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_pl.html'>symba_setup_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~7"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_pl.html'>symba_setup_pl</a> 
     
   </h3></div>
   
@@ -5429,7 +5924,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -5446,6 +5941,99 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reset_kinship"></span><h3>procedure, public :: <strong>reset_kinship</strong>  => <a href='../interface/symba_util_reset_kinship.html'>symba_util_reset_kinship</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Resets the kinship status of bodies</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_reset_kinship(self, idx)
+    
+    
+   
+   <a href='../proc/symba_util_reset_kinship.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_pl.html'>symba_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA massive body object</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>idx</strong></td><td><p>Index array of bodies to reset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/symba_plplenc.html b/docs/type/symba_plplenc.html
index ca74d31df..321e35161 100644
--- a/docs/type/symba_plplenc.html
+++ b/docs/type/symba_plplenc.html
@@ -134,7 +134,7 @@ <h1>symba_plplenc
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.1% of total for derived types.</p>Including implementation: 6 statements,  0.9% of total for derived types.">6 statements</a>
+    title="<p> 1.0% of total for derived types.</p>Including implementation: 7 statements,  0.8% of total for derived types.">7 statements</a>
      </li> 
      
      
@@ -185,10 +185,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-status~2">status</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-kidx">kidx</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-index1">index1</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-index2">index2</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-id2">id2</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-x1">x1</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-x2">x2</a>
@@ -197,6 +203,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-v2">v2</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-t~2">t</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-level">level</a>
       
     </div>
@@ -225,26 +233,32 @@ <h3>Contents</h3>
   <div id="boundprocs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-copy">copy</a>
-      
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resize~9">resize</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-write">write</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-collision_check">collision_check</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-encounter_check~4">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-kick~5">kick</a>
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-kick~6">kick</a>
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-setup~9">setup</a>
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-setup~10">setup</a>
+      
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-copy">copy</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-spill~8">spill</a>
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-scrub_non_collision">scrub_non_collision</a>
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-append~9">append</a>
+      
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-extract_collisions">extract_collisions</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resolve_fragmentations">resolve_fragmentations</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resolve_mergers">resolve_mergers</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resolve_collision~2">resolve_collision</a>
+      
     </div>
   </div>
 </div>
@@ -258,7 +272,7 @@ <h3>Contents</h3>
     </div>
     
     <div class="col-md-9" id='text'>
-      <h2>type, public, extends(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>) :: symba_plplenc</h2>
+      <h2>type, public, extends(<a href='../type/symba_encounter.html'>symba_encounter</a>) :: symba_plplenc</h2>
     <p>SyMBA class for tracking pl-pl close encounters in a step</p>
     <br>
     
@@ -273,31 +287,31 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_plplenc~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_plplencInheritsGraph" width="351pt" height="32pt"
- viewBox="0.00 0.00 351.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_plplencInheritsGraph" width="364pt" height="32pt"
+ viewBox="0.00 0.00 364.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_plplenc~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_plplenc~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 347,-28 347,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 360,-28 360,4 -4,4"/>
 <!-- type~symba_plplenc -->
 <g id="type~~symba_plplenc~~InheritsGraph_node1" class="node">
 <title>type~symba_plplenc</title>
-<polygon fill="none" stroke="black" points="343,-24 259,-24 259,0 343,0 343,-24"/>
-<text text-anchor="middle" x="301" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_plplenc</text>
+<polygon fill="none" stroke="black" points="356,-24 272,-24 272,0 356,0 356,-24"/>
+<text text-anchor="middle" x="314" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_plplenc</text>
 </g>
-<!-- type~symba_pltpenc -->
+<!-- type~symba_encounter -->
 <g id="type~~symba_plplenc~~InheritsGraph_node2" class="node">
-<title>type~symba_pltpenc</title>
-<g id="a_type~~symba_plplenc~~InheritsGraph_node2"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="223,-24 138,-24 138,0 223,0 223,-24"/>
-<text text-anchor="middle" x="180.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
+<title>type~symba_encounter</title>
+<g id="a_type~~symba_plplenc~~InheritsGraph_node2"><a xlink:href=".././type/symba_encounter.html" xlink:title="symba_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="236,-24 138,-24 138,0 236,0 236,-24"/>
+<text text-anchor="middle" x="187" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
+<!-- type~symba_plplenc&#45;&gt;type~symba_encounter -->
 <g id="type~~symba_plplenc~~InheritsGraph_edge1" class="edge">
-<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" d="M258.89,-12C250.71,-12 242.03,-12 233.55,-12"/>
-<polygon fill="#000000" stroke="#000000" points="233.34,-8.5 223.34,-12 233.34,-15.5 233.34,-8.5"/>
+<title>type~symba_plplenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M271.72,-12C263.55,-12 254.82,-12 246.2,-12"/>
+<polygon fill="#000000" stroke="#000000" points="246.17,-8.5 236.17,-12 246.17,-15.5 246.17,-8.5"/>
 </g>
 <!-- type~swiftest_encounter -->
 <g id="type~~symba_plplenc~~InheritsGraph_node3" class="node">
@@ -308,11 +322,11 @@ <h3 class="panel-title">Inherits</h3>
 </a>
 </g>
 </g>
-<!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
+<!-- type~symba_encounter&#45;&gt;type~swiftest_encounter -->
 <g id="type~~symba_plplenc~~InheritsGraph_edge2" class="edge">
-<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
-<path fill="none" stroke="#000000" d="M137.75,-12C129.61,-12 120.92,-12 112.31,-12"/>
-<polygon fill="#000000" stroke="#000000" points="112.29,-8.5 102.29,-12 112.29,-15.5 112.29,-8.5"/>
+<title>type~symba_encounter&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M137.62,-12C129.42,-12 120.8,-12 112.33,-12"/>
+<polygon fill="#000000" stroke="#000000" points="112.11,-8.5 102.11,-12 112.11,-15.5 112.11,-8.5"/>
 </g>
 </g>
 </svg>
@@ -366,11 +380,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_plplenc~~InheritedByGraph Pages: 1 -->
-<svg id="typesymba_plplencInheritedByGraph" width="295pt" height="32pt"
- viewBox="0.00 0.00 295.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_plplencInheritedByGraph" width="367pt" height="32pt"
+ viewBox="0.00 0.00 367.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_plplenc~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_plplenc~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 291,-28 291,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 363,-28 363,4 -4,4"/>
 <!-- type~symba_plplenc -->
 <g id="type~~symba_plplenc~~InheritedByGraph_node1" class="node">
 <title>type~symba_plplenc</title>
@@ -381,17 +395,17 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~symba_plplenc~~InheritedByGraph_node2" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~symba_plplenc~~InheritedByGraph_node2"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="287,-24 168,-24 168,0 287,0 287,-24"/>
-<text text-anchor="middle" x="227.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="359,-24 240,-24 240,0 359,0 359,-24"/>
+<text text-anchor="middle" x="299.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_plplenc -->
 <g id="type~~symba_plplenc~~InheritedByGraph_edge1" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M167.93,-12C144.29,-12 117.24,-12 94.37,-12"/>
-<polygon fill="#000000" stroke="#000000" points="94.18,-8.5 84.18,-12 94.18,-15.5 94.18,-8.5"/>
-<text text-anchor="middle" x="126" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.88,-12C195.92,-12 136.33,-12 94.26,-12"/>
+<polygon fill="#000000" stroke="#000000" points="94.22,-8.5 84.22,-12 94.22,-15.5 94.22,-8.5"/>
+<text text-anchor="middle" x="162" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list, plplcollision_list</text>
 </g>
 </g>
 </svg>
@@ -453,10 +467,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-status~2">status</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-kidx">kidx</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-index1">index1</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-index2">index2</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-id2">id2</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-x1">x1</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-x2">x2</a>
@@ -465,6 +485,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-v2">v2</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#variable-t~2">t</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#variable-level">level</a>
       
     </div>
@@ -493,26 +515,32 @@ <h3>Contents</h3>
   <div id="boundprocs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-copy">copy</a>
-      
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resize~9">resize</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-write">write</a>
+      
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-collision_check">collision_check</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-encounter_check~4">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-kick~5">kick</a>
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-kick~6">kick</a>
+      
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-setup~10">setup</a>
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-setup~9">setup</a>
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-copy">copy</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-spill~8">spill</a>
       
-      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-scrub_non_collision">scrub_non_collision</a>
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-append~9">append</a>
+      
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-extract_collisions">extract_collisions</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resolve_fragmentations">resolve_fragmentations</a>
       
       <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resolve_mergers">resolve_mergers</a>
       
+      <a class="list-group-item" href="../type/symba_plplenc.html#boundprocedure-resolve_collision~2">resolve_collision</a>
+      
     </div>
   </div>
 </div>
@@ -583,6 +611,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
@@ -611,6 +653,34 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
@@ -667,6 +737,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-level"></span>integer(kind=I4B),</td>
@@ -694,7 +778,7 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/util_copy_encounter.html'>util_copy_encounter</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resize~9"></span><h3>procedure, public :: <strong>resize</strong>  => <a href='../interface/util_resize_encounter.html'>util_resize_encounter</a> 
     
   </h3></div>
   
@@ -702,7 +786,7 @@ <h2>Type-Bound Procedures</h2>
     
 
 
-    <p>Copies elements from the source encounter list into self.</p>
+    <p>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.</p>
   </div>
   
   <ul class="list-group">
@@ -718,11 +802,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_copy_encounter(self, source)
+public module subroutine util_resize_encounter(self, nnew)
     
     
    
-   <a href='../proc/util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_resize_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -751,7 +835,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
   
 </tr>
 
@@ -761,12 +845,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  <td><strong>nnew</strong></td><td><p>New size of list needed</p></td>
   
 </tr>
 
@@ -787,7 +871,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resize~9"></span><h3>procedure, public :: <strong>resize</strong>  => <a href='../interface/util_resize_encounter.html'>util_resize_encounter</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write"></span><h3>procedure, public :: <strong>write</strong>  => <a href='../interface/io_write_encounter.html'>io_write_encounter</a> 
     
   </h3></div>
   
@@ -795,7 +879,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>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.</p>
+    <p>Write close encounter data to output binary file</p>
   </div>
   
   <ul class="list-group">
@@ -811,11 +895,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_resize_encounter(self, nnew)
+public module subroutine io_write_encounter(self, pl, encbody, param)
     
     
    
-   <a href='../proc/util_resize_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -840,11 +924,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
   
 </tr>
 
@@ -854,12 +938,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size of list needed</p></td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </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>
 
@@ -880,7 +994,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-collision_check"></span><h3>procedure, public :: <strong>collision_check</strong>  => <a href='../interface/symba_collision_check_pltpenc.html'>symba_collision_check_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-collision_check"></span><h3>procedure, public :: <strong>collision_check</strong>  => <a href='../interface/symba_collision_check_encounter.html'>symba_collision_check_encounter</a> 
     
   </h3></div>
   
@@ -904,11 +1018,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec)
+public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
     
     
    
-   <a href='../proc/symba_collision_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_check_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -932,7 +1046,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1023,6 +1137,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if cany pair of encounters resulted in a collision n</p>
+    
+
         
       
       </li>
@@ -1033,7 +1156,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-encounter_check~4"></span><h3>procedure, public :: <strong>encounter_check</strong>  => <a href='../interface/symba_encounter_check_pltpenc.html'>symba_encounter_check_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-encounter_check~4"></span><h3>procedure, public :: <strong>encounter_check</strong>  => <a href='../interface/symba_encounter_check.html'>symba_encounter_check</a> 
     
   </h3></div>
   
@@ -1057,11 +1180,11 @@ <h3>interface
           
     
     <h3>
-public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter)
+public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
     
     
    
-   <a href='../proc/symba_encounter_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_encounter_check.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1085,7 +1208,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1165,7 +1288,7 @@ <h4>Return Value <small>logical
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~5"></span><h3>procedure, public :: <strong>kick</strong>  => <a href='../interface/symba_kick_pltpenc.html'>symba_kick_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~6"></span><h3>procedure, public :: <strong>kick</strong>  => <a href='../interface/symba_kick_encounter.html'>symba_kick_encounter</a> 
     
   </h3></div>
   
@@ -1189,11 +1312,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
+public module subroutine symba_kick_encounter(self, system, dt, irec, sgn)
     
     
    
-   <a href='../proc/symba_kick_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_kick_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1217,7 +1340,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -1303,7 +1426,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~9"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_pltpenc.html'>symba_setup_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~10"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_encounter.html'>symba_setup_encounter</a> 
     
   </h3></div>
   
@@ -1327,11 +1450,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_setup_pltpenc(self, n)
+public module subroutine symba_setup_encounter(self, n)
     
     
    
-   <a href='../proc/symba_setup_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_setup_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1355,7 +1478,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1396,7 +1519,100 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-spill~8"></span><h3>procedure, public :: <strong>spill</strong>  => <a href='../interface/symba_util_spill_pltpenc.html'>symba_util_spill_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/symba_util_copy_encounter.html'>symba_util_copy_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Copies elements from the source encounter list into self.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_copy_encounter(self, source)
+    
+    
+   
+   <a href='../proc/symba_util_copy_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-spill~8"></span><h3>procedure, public :: <strong>spill</strong>  => <a href='../interface/symba_util_spill_encounter.html'>symba_util_spill_encounter</a> 
     
   </h3></div>
   
@@ -1420,11 +1636,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+public module subroutine symba_util_spill_encounter(self, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/symba_util_spill_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1448,7 +1664,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1519,7 +1735,115 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-scrub_non_collision"></span><h3>procedure, public :: <strong>scrub_non_collision</strong>  => <a href='../interface/symba_collision_encounter_scrub.html'>symba_collision_encounter_scrub</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~9"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/symba_util_append_encounter.html'>symba_util_append_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Appends elements from one structure to another</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_append_encounter(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/symba_util_append_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-extract_collisions"></span><h3>procedure, public :: <strong>extract_collisions</strong>  => <a href='../interface/symba_collision_encounter_extract_collisions.html'>symba_collision_encounter_extract_collisions</a> 
     
   </h3></div>
   
@@ -1543,11 +1867,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_collision_encounter_scrub(self, system, param)
+public module subroutine symba_collision_encounter_extract_collisions(self, system, param)
     
     
    
-   <a href='../proc/symba_collision_encounter_scrub.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_encounter_extract_collisions.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1606,7 +1930,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameterss</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -1710,7 +2034,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1818,7 +2142,7 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1835,6 +2159,159 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resolve_collision~2"></span><h3>procedure, public :: <strong>resolve_collision</strong>  => <a href='../interface/symba_collision_resolve_plplenc.html'>symba_collision_resolve_plplenc</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Process the pl-pl collision list, then modifiy the massive bodies based on the outcome of the c</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, irec)
+    
+    
+   
+   <a href='../proc/symba_collision_resolve_plplenc.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_plplenc.html'>symba_plplenc</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-pl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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/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 with SyMBA additions</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>t</strong></td><td><p>Current simulation 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>dt</strong></td><td><p>Current simulation step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/symba_pltpenc.html b/docs/type/symba_pltpenc.html
index 7ea9a0e3e..f40b936d8 100644
--- a/docs/type/symba_pltpenc.html
+++ b/docs/type/symba_pltpenc.html
@@ -134,7 +134,7 @@ <h1>symba_pltpenc
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.7% of total for derived types.</p>Including implementation: 9 statements,  1.3% of total for derived types.">9 statements</a>
+    title="<p> 0.5% of total for derived types.</p>Including implementation: 4 statements,  0.4% of total for derived types.">4 statements</a>
      </li> 
      
      
@@ -185,10 +185,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-status~2">status</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-kidx">kidx</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-index1">index1</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-index2">index2</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-id2">id2</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-x1">x1</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-x2">x2</a>
@@ -197,6 +203,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-v2">v2</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-t~2">t</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-level">level</a>
       
     </div>
@@ -225,20 +233,26 @@ <h3>Contents</h3>
   <div id="boundprocs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-copy">copy</a>
-      
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-resize~9">resize</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-write">write</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-collision_check">collision_check</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-encounter_check~4">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-kick~5">kick</a>
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-kick~6">kick</a>
       
-      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-setup~9">setup</a>
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-setup~10">setup</a>
+      
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-copy">copy</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-spill~8">spill</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-append~9">append</a>
+      
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-resolve_collision">resolve_collision</a>
+      
     </div>
   </div>
 </div>
@@ -252,7 +266,7 @@ <h3>Contents</h3>
     </div>
     
     <div class="col-md-9" id='text'>
-      <h2>type, public, extends(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>) :: symba_pltpenc</h2>
+      <h2>type, public, extends(<a href='../type/symba_encounter.html'>symba_encounter</a>) :: symba_pltpenc</h2>
     <p>SyMBA class for tracking pl-tp close encounters in a step</p>
     <br>
     
@@ -267,31 +281,46 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_pltpenc~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_pltpencInheritsGraph" width="231pt" height="32pt"
- viewBox="0.00 0.00 231.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_pltpencInheritsGraph" width="365pt" height="32pt"
+ viewBox="0.00 0.00 365.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_pltpenc~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_pltpenc~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 227,-28 227,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 361,-28 361,4 -4,4"/>
 <!-- type~symba_pltpenc -->
 <g id="type~~symba_pltpenc~~InheritsGraph_node1" class="node">
 <title>type~symba_pltpenc</title>
-<polygon fill="none" stroke="black" points="223,-24 138,-24 138,0 223,0 223,-24"/>
-<text text-anchor="middle" x="180.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pltpenc</text>
+<polygon fill="none" stroke="black" points="357,-24 272,-24 272,0 357,0 357,-24"/>
+<text text-anchor="middle" x="314.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pltpenc</text>
 </g>
-<!-- type~swiftest_encounter -->
+<!-- type~symba_encounter -->
 <g id="type~~symba_pltpenc~~InheritsGraph_node2" class="node">
+<title>type~symba_encounter</title>
+<g id="a_type~~symba_pltpenc~~InheritsGraph_node2"><a xlink:href=".././type/symba_encounter.html" xlink:title="symba_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="236,-24 138,-24 138,0 236,0 236,-24"/>
+<text text-anchor="middle" x="187" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter</text>
+</a>
+</g>
+</g>
+<!-- type~symba_pltpenc&#45;&gt;type~symba_encounter -->
+<g id="type~~symba_pltpenc~~InheritsGraph_edge1" class="edge">
+<title>type~symba_pltpenc&#45;&gt;type~symba_encounter</title>
+<path fill="none" stroke="#000000" d="M271.71,-12C263.51,-12 254.77,-12 246.15,-12"/>
+<polygon fill="#000000" stroke="#000000" points="246.12,-8.5 236.12,-12 246.12,-15.5 246.12,-8.5"/>
+</g>
+<!-- type~swiftest_encounter -->
+<g id="type~~symba_pltpenc~~InheritsGraph_node3" class="node">
 <title>type~swiftest_encounter</title>
-<g id="a_type~~symba_pltpenc~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
+<g id="a_type~~symba_pltpenc~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="102,-24 0,-24 0,0 102,0 102,-24"/>
 <text text-anchor="middle" x="51" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
-<g id="type~~symba_pltpenc~~InheritsGraph_edge1" class="edge">
-<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
-<path fill="none" stroke="#000000" d="M137.75,-12C129.61,-12 120.92,-12 112.31,-12"/>
-<polygon fill="#000000" stroke="#000000" points="112.29,-8.5 102.29,-12 112.29,-15.5 112.29,-8.5"/>
+<!-- type~symba_encounter&#45;&gt;type~swiftest_encounter -->
+<g id="type~~symba_pltpenc~~InheritsGraph_edge2" class="edge">
+<title>type~symba_encounter&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M137.62,-12C129.42,-12 120.8,-12 112.33,-12"/>
+<polygon fill="#000000" stroke="#000000" points="112.11,-8.5 102.11,-12 112.11,-15.5 112.11,-8.5"/>
 </g>
 </g>
 </svg>
@@ -345,54 +374,32 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_pltpenc~~InheritedByGraph Pages: 1 -->
-<svg id="typesymba_pltpencInheritedByGraph" width="417pt" height="80pt"
- viewBox="0.00 0.00 417.00 80.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_pltpenc~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 76)">
+<svg id="typesymba_pltpencInheritedByGraph" width="297pt" height="32pt"
+ viewBox="0.00 0.00 297.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_pltpenc~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_pltpenc~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-76 413,-76 413,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 293,-28 293,4 -4,4"/>
 <!-- type~symba_pltpenc -->
 <g id="type~~symba_pltpenc~~InheritedByGraph_node1" class="node">
 <title>type~symba_pltpenc</title>
-<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>
+<polygon fill="none" stroke="black" points="85,-24 0,-24 0,0 85,0 85,-24"/>
+<text text-anchor="middle" x="42.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pltpenc</text>
 </g>
 <!-- type~symba_nbody_system -->
 <g id="type~~symba_pltpenc~~InheritedByGraph_node2" class="node">
 <title>type~symba_nbody_system</title>
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="289,-24 170,-24 170,0 289,0 289,-24"/>
+<text text-anchor="middle" x="229.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_pltpenc -->
 <g id="type~~symba_pltpenc~~InheritedByGraph_edge1" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
-<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>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.93,-28.34C266.29,-25.25 239.24,-21.71 216.37,-18.72"/>
-<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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.96,-12C145.99,-12 118.48,-12 95.25,-12"/>
+<polygon fill="#000000" stroke="#000000" points="95.25,-8.5 85.25,-12 95.25,-15.5 95.25,-8.5"/>
+<text text-anchor="middle" x="127.5" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </g>
 </g>
 </svg>
@@ -454,10 +461,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-status~2">status</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-kidx">kidx</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-index1">index1</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-index2">index2</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-id1">id1</a>
+      
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-id2">id2</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-x1">x1</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-x2">x2</a>
@@ -466,6 +479,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-v2">v2</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#variable-t~2">t</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#variable-level">level</a>
       
     </div>
@@ -494,20 +509,26 @@ <h3>Contents</h3>
   <div id="boundprocs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-copy">copy</a>
-      
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-resize~9">resize</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-write">write</a>
+      
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-collision_check">collision_check</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-encounter_check~4">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-kick~5">kick</a>
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-kick~6">kick</a>
+      
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-setup~10">setup</a>
       
-      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-setup~9">setup</a>
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-copy">copy</a>
       
       <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-spill~8">spill</a>
       
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-append~9">append</a>
+      
+      <a class="list-group-item" href="../type/symba_pltpenc.html#boundprocedure-resolve_collision">resolve_collision</a>
+      
     </div>
   </div>
 </div>
@@ -578,6 +599,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-kidx"></span>integer(kind=I8B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>kidx</strong></td><td></td><td></td><td><p>index value of the encounter from the master k_plpl encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-index1"></span>integer(kind=I4B),</td>
@@ -606,6 +641,34 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-id1"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id1</strong></td><td></td><td></td><td><p>id of the first body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id2"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>id2</strong></td><td></td><td></td><td><p>id of the second body in the encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-x1"></span>real(kind=DP),</td>
@@ -662,6 +725,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-t~2"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>t</strong></td><td></td><td></td><td><p>Time of encounter</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-level"></span>integer(kind=I4B),</td>
@@ -689,7 +766,7 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/util_copy_encounter.html'>util_copy_encounter</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resize~9"></span><h3>procedure, public :: <strong>resize</strong>  => <a href='../interface/util_resize_encounter.html'>util_resize_encounter</a> 
     
   </h3></div>
   
@@ -697,7 +774,7 @@ <h2>Type-Bound Procedures</h2>
     
 
 
-    <p>Copies elements from the source encounter list into self.</p>
+    <p>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.</p>
   </div>
   
   <ul class="list-group">
@@ -713,11 +790,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_copy_encounter(self, source)
+public module subroutine util_resize_encounter(self, nnew)
     
     
    
-   <a href='../proc/util_copy_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_resize_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -746,7 +823,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
   
 </tr>
 
@@ -756,12 +833,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  <td><strong>nnew</strong></td><td><p>New size of list needed</p></td>
   
 </tr>
 
@@ -782,7 +859,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resize~9"></span><h3>procedure, public :: <strong>resize</strong>  => <a href='../interface/util_resize_encounter.html'>util_resize_encounter</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write"></span><h3>procedure, public :: <strong>write</strong>  => <a href='../interface/io_write_encounter.html'>io_write_encounter</a> 
     
   </h3></div>
   
@@ -790,7 +867,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>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.</p>
+    <p>Write close encounter data to output binary file</p>
   </div>
   
   <ul class="list-group">
@@ -806,11 +883,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_resize_encounter(self, nnew)
+public module subroutine io_write_encounter(self, pl, encbody, param)
     
     
    
-   <a href='../proc/util_resize_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -835,11 +912,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest encounter list </p></td>
+  <td><strong>self</strong></td><td><p>Swiftest encounter list object</p></td>
   
 </tr>
 
@@ -849,12 +926,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nnew</strong></td><td><p>New size of list needed</p></td>
+  <td><strong>pl</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>encbody</strong></td><td><p>Encountering body - Swiftest generic body object (pl or tp) </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>
 
@@ -875,7 +982,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-collision_check"></span><h3>procedure, public :: <strong>collision_check</strong>  => <a href='../interface/symba_collision_check_pltpenc.html'>symba_collision_check_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-collision_check"></span><h3>procedure, public :: <strong>collision_check</strong>  => <a href='../interface/symba_collision_check_encounter.html'>symba_collision_check_encounter</a> 
     
   </h3></div>
   
@@ -899,11 +1006,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec)
+public module function symba_collision_check_encounter(self, system, param, t, dt, irec) result(lany_collision)
     
     
    
-   <a href='../proc/symba_collision_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_collision_check_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -927,7 +1034,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1018,6 +1125,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>logical
+  </small></h4>
+  <p>Returns true if cany pair of encounters resulted in a collision n</p>
+    
+
         
       
       </li>
@@ -1028,7 +1144,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-encounter_check~4"></span><h3>procedure, public :: <strong>encounter_check</strong>  => <a href='../interface/symba_encounter_check_pltpenc.html'>symba_encounter_check_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-encounter_check~4"></span><h3>procedure, public :: <strong>encounter_check</strong>  => <a href='../interface/symba_encounter_check.html'>symba_encounter_check</a> 
     
   </h3></div>
   
@@ -1052,11 +1168,11 @@ <h3>interface
           
     
     <h3>
-public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter)
+public module function symba_encounter_check(self, system, dt, irec) result(lany_encounter)
     
     
    
-   <a href='../proc/symba_encounter_check_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_encounter_check.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1080,7 +1196,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1160,7 +1276,7 @@ <h4>Return Value <small>logical
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~5"></span><h3>procedure, public :: <strong>kick</strong>  => <a href='../interface/symba_kick_pltpenc.html'>symba_kick_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-kick~6"></span><h3>procedure, public :: <strong>kick</strong>  => <a href='../interface/symba_kick_encounter.html'>symba_kick_encounter</a> 
     
   </h3></div>
   
@@ -1184,11 +1300,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
+public module subroutine symba_kick_encounter(self, system, dt, irec, sgn)
     
     
    
-   <a href='../proc/symba_kick_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_kick_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1212,7 +1328,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -1298,7 +1414,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~9"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_pltpenc.html'>symba_setup_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~10"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_encounter.html'>symba_setup_encounter</a> 
     
   </h3></div>
   
@@ -1322,11 +1438,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_setup_pltpenc(self, n)
+public module subroutine symba_setup_encounter(self, n)
     
     
    
-   <a href='../proc/symba_setup_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_setup_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1350,7 +1466,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1391,7 +1507,100 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-spill~8"></span><h3>procedure, public :: <strong>spill</strong>  => <a href='../interface/symba_util_spill_pltpenc.html'>symba_util_spill_pltpenc</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-copy"></span><h3>procedure, public :: <strong>copy</strong>  => <a href='../interface/symba_util_copy_encounter.html'>symba_util_copy_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Copies elements from the source encounter list into self.</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_copy_encounter(self, source)
+    
+    
+   
+   <a href='../proc/symba_util_copy_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Encounter list </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to copy into</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-spill~8"></span><h3>procedure, public :: <strong>spill</strong>  => <a href='../interface/symba_util_spill_encounter.html'>symba_util_spill_encounter</a> 
     
   </h3></div>
   
@@ -1415,11 +1624,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive)
+public module subroutine symba_util_spill_encounter(self, discards, lspill_list, ldestructive)
     
     
    
-   <a href='../proc/symba_util_spill_pltpenc.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_util_spill_encounter.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1443,7 +1652,7 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_encounter.html'>symba_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -1506,6 +1715,267 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~9"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/symba_util_append_encounter.html'>symba_util_append_encounter</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Appends elements from one structure to another</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_util_append_encounter(self, source, lsource_mask)
+    
+    
+   
+   <a href='../proc/symba_util_append_encounter.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_encounter.html'>symba_encounter</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA encounter list object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</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>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-resolve_collision"></span><h3>procedure, public :: <strong>resolve_collision</strong>  => <a href='../interface/symba_collision_resolve_pltpenc.html'>symba_collision_resolve_pltpenc</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Process the pl-tp collision list, then modifiy the massive bodies based on the outcome of the c</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine symba_collision_resolve_pltpenc(self, system, param, t, dt, irec)
+    
+    
+   
+   <a href='../proc/symba_collision_resolve_pltpenc.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_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>SyMBA pl-tp encounter list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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/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 with SyMBA additions</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>t</strong></td><td><p>Current simulation 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>dt</strong></td><td><p>Current simulation step size</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>irec</strong></td><td><p>Current recursion level</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/symba_tp.html b/docs/type/symba_tp.html
index 7cb76f3e3..ad06aa927 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.1% of total for derived types.</p>Including implementation: 17 statements,  2.4% of total for derived types.">17 statements</a>
+    title="<p> 2.2% of total for derived types.</p>Including implementation: 16 statements,  1.8% of total for derived types.">16 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/symba_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-id~2">id</a>
       
@@ -233,14 +231,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#variable-npltp">npltp</a>
+      
       <a class="list-group-item" href="../type/symba_tp.html#variable-nplenc~2">nplenc</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-levelg~2">levelg</a>
       
       <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>
@@ -269,15 +269,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_particle_info~14">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -287,6 +295,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame~15">write_frame</a>
+      
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -297,13 +307,15 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-b2h">b2h</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-get_peri">get_peri</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vb2vh">vb2vh</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-set_mu">set_mu</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-xh2xb">xh2xb</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vh2vb~2">vh2vb</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-get_peri">get_peri</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vb2vh~2">vb2vh</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-set_mu">set_mu</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-lindrift~2">lindrift</a>
       
@@ -319,9 +331,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-encounter_check~3">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-accel~7">accel</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-accel~8">accel</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-setup~8">setup</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-setup~9">setup</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-append~8">append</a>
       
@@ -363,92 +375,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="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">
+<svg id="typesymba_tpInheritsGraph" width="536pt" height="74pt"
+ viewBox="0.00 0.00 536.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,-70 551,-70 551,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 532,-70 532,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="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>
+<polygon fill="none" stroke="black" points="528,-45 469,-45 469,-21 528,-21 528,-45"/>
+<text text-anchor="middle" x="498.5" y="-30.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="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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="432,-45 378,-45 378,-21 432,-21 432,-45"/>
+<text text-anchor="middle" x="405" y="-30.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_edge2" class="edge">
-<title>type~symba_tp&#45;&gt;type~helio_tp</title>
-<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~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>
+<title>type~symba_tp&#45;&gt;type~helio_tp</title>
+<path fill="none" stroke="#000000" d="M468.55,-33C460.29,-33 451.17,-33 442.52,-33"/>
+<polygon fill="#000000" stroke="#000000" points="442.28,-29.5 432.28,-33 442.28,-36.5 442.28,-29.5"/>
 </g>
 <!-- type~swiftest_tp -->
-<g id="type~~symba_tp~~InheritsGraph_node4" class="node">
+<g id="type~~symba_tp~~InheritsGraph_node3" class="node">
 <title>type~swiftest_tp</title>
-<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>
+<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="341,-45 278,-45 278,-21 341,-21 341,-45"/>
+<text text-anchor="middle" x="309.5" y="-30.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_edge3" class="edge">
+<g id="type~~symba_tp~~InheritsGraph_edge2" class="edge">
 <title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M377.96,-33C369.63,-33 360.21,-33 351.11,-33"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-29.5 341.04,-33 351.04,-36.5 351.04,-29.5"/>
 </g>
 <!-- type~swiftest_body -->
-<g id="type~~symba_tp~~InheritsGraph_node5" class="node">
+<g id="type~~symba_tp~~InheritsGraph_node4" class="node">
 <title>type~swiftest_body</title>
-<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>
+<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="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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_edge4" class="edge">
+<g id="type~~symba_tp~~InheritsGraph_edge3" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M277.85,-33C269.49,-33 260.24,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.08,-29.5 241.08,-33 251.08,-36.5 251.08,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~symba_tp~~InheritsGraph_node6" class="node">
+<g id="type~~symba_tp~~InheritsGraph_node5" class="node">
 <title>type~swiftest_base</title>
-<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>
+<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="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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_edge5" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~symba_tp~~InheritsGraph_node6" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~symba_tp~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~symba_tp~~InheritsGraph_edge4" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -505,13 +517,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/symba_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-id~2">id</a>
       
@@ -559,14 +569,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#variable-npltp">npltp</a>
+      
       <a class="list-group-item" href="../type/symba_tp.html#variable-nplenc~2">nplenc</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-levelg~2">levelg</a>
       
       <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>
@@ -595,15 +607,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_particle_info~14">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -613,6 +633,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-write_frame~15">write_frame</a>
+      
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -623,13 +645,15 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-b2h">b2h</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-get_peri">get_peri</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vb2vh">vb2vh</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-set_mu">set_mu</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vh2vb">vh2vb</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vh2vb~2">vh2vb</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-xh2xb">xh2xb</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-vb2vh~2">vb2vh</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-get_peri">get_peri</a>
+      
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-set_mu">set_mu</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-lindrift~2">lindrift</a>
       
@@ -645,9 +669,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-encounter_check~3">encounter_check</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-accel~7">accel</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-accel~8">accel</a>
       
-      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-setup~8">setup</a>
+      <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-setup~9">setup</a>
       
       <a class="list-group-item" href="../type/symba_tp.html#boundprocedure-append~8">append</a>
       
@@ -689,20 +713,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-lfirst"></span>logical,</td>
@@ -733,11 +743,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -821,7 +831,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -835,7 +845,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1061,9 +1071,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>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</p></td>
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
   
 </tr>
 
@@ -1073,11 +1081,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-nplenc~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>nplenc</strong></td><td></td><td></td><td><p>number of encounters with planets this time step</p></td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
   
 </tr>
 
@@ -1087,11 +1095,27 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-levelg~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nplenc~2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>levelg</strong></td><td></td><td></td><td><p>level at which this particle should be moved</p></td>
+  <td><strong>nplenc</strong></td><td></td><td></td><td><p>number of encounters with planets this time step</p></td>
   
 </tr>
 
@@ -1101,11 +1125,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-levelm~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-levelg~2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>levelm</strong></td><td></td><td></td><td><p>deepest encounter level achieved this time step</p></td>
+  <td><strong>levelg</strong></td><td></td><td></td><td><p>level at which this particle should be moved</p></td>
   
 </tr>
 
@@ -1115,11 +1139,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-info~3"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-levelm~2"></span>integer(kind=I4B),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>info</strong></td><td></td><td></td><td></td>
+  <td><strong>levelm</strong></td><td></td><td></td><td><p>deepest encounter level achieved this time step</p></td>
   
 </tr>
 
@@ -1140,10 +1164,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1157,11 +1188,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1207,16 +1238,360 @@ <h4>Arguments</h4>
   <td></td><td>::</td>
   <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
-</tr>
-
-</tbody>
-</table>
-
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents of particle information metadata to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_dump_particle_info_base(self, param, idx)
+    
+    
+   
+   <a href='../proc/io_dump_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</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>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</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_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_frame_base(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_frame_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~14"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
       
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
     
     
 
-        
+         
       
       </li>
     
@@ -1412,7 +1787,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -1436,11 +1811,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1529,7 +1904,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
@@ -1596,36 +1971,6 @@ <h4>Arguments</h4>
   
 </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>
 
@@ -1633,6 +1978,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1643,7 +1997,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2145,6 +2499,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~15"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
@@ -2663,7 +3082,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_peri"></span><h3>procedure, public :: <strong>get_peri</strong>  => <a href='../interface/util_peri_tp.html'>util_peri_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_tp.html'>util_coord_vb2vh_tp</a> 
     
   </h3></div>
   
@@ -2671,7 +3090,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Determine system pericenter passages for test particles </p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2687,11 +3106,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_peri_tp(self, system, param)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_peri_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2730,12 +3149,90 @@ <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>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_tp.html'>util_coord_vh2vb_tp</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_coord_vh2vb_tp(self, vbcb)
+    
+    
+   
+   <a href='../proc/util_coord_vh2vb_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>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -2745,12 +3242,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>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>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -2771,7 +3268,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_tp.html'>util_set_mu_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_tp.html'>util_coord_xh2xb_tp</a> 
     
   </h3></div>
   
@@ -2779,7 +3276,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Method used to construct the vectorized form of the central body mass</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -2795,11 +3292,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_mu_tp(self, cb)
+public module subroutine util_coord_xh2xb_tp(self, cb)
     
     
    
-   <a href='../proc/util_set_mu_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2839,7 +3336,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -2864,7 +3361,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/helio_coord_vh2vb_tp.html'>helio_coord_vh2vb_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_peri"></span><h3>procedure, public :: <strong>get_peri</strong>  => <a href='../interface/util_peri_tp.html'>util_peri_tp</a> 
     
   </h3></div>
   
@@ -2872,7 +3369,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
+    <p>Determine system pericenter passages for test particles </p>
   </div>
   
   <ul class="list-group">
@@ -2888,11 +3385,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_coord_vh2vb_tp(self, vbcb)
+public module subroutine util_peri_tp(self, system, param)
     
     
    
-   <a href='../proc/helio_coord_vh2vb_tp.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>
     
@@ -2916,12 +3413,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</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>self</strong></td><td><p>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -2931,12 +3428,27 @@ <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>dimension(:)</td><td>::</td>
-  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  <td></td><td>::</td>
+  <td><strong>system</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>
 
@@ -2957,7 +3469,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/helio_coord_vb2vh_tp.html'>helio_coord_vb2vh_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_mu"></span><h3>procedure, public :: <strong>set_mu</strong>  => <a href='../interface/util_set_mu_tp.html'>util_set_mu_tp</a> 
     
   </h3></div>
   
@@ -2965,7 +3477,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
+    <p>Method used to construct the vectorized form of the central body mass</p>
   </div>
   
   <ul class="list-group">
@@ -2981,11 +3493,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine helio_coord_vb2vh_tp(self, vbcb)
+public module subroutine util_set_mu_tp(self, cb)
     
     
    
-   <a href='../proc/helio_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_mu_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -3009,12 +3521,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/helio_tp.html'>helio_tp</a>),</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>self</strong></td><td><p>Helio massive body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -3024,12 +3536,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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -3920,7 +4432,7 @@ <h4>Return Value <small>logical
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~7"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/symba_kick_getacch_tp.html'>symba_kick_getacch_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel~8"></span><h3>procedure, public :: <strong>accel</strong>  => <a href='../interface/symba_kick_getacch_tp.html'>symba_kick_getacch_tp</a> 
     
   </h3></div>
   
@@ -4058,7 +4570,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~8"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_tp.html'>symba_setup_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~9"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/symba_setup_tp.html'>symba_setup_tp</a> 
     
   </h3></div>
   
diff --git a/docs/type/tides_derivs_func.html b/docs/type/tides_derivs_func.html
index 29fe0288b..0d919a777 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.8% of total for derived types.</p>Including implementation: 49 statements,  7.0% of total for derived types.">10 statements</a>
+    title="<p> 1.4% of total for derived types.</p>Including implementation: 49 statements,  5.5% of total for derived types.">10 statements</a>
      </li> 
      
      
diff --git a/docs/type/walltimer.html b/docs/type/walltimer.html
new file mode 100644
index 000000000..a3c0418e8
--- /dev/null
+++ b/docs/type/walltimer.html
@@ -0,0 +1,742 @@
+<!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>walltimer &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>walltimer
+    <small>Derived Type</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="<p> 1.6% of total for derived types.</p>Including implementation: 12 statements,  1.3% of total for derived types.">12 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/walltime_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/walltime_classes.f90.html'>walltime_classes.f90</a></li>
+    
+     <li><a href='../module/walltime_classes.html'>walltime_classes</a></li>
+    
+  
+     <li class="active">walltimer</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="#vars-0">Variables</a></h3></div>
+  <div id="vars-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_rate">count_rate</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_max">count_max</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_start_main">count_start_main</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_start_step">count_start_step</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_finish_step">count_finish_step</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-lmain_is_started">lmain_is_started</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/walltimer.html#boundprocedure-reset">reset</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#boundprocedure-start">start</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#boundprocedure-finish">finish</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>type, public :: walltimer</h2>
+    
+    
+    
+    
+    <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="#vars-1">Variables</a></h3></div>
+  <div id="vars-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_rate">count_rate</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_max">count_max</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_start_main">count_start_main</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_start_step">count_start_step</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-count_finish_step">count_finish_step</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#variable-lmain_is_started">lmain_is_started</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<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/walltimer.html#boundprocedure-reset">reset</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#boundprocedure-start">start</a>
+      
+      <a class="list-group-item" href="../type/walltimer.html#boundprocedure-finish">finish</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+    <section>
+    <h2>Components</h2>
+    
+<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-count_rate"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_rate</strong></td><td></td><td></td><td><p>Rate at wich the clock ticks</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_max"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_max</strong></td><td></td><td></td><td><p>Maximum value of the clock ticker</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_start_main"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_start_main</strong></td><td></td><td></td><td><p>Value of the clock ticker at when the timer is first called</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_start_step"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_start_step</strong></td><td></td><td></td><td><p>Value of the clock ticker at the start of a timed step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-count_finish_step"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>count_finish_step</strong></td><td></td><td></td><td><p>Value of the clock ticker at the end of a timed step</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-lmain_is_started"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lmain_is_started</strong></td><td> =</td><td>.false.</td><td><p>Logical flag indicating whether or not the main timer has been reset or not</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    </section>
+    <br>
+    
+    
+    
+    
+    
+    
+     
+    <section>
+    <h2>Type-Bound Procedures</h2>
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-reset"></span><h3>procedure, public :: <strong>reset</strong>  => <a href='../interface/walltime_reset.html'>walltime_reset</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Resets the clock ticker, settting main_start to the current ticker value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public subroutine walltime_reset(self)
+    
+    
+   
+</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-start"></span><h3>procedure, public :: <strong>start</strong>  => <a href='../interface/walltime_start.html'>walltime_start</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Starts the timer, setting step_start to the current ticker value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public subroutine walltime_start(self)
+    
+    
+   
+</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-finish"></span><h3>procedure, public :: <strong>finish</strong>  => <a href='../interface/walltime_finish.html'>walltime_finish</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public subroutine walltime_finish(self, nsubsteps, message)
+    
+    
+   
+</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/walltimer.html'>walltimer</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Walltimer object</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>nsubsteps</strong></td><td><p>Number of substeps used to compute the time per step </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>character(len=*),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>message</strong></td><td><p>Message to prepend to the wall time terminal output</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</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/type/whm_cb.html b/docs/type/whm_cb.html
index 405bc10ba..988b3ca3c 100644
--- a/docs/type/whm_cb.html
+++ b/docs/type/whm_cb.html
@@ -134,7 +134,7 @@ <h1>whm_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.6% of total for derived types.</p>Including implementation: 3 statements,  0.4% of total for derived types.">3 statements</a>
+    title="<p> 0.4% of total for derived types.</p>Including implementation: 3 statements,  0.3% of total for derived types.">3 statements</a>
      </li> 
      
      
@@ -179,9 +179,7 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/whm_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/whm_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/whm_cb.html#variable-id">id</a>
       
@@ -257,11 +255,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_particle_info~7">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame~8">write_frame</a>
       
     </div>
   </div>
@@ -291,46 +299,62 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~whm_cb~~InheritsGraph Pages: 1 -->
-<svg id="typewhm_cbInheritsGraph" width="276pt" height="32pt"
- viewBox="0.00 0.00 276.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~whm_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typewhm_cbInheritsGraph" width="328pt" height="74pt"
+ viewBox="0.00 0.00 328.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~whm_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~whm_cb~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 272,-28 272,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 324,-70 324,4 -4,4"/>
 <!-- type~whm_cb -->
 <g id="type~~whm_cb~~InheritsGraph_node1" class="node">
 <title>type~whm_cb</title>
-<polygon fill="none" stroke="black" 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">whm_cb</text>
+<polygon fill="none" stroke="black" points="320,-45 266,-45 266,-21 320,-21 320,-45"/>
+<text text-anchor="middle" x="293" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_cb</text>
 </g>
 <!-- type~swiftest_cb -->
 <g id="type~~whm_cb~~InheritsGraph_node2" class="node">
 <title>type~swiftest_cb</title>
 <g id="a_type~~whm_cb~~InheritsGraph_node2"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="229,-45 164,-45 164,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="196.5" y="-30.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~~whm_cb~~InheritsGraph_edge1" class="edge">
 <title>type~whm_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="M265.93,-33C257.67,-33 248.33,-33 239.26,-33"/>
+<polygon fill="#000000" stroke="#000000" points="239.21,-29.5 229.21,-33 239.21,-36.5 239.21,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~whm_cb~~InheritsGraph_node3" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~whm_cb~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~whm_cb~~InheritsGraph_edge2" class="edge">
+<g id="type~~whm_cb~~InheritsGraph_edge3" 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="M163.73,-37.82C146.18,-40.48 124.04,-43.84 104.48,-46.8"/>
+<polygon fill="#000000" stroke="#000000" points="103.89,-43.35 94.52,-48.31 104.94,-50.27 103.89,-43.35"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~whm_cb~~InheritsGraph_node4" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~whm_cb~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~whm_cb~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.73,-28.18C151.33,-26.3 136.65,-24.08 122.2,-21.89"/>
+<polygon fill="#000000" stroke="#000000" points="122.67,-18.42 112.26,-20.38 121.62,-25.34 122.67,-18.42"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -480,9 +504,7 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_cb.html#variable-lintegrate">lintegrate</a>
-      
-      <a class="list-group-item" href="../type/whm_cb.html#variable-name">name</a>
+      <a class="list-group-item" href="../type/whm_cb.html#variable-info">info</a>
       
       <a class="list-group-item" href="../type/whm_cb.html#variable-id">id</a>
       
@@ -558,11 +580,21 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-initialize~2">initialize</a>
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_particle_info~7">write_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-read_in">read_in</a>
       
       <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-read_frame~2">read_frame</a>
       
-      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame~2">write_frame</a>
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame_bin">write_frame_bin</a>
+      
+      <a class="list-group-item" href="../type/whm_cb.html#boundprocedure-write_frame~8">write_frame</a>
       
     </div>
   </div>
@@ -594,25 +626,11 @@ <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-name"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -955,10 +973,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -972,11 +997,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1041,7 +1066,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~2"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_cb_in.html'>io_read_cb_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1049,7 +1074,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading in central body data</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1065,11 +1090,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_cb_in(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/io_read_cb_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1093,12 +1118,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1113,7 +1138,22 @@ <h4>Arguments</h4>
   <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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1134,7 +1174,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1142,7 +1182,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1158,11 +1198,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_cb(self, iu, param, form, ierr)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/io_read_frame_cb.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1186,12 +1226,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>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
   
 </tr>
 
@@ -1201,12 +1241,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1217,7 +1257,7 @@ <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>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1225,18 +1265,302 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Writes out the particle information metadata to NetCDF file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_particle_info_base(self, iu)
+    
+    
+   
+   <a href='../proc/netcdf_write_particle_info_base.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>character(len=*),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</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>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~7"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_cb.html'>io_read_in_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading in central body data</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_read_in_cb(self, param)
+    
+    
+   
+   <a href='../proc/io_read_in_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body 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~2"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_cb.html'>io_read_frame_cb</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for reading out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_cb(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_cb.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_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -1247,11 +1571,26 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></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>
 
@@ -1262,6 +1601,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1272,7 +1620,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~2"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a> 
     
   </h3></div>
   
@@ -1372,6 +1720,71 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~8"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_cb.html#boundprocedure-write_frame_bin'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a frame (either binary or NetCDF, using generic procedures)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_cb.html'>io_write_frame_cb</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
       </li>
     
   </ul>
diff --git a/docs/type/whm_nbody_system.html b/docs/type/whm_nbody_system.html
index e6571c72f..d3cff0368 100644
--- a/docs/type/whm_nbody_system.html
+++ b/docs/type/whm_nbody_system.html
@@ -134,7 +134,7 @@ <h1>whm_nbody_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.9% of total for derived types.</p>Including implementation: 5 statements,  0.7% of total for derived types.">5 statements</a>
+    title="<p> 0.7% of total for derived types.</p>Including implementation: 5 statements,  0.6% of total for derived types.">5 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/whm_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-pl">pl</a>
@@ -191,7 +189,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -201,22 +199,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-maxid">maxid</a>
-      
     </div>
   </div>
 </div>
@@ -249,12 +241,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -265,7 +269,9 @@ <h3>Contents</h3>
       
       <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-write_hdr~3">write_hdr</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-initialize~3">initialize</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-step~7">step</a>
       
@@ -297,126 +303,144 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~whm_nbody_system~~InheritsGraph Pages: 1 -->
-<svg id="typewhm_nbody_systemInheritsGraph" width="641pt" height="109pt"
- 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)">
+<svg id="typewhm_nbody_systemInheritsGraph" width="641pt" height="115pt"
+ viewBox="0.00 0.00 641.00 115.17" 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.89 0.89) rotate(0) translate(4 125)">
 <title>type~~whm_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 728,-120 728,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-125 714,-125 714,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,-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>
+<polygon fill="none" stroke="black" points="710,-66 600,-66 600,-42 710,-42 710,-66"/>
+<text text-anchor="middle" x="655" y="-51.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,-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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563,-66 440,-66 440,-42 563,-42 563,-66"/>
+<text text-anchor="middle" x="501.5" y="-51.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,-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"/>
+<path fill="none" stroke="#000000" d="M599.73,-54C591.1,-54 582.05,-54 573.11,-54"/>
+<polygon fill="#000000" stroke="#000000" points="573.07,-50.5 563.07,-54 573.07,-57.5 573.07,-50.5"/>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node3" class="node">
 <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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-24 278,-24 278,0 341,0 341,-24"/>
+<text text-anchor="middle" x="309.5" y="-9.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_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_base -->
-<g id="type~~whm_nbody_system~~InheritsGraph_node4" class="node">
-<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_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"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.05,-41.96C415.81,-35.28 378.82,-27.1 351.13,-20.98"/>
+<polygon fill="#000000" stroke="#000000" points="351.52,-17.48 341,-18.74 350.01,-24.32 351.52,-17.48"/>
+<text text-anchor="middle" x="390.5" y="-37.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~whm_nbody_system~~InheritsGraph_node5" class="node">
+<g id="type~~whm_nbody_system~~InheritsGraph_node4" 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,-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>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340.5,-66 278.5,-66 278.5,-42 340.5,-42 340.5,-66"/>
+<text text-anchor="middle" x="309.5" y="-51.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,-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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.86,-54C410.75,-54 376.66,-54 350.79,-54"/>
+<polygon fill="#000000" stroke="#000000" points="350.59,-50.5 340.59,-54 350.59,-57.5 350.59,-50.5"/>
+<text text-anchor="middle" x="390.5" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~swiftest_cb -->
-<g id="type~~whm_nbody_system~~InheritsGraph_node6" class="node">
+<g id="type~~whm_nbody_system~~InheritsGraph_node5" class="node">
 <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>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="235,-114 170,-114 170,-90 235,-90 235,-114"/>
+<text text-anchor="middle" x="202.5" y="-99.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~~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>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M439.67,-64.99C433.7,-66.02 427.73,-67.04 422,-68 360.48,-78.27 289.03,-89.2 245.05,-95.81"/>
+<polygon fill="#000000" stroke="#000000" points="244.38,-92.37 235.02,-97.32 245.42,-99.3 244.38,-92.37"/>
+<text text-anchor="middle" x="309.5" y="-92.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">
+<g id="type~~whm_nbody_system~~InheritsGraph_node8" 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,-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>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-66 164,-66 164,-42 241,-42 241,-66"/>
+<text text-anchor="middle" x="202.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~~whm_nbody_system~~InheritsGraph_edge6" class="edge">
+<g id="type~~whm_nbody_system~~InheritsGraph_edge5" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<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"/>
+<path fill="none" stroke="#000000" d="M289.21,-24.15C285.36,-26.89 281.44,-29.9 278,-33 268.86,-41.22 272.05,-51.57 260,-54"/>
+<path fill="none" stroke="#000000" d="M259,-54C256.48,-54.51 253.88,-54.91 251.25,-55.22"/>
+<polygon fill="#000000" stroke="#000000" points="250.72,-51.75 241.02,-56.02 251.26,-58.73 250.72,-51.75"/>
 </g>
 <!-- type~swiftest_pl&#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_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M278.3,-52.15C272.2,-52.29 265.86,-52.82 260,-54"/>
+</g>
+<!-- type~swiftest_base -->
+<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="94.5,-121 17.5,-121 17.5,-97 94.5,-97 94.5,-121"/>
+<text text-anchor="middle" x="56" y="-106.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~~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"/>
+<path fill="none" stroke="#000000" d="M169.82,-104.49C162.03,-105.05 153.72,-105.59 146,-106 132.72,-106.7 118.32,-107.27 105.05,-107.72"/>
+<polygon fill="#000000" stroke="#000000" points="104.57,-104.23 94.69,-108.05 104.8,-111.23 104.57,-104.23"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~whm_nbody_system~~InheritsGraph_node7" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-69 0,-69 0,-45 112,-45 112,-69"/>
+<text text-anchor="middle" x="56" y="-54.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~whm_nbody_system~~InheritsGraph_edge7" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.79,-92.12C150.93,-86.25 126.61,-78.68 105.39,-72.07"/>
+<polygon fill="#000000" stroke="#000000" points="106.17,-68.65 95.58,-69.01 104.09,-75.33 106.17,-68.65"/>
+<text text-anchor="middle" x="138" y="-85.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge9" class="edge">
+<g id="type~~whm_nbody_system~~InheritsGraph_edge10" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M163.72,-64.65C152.75,-68.01 140.81,-71.91 130,-76 117.07,-80.89 103.17,-86.96 91,-92.56"/>
+<polygon fill="#000000" stroke="#000000" points="89.26,-89.51 81.67,-96.91 92.22,-95.85 89.26,-89.51"/>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~whm_nbody_system~~InheritsGraph_edge9" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.1,-41.94C158.79,-40.3 152.26,-38.88 146,-38 130.11,-35.76 112.82,-38.28 97.74,-42.15"/>
+<polygon fill="#000000" stroke="#000000" points="96.37,-38.9 87.7,-45 98.28,-45.63 96.37,-38.9"/>
+<text text-anchor="middle" x="138" y="-40.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -511,10 +535,25 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" d="M128,-54C125.51,-54.35 122.96,-54.64 120.39,-54.88"/>
 <polygon fill="#000000" stroke="#000000" points="120.09,-51.4 110.36,-55.6 120.59,-58.38 120.09,-51.4"/>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~symba_nbody_system -->
 <g id="type~~whm_nbody_system~~InheritedByGraph_node4" class="node">
+<title>type~symba_nbody_system</title>
+<g id="a_type~~whm_nbody_system~~InheritedByGraph_node4"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="473,-66 354,-66 354,-42 473,-42 473,-66"/>
+<text text-anchor="middle" x="413.5" y="-51.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~~whm_nbody_system~~InheritedByGraph_edge3" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M353.73,-54C326.96,-54 295.21,-54 267.81,-54"/>
+<polygon fill="#000000" stroke="#000000" points="267.54,-50.5 257.54,-54 267.54,-57.5 267.54,-50.5"/>
+</g>
+<!-- type~rmvs_pl -->
+<g id="type~~whm_nbody_system~~InheritedByGraph_node5" class="node">
 <title>type~rmvs_pl</title>
-<g id="a_type~~whm_nbody_system~~InheritedByGraph_node4"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<g id="a_type~~whm_nbody_system~~InheritedByGraph_node5"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="440.5,-24 386.5,-24 386.5,0 440.5,0 440.5,-24"/>
 <text text-anchor="middle" x="413.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
@@ -527,21 +566,6 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="268.11,-8.5 258.11,-12 268.11,-15.5 268.11,-8.5"/>
 <text text-anchor="middle" x="306" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~whm_nbody_system~~InheritedByGraph_node5" class="node">
-<title>type~symba_nbody_system</title>
-<g id="a_type~~whm_nbody_system~~InheritedByGraph_node5"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="473,-66 354,-66 354,-42 473,-42 473,-66"/>
-<text text-anchor="middle" x="413.5" y="-51.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~~whm_nbody_system~~InheritedByGraph_edge3" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M353.73,-54C326.96,-54 295.21,-54 267.81,-54"/>
-<polygon fill="#000000" stroke="#000000" points="267.54,-50.5 257.54,-54 267.54,-57.5 267.54,-50.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">
@@ -596,8 +620,6 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-cb">cb</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-pl">pl</a>
@@ -608,7 +630,7 @@ <h3>Contents</h3>
       
       <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-gmtot">GMtot</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ke_orbit">ke_orbit</a>
       
@@ -618,22 +640,16 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-te">te</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-oblpot">oblpot</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lorbit">Lorbit</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lspin">Lspin</a>
       
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lescape">Lescape</a>
-      
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-mescape">Mescape</a>
-      
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ecollisions">Ecollisions</a>
-      
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-euntracked">Euntracked</a>
+      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ltot">Ltot</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-lbeg">lbeg</a>
       
-      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-maxid">maxid</a>
-      
     </div>
   </div>
 </div>
@@ -666,12 +682,24 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-dump">dump</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-get_old_t_final">get_old_t_final</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-read_frame">read_frame</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-read_particle_info">read_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_discard">write_discard</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_hdr_bin">write_hdr_bin</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-write_hdr_netcdf">write_hdr_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-obl_pot">obl_pot</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-init_particle_info">init_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-set_msys">set_msys</a>
@@ -682,7 +710,9 @@ <h3>Contents</h3>
       
       <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-write_hdr~3">write_hdr</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-initialize~3">initialize</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-step~7">step</a>
       
@@ -714,20 +744,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-cb"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
@@ -804,7 +820,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>Gmtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
+  <td><strong>GMtot</strong></td><td> =</td><td>0.0_DP</td><td><p>Total system mass - used for barycentric coordinate conversion</p></td>
   
 </tr>
 
@@ -870,11 +886,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-oblpot"></span>real(kind=DP),</td>
   
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>oblpot</strong></td><td> =</td><td>0.0_DP</td><td><p>System potential energy due to oblateness of the central body</p></td>
   
 </tr>
 
@@ -884,11 +900,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lorbit"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
+  <td><strong>Lorbit</strong></td><td> =</td><td>0.0_DP</td><td><p>System orbital angular momentum vector</p></td>
   
 </tr>
 
@@ -898,39 +914,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-lescape"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-lspin"></span>real(kind=DP),</td>
   
   <td>public,</td>
   <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>Lescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Angular momentum of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mescape"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Mescape</strong></td><td> =</td><td>0.0_DP</td><td><p>Mass of bodies that escaped the system (used for bookeeping)</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-ecollisions"></span>real(kind=DP),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Ecollisions</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy lost from system due to collisions</p></td>
+  <td><strong>Lspin</strong></td><td> =</td><td>0.0_DP</td><td><p>System spin angular momentum vector</p></td>
   
 </tr>
 
@@ -940,11 +928,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-euntracked"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ltot"></span>real(kind=DP),</td>
   
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>Euntracked</strong></td><td> =</td><td>0.0_DP</td><td><p>Energy gained from system due to escaped bodies</p></td>
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>Ltot</strong></td><td> =</td><td>0.0_DP</td><td><p>System angular momentum vector</p></td>
   
 </tr>
 
@@ -964,20 +952,6 @@ <h2>Components</h2>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-maxid"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>maxid</strong></td><td> =</td><td>-1</td><td><p>The current maximum particle id number </p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1289,7 +1263,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-get_old_t_final"></span><h3>procedure, public :: <strong>get_old_t_final</strong>  => <a href='../interface/io_get_old_t_final_system.html'>io_get_old_t_final_system</a> 
     
   </h3></div>
   
@@ -1297,7 +1271,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in a frame of input data from file</p>
+    <p>Validates the dump file to check whether the dump file initial conditions duplicate the last frame of the binary output.</p>
   </div>
   
   <ul class="list-group">
@@ -1313,11 +1287,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_system(self, iu, param, form, ierr)
+public module function io_get_old_t_final_system(self, param) result(old_t_final)
     
     
    
-   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_get_old_t_final_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1342,26 +1316,11 @@ <h4>Arguments</h4>
 <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>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</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></td>
   
 </tr>
 
@@ -1372,41 +1331,11 @@ <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></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></td>
   
 </tr>
 
@@ -1417,6 +1346,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP)
+  </small></h4>
+  
+    
+
         
       
       </li>
@@ -1427,7 +1365,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_system.html'>io_read_frame_system</a> 
     
   </h3></div>
   
@@ -1435,7 +1373,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Write out information about discarded test particles</p>
+    <p>Read in a frame of input data from file</p>
   </div>
   
   <ul class="list-group">
@@ -1451,11 +1389,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_discard(self, param)
+public module function io_read_frame_system(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/io_write_discard.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1492,10 +1430,25 @@ <h4>Arguments</h4>
   
   
   
+<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>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1510,6 +1463,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -1520,7 +1482,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_particle_info"></span><h3>procedure, public :: <strong>read_particle_info</strong>  => <a href='../interface/io_read_particle_info_system.html'>io_read_particle_info_system</a> 
     
   </h3></div>
   
@@ -1528,7 +1490,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Append a frame of output data to file</p>
+    <p>Read in particle metadata from file</p>
   </div>
   
   <ul class="list-group">
@@ -1544,11 +1506,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_system(self, iu, param)
+public module subroutine io_read_particle_info_system(self, param)
     
     
    
-   <a href='../proc/io_write_frame_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_particle_info_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1573,11 +1535,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(in)</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 nbody system object</p></td>
   
 </tr>
 
@@ -1587,27 +1549,585 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <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>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 </p></td>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_discard"></span><h3>procedure, public :: <strong>write_discard</strong>  => <a href='../interface/io_write_discard.html'>io_write_discard</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write out information about discarded test particles</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_discard(self, param)
+    
+    
+   
+   <a href='../proc/io_write_discard.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>
+
+  
+  
+  
+  
+<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-write_frame"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_system.html'>io_write_frame_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Append a frame of output data to file</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_system(self, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_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 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 </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_bin"></span><h3>procedure, public :: <strong>write_hdr_bin</strong>  => <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in Fortran binary format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_hdr_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(in)</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>integer(kind=I4B),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Output file unit number</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr_netcdf"></span><h3>procedure, public :: <strong>write_hdr_netcdf</strong>  => <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Write a header for an output frame in NetCDF format</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine netcdf_write_hdr_system(self, iu, param)
+    
+    
+   
+   <a href='../proc/netcdf_write_hdr_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(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-obl_pot"></span><h3>procedure, public :: <strong>obl_pot</strong>  => <a href='../interface/obl_pot_system.html'>obl_pot_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the contribution to the total gravitational potential due solely to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_pot_system(self)
+    
+    
+   
+   <a href='../proc/obl_pot_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>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-init_particle_info"></span><h3>procedure, public :: <strong>init_particle_info</strong>  => <a href='../interface/setup_initialize_particle_info_system.html'>setup_initialize_particle_info_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Initialize the system from input files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine setup_initialize_particle_info_system(self, param)
+    
+    
+   
+   <a href='../proc/setup_initialize_particle_info_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</p></td>
   
 </tr>
 
@@ -2128,7 +2648,7 @@ <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>
@@ -2153,7 +2673,72 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~4"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/whm_setup_initialize_system.html'>whm_setup_initialize_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_hdr~3"></span><h3>generic, public :: <strong>write_hdr</strong>  => <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_bin'>write_hdr_bin</a>, <a href='../type/swiftest_nbody_system.html#boundprocedure-write_hdr_netcdf'>write_hdr_netcdf</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Generic method call for writing headers</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_hdr_system.html'>io_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_hdr_system.html'>netcdf_write_hdr_system</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/whm_setup_initialize_system.html'>whm_setup_initialize_system</a> 
     
   </h3></div>
   
@@ -2161,8 +2746,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Replace the abstract procedures with concrete ones
- Performs WHM-specific initilization steps, like calculating the Jacobi masses</p>
+    <p>Replace the abstract procedures with concrete ones</p>
   </div>
   
   <ul class="list-group">
diff --git a/docs/type/whm_pl.html b/docs/type/whm_pl.html
index e756e5f5e..b09d989ce 100644
--- a/docs/type/whm_pl.html
+++ b/docs/type/whm_pl.html
@@ -134,7 +134,7 @@ <h1>whm_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 4.8% of total for derived types.</p>Including implementation: 26 statements,  3.7% of total for derived types.">26 statements</a>
+    title="<p> 3.6% of total for derived types.</p>Including implementation: 26 statements,  2.9% of total for derived types.">26 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/whm_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/whm_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#variable-id~2">id</a>
       
@@ -295,15 +293,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_particle_info~8">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -311,9 +317,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-accel_user">accel_user</a>
       
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame~9">write_frame</a>
+      
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -325,6 +333,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-set_rhill">set_rhill</a>
@@ -393,61 +407,77 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~whm_pl~~InheritsGraph Pages: 1 -->
-<svg id="typewhm_plInheritsGraph" width="386pt" height="32pt"
- viewBox="0.00 0.00 386.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~whm_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typewhm_plInheritsGraph" width="439pt" height="74pt"
+ viewBox="0.00 0.00 439.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~whm_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~whm_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 382,-28 382,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 435,-70 435,4 -4,4"/>
 <!-- type~whm_pl -->
 <g id="type~~whm_pl~~InheritsGraph_node1" class="node">
 <title>type~whm_pl</title>
-<polygon fill="none" stroke="black" points="378,-24 324,-24 324,0 378,0 378,-24"/>
-<text text-anchor="middle" x="351" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_pl</text>
+<polygon fill="none" stroke="black" points="431,-45 377,-45 377,-21 431,-21 431,-45"/>
+<text text-anchor="middle" x="404" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_pl</text>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~whm_pl~~InheritsGraph_node2" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~whm_pl~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="288,-24 226,-24 226,0 288,0 288,-24"/>
-<text text-anchor="middle" x="257" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="340,-45 278,-45 278,-21 340,-21 340,-45"/>
+<text text-anchor="middle" x="309" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~whm_pl~~InheritsGraph_edge1" class="edge">
 <title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M323.88,-12C315.86,-12 306.85,-12 298.12,-12"/>
-<polygon fill="#000000" stroke="#000000" points="298.08,-8.5 288.08,-12 298.08,-15.5 298.08,-8.5"/>
+<path fill="none" stroke="#000000" d="M376.6,-33C368.42,-33 359.21,-33 350.3,-33"/>
+<polygon fill="#000000" stroke="#000000" points="350.07,-29.5 340.07,-33 350.07,-36.5 350.07,-29.5"/>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~whm_pl~~InheritsGraph_node3" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~whm_pl~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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~~whm_pl~~InheritsGraph_edge2" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M225.79,-12C217.81,-12 209,-12 200.34,-12"/>
-<polygon fill="#000000" stroke="#000000" points="200.3,-8.5 190.3,-12 200.3,-15.5 200.3,-8.5"/>
+<path fill="none" stroke="#000000" d="M277.77,-33C269.45,-33 260.22,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.09,-29.5 241.09,-33 251.09,-36.5 251.09,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~whm_pl~~InheritsGraph_node4" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~whm_pl~~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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~whm_pl~~InheritsGraph_edge3" class="edge">
+<g id="type~~whm_pl~~InheritsGraph_edge4" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~whm_pl~~InheritsGraph_node5" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~whm_pl~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~whm_pl~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -581,13 +611,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_pl.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/whm_pl.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/whm_pl.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#variable-id~2">id</a>
       
@@ -697,15 +725,23 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_particle_info~8">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-el2xv">el2xv</a>
       
@@ -713,9 +749,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-accel_user">accel_user</a>
       
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-write_frame~9">write_frame</a>
+      
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-discard~3">discard</a>
       
-      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-eucl_index">eucl_index</a>
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-index~2">index</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-accel_int~2">accel_int</a>
       
@@ -727,6 +765,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-b2h~2">b2h</a>
       
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-vh2vb~2">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-vb2vh~2">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-xh2xb~2">xh2xb</a>
+      
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-set_beg_end">set_beg_end</a>
       
       <a class="list-group-item" href="../type/whm_pl.html#boundprocedure-set_rhill">set_rhill</a>
@@ -795,20 +839,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-lfirst"></span>logical,</td>
@@ -839,11 +869,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -927,7 +957,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -941,7 +971,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1430,10 +1460,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1447,11 +1484,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1516,7 +1553,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1524,7 +1561,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1540,11 +1577,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1568,12 +1605,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1584,11 +1621,26 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </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>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1609,7 +1661,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1617,7 +1669,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1633,11 +1685,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1661,12 +1713,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1702,7 +1769,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1710,7 +1777,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Read in body initial conditions from a file</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1726,11 +1793,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/io_read_body_in.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1754,12 +1821,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1769,12 +1836,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1795,7 +1862,42 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~8"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -1803,7 +1905,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1819,11 +1921,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1852,22 +1954,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1878,41 +1965,11 @@ <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></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</p></td>
   
 </tr>
 
@@ -1933,7 +1990,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
     
   </h3></div>
   
@@ -1941,7 +1998,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1957,11 +2014,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_pv2vh_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1986,26 +2043,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -2041,7 +2083,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -2049,7 +2091,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -2065,11 +2107,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2108,12 +2150,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2134,7 +2176,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
     
   </h3></div>
   
@@ -2142,7 +2184,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2158,11 +2200,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module function io_read_frame_body(self, iu, param) result(ierr)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2201,12 +2243,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></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>
 
@@ -2217,6 +2274,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
         
       
       </li>
@@ -2227,7 +2293,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
     
   </h3></div>
   
@@ -2235,7 +2301,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2251,11 +2317,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public module subroutine io_write_frame_body(self, iu, param)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2280,11 +2346,508 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert position and velocity vectors to orbital  elements </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_xv2el_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_xv2el_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add user-supplied heliocentric accelerations to planets</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/user_kick_getacch_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</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~9"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Placeholder method for discarding massive bodies </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine discard_pl(self, system, param)
+    
+    
+   
+   <a href='../proc/discard_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>
 
@@ -2299,7 +2862,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>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2310,26 +2873,89 @@ <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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameter</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-index~2"></span><h3>procedure, public :: <strong>index</strong>  => <a href='../interface/util_index_eucl_plpl.html'>util_index_eucl_plpl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_index_eucl_plpl(self, param)
+    
+    
+   
+   <a href='../proc/util_index_eucl_plpl.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>real(kind=DP),</td>
-  <td>intent(in)</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>t</strong></td><td><p>Current time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2339,12 +2965,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</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>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -2365,7 +2991,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~3"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_pl.html'>discard_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
     
   </h3></div>
   
@@ -2373,7 +2999,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Placeholder method for discarding massive bodies </p>
+    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2389,11 +3015,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_pl(self, system, param)
+public module subroutine kick_getacch_int_pl(self)
     
     
    
-   <a href='../proc/discard_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2426,18 +3052,81 @@ <h4>Arguments</h4>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine obl_acc_pl(self, system)
+    
+    
+   
+   <a href='../proc/obl_acc_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_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>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
   
 </tr>
 
@@ -2447,12 +3136,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/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameter</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2473,7 +3162,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-eucl_index"></span><h3>procedure, public :: <strong>eucl_index</strong>  => <a href='../interface/eucl_dist_index_plpl.html'>eucl_dist_index_plpl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
     
   </h3></div>
   
@@ -2481,7 +3170,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</p>
+    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2497,11 +3186,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine eucl_dist_index_plpl(self)
+public module subroutine tides_kick_getacch_pl(self, system)
     
     
    
-   <a href='../proc/eucl_dist_index_plpl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2534,6 +3223,21 @@ <h4>Arguments</h4>
   
 </tr>
 
+  
+  
+  
+  
+<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>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -2551,7 +3255,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int~2"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_pl.html'>kick_getacch_int_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
     
   </h3></div>
   
@@ -2559,7 +3263,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of massive bodies</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2575,11 +3279,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_pl(self)
+public module subroutine util_coord_h2b_pl(self, cb)
     
     
    
-   <a href='../proc/kick_getacch_int_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2608,7 +3312,22 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></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>
 
@@ -2629,7 +3348,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl~2"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_pl.html'>obl_acc_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
     
   </h3></div>
   
@@ -2637,7 +3356,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2653,11 +3372,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_pl(self, system)
+public module subroutine util_coord_b2h_pl(self, cb)
     
     
    
-   <a href='../proc/obl_acc_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2696,12 +3415,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2722,7 +3441,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_tides"></span><h3>procedure, public :: <strong>accel_tides</strong>  => <a href='../interface/tides_kick_getacch_pl.html'>tides_kick_getacch_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb~2"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_pl.html'>util_coord_vh2vb_pl</a> 
     
   </h3></div>
   
@@ -2730,7 +3449,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the accelerations of bodies due to tidal interactions with the central body</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2746,11 +3465,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine tides_kick_getacch_pl(self, system)
+public module subroutine util_coord_vh2vb_pl(self, cb)
     
     
    
-   <a href='../proc/tides_kick_getacch_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2789,12 +3508,12 @@ <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_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2815,7 +3534,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b~2"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_pl.html'>util_coord_h2b_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh~2"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_pl.html'>util_coord_vb2vh_pl</a> 
     
   </h3></div>
   
@@ -2823,7 +3542,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2839,11 +3558,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_pl(self, cb)
+public module subroutine util_coord_vb2vh_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_h2b_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2908,7 +3627,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h~2"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_pl.html'>util_coord_b2h_pl</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb~2"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_pl.html'>util_coord_xh2xb_pl</a> 
     
   </h3></div>
   
@@ -2916,7 +3635,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert massive bodies from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -2932,11 +3651,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_pl(self, cb)
+public module subroutine util_coord_xh2xb_pl(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/docs/type/whm_tp.html b/docs/type/whm_tp.html
index cf5b3b99e..70f4028f4 100644
--- a/docs/type/whm_tp.html
+++ b/docs/type/whm_tp.html
@@ -134,7 +134,7 @@ <h1>whm_tp
      <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: 8 statements,  1.1% of total for derived types.">8 statements</a>
+    title="<p> 1.1% of total for derived types.</p>Including implementation: 8 statements,  0.9% of total for derived types.">8 statements</a>
      </li> 
      
      
@@ -179,13 +179,11 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/whm_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/whm_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/whm_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#variable-id~2">id</a>
       
@@ -233,6 +231,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#variable-npltp">npltp</a>
+      
     </div>
   </div>
 </div>
@@ -261,17 +263,25 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_particle_info~9">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-drift">drift</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -281,6 +291,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame~10">write_frame</a>
+      
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -295,6 +307,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-fill~4">fill</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-get_peri">get_peri</a>
@@ -348,61 +366,77 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~whm_tp~~InheritsGraph Pages: 1 -->
-<svg id="typewhm_tpInheritsGraph" width="387pt" height="32pt"
- viewBox="0.00 0.00 387.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~whm_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typewhm_tpInheritsGraph" 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="type~~whm_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~whm_tp~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 383,-28 383,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 436,-70 436,4 -4,4"/>
 <!-- type~whm_tp -->
 <g id="type~~whm_tp~~InheritsGraph_node1" class="node">
 <title>type~whm_tp</title>
-<polygon fill="none" stroke="black" 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">whm_tp</text>
+<polygon fill="none" stroke="black" points="432,-45 378,-45 378,-21 432,-21 432,-45"/>
+<text text-anchor="middle" x="405" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_tp</text>
 </g>
 <!-- type~swiftest_tp -->
 <g id="type~~whm_tp~~InheritsGraph_node2" class="node">
 <title>type~swiftest_tp</title>
 <g id="a_type~~whm_tp~~InheritsGraph_node2"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="341,-45 278,-45 278,-21 341,-21 341,-45"/>
+<text text-anchor="middle" x="309.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
 <!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
 <g id="type~~whm_tp~~InheritsGraph_edge1" class="edge">
 <title>type~whm_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="M377.96,-33C369.63,-33 360.21,-33 351.11,-33"/>
+<polygon fill="#000000" stroke="#000000" points="351.04,-29.5 341.04,-33 351.04,-36.5 351.04,-29.5"/>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~whm_tp~~InheritsGraph_node3" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~whm_tp~~InheritsGraph_node3"><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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="241,-45 164,-45 164,-21 241,-21 241,-45"/>
+<text text-anchor="middle" x="202.5" y="-30.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_tp~~InheritsGraph_edge2" 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="M277.85,-33C269.49,-33 260.24,-33 251.17,-33"/>
+<polygon fill="#000000" stroke="#000000" points="251.08,-29.5 241.08,-33 251.08,-36.5 251.08,-29.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~whm_tp~~InheritsGraph_node4" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~whm_tp~~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>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="94.5,-66 17.5,-66 17.5,-42 94.5,-42 94.5,-66"/>
+<text text-anchor="middle" x="56" 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~~whm_tp~~InheritsGraph_edge3" class="edge">
+<g id="type~~whm_tp~~InheritsGraph_edge4" 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="M163.91,-38.46C145.84,-41.09 123.97,-44.27 104.73,-47.06"/>
+<polygon fill="#000000" stroke="#000000" points="104.04,-43.63 94.65,-48.53 105.05,-50.55 104.04,-43.63"/>
+</g>
+<!-- type~swiftest_particle_info -->
+<g id="type~~whm_tp~~InheritsGraph_node5" class="node">
+<title>type~swiftest_particle_info</title>
+<g id="a_type~~whm_tp~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_particle_info.html" xlink:title="swiftest_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="112,-24 0,-24 0,0 112,0 112,-24"/>
+<text text-anchor="middle" x="56" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_particle_info -->
+<g id="type~~whm_tp~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-27.54C151.19,-25.69 136.6,-23.57 122.36,-21.5"/>
+<polygon fill="#000000" stroke="#000000" points="122.49,-17.98 112.09,-20.01 121.48,-24.91 122.49,-17.98"/>
+<text text-anchor="middle" x="138" y="-26.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 </g>
 </svg>
@@ -536,13 +570,11 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/whm_tp.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/whm_tp.html#variable-lfirst">lfirst</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#variable-nbody">nbody</a>
       
-      <a class="list-group-item" href="../type/whm_tp.html#variable-name~2">name</a>
+      <a class="list-group-item" href="../type/whm_tp.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#variable-id~2">id</a>
       
@@ -590,6 +622,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#variable-atp">atp</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#variable-k_pltp">k_pltp</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#variable-npltp">npltp</a>
+      
     </div>
   </div>
 </div>
@@ -618,17 +654,25 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-dump~2">dump</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-dump_particle_info">dump_particle_info</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame_netcdf">write_frame_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_particle_info_netcdf">write_particle_info_netcdf</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_particle_info~9">write_particle_info</a>
+      
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-drift">drift</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-v2pv">v2pv</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-pv2v">pv2v</a>
       
-      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-initialize~3">initialize</a>
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-read_in~2">read_in</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-read_frame~3">read_frame</a>
       
-      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame~3">write_frame</a>
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame_bin~2">write_frame_bin</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-el2xv">el2xv</a>
       
@@ -638,6 +682,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-set_ir3">set_ir3</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-write_frame~10">write_frame</a>
+      
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-discard~4">discard</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-accel_int">accel_int</a>
@@ -652,6 +698,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-b2h">b2h</a>
       
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-vb2vh">vb2vh</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-vh2vb">vh2vb</a>
+      
+      <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-xh2xb">xh2xb</a>
+      
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-fill~4">fill</a>
       
       <a class="list-group-item" href="../type/whm_tp.html#boundprocedure-get_peri">get_peri</a>
@@ -704,20 +756,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-lfirst"></span>logical,</td>
@@ -748,11 +786,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-name~2"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/swiftest_particle_info.html'>swiftest_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>name</strong></td><td></td><td></td><td><p>Non-unique name</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td><p>Particle metadata information</p></td>
   
 </tr>
 
@@ -836,7 +874,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xh</strong></td><td></td><td></td><td><p>Heliocentric position</p></td>
+  <td><strong>xh</strong></td><td></td><td></td><td><p>Swiftestcentric position</p></td>
   
 </tr>
 
@@ -850,7 +888,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vh</strong></td><td></td><td></td><td><p>Heliocentric velocity</p></td>
+  <td><strong>vh</strong></td><td></td><td></td><td><p>Swiftestcentric velocity</p></td>
   
 </tr>
 
@@ -1076,7 +1114,35 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage
+  <td><strong>atp</strong></td><td></td><td></td><td><p>Semimajor axis following perihelion passage</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-k_pltp"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:,:), allocatable</td><td>::</td>
+  <td><strong>k_pltp</strong></td><td></td><td></td><td><p>Index array used to convert flattened the body-body comparison upper triangular matrix</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-npltp"></span>integer(kind=I8B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>npltp</strong></td><td></td><td></td><td><p>Number of pl-tp 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_tp and util_spill_tp</p></td>
   
@@ -1099,10 +1165,17 @@ <h2>Type-Bound Procedures</h2>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_swiftest.html'>io_dump_swiftest</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~2"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/io_dump_base.html'>io_dump_base</a> 
     
   </h3></div>
   
+  <div class="panel-body">
+    
+
+
+    <p>Dump contents to file</p>
+  </div>
+  
   <ul class="list-group">
     
       <li class="list-group-item">
@@ -1116,11 +1189,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param)
+public module subroutine io_dump_base(self, param)
     
     
    
-   <a href='../proc/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1185,7 +1258,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump_particle_info"></span><h3>procedure, public :: <strong>dump_particle_info</strong>  => <a href='../interface/io_dump_particle_info_base.html'>io_dump_particle_info_base</a> 
     
   </h3></div>
   
@@ -1193,7 +1266,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
+    <p>Dump contents of particle information metadata to file</p>
   </div>
   
   <ul class="list-group">
@@ -1209,11 +1282,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine drift_body(self, system, param, dt)
+public module subroutine io_dump_particle_info_base(self, param, idx)
     
     
    
-   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_dump_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1237,27 +1310,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <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 base object (can be cb, pl, or tp)</p></td>
   
 </tr>
 
@@ -1268,11 +1326,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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -1282,12 +1340,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</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>dt</strong></td><td><p>Stepsize</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>idx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1308,7 +1366,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_netcdf"></span><h3>procedure, public :: <strong>write_frame_netcdf</strong>  => <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a> 
     
   </h3></div>
   
@@ -1316,7 +1374,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
+    <p>I/O routine for writing out a single frame of time-series data for all bodies in the system in NetCDF format  </p>
   </div>
   
   <ul class="list-group">
@@ -1332,11 +1390,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_vh2pv_body(self, param)
+public module subroutine netcdf_write_frame_base(self, iu, param)
     
     
    
-   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_frame_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1360,12 +1418,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</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/netcdf_parameters.html'>netcdf_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  <td><strong>iu</strong></td><td><p>Parameters used to for writing a NetCDF dataset to file</p></td>
   
 </tr>
 
@@ -1380,7 +1453,7 @@ <h4>Arguments</h4>
   <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>
 
@@ -1401,7 +1474,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info_netcdf"></span><h3>procedure, public :: <strong>write_particle_info_netcdf</strong>  => <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a> 
     
   </h3></div>
   
@@ -1409,7 +1482,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+    <p>Writes out the particle information metadata to NetCDF file</p>
   </div>
   
   <ul class="list-group">
@@ -1425,11 +1498,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine gr_pv2vh_body(self, param)
+public module subroutine netcdf_write_particle_info_base(self, iu)
     
     
    
-   <a href='../proc/gr_pv2vh_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/netcdf_write_particle_info_base.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1453,8 +1526,8 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
@@ -1468,12 +1541,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/netcdf_parameters.html'>netcdf_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>iu</strong></td><td><p>Parameters used to identify a particular NetCDF dataset</p></td>
   
 </tr>
 
@@ -1494,90 +1567,32 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~3"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/io_read_body_in.html'>io_read_body_in</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_particle_info~9"></span><h3>generic, public :: <strong>write_particle_info</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_particle_info_netcdf'>write_particle_info_netcdf</a> 
     
   </h3></div>
   
-  <div class="panel-body">
-    
-
-
-    <p>Read in body initial conditions from a file</p>
-  </div>
-  
   <ul class="list-group">
     
       <li class="list-group-item">
       
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
+         
+            
     
     <h3>
-public module subroutine io_read_body_in(self, param)
+public interface <a href='../interface/netcdf_write_particle_info_base.html'>netcdf_write_particle_info_base</a>()
     
     
    
-   <a href='../proc/io_read_body_in.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_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body 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>
-
-      
+      <em>None</em>
     
     
 
-        
+         
       
       </li>
     
@@ -1587,7 +1602,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-drift"></span><h3>procedure, public :: <strong>drift</strong>  => <a href='../interface/drift_body.html'>drift_body</a> 
     
   </h3></div>
   
@@ -1595,7 +1610,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Loop through bodies and call Danby drift routine on heliocentric variables</p>
   </div>
   
   <ul class="list-group">
@@ -1611,11 +1626,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_read_frame_body(self, iu, param, form, ierr)
+public module subroutine drift_body(self, system, param, dt)
     
     
    
-   <a href='../proc/io_read_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/drift_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1644,7 +1659,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle data structure</p></td>
   
 </tr>
 
@@ -1654,12 +1669,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -1670,26 +1685,11 @@ <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></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>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -1699,12 +1699,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</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>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>dt</strong></td><td><p>Stepsize</p></td>
   
 </tr>
 
@@ -1725,7 +1725,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~3"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-v2pv"></span><h3>procedure, public :: <strong>v2pv</strong>  => <a href='../interface/gr_vh2pv_body.html'>gr_vh2pv_body</a> 
     
   </h3></div>
   
@@ -1733,7 +1733,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+    <p>Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</p>
   </div>
   
   <ul class="list-group">
@@ -1749,11 +1749,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_write_frame_body(self, iu, param)
+public pure module subroutine gr_vh2pv_body(self, param)
     
     
    
-   <a href='../proc/io_write_frame_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/gr_vh2pv_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1778,11 +1778,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
   
 </tr>
 
@@ -1792,21 +1792,99 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</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>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</p></td>
   
 </tr>
 
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-pv2v"></span><h3>procedure, public :: <strong>pv2v</strong>  => <a href='../interface/gr_pv2vh_body.html'>gr_pv2vh_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public pure module subroutine gr_pv2vh_body(self, param)
+    
+    
+   
+   <a href='../proc/gr_pv2vh_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
   
-  
-  
-  
-<tr>
-  
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
@@ -1833,7 +1911,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_in~2"></span><h3>procedure, public :: <strong>read_in</strong>  => <a href='../interface/io_read_in_body.html'>io_read_in_body</a> 
     
   </h3></div>
   
@@ -1841,7 +1919,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert orbital elements to position and velocity vectors</p>
+    <p>Read in body initial conditions from a file</p>
   </div>
   
   <ul class="list-group">
@@ -1857,11 +1935,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_el2xv_vec(self, cb)
+public module subroutine io_read_in_body(self, param)
     
     
    
-   <a href='../proc/orbel_el2xv_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/io_read_in_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1900,12 +1978,120 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <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>cb</strong></td><td><p>Swiftest central body object</p></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~3"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/io_read_frame_body.html'>io_read_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module function io_read_frame_body(self, iu, param) result(ierr)
+    
+    
+   
+   <a href='../proc/io_read_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
 
@@ -1916,7 +2102,591 @@ <h4>Arguments</h4>
     
     
 
-        
+  
+  
+  
+  
+     <h4>Return Value <small>integer(kind=I4B)
+  </small></h4>
+  <p>Error code: returns 0 if the read is successful</p>
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame_bin~2"></span><h3>procedure, public :: <strong>write_frame_bin</strong>  => <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>I/O routine for writing out a single frame of time-series data for the central body</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine io_write_frame_body(self, iu, param)
+    
+    
+   
+   <a href='../proc/io_write_frame_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body 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>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-el2xv"></span><h3>procedure, public :: <strong>el2xv</strong>  => <a href='../interface/orbel_el2xv_vec.html'>orbel_el2xv_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert orbital elements to position and velocity vectors</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_el2xv_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_el2xv_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Convert position and velocity vectors to orbital  elements </p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine orbel_xv2el_vec(self, cb)
+    
+    
+   
+   <a href='../proc/orbel_xv2el_vec.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest 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="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add user-supplied heliocentric accelerations to planets</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+    
+    
+   
+   <a href='../proc/user_kick_getacch_body.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<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>system</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>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>t</strong></td><td><p>Current time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_set_ir3h(self)
+    
+    
+   
+   <a href='../proc/util_set_ir3h.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_body.html'>swiftest_body</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest body object</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~10"></span><h3>generic, public :: <strong>write_frame</strong>  => <a href='../type/swiftest_base.html#boundprocedure-write_frame_netcdf'>write_frame_netcdf</a>, <a href='../type/swiftest_body.html#boundprocedure-write_frame_bin~2'>write_frame_bin</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Add the generic write frame for Fortran binary files</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/netcdf_write_frame_base.html'>netcdf_write_frame_base</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
+      
+      </li>
+    
+      <li class="list-group-item">
+      
+         
+            
+    
+    <h3>
+public interface <a href='../interface/io_write_frame_body.html'>io_write_frame_body</a>()
+    
+    
+   
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      <em>None</em>
+    
+    
+
+         
       
       </li>
     
@@ -1926,7 +2696,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xv2el"></span><h3>procedure, public :: <strong>xv2el</strong>  => <a href='../interface/orbel_xv2el_vec.html'>orbel_xv2el_vec</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~4"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_tp.html'>discard_tp</a> 
     
   </h3></div>
   
@@ -1934,7 +2704,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert position and velocity vectors to orbital  elements </p>
+    <p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -1950,11 +2720,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine orbel_xv2el_vec(self, cb)
+public module subroutine discard_tp(self, system, param)
     
     
    
-   <a href='../proc/orbel_xv2el_vec.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -1978,12 +2748,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest body object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -1993,12 +2763,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</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>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>system</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</p></td>
   
 </tr>
 
@@ -2019,7 +2804,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_user"></span><h3>procedure, public :: <strong>accel_user</strong>  => <a href='../interface/user_kick_getacch_body.html'>user_kick_getacch_body</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
     
   </h3></div>
   
@@ -2027,7 +2812,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Add user-supplied heliocentric accelerations to planets</p>
+    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
   </div>
   
   <ul class="list-group">
@@ -2043,11 +2828,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
+public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
     
     
    
-   <a href='../proc/user_kick_getacch_body.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2071,27 +2856,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body particle data structure</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <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 test particle</p></td>
   
 </tr>
 
@@ -2101,12 +2871,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>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>dimension(:)</td><td>::</td>
+  <td><strong>GMpl</strong></td><td><p>Massive body masses</p></td>
   
 </tr>
 
@@ -2117,11 +2887,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td>intent(in),</td>
   <td></td>
   
-  <td></td><td>::</td>
-  <td><strong>t</strong></td><td><p>Current time</p></td>
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xhp</strong></td><td><p>Massive body position vectors</p></td>
   
 </tr>
 
@@ -2131,12 +2901,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lbeg</strong></td><td><p>Optional argument that determines whether or not this is the beginning or end of the step</p></td>
+  <td><strong>npl</strong></td><td><p>Number of active massive bodies</p></td>
   
 </tr>
 
@@ -2157,7 +2927,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-set_ir3"></span><h3>procedure, public :: <strong>set_ir3</strong>  => <a href='../interface/util_set_ir3h.html'>util_set_ir3h</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
     
   </h3></div>
   
@@ -2165,7 +2935,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Sets the inverse heliocentric radius term (1/rh**3)</p>
+    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
   </div>
   
   <ul class="list-group">
@@ -2181,11 +2951,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_set_ir3h(self)
+public module subroutine obl_acc_tp(self, system)
     
     
    
-   <a href='../proc/util_set_ir3h.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2209,12 +2979,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</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>self</strong></td><td><p>Swiftest body object</p></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>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -2235,7 +3020,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-discard~4"></span><h3>procedure, public :: <strong>discard</strong>  => <a href='../interface/discard_tp.html'>discard_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~4"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_tp.html'>setup_tp</a> 
     
   </h3></div>
   
@@ -2243,7 +3028,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Check to see if test particles should be discarded based on their positions relative to the massive bodies</p>
+    <p>A base constructor that sets the number of bodies and </p>
   </div>
   
   <ul class="list-group">
@@ -2259,11 +3044,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine discard_tp(self, system, param)
+public module subroutine setup_tp(self, n, param)
     
     
    
-   <a href='../proc/discard_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2302,12 +3087,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>n</strong></td><td><p>Number of particles to allocate space for</p></td>
   
 </tr>
 
@@ -2318,11 +3103,11 @@ <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>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 parametersr</p></td>
   
 </tr>
 
@@ -2343,7 +3128,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_int"></span><h3>procedure, public :: <strong>accel_int</strong>  => <a href='../interface/kick_getacch_int_tp.html'>kick_getacch_int_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~4"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_tp.html'>util_append_tp</a> 
     
   </h3></div>
   
@@ -2351,7 +3136,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</p>
+    <p>Appends elements from one structure to another</p>
   </div>
   
   <ul class="list-group">
@@ -2367,11 +3152,11 @@ <h3>interface
           
     
     <h3>
-public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl)
+public module subroutine util_append_tp(self, source, lsource_mask)
     
     
    
-   <a href='../proc/kick_getacch_int_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2400,7 +3185,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -2410,12 +3195,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_body.html'>swiftest_body</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>GMpl</strong></td><td><p>Massive body masses</p></td>
+  <td></td><td>::</td>
+  <td><strong>source</strong></td><td><p>Source object to append</p></td>
   
 </tr>
 
@@ -2425,27 +3210,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td></td>
   
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>xhp</strong></td><td><p>Massive body position 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>npl</strong></td><td><p>Number of active massive bodies</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
   
 </tr>
 
@@ -2466,7 +3236,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-accel_obl"></span><h3>procedure, public :: <strong>accel_obl</strong>  => <a href='../interface/obl_acc_tp.html'>obl_acc_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
     
   </h3></div>
   
@@ -2474,7 +3244,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Compute the barycentric accelerations of bodies due to the oblateness of the central body</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2490,11 +3260,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine obl_acc_tp(self, system)
+public module subroutine util_coord_h2b_tp(self, cb)
     
     
    
-   <a href='../proc/obl_acc_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2533,12 +3303,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2559,7 +3329,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-setup~4"></span><h3>procedure, public :: <strong>setup</strong>  => <a href='../interface/setup_tp.html'>setup_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
     
   </h3></div>
   
@@ -2567,7 +3337,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>A base constructor that sets the number of bodies and </p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
   </div>
   
   <ul class="list-group">
@@ -2583,11 +3353,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine setup_tp(self, n, param)
+public module subroutine util_coord_b2h_tp(self, cb)
     
     
    
-   <a href='../proc/setup_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2626,27 +3396,12 @@ <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>n</strong></td><td><p>Number of particles to allocate space for</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<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/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parametersr</p></td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -2667,7 +3422,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-append~4"></span><h3>procedure, public :: <strong>append</strong>  => <a href='../interface/util_append_tp.html'>util_append_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vb2vh"></span><h3>procedure, public :: <strong>vb2vh</strong>  => <a href='../interface/util_coord_vb2vh_tp.html'>util_coord_vb2vh_tp</a> 
     
   </h3></div>
   
@@ -2675,7 +3430,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Appends elements from one structure to another</p>
+    <p>Convert test particles from barycentric to heliocentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2691,11 +3446,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_append_tp(self, source, lsource_mask)
+public module subroutine util_coord_vb2vh_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_append_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vb2vh_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2734,27 +3489,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>source</strong></td><td><p>Source object to append</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in),</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>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -2775,7 +3515,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-h2b"></span><h3>procedure, public :: <strong>h2b</strong>  => <a href='../interface/util_coord_h2b_tp.html'>util_coord_h2b_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-vh2vb"></span><h3>procedure, public :: <strong>vh2vb</strong>  => <a href='../interface/util_coord_vh2vb_tp.html'>util_coord_vh2vb_tp</a> 
     
   </h3></div>
   
@@ -2783,7 +3523,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from heliocentric to barycentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (velocity only)</p>
   </div>
   
   <ul class="list-group">
@@ -2799,11 +3539,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_h2b_tp(self, cb)
+public module subroutine util_coord_vh2vb_tp(self, vbcb)
     
     
    
-   <a href='../proc/util_coord_h2b_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_vh2vb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -2842,12 +3582,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(in)</td>
+  <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>dimension(:)</td><td>::</td>
+  <td><strong>vbcb</strong></td><td><p>Barycentric velocity of the central body</p></td>
   
 </tr>
 
@@ -2868,7 +3608,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-b2h"></span><h3>procedure, public :: <strong>b2h</strong>  => <a href='../interface/util_coord_b2h_tp.html'>util_coord_b2h_tp</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-xh2xb"></span><h3>procedure, public :: <strong>xh2xb</strong>  => <a href='../interface/util_coord_xh2xb_tp.html'>util_coord_xh2xb_tp</a> 
     
   </h3></div>
   
@@ -2876,7 +3616,7 @@ <h4>Arguments</h4>
     
 
 
-    <p>Convert test particles from barycentric to heliocentric coordinates (position and velocity)</p>
+    <p>Convert test particles from heliocentric to barycentric coordinates (position only)</p>
   </div>
   
   <ul class="list-group">
@@ -2892,11 +3632,11 @@ <h3>interface
           
     
     <h3>
-public module subroutine util_coord_b2h_tp(self, cb)
+public module subroutine util_coord_xh2xb_tp(self, cb)
     
     
    
-   <a href='../proc/util_coord_b2h_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_coord_xh2xb_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
diff --git a/examples/symba_mars_disk/param.in b/examples/symba_mars_disk/param.in
index b75341794..023f31647 100644
--- a/examples/symba_mars_disk/param.in
+++ b/examples/symba_mars_disk/param.in
@@ -1,6 +1,6 @@
 !Parameter file for the SyMBA-RINGMOONS test
 T0             0.0 
-TSTOP          12000.0
+TSTOP          1200.0
 DT             600.0
 CB_IN          cb.in
 PL_IN          mars.in
@@ -31,4 +31,4 @@ MU2KG          1.0
 DU2M           1.0
 TU2S           1.0
 SEED           2 3080983 2220830
-FLATTEN_INTERACTIONS yes
+INTERACTION_LOOPS ADAPTIVE
diff --git a/src/drift/drift.f90 b/src/drift/drift.f90
index e929a95fa..296ceb553 100644
--- a/src/drift/drift.f90
+++ b/src/drift/drift.f90
@@ -77,18 +77,18 @@ module subroutine drift_all(mu, x, v, n, param, dt, lmask, iflag)
       else
          where(lmask(1:n)) dtp(1:n) = dt
       end if 
-      !$omp parallel do default(private) &
-      !$omp shared(n, lmask, mu, x, v, dtp, iflag)
-      do i = 1,n
+      !$omp simd
+      do i = 1, n
          if (lmask(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
-      !$omp end parallel do
+      !$omp end simd
 
       return
    end subroutine drift_all
 
 
    module pure elemental subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) 
+      !$omp declare simd(drift_one)
       !! 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
@@ -104,27 +104,22 @@ module pure elemental subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag
       ! 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)
+      call drift_dan(mu, px, py, pz, vx, vy, vz, dt, iflag)
       if (iflag /= 0) then
          dttmp = 0.1_DP * dt
          do i = 1, 10
-            call drift_dan(mu, x(:), v(:), dttmp, iflag)
+            call drift_dan(mu, px, py, pz, vx, vy, vz, 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)
+   pure subroutine drift_dan(mu, px0, py0, pz0, vx0, vy0, vz0, dt0, iflag)
+      !$omp declare simd(drift_dan)
       !! author: David A. Minton
       !!
       !! Perform Kepler drift, solving Kepler's equation in appropriate variables
@@ -134,14 +129,16 @@ pure subroutine drift_dan(mu, x0, v0, dt0, iflag)
       implicit none
       integer(I4B), intent(out)                :: iflag
       real(DP), intent(in)                     :: mu, dt0
-      real(DP), dimension(:), intent(inout)    :: x0, v0      
+      real(DP), intent(inout)    :: px0, py0, pz0, vx0, vy0, vz0      
       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
+      real(DP), dimension(NDIM) :: x, v, x0, v0
 
       ! Executable code
       iflag = 0
       dt = dt0
+      x0 = [px0, py0, pz0]
+      v0 = [vx0, vy0, vz0]
       r0 = sqrt(dot_product(x0(:), x0(:))) 
       v0s = dot_product(v0(:), v0(:))
       u = dot_product(x0(:),  v0(:))
@@ -172,8 +169,8 @@ pure subroutine drift_dan(mu, x0, v0, dt0, iflag)
             gdot = (c - 1.0_DP) / fp + 1.0_DP
             x(:) = x0(:) * f + v0(:) * g
             v(:) = x0(:) * fdot + v0(:) * gdot
-            x0(:) = x(:)
-            v0(:) = v(:)
+            px0 = x(1); py0 = x(2); pz0 = x(3)
+            vx0 = v(1); vy0 = v(2); vz0 = v(3)
             iflag = 0
             return
          end if
@@ -187,8 +184,8 @@ pure subroutine drift_dan(mu, x0, v0, dt0, iflag)
          gdot = 1.0_DP - mu / fp * c2
          x(:) = x0(:) * f + v0(:) * g
          v(:) = x0(:) * fdot + v0(:) * gdot
-         x0(:) = x(:)
-         v0(:) = v(:)
+         px0 = x(1); py0 = x(2); pz0 = x(3)
+         vx0 = v(1); vy0 = v(2); vz0 = v(3)
       end if
 
       return
@@ -196,6 +193,7 @@ end subroutine drift_dan
 
 
    pure subroutine drift_kepmd(dm, es, ec, x, s, c)
+      !$omp declare simd(drift_kepmd)
       !! author: David A. Minton
       !!
       !! Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity
@@ -235,6 +233,7 @@ end subroutine drift_kepmd
 
 
    pure subroutine drift_kepu(dt,r0,mu,alpha,u,fp,c1,c2,c3,iflag)
+      !$omp declare simd(drift_kepu)
       !! author: David A. Minton
       !!
       !! Solve Kepler's equation in universal variables
@@ -263,6 +262,7 @@ end subroutine drift_kepu
 
 
    pure subroutine drift_kepu_fchk(dt, r0, mu, alpha, u, s, f)
+      !$omp declare simd(drift_kepu_fchk)
       !! author: David A. Minton
       !!
       !! Computes the value of f, the function whose root we are trying to find in universal variables
@@ -286,6 +286,7 @@ end subroutine drift_kepu_fchk
 
 
    pure subroutine drift_kepu_guess(dt, r0, mu, alpha, u, s)
+      !$omp declare simd(drift_kepu_guess)
       !! author: David A. Minton
       !!
       !! Compute initial guess for solving Kepler's equation using universal variables
@@ -324,6 +325,7 @@ end subroutine drift_kepu_guess
 
 
    pure subroutine drift_kepu_lag(s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag)
+      !$omp declare simd(drift_kepu_lag)
       !! author: David A. Minton
       !!
       !! Solve Kepler's equation in universal variables using Laguerre's method
@@ -369,6 +371,7 @@ end subroutine drift_kepu_lag
 
 
    pure subroutine drift_kepu_new(s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag)
+      !$omp declare simd(drift_kepu_new)
       !! author: David A. Minton
       !!
       !! Solve Kepler's equation in universal variables using Newton's method
@@ -411,6 +414,7 @@ end subroutine drift_kepu_new
 
 
    pure subroutine drift_kepu_p3solve(dt, r0, mu, alpha, u, s, iflag)
+      !$omp declare simd(drift_kepu_p3solve)
       !! author: David A. Minton
       !!
       !! Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables
@@ -455,6 +459,7 @@ end subroutine drift_kepu_p3solve
    
 
    pure subroutine drift_kepu_stumpff(x, c0, c1, c2, c3)
+      !$omp declare simd(drift_kepu_stumpff)
       !! author: David A. Minton
       !!
       !! Compute Stumpff functions needed for Kepler drift in universal variables
diff --git a/src/fraggle/fraggle_generate.f90 b/src/fraggle/fraggle_generate.f90
index 1c189c5ca..af10af236 100644
--- a/src/fraggle/fraggle_generate.f90
+++ b/src/fraggle/fraggle_generate.f90
@@ -18,7 +18,7 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
       class(fraggle_fragments),     intent(inout) :: self      !! Fraggle system object the outputs will be the fragmentation 
       class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle colliders object containing the two-body equivalent values of the colliding bodies 
       class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
-      class(swiftest_parameters),   intent(in)    :: param     !! Current run configuration parameters 
+      class(swiftest_parameters),   intent(inout) :: param     !! Current run configuration parameters 
       logical,                      intent(out)   :: lfailure  !! Answers the question: Should this have been a merger instead?
       ! Internals
       integer(I4B)                         :: i
@@ -39,10 +39,10 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
       associate(frag => self, nfrag => self%nbody, pl => system%pl)
 
          write(message,*) nfrag
-         call fraggle_io_log_one_message("Fraggle generating " // trim(adjustl(message)) // " fragments.")
+         call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle generating " // trim(adjustl(message)) // " fragments.")
          if (nfrag < NFRAG_MIN) then
             write(message,*) "Fraggle needs at least ",NFRAG_MIN," fragments, but only ",nfrag," were given."
-            call fraggle_io_log_one_message(message)
+            call io_log_one_message(FRAGGLE_LOG_OUT, message)
             lfailure = .true.
             return
          end if
@@ -64,7 +64,7 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
          try = 1
          do while (try < MAXTRY)
             write(message,*) try
-            call fraggle_io_log_one_message("Fraggle try " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle try " // trim(adjustl(message)))
             if (lfailure) then
                call frag%restructure(colliders, try, f_spin, r_max_start)
                call frag%reset()
@@ -87,19 +87,19 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
 
             call fraggle_generate_spins(frag, colliders, f_spin, lfailure)
             if (lfailure) then
-               call fraggle_io_log_one_message("Fraggle failed to find spins")
+               call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle failed to find spins")
                cycle
             end if
 
             call fraggle_generate_tan_vel(frag, colliders, lfailure)
             if (lfailure) then
-               call fraggle_io_log_one_message("Fraggle failed to find tangential velocities")
+               call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle failed to find tangential velocities")
                cycle
             end if
 
             call fraggle_generate_rad_vel(frag, colliders, lfailure)
             if (lfailure) then
-               call fraggle_io_log_one_message("Fraggle failed to find radial velocities")
+               call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle failed to find radial velocities")
                cycle
             end if
 
@@ -110,14 +110,14 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
             lfailure = ((abs(dEtot + frag%Qloss) > FRAGGLE_ETOL) .or. (dEtot > 0.0_DP)) 
             if (lfailure) then
                write(message, *) dEtot, abs(dEtot + frag%Qloss) / FRAGGLE_ETOL
-               call fraggle_io_log_one_message("Fraggle failed due to high energy error: " // trim(adjustl(message)))
+               call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle failed due to high energy error: " // trim(adjustl(message)))
                cycle
             end if
 
             lfailure = ((abs(dLmag) / (.mag.frag%Ltot_before)) > FRAGGLE_LTOL) 
             if (lfailure) then
                write(message,*) dLmag / (.mag.frag%Ltot_before(:))
-               call fraggle_io_log_one_message("Fraggle failed due to high angular momentum error: " // trim(adjustl(message)))
+               call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle failed due to high angular momentum error: " // trim(adjustl(message)))
                cycle
             end if
 
@@ -126,21 +126,21 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
             lfailure = any(fpe_flag) 
             if (.not.lfailure) exit
             write(message,*) "Fraggle failed due to a floating point exception: ", fpe_flag
-            call fraggle_io_log_one_message(message)
+            call io_log_one_message(FRAGGLE_LOG_OUT, message)
          end do
 
          write(message,*) try
          if (lfailure) then
-            call fraggle_io_log_one_message("Fraggle fragment generation failed after " // trim(adjustl(message)) // " tries")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle fragment generation failed after " // trim(adjustl(message)) // " tries")
          else
-            call fraggle_io_log_one_message("Fraggle fragment generation succeeded after " // trim(adjustl(message)) // " tries")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Fraggle fragment generation succeeded after " // trim(adjustl(message)) // " tries")
             call fraggle_io_log_generate(frag)
          end if
 
          call frag%set_original_scale(colliders)
 
          ! Restore the big array
-         if (lk_plpl) call pl%index(param)
+         if (lk_plpl) call pl%flatten(param)
       end associate
       call ieee_set_halting_mode(IEEE_ALL,fpe_halting_modes)  ! Save the current halting modes so we can turn them off temporarily
 
@@ -254,16 +254,16 @@ subroutine fraggle_generate_spins(frag, colliders, f_spin, lfailure)
          lfailure = ((frag%ke_budget - frag%ke_spin - frag%ke_orbit) < 0.0_DP)
 
          if (lfailure) then
-            call fraggle_io_log_one_message(" ")
-            call fraggle_io_log_one_message("Spin failure diagnostics")
+            call io_log_one_message(FRAGGLE_LOG_OUT, " ")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Spin failure diagnostics")
             write(message, *) frag%ke_budget
-            call fraggle_io_log_one_message("ke_budget     : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_budget     : " // trim(adjustl(message)))
             write(message, *) frag%ke_spin
-            call fraggle_io_log_one_message("ke_spin       : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_spin       : " // trim(adjustl(message)))
             write(message, *) frag%ke_orbit
-            call fraggle_io_log_one_message("ke_orbit      : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_orbit      : " // trim(adjustl(message)))
             write(message, *) frag%ke_budget - frag%ke_spin - frag%ke_orbit
-            call fraggle_io_log_one_message("ke_remainder  : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_remainder  : " // trim(adjustl(message)))
          end if
 
       end associate
@@ -355,20 +355,20 @@ subroutine fraggle_generate_tan_vel(frag, colliders, lfailure)
          ! If we are over the energy budget, flag this as a failure so we can try again
          lfailure = ((frag%ke_budget - frag%ke_spin - frag%ke_orbit) < 0.0_DP)
          if (lfailure) then
-            call fraggle_io_log_one_message(" ")
-            call fraggle_io_log_one_message("Tangential velocity failure diagnostics")
+            call io_log_one_message(FRAGGLE_LOG_OUT, " ")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Tangential velocity failure diagnostics")
             call frag%get_ang_mtm()
             L_frag_tot = frag%L_spin(:) + frag%L_orbit(:)
             write(message, *) .mag.(frag%L_budget(:) - L_frag_tot(:)) / (.mag.frag%Ltot_before(:))
-            call fraggle_io_log_one_message("|L_remainder| : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "|L_remainder| : " // trim(adjustl(message)))
             write(message, *) frag%ke_budget
-            call fraggle_io_log_one_message("ke_budget     : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_budget     : " // trim(adjustl(message)))
             write(message, *) frag%ke_spin
-            call fraggle_io_log_one_message("ke_spin       : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_spin       : " // trim(adjustl(message)))
             write(message, *) frag%ke_orbit
-            call fraggle_io_log_one_message("ke_tangential : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_tangential : " // trim(adjustl(message)))
             write(message, *) frag%ke_budget - frag%ke_spin - frag%ke_orbit
-            call fraggle_io_log_one_message("ke_radial     : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_radial     : " // trim(adjustl(message)))
          end if
       end associate
 
@@ -515,16 +515,16 @@ subroutine fraggle_generate_rad_vel(frag, colliders, lfailure)
 
          lfailure = abs((frag%ke_budget - (frag%ke_orbit + frag%ke_spin)) / frag%ke_budget) > FRAGGLE_ETOL
          if (lfailure) then
-            call fraggle_io_log_one_message(" ")
-            call fraggle_io_log_one_message("Radial velocity failure diagnostics")
+            call io_log_one_message(FRAGGLE_LOG_OUT, " ")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Radial velocity failure diagnostics")
             write(message, *) frag%ke_budget
-            call fraggle_io_log_one_message("ke_budget     : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_budget     : " // trim(adjustl(message)))
             write(message, *) frag%ke_spin
-            call fraggle_io_log_one_message("ke_spin       : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_spin       : " // trim(adjustl(message)))
             write(message, *) frag%ke_orbit
-            call fraggle_io_log_one_message("ke_orbit : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_orbit : " // trim(adjustl(message)))
             write(message, *) frag%ke_budget - (frag%ke_orbit + frag%ke_spin)
-            call fraggle_io_log_one_message("ke_remainder  : " // trim(adjustl(message)))
+            call io_log_one_message(FRAGGLE_LOG_OUT, "ke_remainder  : " // trim(adjustl(message)))
          end if
 
       end associate
diff --git a/src/fraggle/fraggle_io.f90 b/src/fraggle/fraggle_io.f90
index dbd721216..410592782 100644
--- a/src/fraggle/fraggle_io.f90
+++ b/src/fraggle/fraggle_io.f90
@@ -15,45 +15,45 @@ module subroutine fraggle_io_log_generate(frag)
       character(STRMAX) :: errmsg
       character(len=*), parameter :: fmtlabel = "(A14,10(ES11.4,1X,:))"
 
-      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
-      write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg)
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      write(FRAGGLE_LOG_UNIT, *) "           Fraggle fragment generation results"
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      write(FRAGGLE_LOG_UNIT,    "(' dL_tot should be very small' )")
-      write(FRAGGLE_LOG_UNIT,fmtlabel) ' dL_tot      |', (.mag.(frag%Ltot_after(:) - frag%Ltot_before(:))) / (.mag.frag%Ltot_before(:))
-      write(FRAGGLE_LOG_UNIT,        "(' dE_tot should be negative and equal to Qloss' )")
-      write(FRAGGLE_LOG_UNIT,fmtlabel) ' dE_tot      |', (frag%Etot_after - frag%Etot_before) / abs(frag%Etot_before)
-      write(FRAGGLE_LOG_UNIT,fmtlabel) ' Qloss       |', -frag%Qloss / abs(frag%Etot_before)
-      write(FRAGGLE_LOG_UNIT,fmtlabel) ' dE - Qloss  |', (frag%Etot_after - frag%Etot_before + frag%Qloss) / abs(frag%Etot_before)
-      write(FRAGGLE_LOG_UNIT,        "(' -------------------------------------------------------------------------------------')")
-      write(FRAGGLE_LOG_UNIT, *) "Individual fragment values (collisional system natural units)"
-      write(FRAGGLE_LOG_UNIT, *) "mass"
+      open(unit=LUN, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(LUN, *, err = 667, iomsg = errmsg)
+      write(LUN, *) "--------------------------------------------------------------------"
+      write(LUN, *) "           Fraggle fragment generation results"
+      write(LUN, *) "--------------------------------------------------------------------"
+      write(LUN,    "(' dL_tot should be very small' )")
+      write(LUN,fmtlabel) ' dL_tot      |', (.mag.(frag%Ltot_after(:) - frag%Ltot_before(:))) / (.mag.frag%Ltot_before(:))
+      write(LUN,        "(' dE_tot should be negative and equal to Qloss' )")
+      write(LUN,fmtlabel) ' dE_tot      |', (frag%Etot_after - frag%Etot_before) / abs(frag%Etot_before)
+      write(LUN,fmtlabel) ' Qloss       |', -frag%Qloss / abs(frag%Etot_before)
+      write(LUN,fmtlabel) ' dE - Qloss  |', (frag%Etot_after - frag%Etot_before + frag%Qloss) / abs(frag%Etot_before)
+      write(LUN,        "(' -------------------------------------------------------------------------------------')")
+      write(LUN, *) "Individual fragment values (collisional system natural units)"
+      write(LUN, *) "mass"
       do i = 1, frag%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, frag%mass(i)
+         write(LUN, *) i, frag%mass(i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "x_coll"
+      write(LUN, *) "x_coll"
       do i = 1, frag%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, frag%x_coll(:,i)
+         write(LUN, *) i, frag%x_coll(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "v_coll"
+      write(LUN, *) "v_coll"
       do i = 1, frag%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, frag%v_coll(:,i)
+         write(LUN, *) i, frag%v_coll(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "xb"
+      write(LUN, *) "xb"
       do i = 1, frag%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, frag%xb(:,i)
+         write(LUN, *) i, frag%xb(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "vb"
+      write(LUN, *) "vb"
       do i = 1, frag%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, frag%vb(:,i)
+         write(LUN, *) i, frag%vb(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "rot"
+      write(LUN, *) "rot"
       do i = 1, frag%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, frag%rot(:,i)
+         write(LUN, *) i, frag%rot(:,i)
       end do
 
-      close(FRAGGLE_LOG_UNIT)
+      close(LUN)
 
       return
       667 continue
@@ -61,24 +61,24 @@ module subroutine fraggle_io_log_generate(frag)
    end subroutine fraggle_io_log_generate
 
 
-   module subroutine fraggle_io_log_one_message(message)
-      !! author: David A. Minton
-      !!
-      !! Writes a single message to the fraggle log file
-      implicit none
-      ! Arguments
-      character(len=*), intent(in) :: message
-      ! Internals
-      character(STRMAX) :: errmsg
+   ! module subroutine io_log_one_message(FRAGGLE_LOG_OUT, message)
+   !    !! author: David A. Minton
+   !    !!
+   !    !! Writes a single message to the fraggle log file
+   !    implicit none
+   !    ! Arguments
+   !    character(len=*), intent(in) :: message
+   !    ! Internals
+   !    character(STRMAX) :: errmsg
 
-      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
-      write(FRAGGLE_LOG_UNIT, *) trim(adjustl(message)) 
-      close(FRAGGLE_LOG_UNIT)
+   !    open(unit=LUN, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+   !    write(LUN, *) trim(adjustl(message)) 
+   !    close(LUN)
 
-      return
-      667 continue
-      write(*,*) "Error writing Fraggle message to log file: " // trim(adjustl(errmsg))
-   end subroutine fraggle_io_log_one_message
+   !    return
+   !    667 continue
+   !    write(*,*) "Error writing Fraggle message to log file: " // trim(adjustl(errmsg))
+   ! end subroutine fraggle_io_log_one_message
 
 
    module subroutine fraggle_io_log_pl(pl, param)
@@ -93,68 +93,68 @@ module subroutine fraggle_io_log_pl(pl, param)
       integer(I4B) :: i
       character(STRMAX) :: errmsg
 
-      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
-      write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg)
+      open(unit=LUN, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(LUN, *, err = 667, iomsg = errmsg)
 
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      write(FRAGGLE_LOG_UNIT, *) "           Fraggle fragment final body properties"
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      write(FRAGGLE_LOG_UNIT, *) "id, name"
+      write(LUN, *) "--------------------------------------------------------------------"
+      write(LUN, *) "           Fraggle fragment final body properties"
+      write(LUN, *) "--------------------------------------------------------------------"
+      write(LUN, *) "id, name"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%id(i), pl%info(i)%name
+         write(LUN, *) i, pl%id(i), pl%info(i)%name
       end do
-      write(FRAGGLE_LOG_UNIT, *) "mass, Gmass"
+      write(LUN, *) "mass, Gmass"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%mass(i), pl%Gmass(i)
+         write(LUN, *) i, pl%mass(i), pl%Gmass(i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "radius"
+      write(LUN, *) "radius"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%radius(i)
+         write(LUN, *) i, pl%radius(i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "xb"
+      write(LUN, *) "xb"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%xb(:,i)
+         write(LUN, *) i, pl%xb(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "vb"
+      write(LUN, *) "vb"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%vb(:,i)
+         write(LUN, *) i, pl%vb(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "xh"
+      write(LUN, *) "xh"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%xh(:,i)
+         write(LUN, *) i, pl%xh(:,i)
       end do
-      write(FRAGGLE_LOG_UNIT, *) "vh"
+      write(LUN, *) "vh"
       do i = 1, pl%nbody
-         write(FRAGGLE_LOG_UNIT, *) i, pl%vh(:,i)
+         write(LUN, *) i, pl%vh(:,i)
       end do
 
       if (param%lrotation) then
-         write(FRAGGLE_LOG_UNIT, *) "rot"
+         write(LUN, *) "rot"
          do i = 1, pl%nbody
-            write(FRAGGLE_LOG_UNIT, *) i, pl%rot(:,i)
+            write(LUN, *) i, pl%rot(:,i)
          end do
-         write(FRAGGLE_LOG_UNIT, *) "Ip"
+         write(LUN, *) "Ip"
          do i = 1, pl%nbody
-            write(FRAGGLE_LOG_UNIT, *) i, pl%Ip(:,i)
+            write(LUN, *) i, pl%Ip(:,i)
          end do
       end if
 
       if (param%ltides) then
-         write(FRAGGLE_LOG_UNIT, *) "Q"
+         write(LUN, *) "Q"
          do i = 1, pl%nbody
-            write(FRAGGLE_LOG_UNIT, *) i, pl%Q(i)
+            write(LUN, *) i, pl%Q(i)
          end do
-         write(FRAGGLE_LOG_UNIT, *) "k2"
+         write(LUN, *) "k2"
          do i = 1, pl%nbody
-            write(FRAGGLE_LOG_UNIT, *) i, pl%k2(i)
+            write(LUN, *) i, pl%k2(i)
          end do
-         write(FRAGGLE_LOG_UNIT, *) "tlag"
+         write(LUN, *) "tlag"
          do i = 1, pl%nbody
-            write(FRAGGLE_LOG_UNIT, *) i, pl%tlag(i)
+            write(LUN, *) i, pl%tlag(i)
          end do
       end if
 
-      close(FRAGGLE_LOG_UNIT)
+      close(LUN)
 
       return
       667 continue
@@ -173,54 +173,54 @@ module subroutine fraggle_io_log_regime(colliders, frag)
       ! Internals
       character(STRMAX) :: errmsg
 
-      open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
-      write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg)
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      write(FRAGGLE_LOG_UNIT, *) "           Fraggle collisional regime determination results"
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      write(FRAGGLE_LOG_UNIT, *) "----------------------- Collider information -----------------------" 
-      write(FRAGGLE_LOG_UNIT, *) "True number of colliders : ",colliders%ncoll
-      write(FRAGGLE_LOG_UNIT, *) "Index list of true colliders  : ",colliders%idx(1:colliders%ncoll)
-      write(FRAGGLE_LOG_UNIT, *) "-------------------- Two-body equialent values ---------------------"
-      write(FRAGGLE_LOG_UNIT, *) "mass1    : ",colliders%mass(1)
-      write(FRAGGLE_LOG_UNIT, *) "radius1  : ",colliders%radius(1)
-      write(FRAGGLE_LOG_UNIT, *) "xb1      : ",colliders%xb(:,1)
-      write(FRAGGLE_LOG_UNIT, *) "vb1      : ",colliders%vb(:,1)
-      write(FRAGGLE_LOG_UNIT, *) "rot1     : ",colliders%rot(:,1)
-      write(FRAGGLE_LOG_UNIT, *) "Ip1      : ",colliders%Ip(:,1)
-      write(FRAGGLE_LOG_UNIT, *) "L_spin1  : ",colliders%L_spin(:,1)
-      write(FRAGGLE_LOG_UNIT, *) "L_orbit1 : ",colliders%L_orbit(:,1)
-      write(FRAGGLE_LOG_UNIT, *) "mass2    : ",colliders%mass(2)
-      write(FRAGGLE_LOG_UNIT, *) "radius2  : ",colliders%radius(2)
-      write(FRAGGLE_LOG_UNIT, *) "xb2      : ",colliders%xb(:,2)
-      write(FRAGGLE_LOG_UNIT, *) "vb2      : ",colliders%vb(:,2)
-      write(FRAGGLE_LOG_UNIT, *) "rot2     : ",colliders%rot(:,2)
-      write(FRAGGLE_LOG_UNIT, *) "Ip2      : ",colliders%Ip(:,2)
-      write(FRAGGLE_LOG_UNIT, *) "L_spin2  : ",colliders%L_spin(:,2)
-      write(FRAGGLE_LOG_UNIT, *) "L_orbit2 : ",colliders%L_orbit(:,2)
-      write(FRAGGLE_LOG_UNIT, *) "------------------------------ Regime -----------------------------"
+      open(unit=LUN, file=FRAGGLE_LOG_OUT, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(LUN, *, err = 667, iomsg = errmsg)
+      write(LUN, *) "--------------------------------------------------------------------"
+      write(LUN, *) "           Fraggle collisional regime determination results"
+      write(LUN, *) "--------------------------------------------------------------------"
+      write(LUN, *) "----------------------- Collider information -----------------------" 
+      write(LUN, *) "True number of colliders : ",colliders%ncoll
+      write(LUN, *) "Index list of true colliders  : ",colliders%idx(1:colliders%ncoll)
+      write(LUN, *) "-------------------- Two-body equialent values ---------------------"
+      write(LUN, *) "mass1    : ",colliders%mass(1)
+      write(LUN, *) "radius1  : ",colliders%radius(1)
+      write(LUN, *) "xb1      : ",colliders%xb(:,1)
+      write(LUN, *) "vb1      : ",colliders%vb(:,1)
+      write(LUN, *) "rot1     : ",colliders%rot(:,1)
+      write(LUN, *) "Ip1      : ",colliders%Ip(:,1)
+      write(LUN, *) "L_spin1  : ",colliders%L_spin(:,1)
+      write(LUN, *) "L_orbit1 : ",colliders%L_orbit(:,1)
+      write(LUN, *) "mass2    : ",colliders%mass(2)
+      write(LUN, *) "radius2  : ",colliders%radius(2)
+      write(LUN, *) "xb2      : ",colliders%xb(:,2)
+      write(LUN, *) "vb2      : ",colliders%vb(:,2)
+      write(LUN, *) "rot2     : ",colliders%rot(:,2)
+      write(LUN, *) "Ip2      : ",colliders%Ip(:,2)
+      write(LUN, *) "L_spin2  : ",colliders%L_spin(:,2)
+      write(LUN, *) "L_orbit2 : ",colliders%L_orbit(:,2)
+      write(LUN, *) "------------------------------ Regime -----------------------------"
       select case(frag%regime) 
       case(COLLRESOLVE_REGIME_MERGE)
-         write(FRAGGLE_LOG_UNIT, *) "Merge"
+         write(LUN, *) "Merge"
       case(COLLRESOLVE_REGIME_DISRUPTION)
-         write(FRAGGLE_LOG_UNIT, *) "Disruption"
+         write(LUN, *) "Disruption"
       case(COLLRESOLVE_REGIME_SUPERCATASTROPHIC)
-         write(FRAGGLE_LOG_UNIT, *) "Supercatastrophic disruption"
+         write(LUN, *) "Supercatastrophic disruption"
       case(COLLRESOLVE_REGIME_GRAZE_AND_MERGE)
-         write(FRAGGLE_LOG_UNIT, *) "Graze and merge"
+         write(LUN, *) "Graze and merge"
       case(COLLRESOLVE_REGIME_HIT_AND_RUN)
-         write(FRAGGLE_LOG_UNIT, *) "Hit and run"
+         write(LUN, *) "Hit and run"
       end select
-      write(FRAGGLE_LOG_UNIT, *) "----------------------- Fragment information ----------------------"
-      write(FRAGGLE_LOG_UNIT, *) "Total mass of fragments      : ", frag%mtot
-      write(FRAGGLE_LOG_UNIT, *) "Largest fragment mass        : ", frag%mass_dist(1)
-      write(FRAGGLE_LOG_UNIT, *) "Second-largest fragment mass : ", frag%mass_dist(2)
-      write(FRAGGLE_LOG_UNIT, *) "Remaining fragment mass      : ", frag%mass_dist(3)
-      write(FRAGGLE_LOG_UNIT, *) "Center of mass position      : ", frag%xbcom(:)
-      write(FRAGGLE_LOG_UNIT, *) "Center of mass velocity      : ", frag%vbcom(:)
-      write(FRAGGLE_LOG_UNIT, *) "Energy loss                  : ", frag%Qloss
-      write(FRAGGLE_LOG_UNIT, *) "--------------------------------------------------------------------"
-      close(FRAGGLE_LOG_UNIT)
+      write(LUN, *) "----------------------- Fragment information ----------------------"
+      write(LUN, *) "Total mass of fragments      : ", frag%mtot
+      write(LUN, *) "Largest fragment mass        : ", frag%mass_dist(1)
+      write(LUN, *) "Second-largest fragment mass : ", frag%mass_dist(2)
+      write(LUN, *) "Remaining fragment mass      : ", frag%mass_dist(3)
+      write(LUN, *) "Center of mass position      : ", frag%xbcom(:)
+      write(LUN, *) "Center of mass velocity      : ", frag%vbcom(:)
+      write(LUN, *) "Energy loss                  : ", frag%Qloss
+      write(LUN, *) "--------------------------------------------------------------------"
+      close(LUN)
 
       return
       667 continue
@@ -228,28 +228,28 @@ module subroutine fraggle_io_log_regime(colliders, frag)
    end subroutine fraggle_io_log_regime
 
 
-   module subroutine fraggle_io_log_start(param)
-      !! author: David A. Minton
-      !!
-      !! Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run
-      implicit none
-      ! Arguments
-      class(swiftest_parameters), intent(in) :: param
-      ! Internals
-      character(STRMAX) :: errmsg
-      logical           :: fileExists
-
-      inquire(file=FRAGGLE_LOG_OUT, exist=fileExists)
-      if (.not.param%lrestart .or. .not.fileExists) then
-         open(unit=FRAGGLE_LOG_UNIT, file=FRAGGLE_LOG_OUT, status="REPLACE", err = 667, iomsg = errmsg)
-         write(FRAGGLE_LOG_UNIT, *, err = 667, iomsg = errmsg) "Fraggle logfile"
-      end if
-      close(FRAGGLE_LOG_UNIT)
-
-      return
-
-      667 continue
-      write(*,*) "Error writing Fraggle log file: " // trim(adjustl(errmsg))
-   end subroutine fraggle_io_log_start
+   ! module subroutine fraggle_io_log_start(param)
+   !    !! author: David A. Minton
+   !    !!
+   !    !! Checks to see if the Fraggle log file needs to be replaced if this is a new run, or appended if this is a restarted run
+   !    implicit none
+   !    ! Arguments
+   !    class(swiftest_parameters), intent(in) :: param
+   !    ! Internals
+   !    character(STRMAX) :: errmsg
+   !    logical           :: fileExists
+
+   !    inquire(file=FRAGGLE_LOG_OUT, exist=fileExists)
+   !    if (.not.param%lrestart .or. .not.fileExists) then
+   !       open(unit=LUN, file=FRAGGLE_LOG_OUT, status="REPLACE", err = 667, iomsg = errmsg)
+   !       write(LUN, *, err = 667, iomsg = errmsg) "Fraggle logfile"
+   !    end if
+   !    close(LUN)
+
+   !    return
+
+   !    667 continue
+   !    write(*,*) "Error writing Fraggle log file: " // trim(adjustl(errmsg))
+   ! end subroutine fraggle_io_log_start
 
 end submodule s_fraggle_io
\ No newline at end of file
diff --git a/src/fraggle/fraggle_placeholder.f90 b/src/fraggle/fraggle_placeholder.f90
index bbf08bb04..f8284b6b4 100644
--- a/src/fraggle/fraggle_placeholder.f90
+++ b/src/fraggle/fraggle_placeholder.f90
@@ -8,7 +8,7 @@ module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
       implicit none
       class(fraggle_fragments),     intent(inout) :: self   !! Fraggle fragment system object 
       class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system object
-      class(swiftest_parameters),   intent(in)    :: param  !! Current run configuration parameters 
+      class(swiftest_parameters),   intent(inout) :: 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
       write(*,*) "The type-bound procedure 'accel' is not defined for type fraggle_fragments"
@@ -19,7 +19,7 @@ module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
       implicit none
       class(fraggle_fragments),     intent(inout) :: self   !! Fraggle fragment system object
       class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system objec
-      class(swiftest_parameters),   intent(in)    :: param  !! Current run configuration parameters 
+      class(swiftest_parameters),   intent(inout) :: 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. 
diff --git a/src/fraggle/fraggle_regime.f90 b/src/fraggle/fraggle_regime.f90
index df9265ae7..f53888df5 100644
--- a/src/fraggle/fraggle_regime.f90
+++ b/src/fraggle/fraggle_regime.f90
@@ -182,7 +182,7 @@ subroutine fraggle_regime_collresolve(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb
          Mlr = Mtot
          Mslr = 0.0_DP
          Qloss = 0.0_DP
-         call fraggle_io_log_one_message("Fragments would have mass below the minimum. Converting this collision into a merger.")
+         call io_log_one_message(FRAGGLE_LOG_OUT, "Fragments would have mass below the minimum. Converting this collision into a merger.")
       else 
          if( Vimp < Vescp) then
             regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime
diff --git a/src/fraggle/fraggle_util.f90 b/src/fraggle/fraggle_util.f90
index df8b89c41..f65bd81c5 100644
--- a/src/fraggle/fraggle_util.f90
+++ b/src/fraggle/fraggle_util.f90
@@ -135,7 +135,7 @@ module subroutine fraggle_util_get_energy_momentum(self, colliders, system, para
       class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object
       class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle collider system object
       class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
-      class(swiftest_parameters),   intent(in)    :: param     !! Current swiftest run configuration parameters
+      class(swiftest_parameters),   intent(inout) :: param     !! Current swiftest run configuration parameters
       logical,                      intent(in)    :: lbefore   !! Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa
       ! Internals
       integer(I4B) :: i, nplm
@@ -172,7 +172,7 @@ module subroutine fraggle_util_get_energy_momentum(self, colliders, system, para
             call fraggle_util_add_fragments_to_system(frag, colliders, tmpsys, tmpparam)
          end if 
 
-         call tmpsys%pl%index(param)
+         call tmpsys%pl%flatten(param)
 
          call tmpsys%get_energy_and_momentum(param) 
 
diff --git a/src/helio/helio_drift.f90 b/src/helio/helio_drift.f90
index e2a55e458..03ebfbd30 100644
--- a/src/helio/helio_drift.f90
+++ b/src/helio/helio_drift.f90
@@ -74,6 +74,41 @@ module subroutine helio_drift_tp(self, system, param, dt)
       return
    end subroutine helio_drift_tp
 
+
+   pure elemental subroutine helio_drift_linear_one(xhx, xhy, xhz, ptx, pty, ptz, dt)
+      !$omp declare simd(helio_drift_linear_one)
+      implicit none
+      real(DP), intent(inout) :: xhx, xhy, xhz
+      real(DP), intent(in) :: ptx, pty, ptz, dt
+     
+      xhx = xhx + ptx * dt
+      xhy = xhy + pty * dt
+      xhz = xhz + ptz * dt
+
+      return
+   end subroutine helio_drift_linear_one
+
+
+   subroutine helio_drift_linear_all(xh, pt, dt, n, lmask)
+      implicit none
+      ! Arguments
+      real(DP), dimension(:,:), intent(inout) :: xh
+      real(DP), dimension(:),   intent(in)    :: pt
+      real(DP),                 intent(in)    :: dt
+      integer(I4B),             intent(in)    :: n
+      logical,  dimension(:),   intent(in)    :: lmask
+      ! Internals
+      integer(I4B) :: i
+
+      !$omp parallel do simd default(shared) schedule(static)
+      do i = 1, n
+         if (lmask(i)) call helio_drift_linear_one(xh(1,i), xh(2,i), xh(3,i), pt(1), pt(2), pt(3), dt) 
+      end do
+      !$omp end parallel do simd
+
+      return
+   end subroutine helio_drift_linear_all
+
    
    module subroutine helio_drift_linear_pl(self, cb, dt, lbeg)
       !! author: David A. Minton
@@ -100,9 +135,7 @@ module subroutine helio_drift_linear_pl(self, cb, dt, lbeg)
          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
+         call helio_drift_linear_all(pl%xh(:,:), pt(:), dt, npl, pl%lmask(:))
 
          if (lbeg) then
             cb%ptbeg = pt(:)
diff --git a/src/helio/helio_kick.f90 b/src/helio/helio_kick.f90
index 928e7c197..2ed23654d 100644
--- a/src/helio/helio_kick.f90
+++ b/src/helio/helio_kick.f90
@@ -13,7 +13,7 @@ module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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
 
@@ -56,7 +56,7 @@ module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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
    
@@ -89,7 +89,7 @@ module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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. 
@@ -128,7 +128,7 @@ module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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. 
diff --git a/src/helio/helio_setup.f90 b/src/helio/helio_setup.f90
index cf5f57d8a..5839628a0 100644
--- a/src/helio/helio_setup.f90
+++ b/src/helio/helio_setup.f90
@@ -16,7 +16,7 @@ module subroutine helio_setup_initialize_system(self, param)
       call self%pl%h2b(self%cb)
       call self%tp%h2b(self%cb)
       call self%pl%sort("mass", ascending=.false.)
-      call self%pl%index(param)
+      call self%pl%flatten(param)
 
       return
    end subroutine helio_setup_initialize_system
diff --git a/src/io/io.f90 b/src/io/io.f90
index 51d10561d..226811d61 100644
--- a/src/io/io.f90
+++ b/src/io/io.f90
@@ -101,7 +101,6 @@ module subroutine io_dump_param(self, param_file_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)
       ! Internals
-      integer(I4B), parameter  :: LUN = 7       !! Unit number of output file
       character(STRMAX)        :: errmsg !! Error message in UDIO procedure
       integer(I4B)             :: ierr
 
@@ -160,7 +159,6 @@ module subroutine io_dump_particle_info_base(self, param, idx)
 
       ! Internals
       logical, save             :: lfirst = .true.
-      integer(I4B), parameter   :: LUN = 22
       integer(I4B)              :: i
       character(STRMAX)         :: errmsg
 
@@ -228,7 +226,6 @@ module subroutine io_dump_base(self, param)
       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
       character(STRMAX)              :: errmsg 
@@ -395,7 +392,6 @@ module function io_get_old_t_final_system(self, param) result(old_t_final)
       ! Internals
       class(swiftest_nbody_system), allocatable :: tmpsys
       class(swiftest_parameters),   allocatable :: tmpparam
-      integer(I4B), parameter :: LUN = 76
       integer(I4B) :: ierr, iu = LUN
       character(len=STRMAX)            :: errmsg
 
@@ -411,6 +407,7 @@ module function io_get_old_t_final_system(self, param) result(old_t_final)
       end do
       if (is_iostat_end(ierr)) then
          old_t_final = tmpparam%t
+         close(iu)
          return
       end if
 
@@ -469,6 +466,54 @@ module function io_get_token(buffer, ifirst, ilast, ierr) result(token)
    end function io_get_token
 
 
+   module subroutine io_log_one_message(file, message)
+      !! author: David A. Minton
+      !!
+      !! Writes a single message to a log file
+      implicit none
+      ! Arguments
+      character(len=*), intent(in) :: file   !! Name of file to log
+      character(len=*), intent(in) :: message
+      ! Internals
+      character(STRMAX) :: errmsg
+
+      open(unit=LUN, file=file, status = 'OLD', position = 'APPEND', form = 'FORMATTED', err = 667, iomsg = errmsg)
+      write(LUN, *) trim(adjustl(message)) 
+      close(LUN)
+
+      return
+      667 continue
+      write(*,*) "Error writing  message to log file: " // trim(adjustl(errmsg))
+   end subroutine io_log_one_message
+
+
+   module subroutine io_log_start(param, file, header)
+      !! author: David A. Minton
+      !!
+      !! Checks to see if a log file needs to be created if this is a new run, or appended if this is a restarted run
+      implicit none
+      ! Arguments
+      class(swiftest_parameters), intent(in) :: param  !! Current Swiftest run configuration parameters
+      character(len=*),           intent(in) :: file   !! Name of file to log
+      character(len=*),           intent(in) :: header !! Header to print at top of log file
+      ! Internals
+      character(STRMAX) :: errmsg
+      logical           :: fileExists
+
+      inquire(file=file, exist=fileExists)
+      if (.not.param%lrestart .or. .not.fileExists) then
+         open(unit=LUN, file=file, status="REPLACE", err = 667, iomsg = errmsg)
+         write(LUN, *, err = 667, iomsg = errmsg) trim(adjustl(header))
+      end if
+      close(LUN)
+
+      return
+
+      667 continue
+      write(*,*) "Error writing log file: " // trim(adjustl(errmsg))
+   end subroutine io_log_start
+
+
    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
       !!
@@ -479,6 +524,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
       !!
       !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90
       !! Adapted from Martin Duncan's Swift routine io_init_param.f
+      use, intrinsic :: iso_fortran_env
       implicit none
       ! Arguments
       class(swiftest_parameters), intent(inout) :: self       !! Collection of parameters
@@ -500,6 +546,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
 
       ! Parse the file line by line, extracting tokens then matching them up with known parameters if possible
       associate(param => self) 
+         open(unit = unit, file = param%param_file_name, status = 'old', err = 667, iomsg = iomsg)
          do
             read(unit = unit, fmt = linefmt, end = 1, err = 667, iomsg = iomsg) line
             line_trim = trim(adjustl(line))
@@ -601,9 +648,9 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                case ("TIDES")
                   call io_toupper(param_value)
                   if (param_value == "YES" .or. param_value == 'T') param%ltides = .true. 
-               case ("FLATTEN_INTERACTIONS")
+               case ("INTERACTION_LOOPS")
                   call io_toupper(param_value)
-                  if (param_value == "NO" .or. param_value == 'F') param%lflatten_interactions = .false.
+                  param%interaction_loops = param_value
                case ("FIRSTKICK")
                   call io_toupper(param_value)
                   if (param_value == "NO" .or. param_value == 'F') param%lfirstkick = .false. 
@@ -654,16 +701,15 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                   param%particle_out = param_value
                case ("NPLMAX", "NTPMAX", "GMTINY", "MIN_GMFRAG", "FRAGMENTATION", "SEED", "YARKOVSKY", "YORP") ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters
                case default
-                  write(*,*) "Unknown parameter -> ",param_name
-                  iostat = -1
-                  return
+                  write(*,*) "Ignoring unknown parameter -> ",param_name
                end select
             end if
          end do
          1 continue
+         close(unit)
          iostat = 0
 
-         !! Do basic sanity checks on the input values
+         ! 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
@@ -731,58 +777,6 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
             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(*,*) "IN_FORM        = ",trim(adjustl(param%in_form))
-         write(*,*) "OUT_STAT       = ",trim(adjustl(param%out_stat))
-         write(*,*) "ISTEP_DUMP     = ",param%istep_dump
-         write(*,*) "CHK_CLOSE      = ",param%lclose
-         if (param%rmin > 0.0) then
-            write(*,*) "CHK_RMIN       = ",param%rmin
-         else
-            write(*,*) "! CHK_RMIN value will be the central body radius"
-         end if
-         if (param%rmax > 0.0_DP) write(*,*) "CHK_RMAX       = ",param%rmax
-         if (param%rmaxu > 0.0_DP) write(*,*) "CHK_EJECT      = ",param%rmaxu
-         if ((param%qmin > 0.0_DP) .or. (param%qmin_alo > 0.0_DP) .or. (param%qmin_ahi > 0.0_DP)) write(*,*) "CHK_QMIN_COORD = ",trim(adjustl(param%qmin_coord))
-         if (param%qmin > 0.0_DP) write(*,*) "CHK_QMIN       = ",param%qmin
-         if ((param%qmin_alo > 0.0_DP) .or. (param%qmin_ahi > 0.0_DP))  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(*,*) "FLATTEN_INTERACTIONS = ",param%lflatten_interactions
-         if (param%lenergy) write(*,*) "ENERGY_OUT     = ",trim(adjustl(param%energy_out))
-         write(*,*) "MU2KG          = ",param%MU2KG       
-         write(*,*) "TU2S           = ",param%TU2S        
-         write(*,*) "DU2M           = ",param%DU2M        
-         if (trim(adjustl(param%outfile)) == "") then
-            param%outfile = BIN_OUTFILE
-         end if
-         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"
-            param%lbig_discard = .false.
-            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
@@ -791,11 +785,6 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
 
          ! Calculate the G for the system units
          param%GU = GC / (param%DU2M**3 / (param%MU2KG * param%TU2S**2))
-         if (param%lgr) then
-            ! 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)
-         end if
 
          associate(integrator => v_list(1))
             if ((integrator == RMVS) .or. (integrator == SYMBA)) then
@@ -809,18 +798,54 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
             ! 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
+
+            if (param%lgr) then
+               ! 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)
+            end if
+
          end associate
 
+         select case(trim(adjustl(param%interaction_loops)))
+         case("ADAPTIVE")
+            param%ladaptive_interactions = .true.
+            param%lflatten_interactions = .true.
+            param%lflatten_encounters = .true.
+            call io_log_start(param, INTERACTION_TIMER_LOG_OUT, "Interaction loop timer logfile")
+            call io_log_one_message(INTERACTION_TIMER_LOG_OUT, "Diagnostic values: loop style, time count, nplpl, metric")
+         case("TRIANGULAR")
+            param%ladaptive_interactions = .false.
+            param%lflatten_interactions = .false.
+            param%lflatten_encounters = .false.
+         case("FLAT")
+            param%ladaptive_interactions = .false.
+            param%lflatten_interactions = .true.
+            param%lflatten_encounters = .true.
+         case default
+            write(*,*) "Unknown value for parameter INTERACTION_LOOPS: -> ",trim(adjustl(param%interaction_loops))
+            write(*,*) "Must be one of the following: TRIANGULAR, FLAT, or ADAPTIVE"
+            write(*,*) "Using default value of ADAPTIVE"
+            param%interaction_loops = "ADAPTIVE"
+            param%ladaptive_interactions = .true.
+            param%lflatten_interactions = .true.
+            param%lflatten_encounters = .true.
+         end select
+
          iostat = 0
+         
+         ! Print the contents of the parameter file to standard output
+         call param%writer(unit = OUTPUT_UNIT, iotype = "none", v_list = [0], iostat = iostat, iomsg = iomsg) 
+
       end associate
 
-      667 continue
       return 
+      667 continue
+      write(*,*) "Error reading param file: ", trim(adjustl(iomsg))
    end subroutine io_param_reader
 
 
@@ -853,88 +878,271 @@ module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
       integer(I4B) :: i
 
       associate(param => self)
-         write(param_name, *) "T0"; write(param_value,Rfmt) param%t0; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "TSTOP"; write(param_value, Rfmt) param%tstop; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "DT"; write(param_value, Rfmt) param%dt; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "CB_IN"; write(param_value, *) trim(adjustl(param%incbfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "PL_IN"; write(param_value, *) trim(adjustl(param%inplfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "TP_IN"; write(param_value, *) trim(adjustl(param%intpfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "IN_TYPE"; write(param_value, *) trim(adjustl(param%in_type)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "IN_FORM"; write(param_value, *) trim(adjustl(param%in_form)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         if (param%istep_dump > 0) write(param_name, *) "ISTEP_DUMP"; write(param_value, Ifmt) param%istep_dump; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("T0", param%t0, unit)
+         call io_param_writer_one("TSTOP", param%tstop, unit)
+         call io_param_writer_one("DT", param%dt, unit)
+         call io_param_writer_one("CB_IN", param%incbfile, unit)
+         call io_param_writer_one("PL_IN", param%inplfile, unit)
+         call io_param_writer_one("TP_IN", param%intpfile, unit)
+         call io_param_writer_one("IN_TYPE", param%in_type, unit)
+         call io_param_writer_one("IN_FORM", param%in_form, unit)
+         if (param%istep_dump > 0) call io_param_writer_one("ISTEP_DUMP",param%istep_dump, unit)
          if (param%istep_out > 0) then
-            write(param_name, *) "ISTEP_OUT"; write(param_value, Ifmt) param%istep_out; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "BIN_OUT"; write(param_value, *) trim(adjustl(param%outfile)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "OUT_TYPE"; write(param_value, *) trim(adjustl(param%out_type)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "OUT_FORM"; write(param_value, *) trim(adjustl(param%out_form)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "OUT_STAT"; write(param_value, *) "APPEND"; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            call io_param_writer_one("ISTEP_OUT", param%istep_out, unit)
+            call io_param_writer_one("BIN_OUT", param%outfile, unit)
+            call io_param_writer_one("OUT_TYPE", param%out_type, unit)
+            call io_param_writer_one("OUT_FORM", param%out_form, unit)
+            call io_param_writer_one("OUT_STAT", "APPEND", unit) 
          end if
-         write(param_name, *) "PARTICLE_OUT"; write(param_value, *) trim(adjustl(param%particle_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("PARTICLE_OUT", param%particle_out, unit) 
          if (param%enc_out /= "") then
-            write(param_name, *) "ENC_OUT"; write(param_value, *) trim(adjustl(param%enc_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            call io_param_writer_one("ENC_OUT", param%enc_out, unit)
          end if
-         write(param_name, *) "CHK_RMIN"; write(param_value, Rfmt) param%rmin; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "CHK_RMAX"; write(param_value, Rfmt) param%rmax; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "CHK_EJECT"; write(param_value, Rfmt) param%rmaxu; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "CHK_QMIN"; write(param_value, Rfmt) param%qmin; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("CHK_RMIN", param%rmin, unit)
+         call io_param_writer_one("CHK_RMAX", param%rmax, unit)
+         call io_param_writer_one("CHK_EJECT", param%rmaxu, unit)
+         call io_param_writer_one("CHK_QMIN", param%qmin, unit)
          if (param%qmin >= 0.0_DP) then
-            write(param_name, *) "CHK_QMIN_COORD"; write(param_value, *) trim(adjustl(param%qmin_coord)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(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, *) "CHK_QMIN_RANGE"; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name), adjustl(param_array(1)%value), adjustl(param_array(2)%value)
+            call io_param_writer_one("CHK_QMIN_COORD", param%qmin_coord, unit)
+            call io_param_writer_one("CHK_QMIN_RANGE", [param%qmin_alo, param%qmin_ahi], unit)
          end if
-         write(param_name, *) "MU2KG"; write(param_value, Rfmt) param%MU2KG; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "TU2S"; write(param_value, Rfmt) param%TU2S ; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "DU2M"; write(param_value, Rfmt) param%DU2M; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "RHILL_PRESENT"; write(param_value, Lfmt) param%lrhill_present; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "EXTRA_FORCE"; write(param_value, Lfmt) param%lextra_force; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("MU2KG", param%MU2KG, unit)
+         call io_param_writer_one("TU2S", param%TU2S , unit)
+         call io_param_writer_one("DU2M", param%DU2M, unit)
+         call io_param_writer_one("RHILL_PRESENT", param%lrhill_present, unit)
+         call io_param_writer_one("EXTRA_FORCE", param%lextra_force, unit)
          if (param%discard_out /= "") then 
-            write(param_name, *) "DISCARD_OUT"; write(param_value, *) trim(adjustl(param%discard_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            call io_param_writer_one("DISCARD_OUT", param%discard_out, unit)
          end if
          if (param%discard_out /= "") then
-            write(param_name, *) "BIG_DISCARD"; write(param_value, Lfmt) param%lbig_discard; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            call io_param_writer_one("BIG_DISCARD", param%lbig_discard, unit)
          end if
-         write(param_name, *) "CHK_CLOSE"; write(param_value, Lfmt) param%lclose; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "ENERGY"; write(param_value, Lfmt)  param%lenergy; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("CHK_CLOSE", param%lclose, unit)
+         call io_param_writer_one("ENERGY", param%lenergy, unit)
          if (param%lenergy .and. (param%energy_out /= "")) then 
-            write(param_name, *) "ENERGY_OUT"; write(param_value, *) trim(adjustl(param%energy_out)); write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            call io_param_writer_one("ENERGY_OUT", param%energy_out, unit)
          end if
-         write(param_name, *) "GR"; write(param_value, Lfmt)  param%lgr; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "ROTATION"; write(param_value, Lfmt)  param%lrotation; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "TIDES"; write(param_value, Lfmt)  param%ltides; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "FLATTEN_INTERACTIONS"; write(param_value, Lfmt)  param%lflatten_interactions; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("GR", param%lgr, unit)
+         call io_param_writer_one("ROTATION", param%lrotation, unit)
+         call io_param_writer_one("TIDES", param%ltides, unit)
+         call io_param_writer_one("INTERACTION_LOOPS", param%interaction_loops, unit)
 
          if (param%lenergy) then
-            write(param_name, *) "FIRSTENERGY"; write(param_value, Lfmt) param%lfirstenergy; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "EORBIT_ORIG"; write(param_value, Rfmt) param%Eorbit_orig; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "GMTOT_ORIG"; write(param_value, Rfmt) param%GMtot_orig; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "LTOT_ORIG"; write(v1, Rfmt) param%Ltot_orig(1); write(v2, Rfmt) param%Ltot_orig(2); write(v3, Rfmt) param%Ltot_orig(3)  
-               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
-            write(param_name, *) "LORBIT_ORIG"; write(v1, Rfmt) param%Lorbit_orig(1); write(v2, Rfmt) param%Lorbit_orig(2); write(v3, Rfmt) param%Lorbit_orig(3)  
-               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
-            write(param_name, *) "LSPIN_ORIG"; write(v1, Rfmt) param%Lspin_orig(1); write(v2, Rfmt) param%Lspin_orig(2); write(v3, Rfmt) param%Lspin_orig(3)  
-               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
-            write(param_name, *) "LESCAPE"; write(v1, Rfmt) param%Lescape(1); write(v2, Rfmt) param%Lescape(2); write(v3, Rfmt) param%Lescape(3)  
-               write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(v1)) // " " // trim(adjustl(v2)) // " " // trim(adjustl(v3))
-   
-            write(param_name, *) "GMESCAPE"; write(param_value, Rfmt) param%GMescape; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "ECOLLISIONS"; write(param_value, Rfmt) param%Ecollisions; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-            write(param_name, *) "EUNTRACKED"; write(param_value, Rfmt) param%Euntracked; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+            call io_param_writer_one("FIRSTENERGY", param%lfirstenergy, unit)
+            call io_param_writer_one("EORBIT_ORIG", param%Eorbit_orig, unit)
+            call io_param_writer_one("GMTOT_ORIG", param%GMtot_orig, unit)
+            call io_param_writer_one("LTOT_ORIG", param%Ltot_orig(:), unit)
+            call io_param_writer_one("LORBIT_ORIG", param%Lorbit_orig(:), unit)
+            call io_param_writer_one("LSPIN_ORIG", param%Lspin_orig(:), unit)
+            call io_param_writer_one("LESCAPE", param%Lspin_orig(:), unit)
+            call io_param_writer_one("GMESCAPE",param%GMescape, unit)
+            call io_param_writer_one("ECOLLISIONS",param%Ecollisions, unit)
+            call io_param_writer_one("EUNTRACKED",param%Euntracked, unit)
          end if
-         write(param_name, *) "FIRSTKICK"; write(param_value, Lfmt) param%lfirstkick; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "MAXID"; write(param_value, Ifmt) param%maxid; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("FIRSTKICK",param%lfirstkick, unit)
+         call io_param_writer_one("MAXID",param%maxid, unit)
    
          iostat = 0
          iomsg = "UDIO not implemented"
       end associate
 
       667 continue
-
       return
    end subroutine io_param_writer
 
 
+   module subroutine io_param_writer_one_char(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for character param_value type
+      implicit none
+      ! Arguments
+      character(len=*), intent(in) :: param_name  !! Name of parameter to print
+      character(len=*), intent(in) :: param_value !! Value of parameter to print
+      integer(I4B),     intent(in) :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=NAMELEN) :: param_name_fixed_width !! Parameter label converted to fixed-width string
+      character(len=STRMAX)  :: iomsg             !! Message to pass if iostat /= 0
+
+      write(param_name_fixed_width, *) param_name
+      write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name_fixed_width) // " " // trim(adjustl(param_value)) 
+
+      return
+      667 continue
+      write(*,*) 'Error writing parameter: ',trim(adjustl(iomsg))
+   end subroutine io_param_writer_one_char
+
+
+   module subroutine io_param_writer_one_DP(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for real(DP) param_value type
+      implicit none
+      ! Arguments
+      character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+      real(DP),         intent(in)    :: param_value !! Value of parameter to print
+      integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string   !! Parameter value converted to a string
+      character(*),parameter :: Rfmt  = '(ES25.17)' !! Format label for real values 
+
+      write(param_value_string,Rfmt) param_value
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_DP
+
+
+   module subroutine io_param_writer_one_DParr(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for real(DP) arrays () param_value type
+      implicit none
+      ! Arguments
+      character(len=*),       intent(in) :: param_name  !! Name of parameter to print
+      real(DP), dimension(:), intent(in) :: param_value !! Value of parameter to print
+      integer(I4B),           intent(in) :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string   !! Parameter value converted to a string
+      character(*),parameter :: Rfmt  = '(ES25.17)' !! Format label for real values 
+      character(len=25) :: arr_val
+      integer(I4B) :: i, narr
+
+      narr = size(param_value)
+      do i = 1, narr
+         write(arr_val, Rfmt) param_value(i)
+         if (i == 1) then
+            write(param_value_string, *) arr_val
+         else
+            param_value_string = trim(adjustl(param_value_string)) // " " // arr_val
+         end if
+      end do
+
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_DParr
+
+
+   module subroutine io_param_writer_one_I4B(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for integer(I4B) param_value type
+      implicit none
+      ! Arguments
+      character(len=*), intent(in) :: param_name  !! Name of parameter to print
+      integer(I4B),     intent(in) :: param_value !! Value of parameter to print
+      integer(I4B),     intent(in) :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string   !! Parameter value converted to a string
+      character(*),parameter :: Ifmt  = '(I0)'      !! Format label for integer values
+
+      write(param_value_string,Ifmt) param_value
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_I4B
+
+
+   module subroutine io_param_writer_one_I8B(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for integer(I8B) param_value type
+      implicit none
+      ! Arguments
+      character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+      integer(I8B),     intent(in)    :: param_value !! Value of parameter to print
+      integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string   !! Parameter value converted to a string
+      character(*),parameter :: Ifmt  = '(I0)'      !! Format label for integer values
+
+      write(param_value_string,Ifmt) param_value
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_I8B
+
+
+   module subroutine io_param_writer_one_I4Barr(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for integer(I4B) arrays param_value type
+      implicit none
+      ! Arguments
+      character(len=*),           intent(in) :: param_name  !! Name of parameter to print
+      integer(I4B), dimension(:), intent(in) :: param_value !! Value of parameter to print
+      integer(I4B),               intent(in) :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string !! Parameter value converted to a string
+      character(*),parameter :: Ifmt  = '(I0)'    !! Format label for integer values
+      character(len=25) :: arr_val
+      integer(I4B) :: i, narr
+
+      narr = size(param_value)
+      do i = 1, narr
+         write(arr_val, Ifmt) param_value(i)
+         if (i == 1) then
+            write(param_value_string, *) trim(adjustl(arr_val))
+         else
+            param_value_string = trim(adjustl(param_value_string)) // " " // trim(adjustl(arr_val))
+         end if
+      end do
+
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_I4Barr
+
+
+   module subroutine io_param_writer_one_logical(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for logical param_value type
+      implicit none
+      ! Arguments
+      character(len=*), intent(in) :: param_name  !! Name of parameter to print
+      logical,          intent(in) :: param_value !! Value of parameter to print
+      integer(I4B),     intent(in) :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string   !! Parameter value converted to a string
+      character(*),parameter :: Lfmt  = '(L1)'         !! Format label for logical values 
+
+      write(param_value_string,Lfmt) param_value
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_logical
+
+
+   module subroutine io_param_writer_one_QP(param_name, param_value, unit)
+      !! author: David A. Minton
+      !!
+      !! Writes a single parameter name/value pair to a file unit. 
+      !! This version is for real(QP) param_value type
+      implicit none
+      ! Arguments
+      character(len=*), intent(in) :: param_name  !! Name of parameter to print
+      real(QP),         intent(in) :: param_value !! Value of parameter to print
+      integer(I4B),     intent(in) :: unit        !! Open file unit number to print parameter to
+      ! Internals
+      character(len=STRMAX) :: param_value_string   !! Parameter value converted to a string
+      character(*),parameter :: Rfmt  = '(ES25.17)' !! Format label for real values 
+
+      write(param_value_string,Rfmt) param_value
+      call io_param_writer_one(param_name, param_value_string, unit)
+
+      return
+   end subroutine io_param_writer_one_QP
+
+
    module subroutine io_read_in_body(self, param) 
       !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott
       !!
@@ -947,7 +1155,6 @@ module subroutine io_read_in_body(self, param)
       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, nbody
       logical                       :: is_ascii, is_pl
@@ -1012,7 +1219,6 @@ module subroutine io_read_in_cb(self, param)
       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
       character(len=STRMAX)   :: errmsg
       integer(I4B)            :: ierr, idold
@@ -1080,7 +1286,6 @@ function io_read_encounter(t, id1, id2, Gmass1, Gmass2, radius1, radius2, &
       integer(I4B)         :: ierr
       ! Internals
       logical , save    :: lfirst = .true.
-      integer(I4B), parameter :: lun = 30
       integer(I4B), save    :: iu = lun
 
       if (lfirst) then
@@ -1416,20 +1621,18 @@ module subroutine io_read_in_param(self, param_file_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)
       ! Internals
-      integer(I4B), parameter :: LUN = 7                 !! Unit number of input file
-      integer(I4B)            :: ierr = 0                !! Input error code
-      character(STRMAX)       :: errmsg           !! Error message in UDIO procedure
+      integer(I4B)      :: ierr = 0 !! Input error code
+      character(STRMAX) :: errmsg   !! 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, err = 667, iomsg = errmsg)
+      self%param_file_name = param_file_name
 
       !! 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 = errmsg) param
+      !read(LUN,'(DT)', iostat= ierr, iomsg = errmsg) self
       call self%reader(LUN, iotype= "none", v_list = [self%integrator], iostat = ierr, iomsg = errmsg)
       if (ierr == 0) return
 
@@ -1474,8 +1677,7 @@ module subroutine io_read_particle_info_system(self, param)
       class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest nbody system object
       class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters 
       ! Internals
-      integer(I4B), parameter       :: LUN = 22
-      integer(I4B)                  :: i,  id, idx
+      integer(I4B)                  :: i, id, idx
       logical                       :: lmatch  
       character(STRMAX)             :: errmsg
       type(swiftest_particle_info), allocatable :: tmpinfo
@@ -1570,7 +1772,6 @@ module subroutine io_write_discard(self, param)
       class(swiftest_nbody_system), intent(inout) :: self     !! Swiftest system object
       class(swiftest_parameters),   intent(inout) :: param   !! Current run configuration parameters 
       ! Internals
-      integer(I4B), parameter   :: LUN = 40
       integer(I4B)          :: i
       logical, save :: lfirst = .true. 
       real(DP), dimension(:,:), allocatable :: vh
@@ -1655,7 +1856,6 @@ module subroutine io_write_encounter(self, pl, encbody, param)
       class(swiftest_parameters), intent(in) :: param   !! Current run configuration parameters 
       ! Internals
       logical , save          :: lfirst = .true.
-      integer(I4B), parameter :: LUN = 30
       integer(I4B)            :: k, ierr
       character(len=STRMAX)   :: errmsg
 
diff --git a/src/kick/kick.f90 b/src/kick/kick.f90
index 766e829d6..637b38720 100644
--- a/src/kick/kick.f90
+++ b/src/kick/kick.f90
@@ -12,7 +12,24 @@ module subroutine kick_getacch_int_pl(self, param)
       implicit none
       ! Arguments
       class(swiftest_pl),         intent(inout) :: self  !! Swiftest massive body object
-      class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameters
+      class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameters
+      ! Internals
+      type(interaction_timer), save :: itimer
+      logical, save :: lfirst = .true.
+      character(len=STRMAX) :: tstr, nstr, cstr, mstr, lstyle
+      character(len=1) :: schar
+
+
+      if (param%ladaptive_interactions) then
+         if (lfirst) then
+            write(itimer%loopname, *) "kick_getacch_int_pl"
+            write(itimer%looptype, *) "INTERACTION"
+            call itimer%time_this_loop(param, self, self%nplpl)
+            lfirst = .false.
+         else
+            if (itimer%check(param, self%nplpl)) call itimer%time_this_loop(param, self, self%nplpl)
+         end if
+      end if
 
       if (param%lflatten_interactions) then
          call kick_getacch_int_all_flat_pl(self%nbody, self%nplpl, self%k_plpl, self%xh, self%Gmass, self%radius, self%ah)
@@ -20,6 +37,10 @@ module subroutine kick_getacch_int_pl(self, param)
          call kick_getacch_int_all_triangular_pl(self%nbody, self%nbody, self%xh, self%Gmass, self%radius, self%ah)
       end if
 
+      if (param%ladaptive_interactions) then 
+         if (itimer%is_on) call itimer%adapt(param, self, self%nplpl)
+      end if
+
       return
    end subroutine kick_getacch_int_pl
 
@@ -34,7 +55,7 @@ module subroutine kick_getacch_int_tp(self, param, GMpl, xhp, npl)
       implicit none
       ! Arguments
       class(swiftest_tp),         intent(inout) :: self  !! Swiftest test particle object
-      class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameters
+      class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameters
       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
diff --git a/src/main/swiftest_driver.f90 b/src/main/swiftest_driver.f90
index b4260f115..bd4d50855 100644
--- a/src/main/swiftest_driver.f90
+++ b/src/main/swiftest_driver.f90
@@ -70,7 +70,7 @@ program swiftest_driver
       !$ write(*,'(a)')   ' OpenMP parameters:'
       !$ write(*,'(a)')   ' ------------------'
       !$ write(*,'(a,i3,/)') ' Number of threads  = ', nthreads 
-      call timer%reset()
+      call timer%reset(param)
       write(*, *) " *************** Main Loop *************** "
       do iloop = 1, nloops
          !> Step the system forward in time
@@ -86,9 +86,9 @@ program swiftest_driver
             iout = iout - 1
             if (iout == 0) then
                ioutput = ioutput_t0 + iloop / istep_out
-               call timer%finish(nsubsteps=istep_out, message="Integration steps:")
+               call timer%finish(nsubsteps=istep_out, message="Integration steps:", param=param)
                if (t > old_t_final) call nbody_system%write_frame(param)
-               call timer%finish(nsubsteps=1,         message="File I/O:         ")
+               call timer%finish(nsubsteps=1,         message="File I/O:         ", param=param)
                iout = istep_out
             end if
          end if
diff --git a/src/modules/fraggle_classes.f90 b/src/modules/fraggle_classes.f90
index 5a8a4a392..cd648c04b 100644
--- a/src/modules/fraggle_classes.f90
+++ b/src/modules/fraggle_classes.f90
@@ -9,7 +9,6 @@ module fraggle_classes
 
    integer(I4B),     parameter :: FRAGGLE_NMASS_DIST = 3             !! Number of mass bins returned by the regime calculation (largest fragment, second largest, and remainder)  
    character(len=*), parameter :: FRAGGLE_LOG_OUT    = "fraggle.log" !! Name of log file for Fraggle diagnostic information
-   integer(I4B),     parameter :: FRAGGLE_LOG_UNIT   = 76            !! Unit number for Fraggle log file
 
    !********************************************************************************************************************************
    !                                    fraggle_colliders class definitions and method interfaces
@@ -104,7 +103,7 @@ module subroutine fraggle_generate_fragments(self, colliders, system, param, lfa
          class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object 
          class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle colliders object containing the two-body equivalent values of the colliding bodies 
          class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
-         class(swiftest_parameters),   intent(in)    :: param     !! Current run configuration parameters 
+         class(swiftest_parameters),   intent(inout) :: param     !! Current run configuration parameters 
          logical,                      intent(out)   :: lfailure  !! Answers the question: Should this have been a merger instead?
       end subroutine fraggle_generate_fragments
 
@@ -113,12 +112,6 @@ module subroutine fraggle_io_log_generate(frag)
          class(fraggle_fragments),   intent(in) :: frag
       end subroutine fraggle_io_log_generate
 
-      module subroutine fraggle_io_log_one_message(message)
-         implicit none
-         character(len=*), intent(in) :: message
-         character(STRMAX) :: errmsg
-      end subroutine fraggle_io_log_one_message
-
       module subroutine fraggle_io_log_pl(pl, param)
          implicit none
          class(swiftest_pl),         intent(in) :: pl    !! Swiftest massive body object (only the new bodies generated in a collision)
@@ -131,18 +124,13 @@ module subroutine fraggle_io_log_regime(colliders, frag)
          class(fraggle_fragments),   intent(in) :: frag
       end subroutine fraggle_io_log_regime
 
-      module subroutine fraggle_io_log_start(param)
-         implicit none
-         class(swiftest_parameters), intent(in) :: param
-      end subroutine fraggle_io_log_start
-
       !> The following interfaces are placeholders intended to satisfy the required abstract methods given by the parent class
       module subroutine fraggle_placeholder_accel(self, system, param, t, lbeg)
          use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
          implicit none
          class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object 
          class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system object
-         class(swiftest_parameters),   intent(in)    :: param  !! Current run configuration parameters 
+         class(swiftest_parameters),   intent(inout) :: 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 fraggle_placeholder_accel
@@ -152,7 +140,7 @@ module subroutine fraggle_placeholder_kick(self, system, param, t, dt, lbeg)
          implicit none
          class(fraggle_fragments),     intent(inout) :: self   !! Fraggle fragment system object
          class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system objec
-         class(swiftest_parameters),   intent(in)    :: param  !! Current run configuration parameters 
+         class(swiftest_parameters),   intent(inout) :: 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. 
@@ -249,7 +237,7 @@ module subroutine fraggle_util_get_energy_momentum(self, colliders, system, para
          class(fraggle_fragments),     intent(inout) :: self      !! Fraggle fragment system object
          class(fraggle_colliders),     intent(inout) :: colliders !! Fraggle collider system object
          class(swiftest_nbody_system), intent(inout) :: system    !! Swiftest nbody system object
-         class(swiftest_parameters),   intent(in)    :: param     !! Current swiftest run configuration parameters
+         class(swiftest_parameters),   intent(inout) :: param     !! Current swiftest run configuration parameters
          logical,                      intent(in)    :: lbefore   !! Flag indicating that this the "before" state of the system, with colliders included and fragments excluded or vice versa
       end subroutine fraggle_util_get_energy_momentum
 
diff --git a/src/modules/helio_classes.f90 b/src/modules/helio_classes.f90
index 3a7de3814..a74b609e1 100644
--- a/src/modules/helio_classes.f90
+++ b/src/modules/helio_classes.f90
@@ -130,7 +130,7 @@ 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(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
@@ -140,7 +140,7 @@ module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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
@@ -150,7 +150,7 @@ module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg)
          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
+         class(swiftest_parameters),   intent(inout) :: 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
@@ -160,7 +160,7 @@ module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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. 
@@ -171,7 +171,7 @@ module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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. 
diff --git a/src/modules/rmvs_classes.f90 b/src/modules/rmvs_classes.f90
index 680612de5..2fa6452f9 100644
--- a/src/modules/rmvs_classes.f90
+++ b/src/modules/rmvs_classes.f90
@@ -144,7 +144,7 @@ module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg)
          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
+         class(swiftest_parameters),   intent(inout) :: 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
diff --git a/src/modules/swiftest_classes.f90 b/src/modules/swiftest_classes.f90
index a1f60c0dd..cd68e0059 100644
--- a/src/modules/swiftest_classes.f90
+++ b/src/modules/swiftest_classes.f90
@@ -75,7 +75,6 @@ module swiftest_classes
       integer(I4B) :: discard_vhy_varid     !! NetCDF ID for the heliocentric velocity of the body at the time of discard y variable
       integer(I4B) :: discard_vhz_varid     !! NetCDF ID for the heliocentric velocity of the body at the time of discard z variable
       integer(I4B) :: discard_body_id_varid !! NetCDF ID for the id of the other body involved in the discard
-   
    contains
       procedure :: close      => netcdf_close             !! Closes an open NetCDF file
       procedure :: initialize => netcdf_initialize_output !! Initialize a set of parameters used to identify a NetCDF output object
@@ -90,6 +89,7 @@ module swiftest_classes
    !>    Each paramter is initialized to a default values. 
    type :: swiftest_parameters
       integer(I4B)         :: integrator     = UNKNOWN_INTEGRATOR !! Symbolic name of the nbody integrator  used
+      character(STRMAX)    :: param_file_name = "param.in"        !! The default name of the parameter input file
       integer(I4B)         :: maxid          = -1                 !! The current maximum particle id number 
       real(DP)             :: t0             = -1.0_DP            !! Integration start time
       real(DP)             :: t              = -1.0_DP            !! Integration current time
@@ -122,7 +122,12 @@ 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)    :: energy_out    = ""                  !! Name of output energy and momentum report file
+      character(STRMAX)    :: energy_out     = ""                 !! Name of output energy and momentum report file
+      character(NAMELEN)   :: interaction_loops = "ADAPTIVE"      !! Method used to compute interaction loops. Options are "TRIANGULAR", "FLAT", or "ADAPTIVE" 
+      ! The following are used internally, and are not set by the user, but instead are determined by the input value of INTERACTION_LOOPS
+      logical :: lflatten_interactions = .false. !! Use the flattened upper triangular matrix for pl-pl interaction loops
+      logical :: lflatten_encounters = .false. !! Use the flattened upper triangular matrix for pl-pl encounter check loops
+      logical :: ladaptive_interactions = .false. !! Adaptive interaction loop is turned on
 
       ! 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)
@@ -133,7 +138,6 @@ module swiftest_classes
       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 
-      logical :: lflatten_interactions = .true. !! Use the flattened upper triangular matrix for pl-pl interactions (turning this on improves the speed but uses more memory)
 
       ! 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
@@ -324,7 +328,7 @@ module swiftest_classes
       ! 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 :: index        => util_index_eucl_plpl   !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix
+      procedure :: flatten      => util_flatten_eucl_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  
@@ -463,7 +467,7 @@ 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 
+         class(swiftest_parameters),   intent(inout) :: 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
@@ -473,7 +477,7 @@ subroutine abstract_kick_body(self, system, param, t, dt, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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. 
@@ -554,6 +558,7 @@ module subroutine drift_body(self, system, param, dt)
       end subroutine drift_body
 
       module pure elemental subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag)
+         !$omp declare simd(drift_one)
          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
@@ -561,34 +566,34 @@ module pure elemental subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag
          integer(I4B), intent(out)      :: iflag !! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)
       end subroutine drift_one
 
-      module pure subroutine util_index_eucl_ij_to_k(n, i, j, k)
-         !$omp declare simd(util_index_eucl_ij_to_k)
+      module pure subroutine util_flatten_eucl_ij_to_k(n, i, j, k)
+         !$omp declare simd(util_flatten_eucl_ij_to_k)
          implicit none
          integer(I4B), intent(in)  :: n !! Number of bodies
          integer(I4B), intent(in)  :: i !! Index of the ith body
          integer(I4B), intent(in)  :: j !! Index of the jth body
          integer(I8B), intent(out) :: k !! Index of the flattened matrix
-      end subroutine util_index_eucl_ij_to_k
+      end subroutine util_flatten_eucl_ij_to_k
 
-      module pure subroutine util_index_eucl_k_to_ij(n, k, i, j)
+      module pure subroutine util_flatten_eucl_k_to_ij(n, k, i, j)
          implicit none
          integer(I4B), intent(in)  :: n !! Number of bodies
          integer(I8B), intent(in)  :: k !! Index of the flattened matrix
          integer(I4B), intent(out) :: i !! Index of the ith body
          integer(I4B), intent(out) :: j !! Index of the jth body
-      end subroutine util_index_eucl_k_to_ij
+      end subroutine util_flatten_eucl_k_to_ij
 
-      module subroutine util_index_eucl_plpl(self, param)
+      module subroutine util_flatten_eucl_plpl(self, param)
          implicit none
          class(swiftest_pl),         intent(inout) :: self  !! Swiftest massive body object
-         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       end subroutine
 
-      module subroutine util_index_eucl_pltp(self, pl, param)
+      module subroutine util_flatten_eucl_pltp(self, pl, param)
          implicit none
          class(swiftest_tp),         intent(inout) :: self  !! Swiftest test particle object
          class(swiftest_pl),         intent(in)    :: pl    !! Swiftest massive body object
-         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       end subroutine
 
       module pure subroutine gr_kick_getaccb_ns_body(self, system, param)
@@ -707,6 +712,19 @@ module function io_get_token(buffer, ifirst, ilast, ierr) result(token)
          character(len=:), allocatable   :: token          !! Returned token string
       end function io_get_token
 
+      module subroutine io_log_one_message(file, message)
+         implicit none
+         character(len=*), intent(in) :: file   !! Name of file to log
+         character(len=*), intent(in) :: message
+      end subroutine io_log_one_message
+   
+      module subroutine io_log_start(param, file, header)
+         implicit none
+         class(swiftest_parameters), intent(in) :: param  !! Current Swiftest run configuration parameters
+         character(len=*),           intent(in) :: file   !! Name of file to log
+         character(len=*),           intent(in) :: header !! Header to print at top of log file
+      end subroutine io_log_start
+
       module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) 
          implicit none
          class(swiftest_parameters), intent(inout) :: self       !! Collection of parameters
@@ -728,7 +746,67 @@ module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg)
          integer(I4B),               intent(out)   :: iostat    !! IO status code
          character(len=*),           intent(inout) :: iomsg     !! Message to pass if iostat /= 0
       end subroutine io_param_writer
+   end interface
+
+   interface io_param_writer_one
+      module subroutine io_param_writer_one_char(param_name, param_value, unit)
+         implicit none
+         character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+         character(len=*), intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_char
+
+      module subroutine io_param_writer_one_DP(param_name, param_value, unit)
+         implicit none
+         character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+         real(DP),         intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_DP
 
+      module subroutine io_param_writer_one_DParr(param_name, param_value, unit)
+         implicit none
+         character(len=*),       intent(in)    :: param_name  !! Name of parameter to print
+         real(DP), dimension(:), intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),           intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_DParr
+
+      module subroutine io_param_writer_one_I4B(param_name, param_value, unit)
+         implicit none
+         character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+         integer(I4B),     intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_I4B
+
+      module subroutine io_param_writer_one_I4Barr(param_name, param_value, unit)
+         implicit none
+         character(len=*),           intent(in)    :: param_name  !! Name of parameter to print
+         integer(I4B), dimension(:), intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),               intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_I4Barr
+
+      module subroutine io_param_writer_one_I8B(param_name, param_value, unit)
+         implicit none
+         character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+         integer(I8B),     intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_I8B
+
+      module subroutine io_param_writer_one_logical(param_name, param_value, unit)
+         implicit none
+         character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+         logical,          intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_logical
+
+      module subroutine io_param_writer_one_QP(param_name, param_value, unit)
+         implicit none
+         character(len=*), intent(in)    :: param_name  !! Name of parameter to print
+         real(QP),         intent(in)    :: param_value !! Value of parameter to print
+         integer(I4B),     intent(in)    :: unit        !! Open file unit number to print parameter to
+      end subroutine io_param_writer_one_QP
+   end interface io_param_writer_one
+
+   interface
       module subroutine io_read_in_body(self, param) 
          implicit none
          class(swiftest_body),       intent(inout) :: self  !! Swiftest body object
@@ -843,13 +921,13 @@ end subroutine io_write_hdr_system
       module subroutine kick_getacch_int_pl(self, param)
          implicit none
          class(swiftest_pl),         intent(inout) :: self  !! Swiftest massive body object
-         class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameters
+         class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameters
       end subroutine kick_getacch_int_pl
 
       module subroutine kick_getacch_int_tp(self, param, GMpl, xhp, npl)
          implicit none
          class(swiftest_tp),         intent(inout) :: self  !! Swiftest test particle object
-         class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameters
+         class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameters
          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
@@ -982,45 +1060,35 @@ module subroutine orbel_el2xv_vec(self, cb)
       end subroutine orbel_el2xv_vec
 
       module pure subroutine orbel_scget(angle, sx, cx)
+         !$omp declare simd(orbel_scget)
          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)
+      module pure subroutine orbel_xv2aeq(mu, px, py, pz, vx, vy, vz, a, e, q)
+         !$omp declare simd(orbel_xv2aeq)
          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
+         real(DP), intent(in)  :: mu !! Gravitational constant
+         real(DP), intent(in)  :: px,py,pz  !! Position vector
+         real(DP), intent(in)  :: vx,vy,vz  !! 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)
+      module pure subroutine orbel_xv2aqt(mu, px, py, pz, vx, vy, vz, a, q, capm, tperi)
+         !$omp declare simd(orbel_xv2aqt)
          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
+         real(DP), intent(in)  :: mu    !! Gravitational constant
+         real(DP), intent(in)  :: px,py,pz !! Position vector
+         real(DP), intent(in)  :: vx,vy,vz     !! 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 pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
-         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) :: inc   !! inclination
-         real(DP),               intent(out) :: capom !! longitude of ascending node
-         real(DP),               intent(out) :: omega !! argument of periapsis
-         real(DP),               intent(out) :: capm  !! mean anomaly
-      end subroutine orbel_xv2el
-
       module subroutine orbel_xv2el_vec(self, cb)
          implicit none
          class(swiftest_body), intent(inout) :: self !! Swiftest body object
@@ -1090,7 +1158,7 @@ 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 
+         class(swiftest_parameters),   intent(inout) :: 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
diff --git a/src/modules/swiftest_globals.f90 b/src/modules/swiftest_globals.f90
index 1f9c6028c..b7fe1a0db 100644
--- a/src/modules/swiftest_globals.f90
+++ b/src/modules/swiftest_globals.f90
@@ -113,9 +113,9 @@ module swiftest_globals
 
    !> 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_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.in',  'dump_param2.in']
 
    !> Default file names that can be changed by the user in the parameters file
@@ -126,6 +126,7 @@ module swiftest_globals
    integer(I4B), parameter :: BINUNIT          = 20 !! File unit number for the binary output file
    character(*), parameter :: PARTICLE_OUTFILE = 'particle.dat'
    integer(I4B), parameter :: PARTICLEUNIT     = 44 !! File unit number for the binary particle info output file
+   integer(I4B), parameter :: LUN              = 42 !! File unit number for files that are opened and closed within a single subroutine call, and therefore should not collide
 
    !> Miscellaneous constants:
    integer(I4B), parameter :: NDIM   = 3                  !! Number of dimensions in our reality
diff --git a/src/modules/symba_classes.f90 b/src/modules/symba_classes.f90
index 0faefc3d1..a1c56a456 100644
--- a/src/modules/symba_classes.f90
+++ b/src/modules/symba_classes.f90
@@ -67,7 +67,7 @@ module symba_classes
       type(symba_kinship),       dimension(:), allocatable :: kin        !! Array of merger relationship structures that can account for multiple pairwise mergers in a single step
    contains
       procedure :: make_colliders  => symba_collision_make_colliders_pl !! When a single body is involved in more than one collision in a single step, it becomes part of a family
-      procedure :: index           => symba_util_index_eucl_plpl     !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix
+      procedure :: flatten         => symba_util_flatten_eucl_plpl     !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix
       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
@@ -259,7 +259,7 @@ end subroutine symba_drift_tp
       module function symba_encounter_check_pl(self, param, system, dt, irec) result(lany_encounter)
          implicit none
          class(symba_pl),            intent(inout) :: self           !! SyMBA test particle object  
-         class(swiftest_parameters), intent(in)    :: param          !! Current swiftest run configuration parameters
+         class(swiftest_parameters), intent(inout) :: param          !! Current swiftest run configuration parameters
          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
@@ -316,12 +316,12 @@ module function symba_collision_casemerge(system, param, colliders, frag) result
          integer(I4B)                             :: status    !! Status flag assigned to this outcome
       end function symba_collision_casemerge
 
-      module subroutine symba_util_index_eucl_plpl(self, param)
+      module subroutine symba_util_flatten_eucl_plpl(self, param)
          use swiftest_classes, only : swiftest_parameters
          implicit none
          class(symba_pl),            intent(inout) :: self  !! SyMBA massive body object
-         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
-      end subroutine symba_util_index_eucl_plpl
+         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
+      end subroutine symba_util_flatten_eucl_plpl
 
       module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) 
          implicit none
@@ -355,7 +355,7 @@ end subroutine symba_io_write_discard
       module subroutine symba_kick_getacch_int_pl(self, param)
          implicit none
          class(symba_pl),            intent(inout) :: self  !! SyMBA massive body object
-         class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameters
+         class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameters
       end subroutine symba_kick_getacch_int_pl
 
       module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
@@ -363,7 +363,7 @@ module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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
@@ -373,14 +373,14 @@ module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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_encounter(self, system, dt, irec, sgn)
          implicit none
-         class(symba_encounter),      intent(in)    :: self   !! SyMBA pl-tp encounter list object
+         class(symba_encounter),    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
diff --git a/src/modules/walltime_classes.f90 b/src/modules/walltime_classes.f90
index 6425b5b5f..a538baad8 100644
--- a/src/modules/walltime_classes.f90
+++ b/src/modules/walltime_classes.f90
@@ -3,9 +3,13 @@ module walltime_classes
    !!
    !! Classes and methods used to compute elasped wall time
    use swiftest_globals
+   use swiftest_classes, only : swiftest_parameters, swiftest_pl
    implicit none
    public
 
+   integer(I4B) :: INTERACTION_TIMER_CADENCE = 1000 !! Minimum number of steps to wait before timing an interaction loop in ADAPTIVE mode
+   character(len=*), parameter :: INTERACTION_TIMER_LOG_OUT  = "interaction_timer.log" !! Name of log file for recording results of interaction loop timing
+
    type :: walltimer
       integer(I8B) :: count_rate                 !! Rate at wich the clock ticks
       integer(I8B) :: count_max                  !! Maximum value of the clock ticker
@@ -17,103 +21,90 @@ module walltime_classes
       procedure :: reset  => walltime_reset  !! Resets the clock ticker, settting main_start to the current ticker value
       procedure :: start  => walltime_start  !! Starts the timer, setting step_start to the current ticker value
       procedure :: finish => walltime_finish !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal
-   end type
+   end type walltimer
+
+   type, extends(walltimer) :: interaction_timer
+      character(len=STRMAX) :: loopname              !! Stores the name of the loop being timed for logging purposes
+      character(len=NAMELEN) :: looptype             !! Stores the type of loop (e.g. INTERACTION or ENCOUNTER)
+      integer(I8B) :: max_interactions = huge(1_I8B) !! Stores the number of pl-pl interactions that failed when attempting to flatten (e.g. out of memory). Adapting won't occur if ninteractions > max_interactions
+      integer(I8B) :: last_interactions = 0          !! Number of interactions that were computed last time. The timer is only run if there has been a change to the number of interactions
+      integer(I4B) :: step_counter = 0               !! Number of steps that have elapsed since the last timed loop
+      logical      :: is_on = .false.                !! The loop timer is currently active
+      integer(I4B) :: stage = 1                      !! The stage of the loop timing (1 or 2)
+      logical      :: stage1_is_flattened            !! Logical flag indicating whether stage1 was done with a flat loop (.true.) or triangular loop (.false.)
+      integer(I8B) :: stage1_ninteractions           !! Number of interactions computed during stage 1
+      real(DP)     :: stage1_metric                  !! Metric used to judge the performance of a timed loop (e.g. (count_finish_step - count_start_step) / ninteractions)
+      real(DP)     :: stage2_metric                  !! Metric used to judge the performance of a timed loop (e.g. (count_finish_step - count_start_step) / ninteractions)
+   contains
+      procedure :: adapt => walltime_interaction_adapt !! Runs the interaction loop adaptation algorithm on an interaction loop
+      procedure :: check => walltime_interaction_check !! Checks whether or not the loop should be timed and starts the timer if the conditions for starting are met
+      procedure :: flip  => walltime_interaction_flip_loop_style  !! Flips the interaction loop style from FLAT to TRIANGULAR or vice vers
+      procedure :: time_this_loop => walltime_interaction_time_this_loop !! Starts the interaction loop timer
+   end type interaction_timer
 
    interface
-      module subroutine walltime_finish(self, nsubsteps, message)
+      module subroutine walltime_finish(self, nsubsteps, message, param)
+         use swiftest_classes, only : swiftest_parameters
          implicit none
-         class(walltimer), intent(inout) :: self      !! Walltimer object
-         integer(I4B),     intent(in)    :: nsubsteps !! Number of substeps used to compute the time per step 
-         character(len=*), intent(in)    :: message   !! Message to prepend to the wall time terminal output
+         class(walltimer),           intent(inout) :: self      !! Walltimer object
+         integer(I4B),               intent(in)    :: nsubsteps !! Number of substeps used to compute the time per step 
+         character(len=*),           intent(in)    :: message   !! Message to prepend to the wall time terminal output
+         class(swiftest_parameters), intent(inout) :: param     !! Current run configuration parameters
       end subroutine walltime_finish
 
-      module subroutine walltime_reset(self)
+      module subroutine walltime_reset(self, param)
+         use swiftest_classes, only : swiftest_parameters
          implicit none
-         class(walltimer), intent(inout) :: self  !! Walltimer object
+         class(walltimer),           intent(inout) :: self  !! Walltimer object
+         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       end subroutine walltime_reset 
 
-      module subroutine walltime_start(self)
+      module subroutine walltime_start(self, param)
+         use swiftest_classes, only : swiftest_parameters
          implicit none
-         class(walltimer), intent(inout) :: self  !! Walltimer object
+         class(walltimer),           intent(inout) :: self  !! Walltimer object
+         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       end subroutine walltime_start
    end interface
 
-   contains
-
-      module subroutine walltime_finish(self, nsubsteps, message)
-         !! author: David A. Minton
-         !!
-         !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal
-         use swiftest_globals
+   interface
+      module subroutine walltime_interaction_adapt(self, param, pl, ninteractions)
+         use swiftest_classes, only : swiftest_parameters
          implicit none
-         ! Arguments
-         class(walltimer), intent(inout) :: self      !! Walltimer object
-         integer(I4B),     intent(in)    :: nsubsteps !! Number of substeps used to compute the time per step 
-         character(len=*), intent(in)    :: message   !! Message to prepend to the wall time terminal output
-         ! Internals
-         character(len=*), parameter     :: walltimefmt = '" Wall time (s): ", es12.5, "; Wall time/step in this interval (s):  ", es12.5'
-         character(len=STRMAX)           :: fmt
-         integer(I8B)                    :: count_delta_step, count_delta_main
-         real(DP)                        :: wall_main         !! Value of total elapsed time at the end of a timed step
-         real(DP)                        :: wall_step         !! Value of elapsed time since the start of a timed step
-         real(DP)                        :: wall_per_substep  !! Value of time per substep 
-
-         if (.not.self%lmain_is_started) then
-            write(*,*) "Wall timer error: The step finish time cannot be calculated because the timer is not started!"
-            return
-         end if
-
-         call system_clock(self%count_finish_step)
-
-         count_delta_step = self%count_finish_step - self%count_start_step
-         count_delta_main = self%count_finish_step - self%count_start_main
-         wall_step = count_delta_step / (self%count_rate * 1.0_DP)
-         wall_main = count_delta_main / (self%count_rate * 1.0_DP)
-         wall_per_substep = wall_step / nsubsteps
-
-         fmt = '("' //  adjustl(message) // '",' // walltimefmt // ')'
-         write(*,trim(adjustl(fmt))) wall_main, wall_per_substep
-
-         call self%start()
-
-         return
-      end subroutine walltime_finish
-
-      module subroutine walltime_reset(self)
-         !! author: David A. Minton
-         !!
-         !! Resets the clock ticker, settting main_start to the current ticker value
-         use swiftest_globals
+         class(interaction_timer),   intent(inout) :: self          !! Interaction loop timer object
+         class(swiftest_parameters), intent(inout) :: param         !! Current run configuration parameters
+         class(swiftest_pl),         intent(inout) :: pl            !! Swiftest massive body object
+         integer(I8B),               intent(in)    :: ninteractions !! Current number of interactions (used to normalize the timed loop and to determine if number of interactions has changed since the last timing
+      end subroutine walltime_interaction_adapt
+
+      module function walltime_interaction_check(self, param, ninteractions) result(ltimeit)
+         use swiftest_classes, only : swiftest_parameters
          implicit none
-         ! Arguments
-         class(walltimer), intent(inout) :: self
-         
-         call system_clock(self%count_start_main, self%count_rate, self%count_max)
-         self%lmain_is_started = .true.
-         call self%start()
-
-         return
-      end subroutine walltime_reset 
-
-
-      module subroutine walltime_start(self)
-         !! author: David A. Minton
-         !!
-         !! Starts the timer, setting step_start to the current ticker value
-         use swiftest_globals
+         class(interaction_timer),   intent(inout) :: self    !! Interaction loop timer object
+         class(swiftest_parameters), intent(inout) :: param   !! Current run configuration parameters
+         integer(I8B),               intent(in)    :: ninteractions !! Current number of interactions (used to normalize the timed loop and to determine if number of interactions has changed since the last timing
+         logical                                   :: ltimeit !! Logical flag indicating whether this loop should be timed or not
+      end function walltime_interaction_check
+
+      module subroutine walltime_interaction_flip_loop_style(self, param, pl)
+         use swiftest_classes, only : swiftest_parameters, swiftest_pl
          implicit none
-         ! Arguments
-         class(walltimer), intent(inout) :: self
+         class(interaction_timer),   intent(inout) :: self  !! Interaction loop timer object
+         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
+         class(swiftest_pl),         intent(inout) :: pl    !! Swiftest massive body object
+      end subroutine walltime_interaction_flip_loop_style
 
-         if (.not.self%lmain_is_started) then
-            write(*,*) "Wall timer error: Cannot start the step time until reset is called at least once!"
-            return
-         end if
+      module subroutine walltime_interaction_time_this_loop(self, param, pl, ninteractions)
+         use swiftest_classes, only : swiftest_parameters, swiftest_pl
+         implicit none
+         class(interaction_timer),   intent(inout) :: self          !! Interaction loop timer object
+         class(swiftest_parameters), intent(inout) :: param         !! Current run configuration parameters
+         class(swiftest_pl),         intent(inout) :: pl            !! Swiftest massive body object
+         integer(I8B),               intent(in)    :: ninteractions !! Current number of interactions (used to normalize the timed loop)
+      end subroutine walltime_interaction_time_this_loop
 
-         call system_clock(self%count_start_step)
+   end interface
 
-         return 
-      end subroutine walltime_start
 
 
 end module walltime_classes
\ No newline at end of file
diff --git a/src/modules/whm_classes.f90 b/src/modules/whm_classes.f90
index bd17f98e0..3cad184dd 100644
--- a/src/modules/whm_classes.f90
+++ b/src/modules/whm_classes.f90
@@ -108,20 +108,13 @@ module subroutine whm_drift_pl(self, system, param, dt)
          real(DP),                     intent(in)    :: dt     !! Stepsize
       end subroutine whm_drift_pl
 
-      module subroutine whm_util_index_eucl_plpl(self, param)
-         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
-      end subroutine whm_util_index_eucl_plpl
-   
       !> 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 
+         class(swiftest_parameters),   intent(inout) :: 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
@@ -132,7 +125,7 @@ module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg)
          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
+         class(swiftest_parameters),   intent(inout) :: 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
@@ -142,7 +135,7 @@ module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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. 
@@ -153,7 +146,7 @@ module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg)
          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 
+         class(swiftest_parameters),   intent(inout) :: 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. 
diff --git a/src/orbel/orbel.f90 b/src/orbel/orbel.f90
index 620e0f839..a815b92c7 100644
--- a/src/orbel/orbel.f90
+++ b/src/orbel/orbel.f90
@@ -129,6 +129,7 @@ end subroutine orbel_el2xv
 
 
    module pure subroutine orbel_scget(angle, sx, cx)
+      !$omp declare simd(orbel_scget)
       !! author: David A. Minton
       !!
       !! Efficiently compute the sine and cosine of an input angle
@@ -181,7 +182,7 @@ end subroutine orbel_scget
    !     REVISIONS:
    !**********************************************************************
    pure subroutine orbel_schget(angle,shx,chx)
-
+      !$omp declare simd(orbel_schget)
       real(DP), intent(in)  ::  angle
       real(DP), intent(out) :: shx,chx
       
@@ -212,6 +213,7 @@ end subroutine orbel_schget
    !     REVISIONS:
    !**********************************************************************
    real(DP) pure function orbel_flon(e,icapn)
+      !$omp declare simd(orbel_flon)
       implicit none
       real(DP), intent(in) ::  e, icapn
       integer(I4B) :: iflag,i
@@ -315,6 +317,7 @@ end function orbel_flon
    !     REVISIONS: 2/26/93 hfl
    !**********************************************************************
    real(DP) pure function orbel_fget(e,capn)
+      !$omp declare simd(orbel_fget)
       implicit none
 
       real(DP), intent(in) ::  e,capn
@@ -385,6 +388,7 @@ end function orbel_fget
    !       series for small Q.
    !**********************************************************************
    real(DP) pure function orbel_zget(iq)
+      !$omp declare simd(orbel_zget)
       implicit none
 
       real(DP), intent(in)  :: iq
@@ -440,6 +444,7 @@ end function orbel_zget
    !     REVISIONS: 2/26/93 hfl
    !**********************************************************************
    real(DP) pure function orbel_esolmd(e,m)
+      !$omp declare simd(orbel_esolmd)
       implicit none
 
       real(DP), intent(in)  :: e
@@ -495,6 +500,7 @@ end function orbel_esolmd
    !     REVISIONS:
    !**********************************************************************
    real(DP) pure function orbel_ehie(e,im)
+      !$omp declare simd(orbel_ehie)
       implicit none
 
       real(DP), intent(in) :: e,im
@@ -570,13 +576,13 @@ end function orbel_ehie
    !          we have an ellipse with e between 0.15 and 0.8
    !**********************************************************************
    real(DP) pure function orbel_eget(e,m)
+      !$omp declare simd(orbel_eget)
       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
@@ -644,6 +650,7 @@ end function orbel_eget
    !     REVISIONS: 2/26/93 hfl
    !**********************************************************************
    real(DP) pure function orbel_ehybrid(e,m)
+      !$omp declare simd(orbel_ehybrid)
       implicit none
 
       real(DP), intent(in) :: e,m
@@ -683,6 +690,7 @@ end function orbel_ehybrid
    !     REVISIONS: 2/26/93 hfl
    !**********************************************************************
    real(DP) pure function orbel_fhybrid(e,n)
+      !$omp declare simd(orbel_fhybrid)
       implicit none
       real(DP), intent(in) :: e,n
 
@@ -701,7 +709,8 @@ real(DP) pure function orbel_fhybrid(e,n)
    end function orbel_fhybrid
    
 
-   module pure subroutine orbel_xv2aeq(mu, x, v, a, e, q)
+   module pure subroutine orbel_xv2aeq(mu, px, py, pz, vx, vy, vz, a, e, q)
+      !$omp declare simd(orbel_xv2aeq)
       !! author: David A. Minton
       !!
       !! Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity
@@ -710,16 +719,22 @@ module pure subroutine orbel_xv2aeq(mu, x, v, a, e, q)
       !! 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
+      real(DP), intent(in)  :: mu !! Gravitational constant
+      real(DP), intent(in)  :: px,py,pz  !! Position vector
+      real(DP), intent(in)  :: vx,vy,vz  !! Velocity vector
+      real(DP), intent(out) :: a  !! semimajor axis
+      real(DP), intent(out) :: e  !! eccentricity
+      real(DP), intent(out) :: q  !! periapsis
+      ! Internals
       integer(I4B) :: iorbit_type
       real(DP)   :: r, v2, h2, energy, fac
-      real(DP), dimension(NDIM) :: hvec
+      real(DP), dimension(NDIM) :: hvec, x, v
 
       a = 0.0_DP
       e = 0.0_DP
       q = 0.0_DP
+      x = [px, py, pz]
+      v = [vx, vy, vz]
       r = sqrt(dot_product(x(:), x(:))) 
       v2 = dot_product(v(:), v(:))
       hvec(:) = x(:) .cross. v(:)
@@ -760,7 +775,8 @@ module pure subroutine orbel_xv2aeq(mu, x, v, a, e, q)
    end subroutine orbel_xv2aeq
 
 
-   module pure subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi)
+   module pure subroutine orbel_xv2aqt(mu, px, py, pz, vx, vy, vz, a, q, capm, tperi)
+      !$omp declare simd(orbel_xv2aqt)
       !! author: David A. Minton
       !!
       !! Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from
@@ -771,22 +787,24 @@ module pure subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi)
       !! 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
+      real(DP), intent(in)  :: mu    !! Gravitational constant
+      real(DP), intent(in)  :: px,py,pz !! Position vector
+      real(DP), intent(in)  :: vx,vy,vz !! 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
+      real(DP), dimension(NDIM) :: hvec, x, v
 
       a = 0.0_DP
       q = 0.0_DP
       capm = 0.0_DP
       tperi = 0.0_DP
+      x = [px, py, pz]
+      v = [vx, vy, vz]
       r = sqrt(dot_product(x(:), x(:)))
       v2 = dot_product(v(:), v(:))
       hvec(:) = x(:) .cross. v(:)
@@ -888,13 +906,16 @@ module subroutine orbel_xv2el_vec(self, cb)
       if (allocated(self%omega)) deallocate(self%omega); allocate(self%omega(self%nbody))
       if (allocated(self%capm)) deallocate(self%capm);  allocate(self%capm(self%nbody))
       do concurrent (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),  &
+         call orbel_xv2el(self%mu(i), self%xh(1,i), self%xh(2,i), self%xh(3,i), &
+                                      self%vh(1,i), self%vh(2,i), self%vh(3,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 
 
 
-   module pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
+   pure subroutine orbel_xv2el(mu, px, py, pz, vx, vy, vz, a, e, inc, capom, omega, capm)
+      !$omp declare simd(orbel_xv2el)
       !! author: David A. Minton
       !!
       !! Compute osculating orbital elements from relative Cartesian position and velocity
@@ -911,19 +932,19 @@ module pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
       !! Adapted from Martin Duncan's Swift routine orbel_xv2el.f
       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) :: e     !! eccentricity
-      real(DP),               intent(out) :: inc   !! inclination
-      real(DP),               intent(out) :: capom !! longitude of ascending node
-      real(DP),               intent(out) :: omega !! argument of periapsis
-      real(DP),               intent(out) :: capm  !! mean anomaly
+      real(DP), intent(in)  :: mu    !! Gravitational constant
+      real(DP), intent(in)  :: px,py,pz    !! Position vector
+      real(DP), intent(in)  :: vx,vy,vz !! Velocity vector
+      real(DP), intent(out) :: a     !! semimajor axis
+      real(DP), intent(out) :: e     !! eccentricity
+      real(DP), intent(out) :: inc   !! inclination
+      real(DP), intent(out) :: capom !! longitude of ascending node
+      real(DP), intent(out) :: omega !! argument of periapsis
+      real(DP), intent(out) :: capm  !! mean anomaly
       ! Internals
       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
+      real(DP), dimension(NDIM) :: hvec, x, v
 
       a = 0.0_DP
       e = 0.0_DP
@@ -931,6 +952,8 @@ module pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
       capom = 0.0_DP
       omega = 0.0_DP
       capm = 0.0_DP
+      x = [px, py, pz]
+      v = [vx, vy, vz]
       r = .mag. x(:)
       v2 = dot_product(v(:), v(:))
       hvec = x(:) .cross. v(:)
@@ -947,11 +970,11 @@ module pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm)
       end if
       fac = sqrt(hvec(1)**2 + hvec(2)**2) / h
       if (fac**2 < VSMALL) then
-         u = atan2(x(2), x(1))
+         u = atan2(py, px)
          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))
+         u = atan2(pz / sin(inc), px * cos(capom) + py * sin(capom))
       end if
       if (capom < 0.0_DP) capom = capom + TWOPI
       if (u < 0.0_DP) u = u + TWOPI
diff --git a/src/rmvs/rmvs_io.f90 b/src/rmvs/rmvs_io.f90
index b85ce2202..51f077852 100644
--- a/src/rmvs/rmvs_io.f90
+++ b/src/rmvs/rmvs_io.f90
@@ -19,7 +19,6 @@ module subroutine rmvs_io_write_encounter(t, id1, id2, Gmass1, Gmass2, radius1,
       character(*),           intent(in) :: enc_out
       ! Internals
       logical , save    :: lfirst = .true.
-      integer(I4B), parameter :: LUN = 30
       integer(I4B)        :: ierr
 
       if (enc_out == "") return
diff --git a/src/rmvs/rmvs_kick.f90 b/src/rmvs/rmvs_kick.f90
index 6a8c0786e..57c04d44e 100644
--- a/src/rmvs/rmvs_kick.f90
+++ b/src/rmvs/rmvs_kick.f90
@@ -13,7 +13,7 @@ module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg)
       ! 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
+      class(swiftest_parameters),   intent(inout) :: 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
diff --git a/src/rmvs/rmvs_step.f90 b/src/rmvs/rmvs_step.f90
index 00b66a9f8..005b6f68e 100644
--- a/src/rmvs/rmvs_step.f90
+++ b/src/rmvs/rmvs_step.f90
@@ -542,7 +542,8 @@ subroutine rmvs_peri_tp(tp, pl, t, dt, lfirst, inner_index, ipleP, param)
                   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)
+                        call orbel_xv2aqt(mu, xpc(1,i), xpc(2,i), xpc(3,i), vpc(1,i), vpc(2,i), vpc(3,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
diff --git a/src/setup/setup.f90 b/src/setup/setup.f90
index 18d8f2189..2dc57d952 100644
--- a/src/setup/setup.f90
+++ b/src/setup/setup.f90
@@ -175,7 +175,7 @@ module subroutine setup_initialize_system(self, param)
          call self%pl%el2xv(self%cb)
          call self%tp%el2xv(self%cb)
       end if
-      call self%pl%index(param)
+      call self%pl%flatten(param)
       if (.not.param%lrhill_present) call self%pl%set_rhill(self%cb)
       self%pl%lfirst = param%lfirstkick
       self%tp%lfirst = param%lfirstkick
diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90
index 864eaa723..5860e4cea 100644
--- a/src/symba/symba_collision.f90
+++ b/src/symba/symba_collision.f90
@@ -28,7 +28,7 @@ module function symba_collision_casedisruption(system, param, colliders, frag)
          message = "Supercatastrophic disruption between"
       end select
       call symba_collision_collider_message(system%pl, colliders%idx, message)
-      call fraggle_io_log_one_message(message)
+      call io_log_one_message(FRAGGLE_LOG_OUT, message)
 
       ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
       call frag%set_mass_dist(colliders, param)
@@ -37,7 +37,7 @@ module function symba_collision_casedisruption(system, param, colliders, frag)
       call frag%generate_fragments(colliders, system, param, lfailure)
 
       if (lfailure) then
-         call fraggle_io_log_one_message("No fragment solution found, so treat as a pure hit-and-run")
+         call io_log_one_message(FRAGGLE_LOG_OUT, "No fragment solution found, so treat as a pure hit-and-run")
          status = ACTIVE 
          nfrag = 0
          select type(pl => system%pl)
@@ -50,7 +50,7 @@ module function symba_collision_casedisruption(system, param, colliders, frag)
          ! Populate the list of new bodies
          nfrag = frag%nbody
          write(message, *) nfrag
-         call fraggle_io_log_one_message("Generating " // trim(adjustl(message)) // " fragments")
+         call io_log_one_message(FRAGGLE_LOG_OUT, "Generating " // trim(adjustl(message)) // " fragments")
          select case(frag%regime)
          case(COLLRESOLVE_REGIME_DISRUPTION)
             status = DISRUPTION
@@ -87,7 +87,7 @@ module function symba_collision_casehitandrun(system, param, colliders, frag)  r
 
       message = "Hit and run between"
       call symba_collision_collider_message(system%pl, colliders%idx, message)
-      call fraggle_io_log_one_message(trim(adjustl(message)))
+      call io_log_one_message(FRAGGLE_LOG_OUT, trim(adjustl(message)))
 
       if (colliders%mass(1) > colliders%mass(2)) then
          jtarg = 1
@@ -98,7 +98,7 @@ module function symba_collision_casehitandrun(system, param, colliders, frag)  r
       end if
 
       if (frag%mass_dist(2) > 0.9_DP * colliders%mass(jproj)) then ! Pure hit and run, so we'll just keep the two bodies untouched
-         call fraggle_io_log_one_message("Pure hit and run. No new fragments generated.")
+         call io_log_one_message(FRAGGLE_LOG_OUT, "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
@@ -109,12 +109,12 @@ module function symba_collision_casehitandrun(system, param, colliders, frag)  r
          call frag%generate_fragments(colliders, system, param, lpure)
 
          if (lpure) then
-            call fraggle_io_log_one_message("Should have been a pure hit and run instead")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Should have been a pure hit and run instead")
             nfrag = 0
          else
             nfrag = frag%nbody
             write(message, *) nfrag
-            call fraggle_io_log_one_message("Generating " // trim(adjustl(message)) // " fragments")
+            call io_log_one_message(FRAGGLE_LOG_OUT, "Generating " // trim(adjustl(message)) // " fragments")
          end if
       end if
       if (lpure) then ! Reset these bodies back to being active so that nothing further is done to them
@@ -164,7 +164,7 @@ module function symba_collision_casemerge(system, param, colliders, frag)  resul
 
       message = "Merging"
       call symba_collision_collider_message(system%pl, colliders%idx, message)
-      call fraggle_io_log_one_message(message)
+      call io_log_one_message(FRAGGLE_LOG_OUT, message)
 
       select type(pl => system%pl)
       class is (symba_pl)
@@ -358,7 +358,7 @@ module function symba_collision_check_encounter(self, system, param, t, dt, irec
                      write(message, *) "Particle " // trim(adjustl(tp%info(j)%name)) // " ("  // trim(adjustl(idstrj)) // ")" &
                              //  " collided with massive body " // trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstri)) // ")" &
                              //  " at t = " // trim(adjustl(timestr))
-                     call fraggle_io_log_one_message(message)
+                     call io_log_one_message(FRAGGLE_LOG_OUT, message)
                   end if
                end if
             end do
@@ -412,7 +412,7 @@ pure elemental function symba_collision_check_one(xr, yr, zr, vxr, vyr, vzr, Gmt
             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)
+               call orbel_xv2aeq(Gmtot, xr, yr, zr, vxr, vyr, vzr, a, e, q)
                lcollision = (q < rlim) 
             end if
          end if
@@ -984,10 +984,10 @@ module subroutine symba_collision_resolve_plplenc(self, system, param, t, dt, ir
 
                do
                   write(timestr,*) t
-                  call fraggle_io_log_one_message("")
-                  call fraggle_io_log_one_message("***********************************************************************************************************************")
-                  call fraggle_io_log_one_message("Collision between massive bodies detected at time t = " // trim(adjustl(timestr)))
-                  call fraggle_io_log_one_message("***********************************************************************************************************************")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "Collision between massive bodies detected at time t = " // trim(adjustl(timestr)))
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
                   allocate(tmp_param, source=param)
                   tmp_param%t = t
                   if (param%lfragmentation) then
diff --git a/src/symba/symba_discard.f90 b/src/symba/symba_discard.f90
index 704d11f85..592b146b8 100644
--- a/src/symba/symba_discard.f90
+++ b/src/symba/symba_discard.f90
@@ -37,11 +37,11 @@ subroutine symba_discard_cb_pl(pl, system, param)
                   write(idstr, *) pl%id(i)
                   write(timestr, *) param%t
                   write(message, *) trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstr)) // ")" // " too far from the central body at t = " // trim(adjustl(timestr))
-                  call fraggle_io_log_one_message("")
-                  call fraggle_io_log_one_message("***********************************************************************************************************************")
-                  call fraggle_io_log_one_message(message)
-                  call fraggle_io_log_one_message("***********************************************************************************************************************")
-                  call fraggle_io_log_one_message("")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, message)
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "")
                   call pl%info(i)%set_value(status="DISCARDED_RMAX", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i))
                else if ((param%rmin >= 0.0_DP) .and. (rh2 < rmin2)) then
                   pl%ldiscard(i) = .true.
@@ -50,11 +50,11 @@ subroutine symba_discard_cb_pl(pl, system, param)
                   write(idstr, *) pl%id(i)
                   write(timestr, *) param%t
                   write(message, *) trim(adjustl(pl%info(i)%name)) // " ("  // trim(adjustl(idstr)) // ")" // " too close to the central body at t = " // trim(adjustl(timestr))
-                  call fraggle_io_log_one_message("")
-                  call fraggle_io_log_one_message("***********************************************************************************************************************")
-                  call fraggle_io_log_one_message(message)
-                  call fraggle_io_log_one_message("***********************************************************************************************************************")
-                  call fraggle_io_log_one_message("")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, message)
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                  call io_log_one_message(FRAGGLE_LOG_OUT, "")
                   call pl%info(i)%set_value(status="DISCARDED_RMIN", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i), discard_body_id=cb%id)
                else if (param%rmaxu >= 0.0_DP) then
                   rb2 = dot_product(pl%xb(:,i), pl%xb(:,i))
@@ -67,11 +67,11 @@ subroutine symba_discard_cb_pl(pl, system, param)
                      write(idstr, *) pl%id(i)
                      write(timestr, *) param%t
                      write(message, *) trim(adjustl(pl%info(i)%name)) // " (" // trim(adjustl(idstr)) // ")" // " is unbound and too far from barycenter at t = " // trim(adjustl(timestr))
-                     call fraggle_io_log_one_message("")
-                     call fraggle_io_log_one_message("***********************************************************************************************************************")
-                     call fraggle_io_log_one_message(message)
-                     call fraggle_io_log_one_message("***********************************************************************************************************************")
-                     call fraggle_io_log_one_message("")
+                     call io_log_one_message(FRAGGLE_LOG_OUT, "")
+                     call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                     call io_log_one_message(FRAGGLE_LOG_OUT, message)
+                     call io_log_one_message(FRAGGLE_LOG_OUT, "***********************************************************************************************************************")
+                     call io_log_one_message(FRAGGLE_LOG_OUT, "")
                      call pl%info(i)%set_value(status="DISCARDED_RMAXU", discard_time=param%t, discard_xh=pl%xh(:,i), discard_vh=pl%vh(:,i))
                   end if
                end if
diff --git a/src/symba/symba_encounter_check.f90 b/src/symba/symba_encounter_check.f90
index 3ba6b4adf..4896721d3 100644
--- a/src/symba/symba_encounter_check.f90
+++ b/src/symba/symba_encounter_check.f90
@@ -130,7 +130,7 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
       implicit none
       ! Arguments
       class(symba_pl),            intent(inout)  :: self   !! SyMBA test particle object  
-      class(swiftest_parameters), intent(in)     :: param  !! Current swiftest run configuration parameters
+      class(swiftest_parameters), intent(inout)  :: param  !! Current swiftest run configuration parameters
       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
@@ -142,13 +142,28 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
       logical, dimension(:), allocatable :: lencounter, loc_lvdotr, lvdotr
       integer(I4B), dimension(:), allocatable :: index1, index2
       integer(I4B), dimension(:,:), allocatable :: k_plpl_enc 
+      type(interaction_timer), save :: itimer
+      logical, save :: lfirst = .true.
   
       if (self%nbody == 0) return
 
       associate(pl => self, plplenc_list => system%plplenc_list)
+
+         if (param%ladaptive_interactions) then
+            if (lfirst) then
+               write(itimer%loopname, *)  "symba_encounter_check_pl"
+               write(itimer%looptype, *)  "ENCOUNTERS"
+               call itimer%time_this_loop(param, pl, pl%nplplm)
+               lfirst = .false.
+            else
+               if (itimer%check(param, pl%nplplm)) call itimer%time_this_loop(param, pl, pl%nplplm)
+            end if
+         end if
+
          npl = pl%nbody
-         if (param%lflatten_interactions) then
+         if (param%lflatten_encounters) then
             nplplm = pl%nplplm
+
             allocate(lencounter(nplplm))
             allocate(loc_lvdotr(nplplm))
   
@@ -200,6 +215,11 @@ module function symba_encounter_check_pl(self, param, system, dt, irec) result(l
                pl%nplenc(j) = pl%nplenc(j) + 1
             end do
          end if
+
+         if (param%ladaptive_interactions) then 
+            if (itimer%is_on) call itimer%adapt(param, pl, pl%nplplm)
+         end if
+
       end associate
 
       return
diff --git a/src/symba/symba_io.f90 b/src/symba/symba_io.f90
index c97904079..bea4e9de3 100644
--- a/src/symba/symba_io.f90
+++ b/src/symba/symba_io.f90
@@ -27,12 +27,10 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
       character(len=*),parameter     :: linefmt = '(A)'
 
       associate(param => self)
-         call io_param_reader(param, unit, iotype, v_list, iostat, iomsg) 
-
+         open(unit = unit, file = param%param_file_name, status = 'old', err = 667, iomsg = 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, err = 667, iomsg = iomsg) line
             line_trim = trim(adjustl(line))
@@ -80,40 +78,35 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
             end if
          end do
          1 continue
+         close(unit)
 
          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
 
-         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(:)
             if (param%min_GMfrag < 0.0_DP) param%min_GMfrag = param%GMTINY
-            write(*,*) "MIN_GMFRAG      = ", self%min_GMfrag
          end if
 
-         if (.not.self%lclose) then
-            write(iomsg,*) 'This integrator requires CHK_CLOSE to be enabled.'
-            iostat = -1
-            return
-         end if
          ! All reporting of collision information in SyMBA (including mergers) is now recorded in the Fraggle logfile
-         call fraggle_io_log_start(param)
+         call io_log_start(param, FRAGGLE_LOG_OUT, "Fraggle logfile")
+
+         ! Call the base method (which also prints the contents to screen)
+         call io_param_reader(param, unit, iotype, v_list, iostat, iomsg) 
       end associate
 
       iostat = 0
 
-      667 continue
       return
+      667 continue
+      write(*,*) "Error reading SyMBA parameters in param file: ", trim(adjustl(iomsg))
    end subroutine symba_io_param_reader
 
 
@@ -134,43 +127,19 @@ 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
       ! 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=NAMELEN) :: param_name
-      character(len=STRMAX)  :: param_value
-      type character_array
-         character(25) :: value
-      end type character_array
-      type(character_array), dimension(:), allocatable :: param_array
-      integer(I4B) :: i, nstr
+      integer(I4B) :: nseeds
 
       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, *) "GMTINY"; write(param_value, Rfmt) param%GMTINY; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "MIN_GMFRAG"; write(param_value, Rfmt) param%min_GMfrag; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
-         write(param_name, *) "FRAGMENTATION"; write(param_value, Lfmt) param%lfragmentation; write(unit, *, err = 667, iomsg = iomsg) adjustl(param_name) // trim(adjustl(param_value))
+         call io_param_writer_one("GMTINY",param%GMTINY, unit)
+         call io_param_writer_one("MIN_GMFRAG",param%min_GMfrag, unit)
+         call io_param_writer_one("FRAGMENTATION",param%lfragmentation, unit)
          if (param%lfragmentation) then
-            write(param_name, *) "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, '(" ",A32)', advance='no', err = 667, iomsg = iomsg) adjustl(param_name)
-            do i = 0, size(param%seed)
-               nstr = len(trim(adjustl(param_array(i)%value)))
-               if (i < size(param%seed)) then
-                  write(unit, '(A12)', advance='no', err = 667, iomsg = iomsg) trim(adjustl(param_array(i)%value)) // " "
-               else
-                  write(unit, '(A12)', err = 667, iomsg = iomsg) trim(adjustl(param_array(i)%value))
-               end if
-            end do
+            nseeds = size(param%seed)
+            call io_param_writer_one("SEED", [nseeds, param%seed(:)], unit)
          end if
 
          iostat = 0
@@ -187,7 +156,6 @@ module subroutine symba_io_write_discard(self, param)
       class(symba_nbody_system),  intent(inout) :: self  !! SyMBA nbody system object
       class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
       ! Internals
-      integer(I4B), parameter   :: LUN = 40
       integer(I4B)          :: iadd, isub, j, nsub, nadd
       logical, save :: lfirst = .true. 
       real(DP), dimension(:,:), allocatable :: vh
diff --git a/src/symba/symba_kick.f90 b/src/symba/symba_kick.f90
index fd0354612..529f00215 100644
--- a/src/symba/symba_kick.f90
+++ b/src/symba/symba_kick.f90
@@ -12,7 +12,21 @@ module subroutine symba_kick_getacch_int_pl(self, param)
       implicit none
       ! Arguments
       class(symba_pl),            intent(inout) :: self  !! SyMBA massive body object
-      class(swiftest_parameters), intent(in)    :: param !! Current swiftest run configuration parameter
+      class(swiftest_parameters), intent(inout) :: param !! Current swiftest run configuration parameter
+      ! Internals
+      type(interaction_timer), save :: itimer
+      logical, save :: lfirst = .true.
+
+      if (param%ladaptive_interactions) then
+         if (lfirst) then
+            write(itimer%loopname, *)  "symba_kick_getacch_int_pl"
+            write(itimer%looptype, *)  "INTERACTION"
+            call itimer%time_this_loop(param, self, self%nplplm)
+            lfirst = .false.
+         else
+            if (itimer%check(param, self%nplplm)) call itimer%time_this_loop(param, self, self%nplplm)
+         end if
+      end if
 
       if (param%lflatten_interactions) then
          call kick_getacch_int_all_flat_pl(self%nbody, self%nplplm, self%k_plpl, self%xh, self%Gmass, self%radius, self%ah)
@@ -20,6 +34,10 @@ module subroutine symba_kick_getacch_int_pl(self, param)
          call kick_getacch_int_all_triangular_pl(self%nbody, self%nplm, self%xh, self%Gmass, self%radius, self%ah)
       end if
 
+      if (param%ladaptive_interactions) then 
+         if (itimer%is_on) call itimer%adapt(param, self, self%nplplm)
+      end if
+
       return
    end subroutine symba_kick_getacch_int_pl
 
@@ -35,7 +53,7 @@ module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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
@@ -68,6 +86,7 @@ module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
       return
    end subroutine symba_kick_getacch_pl
 
+
    module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
       !! author: David A. Minton
       !!
@@ -79,7 +98,7 @@ module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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
diff --git a/src/symba/symba_util.f90 b/src/symba/symba_util.f90
index 0d062894f..86250272e 100644
--- a/src/symba/symba_util.f90
+++ b/src/symba/symba_util.f90
@@ -269,7 +269,7 @@ module subroutine symba_util_fill_tp(self, inserts, lfill_list)
    end subroutine symba_util_fill_tp
 
 
-   module subroutine symba_util_index_eucl_plpl(self, param)
+   module subroutine symba_util_flatten_eucl_plpl(self, param)
       !! author: Jacob R. Elliott and David A. Minton
       !!
       !! Turns i,j indices into k index for use in the Euclidean distance matrix. This also sets the lmtiny flag and computes the
@@ -283,32 +283,35 @@ module subroutine symba_util_index_eucl_plpl(self, param)
       implicit none
       ! Arguments
       class(symba_pl),            intent(inout) :: self  !! SyMBA massive body object
-      class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       ! Internals
-      integer(I8B) :: k, nplpl, nplplm
-      integer(I4B) :: i, j, npl, nplm, ip, jp
+      integer(I8B) :: k
+      integer(I4B) :: i, j, npl, nplm, err
 
-      associate(pl => self)
+      associate(pl => self, nplpl => self%nplpl, nplplm => self%nplplm)
          npl = int(self%nbody, kind=I8B)
          nplm = count(.not. pl%lmtiny(1:npl))
          pl%nplm = int(nplm, kind=I4B)
-         pl%nplpl = (npl * (npl - 1) / 2) ! number of entries in a strict lower triangle, npl x npl, minus first column
-         pl%nplplm = nplm * npl - nplm * (nplm + 1) / 2 ! number of entries in a strict lower triangle, npl x npl, minus first column including only mutually interacting bodies
-         if (param%lflatten_interactions) then
+         nplpl = (npl * (npl - 1) / 2) ! number of entries in a strict lower triangle, npl x npl, minus first column
+         nplplm = nplm * npl - nplm * (nplm + 1) / 2 ! number of entries in a strict lower triangle, npl x npl, minus first column including only mutually interacting bodies
+         if ((param%lflatten_interactions) .or. (param%lflatten_encounters)) then
             if (allocated(self%k_plpl)) deallocate(self%k_plpl) ! Reset the index array if it's been set previously
-            allocate(self%k_plpl(2, pl%nplpl))
-            do concurrent (i = 1:npl)
-               do concurrent (j = i+1:npl)
-                  call util_index_eucl_ij_to_k(npl, i, j, k)
+            allocate(self%k_plpl(2, nplpl), stat=err)
+            if (err /=0) then ! An error occurred trying to allocate this big array. This probably means it's too big to fit in memory, and so we will force the run back into triangular mode
+               param%lflatten_interactions = .false.
+               param%lflatten_encounters = .false.
+            else
+               do concurrent (i=1:npl, j=1:npl, j>i)
+                  call util_flatten_eucl_ij_to_k(npl, i, j, k)
                   self%k_plpl(1, k) = i
                   self%k_plpl(2, k) = j
                end do
-            end do
+            end if
          end if
       end associate
 
       return
-   end subroutine symba_util_index_eucl_plpl
+   end subroutine symba_util_flatten_eucl_plpl
 
 
    module subroutine symba_util_peri_pl(self, system, param)
@@ -360,7 +363,8 @@ module subroutine symba_util_peri_pl(self, system, param)
                      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))
+                           CALL orbel_xv2aeq(pl%mu(i), pl%xh(1,i), pl%xh(2,i), pl%xh(3,i), pl%vh(1,i), pl%vh(2,i), pl%vh(3,i), &
+                                  pl%atp(i), e, pl%peri(i))
                         end if
                      else
                         if (vdotr > 0.0_DP) then
@@ -378,7 +382,7 @@ module subroutine symba_util_peri_pl(self, system, param)
                      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))
+                           CALL orbel_xv2aeq(system%Gmtot, pl%xb(1,i), pl%xb(2,i), pl%xb(3,i), pl%vb(1,i), pl%vb(2,i), pl%vb(3,i),  pl%atp(i), e, pl%peri(i))
                         end if
                      else
                         if (vdotr > 0.0_DP) then
@@ -478,7 +482,7 @@ module subroutine symba_util_rearray_pl(self, system, param)
 
          ! Reindex the new list of bodies 
          call pl%sort("mass", ascending=.false.)
-         call pl%index(param)
+         call pl%flatten(param)
 
          ! Reset the kinship trackers
          call pl%reset_kinship([(i, i=1, npl)])
diff --git a/src/user/user_getacch.f90 b/src/user/user_getacch.f90
index 2775de3dd..a85ec3143 100644
--- a/src/user/user_getacch.f90
+++ b/src/user/user_getacch.f90
@@ -11,7 +11,7 @@ module subroutine user_kick_getacch_body(self, system, param, t, lbeg)
       ! 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
+      class(swiftest_parameters),   intent(inout) :: 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
 
diff --git a/src/util/util_index.f90 b/src/util/util_flatten.f90
similarity index 76%
rename from src/util/util_index.f90
rename to src/util/util_flatten.f90
index d0dd83896..6d2027049 100644
--- a/src/util/util_index.f90
+++ b/src/util/util_flatten.f90
@@ -2,8 +2,8 @@
    use swiftest
 contains
 
-   module pure subroutine util_index_eucl_ij_to_k(n, i, j, k)
-      !$omp declare simd(util_index_eucl_ij_to_k)
+   module pure subroutine util_flatten_eucl_ij_to_k(n, i, j, k)
+      !$omp declare simd(util_flatten_eucl_ij_to_k)
       !! author: Jacob R. Elliott and David A. Minton
       !!
       !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions.
@@ -27,10 +27,10 @@ module pure subroutine util_index_eucl_ij_to_k(n, i, j, k)
       k = (i8 - 1_I8B) * n8 - i8 * (i8 - 1_I8B) / 2_I8B + (j8 - i8)
 
       return
-   end subroutine util_index_eucl_ij_to_k
+   end subroutine util_flatten_eucl_ij_to_k
 
 
-   module pure subroutine util_index_eucl_k_to_ij(n, k, i, j)
+   module pure subroutine util_flatten_eucl_k_to_ij(n, k, i, j)
       !! author: Jacob R. Elliott and David A. Minton
       !!
       !! Turns k index into i,j indices for use in the Euclidean distance matrix for pl-pl interactions.
@@ -59,10 +59,10 @@ module pure subroutine util_index_eucl_k_to_ij(n, k, i, j)
       j = int(j8, kind=I4B)
 
       return
-   end subroutine util_index_eucl_k_to_ij
+   end subroutine util_flatten_eucl_k_to_ij
 
 
-   module subroutine util_index_eucl_plpl(self, param)
+   module subroutine util_flatten_eucl_plpl(self, param)
       !! author: Jacob R. Elliott and David A. Minton
       !!
       !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-pl interactions for a Swiftest massive body object
@@ -74,30 +74,35 @@ module subroutine util_index_eucl_plpl(self, param)
       implicit none
       ! Arguments
       class(swiftest_pl),         intent(inout) :: self  !! Swiftest massive body object
-      class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       ! Internals
-      integer(I4B) :: i, j, npl
+      integer(I4B) :: i, j, npl, err
       integer(I8B) :: k
 
       npl = int(self%nbody, kind=I8B)
       associate(nplpl => self%nplpl)
          nplpl = (npl * (npl - 1) / 2) ! number of entries in a strict lower triangle, npl x npl
-         if (param%lflatten_interactions) then
+         if ((param%lflatten_interactions) .or. (param%lflatten_encounters)) then
             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 concurrent (i=1:npl, j=1:npl, j>i)
-               call util_index_eucl_ij_to_k(npl, i, j, k)
-               self%k_plpl(1, k) = i
-               self%k_plpl(2, k) = j
-            end do
+            allocate(self%k_plpl(2, nplpl), stat=err)
+            if (err /=0) then ! An error occurred trying to allocate this big array. This probably means it's too big to fit in memory, and so we will force the run back into triangular mode
+               param%lflatten_interactions = .false.
+               param%lflatten_encounters = .false.
+            else
+               do concurrent (i=1:npl, j=1:npl, j>i)
+                  call util_flatten_eucl_ij_to_k(npl, i, j, k)
+                  self%k_plpl(1, k) = i
+                  self%k_plpl(2, k) = j
+               end do
+            end if
          end if
       end associate
 
       return
-   end subroutine util_index_eucl_plpl
+   end subroutine util_flatten_eucl_plpl
 
 
-   module subroutine util_index_eucl_pltp(self, pl, param)
+   module subroutine util_flatten_eucl_pltp(self, pl, param)
       !! author: Jacob R. Elliott and David A. Minton
       !!
       !! Turns i,j indices into k index for use in the Euclidean distance matrix for pl-tp interactions
@@ -110,7 +115,7 @@ module subroutine util_index_eucl_pltp(self, pl, param)
       ! Arguments
       class(swiftest_tp),         intent(inout) :: self  !! Swiftest test particle object
       class(swiftest_pl),         intent(in)    :: pl    !! Swiftest massive body object
-      class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
       ! Internals
       integer(I8B) :: i, j, counter, npl, ntp
 
@@ -131,6 +136,6 @@ module subroutine util_index_eucl_pltp(self, pl, param)
       end associate
 
       return
-   end subroutine util_index_eucl_pltp
+   end subroutine util_flatten_eucl_pltp
 
 end submodule s_util_index
diff --git a/src/util/util_peri.f90 b/src/util/util_peri.f90
index 66f2254e1..a81748d74 100644
--- a/src/util/util_peri.f90
+++ b/src/util/util_peri.f90
@@ -29,7 +29,7 @@ module subroutine util_peri_tp(self, system, param)
                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))
+                     call orbel_xv2aeq(tp%mu(i), tp%xh(1,i), tp%xh(2,i), tp%xh(3,i), tp%vh(1,i), tp%vh(2,i), tp%vh(3,i), tp%atp(i), e, tp%peri(i))
                   end if
                else
                   if (vdotr(i) > 0.0_DP) then
@@ -45,7 +45,7 @@ module subroutine util_peri_tp(self, system, param)
                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))
+                     call orbel_xv2aeq(system%Gmtot, tp%xb(1,i), tp%xb(2,i), tp%xb(3,i), tp%vb(1,i), tp%vb(2,i), tp%vb(3,i), tp%atp(i), e, tp%peri(i))
                   end if
                else
                   if (vdotr(i) > 0.0_DP) then
diff --git a/src/walltime/walltime.f90 b/src/walltime/walltime.f90
new file mode 100644
index 000000000..2da539285
--- /dev/null
+++ b/src/walltime/walltime.f90
@@ -0,0 +1,252 @@
+submodule(walltime_classes) s_walltime
+   use swiftest
+contains
+
+   module subroutine walltime_finish(self, nsubsteps, message, param)
+      !! author: David A. Minton
+      !!
+      !! Ends the timer, setting step_finish to the current ticker value and printing the elapsed time information to the terminal
+      implicit none
+      ! Arguments
+      class(walltimer),           intent(inout) :: self      !! Walltimer object
+      integer(I4B),               intent(in)    :: nsubsteps !! Number of substeps used to compute the time per step 
+      character(len=*),           intent(in)    :: message   !! Message to prepend to the wall time terminal output
+      class(swiftest_parameters), intent(inout) :: param     !! Current run configuration parameters
+      ! Internals
+      character(len=*), parameter     :: walltimefmt = '" Wall time (s): ", es12.5, "; Wall time/step in this interval (s):  ", es12.5'
+      character(len=STRMAX)           :: fmt
+      integer(I8B)                    :: count_delta_step, count_delta_main
+      real(DP)                        :: wall_main         !! Value of total elapsed time at the end of a timed step
+      real(DP)                        :: wall_step         !! Value of elapsed time since the start of a timed step
+      real(DP)                        :: wall_per_substep  !! Value of time per substep 
+
+      if (.not.self%lmain_is_started) then
+         write(*,*) "Wall timer error: The step finish time cannot be calculated because the timer is not started!"
+         return
+      end if
+
+      call system_clock(self%count_finish_step)
+
+      count_delta_step = self%count_finish_step - self%count_start_step
+      count_delta_main = self%count_finish_step - self%count_start_main
+      wall_step = count_delta_step / (self%count_rate * 1.0_DP)
+      wall_main = count_delta_main / (self%count_rate * 1.0_DP)
+      wall_per_substep = wall_step / nsubsteps
+
+      fmt = '("' //  adjustl(message) // '",' // walltimefmt // ')'
+      write(*,trim(adjustl(fmt))) wall_main, wall_per_substep
+
+      call self%start(param)
+
+      return
+   end subroutine walltime_finish
+
+
+   module subroutine walltime_reset(self, param)
+      !! author: David A. Minton
+      !!
+      !! Resets the clock ticker, settting main_start to the current ticker value
+      implicit none
+      ! Arguments
+      class(walltimer),           intent(inout) :: self  !! Walltimer object
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
+      
+      call system_clock(self%count_start_main, self%count_rate, self%count_max)
+      self%lmain_is_started = .true.
+      call self%start(param)
+
+      return
+   end subroutine walltime_reset 
+
+
+   module subroutine walltime_start(self, param)
+      !! author: David A. Minton
+      !!
+      !! Starts the timer, setting step_start to the current ticker value
+      implicit none
+      ! Arguments
+      class(walltimer),           intent(inout) :: self  !! Walltimer object
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
+
+      if (.not.self%lmain_is_started) then
+         write(*,*) "Wall timer error: Cannot start the step time until reset is called at least once!"
+         return
+      end if
+
+      call system_clock(self%count_start_step)
+
+      return 
+   end subroutine walltime_start
+
+
+   module subroutine walltime_interaction_adapt(self, param, pl, ninteractions)
+      !! author: David A. Minton
+      !!
+      !! Determines which of the two loop styles is fastest and keeps that one
+      implicit none
+      ! Arguments
+      class(interaction_timer),   intent(inout) :: self          !! Walltimer object
+      class(swiftest_parameters), intent(inout) :: param         !! Current run configuration parameters
+      class(swiftest_pl),         intent(inout) :: pl            !! Swiftest massive body object
+      integer(I8B),               intent(in)    :: ninteractions !! Current number of interactions (used to normalize the timed loop and to determine if number of interactions has changed since the last timing
+      ! Internals
+      character(len=STRMAX) :: tstr, nstr, cstr, mstr
+      character(len=11) :: lstyle
+      character(len=1) :: schar
+      logical :: lflatten_final
+
+      ! Record the elapsed time 
+      call system_clock(self%count_finish_step)
+
+      write(schar,'(I1)') self%stage
+      write(nstr,*) ninteractions
+
+      select case(self%stage)
+      case(1)
+         if (self%stage1_is_flattened) then
+            write(lstyle,*) "FLAT      "
+         else
+            write(lstyle,*) "TRIANGULAR"
+         end if 
+         self%stage1_metric = (self%count_finish_step - self%count_start_step) / real(ninteractions, kind=DP)
+         write(mstr,*) self%stage1_metric
+      case(2)
+         if (.not.self%stage1_is_flattened) then
+            write(lstyle,*) "FLAT      "
+         else
+            write(lstyle,*) "TRIANGULAR"
+         end if 
+
+         self%stage2_metric = (self%count_finish_step - self%count_start_step) / real(ninteractions, kind=DP)
+         self%is_on = .false.
+         self%step_counter = 0
+         if (self%stage1_metric < self%stage2_metric) then
+            lflatten_final = self%stage1_is_flattened
+            call self%flip(param, pl)  ! Go back to the original style, otherwise keep the stage2 style
+         else
+            lflatten_final = .not.self%stage1_is_flattened
+         end if
+         write(mstr,*) self%stage2_metric
+      end select
+
+      write(cstr,*) self%count_finish_step - self%count_start_step
+
+      call io_log_one_message(INTERACTION_TIMER_LOG_OUT, adjustl(lstyle) // " " // trim(adjustl(cstr)) // " " // trim(adjustl(nstr)) // " " // trim(adjustl(mstr)))
+
+      if (self%stage == 2) then
+         if (lflatten_final) then
+            write(lstyle,*) "FLAT      "
+         else
+            write(lstyle,*) "TRIANGULAR"
+         end if 
+         call io_log_one_message(INTERACTION_TIMER_LOG_OUT, trim(adjustl(self%loopname)) // ": the fastest loop method tested is " // trim(adjustl(lstyle)))
+      end if
+
+      return
+   end subroutine walltime_interaction_adapt
+
+
+   module function walltime_interaction_check(self, param, ninteractions) result(ltimeit)
+      !! author: David A. Minton
+      !!
+      !! Checks whether or not the loop should be timed and starts the timer if the conditions for starting are met
+      implicit none
+      ! Arguments
+      class(interaction_timer),   intent(inout) :: self          !! Walltimer object
+      class(swiftest_parameters), intent(inout) :: param         !! Current run configuration parameters
+      integer(I8B),               intent(in)    :: ninteractions !! Current number of interactions (used to normalize the timed loop and to determine if number of interactions has changed since the last timing
+      logical                                   :: ltimeit !! Logical flag indicating whether this loop should be timed or not
+      ! Internals
+      character(len=STRMAX) :: tstring
+
+      if (self%is_on) then ! Entering the second stage of the loop timing. Therefore we will swap the interaction style and time this loop
+         self%stage = self%stage + 1
+         ltimeit = (self%stage == 2)
+      else
+         self%step_counter = min(self%step_counter + 1, INTERACTION_TIMER_CADENCE)
+         ltimeit = .false.
+         if (self%step_counter == INTERACTION_TIMER_CADENCE) then
+            ltimeit = (ninteractions /= self%last_interactions)
+            if (ltimeit) self%stage = 1
+         end if
+      end if
+      self%is_on = ltimeit
+
+      return
+   end function walltime_interaction_check
+
+
+   module subroutine walltime_interaction_flip_loop_style(self, param, pl)
+      !! author: David A. Minton
+      !!
+      !! Flips the interaction loop style from FLAT to TRIANGULAR or vice versa
+      implicit none
+      ! Arguments
+      class(interaction_timer),   intent(inout) :: self  !! Interaction loop timer object
+      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters
+      class(swiftest_pl),         intent(inout) :: pl    !! Swiftest massive body object 
+
+      select case(trim(adjustl(self%looptype)))
+      case("INTERACTIONS")
+         param%lflatten_interactions = .not. param%lflatten_interactions
+      case("ENCOUNTERS")
+         param%lflatten_encounters = .not. param%lflatten_encounters
+      end select
+
+      if ((param%lflatten_interactions) .or. (param%lflatten_encounters)) then
+         call pl%flatten(param)
+      else
+         if (allocated(pl%k_plpl)) deallocate(pl%k_plpl)
+      end if
+
+      return
+   end subroutine walltime_interaction_flip_loop_style
+
+
+   module subroutine walltime_interaction_time_this_loop(self, param, pl, ninteractions)
+      !! author: David A. Minton
+      !!
+      !! Resets the interaction loop timer, and saves the current value of the array flatten parameter
+      implicit none
+      ! Arguments
+      class(interaction_timer),   intent(inout) :: self          !! Interaction loop timer object
+      class(swiftest_parameters), intent(inout) :: param         !! Current run configuration parameters
+      class(swiftest_pl),         intent(inout) :: pl            !! Swiftest massive body object
+      integer(I8B),               intent(in)    :: ninteractions !! Current number of interactions (used to normalize the timed loop)
+      ! Internals
+      character(len=STRMAX) :: tstr
+      character(len=1) :: schar
+
+      self%is_on = .true.
+      write(tstr,*) param%t
+      select case(self%stage)
+      case(1)
+         self%stage1_ninteractions = ninteractions 
+         select case(trim(adjustl(self%looptype)))
+         case("INTERACTIONS")
+            self%stage1_is_flattened = param%lflatten_interactions
+         case("ENCOUNTERS")
+            self%stage1_is_flattened = param%lflatten_encounters
+         end select
+         call io_log_one_message(INTERACTION_TIMER_LOG_OUT, trim(adjustl(self%loopname)) // ": loop timer turned on at t = " // trim(adjustl(tstr)))
+      case(2)
+         select case(trim(adjustl(self%looptype)))
+         case("INTERACTIONS")
+            param%lflatten_interactions = self%stage1_is_flattened 
+         case("ENCOUNTERS")
+            param%lflatten_encounters = self%stage1_is_flattened 
+         end select
+         call self%flip(param, pl) 
+      case default
+         self%stage = 1
+      end select
+
+      write(schar,'(I1)') self%stage
+      call io_log_one_message(INTERACTION_TIMER_LOG_OUT, trim(adjustl(self%loopname)) // ": stage " // schar )
+
+      call self%reset(param)
+
+      return
+   end subroutine walltime_interaction_time_this_loop
+
+end submodule s_walltime
\ No newline at end of file
diff --git a/src/whm/whm_kick.f90 b/src/whm/whm_kick.f90
index c36c1ce23..7b2b90d00 100644
--- a/src/whm/whm_kick.f90
+++ b/src/whm/whm_kick.f90
@@ -13,7 +13,7 @@ module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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
@@ -68,7 +68,7 @@ module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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
@@ -201,7 +201,7 @@ module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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. 
@@ -243,7 +243,7 @@ module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg)
       ! 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 
+      class(swiftest_parameters),   intent(inout) :: 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. 
diff --git a/src/whm/whm_setup.f90 b/src/whm/whm_setup.f90
index 3c5cdeec3..60be140fd 100644
--- a/src/whm/whm_setup.f90
+++ b/src/whm/whm_setup.f90
@@ -82,7 +82,7 @@ module subroutine whm_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.)
-      call self%pl%index(param)
+      call self%pl%flatten(param)
 
       ! Make sure that the discard list gets allocated initially
       call self%tp_discards%setup(0, param)